aboutsummaryrefslogtreecommitdiff
path: root/src/CartGrid3D.F77
diff options
context:
space:
mode:
Diffstat (limited to 'src/CartGrid3D.F77')
-rw-r--r--src/CartGrid3D.F7711
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"