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_int.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_int.F')
| -rw-r--r-- | src/AHFinder_int.F | 32 |
1 files changed, 4 insertions, 28 deletions
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index a28c198..2178ac5 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -40,7 +40,6 @@ CCTK_REAL xw,yw,zw CCTK_REAL cost,sint,cosp,sinp CCTK_REAL trr,ttt,tpp,trt,trp,ttp,ft,fp - CCTK_REAL xmn,ymn,zmn,xmx,ymx,zmx CCTK_REAL xmn_l,ymn_l,zmn_l,xmx_l,ymx_l,zmx_l CCTK_REAL dtheta,dphi,dtp,idtheta,idphi,phistart CCTK_REAL det,idet @@ -65,7 +64,6 @@ ! Variables to be saved for next call. - save xmn,ymn,zmn,xmx,ymx,zmx save dtheta,dphi,dtp,idtheta,idphi,phistart save npt,npp,l_ntheta,l_nphi,theta0,phi0 @@ -126,15 +124,6 @@ ! ft dr/dtheta ! fp dr/dphi ! -! 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. -! ! dtheta Grid spacing in theta. ! dphi Grid spacing in phi. ! dtp dtheta*dphi. @@ -190,15 +179,6 @@ firstint = .false. -! ******************************** -! *** 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 *** ! ****************************************** @@ -443,14 +423,10 @@ ! Initialize surface integrals. - if (.not.flow) then - - intexp = zero - intexp2 = zero - intarea = zero - intexpdel2 = zero - - end if + intexp = zero + intexp2 = zero + intarea = zero + intexpdel2 = zero ! For flow algorithm, initialize spectral components. |