diff options
Diffstat (limited to 'schedule.ccl')
-rw-r--r-- | schedule.ccl | 80 |
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" + } } - - - - |