diff options
Diffstat (limited to 'src/IDAxiOddBrillBH.F')
-rw-r--r-- | src/IDAxiOddBrillBH.F | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/IDAxiOddBrillBH.F b/src/IDAxiOddBrillBH.F index b97d151..f2d1a58 100644 --- a/src/IDAxiOddBrillBH.F +++ b/src/IDAxiOddBrillBH.F @@ -382,13 +382,10 @@ c Compute eta,q,phi at the each points of cartesian grid enddo enddo - call CCTK_GetInterpHandle (handle, "simple_local") + call CCTK_InterpHandle (handle, "simple_local") 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") npoints = nx*ny*nz |