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" }