aboutsummaryrefslogtreecommitdiff
path: root/schedule.ccl
diff options
context:
space:
mode:
authormiguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c>2001-06-18 10:16:36 +0000
committermiguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c>2001-06-18 10:16:36 +0000
commit8bd4033f02066e763ebc572dd5e6c2779adb1c65 (patch)
tree7f3f04a178a2719e353813580ee8db100c1caf13 /schedule.ccl
parent707f8a93ed24f5a20c3ba6601bf8d096bdb0a684 (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.ccl56
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"
+ }
}