diff options
-rw-r--r-- | schedule.ccl | 16 | ||||
-rw-r--r-- | src/SetSym.F | 1 |
2 files changed, 9 insertions, 8 deletions
diff --git a/schedule.ccl b/schedule.ccl index c638060..0d7018c 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -11,24 +11,26 @@ schedule AHFinder_SetSym at CCTK_BASEGRID } "Set symmetries for AHFinder grid functions" -if (ahf_active && (ahf_persists || ahf_mask || ahf_weakmask)) +if (ahf_active && CCTK_Equals(ahf_mask,"off")) { - STORAGE: ahfindergrid,ahfmask - schedule ahfinder at CCTK_POSTSTEP { LANG: Fortran - STORAGE: ahfgradient,ahfinder_gauss,find3grid - } "Call apparent horizon finder with persisting grid" + STORAGE:ahfgradient,ahfinder_gauss,find3grid,ahfindergrid,ahfmask + } "Call apparent horizon finder" } else if (ahf_active) { + STORAGE: ahfindergrid,ahfmask + schedule ahfinder at CCTK_POSTSTEP { LANG: Fortran - STORAGE:ahfgradient,ahfinder_gauss,find3grid,ahfindergrid,ahfmask - } "Call apparent horizon finder" + STORAGE: ahfgradient,ahfinder_gauss,find3grid + } "Call apparent horizon finder with persisting grid" } + + diff --git a/src/SetSym.F b/src/SetSym.F index ca7571b..66a4899 100644 --- a/src/SetSym.F +++ b/src/SetSym.F @@ -45,7 +45,6 @@ c +,+,+ call SetCartSymmetry(cctkGH,sym,'ahfinder::ahfgrid') call SetCartSymmetry(cctkGH,sym,'ahfinder::ahf_exp') - call SetCartSymmetry(cctkGH,sym,'ahfinder::ahmask') c End. |