diff options
author | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-04-22 14:20:56 +0000 |
---|---|---|
committer | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-04-22 14:20:56 +0000 |
commit | e1e4b192d930c2ff1dc1491813954b8054d2aaeb (patch) | |
tree | f2e371d94abca747b22912ede37c592d246df6b5 /src | |
parent | 69fc1522bf6f36ae4ad000d8a4dd55addafdad76 (diff) |
Added registration of coordinates with a name and a direction
CCTK_Warn -> CCTK_WARN
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@25 c78560ca-4b45-4335-b268-5f3340f3cb52
Diffstat (limited to 'src')
-rw-r--r-- | src/CartGrid3D.F | 4 | ||||
-rw-r--r-- | src/Startup.c | 15 | ||||
-rw-r--r-- | src/make.code.defn | 3 |
3 files changed, 19 insertions, 3 deletions
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 = |