From 8bd4033f02066e763ebc572dd5e6c2779adb1c65 Mon Sep 17 00:00:00 2001
From: miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Mon, 18 Jun 2001 10:16:36 +0000
Subject: 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
---
 schedule.ccl | 56 ++++++++++++++++++++++++++++++--------------------------
 1 file changed, 30 insertions(+), 26 deletions(-)

(limited to 'schedule.ccl')

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"
+   }
 }
 
 
-- 
cgit v1.2.3