diff options
53 files changed, 104 insertions, 5659 deletions
diff --git a/ML_ADMConstraints/param.ccl b/ML_ADMConstraints/param.ccl index 88f1cbd..5ab232d 100644 --- a/ML_ADMConstraints/param.ccl +++ b/ML_ADMConstraints/param.ccl @@ -21,12 +21,6 @@ CCTK_INT verbose "verbose" } 0 restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - -restricted: CCTK_INT ML_ADMConstraints_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" diff --git a/ML_ADMConstraints/src/ML_ADMConstraints.c b/ML_ADMConstraints/src/ML_ADMConstraints.c index 30e2457..6f97f28 100644 --- a/ML_ADMConstraints/src/ML_ADMConstraints.c +++ b/ML_ADMConstraints/src/ML_ADMConstraints.c @@ -204,16 +204,16 @@ void ML_ADMConstraints_Body(cGH const * restrict const cctkGH, int const dir, in CCTK_REAL const betaxL = betax[index]; CCTK_REAL const betayL = betay[index]; CCTK_REAL const betazL = betaz[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gxxL = gxx[index]; CCTK_REAL const gxyL = gxy[index]; CCTK_REAL const gxzL = gxz[index]; diff --git a/ML_ADMConstraints_M/configuration.ccl b/ML_ADMConstraints_M/configuration.ccl deleted file mode 100644 index 8e2c3c5..0000000 --- a/ML_ADMConstraints_M/configuration.ccl +++ /dev/null @@ -1,4 +0,0 @@ -# File produced by Kranc - -REQUIRES GenericFD -REQUIRES LoopControl diff --git a/ML_ADMConstraints_M/interface.ccl b/ML_ADMConstraints_M/interface.ccl deleted file mode 100644 index a70a547..0000000 --- a/ML_ADMConstraints_M/interface.ccl +++ /dev/null @@ -1,39 +0,0 @@ -# File produced by Kranc - -implements: ML_ADMConstraints_M - -inherits: ADMBase TmunuBase Grid GenericFD Boundary - - - -USES INCLUDE: GenericFD.h -USES INCLUDE: Symmetry.h -USES INCLUDE: sbp_calc_coeffs.h -USES INCLUDE: Boundary.h -USES INCLUDE: loopcontrol.h - -CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex) -USES FUNCTION MoLRegisterEvolved - -SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle) -USES FUNCTION Diff_coeff - -CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name) -USES FUNCTION Boundary_SelectGroupForBC - -CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name) -USES FUNCTION Boundary_SelectVarForBC - -public: -CCTK_REAL ML_Ham type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' -{ - H -} "ML_Ham" - -public: -CCTK_REAL ML_mom type=GF timelevels=3 tags='tensortypealias="D" tensorweight=1.0000000000000000000' -{ - M1, - M2, - M3 -} "ML_mom" diff --git a/ML_ADMConstraints_M/param.ccl b/ML_ADMConstraints_M/param.ccl deleted file mode 100644 index 4d2df8b..0000000 --- a/ML_ADMConstraints_M/param.ccl +++ /dev/null @@ -1,70 +0,0 @@ -# File produced by Kranc - - -shares: GenericFD - -USES CCTK_INT stencil_width -USES CCTK_INT stencil_width_x -USES CCTK_INT stencil_width_y -USES CCTK_INT stencil_width_z -USES CCTK_INT boundary_width - - -shares: MethodOfLines - -USES CCTK_INT MoL_Num_Evolved_Vars - -restricted: -CCTK_INT verbose "verbose" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_M_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 rhs_timelevels "Number of active RHS timelevels" -{ - 0:3 :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_M_calc_every "ML_ADMConstraints_M_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_M_boundary_calc_every "ML_ADMConstraints_M_boundary_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_M_calc_offset "ML_ADMConstraints_M_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_ADMConstraints_M_boundary_calc_offset "ML_ADMConstraints_M_boundary_calc_offset" -{ - *:* :: "" -} 0 - diff --git a/ML_ADMConstraints_M/schedule.ccl b/ML_ADMConstraints_M/schedule.ccl deleted file mode 100644 index deec639..0000000 --- a/ML_ADMConstraints_M/schedule.ccl +++ /dev/null @@ -1,53 +0,0 @@ -# File produced by Kranc - - -STORAGE: ML_Ham[3] - -STORAGE: ML_mom[3] - -schedule ML_ADMConstraints_M_Startup at STARTUP -{ - LANG: C - OPTIONS: meta -} "create banner" - -schedule ML_ADMConstraints_M_RegisterVars in MoL_Register -{ - LANG: C - OPTIONS: meta -} "Register Variables for MoL" - -schedule ML_ADMConstraints_M_RegisterSymmetries in SymmetryRegister -{ - LANG: C - OPTIONS: meta -} "register symmetries" - -schedule ML_ADMConstraints_M AT evol AFTER MoL_Evolution -{ - LANG: C - SYNC: ML_Ham - SYNC: ML_mom -} "ML_ADMConstraints_M" - -schedule ML_ADMConstraints_M_boundary AT evol AFTER MoL_Evolution AFTER ML_ADMConstraints_M -{ - LANG: C -} "ML_ADMConstraints_M_boundary" - -schedule ML_ADMConstraints_M_SelectBoundConds in MoL_PostStep -{ - LANG: C - OPTIONS: level -} "select boundary conditions" - -schedule ML_ADMConstraints_M_CheckBoundaries at BASEGRID -{ - LANG: C - OPTIONS: meta -} "check boundaries treatment" - -schedule group ApplyBCs as ML_ADMConstraints_M_ApplyBCs in MoL_PostStep after ML_ADMConstraints_M_SelectBoundConds -{ - # no language specified -} "Apply boundary conditions controlled by thorn Boundary" diff --git a/ML_ADMConstraints_M/src/Boundaries.c b/ML_ADMConstraints_M/src/Boundaries.c deleted file mode 100644 index 49a4c88..0000000 --- a/ML_ADMConstraints_M/src/Boundaries.c +++ /dev/null @@ -1,41 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "cctk_Faces.h" -#include "util_Table.h" -#include "Symmetry.h" - - -/* the boundary treatment is split into 3 steps: */ -/* 1. excision */ -/* 2. symmetries */ -/* 3. "other" boundary conditions, e.g. radiative */ - -/* to simplify scheduling and testing, the 3 steps */ -/* are currently applied in separate functions */ - - -void ML_ADMConstraints_M_CheckBoundaries(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - return; -} - -void ML_ADMConstraints_M_SelectBoundConds(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - CCTK_INT ierr = 0; - return; -} - - - -/* template for entries in parameter file: -*/ - diff --git a/ML_ADMConstraints_M/src/Differencing.h b/ML_ADMConstraints_M/src/Differencing.h deleted file mode 100644 index 1cdce99..0000000 --- a/ML_ADMConstraints_M/src/Differencing.h +++ /dev/null @@ -1,18 +0,0 @@ -#define PDstandardNth1(u,i,j,k) (p1o12dx*(-8*(u)[index+di*(-1)+dj*(0)+dk*(0)] + 8*(u)[index+di*(1)+dj*(0)+dk*(0)] + (u)[index+di*(-2)+dj*(0)+dk*(0)] - (u)[index+di*(2)+dj*(0)+dk*(0)])) -#define PDstandardNth2(u,i,j,k) (p1o12dy*(-8*(u)[index+di*(0)+dj*(-1)+dk*(0)] + 8*(u)[index+di*(0)+dj*(1)+dk*(0)] + (u)[index+di*(0)+dj*(-2)+dk*(0)] - (u)[index+di*(0)+dj*(2)+dk*(0)])) -#define PDstandardNth3(u,i,j,k) (p1o12dz*(-8*(u)[index+di*(0)+dj*(0)+dk*(-1)] + 8*(u)[index+di*(0)+dj*(0)+dk*(1)] + (u)[index+di*(0)+dj*(0)+dk*(-2)] - (u)[index+di*(0)+dj*(0)+dk*(2)])) -#define PDstandardNth11(u,i,j,k) (pm1o12dx2*(30*(u)[index+di*(0)+dj*(0)+dk*(0)] - 16*((u)[index+di*(-1)+dj*(0)+dk*(0)] + (u)[index+di*(1)+dj*(0)+dk*(0)]) + (u)[index+di*(-2)+dj*(0)+dk*(0)] + (u)[index+di*(2)+dj*(0)+dk*(0)])) -#define PDstandardNth22(u,i,j,k) (pm1o12dy2*(30*(u)[index+di*(0)+dj*(0)+dk*(0)] - 16*((u)[index+di*(0)+dj*(-1)+dk*(0)] + (u)[index+di*(0)+dj*(1)+dk*(0)]) + (u)[index+di*(0)+dj*(-2)+dk*(0)] + (u)[index+di*(0)+dj*(2)+dk*(0)])) -#define PDstandardNth33(u,i,j,k) (pm1o12dz2*(30*(u)[index+di*(0)+dj*(0)+dk*(0)] - 16*((u)[index+di*(0)+dj*(0)+dk*(-1)] + (u)[index+di*(0)+dj*(0)+dk*(1)]) + (u)[index+di*(0)+dj*(0)+dk*(-2)] + (u)[index+di*(0)+dj*(0)+dk*(2)])) -#define PDstandardNth12(u,i,j,k) (p1o144dxdy*(-64*((u)[index+di*(-1)+dj*(1)+dk*(0)] + (u)[index+di*(1)+dj*(-1)+dk*(0)]) + 64*((u)[index+di*(-1)+dj*(-1)+dk*(0)] + (u)[index+di*(1)+dj*(1)+dk*(0)]) + 8*((u)[index+di*(-1)+dj*(2)+dk*(0)] + (u)[index+di*(1)+dj*(-2)+dk*(0)] + (u)[index+di*(-2)+dj*(1)+dk*(0)] + (u)[index+di*(2)+dj*(-1)+dk*(0)]) - 8*((u)[index+di*(-1)+dj*(-2)+dk*(0)] + (u)[index+di*(1)+dj*(2)+dk*(0)] + (u)[index+di*(-2)+dj*(-1)+dk*(0)] + (u)[index+di*(2)+dj*(1)+dk*(0)]) + (u)[index+di*(-2)+dj*(-2)+dk*(0)] - (u)[index+di*(-2)+dj*(2)+dk*(0)] - (u)[index+di*(2)+dj*(-2)+dk*(0)] + (u)[index+di*(2)+dj*(2)+dk*(0)])) -#define PDstandardNth13(u,i,j,k) (p1o144dxdz*(-64*((u)[index+di*(-1)+dj*(0)+dk*(1)] + (u)[index+di*(1)+dj*(0)+dk*(-1)]) + 64*((u)[index+di*(-1)+dj*(0)+dk*(-1)] + (u)[index+di*(1)+dj*(0)+dk*(1)]) + 8*((u)[index+di*(-1)+dj*(0)+dk*(2)] + (u)[index+di*(1)+dj*(0)+dk*(-2)] + (u)[index+di*(-2)+dj*(0)+dk*(1)] + (u)[index+di*(2)+dj*(0)+dk*(-1)]) - 8*((u)[index+di*(-1)+dj*(0)+dk*(-2)] + (u)[index+di*(1)+dj*(0)+dk*(2)] + (u)[index+di*(-2)+dj*(0)+dk*(-1)] + (u)[index+di*(2)+dj*(0)+dk*(1)]) + (u)[index+di*(-2)+dj*(0)+dk*(-2)] - (u)[index+di*(-2)+dj*(0)+dk*(2)] - (u)[index+di*(2)+dj*(0)+dk*(-2)] + (u)[index+di*(2)+dj*(0)+dk*(2)])) -#define PDstandardNth21(u,i,j,k) (p1o144dxdy*(-64*((u)[index+di*(-1)+dj*(1)+dk*(0)] + (u)[index+di*(1)+dj*(-1)+dk*(0)]) + 64*((u)[index+di*(-1)+dj*(-1)+dk*(0)] + (u)[index+di*(1)+dj*(1)+dk*(0)]) + 8*((u)[index+di*(-1)+dj*(2)+dk*(0)] + (u)[index+di*(1)+dj*(-2)+dk*(0)] + (u)[index+di*(-2)+dj*(1)+dk*(0)] + (u)[index+di*(2)+dj*(-1)+dk*(0)]) - 8*((u)[index+di*(-1)+dj*(-2)+dk*(0)] + (u)[index+di*(1)+dj*(2)+dk*(0)] + (u)[index+di*(-2)+dj*(-1)+dk*(0)] + (u)[index+di*(2)+dj*(1)+dk*(0)]) + (u)[index+di*(-2)+dj*(-2)+dk*(0)] - (u)[index+di*(-2)+dj*(2)+dk*(0)] - (u)[index+di*(2)+dj*(-2)+dk*(0)] + (u)[index+di*(2)+dj*(2)+dk*(0)])) -#define PDstandardNth23(u,i,j,k) (p1o144dydz*(-64*((u)[index+di*(0)+dj*(-1)+dk*(1)] + (u)[index+di*(0)+dj*(1)+dk*(-1)]) + 64*((u)[index+di*(0)+dj*(-1)+dk*(-1)] + (u)[index+di*(0)+dj*(1)+dk*(1)]) + 8*((u)[index+di*(0)+dj*(-1)+dk*(2)] + (u)[index+di*(0)+dj*(1)+dk*(-2)] + (u)[index+di*(0)+dj*(-2)+dk*(1)] + (u)[index+di*(0)+dj*(2)+dk*(-1)]) - 8*((u)[index+di*(0)+dj*(-1)+dk*(-2)] + (u)[index+di*(0)+dj*(1)+dk*(2)] + (u)[index+di*(0)+dj*(-2)+dk*(-1)] + (u)[index+di*(0)+dj*(2)+dk*(1)]) + (u)[index+di*(0)+dj*(-2)+dk*(-2)] - (u)[index+di*(0)+dj*(-2)+dk*(2)] - (u)[index+di*(0)+dj*(2)+dk*(-2)] + (u)[index+di*(0)+dj*(2)+dk*(2)])) -#define PDstandardNth31(u,i,j,k) (p1o144dxdz*(-64*((u)[index+di*(-1)+dj*(0)+dk*(1)] + (u)[index+di*(1)+dj*(0)+dk*(-1)]) + 64*((u)[index+di*(-1)+dj*(0)+dk*(-1)] + (u)[index+di*(1)+dj*(0)+dk*(1)]) + 8*((u)[index+di*(-1)+dj*(0)+dk*(2)] + (u)[index+di*(1)+dj*(0)+dk*(-2)] + (u)[index+di*(-2)+dj*(0)+dk*(1)] + (u)[index+di*(2)+dj*(0)+dk*(-1)]) - 8*((u)[index+di*(-1)+dj*(0)+dk*(-2)] + (u)[index+di*(1)+dj*(0)+dk*(2)] + (u)[index+di*(-2)+dj*(0)+dk*(-1)] + (u)[index+di*(2)+dj*(0)+dk*(1)]) + (u)[index+di*(-2)+dj*(0)+dk*(-2)] - (u)[index+di*(-2)+dj*(0)+dk*(2)] - (u)[index+di*(2)+dj*(0)+dk*(-2)] + (u)[index+di*(2)+dj*(0)+dk*(2)])) -#define PDstandardNth32(u,i,j,k) (p1o144dydz*(-64*((u)[index+di*(0)+dj*(-1)+dk*(1)] + (u)[index+di*(0)+dj*(1)+dk*(-1)]) + 64*((u)[index+di*(0)+dj*(-1)+dk*(-1)] + (u)[index+di*(0)+dj*(1)+dk*(1)]) + 8*((u)[index+di*(0)+dj*(-1)+dk*(2)] + (u)[index+di*(0)+dj*(1)+dk*(-2)] + (u)[index+di*(0)+dj*(-2)+dk*(1)] + (u)[index+di*(0)+dj*(2)+dk*(-1)]) - 8*((u)[index+di*(0)+dj*(-1)+dk*(-2)] + (u)[index+di*(0)+dj*(1)+dk*(2)] + (u)[index+di*(0)+dj*(-2)+dk*(-1)] + (u)[index+di*(0)+dj*(2)+dk*(1)]) + (u)[index+di*(0)+dj*(-2)+dk*(-2)] - (u)[index+di*(0)+dj*(-2)+dk*(2)] - (u)[index+di*(0)+dj*(2)+dk*(-2)] + (u)[index+di*(0)+dj*(2)+dk*(2)])) -#define PDupwindNth1(u,i,j,k) (p1o12dx*(-10*(u)[index+di*(0)+dj*(0)+dk*(0)] - 6*(u)[index+di*(2*dir1)+dj*(0)+dk*(0)] + (u)[index+di*(3*dir1)+dj*(0)+dk*(0)] - 3*(u)[index+di*(-dir1)+dj*(0)+dk*(0)] + 18*(u)[index+di*(dir1)+dj*(0)+dk*(0)])*dir1) -#define PDupwindNth2(u,i,j,k) (p1o12dy*(-10*(u)[index+di*(0)+dj*(0)+dk*(0)] - 6*(u)[index+di*(0)+dj*(2*dir2)+dk*(0)] + (u)[index+di*(0)+dj*(3*dir2)+dk*(0)] - 3*(u)[index+di*(0)+dj*(-dir2)+dk*(0)] + 18*(u)[index+di*(0)+dj*(dir2)+dk*(0)])*dir2) -#define PDupwindNth3(u,i,j,k) (p1o12dz*(-10*(u)[index+di*(0)+dj*(0)+dk*(0)] - 6*(u)[index+di*(0)+dj*(0)+dk*(2*dir3)] + (u)[index+di*(0)+dj*(0)+dk*(3*dir3)] - 3*(u)[index+di*(0)+dj*(0)+dk*(-dir3)] + 18*(u)[index+di*(0)+dj*(0)+dk*(dir3)])*dir3) -#define PDonesided1(u,i,j,k) (p1odx*(-(u)[index+di*(0)+dj*(0)+dk*(0)] + (u)[index+di*(dir1)+dj*(0)+dk*(0)])*dir1) -#define PDonesided2(u,i,j,k) (p1ody*(-(u)[index+di*(0)+dj*(0)+dk*(0)] + (u)[index+di*(0)+dj*(dir2)+dk*(0)])*dir2) -#define PDonesided3(u,i,j,k) (p1odz*(-(u)[index+di*(0)+dj*(0)+dk*(0)] + (u)[index+di*(0)+dj*(0)+dk*(dir3)])*dir3) diff --git a/ML_ADMConstraints_M/src/ML_ADMConstraints_M.c b/ML_ADMConstraints_M/src/ML_ADMConstraints_M.c deleted file mode 100644 index b663287..0000000 --- a/ML_ADMConstraints_M/src/ML_ADMConstraints_M.c +++ /dev/null @@ -1,500 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_ADMConstraints_M_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; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - - /* Declare predefined quantities */ - // CCTK_REAL p1o12dx = INITVALUE; - // CCTK_REAL p1o12dy = INITVALUE; - // CCTK_REAL p1o12dz = INITVALUE; - // CCTK_REAL p1o144dxdy = INITVALUE; - // CCTK_REAL p1o144dxdz = INITVALUE; - // CCTK_REAL p1o144dydz = INITVALUE; - // CCTK_REAL p1odx = INITVALUE; - // CCTK_REAL p1ody = INITVALUE; - // CCTK_REAL p1odz = INITVALUE; - // CCTK_REAL pm1o12dx2 = INITVALUE; - // CCTK_REAL pm1o12dy2 = INITVALUE; - // CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMConstraints_M_Body"); - } - - if (cctk_iteration % ML_ADMConstraints_M_calc_every != ML_ADMConstraints_M_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - CCTK_REAL const dx = CCTK_DELTA_SPACE(0); - CCTK_REAL const dy = CCTK_DELTA_SPACE(1); - CCTK_REAL const dz = CCTK_DELTA_SPACE(2); - int const di = 1; - int const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); - int const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - CCTK_REAL const dxi = 1.0 / dx; - CCTK_REAL const dyi = 1.0 / dy; - CCTK_REAL const dzi = 1.0 / dz; - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = INV(dx)/12.; - CCTK_REAL const p1o12dy = INV(dy)/12.; - CCTK_REAL const p1o12dz = INV(dz)/12.; - CCTK_REAL const p1o144dxdy = (INV(dx)*INV(dy))/144.; - CCTK_REAL const p1o144dxdz = (INV(dx)*INV(dz))/144.; - CCTK_REAL const p1o144dydz = (INV(dy)*INV(dz))/144.; - CCTK_REAL const p1odx = INV(dx); - CCTK_REAL const p1ody = INV(dy); - CCTK_REAL const p1odz = INV(dz); - CCTK_REAL const pm1o12dx2 = -pow(dx,-2)/12.; - CCTK_REAL const pm1o12dy2 = -pow(dy,-2)/12.; - CCTK_REAL const pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_ADMConstraints_M, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - // int index = INITVALUE; - // int subblock_index = INITVALUE; - int const index = CCTK_GFINDEX3D(cctkGH,i,j,k); - int const subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - // CCTK_REAL detg = INITVALUE; - // CCTK_REAL G111 = INITVALUE, G112 = INITVALUE, G113 = INITVALUE, G122 = INITVALUE, G123 = INITVALUE, G133 = INITVALUE; - // CCTK_REAL G211 = INITVALUE, G212 = INITVALUE, G213 = INITVALUE, G222 = INITVALUE, G223 = INITVALUE, G233 = INITVALUE; - // CCTK_REAL G311 = INITVALUE, G312 = INITVALUE, G313 = INITVALUE, G322 = INITVALUE, G323 = INITVALUE, G333 = INITVALUE; - // CCTK_REAL gu11 = INITVALUE, gu21 = INITVALUE, gu22 = INITVALUE, gu31 = INITVALUE, gu32 = INITVALUE, gu33 = INITVALUE; - // CCTK_REAL Km11 = INITVALUE, Km12 = INITVALUE, Km13 = INITVALUE, Km21 = INITVALUE, Km22 = INITVALUE, Km23 = INITVALUE; - // CCTK_REAL Km31 = INITVALUE, Km32 = INITVALUE, Km33 = INITVALUE; - // CCTK_REAL R11 = INITVALUE, R12 = INITVALUE, R13 = INITVALUE, R22 = INITVALUE, R23 = INITVALUE, R33 = INITVALUE; - // CCTK_REAL rho = INITVALUE; - // CCTK_REAL S1 = INITVALUE, S2 = INITVALUE, S3 = INITVALUE; - // CCTK_REAL T00 = INITVALUE, T01 = INITVALUE, T02 = INITVALUE, T03 = INITVALUE, T11 = INITVALUE, T12 = INITVALUE; - // CCTK_REAL T13 = INITVALUE, T22 = INITVALUE, T23 = INITVALUE, T33 = INITVALUE; - // CCTK_REAL trK = INITVALUE; - // CCTK_REAL trR = INITVALUE; - - /* Declare local copies of grid functions */ - // CCTK_REAL alpL = INITVALUE; - // CCTK_REAL betaxL = INITVALUE; - // CCTK_REAL betayL = INITVALUE; - // CCTK_REAL betazL = INITVALUE; - // CCTK_REAL eTttL = INITVALUE; - // CCTK_REAL eTtxL = INITVALUE; - // CCTK_REAL eTtyL = INITVALUE; - // CCTK_REAL eTtzL = INITVALUE; - // CCTK_REAL eTxxL = INITVALUE; - // CCTK_REAL eTxyL = INITVALUE; - // CCTK_REAL eTxzL = INITVALUE; - // CCTK_REAL eTyyL = INITVALUE; - // CCTK_REAL eTyzL = INITVALUE; - // CCTK_REAL eTzzL = INITVALUE; - // CCTK_REAL gxxL = INITVALUE; - // CCTK_REAL gxyL = INITVALUE; - // CCTK_REAL gxzL = INITVALUE; - // CCTK_REAL gyyL = INITVALUE; - // CCTK_REAL gyzL = INITVALUE; - // CCTK_REAL gzzL = INITVALUE; - // CCTK_REAL HL = INITVALUE; - // CCTK_REAL kxxL = INITVALUE; - // CCTK_REAL kxyL = INITVALUE; - // CCTK_REAL kxzL = INITVALUE; - // CCTK_REAL kyyL = INITVALUE; - // CCTK_REAL kyzL = INITVALUE; - // CCTK_REAL kzzL = INITVALUE; - // CCTK_REAL M1L = INITVALUE, M2L = INITVALUE, M3L = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - // CCTK_REAL PDstandardNth1gxx = INITVALUE; - // CCTK_REAL PDstandardNth2gxx = INITVALUE; - // CCTK_REAL PDstandardNth3gxx = INITVALUE; - // CCTK_REAL PDstandardNth22gxx = INITVALUE; - // CCTK_REAL PDstandardNth33gxx = INITVALUE; - // CCTK_REAL PDstandardNth23gxx = INITVALUE; - // CCTK_REAL PDstandardNth1gxy = INITVALUE; - // CCTK_REAL PDstandardNth2gxy = INITVALUE; - // CCTK_REAL PDstandardNth3gxy = INITVALUE; - // CCTK_REAL PDstandardNth33gxy = INITVALUE; - // CCTK_REAL PDstandardNth12gxy = INITVALUE; - // CCTK_REAL PDstandardNth13gxy = INITVALUE; - // CCTK_REAL PDstandardNth23gxy = INITVALUE; - // CCTK_REAL PDstandardNth1gxz = INITVALUE; - // CCTK_REAL PDstandardNth2gxz = INITVALUE; - // CCTK_REAL PDstandardNth3gxz = INITVALUE; - // CCTK_REAL PDstandardNth22gxz = INITVALUE; - // CCTK_REAL PDstandardNth12gxz = INITVALUE; - // CCTK_REAL PDstandardNth13gxz = INITVALUE; - // CCTK_REAL PDstandardNth23gxz = INITVALUE; - // CCTK_REAL PDstandardNth1gyy = INITVALUE; - // CCTK_REAL PDstandardNth2gyy = INITVALUE; - // CCTK_REAL PDstandardNth3gyy = INITVALUE; - // CCTK_REAL PDstandardNth11gyy = INITVALUE; - // CCTK_REAL PDstandardNth33gyy = INITVALUE; - // CCTK_REAL PDstandardNth13gyy = INITVALUE; - // CCTK_REAL PDstandardNth1gyz = INITVALUE; - // CCTK_REAL PDstandardNth2gyz = INITVALUE; - // CCTK_REAL PDstandardNth3gyz = INITVALUE; - // CCTK_REAL PDstandardNth11gyz = INITVALUE; - // CCTK_REAL PDstandardNth12gyz = INITVALUE; - // CCTK_REAL PDstandardNth13gyz = INITVALUE; - // CCTK_REAL PDstandardNth23gyz = INITVALUE; - // CCTK_REAL PDstandardNth1gzz = INITVALUE; - // CCTK_REAL PDstandardNth2gzz = INITVALUE; - // CCTK_REAL PDstandardNth3gzz = INITVALUE; - // CCTK_REAL PDstandardNth11gzz = INITVALUE; - // CCTK_REAL PDstandardNth22gzz = INITVALUE; - // CCTK_REAL PDstandardNth12gzz = INITVALUE; - // CCTK_REAL PDstandardNth2kxx = INITVALUE; - // CCTK_REAL PDstandardNth3kxx = INITVALUE; - // CCTK_REAL PDstandardNth1kxy = INITVALUE; - // CCTK_REAL PDstandardNth2kxy = INITVALUE; - // CCTK_REAL PDstandardNth3kxy = INITVALUE; - // CCTK_REAL PDstandardNth1kxz = INITVALUE; - // CCTK_REAL PDstandardNth2kxz = INITVALUE; - // CCTK_REAL PDstandardNth3kxz = INITVALUE; - // CCTK_REAL PDstandardNth1kyy = INITVALUE; - // CCTK_REAL PDstandardNth3kyy = INITVALUE; - // CCTK_REAL PDstandardNth1kyz = INITVALUE; - // CCTK_REAL PDstandardNth2kyz = INITVALUE; - // CCTK_REAL PDstandardNth3kyz = INITVALUE; - // CCTK_REAL PDstandardNth1kzz = INITVALUE; - // CCTK_REAL PDstandardNth2kzz = INITVALUE; - - /* Assign local copies of grid functions */ - CCTK_REAL const alpL = alp[index]; - CCTK_REAL const betaxL = betax[index]; - CCTK_REAL const betayL = betay[index]; - CCTK_REAL const betazL = betaz[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; - CCTK_REAL const gxxL = gxx[index]; - CCTK_REAL const gxyL = gxy[index]; - CCTK_REAL const gxzL = gxz[index]; - CCTK_REAL const gyyL = gyy[index]; - CCTK_REAL const gyzL = gyz[index]; - CCTK_REAL const gzzL = gzz[index]; - CCTK_REAL const kxxL = kxx[index]; - CCTK_REAL const kxyL = kxy[index]; - CCTK_REAL const kxzL = kxz[index]; - CCTK_REAL const kyyL = kyy[index]; - CCTK_REAL const kyzL = kyz[index]; - CCTK_REAL const kzzL = kzz[index]; - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - CCTK_REAL const PDstandardNth1gxx = PDstandardNth1(gxx, i, j, k); - CCTK_REAL const PDstandardNth2gxx = PDstandardNth2(gxx, i, j, k); - CCTK_REAL const PDstandardNth3gxx = PDstandardNth3(gxx, i, j, k); - CCTK_REAL const PDstandardNth22gxx = PDstandardNth22(gxx, i, j, k); - CCTK_REAL const PDstandardNth33gxx = PDstandardNth33(gxx, i, j, k); - CCTK_REAL const PDstandardNth23gxx = PDstandardNth23(gxx, i, j, k); - CCTK_REAL const PDstandardNth1gxy = PDstandardNth1(gxy, i, j, k); - CCTK_REAL const PDstandardNth2gxy = PDstandardNth2(gxy, i, j, k); - CCTK_REAL const PDstandardNth3gxy = PDstandardNth3(gxy, i, j, k); - CCTK_REAL const PDstandardNth33gxy = PDstandardNth33(gxy, i, j, k); - CCTK_REAL const PDstandardNth12gxy = PDstandardNth12(gxy, i, j, k); - CCTK_REAL const PDstandardNth13gxy = PDstandardNth13(gxy, i, j, k); - CCTK_REAL const PDstandardNth23gxy = PDstandardNth23(gxy, i, j, k); - CCTK_REAL const PDstandardNth1gxz = PDstandardNth1(gxz, i, j, k); - CCTK_REAL const PDstandardNth2gxz = PDstandardNth2(gxz, i, j, k); - CCTK_REAL const PDstandardNth3gxz = PDstandardNth3(gxz, i, j, k); - CCTK_REAL const PDstandardNth22gxz = PDstandardNth22(gxz, i, j, k); - CCTK_REAL const PDstandardNth12gxz = PDstandardNth12(gxz, i, j, k); - CCTK_REAL const PDstandardNth13gxz = PDstandardNth13(gxz, i, j, k); - CCTK_REAL const PDstandardNth23gxz = PDstandardNth23(gxz, i, j, k); - CCTK_REAL const PDstandardNth1gyy = PDstandardNth1(gyy, i, j, k); - CCTK_REAL const PDstandardNth2gyy = PDstandardNth2(gyy, i, j, k); - CCTK_REAL const PDstandardNth3gyy = PDstandardNth3(gyy, i, j, k); - CCTK_REAL const PDstandardNth11gyy = PDstandardNth11(gyy, i, j, k); - CCTK_REAL const PDstandardNth33gyy = PDstandardNth33(gyy, i, j, k); - CCTK_REAL const PDstandardNth13gyy = PDstandardNth13(gyy, i, j, k); - CCTK_REAL const PDstandardNth1gyz = PDstandardNth1(gyz, i, j, k); - CCTK_REAL const PDstandardNth2gyz = PDstandardNth2(gyz, i, j, k); - CCTK_REAL const PDstandardNth3gyz = PDstandardNth3(gyz, i, j, k); - CCTK_REAL const PDstandardNth11gyz = PDstandardNth11(gyz, i, j, k); - CCTK_REAL const PDstandardNth12gyz = PDstandardNth12(gyz, i, j, k); - CCTK_REAL const PDstandardNth13gyz = PDstandardNth13(gyz, i, j, k); - CCTK_REAL const PDstandardNth23gyz = PDstandardNth23(gyz, i, j, k); - CCTK_REAL const PDstandardNth1gzz = PDstandardNth1(gzz, i, j, k); - CCTK_REAL const PDstandardNth2gzz = PDstandardNth2(gzz, i, j, k); - CCTK_REAL const PDstandardNth3gzz = PDstandardNth3(gzz, i, j, k); - CCTK_REAL const PDstandardNth11gzz = PDstandardNth11(gzz, i, j, k); - CCTK_REAL const PDstandardNth22gzz = PDstandardNth22(gzz, i, j, k); - CCTK_REAL const PDstandardNth12gzz = PDstandardNth12(gzz, i, j, k); - CCTK_REAL const PDstandardNth2kxx = PDstandardNth2(kxx, i, j, k); - CCTK_REAL const PDstandardNth3kxx = PDstandardNth3(kxx, i, j, k); - CCTK_REAL const PDstandardNth1kxy = PDstandardNth1(kxy, i, j, k); - CCTK_REAL const PDstandardNth2kxy = PDstandardNth2(kxy, i, j, k); - CCTK_REAL const PDstandardNth3kxy = PDstandardNth3(kxy, i, j, k); - CCTK_REAL const PDstandardNth1kxz = PDstandardNth1(kxz, i, j, k); - CCTK_REAL const PDstandardNth2kxz = PDstandardNth2(kxz, i, j, k); - CCTK_REAL const PDstandardNth3kxz = PDstandardNth3(kxz, i, j, k); - CCTK_REAL const PDstandardNth1kyy = PDstandardNth1(kyy, i, j, k); - CCTK_REAL const PDstandardNth3kyy = PDstandardNth3(kyy, i, j, k); - CCTK_REAL const PDstandardNth1kyz = PDstandardNth1(kyz, i, j, k); - CCTK_REAL const PDstandardNth2kyz = PDstandardNth2(kyz, i, j, k); - CCTK_REAL const PDstandardNth3kyz = PDstandardNth3(kyz, i, j, k); - CCTK_REAL const PDstandardNth1kzz = PDstandardNth1(kzz, i, j, k); - CCTK_REAL const PDstandardNth2kzz = PDstandardNth2(kzz, i, j, k); - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - CCTK_REAL const detg = 2*gxyL*gxzL*gyzL + gzzL*(gxxL*gyyL - SQR(gxyL)) - gyyL*SQR(gxzL) - gxxL*SQR(gyzL); - - CCTK_REAL const gu11 = INV(detg)*(gyyL*gzzL - SQR(gyzL)); - - CCTK_REAL const gu21 = (gxzL*gyzL - gxyL*gzzL)*INV(detg); - - CCTK_REAL const gu31 = (-(gxzL*gyyL) + gxyL*gyzL)*INV(detg); - - CCTK_REAL const gu22 = INV(detg)*(gxxL*gzzL - SQR(gxzL)); - - CCTK_REAL const gu32 = (gxyL*gxzL - gxxL*gyzL)*INV(detg); - - CCTK_REAL const gu33 = INV(detg)*(gxxL*gyyL - SQR(gxyL)); - - CCTK_REAL const G111 = khalf*(gu11*PDstandardNth1gxx + 2*(gu21*PDstandardNth1gxy + gu31*PDstandardNth1gxz) - gu21*PDstandardNth2gxx - - gu31*PDstandardNth3gxx); - - CCTK_REAL const G211 = khalf*(gu21*PDstandardNth1gxx + 2*(gu22*PDstandardNth1gxy + gu32*PDstandardNth1gxz) - gu22*PDstandardNth2gxx - - gu32*PDstandardNth3gxx); - - CCTK_REAL const G311 = khalf*(gu31*PDstandardNth1gxx + 2*(gu32*PDstandardNth1gxy + gu33*PDstandardNth1gxz) - gu32*PDstandardNth2gxx - - gu33*PDstandardNth3gxx); - - CCTK_REAL const G112 = khalf*(gu21*PDstandardNth1gyy + gu11*PDstandardNth2gxx + - gu31*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy)); - - CCTK_REAL const G212 = khalf*(gu22*PDstandardNth1gyy + gu21*PDstandardNth2gxx + - gu32*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy)); - - CCTK_REAL const G312 = khalf*(gu32*PDstandardNth1gyy + gu31*PDstandardNth2gxx + - gu33*(PDstandardNth1gyz + PDstandardNth2gxz - PDstandardNth3gxy)); - - CCTK_REAL const G113 = khalf*(gu31*PDstandardNth1gzz + gu11*PDstandardNth3gxx + - gu21*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy)); - - CCTK_REAL const G213 = khalf*(gu32*PDstandardNth1gzz + gu21*PDstandardNth3gxx + - gu22*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy)); - - CCTK_REAL const G313 = khalf*(gu33*PDstandardNth1gzz + gu31*PDstandardNth3gxx + - gu32*(PDstandardNth1gyz - PDstandardNth2gxz + PDstandardNth3gxy)); - - CCTK_REAL const G122 = khalf*(gu11*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) + gu21*PDstandardNth2gyy + - gu31*(2*PDstandardNth2gyz - PDstandardNth3gyy)); - - CCTK_REAL const G222 = khalf*(gu21*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) + gu22*PDstandardNth2gyy + - gu32*(2*PDstandardNth2gyz - PDstandardNth3gyy)); - - CCTK_REAL const G322 = khalf*(gu31*(-PDstandardNth1gyy + 2*PDstandardNth2gxy) + gu32*PDstandardNth2gyy + - gu33*(2*PDstandardNth2gyz - PDstandardNth3gyy)); - - CCTK_REAL const G123 = khalf*(gu31*PDstandardNth2gzz + gu11*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + - gu21*PDstandardNth3gyy); - - CCTK_REAL const G223 = khalf*(gu32*PDstandardNth2gzz + gu21*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + - gu22*PDstandardNth3gyy); - - CCTK_REAL const G323 = khalf*(gu33*PDstandardNth2gzz + gu31*(-PDstandardNth1gyz + PDstandardNth2gxz + PDstandardNth3gxy) + - gu32*PDstandardNth3gyy); - - CCTK_REAL const G133 = khalf*(-(gu11*PDstandardNth1gzz) - gu21*PDstandardNth2gzz + 2*gu11*PDstandardNth3gxz + - 2*gu21*PDstandardNth3gyz + gu31*PDstandardNth3gzz); - - CCTK_REAL const G233 = khalf*(-(gu21*PDstandardNth1gzz) - gu22*PDstandardNth2gzz + 2*gu21*PDstandardNth3gxz + - 2*gu22*PDstandardNth3gyz + gu32*PDstandardNth3gzz); - - CCTK_REAL const G333 = khalf*(-(gu31*PDstandardNth1gzz) - gu32*PDstandardNth2gzz + 2*gu31*PDstandardNth3gxz + - 2*gu32*PDstandardNth3gyz + gu33*PDstandardNth3gzz); - - CCTK_REAL const R11 = khalf*(-(gu22*PDstandardNth11gyy) - 2*(G111*G122 + G111*G133 + G211*G222 + G211*G233 + G311*G322 + G311*G333 + - gu32*PDstandardNth11gyz) - gu33*PDstandardNth11gzz + 2*gu22*PDstandardNth12gxy + 2*gu32*PDstandardNth12gxz + - 2*gu32*PDstandardNth13gxy + 2*gu33*PDstandardNth13gxz - gu22*PDstandardNth22gxx - 2*gu32*PDstandardNth23gxx - - gu33*PDstandardNth33gxx + 2*SQR(G112) + 2*SQR(G113) + 2*SQR(G212) + 2*SQR(G213) + 2*SQR(G312) + 2*SQR(G313)); - - CCTK_REAL const R12 = khalf*(2*(G113*G123 + G213*G223 + G313*G323) - 2*(G112*G133 + G212*G233 + G312*G333 + gu21*PDstandardNth12gxy) - - gu32*PDstandardNth12gyz - gu33*PDstandardNth12gzz + - gu31*(PDstandardNth11gyz - PDstandardNth12gxz - PDstandardNth13gxy) + gu32*PDstandardNth13gyy + - gu33*PDstandardNth13gyz + gu21*(PDstandardNth11gyy + PDstandardNth22gxx) + gu32*PDstandardNth22gxz + - gu31*PDstandardNth23gxx - gu32*PDstandardNth23gxy + gu33*PDstandardNth23gxz - gu33*PDstandardNth33gxy); - - CCTK_REAL const R13 = khalf*(2*(G112*G123 + G212*G223 + G312*G323) - 2*(G113*G122 + G213*G222 + G313*G322 + gu31*PDstandardNth13gxz) + - gu21*(PDstandardNth11gyz - PDstandardNth12gxz - PDstandardNth13gxy + PDstandardNth23gxx) + - gu22*(PDstandardNth12gyz - PDstandardNth13gyy - PDstandardNth22gxz + PDstandardNth23gxy) + - gu31*(PDstandardNth11gzz + PDstandardNth33gxx) + - gu32*(PDstandardNth12gzz - PDstandardNth13gyz - PDstandardNth23gxz + PDstandardNth33gxy)); - - CCTK_REAL const R22 = khalf*(-2*(G122*(G111 + G133) + G222*(G211 + G233) + G322*(G311 + G333) + gu31*PDstandardNth13gyy) + - gu11*(-PDstandardNth11gyy + 2*PDstandardNth12gxy - PDstandardNth22gxx) + - gu31*(-2*PDstandardNth22gxz + 2*(PDstandardNth12gyz + PDstandardNth23gxy)) + - gu33*(-PDstandardNth22gzz + 2*PDstandardNth23gyz - PDstandardNth33gyy) + - 2*(SQR(G112) + SQR(G123) + SQR(G212) + SQR(G223) + SQR(G312) + SQR(G323))); - - CCTK_REAL const R23 = khalf*(2*(G112*G113 + G212*G213 + G312*G313) + - gu11*(-PDstandardNth11gyz + PDstandardNth12gxz + PDstandardNth13gxy - PDstandardNth23gxx) + - gu21*(-PDstandardNth12gyz + PDstandardNth13gyy + PDstandardNth22gxz - PDstandardNth23gxy) - - 2*(G111*G123 + G211*G223 + G311*G323 + gu32*PDstandardNth23gyz) + - gu31*(PDstandardNth12gzz - PDstandardNth13gyz - PDstandardNth23gxz + PDstandardNth33gxy) + - gu32*(PDstandardNth22gzz + PDstandardNth33gyy)); - - CCTK_REAL const R33 = khalf*(gu11*(-PDstandardNth11gzz + 2*PDstandardNth13gxz - PDstandardNth33gxx) - - 2*((G111 + G122)*G133 + (G211 + G222)*G233 + (G311 + G322)*G333 + - gu21*(PDstandardNth12gzz + PDstandardNth33gxy)) + - gu22*(-PDstandardNth22gzz + 2*PDstandardNth23gyz - PDstandardNth33gyy) + - 2*(gu21*(PDstandardNth13gyz + PDstandardNth23gxz) + SQR(G113) + SQR(G123) + SQR(G213) + SQR(G223) + SQR(G313) + - SQR(G323))); - - CCTK_REAL const trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; - - CCTK_REAL const Km11 = gu11*kxxL + gu21*kxyL + gu31*kxzL; - - CCTK_REAL const Km21 = gu21*kxxL + gu22*kxyL + gu32*kxzL; - - CCTK_REAL const Km31 = gu31*kxxL + gu32*kxyL + gu33*kxzL; - - CCTK_REAL const Km12 = gu11*kxyL + gu21*kyyL + gu31*kyzL; - - CCTK_REAL const Km22 = gu21*kxyL + gu22*kyyL + gu32*kyzL; - - CCTK_REAL const Km32 = gu31*kxyL + gu32*kyyL + gu33*kyzL; - - CCTK_REAL const Km13 = gu11*kxzL + gu21*kyzL + gu31*kzzL; - - CCTK_REAL const Km23 = gu21*kxzL + gu22*kyzL + gu32*kzzL; - - CCTK_REAL const Km33 = gu31*kxzL + gu32*kyzL + gu33*kzzL; - - CCTK_REAL const trK = Km11 + Km22 + Km33; - - CCTK_REAL const T00 = eTttL; - - CCTK_REAL const T01 = eTtxL; - - CCTK_REAL const T02 = eTtyL; - - CCTK_REAL const T03 = eTtzL; - - CCTK_REAL const T11 = eTxxL; - - CCTK_REAL const T12 = eTxyL; - - CCTK_REAL const T13 = eTxzL; - - CCTK_REAL const T22 = eTyyL; - - CCTK_REAL const T23 = eTyzL; - - CCTK_REAL const T33 = eTzzL; - - CCTK_REAL const rho = pow(alpL,-2)*(T00 - 2*(betayL*T02 + betazL*T03) + - 2*(betaxL*(-T01 + betayL*T12 + betazL*T13) + betayL*betazL*T23) + T11*SQR(betaxL) + T22*SQR(betayL) + - T33*SQR(betazL)); - - CCTK_REAL const S1 = (-T01 + betaxL*T11 + betayL*T12 + betazL*T13)*INV(alpL); - - CCTK_REAL const S2 = (-T02 + betaxL*T12 + betayL*T22 + betazL*T23)*INV(alpL); - - CCTK_REAL const S3 = (-T03 + betaxL*T13 + betayL*T23 + betazL*T33)*INV(alpL); - - CCTK_REAL const HL = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) - 50.26548245743669181540229413247204614715*rho + trR - SQR(Km11) - - SQR(Km22) - SQR(Km33) + SQR(trK); - - CCTK_REAL const M1L = gu21*(-(G112*kxxL) + G111*kxyL - G212*kxyL - G312*kxzL + G211*kyyL + G311*kyzL - PDstandardNth1kxy + - PDstandardNth2kxx) + gu22*(-(G122*kxxL) + G112*kxyL - G222*kxyL - G322*kxzL + G212*kyyL + G312*kyzL - - PDstandardNth1kyy + PDstandardNth2kxy) + gu31* - (-(G113*kxxL) - G213*kxyL + G111*kxzL - G313*kxzL + G211*kyzL + G311*kzzL - PDstandardNth1kxz + PDstandardNth3kxx)\ - + gu32*(G113*kxyL + G112*kxzL + G213*kyyL + (G212 + G313)*kyzL + G312*kzzL - - 2*(G123*kxxL + G223*kxyL + G323*kxzL + PDstandardNth1kyz) + PDstandardNth2kxz + PDstandardNth3kxy) + - gu33*(-(G133*kxxL) - G233*kxyL + G113*kxzL - G333*kxzL + G213*kyzL + G313*kzzL - PDstandardNth1kzz + - PDstandardNth3kxz) - 25.13274122871834590770114706623602307358*S1; - - CCTK_REAL const M2L = gu11*(G112*kxxL + (-G111 + G212)*kxyL + G312*kxzL - G211*kyyL - G311*kyzL + PDstandardNth1kxy - - PDstandardNth2kxx) + gu21*(G122*kxxL + (-G112 + G222)*kxyL + G322*kxzL - G212*kyyL - G312*kyzL + - PDstandardNth1kyy - PDstandardNth2kxy) + gu31* - (G123*kxxL + (-2*G113 + G223)*kxyL + (G112 + G323)*kxzL + G212*kyzL + G312*kzzL + PDstandardNth1kyz - - 2*(G213*kyyL + G313*kyzL + PDstandardNth2kxz) + PDstandardNth3kxy) + - gu32*(-(G123*kxyL) + G122*kxzL - G223*kyyL + G222*kyzL - G323*kyzL + G322*kzzL - PDstandardNth2kyz + - PDstandardNth3kyy) + gu33*(-(G133*kxyL) + G123*kxzL - G233*kyyL + G223*kyzL - G333*kyzL + G323*kzzL - - PDstandardNth2kzz + PDstandardNth3kyz) - 25.13274122871834590770114706623602307358*S2; - - CCTK_REAL const M3L = gu11*(G113*kxxL + G213*kxyL + (-G111 + G313)*kxzL - G211*kyzL - G311*kzzL + PDstandardNth1kxz - - PDstandardNth3kxx) + gu21*(G123*kxxL + (G113 + G223)*kxyL + (-2*G112 + G323)*kxzL + G213*kyyL + - (-2*G212 + G313)*kyzL + PDstandardNth1kyz + PDstandardNth2kxz - 2*(G312*kzzL + PDstandardNth3kxy)) + - gu31*(G133*kxxL + G233*kxyL + (-G113 + G333)*kxzL - G213*kyzL - G313*kzzL + PDstandardNth1kzz - - PDstandardNth3kxz) + gu22*(G123*kxyL - G122*kxzL + G223*kyyL - G222*kyzL + G323*kyzL - G322*kzzL + - PDstandardNth2kyz - PDstandardNth3kyy) + gu32* - (G133*kxyL - G123*kxzL + G233*kyyL - G223*kyzL + G333*kyzL - G323*kzzL + PDstandardNth2kzz - PDstandardNth3kyz) - - 25.13274122871834590770114706623602307358*S3; - - - /* Copy local copies back to grid functions */ - H[index] = HL; - M1[index] = M1L; - M2[index] = M2L; - M3[index] = M3L; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_ADMConstraints_M); -} - -void ML_ADMConstraints_M(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverInterior(cctkGH, &ML_ADMConstraints_M_Body); -} diff --git a/ML_ADMConstraints_M/src/ML_ADMConstraints_M_boundary.c b/ML_ADMConstraints_M/src/ML_ADMConstraints_M_boundary.c deleted file mode 100644 index ce80ef3..0000000 --- a/ML_ADMConstraints_M/src/ML_ADMConstraints_M_boundary.c +++ /dev/null @@ -1,147 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_ADMConstraints_M_boundary_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; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - - /* Declare predefined quantities */ - // CCTK_REAL p1o12dx = INITVALUE; - // CCTK_REAL p1o12dy = INITVALUE; - // CCTK_REAL p1o12dz = INITVALUE; - // CCTK_REAL p1o144dxdy = INITVALUE; - // CCTK_REAL p1o144dxdz = INITVALUE; - // CCTK_REAL p1o144dydz = INITVALUE; - // CCTK_REAL p1odx = INITVALUE; - // CCTK_REAL p1ody = INITVALUE; - // CCTK_REAL p1odz = INITVALUE; - // CCTK_REAL pm1o12dx2 = INITVALUE; - // CCTK_REAL pm1o12dy2 = INITVALUE; - // CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMConstraints_M_boundary_Body"); - } - - if (cctk_iteration % ML_ADMConstraints_M_boundary_calc_every != ML_ADMConstraints_M_boundary_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - CCTK_REAL const dx = CCTK_DELTA_SPACE(0); - CCTK_REAL const dy = CCTK_DELTA_SPACE(1); - CCTK_REAL const dz = CCTK_DELTA_SPACE(2); - int const di = 1; - int const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); - int const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - CCTK_REAL const dxi = 1.0 / dx; - CCTK_REAL const dyi = 1.0 / dy; - CCTK_REAL const dzi = 1.0 / dz; - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = INV(dx)/12.; - CCTK_REAL const p1o12dy = INV(dy)/12.; - CCTK_REAL const p1o12dz = INV(dz)/12.; - CCTK_REAL const p1o144dxdy = (INV(dx)*INV(dy))/144.; - CCTK_REAL const p1o144dxdz = (INV(dx)*INV(dz))/144.; - CCTK_REAL const p1o144dydz = (INV(dy)*INV(dz))/144.; - CCTK_REAL const p1odx = INV(dx); - CCTK_REAL const p1ody = INV(dy); - CCTK_REAL const p1odz = INV(dz); - CCTK_REAL const pm1o12dx2 = -pow(dx,-2)/12.; - CCTK_REAL const pm1o12dy2 = -pow(dy,-2)/12.; - CCTK_REAL const pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_ADMConstraints_M_boundary, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - // int index = INITVALUE; - // int subblock_index = INITVALUE; - int const index = CCTK_GFINDEX3D(cctkGH,i,j,k); - int const subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - - /* Declare local copies of grid functions */ - // CCTK_REAL HL = INITVALUE; - // CCTK_REAL M1L = INITVALUE, M2L = INITVALUE, M3L = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - - /* Assign local copies of grid functions */ - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - CCTK_REAL const HL = 0; - - CCTK_REAL const M1L = 0; - - CCTK_REAL const M2L = 0; - - CCTK_REAL const M3L = 0; - - - /* Copy local copies back to grid functions */ - H[index] = HL; - M1[index] = M1L; - M2[index] = M2L; - M3[index] = M3L; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_ADMConstraints_M_boundary); -} - -void ML_ADMConstraints_M_boundary(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_ADMConstraints_M_boundary_Body); -} diff --git a/ML_ADMConstraints_M/src/RegisterMoL.c b/ML_ADMConstraints_M/src/RegisterMoL.c deleted file mode 100644 index d5bea05..0000000 --- a/ML_ADMConstraints_M/src/RegisterMoL.c +++ /dev/null @@ -1,16 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" - -void ML_ADMConstraints_M_RegisterVars(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - CCTK_INT ierr = 0; - - /* Register all the evolved grid functions with MoL */ - return; -} diff --git a/ML_ADMConstraints_M/src/RegisterSymmetries.c b/ML_ADMConstraints_M/src/RegisterSymmetries.c deleted file mode 100644 index a69ef14..0000000 --- a/ML_ADMConstraints_M/src/RegisterSymmetries.c +++ /dev/null @@ -1,39 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "Symmetry.h" - -void ML_ADMConstraints_M_RegisterSymmetries(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* array holding symmetry definitions */ - CCTK_INT sym[3]; - - - /* Register symmetries of grid functions */ - sym[0] = 1; - sym[1] = 1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_M::H"); - - sym[0] = -1; - sym[1] = 1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_M::M1"); - - sym[0] = 1; - sym[1] = -1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_M::M2"); - - sym[0] = 1; - sym[1] = 1; - sym[2] = -1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_M::M3"); - -} diff --git a/ML_ADMConstraints_M/src/Startup.c b/ML_ADMConstraints_M/src/Startup.c deleted file mode 100644 index 5848108..0000000 --- a/ML_ADMConstraints_M/src/Startup.c +++ /dev/null @@ -1,10 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" - -int ML_ADMConstraints_M_Startup(void) -{ - const char * banner = "ML_ADMConstraints_M"; - CCTK_RegisterBanner(banner); - return 0; -} diff --git a/ML_ADMConstraints_M/src/make.code.defn b/ML_ADMConstraints_M/src/make.code.defn deleted file mode 100644 index ceb18b7..0000000 --- a/ML_ADMConstraints_M/src/make.code.defn +++ /dev/null @@ -1,3 +0,0 @@ -# File produced by Kranc - -SRCS = Startup.c RegisterMoL.c RegisterSymmetries.c ML_ADMConstraints_M.c ML_ADMConstraints_M_boundary.c Boundaries.c diff --git a/ML_ADMConstraints_MP/param.ccl b/ML_ADMConstraints_MP/param.ccl index 45c3bf7..94f6235 100644 --- a/ML_ADMConstraints_MP/param.ccl +++ b/ML_ADMConstraints_MP/param.ccl @@ -21,12 +21,6 @@ CCTK_INT verbose "verbose" } 0 restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - -restricted: CCTK_INT ML_ADMConstraints_MP_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" diff --git a/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.c b/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.c index 4f6597f..3a10509 100644 --- a/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.c +++ b/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.c @@ -245,16 +245,16 @@ void ML_ADMConstraints_MP_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL const dJ322L = dJ322[index]; CCTK_REAL const dJ323L = dJ323[index]; CCTK_REAL const dJ333L = dJ333[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gxxL = gxx[index]; CCTK_REAL const gxyL = gxy[index]; CCTK_REAL const gxzL = gxz[index]; diff --git a/ML_ADMConstraints_MP_M/configuration.ccl b/ML_ADMConstraints_MP_M/configuration.ccl deleted file mode 100644 index 8e2c3c5..0000000 --- a/ML_ADMConstraints_MP_M/configuration.ccl +++ /dev/null @@ -1,4 +0,0 @@ -# File produced by Kranc - -REQUIRES GenericFD -REQUIRES LoopControl diff --git a/ML_ADMConstraints_MP_M/interface.ccl b/ML_ADMConstraints_MP_M/interface.ccl deleted file mode 100644 index 1a44a9d..0000000 --- a/ML_ADMConstraints_MP_M/interface.ccl +++ /dev/null @@ -1,39 +0,0 @@ -# File produced by Kranc - -implements: ML_ADMConstraints_MP_M - -inherits: ADMBase TmunuBase Coordinates Grid GenericFD Boundary - - - -USES INCLUDE: GenericFD.h -USES INCLUDE: Symmetry.h -USES INCLUDE: sbp_calc_coeffs.h -USES INCLUDE: Boundary.h -USES INCLUDE: loopcontrol.h - -CCTK_INT FUNCTION MoLRegisterEvolved(CCTK_INT IN EvolvedIndex, CCTK_INT IN RHSIndex) -USES FUNCTION MoLRegisterEvolved - -SUBROUTINE Diff_coeff(CCTK_POINTER_TO_CONST IN cctkGH, CCTK_INT IN dir, CCTK_INT IN nsize, CCTK_INT OUT ARRAY imin, CCTK_INT OUT ARRAY imax, CCTK_REAL OUT ARRAY q, CCTK_INT IN table_handle) -USES FUNCTION Diff_coeff - -CCTK_INT FUNCTION Boundary_SelectGroupForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN group_name, CCTK_STRING IN bc_name) -USES FUNCTION Boundary_SelectGroupForBC - -CCTK_INT FUNCTION Boundary_SelectVarForBC(CCTK_POINTER_TO_CONST IN GH, CCTK_INT IN faces, CCTK_INT IN boundary_width, CCTK_INT IN table_handle, CCTK_STRING IN var_name, CCTK_STRING IN bc_name) -USES FUNCTION Boundary_SelectVarForBC - -public: -CCTK_REAL ML_Ham type=GF timelevels=3 tags='tensortypealias="Scalar" tensorweight=1.0000000000000000000' -{ - H -} "ML_Ham" - -public: -CCTK_REAL ML_mom type=GF timelevels=3 tags='tensortypealias="D" tensorweight=1.0000000000000000000' -{ - M1, - M2, - M3 -} "ML_mom" diff --git a/ML_ADMConstraints_MP_M/param.ccl b/ML_ADMConstraints_MP_M/param.ccl deleted file mode 100644 index 0232de6..0000000 --- a/ML_ADMConstraints_MP_M/param.ccl +++ /dev/null @@ -1,70 +0,0 @@ -# File produced by Kranc - - -shares: GenericFD - -USES CCTK_INT stencil_width -USES CCTK_INT stencil_width_x -USES CCTK_INT stencil_width_y -USES CCTK_INT stencil_width_z -USES CCTK_INT boundary_width - - -shares: MethodOfLines - -USES CCTK_INT MoL_Num_Evolved_Vars - -restricted: -CCTK_INT verbose "verbose" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_MP_M_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 rhs_timelevels "Number of active RHS timelevels" -{ - 0:3 :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_MP_M_calc_every "ML_ADMConstraints_MP_M_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_MP_M_boundary_calc_every "ML_ADMConstraints_MP_M_boundary_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_ADMConstraints_MP_M_calc_offset "ML_ADMConstraints_MP_M_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_ADMConstraints_MP_M_boundary_calc_offset "ML_ADMConstraints_MP_M_boundary_calc_offset" -{ - *:* :: "" -} 0 - diff --git a/ML_ADMConstraints_MP_M/schedule.ccl b/ML_ADMConstraints_MP_M/schedule.ccl deleted file mode 100644 index 5b5c1ba..0000000 --- a/ML_ADMConstraints_MP_M/schedule.ccl +++ /dev/null @@ -1,53 +0,0 @@ -# File produced by Kranc - - -STORAGE: ML_Ham[3] - -STORAGE: ML_mom[3] - -schedule ML_ADMConstraints_MP_M_Startup at STARTUP -{ - LANG: C - OPTIONS: meta -} "create banner" - -schedule ML_ADMConstraints_MP_M_RegisterVars in MoL_Register -{ - LANG: C - OPTIONS: meta -} "Register Variables for MoL" - -schedule ML_ADMConstraints_MP_M_RegisterSymmetries in SymmetryRegister -{ - LANG: C - OPTIONS: meta -} "register symmetries" - -schedule ML_ADMConstraints_MP_M AT evol AFTER MoL_Evolution -{ - LANG: C - SYNC: ML_Ham - SYNC: ML_mom -} "ML_ADMConstraints_MP_M" - -schedule ML_ADMConstraints_MP_M_boundary AT evol AFTER MoL_Evolution AFTER ML_ADMConstraints_MP_M -{ - LANG: C -} "ML_ADMConstraints_MP_M_boundary" - -schedule ML_ADMConstraints_MP_M_SelectBoundConds in MoL_PostStep -{ - LANG: C - OPTIONS: level -} "select boundary conditions" - -schedule ML_ADMConstraints_MP_M_CheckBoundaries at BASEGRID -{ - LANG: C - OPTIONS: meta -} "check boundaries treatment" - -schedule group ApplyBCs as ML_ADMConstraints_MP_M_ApplyBCs in MoL_PostStep after ML_ADMConstraints_MP_M_SelectBoundConds -{ - # no language specified -} "Apply boundary conditions controlled by thorn Boundary" diff --git a/ML_ADMConstraints_MP_M/src/Boundaries.c b/ML_ADMConstraints_MP_M/src/Boundaries.c deleted file mode 100644 index b92937d..0000000 --- a/ML_ADMConstraints_MP_M/src/Boundaries.c +++ /dev/null @@ -1,41 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "cctk_Faces.h" -#include "util_Table.h" -#include "Symmetry.h" - - -/* the boundary treatment is split into 3 steps: */ -/* 1. excision */ -/* 2. symmetries */ -/* 3. "other" boundary conditions, e.g. radiative */ - -/* to simplify scheduling and testing, the 3 steps */ -/* are currently applied in separate functions */ - - -void ML_ADMConstraints_MP_M_CheckBoundaries(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - return; -} - -void ML_ADMConstraints_MP_M_SelectBoundConds(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - CCTK_INT ierr = 0; - return; -} - - - -/* template for entries in parameter file: -*/ - diff --git a/ML_ADMConstraints_MP_M/src/Differencing.h b/ML_ADMConstraints_MP_M/src/Differencing.h deleted file mode 100644 index 1cdce99..0000000 --- a/ML_ADMConstraints_MP_M/src/Differencing.h +++ /dev/null @@ -1,18 +0,0 @@ -#define PDstandardNth1(u,i,j,k) (p1o12dx*(-8*(u)[index+di*(-1)+dj*(0)+dk*(0)] + 8*(u)[index+di*(1)+dj*(0)+dk*(0)] + (u)[index+di*(-2)+dj*(0)+dk*(0)] - (u)[index+di*(2)+dj*(0)+dk*(0)])) -#define PDstandardNth2(u,i,j,k) (p1o12dy*(-8*(u)[index+di*(0)+dj*(-1)+dk*(0)] + 8*(u)[index+di*(0)+dj*(1)+dk*(0)] + (u)[index+di*(0)+dj*(-2)+dk*(0)] - (u)[index+di*(0)+dj*(2)+dk*(0)])) -#define PDstandardNth3(u,i,j,k) (p1o12dz*(-8*(u)[index+di*(0)+dj*(0)+dk*(-1)] + 8*(u)[index+di*(0)+dj*(0)+dk*(1)] + (u)[index+di*(0)+dj*(0)+dk*(-2)] - (u)[index+di*(0)+dj*(0)+dk*(2)])) -#define PDstandardNth11(u,i,j,k) (pm1o12dx2*(30*(u)[index+di*(0)+dj*(0)+dk*(0)] - 16*((u)[index+di*(-1)+dj*(0)+dk*(0)] + (u)[index+di*(1)+dj*(0)+dk*(0)]) + (u)[index+di*(-2)+dj*(0)+dk*(0)] + (u)[index+di*(2)+dj*(0)+dk*(0)])) -#define PDstandardNth22(u,i,j,k) (pm1o12dy2*(30*(u)[index+di*(0)+dj*(0)+dk*(0)] - 16*((u)[index+di*(0)+dj*(-1)+dk*(0)] + (u)[index+di*(0)+dj*(1)+dk*(0)]) + (u)[index+di*(0)+dj*(-2)+dk*(0)] + (u)[index+di*(0)+dj*(2)+dk*(0)])) -#define PDstandardNth33(u,i,j,k) (pm1o12dz2*(30*(u)[index+di*(0)+dj*(0)+dk*(0)] - 16*((u)[index+di*(0)+dj*(0)+dk*(-1)] + (u)[index+di*(0)+dj*(0)+dk*(1)]) + (u)[index+di*(0)+dj*(0)+dk*(-2)] + (u)[index+di*(0)+dj*(0)+dk*(2)])) -#define PDstandardNth12(u,i,j,k) (p1o144dxdy*(-64*((u)[index+di*(-1)+dj*(1)+dk*(0)] + (u)[index+di*(1)+dj*(-1)+dk*(0)]) + 64*((u)[index+di*(-1)+dj*(-1)+dk*(0)] + (u)[index+di*(1)+dj*(1)+dk*(0)]) + 8*((u)[index+di*(-1)+dj*(2)+dk*(0)] + (u)[index+di*(1)+dj*(-2)+dk*(0)] + (u)[index+di*(-2)+dj*(1)+dk*(0)] + (u)[index+di*(2)+dj*(-1)+dk*(0)]) - 8*((u)[index+di*(-1)+dj*(-2)+dk*(0)] + (u)[index+di*(1)+dj*(2)+dk*(0)] + (u)[index+di*(-2)+dj*(-1)+dk*(0)] + (u)[index+di*(2)+dj*(1)+dk*(0)]) + (u)[index+di*(-2)+dj*(-2)+dk*(0)] - (u)[index+di*(-2)+dj*(2)+dk*(0)] - (u)[index+di*(2)+dj*(-2)+dk*(0)] + (u)[index+di*(2)+dj*(2)+dk*(0)])) -#define PDstandardNth13(u,i,j,k) (p1o144dxdz*(-64*((u)[index+di*(-1)+dj*(0)+dk*(1)] + (u)[index+di*(1)+dj*(0)+dk*(-1)]) + 64*((u)[index+di*(-1)+dj*(0)+dk*(-1)] + (u)[index+di*(1)+dj*(0)+dk*(1)]) + 8*((u)[index+di*(-1)+dj*(0)+dk*(2)] + (u)[index+di*(1)+dj*(0)+dk*(-2)] + (u)[index+di*(-2)+dj*(0)+dk*(1)] + (u)[index+di*(2)+dj*(0)+dk*(-1)]) - 8*((u)[index+di*(-1)+dj*(0)+dk*(-2)] + (u)[index+di*(1)+dj*(0)+dk*(2)] + (u)[index+di*(-2)+dj*(0)+dk*(-1)] + (u)[index+di*(2)+dj*(0)+dk*(1)]) + (u)[index+di*(-2)+dj*(0)+dk*(-2)] - (u)[index+di*(-2)+dj*(0)+dk*(2)] - (u)[index+di*(2)+dj*(0)+dk*(-2)] + (u)[index+di*(2)+dj*(0)+dk*(2)])) -#define PDstandardNth21(u,i,j,k) (p1o144dxdy*(-64*((u)[index+di*(-1)+dj*(1)+dk*(0)] + (u)[index+di*(1)+dj*(-1)+dk*(0)]) + 64*((u)[index+di*(-1)+dj*(-1)+dk*(0)] + (u)[index+di*(1)+dj*(1)+dk*(0)]) + 8*((u)[index+di*(-1)+dj*(2)+dk*(0)] + (u)[index+di*(1)+dj*(-2)+dk*(0)] + (u)[index+di*(-2)+dj*(1)+dk*(0)] + (u)[index+di*(2)+dj*(-1)+dk*(0)]) - 8*((u)[index+di*(-1)+dj*(-2)+dk*(0)] + (u)[index+di*(1)+dj*(2)+dk*(0)] + (u)[index+di*(-2)+dj*(-1)+dk*(0)] + (u)[index+di*(2)+dj*(1)+dk*(0)]) + (u)[index+di*(-2)+dj*(-2)+dk*(0)] - (u)[index+di*(-2)+dj*(2)+dk*(0)] - (u)[index+di*(2)+dj*(-2)+dk*(0)] + (u)[index+di*(2)+dj*(2)+dk*(0)])) -#define PDstandardNth23(u,i,j,k) (p1o144dydz*(-64*((u)[index+di*(0)+dj*(-1)+dk*(1)] + (u)[index+di*(0)+dj*(1)+dk*(-1)]) + 64*((u)[index+di*(0)+dj*(-1)+dk*(-1)] + (u)[index+di*(0)+dj*(1)+dk*(1)]) + 8*((u)[index+di*(0)+dj*(-1)+dk*(2)] + (u)[index+di*(0)+dj*(1)+dk*(-2)] + (u)[index+di*(0)+dj*(-2)+dk*(1)] + (u)[index+di*(0)+dj*(2)+dk*(-1)]) - 8*((u)[index+di*(0)+dj*(-1)+dk*(-2)] + (u)[index+di*(0)+dj*(1)+dk*(2)] + (u)[index+di*(0)+dj*(-2)+dk*(-1)] + (u)[index+di*(0)+dj*(2)+dk*(1)]) + (u)[index+di*(0)+dj*(-2)+dk*(-2)] - (u)[index+di*(0)+dj*(-2)+dk*(2)] - (u)[index+di*(0)+dj*(2)+dk*(-2)] + (u)[index+di*(0)+dj*(2)+dk*(2)])) -#define PDstandardNth31(u,i,j,k) (p1o144dxdz*(-64*((u)[index+di*(-1)+dj*(0)+dk*(1)] + (u)[index+di*(1)+dj*(0)+dk*(-1)]) + 64*((u)[index+di*(-1)+dj*(0)+dk*(-1)] + (u)[index+di*(1)+dj*(0)+dk*(1)]) + 8*((u)[index+di*(-1)+dj*(0)+dk*(2)] + (u)[index+di*(1)+dj*(0)+dk*(-2)] + (u)[index+di*(-2)+dj*(0)+dk*(1)] + (u)[index+di*(2)+dj*(0)+dk*(-1)]) - 8*((u)[index+di*(-1)+dj*(0)+dk*(-2)] + (u)[index+di*(1)+dj*(0)+dk*(2)] + (u)[index+di*(-2)+dj*(0)+dk*(-1)] + (u)[index+di*(2)+dj*(0)+dk*(1)]) + (u)[index+di*(-2)+dj*(0)+dk*(-2)] - (u)[index+di*(-2)+dj*(0)+dk*(2)] - (u)[index+di*(2)+dj*(0)+dk*(-2)] + (u)[index+di*(2)+dj*(0)+dk*(2)])) -#define PDstandardNth32(u,i,j,k) (p1o144dydz*(-64*((u)[index+di*(0)+dj*(-1)+dk*(1)] + (u)[index+di*(0)+dj*(1)+dk*(-1)]) + 64*((u)[index+di*(0)+dj*(-1)+dk*(-1)] + (u)[index+di*(0)+dj*(1)+dk*(1)]) + 8*((u)[index+di*(0)+dj*(-1)+dk*(2)] + (u)[index+di*(0)+dj*(1)+dk*(-2)] + (u)[index+di*(0)+dj*(-2)+dk*(1)] + (u)[index+di*(0)+dj*(2)+dk*(-1)]) - 8*((u)[index+di*(0)+dj*(-1)+dk*(-2)] + (u)[index+di*(0)+dj*(1)+dk*(2)] + (u)[index+di*(0)+dj*(-2)+dk*(-1)] + (u)[index+di*(0)+dj*(2)+dk*(1)]) + (u)[index+di*(0)+dj*(-2)+dk*(-2)] - (u)[index+di*(0)+dj*(-2)+dk*(2)] - (u)[index+di*(0)+dj*(2)+dk*(-2)] + (u)[index+di*(0)+dj*(2)+dk*(2)])) -#define PDupwindNth1(u,i,j,k) (p1o12dx*(-10*(u)[index+di*(0)+dj*(0)+dk*(0)] - 6*(u)[index+di*(2*dir1)+dj*(0)+dk*(0)] + (u)[index+di*(3*dir1)+dj*(0)+dk*(0)] - 3*(u)[index+di*(-dir1)+dj*(0)+dk*(0)] + 18*(u)[index+di*(dir1)+dj*(0)+dk*(0)])*dir1) -#define PDupwindNth2(u,i,j,k) (p1o12dy*(-10*(u)[index+di*(0)+dj*(0)+dk*(0)] - 6*(u)[index+di*(0)+dj*(2*dir2)+dk*(0)] + (u)[index+di*(0)+dj*(3*dir2)+dk*(0)] - 3*(u)[index+di*(0)+dj*(-dir2)+dk*(0)] + 18*(u)[index+di*(0)+dj*(dir2)+dk*(0)])*dir2) -#define PDupwindNth3(u,i,j,k) (p1o12dz*(-10*(u)[index+di*(0)+dj*(0)+dk*(0)] - 6*(u)[index+di*(0)+dj*(0)+dk*(2*dir3)] + (u)[index+di*(0)+dj*(0)+dk*(3*dir3)] - 3*(u)[index+di*(0)+dj*(0)+dk*(-dir3)] + 18*(u)[index+di*(0)+dj*(0)+dk*(dir3)])*dir3) -#define PDonesided1(u,i,j,k) (p1odx*(-(u)[index+di*(0)+dj*(0)+dk*(0)] + (u)[index+di*(dir1)+dj*(0)+dk*(0)])*dir1) -#define PDonesided2(u,i,j,k) (p1ody*(-(u)[index+di*(0)+dj*(0)+dk*(0)] + (u)[index+di*(0)+dj*(dir2)+dk*(0)])*dir2) -#define PDonesided3(u,i,j,k) (p1odz*(-(u)[index+di*(0)+dj*(0)+dk*(0)] + (u)[index+di*(0)+dj*(0)+dk*(dir3)])*dir3) diff --git a/ML_ADMConstraints_MP_M/src/ML_ADMConstraints_MP_M.c b/ML_ADMConstraints_MP_M/src/ML_ADMConstraints_MP_M.c deleted file mode 100644 index c73e56d..0000000 --- a/ML_ADMConstraints_MP_M/src/ML_ADMConstraints_MP_M.c +++ /dev/null @@ -1,905 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_ADMConstraints_MP_M_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; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - - /* Declare predefined quantities */ - // CCTK_REAL p1o12dx = INITVALUE; - // CCTK_REAL p1o12dy = INITVALUE; - // CCTK_REAL p1o12dz = INITVALUE; - // CCTK_REAL p1o144dxdy = INITVALUE; - // CCTK_REAL p1o144dxdz = INITVALUE; - // CCTK_REAL p1o144dydz = INITVALUE; - // CCTK_REAL p1odx = INITVALUE; - // CCTK_REAL p1ody = INITVALUE; - // CCTK_REAL p1odz = INITVALUE; - // CCTK_REAL pm1o12dx2 = INITVALUE; - // CCTK_REAL pm1o12dy2 = INITVALUE; - // CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMConstraints_MP_M_Body"); - } - - if (cctk_iteration % ML_ADMConstraints_MP_M_calc_every != ML_ADMConstraints_MP_M_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - CCTK_REAL const dx = CCTK_DELTA_SPACE(0); - CCTK_REAL const dy = CCTK_DELTA_SPACE(1); - CCTK_REAL const dz = CCTK_DELTA_SPACE(2); - int const di = 1; - int const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); - int const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - CCTK_REAL const dxi = 1.0 / dx; - CCTK_REAL const dyi = 1.0 / dy; - CCTK_REAL const dzi = 1.0 / dz; - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = INV(dx)/12.; - CCTK_REAL const p1o12dy = INV(dy)/12.; - CCTK_REAL const p1o12dz = INV(dz)/12.; - CCTK_REAL const p1o144dxdy = (INV(dx)*INV(dy))/144.; - CCTK_REAL const p1o144dxdz = (INV(dx)*INV(dz))/144.; - CCTK_REAL const p1o144dydz = (INV(dy)*INV(dz))/144.; - CCTK_REAL const p1odx = INV(dx); - CCTK_REAL const p1ody = INV(dy); - CCTK_REAL const p1odz = INV(dz); - CCTK_REAL const pm1o12dx2 = -pow(dx,-2)/12.; - CCTK_REAL const pm1o12dy2 = -pow(dy,-2)/12.; - CCTK_REAL const pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_ADMConstraints_MP_M, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - // int index = INITVALUE; - // int subblock_index = INITVALUE; - int const index = CCTK_GFINDEX3D(cctkGH,i,j,k); - int const subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - // CCTK_REAL detg = INITVALUE; - // CCTK_REAL G111 = INITVALUE, G112 = INITVALUE, G113 = INITVALUE, G122 = INITVALUE, G123 = INITVALUE, G133 = INITVALUE; - // CCTK_REAL G211 = INITVALUE, G212 = INITVALUE, G213 = INITVALUE, G222 = INITVALUE, G223 = INITVALUE, G233 = INITVALUE; - // CCTK_REAL G311 = INITVALUE, G312 = INITVALUE, G313 = INITVALUE, G322 = INITVALUE, G323 = INITVALUE, G333 = INITVALUE; - // CCTK_REAL gu11 = INITVALUE, gu21 = INITVALUE, gu22 = INITVALUE, gu31 = INITVALUE, gu32 = INITVALUE, gu33 = INITVALUE; - // CCTK_REAL Km11 = INITVALUE, Km12 = INITVALUE, Km13 = INITVALUE, Km21 = INITVALUE, Km22 = INITVALUE, Km23 = INITVALUE; - // CCTK_REAL Km31 = INITVALUE, Km32 = INITVALUE, Km33 = INITVALUE; - // CCTK_REAL R11 = INITVALUE, R12 = INITVALUE, R13 = INITVALUE, R22 = INITVALUE, R23 = INITVALUE, R33 = INITVALUE; - // CCTK_REAL rho = INITVALUE; - // CCTK_REAL S1 = INITVALUE, S2 = INITVALUE, S3 = INITVALUE; - // CCTK_REAL T00 = INITVALUE, T01 = INITVALUE, T02 = INITVALUE, T03 = INITVALUE, T11 = INITVALUE, T12 = INITVALUE; - // CCTK_REAL T13 = INITVALUE, T22 = INITVALUE, T23 = INITVALUE, T33 = INITVALUE; - // CCTK_REAL trK = INITVALUE; - // CCTK_REAL trR = INITVALUE; - - /* Declare local copies of grid functions */ - // CCTK_REAL alpL = INITVALUE; - // CCTK_REAL betaxL = INITVALUE; - // CCTK_REAL betayL = INITVALUE; - // CCTK_REAL betazL = INITVALUE; - // CCTK_REAL dJ111L = INITVALUE, dJ112L = INITVALUE, dJ113L = INITVALUE, dJ122L = INITVALUE, dJ123L = INITVALUE, dJ133L = INITVALUE; - // CCTK_REAL dJ211L = INITVALUE, dJ212L = INITVALUE, dJ213L = INITVALUE, dJ222L = INITVALUE, dJ223L = INITVALUE, dJ233L = INITVALUE; - // CCTK_REAL dJ311L = INITVALUE, dJ312L = INITVALUE, dJ313L = INITVALUE, dJ322L = INITVALUE, dJ323L = INITVALUE, dJ333L = INITVALUE; - // CCTK_REAL eTttL = INITVALUE; - // CCTK_REAL eTtxL = INITVALUE; - // CCTK_REAL eTtyL = INITVALUE; - // CCTK_REAL eTtzL = INITVALUE; - // CCTK_REAL eTxxL = INITVALUE; - // CCTK_REAL eTxyL = INITVALUE; - // CCTK_REAL eTxzL = INITVALUE; - // CCTK_REAL eTyyL = INITVALUE; - // CCTK_REAL eTyzL = INITVALUE; - // CCTK_REAL eTzzL = INITVALUE; - // CCTK_REAL gxxL = INITVALUE; - // CCTK_REAL gxyL = INITVALUE; - // CCTK_REAL gxzL = INITVALUE; - // CCTK_REAL gyyL = INITVALUE; - // CCTK_REAL gyzL = INITVALUE; - // CCTK_REAL gzzL = INITVALUE; - // CCTK_REAL HL = INITVALUE; - // CCTK_REAL J11L = INITVALUE, J12L = INITVALUE, J13L = INITVALUE, J21L = INITVALUE, J22L = INITVALUE, J23L = INITVALUE; - // CCTK_REAL J31L = INITVALUE, J32L = INITVALUE, J33L = INITVALUE; - // CCTK_REAL kxxL = INITVALUE; - // CCTK_REAL kxyL = INITVALUE; - // CCTK_REAL kxzL = INITVALUE; - // CCTK_REAL kyyL = INITVALUE; - // CCTK_REAL kyzL = INITVALUE; - // CCTK_REAL kzzL = INITVALUE; - // CCTK_REAL M1L = INITVALUE, M2L = INITVALUE, M3L = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - // CCTK_REAL PDstandardNth1gxx = INITVALUE; - // CCTK_REAL PDstandardNth2gxx = INITVALUE; - // CCTK_REAL PDstandardNth3gxx = INITVALUE; - // CCTK_REAL PDstandardNth11gxx = INITVALUE; - // CCTK_REAL PDstandardNth22gxx = INITVALUE; - // CCTK_REAL PDstandardNth33gxx = INITVALUE; - // CCTK_REAL PDstandardNth12gxx = INITVALUE; - // CCTK_REAL PDstandardNth13gxx = INITVALUE; - // CCTK_REAL PDstandardNth23gxx = INITVALUE; - // CCTK_REAL PDstandardNth1gxy = INITVALUE; - // CCTK_REAL PDstandardNth2gxy = INITVALUE; - // CCTK_REAL PDstandardNth3gxy = INITVALUE; - // CCTK_REAL PDstandardNth11gxy = INITVALUE; - // CCTK_REAL PDstandardNth22gxy = INITVALUE; - // CCTK_REAL PDstandardNth33gxy = INITVALUE; - // CCTK_REAL PDstandardNth12gxy = INITVALUE; - // CCTK_REAL PDstandardNth13gxy = INITVALUE; - // CCTK_REAL PDstandardNth23gxy = INITVALUE; - // CCTK_REAL PDstandardNth1gxz = INITVALUE; - // CCTK_REAL PDstandardNth2gxz = INITVALUE; - // CCTK_REAL PDstandardNth3gxz = INITVALUE; - // CCTK_REAL PDstandardNth11gxz = INITVALUE; - // CCTK_REAL PDstandardNth22gxz = INITVALUE; - // CCTK_REAL PDstandardNth33gxz = INITVALUE; - // CCTK_REAL PDstandardNth12gxz = INITVALUE; - // CCTK_REAL PDstandardNth13gxz = INITVALUE; - // CCTK_REAL PDstandardNth23gxz = INITVALUE; - // CCTK_REAL PDstandardNth1gyy = INITVALUE; - // CCTK_REAL PDstandardNth2gyy = INITVALUE; - // CCTK_REAL PDstandardNth3gyy = INITVALUE; - // CCTK_REAL PDstandardNth11gyy = INITVALUE; - // CCTK_REAL PDstandardNth22gyy = INITVALUE; - // CCTK_REAL PDstandardNth33gyy = INITVALUE; - // CCTK_REAL PDstandardNth12gyy = INITVALUE; - // CCTK_REAL PDstandardNth13gyy = INITVALUE; - // CCTK_REAL PDstandardNth23gyy = INITVALUE; - // CCTK_REAL PDstandardNth1gyz = INITVALUE; - // CCTK_REAL PDstandardNth2gyz = INITVALUE; - // CCTK_REAL PDstandardNth3gyz = INITVALUE; - // CCTK_REAL PDstandardNth11gyz = INITVALUE; - // CCTK_REAL PDstandardNth22gyz = INITVALUE; - // CCTK_REAL PDstandardNth33gyz = INITVALUE; - // CCTK_REAL PDstandardNth12gyz = INITVALUE; - // CCTK_REAL PDstandardNth13gyz = INITVALUE; - // CCTK_REAL PDstandardNth23gyz = INITVALUE; - // CCTK_REAL PDstandardNth1gzz = INITVALUE; - // CCTK_REAL PDstandardNth2gzz = INITVALUE; - // CCTK_REAL PDstandardNth3gzz = INITVALUE; - // CCTK_REAL PDstandardNth11gzz = INITVALUE; - // CCTK_REAL PDstandardNth22gzz = INITVALUE; - // CCTK_REAL PDstandardNth33gzz = INITVALUE; - // CCTK_REAL PDstandardNth12gzz = INITVALUE; - // CCTK_REAL PDstandardNth13gzz = INITVALUE; - // CCTK_REAL PDstandardNth23gzz = INITVALUE; - // CCTK_REAL PDstandardNth1kxx = INITVALUE; - // CCTK_REAL PDstandardNth2kxx = INITVALUE; - // CCTK_REAL PDstandardNth3kxx = INITVALUE; - // CCTK_REAL PDstandardNth1kxy = INITVALUE; - // CCTK_REAL PDstandardNth2kxy = INITVALUE; - // CCTK_REAL PDstandardNth3kxy = INITVALUE; - // CCTK_REAL PDstandardNth1kxz = INITVALUE; - // CCTK_REAL PDstandardNth2kxz = INITVALUE; - // CCTK_REAL PDstandardNth3kxz = INITVALUE; - // CCTK_REAL PDstandardNth1kyy = INITVALUE; - // CCTK_REAL PDstandardNth2kyy = INITVALUE; - // CCTK_REAL PDstandardNth3kyy = INITVALUE; - // CCTK_REAL PDstandardNth1kyz = INITVALUE; - // CCTK_REAL PDstandardNth2kyz = INITVALUE; - // CCTK_REAL PDstandardNth3kyz = INITVALUE; - // CCTK_REAL PDstandardNth1kzz = INITVALUE; - // CCTK_REAL PDstandardNth2kzz = INITVALUE; - // CCTK_REAL PDstandardNth3kzz = INITVALUE; - - /* Assign local copies of grid functions */ - CCTK_REAL const alpL = alp[index]; - CCTK_REAL const betaxL = betax[index]; - CCTK_REAL const betayL = betay[index]; - CCTK_REAL const betazL = betaz[index]; - CCTK_REAL const dJ111L = dJ111[index]; - CCTK_REAL const dJ112L = dJ112[index]; - CCTK_REAL const dJ113L = dJ113[index]; - CCTK_REAL const dJ122L = dJ122[index]; - CCTK_REAL const dJ123L = dJ123[index]; - CCTK_REAL const dJ133L = dJ133[index]; - CCTK_REAL const dJ211L = dJ211[index]; - CCTK_REAL const dJ212L = dJ212[index]; - CCTK_REAL const dJ213L = dJ213[index]; - CCTK_REAL const dJ222L = dJ222[index]; - CCTK_REAL const dJ223L = dJ223[index]; - CCTK_REAL const dJ233L = dJ233[index]; - CCTK_REAL const dJ311L = dJ311[index]; - CCTK_REAL const dJ312L = dJ312[index]; - CCTK_REAL const dJ313L = dJ313[index]; - CCTK_REAL const dJ322L = dJ322[index]; - CCTK_REAL const dJ323L = dJ323[index]; - CCTK_REAL const dJ333L = dJ333[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; - CCTK_REAL const gxxL = gxx[index]; - CCTK_REAL const gxyL = gxy[index]; - CCTK_REAL const gxzL = gxz[index]; - CCTK_REAL const gyyL = gyy[index]; - CCTK_REAL const gyzL = gyz[index]; - CCTK_REAL const gzzL = gzz[index]; - CCTK_REAL const J11L = J11[index]; - CCTK_REAL const J12L = J12[index]; - CCTK_REAL const J13L = J13[index]; - CCTK_REAL const J21L = J21[index]; - CCTK_REAL const J22L = J22[index]; - CCTK_REAL const J23L = J23[index]; - CCTK_REAL const J31L = J31[index]; - CCTK_REAL const J32L = J32[index]; - CCTK_REAL const J33L = J33[index]; - CCTK_REAL const kxxL = kxx[index]; - CCTK_REAL const kxyL = kxy[index]; - CCTK_REAL const kxzL = kxz[index]; - CCTK_REAL const kyyL = kyy[index]; - CCTK_REAL const kyzL = kyz[index]; - CCTK_REAL const kzzL = kzz[index]; - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - CCTK_REAL const PDstandardNth1gxx = PDstandardNth1(gxx, i, j, k); - CCTK_REAL const PDstandardNth2gxx = PDstandardNth2(gxx, i, j, k); - CCTK_REAL const PDstandardNth3gxx = PDstandardNth3(gxx, i, j, k); - CCTK_REAL const PDstandardNth11gxx = PDstandardNth11(gxx, i, j, k); - CCTK_REAL const PDstandardNth22gxx = PDstandardNth22(gxx, i, j, k); - CCTK_REAL const PDstandardNth33gxx = PDstandardNth33(gxx, i, j, k); - CCTK_REAL const PDstandardNth12gxx = PDstandardNth12(gxx, i, j, k); - CCTK_REAL const PDstandardNth13gxx = PDstandardNth13(gxx, i, j, k); - CCTK_REAL const PDstandardNth23gxx = PDstandardNth23(gxx, i, j, k); - CCTK_REAL const PDstandardNth1gxy = PDstandardNth1(gxy, i, j, k); - CCTK_REAL const PDstandardNth2gxy = PDstandardNth2(gxy, i, j, k); - CCTK_REAL const PDstandardNth3gxy = PDstandardNth3(gxy, i, j, k); - CCTK_REAL const PDstandardNth11gxy = PDstandardNth11(gxy, i, j, k); - CCTK_REAL const PDstandardNth22gxy = PDstandardNth22(gxy, i, j, k); - CCTK_REAL const PDstandardNth33gxy = PDstandardNth33(gxy, i, j, k); - CCTK_REAL const PDstandardNth12gxy = PDstandardNth12(gxy, i, j, k); - CCTK_REAL const PDstandardNth13gxy = PDstandardNth13(gxy, i, j, k); - CCTK_REAL const PDstandardNth23gxy = PDstandardNth23(gxy, i, j, k); - CCTK_REAL const PDstandardNth1gxz = PDstandardNth1(gxz, i, j, k); - CCTK_REAL const PDstandardNth2gxz = PDstandardNth2(gxz, i, j, k); - CCTK_REAL const PDstandardNth3gxz = PDstandardNth3(gxz, i, j, k); - CCTK_REAL const PDstandardNth11gxz = PDstandardNth11(gxz, i, j, k); - CCTK_REAL const PDstandardNth22gxz = PDstandardNth22(gxz, i, j, k); - CCTK_REAL const PDstandardNth33gxz = PDstandardNth33(gxz, i, j, k); - CCTK_REAL const PDstandardNth12gxz = PDstandardNth12(gxz, i, j, k); - CCTK_REAL const PDstandardNth13gxz = PDstandardNth13(gxz, i, j, k); - CCTK_REAL const PDstandardNth23gxz = PDstandardNth23(gxz, i, j, k); - CCTK_REAL const PDstandardNth1gyy = PDstandardNth1(gyy, i, j, k); - CCTK_REAL const PDstandardNth2gyy = PDstandardNth2(gyy, i, j, k); - CCTK_REAL const PDstandardNth3gyy = PDstandardNth3(gyy, i, j, k); - CCTK_REAL const PDstandardNth11gyy = PDstandardNth11(gyy, i, j, k); - CCTK_REAL const PDstandardNth22gyy = PDstandardNth22(gyy, i, j, k); - CCTK_REAL const PDstandardNth33gyy = PDstandardNth33(gyy, i, j, k); - CCTK_REAL const PDstandardNth12gyy = PDstandardNth12(gyy, i, j, k); - CCTK_REAL const PDstandardNth13gyy = PDstandardNth13(gyy, i, j, k); - CCTK_REAL const PDstandardNth23gyy = PDstandardNth23(gyy, i, j, k); - CCTK_REAL const PDstandardNth1gyz = PDstandardNth1(gyz, i, j, k); - CCTK_REAL const PDstandardNth2gyz = PDstandardNth2(gyz, i, j, k); - CCTK_REAL const PDstandardNth3gyz = PDstandardNth3(gyz, i, j, k); - CCTK_REAL const PDstandardNth11gyz = PDstandardNth11(gyz, i, j, k); - CCTK_REAL const PDstandardNth22gyz = PDstandardNth22(gyz, i, j, k); - CCTK_REAL const PDstandardNth33gyz = PDstandardNth33(gyz, i, j, k); - CCTK_REAL const PDstandardNth12gyz = PDstandardNth12(gyz, i, j, k); - CCTK_REAL const PDstandardNth13gyz = PDstandardNth13(gyz, i, j, k); - CCTK_REAL const PDstandardNth23gyz = PDstandardNth23(gyz, i, j, k); - CCTK_REAL const PDstandardNth1gzz = PDstandardNth1(gzz, i, j, k); - CCTK_REAL const PDstandardNth2gzz = PDstandardNth2(gzz, i, j, k); - CCTK_REAL const PDstandardNth3gzz = PDstandardNth3(gzz, i, j, k); - CCTK_REAL const PDstandardNth11gzz = PDstandardNth11(gzz, i, j, k); - CCTK_REAL const PDstandardNth22gzz = PDstandardNth22(gzz, i, j, k); - CCTK_REAL const PDstandardNth33gzz = PDstandardNth33(gzz, i, j, k); - CCTK_REAL const PDstandardNth12gzz = PDstandardNth12(gzz, i, j, k); - CCTK_REAL const PDstandardNth13gzz = PDstandardNth13(gzz, i, j, k); - CCTK_REAL const PDstandardNth23gzz = PDstandardNth23(gzz, i, j, k); - CCTK_REAL const PDstandardNth1kxx = PDstandardNth1(kxx, i, j, k); - CCTK_REAL const PDstandardNth2kxx = PDstandardNth2(kxx, i, j, k); - CCTK_REAL const PDstandardNth3kxx = PDstandardNth3(kxx, i, j, k); - CCTK_REAL const PDstandardNth1kxy = PDstandardNth1(kxy, i, j, k); - CCTK_REAL const PDstandardNth2kxy = PDstandardNth2(kxy, i, j, k); - CCTK_REAL const PDstandardNth3kxy = PDstandardNth3(kxy, i, j, k); - CCTK_REAL const PDstandardNth1kxz = PDstandardNth1(kxz, i, j, k); - CCTK_REAL const PDstandardNth2kxz = PDstandardNth2(kxz, i, j, k); - CCTK_REAL const PDstandardNth3kxz = PDstandardNth3(kxz, i, j, k); - CCTK_REAL const PDstandardNth1kyy = PDstandardNth1(kyy, i, j, k); - CCTK_REAL const PDstandardNth2kyy = PDstandardNth2(kyy, i, j, k); - CCTK_REAL const PDstandardNth3kyy = PDstandardNth3(kyy, i, j, k); - CCTK_REAL const PDstandardNth1kyz = PDstandardNth1(kyz, i, j, k); - CCTK_REAL const PDstandardNth2kyz = PDstandardNth2(kyz, i, j, k); - CCTK_REAL const PDstandardNth3kyz = PDstandardNth3(kyz, i, j, k); - CCTK_REAL const PDstandardNth1kzz = PDstandardNth1(kzz, i, j, k); - CCTK_REAL const PDstandardNth2kzz = PDstandardNth2(kzz, i, j, k); - CCTK_REAL const PDstandardNth3kzz = PDstandardNth3(kzz, i, j, k); - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - CCTK_REAL const detg = 2*gxyL*gxzL*gyzL + gzzL*(gxxL*gyyL - SQR(gxyL)) - gyyL*SQR(gxzL) - gxxL*SQR(gyzL); - - CCTK_REAL const gu11 = INV(detg)*(gyyL*gzzL - SQR(gyzL)); - - CCTK_REAL const gu21 = (gxzL*gyzL - gxyL*gzzL)*INV(detg); - - CCTK_REAL const gu31 = (-(gxzL*gyyL) + gxyL*gyzL)*INV(detg); - - CCTK_REAL const gu22 = INV(detg)*(gxxL*gzzL - SQR(gxzL)); - - CCTK_REAL const gu32 = (gxyL*gxzL - gxxL*gyzL)*INV(detg); - - CCTK_REAL const gu33 = INV(detg)*(gxxL*gyyL - SQR(gxyL)); - - CCTK_REAL const G111 = khalf*((gu11*J11L - gu21*J12L - gu31*J13L)*PDstandardNth1gxx + - (gu11*J21L - gu21*J22L - gu31*J23L)*PDstandardNth2gxx + (gu11*J31L - gu21*J32L - gu31*J33L)*PDstandardNth3gxx + - 2*(J11L*(gu21*PDstandardNth1gxy + gu31*PDstandardNth1gxz) + - J21L*(gu21*PDstandardNth2gxy + gu31*PDstandardNth2gxz) + J31L*(gu21*PDstandardNth3gxy + gu31*PDstandardNth3gxz) - )); - - CCTK_REAL const G211 = khalf*((gu21*J11L - gu22*J12L - gu32*J13L)*PDstandardNth1gxx + - (gu21*J21L - gu22*J22L - gu32*J23L)*PDstandardNth2gxx + (gu21*J31L - gu22*J32L - gu32*J33L)*PDstandardNth3gxx + - 2*(J11L*(gu22*PDstandardNth1gxy + gu32*PDstandardNth1gxz) + - J21L*(gu22*PDstandardNth2gxy + gu32*PDstandardNth2gxz) + J31L*(gu22*PDstandardNth3gxy + gu32*PDstandardNth3gxz) - )); - - CCTK_REAL const G311 = khalf*((gu31*J11L - gu32*J12L - gu33*J13L)*PDstandardNth1gxx + - (gu31*J21L - gu32*J22L - gu33*J23L)*PDstandardNth2gxx + (gu31*J31L - gu32*J32L - gu33*J33L)*PDstandardNth3gxx + - 2*(J11L*(gu32*PDstandardNth1gxy + gu33*PDstandardNth1gxz) + - J21L*(gu32*PDstandardNth2gxy + gu33*PDstandardNth2gxz) + J31L*(gu32*PDstandardNth3gxy + gu33*PDstandardNth3gxz) - )); - - CCTK_REAL const G112 = khalf*(gu11*(J12L*PDstandardNth1gxx + J22L*PDstandardNth2gxx + J32L*PDstandardNth3gxx) + - gu21*(J11L*PDstandardNth1gyy + J21L*PDstandardNth2gyy + J31L*PDstandardNth3gyy) + - gu31*(-(J13L*PDstandardNth1gxy) + J12L*PDstandardNth1gxz + J11L*PDstandardNth1gyz - J23L*PDstandardNth2gxy + - J22L*PDstandardNth2gxz + J21L*PDstandardNth2gyz - J33L*PDstandardNth3gxy + J32L*PDstandardNth3gxz + - J31L*PDstandardNth3gyz)); - - CCTK_REAL const G212 = khalf*(gu21*(J12L*PDstandardNth1gxx + J22L*PDstandardNth2gxx + J32L*PDstandardNth3gxx) + - gu22*(J11L*PDstandardNth1gyy + J21L*PDstandardNth2gyy + J31L*PDstandardNth3gyy) + - gu32*(-(J13L*PDstandardNth1gxy) + J12L*PDstandardNth1gxz + J11L*PDstandardNth1gyz - J23L*PDstandardNth2gxy + - J22L*PDstandardNth2gxz + J21L*PDstandardNth2gyz - J33L*PDstandardNth3gxy + J32L*PDstandardNth3gxz + - J31L*PDstandardNth3gyz)); - - CCTK_REAL const G312 = khalf*(gu31*(J12L*PDstandardNth1gxx + J22L*PDstandardNth2gxx + J32L*PDstandardNth3gxx) + - gu32*(J11L*PDstandardNth1gyy + J21L*PDstandardNth2gyy + J31L*PDstandardNth3gyy) + - gu33*(-(J13L*PDstandardNth1gxy) + J12L*PDstandardNth1gxz + J11L*PDstandardNth1gyz - J23L*PDstandardNth2gxy + - J22L*PDstandardNth2gxz + J21L*PDstandardNth2gyz - J33L*PDstandardNth3gxy + J32L*PDstandardNth3gxz + - J31L*PDstandardNth3gyz)); - - CCTK_REAL const G113 = khalf*(gu11*(J13L*PDstandardNth1gxx + J23L*PDstandardNth2gxx + J33L*PDstandardNth3gxx) + - gu21*(J13L*PDstandardNth1gxy - J12L*PDstandardNth1gxz + J11L*PDstandardNth1gyz + J23L*PDstandardNth2gxy - - J22L*PDstandardNth2gxz + J21L*PDstandardNth2gyz + J33L*PDstandardNth3gxy - J32L*PDstandardNth3gxz + - J31L*PDstandardNth3gyz) + gu31*(J11L*PDstandardNth1gzz + J21L*PDstandardNth2gzz + J31L*PDstandardNth3gzz)); - - CCTK_REAL const G213 = khalf*(gu21*(J13L*PDstandardNth1gxx + J23L*PDstandardNth2gxx + J33L*PDstandardNth3gxx) + - gu22*(J13L*PDstandardNth1gxy - J12L*PDstandardNth1gxz + J11L*PDstandardNth1gyz + J23L*PDstandardNth2gxy - - J22L*PDstandardNth2gxz + J21L*PDstandardNth2gyz + J33L*PDstandardNth3gxy - J32L*PDstandardNth3gxz + - J31L*PDstandardNth3gyz) + gu32*(J11L*PDstandardNth1gzz + J21L*PDstandardNth2gzz + J31L*PDstandardNth3gzz)); - - CCTK_REAL const G313 = khalf*(gu31*(J13L*PDstandardNth1gxx + J23L*PDstandardNth2gxx + J33L*PDstandardNth3gxx) + - gu32*(J13L*PDstandardNth1gxy - J12L*PDstandardNth1gxz + J11L*PDstandardNth1gyz + J23L*PDstandardNth2gxy - - J22L*PDstandardNth2gxz + J21L*PDstandardNth2gyz + J33L*PDstandardNth3gxy - J32L*PDstandardNth3gxz + - J31L*PDstandardNth3gyz) + gu33*(J11L*PDstandardNth1gzz + J21L*PDstandardNth2gzz + J31L*PDstandardNth3gzz)); - - CCTK_REAL const G122 = khalf*(gu11*(-(J11L*PDstandardNth1gyy) + 2*(J12L*PDstandardNth1gxy + J22L*PDstandardNth2gxy) - - J21L*PDstandardNth2gyy + 2*J32L*PDstandardNth3gxy - J31L*PDstandardNth3gyy) + - gu21*(J12L*PDstandardNth1gyy + J22L*PDstandardNth2gyy + J32L*PDstandardNth3gyy) - - gu31*(J13L*PDstandardNth1gyy + J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy - - 2*(J12L*PDstandardNth1gyz + J22L*PDstandardNth2gyz + J32L*PDstandardNth3gyz))); - - CCTK_REAL const G222 = khalf*(gu21*(-(J11L*PDstandardNth1gyy) + 2*(J12L*PDstandardNth1gxy + J22L*PDstandardNth2gxy) - - J21L*PDstandardNth2gyy + 2*J32L*PDstandardNth3gxy - J31L*PDstandardNth3gyy) + - gu22*(J12L*PDstandardNth1gyy + J22L*PDstandardNth2gyy + J32L*PDstandardNth3gyy) - - gu32*(J13L*PDstandardNth1gyy + J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy - - 2*(J12L*PDstandardNth1gyz + J22L*PDstandardNth2gyz + J32L*PDstandardNth3gyz))); - - CCTK_REAL const G322 = khalf*(gu31*(-(J11L*PDstandardNth1gyy) + 2*(J12L*PDstandardNth1gxy + J22L*PDstandardNth2gxy) - - J21L*PDstandardNth2gyy + 2*J32L*PDstandardNth3gxy - J31L*PDstandardNth3gyy) + - gu32*(J12L*PDstandardNth1gyy + J22L*PDstandardNth2gyy + J32L*PDstandardNth3gyy) - - gu33*(J13L*PDstandardNth1gyy + J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy - - 2*(J12L*PDstandardNth1gyz + J22L*PDstandardNth2gyz + J32L*PDstandardNth3gyz))); - - CCTK_REAL const G123 = khalf*(gu21*(J13L*PDstandardNth1gyy + J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy) + - gu11*(J13L*PDstandardNth1gxy + J12L*PDstandardNth1gxz - J11L*PDstandardNth1gyz + J23L*PDstandardNth2gxy + - J22L*PDstandardNth2gxz - J21L*PDstandardNth2gyz + J33L*PDstandardNth3gxy + J32L*PDstandardNth3gxz - - J31L*PDstandardNth3gyz) + gu31*(J12L*PDstandardNth1gzz + J22L*PDstandardNth2gzz + J32L*PDstandardNth3gzz)); - - CCTK_REAL const G223 = khalf*(gu22*(J13L*PDstandardNth1gyy + J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy) + - gu21*(J13L*PDstandardNth1gxy + J12L*PDstandardNth1gxz - J11L*PDstandardNth1gyz + J23L*PDstandardNth2gxy + - J22L*PDstandardNth2gxz - J21L*PDstandardNth2gyz + J33L*PDstandardNth3gxy + J32L*PDstandardNth3gxz - - J31L*PDstandardNth3gyz) + gu32*(J12L*PDstandardNth1gzz + J22L*PDstandardNth2gzz + J32L*PDstandardNth3gzz)); - - CCTK_REAL const G323 = khalf*(gu32*(J13L*PDstandardNth1gyy + J23L*PDstandardNth2gyy + J33L*PDstandardNth3gyy) + - gu31*(J13L*PDstandardNth1gxy + J12L*PDstandardNth1gxz - J11L*PDstandardNth1gyz + J23L*PDstandardNth2gxy + - J22L*PDstandardNth2gxz - J21L*PDstandardNth2gyz + J33L*PDstandardNth3gxy + J32L*PDstandardNth3gxz - - J31L*PDstandardNth3gyz) + gu33*(J12L*PDstandardNth1gzz + J22L*PDstandardNth2gzz + J32L*PDstandardNth3gzz)); - - CCTK_REAL const G133 = khalf*(gu11*(-(J11L*PDstandardNth1gzz) + 2*(J13L*PDstandardNth1gxz + J23L*PDstandardNth2gxz) - - J21L*PDstandardNth2gzz + 2*J33L*PDstandardNth3gxz - J31L*PDstandardNth3gzz) + - gu21*(-(J12L*PDstandardNth1gzz) + 2*(J13L*PDstandardNth1gyz + J23L*PDstandardNth2gyz) - J22L*PDstandardNth2gzz + - 2*J33L*PDstandardNth3gyz - J32L*PDstandardNth3gzz) + - gu31*(J13L*PDstandardNth1gzz + J23L*PDstandardNth2gzz + J33L*PDstandardNth3gzz)); - - CCTK_REAL const G233 = khalf*(gu21*(-(J11L*PDstandardNth1gzz) + 2*(J13L*PDstandardNth1gxz + J23L*PDstandardNth2gxz) - - J21L*PDstandardNth2gzz + 2*J33L*PDstandardNth3gxz - J31L*PDstandardNth3gzz) + - gu22*(-(J12L*PDstandardNth1gzz) + 2*(J13L*PDstandardNth1gyz + J23L*PDstandardNth2gyz) - J22L*PDstandardNth2gzz + - 2*J33L*PDstandardNth3gyz - J32L*PDstandardNth3gzz) + - gu32*(J13L*PDstandardNth1gzz + J23L*PDstandardNth2gzz + J33L*PDstandardNth3gzz)); - - CCTK_REAL const G333 = khalf*(gu31*(-(J11L*PDstandardNth1gzz) + 2*(J13L*PDstandardNth1gxz + J23L*PDstandardNth2gxz) - - J21L*PDstandardNth2gzz + 2*J33L*PDstandardNth3gxz - J31L*PDstandardNth3gzz) + - gu32*(-(J12L*PDstandardNth1gzz) + 2*(J13L*PDstandardNth1gyz + J23L*PDstandardNth2gyz) - J22L*PDstandardNth2gzz + - 2*J33L*PDstandardNth3gyz - J32L*PDstandardNth3gzz) + - gu33*(J13L*PDstandardNth1gzz + J23L*PDstandardNth2gzz + J33L*PDstandardNth3gzz)); - - CCTK_REAL const R11 = khalf*(-((dJ122L*gu22 + 2*dJ123L*gu32 + dJ133L*gu33)*PDstandardNth1gxx) + - gu32*(-4*J11L*J21L*PDstandardNth12gyz - 2*J13L*J32L*PDstandardNth13gxx + 2*J13L*J31L*PDstandardNth13gxy + - 2*J12L*J31L*PDstandardNth13gxz - 4*J11L*J31L*PDstandardNth13gyz + 2*dJ113L*PDstandardNth1gxy) + - 2*(gu22*J11L*J12L*PDstandardNth11gxy + gu32*J11L*J13L*PDstandardNth11gxy + gu32*J11L*J12L*PDstandardNth11gxz + - gu33*J11L*J13L*PDstandardNth11gxz + gu22*J12L*J21L*PDstandardNth12gxy + gu32*J13L*J21L*PDstandardNth12gxy + - gu22*J11L*J22L*PDstandardNth12gxy + gu32*J11L*J23L*PDstandardNth12gxy + gu32*J12L*J21L*PDstandardNth12gxz + - gu33*J13L*J21L*PDstandardNth12gxz + gu32*J11L*J22L*PDstandardNth12gxz + gu33*J11L*J23L*PDstandardNth12gxz + - gu22*J12L*J31L*PDstandardNth13gxy + gu22*J11L*J32L*PDstandardNth13gxy + gu32*J11L*J33L*PDstandardNth13gxy + - gu33*J13L*J31L*PDstandardNth13gxz + gu32*J11L*J32L*PDstandardNth13gxz + gu33*J11L*J33L*PDstandardNth13gxz + - dJ112L*gu22*PDstandardNth1gxy) + 2*dJ112L*gu32*PDstandardNth1gxz + 2*dJ113L*gu33*PDstandardNth1gxz - - dJ111L*gu22*PDstandardNth1gyy - 2*(G111*G122 + G111*G133 + G211*G222 + G211*G233 + G311*G322 + G311*G333 + - gu32*J12L*J13L*PDstandardNth11gxx + gu22*J12L*J22L*PDstandardNth12gxx + gu32*J13L*J22L*PDstandardNth12gxx + - gu32*J12L*J23L*PDstandardNth12gxx + gu33*J13L*J23L*PDstandardNth12gxx + gu22*J11L*J21L*PDstandardNth12gyy + - gu33*J11L*J21L*PDstandardNth12gzz + gu22*J12L*J32L*PDstandardNth13gxx + gu32*J12L*J33L*PDstandardNth13gxx + - gu33*J13L*J33L*PDstandardNth13gxx + gu22*J11L*J31L*PDstandardNth13gyy + gu33*J11L*J31L*PDstandardNth13gzz + - dJ111L*gu32*PDstandardNth1gyz) - dJ111L*gu33*PDstandardNth1gzz - 2*gu32*J22L*J23L*PDstandardNth22gxx + - 2*gu22*J21L*J22L*PDstandardNth22gxy + 2*gu32*J21L*J23L*PDstandardNth22gxy + 2*gu32*J21L*J22L*PDstandardNth22gxz + - 2*gu33*J21L*J23L*PDstandardNth22gxz - 2*gu22*J22L*J32L*PDstandardNth23gxx - 2*gu32*J23L*J32L*PDstandardNth23gxx - - 2*gu32*J22L*J33L*PDstandardNth23gxx - 2*gu33*J23L*J33L*PDstandardNth23gxx + 2*gu22*J22L*J31L*PDstandardNth23gxy + - 2*gu32*J23L*J31L*PDstandardNth23gxy + 2*gu22*J21L*J32L*PDstandardNth23gxy + 2*gu32*J21L*J33L*PDstandardNth23gxy + - 2*gu32*J22L*J31L*PDstandardNth23gxz + 2*gu33*J23L*J31L*PDstandardNth23gxz + 2*gu32*J21L*J32L*PDstandardNth23gxz + - 2*gu33*J21L*J33L*PDstandardNth23gxz - 2*gu22*J21L*J31L*PDstandardNth23gyy - 4*gu32*J21L*J31L*PDstandardNth23gyz - - 2*gu33*J21L*J31L*PDstandardNth23gzz - (dJ222L*gu22 + 2*dJ223L*gu32 + dJ233L*gu33)*PDstandardNth2gxx + - 2*dJ212L*gu22*PDstandardNth2gxy + 2*dJ213L*gu32*PDstandardNth2gxy + 2*dJ212L*gu32*PDstandardNth2gxz + - 2*dJ213L*gu33*PDstandardNth2gxz - dJ211L*gu22*PDstandardNth2gyy - 2*dJ211L*gu32*PDstandardNth2gyz - - dJ211L*gu33*PDstandardNth2gzz - 2*gu32*J32L*J33L*PDstandardNth33gxx + 2*gu22*J31L*J32L*PDstandardNth33gxy + - 2*gu32*J31L*J33L*PDstandardNth33gxy + 2*gu32*J31L*J32L*PDstandardNth33gxz + 2*gu33*J31L*J33L*PDstandardNth33gxz - - dJ322L*gu22*PDstandardNth3gxx - 2*dJ323L*gu32*PDstandardNth3gxx - dJ333L*gu33*PDstandardNth3gxx + - 2*dJ312L*gu22*PDstandardNth3gxy + 2*dJ313L*gu32*PDstandardNth3gxy + 2*dJ312L*gu32*PDstandardNth3gxz + - 2*dJ313L*gu33*PDstandardNth3gxz - dJ311L*gu22*PDstandardNth3gyy - 2*dJ311L*gu32*PDstandardNth3gyz - - dJ311L*gu33*PDstandardNth3gzz + 2*SQR(G112) + 2*SQR(G113) + 2*SQR(G212) + 2*SQR(G213) + 2*SQR(G312) + - 2*SQR(G313) - gu22*PDstandardNth11gyy*SQR(J11L) - 2*gu32*PDstandardNth11gyz*SQR(J11L) - - gu33*PDstandardNth11gzz*SQR(J11L) - gu22*PDstandardNth11gxx*SQR(J12L) - gu33*PDstandardNth11gxx*SQR(J13L) - - gu22*PDstandardNth22gyy*SQR(J21L) - 2*gu32*PDstandardNth22gyz*SQR(J21L) - gu33*PDstandardNth22gzz*SQR(J21L) - - gu22*PDstandardNth22gxx*SQR(J22L) - gu33*PDstandardNth22gxx*SQR(J23L) - gu22*PDstandardNth33gyy*SQR(J31L) - - 2*gu32*PDstandardNth33gyz*SQR(J31L) - gu33*PDstandardNth33gzz*SQR(J31L) - gu22*PDstandardNth33gxx*SQR(J32L) - - gu33*PDstandardNth33gxx*SQR(J33L)); - - CCTK_REAL const R12 = G113*G123 - G112*G133 + G211*G212 + G212*G222 + G213*G223 - G212*(G211 + G222 + G233) + G311*G312 + G312*G322 + - G313*G323 - G312*(G311 + G322 + G333) + khalf* - (gu32*(-(J13L*J22L*PDstandardNth12gxy) + J12L*J23L*PDstandardNth12gxy + - (J13L*J22L - J12L*J23L)*PDstandardNth12gxy - J13L*J32L*PDstandardNth13gxy + J12L*J33L*PDstandardNth13gxy + - (J13L*J32L - J12L*J33L)*PDstandardNth13gxy) + - gu22*(-(J12L*J21L*PDstandardNth12gyy) + J11L*J22L*PDstandardNth12gyy + - (J12L*J21L - J11L*J22L)*PDstandardNth12gyy - J12L*J31L*PDstandardNth13gyy + J11L*J32L*PDstandardNth13gyy + - (J12L*J31L - J11L*J32L)*PDstandardNth13gyy) + - gu31*(J12L*J13L*PDstandardNth11gxx - J11L*J13L*PDstandardNth11gxy - J11L*J12L*PDstandardNth11gxz + - J13L*J22L*PDstandardNth12gxx + J12L*J23L*PDstandardNth12gxx - J13L*J21L*PDstandardNth12gxy - - J11L*J23L*PDstandardNth12gxy - J12L*J21L*PDstandardNth12gxz - J11L*J22L*PDstandardNth12gxz + - 2*J11L*J21L*PDstandardNth12gyz + J13L*J32L*PDstandardNth13gxx + J12L*J33L*PDstandardNth13gxx - - J13L*J31L*PDstandardNth13gxy - J11L*J33L*PDstandardNth13gxy - J12L*J31L*PDstandardNth13gxz - - J11L*J32L*PDstandardNth13gxz + 2*J11L*J31L*PDstandardNth13gyz + dJ123L*PDstandardNth1gxx - - dJ113L*PDstandardNth1gxy - dJ112L*PDstandardNth1gxz + dJ111L*PDstandardNth1gyz + - J22L*J23L*PDstandardNth22gxx - J21L*J23L*PDstandardNth22gxy - J21L*J22L*PDstandardNth22gxz + - J23L*J32L*PDstandardNth23gxx + J22L*J33L*PDstandardNth23gxx - J23L*J31L*PDstandardNth23gxy - - J21L*J33L*PDstandardNth23gxy - J22L*J31L*PDstandardNth23gxz - J21L*J32L*PDstandardNth23gxz + - 2*J21L*J31L*PDstandardNth23gyz + dJ223L*PDstandardNth2gxx - dJ213L*PDstandardNth2gxy - - dJ212L*PDstandardNth2gxz + dJ211L*PDstandardNth2gyz + J32L*J33L*PDstandardNth33gxx - - J31L*J33L*PDstandardNth33gxy - J31L*J32L*PDstandardNth33gxz + dJ323L*PDstandardNth3gxx - - dJ313L*PDstandardNth3gxy - dJ312L*PDstandardNth3gxz + dJ311L*PDstandardNth3gyz + - PDstandardNth11gyz*SQR(J11L) + PDstandardNth22gyz*SQR(J21L) + PDstandardNth33gyz*SQR(J31L)) + - gu21*(-2*J11L*J12L*PDstandardNth11gxy + 2*J12L*J22L*PDstandardNth12gxx - 2*J12L*J21L*PDstandardNth12gxy - - 2*J11L*J22L*PDstandardNth12gxy + 2*J11L*J21L*PDstandardNth12gyy + 2*J12L*J32L*PDstandardNth13gxx - - 2*J12L*J31L*PDstandardNth13gxy - 2*J11L*J32L*PDstandardNth13gxy + 2*J11L*J31L*PDstandardNth13gyy + - dJ122L*PDstandardNth1gxx - 2*dJ112L*PDstandardNth1gxy + dJ111L*PDstandardNth1gyy - - 2*J21L*J22L*PDstandardNth22gxy + 2*J22L*J32L*PDstandardNth23gxx - 2*J22L*J31L*PDstandardNth23gxy - - 2*J21L*J32L*PDstandardNth23gxy + 2*J21L*J31L*PDstandardNth23gyy + dJ222L*PDstandardNth2gxx - - 2*dJ212L*PDstandardNth2gxy + dJ211L*PDstandardNth2gyy - 2*J31L*J32L*PDstandardNth33gxy + - dJ322L*PDstandardNth3gxx - 2*dJ312L*PDstandardNth3gxy + dJ311L*PDstandardNth3gyy + - PDstandardNth11gyy*SQR(J11L) + PDstandardNth11gxx*SQR(J12L) + PDstandardNth22gyy*SQR(J21L) + - PDstandardNth22gxx*SQR(J22L) + PDstandardNth33gyy*SQR(J31L) + PDstandardNth33gxx*SQR(J32L)) + - gu32*(-(J12L*J13L*PDstandardNth11gxy) + J11L*J13L*PDstandardNth11gyy - J11L*J12L*PDstandardNth11gyz - - J13L*J22L*PDstandardNth12gxy - J12L*J23L*PDstandardNth12gxy + 2*J12L*J22L*PDstandardNth12gxz + - J13L*J21L*PDstandardNth12gyy + J11L*J23L*PDstandardNth12gyy - J12L*J21L*PDstandardNth12gyz - - J11L*J22L*PDstandardNth12gyz - J13L*J32L*PDstandardNth13gxy - J12L*J33L*PDstandardNth13gxy + - 2*J12L*J32L*PDstandardNth13gxz + J13L*J31L*PDstandardNth13gyy + J11L*J33L*PDstandardNth13gyy - - J12L*J31L*PDstandardNth13gyz - J11L*J32L*PDstandardNth13gyz - dJ123L*PDstandardNth1gxy + - dJ122L*PDstandardNth1gxz + dJ113L*PDstandardNth1gyy - dJ112L*PDstandardNth1gyz - - J22L*J23L*PDstandardNth22gxy + J21L*J23L*PDstandardNth22gyy - J21L*J22L*PDstandardNth22gyz - - J23L*J32L*PDstandardNth23gxy - J22L*J33L*PDstandardNth23gxy + 2*J22L*J32L*PDstandardNth23gxz + - J23L*J31L*PDstandardNth23gyy + J21L*J33L*PDstandardNth23gyy - J22L*J31L*PDstandardNth23gyz - - J21L*J32L*PDstandardNth23gyz - dJ223L*PDstandardNth2gxy + dJ222L*PDstandardNth2gxz + - dJ213L*PDstandardNth2gyy - dJ212L*PDstandardNth2gyz - J32L*J33L*PDstandardNth33gxy + - J31L*J33L*PDstandardNth33gyy - J31L*J32L*PDstandardNth33gyz - dJ323L*PDstandardNth3gxy + - dJ322L*PDstandardNth3gxz + dJ313L*PDstandardNth3gyy - dJ312L*PDstandardNth3gyz + - PDstandardNth11gxz*SQR(J12L) + PDstandardNth22gxz*SQR(J22L) + PDstandardNth33gxz*SQR(J32L)) + - gu33*(J12L*J13L*PDstandardNth11gxz + J11L*J13L*PDstandardNth11gyz - J11L*J12L*PDstandardNth11gzz - - 2*J13L*J23L*PDstandardNth12gxy + J13L*J22L*PDstandardNth12gxz + J12L*J23L*PDstandardNth12gxz + - J13L*J21L*PDstandardNth12gyz + J11L*J23L*PDstandardNth12gyz - J12L*J21L*PDstandardNth12gzz - - J11L*J22L*PDstandardNth12gzz - 2*J13L*J33L*PDstandardNth13gxy + J13L*J32L*PDstandardNth13gxz + - J12L*J33L*PDstandardNth13gxz + J13L*J31L*PDstandardNth13gyz + J11L*J33L*PDstandardNth13gyz - - J12L*J31L*PDstandardNth13gzz - J11L*J32L*PDstandardNth13gzz - dJ133L*PDstandardNth1gxy + - dJ123L*PDstandardNth1gxz + dJ113L*PDstandardNth1gyz - dJ112L*PDstandardNth1gzz + - J22L*J23L*PDstandardNth22gxz + J21L*J23L*PDstandardNth22gyz - J21L*J22L*PDstandardNth22gzz - - 2*J23L*J33L*PDstandardNth23gxy + J23L*J32L*PDstandardNth23gxz + J22L*J33L*PDstandardNth23gxz + - J23L*J31L*PDstandardNth23gyz + J21L*J33L*PDstandardNth23gyz - J22L*J31L*PDstandardNth23gzz - - J21L*J32L*PDstandardNth23gzz - dJ233L*PDstandardNth2gxy + dJ223L*PDstandardNth2gxz + - dJ213L*PDstandardNth2gyz - dJ212L*PDstandardNth2gzz + J32L*J33L*PDstandardNth33gxz + - J31L*J33L*PDstandardNth33gyz - J31L*J32L*PDstandardNth33gzz - dJ333L*PDstandardNth3gxy + - dJ323L*PDstandardNth3gxz + dJ313L*PDstandardNth3gyz - dJ312L*PDstandardNth3gzz - - PDstandardNth11gxy*SQR(J13L) - PDstandardNth22gxy*SQR(J23L) - PDstandardNth33gxy*SQR(J33L))); - - CCTK_REAL const R13 = -(G113*G122) + G112*G123 + G211*G213 + G212*G223 + G213*G233 - G213*(G211 + G222 + G233) + G311*G313 + - G312*G323 + G313*G333 - G313*(G311 + G322 + G333) + - khalf*(gu32*(J13L*J22L*PDstandardNth12gxz - J12L*J23L*PDstandardNth12gxz + - (-(J13L*J22L) + J12L*J23L)*PDstandardNth12gxz + J13L*J32L*PDstandardNth13gxz - J12L*J33L*PDstandardNth13gxz + - (-(J13L*J32L) + J12L*J33L)*PDstandardNth13gxz) + - gu33*(-(J13L*J21L*PDstandardNth12gzz) + J11L*J23L*PDstandardNth12gzz + - (J13L*J21L - J11L*J23L)*PDstandardNth12gzz - J13L*J31L*PDstandardNth13gzz + J11L*J33L*PDstandardNth13gzz + - (J13L*J31L - J11L*J33L)*PDstandardNth13gzz) + - gu21*(J12L*J13L*PDstandardNth11gxx - J11L*J13L*PDstandardNth11gxy - J11L*J12L*PDstandardNth11gxz + - J13L*J22L*PDstandardNth12gxx + J12L*J23L*PDstandardNth12gxx - J13L*J21L*PDstandardNth12gxy - - J11L*J23L*PDstandardNth12gxy - J12L*J21L*PDstandardNth12gxz - J11L*J22L*PDstandardNth12gxz + - 2*J11L*J21L*PDstandardNth12gyz + J13L*J32L*PDstandardNth13gxx + J12L*J33L*PDstandardNth13gxx - - J13L*J31L*PDstandardNth13gxy - J11L*J33L*PDstandardNth13gxy - J12L*J31L*PDstandardNth13gxz - - J11L*J32L*PDstandardNth13gxz + 2*J11L*J31L*PDstandardNth13gyz + dJ123L*PDstandardNth1gxx - - dJ113L*PDstandardNth1gxy - dJ112L*PDstandardNth1gxz + dJ111L*PDstandardNth1gyz + - J22L*J23L*PDstandardNth22gxx - J21L*J23L*PDstandardNth22gxy - J21L*J22L*PDstandardNth22gxz + - J23L*J32L*PDstandardNth23gxx + J22L*J33L*PDstandardNth23gxx - J23L*J31L*PDstandardNth23gxy - - J21L*J33L*PDstandardNth23gxy - J22L*J31L*PDstandardNth23gxz - J21L*J32L*PDstandardNth23gxz + - 2*J21L*J31L*PDstandardNth23gyz + dJ223L*PDstandardNth2gxx - dJ213L*PDstandardNth2gxy - - dJ212L*PDstandardNth2gxz + dJ211L*PDstandardNth2gyz + J32L*J33L*PDstandardNth33gxx - - J31L*J33L*PDstandardNth33gxy - J31L*J32L*PDstandardNth33gxz + dJ323L*PDstandardNth3gxx - - dJ313L*PDstandardNth3gxy - dJ312L*PDstandardNth3gxz + dJ311L*PDstandardNth3gyz + - PDstandardNth11gyz*SQR(J11L) + PDstandardNth22gyz*SQR(J21L) + PDstandardNth33gyz*SQR(J31L)) + - gu22*(J12L*J13L*PDstandardNth11gxy - J11L*J13L*PDstandardNth11gyy + J11L*J12L*PDstandardNth11gyz + - J13L*J22L*PDstandardNth12gxy + J12L*J23L*PDstandardNth12gxy - 2*J12L*J22L*PDstandardNth12gxz - - J13L*J21L*PDstandardNth12gyy - J11L*J23L*PDstandardNth12gyy + J12L*J21L*PDstandardNth12gyz + - J11L*J22L*PDstandardNth12gyz + J13L*J32L*PDstandardNth13gxy + J12L*J33L*PDstandardNth13gxy - - 2*J12L*J32L*PDstandardNth13gxz - J13L*J31L*PDstandardNth13gyy - J11L*J33L*PDstandardNth13gyy + - J12L*J31L*PDstandardNth13gyz + J11L*J32L*PDstandardNth13gyz + dJ123L*PDstandardNth1gxy - - dJ122L*PDstandardNth1gxz - dJ113L*PDstandardNth1gyy + dJ112L*PDstandardNth1gyz + - J22L*J23L*PDstandardNth22gxy - J21L*J23L*PDstandardNth22gyy + J21L*J22L*PDstandardNth22gyz + - J23L*J32L*PDstandardNth23gxy + J22L*J33L*PDstandardNth23gxy - 2*J22L*J32L*PDstandardNth23gxz - - J23L*J31L*PDstandardNth23gyy - J21L*J33L*PDstandardNth23gyy + J22L*J31L*PDstandardNth23gyz + - J21L*J32L*PDstandardNth23gyz + dJ223L*PDstandardNth2gxy - dJ222L*PDstandardNth2gxz - - dJ213L*PDstandardNth2gyy + dJ212L*PDstandardNth2gyz + J32L*J33L*PDstandardNth33gxy - - J31L*J33L*PDstandardNth33gyy + J31L*J32L*PDstandardNth33gyz + dJ323L*PDstandardNth3gxy - - dJ322L*PDstandardNth3gxz - dJ313L*PDstandardNth3gyy + dJ312L*PDstandardNth3gyz - - PDstandardNth11gxz*SQR(J12L) - PDstandardNth22gxz*SQR(J22L) - PDstandardNth33gxz*SQR(J32L)) + - gu31*(-2*J11L*J13L*PDstandardNth11gxz + 2*J13L*J23L*PDstandardNth12gxx - 2*J13L*J21L*PDstandardNth12gxz - - 2*J11L*J23L*PDstandardNth12gxz + 2*J11L*J21L*PDstandardNth12gzz + 2*J13L*J33L*PDstandardNth13gxx - - 2*J13L*J31L*PDstandardNth13gxz - 2*J11L*J33L*PDstandardNth13gxz + 2*J11L*J31L*PDstandardNth13gzz + - dJ133L*PDstandardNth1gxx - 2*dJ113L*PDstandardNth1gxz + dJ111L*PDstandardNth1gzz - - 2*J21L*J23L*PDstandardNth22gxz + 2*J23L*J33L*PDstandardNth23gxx - 2*J23L*J31L*PDstandardNth23gxz - - 2*J21L*J33L*PDstandardNth23gxz + 2*J21L*J31L*PDstandardNth23gzz + dJ233L*PDstandardNth2gxx - - 2*dJ213L*PDstandardNth2gxz + dJ211L*PDstandardNth2gzz - 2*J31L*J33L*PDstandardNth33gxz + - dJ333L*PDstandardNth3gxx - 2*dJ313L*PDstandardNth3gxz + dJ311L*PDstandardNth3gzz + - PDstandardNth11gzz*SQR(J11L) + PDstandardNth11gxx*SQR(J13L) + PDstandardNth22gzz*SQR(J21L) + - PDstandardNth22gxx*SQR(J23L) + PDstandardNth33gzz*SQR(J31L) + PDstandardNth33gxx*SQR(J33L)) + - gu32*(-(J12L*J13L*PDstandardNth11gxz) - J11L*J13L*PDstandardNth11gyz + J11L*J12L*PDstandardNth11gzz + - 2*J13L*J23L*PDstandardNth12gxy - J13L*J22L*PDstandardNth12gxz - J12L*J23L*PDstandardNth12gxz - - J13L*J21L*PDstandardNth12gyz - J11L*J23L*PDstandardNth12gyz + J12L*J21L*PDstandardNth12gzz + - J11L*J22L*PDstandardNth12gzz + 2*J13L*J33L*PDstandardNth13gxy - J13L*J32L*PDstandardNth13gxz - - J12L*J33L*PDstandardNth13gxz - J13L*J31L*PDstandardNth13gyz - J11L*J33L*PDstandardNth13gyz + - J12L*J31L*PDstandardNth13gzz + J11L*J32L*PDstandardNth13gzz + dJ133L*PDstandardNth1gxy - - dJ123L*PDstandardNth1gxz - dJ113L*PDstandardNth1gyz + dJ112L*PDstandardNth1gzz - - J22L*J23L*PDstandardNth22gxz - J21L*J23L*PDstandardNth22gyz + J21L*J22L*PDstandardNth22gzz + - 2*J23L*J33L*PDstandardNth23gxy - J23L*J32L*PDstandardNth23gxz - J22L*J33L*PDstandardNth23gxz - - J23L*J31L*PDstandardNth23gyz - J21L*J33L*PDstandardNth23gyz + J22L*J31L*PDstandardNth23gzz + - J21L*J32L*PDstandardNth23gzz + dJ233L*PDstandardNth2gxy - dJ223L*PDstandardNth2gxz - - dJ213L*PDstandardNth2gyz + dJ212L*PDstandardNth2gzz - J32L*J33L*PDstandardNth33gxz - - J31L*J33L*PDstandardNth33gyz + J31L*J32L*PDstandardNth33gzz + dJ333L*PDstandardNth3gxy - - dJ323L*PDstandardNth3gxz - dJ313L*PDstandardNth3gyz + dJ312L*PDstandardNth3gzz + - PDstandardNth11gxy*SQR(J13L) + PDstandardNth22gxy*SQR(J23L) + PDstandardNth33gxy*SQR(J33L))); - - CCTK_REAL const R22 = khalf*(-(dJ122L*gu11*PDstandardNth1gxx) + - gu31*(-4*J12L*J22L*PDstandardNth12gxz - 2*J13L*J21L*PDstandardNth12gyy + 2*J11L*J22L*PDstandardNth12gyz + - 2*J13L*J32L*PDstandardNth13gxy - 4*J12L*J32L*PDstandardNth13gxz - 2*J13L*J31L*PDstandardNth13gyy + - 2*J11L*J32L*PDstandardNth13gyz + 2*dJ123L*PDstandardNth1gxy) + - 2*(gu11*J11L*J12L*PDstandardNth11gxy + gu31*J12L*J13L*PDstandardNth11gxy + gu31*J11L*J12L*PDstandardNth11gyz + - gu33*J12L*J13L*PDstandardNth11gyz + gu11*J12L*J21L*PDstandardNth12gxy + gu11*J11L*J22L*PDstandardNth12gxy + - gu31*J13L*J22L*PDstandardNth12gxy + gu31*J12L*J23L*PDstandardNth12gxy + gu31*J12L*J21L*PDstandardNth12gyz + - gu33*J13L*J22L*PDstandardNth12gyz + gu33*J12L*J23L*PDstandardNth12gyz + gu11*J12L*J31L*PDstandardNth13gxy + - gu11*J11L*J32L*PDstandardNth13gxy + gu31*J12L*J33L*PDstandardNth13gxy + gu31*J12L*J31L*PDstandardNth13gyz + - gu33*J13L*J32L*PDstandardNth13gyz + gu33*J12L*J33L*PDstandardNth13gyz + dJ112L*gu11*PDstandardNth1gxy) - - 2*(G111*G122 + G122*G133 + G211*G222 + G222*G233 + G311*G322 + G322*G333 + gu31*J11L*J13L*PDstandardNth11gyy + - gu11*J12L*J22L*PDstandardNth12gxx + gu11*J11L*J21L*PDstandardNth12gyy + gu31*J11L*J23L*PDstandardNth12gyy + - gu33*J13L*J23L*PDstandardNth12gyy + gu33*J12L*J22L*PDstandardNth12gzz + gu11*J12L*J32L*PDstandardNth13gxx + - gu11*J11L*J31L*PDstandardNth13gyy + gu31*J11L*J33L*PDstandardNth13gyy + gu33*J13L*J33L*PDstandardNth13gyy + - gu33*J12L*J32L*PDstandardNth13gzz + dJ122L*gu31*PDstandardNth1gxz) - dJ111L*gu11*PDstandardNth1gyy - - 2*dJ113L*gu31*PDstandardNth1gyy - dJ133L*gu33*PDstandardNth1gyy + 2*dJ112L*gu31*PDstandardNth1gyz + - 2*dJ123L*gu33*PDstandardNth1gyz - dJ122L*gu33*PDstandardNth1gzz + 2*gu11*J21L*J22L*PDstandardNth22gxy + - 2*gu31*J22L*J23L*PDstandardNth22gxy - 2*gu31*J21L*J23L*PDstandardNth22gyy + 2*gu31*J21L*J22L*PDstandardNth22gyz + - 2*gu33*J22L*J23L*PDstandardNth22gyz - 2*gu11*J22L*J32L*PDstandardNth23gxx + 2*gu11*J22L*J31L*PDstandardNth23gxy + - 2*gu11*J21L*J32L*PDstandardNth23gxy + 2*gu31*J23L*J32L*PDstandardNth23gxy + 2*gu31*J22L*J33L*PDstandardNth23gxy - - 4*gu31*J22L*J32L*PDstandardNth23gxz - 2*gu11*J21L*J31L*PDstandardNth23gyy - 2*gu31*J23L*J31L*PDstandardNth23gyy - - 2*gu31*J21L*J33L*PDstandardNth23gyy - 2*gu33*J23L*J33L*PDstandardNth23gyy + 2*gu31*J22L*J31L*PDstandardNth23gyz + - 2*gu31*J21L*J32L*PDstandardNth23gyz + 2*gu33*J23L*J32L*PDstandardNth23gyz + 2*gu33*J22L*J33L*PDstandardNth23gyz - - 2*gu33*J22L*J32L*PDstandardNth23gzz - dJ222L*gu11*PDstandardNth2gxx + 2*dJ212L*gu11*PDstandardNth2gxy + - 2*dJ223L*gu31*PDstandardNth2gxy - 2*dJ222L*gu31*PDstandardNth2gxz - dJ211L*gu11*PDstandardNth2gyy - - 2*dJ213L*gu31*PDstandardNth2gyy - dJ233L*gu33*PDstandardNth2gyy + 2*dJ212L*gu31*PDstandardNth2gyz + - 2*dJ223L*gu33*PDstandardNth2gyz - dJ222L*gu33*PDstandardNth2gzz + 2*gu11*J31L*J32L*PDstandardNth33gxy + - 2*gu31*J32L*J33L*PDstandardNth33gxy - 2*gu31*J31L*J33L*PDstandardNth33gyy + 2*gu31*J31L*J32L*PDstandardNth33gyz + - 2*gu33*J32L*J33L*PDstandardNth33gyz - dJ322L*gu11*PDstandardNth3gxx + 2*dJ312L*gu11*PDstandardNth3gxy + - 2*dJ323L*gu31*PDstandardNth3gxy - 2*dJ322L*gu31*PDstandardNth3gxz - dJ311L*gu11*PDstandardNth3gyy - - 2*dJ313L*gu31*PDstandardNth3gyy - dJ333L*gu33*PDstandardNth3gyy + 2*dJ312L*gu31*PDstandardNth3gyz + - 2*dJ323L*gu33*PDstandardNth3gyz - dJ322L*gu33*PDstandardNth3gzz + 2*SQR(G112) + 2*SQR(G123) + 2*SQR(G212) + - 2*SQR(G223) + 2*SQR(G312) + 2*SQR(G323) - gu11*PDstandardNth11gyy*SQR(J11L) - gu11*PDstandardNth11gxx*SQR(J12L) - - 2*gu31*PDstandardNth11gxz*SQR(J12L) - gu33*PDstandardNth11gzz*SQR(J12L) - gu33*PDstandardNth11gyy*SQR(J13L) - - gu11*PDstandardNth22gyy*SQR(J21L) - gu11*PDstandardNth22gxx*SQR(J22L) - 2*gu31*PDstandardNth22gxz*SQR(J22L) - - gu33*PDstandardNth22gzz*SQR(J22L) - gu33*PDstandardNth22gyy*SQR(J23L) - gu11*PDstandardNth33gyy*SQR(J31L) - - gu11*PDstandardNth33gxx*SQR(J32L) - 2*gu31*PDstandardNth33gxz*SQR(J32L) - gu33*PDstandardNth33gzz*SQR(J32L) - - gu33*PDstandardNth33gyy*SQR(J33L)); - - CCTK_REAL const R23 = G112*G113 - G111*G123 + G212*G213 + G222*G223 + G223*G233 - G223*(G211 + G222 + G233) + G312*G313 + G322*G323 + - G323*G333 - G323*(G311 + G322 + G333) + khalf* - (gu31*(-(J13L*J22L*PDstandardNth12gxz) + J12L*J23L*PDstandardNth12gxz + - (J13L*J22L - J12L*J23L)*PDstandardNth12gxz - J13L*J32L*PDstandardNth13gxz + J12L*J33L*PDstandardNth13gxz + - (J13L*J32L - J12L*J33L)*PDstandardNth13gxz) + - gu33*(-(J13L*J22L*PDstandardNth12gzz) + J12L*J23L*PDstandardNth12gzz + - (J13L*J22L - J12L*J23L)*PDstandardNth12gzz - J13L*J32L*PDstandardNth13gzz + J12L*J33L*PDstandardNth13gzz + - (J13L*J32L - J12L*J33L)*PDstandardNth13gzz) + - gu11*(-(J12L*J13L*PDstandardNth11gxx) + J11L*J13L*PDstandardNth11gxy + J11L*J12L*PDstandardNth11gxz - - J13L*J22L*PDstandardNth12gxx - J12L*J23L*PDstandardNth12gxx + J13L*J21L*PDstandardNth12gxy + - J11L*J23L*PDstandardNth12gxy + J12L*J21L*PDstandardNth12gxz + J11L*J22L*PDstandardNth12gxz - - 2*J11L*J21L*PDstandardNth12gyz - J13L*J32L*PDstandardNth13gxx - J12L*J33L*PDstandardNth13gxx + - J13L*J31L*PDstandardNth13gxy + J11L*J33L*PDstandardNth13gxy + J12L*J31L*PDstandardNth13gxz + - J11L*J32L*PDstandardNth13gxz - 2*J11L*J31L*PDstandardNth13gyz - dJ123L*PDstandardNth1gxx + - dJ113L*PDstandardNth1gxy + dJ112L*PDstandardNth1gxz - dJ111L*PDstandardNth1gyz - - J22L*J23L*PDstandardNth22gxx + J21L*J23L*PDstandardNth22gxy + J21L*J22L*PDstandardNth22gxz - - J23L*J32L*PDstandardNth23gxx - J22L*J33L*PDstandardNth23gxx + J23L*J31L*PDstandardNth23gxy + - J21L*J33L*PDstandardNth23gxy + J22L*J31L*PDstandardNth23gxz + J21L*J32L*PDstandardNth23gxz - - 2*J21L*J31L*PDstandardNth23gyz - dJ223L*PDstandardNth2gxx + dJ213L*PDstandardNth2gxy + - dJ212L*PDstandardNth2gxz - dJ211L*PDstandardNth2gyz - J32L*J33L*PDstandardNth33gxx + - J31L*J33L*PDstandardNth33gxy + J31L*J32L*PDstandardNth33gxz - dJ323L*PDstandardNth3gxx + - dJ313L*PDstandardNth3gxy + dJ312L*PDstandardNth3gxz - dJ311L*PDstandardNth3gyz - - PDstandardNth11gyz*SQR(J11L) - PDstandardNth22gyz*SQR(J21L) - PDstandardNth33gyz*SQR(J31L)) + - gu21*(-(J12L*J13L*PDstandardNth11gxy) + J11L*J13L*PDstandardNth11gyy - J11L*J12L*PDstandardNth11gyz - - J13L*J22L*PDstandardNth12gxy - J12L*J23L*PDstandardNth12gxy + 2*J12L*J22L*PDstandardNth12gxz + - J13L*J21L*PDstandardNth12gyy + J11L*J23L*PDstandardNth12gyy - J12L*J21L*PDstandardNth12gyz - - J11L*J22L*PDstandardNth12gyz - J13L*J32L*PDstandardNth13gxy - J12L*J33L*PDstandardNth13gxy + - 2*J12L*J32L*PDstandardNth13gxz + J13L*J31L*PDstandardNth13gyy + J11L*J33L*PDstandardNth13gyy - - J12L*J31L*PDstandardNth13gyz - J11L*J32L*PDstandardNth13gyz - dJ123L*PDstandardNth1gxy + - dJ122L*PDstandardNth1gxz + dJ113L*PDstandardNth1gyy - dJ112L*PDstandardNth1gyz - - J22L*J23L*PDstandardNth22gxy + J21L*J23L*PDstandardNth22gyy - J21L*J22L*PDstandardNth22gyz - - J23L*J32L*PDstandardNth23gxy - J22L*J33L*PDstandardNth23gxy + 2*J22L*J32L*PDstandardNth23gxz + - J23L*J31L*PDstandardNth23gyy + J21L*J33L*PDstandardNth23gyy - J22L*J31L*PDstandardNth23gyz - - J21L*J32L*PDstandardNth23gyz - dJ223L*PDstandardNth2gxy + dJ222L*PDstandardNth2gxz + - dJ213L*PDstandardNth2gyy - dJ212L*PDstandardNth2gyz - J32L*J33L*PDstandardNth33gxy + - J31L*J33L*PDstandardNth33gyy - J31L*J32L*PDstandardNth33gyz - dJ323L*PDstandardNth3gxy + - dJ322L*PDstandardNth3gxz + dJ313L*PDstandardNth3gyy - dJ312L*PDstandardNth3gyz + - PDstandardNth11gxz*SQR(J12L) + PDstandardNth22gxz*SQR(J22L) + PDstandardNth33gxz*SQR(J32L)) + - gu31*(-(J12L*J13L*PDstandardNth11gxz) - J11L*J13L*PDstandardNth11gyz + J11L*J12L*PDstandardNth11gzz + - 2*J13L*J23L*PDstandardNth12gxy - J13L*J22L*PDstandardNth12gxz - J12L*J23L*PDstandardNth12gxz - - J13L*J21L*PDstandardNth12gyz - J11L*J23L*PDstandardNth12gyz + J12L*J21L*PDstandardNth12gzz + - J11L*J22L*PDstandardNth12gzz + 2*J13L*J33L*PDstandardNth13gxy - J13L*J32L*PDstandardNth13gxz - - J12L*J33L*PDstandardNth13gxz - J13L*J31L*PDstandardNth13gyz - J11L*J33L*PDstandardNth13gyz + - J12L*J31L*PDstandardNth13gzz + J11L*J32L*PDstandardNth13gzz + dJ133L*PDstandardNth1gxy - - dJ123L*PDstandardNth1gxz - dJ113L*PDstandardNth1gyz + dJ112L*PDstandardNth1gzz - - J22L*J23L*PDstandardNth22gxz - J21L*J23L*PDstandardNth22gyz + J21L*J22L*PDstandardNth22gzz + - 2*J23L*J33L*PDstandardNth23gxy - J23L*J32L*PDstandardNth23gxz - J22L*J33L*PDstandardNth23gxz - - J23L*J31L*PDstandardNth23gyz - J21L*J33L*PDstandardNth23gyz + J22L*J31L*PDstandardNth23gzz + - J21L*J32L*PDstandardNth23gzz + dJ233L*PDstandardNth2gxy - dJ223L*PDstandardNth2gxz - - dJ213L*PDstandardNth2gyz + dJ212L*PDstandardNth2gzz - J32L*J33L*PDstandardNth33gxz - - J31L*J33L*PDstandardNth33gyz + J31L*J32L*PDstandardNth33gzz + dJ333L*PDstandardNth3gxy - - dJ323L*PDstandardNth3gxz - dJ313L*PDstandardNth3gyz + dJ312L*PDstandardNth3gzz + - PDstandardNth11gxy*SQR(J13L) + PDstandardNth22gxy*SQR(J23L) + PDstandardNth33gxy*SQR(J33L)) + - gu32*(-2*J12L*J13L*PDstandardNth11gyz + 2*J13L*J23L*PDstandardNth12gyy - 2*J13L*J22L*PDstandardNth12gyz - - 2*J12L*J23L*PDstandardNth12gyz + 2*J12L*J22L*PDstandardNth12gzz + 2*J13L*J33L*PDstandardNth13gyy - - 2*J13L*J32L*PDstandardNth13gyz - 2*J12L*J33L*PDstandardNth13gyz + 2*J12L*J32L*PDstandardNth13gzz + - dJ133L*PDstandardNth1gyy - 2*dJ123L*PDstandardNth1gyz + dJ122L*PDstandardNth1gzz - - 2*J22L*J23L*PDstandardNth22gyz + 2*J23L*J33L*PDstandardNth23gyy - 2*J23L*J32L*PDstandardNth23gyz - - 2*J22L*J33L*PDstandardNth23gyz + 2*J22L*J32L*PDstandardNth23gzz + dJ233L*PDstandardNth2gyy - - 2*dJ223L*PDstandardNth2gyz + dJ222L*PDstandardNth2gzz - 2*J32L*J33L*PDstandardNth33gyz + - dJ333L*PDstandardNth3gyy - 2*dJ323L*PDstandardNth3gyz + dJ322L*PDstandardNth3gzz + - PDstandardNth11gzz*SQR(J12L) + PDstandardNth11gyy*SQR(J13L) + PDstandardNth22gzz*SQR(J22L) + - PDstandardNth22gyy*SQR(J23L) + PDstandardNth33gzz*SQR(J32L) + PDstandardNth33gyy*SQR(J33L))); - - CCTK_REAL const R33 = khalf*(-(dJ133L*gu11*PDstandardNth1gxx) + - gu21*(-4*J13L*J23L*PDstandardNth12gxy + 2*J13L*J22L*PDstandardNth12gxz + 2*J13L*J21L*PDstandardNth12gyz - - 2*J12L*J21L*PDstandardNth12gzz - 4*J13L*J33L*PDstandardNth13gxy + 2*J13L*J32L*PDstandardNth13gxz + - 2*J13L*J31L*PDstandardNth13gyz - 2*J12L*J31L*PDstandardNth13gzz - 2*dJ133L*PDstandardNth1gxy) + - 2*dJ123L*gu21*PDstandardNth1gxz + 2*(gu11*J11L*J13L*PDstandardNth11gxz + gu21*J12L*J13L*PDstandardNth11gxz + - gu21*J11L*J13L*PDstandardNth11gyz + gu22*J12L*J13L*PDstandardNth11gyz + gu11*J13L*J21L*PDstandardNth12gxz + - gu11*J11L*J23L*PDstandardNth12gxz + gu21*J12L*J23L*PDstandardNth12gxz + gu22*J13L*J22L*PDstandardNth12gyz + - gu21*J11L*J23L*PDstandardNth12gyz + gu22*J12L*J23L*PDstandardNth12gyz + gu11*J13L*J31L*PDstandardNth13gxz + - gu11*J11L*J33L*PDstandardNth13gxz + gu21*J12L*J33L*PDstandardNth13gxz + gu22*J13L*J32L*PDstandardNth13gyz + - gu21*J11L*J33L*PDstandardNth13gyz + gu22*J12L*J33L*PDstandardNth13gyz + dJ113L*gu11*PDstandardNth1gxz) - - dJ133L*gu22*PDstandardNth1gyy + 2*dJ113L*gu21*PDstandardNth1gyz + 2*dJ123L*gu22*PDstandardNth1gyz - - dJ111L*gu11*PDstandardNth1gzz - dJ122L*gu22*PDstandardNth1gzz - - 2*(G111*G133 + G122*G133 + G211*G233 + G222*G233 + G311*G333 + G322*G333 + gu21*J11L*J12L*PDstandardNth11gzz + - gu11*J13L*J23L*PDstandardNth12gxx + gu22*J13L*J23L*PDstandardNth12gyy + gu11*J11L*J21L*PDstandardNth12gzz + - gu21*J11L*J22L*PDstandardNth12gzz + gu22*J12L*J22L*PDstandardNth12gzz + gu11*J13L*J33L*PDstandardNth13gxx + - gu22*J13L*J33L*PDstandardNth13gyy + gu11*J11L*J31L*PDstandardNth13gzz + gu21*J11L*J32L*PDstandardNth13gzz + - gu22*J12L*J32L*PDstandardNth13gzz + dJ112L*gu21*PDstandardNth1gzz) + 2*gu11*J21L*J23L*PDstandardNth22gxz + - 2*gu21*J22L*J23L*PDstandardNth22gxz + 2*gu21*J21L*J23L*PDstandardNth22gyz + 2*gu22*J22L*J23L*PDstandardNth22gyz - - 2*gu21*J21L*J22L*PDstandardNth22gzz - 2*gu11*J23L*J33L*PDstandardNth23gxx - 4*gu21*J23L*J33L*PDstandardNth23gxy + - 2*gu11*J23L*J31L*PDstandardNth23gxz + 2*gu21*J23L*J32L*PDstandardNth23gxz + 2*gu11*J21L*J33L*PDstandardNth23gxz + - 2*gu21*J22L*J33L*PDstandardNth23gxz - 2*gu22*J23L*J33L*PDstandardNth23gyy + 2*gu21*J23L*J31L*PDstandardNth23gyz + - 2*gu22*J23L*J32L*PDstandardNth23gyz + 2*gu21*J21L*J33L*PDstandardNth23gyz + 2*gu22*J22L*J33L*PDstandardNth23gyz - - 2*gu11*J21L*J31L*PDstandardNth23gzz - 2*gu21*J22L*J31L*PDstandardNth23gzz - 2*gu21*J21L*J32L*PDstandardNth23gzz - - 2*gu22*J22L*J32L*PDstandardNth23gzz - dJ233L*gu11*PDstandardNth2gxx - 2*dJ233L*gu21*PDstandardNth2gxy + - 2*dJ213L*gu11*PDstandardNth2gxz + 2*dJ223L*gu21*PDstandardNth2gxz - dJ233L*gu22*PDstandardNth2gyy + - 2*dJ213L*gu21*PDstandardNth2gyz + 2*dJ223L*gu22*PDstandardNth2gyz - dJ211L*gu11*PDstandardNth2gzz - - 2*dJ212L*gu21*PDstandardNth2gzz - dJ222L*gu22*PDstandardNth2gzz + 2*gu11*J31L*J33L*PDstandardNth33gxz + - 2*gu21*J32L*J33L*PDstandardNth33gxz + 2*gu21*J31L*J33L*PDstandardNth33gyz + 2*gu22*J32L*J33L*PDstandardNth33gyz - - 2*gu21*J31L*J32L*PDstandardNth33gzz - dJ333L*gu11*PDstandardNth3gxx - 2*dJ333L*gu21*PDstandardNth3gxy + - 2*dJ313L*gu11*PDstandardNth3gxz + 2*dJ323L*gu21*PDstandardNth3gxz - dJ333L*gu22*PDstandardNth3gyy + - 2*dJ313L*gu21*PDstandardNth3gyz + 2*dJ323L*gu22*PDstandardNth3gyz - dJ311L*gu11*PDstandardNth3gzz - - 2*dJ312L*gu21*PDstandardNth3gzz - dJ322L*gu22*PDstandardNth3gzz + 2*SQR(G113) + 2*SQR(G123) + 2*SQR(G213) + - 2*SQR(G223) + 2*SQR(G313) + 2*SQR(G323) - gu11*PDstandardNth11gzz*SQR(J11L) - gu22*PDstandardNth11gzz*SQR(J12L) - - gu11*PDstandardNth11gxx*SQR(J13L) - 2*gu21*PDstandardNth11gxy*SQR(J13L) - gu22*PDstandardNth11gyy*SQR(J13L) - - gu11*PDstandardNth22gzz*SQR(J21L) - gu22*PDstandardNth22gzz*SQR(J22L) - gu11*PDstandardNth22gxx*SQR(J23L) - - 2*gu21*PDstandardNth22gxy*SQR(J23L) - gu22*PDstandardNth22gyy*SQR(J23L) - gu11*PDstandardNth33gzz*SQR(J31L) - - gu22*PDstandardNth33gzz*SQR(J32L) - gu11*PDstandardNth33gxx*SQR(J33L) - 2*gu21*PDstandardNth33gxy*SQR(J33L) - - gu22*PDstandardNth33gyy*SQR(J33L)); - - CCTK_REAL const trR = gu11*R11 + gu22*R22 + 2*(gu21*R12 + gu31*R13 + gu32*R23) + gu33*R33; - - CCTK_REAL const Km11 = gu11*kxxL + gu21*kxyL + gu31*kxzL; - - CCTK_REAL const Km21 = gu21*kxxL + gu22*kxyL + gu32*kxzL; - - CCTK_REAL const Km31 = gu31*kxxL + gu32*kxyL + gu33*kxzL; - - CCTK_REAL const Km12 = gu11*kxyL + gu21*kyyL + gu31*kyzL; - - CCTK_REAL const Km22 = gu21*kxyL + gu22*kyyL + gu32*kyzL; - - CCTK_REAL const Km32 = gu31*kxyL + gu32*kyyL + gu33*kyzL; - - CCTK_REAL const Km13 = gu11*kxzL + gu21*kyzL + gu31*kzzL; - - CCTK_REAL const Km23 = gu21*kxzL + gu22*kyzL + gu32*kzzL; - - CCTK_REAL const Km33 = gu31*kxzL + gu32*kyzL + gu33*kzzL; - - CCTK_REAL const trK = Km11 + Km22 + Km33; - - CCTK_REAL const T00 = eTttL; - - CCTK_REAL const T01 = eTtxL; - - CCTK_REAL const T02 = eTtyL; - - CCTK_REAL const T03 = eTtzL; - - CCTK_REAL const T11 = eTxxL; - - CCTK_REAL const T12 = eTxyL; - - CCTK_REAL const T13 = eTxzL; - - CCTK_REAL const T22 = eTyyL; - - CCTK_REAL const T23 = eTyzL; - - CCTK_REAL const T33 = eTzzL; - - CCTK_REAL const rho = pow(alpL,-2)*(T00 - 2*(betayL*T02 + betazL*T03) + - 2*(betaxL*(-T01 + betayL*T12 + betazL*T13) + betayL*betazL*T23) + T11*SQR(betaxL) + T22*SQR(betayL) + - T33*SQR(betazL)); - - CCTK_REAL const S1 = (-T01 + betaxL*T11 + betayL*T12 + betazL*T13)*INV(alpL); - - CCTK_REAL const S2 = (-T02 + betaxL*T12 + betayL*T22 + betazL*T23)*INV(alpL); - - CCTK_REAL const S3 = (-T03 + betaxL*T13 + betayL*T23 + betazL*T33)*INV(alpL); - - CCTK_REAL const HL = -2*(Km12*Km21 + Km13*Km31 + Km23*Km32) - 50.26548245743669181540229413247204614715*rho + trR - SQR(Km11) - - SQR(Km22) - SQR(Km33) + SQR(trK); - - CCTK_REAL const M1L = gu21*(-(G112*kxxL) + G111*kxyL - G212*kxyL - G312*kxzL + G211*kyyL + G311*kyzL + J12L*PDstandardNth1kxx - - J11L*PDstandardNth1kxy + J22L*PDstandardNth2kxx - J21L*PDstandardNth2kxy + J32L*PDstandardNth3kxx - - J31L*PDstandardNth3kxy) + gu31*(-(G113*kxxL) - G213*kxyL + G111*kxzL - G313*kxzL + G211*kyzL + G311*kzzL + - J13L*PDstandardNth1kxx - J11L*PDstandardNth1kxz + J23L*PDstandardNth2kxx - J21L*PDstandardNth2kxz + - J33L*PDstandardNth3kxx - J31L*PDstandardNth3kxz) + - gu22*(-(G122*kxxL) + G112*kxyL - G222*kxyL - G322*kxzL + G212*kyyL + G312*kyzL + J12L*PDstandardNth1kxy - - J11L*PDstandardNth1kyy + J22L*PDstandardNth2kxy - J21L*PDstandardNth2kyy + J32L*PDstandardNth3kxy - - J31L*PDstandardNth3kyy) + gu32*(G113*kxyL + G112*kxzL + G213*kyyL + (G212 + G313)*kyzL + G312*kzzL + - J13L*PDstandardNth1kxy + J12L*PDstandardNth1kxz + J23L*PDstandardNth2kxy + J22L*PDstandardNth2kxz + - J33L*PDstandardNth3kxy + J32L*PDstandardNth3kxz - - 2*(G123*kxxL + G223*kxyL + G323*kxzL + J11L*PDstandardNth1kyz + J21L*PDstandardNth2kyz + J31L*PDstandardNth3kyz)) - + gu33*(-(G133*kxxL) - G233*kxyL + G113*kxzL - G333*kxzL + G213*kyzL + G313*kzzL + J13L*PDstandardNth1kxz - - J11L*PDstandardNth1kzz + J23L*PDstandardNth2kxz - J21L*PDstandardNth2kzz + J33L*PDstandardNth3kxz - - J31L*PDstandardNth3kzz) - 25.13274122871834590770114706623602307358*S1; - - CCTK_REAL const M2L = gu11*(G112*kxxL + (-G111 + G212)*kxyL + G312*kxzL - G211*kyyL - G311*kyzL - J12L*PDstandardNth1kxx + - J11L*PDstandardNth1kxy - J22L*PDstandardNth2kxx + J21L*PDstandardNth2kxy - J32L*PDstandardNth3kxx + - J31L*PDstandardNth3kxy) + gu21*(G122*kxxL + (-G112 + G222)*kxyL + G322*kxzL - G212*kyyL - G312*kyzL - - J12L*PDstandardNth1kxy + J11L*PDstandardNth1kyy - J22L*PDstandardNth2kxy + J21L*PDstandardNth2kyy - - J32L*PDstandardNth3kxy + J31L*PDstandardNth3kyy) + - gu31*(G123*kxxL + (-2*G113 + G223)*kxyL + (G112 + G323)*kxzL + G212*kyzL + G312*kzzL + J13L*PDstandardNth1kxy + - J11L*PDstandardNth1kyz + J23L*PDstandardNth2kxy + J21L*PDstandardNth2kyz + J33L*PDstandardNth3kxy - - 2*(G213*kyyL + G313*kyzL + J12L*PDstandardNth1kxz + J22L*PDstandardNth2kxz + J32L*PDstandardNth3kxz) + - J31L*PDstandardNth3kyz) + gu32*(-(G123*kxyL) + G122*kxzL - G223*kyyL + G222*kyzL - G323*kyzL + G322*kzzL + - J13L*PDstandardNth1kyy - J12L*PDstandardNth1kyz + J23L*PDstandardNth2kyy - J22L*PDstandardNth2kyz + - J33L*PDstandardNth3kyy - J32L*PDstandardNth3kyz) + - gu33*(-(G133*kxyL) + G123*kxzL - G233*kyyL + G223*kyzL - G333*kyzL + G323*kzzL + J13L*PDstandardNth1kyz - - J12L*PDstandardNth1kzz + J23L*PDstandardNth2kyz - J22L*PDstandardNth2kzz + J33L*PDstandardNth3kyz - - J32L*PDstandardNth3kzz) - 25.13274122871834590770114706623602307358*S2; - - CCTK_REAL const M3L = gu11*(G113*kxxL + G213*kxyL + (-G111 + G313)*kxzL - G211*kyzL - G311*kzzL - J13L*PDstandardNth1kxx + - J11L*PDstandardNth1kxz - J23L*PDstandardNth2kxx + J21L*PDstandardNth2kxz - J33L*PDstandardNth3kxx + - J31L*PDstandardNth3kxz) + gu21*(G123*kxxL + (G113 + G223)*kxyL + (-2*G112 + G323)*kxzL + G213*kyyL + - (-2*G212 + G313)*kyzL + J12L*PDstandardNth1kxz + J11L*PDstandardNth1kyz + J22L*PDstandardNth2kxz + - J21L*PDstandardNth2kyz - 2*(G312*kzzL + J13L*PDstandardNth1kxy + J23L*PDstandardNth2kxy + - J33L*PDstandardNth3kxy) + J32L*PDstandardNth3kxz + J31L*PDstandardNth3kyz) + - gu22*(G123*kxyL - G122*kxzL + G223*kyyL - G222*kyzL + G323*kyzL - G322*kzzL - J13L*PDstandardNth1kyy + - J12L*PDstandardNth1kyz - J23L*PDstandardNth2kyy + J22L*PDstandardNth2kyz - J33L*PDstandardNth3kyy + - J32L*PDstandardNth3kyz) + gu31*(G133*kxxL + G233*kxyL + (-G113 + G333)*kxzL - G213*kyzL - G313*kzzL - - J13L*PDstandardNth1kxz + J11L*PDstandardNth1kzz - J23L*PDstandardNth2kxz + J21L*PDstandardNth2kzz - - J33L*PDstandardNth3kxz + J31L*PDstandardNth3kzz) + - gu32*(G133*kxyL - G123*kxzL + G233*kyyL - G223*kyzL + G333*kyzL - G323*kzzL - J13L*PDstandardNth1kyz + - J12L*PDstandardNth1kzz - J23L*PDstandardNth2kyz + J22L*PDstandardNth2kzz - J33L*PDstandardNth3kyz + - J32L*PDstandardNth3kzz) - 25.13274122871834590770114706623602307358*S3; - - - /* Copy local copies back to grid functions */ - H[index] = HL; - M1[index] = M1L; - M2[index] = M2L; - M3[index] = M3L; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_ADMConstraints_MP_M); -} - -void ML_ADMConstraints_MP_M(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverInterior(cctkGH, &ML_ADMConstraints_MP_M_Body); -} diff --git a/ML_ADMConstraints_MP_M/src/ML_ADMConstraints_MP_M_boundary.c b/ML_ADMConstraints_MP_M/src/ML_ADMConstraints_MP_M_boundary.c deleted file mode 100644 index 617dc50..0000000 --- a/ML_ADMConstraints_MP_M/src/ML_ADMConstraints_MP_M_boundary.c +++ /dev/null @@ -1,147 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_ADMConstraints_MP_M_boundary_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; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - - /* Declare predefined quantities */ - // CCTK_REAL p1o12dx = INITVALUE; - // CCTK_REAL p1o12dy = INITVALUE; - // CCTK_REAL p1o12dz = INITVALUE; - // CCTK_REAL p1o144dxdy = INITVALUE; - // CCTK_REAL p1o144dxdz = INITVALUE; - // CCTK_REAL p1o144dydz = INITVALUE; - // CCTK_REAL p1odx = INITVALUE; - // CCTK_REAL p1ody = INITVALUE; - // CCTK_REAL p1odz = INITVALUE; - // CCTK_REAL pm1o12dx2 = INITVALUE; - // CCTK_REAL pm1o12dy2 = INITVALUE; - // CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_ADMConstraints_MP_M_boundary_Body"); - } - - if (cctk_iteration % ML_ADMConstraints_MP_M_boundary_calc_every != ML_ADMConstraints_MP_M_boundary_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - CCTK_REAL const dx = CCTK_DELTA_SPACE(0); - CCTK_REAL const dy = CCTK_DELTA_SPACE(1); - CCTK_REAL const dz = CCTK_DELTA_SPACE(2); - int const di = 1; - int const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); - int const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - CCTK_REAL const dxi = 1.0 / dx; - CCTK_REAL const dyi = 1.0 / dy; - CCTK_REAL const dzi = 1.0 / dz; - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - CCTK_REAL const p1o12dx = INV(dx)/12.; - CCTK_REAL const p1o12dy = INV(dy)/12.; - CCTK_REAL const p1o12dz = INV(dz)/12.; - CCTK_REAL const p1o144dxdy = (INV(dx)*INV(dy))/144.; - CCTK_REAL const p1o144dxdz = (INV(dx)*INV(dz))/144.; - CCTK_REAL const p1o144dydz = (INV(dy)*INV(dz))/144.; - CCTK_REAL const p1odx = INV(dx); - CCTK_REAL const p1ody = INV(dy); - CCTK_REAL const p1odz = INV(dz); - CCTK_REAL const pm1o12dx2 = -pow(dx,-2)/12.; - CCTK_REAL const pm1o12dy2 = -pow(dy,-2)/12.; - CCTK_REAL const pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_ADMConstraints_MP_M_boundary, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - // int index = INITVALUE; - // int subblock_index = INITVALUE; - int const index = CCTK_GFINDEX3D(cctkGH,i,j,k); - int const subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - - /* Declare local copies of grid functions */ - // CCTK_REAL HL = INITVALUE; - // CCTK_REAL M1L = INITVALUE, M2L = INITVALUE, M3L = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - - /* Assign local copies of grid functions */ - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - CCTK_REAL const HL = 0; - - CCTK_REAL const M1L = 0; - - CCTK_REAL const M2L = 0; - - CCTK_REAL const M3L = 0; - - - /* Copy local copies back to grid functions */ - H[index] = HL; - M1[index] = M1L; - M2[index] = M2L; - M3[index] = M3L; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_ADMConstraints_MP_M_boundary); -} - -void ML_ADMConstraints_MP_M_boundary(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverBoundaryWithGhosts(cctkGH, &ML_ADMConstraints_MP_M_boundary_Body); -} diff --git a/ML_ADMConstraints_MP_M/src/RegisterMoL.c b/ML_ADMConstraints_MP_M/src/RegisterMoL.c deleted file mode 100644 index 7593176..0000000 --- a/ML_ADMConstraints_MP_M/src/RegisterMoL.c +++ /dev/null @@ -1,16 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" - -void ML_ADMConstraints_MP_M_RegisterVars(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - CCTK_INT ierr = 0; - - /* Register all the evolved grid functions with MoL */ - return; -} diff --git a/ML_ADMConstraints_MP_M/src/RegisterSymmetries.c b/ML_ADMConstraints_MP_M/src/RegisterSymmetries.c deleted file mode 100644 index ace149e..0000000 --- a/ML_ADMConstraints_MP_M/src/RegisterSymmetries.c +++ /dev/null @@ -1,39 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "Symmetry.h" - -void ML_ADMConstraints_MP_M_RegisterSymmetries(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* array holding symmetry definitions */ - CCTK_INT sym[3]; - - - /* Register symmetries of grid functions */ - sym[0] = 1; - sym[1] = 1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP_M::H"); - - sym[0] = -1; - sym[1] = 1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP_M::M1"); - - sym[0] = 1; - sym[1] = -1; - sym[2] = 1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP_M::M2"); - - sym[0] = 1; - sym[1] = 1; - sym[2] = -1; - SetCartSymVN(cctkGH, sym, "ML_ADMConstraints_MP_M::M3"); - -} diff --git a/ML_ADMConstraints_MP_M/src/Startup.c b/ML_ADMConstraints_MP_M/src/Startup.c deleted file mode 100644 index b91e001..0000000 --- a/ML_ADMConstraints_MP_M/src/Startup.c +++ /dev/null @@ -1,10 +0,0 @@ -/* File produced by Kranc */ - -#include "cctk.h" - -int ML_ADMConstraints_MP_M_Startup(void) -{ - const char * banner = "ML_ADMConstraints_MP_M"; - CCTK_RegisterBanner(banner); - return 0; -} diff --git a/ML_ADMConstraints_MP_M/src/make.code.defn b/ML_ADMConstraints_MP_M/src/make.code.defn deleted file mode 100644 index 9311739..0000000 --- a/ML_ADMConstraints_MP_M/src/make.code.defn +++ /dev/null @@ -1,3 +0,0 @@ -# File produced by Kranc - -SRCS = Startup.c RegisterMoL.c RegisterSymmetries.c ML_ADMConstraints_MP_M.c ML_ADMConstraints_MP_M_boundary.c Boundaries.c diff --git a/ML_ADMQuantities/param.ccl b/ML_ADMQuantities/param.ccl index 8603cdd..4eb63da 100644 --- a/ML_ADMQuantities/param.ccl +++ b/ML_ADMQuantities/param.ccl @@ -27,12 +27,6 @@ CCTK_INT conformalMethod "Treatment of conformal factor" } 0 restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - -restricted: CCTK_INT ML_ADMQuantities_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" diff --git a/ML_ADMQuantities_MP/param.ccl b/ML_ADMQuantities_MP/param.ccl index 9bf7ad8..544602a 100644 --- a/ML_ADMQuantities_MP/param.ccl +++ b/ML_ADMQuantities_MP/param.ccl @@ -27,12 +27,6 @@ CCTK_INT conformalMethod "Treatment of conformal factor" } 0 restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - -restricted: CCTK_INT ML_ADMQuantities_MP_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" diff --git a/ML_BSSN/param.ccl b/ML_BSSN/param.ccl index d105c58..2a90c6a 100644 --- a/ML_BSSN/param.ccl +++ b/ML_BSSN/param.ccl @@ -120,12 +120,6 @@ CCTK_INT conformalMethod "Treatment of conformal factor" *:* :: "" } 0 -restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - private: KEYWORD my_initial_data "my_initial_data" { diff --git a/ML_BSSN/src/ML_BSSN_RHS.c b/ML_BSSN/src/ML_BSSN_RHS.c index ad6e249..241c214 100644 --- a/ML_BSSN/src/ML_BSSN_RHS.c +++ b/ML_BSSN/src/ML_BSSN_RHS.c @@ -291,16 +291,16 @@ void ML_BSSN_RHS_Body(cGH const * restrict const cctkGH, int const dir, int cons CCTK_REAL const beta2L = beta2[index]; CCTK_REAL const beta3L = beta3[index]; CCTK_REAL const etaL = eta[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN/src/ML_BSSN_RHS1.c b/ML_BSSN/src/ML_BSSN_RHS1.c index 63d25bb..d0ded82 100644 --- a/ML_BSSN/src/ML_BSSN_RHS1.c +++ b/ML_BSSN/src/ML_BSSN_RHS1.c @@ -206,15 +206,15 @@ void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int con CCTK_REAL const beta2L = beta2[index]; CCTK_REAL const beta3L = beta3[index]; CCTK_REAL const etaL = eta[index]; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN/src/ML_BSSN_RHS2.c b/ML_BSSN/src/ML_BSSN_RHS2.c index 3c6b439..36e48b4 100644 --- a/ML_BSSN/src/ML_BSSN_RHS2.c +++ b/ML_BSSN/src/ML_BSSN_RHS2.c @@ -269,16 +269,16 @@ void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int con CCTK_REAL const beta1L = beta1[index]; CCTK_REAL const beta2L = beta2[index]; CCTK_REAL const beta3L = beta3[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN/src/ML_BSSN_constraints.c b/ML_BSSN/src/ML_BSSN_constraints.c index 48db1b3..6dadf1e 100644 --- a/ML_BSSN/src/ML_BSSN_constraints.c +++ b/ML_BSSN/src/ML_BSSN_constraints.c @@ -250,16 +250,16 @@ void ML_BSSN_constraints_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL const beta1L = beta1[index]; CCTK_REAL const beta2L = beta2[index]; CCTK_REAL const beta3L = beta3[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN_Helper/src/SetGroupTags.c b/ML_BSSN_Helper/src/SetGroupTags.c index 7663e61..3113637 100644 --- a/ML_BSSN_Helper/src/SetGroupTags.c +++ b/ML_BSSN_Helper/src/SetGroupTags.c @@ -69,6 +69,8 @@ set_group_tags (int const checkpoint, } if (! prolongate) { + int const iret = Util_TableDeleteKey (table, "ProlongationParameter"); + assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY); int const ierr = Util_TableSetString (table, "none", "Prolongation"); assert (! ierr); } diff --git a/ML_BSSN_M/param.ccl b/ML_BSSN_M/param.ccl deleted file mode 100644 index 588df7b..0000000 --- a/ML_BSSN_M/param.ccl +++ /dev/null @@ -1,1408 +0,0 @@ -# File produced by Kranc - - -shares: ADMBase - - -EXTENDS CCTK_KEYWORD evolution_method "evolution_method" -{ - ML_BSSN_M :: "" -} - - -EXTENDS CCTK_KEYWORD lapse_evolution_method "lapse_evolution_method" -{ - ML_BSSN_M :: "" -} - - -EXTENDS CCTK_KEYWORD shift_evolution_method "shift_evolution_method" -{ - ML_BSSN_M :: "" -} - - -EXTENDS CCTK_KEYWORD dtlapse_evolution_method "dtlapse_evolution_method" -{ - ML_BSSN_M :: "" -} - - -EXTENDS CCTK_KEYWORD dtshift_evolution_method "dtshift_evolution_method" -{ - ML_BSSN_M :: "" -} - - - -shares: GenericFD - -USES CCTK_INT stencil_width -USES CCTK_INT stencil_width_x -USES CCTK_INT stencil_width_y -USES CCTK_INT stencil_width_z -USES CCTK_INT boundary_width - - -shares: MethodOfLines - -USES CCTK_INT MoL_Num_Evolved_Vars - -restricted: -CCTK_INT verbose "verbose" -{ - *:* :: "" -} 0 - -restricted: -CCTK_REAL harmonicF "d/dt alpha = - f alpha^n K (harmonic=1, 1+log=2)" -{ - "*:*" :: "" -} 1 - -restricted: -CCTK_REAL AlphaDriver "AlphaDriver" -{ - "*:*" :: "" -} 0 - -restricted: -CCTK_REAL ShiftGammaCoeff "ShiftGammaCoeff" -{ - "*:*" :: "" -} 0 - -restricted: -CCTK_REAL BetaDriver "BetaDriver" -{ - "*:*" :: "" -} 0 - -restricted: -CCTK_REAL LapseAdvectionCoeff "Factor in front of the shift advection terms in 1+log" -{ - "*:*" :: "" -} 1 - -restricted: -CCTK_REAL ShiftAdvectionCoeff "Factor in front of the shift advection terms in gamma driver" -{ - "*:*" :: "" -} 1 - -restricted: -CCTK_REAL MinimumLapse "Minimum value of the lapse function" -{ - "*:*" :: "" -} -1 - -restricted: -CCTK_REAL SpatialBetaDriverRadius "Radius at which the BetaDriver starts to be reduced" -{ - "*:*" :: "" -} 1000000000000 - -restricted: -CCTK_INT harmonicN "d/dt alpha = - f alpha^n K (harmonic=2, 1+log=1)" -{ - *:* :: "" -} 2 - -restricted: -CCTK_INT ShiftAlphaPower "ShiftAlphaPower" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT conformalMethod "Treatment of conformal factor" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - -private: -KEYWORD my_initial_data "my_initial_data" -{ - "ADMBase" :: "ADMBase" - "Minkowski" :: "Minkowski" -} "ADMBase" - -restricted: -KEYWORD my_initial_boundary_condition "my_initial_boundary_condition" -{ - "none" :: "none" -} "none" - -restricted: -KEYWORD my_rhs_boundary_condition "my_rhs_boundary_condition" -{ - "none" :: "none" - "static" :: "static" - "radiative" :: "radiative" -} "none" - -private: -KEYWORD my_boundary_condition "my_boundary_condition" -{ - "none" :: "none" - "Minkowski" :: "Minkowski" -} "none" - -restricted: -KEYWORD calculate_ADMBase_variables_at "calculate_ADMBase_variables_at" -{ - "MoL_PostStep" :: "MoL_PostStep" - "CCTK_EVOL" :: "CCTK_EVOL" - "CCTK_ANALYSIS" :: "CCTK_ANALYSIS" -} "MoL_PostStep" - -restricted: -KEYWORD UseSpatialBetaDriver "UseSpatialBetaDriver" -{ - "no" :: "no" - "yes" :: "yes" -} "no" - -private: -KEYWORD dt_lapse_shift_method "Treatment of ADMBase dtlapse and dtshift" -{ - "correct" :: "correct" - "noLapseShiftAdvection" :: "noLapseShiftAdvection" -} "correct" - -restricted: -CCTK_INT ML_BSSN_M_MaxNumEvolvedVars "Number of evolved variables used by this thorn" ACCUMULATOR-BASE=MethodofLines::MoL_Num_Evolved_Vars -{ - 25:25 :: "Number of evolved variables used by this thorn" -} 25 - -restricted: -CCTK_INT timelevels "Number of active timelevels" -{ - 0:4 :: "" -} 4 - -restricted: -CCTK_INT rhs_timelevels "Number of active RHS timelevels" -{ - 0:4 :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_Minkowski_calc_every "ML_BSSN_M_Minkowski_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_convertFromADMBase_calc_every "ML_BSSN_M_convertFromADMBase_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_convertFromADMBaseGamma_calc_every "ML_BSSN_M_convertFromADMBaseGamma_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_setBetaDriverSpatial_calc_every "ML_BSSN_M_setBetaDriverSpatial_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_setBetaDriverConstant_calc_every "ML_BSSN_M_setBetaDriverConstant_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_RHS_calc_every "ML_BSSN_M_RHS_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_RHSStaticBoundary_calc_every "ML_BSSN_M_RHSStaticBoundary_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_RHSRadiativeBoundary_calc_every "ML_BSSN_M_RHSRadiativeBoundary_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_enforce_calc_every "ML_BSSN_M_enforce_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_boundary_calc_every "ML_BSSN_M_boundary_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBase_calc_every "ML_BSSN_M_convertToADMBase_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBaseDtLapseShift_calc_every "ML_BSSN_M_convertToADMBaseDtLapseShift_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBaseDtLapseShiftBoundary_calc_every "ML_BSSN_M_convertToADMBaseDtLapseShiftBoundary_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBaseFakeDtLapseShift_calc_every "ML_BSSN_M_convertToADMBaseFakeDtLapseShift_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_constraints_calc_every "ML_BSSN_M_constraints_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_constraints_boundary_calc_every "ML_BSSN_M_constraints_boundary_calc_every" -{ - *:* :: "" -} 1 - -restricted: -CCTK_INT ML_BSSN_M_Minkowski_calc_offset "ML_BSSN_M_Minkowski_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_convertFromADMBase_calc_offset "ML_BSSN_M_convertFromADMBase_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_convertFromADMBaseGamma_calc_offset "ML_BSSN_M_convertFromADMBaseGamma_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_setBetaDriverSpatial_calc_offset "ML_BSSN_M_setBetaDriverSpatial_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_setBetaDriverConstant_calc_offset "ML_BSSN_M_setBetaDriverConstant_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_RHS_calc_offset "ML_BSSN_M_RHS_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_RHSStaticBoundary_calc_offset "ML_BSSN_M_RHSStaticBoundary_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_RHSRadiativeBoundary_calc_offset "ML_BSSN_M_RHSRadiativeBoundary_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_enforce_calc_offset "ML_BSSN_M_enforce_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_boundary_calc_offset "ML_BSSN_M_boundary_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBase_calc_offset "ML_BSSN_M_convertToADMBase_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBaseDtLapseShift_calc_offset "ML_BSSN_M_convertToADMBaseDtLapseShift_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBaseDtLapseShiftBoundary_calc_offset "ML_BSSN_M_convertToADMBaseDtLapseShiftBoundary_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_convertToADMBaseFakeDtLapseShift_calc_offset "ML_BSSN_M_convertToADMBaseFakeDtLapseShift_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_constraints_calc_offset "ML_BSSN_M_constraints_calc_offset" -{ - *:* :: "" -} 0 - -restricted: -CCTK_INT ML_BSSN_M_constraints_boundary_calc_offset "ML_BSSN_M_constraints_boundary_calc_offset" -{ - *:* :: "" -} 0 - -private: -KEYWORD At11_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 At12_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 At13_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 At22_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 At23_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 At33_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 A_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 B1_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 B2_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 B3_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 Xt1_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 Xt2_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 Xt3_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 alpha_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 phi_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 gt11_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 gt12_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 gt13_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 gt22_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 gt23_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 gt33_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 beta1_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 beta2_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 beta3_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 trK_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 ML_curv_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 ML_dtlapse_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 ML_dtshift_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 ML_Gamma_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 ML_lapse_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 ML_log_confac_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 ML_metric_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 ML_shift_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 ML_trace_curv_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 At11_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL At12_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL At13_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL At22_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL At23_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL At33_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL A_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL B1_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL B2_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL B3_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL Xt1_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL Xt2_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL Xt3_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL alpha_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL phi_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL gt11_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL gt12_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL gt13_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL gt22_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL gt23_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL gt33_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL beta1_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL beta2_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL beta3_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL trK_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_curv_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_dtlapse_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_dtshift_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_Gamma_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_lapse_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_log_confac_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_metric_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_shift_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL ML_trace_curv_bound_speed "characteristic speed at boundary" -{ - "0:*" :: "outgoing characteristic speed > 0" -} 1. - -private: -CCTK_REAL At11_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL At12_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL At13_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL At22_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL At23_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL At33_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL A_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL B1_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL B2_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL B3_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL Xt1_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL Xt2_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL Xt3_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL alpha_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL phi_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL gt11_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL gt12_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL gt13_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL gt22_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL gt23_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL gt33_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL beta1_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL beta2_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL beta3_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL trK_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_curv_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_dtlapse_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_dtshift_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_Gamma_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_lapse_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_log_confac_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_metric_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_shift_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL ML_trace_curv_bound_limit "limit value for r -> infinity" -{ - "*:*" :: "value of limit value is unrestricted" -} 0. - -private: -CCTK_REAL At11_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL At12_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL At13_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL At22_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL At23_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL At33_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL A_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL B1_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL B2_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL B3_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL Xt1_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL Xt2_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL Xt3_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL alpha_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL phi_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL gt11_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL gt12_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL gt13_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL gt22_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL gt23_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL gt33_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL beta1_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL beta2_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL beta3_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL trK_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_curv_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_dtlapse_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_dtshift_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_Gamma_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_lapse_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_log_confac_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_metric_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_shift_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - -private: -CCTK_REAL ML_trace_curv_bound_scalar "Dirichlet boundary value" -{ - "*:*" :: "unrestricted" -} 0. - diff --git a/ML_BSSN_M/schedule.ccl b/ML_BSSN_M/schedule.ccl deleted file mode 100644 index 41cd90a..0000000 --- a/ML_BSSN_M/schedule.ccl +++ /dev/null @@ -1,498 +0,0 @@ -# File produced by Kranc - - -STORAGE: ML_BetaDriver[1] - -STORAGE: ML_cons_detg[1] - -STORAGE: ML_cons_Gamma[1] - -STORAGE: ML_cons_traceA[1] - -STORAGE: ML_Ham[1] - -STORAGE: ML_mom[1] - -if (timelevels == 1) -{ - STORAGE: ML_curv[1] -} -if (timelevels == 2) -{ - STORAGE: ML_curv[2] -} -if (timelevels == 3) -{ - STORAGE: ML_curv[3] -} -if (timelevels == 4) -{ - STORAGE: ML_curv[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_dtlapse[1] -} -if (timelevels == 2) -{ - STORAGE: ML_dtlapse[2] -} -if (timelevels == 3) -{ - STORAGE: ML_dtlapse[3] -} -if (timelevels == 4) -{ - STORAGE: ML_dtlapse[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_dtshift[1] -} -if (timelevels == 2) -{ - STORAGE: ML_dtshift[2] -} -if (timelevels == 3) -{ - STORAGE: ML_dtshift[3] -} -if (timelevels == 4) -{ - STORAGE: ML_dtshift[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_Gamma[1] -} -if (timelevels == 2) -{ - STORAGE: ML_Gamma[2] -} -if (timelevels == 3) -{ - STORAGE: ML_Gamma[3] -} -if (timelevels == 4) -{ - STORAGE: ML_Gamma[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_lapse[1] -} -if (timelevels == 2) -{ - STORAGE: ML_lapse[2] -} -if (timelevels == 3) -{ - STORAGE: ML_lapse[3] -} -if (timelevels == 4) -{ - STORAGE: ML_lapse[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_log_confac[1] -} -if (timelevels == 2) -{ - STORAGE: ML_log_confac[2] -} -if (timelevels == 3) -{ - STORAGE: ML_log_confac[3] -} -if (timelevels == 4) -{ - STORAGE: ML_log_confac[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_metric[1] -} -if (timelevels == 2) -{ - STORAGE: ML_metric[2] -} -if (timelevels == 3) -{ - STORAGE: ML_metric[3] -} -if (timelevels == 4) -{ - STORAGE: ML_metric[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_shift[1] -} -if (timelevels == 2) -{ - STORAGE: ML_shift[2] -} -if (timelevels == 3) -{ - STORAGE: ML_shift[3] -} -if (timelevels == 4) -{ - STORAGE: ML_shift[4] -} - -if (timelevels == 1) -{ - STORAGE: ML_trace_curv[1] -} -if (timelevels == 2) -{ - STORAGE: ML_trace_curv[2] -} -if (timelevels == 3) -{ - STORAGE: ML_trace_curv[3] -} -if (timelevels == 4) -{ - STORAGE: ML_trace_curv[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_curvrhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_curvrhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_curvrhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_curvrhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_dtlapserhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_dtlapserhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_dtlapserhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_dtlapserhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_dtshiftrhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_dtshiftrhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_dtshiftrhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_dtshiftrhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_Gammarhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_Gammarhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_Gammarhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_Gammarhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_lapserhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_lapserhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_lapserhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_lapserhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_log_confacrhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_log_confacrhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_log_confacrhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_log_confacrhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_metricrhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_metricrhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_metricrhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_metricrhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_shiftrhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_shiftrhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_shiftrhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_shiftrhs[4] -} - -if (rhs_timelevels == 1) -{ - STORAGE: ML_trace_curvrhs[1] -} -if (rhs_timelevels == 2) -{ - STORAGE: ML_trace_curvrhs[2] -} -if (rhs_timelevels == 3) -{ - STORAGE: ML_trace_curvrhs[3] -} -if (rhs_timelevels == 4) -{ - STORAGE: ML_trace_curvrhs[4] -} - -schedule ML_BSSN_M_Startup at STARTUP -{ - LANG: C - OPTIONS: meta -} "create banner" - -schedule ML_BSSN_M_RegisterVars in MoL_Register -{ - LANG: C - OPTIONS: meta -} "Register Variables for MoL" - -schedule ML_BSSN_M_RegisterSymmetries in SymmetryRegister -{ - LANG: C - OPTIONS: meta -} "register symmetries" - - -if (CCTK_EQUALS(my_initial_data, "Minkowski")) -{ - schedule ML_BSSN_M_Minkowski IN ADMBase_InitialData - { - LANG: C - } "ML_BSSN_M_Minkowski" -} - - -if (CCTK_EQUALS(my_initial_data, "ADMBase")) -{ - schedule ML_BSSN_M_convertFromADMBase AT initial AFTER ADMBase_PostInitial - { - LANG: C - } "ML_BSSN_M_convertFromADMBase" -} - - -if (CCTK_EQUALS(my_initial_data, "ADMBase")) -{ - schedule ML_BSSN_M_convertFromADMBaseGamma AT initial AFTER ML_BSSN_M_convertFromADMBase - { - LANG: C - SYNC: ML_dtlapse - SYNC: ML_dtshift - SYNC: ML_Gamma - } "ML_BSSN_M_convertFromADMBaseGamma" -} - - -if (CCTK_EQUALS(UseSpatialBetaDriver, "yes")) -{ - schedule ML_BSSN_M_setBetaDriverSpatial IN ML_BSSN_M_init_eta - { - LANG: C - } "ML_BSSN_M_setBetaDriverSpatial" -} - - -if (CCTK_EQUALS(UseSpatialBetaDriver, "no")) -{ - schedule ML_BSSN_M_setBetaDriverConstant IN ML_BSSN_M_init_eta - { - LANG: C - } "ML_BSSN_M_setBetaDriverConstant" -} - -schedule ML_BSSN_M_RHS IN ML_BSSN_M_evolCalcGroup -{ - LANG: C -} "ML_BSSN_M_RHS" - - -if (CCTK_EQUALS(my_rhs_boundary_condition, "static")) -{ - schedule ML_BSSN_M_RHSStaticBoundary IN MoL_CalcRHS - { - LANG: C - } "ML_BSSN_M_RHSStaticBoundary" -} - - -if (CCTK_EQUALS(my_rhs_boundary_condition, "radiative")) -{ - schedule ML_BSSN_M_RHSRadiativeBoundary IN MoL_CalcRHS - { - LANG: C - } "ML_BSSN_M_RHSRadiativeBoundary" -} - -schedule ML_BSSN_M_enforce IN MoL_PostStep BEFORE ML_BSSN_M_BoundConds -{ - LANG: C -} "ML_BSSN_M_enforce" - - -if (CCTK_EQUALS(my_boundary_condition, "Minkowski")) -{ - schedule ML_BSSN_M_boundary IN MoL_PostStep - { - LANG: C - } "ML_BSSN_M_boundary" -} - -schedule ML_BSSN_M_convertToADMBase IN ML_BSSN_M_convertToADMBaseGroup -{ - LANG: C -} "ML_BSSN_M_convertToADMBase" - - -if (CCTK_EQUALS(dt_lapse_shift_method, "correct")) -{ - schedule ML_BSSN_M_convertToADMBaseDtLapseShift IN ML_BSSN_M_convertToADMBaseGroup - { - LANG: C - SYNC: ADMBase::dtlapse - SYNC: ADMBase::dtshift - } "ML_BSSN_M_convertToADMBaseDtLapseShift" -} - - -if (CCTK_EQUALS(dt_lapse_shift_method, "correct")) -{ - schedule ML_BSSN_M_convertToADMBaseDtLapseShiftBoundary IN ML_BSSN_M_convertToADMBaseGroup - { - LANG: C - } "ML_BSSN_M_convertToADMBaseDtLapseShiftBoundary" -} - - -if (CCTK_EQUALS(dt_lapse_shift_method, "noLapseShiftAdvection")) -{ - schedule ML_BSSN_M_convertToADMBaseFakeDtLapseShift IN ML_BSSN_M_convertToADMBaseGroup - { - LANG: C - } "ML_BSSN_M_convertToADMBaseFakeDtLapseShift" -} - -schedule ML_BSSN_M_constraints IN ML_BSSN_M_constraintsCalcGroup -{ - LANG: C - SYNC: ML_cons_detg - SYNC: ML_cons_Gamma - SYNC: ML_cons_traceA - SYNC: ML_Ham - SYNC: ML_mom -} "ML_BSSN_M_constraints" - -schedule ML_BSSN_M_constraints_boundary IN ML_BSSN_M_constraintsCalcGroup AFTER ML_BSSN_M_constraints -{ - LANG: C -} "ML_BSSN_M_constraints_boundary" - -schedule ML_BSSN_M_SelectBoundConds in MoL_PostStep -{ - LANG: C - OPTIONS: level - SYNC: ML_curv - SYNC: ML_dtlapse - SYNC: ML_dtshift - SYNC: ML_Gamma - SYNC: ML_lapse - SYNC: ML_log_confac - SYNC: ML_metric - SYNC: ML_shift - SYNC: ML_trace_curv -} "select boundary conditions" - -schedule ML_BSSN_M_CheckBoundaries at BASEGRID -{ - LANG: C - OPTIONS: meta -} "check boundaries treatment" - -schedule group ApplyBCs as ML_BSSN_M_ApplyBCs in MoL_PostStep after ML_BSSN_M_SelectBoundConds -{ - # no language specified -} "Apply boundary conditions controlled by thorn Boundary" diff --git a/ML_BSSN_M/src/ML_BSSN_M_Minkowski.c b/ML_BSSN_M/src/ML_BSSN_M_Minkowski.c deleted file mode 100644 index a4163e4..0000000 --- a/ML_BSSN_M/src/ML_BSSN_M_Minkowski.c +++ /dev/null @@ -1,219 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_BSSN_M_Minkowski_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - CCTK_REAL dx = INITVALUE, dy = INITVALUE, dz = INITVALUE; - CCTK_REAL dxi = INITVALUE, dyi = INITVALUE, dzi = INITVALUE; - CCTK_REAL khalf = INITVALUE, kthird = INITVALUE, ktwothird = INITVALUE, kfourthird = INITVALUE, keightthird = INITVALUE; - CCTK_REAL hdxi = INITVALUE, hdyi = INITVALUE, hdzi = INITVALUE; - - - /* Declare predefined quantities */ - CCTK_REAL p1o12dx = INITVALUE; - CCTK_REAL p1o12dy = INITVALUE; - CCTK_REAL p1o12dz = INITVALUE; - CCTK_REAL p1o144dxdy = INITVALUE; - CCTK_REAL p1o144dxdz = INITVALUE; - CCTK_REAL p1o144dydz = INITVALUE; - CCTK_REAL p1odx = INITVALUE; - CCTK_REAL p1ody = INITVALUE; - CCTK_REAL p1odz = INITVALUE; - CCTK_REAL pm1o12dx2 = INITVALUE; - CCTK_REAL pm1o12dy2 = INITVALUE; - CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_M_Minkowski_Body"); - } - - if (cctk_iteration % ML_BSSN_M_Minkowski_calc_every != ML_BSSN_M_Minkowski_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - dx = CCTK_DELTA_SPACE(0); - dy = CCTK_DELTA_SPACE(1); - dz = CCTK_DELTA_SPACE(2); - dxi = 1.0 / dx; - dyi = 1.0 / dy; - dzi = 1.0 / dz; - khalf = 0.5; - kthird = 1/3.0; - ktwothird = 2.0/3.0; - kfourthird = 4.0/3.0; - keightthird = 8.0/3.0; - hdxi = 0.5 * dxi; - hdyi = 0.5 * dyi; - hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - p1o12dx = INV(dx)/12.; - p1o12dy = INV(dy)/12.; - p1o12dz = INV(dz)/12.; - p1o144dxdy = (INV(dx)*INV(dy))/144.; - p1o144dxdz = (INV(dx)*INV(dz))/144.; - p1o144dydz = (INV(dy)*INV(dz))/144.; - p1odx = INV(dx); - p1ody = INV(dy); - p1odz = INV(dz); - pm1o12dx2 = -pow(dx,-2)/12.; - pm1o12dy2 = -pow(dy,-2)/12.; - pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_BSSN_M_Minkowski, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - int index = INITVALUE; - int subblock_index = INITVALUE; - index = CCTK_GFINDEX3D(cctkGH,i,j,k); - subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - - /* Declare local copies of grid functions */ - CCTK_REAL AL = INITVALUE; - CCTK_REAL alphaL = INITVALUE; - CCTK_REAL At11L = INITVALUE, At12L = INITVALUE, At13L = INITVALUE, At22L = INITVALUE, At23L = INITVALUE, At33L = INITVALUE; - CCTK_REAL B1L = INITVALUE, B2L = INITVALUE, B3L = INITVALUE; - CCTK_REAL beta1L = INITVALUE, beta2L = INITVALUE, beta3L = INITVALUE; - CCTK_REAL gt11L = INITVALUE, gt12L = INITVALUE, gt13L = INITVALUE, gt22L = INITVALUE, gt23L = INITVALUE, gt33L = INITVALUE; - CCTK_REAL phiL = INITVALUE; - CCTK_REAL trKL = INITVALUE; - CCTK_REAL Xt1L = INITVALUE, Xt2L = INITVALUE, Xt3L = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - - /* Assign local copies of grid functions */ - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - phiL = IfThen(conformalMethod,1,0); - - gt11L = 1; - - gt12L = 0; - - gt13L = 0; - - gt22L = 1; - - gt23L = 0; - - gt33L = 1; - - trKL = 0; - - At11L = 0; - - At12L = 0; - - At13L = 0; - - At22L = 0; - - At23L = 0; - - At33L = 0; - - Xt1L = 0; - - Xt2L = 0; - - Xt3L = 0; - - alphaL = 1; - - AL = 0; - - beta1L = 0; - - beta2L = 0; - - beta3L = 0; - - B1L = 0; - - B2L = 0; - - B3L = 0; - - - /* Copy local copies back to grid functions */ - A[index] = AL; - alpha[index] = alphaL; - At11[index] = At11L; - At12[index] = At12L; - At13[index] = At13L; - At22[index] = At22L; - At23[index] = At23L; - At33[index] = At33L; - B1[index] = B1L; - B2[index] = B2L; - B3[index] = B3L; - beta1[index] = beta1L; - beta2[index] = beta2L; - beta3[index] = beta3L; - gt11[index] = gt11L; - gt12[index] = gt12L; - gt13[index] = gt13L; - gt22[index] = gt22L; - gt23[index] = gt23L; - gt33[index] = gt33L; - phi[index] = phiL; - trK[index] = trKL; - Xt1[index] = Xt1L; - Xt2[index] = Xt2L; - Xt3[index] = Xt3L; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_BSSN_M_Minkowski); -} - -void ML_BSSN_M_Minkowski(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_M_Minkowski_Body); -} diff --git a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBase.c b/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBase.c deleted file mode 100644 index 5033a9c..0000000 --- a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBase.c +++ /dev/null @@ -1,274 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_BSSN_M_convertFromADMBase_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - CCTK_REAL dx = INITVALUE, dy = INITVALUE, dz = INITVALUE; - CCTK_REAL dxi = INITVALUE, dyi = INITVALUE, dzi = INITVALUE; - CCTK_REAL khalf = INITVALUE, kthird = INITVALUE, ktwothird = INITVALUE, kfourthird = INITVALUE, keightthird = INITVALUE; - CCTK_REAL hdxi = INITVALUE, hdyi = INITVALUE, hdzi = INITVALUE; - - - /* Declare predefined quantities */ - CCTK_REAL p1o12dx = INITVALUE; - CCTK_REAL p1o12dy = INITVALUE; - CCTK_REAL p1o12dz = INITVALUE; - CCTK_REAL p1o144dxdy = INITVALUE; - CCTK_REAL p1o144dxdz = INITVALUE; - CCTK_REAL p1o144dydz = INITVALUE; - CCTK_REAL p1odx = INITVALUE; - CCTK_REAL p1ody = INITVALUE; - CCTK_REAL p1odz = INITVALUE; - CCTK_REAL pm1o12dx2 = INITVALUE; - CCTK_REAL pm1o12dy2 = INITVALUE; - CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_M_convertFromADMBase_Body"); - } - - if (cctk_iteration % ML_BSSN_M_convertFromADMBase_calc_every != ML_BSSN_M_convertFromADMBase_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - dx = CCTK_DELTA_SPACE(0); - dy = CCTK_DELTA_SPACE(1); - dz = CCTK_DELTA_SPACE(2); - dxi = 1.0 / dx; - dyi = 1.0 / dy; - dzi = 1.0 / dz; - khalf = 0.5; - kthird = 1/3.0; - ktwothird = 2.0/3.0; - kfourthird = 4.0/3.0; - keightthird = 8.0/3.0; - hdxi = 0.5 * dxi; - hdyi = 0.5 * dyi; - hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - p1o12dx = INV(dx)/12.; - p1o12dy = INV(dy)/12.; - p1o12dz = INV(dz)/12.; - p1o144dxdy = (INV(dx)*INV(dy))/144.; - p1o144dxdz = (INV(dx)*INV(dz))/144.; - p1o144dydz = (INV(dy)*INV(dz))/144.; - p1odx = INV(dx); - p1ody = INV(dy); - p1odz = INV(dz); - pm1o12dx2 = -pow(dx,-2)/12.; - pm1o12dy2 = -pow(dy,-2)/12.; - pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_BSSN_M_convertFromADMBase, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - int index = INITVALUE; - int subblock_index = INITVALUE; - index = CCTK_GFINDEX3D(cctkGH,i,j,k); - subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - CCTK_REAL detg = INITVALUE; - CCTK_REAL em4phi = INITVALUE; - CCTK_REAL g11 = INITVALUE, g12 = INITVALUE, g13 = INITVALUE, g22 = INITVALUE, g23 = INITVALUE, g33 = INITVALUE; - CCTK_REAL gu11 = INITVALUE, gu21 = INITVALUE, gu22 = INITVALUE, gu31 = INITVALUE, gu32 = INITVALUE, gu33 = INITVALUE; - CCTK_REAL K11 = INITVALUE, K12 = INITVALUE, K13 = INITVALUE, K22 = INITVALUE, K23 = INITVALUE, K33 = INITVALUE; - - /* Declare local copies of grid functions */ - CCTK_REAL alpL = INITVALUE; - CCTK_REAL alphaL = INITVALUE; - CCTK_REAL At11L = INITVALUE, At12L = INITVALUE, At13L = INITVALUE, At22L = INITVALUE, At23L = INITVALUE, At33L = INITVALUE; - CCTK_REAL beta1L = INITVALUE, beta2L = INITVALUE, beta3L = INITVALUE; - CCTK_REAL betaxL = INITVALUE; - CCTK_REAL betayL = INITVALUE; - CCTK_REAL betazL = INITVALUE; - CCTK_REAL gt11L = INITVALUE, gt12L = INITVALUE, gt13L = INITVALUE, gt22L = INITVALUE, gt23L = INITVALUE, gt33L = INITVALUE; - CCTK_REAL gxxL = INITVALUE; - CCTK_REAL gxyL = INITVALUE; - CCTK_REAL gxzL = INITVALUE; - CCTK_REAL gyyL = INITVALUE; - CCTK_REAL gyzL = INITVALUE; - CCTK_REAL gzzL = INITVALUE; - CCTK_REAL kxxL = INITVALUE; - CCTK_REAL kxyL = INITVALUE; - CCTK_REAL kxzL = INITVALUE; - CCTK_REAL kyyL = INITVALUE; - CCTK_REAL kyzL = INITVALUE; - CCTK_REAL kzzL = INITVALUE; - CCTK_REAL phiL = INITVALUE; - CCTK_REAL trKL = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - - /* Assign local copies of grid functions */ - alpL = alp[index]; - betaxL = betax[index]; - betayL = betay[index]; - betazL = betaz[index]; - gxxL = gxx[index]; - gxyL = gxy[index]; - gxzL = gxz[index]; - gyyL = gyy[index]; - gyzL = gyz[index]; - gzzL = gzz[index]; - kxxL = kxx[index]; - kxyL = kxy[index]; - kxzL = kxz[index]; - kyyL = kyy[index]; - kyzL = kyz[index]; - kzzL = kzz[index]; - phiL = phi[index]; - trKL = trK[index]; - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - g11 = gxxL; - - g12 = gxyL; - - g13 = gxzL; - - g22 = gyyL; - - g23 = gyzL; - - g33 = gzzL; - - detg = 2*g12*g13*g23 + g33*(g11*g22 - SQR(g12)) - g22*SQR(g13) - g11*SQR(g23); - - gu11 = INV(detg)*(g22*g33 - SQR(g23)); - - gu21 = (g13*g23 - g12*g33)*INV(detg); - - gu31 = (-(g13*g22) + g12*g23)*INV(detg); - - gu22 = INV(detg)*(g11*g33 - SQR(g13)); - - gu32 = (g12*g13 - g11*g23)*INV(detg); - - gu33 = INV(detg)*(g11*g22 - SQR(g12)); - - phiL = IfThen(conformalMethod,pow(detg,-0.16666666666666666),Log(detg)/12.); - - em4phi = IfThen(conformalMethod,SQR(phiL),exp(-4*phiL)); - - gt11L = em4phi*g11; - - gt12L = em4phi*g12; - - gt13L = em4phi*g13; - - gt22L = em4phi*g22; - - gt23L = em4phi*g23; - - gt33L = em4phi*g33; - - K11 = kxxL; - - K12 = kxyL; - - K13 = kxzL; - - K22 = kyyL; - - K23 = kyzL; - - K33 = kzzL; - - trKL = gu11*K11 + gu22*K22 + 2*(gu21*K12 + gu31*K13 + gu32*K23) + gu33*K33; - - At11L = em4phi*(K11 - g11*kthird*trKL); - - At12L = em4phi*(K12 - g12*kthird*trKL); - - At13L = em4phi*(K13 - g13*kthird*trKL); - - At22L = em4phi*(K22 - g22*kthird*trKL); - - At23L = em4phi*(K23 - g23*kthird*trKL); - - At33L = em4phi*(K33 - g33*kthird*trKL); - - alphaL = alpL; - - beta1L = betaxL; - - beta2L = betayL; - - beta3L = betazL; - - - /* Copy local copies back to grid functions */ - alpha[index] = alphaL; - At11[index] = At11L; - At12[index] = At12L; - At13[index] = At13L; - At22[index] = At22L; - At23[index] = At23L; - At33[index] = At33L; - beta1[index] = beta1L; - beta2[index] = beta2L; - beta3[index] = beta3L; - gt11[index] = gt11L; - gt12[index] = gt12L; - gt13[index] = gt13L; - gt22[index] = gt22L; - gt23[index] = gt23L; - gt33[index] = gt33L; - phi[index] = phiL; - trK[index] = trKL; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_BSSN_M_convertFromADMBase); -} - -void ML_BSSN_M_convertFromADMBase(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_M_convertFromADMBase_Body); -} diff --git a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBaseGamma.c b/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBaseGamma.c deleted file mode 100644 index 1b93415..0000000 --- a/ML_BSSN_M/src/ML_BSSN_M_convertFromADMBaseGamma.c +++ /dev/null @@ -1,308 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_BSSN_M_convertFromADMBaseGamma_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - CCTK_REAL dx = INITVALUE, dy = INITVALUE, dz = INITVALUE; - CCTK_REAL dxi = INITVALUE, dyi = INITVALUE, dzi = INITVALUE; - CCTK_REAL khalf = INITVALUE, kthird = INITVALUE, ktwothird = INITVALUE, kfourthird = INITVALUE, keightthird = INITVALUE; - CCTK_REAL hdxi = INITVALUE, hdyi = INITVALUE, hdzi = INITVALUE; - - - /* Declare predefined quantities */ - CCTK_REAL p1o12dx = INITVALUE; - CCTK_REAL p1o12dy = INITVALUE; - CCTK_REAL p1o12dz = INITVALUE; - CCTK_REAL p1o144dxdy = INITVALUE; - CCTK_REAL p1o144dxdz = INITVALUE; - CCTK_REAL p1o144dydz = INITVALUE; - CCTK_REAL p1odx = INITVALUE; - CCTK_REAL p1ody = INITVALUE; - CCTK_REAL p1odz = INITVALUE; - CCTK_REAL pm1o12dx2 = INITVALUE; - CCTK_REAL pm1o12dy2 = INITVALUE; - CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_M_convertFromADMBaseGamma_Body"); - } - - if (cctk_iteration % ML_BSSN_M_convertFromADMBaseGamma_calc_every != ML_BSSN_M_convertFromADMBaseGamma_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - dx = CCTK_DELTA_SPACE(0); - dy = CCTK_DELTA_SPACE(1); - dz = CCTK_DELTA_SPACE(2); - dxi = 1.0 / dx; - dyi = 1.0 / dy; - dzi = 1.0 / dz; - khalf = 0.5; - kthird = 1/3.0; - ktwothird = 2.0/3.0; - kfourthird = 4.0/3.0; - keightthird = 8.0/3.0; - hdxi = 0.5 * dxi; - hdyi = 0.5 * dyi; - hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - p1o12dx = INV(dx)/12.; - p1o12dy = INV(dy)/12.; - p1o12dz = INV(dz)/12.; - p1o144dxdy = (INV(dx)*INV(dy))/144.; - p1o144dxdz = (INV(dx)*INV(dz))/144.; - p1o144dydz = (INV(dy)*INV(dz))/144.; - p1odx = INV(dx); - p1ody = INV(dy); - p1odz = INV(dz); - pm1o12dx2 = -pow(dx,-2)/12.; - pm1o12dy2 = -pow(dy,-2)/12.; - pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_BSSN_M_convertFromADMBaseGamma, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - int index = INITVALUE; - int subblock_index = INITVALUE; - index = CCTK_GFINDEX3D(cctkGH,i,j,k); - subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - CCTK_REAL detgt = INITVALUE; - CCTK_REAL dir1 = INITVALUE, dir2 = INITVALUE, dir3 = INITVALUE; - CCTK_REAL Gt111 = INITVALUE, Gt112 = INITVALUE, Gt113 = INITVALUE, Gt122 = INITVALUE, Gt123 = INITVALUE, Gt133 = INITVALUE; - CCTK_REAL Gt211 = INITVALUE, Gt212 = INITVALUE, Gt213 = INITVALUE, Gt222 = INITVALUE, Gt223 = INITVALUE, Gt233 = INITVALUE; - CCTK_REAL Gt311 = INITVALUE, Gt312 = INITVALUE, Gt313 = INITVALUE, Gt322 = INITVALUE, Gt323 = INITVALUE, Gt333 = INITVALUE; - CCTK_REAL gtu11 = INITVALUE, gtu21 = INITVALUE, gtu22 = INITVALUE, gtu31 = INITVALUE, gtu32 = INITVALUE, gtu33 = INITVALUE; - - /* Declare local copies of grid functions */ - CCTK_REAL AL = INITVALUE; - CCTK_REAL alphaL = INITVALUE; - CCTK_REAL B1L = INITVALUE, B2L = INITVALUE, B3L = INITVALUE; - CCTK_REAL beta1L = INITVALUE, beta2L = INITVALUE, beta3L = INITVALUE; - CCTK_REAL dtalpL = INITVALUE; - CCTK_REAL dtbetaxL = INITVALUE; - CCTK_REAL dtbetayL = INITVALUE; - CCTK_REAL dtbetazL = INITVALUE; - CCTK_REAL gt11L = INITVALUE, gt12L = INITVALUE, gt13L = INITVALUE, gt22L = INITVALUE, gt23L = INITVALUE, gt33L = INITVALUE; - CCTK_REAL Xt1L = INITVALUE, Xt2L = INITVALUE, Xt3L = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - CCTK_REAL PDstandardNth1gt11 = INITVALUE; - CCTK_REAL PDstandardNth2gt11 = INITVALUE; - CCTK_REAL PDstandardNth3gt11 = INITVALUE; - CCTK_REAL PDstandardNth1gt12 = INITVALUE; - CCTK_REAL PDstandardNth2gt12 = INITVALUE; - CCTK_REAL PDstandardNth3gt12 = INITVALUE; - CCTK_REAL PDstandardNth1gt13 = INITVALUE; - CCTK_REAL PDstandardNth2gt13 = INITVALUE; - CCTK_REAL PDstandardNth3gt13 = INITVALUE; - CCTK_REAL PDstandardNth1gt22 = INITVALUE; - CCTK_REAL PDstandardNth2gt22 = INITVALUE; - CCTK_REAL PDstandardNth3gt22 = INITVALUE; - CCTK_REAL PDstandardNth1gt23 = INITVALUE; - CCTK_REAL PDstandardNth2gt23 = INITVALUE; - CCTK_REAL PDstandardNth3gt23 = INITVALUE; - CCTK_REAL PDstandardNth1gt33 = INITVALUE; - CCTK_REAL PDstandardNth2gt33 = INITVALUE; - CCTK_REAL PDstandardNth3gt33 = INITVALUE; - - /* Assign local copies of grid functions */ - alphaL = alpha[index]; - beta1L = beta1[index]; - beta2L = beta2[index]; - beta3L = beta3[index]; - dtalpL = dtalp[index]; - dtbetaxL = dtbetax[index]; - dtbetayL = dtbetay[index]; - dtbetazL = dtbetaz[index]; - gt11L = gt11[index]; - gt12L = gt12[index]; - gt13L = gt13[index]; - gt22L = gt22[index]; - gt23L = gt23[index]; - gt33L = gt33[index]; - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - PDstandardNth1gt11 = PDstandardNth1(gt11, i, j, k); - PDstandardNth2gt11 = PDstandardNth2(gt11, i, j, k); - PDstandardNth3gt11 = PDstandardNth3(gt11, i, j, k); - PDstandardNth1gt12 = PDstandardNth1(gt12, i, j, k); - PDstandardNth2gt12 = PDstandardNth2(gt12, i, j, k); - PDstandardNth3gt12 = PDstandardNth3(gt12, i, j, k); - PDstandardNth1gt13 = PDstandardNth1(gt13, i, j, k); - PDstandardNth2gt13 = PDstandardNth2(gt13, i, j, k); - PDstandardNth3gt13 = PDstandardNth3(gt13, i, j, k); - PDstandardNth1gt22 = PDstandardNth1(gt22, i, j, k); - PDstandardNth2gt22 = PDstandardNth2(gt22, i, j, k); - PDstandardNth3gt22 = PDstandardNth3(gt22, i, j, k); - PDstandardNth1gt23 = PDstandardNth1(gt23, i, j, k); - PDstandardNth2gt23 = PDstandardNth2(gt23, i, j, k); - PDstandardNth3gt23 = PDstandardNth3(gt23, i, j, k); - PDstandardNth1gt33 = PDstandardNth1(gt33, i, j, k); - PDstandardNth2gt33 = PDstandardNth2(gt33, i, j, k); - PDstandardNth3gt33 = PDstandardNth3(gt33, i, j, k); - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - dir1 = Sign(beta1L); - - dir2 = Sign(beta2L); - - dir3 = Sign(beta3L); - - detgt = 1; - - gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); - - gtu21 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); - - gtu31 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); - - gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); - - gtu32 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); - - gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); - - Gt111 = khalf*(gtu11*PDstandardNth1gt11 + 2*(gtu21*PDstandardNth1gt12 + gtu31*PDstandardNth1gt13) - - gtu21*PDstandardNth2gt11 - gtu31*PDstandardNth3gt11); - - Gt211 = khalf*(gtu21*PDstandardNth1gt11 + 2*(gtu22*PDstandardNth1gt12 + gtu32*PDstandardNth1gt13) - - gtu22*PDstandardNth2gt11 - gtu32*PDstandardNth3gt11); - - Gt311 = khalf*(gtu31*PDstandardNth1gt11 + 2*(gtu32*PDstandardNth1gt12 + gtu33*PDstandardNth1gt13) - - gtu32*PDstandardNth2gt11 - gtu33*PDstandardNth3gt11); - - Gt112 = khalf*(gtu21*PDstandardNth1gt22 + gtu11*PDstandardNth2gt11 + - gtu31*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - - Gt212 = khalf*(gtu22*PDstandardNth1gt22 + gtu21*PDstandardNth2gt11 + - gtu32*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - - Gt312 = khalf*(gtu32*PDstandardNth1gt22 + gtu31*PDstandardNth2gt11 + - gtu33*(PDstandardNth1gt23 + PDstandardNth2gt13 - PDstandardNth3gt12)); - - Gt113 = khalf*(gtu31*PDstandardNth1gt33 + gtu11*PDstandardNth3gt11 + - gtu21*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - - Gt213 = khalf*(gtu32*PDstandardNth1gt33 + gtu21*PDstandardNth3gt11 + - gtu22*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - - Gt313 = khalf*(gtu33*PDstandardNth1gt33 + gtu31*PDstandardNth3gt11 + - gtu32*(PDstandardNth1gt23 - PDstandardNth2gt13 + PDstandardNth3gt12)); - - Gt122 = khalf*(gtu11*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu21*PDstandardNth2gt22 + - gtu31*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - - Gt222 = khalf*(gtu21*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu22*PDstandardNth2gt22 + - gtu32*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - - Gt322 = khalf*(gtu31*(-PDstandardNth1gt22 + 2*PDstandardNth2gt12) + gtu32*PDstandardNth2gt22 + - gtu33*(2*PDstandardNth2gt23 - PDstandardNth3gt22)); - - Gt123 = khalf*(gtu31*PDstandardNth2gt33 + gtu11*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu21*PDstandardNth3gt22); - - Gt223 = khalf*(gtu32*PDstandardNth2gt33 + gtu21*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu22*PDstandardNth3gt22); - - Gt323 = khalf*(gtu33*PDstandardNth2gt33 + gtu31*(-PDstandardNth1gt23 + PDstandardNth2gt13 + PDstandardNth3gt12) + - gtu32*PDstandardNth3gt22); - - Gt133 = khalf*(-(gtu11*PDstandardNth1gt33) - gtu21*PDstandardNth2gt33 + 2*gtu11*PDstandardNth3gt13 + - 2*gtu21*PDstandardNth3gt23 + gtu31*PDstandardNth3gt33); - - Gt233 = khalf*(-(gtu21*PDstandardNth1gt33) - gtu22*PDstandardNth2gt33 + 2*gtu21*PDstandardNth3gt13 + - 2*gtu22*PDstandardNth3gt23 + gtu32*PDstandardNth3gt33); - - Gt333 = khalf*(-(gtu31*PDstandardNth1gt33) - gtu32*PDstandardNth2gt33 + 2*gtu31*PDstandardNth3gt13 + - 2*gtu32*PDstandardNth3gt23 + gtu33*PDstandardNth3gt33); - - Xt1L = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu21 + Gt113*gtu31 + Gt123*gtu32) + Gt133*gtu33; - - Xt2L = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu21 + Gt213*gtu31 + Gt223*gtu32) + Gt233*gtu33; - - Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - - AL = -(dtalpL*(-1 + LapseAdvectionCoeff)*INV(harmonicF)*pow(alphaL,-harmonicN)); - - B1L = 6*IfThen(ShiftGammaCoeff,dtbetaxL*INV(ShiftGammaCoeff),0) + - IfThen(ShiftGammaCoeff,(dtbetaxL - PDupwindNth1(beta1, i, j, k)*beta1L*ShiftAdvectionCoeff)*INV(ShiftGammaCoeff), - 0) + IfThen(ShiftGammaCoeff,(dtbetaxL - PDupwindNth2(beta1, i, j, k)*beta2L*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff),0) + IfThen(ShiftGammaCoeff, - (dtbetaxL - PDupwindNth3(beta1, i, j, k)*beta3L*ShiftAdvectionCoeff)*INV(ShiftGammaCoeff),0); - - B2L = 6*IfThen(ShiftGammaCoeff,dtbetayL*INV(ShiftGammaCoeff),0) + - IfThen(ShiftGammaCoeff,(dtbetayL - PDupwindNth1(beta2, i, j, k)*beta1L*ShiftAdvectionCoeff)*INV(ShiftGammaCoeff), - 0) + IfThen(ShiftGammaCoeff,(dtbetayL - PDupwindNth2(beta2, i, j, k)*beta2L*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff),0) + IfThen(ShiftGammaCoeff, - (dtbetayL - PDupwindNth3(beta2, i, j, k)*beta3L*ShiftAdvectionCoeff)*INV(ShiftGammaCoeff),0); - - B3L = 6*IfThen(ShiftGammaCoeff,dtbetazL*INV(ShiftGammaCoeff),0) + - IfThen(ShiftGammaCoeff,(dtbetazL - PDupwindNth1(beta3, i, j, k)*beta1L*ShiftAdvectionCoeff)*INV(ShiftGammaCoeff), - 0) + IfThen(ShiftGammaCoeff,(dtbetazL - PDupwindNth2(beta3, i, j, k)*beta2L*ShiftAdvectionCoeff)* - INV(ShiftGammaCoeff),0) + IfThen(ShiftGammaCoeff, - (dtbetazL - PDupwindNth3(beta3, i, j, k)*beta3L*ShiftAdvectionCoeff)*INV(ShiftGammaCoeff),0); - - - /* Copy local copies back to grid functions */ - A[index] = AL; - B1[index] = B1L; - B2[index] = B2L; - B3[index] = B3L; - Xt1[index] = Xt1L; - Xt2[index] = Xt2L; - Xt3[index] = Xt3L; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_BSSN_M_convertFromADMBaseGamma); -} - -void ML_BSSN_M_convertFromADMBaseGamma(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_M_convertFromADMBaseGamma_Body); -} diff --git a/ML_BSSN_M/src/ML_BSSN_M_setBetaDriverConstant.c b/ML_BSSN_M/src/ML_BSSN_M_setBetaDriverConstant.c deleted file mode 100644 index 9310476..0000000 --- a/ML_BSSN_M/src/ML_BSSN_M_setBetaDriverConstant.c +++ /dev/null @@ -1,139 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_BSSN_M_setBetaDriverConstant_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - CCTK_REAL dx = INITVALUE, dy = INITVALUE, dz = INITVALUE; - CCTK_REAL dxi = INITVALUE, dyi = INITVALUE, dzi = INITVALUE; - CCTK_REAL khalf = INITVALUE, kthird = INITVALUE, ktwothird = INITVALUE, kfourthird = INITVALUE, keightthird = INITVALUE; - CCTK_REAL hdxi = INITVALUE, hdyi = INITVALUE, hdzi = INITVALUE; - - - /* Declare predefined quantities */ - CCTK_REAL p1o12dx = INITVALUE; - CCTK_REAL p1o12dy = INITVALUE; - CCTK_REAL p1o12dz = INITVALUE; - CCTK_REAL p1o144dxdy = INITVALUE; - CCTK_REAL p1o144dxdz = INITVALUE; - CCTK_REAL p1o144dydz = INITVALUE; - CCTK_REAL p1odx = INITVALUE; - CCTK_REAL p1ody = INITVALUE; - CCTK_REAL p1odz = INITVALUE; - CCTK_REAL pm1o12dx2 = INITVALUE; - CCTK_REAL pm1o12dy2 = INITVALUE; - CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_M_setBetaDriverConstant_Body"); - } - - if (cctk_iteration % ML_BSSN_M_setBetaDriverConstant_calc_every != ML_BSSN_M_setBetaDriverConstant_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - dx = CCTK_DELTA_SPACE(0); - dy = CCTK_DELTA_SPACE(1); - dz = CCTK_DELTA_SPACE(2); - dxi = 1.0 / dx; - dyi = 1.0 / dy; - dzi = 1.0 / dz; - khalf = 0.5; - kthird = 1/3.0; - ktwothird = 2.0/3.0; - kfourthird = 4.0/3.0; - keightthird = 8.0/3.0; - hdxi = 0.5 * dxi; - hdyi = 0.5 * dyi; - hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - p1o12dx = INV(dx)/12.; - p1o12dy = INV(dy)/12.; - p1o12dz = INV(dz)/12.; - p1o144dxdy = (INV(dx)*INV(dy))/144.; - p1o144dxdz = (INV(dx)*INV(dz))/144.; - p1o144dydz = (INV(dy)*INV(dz))/144.; - p1odx = INV(dx); - p1ody = INV(dy); - p1odz = INV(dz); - pm1o12dx2 = -pow(dx,-2)/12.; - pm1o12dy2 = -pow(dy,-2)/12.; - pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_BSSN_M_setBetaDriverConstant, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - int index = INITVALUE; - int subblock_index = INITVALUE; - index = CCTK_GFINDEX3D(cctkGH,i,j,k); - subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - - /* Declare local copies of grid functions */ - CCTK_REAL etaL = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - - /* Assign local copies of grid functions */ - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - etaL = BetaDriver; - - - /* Copy local copies back to grid functions */ - eta[index] = etaL; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_BSSN_M_setBetaDriverConstant); -} - -void ML_BSSN_M_setBetaDriverConstant(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_M_setBetaDriverConstant_Body); -} diff --git a/ML_BSSN_M/src/ML_BSSN_M_setBetaDriverSpatial.c b/ML_BSSN_M/src/ML_BSSN_M_setBetaDriverSpatial.c deleted file mode 100644 index afc6635..0000000 --- a/ML_BSSN_M/src/ML_BSSN_M_setBetaDriverSpatial.c +++ /dev/null @@ -1,141 +0,0 @@ -/* File produced by Kranc */ - -#define KRANC_C - -#include <assert.h> -#include <math.h> -#include <stdio.h> -#include <stdlib.h> -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" -#include "GenericFD.h" -#include "Differencing.h" -#include "loopcontrol.h" - -/* Define macros used in calculations */ -#define INITVALUE (42) -#define INV(x) ((1.0) / (x)) -#define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) -#define QAD(x) ((x) * (x) * (x) * (x)) - -void ML_BSSN_M_setBetaDriverSpatial_Body(cGH const * const cctkGH, CCTK_INT const dir, CCTK_INT const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], CCTK_INT const min[3], CCTK_INT const max[3], CCTK_INT const n_subblock_gfs, CCTK_REAL * const subblock_gfs[]) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - - /* Declare finite differencing variables */ - CCTK_REAL dx = INITVALUE, dy = INITVALUE, dz = INITVALUE; - CCTK_REAL dxi = INITVALUE, dyi = INITVALUE, dzi = INITVALUE; - CCTK_REAL khalf = INITVALUE, kthird = INITVALUE, ktwothird = INITVALUE, kfourthird = INITVALUE, keightthird = INITVALUE; - CCTK_REAL hdxi = INITVALUE, hdyi = INITVALUE, hdzi = INITVALUE; - - - /* Declare predefined quantities */ - CCTK_REAL p1o12dx = INITVALUE; - CCTK_REAL p1o12dy = INITVALUE; - CCTK_REAL p1o12dz = INITVALUE; - CCTK_REAL p1o144dxdy = INITVALUE; - CCTK_REAL p1o144dxdz = INITVALUE; - CCTK_REAL p1o144dydz = INITVALUE; - CCTK_REAL p1odx = INITVALUE; - CCTK_REAL p1ody = INITVALUE; - CCTK_REAL p1odz = INITVALUE; - CCTK_REAL pm1o12dx2 = INITVALUE; - CCTK_REAL pm1o12dy2 = INITVALUE; - CCTK_REAL pm1o12dz2 = INITVALUE; - - if (verbose > 1) - { - CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_M_setBetaDriverSpatial_Body"); - } - - if (cctk_iteration % ML_BSSN_M_setBetaDriverSpatial_calc_every != ML_BSSN_M_setBetaDriverSpatial_calc_offset) - { - return; - } - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - dx = CCTK_DELTA_SPACE(0); - dy = CCTK_DELTA_SPACE(1); - dz = CCTK_DELTA_SPACE(2); - dxi = 1.0 / dx; - dyi = 1.0 / dy; - dzi = 1.0 / dz; - khalf = 0.5; - kthird = 1/3.0; - ktwothird = 2.0/3.0; - kfourthird = 4.0/3.0; - keightthird = 8.0/3.0; - hdxi = 0.5 * dxi; - hdyi = 0.5 * dyi; - hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - p1o12dx = INV(dx)/12.; - p1o12dy = INV(dy)/12.; - p1o12dz = INV(dz)/12.; - p1o144dxdy = (INV(dx)*INV(dy))/144.; - p1o144dxdz = (INV(dx)*INV(dz))/144.; - p1o144dydz = (INV(dy)*INV(dz))/144.; - p1odx = INV(dx); - p1ody = INV(dy); - p1odz = INV(dz); - pm1o12dx2 = -pow(dx,-2)/12.; - pm1o12dy2 = -pow(dy,-2)/12.; - pm1o12dz2 = -pow(dz,-2)/12.; - - /* Loop over the grid points */ - #pragma omp parallel - LC_LOOP3 (ML_BSSN_M_setBetaDriverSpatial, - i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], - cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) - { - int index = INITVALUE; - int subblock_index = INITVALUE; - index = CCTK_GFINDEX3D(cctkGH,i,j,k); - subblock_index = i - min[0] + (max[0] - min[0]) * (j - min[1] + (max[1]-min[1]) * (k - min[2])); - - /* Declare shorthands */ - - /* Declare local copies of grid functions */ - CCTK_REAL etaL = INITVALUE; - CCTK_REAL rL = INITVALUE; - /* Declare precomputed derivatives*/ - - /* Declare derivatives */ - - /* Assign local copies of grid functions */ - rL = r[index]; - - /* Assign local copies of subblock grid functions */ - - /* Include user supplied include files */ - - /* Precompute derivatives (new style) */ - - /* Precompute derivatives (old style) */ - - /* Calculate temporaries and grid functions */ - etaL = BetaDriver*IfThen(rL > SpatialBetaDriverRadius,SpatialBetaDriverRadius*INV(rL),1); - - - /* Copy local copies back to grid functions */ - eta[index] = etaL; - - /* Copy local copies back to subblock grid functions */ - } - LC_ENDLOOP3 (ML_BSSN_M_setBetaDriverSpatial); -} - -void ML_BSSN_M_setBetaDriverSpatial(CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - DECLARE_CCTK_PARAMETERS; - - GenericFD_LoopOverEverything(cctkGH, &ML_BSSN_M_setBetaDriverSpatial_Body); -} diff --git a/ML_BSSN_M/src/make.code.defn b/ML_BSSN_M/src/make.code.defn deleted file mode 100644 index 2c89d2a..0000000 --- a/ML_BSSN_M/src/make.code.defn +++ /dev/null @@ -1,3 +0,0 @@ -# File produced by Kranc - -SRCS = Startup.c RegisterMoL.c RegisterSymmetries.c ML_BSSN_M_Minkowski.c ML_BSSN_M_convertFromADMBase.c ML_BSSN_M_convertFromADMBaseGamma.c ML_BSSN_M_setBetaDriverSpatial.c ML_BSSN_M_setBetaDriverConstant.c ML_BSSN_M_RHS.c ML_BSSN_M_RHSStaticBoundary.c ML_BSSN_M_RHSRadiativeBoundary.c ML_BSSN_M_enforce.c ML_BSSN_M_boundary.c ML_BSSN_M_convertToADMBase.c ML_BSSN_M_convertToADMBaseDtLapseShift.c ML_BSSN_M_convertToADMBaseDtLapseShiftBoundary.c ML_BSSN_M_convertToADMBaseFakeDtLapseShift.c ML_BSSN_M_constraints.c ML_BSSN_M_constraints_boundary.c Boundaries.c diff --git a/ML_BSSN_MP/param.ccl b/ML_BSSN_MP/param.ccl index f991fd1..c62baf4 100644 --- a/ML_BSSN_MP/param.ccl +++ b/ML_BSSN_MP/param.ccl @@ -120,12 +120,6 @@ CCTK_INT conformalMethod "Treatment of conformal factor" *:* :: "" } 0 -restricted: -CCTK_INT useMatter "Add matter terms" -{ - *:* :: "" -} 1 - private: KEYWORD my_initial_data "my_initial_data" { diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c b/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c index a8d8cee..272a573 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_RHS.c @@ -314,16 +314,16 @@ void ML_BSSN_MP_RHS_Body(cGH const * restrict const cctkGH, int const dir, int c CCTK_REAL const dJ323L = dJ323[index]; CCTK_REAL const dJ333L = dJ333[index]; CCTK_REAL const etaL = eta[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.c b/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.c index b5d6f9e..3207d05 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.c @@ -229,15 +229,15 @@ void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const dir, int CCTK_REAL const dJ323L = dJ323[index]; CCTK_REAL const dJ333L = dJ333[index]; CCTK_REAL const etaL = eta[index]; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.c b/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.c index 3745c32..446215a 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.c @@ -292,16 +292,16 @@ void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const dir, int CCTK_REAL const dJ322L = dJ322[index]; CCTK_REAL const dJ323L = dJ323[index]; CCTK_REAL const dJ333L = dJ333[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c b/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c index 3974724..db784fe 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c +++ b/ML_BSSN_MP/src/ML_BSSN_MP_constraints.c @@ -273,16 +273,16 @@ void ML_BSSN_MP_constraints_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL const dJ322L = dJ322[index]; CCTK_REAL const dJ323L = dJ323[index]; CCTK_REAL const dJ333L = dJ333[index]; - CCTK_REAL const eTttL = (stress_energy_state) ? (eTtt[index]) : 0.0; - CCTK_REAL const eTtxL = (stress_energy_state) ? (eTtx[index]) : 0.0; - CCTK_REAL const eTtyL = (stress_energy_state) ? (eTty[index]) : 0.0; - CCTK_REAL const eTtzL = (stress_energy_state) ? (eTtz[index]) : 0.0; - CCTK_REAL const eTxxL = (stress_energy_state) ? (eTxx[index]) : 0.0; - CCTK_REAL const eTxyL = (stress_energy_state) ? (eTxy[index]) : 0.0; - CCTK_REAL const eTxzL = (stress_energy_state) ? (eTxz[index]) : 0.0; - CCTK_REAL const eTyyL = (stress_energy_state) ? (eTyy[index]) : 0.0; - CCTK_REAL const eTyzL = (stress_energy_state) ? (eTyz[index]) : 0.0; - CCTK_REAL const eTzzL = (stress_energy_state) ? (eTzz[index]) : 0.0; + CCTK_REAL const eTttL = (*stress_energy_state) ? (eTtt[index]) : 0.0; + CCTK_REAL const eTtxL = (*stress_energy_state) ? (eTtx[index]) : 0.0; + CCTK_REAL const eTtyL = (*stress_energy_state) ? (eTty[index]) : 0.0; + CCTK_REAL const eTtzL = (*stress_energy_state) ? (eTtz[index]) : 0.0; + CCTK_REAL const eTxxL = (*stress_energy_state) ? (eTxx[index]) : 0.0; + CCTK_REAL const eTxyL = (*stress_energy_state) ? (eTxy[index]) : 0.0; + CCTK_REAL const eTxzL = (*stress_energy_state) ? (eTxz[index]) : 0.0; + CCTK_REAL const eTyyL = (*stress_energy_state) ? (eTyy[index]) : 0.0; + CCTK_REAL const eTyzL = (*stress_energy_state) ? (eTyz[index]) : 0.0; + CCTK_REAL const eTzzL = (*stress_energy_state) ? (eTzz[index]) : 0.0; CCTK_REAL const gt11L = gt11[index]; CCTK_REAL const gt12L = gt12[index]; CCTK_REAL const gt13L = gt13[index]; diff --git a/ML_BSSN_MP_Helper/src/SetGroupTags.c b/ML_BSSN_MP_Helper/src/SetGroupTags.c index 652a1f5..4cfc394 100644 --- a/ML_BSSN_MP_Helper/src/SetGroupTags.c +++ b/ML_BSSN_MP_Helper/src/SetGroupTags.c @@ -69,6 +69,8 @@ set_group_tags (int const checkpoint, } if (! prolongate) { + int const iret = Util_TableDeleteKey (table, "ProlongationParameter"); + assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY); int const ierr = Util_TableSetString (table, "none", "Prolongation"); assert (! ierr); } diff --git a/ML_BSSN_M_Helper/schedule.ccl b/ML_BSSN_M_Helper/schedule.ccl deleted file mode 100644 index 6600156..0000000 --- a/ML_BSSN_M_Helper/schedule.ccl +++ /dev/null @@ -1,180 +0,0 @@ -if (CCTK_EQUALS (evolution_method, "ML_BSSN_M")) { - - if (timelevels == 1) { - STORAGE: ADMBase::metric[1] - STORAGE: ADMBase::curv[1] - STORAGE: ADMBase::lapse[1] - STORAGE: ADMBase::shift[1] - STORAGE: ADMBase::dtlapse[1] - STORAGE: ADMBase::dtshift[1] - } else if (timelevels == 2) { - STORAGE: ADMBase::metric[2] - STORAGE: ADMBase::curv[2] - STORAGE: ADMBase::lapse[2] - STORAGE: ADMBase::shift[2] - STORAGE: ADMBase::dtlapse[2] - STORAGE: ADMBase::dtshift[2] - } else if (timelevels == 3) { - STORAGE: ADMBase::metric[3] - STORAGE: ADMBase::curv[3] - STORAGE: ADMBase::lapse[3] - STORAGE: ADMBase::shift[3] - STORAGE: ADMBase::dtlapse[3] - STORAGE: ADMBase::dtshift[3] - } else if (timelevels == 4) { - #STORAGE: ADMBase::metric[4] - #STORAGE: ADMBase::curv[4] - #STORAGE: ADMBase::lapse[4] - #STORAGE: ADMBase::shift[4] - #STORAGE: ADMBase::dtlapse[4] - #STORAGE: ADMBase::dtshift[4] - STORAGE: ADMBase::metric[3] - STORAGE: ADMBase::curv[3] - STORAGE: ADMBase::lapse[3] - STORAGE: ADMBase::shift[3] - STORAGE: ADMBase::dtlapse[3] - STORAGE: ADMBase::dtshift[3] - } - - SCHEDULE ML_BSSN_M_RegisterSlicing AT startup - { - LANG: C - OPTIONS: meta - } "Register slicing" - - SCHEDULE ML_BSSN_M_SetGroupTags AT startup BEFORE Driver_Startup - { - LANG: C - OPTIONS: meta - } "Set checkpointing and prolongation group tags" - - SCHEDULE ML_BSSN_M_RegisterConstrained IN MoL_Register - { - LANG: C - OPTIONS: meta - } "Register ADMBase variables as constrained" - - - - #SCHEDULE GROUP ML_BSSN_M_evolCalcGroup AT postinitial AFTER MoL_PostStep - #{ - #} "Calculate BSSN RHS" - SCHEDULE GROUP MoL_CalcRHS AT postinitial AFTER MoL_PostStep - { - } "Evaluate RHS" - - SCHEDULE GROUP ML_BSSN_M_evolCalcGroup IN MoL_CalcRHS - { - } "Calculate BSSN RHS" - - SCHEDULE GROUP ML_BSSN_M_evolCalcGroup AT analysis - { - TRIGGERS: ML_BSSN_M::ML_log_confacrhs - TRIGGERS: ML_BSSN_M::ML_metricrhs - TRIGGERS: ML_BSSN_M::ML_Gammarhs - TRIGGERS: ML_BSSN_M::ML_trace_curvrhs - TRIGGERS: ML_BSSN_M::ML_curvrhs - TRIGGERS: ML_BSSN_M::ML_lapserhs - TRIGGERS: ML_BSSN_M::ML_dtlapserhs - TRIGGERS: ML_BSSN_M::ML_shiftrhs - TRIGGERS: ML_BSSN_M::ML_dtshiftrhs - } "Calculate BSSN RHS" - - - - if (CCTK_EQUALS (my_initial_boundary_condition, "extrapolate-gammas")) - { - SCHEDULE ML_BSSN_M_ExtrapolateGammas AT initial AFTER ML_BSSN_M_convertFromADMBaseGamma - { - LANG: C - SYNC: ML_Gamma - SYNC: ML_dtlapse - SYNC: ML_dtshift - } "Extrapolate Gammas and time derivatives of lapse and shift" - } - - if (CCTK_EQUALS (my_rhs_boundary_condition, "NewRad")) - { - SCHEDULE ML_BSSN_M_NewRad IN ML_BSSN_M_evolCalcGroup AFTER ML_BSSN_M_RHS - { - LANG: C - #SYNC: ML_curvrhs - #SYNC: ML_dtlapserhs - #SYNC: ML_dtshiftrhs - #SYNC: ML_Gammarhs - #SYNC: ML_lapserhs - #SYNC: ML_log_confacrhs - #SYNC: ML_metricrhs - #SYNC: ML_shiftrhs - #SYNC: ML_trace_curvrhs - } "Apply NewRad boundary conditions to RHS" - } - - - - SCHEDULE GROUP ML_BSSN_M_convertToADMBaseGroup IN ML_BSSN_M_convertToADMBaseGroupWrapper - { - } "Calculate ADM variables" - - if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) - { - # if (timelevels > 1) - # { - # SCHEDULE ML_BSSN_M_CopyADMBase AT prestep - # { - # LANG: C - # } "Copy ADMBase variables to current time level" - # } - SCHEDULE GROUP ML_BSSN_M_convertToADMBaseGroupWrapper IN MoL_PostStep AFTER (ML_BSSN_M_ApplyBCs ML_BSSN_M_enforce) BEFORE (ADMBase_SetADMVars Whisky_PostStep) - { - } "Calculate ADM variables" - } - else if (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_EVOL")) - { - SCHEDULE GROUP ML_BSSN_M_convertToADMBaseGroupWrapper AT evol AFTER MoL_Evolution BEFORE (ADMBase_SetADMVars Whisky_PostStep) - { - } "Calculate ADM variables" - } - else if (CCTK_EQUALS (calculate_ADMBase_variables_at, "CCTK_ANALYSIS")) - { - SCHEDULE GROUP ML_BSSN_M_convertToADMBaseGroupWrapper AT analysis BEFORE (ADMBase_SetADMVars Whisky_PostStep) - { - TRIGGERS: ML_BSSN_M::ML_Ham - TRIGGERS: ML_BSSN_M::ML_mom - } "Calculate ADM variables" - } - - SCHEDULE GROUP ML_BSSN_M_convertToADMBaseGroupWrapper AT CCTK_POST_RECOVER_VARIABLES - { - } "Calculate ADM variables" - - SCHEDULE ML_BSSN_M_SelectBCsADMBase IN ML_BSSN_M_convertToADMBaseGroupWrapper AFTER ML_BSSN_M_convertToADMBaseGroup - { - LANG: C - OPTIONS: level - } "Apply boundary conditions to ADMBase variables" - - SCHEDULE GROUP ApplyBCs AS ML_BSSN_M_ApplyBCsADMBase IN ML_BSSN_M_convertToADMBaseGroupWrapper AFTER ML_BSSN_M_SelectBCsADMBase - { - } "Apply boundary conditions to ADMBase variables" - - - - SCHEDULE GROUP ML_BSSN_M_constraintsCalcGroup AT analysis - { - TRIGGERS: ML_BSSN_M::ML_Ham - TRIGGERS: ML_BSSN_M::ML_mom - } "Calculate BSSN constraints" - - SCHEDULE GROUP ML_BSSN_M_init_eta AT initial - { - } "Initialize BetaDriver" - - SCHEDULE GROUP ML_BSSN_M_init_eta AT postregrid - { - } "Initialize BetaDriver" - - SCHEDULE GROUP ML_BSSN_M_init_eta AT post_recover_variables - { - } "Initialize BetaDriver" -} diff --git a/ML_BSSN_M_Helper/src/SetGroupTags.c b/ML_BSSN_M_Helper/src/SetGroupTags.c deleted file mode 100644 index 79e02fb..0000000 --- a/ML_BSSN_M_Helper/src/SetGroupTags.c +++ /dev/null @@ -1,70 +0,0 @@ -#include <cctk.h> -#include <cctk_Parameters.h> -#include <util_Table.h> - -#include <assert.h> - -static void -set_group_tags (int const checkpoint, int const prolongate, - char const * restrict const gn); - -int -ML_BSSN_M_SetGroupTags (void) -{ - DECLARE_CCTK_PARAMETERS; - - set_group_tags (0, 1, "ADMBase::metric"); - set_group_tags (0, 1, "ADMBase::curv"); - set_group_tags (0, 1, "ADMBase::lapse"); - set_group_tags (0, 1, "ADMBase::shift"); - set_group_tags (0, 1, "ADMBase::dtlapse"); - set_group_tags (0, 1, "ADMBase::dtshift"); - - set_group_tags (0, 0, "ML_BSSN_M::ML_cons_detg"); - set_group_tags (0, 0, "ML_BSSN_M::ML_cons_Gamma"); - set_group_tags (0, 0, "ML_BSSN_M::ML_cons_traceA"); - set_group_tags (0, 0, "ML_BSSN_M::ML_Ham"); - set_group_tags (0, 0, "ML_BSSN_M::ML_mom"); - set_group_tags (0, 0, "ML_BSSN_M::ML_curvrhs"); - set_group_tags (0, 0, "ML_BSSN_M::ML_BetaDriver"); - - int const checkpoint = rhs_timelevels > 1; - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_dtlapserhs"); - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_dtshiftrhs"); - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_Gammarhs"); - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_lapserhs"); - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_log_confacrhs"); - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_metricrhs"); - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_shiftrhs"); - set_group_tags (checkpoint, 0, "ML_BSSN_M::ML_trace_curvrhs"); - - return 0; -} - -static void -set_group_tags (int const checkpoint, int const prolongate, - char const * restrict const gn) -{ - assert (gn); - - int const gi = CCTK_GroupIndex (gn); - assert (gi >= 0); - - int const table = CCTK_GroupTagsTableI (gi); - assert (table >= 0); - - if (! checkpoint) { - int ierr; - ierr = Util_TableSetString (table, "no", "Checkpoint"); - assert (! ierr); - - ierr = Util_TableSetString (table, "no", "Persistent"); - assert (! ierr); - } - - if (! prolongate) { - int ierr; - ierr = Util_TableSetString (table, "none", "Prolongation"); - assert (! ierr); - } -} diff --git a/m/prototype/ML_BSSN_Helper/src/SetGroupTags.c b/m/prototype/ML_BSSN_Helper/src/SetGroupTags.c index 7663e61..3113637 100644 --- a/m/prototype/ML_BSSN_Helper/src/SetGroupTags.c +++ b/m/prototype/ML_BSSN_Helper/src/SetGroupTags.c @@ -69,6 +69,8 @@ set_group_tags (int const checkpoint, } if (! prolongate) { + int const iret = Util_TableDeleteKey (table, "ProlongationParameter"); + assert (iret == 0 || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY); int const ierr = Util_TableSetString (table, "none", "Prolongation"); assert (! ierr); } |