[Commits] [svn:einsteintoolkit] WeylScal4/trunk/ (Rev. 61)
ian.hinder at aei.mpg.de
ian.hinder at aei.mpg.de
Mon Sep 13 06:18:30 CDT 2010
User: hinder
Date: 2010/09/13 06:18 AM
Modified:
/trunk/
interface.ccl, param.ccl, schedule.ccl
/trunk/src/
Boundaries.c, psis_calc_2nd.c, psis_calc_4th.c
Log:
Update automatically generated code
File Changes:
Directory: /trunk/src/
======================
File [modified]: Boundaries.c
Delta lines: +0 -208
===================================================================
--- trunk/src/Boundaries.c 2010-09-13 11:16:27 UTC (rev 60)
+++ trunk/src/Boundaries.c 2010-09-13 11:18:30 UTC (rev 61)
@@ -31,219 +31,11 @@
DECLARE_CCTK_PARAMETERS;
CCTK_INT ierr = 0;
-
- if (CCTK_EQUALS(Psi4i_group_bound, "none" ) ||
- CCTK_EQUALS(Psi4i_group_bound, "static") ||
- CCTK_EQUALS(Psi4i_group_bound, "flat" ) ||
- CCTK_EQUALS(Psi4i_group_bound, "zero" ) )
- {
- ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
- "WeylScal4::Psi4i_group", Psi4i_group_bound);
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Psi4i_group_bound BC for WeylScal4::Psi4i_group!");
- }
-
- if (CCTK_EQUALS(Psi4r_group_bound, "none" ) ||
- CCTK_EQUALS(Psi4r_group_bound, "static") ||
- CCTK_EQUALS(Psi4r_group_bound, "flat" ) ||
- CCTK_EQUALS(Psi4r_group_bound, "zero" ) )
- {
- ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
- "WeylScal4::Psi4r_group", Psi4r_group_bound);
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Psi4r_group_bound BC for WeylScal4::Psi4r_group!");
- }
-
- if (CCTK_EQUALS(Psi4i_bound, "none" ) ||
- CCTK_EQUALS(Psi4i_bound, "static") ||
- CCTK_EQUALS(Psi4i_bound, "flat" ) ||
- CCTK_EQUALS(Psi4i_bound, "zero" ) )
- {
- ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
- "WeylScal4::Psi4i", Psi4i_bound);
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Psi4i_bound BC for WeylScal4::Psi4i!");
- }
-
- if (CCTK_EQUALS(Psi4r_bound, "none" ) ||
- CCTK_EQUALS(Psi4r_bound, "static") ||
- CCTK_EQUALS(Psi4r_bound, "flat" ) ||
- CCTK_EQUALS(Psi4r_bound, "zero" ) )
- {
- ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1,
- "WeylScal4::Psi4r", Psi4r_bound);
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Psi4r_bound BC for WeylScal4::Psi4r!");
- }
-
- if (CCTK_EQUALS(Psi4i_group_bound, "radiative"))
- {
- /* select radiation boundary condition */
- static CCTK_INT handle_Psi4i_group_bound = -1;
- if (handle_Psi4i_group_bound < 0) handle_Psi4i_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4i_group_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4i_group_bound , Psi4i_group_bound_limit, "LIMIT") < 0)
- CCTK_WARN(0, "could not set LIMIT value in table!");
- if (Util_TableSetReal(handle_Psi4i_group_bound ,Psi4i_group_bound_speed, "SPEED") < 0)
- CCTK_WARN(0, "could not set SPEED value in table!");
-
- ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4i_group_bound,
- "WeylScal4::Psi4i_group", "Radiation");
-
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Radiation BC for WeylScal4::Psi4i_group!");
-
- }
-
- if (CCTK_EQUALS(Psi4r_group_bound, "radiative"))
- {
- /* select radiation boundary condition */
- static CCTK_INT handle_Psi4r_group_bound = -1;
- if (handle_Psi4r_group_bound < 0) handle_Psi4r_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4r_group_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4r_group_bound , Psi4r_group_bound_limit, "LIMIT") < 0)
- CCTK_WARN(0, "could not set LIMIT value in table!");
- if (Util_TableSetReal(handle_Psi4r_group_bound ,Psi4r_group_bound_speed, "SPEED") < 0)
- CCTK_WARN(0, "could not set SPEED value in table!");
-
- ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4r_group_bound,
- "WeylScal4::Psi4r_group", "Radiation");
-
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Radiation BC for WeylScal4::Psi4r_group!");
-
- }
-
- if (CCTK_EQUALS(Psi4i_bound, "radiative"))
- {
- /* select radiation boundary condition */
- static CCTK_INT handle_Psi4i_bound = -1;
- if (handle_Psi4i_bound < 0) handle_Psi4i_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4i_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4i_bound , Psi4i_bound_limit, "LIMIT") < 0)
- CCTK_WARN(0, "could not set LIMIT value in table!");
- if (Util_TableSetReal(handle_Psi4i_bound ,Psi4i_bound_speed, "SPEED") < 0)
- CCTK_WARN(0, "could not set SPEED value in table!");
-
- ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4i_bound,
- "WeylScal4::Psi4i", "Radiation");
-
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Radiation BC for WeylScal4::Psi4i!");
-
- }
-
- if (CCTK_EQUALS(Psi4r_bound, "radiative"))
- {
- /* select radiation boundary condition */
- static CCTK_INT handle_Psi4r_bound = -1;
- if (handle_Psi4r_bound < 0) handle_Psi4r_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4r_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4r_bound , Psi4r_bound_limit, "LIMIT") < 0)
- CCTK_WARN(0, "could not set LIMIT value in table!");
- if (Util_TableSetReal(handle_Psi4r_bound ,Psi4r_bound_speed, "SPEED") < 0)
- CCTK_WARN(0, "could not set SPEED value in table!");
-
- ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4r_bound,
- "WeylScal4::Psi4r", "Radiation");
-
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Radiation BC for WeylScal4::Psi4r!");
-
- }
-
- if (CCTK_EQUALS(Psi4i_group_bound, "scalar"))
- {
- /* select scalar boundary condition */
- static CCTK_INT handle_Psi4i_group_bound = -1;
- if (handle_Psi4i_group_bound < 0) handle_Psi4i_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4i_group_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4i_group_bound ,Psi4i_group_bound_scalar, "SCALAR") < 0)
- CCTK_WARN(0, "could not set SCALAR value in table!");
-
- ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4i_group_bound,
- "WeylScal4::Psi4i_group", "scalar");
-
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Scalar BC for WeylScal4::Psi4i_group!");
-
- }
-
- if (CCTK_EQUALS(Psi4r_group_bound, "scalar"))
- {
- /* select scalar boundary condition */
- static CCTK_INT handle_Psi4r_group_bound = -1;
- if (handle_Psi4r_group_bound < 0) handle_Psi4r_group_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4r_group_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4r_group_bound ,Psi4r_group_bound_scalar, "SCALAR") < 0)
- CCTK_WARN(0, "could not set SCALAR value in table!");
-
- ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4r_group_bound,
- "WeylScal4::Psi4r_group", "scalar");
-
- if (ierr < 0)
- CCTK_WARN(0, "Failed to register Scalar BC for WeylScal4::Psi4r_group!");
-
- }
-
- if (CCTK_EQUALS(Psi4i_bound, "scalar"))
- {
- /* select scalar boundary condition */
- static CCTK_INT handle_Psi4i_bound = -1;
- if (handle_Psi4i_bound < 0) handle_Psi4i_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4i_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4i_bound ,Psi4i_bound_scalar, "SCALAR") < 0)
- CCTK_WARN(0, "could not set SCALAR value in table!");
-
- ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4i_bound,
- "WeylScal4::Psi4i", "scalar");
-
- if (ierr < 0)
- CCTK_WARN(0, "Error in registering Scalar BC for WeylScal4::Psi4i!");
-
- }
-
- if (CCTK_EQUALS(Psi4r_bound, "scalar"))
- {
- /* select scalar boundary condition */
- static CCTK_INT handle_Psi4r_bound = -1;
- if (handle_Psi4r_bound < 0) handle_Psi4r_bound = Util_TableCreate(UTIL_TABLE_FLAGS_CASE_INSENSITIVE);
- if (handle_Psi4r_bound < 0) CCTK_WARN(0, "could not create table!");
- if (Util_TableSetReal(handle_Psi4r_bound ,Psi4r_bound_scalar, "SCALAR") < 0)
- CCTK_WARN(0, "could not set SCALAR value in table!");
-
- ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, handle_Psi4r_bound,
- "WeylScal4::Psi4r", "scalar");
-
- if (ierr < 0)
- CCTK_WARN(0, "Error in registering Scalar BC for WeylScal4::Psi4r!");
-
- }
return;
}
/* template for entries in parameter file:
-#$bound$#WeylScal4::Psi4i_group_bound = "skip"
-#$bound$#WeylScal4::Psi4i_group_bound_speed = 1.0
-#$bound$#WeylScal4::Psi4i_group_bound_limit = 0.0
-#$bound$#WeylScal4::Psi4i_group_bound_scalar = 0.0
-
-#$bound$#WeylScal4::Psi4r_group_bound = "skip"
-#$bound$#WeylScal4::Psi4r_group_bound_speed = 1.0
-#$bound$#WeylScal4::Psi4r_group_bound_limit = 0.0
-#$bound$#WeylScal4::Psi4r_group_bound_scalar = 0.0
-
-#$bound$#WeylScal4::Psi4i_bound = "skip"
-#$bound$#WeylScal4::Psi4i_bound_speed = 1.0
-#$bound$#WeylScal4::Psi4i_bound_limit = 0.0
-#$bound$#WeylScal4::Psi4i_bound_scalar = 0.0
-
-#$bound$#WeylScal4::Psi4r_bound = "skip"
-#$bound$#WeylScal4::Psi4r_bound_speed = 1.0
-#$bound$#WeylScal4::Psi4r_bound_limit = 0.0
-#$bound$#WeylScal4::Psi4r_bound_scalar = 0.0
-
*/
File [modified]: psis_calc_2nd.c
Delta lines: +15 -0
===================================================================
--- trunk/src/psis_calc_2nd.c 2010-09-13 11:16:27 UTC (rev 60)
+++ trunk/src/psis_calc_2nd.c 2010-09-13 11:18:30 UTC (rev 61)
@@ -19,6 +19,21 @@
#define CUB(x) ((x) * (x) * (x))
#define QAD(x) ((x) * (x) * (x) * (x))
+void psis_calc_2nd_SelectBCs(CCTK_ARGUMENTS)
+{
+ DECLARE_CCTK_ARGUMENTS;
+ DECLARE_CCTK_PARAMETERS;
+
+ CCTK_INT ierr = 0;
+ ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "WeylScal4::Psi4i_group","flat");
+ if (ierr < 0)
+ CCTK_WARN(1, "Failed to register flat BC for WeylScal4::Psi4i_group.");
+ ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "WeylScal4::Psi4r_group","flat");
+ if (ierr < 0)
+ CCTK_WARN(1, "Failed to register flat BC for WeylScal4::Psi4r_group.");
+ return;
+}
+
void psis_calc_2nd_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const min[3], int const max[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
{
DECLARE_CCTK_ARGUMENTS;
File [modified]: psis_calc_4th.c
Delta lines: +15 -0
===================================================================
--- trunk/src/psis_calc_4th.c 2010-09-13 11:16:27 UTC (rev 60)
+++ trunk/src/psis_calc_4th.c 2010-09-13 11:18:30 UTC (rev 61)
@@ -19,6 +19,21 @@
#define CUB(x) ((x) * (x) * (x))
#define QAD(x) ((x) * (x) * (x) * (x))
+void psis_calc_4th_SelectBCs(CCTK_ARGUMENTS)
+{
+ DECLARE_CCTK_ARGUMENTS;
+ DECLARE_CCTK_PARAMETERS;
+
+ CCTK_INT ierr = 0;
+ ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "WeylScal4::Psi4i_group","flat");
+ if (ierr < 0)
+ CCTK_WARN(1, "Failed to register flat BC for WeylScal4::Psi4i_group.");
+ ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "WeylScal4::Psi4r_group","flat");
+ if (ierr < 0)
+ CCTK_WARN(1, "Failed to register flat BC for WeylScal4::Psi4r_group.");
+ return;
+}
+
void psis_calc_4th_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const min[3], int const max[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[])
{
DECLARE_CCTK_ARGUMENTS;
Directory: /trunk/
==================
File [modified]: interface.ccl
Delta lines: +1 -1
===================================================================
--- trunk/interface.ccl 2010-09-13 11:16:27 UTC (rev 60)
+++ trunk/interface.ccl 2010-09-13 11:18:30 UTC (rev 61)
@@ -2,7 +2,7 @@
implements: WeylScal4
-inherits: admbase Grid GenericFD Boundary
+inherits: admbase methodoflines Grid GenericFD Boundary
File [modified]: param.ccl
Delta lines: +10 -130
===================================================================
--- trunk/param.ccl 2010-09-13 11:16:27 UTC (rev 60)
+++ trunk/param.ccl 2010-09-13 11:18:30 UTC (rev 61)
@@ -52,25 +52,31 @@
} "2nd"
restricted:
+CCTK_INT WeylScal4_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars
+{
+ 0:0 :: "Number of evolved variables used by this thorn"
+} 0
+
+restricted:
CCTK_INT timelevels "Number of active timelevels"
{
0:3 :: ""
} 3
restricted:
-CCTK_INT psis_calc_2nd_calc_every "psis_calc_2nd_calc_every"
+CCTK_INT rhs_timelevels "Number of active RHS timelevels"
{
- *:* :: ""
+ 0:3 :: ""
} 1
restricted:
-CCTK_INT psis_calc_4th_calc_every "psis_calc_4th_calc_every"
+CCTK_INT psis_calc_2nd_calc_every "psis_calc_2nd_calc_every"
{
*:* :: ""
} 1
restricted:
-CCTK_INT dummycalc_calc_every "dummycalc_calc_every"
+CCTK_INT psis_calc_4th_calc_every "psis_calc_4th_calc_every"
{
*:* :: ""
} 1
@@ -87,129 +93,3 @@
*:* :: ""
} 0
-restricted:
-CCTK_INT dummycalc_calc_offset "dummycalc_calc_offset"
-{
- *:* :: ""
-} 0
-
-private:
-KEYWORD Psi4i_bound "Boundary condition to implement"
-{
- "flat" :: "Flat boundary condition"
- "none" :: "No boundary condition"
- "static" :: "Boundaries held fixed"
- "radiative" :: "Radiation boundary condition"
- "scalar" :: "Dirichlet boundary condition"
- "newrad" :: "Improved radiative boundary condition"
- "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Psi4r_bound "Boundary condition to implement"
-{
- "flat" :: "Flat boundary condition"
- "none" :: "No boundary condition"
- "static" :: "Boundaries held fixed"
- "radiative" :: "Radiation boundary condition"
- "scalar" :: "Dirichlet boundary condition"
- "newrad" :: "Improved radiative boundary condition"
- "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Psi4i_group_bound "Boundary condition to implement"
-{
- "flat" :: "Flat boundary condition"
- "none" :: "No boundary condition"
- "static" :: "Boundaries held fixed"
- "radiative" :: "Radiation boundary condition"
- "scalar" :: "Dirichlet boundary condition"
- "newrad" :: "Improved radiative boundary condition"
- "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-KEYWORD Psi4r_group_bound "Boundary condition to implement"
-{
- "flat" :: "Flat boundary condition"
- "none" :: "No boundary condition"
- "static" :: "Boundaries held fixed"
- "radiative" :: "Radiation boundary condition"
- "scalar" :: "Dirichlet boundary condition"
- "newrad" :: "Improved radiative boundary condition"
- "skip" :: "skip boundary condition code"
-} "skip"
-
-private:
-CCTK_REAL Psi4i_bound_speed "characteristic speed at boundary"
-{
- "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Psi4r_bound_speed "characteristic speed at boundary"
-{
- "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Psi4i_group_bound_speed "characteristic speed at boundary"
-{
- "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Psi4r_group_bound_speed "characteristic speed at boundary"
-{
- "0:*" :: "outgoing characteristic speed > 0"
-} 1.
-
-private:
-CCTK_REAL Psi4i_bound_limit "limit value for r -> infinity"
-{
- "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Psi4r_bound_limit "limit value for r -> infinity"
-{
- "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Psi4i_group_bound_limit "limit value for r -> infinity"
-{
- "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Psi4r_group_bound_limit "limit value for r -> infinity"
-{
- "*:*" :: "value of limit value is unrestricted"
-} 0.
-
-private:
-CCTK_REAL Psi4i_bound_scalar "Dirichlet boundary value"
-{
- "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Psi4r_bound_scalar "Dirichlet boundary value"
-{
- "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Psi4i_group_bound_scalar "Dirichlet boundary value"
-{
- "*:*" :: "unrestricted"
-} 0.
-
-private:
-CCTK_REAL Psi4r_group_bound_scalar "Dirichlet boundary value"
-{
- "*:*" :: "unrestricted"
-} 0.
-
File [modified]: schedule.ccl
Delta lines: +93 -50
===================================================================
--- trunk/schedule.ccl 2010-09-13 11:16:27 UTC (rev 60)
+++ trunk/schedule.ccl 2010-09-13 11:18:30 UTC (rev 61)
@@ -1,31 +1,9 @@
# File produced by Kranc
-if (timelevels == 1)
-{
- STORAGE: Psi4i_group[1]
-}
-if (timelevels == 2)
-{
- STORAGE: Psi4i_group[2]
-}
-if (timelevels == 3)
-{
- STORAGE: Psi4i_group[3]
-}
+STORAGE: Psi4i_group[3]
-if (timelevels == 1)
-{
- STORAGE: Psi4r_group[1]
-}
-if (timelevels == 2)
-{
- STORAGE: Psi4r_group[2]
-}
-if (timelevels == 3)
-{
- STORAGE: Psi4r_group[3]
-}
+STORAGE: Psi4r_group[3]
schedule WeylScal4_Startup at STARTUP
{
@@ -46,61 +24,126 @@
} "register symmetries"
-schedule group WeylScal4_Calculate in MoL_PseudoEvolution
+if (CCTK_EQUALS(fd_order, "2nd"))
{
-} "Calculate the Newman-Penrose quantities"
+ schedule group psis_calc_2nd_group in MoL_PseudoEvolution
+ {
+ # no language specified
+ } "psis_calc_2nd"
+}
+schedule psis_calc_2nd in psis_calc_2nd_group
+{
+ LANG: C
+} "psis_calc_2nd"
+
+schedule psis_calc_2nd_SelectBCs in psis_calc_2nd_bc_group
+{
+ LANG: C
+ OPTIONS: level
+ SYNC: Psi4i_group
+ SYNC: Psi4r_group
+} "psis_calc_2nd_SelectBCs"
+
+schedule group ApplyBCs as psis_calc_2nd_ApplyBCs in psis_calc_2nd_bc_group after psis_calc_2nd_SelectBCs
+{
+ # no language specified
+} "Apply BCs for groups set in psis_calc_2nd"
+
+
if (CCTK_EQUALS(fd_order, "2nd"))
{
- schedule psis_calc_2nd in WeylScal4_Calculate as calc_np
+ schedule group psis_calc_2nd_bc_group in psis_calc_2nd_group after psis_calc_2nd
{
- LANG: C
- SYNC: Psi4i_group
- SYNC: Psi4r_group
+ # no language specified
} "psis_calc_2nd"
}
+if (CCTK_EQUALS(fd_order, "2nd"))
+{
+ schedule group psis_calc_2nd_bc_group at CCTK_POSTRESTRICT
+ {
+ # no language specified
+ } "psis_calc_2nd"
+}
+
+
+if (CCTK_EQUALS(fd_order, "2nd"))
+{
+ schedule group psis_calc_2nd_bc_group at CCTK_POSTRESTRICTINITIAL
+ {
+ # no language specified
+ } "psis_calc_2nd"
+}
+
+
if (CCTK_EQUALS(fd_order, "4th"))
{
- schedule psis_calc_4th in WeylScal4_Calculate as calc_np
+ schedule group psis_calc_4th_group in MoL_PseudoEvolution
{
- LANG: C
- SYNC: Psi4i_group
- SYNC: Psi4r_group
+ # no language specified
} "psis_calc_4th"
}
-schedule WeylScal4_SelectBoundConds in WeylScal4_Boundaries
+schedule psis_calc_4th in psis_calc_4th_group
{
LANG: C
+} "psis_calc_4th"
+
+schedule psis_calc_4th_SelectBCs in psis_calc_4th_bc_group
+{
+ LANG: C
OPTIONS: level
SYNC: Psi4i_group
SYNC: Psi4r_group
-} "select boundary conditions"
+} "psis_calc_4th_SelectBCs"
-schedule WeylScal4_CheckBoundaries at BASEGRID
+schedule group ApplyBCs as psis_calc_4th_ApplyBCs in psis_calc_4th_bc_group after psis_calc_4th_SelectBCs
{
- LANG: C
- OPTIONS: meta
-} "check boundaries treatment"
+ # no language specified
+} "Apply BCs for groups set in psis_calc_4th"
-schedule group ApplyBCs as WeylScal4_ApplyBCs in WeylScal4_Boundaries after WeylScal4_SelectBoundConds
+
+if (CCTK_EQUALS(fd_order, "4th"))
{
- # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
+ schedule group psis_calc_4th_bc_group in psis_calc_4th_group after psis_calc_4th
+ {
+ # no language specified
+ } "psis_calc_4th"
+}
-schedule group WeylScal4_Boundaries in WeylScal4_Calculate after calc_np
+
+if (CCTK_EQUALS(fd_order, "4th"))
{
- # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
+ schedule group psis_calc_4th_bc_group at CCTK_POSTRESTRICT
+ {
+ # no language specified
+ } "psis_calc_4th"
+}
-schedule group WeylScal4_Boundaries in CCTK_POSTRESTRICTINITIAL
+
+if (CCTK_EQUALS(fd_order, "4th"))
{
- # no language specified
-} "Apply boundary conditions controlled by thorn Boundary"
+ schedule group psis_calc_4th_bc_group at CCTK_POSTRESTRICTINITIAL
+ {
+ # no language specified
+ } "psis_calc_4th"
+}
-schedule group WeylScal4_Boundaries in CCTK_POSTRESTRICT
+schedule WeylScal4_SelectBoundConds in MoL_PostStep
{
+ LANG: C
+ OPTIONS: level
+} "select boundary conditions"
+
+schedule WeylScal4_CheckBoundaries at BASEGRID
+{
+ LANG: C
+ OPTIONS: meta
+} "check boundaries treatment"
+
+schedule group ApplyBCs as WeylScal4_ApplyBCs in MoL_PostStep after WeylScal4_SelectBoundConds
+{
# no language specified
} "Apply boundary conditions controlled by thorn Boundary"
More information about the Commits
mailing list