diff options
Diffstat (limited to 'schedule.ccl')
-rw-r--r-- | schedule.ccl | 55 |
1 files changed, 45 insertions, 10 deletions
diff --git a/schedule.ccl b/schedule.ccl index f522f5c..77c3d91 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -181,7 +181,11 @@ schedule EHFinder_ApplySymSC in EHFinder_MarkPoints after EHFinder_MarkSurfaces LANG: Fortran TRIGGERS: eh_area, eh_centroid_x, eh_centroid_y, eh_centroid_z TRIGGERS: eh_circ_eq, eh_circ_pol -} "Apply symmetries of the surface counter grid function" +} "Select the surface counter grid function for boundary conditions" + +schedule GROUP ApplyBCs as EHFinderSC_ApplyBSc in EHFinder_MarkPoints after EHFinder_ApplySymSC +{ +} "Apply boundary conditions (symmetries)" schedule EHFinder_InfoSurfaces in EHFinder_Surfaces after EHFinder_CountMarkSurfaces { @@ -385,7 +389,11 @@ if (CCTK_Equals(mode,"normal")) { LANG: Fortran SYNC: f - } "Apply symmetry boundaries" + } "Select f for boundary conditions" + + schedule GROUP ApplyBCs as EHFinderF_ApplyBCs in EHFinder_PostStep after EHFinder_ApplySymF +{ +} "Apply boundary conditions (Symmetries)" # Set up the schedule group for re-initialization @@ -435,8 +443,12 @@ if (CCTK_Equals(mode,"normal")) { LANG: Fortran SYNC: f - } "Apply symmetry boundaries and sync" + } "Select f for boundary conditions" + schedule GROUP ApplyBCs as EHFinderF_ApplyBCs in Euler_ReInitialize after EHFinder_ApplySymF + { + } "Apply boundary conditions (symmetries)" + schedule EHFinder_ReInitialize_Check in EHFinder_ReInitialize AFTER Euler_ReInitialize { LANG: Fortran @@ -471,7 +483,11 @@ if (CCTK_Equals(mode,"normal")) { LANG: Fortran SYNC: f - } "Apply symmetry boundaries and sync" + } "Select f for boundary conditions" + + schedule GROUP ApplyBCs as EHFinderRK2_1_ApplyBCs in RK2_ReInitialize after Sym_RK2_1 + { + } "Apply boundary conditions (symmetries)" # Schedule the routine that does the second RK2 step @@ -490,9 +506,13 @@ if (CCTK_Equals(mode,"normal")) { LANG: Fortran SYNC: f - } "Apply symmetry boundaries and sync" + } "Select f for boundary conditions" } + schedule GROUP ApplyBCs as EHFinderRK2_2_ApplyBCs in RK2_ReInitialize after Sym_RK2_2 + { + } "Apply boundary conditions (symmetries)" + # Schedule modifications of the mask in group EHFinder_SetMask schedule GROUP EHFinder_SetMask at CCTK_POSTSTEP after EHFinder_ReInitialize @@ -514,12 +534,15 @@ if (CCTK_Equals(mode,"normal")) schedule EHFinder_ApplySymAll in EHFinder_SetMask after EHFinder_SetMask1 { LANG: Fortran - } "Apply symmetry boundaries" + } "Select both f and eh_mask for boundary conditions" + schedule GROUP ApplyBCs as EHFinderAll_ApplyBCs in EHFinder_SetMask after EHFinder_ApplySymAll + { + } "Apply boundary conditions (symmetries)" # Finally locate the mask boundary and add values to distinguish different # directions. - schedule EHFinder_SetMask2 in EHFinder_SetMask after EHFinder_ApplySymAll + schedule EHFinder_SetMask2 in EHFinder_SetMask after EHFinderAll_ApplyBCs { LANG: Fortran SYNC: eh_mask, tm_mask @@ -528,7 +551,11 @@ if (CCTK_Equals(mode,"normal")) schedule EHFinder_ApplySymMask as ASM1 in EHFinder_SetMask after EHFinder_SetMask2 { LANG: Fortran - } "Apply symmetry boundaries" + } "Select eh_mask for boundary conditions" + + schedule GROUP ApplyBCs as EHFinderMask1_ApplyBCs in EHFinder_SetMask after ASM1 + { + } "Apply boundary conditions (symmetries)" schedule EHFinder_SetMask3 in EHFinder_SetMask after EHFinder_ASM1 { @@ -539,8 +566,12 @@ if (CCTK_Equals(mode,"normal")) schedule EHFinder_ApplySymMask as ASM2 in EHFinder_SetMask after EHFinder_SetMask3 { LANG: Fortran - } "Apply symmetry boundaries" + } "Select eh_mask for boundary conditions" + schedule GROUP ApplyBCs as EHFinderMask2_ApplyBCs in EHFinder_SetMask after ASM2 + { + } "Apply boundary conditions (symmetries)" + schedule EHFinder_SetMask2 as SM2 in EHFinder_SetMask after ASM2 { LANG: Fortran @@ -550,7 +581,11 @@ if (CCTK_Equals(mode,"normal")) schedule EHFinder_ApplySymMask as ASM3 in EHFinder_SetMask after SM2 { LANG: Fortran - } "Apply symmetry boundaries" + } "Select eh_mask for boundary conditions" + + schedule GROUP ApplyBCs as EHFinderMask3_ApplyBCs in EHFinder_SetMask after ASM3 + { + } "Apply boundary conditions (symmetries)" # if ( evolve_generators) # { |