diff options
author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-06-18 10:16:36 +0000 |
---|---|---|
committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-06-18 10:16:36 +0000 |
commit | 8bd4033f02066e763ebc572dd5e6c2779adb1c65 (patch) | |
tree | 7f3f04a178a2719e353813580ee8db100c1caf13 /schedule.ccl | |
parent | 707f8a93ed24f5a20c3ba6601bf8d096bdb0a684 (diff) |
Making sure that the findr is not even scheduled if inactive.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@206 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'schedule.ccl')
-rw-r--r-- | schedule.ccl | 56 |
1 files changed, 30 insertions, 26 deletions
diff --git a/schedule.ccl b/schedule.ccl index 3d11cb5..4cfbd35 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -11,38 +11,42 @@ schedule AHFinder_SetSym at CCTK_BASEGRID } "Set symmetries for AHFinder grid functions" -if (ahf_persists) +if (ahf_active) { - STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid - STORAGE: ahfmask - STORAGE: hole1_bounds,hole2_bounds,hole3_bounds - schedule ahfinder at CCTK_POSTSTEP + if (ahf_persists) { - LANG: Fortran - } "Call apparent horizon finder with persisting grid functions" -} + STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid + STORAGE: ahfmask + STORAGE: hole1_bounds,hole2_bounds,hole3_bounds -else if (CCTK_Equals(ahf_mask,"off")) -{ - schedule ahfinder at CCTK_POSTSTEP - { - LANG: Fortran - STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid - STORAGE: ahfmask - } "Call apparent horizon finder" -} + schedule ahfinder at CCTK_POSTSTEP + { + LANG: Fortran + } "Call apparent horizon finder with persisting grid functions" + } -else -{ - STORAGE: ahfmask - STORAGE: hole1_bounds,hole2_bounds,hole3_bounds - - schedule ahfinder at CCTK_POSTSTEP + else if (CCTK_Equals(ahf_mask,"off")) + { + schedule ahfinder at CCTK_POSTSTEP + { + LANG: Fortran + STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid + STORAGE: ahfmask + } "Call apparent horizon finder" + } + + else { - LANG: Fortran - STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid - } "Call apparent horizon finder with persisting mask" + STORAGE: ahfmask + STORAGE: hole1_bounds,hole2_bounds,hole3_bounds + + schedule ahfinder at CCTK_POSTSTEP + { + LANG: Fortran + STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid + } "Call apparent horizon finder with persisting mask" + } } |