diff options
author | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-07-27 10:42:49 +0000 |
---|---|---|
committer | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 1999-07-27 10:42:49 +0000 |
commit | e1f81b6d2b66628d8ea266f4b6157ece250a105d (patch) | |
tree | 4a4ac2402c24b1c17dca4fad308e9ae30ab595fc | |
parent | 4f3c1c295f3509bc6364bc478f012a65e2515126 (diff) |
Register coordinate ranges
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@40 c78560ca-4b45-4335-b268-5f3340f3cb52
-rw-r--r-- | src/CartGrid3D.F77 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/CartGrid3D.F77 b/src/CartGrid3D.F77 index 8ec5b7b..b4fa02b 100644 --- a/src/CartGrid3D.F77 +++ b/src/CartGrid3D.F77 @@ -26,6 +26,7 @@ CCTK_REAL x_origin,y_origin,z_origin CCTK_REAL this_dx,this_dy,this_dz CCTK_REAL xmax1,ymax1,zmax1 + CCTK_REAL lower,upper,olower,oupper iconv = 2**(cctk_convlevel-1) @@ -250,6 +251,16 @@ c ----------------------- cctk_origin_space(2) = y_origin cctk_origin_space(3) = z_origin + lower = x_origin + upper = x_origin+this_dx*(cctk_gsh(1)-1) + call CCTK_RegisterCoordRange(cctkGH,lower,upper,"x") + lower = y_origin + upper = y_origin+this_dy*(cctk_gsh(2)-1) + call CCTK_RegisterCoordRange(cctkGH,lower,upper,"y") + lower = z_origin + upper = z_origin+this_dz*(cctk_gsh(3)-1) + call CCTK_RegisterCoordRange(cctkGH,lower,upper,"z") + #ifdef CARTGRID3D_DEBUG write(*,*) write(*,*) " CartGrid3D" |