diff options
Diffstat (limited to 'src/D3_to_D2.F')
-rw-r--r-- | src/D3_to_D2.F | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index 05e1f57..74c3cdb 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -113,11 +113,12 @@ c Choose the interpolator c ----------------------- call CCTK_GetInterpHandle (handle, "simple") -c Find the origin of the spatial coordinates -c ------------------------------------------ - call CCTK_CoordRange(ierror,cctkGH,xmin,xmax,"x") - call CCTK_CoordRange(ierror,cctkGH,ymin,ymax,"y") - call CCTK_CoordRange(ierror,cctkGH,zmin,zmax,"z") + +c Find the local origin of the spatial coordinates +c ------------------------------------------------ + call CCTK_CoordLocalRange(ierror,cctkGH,xmin,xmax,"x") + call CCTK_CoordLocalRange(ierror,cctkGH,ymin,ymax,"y") + call CCTK_CoordLocalRange(ierror,cctkGH,zmin,zmax,"z") c Project un-physical metric and conformal factor onto sphere |