diff options
Diffstat (limited to 'src/CartGrid3D.F77')
-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" |