[Commits] [svn:einsteintoolkit] NullExact/trunk/ (Rev. 16)
reisswig at tapir.caltech.edu
reisswig at tapir.caltech.edu
Sat Mar 8 06:12:48 CST 2014
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"
}
More information about the Commits
mailing list