diff options
| -rw-r--r-- | schedule.ccl | 5 | ||||
| -rw-r--r-- | src/CartGrid3D.F | 4 | ||||
| -rw-r--r-- | src/Startup.c | 15 | ||||
| -rw-r--r-- | src/make.code.defn | 3 |
4 files changed, 24 insertions, 3 deletions
diff --git a/schedule.ccl b/schedule.ccl index 388985e..56bf97f 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -3,6 +3,11 @@ STORAGE: coordinates +schedule RegisterCartGrid3DCoords at CCTK_STARTUP +{ + LANG:C +} "Register coordinates for the Cartesian grid" + schedule ParamCheck_CartGrid3D at CCTK_BASEGRID { LANG:Fortran diff --git a/src/CartGrid3D.F b/src/CartGrid3D.F index 4360dad..cb4ca15 100644 --- a/src/CartGrid3D.F +++ b/src/CartGrid3D.F @@ -29,7 +29,7 @@ iflag = 0 ! Gets set to one if we set a grid iconv = 2**(convlevel-1) - + c -------------------------------------------------------------- c c BYRANGE @@ -197,7 +197,7 @@ c Special cases c No grid was set up c ------------------ if (iflag.ne.1) then - call CCTK_Warn(0,"No grid set up in CartGrid3D") + call CCTK_WARN(0,"No grid set up in CartGrid3D") end if diff --git a/src/Startup.c b/src/Startup.c new file mode 100644 index 0000000..ad5d60a --- /dev/null +++ b/src/Startup.c @@ -0,0 +1,15 @@ + +#include "cctk.h" +#include "Coord.h" + +void RegisterCartGrid3DCoords() +{ + + CCTK_RegisterCoord("x","grid::x",1); + CCTK_RegisterCoord("y","grid::y",2); + CCTK_RegisterCoord("z","grid::z",3); + CCTK_RegisterCoord("r","grid::r",-1); + +} + + diff --git a/src/make.code.defn b/src/make.code.defn index 247ee70..a29247e 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -3,7 +3,8 @@ # Source files in this directory SRCS = CartGrid3D.F\ - ParamCheck.F + ParamCheck.F\ + Startup.c # Subdirectories containing source files SUBDIRS = |