diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-16 11:42:38 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-10-16 11:42:38 +0000 |
| commit | 784491c45d4a4675c171963e06b3d23f8bd39c9f (patch) | |
| tree | fcbd56dbb2c5a47d16b430ed5cf9bf0ae41f4a97 | |
| parent | 77a0fc90aa1dbca6e21bf770eeec60f6822b562f (diff) | |
Small changes necessary to make some parameters stearable.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@130 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | src/AHFinder.F | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/src/AHFinder.F b/src/AHFinder.F index 7e285a9..a42f55a 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -89,6 +89,13 @@ ! 4. Integral of H^2 is positive out and in. +! ***************************************** +! *** DO WE WANT TO BE HERE AT ALL? *** +! ***************************************** + + if (ahf_active.eq.0) return + + ! *************************** ! *** INITIALIZE MASK *** ! *************************** @@ -108,19 +115,15 @@ ! *** CHECK IF WE WANT TO FIND A HORIZON AT THIS TIME *** ! *********************************************************** - if (ahf_ncall.eq.0) then - - atime = ahf_findaftertime - ahfafter = ahf_findafter - ahfso = ahf_findevery - - if (atime.le.zero) then - if (cctk_iteration.lt.ahfafter) return - else - if (cctk_time.lt.atime) return - ahfafter = cctk_iteration - end if + atime = ahf_findaftertime + ahfafter = ahf_findafter + ahfso = ahf_findevery + if (atime.le.zero) then + if (cctk_iteration.lt.ahfafter) return + else + if (cctk_time.lt.atime) return + if (ahf_ncall.eq.0) ahfafter = cctk_iteration end if if (mod(int(cctk_iteration)-ahfafter,ahfso).ne.0) return |