Changed the name of working routines to be more descriptive. Added some

more comments in schedule.ccl.


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

1 files changed, 37 insertions, 19 deletions

diff --git a/schedule.ccl b/schedule.ccl
index 067004d..fa555bd 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -41,7 +41,7 @@ schedule EHFinder_SetSym at CCTK_BASEGRID
 } "Register the symmetries for the level set function"
 
 
-# set the initial eh_mask to at the physical outer boundaries.
+# Set the initial eh_mask to at the physical outer boundaries.
 
 schedule EHFinder_MaskInit at CCTK_POSTINITIAL after EHFinder_Init
 {
@@ -49,35 +49,57 @@ schedule EHFinder_MaskInit at CCTK_POSTINITIAL after EHFinder_Init
 } "Setup the initial mask"
 
 
-# Schedule the euler re-parametrization
+# Schedule the normal mode of operation
 
-if (!CCTK_Equals(mode,"test_reparam"))
+if (CCTK_Equals(mode,"normal"))
 {
+
+  # Schedule the calculation of the source terms
+
+  schedule EHFinder_Sources in MoL_CalcRHS
+  {
+    LANG: Fortran
+  } "Calculate the source terms"
+
+
+  # Set up the schedule group for re-parametrization
+
   schedule GROUP EHFinder_ReParametrize at CCTK_POSTSTEP
   {
-#    LANG: Fortran
   } "Re-parametrize the level set function"
 
   if (CCTK_Equals(re_param_method,"pde"))
   {
-    schedule EHFinder_ReParametrize1 in EHFinder_ReParametrize
+
+    # Schedule the control routine, that initialises re_param_control if
+    # it is time for re-parametrization
+
+    schedule EHFinder_ReParametrizeControl in EHFinder_ReParametrize
     {
       LANG: Fortran
     } "Initializes the re-parametrization control"
 
     if (CCTK_Equals(re_param_int_method,"euler"))
     {
+
+      # Set up the schedule group for euler re-parametrization using 
+      # re_param_control to control the exit from the while loop.
+
       schedule GROUP Euler_ReParametrize in EHFinder_ReParametrize AFTER EHFinder_ReParametrize1 WHILE ehfinder::re_param_control
       {
       } "Schedule group for Euler re-parametrization"
 
-      schedule EHFinder_ReParametrize4 in Euler_ReParametrize 
+      # Schedule the routine that does one Euler step 
+
+      schedule EHFinder_ReParametrizeEuler in Euler_ReParametrize 
       {
         LANG: Fortran
-        SYNC: level_set
+#        SYNC: level_set
       } "Euler scheme"
 
-      schedule  EHFinder_ApplySym in Euler_ReParametrize after EHFinder_ReParametrize4
+      # Then synchronize the level set and apply symmetry boundary conditions.
+     
+      schedule  EHFinder_ApplySym in Euler_ReParametrize after EHFinder_ReParametrizeEuler
       {
         LANG: Fortran
         SYNC: level_set
@@ -90,9 +112,10 @@ if (!CCTK_Equals(mode,"test_reparam"))
 
   schedule GROUP EHFinder_SetMask at CCTK_POSTSTEP after EHFinder_ReParametrize
   {
-#    LANG: Fortran
   } "Set the mask"
 
+  # First schedule the routine that adds or removes cells from the mask
+
   schedule EHFinder_SetMask1 in EHFinder_SetMask
   {
     LANG: Fortran
@@ -100,11 +123,16 @@ if (!CCTK_Equals(mode,"test_reparam"))
     SYNC: eh_mask_all
   } "Start modifying the mask"
 
+  # Then apply the symmetry boundary conditions.
+
   schedule  EHFinder_ApplySym in EHFinder_SetMask after EHFinder_SetMask1
   {
     LANG: Fortran
   } "apply symmetry boundaries"
  
+  # Finally locate the mask boundary and add values to distinguish different
+  # directions.
+
   schedule EHFinder_SetMask2 in EHFinder_SetMask after EHFinder_ApplySym
   {
     LANG: Fortran
@@ -114,16 +142,6 @@ if (!CCTK_Equals(mode,"test_reparam"))
 }
 
 
-# Schedule the calculation of the source terms
-
-if (CCTK_Equals(mode,"normal"))
-{
-  schedule EHFinder_Sources in MoL_CalcRHS
-  {
-    LANG: Fortran
-  } "Calculate the source terms"
-}
-
 
 #schedule  EHFinder_ApplySym at CCTK_POSTINITIAL after EHFinder_MaskInit
 #{