[Commits] [svn:einsteintoolkit] NullExact/trunk/ (Rev. 16)

[reisswig at tapir.caltech.edu]

User: reisswig
Date: 2014/03/08 06:12 AM

Modified:
 /trunk/
  schedule.ccl
 /trunk/src/
  NullExact_Boundary.F90

Log:
 Commented out left-over debug code in exact boundary data (mask was set to 3).

File Changes:

Directory: /trunk/src/
======================

File [modified]: NullExact_Boundary.F90
Delta lines: +8 -8
===================================================================
--- trunk/src/NullExact_Boundary.F90	2014-01-14 04:06:12 UTC (rev 15)
+++ trunk/src/NullExact_Boundary.F90	2014-03-08 12:12:47 UTC (rev 16)
@@ -39,8 +39,8 @@
     i_maskn = maxval(WTexact_maskn)
     boundary_maskn = i_maskn !WTexact_maskn    
 !DEBUG
-    i_maskn = 3
-    boundary_maskn = 3
+!    i_maskn = 3
+!    boundary_maskn = 3
  
     patch_ID = ip_n-1
 
@@ -86,8 +86,8 @@
        boundary_masks = i_masks !WTexact_masks    
 
 !DEBUG -- 
-       i_masks = 3
-       boundary_masks = 3
+!       i_masks = 3
+!       boundary_masks = 3
 
        do k = 1, min(i_masks+3,N_radial_pts)
 
@@ -168,8 +168,8 @@
     boundary_maskn = i_maskn !WTexact_maskn
 
 !DEBUG -- 
-    i_maskn = 3
-    boundary_maskn = 3
+!    i_maskn = 3
+!    boundary_maskn = 3
 
     patch_ID = ip_n-1
 
@@ -214,8 +214,8 @@
        boundary_masks = i_masks !WTexact_masks
 
 !DEBUG --
-       i_masks = 3
-       boundary_masks = 3
+!       i_masks = 3
+!       boundary_masks = 3
 
        do k = 1, min(i_masks+3,N_radial_pts)
 

Directory: /trunk/
==================

File [modified]: schedule.ccl
Delta lines: +5 -4
===================================================================
--- trunk/schedule.ccl	2014-01-14 04:06:12 UTC (rev 15)
+++ trunk/schedule.ccl	2014-03-08 12:12:47 UTC (rev 16)
@@ -9,6 +9,7 @@
   STORAGE: NullSHRExtract::q_wt[2], NullSHRExtract::u_wt[2], NullSHRExtract::u_x_wt
   STORAGE: NullSHRExtract::j_l, NullSHRExtract::beta_l, NullSHRExtract::u_l, NullSHRExtract::w_l
 
+
   schedule NullExact_PreCalcYlm at cctk_initial before NullEvol_BoundaryInit before NullEvol_Initial
   {
      LANG: Fortran
@@ -99,19 +100,19 @@
   schedule NullExact_Boundary in NullEvol_BoundaryInit
   {
     LANG: Fortran
-#   OPTIONS: global
+#    OPTIONS: global
   } "exact boundary data for the characteristic evolution variables"
 
   schedule NullExact_BoundaryPast in NullEvol_BoundaryInit
   {
     LANG: Fortran
-#   OPTIONS: global
+#    OPTIONS: global
   } "exact boundary data for the characteristic evolution variables, past level"
 
   schedule NullExact_Boundary in NullEvol_Boundary
   {
     LANG: Fortran
-#   OPTIONS: global
+#    OPTIONS: global
   } "exact boundary data for the characteristic evolution variables"
 
 }
@@ -120,7 +121,7 @@
   schedule NullExact_Initial in NullEvol_Initial after NullEvol_InitialData before NullEvol_InitialSlice
   {
     LANG: Fortran
-#   OPTIONS: global
+#    OPTIONS: global
   } "exact initial data for J"
 }