diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-30 14:50:41 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-30 14:50:41 +0000 |
| commit | 6eb1b34f27f5fd93685dfc0668e116f1badec590 (patch) | |
| tree | 6c715f53a2c1594378ab577944070310cde9e217 /src/AHFinder_gau.F | |
| parent | f84da6ab05c8008e9a871dc06b897e49c5a7f986 (diff) | |
Making the global coordinate ranges global variables declared in the
module AHFinder_dat.F to avoid calculating them several times.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@147 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_gau.F')
| -rw-r--r-- | src/AHFinder_gau.F | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 521c54c..e1a634c 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -38,7 +38,6 @@ CCTK_REAL theta,phi,xp,yp,zp,rp CCTK_REAL cost,sint,cosp,sinp CCTK_REAL dtheta,dphi,dtp,idtheta,idphi,phistart - CCTK_REAL xmn,ymn,zmn,xmx,ymx,zmx CCTK_REAL xmn_l,ymn_l,zmn_l,xmx_l,ymx_l,zmx_l CCTK_REAL trr,ttt,tpp,trt,trp,ttp,ft,fp CCTK_REAL circ_eq,meri_p1,meri_p2 @@ -117,15 +116,6 @@ ! ya Array with y coordinates from grid centre. ! za Array with z coordinates from grid centre. ! -! xmn Minimum value of x over the grid. -! xmx Maximum value of x over the grid. -! -! ymn Minimum value of y over the grid. -! ymx Maximum value of y over the grid. -! -! zmn Minimum value of z over the grid. -! zmx Maximum value of z over the grid. -! ! txx Interpolated gxx metric component. ! tyy Interpolated gyy metric component. ! tzz Interpolated gzz metric component. @@ -276,12 +266,6 @@ ! *** INITIALIZE PARAMETERS *** ! ********************************* -! Find grid boundaries. - - call CCTK_CoordRange(ierror,cctkGH,xmn,xmx,-1,"x","cart3d"); - call CCTK_CoordRange(ierror,cctkGH,ymn,ymx,-1,"y","cart3d"); - call CCTK_CoordRange(ierror,cctkGH,zmn,zmx,-1,"z","cart3d"); - ! Find {phistart,dtheta,dphi,dtp}. phistart = zero |