Switch on storage for CCTK arrays for AHFinder output.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@218 89daf98e-ef62-4674-b946-b8ff9de2216c

1 files changed, 39 insertions, 41 deletions

diff --git a/schedule.ccl b/schedule.ccl
index 4cfbd35..683feca 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -1,54 +1,52 @@
 # Schedule definitions for thorn AHFinder
 #c/*@@
-#c  @date      July 1999
-#c  @author    Lars Nerger
+#c  @date    July 1999
+#c  @author   Lars Nerger
 #c  @@*/
 
 
 schedule AHFinder_SetSym at CCTK_BASEGRID
 {
-   LANG: Fortran
+  LANG: Fortran
 } "Set symmetries for AHFinder grid functions"
 
 
 if (ahf_active)
 {
-
-   if (ahf_persists)
-   {
-      STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid
-      STORAGE: ahfmask
-      STORAGE: hole1_bounds,hole2_bounds,hole3_bounds
-
-      schedule ahfinder at CCTK_POSTSTEP
-      {
-       LANG: Fortran
-      } "Call apparent horizon finder with persisting grid functions"
-   }
-
-   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
-   {
-      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"
-   }
+  if (ahf_lmax > 0)
+  {
+    STORAGE: out_scalars, out_1d_legen, out_2d_legen, out_2d_gauss
+  }
+
+  if (ahf_persists)
+  {
+    STORAGE: ahfindergrid,ahfinderexp,ahfgradient,ahfinder_gauss,find3grid
+    STORAGE: ahfmask
+    STORAGE: hole1_bounds,hole2_bounds,hole3_bounds
+
+    schedule ahfinder at CCTK_POSTSTEP
+    {
+     LANG: Fortran
+    } "Call apparent horizon finder with persisting grid functions"
+  }
+  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
+  {
+    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"
+  }
 }
-
-
-
-