Major changes to clean up and comment the code.

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

1 files changed, 9 insertions, 12 deletions

diff --git a/interface.ccl b/interface.ccl
index fd1f3b7..a0998f5 100644
--- a/interface.ccl
+++ b/interface.ccl
@@ -5,7 +5,6 @@ implements: ehfinder
 inherits: grid admbase coordgauge staticconformal spacemask boundary
 
 USES INCLUDE: Boundary.h
-#USES INCLUDE: MoL.h
 
 CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, \
                                      CCTK_INT IN RHSIndex)
@@ -35,13 +34,13 @@ CCTK_REAL dfz[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 # Squares of the derivatives of the level set functions.
 CCTK_REAL dfsq[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 
-# Temporary variables used in pde re-parametrization.
+# Temporary variables used in pde re-initialization.
 CCTK_REAL ftmp[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 
-# Temporary variables for the right hand side used in pde re-parametrization.
+# Temporary variables for the right hand side used in pde re-initialization.
 CCTK_REAL sftmp[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 
-# Temporary placeholder for the level set during re-parametrization.
+# Temporary placeholder for the level set during re-initialization.
 CCTK_REAL fbak[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 
 # Masks to define active cells.
@@ -50,19 +49,19 @@ CCTK_INT eh_mask[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 # Temporary masks to define active cells.
 CCTK_INT tm_mask[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 
-# Temporary placeholders for the masks during re-parametrization.
+# Temporary placeholders for the masks during re-initialization.
 CCTK_INT eh_mask_bak[eh_number_level_sets] TYPE=GF TIMELEVELS=1
 
-#CCTK_INT rep_mask[eh_number_level_sets] TYPE=GF TIMELEVELS=1
-
-CCTK_INT re_param_control_pde TYPE=SCALAR
-CCTK_INT re_param_control_approx TYPE=SCALAR
+# Control variable for while loops in re-initialization.
+CCTK_INT re_init_control TYPE=SCALAR
  
+# Grid function used in counting surfaces.
 CCTK_INT surface_index TYPE=GF TIMELEVELS=1
 {
   sc
 }
 
+# Flag to indicate succesful location of points on a surface.
 CCTK_INT find_surface_status TYPE=SCALAR
 
 CCTK_INT levelset_integers TYPE=SCALAR
@@ -116,9 +115,7 @@ CCTK_REAL interp_metric_arrays TYPE=ARRAY DIM=2 TIMELEVELS=1 SIZE=ntheta,nphi GH
 CCTK_REAL integrate_tmp_array TYPE=ARRAY DIM=2 TIMELEVELS=1 SIZE=ntheta,nphi GHOSTSIZE=n_array_ghosts,n_array_ghosts DISTRIB=DEFAULT
 {
   int_tmp
-}
-
-#CCTK_INT rep_mask TYPE=GF TIMELEVELS=1
+} "Temporary array that is used in the integration of various quantities"
 
 # Storage for the event horizon areas. This is used to trigger output.
 CCTK_REAL eh_area[eh_number_level_sets] TYPE=ARRAY DIM=1 TIMELEVELS=1 SIZE=maximum_surface_number GHOSTSIZE=0 DISTRIB=DEFAULT