diff options
Diffstat (limited to 'schedule.ccl')
| -rw-r--r-- | schedule.ccl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/schedule.ccl b/schedule.ccl index 1550011..5626817 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -10,6 +10,7 @@ else STORAGE: f[2] STORAGE: sf STORAGE: ftmp + STORAGE: sftmp STORAGE: eh_mask STORAGE: surface_arrays STORAGE: eh_area2, eh_centroid2_x, eh_centroid2_y, eh_centroid2_z @@ -340,6 +341,7 @@ schedule EHFinder_MoLRegister in MoL_Register schedule EHFinder_SetSym at CCTK_BASEGRID { LANG: Fortran + STORAGE: sftmp } "Register the symmetries for the level set function" @@ -407,6 +409,7 @@ if (CCTK_Equals(mode,"normal")) { LANG: Fortran SYNC: f + SYNC: sftmp } "Select f for boundary conditions" schedule GROUP ApplyBCs as EHFinderF_ApplyBCs in EHFinder_PostStep after EHFinder_ApplySymF @@ -418,7 +421,6 @@ if (CCTK_Equals(mode,"normal")) schedule GROUP EHFinder_ReInitialize at CCTK_POSTSTEP { - STORAGE: sftmp STORAGE: fbak STORAGE: eh_mask_bak # STORAGE: pugh_re_init_control, carpet_re_init_control @@ -464,10 +466,11 @@ if (CCTK_Equals(mode,"normal")) # Then synchronize the level set and apply symmetry boundary conditions. - schedule EHFinder_ApplySymF in Euler_ReInitializeEvolve after EHFinder_ReInitializeEuler + schedule EHFinder_ApplySymFSFTMP in Euler_ReInitializeEvolve after EHFinder_ReInitializeEuler { LANG: Fortran SYNC: f + SYNC: sftmp } "Select f for boundary conditions" schedule GROUP ApplyBCs as EHFinderF_ApplyBCs in Euler_ReInitializeEvolve after EHFinder_ApplySymF |