From 09550e86f557510909856c2ebedf67e44235e6a1 Mon Sep 17 00:00:00 2001
From: diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c>
Date: Fri, 26 Jul 2002 09:32:08 +0000
Subject: 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
---
 schedule.ccl | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

(limited to 'schedule.ccl')

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
-- 
cgit v1.2.3