diff options
author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-07-26 09:32:08 +0000 |
---|---|---|
committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2002-07-26 09:32:08 +0000 |
commit | 09550e86f557510909856c2ebedf67e44235e6a1 (patch) | |
tree | b2b376ec00fff93b580e2b413f293105ecd0d4c1 /schedule.ccl | |
parent | cfab1b9698b0eea4883c67186831388d67c9ce04 (diff) |
Turn on storage for back up of f.
Schedule symmetry boundary conditions in MoL_PostStep (I have no idea
how it appeared to be working before).
Schedule routine to check if reparametrization has to be undone due to
imminent pinch off.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@37 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'schedule.ccl')
-rw-r--r-- | schedule.ccl | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/schedule.ccl b/schedule.ccl index 388ab31..933fedf 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -7,6 +7,7 @@ STORAGE: dlevel_set STORAGE: eh_mask_all STORAGE: rep_mask STORAGE: ftmp_set +STORAGE: level_bak # Check for metric_state @@ -131,6 +132,17 @@ if (CCTK_Equals(mode,"normal")) LANG: Fortran } "Calculate the source terms" + schedule GROUP EHFinder_PostStep in MoL_PostStep + { + } "Schedule group for symmetry boundaries and syncing" + + + schedule EHFinder_ApplySymF in EHFinder_PostStep + { + LANG: Fortran + SYNC: level_set + } "Apply symmetry boundaries" + # Set up the schedule group for re-parametrization @@ -176,6 +188,11 @@ if (CCTK_Equals(mode,"normal")) LANG: Fortran SYNC: level_set } "Apply symmetry boundaries and sync" + + schedule EHFinder_ReParametrize_Check in EHFinder_ReParametrize AFTER Euler_ReParametrize + { + LANG: Fortran + } "Check to see if re-parametrization has to be undone" } if (CCTK_Equals(re_param_int_method,"rk2")) @@ -359,16 +376,6 @@ if (CCTK_Equals(mode,"normal")) # } "Calculate the source terms for reparam test" #} # -#schedule GROUP EHFinder_PostStep in MoL_PostStep -#{ -#} "Schedule group for symmetry boundaries and syncing" -# -#schedule EHFinder_ApplySym in EHFinder_PostStep -#{ -# LANG: Fortran -# SYNC: level_set -#} "Apply symmetry boundaries" -# #if (!CCTK_Equals(mode,"test_reparam")) #{ # schedule GROUP EHFinder_ReParametrize at CCTK_POSTSTEP |