From d6875a6a9fbe08587a5bbf5d14ab31a098ef7727 Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 12 Oct 2004 20:04:55 +0000 Subject: Uncomment the commented routine to check if re-initialization needs to be undone. This is important when running on real data:-) This was uncommented while working on getting re-initialization to work with Carpet, since it doesn't work with Carpet yet. However, now it's only scheduled when PUGH is active. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@191 2a26948c-0e4f-0410-aee8-f1d3e353619c --- schedule.ccl | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'schedule.ccl') diff --git a/schedule.ccl b/schedule.ccl index 5626817..28f8637 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -413,8 +413,8 @@ if (CCTK_Equals(mode,"normal")) } "Select f for boundary conditions" schedule GROUP ApplyBCs as EHFinderF_ApplyBCs in EHFinder_PostStep after EHFinder_ApplySymF -{ -} "Apply boundary conditions (Symmetries)" + { + } "Apply boundary conditions (Symmetries)" # Set up the schedule group for re-initialization @@ -508,6 +508,11 @@ if (CCTK_Equals(mode,"normal")) schedule GROUP Euler_PostStep as Euler_PostStepPUGH in Euler_ReInitialize after Euler_ReInitializeEvolve { } "Schedule group for Euler re-initialization post step" + + schedule EHFinder_ReInitialize_Check in EHFinder_ReInitialize AFTER Euler_ReInitialize + { + LANG: Fortran + } "Check to see if re-initialization has to be undone" } if (CCTK_IsThornActive("Carpet")) @@ -516,7 +521,7 @@ if (CCTK_Equals(mode,"normal")) { LANG: C OPTIONS: level - } "Carper version of the pre-reinitialization routines" + } "Carpet version of the pre-reinitialization routines" # schedule EHFinder_ReInitialize_Wrapper in EHFinder_ReInitialize after EHFinder_PreReInitialize_Carpet WHILE ehfinder::carpet_re_init_control schedule EHFinder_ReInitialize_Wrapper in EHFinder_ReInitialize after EHFinder_PreReInitialize_Carpet WHILE ehfinder::re_init_control @@ -527,10 +532,6 @@ if (CCTK_Equals(mode,"normal")) } "Wrapper routine for Euler re-initialization for Carpet" } -# schedule EHFinder_ReInitialize_Check in EHFinder_ReInitialize AFTER Euler_ReInitialize -# { -# LANG: Fortran -# } "Check to see if re-initialization has to be undone" } # schedule GROUP Euler_RotateTimeLevels @@ -593,11 +594,11 @@ if (CCTK_Equals(mode,"normal")) LANG: Fortran SYNC: f } "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 -- cgit v1.2.3