diff options
Diffstat (limited to 'src/Extract.F')
| -rw-r--r-- | src/Extract.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Extract.F b/src/Extract.F index 658721a..bc527b1 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -253,9 +253,9 @@ c 3. Find maximum radius of extraction on grid c c ------------------------------------------------------------------ - call CCTK_CoordRange(ierr,cctkGH,xmin,xmax,"x") - call CCTK_CoordRange(ierr,cctkGH,ymin,ymax,"y") - call CCTK_CoordRange(ierr,cctkGH,zmin,zmax,"z") + call CCTK_CoordRange(ierr,cctkGH,xmin,xmax,-1,"x","cart3d") + call CCTK_CoordRange(ierr,cctkGH,ymin,ymax,-1,"y","cart3d") + call CCTK_CoordRange(ierr,cctkGH,zmin,zmax,-1,"z","cart3d") IF (igrid == 2) THEN r_max = MIN(xmax-two*Dx-orig(1), |