Change to the new (well fairly new) SymBase interface.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@170 2a26948c-0e4f-0410-aee8-f1d3e353619c

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)
 #  {