diff options
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" + } } |