diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-06-13 11:22:40 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-06-13 11:22:40 +0200 |
| commit | 7394810db2087ecd54afcac7cb703b145a83e987 (patch) | |
| tree | cabc39bebecf54d332040bd16e83498a5c0240cf | |
| parent | a8b69dc06e565427bc96d16c443bb4b3392c4365 (diff) | |
Revert "Rename tensor indices"
This reverts commit a8b69dc06e565427bc96d16c443bb4b3392c4365.
61 files changed, 3105 insertions, 3721 deletions
diff --git a/ML_ADM/src/ML_ADM_RHS.cc b/ML_ADM/src/ML_ADM_RHS.cc index 06cd46c..a662993 100644 --- a/ML_ADM/src/ML_ADM_RHS.cc +++ b/ML_ADM/src/ML_ADM_RHS.cc @@ -296,14 +296,14 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in + gu32*(-PDstandardNth2g33 + 2*PDstandardNth3g23) + gu33*PDstandardNth3g33); - CCTK_REAL R11 = 0.5*(4*G213*G312 - 2*(G111*G212 + G223*G311 + - G111*G313) + G211*(2*G112 - 2*G222 - 2*G323) + G311*(2*G113 - 2*G333) + - (-gu23 - gu32)*PDstandardNth11g23 + gu23*PDstandardNth13g12 + - gu32*PDstandardNth13g12 + gu22*(-PDstandardNth11g22 + - 2*PDstandardNth12g12 - PDstandardNth22g11) + gu23*(PDstandardNth12g13 - - PDstandardNth23g11) + gu32*(PDstandardNth12g13 - PDstandardNth23g11) + - gu33*(-PDstandardNth11g33 + 2*PDstandardNth13g13 - PDstandardNth33g11) - + 2*SQR(G212) + 2*SQR(G313)); + CCTK_REAL R11 = 2*(G112*G211 + G113*G311 + G213*G312) - G111*(G111 + + G212 + G313) - G211*(G112 + G222 + G323) - G311*(G113 + G223 + G333) + + 0.5*(-(gu22*(PDstandardNth11g22 - 2*PDstandardNth12g12 + + PDstandardNth22g11)) + gu23*(-PDstandardNth11g23 + PDstandardNth12g13 + + PDstandardNth13g12 - PDstandardNth23g11) + gu32*(-PDstandardNth11g23 + + PDstandardNth12g13 + PDstandardNth13g12 - PDstandardNth23g11) - + gu33*(PDstandardNth11g33 - 2*PDstandardNth13g13 + PDstandardNth33g11)) + + SQR(G111) + SQR(G212) + SQR(G313); CCTK_REAL R12 = 0.5*(2*(G122*G211 + G123*G311 + G213*G322 + G313*G323) - 2*(G112*G212 + G112*G313 + G212*G323 + G312*G333 + @@ -323,14 +323,14 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in gu23*(PDstandardNth12g33 - PDstandardNth13g23 - PDstandardNth23g13 + PDstandardNth33g12)); - CCTK_REAL R22 = 0.5*(4*G123*G312 + G122*(-2*G111 + 2*G212 - 2*G313) - - 2*(G112*G222 + G113*G322 + G222*G323) + G322*(2*G223 - 2*G333) + (gu13 - + gu31)*PDstandardNth12g23 + (-gu13 - gu31)*PDstandardNth13g22 + - gu11*(-PDstandardNth11g22 + 2*PDstandardNth12g12 - PDstandardNth22g11) - + (-gu13 - gu31)*PDstandardNth22g13 + gu13*PDstandardNth23g12 + - gu31*PDstandardNth23g12 + gu33*(-PDstandardNth22g33 + - 2*PDstandardNth23g23 - PDstandardNth33g22) + 2*SQR(G112) + - 2*SQR(G323)); + CCTK_REAL R22 = -(G122*(G111 + G212 + G313)) + 2*(G122*G212 + + G123*G312 + G223*G322) - G222*(G112 + G222 + G323) - G322*(G113 + G223 + + G333) + 0.5*(-(gu11*(PDstandardNth11g22 - 2*PDstandardNth12g12 + + PDstandardNth22g11)) + gu13*(PDstandardNth12g23 - PDstandardNth13g22 - + PDstandardNth22g13 + PDstandardNth23g12) + gu31*(PDstandardNth12g23 - + PDstandardNth13g22 - PDstandardNth22g13 + PDstandardNth23g12) - + gu33*(PDstandardNth22g33 - 2*PDstandardNth23g23 + PDstandardNth33g22)) + + SQR(G112) + SQR(G222) + SQR(G323); CCTK_REAL R23 = 0.5*(2*(G112*G113 + G122*G213 + G133*G312 + G233*G322) + gu11*(-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - @@ -340,15 +340,14 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in gu13*(PDstandardNth12g33 - PDstandardNth13g23 - PDstandardNth23g13 + PDstandardNth33g12) + gu23*(PDstandardNth22g33 + PDstandardNth33g22)); - CCTK_REAL R33 = 0.5*(4*G123*G213 - 2*(G111*G133 + G133*G212 + - G112*G233 + G222*G233 + G113*G333 + G223*G333) + (-gu12 - - gu21)*PDstandardNth12g33 + 2*(G133*G313 + G233*G323 + - gu11*PDstandardNth13g13) + gu12*PDstandardNth13g23 + - gu21*PDstandardNth13g23 + gu12*PDstandardNth23g13 + - gu21*PDstandardNth23g13 + gu11*(-PDstandardNth11g33 - - PDstandardNth33g11) - (gu12 + gu21)*PDstandardNth33g12 + - gu22*(-PDstandardNth22g33 + 2*PDstandardNth23g23 - PDstandardNth33g22) - + 2*SQR(G113) + 2*SQR(G223)); + CCTK_REAL R33 = -(G133*(G111 + G212 + G313)) + 2*(G123*G213 + + G133*G313) + G233*(-G112 - G222 + G323) - G333*(G113 + G223 + G333) + + 0.5*(-(gu11*(PDstandardNth11g33 - 2*PDstandardNth13g13 + + PDstandardNth33g11)) + gu12*(-PDstandardNth12g33 + PDstandardNth13g23 + + PDstandardNth23g13 - PDstandardNth33g12) + gu21*(-PDstandardNth12g33 + + PDstandardNth13g23 + PDstandardNth23g13 - PDstandardNth33g12) - + gu22*(PDstandardNth22g33 - 2*PDstandardNth23g23 + PDstandardNth33g22)) + + SQR(G113) + SQR(G223) + SQR(G333); CCTK_REAL Km11 = gu11*K11L + gu12*K12L + gu13*K13L; @@ -408,7 +407,7 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in K13L*PDstandardNth1beta3) + beta1L*PDstandardNth1K11 + G211*PDstandardNth2alpha + beta2L*PDstandardNth2K11 + G311*PDstandardNth3alpha + beta3L*PDstandardNth3K11 + - alphaL*(-2*(K12L*Km21 + K13L*Km31) + R11 + K11L*(-2*Km11 + trK)); + alphaL*(-2*(K11L*Km11 + K12L*Km21 + K13L*Km31) + R11 + K11L*trK); CCTK_REAL K12rhsL = -PDstandardNth12alpha + G112*PDstandardNth1alpha + K22L*PDstandardNth1beta2 + K23L*PDstandardNth1beta3 + @@ -416,8 +415,8 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in K11L*PDstandardNth2beta1 + K12L*(PDstandardNth1beta1 + PDstandardNth2beta2) + K13L*PDstandardNth2beta3 + beta2L*PDstandardNth2K12 + G312*PDstandardNth3alpha + - beta3L*PDstandardNth3K12 + alphaL*(-2*(K11L*Km12 + K13L*Km32) + R12 + - K12L*(-2*Km22 + trK)); + beta3L*PDstandardNth3K12 + alphaL*(-2*(K11L*Km12 + K12L*Km22 + + K13L*Km32) + R12 + K12L*trK); CCTK_REAL K13rhsL = -PDstandardNth13alpha + G113*PDstandardNth1alpha + K23L*PDstandardNth1beta2 + K33L*PDstandardNth1beta3 + @@ -433,8 +432,8 @@ static void ML_ADM_RHS_Body(cGH const * restrict const cctkGH, int const dir, in G222*PDstandardNth2alpha + 2*(K12L*PDstandardNth2beta1 + K22L*PDstandardNth2beta2 + K23L*PDstandardNth2beta3) + beta2L*PDstandardNth2K22 + G322*PDstandardNth3alpha + - beta3L*PDstandardNth3K22 + alphaL*(-2*(K12L*Km12 + K23L*Km32) + R22 + - K22L*(-2*Km22 + trK)); + beta3L*PDstandardNth3K22 + alphaL*(-2*(K12L*Km12 + K22L*Km22 + + K23L*Km32) + R22 + K22L*trK); CCTK_REAL K23rhsL = G123*PDstandardNth1alpha + beta1L*PDstandardNth1K23 - PDstandardNth23alpha + diff --git a/ML_ADM/src/ML_ADM_constraints.cc b/ML_ADM/src/ML_ADM_constraints.cc index efca3d3..6541371 100644 --- a/ML_ADM/src/ML_ADM_constraints.cc +++ b/ML_ADM/src/ML_ADM_constraints.cc @@ -266,13 +266,12 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const gu33*PDstandardNth3g33); CCTK_REAL R11 = -(G111*(G111 + G122 + G133)) - G211*(G211 + G222 + - G233) - G311*(G311 + G322 + G333) - 0.5*gu22*(PDstandardNth11g22 - - 2*PDstandardNth12g12 + PDstandardNth22g11) + - 0.5*gu23*(-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - - PDstandardNth23g11) + 0.5*gu32*(-PDstandardNth11g23 + - PDstandardNth12g13 + PDstandardNth13g12 - PDstandardNth23g11) - - 0.5*gu33*(PDstandardNth11g33 - 2*PDstandardNth13g13 + - PDstandardNth33g11) + SQR(G111) + SQR(G112) + SQR(G113) + SQR(G211) + + G233) - G311*(G311 + G322 + G333) + 0.5*(-(gu22*(PDstandardNth11g22 - + 2*PDstandardNth12g12 + PDstandardNth22g11)) + gu23*(-PDstandardNth11g23 + + PDstandardNth12g13 + PDstandardNth13g12 - PDstandardNth23g11) + + gu32*(-PDstandardNth11g23 + PDstandardNth12g13 + PDstandardNth13g12 - + PDstandardNth23g11) - gu33*(PDstandardNth11g33 - 2*PDstandardNth13g13 + + PDstandardNth33g11)) + SQR(G111) + SQR(G112) + SQR(G113) + SQR(G211) + SQR(G212) + SQR(G213) + SQR(G311) + SQR(G312) + SQR(G313); CCTK_REAL R12 = 0.5*(2*(G113*G123 + G213*G223 + G313*G323) - @@ -293,13 +292,12 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const PDstandardNth23g13 + PDstandardNth33g12)); CCTK_REAL R22 = -(G122*(G111 + G122 + G133)) - G222*(G211 + G222 + - G233) - G322*(G311 + G322 + G333) - 0.5*gu11*(PDstandardNth11g22 - - 2*PDstandardNth12g12 + PDstandardNth22g11) + - 0.5*gu13*(PDstandardNth12g23 - PDstandardNth13g22 - PDstandardNth22g13 - + PDstandardNth23g12) + 0.5*gu31*(PDstandardNth12g23 - - PDstandardNth13g22 - PDstandardNth22g13 + PDstandardNth23g12) - - 0.5*gu33*(PDstandardNth22g33 - 2*PDstandardNth23g23 + - PDstandardNth33g22) + SQR(G112) + SQR(G122) + SQR(G123) + SQR(G212) + + G233) - G322*(G311 + G322 + G333) + 0.5*(-(gu11*(PDstandardNth11g22 - + 2*PDstandardNth12g12 + PDstandardNth22g11)) + gu13*(PDstandardNth12g23 + - PDstandardNth13g22 - PDstandardNth22g13 + PDstandardNth23g12) + + gu31*(PDstandardNth12g23 - PDstandardNth13g22 - PDstandardNth22g13 + + PDstandardNth23g12) - gu33*(PDstandardNth22g33 - 2*PDstandardNth23g23 + + PDstandardNth33g22)) + SQR(G112) + SQR(G122) + SQR(G123) + SQR(G212) + SQR(G222) + SQR(G223) + SQR(G312) + SQR(G322) + SQR(G323); CCTK_REAL R23 = 0.5*(2*(G112*G113 + G212*G213 + G312*G313) + @@ -311,13 +309,12 @@ static void ML_ADM_constraints_Body(cGH const * restrict const cctkGH, int const gu23*(PDstandardNth22g33 + PDstandardNth33g22)); CCTK_REAL R33 = -(G133*(G111 + G122 + G133)) - G233*(G211 + G222 + - G233) - G333*(G311 + G322 + G333) - 0.5*gu11*(PDstandardNth11g33 - - 2*PDstandardNth13g13 + PDstandardNth33g11) + - 0.5*gu12*(-PDstandardNth12g33 + PDstandardNth13g23 + PDstandardNth23g13 - - PDstandardNth33g12) + 0.5*gu21*(-PDstandardNth12g33 + - PDstandardNth13g23 + PDstandardNth23g13 - PDstandardNth33g12) - - 0.5*gu22*(PDstandardNth22g33 - 2*PDstandardNth23g23 + - PDstandardNth33g22) + SQR(G113) + SQR(G123) + SQR(G133) + SQR(G213) + + G233) - G333*(G311 + G322 + G333) + 0.5*(-(gu11*(PDstandardNth11g33 - + 2*PDstandardNth13g13 + PDstandardNth33g11)) + gu12*(-PDstandardNth12g33 + + PDstandardNth13g23 + PDstandardNth23g13 - PDstandardNth33g12) + + gu21*(-PDstandardNth12g33 + PDstandardNth13g23 + PDstandardNth23g13 - + PDstandardNth33g12) - gu22*(PDstandardNth22g33 - 2*PDstandardNth23g23 + + PDstandardNth33g22)) + SQR(G113) + SQR(G123) + SQR(G133) + SQR(G213) + SQR(G223) + SQR(G233) + SQR(G313) + SQR(G323) + SQR(G333); CCTK_REAL trR = gu11*R11 + (gu12 + gu21)*R12 + (gu13 + gu31)*R13 + diff --git a/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.cc b/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.cc index 33d8af3..247652a 100644 --- a/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.cc +++ b/ML_ADMConstraints_MP/src/ML_ADMConstraints_MP.cc @@ -490,183 +490,191 @@ static void ML_ADMConstraints_MP_Body(cGH const * restrict const cctkGH, int con PDstandardNth33gxx*(-2*gu32*J32L*J33L - gu22*SQR(J32L)) + gu33*(2*J31L*J33L*PDstandardNth33gxz - PDstandardNth33gxx*SQR(J33L))); - CCTK_REAL R12 = 0.5*(-2*(G112*G133 + G212*G233 + G312*G333 + - gu21*J11L*J12L*PDstandardNth11gxy) + 2*(G113*G123 + G213*G223 + - G313*G323 + gu21*J12L*J22L*PDstandardNth12gxx) + - J12L*(-(gu32*J13L*PDstandardNth11gxy) + - J11L*(-(gu31*PDstandardNth11gxz) - gu33*PDstandardNth11gzz) - - gu31*J21L*PDstandardNth12gxz) + J11L*J22L*(-2*gu21*PDstandardNth12gxy - - gu32*PDstandardNth12gyz) + J12L*(gu31*J23L*PDstandardNth12gxx - - gu32*J21L*PDstandardNth12gyz) + J12L*J21L*(-2*gu21*PDstandardNth12gxy - - gu33*PDstandardNth12gzz) + J11L*(gu33*J13L*PDstandardNth11gyz + - gu31*(-(J23L*PDstandardNth12gxy) - J33L*PDstandardNth13gxy)) + - J12L*(gu33*J13L*PDstandardNth11gxz + gu32*(-(J11L*PDstandardNth11gyz) - - J23L*PDstandardNth12gxy - J33L*PDstandardNth13gxy)) + - J12L*(2*gu32*J22L*PDstandardNth12gxz - gu31*J31L*PDstandardNth13gxz) + - J12L*(gu33*J23L*PDstandardNth12gxz - gu32*J31L*PDstandardNth13gyz) + - J11L*(2*gu21*J21L*PDstandardNth12gyy - gu32*J32L*PDstandardNth13gyz) + - J11L*(gu32*J23L*PDstandardNth12gyy - gu33*J32L*PDstandardNth13gzz) + - (dJ122L*gu21 + dJ123L*gu31)*PDstandardNth1gxx - - 2*dJ112L*gu21*PDstandardNth1gxy + dJ111L*gu21*PDstandardNth1gyy + - gu32*J21L*J23L*PDstandardNth22gyy + gu33*J21L*J23L*PDstandardNth22gyz + - gu32*(J13L*J31L*PDstandardNth13gyy - J21L*J22L*PDstandardNth22gyz) + - gu33*(-2*J13L*J23L*PDstandardNth12gxy + - J22L*(-(J11L*PDstandardNth12gzz) - J21L*PDstandardNth22gzz)) + - 2*gu21*J22L*J32L*PDstandardNth23gxx + gu31*J23L*J32L*PDstandardNth23gxx - + gu31*J22L*J33L*PDstandardNth23gxx - - 2*gu21*J22L*J31L*PDstandardNth23gxy - - 2*gu21*J21L*J32L*PDstandardNth23gxy - - 2*gu33*J23L*J33L*PDstandardNth23gxy + - J33L*(-2*gu33*J13L*PDstandardNth13gxy - gu31*J21L*PDstandardNth23gxy) + - J33L*(gu33*J12L*PDstandardNth13gxz - gu32*J22L*PDstandardNth23gxy) + - J31L*(-2*gu21*J12L*PDstandardNth13gxy - gu31*J23L*PDstandardNth23gxy) + - J32L*(2*gu21*J12L*PDstandardNth13gxx - gu32*J23L*PDstandardNth23gxy) + - 2*gu32*J22L*J32L*PDstandardNth23gxz + gu33*J23L*J32L*PDstandardNth23gxz - + gu33*J22L*J33L*PDstandardNth23gxz + - J32L*(-2*gu21*J11L*PDstandardNth13gxy - gu31*J21L*PDstandardNth23gxz) + - gu31*(-(J11L*J32L*PDstandardNth13gxz) + J22L*(J13L*PDstandardNth12gxx - - J11L*PDstandardNth12gxz - J31L*PDstandardNth23gxz)) + - 2*gu21*J21L*J31L*PDstandardNth23gyy + gu32*J23L*J31L*PDstandardNth23gyy - + gu32*J21L*J33L*PDstandardNth23gyy + - 2*gu31*J21L*J31L*PDstandardNth23gyz + gu33*J23L*J31L*PDstandardNth23gyz - + gu33*J21L*J33L*PDstandardNth23gyz + - J32L*(gu33*J13L*PDstandardNth13gxz - gu32*J21L*PDstandardNth23gyz) + - J31L*(2*gu21*J11L*PDstandardNth13gyy - gu32*J22L*PDstandardNth23gyz) + - J31L*(2*gu31*J11L*PDstandardNth13gyz - gu33*J22L*PDstandardNth23gzz) + - gu33*(J13L*J31L*PDstandardNth13gyz - J21L*J32L*PDstandardNth23gzz) + - (dJ222L*gu21 + dJ223L*gu31)*PDstandardNth2gxx - - 2*dJ212L*gu21*PDstandardNth2gxy + gu31*(2*J11L*J21L*PDstandardNth12gyz - - dJ113L*PDstandardNth1gxy - dJ213L*PDstandardNth2gxy) + - gu32*(J11L*J33L*PDstandardNth13gyy - dJ223L*PDstandardNth2gxy) + - gu33*(J11L*J33L*PDstandardNth13gyz - dJ233L*PDstandardNth2gxy) + - dJ222L*gu32*PDstandardNth2gxz + dJ223L*gu33*PDstandardNth2gxz + - gu31*(J13L*J32L*PDstandardNth13gxx - dJ112L*PDstandardNth1gxz - - dJ212L*PDstandardNth2gxz) + dJ211L*gu21*PDstandardNth2gyy + - dJ213L*gu32*PDstandardNth2gyy + dJ211L*gu31*PDstandardNth2gyz + - dJ213L*gu33*PDstandardNth2gyz + gu32*(J13L*J21L*PDstandardNth12gyy - - dJ123L*PDstandardNth1gxy - dJ212L*PDstandardNth2gyz) + - gu33*(J13L*J22L*PDstandardNth12gxz - J12L*J31L*PDstandardNth13gzz - - dJ212L*PDstandardNth2gzz) + gu31*J32L*J33L*PDstandardNth33gxx - - 2*gu21*J31L*J32L*PDstandardNth33gxy + gu31*(dJ111L*PDstandardNth1gyz - - J31L*J33L*PDstandardNth33gxy) + gu32*(dJ122L*PDstandardNth1gxz - - J32L*J33L*PDstandardNth33gxy) + gu33*J32L*J33L*PDstandardNth33gxz + - gu31*(J22L*J23L*PDstandardNth22gxx - J31L*J32L*PDstandardNth33gxz) + - gu32*J31L*J33L*PDstandardNth33gyy + gu33*J31L*J33L*PDstandardNth33gyz + - gu32*(dJ113L*PDstandardNth1gyy - J31L*J32L*PDstandardNth33gyz) + - gu33*(J13L*J21L*PDstandardNth12gyz - dJ133L*PDstandardNth1gxy - - J31L*J32L*PDstandardNth33gzz) + dJ322L*gu21*PDstandardNth3gxx + - dJ323L*gu31*PDstandardNth3gxx - 2*dJ312L*gu21*PDstandardNth3gxy + - gu31*(J12L*J33L*PDstandardNth13gxx - J21L*J23L*PDstandardNth22gxy - - dJ313L*PDstandardNth3gxy) + gu32*(J13L*(J11L*PDstandardNth11gyy - - J22L*PDstandardNth12gxy - J32L*PDstandardNth13gxy) - - dJ112L*PDstandardNth1gyz - dJ323L*PDstandardNth3gxy) + - gu33*(dJ123L*PDstandardNth1gxz - dJ333L*PDstandardNth3gxy) + - dJ322L*gu32*PDstandardNth3gxz + dJ323L*gu33*PDstandardNth3gxz + - gu31*(J13L*(J12L*PDstandardNth11gxx - J11L*PDstandardNth11gxy - - J21L*PDstandardNth12gxy - J31L*PDstandardNth13gxy) - - J21L*J22L*PDstandardNth22gxz - dJ312L*PDstandardNth3gxz) + - dJ311L*gu21*PDstandardNth3gyy + dJ313L*gu32*PDstandardNth3gyy + - dJ311L*gu31*PDstandardNth3gyz + dJ313L*gu33*PDstandardNth3gyz + - gu32*(2*J12L*J32L*PDstandardNth13gxz - J22L*J23L*PDstandardNth22gxy - - dJ312L*PDstandardNth3gyz) + gu33*(dJ113L*PDstandardNth1gyz - - dJ312L*PDstandardNth3gzz) + gu21*PDstandardNth11gyy*SQR(J11L) + - gu31*PDstandardNth11gyz*SQR(J11L) + gu21*PDstandardNth11gxx*SQR(J12L) + - gu32*PDstandardNth11gxz*SQR(J12L) + gu33*(J11L*J23L*PDstandardNth12gyz - - dJ112L*PDstandardNth1gzz - PDstandardNth11gxy*SQR(J13L)) + - gu21*PDstandardNth22gyy*SQR(J21L) + gu31*PDstandardNth22gyz*SQR(J21L) + - gu21*PDstandardNth22gxx*SQR(J22L) + gu32*PDstandardNth22gxz*SQR(J22L) + - PDstandardNth22gxy*(-2*gu21*J21L*J22L - gu33*SQR(J23L)) + - gu21*PDstandardNth33gyy*SQR(J31L) + gu31*PDstandardNth33gyz*SQR(J31L) + - gu21*PDstandardNth33gxx*SQR(J32L) + gu32*PDstandardNth33gxz*SQR(J32L) + - gu33*(J22L*J23L*PDstandardNth22gxz - PDstandardNth33gxy*SQR(J33L))); - - CCTK_REAL R13 = 0.5*(2*(G112*G123 + G212*G223 + G312*G323 + - gu31*J13L*J23L*PDstandardNth12gxx) + J12L*J23L*(gu22*PDstandardNth12gxy - - gu32*PDstandardNth12gxz) - 2*(G113*G122 + G213*G222 + G313*G322 + - gu31*J11L*J13L*PDstandardNth11gxz + gu31*J13L*J21L*PDstandardNth12gxz) - + J11L*J23L*(-2*gu31*PDstandardNth12gxz - gu32*PDstandardNth12gyz) + - J12L*(-2*gu22*J22L*PDstandardNth12gxz - gu21*J31L*PDstandardNth13gxz) + - J12L*(J13L*(gu22*PDstandardNth11gxy - gu32*PDstandardNth11gxz) + - J11L*(-(gu21*PDstandardNth11gxz) + gu22*PDstandardNth11gyz) - - gu21*J21L*PDstandardNth12gxz - gu32*J33L*PDstandardNth13gxz) + - J13L*(-(gu22*J21L*PDstandardNth12gyy) + gu32*(2*J23L*PDstandardNth12gxy - - J32L*PDstandardNth13gxz)) + J11L*(gu32*J12L*PDstandardNth11gzz + - gu21*(-(J22L*PDstandardNth12gxz) - J32L*PDstandardNth13gxz)) + - J11L*(J13L*(-(gu22*PDstandardNth11gyy) - gu32*PDstandardNth11gyz) + - J23L*(-(gu21*PDstandardNth12gxy) - gu22*PDstandardNth12gyy) - - gu22*J33L*PDstandardNth13gyy) + J11L*(2*gu21*J21L*PDstandardNth12gyz - - gu32*J33L*PDstandardNth13gyz) + J13L*(J22L*(gu22*PDstandardNth12gxy - - gu32*PDstandardNth12gxz) + gu32*(-(J21L*PDstandardNth12gyz) - - J31L*PDstandardNth13gyz)) + (dJ123L*gu21 + - dJ133L*gu31)*PDstandardNth1gxx - 2*dJ113L*gu31*PDstandardNth1gxz + - dJ111L*gu31*PDstandardNth1gzz + J21L*(2*gu31*J11L*PDstandardNth12gzz - - gu21*J23L*PDstandardNth22gxy) + gu32*J21L*J22L*PDstandardNth22gzz + - gu21*J23L*J32L*PDstandardNth23gxx + gu21*J22L*J33L*PDstandardNth23gxx + - 2*gu31*J23L*J33L*PDstandardNth23gxx + gu22*J23L*J32L*PDstandardNth23gxy - + gu22*J22L*J33L*PDstandardNth23gxy + - 2*gu32*J23L*J33L*PDstandardNth23gxy + - J33L*(2*gu31*J13L*PDstandardNth13gxx - gu21*J21L*PDstandardNth23gxy) + - gu21*(-(J13L*J21L*PDstandardNth12gxy) - J11L*J33L*PDstandardNth13gxy + - J23L*(J12L*PDstandardNth12gxx - J31L*PDstandardNth23gxy)) - - 2*gu31*J23L*J31L*PDstandardNth23gxz - - 2*gu22*J22L*J32L*PDstandardNth23gxz - - 2*gu31*J21L*J33L*PDstandardNth23gxz + - J32L*(-2*gu22*J12L*PDstandardNth13gxz - gu21*J21L*PDstandardNth23gxz) + - J31L*(-2*gu31*J13L*PDstandardNth13gxz - gu21*J22L*PDstandardNth23gxz) + - J33L*(-2*gu31*J11L*PDstandardNth13gxz - gu32*J22L*PDstandardNth23gxz) + - J32L*(gu22*J11L*PDstandardNth13gyz - gu32*J23L*PDstandardNth23gxz) + - gu22*(J12L*J31L*PDstandardNth13gyz - J21L*J33L*PDstandardNth23gyy) + - gu22*(J12L*J21L*PDstandardNth12gyz + J31L*(-(J13L*PDstandardNth13gyy) - - J23L*PDstandardNth23gyy)) + 2*gu21*J21L*J31L*PDstandardNth23gyz + - gu22*J22L*J31L*PDstandardNth23gyz + gu22*J21L*J32L*PDstandardNth23gyz + - J31L*(2*gu21*J11L*PDstandardNth13gyz - gu32*J23L*PDstandardNth23gyz) + - gu32*(J11L*J32L*PDstandardNth13gzz - J21L*J33L*PDstandardNth23gyz) + - 2*gu31*J21L*J31L*PDstandardNth23gzz + gu32*J22L*J31L*PDstandardNth23gzz - + gu32*J21L*J32L*PDstandardNth23gzz + (dJ223L*gu21 + - dJ233L*gu31)*PDstandardNth2gxx + dJ223L*gu22*PDstandardNth2gxy + - dJ233L*gu32*PDstandardNth2gxy + gu21*(J13L*J32L*PDstandardNth13gxx - - dJ113L*PDstandardNth1gxy - dJ213L*PDstandardNth2gxy) - - 2*dJ213L*gu31*PDstandardNth2gxz + gu21*(J12L*J33L*PDstandardNth13gxx - - dJ112L*PDstandardNth1gxz - dJ212L*PDstandardNth2gxz) + - gu22*(dJ123L*PDstandardNth1gxy - dJ222L*PDstandardNth2gxz) + - gu32*(dJ133L*PDstandardNth1gxy - dJ223L*PDstandardNth2gxz) + - gu22*(J11L*J22L*PDstandardNth12gyz - dJ122L*PDstandardNth1gxz - - dJ213L*PDstandardNth2gyy) + dJ211L*gu21*PDstandardNth2gyz + - dJ212L*gu22*PDstandardNth2gyz + gu32*(J12L*J21L*PDstandardNth12gzz - - dJ123L*PDstandardNth1gxz - dJ213L*PDstandardNth2gyz) + - dJ211L*gu31*PDstandardNth2gzz + dJ212L*gu32*PDstandardNth2gzz + - gu21*J32L*J33L*PDstandardNth33gxx + gu22*J32L*J33L*PDstandardNth33gxy + - J31L*(2*gu31*J11L*PDstandardNth13gzz - gu21*J33L*PDstandardNth33gxy) - - 2*gu31*J31L*J33L*PDstandardNth33gxz + gu21*(dJ111L*PDstandardNth1gyz - - J31L*J32L*PDstandardNth33gxz) + gu32*(J11L*J22L*PDstandardNth12gzz - - dJ113L*PDstandardNth1gyz - J32L*J33L*PDstandardNth33gxz) + - gu22*(J13L*J32L*PDstandardNth13gxy - dJ113L*PDstandardNth1gyy - - J31L*J33L*PDstandardNth33gyy) + gu22*J31L*J32L*PDstandardNth33gyz + - gu32*(dJ112L*PDstandardNth1gzz - J31L*J33L*PDstandardNth33gyz) + - gu32*J31L*J32L*PDstandardNth33gzz + dJ323L*gu21*PDstandardNth3gxx + - dJ333L*gu31*PDstandardNth3gxx + dJ323L*gu22*PDstandardNth3gxy + - dJ333L*gu32*PDstandardNth3gxy + gu21*(J22L*J23L*PDstandardNth22gxx - - dJ313L*PDstandardNth3gxy) - 2*dJ313L*gu31*PDstandardNth3gxz + - gu21*(J13L*(J12L*PDstandardNth11gxx - J11L*PDstandardNth11gxy - - J31L*PDstandardNth13gxy) + J22L*(J13L*PDstandardNth12gxx - - J21L*PDstandardNth22gxz) - dJ312L*PDstandardNth3gxz) + - gu22*(dJ112L*PDstandardNth1gyz - dJ322L*PDstandardNth3gxz) + - gu32*(2*J13L*J33L*PDstandardNth13gxy - J22L*J23L*PDstandardNth22gxz - - dJ323L*PDstandardNth3gxz) + gu22*(J22L*J23L*PDstandardNth22gxy - - dJ313L*PDstandardNth3gyy) + dJ311L*gu21*PDstandardNth3gyz + - dJ312L*gu22*PDstandardNth3gyz + gu32*(J12L*J31L*PDstandardNth13gzz - - J21L*J23L*PDstandardNth22gyz - dJ313L*PDstandardNth3gyz) + - dJ311L*gu31*PDstandardNth3gzz + dJ312L*gu32*PDstandardNth3gzz + - gu21*PDstandardNth11gyz*SQR(J11L) + gu31*PDstandardNth11gzz*SQR(J11L) + - gu22*(J12L*J33L*PDstandardNth13gxy - J21L*J23L*PDstandardNth22gyy - - PDstandardNth11gxz*SQR(J12L)) + gu31*PDstandardNth11gxx*SQR(J13L) + - gu32*PDstandardNth11gxy*SQR(J13L) + gu21*PDstandardNth22gyz*SQR(J21L) + - gu31*PDstandardNth22gzz*SQR(J21L) + - PDstandardNth22gxz*(-2*gu31*J21L*J23L - gu22*SQR(J22L)) + - gu31*PDstandardNth22gxx*SQR(J23L) + gu32*PDstandardNth22gxy*SQR(J23L) + - gu21*PDstandardNth33gyz*SQR(J31L) + gu31*PDstandardNth33gzz*SQR(J31L) + - gu22*(J21L*J22L*PDstandardNth22gyz - PDstandardNth33gxz*SQR(J32L)) + - gu31*PDstandardNth33gxx*SQR(J33L) + gu32*PDstandardNth33gxy*SQR(J33L)); + CCTK_REAL R12 = G113*G123 - G112*G133 + G212*G222 + G213*G223 + + G212*(-G222 - G233) + G312*G322 + G313*G323 + G312*(-G322 - G333) + + 0.5*(gu32*((J13L*J22L - J12L*J23L)*PDstandardNth12gxy + (-(J13L*J22L) + + J12L*J23L)*PDstandardNth12gxy + (J13L*J32L - + J12L*J33L)*PDstandardNth13gxy + (-(J13L*J32L) + + J12L*J33L)*PDstandardNth13gxy) + gu22*((J12L*J21L - + J11L*J22L)*PDstandardNth12gyy + (-(J12L*J21L) + + J11L*J22L)*PDstandardNth12gyy + (J12L*J31L - + J11L*J32L)*PDstandardNth13gyy + (-(J12L*J31L) + + J11L*J32L)*PDstandardNth13gyy) + gu31*(J13L*(J12L*PDstandardNth11gxx - + J11L*PDstandardNth11gxy - J21L*PDstandardNth12gxy - + J31L*PDstandardNth13gxy) + J11L*(-(J23L*PDstandardNth12gxy) + + 2*J21L*PDstandardNth12gyz - J33L*PDstandardNth13gxy) + + J12L*(-(J11L*PDstandardNth11gxz) + J23L*PDstandardNth12gxx - + J21L*PDstandardNth12gxz - J31L*PDstandardNth13gxz) + + dJ123L*PDstandardNth1gxx - dJ113L*PDstandardNth1gxy - + dJ112L*PDstandardNth1gxz + dJ111L*PDstandardNth1gyz + + J23L*(J22L*PDstandardNth22gxx - J21L*PDstandardNth22gxy) + + J33L*(J12L*PDstandardNth13gxx - J21L*PDstandardNth23gxy) + + J31L*(2*J11L*PDstandardNth13gyz - J23L*PDstandardNth23gxy) + + J32L*(J13L*PDstandardNth13gxx - J11L*PDstandardNth13gxz - + J21L*PDstandardNth23gxz) + J22L*(J13L*PDstandardNth12gxx - + J11L*PDstandardNth12gxz - J21L*PDstandardNth22gxz - + J31L*PDstandardNth23gxz) + 2*J21L*J31L*PDstandardNth23gyz + + dJ223L*PDstandardNth2gxx - dJ213L*PDstandardNth2gxy - + dJ212L*PDstandardNth2gxz + dJ211L*PDstandardNth2gyz + + J32L*J33L*PDstandardNth33gxx + J33L*(J22L*PDstandardNth23gxx - + J31L*PDstandardNth33gxy) + J32L*(J23L*PDstandardNth23gxx - + J31L*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*(J13L*(-(J12L*PDstandardNth11gxy) + J11L*PDstandardNth11gyy - + J22L*PDstandardNth12gxy - J32L*PDstandardNth13gxy) + + J12L*(-(J11L*PDstandardNth11gyz) - J23L*PDstandardNth12gxy - + J21L*PDstandardNth12gyz - J33L*PDstandardNth13gxy - + J31L*PDstandardNth13gyz) + J11L*(J23L*PDstandardNth12gyy - + J32L*PDstandardNth13gyz) - dJ123L*PDstandardNth1gxy + + dJ122L*PDstandardNth1gxz + dJ113L*PDstandardNth1gyy - + dJ112L*PDstandardNth1gyz + J22L*(2*J12L*PDstandardNth12gxz - + J11L*PDstandardNth12gyz - J23L*PDstandardNth22gxy) + + J21L*(J13L*PDstandardNth12gyy - J22L*PDstandardNth22gyz) + + 2*J22L*J32L*PDstandardNth23gxz + J23L*J31L*PDstandardNth23gyy + + J21L*J33L*PDstandardNth23gyy + J31L*(J13L*PDstandardNth13gyy - + J22L*PDstandardNth23gyz) + J21L*(J23L*PDstandardNth22gyy - + J32L*PDstandardNth23gyz) - dJ223L*PDstandardNth2gxy + + dJ222L*PDstandardNth2gxz + dJ213L*PDstandardNth2gyy - + dJ212L*PDstandardNth2gyz + J33L*(J11L*PDstandardNth13gyy - + J22L*PDstandardNth23gxy - J32L*PDstandardNth33gxy) + + J31L*J33L*PDstandardNth33gyy + J32L*(2*J12L*PDstandardNth13gxz - + J23L*PDstandardNth23gxy - J31L*PDstandardNth33gyz) - + dJ323L*PDstandardNth3gxy + dJ322L*PDstandardNth3gxz + + dJ313L*PDstandardNth3gyy - dJ312L*PDstandardNth3gyz + + PDstandardNth11gxz*SQR(J12L) + PDstandardNth22gxz*SQR(J22L) + + PDstandardNth33gxz*SQR(J32L)) + gu33*(-2*J13L*J23L*PDstandardNth12gxy + + J12L*(J13L*PDstandardNth11gxz - J11L*PDstandardNth11gzz - + J21L*PDstandardNth12gzz) + J11L*(J13L*PDstandardNth11gyz - + J22L*PDstandardNth12gzz) - 2*J13L*J33L*PDstandardNth13gxy + + J12L*J33L*PDstandardNth13gxz + J11L*J33L*PDstandardNth13gyz + + J12L*(J23L*PDstandardNth12gxz - J31L*PDstandardNth13gzz) + + J11L*(J23L*PDstandardNth12gyz - J32L*PDstandardNth13gzz) - + dJ133L*PDstandardNth1gxy + dJ123L*PDstandardNth1gxz + + dJ113L*PDstandardNth1gyz - dJ112L*PDstandardNth1gzz + + J22L*J23L*PDstandardNth22gxz + J21L*J23L*PDstandardNth22gyz + + J22L*(J13L*PDstandardNth12gxz - J21L*PDstandardNth22gzz) - + 2*J23L*J33L*PDstandardNth23gxy + J23L*J32L*PDstandardNth23gxz + + J22L*J33L*PDstandardNth23gxz + J23L*J31L*PDstandardNth23gyz + + J21L*J33L*PDstandardNth23gyz + J31L*(J13L*PDstandardNth13gyz - + J22L*PDstandardNth23gzz) + J21L*(J13L*PDstandardNth12gyz - + J32L*PDstandardNth23gzz) - dJ233L*PDstandardNth2gxy + + dJ223L*PDstandardNth2gxz + dJ213L*PDstandardNth2gyz - + dJ212L*PDstandardNth2gzz + J32L*J33L*PDstandardNth33gxz + + J31L*J33L*PDstandardNth33gyz + J32L*(J13L*PDstandardNth13gxz - + J31L*PDstandardNth33gzz) - dJ333L*PDstandardNth3gxy + + dJ323L*PDstandardNth3gxz + dJ313L*PDstandardNth3gyz - + dJ312L*PDstandardNth3gzz - PDstandardNth11gxy*SQR(J13L) - + PDstandardNth22gxy*SQR(J23L) - PDstandardNth33gxy*SQR(J33L))); + + CCTK_REAL R13 = -(G113*G122) + G112*G123 + G212*G223 + G213*(-G222 - + G233) + G213*G233 + G312*G323 + G313*(-G322 - G333) + G313*G333 + + 0.5*(gu32*((J13L*J22L - J12L*J23L)*PDstandardNth12gxz + (-(J13L*J22L) + + J12L*J23L)*PDstandardNth12gxz + (J13L*J32L - + J12L*J33L)*PDstandardNth13gxz + (-(J13L*J32L) + + J12L*J33L)*PDstandardNth13gxz) + gu33*((J13L*J21L - + J11L*J23L)*PDstandardNth12gzz + (-(J13L*J21L) + + J11L*J23L)*PDstandardNth12gzz + (J13L*J31L - + J11L*J33L)*PDstandardNth13gzz + (-(J13L*J31L) + + J11L*J33L)*PDstandardNth13gzz) + gu21*(J13L*(J12L*PDstandardNth11gxx - + J11L*PDstandardNth11gxy - J21L*PDstandardNth12gxy - + J31L*PDstandardNth13gxy) + J11L*(-(J23L*PDstandardNth12gxy) + + 2*J21L*PDstandardNth12gyz - J33L*PDstandardNth13gxy) + + J12L*(-(J11L*PDstandardNth11gxz) + J23L*PDstandardNth12gxx - + J21L*PDstandardNth12gxz - J31L*PDstandardNth13gxz) + + dJ123L*PDstandardNth1gxx - dJ113L*PDstandardNth1gxy - + dJ112L*PDstandardNth1gxz + dJ111L*PDstandardNth1gyz + + J23L*(J22L*PDstandardNth22gxx - J21L*PDstandardNth22gxy) + + J33L*(J12L*PDstandardNth13gxx - J21L*PDstandardNth23gxy) + + J31L*(2*J11L*PDstandardNth13gyz - J23L*PDstandardNth23gxy) + + J32L*(J13L*PDstandardNth13gxx - J11L*PDstandardNth13gxz - + J21L*PDstandardNth23gxz) + J22L*(J13L*PDstandardNth12gxx - + J11L*PDstandardNth12gxz - J21L*PDstandardNth22gxz - + J31L*PDstandardNth23gxz) + 2*J21L*J31L*PDstandardNth23gyz + + dJ223L*PDstandardNth2gxx - dJ213L*PDstandardNth2gxy - + dJ212L*PDstandardNth2gxz + dJ211L*PDstandardNth2gyz + + J32L*J33L*PDstandardNth33gxx + J33L*(J22L*PDstandardNth23gxx - + J31L*PDstandardNth33gxy) + J32L*(J23L*PDstandardNth23gxx - + J31L*PDstandardNth33gxz) + dJ323L*PDstandardNth3gxx - + dJ313L*PDstandardNth3gxy - dJ312L*PDstandardNth3gxz + + dJ311L*PDstandardNth3gyz + PDstandardNth11gyz*SQR(J11L) + + PDstandardNth22gyz*SQR(J21L) + PDstandardNth33gyz*SQR(J31L)) + + gu22*(-2*J12L*J22L*PDstandardNth12gxz + J13L*(J12L*PDstandardNth11gxy - + J11L*PDstandardNth11gyy - J21L*PDstandardNth12gyy) + + J11L*J22L*PDstandardNth12gyz + J13L*J32L*PDstandardNth13gxy - + 2*J12L*J32L*PDstandardNth13gxz + J13L*(J22L*PDstandardNth12gxy - + J31L*PDstandardNth13gyy) + J11L*(J12L*PDstandardNth11gyz - + J23L*PDstandardNth12gyy - J33L*PDstandardNth13gyy) + + J11L*J32L*PDstandardNth13gyz + dJ123L*PDstandardNth1gxy - + dJ122L*PDstandardNth1gxz - dJ113L*PDstandardNth1gyy + + dJ112L*PDstandardNth1gyz + J22L*J23L*PDstandardNth22gxy + + J23L*(J12L*PDstandardNth12gxy - J21L*PDstandardNth22gyy) + + J21L*J22L*PDstandardNth22gyz + J23L*J32L*PDstandardNth23gxy + + J22L*J33L*PDstandardNth23gxy - 2*J22L*J32L*PDstandardNth23gxz + + J31L*(J12L*PDstandardNth13gyz - J23L*PDstandardNth23gyy) + + J21L*(J12L*PDstandardNth12gyz - J33L*PDstandardNth23gyy) + + J22L*J31L*PDstandardNth23gyz + J21L*J32L*PDstandardNth23gyz + + dJ223L*PDstandardNth2gxy - dJ222L*PDstandardNth2gxz - + dJ213L*PDstandardNth2gyy + dJ212L*PDstandardNth2gyz + + J32L*J33L*PDstandardNth33gxy + J33L*(J12L*PDstandardNth13gxy - + J31L*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*(J13L*(-(J12L*PDstandardNth11gxz) + - J11L*PDstandardNth11gyz - J22L*PDstandardNth12gxz - + J32L*PDstandardNth13gxz) + J12L*(J11L*PDstandardNth11gzz - + J23L*PDstandardNth12gxz - J33L*PDstandardNth13gxz) + + J13L*(2*J23L*PDstandardNth12gxy - J21L*PDstandardNth12gyz - + J31L*PDstandardNth13gyz) + J11L*(-(J23L*PDstandardNth12gyz) + + J22L*PDstandardNth12gzz - J33L*PDstandardNth13gyz) + + dJ133L*PDstandardNth1gxy - dJ123L*PDstandardNth1gxz - + dJ113L*PDstandardNth1gyz + dJ112L*PDstandardNth1gzz + + J22L*(-(J23L*PDstandardNth22gxz) + J21L*PDstandardNth22gzz) + + J32L*(J11L*PDstandardNth13gzz - J23L*PDstandardNth23gxz) + + J31L*(J12L*PDstandardNth13gzz - J23L*PDstandardNth23gyz) + + J21L*(J12L*PDstandardNth12gzz - J23L*PDstandardNth22gyz - + J33L*PDstandardNth23gyz) + J22L*J31L*PDstandardNth23gzz + + J21L*J32L*PDstandardNth23gzz + dJ233L*PDstandardNth2gxy - + dJ223L*PDstandardNth2gxz - dJ213L*PDstandardNth2gyz + + dJ212L*PDstandardNth2gzz + J33L*(2*J23L*PDstandardNth23gxy - + J32L*PDstandardNth33gxz) + J33L*(2*J13L*PDstandardNth13gxy - + J22L*PDstandardNth23gxz - J31L*PDstandardNth33gyz) + + J31L*J32L*PDstandardNth33gzz + dJ333L*PDstandardNth3gxy - + dJ323L*PDstandardNth3gxz - dJ313L*PDstandardNth3gyz + + dJ312L*PDstandardNth3gzz + PDstandardNth11gxy*SQR(J13L) + + PDstandardNth22gxy*SQR(J23L) + PDstandardNth33gxy*SQR(J33L))); CCTK_REAL R22 = 0.5*(gu31*(-4*J12L*J22L*PDstandardNth12gxz - 2*J13L*J21L*PDstandardNth12gyy + 2*J11L*J22L*PDstandardNth12gyz + @@ -730,94 +738,98 @@ static void ML_ADMConstraints_MP_Body(cGH const * restrict const cctkGH, int con dJ222L*PDstandardNth2gzz - PDstandardNth33gzz*SQR(J32L)) + PDstandardNth33gyy*(-2*gu31*J31L*J33L - gu33*SQR(J33L))); - CCTK_REAL R23 = 0.5*(2*(G112*G113 + G212*G213 + G312*G313 + - gu31*J13L*J23L*PDstandardNth12gxy + gu32*J13L*J23L*PDstandardNth12gyy) - - 2*(G111*G123 + G211*G223 + G311*G323 + - gu32*J12L*J13L*PDstandardNth11gyz + gu11*J11L*J21L*PDstandardNth12gyz) - + J12L*(-2*gu32*J23L*PDstandardNth12gyz - gu11*J33L*PDstandardNth13gxx) - + J12L*(J13L*(-(gu21*PDstandardNth11gxy) - gu31*PDstandardNth11gxz) + - J11L*(gu11*PDstandardNth11gxz - gu21*PDstandardNth11gyz) + - gu31*J11L*PDstandardNth11gzz + J23L*(-(gu11*PDstandardNth12gxx) - - gu21*PDstandardNth12gxy) + gu21*(2*J22L*PDstandardNth12gxz - - J21L*PDstandardNth12gyz - J33L*PDstandardNth13gxy)) + - J13L*(-2*gu32*J22L*PDstandardNth12gyz - gu31*J32L*PDstandardNth13gxz) + - J11L*J33L*(gu11*PDstandardNth13gxy - gu31*PDstandardNth13gyz) + - J12L*(gu31*J21L*PDstandardNth12gzz - gu21*J31L*PDstandardNth13gyz) + - J11L*(J13L*(gu21*PDstandardNth11gyy - gu31*PDstandardNth11gyz) + - J23L*(gu11*PDstandardNth12gxy - gu31*PDstandardNth12gyz) + - gu21*(J23L*PDstandardNth12gyy - J32L*PDstandardNth13gyz)) + - dJ133L*gu32*PDstandardNth1gyy - 2*dJ123L*gu32*PDstandardNth1gyz + - dJ122L*gu32*PDstandardNth1gzz + J22L*(gu21*(-(J13L*PDstandardNth12gxy) - - J11L*PDstandardNth12gyz) + gu11*(J11L*PDstandardNth12gxz - - J23L*PDstandardNth22gxx)) + J22L*(2*gu32*J12L*PDstandardNth12gzz - - gu21*J23L*PDstandardNth22gxy) + gu11*(J11L*J32L*PDstandardNth13gxz - - J22L*J33L*PDstandardNth23gxx) + gu11*J23L*J31L*PDstandardNth23gxy + - gu11*J21L*J33L*PDstandardNth23gxy + 2*gu31*J23L*J33L*PDstandardNth23gxy - + J33L*(2*gu32*J13L*PDstandardNth13gyy - gu21*J22L*PDstandardNth23gxy) - + gu21*(J11L*J33L*PDstandardNth13gyy - J23L*J32L*PDstandardNth23gxy) + - gu11*J22L*J31L*PDstandardNth23gxz + gu11*J21L*J32L*PDstandardNth23gxz + - 2*gu21*J22L*J32L*PDstandardNth23gxz + - J33L*(-2*gu32*J12L*PDstandardNth13gyz - gu31*J22L*PDstandardNth23gxz) + - J32L*(-2*gu32*J13L*PDstandardNth13gyz - gu31*J23L*PDstandardNth23gxz) + - gu21*J23L*J31L*PDstandardNth23gyy + gu21*J21L*J33L*PDstandardNth23gyy + - 2*gu32*J23L*J33L*PDstandardNth23gyy - - 2*gu11*J21L*J31L*PDstandardNth23gyz - - 2*gu32*J23L*J32L*PDstandardNth23gyz - - 2*gu32*J22L*J33L*PDstandardNth23gyz + - J32L*(2*gu32*J12L*PDstandardNth13gzz - gu21*J21L*PDstandardNth23gyz) + - J31L*(-2*gu11*J11L*PDstandardNth13gyz - gu21*J22L*PDstandardNth23gyz) + - gu31*(J11L*J32L*PDstandardNth13gzz - J23L*J31L*PDstandardNth23gyz) + - gu31*(dJ133L*PDstandardNth1gxy - J21L*J33L*PDstandardNth23gyz) + - gu31*J22L*J31L*PDstandardNth23gzz + gu31*J21L*J32L*PDstandardNth23gzz + - 2*gu32*J22L*J32L*PDstandardNth23gzz + - gu11*(J13L*J21L*PDstandardNth12gxy + J12L*J21L*PDstandardNth12gxz + + CCTK_REAL R23 = G112*G113 - G111*G123 + G212*G213 + G223*(-G211 - + G233) + G223*G233 + G312*G313 + G323*(-G311 - G333) + G323*G333 + + 0.5*(gu31*((J13L*J22L - J12L*J23L)*PDstandardNth12gxz + (-(J13L*J22L) + + J12L*J23L)*PDstandardNth12gxz + (J13L*J32L - + J12L*J33L)*PDstandardNth13gxz + (-(J13L*J32L) + + J12L*J33L)*PDstandardNth13gxz) + gu33*((J13L*J22L - + J12L*J23L)*PDstandardNth12gzz + (-(J13L*J22L) + + J12L*J23L)*PDstandardNth12gzz + (J13L*J32L - + J12L*J33L)*PDstandardNth13gzz + (-(J13L*J32L) + + J12L*J33L)*PDstandardNth13gzz) + gu11*(J13L*J21L*PDstandardNth12gxy + + J12L*J21L*PDstandardNth12gxz - 2*J11L*J21L*PDstandardNth12gyz + J13L*(-(J12L*PDstandardNth11gxx) + J11L*PDstandardNth11gxy - - J22L*PDstandardNth12gxx - J32L*PDstandardNth13gxx) - - dJ123L*PDstandardNth1gxx - dJ223L*PDstandardNth2gxx) + - dJ213L*gu11*PDstandardNth2gxy + dJ233L*gu31*PDstandardNth2gxy + - gu21*(J13L*(J21L*PDstandardNth12gyy - J32L*PDstandardNth13gxy) - - dJ123L*PDstandardNth1gxy - dJ223L*PDstandardNth2gxy) + - dJ212L*gu11*PDstandardNth2gxz + dJ222L*gu21*PDstandardNth2gxz + - gu31*(2*J13L*J33L*PDstandardNth13gxy - dJ123L*PDstandardNth1gxz - - dJ223L*PDstandardNth2gxz) + dJ213L*gu21*PDstandardNth2gyy + - dJ233L*gu32*PDstandardNth2gyy - 2*dJ223L*gu32*PDstandardNth2gyz + - gu11*(dJ113L*PDstandardNth1gxy - dJ211L*PDstandardNth2gyz) + - gu21*(dJ122L*PDstandardNth1gxz - dJ212L*PDstandardNth2gyz) + - gu31*((-(J13L*J22L) - J12L*J23L)*PDstandardNth12gxz - - J13L*J21L*PDstandardNth12gyz - J12L*J33L*PDstandardNth13gxz - - dJ113L*PDstandardNth1gyz - dJ213L*PDstandardNth2gyz) + - dJ212L*gu31*PDstandardNth2gzz + dJ222L*gu32*PDstandardNth2gzz + - gu11*(dJ112L*PDstandardNth1gxz - J32L*J33L*PDstandardNth33gxx) + - gu11*J31L*J33L*PDstandardNth33gxy + gu21*(dJ113L*PDstandardNth1gyy - - J32L*J33L*PDstandardNth33gxy) + gu11*J31L*J32L*PDstandardNth33gxz + - gu31*(dJ112L*PDstandardNth1gzz - J32L*J33L*PDstandardNth33gxz) + - gu21*J31L*J33L*PDstandardNth33gyy - 2*gu32*J32L*J33L*PDstandardNth33gyz - + gu21*(-(dJ112L*PDstandardNth1gyz) + J32L*(2*J12L*PDstandardNth13gxz - - J31L*PDstandardNth33gyz)) + gu31*(J22L*(J11L*PDstandardNth12gzz - - J23L*PDstandardNth22gxz) + J31L*(-(J13L*PDstandardNth13gyz) - - J33L*PDstandardNth33gyz)) + gu31*J31L*J32L*PDstandardNth33gzz + - gu11*(J13L*J31L*PDstandardNth13gxy - dJ111L*PDstandardNth1gyz - - dJ323L*PDstandardNth3gxx) + dJ313L*gu11*PDstandardNth3gxy + - dJ333L*gu31*PDstandardNth3gxy + gu21*(J21L*J23L*PDstandardNth22gyy - - dJ323L*PDstandardNth3gxy) + dJ312L*gu11*PDstandardNth3gxz + - dJ322L*gu21*PDstandardNth3gxz + gu31*(J12L*J31L*PDstandardNth13gzz - - J21L*J23L*PDstandardNth22gyz - dJ323L*PDstandardNth3gxz) + - dJ313L*gu21*PDstandardNth3gyy + dJ333L*gu32*PDstandardNth3gyy - - 2*dJ323L*gu32*PDstandardNth3gyz + gu11*(J21L*J23L*PDstandardNth22gxy - - dJ311L*PDstandardNth3gyz) + gu21*(J13L*J31L*PDstandardNth13gyy - - J21L*J22L*PDstandardNth22gyz - dJ312L*PDstandardNth3gyz) + - gu31*(J21L*J22L*PDstandardNth22gzz - dJ313L*PDstandardNth3gyz) + - dJ312L*gu31*PDstandardNth3gzz + dJ322L*gu32*PDstandardNth3gzz + - gu11*(J21L*J22L*PDstandardNth22gxz - PDstandardNth11gyz*SQR(J11L)) + - gu21*PDstandardNth11gxz*SQR(J12L) + gu32*PDstandardNth11gzz*SQR(J12L) + - gu31*PDstandardNth11gxy*SQR(J13L) + gu32*PDstandardNth11gyy*SQR(J13L) + - PDstandardNth22gyz*(-2*gu32*J22L*J23L - gu11*SQR(J21L)) + - gu21*PDstandardNth22gxz*SQR(J22L) + gu32*PDstandardNth22gzz*SQR(J22L) + - gu31*PDstandardNth22gxy*SQR(J23L) + gu32*PDstandardNth22gyy*SQR(J23L) + - gu11*(J12L*J31L*PDstandardNth13gxz - J23L*J32L*PDstandardNth23gxx - - PDstandardNth33gyz*SQR(J31L)) + gu21*PDstandardNth33gxz*SQR(J32L) + - gu32*PDstandardNth33gzz*SQR(J32L) + gu31*PDstandardNth33gxy*SQR(J33L) + - gu32*PDstandardNth33gyy*SQR(J33L)); + J22L*PDstandardNth12gxx - J32L*PDstandardNth13gxx) + + J12L*(J11L*PDstandardNth11gxz - J23L*PDstandardNth12gxx - + J33L*PDstandardNth13gxx) + J13L*J31L*PDstandardNth13gxy + + J12L*J31L*PDstandardNth13gxz - 2*J11L*J31L*PDstandardNth13gyz - + dJ123L*PDstandardNth1gxx + dJ113L*PDstandardNth1gxy + + dJ112L*PDstandardNth1gxz - dJ111L*PDstandardNth1gyz + + J23L*(J11L*PDstandardNth12gxy - J22L*PDstandardNth22gxx) + + J21L*J23L*PDstandardNth22gxy + J21L*J22L*PDstandardNth22gxz + + J32L*(J11L*PDstandardNth13gxz - J23L*PDstandardNth23gxx) + + J22L*(J11L*PDstandardNth12gxz - 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 + J33L*(J11L*PDstandardNth13gxy - + J32L*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*(J13L*(-(J12L*PDstandardNth11gxy) + J11L*PDstandardNth11gyy - + J22L*PDstandardNth12gxy - J32L*PDstandardNth13gxy) + + J12L*(-(J11L*PDstandardNth11gyz) - J23L*PDstandardNth12gxy - + J21L*PDstandardNth12gyz - J33L*PDstandardNth13gxy - + J31L*PDstandardNth13gyz) + J11L*(J23L*PDstandardNth12gyy - + J32L*PDstandardNth13gyz) - dJ123L*PDstandardNth1gxy + + dJ122L*PDstandardNth1gxz + dJ113L*PDstandardNth1gyy - + dJ112L*PDstandardNth1gyz + J22L*(2*J12L*PDstandardNth12gxz - + J11L*PDstandardNth12gyz - J23L*PDstandardNth22gxy) + + J21L*(J13L*PDstandardNth12gyy - J22L*PDstandardNth22gyz) + + 2*J22L*J32L*PDstandardNth23gxz + J23L*J31L*PDstandardNth23gyy + + J21L*J33L*PDstandardNth23gyy + J31L*(J13L*PDstandardNth13gyy - + J22L*PDstandardNth23gyz) + J21L*(J23L*PDstandardNth22gyy - + J32L*PDstandardNth23gyz) - dJ223L*PDstandardNth2gxy + + dJ222L*PDstandardNth2gxz + dJ213L*PDstandardNth2gyy - + dJ212L*PDstandardNth2gyz + J33L*(J11L*PDstandardNth13gyy - + J22L*PDstandardNth23gxy - J32L*PDstandardNth33gxy) + + J31L*J33L*PDstandardNth33gyy + J32L*(2*J12L*PDstandardNth13gxz - + J23L*PDstandardNth23gxy - J31L*PDstandardNth33gyz) - + dJ323L*PDstandardNth3gxy + dJ322L*PDstandardNth3gxz + + dJ313L*PDstandardNth3gyy - dJ312L*PDstandardNth3gyz + + PDstandardNth11gxz*SQR(J12L) + PDstandardNth22gxz*SQR(J22L) + + PDstandardNth33gxz*SQR(J32L)) + gu31*(J13L*(-(J12L*PDstandardNth11gxz) + - J11L*PDstandardNth11gyz - J22L*PDstandardNth12gxz - + J32L*PDstandardNth13gxz) + J12L*(J11L*PDstandardNth11gzz - + J23L*PDstandardNth12gxz - J33L*PDstandardNth13gxz) + + J13L*(2*J23L*PDstandardNth12gxy - J21L*PDstandardNth12gyz - + J31L*PDstandardNth13gyz) + J11L*(-(J23L*PDstandardNth12gyz) + + J22L*PDstandardNth12gzz - J33L*PDstandardNth13gyz) + + dJ133L*PDstandardNth1gxy - dJ123L*PDstandardNth1gxz - + dJ113L*PDstandardNth1gyz + dJ112L*PDstandardNth1gzz + + J22L*(-(J23L*PDstandardNth22gxz) + J21L*PDstandardNth22gzz) + + J32L*(J11L*PDstandardNth13gzz - J23L*PDstandardNth23gxz) + + J31L*(J12L*PDstandardNth13gzz - J23L*PDstandardNth23gyz) + + J21L*(J12L*PDstandardNth12gzz - J23L*PDstandardNth22gyz - + J33L*PDstandardNth23gyz) + J22L*J31L*PDstandardNth23gzz + + J21L*J32L*PDstandardNth23gzz + dJ233L*PDstandardNth2gxy - + dJ223L*PDstandardNth2gxz - dJ213L*PDstandardNth2gyz + + dJ212L*PDstandardNth2gzz + J33L*(2*J23L*PDstandardNth23gxy - + J32L*PDstandardNth33gxz) + J33L*(2*J13L*PDstandardNth13gxy - + J22L*PDstandardNth23gxz - J31L*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 R33 = 0.5*(gu21*(-4*J13L*J23L*PDstandardNth12gxy + 2*J13L*J22L*PDstandardNth12gxz + 2*J13L*J21L*PDstandardNth12gyz - diff --git a/ML_ADMQuantities/src/ML_ADMQuantities.cc b/ML_ADMQuantities/src/ML_ADMQuantities.cc index 7f3aa62..597cd72 100644 --- a/ML_ADMQuantities/src/ML_ADMQuantities.cc +++ b/ML_ADMQuantities/src/ML_ADMQuantities.cc @@ -484,16 +484,15 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu21*PDstandardNth12gt11 - - 2*gtu31*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu32*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu21*PDstandardNth12gt11 - 2*gtu31*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu32*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -525,16 +524,15 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu21*PDstandardNth12gt22 - - 2*gtu31*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu32*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu21*PDstandardNth12gt22 - 2*gtu31*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu32*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -551,21 +549,21 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu21*PDstandardNth12gt33 - 2*gtu31*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu32*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu21*PDstandardNth12gt33 - + 2*gtu31*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu32*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; CCTK_REAL trRt = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 + gtu32*Rt23) + gtu33*Rt33; - CCTK_REAL ephi = IfThen(conformalMethod,INV(sqrt(phiL)),exp(phiL)); + CCTK_REAL ephi = + IfThen(ToReal(conformalMethod),INV(sqrt(phiL)),exp(phiL)); CCTK_REAL Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; @@ -600,67 +598,60 @@ static void ML_ADMQuantities_Body(cGH const * restrict const cctkGH, int const d beta3L*eTzzL)*INV(alphaL); CCTK_REAL MadmL = - 0.01989436788648691697111047042156429525431*((-(Gt111*Gtlu111) - - Gt112*Gtlu112 - Gt113*Gtlu113 - Gt211*Gtlu121 - Gt212*Gtlu122 - - Gt213*Gtlu123 - Gt311*Gtlu131 - Gt312*Gtlu132 - Gt313*Gtlu133)*gtu11 + + 0.01989436788648691697111047042156429525431*(-((Gt111*Gtlu111 + + Gt112*Gtlu112 + Gt113*Gtlu113 + Gt211*Gtlu121 + Gt212*Gtlu122 + + Gt213*Gtlu123 + Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133)*gtu11) + (-(Gt122*Gtlu112) - Gt123*Gtlu113 - Gt222*Gtlu122 - Gt223*Gtlu123 - Gt322*Gtlu132 - Gt323*Gtlu133 - Gt111*Gtlu211 + Gt112*(-Gtlu111 - Gtlu212) - Gt113*Gtlu213 - Gt211*Gtlu221 + Gt212*(-Gtlu121 - Gtlu222) - Gt213*Gtlu223 - Gt311*Gtlu231 + Gt312*(-Gtlu131 - Gtlu232) - - Gt313*Gtlu233)*gtu21 + (-(Gt112*Gtlu211) - Gt122*Gtlu212 - - Gt123*Gtlu213 - Gt212*Gtlu221 - Gt222*Gtlu222 - Gt223*Gtlu223 - - Gt312*Gtlu231 - Gt322*Gtlu232 - Gt323*Gtlu233)*gtu22 + - (-(Gt123*Gtlu112) - Gt133*Gtlu113 - Gt223*Gtlu122 - Gt233*Gtlu123 - - Gt323*Gtlu132 - Gt333*Gtlu133 - Gt111*Gtlu311 - Gt112*Gtlu312 + - Gt113*(-Gtlu111 - Gtlu313) - Gt211*Gtlu321 - Gt212*Gtlu322 + - Gt213*(-Gtlu121 - Gtlu323) - Gt311*Gtlu331 - Gt312*Gtlu332 + - Gt313*(-Gtlu131 - Gtlu333))*gtu31 + (-(Gt113*Gtlu211) - Gt133*Gtlu213 - - Gt213*Gtlu221 - Gt233*Gtlu223 - Gt313*Gtlu231 - Gt333*Gtlu233 - - Gt112*Gtlu311 - Gt122*Gtlu312 + Gt123*(-Gtlu212 - Gtlu313) - - Gt212*Gtlu321 - Gt222*Gtlu322 + Gt223*(-Gtlu222 - Gtlu323) - - Gt312*Gtlu331 - Gt322*Gtlu332 + Gt323*(-Gtlu232 - Gtlu333))*gtu32 + - (-(Gt113*Gtlu311) - Gt123*Gtlu312 - Gt133*Gtlu313 - Gt213*Gtlu321 - - Gt223*Gtlu322 - Gt233*Gtlu323 - Gt313*Gtlu331 - Gt323*Gtlu332 - - Gt333*Gtlu333)*gtu33 + trRt - ephi*trRt + pow(ephi,5)*(2*Atm12*Atm21 + - 2.*Atm13*Atm31 + 2.*Atm23*Atm32 + + Gt313*Gtlu233)*gtu21 - (Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + + Gt212*Gtlu221 + Gt222*Gtlu222 + Gt223*Gtlu223 + Gt312*Gtlu231 + + Gt322*Gtlu232 + Gt323*Gtlu233)*gtu22 + (-(Gt123*Gtlu112) - + Gt133*Gtlu113 - Gt223*Gtlu122 - Gt233*Gtlu123 - Gt323*Gtlu132 - + Gt333*Gtlu133 - Gt111*Gtlu311 - Gt112*Gtlu312 + Gt113*(-Gtlu111 - + Gtlu313) - Gt211*Gtlu321 - Gt212*Gtlu322 + Gt213*(-Gtlu121 - Gtlu323) - + Gt311*Gtlu331 - Gt312*Gtlu332 + Gt313*(-Gtlu131 - Gtlu333))*gtu31 + + (-(Gt113*Gtlu211) - Gt133*Gtlu213 - Gt213*Gtlu221 - Gt233*Gtlu223 - + Gt313*Gtlu231 - Gt333*Gtlu233 - Gt112*Gtlu311 - Gt122*Gtlu312 + + Gt123*(-Gtlu212 - Gtlu313) - Gt212*Gtlu321 - Gt222*Gtlu322 + + Gt223*(-Gtlu222 - Gtlu323) - Gt312*Gtlu331 - Gt322*Gtlu332 + + Gt323*(-Gtlu232 - Gtlu333))*gtu32 - (Gt113*Gtlu311 + Gt123*Gtlu312 + + Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323 + + Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333)*gtu33 + trRt - ephi*trRt + + pow(ephi,5)*(2*Atm12*Atm21 + 2.*Atm13*Atm31 + 2.*Atm23*Atm32 + 50.26548245743669181540229413247204614715*rho + SQR(Atm11) + SQR(Atm22) + SQR(Atm33) - 0.6666666666666666666666666666666666666667*SQR(trKL))); CCTK_REAL Jadm1L = - ((-0.01989436788648691697111047042156429525431*(At11L*dgtu113 + - At22L*dgtu223 + At33L*dgtu333) + - 0.02652582384864922262814729389541906033908*PDstandardNth3trK + - 1.*S3)*yL - 0.03978873577297383394222094084312859050861*(Atm32 + - (At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)*yL) + - (0.01989436788648691697111047042156429525431*(At11L*dgtu112 + - At22L*dgtu222 + At33L*dgtu332) - - 0.02652582384864922262814729389541906033908*PDstandardNth2trK - - 1.*S2)*zL + 0.03978873577297383394222094084312859050861*(Atm23 + - (At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)*zL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(2*Atm23 - 2*Atm32 + + (-(At11L*dgtu113) - 2*At12L*dgtu213 - At22L*dgtu223 - 2*At13L*dgtu313 - + 2*At23L*dgtu323 - At33L*dgtu333 + + 1.33333333333333333333333333333*PDstandardNth3trK + + 50.26548245743669181540229413247204614715*S3)*yL + (At11L*dgtu112 + + At22L*dgtu222 + 2*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322) + + At33L*dgtu332 - 1.33333333333333333333333333333*PDstandardNth2trK - + 50.26548245743669181540229413247204614715*S2)*zL)*pow(ephi,6); CCTK_REAL Jadm2L = - ((0.01989436788648691697111047042156429525431*(At11L*dgtu113 + - At22L*dgtu223 + At33L*dgtu333) - - 0.02652582384864922262814729389541906033908*PDstandardNth3trK - - 1.*S3)*xL + 0.03978873577297383394222094084312859050861*(Atm31 + - (At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)*xL) + - (-0.01989436788648691697111047042156429525431*(At11L*dgtu111 + - At22L*dgtu221 + At33L*dgtu331) + - 0.02652582384864922262814729389541906033908*PDstandardNth1trK + - 1.*S1)*zL - 0.03978873577297383394222094084312859050861*(Atm13 + - (At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)*zL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(-2*Atm13 + 2*Atm31 + + (At11L*dgtu113 + At22L*dgtu223 + 2*(At12L*dgtu213 + At13L*dgtu313 + + At23L*dgtu323) + At33L*dgtu333 - + 1.33333333333333333333333333333*PDstandardNth3trK - + 50.26548245743669181540229413247204614715*S3)*xL + (-(At11L*dgtu111) - + 2*At12L*dgtu211 - At22L*dgtu221 - 2*At13L*dgtu311 - 2*At23L*dgtu321 - + At33L*dgtu331 + 1.33333333333333333333333333333*PDstandardNth1trK + + 50.26548245743669181540229413247204614715*S1)*zL)*pow(ephi,6); CCTK_REAL Jadm3L = - ((-0.01989436788648691697111047042156429525431*(At11L*dgtu112 + - At22L*dgtu222 + At33L*dgtu332) + - 0.02652582384864922262814729389541906033908*PDstandardNth2trK + - 1.*S2)*xL - 0.03978873577297383394222094084312859050861*(Atm21 + - (At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)*xL) + - (0.01989436788648691697111047042156429525431*(At11L*dgtu111 + - At22L*dgtu221 + At33L*dgtu331) - - 0.02652582384864922262814729389541906033908*PDstandardNth1trK - - 1.*S1)*yL + 0.03978873577297383394222094084312859050861*(Atm12 + - (At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)*yL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(2*Atm12 - 2*Atm21 + + (-(At11L*dgtu112) - 2*At12L*dgtu212 - At22L*dgtu222 - 2*At13L*dgtu312 - + 2*At23L*dgtu322 - At33L*dgtu332 + + 1.33333333333333333333333333333*PDstandardNth2trK + + 50.26548245743669181540229413247204614715*S2)*xL + (At11L*dgtu111 + + At22L*dgtu221 + 2*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321) + + At33L*dgtu331 - 1.33333333333333333333333333333*PDstandardNth1trK - + 50.26548245743669181540229413247204614715*S1)*yL)*pow(ephi,6); /* Copy local copies back to grid functions */ Jadm1[index] = Jadm1L; diff --git a/ML_ADMQuantities_MP/src/ML_ADMQuantities_MP.cc b/ML_ADMQuantities_MP/src/ML_ADMQuantities_MP.cc index b8e41cb..9c770d3 100644 --- a/ML_ADMQuantities_MP/src/ML_ADMQuantities_MP.cc +++ b/ML_ADMQuantities_MP/src/ML_ADMQuantities_MP.cc @@ -718,50 +718,49 @@ static void ML_ADMQuantities_MP_Body(cGH const * restrict const cctkGH, int cons Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + J11L*(gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + gt13L*PDstandardNth1Xt3) + J21L*(gt11L*PDstandardNth2Xt1 + - gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) - - gtu21*(J11L*J12L*PDstandardNth11gt11 + J12L*J21L*PDstandardNth12gt11 + - J11L*J22L*PDstandardNth12gt11 + J12L*J31L*PDstandardNth13gt11 + - J11L*J32L*PDstandardNth13gt11 + dJ112L*PDstandardNth1gt11 + - J21L*J22L*PDstandardNth22gt11 + J22L*J31L*PDstandardNth23gt11 + - J21L*J32L*PDstandardNth23gt11 + dJ212L*PDstandardNth2gt11 + - J31L*J32L*PDstandardNth33gt11 + dJ312L*PDstandardNth3gt11) - - gtu31*(J11L*J13L*PDstandardNth11gt11 + J13L*J21L*PDstandardNth12gt11 + - J11L*J23L*PDstandardNth12gt11 + J13L*J31L*PDstandardNth13gt11 + - J11L*J33L*PDstandardNth13gt11 + dJ113L*PDstandardNth1gt11 + - J21L*J23L*PDstandardNth22gt11 + J23L*J31L*PDstandardNth23gt11 + - J21L*J33L*PDstandardNth23gt11 + dJ213L*PDstandardNth2gt11 + - J31L*J33L*PDstandardNth33gt11 + dJ313L*PDstandardNth3gt11) - - gtu32*(J12L*J13L*PDstandardNth11gt11 + J13L*J22L*PDstandardNth12gt11 + - J12L*J23L*PDstandardNth12gt11 + J13L*J32L*PDstandardNth13gt11 + - J12L*J33L*PDstandardNth13gt11 + dJ123L*PDstandardNth1gt11 + - J22L*J23L*PDstandardNth22gt11 + J23L*J32L*PDstandardNth23gt11 + - J22L*J33L*PDstandardNth23gt11 + dJ223L*PDstandardNth2gt11 + - J32L*J33L*PDstandardNth33gt11 + dJ323L*PDstandardNth3gt11) + - gt11L*J31L*PDstandardNth3Xt1 + gt12L*J31L*PDstandardNth3Xt2 + - gt13L*J31L*PDstandardNth3Xt3 + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt11 + + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) + + J31L*(gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + + gt13L*PDstandardNth3Xt3) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 + + 0.5*(-2*(gtu21*(J11L*J12L*PDstandardNth11gt11 + + J12L*J21L*PDstandardNth12gt11 + J11L*J22L*PDstandardNth12gt11 + + J12L*J31L*PDstandardNth13gt11 + J11L*J32L*PDstandardNth13gt11 + + dJ112L*PDstandardNth1gt11 + J21L*J22L*PDstandardNth22gt11 + + J22L*J31L*PDstandardNth23gt11 + J21L*J32L*PDstandardNth23gt11 + + dJ212L*PDstandardNth2gt11 + J31L*J32L*PDstandardNth33gt11 + + dJ312L*PDstandardNth3gt11) + gtu31*(J11L*J13L*PDstandardNth11gt11 + + J13L*J21L*PDstandardNth12gt11 + J11L*J23L*PDstandardNth12gt11 + + J13L*J31L*PDstandardNth13gt11 + J11L*J33L*PDstandardNth13gt11 + + dJ113L*PDstandardNth1gt11 + J21L*J23L*PDstandardNth22gt11 + + J23L*J31L*PDstandardNth23gt11 + J21L*J33L*PDstandardNth23gt11 + + dJ213L*PDstandardNth2gt11 + J31L*J33L*PDstandardNth33gt11 + + dJ313L*PDstandardNth3gt11) + gtu32*(J12L*J13L*PDstandardNth11gt11 + + J13L*J22L*PDstandardNth12gt11 + J12L*J23L*PDstandardNth12gt11 + + J13L*J32L*PDstandardNth13gt11 + J12L*J33L*PDstandardNth13gt11 + + dJ123L*PDstandardNth1gt11 + J22L*J23L*PDstandardNth22gt11 + + J23L*J32L*PDstandardNth23gt11 + J22L*J33L*PDstandardNth23gt11 + + dJ223L*PDstandardNth2gt11 + J32L*J33L*PDstandardNth33gt11 + + dJ323L*PDstandardNth3gt11)) - gtu11*(2*J11L*J21L*PDstandardNth12gt11 + 2*J11L*J31L*PDstandardNth13gt11 + dJ111L*PDstandardNth1gt11 + 2*J21L*J31L*PDstandardNth23gt11 + dJ211L*PDstandardNth2gt11 + dJ311L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J11L) + PDstandardNth22gt11*SQR(J21L) + PDstandardNth33gt11*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt11 + + gtu22*(2*J12L*J22L*PDstandardNth12gt11 + 2*J12L*J32L*PDstandardNth13gt11 + dJ122L*PDstandardNth1gt11 + 2*J22L*J32L*PDstandardNth23gt11 + dJ222L*PDstandardNth2gt11 + dJ322L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J12L) + PDstandardNth22gt11*SQR(J22L) + PDstandardNth33gt11*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt11 + + gtu33*(2*J13L*J23L*PDstandardNth12gt11 + 2*J13L*J33L*PDstandardNth13gt11 + dJ133L*PDstandardNth1gt11 + 2*J23L*J33L*PDstandardNth23gt11 + dJ233L*PDstandardNth2gt11 + dJ333L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J13L) + - PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L)); - - CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + - Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + - Gt111*Gtlu121 + Gt212*Gtlu121 + Gt112*Gtlu122 + Gt222*Gtlu122 + - Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + - Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*Gtlu212 + Gt113*Gtlu213 + - Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + - Gt312*Gtlu322 + Gt313*Gtlu323) + (gt12L*J11L + + PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L))); + + CCTK_REAL Rt12 = Gt122*Gtlu112 + Gt123*Gtlu113 + (Gt111 + + Gt212)*Gtlu121 + Gt222*Gtlu122 + (Gt113 + Gt223)*Gtlu123 + + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + 2*(Gt211*Gtlu221 + Gt212*Gtlu222 + + Gt213*Gtlu223) + Gt311*(Gtlu231 + Gtlu321) + Gt312*(Gtlu131 + Gtlu232 + + Gtlu322) + Gt313*(Gtlu233 + Gtlu323) + 0.5*((gt12L*J11L + gt11L*J12L)*PDstandardNth1Xt1 + (gt22L*J11L + gt12L*J12L)*PDstandardNth1Xt2 + (gt23L*J11L + gt13L*J12L)*PDstandardNth1Xt3 + (gt12L*J21L + @@ -806,14 +805,14 @@ static void ML_ADMQuantities_MP_Body(cGH const * restrict const cctkGH, int cons dJ333L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J13L) + PDstandardNth22gt12*SQR(J23L) + PDstandardNth33gt12*SQR(J33L))); - CCTK_REAL Rt13 = 0.5*(2*(Gt113*Gtlu111 + Gt123*Gtlu112 + Gt133*Gtlu113 - + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + - Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt113*Gtlu133 + - Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + - Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*Gtlu313 + Gt211*Gtlu321 + - Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + - Gt313*Gtlu333) + (gt13L*J11L + gt11L*J13L)*PDstandardNth1Xt1 + - (gt23L*J11L + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + + CCTK_REAL Rt13 = Gt123*Gtlu112 + Gt133*Gtlu113 + Gt223*Gtlu122 + + Gt233*Gtlu123 + (Gt111 + Gt313)*Gtlu131 + (Gt112 + Gt323)*Gtlu132 + + Gt333*Gtlu133 + Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + + Gtlu133 + Gtlu313) + Gt211*(Gtlu231 + Gtlu321) + Gt212*(Gtlu232 + + Gtlu322) + Gt213*(Gtlu121 + Gtlu233 + Gtlu323) + 2*(Gt311*Gtlu331 + + Gt312*Gtlu332 + Gt313*Gtlu333) + 0.5*((gt13L*J11L + + gt11L*J13L)*PDstandardNth1Xt1 + (gt23L*J11L + + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + gt13L*J13L)*PDstandardNth1Xt3 + (gt13L*J21L + gt11L*J23L)*PDstandardNth2Xt1 + (gt23L*J21L + gt12L*J23L)*PDstandardNth2Xt2 + (gt33L*J21L + @@ -862,50 +861,49 @@ static void ML_ADMQuantities_MP_Body(cGH const * restrict const cctkGH, int cons Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + J12L*(gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3) + J22L*(gt12L*PDstandardNth2Xt1 + - gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) - - gtu21*(J11L*J12L*PDstandardNth11gt22 + J12L*J21L*PDstandardNth12gt22 + - J11L*J22L*PDstandardNth12gt22 + J12L*J31L*PDstandardNth13gt22 + - J11L*J32L*PDstandardNth13gt22 + dJ112L*PDstandardNth1gt22 + - J21L*J22L*PDstandardNth22gt22 + J22L*J31L*PDstandardNth23gt22 + - J21L*J32L*PDstandardNth23gt22 + dJ212L*PDstandardNth2gt22 + - J31L*J32L*PDstandardNth33gt22 + dJ312L*PDstandardNth3gt22) - - gtu31*(J11L*J13L*PDstandardNth11gt22 + J13L*J21L*PDstandardNth12gt22 + - J11L*J23L*PDstandardNth12gt22 + J13L*J31L*PDstandardNth13gt22 + - J11L*J33L*PDstandardNth13gt22 + dJ113L*PDstandardNth1gt22 + - J21L*J23L*PDstandardNth22gt22 + J23L*J31L*PDstandardNth23gt22 + - J21L*J33L*PDstandardNth23gt22 + dJ213L*PDstandardNth2gt22 + - J31L*J33L*PDstandardNth33gt22 + dJ313L*PDstandardNth3gt22) - - gtu32*(J12L*J13L*PDstandardNth11gt22 + J13L*J22L*PDstandardNth12gt22 + - J12L*J23L*PDstandardNth12gt22 + J13L*J32L*PDstandardNth13gt22 + - J12L*J33L*PDstandardNth13gt22 + dJ123L*PDstandardNth1gt22 + - J22L*J23L*PDstandardNth22gt22 + J23L*J32L*PDstandardNth23gt22 + - J22L*J33L*PDstandardNth23gt22 + dJ223L*PDstandardNth2gt22 + - J32L*J33L*PDstandardNth33gt22 + dJ323L*PDstandardNth3gt22) + - gt12L*J32L*PDstandardNth3Xt1 + gt22L*J32L*PDstandardNth3Xt2 + - gt23L*J32L*PDstandardNth3Xt3 + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt22 + + gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) + + J32L*(gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + + gt23L*PDstandardNth3Xt3) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 + + 0.5*(-2*(gtu21*(J11L*J12L*PDstandardNth11gt22 + + J12L*J21L*PDstandardNth12gt22 + J11L*J22L*PDstandardNth12gt22 + + J12L*J31L*PDstandardNth13gt22 + J11L*J32L*PDstandardNth13gt22 + + dJ112L*PDstandardNth1gt22 + J21L*J22L*PDstandardNth22gt22 + + J22L*J31L*PDstandardNth23gt22 + J21L*J32L*PDstandardNth23gt22 + + dJ212L*PDstandardNth2gt22 + J31L*J32L*PDstandardNth33gt22 + + dJ312L*PDstandardNth3gt22) + gtu31*(J11L*J13L*PDstandardNth11gt22 + + J13L*J21L*PDstandardNth12gt22 + J11L*J23L*PDstandardNth12gt22 + + J13L*J31L*PDstandardNth13gt22 + J11L*J33L*PDstandardNth13gt22 + + dJ113L*PDstandardNth1gt22 + J21L*J23L*PDstandardNth22gt22 + + J23L*J31L*PDstandardNth23gt22 + J21L*J33L*PDstandardNth23gt22 + + dJ213L*PDstandardNth2gt22 + J31L*J33L*PDstandardNth33gt22 + + dJ313L*PDstandardNth3gt22) + gtu32*(J12L*J13L*PDstandardNth11gt22 + + J13L*J22L*PDstandardNth12gt22 + J12L*J23L*PDstandardNth12gt22 + + J13L*J32L*PDstandardNth13gt22 + J12L*J33L*PDstandardNth13gt22 + + dJ123L*PDstandardNth1gt22 + J22L*J23L*PDstandardNth22gt22 + + J23L*J32L*PDstandardNth23gt22 + J22L*J33L*PDstandardNth23gt22 + + dJ223L*PDstandardNth2gt22 + J32L*J33L*PDstandardNth33gt22 + + dJ323L*PDstandardNth3gt22)) - gtu11*(2*J11L*J21L*PDstandardNth12gt22 + 2*J11L*J31L*PDstandardNth13gt22 + dJ111L*PDstandardNth1gt22 + 2*J21L*J31L*PDstandardNth23gt22 + dJ211L*PDstandardNth2gt22 + dJ311L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J11L) + PDstandardNth22gt22*SQR(J21L) + PDstandardNth33gt22*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt22 + + gtu22*(2*J12L*J22L*PDstandardNth12gt22 + 2*J12L*J32L*PDstandardNth13gt22 + dJ122L*PDstandardNth1gt22 + 2*J22L*J32L*PDstandardNth23gt22 + dJ222L*PDstandardNth2gt22 + dJ322L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J12L) + PDstandardNth22gt22*SQR(J22L) + PDstandardNth33gt22*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt22 + + gtu33*(2*J13L*J23L*PDstandardNth12gt22 + 2*J13L*J33L*PDstandardNth13gt22 + dJ133L*PDstandardNth1gt22 + 2*J23L*J33L*PDstandardNth23gt22 + dJ233L*PDstandardNth2gt22 + dJ333L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J13L) + - PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L)); - - CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 - + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + - Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + - Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + - Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*Gtlu313 + Gt212*Gtlu321 + - Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + - Gt323*Gtlu333) + (gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + + PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L))); + + CCTK_REAL Rt23 = Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + + Gt233*Gtlu223 + (Gt212 + Gt313)*Gtlu231 + (Gt222 + Gt323)*Gtlu232 + + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + Gt122*(Gtlu132 + Gtlu312) + + Gt123*(Gtlu133 + Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + + Gt223*(Gtlu222 + Gtlu233 + Gtlu323) + 2*(Gt312*Gtlu331 + Gt322*Gtlu332 + + Gt323*Gtlu333) + 0.5*((gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + (gt23L*J12L + gt22L*J13L)*PDstandardNth1Xt2 + (gt33L*J12L + gt23L*J13L)*PDstandardNth1Xt3 + (gt13L*J22L + gt12L*J23L)*PDstandardNth2Xt1 + (gt23L*J22L + @@ -955,47 +953,48 @@ static void ML_ADMQuantities_MP_Body(cGH const * restrict const cctkGH, int cons 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + J13L*(gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3) + J23L*(gt13L*PDstandardNth2Xt1 + - gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) - - gtu21*(J11L*J12L*PDstandardNth11gt33 + J12L*J21L*PDstandardNth12gt33 + - J11L*J22L*PDstandardNth12gt33 + J12L*J31L*PDstandardNth13gt33 + - J11L*J32L*PDstandardNth13gt33 + dJ112L*PDstandardNth1gt33 + - J21L*J22L*PDstandardNth22gt33 + J22L*J31L*PDstandardNth23gt33 + - J21L*J32L*PDstandardNth23gt33 + dJ212L*PDstandardNth2gt33 + - J31L*J32L*PDstandardNth33gt33 + dJ312L*PDstandardNth3gt33) - - gtu31*(J11L*J13L*PDstandardNth11gt33 + J13L*J21L*PDstandardNth12gt33 + - J11L*J23L*PDstandardNth12gt33 + J13L*J31L*PDstandardNth13gt33 + - J11L*J33L*PDstandardNth13gt33 + dJ113L*PDstandardNth1gt33 + - J21L*J23L*PDstandardNth22gt33 + J23L*J31L*PDstandardNth23gt33 + - J21L*J33L*PDstandardNth23gt33 + dJ213L*PDstandardNth2gt33 + - J31L*J33L*PDstandardNth33gt33 + dJ313L*PDstandardNth3gt33) - - gtu32*(J12L*J13L*PDstandardNth11gt33 + J13L*J22L*PDstandardNth12gt33 + - J12L*J23L*PDstandardNth12gt33 + J13L*J32L*PDstandardNth13gt33 + - J12L*J33L*PDstandardNth13gt33 + dJ123L*PDstandardNth1gt33 + - J22L*J23L*PDstandardNth22gt33 + J23L*J32L*PDstandardNth23gt33 + - J22L*J33L*PDstandardNth23gt33 + dJ223L*PDstandardNth2gt33 + - J32L*J33L*PDstandardNth33gt33 + dJ323L*PDstandardNth3gt33) + - gt13L*J33L*PDstandardNth3Xt1 + gt23L*J33L*PDstandardNth3Xt2 + - gt33L*J33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt33 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) + + J33L*(gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3) + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 + + 0.5*(-2*(gtu21*(J11L*J12L*PDstandardNth11gt33 + + J12L*J21L*PDstandardNth12gt33 + J11L*J22L*PDstandardNth12gt33 + + J12L*J31L*PDstandardNth13gt33 + J11L*J32L*PDstandardNth13gt33 + + dJ112L*PDstandardNth1gt33 + J21L*J22L*PDstandardNth22gt33 + + J22L*J31L*PDstandardNth23gt33 + J21L*J32L*PDstandardNth23gt33 + + dJ212L*PDstandardNth2gt33 + J31L*J32L*PDstandardNth33gt33 + + dJ312L*PDstandardNth3gt33) + gtu31*(J11L*J13L*PDstandardNth11gt33 + + J13L*J21L*PDstandardNth12gt33 + J11L*J23L*PDstandardNth12gt33 + + J13L*J31L*PDstandardNth13gt33 + J11L*J33L*PDstandardNth13gt33 + + dJ113L*PDstandardNth1gt33 + J21L*J23L*PDstandardNth22gt33 + + J23L*J31L*PDstandardNth23gt33 + J21L*J33L*PDstandardNth23gt33 + + dJ213L*PDstandardNth2gt33 + J31L*J33L*PDstandardNth33gt33 + + dJ313L*PDstandardNth3gt33) + gtu32*(J12L*J13L*PDstandardNth11gt33 + + J13L*J22L*PDstandardNth12gt33 + J12L*J23L*PDstandardNth12gt33 + + J13L*J32L*PDstandardNth13gt33 + J12L*J33L*PDstandardNth13gt33 + + dJ123L*PDstandardNth1gt33 + J22L*J23L*PDstandardNth22gt33 + + J23L*J32L*PDstandardNth23gt33 + J22L*J33L*PDstandardNth23gt33 + + dJ223L*PDstandardNth2gt33 + J32L*J33L*PDstandardNth33gt33 + + dJ323L*PDstandardNth3gt33)) - gtu11*(2*J11L*J21L*PDstandardNth12gt33 + 2*J11L*J31L*PDstandardNth13gt33 + dJ111L*PDstandardNth1gt33 + 2*J21L*J31L*PDstandardNth23gt33 + dJ211L*PDstandardNth2gt33 + dJ311L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J11L) + PDstandardNth22gt33*SQR(J21L) + PDstandardNth33gt33*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt33 + + gtu22*(2*J12L*J22L*PDstandardNth12gt33 + 2*J12L*J32L*PDstandardNth13gt33 + dJ122L*PDstandardNth1gt33 + 2*J22L*J32L*PDstandardNth23gt33 + dJ222L*PDstandardNth2gt33 + dJ322L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J12L) + PDstandardNth22gt33*SQR(J22L) + PDstandardNth33gt33*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt33 + + gtu33*(2*J13L*J23L*PDstandardNth12gt33 + 2*J13L*J33L*PDstandardNth13gt33 + dJ133L*PDstandardNth1gt33 + 2*J23L*J33L*PDstandardNth23gt33 + dJ233L*PDstandardNth2gt33 + dJ333L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J13L) + - PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L)); + PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L))); CCTK_REAL trRt = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 + gtu32*Rt23) + gtu33*Rt33; - CCTK_REAL ephi = IfThen(conformalMethod,INV(sqrt(phiL)),exp(phiL)); + CCTK_REAL ephi = + IfThen(ToReal(conformalMethod),INV(sqrt(phiL)),exp(phiL)); CCTK_REAL Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; @@ -1030,79 +1029,66 @@ static void ML_ADMQuantities_MP_Body(cGH const * restrict const cctkGH, int cons beta3L*eTzzL)*INV(alphaL); CCTK_REAL MadmL = - 0.01989436788648691697111047042156429525431*((-(Gt111*Gtlu111) - - Gt112*Gtlu112 - Gt113*Gtlu113 - Gt211*Gtlu121 - Gt212*Gtlu122 - - Gt213*Gtlu123 - Gt311*Gtlu131 - Gt312*Gtlu132 - Gt313*Gtlu133)*gtu11 + + 0.01989436788648691697111047042156429525431*(-((Gt111*Gtlu111 + + Gt112*Gtlu112 + Gt113*Gtlu113 + Gt211*Gtlu121 + Gt212*Gtlu122 + + Gt213*Gtlu123 + Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133)*gtu11) + (-(Gt122*Gtlu112) - Gt123*Gtlu113 - Gt222*Gtlu122 - Gt223*Gtlu123 - Gt322*Gtlu132 - Gt323*Gtlu133 - Gt111*Gtlu211 + Gt112*(-Gtlu111 - Gtlu212) - Gt113*Gtlu213 - Gt211*Gtlu221 + Gt212*(-Gtlu121 - Gtlu222) - Gt213*Gtlu223 - Gt311*Gtlu231 + Gt312*(-Gtlu131 - Gtlu232) - - Gt313*Gtlu233)*gtu21 + (-(Gt112*Gtlu211) - Gt122*Gtlu212 - - Gt123*Gtlu213 - Gt212*Gtlu221 - Gt222*Gtlu222 - Gt223*Gtlu223 - - Gt312*Gtlu231 - Gt322*Gtlu232 - Gt323*Gtlu233)*gtu22 + - (-(Gt123*Gtlu112) - Gt133*Gtlu113 - Gt223*Gtlu122 - Gt233*Gtlu123 - - Gt323*Gtlu132 - Gt333*Gtlu133 - Gt111*Gtlu311 - Gt112*Gtlu312 + - Gt113*(-Gtlu111 - Gtlu313) - Gt211*Gtlu321 - Gt212*Gtlu322 + - Gt213*(-Gtlu121 - Gtlu323) - Gt311*Gtlu331 - Gt312*Gtlu332 + - Gt313*(-Gtlu131 - Gtlu333))*gtu31 + (-(Gt113*Gtlu211) - Gt133*Gtlu213 - - Gt213*Gtlu221 - Gt233*Gtlu223 - Gt313*Gtlu231 - Gt333*Gtlu233 - - Gt112*Gtlu311 - Gt122*Gtlu312 + Gt123*(-Gtlu212 - Gtlu313) - - Gt212*Gtlu321 - Gt222*Gtlu322 + Gt223*(-Gtlu222 - Gtlu323) - - Gt312*Gtlu331 - Gt322*Gtlu332 + Gt323*(-Gtlu232 - Gtlu333))*gtu32 + - (-(Gt113*Gtlu311) - Gt123*Gtlu312 - Gt133*Gtlu313 - Gt213*Gtlu321 - - Gt223*Gtlu322 - Gt233*Gtlu323 - Gt313*Gtlu331 - Gt323*Gtlu332 - - Gt333*Gtlu333)*gtu33 + trRt - ephi*trRt + pow(ephi,5)*(2*Atm12*Atm21 + - 2.*Atm13*Atm31 + 2.*Atm23*Atm32 + + Gt313*Gtlu233)*gtu21 - (Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + + Gt212*Gtlu221 + Gt222*Gtlu222 + Gt223*Gtlu223 + Gt312*Gtlu231 + + Gt322*Gtlu232 + Gt323*Gtlu233)*gtu22 + (-(Gt123*Gtlu112) - + Gt133*Gtlu113 - Gt223*Gtlu122 - Gt233*Gtlu123 - Gt323*Gtlu132 - + Gt333*Gtlu133 - Gt111*Gtlu311 - Gt112*Gtlu312 + Gt113*(-Gtlu111 - + Gtlu313) - Gt211*Gtlu321 - Gt212*Gtlu322 + Gt213*(-Gtlu121 - Gtlu323) - + Gt311*Gtlu331 - Gt312*Gtlu332 + Gt313*(-Gtlu131 - Gtlu333))*gtu31 + + (-(Gt113*Gtlu211) - Gt133*Gtlu213 - Gt213*Gtlu221 - Gt233*Gtlu223 - + Gt313*Gtlu231 - Gt333*Gtlu233 - Gt112*Gtlu311 - Gt122*Gtlu312 + + Gt123*(-Gtlu212 - Gtlu313) - Gt212*Gtlu321 - Gt222*Gtlu322 + + Gt223*(-Gtlu222 - Gtlu323) - Gt312*Gtlu331 - Gt322*Gtlu332 + + Gt323*(-Gtlu232 - Gtlu333))*gtu32 - (Gt113*Gtlu311 + Gt123*Gtlu312 + + Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323 + + Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333)*gtu33 + trRt - ephi*trRt + + pow(ephi,5)*(2*Atm12*Atm21 + 2.*Atm13*Atm31 + 2.*Atm23*Atm32 + 50.26548245743669181540229413247204614715*rho + SQR(Atm11) + SQR(Atm22) + SQR(Atm33) - 0.6666666666666666666666666666666666666667*SQR(trKL))); CCTK_REAL Jadm1L = - ((-0.01989436788648691697111047042156429525431*(At11L*dgtu113 + - At22L*dgtu223 + At33L*dgtu333) + - 0.02652582384864922262814729389541906033908*J33L*PDstandardNth3trK + - 1.*S3)*yL - 0.03978873577297383394222094084312859050861*(Atm32 + - (At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)*yL) + - (0.01989436788648691697111047042156429525431*(At11L*dgtu112 + - At22L*dgtu222 + At33L*dgtu332) - - 0.02652582384864922262814729389541906033908*J32L*PDstandardNth3trK - - 1.*S2)*zL + 0.03978873577297383394222094084312859050861*(Atm23 + - (At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)*zL) + - PDstandardNth1trK*(0.02652582384864922262814729389541906033908*J13L*yL - - 0.02652582384864922262814729389541906033908*J12L*zL) + - PDstandardNth2trK*(0.02652582384864922262814729389541906033908*J23L*yL - - 0.02652582384864922262814729389541906033908*J22L*zL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(2*Atm23 - 2*Atm32 + + (-(At11L*dgtu113) - 2*At12L*dgtu213 - At22L*dgtu223 - 2*At13L*dgtu313 - + 2*At23L*dgtu323 - At33L*dgtu333 + + 1.33333333333333333333333333333*(J13L*PDstandardNth1trK + + J23L*PDstandardNth2trK + J33L*PDstandardNth3trK) + + 50.26548245743669181540229413247204614715*S3)*yL + (At11L*dgtu112 + + At22L*dgtu222 + 2*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322) + + At33L*dgtu332 - 1.33333333333333333333333333333*(J12L*PDstandardNth1trK + + J22L*PDstandardNth2trK + J32L*PDstandardNth3trK) - + 50.26548245743669181540229413247204614715*S2)*zL)*pow(ephi,6); CCTK_REAL Jadm2L = - ((0.01989436788648691697111047042156429525431*(At11L*dgtu113 + - At22L*dgtu223 + At33L*dgtu333) - - 0.02652582384864922262814729389541906033908*J33L*PDstandardNth3trK - - 1.*S3)*xL + 0.03978873577297383394222094084312859050861*(Atm31 + - (At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)*xL) + - (-0.01989436788648691697111047042156429525431*(At11L*dgtu111 + - At22L*dgtu221 + At33L*dgtu331) + - 0.02652582384864922262814729389541906033908*J31L*PDstandardNth3trK + - 1.*S1)*zL - 0.03978873577297383394222094084312859050861*(Atm13 + - (At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)*zL) + - PDstandardNth1trK*(-0.02652582384864922262814729389541906033908*J13L*xL - + 0.02652582384864922262814729389541906033908*J11L*zL) + - PDstandardNth2trK*(-0.02652582384864922262814729389541906033908*J23L*xL - + 0.02652582384864922262814729389541906033908*J21L*zL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(-2*Atm13 + 2*Atm31 + + (At11L*dgtu113 + At22L*dgtu223 + 2*(At12L*dgtu213 + At13L*dgtu313 + + At23L*dgtu323) + At33L*dgtu333 - + 1.33333333333333333333333333333*(J13L*PDstandardNth1trK + + J23L*PDstandardNth2trK + J33L*PDstandardNth3trK) - + 50.26548245743669181540229413247204614715*S3)*xL + (-(At11L*dgtu111) - + 2*At12L*dgtu211 - At22L*dgtu221 - 2*At13L*dgtu311 - 2*At23L*dgtu321 - + At33L*dgtu331 + 1.33333333333333333333333333333*(J11L*PDstandardNth1trK + + J21L*PDstandardNth2trK + J31L*PDstandardNth3trK) + + 50.26548245743669181540229413247204614715*S1)*zL)*pow(ephi,6); CCTK_REAL Jadm3L = - ((-0.01989436788648691697111047042156429525431*(At11L*dgtu112 + - At22L*dgtu222 + At33L*dgtu332) + - 0.02652582384864922262814729389541906033908*J32L*PDstandardNth3trK + - 1.*S2)*xL - 0.03978873577297383394222094084312859050861*(Atm21 + - (At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)*xL) + - (0.01989436788648691697111047042156429525431*(At11L*dgtu111 + - At22L*dgtu221 + At33L*dgtu331) - - 0.02652582384864922262814729389541906033908*J31L*PDstandardNth3trK - - 1.*S1)*yL + 0.03978873577297383394222094084312859050861*(Atm12 + - (At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)*yL) + - PDstandardNth1trK*(0.02652582384864922262814729389541906033908*J12L*xL - - 0.02652582384864922262814729389541906033908*J11L*yL) + - PDstandardNth2trK*(0.02652582384864922262814729389541906033908*J22L*xL - - 0.02652582384864922262814729389541906033908*J21L*yL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(2*Atm12 - 2*Atm21 + + (-(At11L*dgtu112) - 2*At12L*dgtu212 - At22L*dgtu222 - 2*At13L*dgtu312 - + 2*At23L*dgtu322 - At33L*dgtu332 + + 1.33333333333333333333333333333*(J12L*PDstandardNth1trK + + J22L*PDstandardNth2trK + J32L*PDstandardNth3trK) + + 50.26548245743669181540229413247204614715*S2)*xL + (At11L*dgtu111 + + At22L*dgtu221 + 2*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321) + + At33L*dgtu331 - 1.33333333333333333333333333333*(J11L*PDstandardNth1trK + + J21L*PDstandardNth2trK + J31L*PDstandardNth3trK) - + 50.26548245743669181540229413247204614715*S1)*yL)*pow(ephi,6); /* Copy local copies back to grid functions */ Jadm1[index] = Jadm1L; diff --git a/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.cc b/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.cc index 132be5e..b7b168a 100644 --- a/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.cc +++ b/ML_ADMQuantities_O2/src/ML_ADMQuantities_O2.cc @@ -487,16 +487,15 @@ static void ML_ADMQuantities_O2_Body(cGH const * restrict const cctkGH, int cons CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu21 + Gt313*gtu31 + Gt323*gtu32) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu21*PDstandardNth12gt11 - - 2*gtu31*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu32*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu21*PDstandardNth12gt11 - 2*gtu31*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu32*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -528,16 +527,15 @@ static void ML_ADMQuantities_O2_Body(cGH const * restrict const cctkGH, int cons gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu21*PDstandardNth12gt22 - - 2*gtu31*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu32*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu21*PDstandardNth12gt22 - 2*gtu31*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu32*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -554,21 +552,21 @@ static void ML_ADMQuantities_O2_Body(cGH const * restrict const cctkGH, int cons gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu21*PDstandardNth12gt33 - 2*gtu31*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu32*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu21*PDstandardNth12gt33 - + 2*gtu31*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu32*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; CCTK_REAL trRt = gtu11*Rt11 + gtu22*Rt22 + 2*(gtu21*Rt12 + gtu31*Rt13 + gtu32*Rt23) + gtu33*Rt33; - CCTK_REAL ephi = IfThen(conformalMethod,INV(sqrt(phiL)),exp(phiL)); + CCTK_REAL ephi = + IfThen(ToReal(conformalMethod),INV(sqrt(phiL)),exp(phiL)); CCTK_REAL Atm11 = At11L*gtu11 + At12L*gtu21 + At13L*gtu31; @@ -603,67 +601,60 @@ static void ML_ADMQuantities_O2_Body(cGH const * restrict const cctkGH, int cons beta3L*eTzzL)*INV(alphaL); CCTK_REAL MadmL = - 0.01989436788648691697111047042156429525431*((-(Gt111*Gtlu111) - - Gt112*Gtlu112 - Gt113*Gtlu113 - Gt211*Gtlu121 - Gt212*Gtlu122 - - Gt213*Gtlu123 - Gt311*Gtlu131 - Gt312*Gtlu132 - Gt313*Gtlu133)*gtu11 + + 0.01989436788648691697111047042156429525431*(-((Gt111*Gtlu111 + + Gt112*Gtlu112 + Gt113*Gtlu113 + Gt211*Gtlu121 + Gt212*Gtlu122 + + Gt213*Gtlu123 + Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133)*gtu11) + (-(Gt122*Gtlu112) - Gt123*Gtlu113 - Gt222*Gtlu122 - Gt223*Gtlu123 - Gt322*Gtlu132 - Gt323*Gtlu133 - Gt111*Gtlu211 + Gt112*(-Gtlu111 - Gtlu212) - Gt113*Gtlu213 - Gt211*Gtlu221 + Gt212*(-Gtlu121 - Gtlu222) - Gt213*Gtlu223 - Gt311*Gtlu231 + Gt312*(-Gtlu131 - Gtlu232) - - Gt313*Gtlu233)*gtu21 + (-(Gt112*Gtlu211) - Gt122*Gtlu212 - - Gt123*Gtlu213 - Gt212*Gtlu221 - Gt222*Gtlu222 - Gt223*Gtlu223 - - Gt312*Gtlu231 - Gt322*Gtlu232 - Gt323*Gtlu233)*gtu22 + - (-(Gt123*Gtlu112) - Gt133*Gtlu113 - Gt223*Gtlu122 - Gt233*Gtlu123 - - Gt323*Gtlu132 - Gt333*Gtlu133 - Gt111*Gtlu311 - Gt112*Gtlu312 + - Gt113*(-Gtlu111 - Gtlu313) - Gt211*Gtlu321 - Gt212*Gtlu322 + - Gt213*(-Gtlu121 - Gtlu323) - Gt311*Gtlu331 - Gt312*Gtlu332 + - Gt313*(-Gtlu131 - Gtlu333))*gtu31 + (-(Gt113*Gtlu211) - Gt133*Gtlu213 - - Gt213*Gtlu221 - Gt233*Gtlu223 - Gt313*Gtlu231 - Gt333*Gtlu233 - - Gt112*Gtlu311 - Gt122*Gtlu312 + Gt123*(-Gtlu212 - Gtlu313) - - Gt212*Gtlu321 - Gt222*Gtlu322 + Gt223*(-Gtlu222 - Gtlu323) - - Gt312*Gtlu331 - Gt322*Gtlu332 + Gt323*(-Gtlu232 - Gtlu333))*gtu32 + - (-(Gt113*Gtlu311) - Gt123*Gtlu312 - Gt133*Gtlu313 - Gt213*Gtlu321 - - Gt223*Gtlu322 - Gt233*Gtlu323 - Gt313*Gtlu331 - Gt323*Gtlu332 - - Gt333*Gtlu333)*gtu33 + trRt - ephi*trRt + pow(ephi,5)*(2*Atm12*Atm21 + - 2.*Atm13*Atm31 + 2.*Atm23*Atm32 + + Gt313*Gtlu233)*gtu21 - (Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + + Gt212*Gtlu221 + Gt222*Gtlu222 + Gt223*Gtlu223 + Gt312*Gtlu231 + + Gt322*Gtlu232 + Gt323*Gtlu233)*gtu22 + (-(Gt123*Gtlu112) - + Gt133*Gtlu113 - Gt223*Gtlu122 - Gt233*Gtlu123 - Gt323*Gtlu132 - + Gt333*Gtlu133 - Gt111*Gtlu311 - Gt112*Gtlu312 + Gt113*(-Gtlu111 - + Gtlu313) - Gt211*Gtlu321 - Gt212*Gtlu322 + Gt213*(-Gtlu121 - Gtlu323) - + Gt311*Gtlu331 - Gt312*Gtlu332 + Gt313*(-Gtlu131 - Gtlu333))*gtu31 + + (-(Gt113*Gtlu211) - Gt133*Gtlu213 - Gt213*Gtlu221 - Gt233*Gtlu223 - + Gt313*Gtlu231 - Gt333*Gtlu233 - Gt112*Gtlu311 - Gt122*Gtlu312 + + Gt123*(-Gtlu212 - Gtlu313) - Gt212*Gtlu321 - Gt222*Gtlu322 + + Gt223*(-Gtlu222 - Gtlu323) - Gt312*Gtlu331 - Gt322*Gtlu332 + + Gt323*(-Gtlu232 - Gtlu333))*gtu32 - (Gt113*Gtlu311 + Gt123*Gtlu312 + + Gt133*Gtlu313 + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323 + + Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333)*gtu33 + trRt - ephi*trRt + + pow(ephi,5)*(2*Atm12*Atm21 + 2.*Atm13*Atm31 + 2.*Atm23*Atm32 + 50.26548245743669181540229413247204614715*rho + SQR(Atm11) + SQR(Atm22) + SQR(Atm33) - 0.6666666666666666666666666666666666666667*SQR(trKL))); CCTK_REAL Jadm1L = - ((-0.01989436788648691697111047042156429525431*(At11L*dgtu113 + - At22L*dgtu223 + At33L*dgtu333) + - 0.02652582384864922262814729389541906033908*PDstandardNth3trK + - 1.*S3)*yL - 0.03978873577297383394222094084312859050861*(Atm32 + - (At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)*yL) + - (0.01989436788648691697111047042156429525431*(At11L*dgtu112 + - At22L*dgtu222 + At33L*dgtu332) - - 0.02652582384864922262814729389541906033908*PDstandardNth2trK - - 1.*S2)*zL + 0.03978873577297383394222094084312859050861*(Atm23 + - (At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)*zL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(2*Atm23 - 2*Atm32 + + (-(At11L*dgtu113) - 2*At12L*dgtu213 - At22L*dgtu223 - 2*At13L*dgtu313 - + 2*At23L*dgtu323 - At33L*dgtu333 + + 1.33333333333333333333333333333*PDstandardNth3trK + + 50.26548245743669181540229413247204614715*S3)*yL + (At11L*dgtu112 + + At22L*dgtu222 + 2*(At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322) + + At33L*dgtu332 - 1.33333333333333333333333333333*PDstandardNth2trK - + 50.26548245743669181540229413247204614715*S2)*zL)*pow(ephi,6); CCTK_REAL Jadm2L = - ((0.01989436788648691697111047042156429525431*(At11L*dgtu113 + - At22L*dgtu223 + At33L*dgtu333) - - 0.02652582384864922262814729389541906033908*PDstandardNth3trK - - 1.*S3)*xL + 0.03978873577297383394222094084312859050861*(Atm31 + - (At12L*dgtu213 + At13L*dgtu313 + At23L*dgtu323)*xL) + - (-0.01989436788648691697111047042156429525431*(At11L*dgtu111 + - At22L*dgtu221 + At33L*dgtu331) + - 0.02652582384864922262814729389541906033908*PDstandardNth1trK + - 1.*S1)*zL - 0.03978873577297383394222094084312859050861*(Atm13 + - (At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)*zL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(-2*Atm13 + 2*Atm31 + + (At11L*dgtu113 + At22L*dgtu223 + 2*(At12L*dgtu213 + At13L*dgtu313 + + At23L*dgtu323) + At33L*dgtu333 - + 1.33333333333333333333333333333*PDstandardNth3trK - + 50.26548245743669181540229413247204614715*S3)*xL + (-(At11L*dgtu111) - + 2*At12L*dgtu211 - At22L*dgtu221 - 2*At13L*dgtu311 - 2*At23L*dgtu321 - + At33L*dgtu331 + 1.33333333333333333333333333333*PDstandardNth1trK + + 50.26548245743669181540229413247204614715*S1)*zL)*pow(ephi,6); CCTK_REAL Jadm3L = - ((-0.01989436788648691697111047042156429525431*(At11L*dgtu112 + - At22L*dgtu222 + At33L*dgtu332) + - 0.02652582384864922262814729389541906033908*PDstandardNth2trK + - 1.*S2)*xL - 0.03978873577297383394222094084312859050861*(Atm21 + - (At12L*dgtu212 + At13L*dgtu312 + At23L*dgtu322)*xL) + - (0.01989436788648691697111047042156429525431*(At11L*dgtu111 + - At22L*dgtu221 + At33L*dgtu331) - - 0.02652582384864922262814729389541906033908*PDstandardNth1trK - - 1.*S1)*yL + 0.03978873577297383394222094084312859050861*(Atm12 + - (At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321)*yL))*pow(ephi,6); + 0.01989436788648691697111047042156429525431*(2*Atm12 - 2*Atm21 + + (-(At11L*dgtu112) - 2*At12L*dgtu212 - At22L*dgtu222 - 2*At13L*dgtu312 - + 2*At23L*dgtu322 - At33L*dgtu332 + + 1.33333333333333333333333333333*PDstandardNth2trK + + 50.26548245743669181540229413247204614715*S2)*xL + (At11L*dgtu111 + + At22L*dgtu221 + 2*(At12L*dgtu211 + At13L*dgtu311 + At23L*dgtu321) + + At33L*dgtu331 - 1.33333333333333333333333333333*PDstandardNth1trK - + 50.26548245743669181540229413247204614715*S1)*yL)*pow(ephi,6); /* Copy local copies back to grid functions */ Jadm1[index] = Jadm1L; diff --git a/ML_BSSN/src/ML_BSSN_Minkowski.cc b/ML_BSSN/src/ML_BSSN_Minkowski.cc index 77b7e2d..10d5506 100644 --- a/ML_BSSN/src/ML_BSSN_Minkowski.cc +++ b/ML_BSSN/src/ML_BSSN_Minkowski.cc @@ -105,7 +105,7 @@ static void ML_BSSN_Minkowski_Body(cGH const * restrict const cctkGH, int const /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN/src/ML_BSSN_RHS1.cc b/ML_BSSN/src/ML_BSSN_RHS1.cc index 0d11a97..f5456e3 100644 --- a/ML_BSSN/src/ML_BSSN_RHS1.cc +++ b/ML_BSSN/src/ML_BSSN_RHS1.cc @@ -534,7 +534,7 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -572,7 +572,8 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL Atu33 = Atm31*gtu13 + Atm32*gtu23 + Atm33*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -598,14 +599,11 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, beta1L*PDupwindNthAnti1phi + beta2L*PDupwindNthAnti2phi + beta3L*PDupwindNthAnti3phi + PDupwindNthSymm1phi*Abs(beta1L) + PDupwindNthSymm2phi*Abs(beta2L) + PDupwindNthSymm3phi*Abs(beta3L) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(PDstandardNth1beta1 - + - PDstandardNth2beta2)*phiL,0.166666666666666666666666666667*(PDstandardNth1beta1 - + PDstandardNth2beta2)) + - IfThen(conformalMethod,phiL*(-0.333333333333333333333333333333*PDstandardNth3beta3 - + - 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*PDstandardNth3beta3 - - 0.166666666666666666666666666667*alphaL*trKL); + IfThen(ToReal(conformalMethod),phiL*(-0.333333333333333333333333333333*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) + + 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) - + 0.166666666666666666666666666667*alphaL*trKL); CCTK_REAL gt11rhsL = -2*alphaL*At11L + epsdiss1*PDdissipationNth1gt11 + epsdiss2*PDdissipationNth2gt11 + epsdiss3*PDdissipationNth3gt11 + @@ -672,77 +670,72 @@ static void ML_BSSN_RHS1_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL dotXt1 = 0.333333333333333333333333333333*(7*(gtu12*PDstandardNth12beta1 + - gtu13*PDstandardNth13beta1) + 6*gtu23*PDstandardNth23beta1 - + gtu13*PDstandardNth13beta1) + gtu11*(4*PDstandardNth11beta1 + + PDstandardNth12beta2 + PDstandardNth13beta3) + + gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3) + + gtu13*(PDstandardNth23beta2 + PDstandardNth33beta3) - 6*(Atu11*PDstandardNth1alpha + Atu12*PDstandardNth2alpha + - Atu13*PDstandardNth3alpha) + gtu11*(4*PDstandardNth11beta1 + - PDstandardNth12beta2 + PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + - gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu13*(PDstandardNth23beta2 + PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth1beta1 + 2*PDstandardNth3beta3)*Xtn1 + - 2*(alphaL*(18*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + - 6*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + 3*(Atu11*Gt111 + - Atu22*Gt122 + Atu33*Gt133) - 2*(gtu11*PDstandardNth1trK + - gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK)) + - PDstandardNth2beta2*Xtn1) - 3*(PDstandardNth2beta1*Xtn2 + - PDstandardNth3beta1*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt1 + - epsdiss2*PDdissipationNth2Xt1 + epsdiss3*PDdissipationNth3Xt1 + - gtu22*PDstandardNth22beta1 + gtu33*PDstandardNth33beta1 + - beta1L*PDupwindNthAnti1Xt1 + beta2L*PDupwindNthAnti2Xt1 + - beta3L*PDupwindNthAnti3Xt1 + PDupwindNthSymm1Xt1*Abs(beta1L) + - PDupwindNthSymm2Xt1*Abs(beta2L) + PDupwindNthSymm3Xt1*Abs(beta3L))); + Atu13*PDstandardNth3alpha) + 6*(gtu23*PDstandardNth23beta1 + + alphaL*(6*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + Atu11*Gt111 + + Atu22*Gt122 + 2*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + Atu33*Gt133 + - 0.666666666666666666666666666667*(gtu11*PDstandardNth1trK + + gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu11*S1 + gtu12*S2 + + gtu13*S3) + (-3*PDstandardNth1beta1 + 2*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3))*Xtn1 - + 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt1 + epsdiss2*PDdissipationNth2Xt1 + + epsdiss3*PDdissipationNth3Xt1 + gtu22*PDstandardNth22beta1 + + gtu33*PDstandardNth33beta1 + beta1L*PDupwindNthAnti1Xt1 + + beta2L*PDupwindNthAnti2Xt1 + beta3L*PDupwindNthAnti3Xt1 + + PDupwindNthSymm1Xt1*Abs(beta1L) + PDupwindNthSymm2Xt1*Abs(beta2L) + + PDupwindNthSymm3Xt1*Abs(beta3L))); CCTK_REAL dotXt2 = - 0.333333333333333333333333333333*(6*gtu13*PDstandardNth13beta2 - - 6*(Atu12*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + - Atu23*PDstandardNth3alpha) + gtu12*(PDstandardNth11beta1 + - 7*PDstandardNth12beta2 + PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + + 0.333333333333333333333333333333*(gtu12*(PDstandardNth11beta1 + + 7*PDstandardNth12beta2 + PDstandardNth13beta3) + gtu22*(PDstandardNth12beta1 + 4*PDstandardNth22beta2 + - PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu23*(PDstandardNth13beta1 + 7*PDstandardNth23beta2 + - PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth2beta2 + 2*PDstandardNth3beta3)*Xtn2 + - 2*(alphaL*(18*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + - 6*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + 3*(Atu11*Gt211 + - Atu22*Gt222 + Atu33*Gt233) - 2*(gtu12*PDstandardNth1trK + - gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn2) - 3*(PDstandardNth1beta2*Xtn1 + - PDstandardNth3beta2*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt2 + - epsdiss2*PDdissipationNth2Xt2 + epsdiss3*PDdissipationNth3Xt2 + - gtu11*PDstandardNth11beta2 + gtu33*PDstandardNth33beta2 + - beta1L*PDupwindNthAnti1Xt2 + beta2L*PDupwindNthAnti2Xt2 + - beta3L*PDupwindNthAnti3Xt2 + PDupwindNthSymm1Xt2*Abs(beta1L) + - PDupwindNthSymm2Xt2*Abs(beta2L) + PDupwindNthSymm3Xt2*Abs(beta3L))); + PDstandardNth23beta3) + gtu23*(PDstandardNth13beta1 + + 7*PDstandardNth23beta2 + PDstandardNth33beta3) - + 6*(Atu12*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + + Atu23*PDstandardNth3alpha) + 6*(gtu13*PDstandardNth13beta2 + + alphaL*(6*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + Atu11*Gt211 + + Atu22*Gt222 + 2*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + Atu33*Gt233 + - 0.666666666666666666666666666667*(gtu12*PDstandardNth1trK + + gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu12*S1 + gtu22*S2 + + gtu23*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + + PDstandardNth2beta2*Xtn2 + PDstandardNth3beta2*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt2 + epsdiss2*PDdissipationNth2Xt2 + + epsdiss3*PDdissipationNth3Xt2 + gtu11*PDstandardNth11beta2 + + gtu33*PDstandardNth33beta2 + beta1L*PDupwindNthAnti1Xt2 + + beta2L*PDupwindNthAnti2Xt2 + beta3L*PDupwindNthAnti3Xt2 + + PDupwindNthSymm1Xt2*Abs(beta1L) + PDupwindNthSymm2Xt2*Abs(beta2L) + + PDupwindNthSymm3Xt2*Abs(beta3L))); CCTK_REAL dotXt3 = - 0.333333333333333333333333333333*(6*gtu12*PDstandardNth12beta3 - - 6*(Atu13*PDstandardNth1alpha + Atu23*PDstandardNth2alpha + - Atu33*PDstandardNth3alpha) + gtu13*(PDstandardNth11beta1 + - PDstandardNth12beta2 + 7*PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + + 0.333333333333333333333333333333*(gtu13*(PDstandardNth11beta1 + + PDstandardNth12beta2 + 7*PDstandardNth13beta3) + gtu23*(PDstandardNth12beta1 + PDstandardNth22beta2 + - 7*PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2 + - 4*PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) - - 3*(PDstandardNth1beta3*Xtn1 + PDstandardNth2beta3*Xtn2) + - (2*PDstandardNth2beta2 - PDstandardNth3beta3)*Xtn3 + - 2*(alphaL*(18*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + - 6*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + 3*(Atu11*Gt311 + - Atu22*Gt322 + Atu33*Gt333) - 2*(gtu13*PDstandardNth1trK + - gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt3 + - epsdiss2*PDdissipationNth2Xt3 + epsdiss3*PDdissipationNth3Xt3 + - gtu11*PDstandardNth11beta3 + gtu22*PDstandardNth22beta3 + - beta1L*PDupwindNthAnti1Xt3 + beta2L*PDupwindNthAnti2Xt3 + - beta3L*PDupwindNthAnti3Xt3 + PDupwindNthSymm1Xt3*Abs(beta1L) + - PDupwindNthSymm2Xt3*Abs(beta2L) + PDupwindNthSymm3Xt3*Abs(beta3L))); + 7*PDstandardNth23beta3) + gtu33*(PDstandardNth13beta1 + + PDstandardNth23beta2 + 4*PDstandardNth33beta3) - + 6*(Atu13*PDstandardNth1alpha + Atu23*PDstandardNth2alpha + + Atu33*PDstandardNth3alpha) + 6*(gtu12*PDstandardNth12beta3 + + alphaL*(6*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + Atu11*Gt311 + + Atu22*Gt322 + 2*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + Atu33*Gt333 + - 0.666666666666666666666666666667*(gtu13*PDstandardNth1trK + + gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu13*S1 + gtu23*S2 + + gtu33*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + + PDstandardNth2beta3*Xtn2 + PDstandardNth3beta3*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt3 + epsdiss2*PDdissipationNth2Xt3 + + epsdiss3*PDdissipationNth3Xt3 + gtu11*PDstandardNth11beta3 + + gtu22*PDstandardNth22beta3 + beta1L*PDupwindNthAnti1Xt3 + + beta2L*PDupwindNthAnti2Xt3 + beta3L*PDupwindNthAnti3Xt3 + + PDupwindNthSymm1Xt3*Abs(beta1L) + PDupwindNthSymm2Xt3*Abs(beta2L) + + PDupwindNthSymm3Xt3*Abs(beta3L))); CCTK_REAL Xt1rhsL = dotXt1; diff --git a/ML_BSSN/src/ML_BSSN_RHS2.cc b/ML_BSSN/src/ML_BSSN_RHS2.cc index 11b0ec3..14e28ba 100644 --- a/ML_BSSN/src/ML_BSSN_RHS2.cc +++ b/ML_BSSN/src/ML_BSSN_RHS2.cc @@ -467,16 +467,15 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -508,16 +507,15 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -534,18 +532,17 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -553,7 +550,7 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -633,7 +630,8 @@ static void ML_BSSN_RHS2_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL Atm33 = At13L*gtu13 + At23L*gtu23 + At33L*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN/src/ML_BSSN_boundary.cc b/ML_BSSN/src/ML_BSSN_boundary.cc index ac1e90f..abfef01 100644 --- a/ML_BSSN/src/ML_BSSN_boundary.cc +++ b/ML_BSSN/src/ML_BSSN_boundary.cc @@ -141,7 +141,7 @@ static void ML_BSSN_boundary_Body(cGH const * restrict const cctkGH, int const d /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN/src/ML_BSSN_constraints1.cc b/ML_BSSN/src/ML_BSSN_constraints1.cc index 77156fc..de541c8 100644 --- a/ML_BSSN/src/ML_BSSN_constraints1.cc +++ b/ML_BSSN/src/ML_BSSN_constraints1.cc @@ -391,16 +391,15 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -432,16 +431,15 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -458,18 +456,17 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -477,7 +474,7 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -539,7 +536,8 @@ static void ML_BSSN_constraints1_Body(cGH const * restrict const cctkGH, int con + 2*SQR(cdphi1)) + gtu22*(cdphi222 + 2*SQR(cdphi2))) + 2*(-1 + gt33L*gtu33)*SQR(cdphi3)); - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN/src/ML_BSSN_constraints2.cc b/ML_BSSN/src/ML_BSSN_constraints2.cc index bc123f0..f9cd342 100644 --- a/ML_BSSN/src/ML_BSSN_constraints2.cc +++ b/ML_BSSN/src/ML_BSSN_constraints2.cc @@ -305,7 +305,7 @@ static void ML_BSSN_constraints2_Body(cGH const * restrict const cctkGH, int con CCTK_REAL Gt333 = Gtl133*gtu13 + Gtl233*gtu23 + Gtl333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; diff --git a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc index 917a7e9..f89f8b1 100644 --- a/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc +++ b/ML_BSSN/src/ML_BSSN_convertFromADMBaseGamma.cc @@ -282,49 +282,36 @@ static void ML_BSSN_convertFromADMBaseGamma_Body(cGH const * restrict const cctk CCTK_REAL Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL AL = IfThen(LapseACoeff != - 0,-(INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(dtalpL - + CCTK_REAL AL = IfThen(ToReal(LapseACoeff) != + 0,-3*INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(9*dtalpL - (beta1L*PDupwindNthAnti1alpha + beta2L*PDupwindNthAnti2alpha + beta3L*PDupwindNthAnti3alpha + PDupwindNthSymm1alpha*Abs(beta1L) + PDupwindNthSymm2alpha*Abs(beta2L) + - PDupwindNthSymm3alpha*Abs(beta3L))*ToReal(LapseAdvectionCoeff))),0); + PDupwindNthSymm3alpha*Abs(beta3L))*ToReal(LapseAdvectionCoeff)),0); CCTK_REAL theta = fmin(1,exp(1 - rL*INV(ToReal(SpatialShiftGammaCoeffRadius)))); - CCTK_REAL B1L; - CCTK_REAL B2L; - CCTK_REAL B3L; - - if (ShiftBCoeff*ShiftGammaCoeff != 0) - { - B1L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetaxL - - (beta1L*PDupwindNthAnti1beta1 + beta2L*PDupwindNthAnti2beta1 + - beta3L*PDupwindNthAnti3beta1 + PDupwindNthSymm1beta1*Abs(beta1L) + - PDupwindNthSymm2beta1*Abs(beta2L) + - PDupwindNthSymm3beta1*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B2L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetayL - - (beta1L*PDupwindNthAnti1beta2 + beta2L*PDupwindNthAnti2beta2 + - beta3L*PDupwindNthAnti3beta2 + PDupwindNthSymm1beta2*Abs(beta1L) + - PDupwindNthSymm2beta2*Abs(beta2L) + - PDupwindNthSymm3beta2*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B3L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetazL - - (beta1L*PDupwindNthAnti1beta3 + beta2L*PDupwindNthAnti2beta3 + - beta3L*PDupwindNthAnti3beta3 + PDupwindNthSymm1beta3*Abs(beta1L) + - PDupwindNthSymm2beta3*Abs(beta2L) + - PDupwindNthSymm3beta3*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - } - else - { - B1L = 0; - - B2L = 0; - - B3L = 0; - } - + CCTK_REAL B1L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetaxL - + 3*(beta1L*PDupwindNthAnti1beta1 + beta2L*PDupwindNthAnti2beta1 + + beta3L*PDupwindNthAnti3beta1 + PDupwindNthSymm1beta1*Abs(beta1L) + + PDupwindNthSymm2beta1*Abs(beta2L) + + PDupwindNthSymm3beta1*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B2L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetayL - + 3*(beta1L*PDupwindNthAnti1beta2 + beta2L*PDupwindNthAnti2beta2 + + beta3L*PDupwindNthAnti3beta2 + PDupwindNthSymm1beta2*Abs(beta1L) + + PDupwindNthSymm2beta2*Abs(beta2L) + + PDupwindNthSymm3beta2*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B3L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetazL - + 3*(beta1L*PDupwindNthAnti1beta3 + beta2L*PDupwindNthAnti2beta3 + + beta3L*PDupwindNthAnti3beta3 + PDupwindNthSymm1beta3*Abs(beta1L) + + PDupwindNthSymm2beta3*Abs(beta2L) + + PDupwindNthSymm3beta3*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); /* Copy local copies back to grid functions */ A[index] = AL; diff --git a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc index 589ccc2..804af11 100644 --- a/ML_BSSN/src/ML_BSSN_convertToADMBase.cc +++ b/ML_BSSN/src/ML_BSSN_convertToADMBase.cc @@ -129,7 +129,8 @@ static void ML_BSSN_convertToADMBase_Body(cGH const * restrict const cctkGH, int /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); gxxL = e4phi*gt11L; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.cc b/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.cc index f246866..956e296 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_Minkowski.cc @@ -105,7 +105,7 @@ static void ML_BSSN_MP_Minkowski_Body(cGH const * restrict const cctkGH, int con /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.cc b/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.cc index 31a2d4d..6658def 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_RHS1.cc @@ -591,7 +591,7 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); @@ -632,7 +632,8 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Atu33 = Atm31*gtu13 + Atm32*gtu23 + Atm33*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -664,47 +665,36 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di (J12L*PDupwindNthSymm1phi + J22L*PDupwindNthSymm2phi + J32L*PDupwindNthSymm3phi)*Abs(beta2L) + (J13L*PDupwindNthSymm1phi + J23L*PDupwindNthSymm2phi + J33L*PDupwindNthSymm3phi)*Abs(beta3L) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J11L*PDstandardNth1beta1 - + - J12L*PDstandardNth1beta2)*phiL,0.166666666666666666666666666667*(J11L*PDstandardNth1beta1 - + J12L*PDstandardNth1beta2)) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J13L*PDstandardNth1beta3 - + - J21L*PDstandardNth2beta1)*phiL,0.166666666666666666666666666667*(J13L*PDstandardNth1beta3 - + J21L*PDstandardNth2beta1)) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J22L*PDstandardNth2beta2 - + - J23L*PDstandardNth2beta3)*phiL,0.166666666666666666666666666667*(J22L*PDstandardNth2beta2 - + J23L*PDstandardNth2beta3)) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J31L*PDstandardNth3beta1 - + - J32L*PDstandardNth3beta2)*phiL,0.166666666666666666666666666667*(J31L*PDstandardNth3beta1 - + J32L*PDstandardNth3beta2)) + - IfThen(conformalMethod,phiL*(-0.333333333333333333333333333333*J33L*PDstandardNth3beta3 - + - 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*J33L*PDstandardNth3beta3 - - 0.166666666666666666666666666667*alphaL*trKL); + IfThen(ToReal(conformalMethod),phiL*(-0.333333333333333333333333333333*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) - + 0.166666666666666666666666666667*alphaL*trKL); CCTK_REAL gt11rhsL = -2*alphaL*At11L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt11 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt11 + (epsdiss1*J31L + epsdiss2*J32L + epsdiss3*J33L)*PDdissipationNth3gt11 - - 0.666666666666666666666666666667*gt11L*(J12L*PDstandardNth1beta2 + - J13L*PDstandardNth1beta3 + J22L*PDstandardNth2beta2 + - J23L*PDstandardNth2beta3 + J32L*PDstandardNth3beta2 + - J33L*PDstandardNth3beta3) + (beta2L*J12L + - beta3L*J13L)*PDupwindNthAnti1gt11 + (beta2L*J22L + - beta3L*J23L)*PDupwindNthAnti2gt11 + (beta2L*J32L + - beta3L*J33L)*PDupwindNthAnti3gt11 + - J11L*(1.33333333333333333333333333333*gt11L*PDstandardNth1beta1 + - 2*(gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + - beta1L*PDupwindNthAnti1gt11 + PDupwindNthSymm1gt11*Abs(beta1L)) + - J21L*(1.33333333333333333333333333333*gt11L*PDstandardNth2beta1 + - 2*(gt12L*PDstandardNth2beta2 + gt13L*PDstandardNth2beta3) + - beta1L*PDupwindNthAnti2gt11 + PDupwindNthSymm2gt11*Abs(beta1L)) + - J31L*(1.33333333333333333333333333333*gt11L*PDstandardNth3beta1 + - 2*(gt12L*PDstandardNth3beta2 + gt13L*PDstandardNth3beta3) + - beta1L*PDupwindNthAnti3gt11 + PDupwindNthSymm3gt11*Abs(beta1L)) + + 0.666666666666666666666666666667*gt11L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J11L*(gt11L*PDstandardNth1beta1 + gt12L*PDstandardNth1beta2 + + gt13L*PDstandardNth1beta3) + J21L*(gt11L*PDstandardNth2beta1 + + gt12L*PDstandardNth2beta2 + gt13L*PDstandardNth2beta3) + + J31L*(gt11L*PDstandardNth3beta1 + gt12L*PDstandardNth3beta2 + + gt13L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1gt11 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2gt11 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3gt11 + (J11L*PDupwindNthSymm1gt11 + + J21L*PDupwindNthSymm2gt11 + J31L*PDupwindNthSymm3gt11)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt11 + J22L*PDupwindNthSymm2gt11 + J32L*PDupwindNthSymm3gt11)*Abs(beta2L) + (J13L*PDupwindNthSymm1gt11 + J23L*PDupwindNthSymm2gt11 + J33L*PDupwindNthSymm3gt11)*Abs(beta3L); @@ -712,25 +702,24 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL gt12rhsL = -2*alphaL*At12L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt12 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt12 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt12 + - (0.333333333333333333333333333333*gt12L*J11L + + + epsdiss3*J33L)*PDdissipationNth3gt12 + (gt12L*J11L + gt11L*J12L)*PDstandardNth1beta1 + (gt22L*J11L + - 0.333333333333333333333333333333*gt12L*J12L)*PDstandardNth1beta2 + - (gt23L*J11L + gt13L*J12L - - 0.666666666666666666666666666667*gt12L*J13L)*PDstandardNth1beta3 + - (0.333333333333333333333333333333*gt12L*J21L + + gt12L*J12L)*PDstandardNth1beta2 + (gt23L*J11L + + gt13L*J12L)*PDstandardNth1beta3 + (gt12L*J21L + gt11L*J22L)*PDstandardNth2beta1 + (gt22L*J21L + - 0.333333333333333333333333333333*gt12L*J22L)*PDstandardNth2beta2 + - (gt23L*J21L + gt13L*J22L - - 0.666666666666666666666666666667*gt12L*J23L)*PDstandardNth2beta3 + - (0.333333333333333333333333333333*gt12L*J31L + + gt12L*J22L)*PDstandardNth2beta2 + (gt23L*J21L + + gt13L*J22L)*PDstandardNth2beta3 + (gt12L*J31L + gt11L*J32L)*PDstandardNth3beta1 + (gt22L*J31L + - 0.333333333333333333333333333333*gt12L*J32L)*PDstandardNth3beta2 + - (gt23L*J31L + gt13L*J32L - - 0.666666666666666666666666666667*gt12L*J33L)*PDstandardNth3beta3 + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt12 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt12 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt12 + + gt12L*J32L)*PDstandardNth3beta2 + (gt23L*J31L + + gt13L*J32L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*gt12L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt12 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt12 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt12 + (J11L*PDupwindNthSymm1gt12 + J21L*PDupwindNthSymm2gt12 + J31L*PDupwindNthSymm3gt12)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt12 + J22L*PDupwindNthSymm2gt12 + J32L*PDupwindNthSymm3gt12)*Abs(beta2L) + @@ -740,25 +729,24 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL gt13rhsL = -2*alphaL*At13L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt13 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt13 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt13 + - (0.333333333333333333333333333333*gt13L*J11L + - gt11L*J13L)*PDstandardNth1beta1 + (gt23L*J11L - - 0.666666666666666666666666666667*gt13L*J12L + + + epsdiss3*J33L)*PDdissipationNth3gt13 + (gt13L*J11L + + gt11L*J13L)*PDstandardNth1beta1 + (gt23L*J11L + gt12L*J13L)*PDstandardNth1beta2 + (gt33L*J11L + - 0.333333333333333333333333333333*gt13L*J13L)*PDstandardNth1beta3 + - (0.333333333333333333333333333333*gt13L*J21L + - gt11L*J23L)*PDstandardNth2beta1 + (gt23L*J21L - - 0.666666666666666666666666666667*gt13L*J22L + + gt13L*J13L)*PDstandardNth1beta3 + (gt13L*J21L + + gt11L*J23L)*PDstandardNth2beta1 + (gt23L*J21L + gt12L*J23L)*PDstandardNth2beta2 + (gt33L*J21L + - 0.333333333333333333333333333333*gt13L*J23L)*PDstandardNth2beta3 + - (0.333333333333333333333333333333*gt13L*J31L + - gt11L*J33L)*PDstandardNth3beta1 + (gt23L*J31L - - 0.666666666666666666666666666667*gt13L*J32L + + gt13L*J23L)*PDstandardNth2beta3 + (gt13L*J31L + + gt11L*J33L)*PDstandardNth3beta1 + (gt23L*J31L + gt12L*J33L)*PDstandardNth3beta2 + (gt33L*J31L + - 0.333333333333333333333333333333*gt13L*J33L)*PDstandardNth3beta3 + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt13 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt13 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt13 + + gt13L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*gt13L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt13 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt13 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt13 + (J11L*PDupwindNthSymm1gt13 + J21L*PDupwindNthSymm2gt13 + J31L*PDupwindNthSymm3gt13)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt13 + J22L*PDupwindNthSymm2gt13 + J32L*PDupwindNthSymm3gt13)*Abs(beta2L) + @@ -768,50 +756,46 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL gt22rhsL = -2*alphaL*At22L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt22 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt22 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt22 + - (-0.666666666666666666666666666667*gt22L*J11L + - 2*gt12L*J12L)*PDstandardNth1beta1 - - 0.666666666666666666666666666667*gt22L*(J13L*PDstandardNth1beta3 + - J21L*PDstandardNth2beta1 + J23L*PDstandardNth2beta3 + - J31L*PDstandardNth3beta1 + J33L*PDstandardNth3beta3) + (beta1L*J11L + - beta3L*J13L)*PDupwindNthAnti1gt22 + (beta1L*J21L + - beta3L*J23L)*PDupwindNthAnti2gt22 + (beta1L*J31L + + + epsdiss3*J33L)*PDdissipationNth3gt22 - + 0.666666666666666666666666666667*gt22L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J12L*(gt12L*PDstandardNth1beta1 + gt22L*PDstandardNth1beta2 + + gt23L*PDstandardNth1beta3) + J22L*(gt12L*PDstandardNth2beta1 + + gt22L*PDstandardNth2beta2 + gt23L*PDstandardNth2beta3) + + J32L*(gt12L*PDstandardNth3beta1 + gt22L*PDstandardNth3beta2 + + gt23L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1gt22 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2gt22 + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt22 + (J11L*PDupwindNthSymm1gt22 + J21L*PDupwindNthSymm2gt22 + J31L*PDupwindNthSymm3gt22)*Abs(beta1L) + - J12L*(1.33333333333333333333333333333*gt22L*PDstandardNth1beta2 + - 2*gt23L*PDstandardNth1beta3 + beta2L*PDupwindNthAnti1gt22 + - PDupwindNthSymm1gt22*Abs(beta2L)) + - J22L*(1.33333333333333333333333333333*gt22L*PDstandardNth2beta2 + - 2*(gt12L*PDstandardNth2beta1 + gt23L*PDstandardNth2beta3) + - beta2L*PDupwindNthAnti2gt22 + PDupwindNthSymm2gt22*Abs(beta2L)) + - J32L*(1.33333333333333333333333333333*gt22L*PDstandardNth3beta2 + - 2*(gt12L*PDstandardNth3beta1 + gt23L*PDstandardNth3beta3) + - beta2L*PDupwindNthAnti3gt22 + PDupwindNthSymm3gt22*Abs(beta2L)) + - (J13L*PDupwindNthSymm1gt22 + J23L*PDupwindNthSymm2gt22 + - J33L*PDupwindNthSymm3gt22)*Abs(beta3L); + (J12L*PDupwindNthSymm1gt22 + J22L*PDupwindNthSymm2gt22 + + J32L*PDupwindNthSymm3gt22)*Abs(beta2L) + (J13L*PDupwindNthSymm1gt22 + + J23L*PDupwindNthSymm2gt22 + J33L*PDupwindNthSymm3gt22)*Abs(beta3L); CCTK_REAL gt23rhsL = -2*alphaL*At23L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt23 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt23 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt23 + - (-0.666666666666666666666666666667*gt23L*J11L + gt13L*J12L + - gt12L*J13L)*PDstandardNth1beta1 + - (0.333333333333333333333333333333*gt23L*J12L + + + epsdiss3*J33L)*PDdissipationNth3gt23 + (gt13L*J12L + + gt12L*J13L)*PDstandardNth1beta1 + (gt23L*J12L + gt22L*J13L)*PDstandardNth1beta2 + (gt33L*J12L + - 0.333333333333333333333333333333*gt23L*J13L)*PDstandardNth1beta3 + - (-0.666666666666666666666666666667*gt23L*J21L + gt13L*J22L + - gt12L*J23L)*PDstandardNth2beta1 + - (0.333333333333333333333333333333*gt23L*J22L + + gt23L*J13L)*PDstandardNth1beta3 + (gt13L*J22L + + gt12L*J23L)*PDstandardNth2beta1 + (gt23L*J22L + gt22L*J23L)*PDstandardNth2beta2 + (gt33L*J22L + - 0.333333333333333333333333333333*gt23L*J23L)*PDstandardNth2beta3 + - (-0.666666666666666666666666666667*gt23L*J31L + gt13L*J32L + - gt12L*J33L)*PDstandardNth3beta1 + - (0.333333333333333333333333333333*gt23L*J32L + + gt23L*J23L)*PDstandardNth2beta3 + (gt13L*J32L + + gt12L*J33L)*PDstandardNth3beta1 + (gt23L*J32L + gt22L*J33L)*PDstandardNth3beta2 + (gt33L*J32L + - 0.333333333333333333333333333333*gt23L*J33L)*PDstandardNth3beta3 + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt23 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt23 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt23 + + gt23L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*gt23L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt23 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt23 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt23 + (J11L*PDupwindNthSymm1gt23 + J21L*PDupwindNthSymm2gt23 + J31L*PDupwindNthSymm3gt23)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt23 + J22L*PDupwindNthSymm2gt23 + J32L*PDupwindNthSymm3gt23)*Abs(beta2L) + @@ -821,457 +805,369 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL gt33rhsL = -2*alphaL*At33L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt33 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt33 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt33 + - (-0.666666666666666666666666666667*gt33L*J11L + - 2*gt13L*J13L)*PDstandardNth1beta1 + - (-0.666666666666666666666666666667*gt33L*J12L + - 2*gt23L*J13L)*PDstandardNth1beta2 + 2*(J23L*(gt13L*PDstandardNth2beta1 - + gt23L*PDstandardNth2beta2) + J33L*(gt13L*PDstandardNth3beta1 + - gt23L*PDstandardNth3beta2)) + - gt33L*(-0.666666666666666666666666666667*(J21L*PDstandardNth2beta1 + - J22L*PDstandardNth2beta2 + J31L*PDstandardNth3beta1 + - J32L*PDstandardNth3beta2) + - 1.33333333333333333333333333333*(J13L*PDstandardNth1beta3 + - J23L*PDstandardNth2beta3 + J33L*PDstandardNth3beta3)) + (beta1L*J11L + - beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt33 + (beta1L*J21L + - beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt33 + (beta1L*J31L + - beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt33 + - (J11L*PDupwindNthSymm1gt33 + J21L*PDupwindNthSymm2gt33 + - J31L*PDupwindNthSymm3gt33)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt33 + - J22L*PDupwindNthSymm2gt33 + J32L*PDupwindNthSymm3gt33)*Abs(beta2L) + - (J13L*PDupwindNthSymm1gt33 + J23L*PDupwindNthSymm2gt33 + - J33L*PDupwindNthSymm3gt33)*Abs(beta3L); + + epsdiss3*J33L)*PDdissipationNth3gt33 - + 0.666666666666666666666666666667*gt33L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J13L*(gt13L*PDstandardNth1beta1 + gt23L*PDstandardNth1beta2 + + gt33L*PDstandardNth1beta3) + J23L*(gt13L*PDstandardNth2beta1 + + gt23L*PDstandardNth2beta2 + gt33L*PDstandardNth2beta3) + + J33L*(gt13L*PDstandardNth3beta1 + gt23L*PDstandardNth3beta2 + + gt33L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1gt33 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2gt33 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3gt33 + (J11L*PDupwindNthSymm1gt33 + + J21L*PDupwindNthSymm2gt33 + J31L*PDupwindNthSymm3gt33)*Abs(beta1L) + + (J12L*PDupwindNthSymm1gt33 + J22L*PDupwindNthSymm2gt33 + + J32L*PDupwindNthSymm3gt33)*Abs(beta2L) + (J13L*PDupwindNthSymm1gt33 + + J23L*PDupwindNthSymm2gt33 + J33L*PDupwindNthSymm3gt33)*Abs(beta3L); CCTK_REAL dotXt1 = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1Xt1 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2Xt1 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3Xt1 + - (2.333333333333333333333333333333333333333*gtu13*J11L*J33L + - 2*J13L*(gtu23*J32L + gtu33*J33L))*PDstandardNth13beta1 + - 2.333333333333333333333333333333333333333*((gtu13*J13L*J21L + - gtu12*J11L*J22L)*PDstandardNth12beta1 + (gtu12*J12L + - gtu13*J13L)*J31L*PDstandardNth13beta1 + - gtu12*(J11L*J32L*PDstandardNth13beta1 + - J22L*J31L*PDstandardNth23beta1)) + - 2*(gtu22*J12L*J32L*PDstandardNth13beta1 + J22L*((gtu22*J12L + - gtu23*J13L)*PDstandardNth12beta1 + gtu22*J32L*PDstandardNth23beta1)) - - 2.*((Atu11*J11L + Atu13*J13L)*PDstandardNth1alpha + - Atu11*(J21L*PDstandardNth2alpha + J31L*PDstandardNth3alpha)) + - 2.333333333333333333333333333333333333333*(J11L*(gtu12*J12L + - gtu13*J13L)*PDstandardNth11beta1 + gtu12*(dJ112L*PDstandardNth1beta1 + - dJ212L*PDstandardNth2beta1 + dJ312L*PDstandardNth3beta1)) + - (beta1L*J11L + beta3L*J13L)*PDupwindNthAnti1Xt1 + - beta1L*(J21L*PDupwindNthAnti2Xt1 + J31L*PDupwindNthAnti3Xt1) + - alphaL*(12.*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + - 4.*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + 2.*(Atu11*Gt111 + - Atu22*Gt122 + Atu33*Gt133) - - 1.333333333333333333333333333333333333333*((gtu11*J11L + - gtu13*J13L)*PDstandardNth1trK + gtu11*(J21L*PDstandardNth2trK + - J31L*PDstandardNth3trK)) - - 50.26548245743669181540229413247204614715*(gtu12*S2 + gtu13*S3)) + - PDstandardNth1beta1*(2.333333333333333333333333333333333333333*dJ113L*gtu13 - + dJ122L*gtu22 + 2.*dJ123L*gtu23 + dJ133L*gtu33 - - 0.3333333333333333333333333333333333333333*J11L*Xtn1 - 1.*J12L*Xtn2) + - PDstandardNth2beta1*(2.333333333333333333333333333333333333333*dJ213L*gtu13 - + dJ222L*gtu22 + 2.*dJ223L*gtu23 + dJ233L*gtu33 - - 0.3333333333333333333333333333333333333333*J21L*Xtn1 - 1.*J22L*Xtn2) + - PDstandardNth3beta1*(2.333333333333333333333333333333333333333*dJ313L*gtu13 - + dJ322L*gtu22 + 2.*dJ323L*gtu23 + dJ333L*gtu33 - - 0.3333333333333333333333333333333333333333*J31L*Xtn1 - 1.*J32L*Xtn2) + + epsdiss3*J33L)*PDdissipationNth3Xt1 - 2*((Atu11*J11L + Atu12*J12L + + Atu13*J13L)*PDstandardNth1alpha + (Atu11*J21L + Atu12*J22L + + Atu13*J23L)*PDstandardNth2alpha + (Atu11*J31L + Atu12*J32L + + Atu13*J33L)*PDstandardNth3alpha) + + 2*(gtu12*(J11L*J12L*PDstandardNth11beta1 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + J12L*J31L*PDstandardNth13beta1 + J11L*J32L*PDstandardNth13beta1 + + dJ112L*PDstandardNth1beta1 + J21L*J22L*PDstandardNth22beta1 + + J22L*J31L*PDstandardNth23beta1 + J21L*J32L*PDstandardNth23beta1 + + dJ212L*PDstandardNth2beta1 + J31L*J32L*PDstandardNth33beta1 + + dJ312L*PDstandardNth3beta1) + gtu13*(J11L*J13L*PDstandardNth11beta1 + + J13L*J21L*PDstandardNth12beta1 + J11L*J23L*PDstandardNth12beta1 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + dJ113L*PDstandardNth1beta1 + J21L*J23L*PDstandardNth22beta1 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + dJ213L*PDstandardNth2beta1 + J31L*J33L*PDstandardNth33beta1 + + dJ313L*PDstandardNth3beta1) + gtu23*(J12L*J13L*PDstandardNth11beta1 + + J13L*J22L*PDstandardNth12beta1 + J12L*J23L*PDstandardNth12beta1 + + J13L*J32L*PDstandardNth13beta1 + J12L*J33L*PDstandardNth13beta1 + + dJ123L*PDstandardNth1beta1 + J22L*J23L*PDstandardNth22beta1 + + J23L*J32L*PDstandardNth23beta1 + J22L*J33L*PDstandardNth23beta1 + + dJ223L*PDstandardNth2beta1 + J32L*J33L*PDstandardNth33beta1 + + dJ323L*PDstandardNth3beta1) + alphaL*(6*(Atu11*cdphi1 + Atu12*cdphi2 + + Atu13*cdphi3) + Atu11*Gt111 + 2*Atu12*Gt112 + 2*Atu13*Gt113 + + Atu22*Gt122 + 2*Atu23*Gt123 + Atu33*Gt133 - + 0.666666666666666666666666666667*((gtu11*J11L + gtu12*J12L + + gtu13*J13L)*PDstandardNth1trK + (gtu11*J21L + gtu12*J22L + + gtu13*J23L)*PDstandardNth2trK + (gtu11*J31L + gtu12*J32L + + gtu13*J33L)*PDstandardNth3trK))) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1Xt1 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2Xt1 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3Xt1 - + 50.26548245743669181540229413247204614715*alphaL*(gtu11*S1 + gtu12*S2 + + gtu13*S3) + 0.666666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3)*Xtn1 - + PDstandardNth1beta1*(J11L*Xtn1 + J12L*Xtn2 + J13L*Xtn3) - + PDstandardNth2beta1*(J21L*Xtn1 + J22L*Xtn2 + J23L*Xtn3) - + PDstandardNth3beta1*(J31L*Xtn1 + J32L*Xtn2 + J33L*Xtn3) + (J11L*PDupwindNthSymm1Xt1 + J21L*PDupwindNthSymm2Xt1 + - J31L*PDupwindNthSymm3Xt1)*Abs(beta1L) + - J12L*(J13L*(2.*gtu23*PDstandardNth11beta1 + - 0.3333333333333333333333333333333333333333*gtu13*PDstandardNth11beta2) - + - 0.3333333333333333333333333333333333333333*(gtu12*J13L*PDstandardNth11beta3 - + gtu11*(J11L*PDstandardNth11beta2 + J21L*PDstandardNth12beta2) + - gtu13*J33L*PDstandardNth13beta2) + J33L*(2*gtu23*PDstandardNth13beta1 + - 0.3333333333333333333333333333333333333333*gtu12*PDstandardNth13beta3) - - 2.*Atu12*PDstandardNth1alpha + - gtu12*(2.333333333333333333333333333333333333333*J21L*PDstandardNth12beta1 - + 0.3333333333333333333333333333333333333333*J23L*PDstandardNth12beta3 - + 0.6666666666666666666666666666666666666667*J32L*PDstandardNth13beta2 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth1trK) + - beta2L*PDupwindNthAnti1Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta2*Xtn1 + - PDupwindNthSymm1Xt1*Abs(beta2L)) + - J22L*((0.6666666666666666666666666666666666666667*gtu12*J12L + - 0.3333333333333333333333333333333333333333*gtu13*J13L)*PDstandardNth12beta2 - + J23L*(2.*gtu23*PDstandardNth22beta1 + - 0.3333333333333333333333333333333333333333*gtu12*PDstandardNth22beta3) - + 2*gtu23*J33L*PDstandardNth23beta1 - 2.*Atu12*PDstandardNth2alpha + - gtu12*(0.3333333333333333333333333333333333333333*J13L*PDstandardNth12beta3 - + 2.333333333333333333333333333333333333333*J21L*PDstandardNth22beta1 + - 0.6666666666666666666666666666666666666667*J32L*PDstandardNth23beta2 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta2L*PDupwindNthAnti2Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta2*Xtn1 + - PDupwindNthSymm2Xt1*Abs(beta2L)) + - J32L*((2.333333333333333333333333333333333333333*gtu12*J21L + - 2*gtu23*J23L)*PDstandardNth23beta1 + - (2.333333333333333333333333333333333333333*gtu12*J31L + - 2.*gtu23*J33L)*PDstandardNth33beta1 + - 0.3333333333333333333333333333333333333333*(gtu11*J21L*PDstandardNth23beta2 - + gtu12*(J23L*PDstandardNth23beta3 + J33L*PDstandardNth33beta3)) - - 2.*Atu12*PDstandardNth3alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu12*PDstandardNth3trK - + beta2L*PDupwindNthAnti3Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta2*Xtn1 + - PDupwindNthSymm3Xt1*Abs(beta2L)) + - J13L*(0.6666666666666666666666666666666666666667*PDstandardNth1beta3*Xtn1 - - 1.*PDstandardNth1beta1*Xtn3 + PDupwindNthSymm1Xt1*Abs(beta3L)) + - J23L*((2.333333333333333333333333333333333333333*gtu13*J11L + - 2*(gtu23*J12L + gtu33*J13L))*PDstandardNth12beta1 + - 0.3333333333333333333333333333333333333333*(gtu11*(J11L*PDstandardNth12beta3 - + J21L*PDstandardNth22beta3) + gtu13*(J12L*PDstandardNth12beta2 + - J32L*PDstandardNth23beta2)) - 2.*Atu13*PDstandardNth2alpha + - gtu13*(2.333333333333333333333333333333333333333*J21L*PDstandardNth22beta1 - + 2.333333333333333333333333333333333333333*J31L*PDstandardNth23beta1 + - 0.6666666666666666666666666666666666666667*(J13L*PDstandardNth12beta3 + - J33L*PDstandardNth23beta3) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta3L*PDupwindNthAnti2Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta3*Xtn1 - - 1.*PDstandardNth2beta1*Xtn3 + PDupwindNthSymm2Xt1*Abs(beta3L)) + - J33L*((0.3333333333333333333333333333333333333333*gtu11*J11L + - 0.6666666666666666666666666666666666666667*gtu13*J13L)*PDstandardNth13beta3 - + (2.333333333333333333333333333333333333333*gtu13*J21L + - 2*gtu33*J23L)*PDstandardNth23beta1 + - 0.3333333333333333333333333333333333333333*(gtu13*J22L*PDstandardNth23beta2 - + gtu11*(J21L*PDstandardNth23beta3 + J31L*PDstandardNth33beta3)) - - 2.*Atu13*PDstandardNth3alpha + - gtu13*(2.333333333333333333333333333333333333333*J31L*PDstandardNth33beta1 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth3trK) + - beta3L*PDupwindNthAnti3Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta3*Xtn1 - - 1.*PDstandardNth3beta1*Xtn3 + PDupwindNthSymm3Xt1*Abs(beta3L)) + - PDstandardNth11beta1*(gtu22*SQR(J12L) + gtu33*SQR(J13L)) + - PDstandardNth22beta1*(gtu22*SQR(J22L) + gtu33*SQR(J23L)) + - gtu11*(J11L*(0.3333333333333333333333333333333333333333*(J13L*PDstandardNth11beta3 - + J22L*PDstandardNth12beta2) + - 2.666666666666666666666666666666666666667*(J21L*PDstandardNth12beta1 + - J31L*PDstandardNth13beta1)) + - J31L*(2.666666666666666666666666666666666666667*J21L*PDstandardNth23beta1 - + 0.3333333333333333333333333333333333333333*J32L*PDstandardNth33beta2) - + - 0.3333333333333333333333333333333333333333*(J13L*(J21L*PDstandardNth12beta3 - + J31L*PDstandardNth13beta3) + dJ113L*PDstandardNth1beta3 + - J21L*J22L*PDstandardNth22beta2 + J31L*(J12L*PDstandardNth13beta2 + - J23L*PDstandardNth23beta3) + dJ213L*PDstandardNth2beta3 + - dJ313L*PDstandardNth3beta3) - - 50.26548245743669181540229413247204614715*alphaL*S1 + - 1.333333333333333333333333333333333333333*(dJ111L*PDstandardNth1beta1 + - dJ211L*PDstandardNth2beta1 + dJ311L*PDstandardNth3beta1 + - PDstandardNth11beta1*SQR(J11L) + PDstandardNth22beta1*SQR(J21L) + - PDstandardNth33beta1*SQR(J31L))) + - PDstandardNth33beta1*(gtu22*SQR(J32L) + gtu33*SQR(J33L)) + - 0.3333333333333333333333333333333333333333*((dJ112L*gtu11 + - dJ122L*gtu12 + dJ123L*gtu13)*PDstandardNth1beta2 + (dJ123L*gtu12 + - dJ133L*gtu13)*PDstandardNth1beta3 + - J22L*(gtu13*J23L*PDstandardNth22beta2 + gtu11*J31L*PDstandardNth23beta2 - + gtu12*J33L*PDstandardNth23beta3) + (dJ212L*gtu11 + dJ222L*gtu12 + - dJ223L*gtu13)*PDstandardNth2beta2 + (dJ223L*gtu12 + - dJ233L*gtu13)*PDstandardNth2beta3 + J32L*((gtu11*J11L + - gtu13*J13L)*PDstandardNth13beta2 + gtu12*J13L*PDstandardNth13beta3 + - gtu13*J33L*PDstandardNth33beta2) + (dJ312L*gtu11 + dJ322L*gtu12 + - dJ323L*gtu13)*PDstandardNth3beta2 + (dJ323L*gtu12 + - dJ333L*gtu13)*PDstandardNth3beta3 + - gtu12*(PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) - + PDstandardNth33beta2*SQR(J32L)) + - gtu13*(PDstandardNth11beta3*SQR(J13L) + PDstandardNth22beta3*SQR(J23L) - + PDstandardNth33beta3*SQR(J33L))); + J31L*PDupwindNthSymm3Xt1)*Abs(beta1L) + (J12L*PDupwindNthSymm1Xt1 + + J22L*PDupwindNthSymm2Xt1 + J32L*PDupwindNthSymm3Xt1)*Abs(beta2L) + + (J13L*PDupwindNthSymm1Xt1 + J23L*PDupwindNthSymm2Xt1 + + J33L*PDupwindNthSymm3Xt1)*Abs(beta3L) + + gtu11*(2*J11L*J21L*PDstandardNth12beta1 + + 2*J11L*J31L*PDstandardNth13beta1 + dJ111L*PDstandardNth1beta1 + + 2*J21L*J31L*PDstandardNth23beta1 + dJ211L*PDstandardNth2beta1 + + dJ311L*PDstandardNth3beta1 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu22*(2*J12L*J22L*PDstandardNth12beta1 + + 2*J12L*J32L*PDstandardNth13beta1 + dJ122L*PDstandardNth1beta1 + + 2*J22L*J32L*PDstandardNth23beta1 + dJ222L*PDstandardNth2beta1 + + dJ322L*PDstandardNth3beta1 + PDstandardNth11beta1*SQR(J12L) + + PDstandardNth22beta1*SQR(J22L) + PDstandardNth33beta1*SQR(J32L)) + + gtu33*(2*J13L*J23L*PDstandardNth12beta1 + + 2*J13L*J33L*PDstandardNth13beta1 + dJ133L*PDstandardNth1beta1 + + 2*J23L*J33L*PDstandardNth23beta1 + dJ233L*PDstandardNth2beta1 + + dJ333L*PDstandardNth3beta1 + PDstandardNth11beta1*SQR(J13L) + + PDstandardNth22beta1*SQR(J23L) + PDstandardNth33beta1*SQR(J33L)) + + 0.333333333333333333333333333333*(gtu11*(J11L*J12L*PDstandardNth11beta2 + + J11L*J13L*PDstandardNth11beta3 + 2*J11L*J21L*PDstandardNth12beta1 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta1 + J12L*J31L*PDstandardNth13beta2 + + J11L*J32L*PDstandardNth13beta2 + J13L*J31L*PDstandardNth13beta3 + + J11L*J33L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta1 + + dJ112L*PDstandardNth1beta2 + dJ113L*PDstandardNth1beta3 + + J21L*J22L*PDstandardNth22beta2 + J21L*J23L*PDstandardNth22beta3 + + 2*J21L*J31L*PDstandardNth23beta1 + J22L*J31L*PDstandardNth23beta2 + + J21L*J32L*PDstandardNth23beta2 + J23L*J31L*PDstandardNth23beta3 + + J21L*J33L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta1 + + dJ212L*PDstandardNth2beta2 + dJ213L*PDstandardNth2beta3 + + J31L*J32L*PDstandardNth33beta2 + J31L*J33L*PDstandardNth33beta3 + + dJ311L*PDstandardNth3beta1 + dJ312L*PDstandardNth3beta2 + + dJ313L*PDstandardNth3beta3 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu12*(J11L*J12L*PDstandardNth11beta1 + J12L*J13L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + 2*J12L*J22L*PDstandardNth12beta2 + J13L*J22L*PDstandardNth12beta3 + + J12L*J23L*PDstandardNth12beta3 + J12L*J31L*PDstandardNth13beta1 + + J11L*J32L*PDstandardNth13beta1 + 2*J12L*J32L*PDstandardNth13beta2 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta1 + dJ122L*PDstandardNth1beta2 + + dJ123L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta1 + + J22L*J23L*PDstandardNth22beta3 + J22L*J31L*PDstandardNth23beta1 + + J21L*J32L*PDstandardNth23beta1 + 2*J22L*J32L*PDstandardNth23beta2 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta1 + dJ222L*PDstandardNth2beta2 + + dJ223L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta1 + + J32L*J33L*PDstandardNth33beta3 + dJ312L*PDstandardNth3beta1 + + dJ322L*PDstandardNth3beta2 + dJ323L*PDstandardNth3beta3 + + PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) + + PDstandardNth33beta2*SQR(J32L)) + gtu13*(J11L*J13L*PDstandardNth11beta1 + + J12L*J13L*PDstandardNth11beta2 + J13L*J21L*PDstandardNth12beta1 + + J11L*J23L*PDstandardNth12beta1 + J13L*J22L*PDstandardNth12beta2 + + J12L*J23L*PDstandardNth12beta2 + 2*J13L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ113L*PDstandardNth1beta1 + + dJ123L*PDstandardNth1beta2 + dJ133L*PDstandardNth1beta3 + + J21L*J23L*PDstandardNth22beta1 + J22L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ213L*PDstandardNth2beta1 + + dJ223L*PDstandardNth2beta2 + dJ233L*PDstandardNth2beta3 + + J31L*J33L*PDstandardNth33beta1 + J32L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta1 + dJ323L*PDstandardNth3beta2 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L))); CCTK_REAL dotXt2 = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1Xt2 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2Xt2 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3Xt2 + - (2.333333333333333333333333333333333333333*gtu12*J11L*J22L + - 2*gtu13*(J13L*J21L + J11L*J23L))*PDstandardNth12beta2 + - (2.333333333333333333333333333333333333333*gtu12*J11L*J32L + - 2*gtu13*(J13L*J31L + J11L*J33L))*PDstandardNth13beta2 + - alphaL*(12.*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + - 4.*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + 2.*(Atu11*Gt211 + - Atu22*Gt222 + Atu33*Gt233) - - 1.333333333333333333333333333333333333333*gtu12*(J11L*PDstandardNth1trK - + J21L*PDstandardNth2trK + J31L*PDstandardNth3trK) - - 50.26548245743669181540229413247204614715*(gtu12*S1 + gtu22*S2 + - gtu23*S3)) + PDstandardNth1beta2*(dJ111L*gtu11 + 2.*dJ113L*gtu13 + - 1.333333333333333333333333333333333333333*dJ122L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ112L*gtu12 + dJ123L*gtu23) - + dJ133L*gtu33 - 1.*(J11L*Xtn1 + J13L*Xtn3)) + - PDstandardNth2beta2*(dJ211L*gtu11 + 2.*dJ213L*gtu13 + - 1.333333333333333333333333333333333333333*dJ222L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ212L*gtu12 + dJ223L*gtu23) - + dJ233L*gtu33 - 1.*(J21L*Xtn1 + J23L*Xtn3)) + - PDstandardNth3beta2*(dJ311L*gtu11 + 2.*dJ313L*gtu13 + - 1.333333333333333333333333333333333333333*dJ322L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ312L*gtu12 + dJ323L*gtu23) - + dJ333L*gtu33 - 1.*(J31L*Xtn1 + J33L*Xtn3)) + - J11L*((2.333333333333333333333333333333333333333*gtu12*J12L + - 2.*gtu13*J13L)*PDstandardNth11beta2 + - J21L*(0.6666666666666666666666666666666666666667*gtu12*PDstandardNth12beta1 - + 2*gtu11*PDstandardNth12beta2) + - (0.6666666666666666666666666666666666666667*gtu12*J31L + - 0.3333333333333333333333333333333333333333*gtu23*J33L)*PDstandardNth13beta1 - + 2*gtu11*J31L*PDstandardNth13beta2 - 2.*Atu12*PDstandardNth1alpha + - beta1L*PDupwindNthAnti1Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta1*Xtn2 + - PDupwindNthSymm1Xt2*Abs(beta1L)) + - J21L*(J31L*(0.6666666666666666666666666666666666666667*gtu12*PDstandardNth23beta1 - + 2*gtu11*PDstandardNth23beta2) - 2.*Atu12*PDstandardNth2alpha + - beta1L*PDupwindNthAnti2Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta1*Xtn2 + - PDupwindNthSymm2Xt2*Abs(beta1L)) + J31L*(-2.*Atu12*PDstandardNth3alpha - + beta1L*PDupwindNthAnti3Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta1*Xtn2 + - PDupwindNthSymm3Xt2*Abs(beta1L)) + - J12L*(J13L*(2.333333333333333333333333333333333333333*gtu23*PDstandardNth11beta2 - + - 0.3333333333333333333333333333333333333333*gtu22*PDstandardNth11beta3) - + - J21L*(0.3333333333333333333333333333333333333333*gtu22*PDstandardNth12beta1 - + 2.333333333333333333333333333333333333333*gtu12*PDstandardNth12beta2) - + - 2.333333333333333333333333333333333333333*gtu12*J31L*PDstandardNth13beta2 - - 2.*Atu22*PDstandardNth1alpha + - gtu22*(0.3333333333333333333333333333333333333333*(J23L*PDstandardNth12beta3 - + J33L*PDstandardNth13beta3) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth1trK) + - beta2L*PDupwindNthAnti1Xt2 - - 0.3333333333333333333333333333333333333333*PDstandardNth1beta2*Xtn2 + - PDupwindNthSymm1Xt2*Abs(beta2L)) + - J22L*((2.666666666666666666666666666666666666667*gtu22*J12L + - 2.333333333333333333333333333333333333333*gtu23*J13L)*PDstandardNth12beta2 - + 2.333333333333333333333333333333333333333*(gtu12*J21L + - gtu23*J23L)*PDstandardNth22beta2 + - 2.333333333333333333333333333333333333333*gtu12*J31L*PDstandardNth23beta2 - - 2.*Atu22*PDstandardNth2alpha + - gtu22*(0.3333333333333333333333333333333333333333*(J13L*PDstandardNth12beta3 - + J21L*PDstandardNth22beta1 + J31L*PDstandardNth23beta1 + - J33L*PDstandardNth23beta3) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta2L*PDupwindNthAnti2Xt2 - - 0.3333333333333333333333333333333333333333*PDstandardNth2beta2*Xtn2 + - PDupwindNthSymm2Xt2*Abs(beta2L)) + - J32L*((2.666666666666666666666666666666666666667*gtu22*J12L + - 2.333333333333333333333333333333333333333*gtu23*J13L)*PDstandardNth13beta2 - + (2.666666666666666666666666666666666666667*gtu22*J22L + - 2.333333333333333333333333333333333333333*(gtu12*J21L + - gtu23*J23L))*PDstandardNth23beta2 + - 2.333333333333333333333333333333333333333*(gtu12*J31L + - gtu23*J33L)*PDstandardNth33beta2 - 2.*Atu22*PDstandardNth3alpha + - gtu22*(0.3333333333333333333333333333333333333333*(J13L*PDstandardNth13beta3 - + J21L*PDstandardNth23beta1 + J23L*PDstandardNth23beta3 + - J31L*PDstandardNth33beta1) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth3trK) + - beta2L*PDupwindNthAnti3Xt2 - - 0.3333333333333333333333333333333333333333*PDstandardNth3beta2*Xtn2 + - PDupwindNthSymm3Xt2*Abs(beta2L)) + J13L*(-2.*Atu23*PDstandardNth1alpha - - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth1trK - + beta3L*PDupwindNthAnti1Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta3*Xtn2 + - PDupwindNthSymm1Xt2*Abs(beta3L)) + - J23L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2*gtu33*J13L)*PDstandardNth12beta2 + - (0.3333333333333333333333333333333333333333*gtu12*J11L + - 0.6666666666666666666666666666666666666667*gtu23*J13L)*PDstandardNth12beta3 - + - J21L*(0.3333333333333333333333333333333333333333*gtu23*PDstandardNth22beta1 - + 2.*gtu13*PDstandardNth22beta2) + - 0.3333333333333333333333333333333333333333*(gtu22*J22L*PDstandardNth22beta3 - + gtu23*J31L*PDstandardNth23beta1) + 2*gtu13*J31L*PDstandardNth23beta2 - - 2.*Atu23*PDstandardNth2alpha + - gtu23*(0.6666666666666666666666666666666666666667*J33L*PDstandardNth23beta3 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta3L*PDupwindNthAnti2Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta3*Xtn2 + - PDupwindNthSymm2Xt2*Abs(beta3L)) + - J33L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2*gtu33*J13L)*PDstandardNth13beta2 + - (0.3333333333333333333333333333333333333333*gtu12*J11L + - 0.6666666666666666666666666666666666666667*gtu23*J13L)*PDstandardNth13beta3 - + (2.333333333333333333333333333333333333333*gtu23*J22L + - 2*gtu33*J23L)*PDstandardNth23beta2 + J21L*(2*gtu13*PDstandardNth23beta2 - + - 0.3333333333333333333333333333333333333333*(gtu23*PDstandardNth23beta1 - + gtu12*PDstandardNth23beta3)) + - J31L*(0.3333333333333333333333333333333333333333*gtu23*PDstandardNth33beta1 - + 2.*gtu13*PDstandardNth33beta2) + - 0.3333333333333333333333333333333333333333*gtu22*J32L*PDstandardNth33beta3 - - 2.*Atu23*PDstandardNth3alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth3trK - + beta3L*PDupwindNthAnti3Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta3*Xtn2 + - PDupwindNthSymm3Xt2*Abs(beta3L)) + - PDstandardNth11beta2*(gtu11*SQR(J11L) + - 1.333333333333333333333333333333333333333*gtu22*SQR(J12L) + - gtu33*SQR(J13L)) + PDstandardNth22beta2*(gtu11*SQR(J21L) + - 1.333333333333333333333333333333333333333*gtu22*SQR(J22L) + - gtu33*SQR(J23L)) + PDstandardNth33beta2*(gtu11*SQR(J31L) + - 1.333333333333333333333333333333333333333*gtu22*SQR(J32L) + - gtu33*SQR(J33L)) + - 0.3333333333333333333333333333333333333333*(J11L*((gtu22*J12L + - gtu23*J13L)*PDstandardNth11beta1 + gtu12*J13L*PDstandardNth11beta3 + - gtu22*(J22L*PDstandardNth12beta1 + J32L*PDstandardNth13beta1)) + - gtu22*(J12L*J31L*PDstandardNth13beta1 + dJ112L*PDstandardNth1beta1 + - dJ123L*PDstandardNth1beta3 + dJ212L*PDstandardNth2beta1 + - dJ223L*PDstandardNth2beta3 + dJ312L*PDstandardNth3beta1 + - dJ323L*PDstandardNth3beta3) + gtu12*(J13L*(J21L*PDstandardNth12beta3 + - J31L*PDstandardNth13beta3) + dJ111L*PDstandardNth1beta1 + - dJ113L*PDstandardNth1beta3 + J23L*(J21L*PDstandardNth22beta3 + - J31L*PDstandardNth23beta3) + dJ211L*PDstandardNth2beta1 + - dJ213L*PDstandardNth2beta3 + J31L*J33L*PDstandardNth33beta3 + - dJ311L*PDstandardNth3beta1 + dJ313L*PDstandardNth3beta3 + - PDstandardNth11beta1*SQR(J11L) + PDstandardNth22beta1*SQR(J21L) + - PDstandardNth33beta1*SQR(J31L)) + gtu23*((J13L*J21L + - J11L*J23L)*PDstandardNth12beta1 + J13L*J31L*PDstandardNth13beta1 + - dJ113L*PDstandardNth1beta1 + dJ133L*PDstandardNth1beta3 + - dJ213L*PDstandardNth2beta1 + dJ233L*PDstandardNth2beta3 + - dJ313L*PDstandardNth3beta1 + dJ333L*PDstandardNth3beta3 + - PDstandardNth11beta3*SQR(J13L) + PDstandardNth22beta3*SQR(J23L) + - PDstandardNth33beta3*SQR(J33L))); + epsdiss3*J33L)*PDdissipationNth3Xt2 - 2*((Atu12*J11L + Atu22*J12L + + Atu23*J13L)*PDstandardNth1alpha + (Atu12*J21L + Atu22*J22L + + Atu23*J23L)*PDstandardNth2alpha + (Atu12*J31L + Atu22*J32L + + Atu23*J33L)*PDstandardNth3alpha) + + 2*(gtu12*(J11L*J12L*PDstandardNth11beta2 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J12L*J31L*PDstandardNth13beta2 + J11L*J32L*PDstandardNth13beta2 + + dJ112L*PDstandardNth1beta2 + J21L*J22L*PDstandardNth22beta2 + + J22L*J31L*PDstandardNth23beta2 + J21L*J32L*PDstandardNth23beta2 + + dJ212L*PDstandardNth2beta2 + J31L*J32L*PDstandardNth33beta2 + + dJ312L*PDstandardNth3beta2) + gtu13*(J11L*J13L*PDstandardNth11beta2 + + J13L*J21L*PDstandardNth12beta2 + J11L*J23L*PDstandardNth12beta2 + + J13L*J31L*PDstandardNth13beta2 + J11L*J33L*PDstandardNth13beta2 + + dJ113L*PDstandardNth1beta2 + J21L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta2 + J21L*J33L*PDstandardNth23beta2 + + dJ213L*PDstandardNth2beta2 + J31L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta2) + gtu23*(J12L*J13L*PDstandardNth11beta2 + + J13L*J22L*PDstandardNth12beta2 + J12L*J23L*PDstandardNth12beta2 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + dJ123L*PDstandardNth1beta2 + J22L*J23L*PDstandardNth22beta2 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + dJ223L*PDstandardNth2beta2 + J32L*J33L*PDstandardNth33beta2 + + dJ323L*PDstandardNth3beta2) + alphaL*(6*(Atu12*cdphi1 + Atu22*cdphi2 + + Atu23*cdphi3) + Atu11*Gt211 + 2*Atu12*Gt212 + 2*Atu13*Gt213 + + Atu22*Gt222 + 2*Atu23*Gt223 + Atu33*Gt233 - + 0.666666666666666666666666666667*((gtu12*J11L + gtu22*J12L + + gtu23*J13L)*PDstandardNth1trK + (gtu12*J21L + gtu22*J22L + + gtu23*J23L)*PDstandardNth2trK + (gtu12*J31L + gtu22*J32L + + gtu23*J33L)*PDstandardNth3trK))) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1Xt2 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2Xt2 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3Xt2 - + 50.26548245743669181540229413247204614715*alphaL*(gtu12*S1 + gtu22*S2 + + gtu23*S3) + 0.666666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3)*Xtn2 - + PDstandardNth1beta2*(J11L*Xtn1 + J12L*Xtn2 + J13L*Xtn3) - + PDstandardNth2beta2*(J21L*Xtn1 + J22L*Xtn2 + J23L*Xtn3) - + PDstandardNth3beta2*(J31L*Xtn1 + J32L*Xtn2 + J33L*Xtn3) + + (J11L*PDupwindNthSymm1Xt2 + J21L*PDupwindNthSymm2Xt2 + + J31L*PDupwindNthSymm3Xt2)*Abs(beta1L) + (J12L*PDupwindNthSymm1Xt2 + + J22L*PDupwindNthSymm2Xt2 + J32L*PDupwindNthSymm3Xt2)*Abs(beta2L) + + (J13L*PDupwindNthSymm1Xt2 + J23L*PDupwindNthSymm2Xt2 + + J33L*PDupwindNthSymm3Xt2)*Abs(beta3L) + + gtu11*(2*J11L*J21L*PDstandardNth12beta2 + + 2*J11L*J31L*PDstandardNth13beta2 + dJ111L*PDstandardNth1beta2 + + 2*J21L*J31L*PDstandardNth23beta2 + dJ211L*PDstandardNth2beta2 + + dJ311L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J11L) + + PDstandardNth22beta2*SQR(J21L) + PDstandardNth33beta2*SQR(J31L)) + + gtu22*(2*J12L*J22L*PDstandardNth12beta2 + + 2*J12L*J32L*PDstandardNth13beta2 + dJ122L*PDstandardNth1beta2 + + 2*J22L*J32L*PDstandardNth23beta2 + dJ222L*PDstandardNth2beta2 + + dJ322L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J12L) + + PDstandardNth22beta2*SQR(J22L) + PDstandardNth33beta2*SQR(J32L)) + + gtu33*(2*J13L*J23L*PDstandardNth12beta2 + + 2*J13L*J33L*PDstandardNth13beta2 + dJ133L*PDstandardNth1beta2 + + 2*J23L*J33L*PDstandardNth23beta2 + dJ233L*PDstandardNth2beta2 + + dJ333L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J13L) + + PDstandardNth22beta2*SQR(J23L) + PDstandardNth33beta2*SQR(J33L)) + + 0.333333333333333333333333333333*(gtu12*(J11L*J12L*PDstandardNth11beta2 + + J11L*J13L*PDstandardNth11beta3 + 2*J11L*J21L*PDstandardNth12beta1 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta1 + J12L*J31L*PDstandardNth13beta2 + + J11L*J32L*PDstandardNth13beta2 + J13L*J31L*PDstandardNth13beta3 + + J11L*J33L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta1 + + dJ112L*PDstandardNth1beta2 + dJ113L*PDstandardNth1beta3 + + J21L*J22L*PDstandardNth22beta2 + J21L*J23L*PDstandardNth22beta3 + + 2*J21L*J31L*PDstandardNth23beta1 + J22L*J31L*PDstandardNth23beta2 + + J21L*J32L*PDstandardNth23beta2 + J23L*J31L*PDstandardNth23beta3 + + J21L*J33L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta1 + + dJ212L*PDstandardNth2beta2 + dJ213L*PDstandardNth2beta3 + + J31L*J32L*PDstandardNth33beta2 + J31L*J33L*PDstandardNth33beta3 + + dJ311L*PDstandardNth3beta1 + dJ312L*PDstandardNth3beta2 + + dJ313L*PDstandardNth3beta3 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu22*(J11L*J12L*PDstandardNth11beta1 + J12L*J13L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + 2*J12L*J22L*PDstandardNth12beta2 + J13L*J22L*PDstandardNth12beta3 + + J12L*J23L*PDstandardNth12beta3 + J12L*J31L*PDstandardNth13beta1 + + J11L*J32L*PDstandardNth13beta1 + 2*J12L*J32L*PDstandardNth13beta2 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta1 + dJ122L*PDstandardNth1beta2 + + dJ123L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta1 + + J22L*J23L*PDstandardNth22beta3 + J22L*J31L*PDstandardNth23beta1 + + J21L*J32L*PDstandardNth23beta1 + 2*J22L*J32L*PDstandardNth23beta2 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta1 + dJ222L*PDstandardNth2beta2 + + dJ223L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta1 + + J32L*J33L*PDstandardNth33beta3 + dJ312L*PDstandardNth3beta1 + + dJ322L*PDstandardNth3beta2 + dJ323L*PDstandardNth3beta3 + + PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) + + PDstandardNth33beta2*SQR(J32L)) + gtu23*(J11L*J13L*PDstandardNth11beta1 + + J12L*J13L*PDstandardNth11beta2 + J13L*J21L*PDstandardNth12beta1 + + J11L*J23L*PDstandardNth12beta1 + J13L*J22L*PDstandardNth12beta2 + + J12L*J23L*PDstandardNth12beta2 + 2*J13L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ113L*PDstandardNth1beta1 + + dJ123L*PDstandardNth1beta2 + dJ133L*PDstandardNth1beta3 + + J21L*J23L*PDstandardNth22beta1 + J22L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ213L*PDstandardNth2beta1 + + dJ223L*PDstandardNth2beta2 + dJ233L*PDstandardNth2beta3 + + J31L*J33L*PDstandardNth33beta1 + J32L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta1 + dJ323L*PDstandardNth3beta2 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L))); CCTK_REAL dotXt3 = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1Xt3 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2Xt3 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3Xt3 + (2*gtu22*J12L*J32L + - 2.333333333333333333333333333333333333333*gtu13*J11L*J33L)*PDstandardNth13beta3 - + 2*((gtu12*J11L + gtu22*J12L)*J22L*PDstandardNth12beta3 + - gtu11*J31L*(J11L*PDstandardNth13beta3 + J21L*PDstandardNth23beta3)) + - 2.333333333333333333333333333333333333333*((gtu23*J13L*J22L + - gtu13*J11L*J23L)*PDstandardNth12beta3 + - gtu13*J31L*(J13L*PDstandardNth13beta3 + J23L*PDstandardNth23beta3)) + - alphaL*(12.*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + - 4.*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + 2.*(Atu11*Gt311 + - Atu22*Gt322 + Atu33*Gt333) - - 1.333333333333333333333333333333333333333*gtu13*(J11L*PDstandardNth1trK - + J21L*PDstandardNth2trK + J31L*PDstandardNth3trK) - - 50.26548245743669181540229413247204614715*(gtu13*S1 + gtu23*S2 + - gtu33*S3)) + PDstandardNth1beta3*(dJ111L*gtu11 + 2.*dJ112L*gtu12 + - dJ122L*gtu22 + 2.333333333333333333333333333333333333333*(dJ113L*gtu13 - + dJ123L*gtu23) + - 1.333333333333333333333333333333333333333*dJ133L*gtu33 - 1.*J11L*Xtn1) - + PDstandardNth2beta3*(dJ211L*gtu11 + 2.*dJ212L*gtu12 + dJ222L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ213L*gtu13 + dJ223L*gtu23) - + 1.333333333333333333333333333333333333333*dJ233L*gtu33 - - 1.*J21L*Xtn1) + PDstandardNth3beta3*(dJ311L*gtu11 + 2.*dJ312L*gtu12 + - dJ322L*gtu22 + 2.333333333333333333333333333333333333333*(dJ313L*gtu13 - + dJ323L*gtu23) + - 1.333333333333333333333333333333333333333*dJ333L*gtu33 - 1.*J31L*Xtn1) - + J11L*((2.*gtu12*J12L + - 2.333333333333333333333333333333333333333*gtu13*J13L)*PDstandardNth11beta3 - + - gtu13*(0.6666666666666666666666666666666666666667*(J21L*PDstandardNth12beta1 - + J31L*PDstandardNth13beta1) + - 0.3333333333333333333333333333333333333333*(J22L*PDstandardNth12beta2 + - J32L*PDstandardNth13beta2)) + 2*(gtu11*J21L*PDstandardNth12beta3 + - gtu12*J32L*PDstandardNth13beta3) - 2.*Atu13*PDstandardNth1alpha + - beta1L*PDupwindNthAnti1Xt3 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta1*Xtn3 + - PDupwindNthSymm1Xt3*Abs(beta1L)) + - J21L*((0.6666666666666666666666666666666666666667*gtu13*J31L + - 0.3333333333333333333333333333333333333333*gtu23*J32L)*PDstandardNth23beta1 - + 2*gtu12*J32L*PDstandardNth23beta3 - 2.*Atu13*PDstandardNth2alpha + - beta1L*PDupwindNthAnti2Xt3 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta1*Xtn3 + - PDupwindNthSymm2Xt3*Abs(beta1L)) + J31L*(-2.*Atu13*PDstandardNth3alpha - + beta1L*PDupwindNthAnti3Xt3 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta1*Xtn3 + - PDupwindNthSymm3Xt3*Abs(beta1L)) + - J12L*((0.6666666666666666666666666666666666666667*gtu23*J22L + - 0.3333333333333333333333333333333333333333*gtu33*J23L)*PDstandardNth12beta2 - + (0.3333333333333333333333333333333333333333*gtu13*J31L + - 0.6666666666666666666666666666666666666667*gtu23*J32L)*PDstandardNth13beta2 - + 2*gtu12*(J21L*PDstandardNth12beta3 + J31L*PDstandardNth13beta3) - - 2.*Atu23*PDstandardNth1alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth1trK - + beta2L*PDupwindNthAnti1Xt3 - 1.*PDstandardNth1beta3*Xtn2 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta2*Xtn3 + - PDupwindNthSymm1Xt3*Abs(beta2L)) + J22L*((2.*gtu12*J21L + - 2.333333333333333333333333333333333333333*gtu23*J23L)*PDstandardNth22beta3 - + (0.3333333333333333333333333333333333333333*gtu13*J31L + - 0.6666666666666666666666666666666666666667*gtu23*J32L)*PDstandardNth23beta2 - + 2*(gtu12*J31L + gtu22*J32L)*PDstandardNth23beta3 - - 2.*Atu23*PDstandardNth2alpha + - gtu23*(2.333333333333333333333333333333333333333*J33L*PDstandardNth23beta3 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta2L*PDupwindNthAnti2Xt3 - 1.*PDstandardNth2beta3*Xtn2 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta2*Xtn3 + - PDupwindNthSymm2Xt3*Abs(beta2L)) + J32L*((2.*gtu12*J31L + - 2.333333333333333333333333333333333333333*gtu23*J33L)*PDstandardNth33beta3 - - 2.*Atu23*PDstandardNth3alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth3trK - + beta2L*PDupwindNthAnti3Xt3 - 1.*PDstandardNth3beta3*Xtn2 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta2*Xtn3 + - PDupwindNthSymm3Xt3*Abs(beta2L)) + - J13L*(2.333333333333333333333333333333333333333*gtu13*J21L*PDstandardNth12beta3 - + - gtu23*(2.333333333333333333333333333333333333333*J12L*PDstandardNth11beta3 - + 2.333333333333333333333333333333333333333*J32L*PDstandardNth13beta3) - - 2.*Atu33*PDstandardNth1alpha + - gtu33*(0.3333333333333333333333333333333333333333*(J21L*PDstandardNth12beta1 - + J22L*PDstandardNth12beta2 + J31L*PDstandardNth13beta1 + - J32L*PDstandardNth13beta2) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth1trK) + - beta3L*PDupwindNthAnti1Xt3 - - 0.3333333333333333333333333333333333333333*PDstandardNth1beta3*Xtn3 + - PDupwindNthSymm1Xt3*Abs(beta3L)) + - J23L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2.666666666666666666666666666666666666667*gtu33*J13L)*PDstandardNth12beta3 - + - 2.333333333333333333333333333333333333333*gtu13*J21L*PDstandardNth22beta3 - + - 2.333333333333333333333333333333333333333*gtu23*J32L*PDstandardNth23beta3 - - 2.*Atu33*PDstandardNth2alpha + - gtu33*(0.3333333333333333333333333333333333333333*(J21L*PDstandardNth22beta1 - + J22L*PDstandardNth22beta2 + J31L*PDstandardNth23beta1 + - J32L*PDstandardNth23beta2) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta3L*PDupwindNthAnti2Xt3 - - 0.3333333333333333333333333333333333333333*PDstandardNth2beta3*Xtn3 + - PDupwindNthSymm2Xt3*Abs(beta3L)) + - J33L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2.666666666666666666666666666666666666667*gtu33*J13L)*PDstandardNth13beta3 - + (2.333333333333333333333333333333333333333*gtu13*J21L + - 2.666666666666666666666666666666666666667*gtu33*J23L)*PDstandardNth23beta3 - + - 2.333333333333333333333333333333333333333*gtu13*J31L*PDstandardNth33beta3 - - 2.*Atu33*PDstandardNth3alpha + - gtu33*(0.3333333333333333333333333333333333333333*(J21L*PDstandardNth23beta1 - + J22L*PDstandardNth23beta2 + J31L*PDstandardNth33beta1 + - J32L*PDstandardNth33beta2) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth3trK) + - beta3L*PDupwindNthAnti3Xt3 - - 0.3333333333333333333333333333333333333333*PDstandardNth3beta3*Xtn3 + - PDupwindNthSymm3Xt3*Abs(beta3L)) + - PDstandardNth11beta3*(gtu11*SQR(J11L) + gtu22*SQR(J12L) + - 1.333333333333333333333333333333333333333*gtu33*SQR(J13L)) + - PDstandardNth22beta3*(gtu11*SQR(J21L) + gtu22*SQR(J22L) + - 1.333333333333333333333333333333333333333*gtu33*SQR(J23L)) + - 0.3333333333333333333333333333333333333333*(J11L*((gtu23*J12L + - gtu33*J13L)*PDstandardNth11beta1 + gtu13*J12L*PDstandardNth11beta2 + - (gtu23*J22L + gtu33*J23L)*PDstandardNth12beta1 + (gtu23*J32L + - gtu33*J33L)*PDstandardNth13beta1) + - J12L*(J21L*(gtu23*PDstandardNth12beta1 + gtu13*PDstandardNth12beta2) + - gtu23*J31L*PDstandardNth13beta1 + gtu33*(J13L*PDstandardNth11beta2 + - J33L*PDstandardNth13beta2)) + (dJ111L*gtu13 + dJ112L*gtu23 + - dJ113L*gtu33)*PDstandardNth1beta1 + (dJ112L*gtu13 + dJ122L*gtu23 + - dJ123L*gtu33)*PDstandardNth1beta2 + - J21L*(J22L*(gtu23*PDstandardNth22beta1 + gtu13*PDstandardNth22beta2) + - gtu13*J32L*PDstandardNth23beta2) + (dJ211L*gtu13 + - dJ213L*gtu33)*PDstandardNth2beta1 + (dJ212L*gtu13 + - dJ223L*gtu33)*PDstandardNth2beta2 + gtu33*(dJ313L*PDstandardNth3beta1 + - dJ323L*PDstandardNth3beta2) + gtu13*(J31L*J32L*PDstandardNth33beta2 + + epsdiss3*J33L)*PDdissipationNth3Xt3 - 2*((Atu13*J11L + Atu23*J12L + + Atu33*J13L)*PDstandardNth1alpha + (Atu13*J21L + Atu23*J22L + + Atu33*J23L)*PDstandardNth2alpha + (Atu13*J31L + Atu23*J32L + + Atu33*J33L)*PDstandardNth3alpha) + + 2*(gtu12*(J11L*J12L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta3 + J11L*J22L*PDstandardNth12beta3 + + J12L*J31L*PDstandardNth13beta3 + J11L*J32L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta3 + + J22L*J31L*PDstandardNth23beta3 + J21L*J32L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta3 + + dJ312L*PDstandardNth3beta3) + gtu13*(J11L*J13L*PDstandardNth11beta3 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta3 + J11L*J33L*PDstandardNth13beta3 + + dJ113L*PDstandardNth1beta3 + J21L*J23L*PDstandardNth22beta3 + + J23L*J31L*PDstandardNth23beta3 + J21L*J33L*PDstandardNth23beta3 + + dJ213L*PDstandardNth2beta3 + J31L*J33L*PDstandardNth33beta3 + + dJ313L*PDstandardNth3beta3) + gtu23*(J12L*J13L*PDstandardNth11beta3 + + J13L*J22L*PDstandardNth12beta3 + J12L*J23L*PDstandardNth12beta3 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ123L*PDstandardNth1beta3 + J22L*J23L*PDstandardNth22beta3 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ223L*PDstandardNth2beta3 + J32L*J33L*PDstandardNth33beta3 + + dJ323L*PDstandardNth3beta3) + alphaL*(6*(Atu13*cdphi1 + Atu23*cdphi2 + + Atu33*cdphi3) + Atu11*Gt311 + 2*Atu12*Gt312 + 2*Atu13*Gt313 + + Atu22*Gt322 + 2*Atu23*Gt323 + Atu33*Gt333 - + 0.666666666666666666666666666667*((gtu13*J11L + gtu23*J12L + + gtu33*J13L)*PDstandardNth1trK + (gtu13*J21L + gtu23*J22L + + gtu33*J23L)*PDstandardNth2trK + (gtu13*J31L + gtu23*J32L + + gtu33*J33L)*PDstandardNth3trK))) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1Xt3 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2Xt3 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3Xt3 - + 50.26548245743669181540229413247204614715*alphaL*(gtu13*S1 + gtu23*S2 + + gtu33*S3) + 0.666666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3)*Xtn3 - + PDstandardNth1beta3*(J11L*Xtn1 + J12L*Xtn2 + J13L*Xtn3) - + PDstandardNth2beta3*(J21L*Xtn1 + J22L*Xtn2 + J23L*Xtn3) - + PDstandardNth3beta3*(J31L*Xtn1 + J32L*Xtn2 + J33L*Xtn3) + + (J11L*PDupwindNthSymm1Xt3 + J21L*PDupwindNthSymm2Xt3 + + J31L*PDupwindNthSymm3Xt3)*Abs(beta1L) + (J12L*PDupwindNthSymm1Xt3 + + J22L*PDupwindNthSymm2Xt3 + J32L*PDupwindNthSymm3Xt3)*Abs(beta2L) + + (J13L*PDupwindNthSymm1Xt3 + J23L*PDupwindNthSymm2Xt3 + + J33L*PDupwindNthSymm3Xt3)*Abs(beta3L) + + gtu11*(2*J11L*J21L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta3 + + 2*J21L*J31L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta3 + + dJ311L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J11L) + + PDstandardNth22beta3*SQR(J21L) + PDstandardNth33beta3*SQR(J31L)) + + gtu22*(2*J12L*J22L*PDstandardNth12beta3 + + 2*J12L*J32L*PDstandardNth13beta3 + dJ122L*PDstandardNth1beta3 + + 2*J22L*J32L*PDstandardNth23beta3 + dJ222L*PDstandardNth2beta3 + + dJ322L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J12L) + + PDstandardNth22beta3*SQR(J22L) + PDstandardNth33beta3*SQR(J32L)) + + gtu33*(2*J13L*J23L*PDstandardNth12beta3 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ133L*PDstandardNth1beta3 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ233L*PDstandardNth2beta3 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L)) + + 0.333333333333333333333333333333*(gtu13*(J11L*J12L*PDstandardNth11beta2 + + J11L*J13L*PDstandardNth11beta3 + 2*J11L*J21L*PDstandardNth12beta1 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta1 + J12L*J31L*PDstandardNth13beta2 + + J11L*J32L*PDstandardNth13beta2 + J13L*J31L*PDstandardNth13beta3 + + J11L*J33L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta1 + + dJ112L*PDstandardNth1beta2 + dJ113L*PDstandardNth1beta3 + + J21L*J22L*PDstandardNth22beta2 + J21L*J23L*PDstandardNth22beta3 + + 2*J21L*J31L*PDstandardNth23beta1 + J22L*J31L*PDstandardNth23beta2 + + J21L*J32L*PDstandardNth23beta2 + J23L*J31L*PDstandardNth23beta3 + + J21L*J33L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta1 + + dJ212L*PDstandardNth2beta2 + dJ213L*PDstandardNth2beta3 + + J31L*J32L*PDstandardNth33beta2 + J31L*J33L*PDstandardNth33beta3 + dJ311L*PDstandardNth3beta1 + dJ312L*PDstandardNth3beta2 + - PDstandardNth11beta1*SQR(J11L) + PDstandardNth22beta1*SQR(J21L) + - PDstandardNth33beta1*SQR(J31L)) + gtu23*(dJ212L*PDstandardNth2beta1 + - dJ222L*PDstandardNth2beta2 + J31L*(J22L*PDstandardNth23beta1 + - J32L*PDstandardNth33beta1) + dJ312L*PDstandardNth3beta1 + - dJ322L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J12L) + - PDstandardNth22beta2*SQR(J22L) + PDstandardNth33beta2*SQR(J32L))) + - PDstandardNth33beta3*(gtu11*SQR(J31L) + gtu22*SQR(J32L) + - 1.333333333333333333333333333333333333333*gtu33*SQR(J33L)); + dJ313L*PDstandardNth3beta3 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu23*(J11L*J12L*PDstandardNth11beta1 + J12L*J13L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + 2*J12L*J22L*PDstandardNth12beta2 + J13L*J22L*PDstandardNth12beta3 + + J12L*J23L*PDstandardNth12beta3 + J12L*J31L*PDstandardNth13beta1 + + J11L*J32L*PDstandardNth13beta1 + 2*J12L*J32L*PDstandardNth13beta2 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta1 + dJ122L*PDstandardNth1beta2 + + dJ123L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta1 + + J22L*J23L*PDstandardNth22beta3 + J22L*J31L*PDstandardNth23beta1 + + J21L*J32L*PDstandardNth23beta1 + 2*J22L*J32L*PDstandardNth23beta2 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta1 + dJ222L*PDstandardNth2beta2 + + dJ223L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta1 + + J32L*J33L*PDstandardNth33beta3 + dJ312L*PDstandardNth3beta1 + + dJ322L*PDstandardNth3beta2 + dJ323L*PDstandardNth3beta3 + + PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) + + PDstandardNth33beta2*SQR(J32L)) + gtu33*(J11L*J13L*PDstandardNth11beta1 + + J12L*J13L*PDstandardNth11beta2 + J13L*J21L*PDstandardNth12beta1 + + J11L*J23L*PDstandardNth12beta1 + J13L*J22L*PDstandardNth12beta2 + + J12L*J23L*PDstandardNth12beta2 + 2*J13L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ113L*PDstandardNth1beta1 + + dJ123L*PDstandardNth1beta2 + dJ133L*PDstandardNth1beta3 + + J21L*J23L*PDstandardNth22beta1 + J22L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ213L*PDstandardNth2beta1 + + dJ223L*PDstandardNth2beta2 + dJ233L*PDstandardNth2beta3 + + J31L*J33L*PDstandardNth33beta1 + J32L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta1 + dJ323L*PDstandardNth3beta2 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L))); CCTK_REAL Xt1rhsL = dotXt1; @@ -1418,19 +1314,18 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di epsdiss3*J33L)*PDdissipationNth3B1 + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*(PDupwindNthAnti1B1 - PDupwindNthAnti1Xt1) + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*(PDupwindNthAnti2B1 - PDupwindNthAnti2Xt1) - + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3B1 + - (-(beta1L*J31L) - beta2L*J32L - beta3L*J33L)*PDupwindNthAnti3Xt1 + - J11L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1)*Abs(beta1L) + - J21L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1)*Abs(beta1L) + - J31L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1)*Abs(beta1L) + - J12L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1)*Abs(beta2L) + - J22L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1)*Abs(beta2L) + - J32L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1)*Abs(beta2L) + - J13L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1)*Abs(beta3L) + - J23L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1)*Abs(beta3L) + + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*(PDupwindNthAnti3B1 - + PDupwindNthAnti3Xt1) + (J11L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1) + + J21L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1) + + J31L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1))*Abs(beta1L) + + (J12L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1) + + J22L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1) + + J32L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1))*Abs(beta2L) + + (J13L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1) + + J23L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1) + J33L*(PDupwindNthSymm3B1 - - PDupwindNthSymm3Xt1)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + (dotXt1 - - B1L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); + PDupwindNthSymm3Xt1))*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + + (dotXt1 - B1L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); CCTK_REAL B2rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1B2 + (epsdiss1*J21L + epsdiss2*J22L + @@ -1438,19 +1333,18 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di epsdiss3*J33L)*PDdissipationNth3B2 + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*(PDupwindNthAnti1B2 - PDupwindNthAnti1Xt2) + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*(PDupwindNthAnti2B2 - PDupwindNthAnti2Xt2) - + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3B2 + - (-(beta1L*J31L) - beta2L*J32L - beta3L*J33L)*PDupwindNthAnti3Xt2 + - J11L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2)*Abs(beta1L) + - J21L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2)*Abs(beta1L) + - J31L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2)*Abs(beta1L) + - J12L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2)*Abs(beta2L) + - J22L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2)*Abs(beta2L) + - J32L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2)*Abs(beta2L) + - J13L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2)*Abs(beta3L) + - J23L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2)*Abs(beta3L) + + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*(PDupwindNthAnti3B2 - + PDupwindNthAnti3Xt2) + (J11L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2) + + J21L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2) + + J31L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2))*Abs(beta1L) + + (J12L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2) + + J22L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2) + + J32L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2))*Abs(beta2L) + + (J13L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2) + + J23L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2) + J33L*(PDupwindNthSymm3B2 - - PDupwindNthSymm3Xt2)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + (dotXt2 - - B2L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); + PDupwindNthSymm3Xt2))*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + + (dotXt2 - B2L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); CCTK_REAL B3rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1B3 + (epsdiss1*J21L + epsdiss2*J22L + @@ -1458,19 +1352,18 @@ static void ML_BSSN_MP_RHS1_Body(cGH const * restrict const cctkGH, int const di epsdiss3*J33L)*PDdissipationNth3B3 + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*(PDupwindNthAnti1B3 - PDupwindNthAnti1Xt3) + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*(PDupwindNthAnti2B3 - PDupwindNthAnti2Xt3) - + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3B3 + - (-(beta1L*J31L) - beta2L*J32L - beta3L*J33L)*PDupwindNthAnti3Xt3 + - J11L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3)*Abs(beta1L) + - J21L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3)*Abs(beta1L) + - J31L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3)*Abs(beta1L) + - J12L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3)*Abs(beta2L) + - J22L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3)*Abs(beta2L) + - J32L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3)*Abs(beta2L) + - J13L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3)*Abs(beta3L) + - J23L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3)*Abs(beta3L) + + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*(PDupwindNthAnti3B3 - + PDupwindNthAnti3Xt3) + (J11L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3) + + J21L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3) + + J31L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3))*Abs(beta1L) + + (J12L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3) + + J22L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3) + + J32L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3))*Abs(beta2L) + + (J13L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3) + + J23L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3) + J33L*(PDupwindNthSymm3B3 - - PDupwindNthSymm3Xt3)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + (dotXt3 - - B3L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); + PDupwindNthSymm3Xt3))*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + + (dotXt3 - B3L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); /* Copy local copies back to grid functions */ alpharhs[index] = alpharhsL; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.cc b/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.cc index 52fc8b1..8c0f2df 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_RHS2.cc @@ -530,50 +530,49 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + J11L*(gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + gt13L*PDstandardNth1Xt3) + J21L*(gt11L*PDstandardNth2Xt1 + - gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt11 + J12L*J21L*PDstandardNth12gt11 + - J11L*J22L*PDstandardNth12gt11 + J12L*J31L*PDstandardNth13gt11 + - J11L*J32L*PDstandardNth13gt11 + dJ112L*PDstandardNth1gt11 + - J21L*J22L*PDstandardNth22gt11 + J22L*J31L*PDstandardNth23gt11 + - J21L*J32L*PDstandardNth23gt11 + dJ212L*PDstandardNth2gt11 + - J31L*J32L*PDstandardNth33gt11 + dJ312L*PDstandardNth3gt11) - - gtu13*(J11L*J13L*PDstandardNth11gt11 + J13L*J21L*PDstandardNth12gt11 + - J11L*J23L*PDstandardNth12gt11 + J13L*J31L*PDstandardNth13gt11 + - J11L*J33L*PDstandardNth13gt11 + dJ113L*PDstandardNth1gt11 + - J21L*J23L*PDstandardNth22gt11 + J23L*J31L*PDstandardNth23gt11 + - J21L*J33L*PDstandardNth23gt11 + dJ213L*PDstandardNth2gt11 + - J31L*J33L*PDstandardNth33gt11 + dJ313L*PDstandardNth3gt11) - - gtu23*(J12L*J13L*PDstandardNth11gt11 + J13L*J22L*PDstandardNth12gt11 + - J12L*J23L*PDstandardNth12gt11 + J13L*J32L*PDstandardNth13gt11 + - J12L*J33L*PDstandardNth13gt11 + dJ123L*PDstandardNth1gt11 + - J22L*J23L*PDstandardNth22gt11 + J23L*J32L*PDstandardNth23gt11 + - J22L*J33L*PDstandardNth23gt11 + dJ223L*PDstandardNth2gt11 + - J32L*J33L*PDstandardNth33gt11 + dJ323L*PDstandardNth3gt11) + - gt11L*J31L*PDstandardNth3Xt1 + gt12L*J31L*PDstandardNth3Xt2 + - gt13L*J31L*PDstandardNth3Xt3 + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt11 + + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) + + J31L*(gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + + gt13L*PDstandardNth3Xt3) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt11 + + J12L*J21L*PDstandardNth12gt11 + J11L*J22L*PDstandardNth12gt11 + + J12L*J31L*PDstandardNth13gt11 + J11L*J32L*PDstandardNth13gt11 + + dJ112L*PDstandardNth1gt11 + J21L*J22L*PDstandardNth22gt11 + + J22L*J31L*PDstandardNth23gt11 + J21L*J32L*PDstandardNth23gt11 + + dJ212L*PDstandardNth2gt11 + J31L*J32L*PDstandardNth33gt11 + + dJ312L*PDstandardNth3gt11) + gtu13*(J11L*J13L*PDstandardNth11gt11 + + J13L*J21L*PDstandardNth12gt11 + J11L*J23L*PDstandardNth12gt11 + + J13L*J31L*PDstandardNth13gt11 + J11L*J33L*PDstandardNth13gt11 + + dJ113L*PDstandardNth1gt11 + J21L*J23L*PDstandardNth22gt11 + + J23L*J31L*PDstandardNth23gt11 + J21L*J33L*PDstandardNth23gt11 + + dJ213L*PDstandardNth2gt11 + J31L*J33L*PDstandardNth33gt11 + + dJ313L*PDstandardNth3gt11) + gtu23*(J12L*J13L*PDstandardNth11gt11 + + J13L*J22L*PDstandardNth12gt11 + J12L*J23L*PDstandardNth12gt11 + + J13L*J32L*PDstandardNth13gt11 + J12L*J33L*PDstandardNth13gt11 + + dJ123L*PDstandardNth1gt11 + J22L*J23L*PDstandardNth22gt11 + + J23L*J32L*PDstandardNth23gt11 + J22L*J33L*PDstandardNth23gt11 + + dJ223L*PDstandardNth2gt11 + J32L*J33L*PDstandardNth33gt11 + + dJ323L*PDstandardNth3gt11)) - gtu11*(2*J11L*J21L*PDstandardNth12gt11 + 2*J11L*J31L*PDstandardNth13gt11 + dJ111L*PDstandardNth1gt11 + 2*J21L*J31L*PDstandardNth23gt11 + dJ211L*PDstandardNth2gt11 + dJ311L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J11L) + PDstandardNth22gt11*SQR(J21L) + PDstandardNth33gt11*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt11 + + gtu22*(2*J12L*J22L*PDstandardNth12gt11 + 2*J12L*J32L*PDstandardNth13gt11 + dJ122L*PDstandardNth1gt11 + 2*J22L*J32L*PDstandardNth23gt11 + dJ222L*PDstandardNth2gt11 + dJ322L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J12L) + PDstandardNth22gt11*SQR(J22L) + PDstandardNth33gt11*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt11 + + gtu33*(2*J13L*J23L*PDstandardNth12gt11 + 2*J13L*J33L*PDstandardNth13gt11 + dJ133L*PDstandardNth1gt11 + 2*J23L*J33L*PDstandardNth23gt11 + dJ233L*PDstandardNth2gt11 + dJ333L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J13L) + - PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L)); - - CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + - Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + - Gt111*Gtlu121 + Gt212*Gtlu121 + Gt112*Gtlu122 + Gt222*Gtlu122 + - Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + - Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*Gtlu212 + Gt113*Gtlu213 + - Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + - Gt312*Gtlu322 + Gt313*Gtlu323) + (gt12L*J11L + + PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L))); + + CCTK_REAL Rt12 = Gt122*Gtlu112 + Gt123*Gtlu113 + (Gt111 + + Gt212)*Gtlu121 + Gt222*Gtlu122 + (Gt113 + Gt223)*Gtlu123 + + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + 2*(Gt211*Gtlu221 + Gt212*Gtlu222 + + Gt213*Gtlu223) + Gt311*(Gtlu231 + Gtlu321) + Gt312*(Gtlu131 + Gtlu232 + + Gtlu322) + Gt313*(Gtlu233 + Gtlu323) + 0.5*((gt12L*J11L + gt11L*J12L)*PDstandardNth1Xt1 + (gt22L*J11L + gt12L*J12L)*PDstandardNth1Xt2 + (gt23L*J11L + gt13L*J12L)*PDstandardNth1Xt3 + (gt12L*J21L + @@ -618,14 +617,14 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di dJ333L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J13L) + PDstandardNth22gt12*SQR(J23L) + PDstandardNth33gt12*SQR(J33L))); - CCTK_REAL Rt13 = 0.5*(2*(Gt113*Gtlu111 + Gt123*Gtlu112 + Gt133*Gtlu113 - + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + - Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt113*Gtlu133 + - Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + - Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*Gtlu313 + Gt211*Gtlu321 + - Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + - Gt313*Gtlu333) + (gt13L*J11L + gt11L*J13L)*PDstandardNth1Xt1 + - (gt23L*J11L + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + + CCTK_REAL Rt13 = Gt123*Gtlu112 + Gt133*Gtlu113 + Gt223*Gtlu122 + + Gt233*Gtlu123 + (Gt111 + Gt313)*Gtlu131 + (Gt112 + Gt323)*Gtlu132 + + Gt333*Gtlu133 + Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + + Gtlu133 + Gtlu313) + Gt211*(Gtlu231 + Gtlu321) + Gt212*(Gtlu232 + + Gtlu322) + Gt213*(Gtlu121 + Gtlu233 + Gtlu323) + 2*(Gt311*Gtlu331 + + Gt312*Gtlu332 + Gt313*Gtlu333) + 0.5*((gt13L*J11L + + gt11L*J13L)*PDstandardNth1Xt1 + (gt23L*J11L + + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + gt13L*J13L)*PDstandardNth1Xt3 + (gt13L*J21L + gt11L*J23L)*PDstandardNth2Xt1 + (gt23L*J21L + gt12L*J23L)*PDstandardNth2Xt2 + (gt33L*J21L + @@ -674,50 +673,49 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + J12L*(gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3) + J22L*(gt12L*PDstandardNth2Xt1 + - gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt22 + J12L*J21L*PDstandardNth12gt22 + - J11L*J22L*PDstandardNth12gt22 + J12L*J31L*PDstandardNth13gt22 + - J11L*J32L*PDstandardNth13gt22 + dJ112L*PDstandardNth1gt22 + - J21L*J22L*PDstandardNth22gt22 + J22L*J31L*PDstandardNth23gt22 + - J21L*J32L*PDstandardNth23gt22 + dJ212L*PDstandardNth2gt22 + - J31L*J32L*PDstandardNth33gt22 + dJ312L*PDstandardNth3gt22) - - gtu13*(J11L*J13L*PDstandardNth11gt22 + J13L*J21L*PDstandardNth12gt22 + - J11L*J23L*PDstandardNth12gt22 + J13L*J31L*PDstandardNth13gt22 + - J11L*J33L*PDstandardNth13gt22 + dJ113L*PDstandardNth1gt22 + - J21L*J23L*PDstandardNth22gt22 + J23L*J31L*PDstandardNth23gt22 + - J21L*J33L*PDstandardNth23gt22 + dJ213L*PDstandardNth2gt22 + - J31L*J33L*PDstandardNth33gt22 + dJ313L*PDstandardNth3gt22) - - gtu23*(J12L*J13L*PDstandardNth11gt22 + J13L*J22L*PDstandardNth12gt22 + - J12L*J23L*PDstandardNth12gt22 + J13L*J32L*PDstandardNth13gt22 + - J12L*J33L*PDstandardNth13gt22 + dJ123L*PDstandardNth1gt22 + - J22L*J23L*PDstandardNth22gt22 + J23L*J32L*PDstandardNth23gt22 + - J22L*J33L*PDstandardNth23gt22 + dJ223L*PDstandardNth2gt22 + - J32L*J33L*PDstandardNth33gt22 + dJ323L*PDstandardNth3gt22) + - gt12L*J32L*PDstandardNth3Xt1 + gt22L*J32L*PDstandardNth3Xt2 + - gt23L*J32L*PDstandardNth3Xt3 + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt22 + + gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) + + J32L*(gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + + gt23L*PDstandardNth3Xt3) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt22 + + J12L*J21L*PDstandardNth12gt22 + J11L*J22L*PDstandardNth12gt22 + + J12L*J31L*PDstandardNth13gt22 + J11L*J32L*PDstandardNth13gt22 + + dJ112L*PDstandardNth1gt22 + J21L*J22L*PDstandardNth22gt22 + + J22L*J31L*PDstandardNth23gt22 + J21L*J32L*PDstandardNth23gt22 + + dJ212L*PDstandardNth2gt22 + J31L*J32L*PDstandardNth33gt22 + + dJ312L*PDstandardNth3gt22) + gtu13*(J11L*J13L*PDstandardNth11gt22 + + J13L*J21L*PDstandardNth12gt22 + J11L*J23L*PDstandardNth12gt22 + + J13L*J31L*PDstandardNth13gt22 + J11L*J33L*PDstandardNth13gt22 + + dJ113L*PDstandardNth1gt22 + J21L*J23L*PDstandardNth22gt22 + + J23L*J31L*PDstandardNth23gt22 + J21L*J33L*PDstandardNth23gt22 + + dJ213L*PDstandardNth2gt22 + J31L*J33L*PDstandardNth33gt22 + + dJ313L*PDstandardNth3gt22) + gtu23*(J12L*J13L*PDstandardNth11gt22 + + J13L*J22L*PDstandardNth12gt22 + J12L*J23L*PDstandardNth12gt22 + + J13L*J32L*PDstandardNth13gt22 + J12L*J33L*PDstandardNth13gt22 + + dJ123L*PDstandardNth1gt22 + J22L*J23L*PDstandardNth22gt22 + + J23L*J32L*PDstandardNth23gt22 + J22L*J33L*PDstandardNth23gt22 + + dJ223L*PDstandardNth2gt22 + J32L*J33L*PDstandardNth33gt22 + + dJ323L*PDstandardNth3gt22)) - gtu11*(2*J11L*J21L*PDstandardNth12gt22 + 2*J11L*J31L*PDstandardNth13gt22 + dJ111L*PDstandardNth1gt22 + 2*J21L*J31L*PDstandardNth23gt22 + dJ211L*PDstandardNth2gt22 + dJ311L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J11L) + PDstandardNth22gt22*SQR(J21L) + PDstandardNth33gt22*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt22 + + gtu22*(2*J12L*J22L*PDstandardNth12gt22 + 2*J12L*J32L*PDstandardNth13gt22 + dJ122L*PDstandardNth1gt22 + 2*J22L*J32L*PDstandardNth23gt22 + dJ222L*PDstandardNth2gt22 + dJ322L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J12L) + PDstandardNth22gt22*SQR(J22L) + PDstandardNth33gt22*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt22 + + gtu33*(2*J13L*J23L*PDstandardNth12gt22 + 2*J13L*J33L*PDstandardNth13gt22 + dJ133L*PDstandardNth1gt22 + 2*J23L*J33L*PDstandardNth23gt22 + dJ233L*PDstandardNth2gt22 + dJ333L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J13L) + - PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L)); - - CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 - + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + - Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + - Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + - Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*Gtlu313 + Gt212*Gtlu321 + - Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + - Gt323*Gtlu333) + (gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + + PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L))); + + CCTK_REAL Rt23 = Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + + Gt233*Gtlu223 + (Gt212 + Gt313)*Gtlu231 + (Gt222 + Gt323)*Gtlu232 + + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + Gt122*(Gtlu132 + Gtlu312) + + Gt123*(Gtlu133 + Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + + Gt223*(Gtlu222 + Gtlu233 + Gtlu323) + 2*(Gt312*Gtlu331 + Gt322*Gtlu332 + + Gt323*Gtlu333) + 0.5*((gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + (gt23L*J12L + gt22L*J13L)*PDstandardNth1Xt2 + (gt33L*J12L + gt23L*J13L)*PDstandardNth1Xt3 + (gt13L*J22L + gt12L*J23L)*PDstandardNth2Xt1 + (gt23L*J22L + @@ -767,44 +765,44 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + J13L*(gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3) + J23L*(gt13L*PDstandardNth2Xt1 + - gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt33 + J12L*J21L*PDstandardNth12gt33 + - J11L*J22L*PDstandardNth12gt33 + J12L*J31L*PDstandardNth13gt33 + - J11L*J32L*PDstandardNth13gt33 + dJ112L*PDstandardNth1gt33 + - J21L*J22L*PDstandardNth22gt33 + J22L*J31L*PDstandardNth23gt33 + - J21L*J32L*PDstandardNth23gt33 + dJ212L*PDstandardNth2gt33 + - J31L*J32L*PDstandardNth33gt33 + dJ312L*PDstandardNth3gt33) - - gtu13*(J11L*J13L*PDstandardNth11gt33 + J13L*J21L*PDstandardNth12gt33 + - J11L*J23L*PDstandardNth12gt33 + J13L*J31L*PDstandardNth13gt33 + - J11L*J33L*PDstandardNth13gt33 + dJ113L*PDstandardNth1gt33 + - J21L*J23L*PDstandardNth22gt33 + J23L*J31L*PDstandardNth23gt33 + - J21L*J33L*PDstandardNth23gt33 + dJ213L*PDstandardNth2gt33 + - J31L*J33L*PDstandardNth33gt33 + dJ313L*PDstandardNth3gt33) - - gtu23*(J12L*J13L*PDstandardNth11gt33 + J13L*J22L*PDstandardNth12gt33 + - J12L*J23L*PDstandardNth12gt33 + J13L*J32L*PDstandardNth13gt33 + - J12L*J33L*PDstandardNth13gt33 + dJ123L*PDstandardNth1gt33 + - J22L*J23L*PDstandardNth22gt33 + J23L*J32L*PDstandardNth23gt33 + - J22L*J33L*PDstandardNth23gt33 + dJ223L*PDstandardNth2gt33 + - J32L*J33L*PDstandardNth33gt33 + dJ323L*PDstandardNth3gt33) + - gt13L*J33L*PDstandardNth3Xt1 + gt23L*J33L*PDstandardNth3Xt2 + - gt33L*J33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt33 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) + + J33L*(gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3) + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt33 + + J12L*J21L*PDstandardNth12gt33 + J11L*J22L*PDstandardNth12gt33 + + J12L*J31L*PDstandardNth13gt33 + J11L*J32L*PDstandardNth13gt33 + + dJ112L*PDstandardNth1gt33 + J21L*J22L*PDstandardNth22gt33 + + J22L*J31L*PDstandardNth23gt33 + J21L*J32L*PDstandardNth23gt33 + + dJ212L*PDstandardNth2gt33 + J31L*J32L*PDstandardNth33gt33 + + dJ312L*PDstandardNth3gt33) + gtu13*(J11L*J13L*PDstandardNth11gt33 + + J13L*J21L*PDstandardNth12gt33 + J11L*J23L*PDstandardNth12gt33 + + J13L*J31L*PDstandardNth13gt33 + J11L*J33L*PDstandardNth13gt33 + + dJ113L*PDstandardNth1gt33 + J21L*J23L*PDstandardNth22gt33 + + J23L*J31L*PDstandardNth23gt33 + J21L*J33L*PDstandardNth23gt33 + + dJ213L*PDstandardNth2gt33 + J31L*J33L*PDstandardNth33gt33 + + dJ313L*PDstandardNth3gt33) + gtu23*(J12L*J13L*PDstandardNth11gt33 + + J13L*J22L*PDstandardNth12gt33 + J12L*J23L*PDstandardNth12gt33 + + J13L*J32L*PDstandardNth13gt33 + J12L*J33L*PDstandardNth13gt33 + + dJ123L*PDstandardNth1gt33 + J22L*J23L*PDstandardNth22gt33 + + J23L*J32L*PDstandardNth23gt33 + J22L*J33L*PDstandardNth23gt33 + + dJ223L*PDstandardNth2gt33 + J32L*J33L*PDstandardNth33gt33 + + dJ323L*PDstandardNth3gt33)) - gtu11*(2*J11L*J21L*PDstandardNth12gt33 + 2*J11L*J31L*PDstandardNth13gt33 + dJ111L*PDstandardNth1gt33 + 2*J21L*J31L*PDstandardNth23gt33 + dJ211L*PDstandardNth2gt33 + dJ311L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J11L) + PDstandardNth22gt33*SQR(J21L) + PDstandardNth33gt33*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt33 + + gtu22*(2*J12L*J22L*PDstandardNth12gt33 + 2*J12L*J32L*PDstandardNth13gt33 + dJ122L*PDstandardNth1gt33 + 2*J22L*J32L*PDstandardNth23gt33 + dJ222L*PDstandardNth2gt33 + dJ322L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J12L) + PDstandardNth22gt33*SQR(J22L) + PDstandardNth33gt33*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt33 + + gtu33*(2*J13L*J23L*PDstandardNth12gt33 + 2*J13L*J33L*PDstandardNth13gt33 + dJ133L*PDstandardNth1gt33 + 2*J23L*J33L*PDstandardNth23gt33 + dJ233L*PDstandardNth2gt33 + dJ333L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J13L) + - PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L)); + PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L))); - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); @@ -815,7 +813,7 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL cdphi3 = fac1*(J13L*PDstandardNth1phi + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = fac1*((dJ111L - Gt111*J11L - Gt211*J12L - Gt311*J13L)*PDstandardNth1phi + 2*(J11L*(J21L*PDstandardNth12phi + @@ -823,42 +821,34 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di Gt111*J21L - Gt211*J22L - Gt311*J23L)*PDstandardNth2phi + (dJ311L - Gt111*J31L - Gt211*J32L - Gt311*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J11L) + PDstandardNth22phi*SQR(J21L) + - PDstandardNth33phi*SQR(J31L)) + - fac2*(2*(J21L*J31L*PDstandardNth2phi*PDstandardNth3phi + - J11L*PDstandardNth1phi*(J21L*PDstandardNth2phi + - J31L*PDstandardNth3phi)) + SQR(J11L)*SQR(PDstandardNth1phi) + - SQR(J21L)*SQR(PDstandardNth2phi) + SQR(J31L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi212 = fac1*(-(Gt112*J31L) - - Gt212*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ112L - - Gt112*J11L - Gt212*J12L - Gt312*J13L) + fac2*(J12L*J21L + - J11L*J22L)*PDstandardNth2phi + fac2*(J12L*J31L + - J11L*J32L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ212L - - Gt112*J21L - Gt212*J22L - Gt312*J23L) + fac2*(J22L*J31L + - J21L*J32L)*PDstandardNth3phi) + fac1*(J11L*J12L*PDstandardNth11phi + - J12L*J21L*PDstandardNth12phi + J11L*J22L*PDstandardNth12phi + - J12L*J31L*PDstandardNth13phi + J11L*J32L*PDstandardNth13phi + - J21L*J22L*PDstandardNth22phi + J22L*J31L*PDstandardNth23phi + - J21L*J32L*PDstandardNth23phi + J31L*J32L*PDstandardNth33phi + (dJ312L - - Gt312*J33L)*PDstandardNth3phi) + fac2*J11L*J12L*SQR(PDstandardNth1phi) - + fac2*J21L*J22L*SQR(PDstandardNth2phi) + - fac2*J31L*J32L*SQR(PDstandardNth3phi); - - CCTK_REAL cdphi213 = fac1*(-(Gt113*J31L) - - Gt213*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ113L - - Gt113*J11L - Gt213*J12L - Gt313*J13L) + fac2*(J13L*J21L + - J11L*J23L)*PDstandardNth2phi + fac2*(J13L*J31L + - J11L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ213L - - Gt113*J21L - Gt213*J22L - Gt313*J23L) + fac2*(J23L*J31L + - J21L*J33L)*PDstandardNth3phi) + fac1*(J11L*J13L*PDstandardNth11phi + - J13L*J21L*PDstandardNth12phi + J11L*J23L*PDstandardNth12phi + - J13L*J31L*PDstandardNth13phi + J21L*J23L*PDstandardNth22phi + - J23L*J31L*PDstandardNth23phi + J21L*J33L*PDstandardNth23phi + - J31L*J33L*PDstandardNth33phi + dJ313L*PDstandardNth3phi + - J33L*(J11L*PDstandardNth13phi - Gt313*PDstandardNth3phi)) + - fac2*J11L*J13L*SQR(PDstandardNth1phi) + - fac2*J21L*J23L*SQR(PDstandardNth2phi) + - fac2*J31L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J31L)) + fac2*SQR(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); + + CCTK_REAL cdphi212 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi) + + fac1*(J12L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + (dJ112L - Gt112*J11L - Gt212*J12L - + Gt312*J13L)*PDstandardNth1phi + J22L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ212L - Gt112*J21L - Gt212*J22L - + Gt312*J23L)*PDstandardNth2phi + J32L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ312L - Gt112*J31L - Gt212*J32L - + Gt312*J33L)*PDstandardNth3phi); + + CCTK_REAL cdphi213 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ113L - Gt113*J11L - Gt213*J12L - + Gt313*J13L)*PDstandardNth1phi + J23L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ213L - Gt113*J21L - Gt213*J22L - + Gt313*J23L)*PDstandardNth2phi + J33L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ313L - Gt113*J31L - Gt213*J32L - + Gt313*J33L)*PDstandardNth3phi); CCTK_REAL cdphi222 = fac1*((dJ122L - Gt122*J11L - Gt222*J12L - Gt322*J13L)*PDstandardNth1phi + 2*(J12L*(J22L*PDstandardNth12phi + @@ -866,27 +856,21 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di Gt122*J21L - Gt222*J22L - Gt322*J23L)*PDstandardNth2phi + (dJ322L - Gt122*J31L - Gt222*J32L - Gt322*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J12L) + PDstandardNth22phi*SQR(J22L) + - PDstandardNth33phi*SQR(J32L)) + - fac2*(2*(J22L*J32L*PDstandardNth2phi*PDstandardNth3phi + - J12L*PDstandardNth1phi*(J22L*PDstandardNth2phi + - J32L*PDstandardNth3phi)) + SQR(J12L)*SQR(PDstandardNth1phi) + - SQR(J22L)*SQR(PDstandardNth2phi) + SQR(J32L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi223 = fac1*(-(Gt123*J31L) - - Gt223*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ123L - - Gt123*J11L - Gt223*J12L - Gt323*J13L) + fac2*(J13L*J22L + - J12L*J23L)*PDstandardNth2phi + fac2*(J13L*J32L + - J12L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ223L - - Gt123*J21L - Gt223*J22L - Gt323*J23L) + fac2*(J23L*J32L + - J22L*J33L)*PDstandardNth3phi) + fac1*(J12L*J13L*PDstandardNth11phi + - J13L*J22L*PDstandardNth12phi + J12L*J23L*PDstandardNth12phi + - J13L*J32L*PDstandardNth13phi + J22L*J23L*PDstandardNth22phi + - J23L*J32L*PDstandardNth23phi + J22L*J33L*PDstandardNth23phi + - J32L*J33L*PDstandardNth33phi + dJ323L*PDstandardNth3phi + - J33L*(J12L*PDstandardNth13phi - Gt323*PDstandardNth3phi)) + - fac2*J12L*J13L*SQR(PDstandardNth1phi) + - fac2*J22L*J23L*SQR(PDstandardNth2phi) + - fac2*J32L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J32L)) + fac2*SQR(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi); + + CCTK_REAL cdphi223 = fac2*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + + J32L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J12L*PDstandardNth11phi + J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + J12L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ123L - Gt123*J11L - Gt223*J12L - + Gt323*J13L)*PDstandardNth1phi + J23L*(J22L*PDstandardNth22phi + + J32L*PDstandardNth23phi) + (dJ223L - Gt123*J21L - Gt223*J22L - + Gt323*J23L)*PDstandardNth2phi + J33L*(J22L*PDstandardNth23phi + + J32L*PDstandardNth33phi) + (dJ323L - Gt123*J31L - Gt223*J32L - + Gt323*J33L)*PDstandardNth3phi); CCTK_REAL cdphi233 = fac1*((dJ133L - Gt133*J11L - Gt233*J12L - Gt333*J13L)*PDstandardNth1phi + 2*(J13L*(J23L*PDstandardNth12phi + @@ -894,11 +878,8 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di Gt133*J21L - Gt233*J22L - Gt333*J23L)*PDstandardNth2phi + (dJ333L - Gt133*J31L - Gt233*J32L - Gt333*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J13L) + PDstandardNth22phi*SQR(J23L) + - PDstandardNth33phi*SQR(J33L)) + - fac2*(2*(J23L*J33L*PDstandardNth2phi*PDstandardNth3phi + - J13L*PDstandardNth1phi*(J23L*PDstandardNth2phi + - J33L*PDstandardNth3phi)) + SQR(J13L)*SQR(PDstandardNth1phi) + - SQR(J23L)*SQR(PDstandardNth2phi) + SQR(J33L)*SQR(PDstandardNth3phi)); + PDstandardNth33phi*SQR(J33L)) + fac2*SQR(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); CCTK_REAL Rphi11 = -2*(cdphi211 + 2*(-1 + gt11L*gtu11)*SQR(cdphi1) + gt11L*(cdphi211*gtu11 + 4*(cdphi1*(cdphi2*gtu12 + cdphi3*gtu13) + @@ -954,7 +935,8 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Atm33 = At13L*gtu13 + At23L*gtu23 + At33L*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -1070,26 +1052,24 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di epsdiss3*J13L)*PDdissipationNth1At11 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At11 + (epsdiss1*J31L + epsdiss2*J32L + epsdiss3*J33L)*PDdissipationNth3At11 - - 0.6666666666666666666666666666666666666667*At11L*(J12L*PDstandardNth1beta2 - + J13L*PDstandardNth1beta3 + J22L*PDstandardNth2beta2 + - J23L*PDstandardNth2beta3 + J32L*PDstandardNth3beta2 + - J33L*PDstandardNth3beta3) + (beta2L*J12L + - beta3L*J13L)*PDupwindNthAnti1At11 + (beta2L*J22L + - beta3L*J23L)*PDupwindNthAnti2At11 + (beta2L*J32L + - beta3L*J33L)*PDupwindNthAnti3At11 + alphaL*(-2.*(At11L*Atm11 + + 0.666666666666666666666666666667*At11L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J11L*(At11L*PDstandardNth1beta1 + At12L*PDstandardNth1beta2 + + At13L*PDstandardNth1beta3) + J21L*(At11L*PDstandardNth2beta1 + + At12L*PDstandardNth2beta2 + At13L*PDstandardNth2beta3) + + J31L*(At11L*PDstandardNth3beta1 + At12L*PDstandardNth3beta2 + + At13L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1At11 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2At11 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3At11 + alphaL*(-2*(At11L*Atm11 + At12L*Atm21 + At13L*Atm31) + At11L*trKL) + em4phi*(Ats11 - - 0.3333333333333333333333333333333333333333*g11*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTxxL + - 8.377580409572781969233715688745341024526*g11*trS)) + - J11L*(1.333333333333333333333333333333333333333*At11L*PDstandardNth1beta1 - + 2.*(At12L*PDstandardNth1beta2 + At13L*PDstandardNth1beta3) + - beta1L*PDupwindNthAnti1At11 + PDupwindNthSymm1At11*Abs(beta1L)) + - J21L*(1.333333333333333333333333333333333333333*At11L*PDstandardNth2beta1 - + 2.*(At12L*PDstandardNth2beta2 + At13L*PDstandardNth2beta3) + - beta1L*PDupwindNthAnti2At11 + PDupwindNthSymm2At11*Abs(beta1L)) + - J31L*(1.333333333333333333333333333333333333333*At11L*PDstandardNth3beta1 - + 2.*(At12L*PDstandardNth3beta2 + At13L*PDstandardNth3beta3) + - beta1L*PDupwindNthAnti3At11 + PDupwindNthSymm3At11*Abs(beta1L)) + + 0.333333333333333333333333333333*g11*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTxxL - + 0.333333333333333333333333333333*g11*trS)) + (J11L*PDupwindNthSymm1At11 + + J21L*PDupwindNthSymm2At11 + J31L*PDupwindNthSymm3At11)*Abs(beta1L) + (J12L*PDupwindNthSymm1At11 + J22L*PDupwindNthSymm2At11 + J32L*PDupwindNthSymm3At11)*Abs(beta2L) + (J13L*PDupwindNthSymm1At11 + J23L*PDupwindNthSymm2At11 + J33L*PDupwindNthSymm3At11)*Abs(beta3L); @@ -1097,156 +1077,144 @@ static void ML_BSSN_MP_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL At12rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At12 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At12 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At12 + - (0.3333333333333333333333333333333333333333*At12L*J11L + + epsdiss3*J33L)*PDdissipationNth3At12 + (At12L*J11L + At11L*J12L)*PDstandardNth1beta1 + (At22L*J11L + - 0.3333333333333333333333333333333333333333*At12L*J12L)*PDstandardNth1beta2 - + (At23L*J11L + At13L*J12L - - 0.6666666666666666666666666666666666666667*At12L*J13L)*PDstandardNth1beta3 - + (0.3333333333333333333333333333333333333333*At12L*J21L + + At12L*J12L)*PDstandardNth1beta2 + (At23L*J11L + + At13L*J12L)*PDstandardNth1beta3 + (At12L*J21L + At11L*J22L)*PDstandardNth2beta1 + (At22L*J21L + - 0.3333333333333333333333333333333333333333*At12L*J22L)*PDstandardNth2beta2 - + (At23L*J21L + At13L*J22L - - 0.6666666666666666666666666666666666666667*At12L*J23L)*PDstandardNth2beta3 - + (0.3333333333333333333333333333333333333333*At12L*J31L + + At12L*J22L)*PDstandardNth2beta2 + (At23L*J21L + + At13L*J22L)*PDstandardNth2beta3 + (At12L*J31L + At11L*J32L)*PDstandardNth3beta1 + (At22L*J31L + - 0.3333333333333333333333333333333333333333*At12L*J32L)*PDstandardNth3beta2 - + (At23L*J31L + At13L*J32L - - 0.6666666666666666666666666666666666666667*At12L*J33L)*PDstandardNth3beta3 - + (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At12 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At12 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At12 + - alphaL*(-2.*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + At12L*trKL) + - em4phi*(Ats12 - 0.3333333333333333333333333333333333333333*g12*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTxyL + - 8.377580409572781969233715688745341024526*g12*trS)) + - (J11L*PDupwindNthSymm1At12 + J21L*PDupwindNthSymm2At12 + - J31L*PDupwindNthSymm3At12)*Abs(beta1L) + (J12L*PDupwindNthSymm1At12 + - J22L*PDupwindNthSymm2At12 + J32L*PDupwindNthSymm3At12)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At12 + J23L*PDupwindNthSymm2At12 + - J33L*PDupwindNthSymm3At12)*Abs(beta3L); + At12L*J32L)*PDstandardNth3beta2 + (At23L*J31L + + At13L*J32L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*At12L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At12 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At12 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At12 + + alphaL*(-2*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + At12L*trKL) + + em4phi*(Ats12 - 0.333333333333333333333333333333*g12*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTxyL - + 0.333333333333333333333333333333*g12*trS)) + (J11L*PDupwindNthSymm1At12 + + J21L*PDupwindNthSymm2At12 + J31L*PDupwindNthSymm3At12)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At12 + J22L*PDupwindNthSymm2At12 + + J32L*PDupwindNthSymm3At12)*Abs(beta2L) + (J13L*PDupwindNthSymm1At12 + + J23L*PDupwindNthSymm2At12 + J33L*PDupwindNthSymm3At12)*Abs(beta3L); CCTK_REAL At13rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At13 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At13 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At13 + - (0.3333333333333333333333333333333333333333*At13L*J11L + - At11L*J13L)*PDstandardNth1beta1 + (At23L*J11L - - 0.6666666666666666666666666666666666666667*At13L*J12L + + epsdiss3*J33L)*PDdissipationNth3At13 + (At13L*J11L + + At11L*J13L)*PDstandardNth1beta1 + (At23L*J11L + At12L*J13L)*PDstandardNth1beta2 + (At33L*J11L + - 0.3333333333333333333333333333333333333333*At13L*J13L)*PDstandardNth1beta3 - + (0.3333333333333333333333333333333333333333*At13L*J21L + - At11L*J23L)*PDstandardNth2beta1 + (At23L*J21L - - 0.6666666666666666666666666666666666666667*At13L*J22L + + At13L*J13L)*PDstandardNth1beta3 + (At13L*J21L + + At11L*J23L)*PDstandardNth2beta1 + (At23L*J21L + At12L*J23L)*PDstandardNth2beta2 + (At33L*J21L + - 0.3333333333333333333333333333333333333333*At13L*J23L)*PDstandardNth2beta3 - + (0.3333333333333333333333333333333333333333*At13L*J31L + - At11L*J33L)*PDstandardNth3beta1 + (At23L*J31L - - 0.6666666666666666666666666666666666666667*At13L*J32L + + At13L*J23L)*PDstandardNth2beta3 + (At13L*J31L + + At11L*J33L)*PDstandardNth3beta1 + (At23L*J31L + At12L*J33L)*PDstandardNth3beta2 + (At33L*J31L + - 0.3333333333333333333333333333333333333333*At13L*J33L)*PDstandardNth3beta3 - + (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At13 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At13 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At13 + - alphaL*(-2.*(At11L*Atm13 + At12L*Atm23 + At13L*Atm33) + At13L*trKL) + - em4phi*(Ats13 - 0.3333333333333333333333333333333333333333*g13*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTxzL + - 8.377580409572781969233715688745341024526*g13*trS)) + - (J11L*PDupwindNthSymm1At13 + J21L*PDupwindNthSymm2At13 + - J31L*PDupwindNthSymm3At13)*Abs(beta1L) + (J12L*PDupwindNthSymm1At13 + - J22L*PDupwindNthSymm2At13 + J32L*PDupwindNthSymm3At13)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At13 + J23L*PDupwindNthSymm2At13 + - J33L*PDupwindNthSymm3At13)*Abs(beta3L); + At13L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*At13L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At13 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At13 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At13 + + alphaL*(-2*(At11L*Atm13 + At12L*Atm23 + At13L*Atm33) + At13L*trKL) + + em4phi*(Ats13 - 0.333333333333333333333333333333*g13*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTxzL - + 0.333333333333333333333333333333*g13*trS)) + (J11L*PDupwindNthSymm1At13 + + J21L*PDupwindNthSymm2At13 + J31L*PDupwindNthSymm3At13)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At13 + J22L*PDupwindNthSymm2At13 + + J32L*PDupwindNthSymm3At13)*Abs(beta2L) + (J13L*PDupwindNthSymm1At13 + + J23L*PDupwindNthSymm2At13 + J33L*PDupwindNthSymm3At13)*Abs(beta3L); CCTK_REAL At22rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At22 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At22 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At22 + - (-0.6666666666666666666666666666666666666667*At22L*J11L + - 2.*At12L*J12L)*PDstandardNth1beta1 - - 0.6666666666666666666666666666666666666667*At22L*(J13L*PDstandardNth1beta3 - + J21L*PDstandardNth2beta1 + J23L*PDstandardNth2beta3 + - J31L*PDstandardNth3beta1 + J33L*PDstandardNth3beta3) + (beta1L*J11L + - beta3L*J13L)*PDupwindNthAnti1At22 + (beta1L*J21L + - beta3L*J23L)*PDupwindNthAnti2At22 + (beta1L*J31L + - beta3L*J33L)*PDupwindNthAnti3At22 + alphaL*(-2.*(At12L*Atm12 + + epsdiss3*J33L)*PDdissipationNth3At22 - + 0.666666666666666666666666666667*At22L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J12L*(At12L*PDstandardNth1beta1 + At22L*PDstandardNth1beta2 + + At23L*PDstandardNth1beta3) + J22L*(At12L*PDstandardNth2beta1 + + At22L*PDstandardNth2beta2 + At23L*PDstandardNth2beta3) + + J32L*(At12L*PDstandardNth3beta1 + At22L*PDstandardNth3beta2 + + At23L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1At22 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2At22 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3At22 + alphaL*(-2*(At12L*Atm12 + At22L*Atm22 + At23L*Atm32) + At22L*trKL) + em4phi*(Ats22 - - 0.3333333333333333333333333333333333333333*g22*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTyyL + - 8.377580409572781969233715688745341024526*g22*trS)) + - (J11L*PDupwindNthSymm1At22 + J21L*PDupwindNthSymm2At22 + - J31L*PDupwindNthSymm3At22)*Abs(beta1L) + - J12L*(1.333333333333333333333333333333333333333*At22L*PDstandardNth1beta2 - + 2.*At23L*PDstandardNth1beta3 + beta2L*PDupwindNthAnti1At22 + - PDupwindNthSymm1At22*Abs(beta2L)) + - J22L*(1.333333333333333333333333333333333333333*At22L*PDstandardNth2beta2 - + 2.*(At12L*PDstandardNth2beta1 + At23L*PDstandardNth2beta3) + - beta2L*PDupwindNthAnti2At22 + PDupwindNthSymm2At22*Abs(beta2L)) + - J32L*(1.333333333333333333333333333333333333333*At22L*PDstandardNth3beta2 - + 2.*(At12L*PDstandardNth3beta1 + At23L*PDstandardNth3beta3) + - beta2L*PDupwindNthAnti3At22 + PDupwindNthSymm3At22*Abs(beta2L)) + - (J13L*PDupwindNthSymm1At22 + J23L*PDupwindNthSymm2At22 + - J33L*PDupwindNthSymm3At22)*Abs(beta3L); + 0.333333333333333333333333333333*g22*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTyyL - + 0.333333333333333333333333333333*g22*trS)) + (J11L*PDupwindNthSymm1At22 + + J21L*PDupwindNthSymm2At22 + J31L*PDupwindNthSymm3At22)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At22 + J22L*PDupwindNthSymm2At22 + + J32L*PDupwindNthSymm3At22)*Abs(beta2L) + (J13L*PDupwindNthSymm1At22 + + J23L*PDupwindNthSymm2At22 + J33L*PDupwindNthSymm3At22)*Abs(beta3L); CCTK_REAL At23rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At23 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At23 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At23 + - (-0.6666666666666666666666666666666666666667*At23L*J11L + At13L*J12L + - At12L*J13L)*PDstandardNth1beta1 + - (0.3333333333333333333333333333333333333333*At23L*J12L + + epsdiss3*J33L)*PDdissipationNth3At23 + (At13L*J12L + + At12L*J13L)*PDstandardNth1beta1 + (At23L*J12L + At22L*J13L)*PDstandardNth1beta2 + (At33L*J12L + - 0.3333333333333333333333333333333333333333*At23L*J13L)*PDstandardNth1beta3 - + (-0.6666666666666666666666666666666666666667*At23L*J21L + At13L*J22L - + At12L*J23L)*PDstandardNth2beta1 + - (0.3333333333333333333333333333333333333333*At23L*J22L + + At23L*J13L)*PDstandardNth1beta3 + (At13L*J22L + + At12L*J23L)*PDstandardNth2beta1 + (At23L*J22L + At22L*J23L)*PDstandardNth2beta2 + (At33L*J22L + - 0.3333333333333333333333333333333333333333*At23L*J23L)*PDstandardNth2beta3 - + (-0.6666666666666666666666666666666666666667*At23L*J31L + At13L*J32L - + At12L*J33L)*PDstandardNth3beta1 + - (0.3333333333333333333333333333333333333333*At23L*J32L + + At23L*J23L)*PDstandardNth2beta3 + (At13L*J32L + + At12L*J33L)*PDstandardNth3beta1 + (At23L*J32L + At22L*J33L)*PDstandardNth3beta2 + (At33L*J32L + - 0.3333333333333333333333333333333333333333*At23L*J33L)*PDstandardNth3beta3 - + (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At23 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At23 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At23 + - alphaL*(-2.*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + At23L*trKL) + - em4phi*(Ats23 - 0.3333333333333333333333333333333333333333*g23*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTyzL + - 8.377580409572781969233715688745341024526*g23*trS)) + - (J11L*PDupwindNthSymm1At23 + J21L*PDupwindNthSymm2At23 + - J31L*PDupwindNthSymm3At23)*Abs(beta1L) + (J12L*PDupwindNthSymm1At23 + - J22L*PDupwindNthSymm2At23 + J32L*PDupwindNthSymm3At23)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At23 + J23L*PDupwindNthSymm2At23 + - J33L*PDupwindNthSymm3At23)*Abs(beta3L); - - CCTK_REAL At33rhsL = -2.*alphaL*(At13L*Atm13 + At23L*Atm23 + - At33L*Atm33) + (epsdiss1*J11L + epsdiss2*J12L + + At23L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*At23L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At23 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At23 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At23 + + alphaL*(-2*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + At23L*trKL) + + em4phi*(Ats23 - 0.333333333333333333333333333333*g23*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTyzL - + 0.333333333333333333333333333333*g23*trS)) + (J11L*PDupwindNthSymm1At23 + + J21L*PDupwindNthSymm2At23 + J31L*PDupwindNthSymm3At23)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At23 + J22L*PDupwindNthSymm2At23 + + J32L*PDupwindNthSymm3At23)*Abs(beta2L) + (J13L*PDupwindNthSymm1At23 + + J23L*PDupwindNthSymm2At23 + J33L*PDupwindNthSymm3At23)*Abs(beta3L); + + CCTK_REAL At33rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At33 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At33 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At33 + - (-0.6666666666666666666666666666666666666667*At33L*J11L + - 2.*At13L*J13L)*PDstandardNth1beta1 + - (-0.6666666666666666666666666666666666666667*At33L*J12L + - 2.*At23L*J13L)*PDstandardNth1beta2 + - 2.*(J23L*(At13L*PDstandardNth2beta1 + At23L*PDstandardNth2beta2) + - J33L*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2)) + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At33 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At33 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At33 + - At33L*(-0.6666666666666666666666666666666666666667*(J21L*PDstandardNth2beta1 - + J22L*PDstandardNth2beta2 + J31L*PDstandardNth3beta1 + - J32L*PDstandardNth3beta2) + - 1.333333333333333333333333333333333333333*(J13L*PDstandardNth1beta3 + - J23L*PDstandardNth2beta3 + J33L*PDstandardNth3beta3) + alphaL*trKL) + - em4phi*(Ats33 - 0.3333333333333333333333333333333333333333*g33*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTzzL + - 8.377580409572781969233715688745341024526*g33*trS)) + - (J11L*PDupwindNthSymm1At33 + J21L*PDupwindNthSymm2At33 + - J31L*PDupwindNthSymm3At33)*Abs(beta1L) + (J12L*PDupwindNthSymm1At33 + - J22L*PDupwindNthSymm2At33 + J32L*PDupwindNthSymm3At33)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At33 + J23L*PDupwindNthSymm2At33 + - J33L*PDupwindNthSymm3At33)*Abs(beta3L); + epsdiss3*J33L)*PDdissipationNth3At33 - + 0.666666666666666666666666666667*At33L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J13L*(At13L*PDstandardNth1beta1 + At23L*PDstandardNth1beta2 + + At33L*PDstandardNth1beta3) + J23L*(At13L*PDstandardNth2beta1 + + At23L*PDstandardNth2beta2 + At33L*PDstandardNth2beta3) + + J33L*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2 + + At33L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1At33 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2At33 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3At33 + alphaL*(-2*(At13L*Atm13 + + At23L*Atm23 + At33L*Atm33) + At33L*trKL) + em4phi*(Ats33 - + 0.333333333333333333333333333333*g33*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTzzL - + 0.333333333333333333333333333333*g33*trS)) + (J11L*PDupwindNthSymm1At33 + + J21L*PDupwindNthSymm2At33 + J31L*PDupwindNthSymm3At33)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At33 + J22L*PDupwindNthSymm2At33 + + J32L*PDupwindNthSymm3At33)*Abs(beta2L) + (J13L*PDupwindNthSymm1At33 + + J23L*PDupwindNthSymm2At33 + J33L*PDupwindNthSymm3At33)*Abs(beta3L); /* Copy local copies back to grid functions */ At11rhs[index] = At11rhsL; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_boundary.cc b/ML_BSSN_MP/src/ML_BSSN_MP_boundary.cc index 7f6f8ce..d61c413 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_boundary.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_boundary.cc @@ -141,7 +141,7 @@ static void ML_BSSN_MP_boundary_Body(cGH const * restrict const cctkGH, int cons /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_constraints1.cc b/ML_BSSN_MP/src/ML_BSSN_MP_constraints1.cc index 4b791ea..90336aa 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_constraints1.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_constraints1.cc @@ -454,50 +454,49 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + J11L*(gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + gt13L*PDstandardNth1Xt3) + J21L*(gt11L*PDstandardNth2Xt1 + - gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt11 + J12L*J21L*PDstandardNth12gt11 + - J11L*J22L*PDstandardNth12gt11 + J12L*J31L*PDstandardNth13gt11 + - J11L*J32L*PDstandardNth13gt11 + dJ112L*PDstandardNth1gt11 + - J21L*J22L*PDstandardNth22gt11 + J22L*J31L*PDstandardNth23gt11 + - J21L*J32L*PDstandardNth23gt11 + dJ212L*PDstandardNth2gt11 + - J31L*J32L*PDstandardNth33gt11 + dJ312L*PDstandardNth3gt11) - - gtu13*(J11L*J13L*PDstandardNth11gt11 + J13L*J21L*PDstandardNth12gt11 + - J11L*J23L*PDstandardNth12gt11 + J13L*J31L*PDstandardNth13gt11 + - J11L*J33L*PDstandardNth13gt11 + dJ113L*PDstandardNth1gt11 + - J21L*J23L*PDstandardNth22gt11 + J23L*J31L*PDstandardNth23gt11 + - J21L*J33L*PDstandardNth23gt11 + dJ213L*PDstandardNth2gt11 + - J31L*J33L*PDstandardNth33gt11 + dJ313L*PDstandardNth3gt11) - - gtu23*(J12L*J13L*PDstandardNth11gt11 + J13L*J22L*PDstandardNth12gt11 + - J12L*J23L*PDstandardNth12gt11 + J13L*J32L*PDstandardNth13gt11 + - J12L*J33L*PDstandardNth13gt11 + dJ123L*PDstandardNth1gt11 + - J22L*J23L*PDstandardNth22gt11 + J23L*J32L*PDstandardNth23gt11 + - J22L*J33L*PDstandardNth23gt11 + dJ223L*PDstandardNth2gt11 + - J32L*J33L*PDstandardNth33gt11 + dJ323L*PDstandardNth3gt11) + - gt11L*J31L*PDstandardNth3Xt1 + gt12L*J31L*PDstandardNth3Xt2 + - gt13L*J31L*PDstandardNth3Xt3 + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt11 + + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) + + J31L*(gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + + gt13L*PDstandardNth3Xt3) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt11 + + J12L*J21L*PDstandardNth12gt11 + J11L*J22L*PDstandardNth12gt11 + + J12L*J31L*PDstandardNth13gt11 + J11L*J32L*PDstandardNth13gt11 + + dJ112L*PDstandardNth1gt11 + J21L*J22L*PDstandardNth22gt11 + + J22L*J31L*PDstandardNth23gt11 + J21L*J32L*PDstandardNth23gt11 + + dJ212L*PDstandardNth2gt11 + J31L*J32L*PDstandardNth33gt11 + + dJ312L*PDstandardNth3gt11) + gtu13*(J11L*J13L*PDstandardNth11gt11 + + J13L*J21L*PDstandardNth12gt11 + J11L*J23L*PDstandardNth12gt11 + + J13L*J31L*PDstandardNth13gt11 + J11L*J33L*PDstandardNth13gt11 + + dJ113L*PDstandardNth1gt11 + J21L*J23L*PDstandardNth22gt11 + + J23L*J31L*PDstandardNth23gt11 + J21L*J33L*PDstandardNth23gt11 + + dJ213L*PDstandardNth2gt11 + J31L*J33L*PDstandardNth33gt11 + + dJ313L*PDstandardNth3gt11) + gtu23*(J12L*J13L*PDstandardNth11gt11 + + J13L*J22L*PDstandardNth12gt11 + J12L*J23L*PDstandardNth12gt11 + + J13L*J32L*PDstandardNth13gt11 + J12L*J33L*PDstandardNth13gt11 + + dJ123L*PDstandardNth1gt11 + J22L*J23L*PDstandardNth22gt11 + + J23L*J32L*PDstandardNth23gt11 + J22L*J33L*PDstandardNth23gt11 + + dJ223L*PDstandardNth2gt11 + J32L*J33L*PDstandardNth33gt11 + + dJ323L*PDstandardNth3gt11)) - gtu11*(2*J11L*J21L*PDstandardNth12gt11 + 2*J11L*J31L*PDstandardNth13gt11 + dJ111L*PDstandardNth1gt11 + 2*J21L*J31L*PDstandardNth23gt11 + dJ211L*PDstandardNth2gt11 + dJ311L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J11L) + PDstandardNth22gt11*SQR(J21L) + PDstandardNth33gt11*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt11 + + gtu22*(2*J12L*J22L*PDstandardNth12gt11 + 2*J12L*J32L*PDstandardNth13gt11 + dJ122L*PDstandardNth1gt11 + 2*J22L*J32L*PDstandardNth23gt11 + dJ222L*PDstandardNth2gt11 + dJ322L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J12L) + PDstandardNth22gt11*SQR(J22L) + PDstandardNth33gt11*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt11 + + gtu33*(2*J13L*J23L*PDstandardNth12gt11 + 2*J13L*J33L*PDstandardNth13gt11 + dJ133L*PDstandardNth1gt11 + 2*J23L*J33L*PDstandardNth23gt11 + dJ233L*PDstandardNth2gt11 + dJ333L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J13L) + - PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L)); - - CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + - Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + - Gt111*Gtlu121 + Gt212*Gtlu121 + Gt112*Gtlu122 + Gt222*Gtlu122 + - Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + - Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*Gtlu212 + Gt113*Gtlu213 + - Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + - Gt312*Gtlu322 + Gt313*Gtlu323) + (gt12L*J11L + + PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L))); + + CCTK_REAL Rt12 = Gt122*Gtlu112 + Gt123*Gtlu113 + (Gt111 + + Gt212)*Gtlu121 + Gt222*Gtlu122 + (Gt113 + Gt223)*Gtlu123 + + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + 2*(Gt211*Gtlu221 + Gt212*Gtlu222 + + Gt213*Gtlu223) + Gt311*(Gtlu231 + Gtlu321) + Gt312*(Gtlu131 + Gtlu232 + + Gtlu322) + Gt313*(Gtlu233 + Gtlu323) + 0.5*((gt12L*J11L + gt11L*J12L)*PDstandardNth1Xt1 + (gt22L*J11L + gt12L*J12L)*PDstandardNth1Xt2 + (gt23L*J11L + gt13L*J12L)*PDstandardNth1Xt3 + (gt12L*J21L + @@ -542,14 +541,14 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int dJ333L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J13L) + PDstandardNth22gt12*SQR(J23L) + PDstandardNth33gt12*SQR(J33L))); - CCTK_REAL Rt13 = 0.5*(2*(Gt113*Gtlu111 + Gt123*Gtlu112 + Gt133*Gtlu113 - + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + - Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt113*Gtlu133 + - Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + - Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*Gtlu313 + Gt211*Gtlu321 + - Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + - Gt313*Gtlu333) + (gt13L*J11L + gt11L*J13L)*PDstandardNth1Xt1 + - (gt23L*J11L + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + + CCTK_REAL Rt13 = Gt123*Gtlu112 + Gt133*Gtlu113 + Gt223*Gtlu122 + + Gt233*Gtlu123 + (Gt111 + Gt313)*Gtlu131 + (Gt112 + Gt323)*Gtlu132 + + Gt333*Gtlu133 + Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + + Gtlu133 + Gtlu313) + Gt211*(Gtlu231 + Gtlu321) + Gt212*(Gtlu232 + + Gtlu322) + Gt213*(Gtlu121 + Gtlu233 + Gtlu323) + 2*(Gt311*Gtlu331 + + Gt312*Gtlu332 + Gt313*Gtlu333) + 0.5*((gt13L*J11L + + gt11L*J13L)*PDstandardNth1Xt1 + (gt23L*J11L + + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + gt13L*J13L)*PDstandardNth1Xt3 + (gt13L*J21L + gt11L*J23L)*PDstandardNth2Xt1 + (gt23L*J21L + gt12L*J23L)*PDstandardNth2Xt2 + (gt33L*J21L + @@ -598,50 +597,49 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + J12L*(gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3) + J22L*(gt12L*PDstandardNth2Xt1 + - gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt22 + J12L*J21L*PDstandardNth12gt22 + - J11L*J22L*PDstandardNth12gt22 + J12L*J31L*PDstandardNth13gt22 + - J11L*J32L*PDstandardNth13gt22 + dJ112L*PDstandardNth1gt22 + - J21L*J22L*PDstandardNth22gt22 + J22L*J31L*PDstandardNth23gt22 + - J21L*J32L*PDstandardNth23gt22 + dJ212L*PDstandardNth2gt22 + - J31L*J32L*PDstandardNth33gt22 + dJ312L*PDstandardNth3gt22) - - gtu13*(J11L*J13L*PDstandardNth11gt22 + J13L*J21L*PDstandardNth12gt22 + - J11L*J23L*PDstandardNth12gt22 + J13L*J31L*PDstandardNth13gt22 + - J11L*J33L*PDstandardNth13gt22 + dJ113L*PDstandardNth1gt22 + - J21L*J23L*PDstandardNth22gt22 + J23L*J31L*PDstandardNth23gt22 + - J21L*J33L*PDstandardNth23gt22 + dJ213L*PDstandardNth2gt22 + - J31L*J33L*PDstandardNth33gt22 + dJ313L*PDstandardNth3gt22) - - gtu23*(J12L*J13L*PDstandardNth11gt22 + J13L*J22L*PDstandardNth12gt22 + - J12L*J23L*PDstandardNth12gt22 + J13L*J32L*PDstandardNth13gt22 + - J12L*J33L*PDstandardNth13gt22 + dJ123L*PDstandardNth1gt22 + - J22L*J23L*PDstandardNth22gt22 + J23L*J32L*PDstandardNth23gt22 + - J22L*J33L*PDstandardNth23gt22 + dJ223L*PDstandardNth2gt22 + - J32L*J33L*PDstandardNth33gt22 + dJ323L*PDstandardNth3gt22) + - gt12L*J32L*PDstandardNth3Xt1 + gt22L*J32L*PDstandardNth3Xt2 + - gt23L*J32L*PDstandardNth3Xt3 + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt22 + + gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) + + J32L*(gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + + gt23L*PDstandardNth3Xt3) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt22 + + J12L*J21L*PDstandardNth12gt22 + J11L*J22L*PDstandardNth12gt22 + + J12L*J31L*PDstandardNth13gt22 + J11L*J32L*PDstandardNth13gt22 + + dJ112L*PDstandardNth1gt22 + J21L*J22L*PDstandardNth22gt22 + + J22L*J31L*PDstandardNth23gt22 + J21L*J32L*PDstandardNth23gt22 + + dJ212L*PDstandardNth2gt22 + J31L*J32L*PDstandardNth33gt22 + + dJ312L*PDstandardNth3gt22) + gtu13*(J11L*J13L*PDstandardNth11gt22 + + J13L*J21L*PDstandardNth12gt22 + J11L*J23L*PDstandardNth12gt22 + + J13L*J31L*PDstandardNth13gt22 + J11L*J33L*PDstandardNth13gt22 + + dJ113L*PDstandardNth1gt22 + J21L*J23L*PDstandardNth22gt22 + + J23L*J31L*PDstandardNth23gt22 + J21L*J33L*PDstandardNth23gt22 + + dJ213L*PDstandardNth2gt22 + J31L*J33L*PDstandardNth33gt22 + + dJ313L*PDstandardNth3gt22) + gtu23*(J12L*J13L*PDstandardNth11gt22 + + J13L*J22L*PDstandardNth12gt22 + J12L*J23L*PDstandardNth12gt22 + + J13L*J32L*PDstandardNth13gt22 + J12L*J33L*PDstandardNth13gt22 + + dJ123L*PDstandardNth1gt22 + J22L*J23L*PDstandardNth22gt22 + + J23L*J32L*PDstandardNth23gt22 + J22L*J33L*PDstandardNth23gt22 + + dJ223L*PDstandardNth2gt22 + J32L*J33L*PDstandardNth33gt22 + + dJ323L*PDstandardNth3gt22)) - gtu11*(2*J11L*J21L*PDstandardNth12gt22 + 2*J11L*J31L*PDstandardNth13gt22 + dJ111L*PDstandardNth1gt22 + 2*J21L*J31L*PDstandardNth23gt22 + dJ211L*PDstandardNth2gt22 + dJ311L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J11L) + PDstandardNth22gt22*SQR(J21L) + PDstandardNth33gt22*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt22 + + gtu22*(2*J12L*J22L*PDstandardNth12gt22 + 2*J12L*J32L*PDstandardNth13gt22 + dJ122L*PDstandardNth1gt22 + 2*J22L*J32L*PDstandardNth23gt22 + dJ222L*PDstandardNth2gt22 + dJ322L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J12L) + PDstandardNth22gt22*SQR(J22L) + PDstandardNth33gt22*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt22 + + gtu33*(2*J13L*J23L*PDstandardNth12gt22 + 2*J13L*J33L*PDstandardNth13gt22 + dJ133L*PDstandardNth1gt22 + 2*J23L*J33L*PDstandardNth23gt22 + dJ233L*PDstandardNth2gt22 + dJ333L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J13L) + - PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L)); - - CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 - + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + - Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + - Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + - Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*Gtlu313 + Gt212*Gtlu321 + - Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + - Gt323*Gtlu333) + (gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + + PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L))); + + CCTK_REAL Rt23 = Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + + Gt233*Gtlu223 + (Gt212 + Gt313)*Gtlu231 + (Gt222 + Gt323)*Gtlu232 + + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + Gt122*(Gtlu132 + Gtlu312) + + Gt123*(Gtlu133 + Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + + Gt223*(Gtlu222 + Gtlu233 + Gtlu323) + 2*(Gt312*Gtlu331 + Gt322*Gtlu332 + + Gt323*Gtlu333) + 0.5*((gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + (gt23L*J12L + gt22L*J13L)*PDstandardNth1Xt2 + (gt33L*J12L + gt23L*J13L)*PDstandardNth1Xt3 + (gt13L*J22L + gt12L*J23L)*PDstandardNth2Xt1 + (gt23L*J22L + @@ -691,44 +689,44 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + J13L*(gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3) + J23L*(gt13L*PDstandardNth2Xt1 + - gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt33 + J12L*J21L*PDstandardNth12gt33 + - J11L*J22L*PDstandardNth12gt33 + J12L*J31L*PDstandardNth13gt33 + - J11L*J32L*PDstandardNth13gt33 + dJ112L*PDstandardNth1gt33 + - J21L*J22L*PDstandardNth22gt33 + J22L*J31L*PDstandardNth23gt33 + - J21L*J32L*PDstandardNth23gt33 + dJ212L*PDstandardNth2gt33 + - J31L*J32L*PDstandardNth33gt33 + dJ312L*PDstandardNth3gt33) - - gtu13*(J11L*J13L*PDstandardNth11gt33 + J13L*J21L*PDstandardNth12gt33 + - J11L*J23L*PDstandardNth12gt33 + J13L*J31L*PDstandardNth13gt33 + - J11L*J33L*PDstandardNth13gt33 + dJ113L*PDstandardNth1gt33 + - J21L*J23L*PDstandardNth22gt33 + J23L*J31L*PDstandardNth23gt33 + - J21L*J33L*PDstandardNth23gt33 + dJ213L*PDstandardNth2gt33 + - J31L*J33L*PDstandardNth33gt33 + dJ313L*PDstandardNth3gt33) - - gtu23*(J12L*J13L*PDstandardNth11gt33 + J13L*J22L*PDstandardNth12gt33 + - J12L*J23L*PDstandardNth12gt33 + J13L*J32L*PDstandardNth13gt33 + - J12L*J33L*PDstandardNth13gt33 + dJ123L*PDstandardNth1gt33 + - J22L*J23L*PDstandardNth22gt33 + J23L*J32L*PDstandardNth23gt33 + - J22L*J33L*PDstandardNth23gt33 + dJ223L*PDstandardNth2gt33 + - J32L*J33L*PDstandardNth33gt33 + dJ323L*PDstandardNth3gt33) + - gt13L*J33L*PDstandardNth3Xt1 + gt23L*J33L*PDstandardNth3Xt2 + - gt33L*J33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt33 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) + + J33L*(gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3) + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt33 + + J12L*J21L*PDstandardNth12gt33 + J11L*J22L*PDstandardNth12gt33 + + J12L*J31L*PDstandardNth13gt33 + J11L*J32L*PDstandardNth13gt33 + + dJ112L*PDstandardNth1gt33 + J21L*J22L*PDstandardNth22gt33 + + J22L*J31L*PDstandardNth23gt33 + J21L*J32L*PDstandardNth23gt33 + + dJ212L*PDstandardNth2gt33 + J31L*J32L*PDstandardNth33gt33 + + dJ312L*PDstandardNth3gt33) + gtu13*(J11L*J13L*PDstandardNth11gt33 + + J13L*J21L*PDstandardNth12gt33 + J11L*J23L*PDstandardNth12gt33 + + J13L*J31L*PDstandardNth13gt33 + J11L*J33L*PDstandardNth13gt33 + + dJ113L*PDstandardNth1gt33 + J21L*J23L*PDstandardNth22gt33 + + J23L*J31L*PDstandardNth23gt33 + J21L*J33L*PDstandardNth23gt33 + + dJ213L*PDstandardNth2gt33 + J31L*J33L*PDstandardNth33gt33 + + dJ313L*PDstandardNth3gt33) + gtu23*(J12L*J13L*PDstandardNth11gt33 + + J13L*J22L*PDstandardNth12gt33 + J12L*J23L*PDstandardNth12gt33 + + J13L*J32L*PDstandardNth13gt33 + J12L*J33L*PDstandardNth13gt33 + + dJ123L*PDstandardNth1gt33 + J22L*J23L*PDstandardNth22gt33 + + J23L*J32L*PDstandardNth23gt33 + J22L*J33L*PDstandardNth23gt33 + + dJ223L*PDstandardNth2gt33 + J32L*J33L*PDstandardNth33gt33 + + dJ323L*PDstandardNth3gt33)) - gtu11*(2*J11L*J21L*PDstandardNth12gt33 + 2*J11L*J31L*PDstandardNth13gt33 + dJ111L*PDstandardNth1gt33 + 2*J21L*J31L*PDstandardNth23gt33 + dJ211L*PDstandardNth2gt33 + dJ311L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J11L) + PDstandardNth22gt33*SQR(J21L) + PDstandardNth33gt33*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt33 + + gtu22*(2*J12L*J22L*PDstandardNth12gt33 + 2*J12L*J32L*PDstandardNth13gt33 + dJ122L*PDstandardNth1gt33 + 2*J22L*J32L*PDstandardNth23gt33 + dJ222L*PDstandardNth2gt33 + dJ322L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J12L) + PDstandardNth22gt33*SQR(J22L) + PDstandardNth33gt33*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt33 + + gtu33*(2*J13L*J23L*PDstandardNth12gt33 + 2*J13L*J33L*PDstandardNth13gt33 + dJ133L*PDstandardNth1gt33 + 2*J23L*J33L*PDstandardNth23gt33 + dJ233L*PDstandardNth2gt33 + dJ333L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J13L) + - PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L)); + PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L))); - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); @@ -739,7 +737,7 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int CCTK_REAL cdphi3 = fac1*(J13L*PDstandardNth1phi + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = fac1*((dJ111L - Gt111*J11L - Gt211*J12L - Gt311*J13L)*PDstandardNth1phi + 2*(J11L*(J21L*PDstandardNth12phi + @@ -747,42 +745,34 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int Gt111*J21L - Gt211*J22L - Gt311*J23L)*PDstandardNth2phi + (dJ311L - Gt111*J31L - Gt211*J32L - Gt311*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J11L) + PDstandardNth22phi*SQR(J21L) + - PDstandardNth33phi*SQR(J31L)) + - fac2*(2*(J21L*J31L*PDstandardNth2phi*PDstandardNth3phi + - J11L*PDstandardNth1phi*(J21L*PDstandardNth2phi + - J31L*PDstandardNth3phi)) + SQR(J11L)*SQR(PDstandardNth1phi) + - SQR(J21L)*SQR(PDstandardNth2phi) + SQR(J31L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi212 = fac1*(-(Gt112*J31L) - - Gt212*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ112L - - Gt112*J11L - Gt212*J12L - Gt312*J13L) + fac2*(J12L*J21L + - J11L*J22L)*PDstandardNth2phi + fac2*(J12L*J31L + - J11L*J32L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ212L - - Gt112*J21L - Gt212*J22L - Gt312*J23L) + fac2*(J22L*J31L + - J21L*J32L)*PDstandardNth3phi) + fac1*(J11L*J12L*PDstandardNth11phi + - J12L*J21L*PDstandardNth12phi + J11L*J22L*PDstandardNth12phi + - J12L*J31L*PDstandardNth13phi + J11L*J32L*PDstandardNth13phi + - J21L*J22L*PDstandardNth22phi + J22L*J31L*PDstandardNth23phi + - J21L*J32L*PDstandardNth23phi + J31L*J32L*PDstandardNth33phi + (dJ312L - - Gt312*J33L)*PDstandardNth3phi) + fac2*J11L*J12L*SQR(PDstandardNth1phi) - + fac2*J21L*J22L*SQR(PDstandardNth2phi) + - fac2*J31L*J32L*SQR(PDstandardNth3phi); - - CCTK_REAL cdphi213 = fac1*(-(Gt113*J31L) - - Gt213*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ113L - - Gt113*J11L - Gt213*J12L - Gt313*J13L) + fac2*(J13L*J21L + - J11L*J23L)*PDstandardNth2phi + fac2*(J13L*J31L + - J11L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ213L - - Gt113*J21L - Gt213*J22L - Gt313*J23L) + fac2*(J23L*J31L + - J21L*J33L)*PDstandardNth3phi) + fac1*(J11L*J13L*PDstandardNth11phi + - J13L*J21L*PDstandardNth12phi + J11L*J23L*PDstandardNth12phi + - J13L*J31L*PDstandardNth13phi + J21L*J23L*PDstandardNth22phi + - J23L*J31L*PDstandardNth23phi + J21L*J33L*PDstandardNth23phi + - J31L*J33L*PDstandardNth33phi + dJ313L*PDstandardNth3phi + - J33L*(J11L*PDstandardNth13phi - Gt313*PDstandardNth3phi)) + - fac2*J11L*J13L*SQR(PDstandardNth1phi) + - fac2*J21L*J23L*SQR(PDstandardNth2phi) + - fac2*J31L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J31L)) + fac2*SQR(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); + + CCTK_REAL cdphi212 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi) + + fac1*(J12L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + (dJ112L - Gt112*J11L - Gt212*J12L - + Gt312*J13L)*PDstandardNth1phi + J22L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ212L - Gt112*J21L - Gt212*J22L - + Gt312*J23L)*PDstandardNth2phi + J32L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ312L - Gt112*J31L - Gt212*J32L - + Gt312*J33L)*PDstandardNth3phi); + + CCTK_REAL cdphi213 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ113L - Gt113*J11L - Gt213*J12L - + Gt313*J13L)*PDstandardNth1phi + J23L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ213L - Gt113*J21L - Gt213*J22L - + Gt313*J23L)*PDstandardNth2phi + J33L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ313L - Gt113*J31L - Gt213*J32L - + Gt313*J33L)*PDstandardNth3phi); CCTK_REAL cdphi222 = fac1*((dJ122L - Gt122*J11L - Gt222*J12L - Gt322*J13L)*PDstandardNth1phi + 2*(J12L*(J22L*PDstandardNth12phi + @@ -790,27 +780,21 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int Gt122*J21L - Gt222*J22L - Gt322*J23L)*PDstandardNth2phi + (dJ322L - Gt122*J31L - Gt222*J32L - Gt322*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J12L) + PDstandardNth22phi*SQR(J22L) + - PDstandardNth33phi*SQR(J32L)) + - fac2*(2*(J22L*J32L*PDstandardNth2phi*PDstandardNth3phi + - J12L*PDstandardNth1phi*(J22L*PDstandardNth2phi + - J32L*PDstandardNth3phi)) + SQR(J12L)*SQR(PDstandardNth1phi) + - SQR(J22L)*SQR(PDstandardNth2phi) + SQR(J32L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi223 = fac1*(-(Gt123*J31L) - - Gt223*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ123L - - Gt123*J11L - Gt223*J12L - Gt323*J13L) + fac2*(J13L*J22L + - J12L*J23L)*PDstandardNth2phi + fac2*(J13L*J32L + - J12L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ223L - - Gt123*J21L - Gt223*J22L - Gt323*J23L) + fac2*(J23L*J32L + - J22L*J33L)*PDstandardNth3phi) + fac1*(J12L*J13L*PDstandardNth11phi + - J13L*J22L*PDstandardNth12phi + J12L*J23L*PDstandardNth12phi + - J13L*J32L*PDstandardNth13phi + J22L*J23L*PDstandardNth22phi + - J23L*J32L*PDstandardNth23phi + J22L*J33L*PDstandardNth23phi + - J32L*J33L*PDstandardNth33phi + dJ323L*PDstandardNth3phi + - J33L*(J12L*PDstandardNth13phi - Gt323*PDstandardNth3phi)) + - fac2*J12L*J13L*SQR(PDstandardNth1phi) + - fac2*J22L*J23L*SQR(PDstandardNth2phi) + - fac2*J32L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J32L)) + fac2*SQR(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi); + + CCTK_REAL cdphi223 = fac2*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + + J32L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J12L*PDstandardNth11phi + J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + J12L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ123L - Gt123*J11L - Gt223*J12L - + Gt323*J13L)*PDstandardNth1phi + J23L*(J22L*PDstandardNth22phi + + J32L*PDstandardNth23phi) + (dJ223L - Gt123*J21L - Gt223*J22L - + Gt323*J23L)*PDstandardNth2phi + J33L*(J22L*PDstandardNth23phi + + J32L*PDstandardNth33phi) + (dJ323L - Gt123*J31L - Gt223*J32L - + Gt323*J33L)*PDstandardNth3phi); CCTK_REAL cdphi233 = fac1*((dJ133L - Gt133*J11L - Gt233*J12L - Gt333*J13L)*PDstandardNth1phi + 2*(J13L*(J23L*PDstandardNth12phi + @@ -818,11 +802,8 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int Gt133*J21L - Gt233*J22L - Gt333*J23L)*PDstandardNth2phi + (dJ333L - Gt133*J31L - Gt233*J32L - Gt333*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J13L) + PDstandardNth22phi*SQR(J23L) + - PDstandardNth33phi*SQR(J33L)) + - fac2*(2*(J23L*J33L*PDstandardNth2phi*PDstandardNth3phi + - J13L*PDstandardNth1phi*(J23L*PDstandardNth2phi + - J33L*PDstandardNth3phi)) + SQR(J13L)*SQR(PDstandardNth1phi) + - SQR(J23L)*SQR(PDstandardNth2phi) + SQR(J33L)*SQR(PDstandardNth3phi)); + PDstandardNth33phi*SQR(J33L)) + fac2*SQR(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); CCTK_REAL Rphi11 = -2*(cdphi211 + 2*(-1 + gt11L*gtu11)*SQR(cdphi1) + gt11L*(cdphi211*gtu11 + 4*(cdphi1*(cdphi2*gtu12 + cdphi3*gtu13) + @@ -860,7 +841,8 @@ static void ML_BSSN_MP_constraints1_Body(cGH const * restrict const cctkGH, int + 2*SQR(cdphi1)) + gtu22*(cdphi222 + 2*SQR(cdphi2))) + 2*(-1 + gt33L*gtu33)*SQR(cdphi3)); - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_constraints2.cc b/ML_BSSN_MP/src/ML_BSSN_MP_constraints2.cc index c9efeab..ec9596a 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_constraints2.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_constraints2.cc @@ -344,7 +344,7 @@ static void ML_BSSN_MP_constraints2_Body(cGH const * restrict const cctkGH, int CCTK_REAL Gt333 = Gtl133*gtu13 + Gtl233*gtu23 + Gtl333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.cc index dd89408..6ece0ef 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_convertFromADMBaseGamma.cc @@ -378,8 +378,8 @@ static void ML_BSSN_MP_convertFromADMBaseGamma_Body(cGH const * restrict const c CCTK_REAL Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL AL = IfThen(LapseACoeff != - 0,-(INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(dtalpL - + CCTK_REAL AL = IfThen(ToReal(LapseACoeff) != + 0,3*INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(-9*dtalpL + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1alpha + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2alpha + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3alpha + @@ -387,56 +387,43 @@ static void ML_BSSN_MP_convertFromADMBaseGamma_Body(cGH const * restrict const c J31L*PDupwindNthSymm3alpha)*Abs(beta1L) + (J12L*PDupwindNthSymm1alpha + J22L*PDupwindNthSymm2alpha + J32L*PDupwindNthSymm3alpha)*Abs(beta2L) + (J13L*PDupwindNthSymm1alpha + J23L*PDupwindNthSymm2alpha + - J33L*PDupwindNthSymm3alpha)*Abs(beta3L))*ToReal(LapseAdvectionCoeff))),0); + J33L*PDupwindNthSymm3alpha)*Abs(beta3L))*ToReal(LapseAdvectionCoeff)),0); CCTK_REAL theta = fmin(1,exp(1 - rL*INV(ToReal(SpatialShiftGammaCoeffRadius)))); - CCTK_REAL B1L; - CCTK_REAL B2L; - CCTK_REAL B3L; - - if (ShiftBCoeff*ShiftGammaCoeff != 0) - { - B1L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetaxL - - ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta1 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta1 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta1 + - (J11L*PDupwindNthSymm1beta1 + J21L*PDupwindNthSymm2beta1 + - J31L*PDupwindNthSymm3beta1)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta1 + - J22L*PDupwindNthSymm2beta1 + J32L*PDupwindNthSymm3beta1)*Abs(beta2L) + - (J13L*PDupwindNthSymm1beta1 + J23L*PDupwindNthSymm2beta1 + - J33L*PDupwindNthSymm3beta1)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B2L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetayL - - ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta2 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta2 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta2 + - (J11L*PDupwindNthSymm1beta2 + J21L*PDupwindNthSymm2beta2 + - J31L*PDupwindNthSymm3beta2)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta2 + - J22L*PDupwindNthSymm2beta2 + J32L*PDupwindNthSymm3beta2)*Abs(beta2L) + - (J13L*PDupwindNthSymm1beta2 + J23L*PDupwindNthSymm2beta2 + - J33L*PDupwindNthSymm3beta2)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B3L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetazL - - ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta3 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta3 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta3 + - (J11L*PDupwindNthSymm1beta3 + J21L*PDupwindNthSymm2beta3 + - J31L*PDupwindNthSymm3beta3)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta3 + - J22L*PDupwindNthSymm2beta3 + J32L*PDupwindNthSymm3beta3)*Abs(beta2L) + - (J13L*PDupwindNthSymm1beta3 + J23L*PDupwindNthSymm2beta3 + - J33L*PDupwindNthSymm3beta3)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - } - else - { - B1L = 0; - - B2L = 0; - - B3L = 0; - } - + CCTK_REAL B1L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetaxL - + 3*((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta1 + + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta1 + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta1 + + (J11L*PDupwindNthSymm1beta1 + J21L*PDupwindNthSymm2beta1 + + J31L*PDupwindNthSymm3beta1)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta1 + + J22L*PDupwindNthSymm2beta1 + J32L*PDupwindNthSymm3beta1)*Abs(beta2L) + + (J13L*PDupwindNthSymm1beta1 + J23L*PDupwindNthSymm2beta1 + + J33L*PDupwindNthSymm3beta1)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B2L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetayL - + 3*((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta2 + + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta2 + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta2 + + (J11L*PDupwindNthSymm1beta2 + J21L*PDupwindNthSymm2beta2 + + J31L*PDupwindNthSymm3beta2)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta2 + + J22L*PDupwindNthSymm2beta2 + J32L*PDupwindNthSymm3beta2)*Abs(beta2L) + + (J13L*PDupwindNthSymm1beta2 + J23L*PDupwindNthSymm2beta2 + + J33L*PDupwindNthSymm3beta2)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B3L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetazL - + 3*((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta3 + + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta3 + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta3 + + (J11L*PDupwindNthSymm1beta3 + J21L*PDupwindNthSymm2beta3 + + J31L*PDupwindNthSymm3beta3)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta3 + + J22L*PDupwindNthSymm2beta3 + J32L*PDupwindNthSymm3beta3)*Abs(beta2L) + + (J13L*PDupwindNthSymm1beta3 + J23L*PDupwindNthSymm2beta3 + + J33L*PDupwindNthSymm3beta3)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); /* Copy local copies back to grid functions */ A[index] = AL; diff --git a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.cc b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.cc index 6ad937b..7684bbf 100644 --- a/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.cc +++ b/ML_BSSN_MP/src/ML_BSSN_MP_convertToADMBase.cc @@ -129,7 +129,8 @@ static void ML_BSSN_MP_convertToADMBase_Body(cGH const * restrict const cctkGH, /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); gxxL = e4phi*gt11L; diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Minkowski.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Minkowski.cc index d589bd3..5e0f3f6 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Minkowski.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_Minkowski.cc @@ -111,7 +111,7 @@ static void ML_BSSN_MP_O8_Minkowski_Body(cGH const * restrict const cctkGH, int /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS1.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS1.cc index 1fce47e..335f669 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS1.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS1.cc @@ -597,7 +597,7 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); @@ -638,7 +638,8 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const CCTK_REAL Atu33 = Atm31*gtu13 + Atm32*gtu23 + Atm33*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -670,47 +671,36 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const (J12L*PDupwindNthSymm1phi + J22L*PDupwindNthSymm2phi + J32L*PDupwindNthSymm3phi)*Abs(beta2L) + (J13L*PDupwindNthSymm1phi + J23L*PDupwindNthSymm2phi + J33L*PDupwindNthSymm3phi)*Abs(beta3L) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J11L*PDstandardNth1beta1 - + - J12L*PDstandardNth1beta2)*phiL,0.166666666666666666666666666667*(J11L*PDstandardNth1beta1 - + J12L*PDstandardNth1beta2)) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J13L*PDstandardNth1beta3 - + - J21L*PDstandardNth2beta1)*phiL,0.166666666666666666666666666667*(J13L*PDstandardNth1beta3 - + J21L*PDstandardNth2beta1)) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J22L*PDstandardNth2beta2 - + - J23L*PDstandardNth2beta3)*phiL,0.166666666666666666666666666667*(J22L*PDstandardNth2beta2 - + J23L*PDstandardNth2beta3)) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(J31L*PDstandardNth3beta1 - + - J32L*PDstandardNth3beta2)*phiL,0.166666666666666666666666666667*(J31L*PDstandardNth3beta1 - + J32L*PDstandardNth3beta2)) + - IfThen(conformalMethod,phiL*(-0.333333333333333333333333333333*J33L*PDstandardNth3beta3 - + - 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*J33L*PDstandardNth3beta3 - - 0.166666666666666666666666666667*alphaL*trKL); + IfThen(ToReal(conformalMethod),phiL*(-0.333333333333333333333333333333*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) - + 0.166666666666666666666666666667*alphaL*trKL); CCTK_REAL gt11rhsL = -2*alphaL*At11L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt11 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt11 + (epsdiss1*J31L + epsdiss2*J32L + epsdiss3*J33L)*PDdissipationNth3gt11 - - 0.666666666666666666666666666667*gt11L*(J12L*PDstandardNth1beta2 + - J13L*PDstandardNth1beta3 + J22L*PDstandardNth2beta2 + - J23L*PDstandardNth2beta3 + J32L*PDstandardNth3beta2 + - J33L*PDstandardNth3beta3) + (beta2L*J12L + - beta3L*J13L)*PDupwindNthAnti1gt11 + (beta2L*J22L + - beta3L*J23L)*PDupwindNthAnti2gt11 + (beta2L*J32L + - beta3L*J33L)*PDupwindNthAnti3gt11 + - J11L*(1.33333333333333333333333333333*gt11L*PDstandardNth1beta1 + - 2*(gt12L*PDstandardNth1beta2 + gt13L*PDstandardNth1beta3) + - beta1L*PDupwindNthAnti1gt11 + PDupwindNthSymm1gt11*Abs(beta1L)) + - J21L*(1.33333333333333333333333333333*gt11L*PDstandardNth2beta1 + - 2*(gt12L*PDstandardNth2beta2 + gt13L*PDstandardNth2beta3) + - beta1L*PDupwindNthAnti2gt11 + PDupwindNthSymm2gt11*Abs(beta1L)) + - J31L*(1.33333333333333333333333333333*gt11L*PDstandardNth3beta1 + - 2*(gt12L*PDstandardNth3beta2 + gt13L*PDstandardNth3beta3) + - beta1L*PDupwindNthAnti3gt11 + PDupwindNthSymm3gt11*Abs(beta1L)) + + 0.666666666666666666666666666667*gt11L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J11L*(gt11L*PDstandardNth1beta1 + gt12L*PDstandardNth1beta2 + + gt13L*PDstandardNth1beta3) + J21L*(gt11L*PDstandardNth2beta1 + + gt12L*PDstandardNth2beta2 + gt13L*PDstandardNth2beta3) + + J31L*(gt11L*PDstandardNth3beta1 + gt12L*PDstandardNth3beta2 + + gt13L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1gt11 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2gt11 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3gt11 + (J11L*PDupwindNthSymm1gt11 + + J21L*PDupwindNthSymm2gt11 + J31L*PDupwindNthSymm3gt11)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt11 + J22L*PDupwindNthSymm2gt11 + J32L*PDupwindNthSymm3gt11)*Abs(beta2L) + (J13L*PDupwindNthSymm1gt11 + J23L*PDupwindNthSymm2gt11 + J33L*PDupwindNthSymm3gt11)*Abs(beta3L); @@ -718,25 +708,24 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const CCTK_REAL gt12rhsL = -2*alphaL*At12L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt12 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt12 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt12 + - (0.333333333333333333333333333333*gt12L*J11L + + + epsdiss3*J33L)*PDdissipationNth3gt12 + (gt12L*J11L + gt11L*J12L)*PDstandardNth1beta1 + (gt22L*J11L + - 0.333333333333333333333333333333*gt12L*J12L)*PDstandardNth1beta2 + - (gt23L*J11L + gt13L*J12L - - 0.666666666666666666666666666667*gt12L*J13L)*PDstandardNth1beta3 + - (0.333333333333333333333333333333*gt12L*J21L + + gt12L*J12L)*PDstandardNth1beta2 + (gt23L*J11L + + gt13L*J12L)*PDstandardNth1beta3 + (gt12L*J21L + gt11L*J22L)*PDstandardNth2beta1 + (gt22L*J21L + - 0.333333333333333333333333333333*gt12L*J22L)*PDstandardNth2beta2 + - (gt23L*J21L + gt13L*J22L - - 0.666666666666666666666666666667*gt12L*J23L)*PDstandardNth2beta3 + - (0.333333333333333333333333333333*gt12L*J31L + + gt12L*J22L)*PDstandardNth2beta2 + (gt23L*J21L + + gt13L*J22L)*PDstandardNth2beta3 + (gt12L*J31L + gt11L*J32L)*PDstandardNth3beta1 + (gt22L*J31L + - 0.333333333333333333333333333333*gt12L*J32L)*PDstandardNth3beta2 + - (gt23L*J31L + gt13L*J32L - - 0.666666666666666666666666666667*gt12L*J33L)*PDstandardNth3beta3 + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt12 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt12 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt12 + + gt12L*J32L)*PDstandardNth3beta2 + (gt23L*J31L + + gt13L*J32L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*gt12L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt12 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt12 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt12 + (J11L*PDupwindNthSymm1gt12 + J21L*PDupwindNthSymm2gt12 + J31L*PDupwindNthSymm3gt12)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt12 + J22L*PDupwindNthSymm2gt12 + J32L*PDupwindNthSymm3gt12)*Abs(beta2L) + @@ -746,25 +735,24 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const CCTK_REAL gt13rhsL = -2*alphaL*At13L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt13 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt13 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt13 + - (0.333333333333333333333333333333*gt13L*J11L + - gt11L*J13L)*PDstandardNth1beta1 + (gt23L*J11L - - 0.666666666666666666666666666667*gt13L*J12L + + + epsdiss3*J33L)*PDdissipationNth3gt13 + (gt13L*J11L + + gt11L*J13L)*PDstandardNth1beta1 + (gt23L*J11L + gt12L*J13L)*PDstandardNth1beta2 + (gt33L*J11L + - 0.333333333333333333333333333333*gt13L*J13L)*PDstandardNth1beta3 + - (0.333333333333333333333333333333*gt13L*J21L + - gt11L*J23L)*PDstandardNth2beta1 + (gt23L*J21L - - 0.666666666666666666666666666667*gt13L*J22L + + gt13L*J13L)*PDstandardNth1beta3 + (gt13L*J21L + + gt11L*J23L)*PDstandardNth2beta1 + (gt23L*J21L + gt12L*J23L)*PDstandardNth2beta2 + (gt33L*J21L + - 0.333333333333333333333333333333*gt13L*J23L)*PDstandardNth2beta3 + - (0.333333333333333333333333333333*gt13L*J31L + - gt11L*J33L)*PDstandardNth3beta1 + (gt23L*J31L - - 0.666666666666666666666666666667*gt13L*J32L + + gt13L*J23L)*PDstandardNth2beta3 + (gt13L*J31L + + gt11L*J33L)*PDstandardNth3beta1 + (gt23L*J31L + gt12L*J33L)*PDstandardNth3beta2 + (gt33L*J31L + - 0.333333333333333333333333333333*gt13L*J33L)*PDstandardNth3beta3 + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt13 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt13 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt13 + + gt13L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*gt13L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt13 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt13 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt13 + (J11L*PDupwindNthSymm1gt13 + J21L*PDupwindNthSymm2gt13 + J31L*PDupwindNthSymm3gt13)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt13 + J22L*PDupwindNthSymm2gt13 + J32L*PDupwindNthSymm3gt13)*Abs(beta2L) + @@ -774,50 +762,46 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const CCTK_REAL gt22rhsL = -2*alphaL*At22L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt22 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt22 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt22 + - (-0.666666666666666666666666666667*gt22L*J11L + - 2*gt12L*J12L)*PDstandardNth1beta1 - - 0.666666666666666666666666666667*gt22L*(J13L*PDstandardNth1beta3 + - J21L*PDstandardNth2beta1 + J23L*PDstandardNth2beta3 + - J31L*PDstandardNth3beta1 + J33L*PDstandardNth3beta3) + (beta1L*J11L + - beta3L*J13L)*PDupwindNthAnti1gt22 + (beta1L*J21L + - beta3L*J23L)*PDupwindNthAnti2gt22 + (beta1L*J31L + + + epsdiss3*J33L)*PDdissipationNth3gt22 - + 0.666666666666666666666666666667*gt22L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J12L*(gt12L*PDstandardNth1beta1 + gt22L*PDstandardNth1beta2 + + gt23L*PDstandardNth1beta3) + J22L*(gt12L*PDstandardNth2beta1 + + gt22L*PDstandardNth2beta2 + gt23L*PDstandardNth2beta3) + + J32L*(gt12L*PDstandardNth3beta1 + gt22L*PDstandardNth3beta2 + + gt23L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1gt22 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2gt22 + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt22 + (J11L*PDupwindNthSymm1gt22 + J21L*PDupwindNthSymm2gt22 + J31L*PDupwindNthSymm3gt22)*Abs(beta1L) + - J12L*(1.33333333333333333333333333333*gt22L*PDstandardNth1beta2 + - 2*gt23L*PDstandardNth1beta3 + beta2L*PDupwindNthAnti1gt22 + - PDupwindNthSymm1gt22*Abs(beta2L)) + - J22L*(1.33333333333333333333333333333*gt22L*PDstandardNth2beta2 + - 2*(gt12L*PDstandardNth2beta1 + gt23L*PDstandardNth2beta3) + - beta2L*PDupwindNthAnti2gt22 + PDupwindNthSymm2gt22*Abs(beta2L)) + - J32L*(1.33333333333333333333333333333*gt22L*PDstandardNth3beta2 + - 2*(gt12L*PDstandardNth3beta1 + gt23L*PDstandardNth3beta3) + - beta2L*PDupwindNthAnti3gt22 + PDupwindNthSymm3gt22*Abs(beta2L)) + - (J13L*PDupwindNthSymm1gt22 + J23L*PDupwindNthSymm2gt22 + - J33L*PDupwindNthSymm3gt22)*Abs(beta3L); + (J12L*PDupwindNthSymm1gt22 + J22L*PDupwindNthSymm2gt22 + + J32L*PDupwindNthSymm3gt22)*Abs(beta2L) + (J13L*PDupwindNthSymm1gt22 + + J23L*PDupwindNthSymm2gt22 + J33L*PDupwindNthSymm3gt22)*Abs(beta3L); CCTK_REAL gt23rhsL = -2*alphaL*At23L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt23 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt23 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt23 + - (-0.666666666666666666666666666667*gt23L*J11L + gt13L*J12L + - gt12L*J13L)*PDstandardNth1beta1 + - (0.333333333333333333333333333333*gt23L*J12L + + + epsdiss3*J33L)*PDdissipationNth3gt23 + (gt13L*J12L + + gt12L*J13L)*PDstandardNth1beta1 + (gt23L*J12L + gt22L*J13L)*PDstandardNth1beta2 + (gt33L*J12L + - 0.333333333333333333333333333333*gt23L*J13L)*PDstandardNth1beta3 + - (-0.666666666666666666666666666667*gt23L*J21L + gt13L*J22L + - gt12L*J23L)*PDstandardNth2beta1 + - (0.333333333333333333333333333333*gt23L*J22L + + gt23L*J13L)*PDstandardNth1beta3 + (gt13L*J22L + + gt12L*J23L)*PDstandardNth2beta1 + (gt23L*J22L + gt22L*J23L)*PDstandardNth2beta2 + (gt33L*J22L + - 0.333333333333333333333333333333*gt23L*J23L)*PDstandardNth2beta3 + - (-0.666666666666666666666666666667*gt23L*J31L + gt13L*J32L + - gt12L*J33L)*PDstandardNth3beta1 + - (0.333333333333333333333333333333*gt23L*J32L + + gt23L*J23L)*PDstandardNth2beta3 + (gt13L*J32L + + gt12L*J33L)*PDstandardNth3beta1 + (gt23L*J32L + gt22L*J33L)*PDstandardNth3beta2 + (gt33L*J32L + - 0.333333333333333333333333333333*gt23L*J33L)*PDstandardNth3beta3 + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt23 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt23 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt23 + + gt23L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*gt23L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt23 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt23 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt23 + (J11L*PDupwindNthSymm1gt23 + J21L*PDupwindNthSymm2gt23 + J31L*PDupwindNthSymm3gt23)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt23 + J22L*PDupwindNthSymm2gt23 + J32L*PDupwindNthSymm3gt23)*Abs(beta2L) + @@ -827,457 +811,369 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const CCTK_REAL gt33rhsL = -2*alphaL*At33L + (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1gt33 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2gt33 + (epsdiss1*J31L + epsdiss2*J32L - + epsdiss3*J33L)*PDdissipationNth3gt33 + - (-0.666666666666666666666666666667*gt33L*J11L + - 2*gt13L*J13L)*PDstandardNth1beta1 + - (-0.666666666666666666666666666667*gt33L*J12L + - 2*gt23L*J13L)*PDstandardNth1beta2 + 2*(J23L*(gt13L*PDstandardNth2beta1 - + gt23L*PDstandardNth2beta2) + J33L*(gt13L*PDstandardNth3beta1 + - gt23L*PDstandardNth3beta2)) + - gt33L*(-0.666666666666666666666666666667*(J21L*PDstandardNth2beta1 + - J22L*PDstandardNth2beta2 + J31L*PDstandardNth3beta1 + - J32L*PDstandardNth3beta2) + - 1.33333333333333333333333333333*(J13L*PDstandardNth1beta3 + - J23L*PDstandardNth2beta3 + J33L*PDstandardNth3beta3)) + (beta1L*J11L + - beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1gt33 + (beta1L*J21L + - beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2gt33 + (beta1L*J31L + - beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3gt33 + - (J11L*PDupwindNthSymm1gt33 + J21L*PDupwindNthSymm2gt33 + - J31L*PDupwindNthSymm3gt33)*Abs(beta1L) + (J12L*PDupwindNthSymm1gt33 + - J22L*PDupwindNthSymm2gt33 + J32L*PDupwindNthSymm3gt33)*Abs(beta2L) + - (J13L*PDupwindNthSymm1gt33 + J23L*PDupwindNthSymm2gt33 + - J33L*PDupwindNthSymm3gt33)*Abs(beta3L); + + epsdiss3*J33L)*PDdissipationNth3gt33 - + 0.666666666666666666666666666667*gt33L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J13L*(gt13L*PDstandardNth1beta1 + gt23L*PDstandardNth1beta2 + + gt33L*PDstandardNth1beta3) + J23L*(gt13L*PDstandardNth2beta1 + + gt23L*PDstandardNth2beta2 + gt33L*PDstandardNth2beta3) + + J33L*(gt13L*PDstandardNth3beta1 + gt23L*PDstandardNth3beta2 + + gt33L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1gt33 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2gt33 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3gt33 + (J11L*PDupwindNthSymm1gt33 + + J21L*PDupwindNthSymm2gt33 + J31L*PDupwindNthSymm3gt33)*Abs(beta1L) + + (J12L*PDupwindNthSymm1gt33 + J22L*PDupwindNthSymm2gt33 + + J32L*PDupwindNthSymm3gt33)*Abs(beta2L) + (J13L*PDupwindNthSymm1gt33 + + J23L*PDupwindNthSymm2gt33 + J33L*PDupwindNthSymm3gt33)*Abs(beta3L); CCTK_REAL dotXt1 = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1Xt1 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2Xt1 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3Xt1 + - (2.333333333333333333333333333333333333333*gtu13*J11L*J33L + - 2*J13L*(gtu23*J32L + gtu33*J33L))*PDstandardNth13beta1 + - 2.333333333333333333333333333333333333333*((gtu13*J13L*J21L + - gtu12*J11L*J22L)*PDstandardNth12beta1 + (gtu12*J12L + - gtu13*J13L)*J31L*PDstandardNth13beta1 + - gtu12*(J11L*J32L*PDstandardNth13beta1 + - J22L*J31L*PDstandardNth23beta1)) + - 2*(gtu22*J12L*J32L*PDstandardNth13beta1 + J22L*((gtu22*J12L + - gtu23*J13L)*PDstandardNth12beta1 + gtu22*J32L*PDstandardNth23beta1)) - - 2.*((Atu11*J11L + Atu13*J13L)*PDstandardNth1alpha + - Atu11*(J21L*PDstandardNth2alpha + J31L*PDstandardNth3alpha)) + - 2.333333333333333333333333333333333333333*(J11L*(gtu12*J12L + - gtu13*J13L)*PDstandardNth11beta1 + gtu12*(dJ112L*PDstandardNth1beta1 + - dJ212L*PDstandardNth2beta1 + dJ312L*PDstandardNth3beta1)) + - (beta1L*J11L + beta3L*J13L)*PDupwindNthAnti1Xt1 + - beta1L*(J21L*PDupwindNthAnti2Xt1 + J31L*PDupwindNthAnti3Xt1) + - alphaL*(12.*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + - 4.*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + 2.*(Atu11*Gt111 + - Atu22*Gt122 + Atu33*Gt133) - - 1.333333333333333333333333333333333333333*((gtu11*J11L + - gtu13*J13L)*PDstandardNth1trK + gtu11*(J21L*PDstandardNth2trK + - J31L*PDstandardNth3trK)) - - 50.26548245743669181540229413247204614715*(gtu12*S2 + gtu13*S3)) + - PDstandardNth1beta1*(2.333333333333333333333333333333333333333*dJ113L*gtu13 - + dJ122L*gtu22 + 2.*dJ123L*gtu23 + dJ133L*gtu33 - - 0.3333333333333333333333333333333333333333*J11L*Xtn1 - 1.*J12L*Xtn2) + - PDstandardNth2beta1*(2.333333333333333333333333333333333333333*dJ213L*gtu13 - + dJ222L*gtu22 + 2.*dJ223L*gtu23 + dJ233L*gtu33 - - 0.3333333333333333333333333333333333333333*J21L*Xtn1 - 1.*J22L*Xtn2) + - PDstandardNth3beta1*(2.333333333333333333333333333333333333333*dJ313L*gtu13 - + dJ322L*gtu22 + 2.*dJ323L*gtu23 + dJ333L*gtu33 - - 0.3333333333333333333333333333333333333333*J31L*Xtn1 - 1.*J32L*Xtn2) + + epsdiss3*J33L)*PDdissipationNth3Xt1 - 2*((Atu11*J11L + Atu12*J12L + + Atu13*J13L)*PDstandardNth1alpha + (Atu11*J21L + Atu12*J22L + + Atu13*J23L)*PDstandardNth2alpha + (Atu11*J31L + Atu12*J32L + + Atu13*J33L)*PDstandardNth3alpha) + + 2*(gtu12*(J11L*J12L*PDstandardNth11beta1 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + J12L*J31L*PDstandardNth13beta1 + J11L*J32L*PDstandardNth13beta1 + + dJ112L*PDstandardNth1beta1 + J21L*J22L*PDstandardNth22beta1 + + J22L*J31L*PDstandardNth23beta1 + J21L*J32L*PDstandardNth23beta1 + + dJ212L*PDstandardNth2beta1 + J31L*J32L*PDstandardNth33beta1 + + dJ312L*PDstandardNth3beta1) + gtu13*(J11L*J13L*PDstandardNth11beta1 + + J13L*J21L*PDstandardNth12beta1 + J11L*J23L*PDstandardNth12beta1 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + dJ113L*PDstandardNth1beta1 + J21L*J23L*PDstandardNth22beta1 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + dJ213L*PDstandardNth2beta1 + J31L*J33L*PDstandardNth33beta1 + + dJ313L*PDstandardNth3beta1) + gtu23*(J12L*J13L*PDstandardNth11beta1 + + J13L*J22L*PDstandardNth12beta1 + J12L*J23L*PDstandardNth12beta1 + + J13L*J32L*PDstandardNth13beta1 + J12L*J33L*PDstandardNth13beta1 + + dJ123L*PDstandardNth1beta1 + J22L*J23L*PDstandardNth22beta1 + + J23L*J32L*PDstandardNth23beta1 + J22L*J33L*PDstandardNth23beta1 + + dJ223L*PDstandardNth2beta1 + J32L*J33L*PDstandardNth33beta1 + + dJ323L*PDstandardNth3beta1) + alphaL*(6*(Atu11*cdphi1 + Atu12*cdphi2 + + Atu13*cdphi3) + Atu11*Gt111 + 2*Atu12*Gt112 + 2*Atu13*Gt113 + + Atu22*Gt122 + 2*Atu23*Gt123 + Atu33*Gt133 - + 0.666666666666666666666666666667*((gtu11*J11L + gtu12*J12L + + gtu13*J13L)*PDstandardNth1trK + (gtu11*J21L + gtu12*J22L + + gtu13*J23L)*PDstandardNth2trK + (gtu11*J31L + gtu12*J32L + + gtu13*J33L)*PDstandardNth3trK))) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1Xt1 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2Xt1 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3Xt1 - + 50.26548245743669181540229413247204614715*alphaL*(gtu11*S1 + gtu12*S2 + + gtu13*S3) + 0.666666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3)*Xtn1 - + PDstandardNth1beta1*(J11L*Xtn1 + J12L*Xtn2 + J13L*Xtn3) - + PDstandardNth2beta1*(J21L*Xtn1 + J22L*Xtn2 + J23L*Xtn3) - + PDstandardNth3beta1*(J31L*Xtn1 + J32L*Xtn2 + J33L*Xtn3) + (J11L*PDupwindNthSymm1Xt1 + J21L*PDupwindNthSymm2Xt1 + - J31L*PDupwindNthSymm3Xt1)*Abs(beta1L) + - J12L*(J13L*(2.*gtu23*PDstandardNth11beta1 + - 0.3333333333333333333333333333333333333333*gtu13*PDstandardNth11beta2) - + - 0.3333333333333333333333333333333333333333*(gtu12*J13L*PDstandardNth11beta3 - + gtu11*(J11L*PDstandardNth11beta2 + J21L*PDstandardNth12beta2) + - gtu13*J33L*PDstandardNth13beta2) + J33L*(2*gtu23*PDstandardNth13beta1 + - 0.3333333333333333333333333333333333333333*gtu12*PDstandardNth13beta3) - - 2.*Atu12*PDstandardNth1alpha + - gtu12*(2.333333333333333333333333333333333333333*J21L*PDstandardNth12beta1 - + 0.3333333333333333333333333333333333333333*J23L*PDstandardNth12beta3 - + 0.6666666666666666666666666666666666666667*J32L*PDstandardNth13beta2 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth1trK) + - beta2L*PDupwindNthAnti1Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta2*Xtn1 + - PDupwindNthSymm1Xt1*Abs(beta2L)) + - J22L*((0.6666666666666666666666666666666666666667*gtu12*J12L + - 0.3333333333333333333333333333333333333333*gtu13*J13L)*PDstandardNth12beta2 - + J23L*(2.*gtu23*PDstandardNth22beta1 + - 0.3333333333333333333333333333333333333333*gtu12*PDstandardNth22beta3) - + 2*gtu23*J33L*PDstandardNth23beta1 - 2.*Atu12*PDstandardNth2alpha + - gtu12*(0.3333333333333333333333333333333333333333*J13L*PDstandardNth12beta3 - + 2.333333333333333333333333333333333333333*J21L*PDstandardNth22beta1 + - 0.6666666666666666666666666666666666666667*J32L*PDstandardNth23beta2 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta2L*PDupwindNthAnti2Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta2*Xtn1 + - PDupwindNthSymm2Xt1*Abs(beta2L)) + - J32L*((2.333333333333333333333333333333333333333*gtu12*J21L + - 2*gtu23*J23L)*PDstandardNth23beta1 + - (2.333333333333333333333333333333333333333*gtu12*J31L + - 2.*gtu23*J33L)*PDstandardNth33beta1 + - 0.3333333333333333333333333333333333333333*(gtu11*J21L*PDstandardNth23beta2 - + gtu12*(J23L*PDstandardNth23beta3 + J33L*PDstandardNth33beta3)) - - 2.*Atu12*PDstandardNth3alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu12*PDstandardNth3trK - + beta2L*PDupwindNthAnti3Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta2*Xtn1 + - PDupwindNthSymm3Xt1*Abs(beta2L)) + - J13L*(0.6666666666666666666666666666666666666667*PDstandardNth1beta3*Xtn1 - - 1.*PDstandardNth1beta1*Xtn3 + PDupwindNthSymm1Xt1*Abs(beta3L)) + - J23L*((2.333333333333333333333333333333333333333*gtu13*J11L + - 2*(gtu23*J12L + gtu33*J13L))*PDstandardNth12beta1 + - 0.3333333333333333333333333333333333333333*(gtu11*(J11L*PDstandardNth12beta3 - + J21L*PDstandardNth22beta3) + gtu13*(J12L*PDstandardNth12beta2 + - J32L*PDstandardNth23beta2)) - 2.*Atu13*PDstandardNth2alpha + - gtu13*(2.333333333333333333333333333333333333333*J21L*PDstandardNth22beta1 - + 2.333333333333333333333333333333333333333*J31L*PDstandardNth23beta1 + - 0.6666666666666666666666666666666666666667*(J13L*PDstandardNth12beta3 + - J33L*PDstandardNth23beta3) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta3L*PDupwindNthAnti2Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta3*Xtn1 - - 1.*PDstandardNth2beta1*Xtn3 + PDupwindNthSymm2Xt1*Abs(beta3L)) + - J33L*((0.3333333333333333333333333333333333333333*gtu11*J11L + - 0.6666666666666666666666666666666666666667*gtu13*J13L)*PDstandardNth13beta3 - + (2.333333333333333333333333333333333333333*gtu13*J21L + - 2*gtu33*J23L)*PDstandardNth23beta1 + - 0.3333333333333333333333333333333333333333*(gtu13*J22L*PDstandardNth23beta2 - + gtu11*(J21L*PDstandardNth23beta3 + J31L*PDstandardNth33beta3)) - - 2.*Atu13*PDstandardNth3alpha + - gtu13*(2.333333333333333333333333333333333333333*J31L*PDstandardNth33beta1 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth3trK) + - beta3L*PDupwindNthAnti3Xt1 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta3*Xtn1 - - 1.*PDstandardNth3beta1*Xtn3 + PDupwindNthSymm3Xt1*Abs(beta3L)) + - PDstandardNth11beta1*(gtu22*SQR(J12L) + gtu33*SQR(J13L)) + - PDstandardNth22beta1*(gtu22*SQR(J22L) + gtu33*SQR(J23L)) + - gtu11*(J11L*(0.3333333333333333333333333333333333333333*(J13L*PDstandardNth11beta3 - + J22L*PDstandardNth12beta2) + - 2.666666666666666666666666666666666666667*(J21L*PDstandardNth12beta1 + - J31L*PDstandardNth13beta1)) + - J31L*(2.666666666666666666666666666666666666667*J21L*PDstandardNth23beta1 - + 0.3333333333333333333333333333333333333333*J32L*PDstandardNth33beta2) - + - 0.3333333333333333333333333333333333333333*(J13L*(J21L*PDstandardNth12beta3 - + J31L*PDstandardNth13beta3) + dJ113L*PDstandardNth1beta3 + - J21L*J22L*PDstandardNth22beta2 + J31L*(J12L*PDstandardNth13beta2 + - J23L*PDstandardNth23beta3) + dJ213L*PDstandardNth2beta3 + - dJ313L*PDstandardNth3beta3) - - 50.26548245743669181540229413247204614715*alphaL*S1 + - 1.333333333333333333333333333333333333333*(dJ111L*PDstandardNth1beta1 + - dJ211L*PDstandardNth2beta1 + dJ311L*PDstandardNth3beta1 + - PDstandardNth11beta1*SQR(J11L) + PDstandardNth22beta1*SQR(J21L) + - PDstandardNth33beta1*SQR(J31L))) + - PDstandardNth33beta1*(gtu22*SQR(J32L) + gtu33*SQR(J33L)) + - 0.3333333333333333333333333333333333333333*((dJ112L*gtu11 + - dJ122L*gtu12 + dJ123L*gtu13)*PDstandardNth1beta2 + (dJ123L*gtu12 + - dJ133L*gtu13)*PDstandardNth1beta3 + - J22L*(gtu13*J23L*PDstandardNth22beta2 + gtu11*J31L*PDstandardNth23beta2 - + gtu12*J33L*PDstandardNth23beta3) + (dJ212L*gtu11 + dJ222L*gtu12 + - dJ223L*gtu13)*PDstandardNth2beta2 + (dJ223L*gtu12 + - dJ233L*gtu13)*PDstandardNth2beta3 + J32L*((gtu11*J11L + - gtu13*J13L)*PDstandardNth13beta2 + gtu12*J13L*PDstandardNth13beta3 + - gtu13*J33L*PDstandardNth33beta2) + (dJ312L*gtu11 + dJ322L*gtu12 + - dJ323L*gtu13)*PDstandardNth3beta2 + (dJ323L*gtu12 + - dJ333L*gtu13)*PDstandardNth3beta3 + - gtu12*(PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) - + PDstandardNth33beta2*SQR(J32L)) + - gtu13*(PDstandardNth11beta3*SQR(J13L) + PDstandardNth22beta3*SQR(J23L) - + PDstandardNth33beta3*SQR(J33L))); + J31L*PDupwindNthSymm3Xt1)*Abs(beta1L) + (J12L*PDupwindNthSymm1Xt1 + + J22L*PDupwindNthSymm2Xt1 + J32L*PDupwindNthSymm3Xt1)*Abs(beta2L) + + (J13L*PDupwindNthSymm1Xt1 + J23L*PDupwindNthSymm2Xt1 + + J33L*PDupwindNthSymm3Xt1)*Abs(beta3L) + + gtu11*(2*J11L*J21L*PDstandardNth12beta1 + + 2*J11L*J31L*PDstandardNth13beta1 + dJ111L*PDstandardNth1beta1 + + 2*J21L*J31L*PDstandardNth23beta1 + dJ211L*PDstandardNth2beta1 + + dJ311L*PDstandardNth3beta1 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu22*(2*J12L*J22L*PDstandardNth12beta1 + + 2*J12L*J32L*PDstandardNth13beta1 + dJ122L*PDstandardNth1beta1 + + 2*J22L*J32L*PDstandardNth23beta1 + dJ222L*PDstandardNth2beta1 + + dJ322L*PDstandardNth3beta1 + PDstandardNth11beta1*SQR(J12L) + + PDstandardNth22beta1*SQR(J22L) + PDstandardNth33beta1*SQR(J32L)) + + gtu33*(2*J13L*J23L*PDstandardNth12beta1 + + 2*J13L*J33L*PDstandardNth13beta1 + dJ133L*PDstandardNth1beta1 + + 2*J23L*J33L*PDstandardNth23beta1 + dJ233L*PDstandardNth2beta1 + + dJ333L*PDstandardNth3beta1 + PDstandardNth11beta1*SQR(J13L) + + PDstandardNth22beta1*SQR(J23L) + PDstandardNth33beta1*SQR(J33L)) + + 0.333333333333333333333333333333*(gtu11*(J11L*J12L*PDstandardNth11beta2 + + J11L*J13L*PDstandardNth11beta3 + 2*J11L*J21L*PDstandardNth12beta1 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta1 + J12L*J31L*PDstandardNth13beta2 + + J11L*J32L*PDstandardNth13beta2 + J13L*J31L*PDstandardNth13beta3 + + J11L*J33L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta1 + + dJ112L*PDstandardNth1beta2 + dJ113L*PDstandardNth1beta3 + + J21L*J22L*PDstandardNth22beta2 + J21L*J23L*PDstandardNth22beta3 + + 2*J21L*J31L*PDstandardNth23beta1 + J22L*J31L*PDstandardNth23beta2 + + J21L*J32L*PDstandardNth23beta2 + J23L*J31L*PDstandardNth23beta3 + + J21L*J33L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta1 + + dJ212L*PDstandardNth2beta2 + dJ213L*PDstandardNth2beta3 + + J31L*J32L*PDstandardNth33beta2 + J31L*J33L*PDstandardNth33beta3 + + dJ311L*PDstandardNth3beta1 + dJ312L*PDstandardNth3beta2 + + dJ313L*PDstandardNth3beta3 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu12*(J11L*J12L*PDstandardNth11beta1 + J12L*J13L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + 2*J12L*J22L*PDstandardNth12beta2 + J13L*J22L*PDstandardNth12beta3 + + J12L*J23L*PDstandardNth12beta3 + J12L*J31L*PDstandardNth13beta1 + + J11L*J32L*PDstandardNth13beta1 + 2*J12L*J32L*PDstandardNth13beta2 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta1 + dJ122L*PDstandardNth1beta2 + + dJ123L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta1 + + J22L*J23L*PDstandardNth22beta3 + J22L*J31L*PDstandardNth23beta1 + + J21L*J32L*PDstandardNth23beta1 + 2*J22L*J32L*PDstandardNth23beta2 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta1 + dJ222L*PDstandardNth2beta2 + + dJ223L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta1 + + J32L*J33L*PDstandardNth33beta3 + dJ312L*PDstandardNth3beta1 + + dJ322L*PDstandardNth3beta2 + dJ323L*PDstandardNth3beta3 + + PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) + + PDstandardNth33beta2*SQR(J32L)) + gtu13*(J11L*J13L*PDstandardNth11beta1 + + J12L*J13L*PDstandardNth11beta2 + J13L*J21L*PDstandardNth12beta1 + + J11L*J23L*PDstandardNth12beta1 + J13L*J22L*PDstandardNth12beta2 + + J12L*J23L*PDstandardNth12beta2 + 2*J13L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ113L*PDstandardNth1beta1 + + dJ123L*PDstandardNth1beta2 + dJ133L*PDstandardNth1beta3 + + J21L*J23L*PDstandardNth22beta1 + J22L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ213L*PDstandardNth2beta1 + + dJ223L*PDstandardNth2beta2 + dJ233L*PDstandardNth2beta3 + + J31L*J33L*PDstandardNth33beta1 + J32L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta1 + dJ323L*PDstandardNth3beta2 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L))); CCTK_REAL dotXt2 = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1Xt2 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2Xt2 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3Xt2 + - (2.333333333333333333333333333333333333333*gtu12*J11L*J22L + - 2*gtu13*(J13L*J21L + J11L*J23L))*PDstandardNth12beta2 + - (2.333333333333333333333333333333333333333*gtu12*J11L*J32L + - 2*gtu13*(J13L*J31L + J11L*J33L))*PDstandardNth13beta2 + - alphaL*(12.*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + - 4.*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + 2.*(Atu11*Gt211 + - Atu22*Gt222 + Atu33*Gt233) - - 1.333333333333333333333333333333333333333*gtu12*(J11L*PDstandardNth1trK - + J21L*PDstandardNth2trK + J31L*PDstandardNth3trK) - - 50.26548245743669181540229413247204614715*(gtu12*S1 + gtu22*S2 + - gtu23*S3)) + PDstandardNth1beta2*(dJ111L*gtu11 + 2.*dJ113L*gtu13 + - 1.333333333333333333333333333333333333333*dJ122L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ112L*gtu12 + dJ123L*gtu23) - + dJ133L*gtu33 - 1.*(J11L*Xtn1 + J13L*Xtn3)) + - PDstandardNth2beta2*(dJ211L*gtu11 + 2.*dJ213L*gtu13 + - 1.333333333333333333333333333333333333333*dJ222L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ212L*gtu12 + dJ223L*gtu23) - + dJ233L*gtu33 - 1.*(J21L*Xtn1 + J23L*Xtn3)) + - PDstandardNth3beta2*(dJ311L*gtu11 + 2.*dJ313L*gtu13 + - 1.333333333333333333333333333333333333333*dJ322L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ312L*gtu12 + dJ323L*gtu23) - + dJ333L*gtu33 - 1.*(J31L*Xtn1 + J33L*Xtn3)) + - J11L*((2.333333333333333333333333333333333333333*gtu12*J12L + - 2.*gtu13*J13L)*PDstandardNth11beta2 + - J21L*(0.6666666666666666666666666666666666666667*gtu12*PDstandardNth12beta1 - + 2*gtu11*PDstandardNth12beta2) + - (0.6666666666666666666666666666666666666667*gtu12*J31L + - 0.3333333333333333333333333333333333333333*gtu23*J33L)*PDstandardNth13beta1 - + 2*gtu11*J31L*PDstandardNth13beta2 - 2.*Atu12*PDstandardNth1alpha + - beta1L*PDupwindNthAnti1Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta1*Xtn2 + - PDupwindNthSymm1Xt2*Abs(beta1L)) + - J21L*(J31L*(0.6666666666666666666666666666666666666667*gtu12*PDstandardNth23beta1 - + 2*gtu11*PDstandardNth23beta2) - 2.*Atu12*PDstandardNth2alpha + - beta1L*PDupwindNthAnti2Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta1*Xtn2 + - PDupwindNthSymm2Xt2*Abs(beta1L)) + J31L*(-2.*Atu12*PDstandardNth3alpha - + beta1L*PDupwindNthAnti3Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta1*Xtn2 + - PDupwindNthSymm3Xt2*Abs(beta1L)) + - J12L*(J13L*(2.333333333333333333333333333333333333333*gtu23*PDstandardNth11beta2 - + - 0.3333333333333333333333333333333333333333*gtu22*PDstandardNth11beta3) - + - J21L*(0.3333333333333333333333333333333333333333*gtu22*PDstandardNth12beta1 - + 2.333333333333333333333333333333333333333*gtu12*PDstandardNth12beta2) - + - 2.333333333333333333333333333333333333333*gtu12*J31L*PDstandardNth13beta2 - - 2.*Atu22*PDstandardNth1alpha + - gtu22*(0.3333333333333333333333333333333333333333*(J23L*PDstandardNth12beta3 - + J33L*PDstandardNth13beta3) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth1trK) + - beta2L*PDupwindNthAnti1Xt2 - - 0.3333333333333333333333333333333333333333*PDstandardNth1beta2*Xtn2 + - PDupwindNthSymm1Xt2*Abs(beta2L)) + - J22L*((2.666666666666666666666666666666666666667*gtu22*J12L + - 2.333333333333333333333333333333333333333*gtu23*J13L)*PDstandardNth12beta2 - + 2.333333333333333333333333333333333333333*(gtu12*J21L + - gtu23*J23L)*PDstandardNth22beta2 + - 2.333333333333333333333333333333333333333*gtu12*J31L*PDstandardNth23beta2 - - 2.*Atu22*PDstandardNth2alpha + - gtu22*(0.3333333333333333333333333333333333333333*(J13L*PDstandardNth12beta3 - + J21L*PDstandardNth22beta1 + J31L*PDstandardNth23beta1 + - J33L*PDstandardNth23beta3) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta2L*PDupwindNthAnti2Xt2 - - 0.3333333333333333333333333333333333333333*PDstandardNth2beta2*Xtn2 + - PDupwindNthSymm2Xt2*Abs(beta2L)) + - J32L*((2.666666666666666666666666666666666666667*gtu22*J12L + - 2.333333333333333333333333333333333333333*gtu23*J13L)*PDstandardNth13beta2 - + (2.666666666666666666666666666666666666667*gtu22*J22L + - 2.333333333333333333333333333333333333333*(gtu12*J21L + - gtu23*J23L))*PDstandardNth23beta2 + - 2.333333333333333333333333333333333333333*(gtu12*J31L + - gtu23*J33L)*PDstandardNth33beta2 - 2.*Atu22*PDstandardNth3alpha + - gtu22*(0.3333333333333333333333333333333333333333*(J13L*PDstandardNth13beta3 - + J21L*PDstandardNth23beta1 + J23L*PDstandardNth23beta3 + - J31L*PDstandardNth33beta1) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth3trK) + - beta2L*PDupwindNthAnti3Xt2 - - 0.3333333333333333333333333333333333333333*PDstandardNth3beta2*Xtn2 + - PDupwindNthSymm3Xt2*Abs(beta2L)) + J13L*(-2.*Atu23*PDstandardNth1alpha - - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth1trK - + beta3L*PDupwindNthAnti1Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta3*Xtn2 + - PDupwindNthSymm1Xt2*Abs(beta3L)) + - J23L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2*gtu33*J13L)*PDstandardNth12beta2 + - (0.3333333333333333333333333333333333333333*gtu12*J11L + - 0.6666666666666666666666666666666666666667*gtu23*J13L)*PDstandardNth12beta3 - + - J21L*(0.3333333333333333333333333333333333333333*gtu23*PDstandardNth22beta1 - + 2.*gtu13*PDstandardNth22beta2) + - 0.3333333333333333333333333333333333333333*(gtu22*J22L*PDstandardNth22beta3 - + gtu23*J31L*PDstandardNth23beta1) + 2*gtu13*J31L*PDstandardNth23beta2 - - 2.*Atu23*PDstandardNth2alpha + - gtu23*(0.6666666666666666666666666666666666666667*J33L*PDstandardNth23beta3 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta3L*PDupwindNthAnti2Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta3*Xtn2 + - PDupwindNthSymm2Xt2*Abs(beta3L)) + - J33L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2*gtu33*J13L)*PDstandardNth13beta2 + - (0.3333333333333333333333333333333333333333*gtu12*J11L + - 0.6666666666666666666666666666666666666667*gtu23*J13L)*PDstandardNth13beta3 - + (2.333333333333333333333333333333333333333*gtu23*J22L + - 2*gtu33*J23L)*PDstandardNth23beta2 + J21L*(2*gtu13*PDstandardNth23beta2 - + - 0.3333333333333333333333333333333333333333*(gtu23*PDstandardNth23beta1 - + gtu12*PDstandardNth23beta3)) + - J31L*(0.3333333333333333333333333333333333333333*gtu23*PDstandardNth33beta1 - + 2.*gtu13*PDstandardNth33beta2) + - 0.3333333333333333333333333333333333333333*gtu22*J32L*PDstandardNth33beta3 - - 2.*Atu23*PDstandardNth3alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth3trK - + beta3L*PDupwindNthAnti3Xt2 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta3*Xtn2 + - PDupwindNthSymm3Xt2*Abs(beta3L)) + - PDstandardNth11beta2*(gtu11*SQR(J11L) + - 1.333333333333333333333333333333333333333*gtu22*SQR(J12L) + - gtu33*SQR(J13L)) + PDstandardNth22beta2*(gtu11*SQR(J21L) + - 1.333333333333333333333333333333333333333*gtu22*SQR(J22L) + - gtu33*SQR(J23L)) + PDstandardNth33beta2*(gtu11*SQR(J31L) + - 1.333333333333333333333333333333333333333*gtu22*SQR(J32L) + - gtu33*SQR(J33L)) + - 0.3333333333333333333333333333333333333333*(J11L*((gtu22*J12L + - gtu23*J13L)*PDstandardNth11beta1 + gtu12*J13L*PDstandardNth11beta3 + - gtu22*(J22L*PDstandardNth12beta1 + J32L*PDstandardNth13beta1)) + - gtu22*(J12L*J31L*PDstandardNth13beta1 + dJ112L*PDstandardNth1beta1 + - dJ123L*PDstandardNth1beta3 + dJ212L*PDstandardNth2beta1 + - dJ223L*PDstandardNth2beta3 + dJ312L*PDstandardNth3beta1 + - dJ323L*PDstandardNth3beta3) + gtu12*(J13L*(J21L*PDstandardNth12beta3 + - J31L*PDstandardNth13beta3) + dJ111L*PDstandardNth1beta1 + - dJ113L*PDstandardNth1beta3 + J23L*(J21L*PDstandardNth22beta3 + - J31L*PDstandardNth23beta3) + dJ211L*PDstandardNth2beta1 + - dJ213L*PDstandardNth2beta3 + J31L*J33L*PDstandardNth33beta3 + - dJ311L*PDstandardNth3beta1 + dJ313L*PDstandardNth3beta3 + - PDstandardNth11beta1*SQR(J11L) + PDstandardNth22beta1*SQR(J21L) + - PDstandardNth33beta1*SQR(J31L)) + gtu23*((J13L*J21L + - J11L*J23L)*PDstandardNth12beta1 + J13L*J31L*PDstandardNth13beta1 + - dJ113L*PDstandardNth1beta1 + dJ133L*PDstandardNth1beta3 + - dJ213L*PDstandardNth2beta1 + dJ233L*PDstandardNth2beta3 + - dJ313L*PDstandardNth3beta1 + dJ333L*PDstandardNth3beta3 + - PDstandardNth11beta3*SQR(J13L) + PDstandardNth22beta3*SQR(J23L) + - PDstandardNth33beta3*SQR(J33L))); + epsdiss3*J33L)*PDdissipationNth3Xt2 - 2*((Atu12*J11L + Atu22*J12L + + Atu23*J13L)*PDstandardNth1alpha + (Atu12*J21L + Atu22*J22L + + Atu23*J23L)*PDstandardNth2alpha + (Atu12*J31L + Atu22*J32L + + Atu23*J33L)*PDstandardNth3alpha) + + 2*(gtu12*(J11L*J12L*PDstandardNth11beta2 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J12L*J31L*PDstandardNth13beta2 + J11L*J32L*PDstandardNth13beta2 + + dJ112L*PDstandardNth1beta2 + J21L*J22L*PDstandardNth22beta2 + + J22L*J31L*PDstandardNth23beta2 + J21L*J32L*PDstandardNth23beta2 + + dJ212L*PDstandardNth2beta2 + J31L*J32L*PDstandardNth33beta2 + + dJ312L*PDstandardNth3beta2) + gtu13*(J11L*J13L*PDstandardNth11beta2 + + J13L*J21L*PDstandardNth12beta2 + J11L*J23L*PDstandardNth12beta2 + + J13L*J31L*PDstandardNth13beta2 + J11L*J33L*PDstandardNth13beta2 + + dJ113L*PDstandardNth1beta2 + J21L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta2 + J21L*J33L*PDstandardNth23beta2 + + dJ213L*PDstandardNth2beta2 + J31L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta2) + gtu23*(J12L*J13L*PDstandardNth11beta2 + + J13L*J22L*PDstandardNth12beta2 + J12L*J23L*PDstandardNth12beta2 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + dJ123L*PDstandardNth1beta2 + J22L*J23L*PDstandardNth22beta2 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + dJ223L*PDstandardNth2beta2 + J32L*J33L*PDstandardNth33beta2 + + dJ323L*PDstandardNth3beta2) + alphaL*(6*(Atu12*cdphi1 + Atu22*cdphi2 + + Atu23*cdphi3) + Atu11*Gt211 + 2*Atu12*Gt212 + 2*Atu13*Gt213 + + Atu22*Gt222 + 2*Atu23*Gt223 + Atu33*Gt233 - + 0.666666666666666666666666666667*((gtu12*J11L + gtu22*J12L + + gtu23*J13L)*PDstandardNth1trK + (gtu12*J21L + gtu22*J22L + + gtu23*J23L)*PDstandardNth2trK + (gtu12*J31L + gtu22*J32L + + gtu23*J33L)*PDstandardNth3trK))) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1Xt2 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2Xt2 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3Xt2 - + 50.26548245743669181540229413247204614715*alphaL*(gtu12*S1 + gtu22*S2 + + gtu23*S3) + 0.666666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3)*Xtn2 - + PDstandardNth1beta2*(J11L*Xtn1 + J12L*Xtn2 + J13L*Xtn3) - + PDstandardNth2beta2*(J21L*Xtn1 + J22L*Xtn2 + J23L*Xtn3) - + PDstandardNth3beta2*(J31L*Xtn1 + J32L*Xtn2 + J33L*Xtn3) + + (J11L*PDupwindNthSymm1Xt2 + J21L*PDupwindNthSymm2Xt2 + + J31L*PDupwindNthSymm3Xt2)*Abs(beta1L) + (J12L*PDupwindNthSymm1Xt2 + + J22L*PDupwindNthSymm2Xt2 + J32L*PDupwindNthSymm3Xt2)*Abs(beta2L) + + (J13L*PDupwindNthSymm1Xt2 + J23L*PDupwindNthSymm2Xt2 + + J33L*PDupwindNthSymm3Xt2)*Abs(beta3L) + + gtu11*(2*J11L*J21L*PDstandardNth12beta2 + + 2*J11L*J31L*PDstandardNth13beta2 + dJ111L*PDstandardNth1beta2 + + 2*J21L*J31L*PDstandardNth23beta2 + dJ211L*PDstandardNth2beta2 + + dJ311L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J11L) + + PDstandardNth22beta2*SQR(J21L) + PDstandardNth33beta2*SQR(J31L)) + + gtu22*(2*J12L*J22L*PDstandardNth12beta2 + + 2*J12L*J32L*PDstandardNth13beta2 + dJ122L*PDstandardNth1beta2 + + 2*J22L*J32L*PDstandardNth23beta2 + dJ222L*PDstandardNth2beta2 + + dJ322L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J12L) + + PDstandardNth22beta2*SQR(J22L) + PDstandardNth33beta2*SQR(J32L)) + + gtu33*(2*J13L*J23L*PDstandardNth12beta2 + + 2*J13L*J33L*PDstandardNth13beta2 + dJ133L*PDstandardNth1beta2 + + 2*J23L*J33L*PDstandardNth23beta2 + dJ233L*PDstandardNth2beta2 + + dJ333L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J13L) + + PDstandardNth22beta2*SQR(J23L) + PDstandardNth33beta2*SQR(J33L)) + + 0.333333333333333333333333333333*(gtu12*(J11L*J12L*PDstandardNth11beta2 + + J11L*J13L*PDstandardNth11beta3 + 2*J11L*J21L*PDstandardNth12beta1 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta1 + J12L*J31L*PDstandardNth13beta2 + + J11L*J32L*PDstandardNth13beta2 + J13L*J31L*PDstandardNth13beta3 + + J11L*J33L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta1 + + dJ112L*PDstandardNth1beta2 + dJ113L*PDstandardNth1beta3 + + J21L*J22L*PDstandardNth22beta2 + J21L*J23L*PDstandardNth22beta3 + + 2*J21L*J31L*PDstandardNth23beta1 + J22L*J31L*PDstandardNth23beta2 + + J21L*J32L*PDstandardNth23beta2 + J23L*J31L*PDstandardNth23beta3 + + J21L*J33L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta1 + + dJ212L*PDstandardNth2beta2 + dJ213L*PDstandardNth2beta3 + + J31L*J32L*PDstandardNth33beta2 + J31L*J33L*PDstandardNth33beta3 + + dJ311L*PDstandardNth3beta1 + dJ312L*PDstandardNth3beta2 + + dJ313L*PDstandardNth3beta3 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu22*(J11L*J12L*PDstandardNth11beta1 + J12L*J13L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + 2*J12L*J22L*PDstandardNth12beta2 + J13L*J22L*PDstandardNth12beta3 + + J12L*J23L*PDstandardNth12beta3 + J12L*J31L*PDstandardNth13beta1 + + J11L*J32L*PDstandardNth13beta1 + 2*J12L*J32L*PDstandardNth13beta2 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta1 + dJ122L*PDstandardNth1beta2 + + dJ123L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta1 + + J22L*J23L*PDstandardNth22beta3 + J22L*J31L*PDstandardNth23beta1 + + J21L*J32L*PDstandardNth23beta1 + 2*J22L*J32L*PDstandardNth23beta2 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta1 + dJ222L*PDstandardNth2beta2 + + dJ223L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta1 + + J32L*J33L*PDstandardNth33beta3 + dJ312L*PDstandardNth3beta1 + + dJ322L*PDstandardNth3beta2 + dJ323L*PDstandardNth3beta3 + + PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) + + PDstandardNth33beta2*SQR(J32L)) + gtu23*(J11L*J13L*PDstandardNth11beta1 + + J12L*J13L*PDstandardNth11beta2 + J13L*J21L*PDstandardNth12beta1 + + J11L*J23L*PDstandardNth12beta1 + J13L*J22L*PDstandardNth12beta2 + + J12L*J23L*PDstandardNth12beta2 + 2*J13L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ113L*PDstandardNth1beta1 + + dJ123L*PDstandardNth1beta2 + dJ133L*PDstandardNth1beta3 + + J21L*J23L*PDstandardNth22beta1 + J22L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ213L*PDstandardNth2beta1 + + dJ223L*PDstandardNth2beta2 + dJ233L*PDstandardNth2beta3 + + J31L*J33L*PDstandardNth33beta1 + J32L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta1 + dJ323L*PDstandardNth3beta2 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L))); CCTK_REAL dotXt3 = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1Xt3 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2Xt3 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3Xt3 + (2*gtu22*J12L*J32L + - 2.333333333333333333333333333333333333333*gtu13*J11L*J33L)*PDstandardNth13beta3 - + 2*((gtu12*J11L + gtu22*J12L)*J22L*PDstandardNth12beta3 + - gtu11*J31L*(J11L*PDstandardNth13beta3 + J21L*PDstandardNth23beta3)) + - 2.333333333333333333333333333333333333333*((gtu23*J13L*J22L + - gtu13*J11L*J23L)*PDstandardNth12beta3 + - gtu13*J31L*(J13L*PDstandardNth13beta3 + J23L*PDstandardNth23beta3)) + - alphaL*(12.*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + - 4.*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + 2.*(Atu11*Gt311 + - Atu22*Gt322 + Atu33*Gt333) - - 1.333333333333333333333333333333333333333*gtu13*(J11L*PDstandardNth1trK - + J21L*PDstandardNth2trK + J31L*PDstandardNth3trK) - - 50.26548245743669181540229413247204614715*(gtu13*S1 + gtu23*S2 + - gtu33*S3)) + PDstandardNth1beta3*(dJ111L*gtu11 + 2.*dJ112L*gtu12 + - dJ122L*gtu22 + 2.333333333333333333333333333333333333333*(dJ113L*gtu13 - + dJ123L*gtu23) + - 1.333333333333333333333333333333333333333*dJ133L*gtu33 - 1.*J11L*Xtn1) - + PDstandardNth2beta3*(dJ211L*gtu11 + 2.*dJ212L*gtu12 + dJ222L*gtu22 + - 2.333333333333333333333333333333333333333*(dJ213L*gtu13 + dJ223L*gtu23) - + 1.333333333333333333333333333333333333333*dJ233L*gtu33 - - 1.*J21L*Xtn1) + PDstandardNth3beta3*(dJ311L*gtu11 + 2.*dJ312L*gtu12 + - dJ322L*gtu22 + 2.333333333333333333333333333333333333333*(dJ313L*gtu13 - + dJ323L*gtu23) + - 1.333333333333333333333333333333333333333*dJ333L*gtu33 - 1.*J31L*Xtn1) - + J11L*((2.*gtu12*J12L + - 2.333333333333333333333333333333333333333*gtu13*J13L)*PDstandardNth11beta3 - + - gtu13*(0.6666666666666666666666666666666666666667*(J21L*PDstandardNth12beta1 - + J31L*PDstandardNth13beta1) + - 0.3333333333333333333333333333333333333333*(J22L*PDstandardNth12beta2 + - J32L*PDstandardNth13beta2)) + 2*(gtu11*J21L*PDstandardNth12beta3 + - gtu12*J32L*PDstandardNth13beta3) - 2.*Atu13*PDstandardNth1alpha + - beta1L*PDupwindNthAnti1Xt3 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta1*Xtn3 + - PDupwindNthSymm1Xt3*Abs(beta1L)) + - J21L*((0.6666666666666666666666666666666666666667*gtu13*J31L + - 0.3333333333333333333333333333333333333333*gtu23*J32L)*PDstandardNth23beta1 - + 2*gtu12*J32L*PDstandardNth23beta3 - 2.*Atu13*PDstandardNth2alpha + - beta1L*PDupwindNthAnti2Xt3 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta1*Xtn3 + - PDupwindNthSymm2Xt3*Abs(beta1L)) + J31L*(-2.*Atu13*PDstandardNth3alpha - + beta1L*PDupwindNthAnti3Xt3 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta1*Xtn3 + - PDupwindNthSymm3Xt3*Abs(beta1L)) + - J12L*((0.6666666666666666666666666666666666666667*gtu23*J22L + - 0.3333333333333333333333333333333333333333*gtu33*J23L)*PDstandardNth12beta2 - + (0.3333333333333333333333333333333333333333*gtu13*J31L + - 0.6666666666666666666666666666666666666667*gtu23*J32L)*PDstandardNth13beta2 - + 2*gtu12*(J21L*PDstandardNth12beta3 + J31L*PDstandardNth13beta3) - - 2.*Atu23*PDstandardNth1alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth1trK - + beta2L*PDupwindNthAnti1Xt3 - 1.*PDstandardNth1beta3*Xtn2 + - 0.6666666666666666666666666666666666666667*PDstandardNth1beta2*Xtn3 + - PDupwindNthSymm1Xt3*Abs(beta2L)) + J22L*((2.*gtu12*J21L + - 2.333333333333333333333333333333333333333*gtu23*J23L)*PDstandardNth22beta3 - + (0.3333333333333333333333333333333333333333*gtu13*J31L + - 0.6666666666666666666666666666666666666667*gtu23*J32L)*PDstandardNth23beta2 - + 2*(gtu12*J31L + gtu22*J32L)*PDstandardNth23beta3 - - 2.*Atu23*PDstandardNth2alpha + - gtu23*(2.333333333333333333333333333333333333333*J33L*PDstandardNth23beta3 - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta2L*PDupwindNthAnti2Xt3 - 1.*PDstandardNth2beta3*Xtn2 + - 0.6666666666666666666666666666666666666667*PDstandardNth2beta2*Xtn3 + - PDupwindNthSymm2Xt3*Abs(beta2L)) + J32L*((2.*gtu12*J31L + - 2.333333333333333333333333333333333333333*gtu23*J33L)*PDstandardNth33beta3 - - 2.*Atu23*PDstandardNth3alpha - - 1.333333333333333333333333333333333333333*alphaL*gtu23*PDstandardNth3trK - + beta2L*PDupwindNthAnti3Xt3 - 1.*PDstandardNth3beta3*Xtn2 + - 0.6666666666666666666666666666666666666667*PDstandardNth3beta2*Xtn3 + - PDupwindNthSymm3Xt3*Abs(beta2L)) + - J13L*(2.333333333333333333333333333333333333333*gtu13*J21L*PDstandardNth12beta3 - + - gtu23*(2.333333333333333333333333333333333333333*J12L*PDstandardNth11beta3 - + 2.333333333333333333333333333333333333333*J32L*PDstandardNth13beta3) - - 2.*Atu33*PDstandardNth1alpha + - gtu33*(0.3333333333333333333333333333333333333333*(J21L*PDstandardNth12beta1 - + J22L*PDstandardNth12beta2 + J31L*PDstandardNth13beta1 + - J32L*PDstandardNth13beta2) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth1trK) + - beta3L*PDupwindNthAnti1Xt3 - - 0.3333333333333333333333333333333333333333*PDstandardNth1beta3*Xtn3 + - PDupwindNthSymm1Xt3*Abs(beta3L)) + - J23L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2.666666666666666666666666666666666666667*gtu33*J13L)*PDstandardNth12beta3 - + - 2.333333333333333333333333333333333333333*gtu13*J21L*PDstandardNth22beta3 - + - 2.333333333333333333333333333333333333333*gtu23*J32L*PDstandardNth23beta3 - - 2.*Atu33*PDstandardNth2alpha + - gtu33*(0.3333333333333333333333333333333333333333*(J21L*PDstandardNth22beta1 - + J22L*PDstandardNth22beta2 + J31L*PDstandardNth23beta1 + - J32L*PDstandardNth23beta2) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth2trK) + - beta3L*PDupwindNthAnti2Xt3 - - 0.3333333333333333333333333333333333333333*PDstandardNth2beta3*Xtn3 + - PDupwindNthSymm2Xt3*Abs(beta3L)) + - J33L*((2.333333333333333333333333333333333333333*gtu23*J12L + - 2.666666666666666666666666666666666666667*gtu33*J13L)*PDstandardNth13beta3 - + (2.333333333333333333333333333333333333333*gtu13*J21L + - 2.666666666666666666666666666666666666667*gtu33*J23L)*PDstandardNth23beta3 - + - 2.333333333333333333333333333333333333333*gtu13*J31L*PDstandardNth33beta3 - - 2.*Atu33*PDstandardNth3alpha + - gtu33*(0.3333333333333333333333333333333333333333*(J21L*PDstandardNth23beta1 - + J22L*PDstandardNth23beta2 + J31L*PDstandardNth33beta1 + - J32L*PDstandardNth33beta2) - - 1.333333333333333333333333333333333333333*alphaL*PDstandardNth3trK) + - beta3L*PDupwindNthAnti3Xt3 - - 0.3333333333333333333333333333333333333333*PDstandardNth3beta3*Xtn3 + - PDupwindNthSymm3Xt3*Abs(beta3L)) + - PDstandardNth11beta3*(gtu11*SQR(J11L) + gtu22*SQR(J12L) + - 1.333333333333333333333333333333333333333*gtu33*SQR(J13L)) + - PDstandardNth22beta3*(gtu11*SQR(J21L) + gtu22*SQR(J22L) + - 1.333333333333333333333333333333333333333*gtu33*SQR(J23L)) + - 0.3333333333333333333333333333333333333333*(J11L*((gtu23*J12L + - gtu33*J13L)*PDstandardNth11beta1 + gtu13*J12L*PDstandardNth11beta2 + - (gtu23*J22L + gtu33*J23L)*PDstandardNth12beta1 + (gtu23*J32L + - gtu33*J33L)*PDstandardNth13beta1) + - J12L*(J21L*(gtu23*PDstandardNth12beta1 + gtu13*PDstandardNth12beta2) + - gtu23*J31L*PDstandardNth13beta1 + gtu33*(J13L*PDstandardNth11beta2 + - J33L*PDstandardNth13beta2)) + (dJ111L*gtu13 + dJ112L*gtu23 + - dJ113L*gtu33)*PDstandardNth1beta1 + (dJ112L*gtu13 + dJ122L*gtu23 + - dJ123L*gtu33)*PDstandardNth1beta2 + - J21L*(J22L*(gtu23*PDstandardNth22beta1 + gtu13*PDstandardNth22beta2) + - gtu13*J32L*PDstandardNth23beta2) + (dJ211L*gtu13 + - dJ213L*gtu33)*PDstandardNth2beta1 + (dJ212L*gtu13 + - dJ223L*gtu33)*PDstandardNth2beta2 + gtu33*(dJ313L*PDstandardNth3beta1 + - dJ323L*PDstandardNth3beta2) + gtu13*(J31L*J32L*PDstandardNth33beta2 + + epsdiss3*J33L)*PDdissipationNth3Xt3 - 2*((Atu13*J11L + Atu23*J12L + + Atu33*J13L)*PDstandardNth1alpha + (Atu13*J21L + Atu23*J22L + + Atu33*J23L)*PDstandardNth2alpha + (Atu13*J31L + Atu23*J32L + + Atu33*J33L)*PDstandardNth3alpha) + + 2*(gtu12*(J11L*J12L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta3 + J11L*J22L*PDstandardNth12beta3 + + J12L*J31L*PDstandardNth13beta3 + J11L*J32L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta3 + + J22L*J31L*PDstandardNth23beta3 + J21L*J32L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta3 + + dJ312L*PDstandardNth3beta3) + gtu13*(J11L*J13L*PDstandardNth11beta3 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta3 + J11L*J33L*PDstandardNth13beta3 + + dJ113L*PDstandardNth1beta3 + J21L*J23L*PDstandardNth22beta3 + + J23L*J31L*PDstandardNth23beta3 + J21L*J33L*PDstandardNth23beta3 + + dJ213L*PDstandardNth2beta3 + J31L*J33L*PDstandardNth33beta3 + + dJ313L*PDstandardNth3beta3) + gtu23*(J12L*J13L*PDstandardNth11beta3 + + J13L*J22L*PDstandardNth12beta3 + J12L*J23L*PDstandardNth12beta3 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ123L*PDstandardNth1beta3 + J22L*J23L*PDstandardNth22beta3 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ223L*PDstandardNth2beta3 + J32L*J33L*PDstandardNth33beta3 + + dJ323L*PDstandardNth3beta3) + alphaL*(6*(Atu13*cdphi1 + Atu23*cdphi2 + + Atu33*cdphi3) + Atu11*Gt311 + 2*Atu12*Gt312 + 2*Atu13*Gt313 + + Atu22*Gt322 + 2*Atu23*Gt323 + Atu33*Gt333 - + 0.666666666666666666666666666667*((gtu13*J11L + gtu23*J12L + + gtu33*J13L)*PDstandardNth1trK + (gtu13*J21L + gtu23*J22L + + gtu33*J23L)*PDstandardNth2trK + (gtu13*J31L + gtu23*J32L + + gtu33*J33L)*PDstandardNth3trK))) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1Xt3 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2Xt3 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3Xt3 - + 50.26548245743669181540229413247204614715*alphaL*(gtu13*S1 + gtu23*S2 + + gtu33*S3) + 0.666666666666666666666666666667*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3)*Xtn3 - + PDstandardNth1beta3*(J11L*Xtn1 + J12L*Xtn2 + J13L*Xtn3) - + PDstandardNth2beta3*(J21L*Xtn1 + J22L*Xtn2 + J23L*Xtn3) - + PDstandardNth3beta3*(J31L*Xtn1 + J32L*Xtn2 + J33L*Xtn3) + + (J11L*PDupwindNthSymm1Xt3 + J21L*PDupwindNthSymm2Xt3 + + J31L*PDupwindNthSymm3Xt3)*Abs(beta1L) + (J12L*PDupwindNthSymm1Xt3 + + J22L*PDupwindNthSymm2Xt3 + J32L*PDupwindNthSymm3Xt3)*Abs(beta2L) + + (J13L*PDupwindNthSymm1Xt3 + J23L*PDupwindNthSymm2Xt3 + + J33L*PDupwindNthSymm3Xt3)*Abs(beta3L) + + gtu11*(2*J11L*J21L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta3 + + 2*J21L*J31L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta3 + + dJ311L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J11L) + + PDstandardNth22beta3*SQR(J21L) + PDstandardNth33beta3*SQR(J31L)) + + gtu22*(2*J12L*J22L*PDstandardNth12beta3 + + 2*J12L*J32L*PDstandardNth13beta3 + dJ122L*PDstandardNth1beta3 + + 2*J22L*J32L*PDstandardNth23beta3 + dJ222L*PDstandardNth2beta3 + + dJ322L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J12L) + + PDstandardNth22beta3*SQR(J22L) + PDstandardNth33beta3*SQR(J32L)) + + gtu33*(2*J13L*J23L*PDstandardNth12beta3 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ133L*PDstandardNth1beta3 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ233L*PDstandardNth2beta3 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L)) + + 0.333333333333333333333333333333*(gtu13*(J11L*J12L*PDstandardNth11beta2 + + J11L*J13L*PDstandardNth11beta3 + 2*J11L*J21L*PDstandardNth12beta1 + + J12L*J21L*PDstandardNth12beta2 + J11L*J22L*PDstandardNth12beta2 + + J13L*J21L*PDstandardNth12beta3 + J11L*J23L*PDstandardNth12beta3 + + 2*J11L*J31L*PDstandardNth13beta1 + J12L*J31L*PDstandardNth13beta2 + + J11L*J32L*PDstandardNth13beta2 + J13L*J31L*PDstandardNth13beta3 + + J11L*J33L*PDstandardNth13beta3 + dJ111L*PDstandardNth1beta1 + + dJ112L*PDstandardNth1beta2 + dJ113L*PDstandardNth1beta3 + + J21L*J22L*PDstandardNth22beta2 + J21L*J23L*PDstandardNth22beta3 + + 2*J21L*J31L*PDstandardNth23beta1 + J22L*J31L*PDstandardNth23beta2 + + J21L*J32L*PDstandardNth23beta2 + J23L*J31L*PDstandardNth23beta3 + + J21L*J33L*PDstandardNth23beta3 + dJ211L*PDstandardNth2beta1 + + dJ212L*PDstandardNth2beta2 + dJ213L*PDstandardNth2beta3 + + J31L*J32L*PDstandardNth33beta2 + J31L*J33L*PDstandardNth33beta3 + dJ311L*PDstandardNth3beta1 + dJ312L*PDstandardNth3beta2 + - PDstandardNth11beta1*SQR(J11L) + PDstandardNth22beta1*SQR(J21L) + - PDstandardNth33beta1*SQR(J31L)) + gtu23*(dJ212L*PDstandardNth2beta1 + - dJ222L*PDstandardNth2beta2 + J31L*(J22L*PDstandardNth23beta1 + - J32L*PDstandardNth33beta1) + dJ312L*PDstandardNth3beta1 + - dJ322L*PDstandardNth3beta2 + PDstandardNth11beta2*SQR(J12L) + - PDstandardNth22beta2*SQR(J22L) + PDstandardNth33beta2*SQR(J32L))) + - PDstandardNth33beta3*(gtu11*SQR(J31L) + gtu22*SQR(J32L) + - 1.333333333333333333333333333333333333333*gtu33*SQR(J33L)); + dJ313L*PDstandardNth3beta3 + PDstandardNth11beta1*SQR(J11L) + + PDstandardNth22beta1*SQR(J21L) + PDstandardNth33beta1*SQR(J31L)) + + gtu23*(J11L*J12L*PDstandardNth11beta1 + J12L*J13L*PDstandardNth11beta3 + + J12L*J21L*PDstandardNth12beta1 + J11L*J22L*PDstandardNth12beta1 + + 2*J12L*J22L*PDstandardNth12beta2 + J13L*J22L*PDstandardNth12beta3 + + J12L*J23L*PDstandardNth12beta3 + J12L*J31L*PDstandardNth13beta1 + + J11L*J32L*PDstandardNth13beta1 + 2*J12L*J32L*PDstandardNth13beta2 + + J13L*J32L*PDstandardNth13beta3 + J12L*J33L*PDstandardNth13beta3 + + dJ112L*PDstandardNth1beta1 + dJ122L*PDstandardNth1beta2 + + dJ123L*PDstandardNth1beta3 + J21L*J22L*PDstandardNth22beta1 + + J22L*J23L*PDstandardNth22beta3 + J22L*J31L*PDstandardNth23beta1 + + J21L*J32L*PDstandardNth23beta1 + 2*J22L*J32L*PDstandardNth23beta2 + + J23L*J32L*PDstandardNth23beta3 + J22L*J33L*PDstandardNth23beta3 + + dJ212L*PDstandardNth2beta1 + dJ222L*PDstandardNth2beta2 + + dJ223L*PDstandardNth2beta3 + J31L*J32L*PDstandardNth33beta1 + + J32L*J33L*PDstandardNth33beta3 + dJ312L*PDstandardNth3beta1 + + dJ322L*PDstandardNth3beta2 + dJ323L*PDstandardNth3beta3 + + PDstandardNth11beta2*SQR(J12L) + PDstandardNth22beta2*SQR(J22L) + + PDstandardNth33beta2*SQR(J32L)) + gtu33*(J11L*J13L*PDstandardNth11beta1 + + J12L*J13L*PDstandardNth11beta2 + J13L*J21L*PDstandardNth12beta1 + + J11L*J23L*PDstandardNth12beta1 + J13L*J22L*PDstandardNth12beta2 + + J12L*J23L*PDstandardNth12beta2 + 2*J13L*J23L*PDstandardNth12beta3 + + J13L*J31L*PDstandardNth13beta1 + J11L*J33L*PDstandardNth13beta1 + + J13L*J32L*PDstandardNth13beta2 + J12L*J33L*PDstandardNth13beta2 + + 2*J13L*J33L*PDstandardNth13beta3 + dJ113L*PDstandardNth1beta1 + + dJ123L*PDstandardNth1beta2 + dJ133L*PDstandardNth1beta3 + + J21L*J23L*PDstandardNth22beta1 + J22L*J23L*PDstandardNth22beta2 + + J23L*J31L*PDstandardNth23beta1 + J21L*J33L*PDstandardNth23beta1 + + J23L*J32L*PDstandardNth23beta2 + J22L*J33L*PDstandardNth23beta2 + + 2*J23L*J33L*PDstandardNth23beta3 + dJ213L*PDstandardNth2beta1 + + dJ223L*PDstandardNth2beta2 + dJ233L*PDstandardNth2beta3 + + J31L*J33L*PDstandardNth33beta1 + J32L*J33L*PDstandardNth33beta2 + + dJ313L*PDstandardNth3beta1 + dJ323L*PDstandardNth3beta2 + + dJ333L*PDstandardNth3beta3 + PDstandardNth11beta3*SQR(J13L) + + PDstandardNth22beta3*SQR(J23L) + PDstandardNth33beta3*SQR(J33L))); CCTK_REAL Xt1rhsL = dotXt1; @@ -1424,19 +1320,18 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const epsdiss3*J33L)*PDdissipationNth3B1 + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*(PDupwindNthAnti1B1 - PDupwindNthAnti1Xt1) + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*(PDupwindNthAnti2B1 - PDupwindNthAnti2Xt1) - + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3B1 + - (-(beta1L*J31L) - beta2L*J32L - beta3L*J33L)*PDupwindNthAnti3Xt1 + - J11L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1)*Abs(beta1L) + - J21L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1)*Abs(beta1L) + - J31L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1)*Abs(beta1L) + - J12L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1)*Abs(beta2L) + - J22L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1)*Abs(beta2L) + - J32L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1)*Abs(beta2L) + - J13L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1)*Abs(beta3L) + - J23L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1)*Abs(beta3L) + + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*(PDupwindNthAnti3B1 - + PDupwindNthAnti3Xt1) + (J11L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1) + + J21L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1) + + J31L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1))*Abs(beta1L) + + (J12L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1) + + J22L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1) + + J32L*(PDupwindNthSymm3B1 - PDupwindNthSymm3Xt1))*Abs(beta2L) + + (J13L*(PDupwindNthSymm1B1 - PDupwindNthSymm1Xt1) + + J23L*(PDupwindNthSymm2B1 - PDupwindNthSymm2Xt1) + J33L*(PDupwindNthSymm3B1 - - PDupwindNthSymm3Xt1)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + (dotXt1 - - B1L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); + PDupwindNthSymm3Xt1))*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + + (dotXt1 - B1L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); CCTK_REAL B2rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1B2 + (epsdiss1*J21L + epsdiss2*J22L + @@ -1444,19 +1339,18 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const epsdiss3*J33L)*PDdissipationNth3B2 + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*(PDupwindNthAnti1B2 - PDupwindNthAnti1Xt2) + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*(PDupwindNthAnti2B2 - PDupwindNthAnti2Xt2) - + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3B2 + - (-(beta1L*J31L) - beta2L*J32L - beta3L*J33L)*PDupwindNthAnti3Xt2 + - J11L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2)*Abs(beta1L) + - J21L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2)*Abs(beta1L) + - J31L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2)*Abs(beta1L) + - J12L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2)*Abs(beta2L) + - J22L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2)*Abs(beta2L) + - J32L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2)*Abs(beta2L) + - J13L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2)*Abs(beta3L) + - J23L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2)*Abs(beta3L) + + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*(PDupwindNthAnti3B2 - + PDupwindNthAnti3Xt2) + (J11L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2) + + J21L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2) + + J31L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2))*Abs(beta1L) + + (J12L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2) + + J22L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2) + + J32L*(PDupwindNthSymm3B2 - PDupwindNthSymm3Xt2))*Abs(beta2L) + + (J13L*(PDupwindNthSymm1B2 - PDupwindNthSymm1Xt2) + + J23L*(PDupwindNthSymm2B2 - PDupwindNthSymm2Xt2) + J33L*(PDupwindNthSymm3B2 - - PDupwindNthSymm3Xt2)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + (dotXt2 - - B2L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); + PDupwindNthSymm3Xt2))*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + + (dotXt2 - B2L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); CCTK_REAL B3rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1B3 + (epsdiss1*J21L + epsdiss2*J22L + @@ -1464,19 +1358,18 @@ static void ML_BSSN_MP_O8_RHS1_Body(cGH const * restrict const cctkGH, int const epsdiss3*J33L)*PDdissipationNth3B3 + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*(PDupwindNthAnti1B3 - PDupwindNthAnti1Xt3) + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*(PDupwindNthAnti2B3 - PDupwindNthAnti2Xt3) - + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3B3 + - (-(beta1L*J31L) - beta2L*J32L - beta3L*J33L)*PDupwindNthAnti3Xt3 + - J11L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3)*Abs(beta1L) + - J21L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3)*Abs(beta1L) + - J31L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3)*Abs(beta1L) + - J12L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3)*Abs(beta2L) + - J22L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3)*Abs(beta2L) + - J32L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3)*Abs(beta2L) + - J13L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3)*Abs(beta3L) + - J23L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3)*Abs(beta3L) + + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*(PDupwindNthAnti3B3 - + PDupwindNthAnti3Xt3) + (J11L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3) + + J21L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3) + + J31L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3))*Abs(beta1L) + + (J12L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3) + + J22L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3) + + J32L*(PDupwindNthSymm3B3 - PDupwindNthSymm3Xt3))*Abs(beta2L) + + (J13L*(PDupwindNthSymm1B3 - PDupwindNthSymm1Xt3) + + J23L*(PDupwindNthSymm2B3 - PDupwindNthSymm2Xt3) + J33L*(PDupwindNthSymm3B3 - - PDupwindNthSymm3Xt3)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + (dotXt3 - - B3L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); + PDupwindNthSymm3Xt3))*Abs(beta3L))*ToReal(ShiftAdvectionCoeff) + + (dotXt3 - B3L*eta*ToReal(BetaDriver))*ToReal(ShiftBCoeff); /* Copy local copies back to grid functions */ alpharhs[index] = alpharhsL; diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS2.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS2.cc index 4537418..9256bd7 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS2.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_RHS2.cc @@ -536,50 +536,49 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + J11L*(gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + gt13L*PDstandardNth1Xt3) + J21L*(gt11L*PDstandardNth2Xt1 + - gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt11 + J12L*J21L*PDstandardNth12gt11 + - J11L*J22L*PDstandardNth12gt11 + J12L*J31L*PDstandardNth13gt11 + - J11L*J32L*PDstandardNth13gt11 + dJ112L*PDstandardNth1gt11 + - J21L*J22L*PDstandardNth22gt11 + J22L*J31L*PDstandardNth23gt11 + - J21L*J32L*PDstandardNth23gt11 + dJ212L*PDstandardNth2gt11 + - J31L*J32L*PDstandardNth33gt11 + dJ312L*PDstandardNth3gt11) - - gtu13*(J11L*J13L*PDstandardNth11gt11 + J13L*J21L*PDstandardNth12gt11 + - J11L*J23L*PDstandardNth12gt11 + J13L*J31L*PDstandardNth13gt11 + - J11L*J33L*PDstandardNth13gt11 + dJ113L*PDstandardNth1gt11 + - J21L*J23L*PDstandardNth22gt11 + J23L*J31L*PDstandardNth23gt11 + - J21L*J33L*PDstandardNth23gt11 + dJ213L*PDstandardNth2gt11 + - J31L*J33L*PDstandardNth33gt11 + dJ313L*PDstandardNth3gt11) - - gtu23*(J12L*J13L*PDstandardNth11gt11 + J13L*J22L*PDstandardNth12gt11 + - J12L*J23L*PDstandardNth12gt11 + J13L*J32L*PDstandardNth13gt11 + - J12L*J33L*PDstandardNth13gt11 + dJ123L*PDstandardNth1gt11 + - J22L*J23L*PDstandardNth22gt11 + J23L*J32L*PDstandardNth23gt11 + - J22L*J33L*PDstandardNth23gt11 + dJ223L*PDstandardNth2gt11 + - J32L*J33L*PDstandardNth33gt11 + dJ323L*PDstandardNth3gt11) + - gt11L*J31L*PDstandardNth3Xt1 + gt12L*J31L*PDstandardNth3Xt2 + - gt13L*J31L*PDstandardNth3Xt3 + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt11 + + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) + + J31L*(gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + + gt13L*PDstandardNth3Xt3) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt11 + + J12L*J21L*PDstandardNth12gt11 + J11L*J22L*PDstandardNth12gt11 + + J12L*J31L*PDstandardNth13gt11 + J11L*J32L*PDstandardNth13gt11 + + dJ112L*PDstandardNth1gt11 + J21L*J22L*PDstandardNth22gt11 + + J22L*J31L*PDstandardNth23gt11 + J21L*J32L*PDstandardNth23gt11 + + dJ212L*PDstandardNth2gt11 + J31L*J32L*PDstandardNth33gt11 + + dJ312L*PDstandardNth3gt11) + gtu13*(J11L*J13L*PDstandardNth11gt11 + + J13L*J21L*PDstandardNth12gt11 + J11L*J23L*PDstandardNth12gt11 + + J13L*J31L*PDstandardNth13gt11 + J11L*J33L*PDstandardNth13gt11 + + dJ113L*PDstandardNth1gt11 + J21L*J23L*PDstandardNth22gt11 + + J23L*J31L*PDstandardNth23gt11 + J21L*J33L*PDstandardNth23gt11 + + dJ213L*PDstandardNth2gt11 + J31L*J33L*PDstandardNth33gt11 + + dJ313L*PDstandardNth3gt11) + gtu23*(J12L*J13L*PDstandardNth11gt11 + + J13L*J22L*PDstandardNth12gt11 + J12L*J23L*PDstandardNth12gt11 + + J13L*J32L*PDstandardNth13gt11 + J12L*J33L*PDstandardNth13gt11 + + dJ123L*PDstandardNth1gt11 + J22L*J23L*PDstandardNth22gt11 + + J23L*J32L*PDstandardNth23gt11 + J22L*J33L*PDstandardNth23gt11 + + dJ223L*PDstandardNth2gt11 + J32L*J33L*PDstandardNth33gt11 + + dJ323L*PDstandardNth3gt11)) - gtu11*(2*J11L*J21L*PDstandardNth12gt11 + 2*J11L*J31L*PDstandardNth13gt11 + dJ111L*PDstandardNth1gt11 + 2*J21L*J31L*PDstandardNth23gt11 + dJ211L*PDstandardNth2gt11 + dJ311L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J11L) + PDstandardNth22gt11*SQR(J21L) + PDstandardNth33gt11*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt11 + + gtu22*(2*J12L*J22L*PDstandardNth12gt11 + 2*J12L*J32L*PDstandardNth13gt11 + dJ122L*PDstandardNth1gt11 + 2*J22L*J32L*PDstandardNth23gt11 + dJ222L*PDstandardNth2gt11 + dJ322L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J12L) + PDstandardNth22gt11*SQR(J22L) + PDstandardNth33gt11*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt11 + + gtu33*(2*J13L*J23L*PDstandardNth12gt11 + 2*J13L*J33L*PDstandardNth13gt11 + dJ133L*PDstandardNth1gt11 + 2*J23L*J33L*PDstandardNth23gt11 + dJ233L*PDstandardNth2gt11 + dJ333L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J13L) + - PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L)); - - CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + - Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + - Gt111*Gtlu121 + Gt212*Gtlu121 + Gt112*Gtlu122 + Gt222*Gtlu122 + - Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + - Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*Gtlu212 + Gt113*Gtlu213 + - Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + - Gt312*Gtlu322 + Gt313*Gtlu323) + (gt12L*J11L + + PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L))); + + CCTK_REAL Rt12 = Gt122*Gtlu112 + Gt123*Gtlu113 + (Gt111 + + Gt212)*Gtlu121 + Gt222*Gtlu122 + (Gt113 + Gt223)*Gtlu123 + + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + 2*(Gt211*Gtlu221 + Gt212*Gtlu222 + + Gt213*Gtlu223) + Gt311*(Gtlu231 + Gtlu321) + Gt312*(Gtlu131 + Gtlu232 + + Gtlu322) + Gt313*(Gtlu233 + Gtlu323) + 0.5*((gt12L*J11L + gt11L*J12L)*PDstandardNth1Xt1 + (gt22L*J11L + gt12L*J12L)*PDstandardNth1Xt2 + (gt23L*J11L + gt13L*J12L)*PDstandardNth1Xt3 + (gt12L*J21L + @@ -624,14 +623,14 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const dJ333L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J13L) + PDstandardNth22gt12*SQR(J23L) + PDstandardNth33gt12*SQR(J33L))); - CCTK_REAL Rt13 = 0.5*(2*(Gt113*Gtlu111 + Gt123*Gtlu112 + Gt133*Gtlu113 - + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + - Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt113*Gtlu133 + - Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + - Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*Gtlu313 + Gt211*Gtlu321 + - Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + - Gt313*Gtlu333) + (gt13L*J11L + gt11L*J13L)*PDstandardNth1Xt1 + - (gt23L*J11L + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + + CCTK_REAL Rt13 = Gt123*Gtlu112 + Gt133*Gtlu113 + Gt223*Gtlu122 + + Gt233*Gtlu123 + (Gt111 + Gt313)*Gtlu131 + (Gt112 + Gt323)*Gtlu132 + + Gt333*Gtlu133 + Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + + Gtlu133 + Gtlu313) + Gt211*(Gtlu231 + Gtlu321) + Gt212*(Gtlu232 + + Gtlu322) + Gt213*(Gtlu121 + Gtlu233 + Gtlu323) + 2*(Gt311*Gtlu331 + + Gt312*Gtlu332 + Gt313*Gtlu333) + 0.5*((gt13L*J11L + + gt11L*J13L)*PDstandardNth1Xt1 + (gt23L*J11L + + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + gt13L*J13L)*PDstandardNth1Xt3 + (gt13L*J21L + gt11L*J23L)*PDstandardNth2Xt1 + (gt23L*J21L + gt12L*J23L)*PDstandardNth2Xt2 + (gt33L*J21L + @@ -680,50 +679,49 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + J12L*(gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3) + J22L*(gt12L*PDstandardNth2Xt1 + - gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt22 + J12L*J21L*PDstandardNth12gt22 + - J11L*J22L*PDstandardNth12gt22 + J12L*J31L*PDstandardNth13gt22 + - J11L*J32L*PDstandardNth13gt22 + dJ112L*PDstandardNth1gt22 + - J21L*J22L*PDstandardNth22gt22 + J22L*J31L*PDstandardNth23gt22 + - J21L*J32L*PDstandardNth23gt22 + dJ212L*PDstandardNth2gt22 + - J31L*J32L*PDstandardNth33gt22 + dJ312L*PDstandardNth3gt22) - - gtu13*(J11L*J13L*PDstandardNth11gt22 + J13L*J21L*PDstandardNth12gt22 + - J11L*J23L*PDstandardNth12gt22 + J13L*J31L*PDstandardNth13gt22 + - J11L*J33L*PDstandardNth13gt22 + dJ113L*PDstandardNth1gt22 + - J21L*J23L*PDstandardNth22gt22 + J23L*J31L*PDstandardNth23gt22 + - J21L*J33L*PDstandardNth23gt22 + dJ213L*PDstandardNth2gt22 + - J31L*J33L*PDstandardNth33gt22 + dJ313L*PDstandardNth3gt22) - - gtu23*(J12L*J13L*PDstandardNth11gt22 + J13L*J22L*PDstandardNth12gt22 + - J12L*J23L*PDstandardNth12gt22 + J13L*J32L*PDstandardNth13gt22 + - J12L*J33L*PDstandardNth13gt22 + dJ123L*PDstandardNth1gt22 + - J22L*J23L*PDstandardNth22gt22 + J23L*J32L*PDstandardNth23gt22 + - J22L*J33L*PDstandardNth23gt22 + dJ223L*PDstandardNth2gt22 + - J32L*J33L*PDstandardNth33gt22 + dJ323L*PDstandardNth3gt22) + - gt12L*J32L*PDstandardNth3Xt1 + gt22L*J32L*PDstandardNth3Xt2 + - gt23L*J32L*PDstandardNth3Xt3 + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt22 + + gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) + + J32L*(gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + + gt23L*PDstandardNth3Xt3) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt22 + + J12L*J21L*PDstandardNth12gt22 + J11L*J22L*PDstandardNth12gt22 + + J12L*J31L*PDstandardNth13gt22 + J11L*J32L*PDstandardNth13gt22 + + dJ112L*PDstandardNth1gt22 + J21L*J22L*PDstandardNth22gt22 + + J22L*J31L*PDstandardNth23gt22 + J21L*J32L*PDstandardNth23gt22 + + dJ212L*PDstandardNth2gt22 + J31L*J32L*PDstandardNth33gt22 + + dJ312L*PDstandardNth3gt22) + gtu13*(J11L*J13L*PDstandardNth11gt22 + + J13L*J21L*PDstandardNth12gt22 + J11L*J23L*PDstandardNth12gt22 + + J13L*J31L*PDstandardNth13gt22 + J11L*J33L*PDstandardNth13gt22 + + dJ113L*PDstandardNth1gt22 + J21L*J23L*PDstandardNth22gt22 + + J23L*J31L*PDstandardNth23gt22 + J21L*J33L*PDstandardNth23gt22 + + dJ213L*PDstandardNth2gt22 + J31L*J33L*PDstandardNth33gt22 + + dJ313L*PDstandardNth3gt22) + gtu23*(J12L*J13L*PDstandardNth11gt22 + + J13L*J22L*PDstandardNth12gt22 + J12L*J23L*PDstandardNth12gt22 + + J13L*J32L*PDstandardNth13gt22 + J12L*J33L*PDstandardNth13gt22 + + dJ123L*PDstandardNth1gt22 + J22L*J23L*PDstandardNth22gt22 + + J23L*J32L*PDstandardNth23gt22 + J22L*J33L*PDstandardNth23gt22 + + dJ223L*PDstandardNth2gt22 + J32L*J33L*PDstandardNth33gt22 + + dJ323L*PDstandardNth3gt22)) - gtu11*(2*J11L*J21L*PDstandardNth12gt22 + 2*J11L*J31L*PDstandardNth13gt22 + dJ111L*PDstandardNth1gt22 + 2*J21L*J31L*PDstandardNth23gt22 + dJ211L*PDstandardNth2gt22 + dJ311L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J11L) + PDstandardNth22gt22*SQR(J21L) + PDstandardNth33gt22*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt22 + + gtu22*(2*J12L*J22L*PDstandardNth12gt22 + 2*J12L*J32L*PDstandardNth13gt22 + dJ122L*PDstandardNth1gt22 + 2*J22L*J32L*PDstandardNth23gt22 + dJ222L*PDstandardNth2gt22 + dJ322L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J12L) + PDstandardNth22gt22*SQR(J22L) + PDstandardNth33gt22*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt22 + + gtu33*(2*J13L*J23L*PDstandardNth12gt22 + 2*J13L*J33L*PDstandardNth13gt22 + dJ133L*PDstandardNth1gt22 + 2*J23L*J33L*PDstandardNth23gt22 + dJ233L*PDstandardNth2gt22 + dJ333L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J13L) + - PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L)); - - CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 - + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + - Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + - Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + - Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*Gtlu313 + Gt212*Gtlu321 + - Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + - Gt323*Gtlu333) + (gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + + PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L))); + + CCTK_REAL Rt23 = Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + + Gt233*Gtlu223 + (Gt212 + Gt313)*Gtlu231 + (Gt222 + Gt323)*Gtlu232 + + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + Gt122*(Gtlu132 + Gtlu312) + + Gt123*(Gtlu133 + Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + + Gt223*(Gtlu222 + Gtlu233 + Gtlu323) + 2*(Gt312*Gtlu331 + Gt322*Gtlu332 + + Gt323*Gtlu333) + 0.5*((gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + (gt23L*J12L + gt22L*J13L)*PDstandardNth1Xt2 + (gt33L*J12L + gt23L*J13L)*PDstandardNth1Xt3 + (gt13L*J22L + gt12L*J23L)*PDstandardNth2Xt1 + (gt23L*J22L + @@ -773,44 +771,44 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + J13L*(gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3) + J23L*(gt13L*PDstandardNth2Xt1 + - gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt33 + J12L*J21L*PDstandardNth12gt33 + - J11L*J22L*PDstandardNth12gt33 + J12L*J31L*PDstandardNth13gt33 + - J11L*J32L*PDstandardNth13gt33 + dJ112L*PDstandardNth1gt33 + - J21L*J22L*PDstandardNth22gt33 + J22L*J31L*PDstandardNth23gt33 + - J21L*J32L*PDstandardNth23gt33 + dJ212L*PDstandardNth2gt33 + - J31L*J32L*PDstandardNth33gt33 + dJ312L*PDstandardNth3gt33) - - gtu13*(J11L*J13L*PDstandardNth11gt33 + J13L*J21L*PDstandardNth12gt33 + - J11L*J23L*PDstandardNth12gt33 + J13L*J31L*PDstandardNth13gt33 + - J11L*J33L*PDstandardNth13gt33 + dJ113L*PDstandardNth1gt33 + - J21L*J23L*PDstandardNth22gt33 + J23L*J31L*PDstandardNth23gt33 + - J21L*J33L*PDstandardNth23gt33 + dJ213L*PDstandardNth2gt33 + - J31L*J33L*PDstandardNth33gt33 + dJ313L*PDstandardNth3gt33) - - gtu23*(J12L*J13L*PDstandardNth11gt33 + J13L*J22L*PDstandardNth12gt33 + - J12L*J23L*PDstandardNth12gt33 + J13L*J32L*PDstandardNth13gt33 + - J12L*J33L*PDstandardNth13gt33 + dJ123L*PDstandardNth1gt33 + - J22L*J23L*PDstandardNth22gt33 + J23L*J32L*PDstandardNth23gt33 + - J22L*J33L*PDstandardNth23gt33 + dJ223L*PDstandardNth2gt33 + - J32L*J33L*PDstandardNth33gt33 + dJ323L*PDstandardNth3gt33) + - gt13L*J33L*PDstandardNth3Xt1 + gt23L*J33L*PDstandardNth3Xt2 + - gt33L*J33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt33 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) + + J33L*(gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3) + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt33 + + J12L*J21L*PDstandardNth12gt33 + J11L*J22L*PDstandardNth12gt33 + + J12L*J31L*PDstandardNth13gt33 + J11L*J32L*PDstandardNth13gt33 + + dJ112L*PDstandardNth1gt33 + J21L*J22L*PDstandardNth22gt33 + + J22L*J31L*PDstandardNth23gt33 + J21L*J32L*PDstandardNth23gt33 + + dJ212L*PDstandardNth2gt33 + J31L*J32L*PDstandardNth33gt33 + + dJ312L*PDstandardNth3gt33) + gtu13*(J11L*J13L*PDstandardNth11gt33 + + J13L*J21L*PDstandardNth12gt33 + J11L*J23L*PDstandardNth12gt33 + + J13L*J31L*PDstandardNth13gt33 + J11L*J33L*PDstandardNth13gt33 + + dJ113L*PDstandardNth1gt33 + J21L*J23L*PDstandardNth22gt33 + + J23L*J31L*PDstandardNth23gt33 + J21L*J33L*PDstandardNth23gt33 + + dJ213L*PDstandardNth2gt33 + J31L*J33L*PDstandardNth33gt33 + + dJ313L*PDstandardNth3gt33) + gtu23*(J12L*J13L*PDstandardNth11gt33 + + J13L*J22L*PDstandardNth12gt33 + J12L*J23L*PDstandardNth12gt33 + + J13L*J32L*PDstandardNth13gt33 + J12L*J33L*PDstandardNth13gt33 + + dJ123L*PDstandardNth1gt33 + J22L*J23L*PDstandardNth22gt33 + + J23L*J32L*PDstandardNth23gt33 + J22L*J33L*PDstandardNth23gt33 + + dJ223L*PDstandardNth2gt33 + J32L*J33L*PDstandardNth33gt33 + + dJ323L*PDstandardNth3gt33)) - gtu11*(2*J11L*J21L*PDstandardNth12gt33 + 2*J11L*J31L*PDstandardNth13gt33 + dJ111L*PDstandardNth1gt33 + 2*J21L*J31L*PDstandardNth23gt33 + dJ211L*PDstandardNth2gt33 + dJ311L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J11L) + PDstandardNth22gt33*SQR(J21L) + PDstandardNth33gt33*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt33 + + gtu22*(2*J12L*J22L*PDstandardNth12gt33 + 2*J12L*J32L*PDstandardNth13gt33 + dJ122L*PDstandardNth1gt33 + 2*J22L*J32L*PDstandardNth23gt33 + dJ222L*PDstandardNth2gt33 + dJ322L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J12L) + PDstandardNth22gt33*SQR(J22L) + PDstandardNth33gt33*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt33 + + gtu33*(2*J13L*J23L*PDstandardNth12gt33 + 2*J13L*J33L*PDstandardNth13gt33 + dJ133L*PDstandardNth1gt33 + 2*J23L*J33L*PDstandardNth23gt33 + dJ233L*PDstandardNth2gt33 + dJ333L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J13L) + - PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L)); + PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L))); - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); @@ -821,7 +819,7 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const CCTK_REAL cdphi3 = fac1*(J13L*PDstandardNth1phi + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = fac1*((dJ111L - Gt111*J11L - Gt211*J12L - Gt311*J13L)*PDstandardNth1phi + 2*(J11L*(J21L*PDstandardNth12phi + @@ -829,42 +827,34 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const Gt111*J21L - Gt211*J22L - Gt311*J23L)*PDstandardNth2phi + (dJ311L - Gt111*J31L - Gt211*J32L - Gt311*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J11L) + PDstandardNth22phi*SQR(J21L) + - PDstandardNth33phi*SQR(J31L)) + - fac2*(2*(J21L*J31L*PDstandardNth2phi*PDstandardNth3phi + - J11L*PDstandardNth1phi*(J21L*PDstandardNth2phi + - J31L*PDstandardNth3phi)) + SQR(J11L)*SQR(PDstandardNth1phi) + - SQR(J21L)*SQR(PDstandardNth2phi) + SQR(J31L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi212 = fac1*(-(Gt112*J31L) - - Gt212*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ112L - - Gt112*J11L - Gt212*J12L - Gt312*J13L) + fac2*(J12L*J21L + - J11L*J22L)*PDstandardNth2phi + fac2*(J12L*J31L + - J11L*J32L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ212L - - Gt112*J21L - Gt212*J22L - Gt312*J23L) + fac2*(J22L*J31L + - J21L*J32L)*PDstandardNth3phi) + fac1*(J11L*J12L*PDstandardNth11phi + - J12L*J21L*PDstandardNth12phi + J11L*J22L*PDstandardNth12phi + - J12L*J31L*PDstandardNth13phi + J11L*J32L*PDstandardNth13phi + - J21L*J22L*PDstandardNth22phi + J22L*J31L*PDstandardNth23phi + - J21L*J32L*PDstandardNth23phi + J31L*J32L*PDstandardNth33phi + (dJ312L - - Gt312*J33L)*PDstandardNth3phi) + fac2*J11L*J12L*SQR(PDstandardNth1phi) - + fac2*J21L*J22L*SQR(PDstandardNth2phi) + - fac2*J31L*J32L*SQR(PDstandardNth3phi); - - CCTK_REAL cdphi213 = fac1*(-(Gt113*J31L) - - Gt213*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ113L - - Gt113*J11L - Gt213*J12L - Gt313*J13L) + fac2*(J13L*J21L + - J11L*J23L)*PDstandardNth2phi + fac2*(J13L*J31L + - J11L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ213L - - Gt113*J21L - Gt213*J22L - Gt313*J23L) + fac2*(J23L*J31L + - J21L*J33L)*PDstandardNth3phi) + fac1*(J11L*J13L*PDstandardNth11phi + - J13L*J21L*PDstandardNth12phi + J11L*J23L*PDstandardNth12phi + - J13L*J31L*PDstandardNth13phi + J21L*J23L*PDstandardNth22phi + - J23L*J31L*PDstandardNth23phi + J21L*J33L*PDstandardNth23phi + - J31L*J33L*PDstandardNth33phi + dJ313L*PDstandardNth3phi + - J33L*(J11L*PDstandardNth13phi - Gt313*PDstandardNth3phi)) + - fac2*J11L*J13L*SQR(PDstandardNth1phi) + - fac2*J21L*J23L*SQR(PDstandardNth2phi) + - fac2*J31L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J31L)) + fac2*SQR(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); + + CCTK_REAL cdphi212 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi) + + fac1*(J12L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + (dJ112L - Gt112*J11L - Gt212*J12L - + Gt312*J13L)*PDstandardNth1phi + J22L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ212L - Gt112*J21L - Gt212*J22L - + Gt312*J23L)*PDstandardNth2phi + J32L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ312L - Gt112*J31L - Gt212*J32L - + Gt312*J33L)*PDstandardNth3phi); + + CCTK_REAL cdphi213 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ113L - Gt113*J11L - Gt213*J12L - + Gt313*J13L)*PDstandardNth1phi + J23L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ213L - Gt113*J21L - Gt213*J22L - + Gt313*J23L)*PDstandardNth2phi + J33L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ313L - Gt113*J31L - Gt213*J32L - + Gt313*J33L)*PDstandardNth3phi); CCTK_REAL cdphi222 = fac1*((dJ122L - Gt122*J11L - Gt222*J12L - Gt322*J13L)*PDstandardNth1phi + 2*(J12L*(J22L*PDstandardNth12phi + @@ -872,27 +862,21 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const Gt122*J21L - Gt222*J22L - Gt322*J23L)*PDstandardNth2phi + (dJ322L - Gt122*J31L - Gt222*J32L - Gt322*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J12L) + PDstandardNth22phi*SQR(J22L) + - PDstandardNth33phi*SQR(J32L)) + - fac2*(2*(J22L*J32L*PDstandardNth2phi*PDstandardNth3phi + - J12L*PDstandardNth1phi*(J22L*PDstandardNth2phi + - J32L*PDstandardNth3phi)) + SQR(J12L)*SQR(PDstandardNth1phi) + - SQR(J22L)*SQR(PDstandardNth2phi) + SQR(J32L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi223 = fac1*(-(Gt123*J31L) - - Gt223*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ123L - - Gt123*J11L - Gt223*J12L - Gt323*J13L) + fac2*(J13L*J22L + - J12L*J23L)*PDstandardNth2phi + fac2*(J13L*J32L + - J12L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ223L - - Gt123*J21L - Gt223*J22L - Gt323*J23L) + fac2*(J23L*J32L + - J22L*J33L)*PDstandardNth3phi) + fac1*(J12L*J13L*PDstandardNth11phi + - J13L*J22L*PDstandardNth12phi + J12L*J23L*PDstandardNth12phi + - J13L*J32L*PDstandardNth13phi + J22L*J23L*PDstandardNth22phi + - J23L*J32L*PDstandardNth23phi + J22L*J33L*PDstandardNth23phi + - J32L*J33L*PDstandardNth33phi + dJ323L*PDstandardNth3phi + - J33L*(J12L*PDstandardNth13phi - Gt323*PDstandardNth3phi)) + - fac2*J12L*J13L*SQR(PDstandardNth1phi) + - fac2*J22L*J23L*SQR(PDstandardNth2phi) + - fac2*J32L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J32L)) + fac2*SQR(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi); + + CCTK_REAL cdphi223 = fac2*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + + J32L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J12L*PDstandardNth11phi + J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + J12L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ123L - Gt123*J11L - Gt223*J12L - + Gt323*J13L)*PDstandardNth1phi + J23L*(J22L*PDstandardNth22phi + + J32L*PDstandardNth23phi) + (dJ223L - Gt123*J21L - Gt223*J22L - + Gt323*J23L)*PDstandardNth2phi + J33L*(J22L*PDstandardNth23phi + + J32L*PDstandardNth33phi) + (dJ323L - Gt123*J31L - Gt223*J32L - + Gt323*J33L)*PDstandardNth3phi); CCTK_REAL cdphi233 = fac1*((dJ133L - Gt133*J11L - Gt233*J12L - Gt333*J13L)*PDstandardNth1phi + 2*(J13L*(J23L*PDstandardNth12phi + @@ -900,11 +884,8 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const Gt133*J21L - Gt233*J22L - Gt333*J23L)*PDstandardNth2phi + (dJ333L - Gt133*J31L - Gt233*J32L - Gt333*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J13L) + PDstandardNth22phi*SQR(J23L) + - PDstandardNth33phi*SQR(J33L)) + - fac2*(2*(J23L*J33L*PDstandardNth2phi*PDstandardNth3phi + - J13L*PDstandardNth1phi*(J23L*PDstandardNth2phi + - J33L*PDstandardNth3phi)) + SQR(J13L)*SQR(PDstandardNth1phi) + - SQR(J23L)*SQR(PDstandardNth2phi) + SQR(J33L)*SQR(PDstandardNth3phi)); + PDstandardNth33phi*SQR(J33L)) + fac2*SQR(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); CCTK_REAL Rphi11 = -2*(cdphi211 + 2*(-1 + gt11L*gtu11)*SQR(cdphi1) + gt11L*(cdphi211*gtu11 + 4*(cdphi1*(cdphi2*gtu12 + cdphi3*gtu13) + @@ -960,7 +941,8 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const CCTK_REAL Atm33 = At13L*gtu13 + At23L*gtu23 + At33L*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -1076,26 +1058,24 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const epsdiss3*J13L)*PDdissipationNth1At11 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At11 + (epsdiss1*J31L + epsdiss2*J32L + epsdiss3*J33L)*PDdissipationNth3At11 - - 0.6666666666666666666666666666666666666667*At11L*(J12L*PDstandardNth1beta2 - + J13L*PDstandardNth1beta3 + J22L*PDstandardNth2beta2 + - J23L*PDstandardNth2beta3 + J32L*PDstandardNth3beta2 + - J33L*PDstandardNth3beta3) + (beta2L*J12L + - beta3L*J13L)*PDupwindNthAnti1At11 + (beta2L*J22L + - beta3L*J23L)*PDupwindNthAnti2At11 + (beta2L*J32L + - beta3L*J33L)*PDupwindNthAnti3At11 + alphaL*(-2.*(At11L*Atm11 + + 0.666666666666666666666666666667*At11L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J11L*(At11L*PDstandardNth1beta1 + At12L*PDstandardNth1beta2 + + At13L*PDstandardNth1beta3) + J21L*(At11L*PDstandardNth2beta1 + + At12L*PDstandardNth2beta2 + At13L*PDstandardNth2beta3) + + J31L*(At11L*PDstandardNth3beta1 + At12L*PDstandardNth3beta2 + + At13L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1At11 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2At11 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3At11 + alphaL*(-2*(At11L*Atm11 + At12L*Atm21 + At13L*Atm31) + At11L*trKL) + em4phi*(Ats11 - - 0.3333333333333333333333333333333333333333*g11*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTxxL + - 8.377580409572781969233715688745341024526*g11*trS)) + - J11L*(1.333333333333333333333333333333333333333*At11L*PDstandardNth1beta1 - + 2.*(At12L*PDstandardNth1beta2 + At13L*PDstandardNth1beta3) + - beta1L*PDupwindNthAnti1At11 + PDupwindNthSymm1At11*Abs(beta1L)) + - J21L*(1.333333333333333333333333333333333333333*At11L*PDstandardNth2beta1 - + 2.*(At12L*PDstandardNth2beta2 + At13L*PDstandardNth2beta3) + - beta1L*PDupwindNthAnti2At11 + PDupwindNthSymm2At11*Abs(beta1L)) + - J31L*(1.333333333333333333333333333333333333333*At11L*PDstandardNth3beta1 - + 2.*(At12L*PDstandardNth3beta2 + At13L*PDstandardNth3beta3) + - beta1L*PDupwindNthAnti3At11 + PDupwindNthSymm3At11*Abs(beta1L)) + + 0.333333333333333333333333333333*g11*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTxxL - + 0.333333333333333333333333333333*g11*trS)) + (J11L*PDupwindNthSymm1At11 + + J21L*PDupwindNthSymm2At11 + J31L*PDupwindNthSymm3At11)*Abs(beta1L) + (J12L*PDupwindNthSymm1At11 + J22L*PDupwindNthSymm2At11 + J32L*PDupwindNthSymm3At11)*Abs(beta2L) + (J13L*PDupwindNthSymm1At11 + J23L*PDupwindNthSymm2At11 + J33L*PDupwindNthSymm3At11)*Abs(beta3L); @@ -1103,156 +1083,144 @@ static void ML_BSSN_MP_O8_RHS2_Body(cGH const * restrict const cctkGH, int const CCTK_REAL At12rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At12 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At12 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At12 + - (0.3333333333333333333333333333333333333333*At12L*J11L + + epsdiss3*J33L)*PDdissipationNth3At12 + (At12L*J11L + At11L*J12L)*PDstandardNth1beta1 + (At22L*J11L + - 0.3333333333333333333333333333333333333333*At12L*J12L)*PDstandardNth1beta2 - + (At23L*J11L + At13L*J12L - - 0.6666666666666666666666666666666666666667*At12L*J13L)*PDstandardNth1beta3 - + (0.3333333333333333333333333333333333333333*At12L*J21L + + At12L*J12L)*PDstandardNth1beta2 + (At23L*J11L + + At13L*J12L)*PDstandardNth1beta3 + (At12L*J21L + At11L*J22L)*PDstandardNth2beta1 + (At22L*J21L + - 0.3333333333333333333333333333333333333333*At12L*J22L)*PDstandardNth2beta2 - + (At23L*J21L + At13L*J22L - - 0.6666666666666666666666666666666666666667*At12L*J23L)*PDstandardNth2beta3 - + (0.3333333333333333333333333333333333333333*At12L*J31L + + At12L*J22L)*PDstandardNth2beta2 + (At23L*J21L + + At13L*J22L)*PDstandardNth2beta3 + (At12L*J31L + At11L*J32L)*PDstandardNth3beta1 + (At22L*J31L + - 0.3333333333333333333333333333333333333333*At12L*J32L)*PDstandardNth3beta2 - + (At23L*J31L + At13L*J32L - - 0.6666666666666666666666666666666666666667*At12L*J33L)*PDstandardNth3beta3 - + (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At12 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At12 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At12 + - alphaL*(-2.*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + At12L*trKL) + - em4phi*(Ats12 - 0.3333333333333333333333333333333333333333*g12*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTxyL + - 8.377580409572781969233715688745341024526*g12*trS)) + - (J11L*PDupwindNthSymm1At12 + J21L*PDupwindNthSymm2At12 + - J31L*PDupwindNthSymm3At12)*Abs(beta1L) + (J12L*PDupwindNthSymm1At12 + - J22L*PDupwindNthSymm2At12 + J32L*PDupwindNthSymm3At12)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At12 + J23L*PDupwindNthSymm2At12 + - J33L*PDupwindNthSymm3At12)*Abs(beta3L); + At12L*J32L)*PDstandardNth3beta2 + (At23L*J31L + + At13L*J32L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*At12L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At12 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At12 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At12 + + alphaL*(-2*(At11L*Atm12 + At12L*Atm22 + At13L*Atm32) + At12L*trKL) + + em4phi*(Ats12 - 0.333333333333333333333333333333*g12*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTxyL - + 0.333333333333333333333333333333*g12*trS)) + (J11L*PDupwindNthSymm1At12 + + J21L*PDupwindNthSymm2At12 + J31L*PDupwindNthSymm3At12)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At12 + J22L*PDupwindNthSymm2At12 + + J32L*PDupwindNthSymm3At12)*Abs(beta2L) + (J13L*PDupwindNthSymm1At12 + + J23L*PDupwindNthSymm2At12 + J33L*PDupwindNthSymm3At12)*Abs(beta3L); CCTK_REAL At13rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At13 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At13 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At13 + - (0.3333333333333333333333333333333333333333*At13L*J11L + - At11L*J13L)*PDstandardNth1beta1 + (At23L*J11L - - 0.6666666666666666666666666666666666666667*At13L*J12L + + epsdiss3*J33L)*PDdissipationNth3At13 + (At13L*J11L + + At11L*J13L)*PDstandardNth1beta1 + (At23L*J11L + At12L*J13L)*PDstandardNth1beta2 + (At33L*J11L + - 0.3333333333333333333333333333333333333333*At13L*J13L)*PDstandardNth1beta3 - + (0.3333333333333333333333333333333333333333*At13L*J21L + - At11L*J23L)*PDstandardNth2beta1 + (At23L*J21L - - 0.6666666666666666666666666666666666666667*At13L*J22L + + At13L*J13L)*PDstandardNth1beta3 + (At13L*J21L + + At11L*J23L)*PDstandardNth2beta1 + (At23L*J21L + At12L*J23L)*PDstandardNth2beta2 + (At33L*J21L + - 0.3333333333333333333333333333333333333333*At13L*J23L)*PDstandardNth2beta3 - + (0.3333333333333333333333333333333333333333*At13L*J31L + - At11L*J33L)*PDstandardNth3beta1 + (At23L*J31L - - 0.6666666666666666666666666666666666666667*At13L*J32L + + At13L*J23L)*PDstandardNth2beta3 + (At13L*J31L + + At11L*J33L)*PDstandardNth3beta1 + (At23L*J31L + At12L*J33L)*PDstandardNth3beta2 + (At33L*J31L + - 0.3333333333333333333333333333333333333333*At13L*J33L)*PDstandardNth3beta3 - + (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At13 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At13 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At13 + - alphaL*(-2.*(At11L*Atm13 + At12L*Atm23 + At13L*Atm33) + At13L*trKL) + - em4phi*(Ats13 - 0.3333333333333333333333333333333333333333*g13*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTxzL + - 8.377580409572781969233715688745341024526*g13*trS)) + - (J11L*PDupwindNthSymm1At13 + J21L*PDupwindNthSymm2At13 + - J31L*PDupwindNthSymm3At13)*Abs(beta1L) + (J12L*PDupwindNthSymm1At13 + - J22L*PDupwindNthSymm2At13 + J32L*PDupwindNthSymm3At13)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At13 + J23L*PDupwindNthSymm2At13 + - J33L*PDupwindNthSymm3At13)*Abs(beta3L); + At13L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*At13L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At13 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At13 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At13 + + alphaL*(-2*(At11L*Atm13 + At12L*Atm23 + At13L*Atm33) + At13L*trKL) + + em4phi*(Ats13 - 0.333333333333333333333333333333*g13*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTxzL - + 0.333333333333333333333333333333*g13*trS)) + (J11L*PDupwindNthSymm1At13 + + J21L*PDupwindNthSymm2At13 + J31L*PDupwindNthSymm3At13)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At13 + J22L*PDupwindNthSymm2At13 + + J32L*PDupwindNthSymm3At13)*Abs(beta2L) + (J13L*PDupwindNthSymm1At13 + + J23L*PDupwindNthSymm2At13 + J33L*PDupwindNthSymm3At13)*Abs(beta3L); CCTK_REAL At22rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At22 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At22 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At22 + - (-0.6666666666666666666666666666666666666667*At22L*J11L + - 2.*At12L*J12L)*PDstandardNth1beta1 - - 0.6666666666666666666666666666666666666667*At22L*(J13L*PDstandardNth1beta3 - + J21L*PDstandardNth2beta1 + J23L*PDstandardNth2beta3 + - J31L*PDstandardNth3beta1 + J33L*PDstandardNth3beta3) + (beta1L*J11L + - beta3L*J13L)*PDupwindNthAnti1At22 + (beta1L*J21L + - beta3L*J23L)*PDupwindNthAnti2At22 + (beta1L*J31L + - beta3L*J33L)*PDupwindNthAnti3At22 + alphaL*(-2.*(At12L*Atm12 + + epsdiss3*J33L)*PDdissipationNth3At22 - + 0.666666666666666666666666666667*At22L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J12L*(At12L*PDstandardNth1beta1 + At22L*PDstandardNth1beta2 + + At23L*PDstandardNth1beta3) + J22L*(At12L*PDstandardNth2beta1 + + At22L*PDstandardNth2beta2 + At23L*PDstandardNth2beta3) + + J32L*(At12L*PDstandardNth3beta1 + At22L*PDstandardNth3beta2 + + At23L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1At22 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2At22 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3At22 + alphaL*(-2*(At12L*Atm12 + At22L*Atm22 + At23L*Atm32) + At22L*trKL) + em4phi*(Ats22 - - 0.3333333333333333333333333333333333333333*g22*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTyyL + - 8.377580409572781969233715688745341024526*g22*trS)) + - (J11L*PDupwindNthSymm1At22 + J21L*PDupwindNthSymm2At22 + - J31L*PDupwindNthSymm3At22)*Abs(beta1L) + - J12L*(1.333333333333333333333333333333333333333*At22L*PDstandardNth1beta2 - + 2.*At23L*PDstandardNth1beta3 + beta2L*PDupwindNthAnti1At22 + - PDupwindNthSymm1At22*Abs(beta2L)) + - J22L*(1.333333333333333333333333333333333333333*At22L*PDstandardNth2beta2 - + 2.*(At12L*PDstandardNth2beta1 + At23L*PDstandardNth2beta3) + - beta2L*PDupwindNthAnti2At22 + PDupwindNthSymm2At22*Abs(beta2L)) + - J32L*(1.333333333333333333333333333333333333333*At22L*PDstandardNth3beta2 - + 2.*(At12L*PDstandardNth3beta1 + At23L*PDstandardNth3beta3) + - beta2L*PDupwindNthAnti3At22 + PDupwindNthSymm3At22*Abs(beta2L)) + - (J13L*PDupwindNthSymm1At22 + J23L*PDupwindNthSymm2At22 + - J33L*PDupwindNthSymm3At22)*Abs(beta3L); + 0.333333333333333333333333333333*g22*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTyyL - + 0.333333333333333333333333333333*g22*trS)) + (J11L*PDupwindNthSymm1At22 + + J21L*PDupwindNthSymm2At22 + J31L*PDupwindNthSymm3At22)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At22 + J22L*PDupwindNthSymm2At22 + + J32L*PDupwindNthSymm3At22)*Abs(beta2L) + (J13L*PDupwindNthSymm1At22 + + J23L*PDupwindNthSymm2At22 + J33L*PDupwindNthSymm3At22)*Abs(beta3L); CCTK_REAL At23rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At23 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At23 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At23 + - (-0.6666666666666666666666666666666666666667*At23L*J11L + At13L*J12L + - At12L*J13L)*PDstandardNth1beta1 + - (0.3333333333333333333333333333333333333333*At23L*J12L + + epsdiss3*J33L)*PDdissipationNth3At23 + (At13L*J12L + + At12L*J13L)*PDstandardNth1beta1 + (At23L*J12L + At22L*J13L)*PDstandardNth1beta2 + (At33L*J12L + - 0.3333333333333333333333333333333333333333*At23L*J13L)*PDstandardNth1beta3 - + (-0.6666666666666666666666666666666666666667*At23L*J21L + At13L*J22L - + At12L*J23L)*PDstandardNth2beta1 + - (0.3333333333333333333333333333333333333333*At23L*J22L + + At23L*J13L)*PDstandardNth1beta3 + (At13L*J22L + + At12L*J23L)*PDstandardNth2beta1 + (At23L*J22L + At22L*J23L)*PDstandardNth2beta2 + (At33L*J22L + - 0.3333333333333333333333333333333333333333*At23L*J23L)*PDstandardNth2beta3 - + (-0.6666666666666666666666666666666666666667*At23L*J31L + At13L*J32L - + At12L*J33L)*PDstandardNth3beta1 + - (0.3333333333333333333333333333333333333333*At23L*J32L + + At23L*J23L)*PDstandardNth2beta3 + (At13L*J32L + + At12L*J33L)*PDstandardNth3beta1 + (At23L*J32L + At22L*J33L)*PDstandardNth3beta2 + (At33L*J32L + - 0.3333333333333333333333333333333333333333*At23L*J33L)*PDstandardNth3beta3 - + (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At23 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At23 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At23 + - alphaL*(-2.*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + At23L*trKL) + - em4phi*(Ats23 - 0.3333333333333333333333333333333333333333*g23*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTyzL + - 8.377580409572781969233715688745341024526*g23*trS)) + - (J11L*PDupwindNthSymm1At23 + J21L*PDupwindNthSymm2At23 + - J31L*PDupwindNthSymm3At23)*Abs(beta1L) + (J12L*PDupwindNthSymm1At23 + - J22L*PDupwindNthSymm2At23 + J32L*PDupwindNthSymm3At23)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At23 + J23L*PDupwindNthSymm2At23 + - J33L*PDupwindNthSymm3At23)*Abs(beta3L); - - CCTK_REAL At33rhsL = -2.*alphaL*(At13L*Atm13 + At23L*Atm23 + - At33L*Atm33) + (epsdiss1*J11L + epsdiss2*J12L + + At23L*J33L)*PDstandardNth3beta3 - + 0.666666666666666666666666666667*At23L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + (beta1L*J11L + + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At23 + (beta1L*J21L + + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At23 + (beta1L*J31L + + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At23 + + alphaL*(-2*(At12L*Atm13 + At22L*Atm23 + At23L*Atm33) + At23L*trKL) + + em4phi*(Ats23 - 0.333333333333333333333333333333*g23*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTyzL - + 0.333333333333333333333333333333*g23*trS)) + (J11L*PDupwindNthSymm1At23 + + J21L*PDupwindNthSymm2At23 + J31L*PDupwindNthSymm3At23)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At23 + J22L*PDupwindNthSymm2At23 + + J32L*PDupwindNthSymm3At23)*Abs(beta2L) + (J13L*PDupwindNthSymm1At23 + + J23L*PDupwindNthSymm2At23 + J33L*PDupwindNthSymm3At23)*Abs(beta3L); + + CCTK_REAL At33rhsL = (epsdiss1*J11L + epsdiss2*J12L + epsdiss3*J13L)*PDdissipationNth1At33 + (epsdiss1*J21L + epsdiss2*J22L + epsdiss3*J23L)*PDdissipationNth2At33 + (epsdiss1*J31L + epsdiss2*J32L + - epsdiss3*J33L)*PDdissipationNth3At33 + - (-0.6666666666666666666666666666666666666667*At33L*J11L + - 2.*At13L*J13L)*PDstandardNth1beta1 + - (-0.6666666666666666666666666666666666666667*At33L*J12L + - 2.*At23L*J13L)*PDstandardNth1beta2 + - 2.*(J23L*(At13L*PDstandardNth2beta1 + At23L*PDstandardNth2beta2) + - J33L*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2)) + - (beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1At33 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2At33 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3At33 + - At33L*(-0.6666666666666666666666666666666666666667*(J21L*PDstandardNth2beta1 - + J22L*PDstandardNth2beta2 + J31L*PDstandardNth3beta1 + - J32L*PDstandardNth3beta2) + - 1.333333333333333333333333333333333333333*(J13L*PDstandardNth1beta3 + - J23L*PDstandardNth2beta3 + J33L*PDstandardNth3beta3) + alphaL*trKL) + - em4phi*(Ats33 - 0.3333333333333333333333333333333333333333*g33*trAts + - alphaL*(-25.13274122871834590770114706623602307358*eTzzL + - 8.377580409572781969233715688745341024526*g33*trS)) + - (J11L*PDupwindNthSymm1At33 + J21L*PDupwindNthSymm2At33 + - J31L*PDupwindNthSymm3At33)*Abs(beta1L) + (J12L*PDupwindNthSymm1At33 + - J22L*PDupwindNthSymm2At33 + J32L*PDupwindNthSymm3At33)*Abs(beta2L) + - (J13L*PDupwindNthSymm1At33 + J23L*PDupwindNthSymm2At33 + - J33L*PDupwindNthSymm3At33)*Abs(beta3L); + epsdiss3*J33L)*PDdissipationNth3At33 - + 0.666666666666666666666666666667*At33L*(J11L*PDstandardNth1beta1 + + J12L*PDstandardNth1beta2 + J13L*PDstandardNth1beta3 + + J21L*PDstandardNth2beta1 + J22L*PDstandardNth2beta2 + + J23L*PDstandardNth2beta3 + J31L*PDstandardNth3beta1 + + J32L*PDstandardNth3beta2 + J33L*PDstandardNth3beta3) + + 2*(J13L*(At13L*PDstandardNth1beta1 + At23L*PDstandardNth1beta2 + + At33L*PDstandardNth1beta3) + J23L*(At13L*PDstandardNth2beta1 + + At23L*PDstandardNth2beta2 + At33L*PDstandardNth2beta3) + + J33L*(At13L*PDstandardNth3beta1 + At23L*PDstandardNth3beta2 + + At33L*PDstandardNth3beta3)) + (beta1L*J11L + beta2L*J12L + + beta3L*J13L)*PDupwindNthAnti1At33 + (beta1L*J21L + beta2L*J22L + + beta3L*J23L)*PDupwindNthAnti2At33 + (beta1L*J31L + beta2L*J32L + + beta3L*J33L)*PDupwindNthAnti3At33 + alphaL*(-2*(At13L*Atm13 + + At23L*Atm23 + At33L*Atm33) + At33L*trKL) + em4phi*(Ats33 - + 0.333333333333333333333333333333*g33*trAts - + 25.13274122871834590770114706623602307358*alphaL*(eTzzL - + 0.333333333333333333333333333333*g33*trS)) + (J11L*PDupwindNthSymm1At33 + + J21L*PDupwindNthSymm2At33 + J31L*PDupwindNthSymm3At33)*Abs(beta1L) + + (J12L*PDupwindNthSymm1At33 + J22L*PDupwindNthSymm2At33 + + J32L*PDupwindNthSymm3At33)*Abs(beta2L) + (J13L*PDupwindNthSymm1At33 + + J23L*PDupwindNthSymm2At33 + J33L*PDupwindNthSymm3At33)*Abs(beta3L); /* Copy local copies back to grid functions */ At11rhs[index] = At11rhsL; diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_boundary.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_boundary.cc index 09e98f3..06f8af2 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_boundary.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_boundary.cc @@ -147,7 +147,7 @@ static void ML_BSSN_MP_O8_boundary_Body(cGH const * restrict const cctkGH, int c /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints1.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints1.cc index 3083d34..1eb0105 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints1.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints1.cc @@ -460,50 +460,49 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + J11L*(gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + gt13L*PDstandardNth1Xt3) + J21L*(gt11L*PDstandardNth2Xt1 + - gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt11 + J12L*J21L*PDstandardNth12gt11 + - J11L*J22L*PDstandardNth12gt11 + J12L*J31L*PDstandardNth13gt11 + - J11L*J32L*PDstandardNth13gt11 + dJ112L*PDstandardNth1gt11 + - J21L*J22L*PDstandardNth22gt11 + J22L*J31L*PDstandardNth23gt11 + - J21L*J32L*PDstandardNth23gt11 + dJ212L*PDstandardNth2gt11 + - J31L*J32L*PDstandardNth33gt11 + dJ312L*PDstandardNth3gt11) - - gtu13*(J11L*J13L*PDstandardNth11gt11 + J13L*J21L*PDstandardNth12gt11 + - J11L*J23L*PDstandardNth12gt11 + J13L*J31L*PDstandardNth13gt11 + - J11L*J33L*PDstandardNth13gt11 + dJ113L*PDstandardNth1gt11 + - J21L*J23L*PDstandardNth22gt11 + J23L*J31L*PDstandardNth23gt11 + - J21L*J33L*PDstandardNth23gt11 + dJ213L*PDstandardNth2gt11 + - J31L*J33L*PDstandardNth33gt11 + dJ313L*PDstandardNth3gt11) - - gtu23*(J12L*J13L*PDstandardNth11gt11 + J13L*J22L*PDstandardNth12gt11 + - J12L*J23L*PDstandardNth12gt11 + J13L*J32L*PDstandardNth13gt11 + - J12L*J33L*PDstandardNth13gt11 + dJ123L*PDstandardNth1gt11 + - J22L*J23L*PDstandardNth22gt11 + J23L*J32L*PDstandardNth23gt11 + - J22L*J33L*PDstandardNth23gt11 + dJ223L*PDstandardNth2gt11 + - J32L*J33L*PDstandardNth33gt11 + dJ323L*PDstandardNth3gt11) + - gt11L*J31L*PDstandardNth3Xt1 + gt12L*J31L*PDstandardNth3Xt2 + - gt13L*J31L*PDstandardNth3Xt3 + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt11 + + gt12L*PDstandardNth2Xt2 + gt13L*PDstandardNth2Xt3) + + J31L*(gt11L*PDstandardNth3Xt1 + gt12L*PDstandardNth3Xt2 + + gt13L*PDstandardNth3Xt3) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt11 + + J12L*J21L*PDstandardNth12gt11 + J11L*J22L*PDstandardNth12gt11 + + J12L*J31L*PDstandardNth13gt11 + J11L*J32L*PDstandardNth13gt11 + + dJ112L*PDstandardNth1gt11 + J21L*J22L*PDstandardNth22gt11 + + J22L*J31L*PDstandardNth23gt11 + J21L*J32L*PDstandardNth23gt11 + + dJ212L*PDstandardNth2gt11 + J31L*J32L*PDstandardNth33gt11 + + dJ312L*PDstandardNth3gt11) + gtu13*(J11L*J13L*PDstandardNth11gt11 + + J13L*J21L*PDstandardNth12gt11 + J11L*J23L*PDstandardNth12gt11 + + J13L*J31L*PDstandardNth13gt11 + J11L*J33L*PDstandardNth13gt11 + + dJ113L*PDstandardNth1gt11 + J21L*J23L*PDstandardNth22gt11 + + J23L*J31L*PDstandardNth23gt11 + J21L*J33L*PDstandardNth23gt11 + + dJ213L*PDstandardNth2gt11 + J31L*J33L*PDstandardNth33gt11 + + dJ313L*PDstandardNth3gt11) + gtu23*(J12L*J13L*PDstandardNth11gt11 + + J13L*J22L*PDstandardNth12gt11 + J12L*J23L*PDstandardNth12gt11 + + J13L*J32L*PDstandardNth13gt11 + J12L*J33L*PDstandardNth13gt11 + + dJ123L*PDstandardNth1gt11 + J22L*J23L*PDstandardNth22gt11 + + J23L*J32L*PDstandardNth23gt11 + J22L*J33L*PDstandardNth23gt11 + + dJ223L*PDstandardNth2gt11 + J32L*J33L*PDstandardNth33gt11 + + dJ323L*PDstandardNth3gt11)) - gtu11*(2*J11L*J21L*PDstandardNth12gt11 + 2*J11L*J31L*PDstandardNth13gt11 + dJ111L*PDstandardNth1gt11 + 2*J21L*J31L*PDstandardNth23gt11 + dJ211L*PDstandardNth2gt11 + dJ311L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J11L) + PDstandardNth22gt11*SQR(J21L) + PDstandardNth33gt11*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt11 + + gtu22*(2*J12L*J22L*PDstandardNth12gt11 + 2*J12L*J32L*PDstandardNth13gt11 + dJ122L*PDstandardNth1gt11 + 2*J22L*J32L*PDstandardNth23gt11 + dJ222L*PDstandardNth2gt11 + dJ322L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J12L) + PDstandardNth22gt11*SQR(J22L) + PDstandardNth33gt11*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt11 + + gtu33*(2*J13L*J23L*PDstandardNth12gt11 + 2*J13L*J33L*PDstandardNth13gt11 + dJ133L*PDstandardNth1gt11 + 2*J23L*J33L*PDstandardNth23gt11 + dJ233L*PDstandardNth2gt11 + dJ333L*PDstandardNth3gt11 + PDstandardNth11gt11*SQR(J13L) + - PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L)); - - CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + - Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + - Gt111*Gtlu121 + Gt212*Gtlu121 + Gt112*Gtlu122 + Gt222*Gtlu122 + - Gt113*Gtlu123 + Gt223*Gtlu123 + Gt312*Gtlu131 + Gt322*Gtlu132 + - Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*Gtlu212 + Gt113*Gtlu213 + - Gt311*Gtlu231 + Gt312*Gtlu232 + Gt313*Gtlu233 + Gt311*Gtlu321 + - Gt312*Gtlu322 + Gt313*Gtlu323) + (gt12L*J11L + + PDstandardNth22gt11*SQR(J23L) + PDstandardNth33gt11*SQR(J33L))); + + CCTK_REAL Rt12 = Gt122*Gtlu112 + Gt123*Gtlu113 + (Gt111 + + Gt212)*Gtlu121 + Gt222*Gtlu122 + (Gt113 + Gt223)*Gtlu123 + + Gt322*Gtlu132 + Gt323*Gtlu133 + Gt111*Gtlu211 + Gt112*(Gtlu111 + + Gtlu122 + Gtlu212) + Gt113*Gtlu213 + 2*(Gt211*Gtlu221 + Gt212*Gtlu222 + + Gt213*Gtlu223) + Gt311*(Gtlu231 + Gtlu321) + Gt312*(Gtlu131 + Gtlu232 + + Gtlu322) + Gt313*(Gtlu233 + Gtlu323) + 0.5*((gt12L*J11L + gt11L*J12L)*PDstandardNth1Xt1 + (gt22L*J11L + gt12L*J12L)*PDstandardNth1Xt2 + (gt23L*J11L + gt13L*J12L)*PDstandardNth1Xt3 + (gt12L*J21L + @@ -548,14 +547,14 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i dJ333L*PDstandardNth3gt12 + PDstandardNth11gt12*SQR(J13L) + PDstandardNth22gt12*SQR(J23L) + PDstandardNth33gt12*SQR(J33L))); - CCTK_REAL Rt13 = 0.5*(2*(Gt113*Gtlu111 + Gt123*Gtlu112 + Gt133*Gtlu113 - + Gt213*Gtlu121 + Gt223*Gtlu122 + Gt233*Gtlu123 + Gt111*Gtlu131 + - Gt313*Gtlu131 + Gt112*Gtlu132 + Gt323*Gtlu132 + Gt113*Gtlu133 + - Gt333*Gtlu133 + Gt211*Gtlu231 + Gt212*Gtlu232 + Gt213*Gtlu233 + - Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*Gtlu313 + Gt211*Gtlu321 + - Gt212*Gtlu322 + Gt213*Gtlu323) + 4*(Gt311*Gtlu331 + Gt312*Gtlu332 + - Gt313*Gtlu333) + (gt13L*J11L + gt11L*J13L)*PDstandardNth1Xt1 + - (gt23L*J11L + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + + CCTK_REAL Rt13 = Gt123*Gtlu112 + Gt133*Gtlu113 + Gt223*Gtlu122 + + Gt233*Gtlu123 + (Gt111 + Gt313)*Gtlu131 + (Gt112 + Gt323)*Gtlu132 + + Gt333*Gtlu133 + Gt111*Gtlu311 + Gt112*Gtlu312 + Gt113*(Gtlu111 + + Gtlu133 + Gtlu313) + Gt211*(Gtlu231 + Gtlu321) + Gt212*(Gtlu232 + + Gtlu322) + Gt213*(Gtlu121 + Gtlu233 + Gtlu323) + 2*(Gt311*Gtlu331 + + Gt312*Gtlu332 + Gt313*Gtlu333) + 0.5*((gt13L*J11L + + gt11L*J13L)*PDstandardNth1Xt1 + (gt23L*J11L + + gt12L*J13L)*PDstandardNth1Xt2 + (gt33L*J11L + gt13L*J13L)*PDstandardNth1Xt3 + (gt13L*J21L + gt11L*J23L)*PDstandardNth2Xt1 + (gt23L*J21L + gt12L*J23L)*PDstandardNth2Xt2 + (gt33L*J21L + @@ -604,50 +603,49 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + J12L*(gt12L*PDstandardNth1Xt1 + gt22L*PDstandardNth1Xt2 + gt23L*PDstandardNth1Xt3) + J22L*(gt12L*PDstandardNth2Xt1 + - gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt22 + J12L*J21L*PDstandardNth12gt22 + - J11L*J22L*PDstandardNth12gt22 + J12L*J31L*PDstandardNth13gt22 + - J11L*J32L*PDstandardNth13gt22 + dJ112L*PDstandardNth1gt22 + - J21L*J22L*PDstandardNth22gt22 + J22L*J31L*PDstandardNth23gt22 + - J21L*J32L*PDstandardNth23gt22 + dJ212L*PDstandardNth2gt22 + - J31L*J32L*PDstandardNth33gt22 + dJ312L*PDstandardNth3gt22) - - gtu13*(J11L*J13L*PDstandardNth11gt22 + J13L*J21L*PDstandardNth12gt22 + - J11L*J23L*PDstandardNth12gt22 + J13L*J31L*PDstandardNth13gt22 + - J11L*J33L*PDstandardNth13gt22 + dJ113L*PDstandardNth1gt22 + - J21L*J23L*PDstandardNth22gt22 + J23L*J31L*PDstandardNth23gt22 + - J21L*J33L*PDstandardNth23gt22 + dJ213L*PDstandardNth2gt22 + - J31L*J33L*PDstandardNth33gt22 + dJ313L*PDstandardNth3gt22) - - gtu23*(J12L*J13L*PDstandardNth11gt22 + J13L*J22L*PDstandardNth12gt22 + - J12L*J23L*PDstandardNth12gt22 + J13L*J32L*PDstandardNth13gt22 + - J12L*J33L*PDstandardNth13gt22 + dJ123L*PDstandardNth1gt22 + - J22L*J23L*PDstandardNth22gt22 + J23L*J32L*PDstandardNth23gt22 + - J22L*J33L*PDstandardNth23gt22 + dJ223L*PDstandardNth2gt22 + - J32L*J33L*PDstandardNth33gt22 + dJ323L*PDstandardNth3gt22) + - gt12L*J32L*PDstandardNth3Xt1 + gt22L*J32L*PDstandardNth3Xt2 + - gt23L*J32L*PDstandardNth3Xt3 + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt22 + + gt22L*PDstandardNth2Xt2 + gt23L*PDstandardNth2Xt3) + + J32L*(gt12L*PDstandardNth3Xt1 + gt22L*PDstandardNth3Xt2 + + gt23L*PDstandardNth3Xt3) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt22 + + J12L*J21L*PDstandardNth12gt22 + J11L*J22L*PDstandardNth12gt22 + + J12L*J31L*PDstandardNth13gt22 + J11L*J32L*PDstandardNth13gt22 + + dJ112L*PDstandardNth1gt22 + J21L*J22L*PDstandardNth22gt22 + + J22L*J31L*PDstandardNth23gt22 + J21L*J32L*PDstandardNth23gt22 + + dJ212L*PDstandardNth2gt22 + J31L*J32L*PDstandardNth33gt22 + + dJ312L*PDstandardNth3gt22) + gtu13*(J11L*J13L*PDstandardNth11gt22 + + J13L*J21L*PDstandardNth12gt22 + J11L*J23L*PDstandardNth12gt22 + + J13L*J31L*PDstandardNth13gt22 + J11L*J33L*PDstandardNth13gt22 + + dJ113L*PDstandardNth1gt22 + J21L*J23L*PDstandardNth22gt22 + + J23L*J31L*PDstandardNth23gt22 + J21L*J33L*PDstandardNth23gt22 + + dJ213L*PDstandardNth2gt22 + J31L*J33L*PDstandardNth33gt22 + + dJ313L*PDstandardNth3gt22) + gtu23*(J12L*J13L*PDstandardNth11gt22 + + J13L*J22L*PDstandardNth12gt22 + J12L*J23L*PDstandardNth12gt22 + + J13L*J32L*PDstandardNth13gt22 + J12L*J33L*PDstandardNth13gt22 + + dJ123L*PDstandardNth1gt22 + J22L*J23L*PDstandardNth22gt22 + + J23L*J32L*PDstandardNth23gt22 + J22L*J33L*PDstandardNth23gt22 + + dJ223L*PDstandardNth2gt22 + J32L*J33L*PDstandardNth33gt22 + + dJ323L*PDstandardNth3gt22)) - gtu11*(2*J11L*J21L*PDstandardNth12gt22 + 2*J11L*J31L*PDstandardNth13gt22 + dJ111L*PDstandardNth1gt22 + 2*J21L*J31L*PDstandardNth23gt22 + dJ211L*PDstandardNth2gt22 + dJ311L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J11L) + PDstandardNth22gt22*SQR(J21L) + PDstandardNth33gt22*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt22 + + gtu22*(2*J12L*J22L*PDstandardNth12gt22 + 2*J12L*J32L*PDstandardNth13gt22 + dJ122L*PDstandardNth1gt22 + 2*J22L*J32L*PDstandardNth23gt22 + dJ222L*PDstandardNth2gt22 + dJ322L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J12L) + PDstandardNth22gt22*SQR(J22L) + PDstandardNth33gt22*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt22 + + gtu33*(2*J13L*J23L*PDstandardNth12gt22 + 2*J13L*J33L*PDstandardNth13gt22 + dJ133L*PDstandardNth1gt22 + 2*J23L*J33L*PDstandardNth23gt22 + dJ233L*PDstandardNth2gt22 + dJ333L*PDstandardNth3gt22 + PDstandardNth11gt22*SQR(J13L) + - PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L)); - - CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 - + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + - Gt223*Gtlu222 + Gt233*Gtlu223 + Gt212*Gtlu231 + Gt313*Gtlu231 + - Gt222*Gtlu232 + Gt323*Gtlu232 + Gt223*Gtlu233 + Gt333*Gtlu233 + - Gt112*Gtlu311 + Gt122*Gtlu312 + Gt123*Gtlu313 + Gt212*Gtlu321 + - Gt222*Gtlu322 + Gt223*Gtlu323) + 4*(Gt312*Gtlu331 + Gt322*Gtlu332 + - Gt323*Gtlu333) + (gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + + PDstandardNth22gt22*SQR(J23L) + PDstandardNth33gt22*SQR(J33L))); + + CCTK_REAL Rt23 = Gt113*Gtlu211 + Gt133*Gtlu213 + Gt213*Gtlu221 + + Gt233*Gtlu223 + (Gt212 + Gt313)*Gtlu231 + (Gt222 + Gt323)*Gtlu232 + + Gt333*Gtlu233 + Gt112*(Gtlu131 + Gtlu311) + Gt122*(Gtlu132 + Gtlu312) + + Gt123*(Gtlu133 + Gtlu212 + Gtlu313) + Gt212*Gtlu321 + Gt222*Gtlu322 + + Gt223*(Gtlu222 + Gtlu233 + Gtlu323) + 2*(Gt312*Gtlu331 + Gt322*Gtlu332 + + Gt323*Gtlu333) + 0.5*((gt13L*J12L + gt12L*J13L)*PDstandardNth1Xt1 + (gt23L*J12L + gt22L*J13L)*PDstandardNth1Xt2 + (gt33L*J12L + gt23L*J13L)*PDstandardNth1Xt3 + (gt13L*J22L + gt12L*J23L)*PDstandardNth2Xt1 + (gt23L*J22L + @@ -697,44 +695,44 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + J13L*(gt13L*PDstandardNth1Xt1 + gt23L*PDstandardNth1Xt2 + gt33L*PDstandardNth1Xt3) + J23L*(gt13L*PDstandardNth2Xt1 + - gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) - - gtu12*(J11L*J12L*PDstandardNth11gt33 + J12L*J21L*PDstandardNth12gt33 + - J11L*J22L*PDstandardNth12gt33 + J12L*J31L*PDstandardNth13gt33 + - J11L*J32L*PDstandardNth13gt33 + dJ112L*PDstandardNth1gt33 + - J21L*J22L*PDstandardNth22gt33 + J22L*J31L*PDstandardNth23gt33 + - J21L*J32L*PDstandardNth23gt33 + dJ212L*PDstandardNth2gt33 + - J31L*J32L*PDstandardNth33gt33 + dJ312L*PDstandardNth3gt33) - - gtu13*(J11L*J13L*PDstandardNth11gt33 + J13L*J21L*PDstandardNth12gt33 + - J11L*J23L*PDstandardNth12gt33 + J13L*J31L*PDstandardNth13gt33 + - J11L*J33L*PDstandardNth13gt33 + dJ113L*PDstandardNth1gt33 + - J21L*J23L*PDstandardNth22gt33 + J23L*J31L*PDstandardNth23gt33 + - J21L*J33L*PDstandardNth23gt33 + dJ213L*PDstandardNth2gt33 + - J31L*J33L*PDstandardNth33gt33 + dJ313L*PDstandardNth3gt33) - - gtu23*(J12L*J13L*PDstandardNth11gt33 + J13L*J22L*PDstandardNth12gt33 + - J12L*J23L*PDstandardNth12gt33 + J13L*J32L*PDstandardNth13gt33 + - J12L*J33L*PDstandardNth13gt33 + dJ123L*PDstandardNth1gt33 + - J22L*J23L*PDstandardNth22gt33 + J23L*J32L*PDstandardNth23gt33 + - J22L*J33L*PDstandardNth23gt33 + dJ223L*PDstandardNth2gt33 + - J32L*J33L*PDstandardNth33gt33 + dJ323L*PDstandardNth3gt33) + - gt13L*J33L*PDstandardNth3Xt1 + gt23L*J33L*PDstandardNth3Xt2 + - gt33L*J33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 - - 0.5*gtu11*(2*J11L*J21L*PDstandardNth12gt33 + + gt23L*PDstandardNth2Xt2 + gt33L*PDstandardNth2Xt3) + + J33L*(gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3) + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3 + + 0.5*(-2*(gtu12*(J11L*J12L*PDstandardNth11gt33 + + J12L*J21L*PDstandardNth12gt33 + J11L*J22L*PDstandardNth12gt33 + + J12L*J31L*PDstandardNth13gt33 + J11L*J32L*PDstandardNth13gt33 + + dJ112L*PDstandardNth1gt33 + J21L*J22L*PDstandardNth22gt33 + + J22L*J31L*PDstandardNth23gt33 + J21L*J32L*PDstandardNth23gt33 + + dJ212L*PDstandardNth2gt33 + J31L*J32L*PDstandardNth33gt33 + + dJ312L*PDstandardNth3gt33) + gtu13*(J11L*J13L*PDstandardNth11gt33 + + J13L*J21L*PDstandardNth12gt33 + J11L*J23L*PDstandardNth12gt33 + + J13L*J31L*PDstandardNth13gt33 + J11L*J33L*PDstandardNth13gt33 + + dJ113L*PDstandardNth1gt33 + J21L*J23L*PDstandardNth22gt33 + + J23L*J31L*PDstandardNth23gt33 + J21L*J33L*PDstandardNth23gt33 + + dJ213L*PDstandardNth2gt33 + J31L*J33L*PDstandardNth33gt33 + + dJ313L*PDstandardNth3gt33) + gtu23*(J12L*J13L*PDstandardNth11gt33 + + J13L*J22L*PDstandardNth12gt33 + J12L*J23L*PDstandardNth12gt33 + + J13L*J32L*PDstandardNth13gt33 + J12L*J33L*PDstandardNth13gt33 + + dJ123L*PDstandardNth1gt33 + J22L*J23L*PDstandardNth22gt33 + + J23L*J32L*PDstandardNth23gt33 + J22L*J33L*PDstandardNth23gt33 + + dJ223L*PDstandardNth2gt33 + J32L*J33L*PDstandardNth33gt33 + + dJ323L*PDstandardNth3gt33)) - gtu11*(2*J11L*J21L*PDstandardNth12gt33 + 2*J11L*J31L*PDstandardNth13gt33 + dJ111L*PDstandardNth1gt33 + 2*J21L*J31L*PDstandardNth23gt33 + dJ211L*PDstandardNth2gt33 + dJ311L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J11L) + PDstandardNth22gt33*SQR(J21L) + PDstandardNth33gt33*SQR(J31L)) - - 0.5*gtu22*(2*J12L*J22L*PDstandardNth12gt33 + + gtu22*(2*J12L*J22L*PDstandardNth12gt33 + 2*J12L*J32L*PDstandardNth13gt33 + dJ122L*PDstandardNth1gt33 + 2*J22L*J32L*PDstandardNth23gt33 + dJ222L*PDstandardNth2gt33 + dJ322L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J12L) + PDstandardNth22gt33*SQR(J22L) + PDstandardNth33gt33*SQR(J32L)) - - 0.5*gtu33*(2*J13L*J23L*PDstandardNth12gt33 + + gtu33*(2*J13L*J23L*PDstandardNth12gt33 + 2*J13L*J33L*PDstandardNth13gt33 + dJ133L*PDstandardNth1gt33 + 2*J23L*J33L*PDstandardNth23gt33 + dJ233L*PDstandardNth2gt33 + dJ333L*PDstandardNth3gt33 + PDstandardNth11gt33*SQR(J13L) + - PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L)); + PDstandardNth22gt33*SQR(J23L) + PDstandardNth33gt33*SQR(J33L))); - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); @@ -745,7 +743,7 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i CCTK_REAL cdphi3 = fac1*(J13L*PDstandardNth1phi + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = fac1*((dJ111L - Gt111*J11L - Gt211*J12L - Gt311*J13L)*PDstandardNth1phi + 2*(J11L*(J21L*PDstandardNth12phi + @@ -753,42 +751,34 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i Gt111*J21L - Gt211*J22L - Gt311*J23L)*PDstandardNth2phi + (dJ311L - Gt111*J31L - Gt211*J32L - Gt311*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J11L) + PDstandardNth22phi*SQR(J21L) + - PDstandardNth33phi*SQR(J31L)) + - fac2*(2*(J21L*J31L*PDstandardNth2phi*PDstandardNth3phi + - J11L*PDstandardNth1phi*(J21L*PDstandardNth2phi + - J31L*PDstandardNth3phi)) + SQR(J11L)*SQR(PDstandardNth1phi) + - SQR(J21L)*SQR(PDstandardNth2phi) + SQR(J31L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi212 = fac1*(-(Gt112*J31L) - - Gt212*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ112L - - Gt112*J11L - Gt212*J12L - Gt312*J13L) + fac2*(J12L*J21L + - J11L*J22L)*PDstandardNth2phi + fac2*(J12L*J31L + - J11L*J32L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ212L - - Gt112*J21L - Gt212*J22L - Gt312*J23L) + fac2*(J22L*J31L + - J21L*J32L)*PDstandardNth3phi) + fac1*(J11L*J12L*PDstandardNth11phi + - J12L*J21L*PDstandardNth12phi + J11L*J22L*PDstandardNth12phi + - J12L*J31L*PDstandardNth13phi + J11L*J32L*PDstandardNth13phi + - J21L*J22L*PDstandardNth22phi + J22L*J31L*PDstandardNth23phi + - J21L*J32L*PDstandardNth23phi + J31L*J32L*PDstandardNth33phi + (dJ312L - - Gt312*J33L)*PDstandardNth3phi) + fac2*J11L*J12L*SQR(PDstandardNth1phi) - + fac2*J21L*J22L*SQR(PDstandardNth2phi) + - fac2*J31L*J32L*SQR(PDstandardNth3phi); - - CCTK_REAL cdphi213 = fac1*(-(Gt113*J31L) - - Gt213*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ113L - - Gt113*J11L - Gt213*J12L - Gt313*J13L) + fac2*(J13L*J21L + - J11L*J23L)*PDstandardNth2phi + fac2*(J13L*J31L + - J11L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ213L - - Gt113*J21L - Gt213*J22L - Gt313*J23L) + fac2*(J23L*J31L + - J21L*J33L)*PDstandardNth3phi) + fac1*(J11L*J13L*PDstandardNth11phi + - J13L*J21L*PDstandardNth12phi + J11L*J23L*PDstandardNth12phi + - J13L*J31L*PDstandardNth13phi + J21L*J23L*PDstandardNth22phi + - J23L*J31L*PDstandardNth23phi + J21L*J33L*PDstandardNth23phi + - J31L*J33L*PDstandardNth33phi + dJ313L*PDstandardNth3phi + - J33L*(J11L*PDstandardNth13phi - Gt313*PDstandardNth3phi)) + - fac2*J11L*J13L*SQR(PDstandardNth1phi) + - fac2*J21L*J23L*SQR(PDstandardNth2phi) + - fac2*J31L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J31L)) + fac2*SQR(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); + + CCTK_REAL cdphi212 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi) + + fac1*(J12L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + (dJ112L - Gt112*J11L - Gt212*J12L - + Gt312*J13L)*PDstandardNth1phi + J22L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ212L - Gt112*J21L - Gt212*J22L - + Gt312*J23L)*PDstandardNth2phi + J32L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ312L - Gt112*J31L - Gt212*J32L - + Gt312*J33L)*PDstandardNth3phi); + + CCTK_REAL cdphi213 = fac2*(J11L*PDstandardNth1phi + + J21L*PDstandardNth2phi + + J31L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J11L*PDstandardNth11phi + J21L*PDstandardNth12phi + + J31L*PDstandardNth13phi) + J11L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ113L - Gt113*J11L - Gt213*J12L - + Gt313*J13L)*PDstandardNth1phi + J23L*(J21L*PDstandardNth22phi + + J31L*PDstandardNth23phi) + (dJ213L - Gt113*J21L - Gt213*J22L - + Gt313*J23L)*PDstandardNth2phi + J33L*(J21L*PDstandardNth23phi + + J31L*PDstandardNth33phi) + (dJ313L - Gt113*J31L - Gt213*J32L - + Gt313*J33L)*PDstandardNth3phi); CCTK_REAL cdphi222 = fac1*((dJ122L - Gt122*J11L - Gt222*J12L - Gt322*J13L)*PDstandardNth1phi + 2*(J12L*(J22L*PDstandardNth12phi + @@ -796,27 +786,21 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i Gt122*J21L - Gt222*J22L - Gt322*J23L)*PDstandardNth2phi + (dJ322L - Gt122*J31L - Gt222*J32L - Gt322*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J12L) + PDstandardNth22phi*SQR(J22L) + - PDstandardNth33phi*SQR(J32L)) + - fac2*(2*(J22L*J32L*PDstandardNth2phi*PDstandardNth3phi + - J12L*PDstandardNth1phi*(J22L*PDstandardNth2phi + - J32L*PDstandardNth3phi)) + SQR(J12L)*SQR(PDstandardNth1phi) + - SQR(J22L)*SQR(PDstandardNth2phi) + SQR(J32L)*SQR(PDstandardNth3phi)); - - CCTK_REAL cdphi223 = fac1*(-(Gt123*J31L) - - Gt223*J32L)*PDstandardNth3phi + PDstandardNth1phi*(fac1*(dJ123L - - Gt123*J11L - Gt223*J12L - Gt323*J13L) + fac2*(J13L*J22L + - J12L*J23L)*PDstandardNth2phi + fac2*(J13L*J32L + - J12L*J33L)*PDstandardNth3phi) + PDstandardNth2phi*(fac1*(dJ223L - - Gt123*J21L - Gt223*J22L - Gt323*J23L) + fac2*(J23L*J32L + - J22L*J33L)*PDstandardNth3phi) + fac1*(J12L*J13L*PDstandardNth11phi + - J13L*J22L*PDstandardNth12phi + J12L*J23L*PDstandardNth12phi + - J13L*J32L*PDstandardNth13phi + J22L*J23L*PDstandardNth22phi + - J23L*J32L*PDstandardNth23phi + J22L*J33L*PDstandardNth23phi + - J32L*J33L*PDstandardNth33phi + dJ323L*PDstandardNth3phi + - J33L*(J12L*PDstandardNth13phi - Gt323*PDstandardNth3phi)) + - fac2*J12L*J13L*SQR(PDstandardNth1phi) + - fac2*J22L*J23L*SQR(PDstandardNth2phi) + - fac2*J32L*J33L*SQR(PDstandardNth3phi); + PDstandardNth33phi*SQR(J32L)) + fac2*SQR(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + J32L*PDstandardNth3phi); + + CCTK_REAL cdphi223 = fac2*(J12L*PDstandardNth1phi + + J22L*PDstandardNth2phi + + J32L*PDstandardNth3phi)*(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi) + + fac1*(J13L*(J12L*PDstandardNth11phi + J22L*PDstandardNth12phi + + J32L*PDstandardNth13phi) + J12L*(J23L*PDstandardNth12phi + + J33L*PDstandardNth13phi) + (dJ123L - Gt123*J11L - Gt223*J12L - + Gt323*J13L)*PDstandardNth1phi + J23L*(J22L*PDstandardNth22phi + + J32L*PDstandardNth23phi) + (dJ223L - Gt123*J21L - Gt223*J22L - + Gt323*J23L)*PDstandardNth2phi + J33L*(J22L*PDstandardNth23phi + + J32L*PDstandardNth33phi) + (dJ323L - Gt123*J31L - Gt223*J32L - + Gt323*J33L)*PDstandardNth3phi); CCTK_REAL cdphi233 = fac1*((dJ133L - Gt133*J11L - Gt233*J12L - Gt333*J13L)*PDstandardNth1phi + 2*(J13L*(J23L*PDstandardNth12phi + @@ -824,11 +808,8 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i Gt133*J21L - Gt233*J22L - Gt333*J23L)*PDstandardNth2phi + (dJ333L - Gt133*J31L - Gt233*J32L - Gt333*J33L)*PDstandardNth3phi + PDstandardNth11phi*SQR(J13L) + PDstandardNth22phi*SQR(J23L) + - PDstandardNth33phi*SQR(J33L)) + - fac2*(2*(J23L*J33L*PDstandardNth2phi*PDstandardNth3phi + - J13L*PDstandardNth1phi*(J23L*PDstandardNth2phi + - J33L*PDstandardNth3phi)) + SQR(J13L)*SQR(PDstandardNth1phi) + - SQR(J23L)*SQR(PDstandardNth2phi) + SQR(J33L)*SQR(PDstandardNth3phi)); + PDstandardNth33phi*SQR(J33L)) + fac2*SQR(J13L*PDstandardNth1phi + + J23L*PDstandardNth2phi + J33L*PDstandardNth3phi); CCTK_REAL Rphi11 = -2*(cdphi211 + 2*(-1 + gt11L*gtu11)*SQR(cdphi1) + gt11L*(cdphi211*gtu11 + 4*(cdphi1*(cdphi2*gtu12 + cdphi3*gtu13) + @@ -866,7 +847,8 @@ static void ML_BSSN_MP_O8_constraints1_Body(cGH const * restrict const cctkGH, i + 2*SQR(cdphi1)) + gtu22*(cdphi222 + 2*SQR(cdphi2))) + 2*(-1 + gt33L*gtu33)*SQR(cdphi3)); - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints2.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints2.cc index 7f667ad..b759f7a 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints2.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_constraints2.cc @@ -350,7 +350,7 @@ static void ML_BSSN_MP_O8_constraints2_Body(cGH const * restrict const cctkGH, i CCTK_REAL Gt333 = Gtl133*gtu13 + Gtl233*gtu23 + Gtl333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*(J11L*PDstandardNth1phi + J21L*PDstandardNth2phi + J31L*PDstandardNth3phi); diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc index 5937d79..6a06e7b 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc @@ -384,8 +384,8 @@ static void ML_BSSN_MP_O8_convertFromADMBaseGamma_Body(cGH const * restrict cons CCTK_REAL Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL AL = IfThen(LapseACoeff != - 0,-(INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(dtalpL - + CCTK_REAL AL = IfThen(ToReal(LapseACoeff) != + 0,3*INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(-9*dtalpL + ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1alpha + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2alpha + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3alpha + @@ -393,56 +393,43 @@ static void ML_BSSN_MP_O8_convertFromADMBaseGamma_Body(cGH const * restrict cons J31L*PDupwindNthSymm3alpha)*Abs(beta1L) + (J12L*PDupwindNthSymm1alpha + J22L*PDupwindNthSymm2alpha + J32L*PDupwindNthSymm3alpha)*Abs(beta2L) + (J13L*PDupwindNthSymm1alpha + J23L*PDupwindNthSymm2alpha + - J33L*PDupwindNthSymm3alpha)*Abs(beta3L))*ToReal(LapseAdvectionCoeff))),0); + J33L*PDupwindNthSymm3alpha)*Abs(beta3L))*ToReal(LapseAdvectionCoeff)),0); CCTK_REAL theta = fmin(1,exp(1 - rL*INV(ToReal(SpatialShiftGammaCoeffRadius)))); - CCTK_REAL B1L; - CCTK_REAL B2L; - CCTK_REAL B3L; - - if (ShiftBCoeff*ShiftGammaCoeff != 0) - { - B1L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetaxL - - ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta1 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta1 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta1 + - (J11L*PDupwindNthSymm1beta1 + J21L*PDupwindNthSymm2beta1 + - J31L*PDupwindNthSymm3beta1)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta1 + - J22L*PDupwindNthSymm2beta1 + J32L*PDupwindNthSymm3beta1)*Abs(beta2L) + - (J13L*PDupwindNthSymm1beta1 + J23L*PDupwindNthSymm2beta1 + - J33L*PDupwindNthSymm3beta1)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B2L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetayL - - ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta2 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta2 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta2 + - (J11L*PDupwindNthSymm1beta2 + J21L*PDupwindNthSymm2beta2 + - J31L*PDupwindNthSymm3beta2)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta2 + - J22L*PDupwindNthSymm2beta2 + J32L*PDupwindNthSymm3beta2)*Abs(beta2L) + - (J13L*PDupwindNthSymm1beta2 + J23L*PDupwindNthSymm2beta2 + - J33L*PDupwindNthSymm3beta2)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B3L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetazL - - ((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta3 + - (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta3 + - (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta3 + - (J11L*PDupwindNthSymm1beta3 + J21L*PDupwindNthSymm2beta3 + - J31L*PDupwindNthSymm3beta3)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta3 + - J22L*PDupwindNthSymm2beta3 + J32L*PDupwindNthSymm3beta3)*Abs(beta2L) + - (J13L*PDupwindNthSymm1beta3 + J23L*PDupwindNthSymm2beta3 + - J33L*PDupwindNthSymm3beta3)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - } - else - { - B1L = 0; - - B2L = 0; - - B3L = 0; - } - + CCTK_REAL B1L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetaxL - + 3*((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta1 + + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta1 + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta1 + + (J11L*PDupwindNthSymm1beta1 + J21L*PDupwindNthSymm2beta1 + + J31L*PDupwindNthSymm3beta1)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta1 + + J22L*PDupwindNthSymm2beta1 + J32L*PDupwindNthSymm3beta1)*Abs(beta2L) + + (J13L*PDupwindNthSymm1beta1 + J23L*PDupwindNthSymm2beta1 + + J33L*PDupwindNthSymm3beta1)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B2L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetayL - + 3*((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta2 + + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta2 + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta2 + + (J11L*PDupwindNthSymm1beta2 + J21L*PDupwindNthSymm2beta2 + + J31L*PDupwindNthSymm3beta2)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta2 + + J22L*PDupwindNthSymm2beta2 + J32L*PDupwindNthSymm3beta2)*Abs(beta2L) + + (J13L*PDupwindNthSymm1beta2 + J23L*PDupwindNthSymm2beta2 + + J33L*PDupwindNthSymm3beta2)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B3L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetazL - + 3*((beta1L*J11L + beta2L*J12L + beta3L*J13L)*PDupwindNthAnti1beta3 + + (beta1L*J21L + beta2L*J22L + beta3L*J23L)*PDupwindNthAnti2beta3 + + (beta1L*J31L + beta2L*J32L + beta3L*J33L)*PDupwindNthAnti3beta3 + + (J11L*PDupwindNthSymm1beta3 + J21L*PDupwindNthSymm2beta3 + + J31L*PDupwindNthSymm3beta3)*Abs(beta1L) + (J12L*PDupwindNthSymm1beta3 + + J22L*PDupwindNthSymm2beta3 + J32L*PDupwindNthSymm3beta3)*Abs(beta2L) + + (J13L*PDupwindNthSymm1beta3 + J23L*PDupwindNthSymm2beta3 + + J33L*PDupwindNthSymm3beta3)*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); /* Copy local copies back to grid functions */ A[index] = AL; diff --git a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBase.cc b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBase.cc index 17506aa..cc2dea9 100644 --- a/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBase.cc +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertToADMBase.cc @@ -135,7 +135,8 @@ static void ML_BSSN_MP_O8_convertToADMBase_Body(cGH const * restrict const cctkG /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); gxxL = e4phi*gt11L; diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_Minkowski.cc b/ML_BSSN_O2/src/ML_BSSN_O2_Minkowski.cc index 76ef2e3..b221f28 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_Minkowski.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_Minkowski.cc @@ -111,7 +111,7 @@ static void ML_BSSN_O2_Minkowski_Body(cGH const * restrict const cctkGH, int con /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_RHS1.cc b/ML_BSSN_O2/src/ML_BSSN_O2_RHS1.cc index 882a7b1..dc12c28 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_RHS1.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_RHS1.cc @@ -540,7 +540,7 @@ static void ML_BSSN_O2_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -578,7 +578,8 @@ static void ML_BSSN_O2_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Atu33 = Atm31*gtu13 + Atm32*gtu23 + Atm33*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -604,14 +605,11 @@ static void ML_BSSN_O2_RHS1_Body(cGH const * restrict const cctkGH, int const di beta1L*PDupwindNthAnti1phi + beta2L*PDupwindNthAnti2phi + beta3L*PDupwindNthAnti3phi + PDupwindNthSymm1phi*Abs(beta1L) + PDupwindNthSymm2phi*Abs(beta2L) + PDupwindNthSymm3phi*Abs(beta3L) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(PDstandardNth1beta1 - + - PDstandardNth2beta2)*phiL,0.166666666666666666666666666667*(PDstandardNth1beta1 - + PDstandardNth2beta2)) + - IfThen(conformalMethod,phiL*(-0.333333333333333333333333333333*PDstandardNth3beta3 - + - 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*PDstandardNth3beta3 - - 0.166666666666666666666666666667*alphaL*trKL); + IfThen(ToReal(conformalMethod),phiL*(-0.333333333333333333333333333333*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) + + 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) - + 0.166666666666666666666666666667*alphaL*trKL); CCTK_REAL gt11rhsL = -2*alphaL*At11L + epsdiss1*PDdissipationNth1gt11 + epsdiss2*PDdissipationNth2gt11 + epsdiss3*PDdissipationNth3gt11 + @@ -678,77 +676,72 @@ static void ML_BSSN_O2_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL dotXt1 = 0.333333333333333333333333333333*(7*(gtu12*PDstandardNth12beta1 + - gtu13*PDstandardNth13beta1) + 6*gtu23*PDstandardNth23beta1 - + gtu13*PDstandardNth13beta1) + gtu11*(4*PDstandardNth11beta1 + + PDstandardNth12beta2 + PDstandardNth13beta3) + + gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3) + + gtu13*(PDstandardNth23beta2 + PDstandardNth33beta3) - 6*(Atu11*PDstandardNth1alpha + Atu12*PDstandardNth2alpha + - Atu13*PDstandardNth3alpha) + gtu11*(4*PDstandardNth11beta1 + - PDstandardNth12beta2 + PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + - gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu13*(PDstandardNth23beta2 + PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth1beta1 + 2*PDstandardNth3beta3)*Xtn1 + - 2*(alphaL*(18*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + - 6*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + 3*(Atu11*Gt111 + - Atu22*Gt122 + Atu33*Gt133) - 2*(gtu11*PDstandardNth1trK + - gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK)) + - PDstandardNth2beta2*Xtn1) - 3*(PDstandardNth2beta1*Xtn2 + - PDstandardNth3beta1*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt1 + - epsdiss2*PDdissipationNth2Xt1 + epsdiss3*PDdissipationNth3Xt1 + - gtu22*PDstandardNth22beta1 + gtu33*PDstandardNth33beta1 + - beta1L*PDupwindNthAnti1Xt1 + beta2L*PDupwindNthAnti2Xt1 + - beta3L*PDupwindNthAnti3Xt1 + PDupwindNthSymm1Xt1*Abs(beta1L) + - PDupwindNthSymm2Xt1*Abs(beta2L) + PDupwindNthSymm3Xt1*Abs(beta3L))); + Atu13*PDstandardNth3alpha) + 6*(gtu23*PDstandardNth23beta1 + + alphaL*(6*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + Atu11*Gt111 + + Atu22*Gt122 + 2*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + Atu33*Gt133 + - 0.666666666666666666666666666667*(gtu11*PDstandardNth1trK + + gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu11*S1 + gtu12*S2 + + gtu13*S3) + (-3*PDstandardNth1beta1 + 2*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3))*Xtn1 - + 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt1 + epsdiss2*PDdissipationNth2Xt1 + + epsdiss3*PDdissipationNth3Xt1 + gtu22*PDstandardNth22beta1 + + gtu33*PDstandardNth33beta1 + beta1L*PDupwindNthAnti1Xt1 + + beta2L*PDupwindNthAnti2Xt1 + beta3L*PDupwindNthAnti3Xt1 + + PDupwindNthSymm1Xt1*Abs(beta1L) + PDupwindNthSymm2Xt1*Abs(beta2L) + + PDupwindNthSymm3Xt1*Abs(beta3L))); CCTK_REAL dotXt2 = - 0.333333333333333333333333333333*(6*gtu13*PDstandardNth13beta2 - - 6*(Atu12*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + - Atu23*PDstandardNth3alpha) + gtu12*(PDstandardNth11beta1 + - 7*PDstandardNth12beta2 + PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + + 0.333333333333333333333333333333*(gtu12*(PDstandardNth11beta1 + + 7*PDstandardNth12beta2 + PDstandardNth13beta3) + gtu22*(PDstandardNth12beta1 + 4*PDstandardNth22beta2 + - PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu23*(PDstandardNth13beta1 + 7*PDstandardNth23beta2 + - PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth2beta2 + 2*PDstandardNth3beta3)*Xtn2 + - 2*(alphaL*(18*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + - 6*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + 3*(Atu11*Gt211 + - Atu22*Gt222 + Atu33*Gt233) - 2*(gtu12*PDstandardNth1trK + - gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn2) - 3*(PDstandardNth1beta2*Xtn1 + - PDstandardNth3beta2*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt2 + - epsdiss2*PDdissipationNth2Xt2 + epsdiss3*PDdissipationNth3Xt2 + - gtu11*PDstandardNth11beta2 + gtu33*PDstandardNth33beta2 + - beta1L*PDupwindNthAnti1Xt2 + beta2L*PDupwindNthAnti2Xt2 + - beta3L*PDupwindNthAnti3Xt2 + PDupwindNthSymm1Xt2*Abs(beta1L) + - PDupwindNthSymm2Xt2*Abs(beta2L) + PDupwindNthSymm3Xt2*Abs(beta3L))); + PDstandardNth23beta3) + gtu23*(PDstandardNth13beta1 + + 7*PDstandardNth23beta2 + PDstandardNth33beta3) - + 6*(Atu12*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + + Atu23*PDstandardNth3alpha) + 6*(gtu13*PDstandardNth13beta2 + + alphaL*(6*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + Atu11*Gt211 + + Atu22*Gt222 + 2*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + Atu33*Gt233 + - 0.666666666666666666666666666667*(gtu12*PDstandardNth1trK + + gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu12*S1 + gtu22*S2 + + gtu23*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + + PDstandardNth2beta2*Xtn2 + PDstandardNth3beta2*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt2 + epsdiss2*PDdissipationNth2Xt2 + + epsdiss3*PDdissipationNth3Xt2 + gtu11*PDstandardNth11beta2 + + gtu33*PDstandardNth33beta2 + beta1L*PDupwindNthAnti1Xt2 + + beta2L*PDupwindNthAnti2Xt2 + beta3L*PDupwindNthAnti3Xt2 + + PDupwindNthSymm1Xt2*Abs(beta1L) + PDupwindNthSymm2Xt2*Abs(beta2L) + + PDupwindNthSymm3Xt2*Abs(beta3L))); CCTK_REAL dotXt3 = - 0.333333333333333333333333333333*(6*gtu12*PDstandardNth12beta3 - - 6*(Atu13*PDstandardNth1alpha + Atu23*PDstandardNth2alpha + - Atu33*PDstandardNth3alpha) + gtu13*(PDstandardNth11beta1 + - PDstandardNth12beta2 + 7*PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + + 0.333333333333333333333333333333*(gtu13*(PDstandardNth11beta1 + + PDstandardNth12beta2 + 7*PDstandardNth13beta3) + gtu23*(PDstandardNth12beta1 + PDstandardNth22beta2 + - 7*PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2 + - 4*PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) - - 3*(PDstandardNth1beta3*Xtn1 + PDstandardNth2beta3*Xtn2) + - (2*PDstandardNth2beta2 - PDstandardNth3beta3)*Xtn3 + - 2*(alphaL*(18*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + - 6*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + 3*(Atu11*Gt311 + - Atu22*Gt322 + Atu33*Gt333) - 2*(gtu13*PDstandardNth1trK + - gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt3 + - epsdiss2*PDdissipationNth2Xt3 + epsdiss3*PDdissipationNth3Xt3 + - gtu11*PDstandardNth11beta3 + gtu22*PDstandardNth22beta3 + - beta1L*PDupwindNthAnti1Xt3 + beta2L*PDupwindNthAnti2Xt3 + - beta3L*PDupwindNthAnti3Xt3 + PDupwindNthSymm1Xt3*Abs(beta1L) + - PDupwindNthSymm2Xt3*Abs(beta2L) + PDupwindNthSymm3Xt3*Abs(beta3L))); + 7*PDstandardNth23beta3) + gtu33*(PDstandardNth13beta1 + + PDstandardNth23beta2 + 4*PDstandardNth33beta3) - + 6*(Atu13*PDstandardNth1alpha + Atu23*PDstandardNth2alpha + + Atu33*PDstandardNth3alpha) + 6*(gtu12*PDstandardNth12beta3 + + alphaL*(6*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + Atu11*Gt311 + + Atu22*Gt322 + 2*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + Atu33*Gt333 + - 0.666666666666666666666666666667*(gtu13*PDstandardNth1trK + + gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu13*S1 + gtu23*S2 + + gtu33*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + + PDstandardNth2beta3*Xtn2 + PDstandardNth3beta3*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt3 + epsdiss2*PDdissipationNth2Xt3 + + epsdiss3*PDdissipationNth3Xt3 + gtu11*PDstandardNth11beta3 + + gtu22*PDstandardNth22beta3 + beta1L*PDupwindNthAnti1Xt3 + + beta2L*PDupwindNthAnti2Xt3 + beta3L*PDupwindNthAnti3Xt3 + + PDupwindNthSymm1Xt3*Abs(beta1L) + PDupwindNthSymm2Xt3*Abs(beta2L) + + PDupwindNthSymm3Xt3*Abs(beta3L))); CCTK_REAL Xt1rhsL = dotXt1; diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_RHS2.cc b/ML_BSSN_O2/src/ML_BSSN_O2_RHS2.cc index 29f1486..d262f66 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_RHS2.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_RHS2.cc @@ -473,16 +473,15 @@ static void ML_BSSN_O2_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -514,16 +513,15 @@ static void ML_BSSN_O2_RHS2_Body(cGH const * restrict const cctkGH, int const di gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -540,18 +538,17 @@ static void ML_BSSN_O2_RHS2_Body(cGH const * restrict const cctkGH, int const di gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -559,7 +556,7 @@ static void ML_BSSN_O2_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -639,7 +636,8 @@ static void ML_BSSN_O2_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Atm33 = At13L*gtu13 + At23L*gtu23 + At33L*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_boundary.cc b/ML_BSSN_O2/src/ML_BSSN_O2_boundary.cc index 3ee5064..d6451be 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_boundary.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_boundary.cc @@ -147,7 +147,7 @@ static void ML_BSSN_O2_boundary_Body(cGH const * restrict const cctkGH, int cons /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_constraints1.cc b/ML_BSSN_O2/src/ML_BSSN_O2_constraints1.cc index 38ea503..a31ef64 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_constraints1.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_constraints1.cc @@ -397,16 +397,15 @@ static void ML_BSSN_O2_constraints1_Body(cGH const * restrict const cctkGH, int CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -438,16 +437,15 @@ static void ML_BSSN_O2_constraints1_Body(cGH const * restrict const cctkGH, int gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -464,18 +462,17 @@ static void ML_BSSN_O2_constraints1_Body(cGH const * restrict const cctkGH, int gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -483,7 +480,7 @@ static void ML_BSSN_O2_constraints1_Body(cGH const * restrict const cctkGH, int CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -545,7 +542,8 @@ static void ML_BSSN_O2_constraints1_Body(cGH const * restrict const cctkGH, int + 2*SQR(cdphi1)) + gtu22*(cdphi222 + 2*SQR(cdphi2))) + 2*(-1 + gt33L*gtu33)*SQR(cdphi3)); - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_constraints2.cc b/ML_BSSN_O2/src/ML_BSSN_O2_constraints2.cc index bfa55fa..3d846a1 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_constraints2.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_constraints2.cc @@ -311,7 +311,7 @@ static void ML_BSSN_O2_constraints2_Body(cGH const * restrict const cctkGH, int CCTK_REAL Gt333 = Gtl133*gtu13 + Gtl233*gtu23 + Gtl333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBaseGamma.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBaseGamma.cc index 444fbd0..f59bbed 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBaseGamma.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_convertFromADMBaseGamma.cc @@ -288,49 +288,36 @@ static void ML_BSSN_O2_convertFromADMBaseGamma_Body(cGH const * restrict const c CCTK_REAL Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL AL = IfThen(LapseACoeff != - 0,-(INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(dtalpL - + CCTK_REAL AL = IfThen(ToReal(LapseACoeff) != + 0,-3*INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(9*dtalpL - (beta1L*PDupwindNthAnti1alpha + beta2L*PDupwindNthAnti2alpha + beta3L*PDupwindNthAnti3alpha + PDupwindNthSymm1alpha*Abs(beta1L) + PDupwindNthSymm2alpha*Abs(beta2L) + - PDupwindNthSymm3alpha*Abs(beta3L))*ToReal(LapseAdvectionCoeff))),0); + PDupwindNthSymm3alpha*Abs(beta3L))*ToReal(LapseAdvectionCoeff)),0); CCTK_REAL theta = fmin(1,exp(1 - rL*INV(ToReal(SpatialShiftGammaCoeffRadius)))); - CCTK_REAL B1L; - CCTK_REAL B2L; - CCTK_REAL B3L; - - if (ShiftBCoeff*ShiftGammaCoeff != 0) - { - B1L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetaxL - - (beta1L*PDupwindNthAnti1beta1 + beta2L*PDupwindNthAnti2beta1 + - beta3L*PDupwindNthAnti3beta1 + PDupwindNthSymm1beta1*Abs(beta1L) + - PDupwindNthSymm2beta1*Abs(beta2L) + - PDupwindNthSymm3beta1*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B2L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetayL - - (beta1L*PDupwindNthAnti1beta2 + beta2L*PDupwindNthAnti2beta2 + - beta3L*PDupwindNthAnti3beta2 + PDupwindNthSymm1beta2*Abs(beta1L) + - PDupwindNthSymm2beta2*Abs(beta2L) + - PDupwindNthSymm3beta2*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B3L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetazL - - (beta1L*PDupwindNthAnti1beta3 + beta2L*PDupwindNthAnti2beta3 + - beta3L*PDupwindNthAnti3beta3 + PDupwindNthSymm1beta3*Abs(beta1L) + - PDupwindNthSymm2beta3*Abs(beta2L) + - PDupwindNthSymm3beta3*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - } - else - { - B1L = 0; - - B2L = 0; - - B3L = 0; - } - + CCTK_REAL B1L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetaxL - + 3*(beta1L*PDupwindNthAnti1beta1 + beta2L*PDupwindNthAnti2beta1 + + beta3L*PDupwindNthAnti3beta1 + PDupwindNthSymm1beta1*Abs(beta1L) + + PDupwindNthSymm2beta1*Abs(beta2L) + + PDupwindNthSymm3beta1*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B2L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetayL - + 3*(beta1L*PDupwindNthAnti1beta2 + beta2L*PDupwindNthAnti2beta2 + + beta3L*PDupwindNthAnti3beta2 + PDupwindNthSymm1beta2*Abs(beta1L) + + PDupwindNthSymm2beta2*Abs(beta2L) + + PDupwindNthSymm3beta2*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B3L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetazL - + 3*(beta1L*PDupwindNthAnti1beta3 + beta2L*PDupwindNthAnti2beta3 + + beta3L*PDupwindNthAnti3beta3 + PDupwindNthSymm1beta3*Abs(beta1L) + + PDupwindNthSymm2beta3*Abs(beta2L) + + PDupwindNthSymm3beta3*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); /* Copy local copies back to grid functions */ A[index] = AL; diff --git a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBase.cc b/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBase.cc index 7f8e488..725605c 100644 --- a/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBase.cc +++ b/ML_BSSN_O2/src/ML_BSSN_O2_convertToADMBase.cc @@ -135,7 +135,8 @@ static void ML_BSSN_O2_convertToADMBase_Body(cGH const * restrict const cctkGH, /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); gxxL = e4phi*gt11L; diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_Minkowski.cc b/ML_BSSN_O8/src/ML_BSSN_O8_Minkowski.cc index 0e7ca12..3e4fa15 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_Minkowski.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_Minkowski.cc @@ -111,7 +111,7 @@ static void ML_BSSN_O8_Minkowski_Body(cGH const * restrict const cctkGH, int con /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_RHS1.cc b/ML_BSSN_O8/src/ML_BSSN_O8_RHS1.cc index e64c5b8..14b2068 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_RHS1.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_RHS1.cc @@ -540,7 +540,7 @@ static void ML_BSSN_O8_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -578,7 +578,8 @@ static void ML_BSSN_O8_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Atu33 = Atm31*gtu13 + Atm32*gtu23 + Atm33*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -604,14 +605,11 @@ static void ML_BSSN_O8_RHS1_Body(cGH const * restrict const cctkGH, int const di beta1L*PDupwindNthAnti1phi + beta2L*PDupwindNthAnti2phi + beta3L*PDupwindNthAnti3phi + PDupwindNthSymm1phi*Abs(beta1L) + PDupwindNthSymm2phi*Abs(beta2L) + PDupwindNthSymm3phi*Abs(beta3L) + - IfThen(conformalMethod,-0.333333333333333333333333333333*(PDstandardNth1beta1 - + - PDstandardNth2beta2)*phiL,0.166666666666666666666666666667*(PDstandardNth1beta1 - + PDstandardNth2beta2)) + - IfThen(conformalMethod,phiL*(-0.333333333333333333333333333333*PDstandardNth3beta3 - + - 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*PDstandardNth3beta3 - - 0.166666666666666666666666666667*alphaL*trKL); + IfThen(ToReal(conformalMethod),phiL*(-0.333333333333333333333333333333*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) + + 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) - + 0.166666666666666666666666666667*alphaL*trKL); CCTK_REAL gt11rhsL = -2*alphaL*At11L + epsdiss1*PDdissipationNth1gt11 + epsdiss2*PDdissipationNth2gt11 + epsdiss3*PDdissipationNth3gt11 + @@ -678,77 +676,72 @@ static void ML_BSSN_O8_RHS1_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL dotXt1 = 0.333333333333333333333333333333*(7*(gtu12*PDstandardNth12beta1 + - gtu13*PDstandardNth13beta1) + 6*gtu23*PDstandardNth23beta1 - + gtu13*PDstandardNth13beta1) + gtu11*(4*PDstandardNth11beta1 + + PDstandardNth12beta2 + PDstandardNth13beta3) + + gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3) + + gtu13*(PDstandardNth23beta2 + PDstandardNth33beta3) - 6*(Atu11*PDstandardNth1alpha + Atu12*PDstandardNth2alpha + - Atu13*PDstandardNth3alpha) + gtu11*(4*PDstandardNth11beta1 + - PDstandardNth12beta2 + PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + - gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu13*(PDstandardNth23beta2 + PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth1beta1 + 2*PDstandardNth3beta3)*Xtn1 + - 2*(alphaL*(18*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + - 6*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + 3*(Atu11*Gt111 + - Atu22*Gt122 + Atu33*Gt133) - 2*(gtu11*PDstandardNth1trK + - gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK)) + - PDstandardNth2beta2*Xtn1) - 3*(PDstandardNth2beta1*Xtn2 + - PDstandardNth3beta1*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt1 + - epsdiss2*PDdissipationNth2Xt1 + epsdiss3*PDdissipationNth3Xt1 + - gtu22*PDstandardNth22beta1 + gtu33*PDstandardNth33beta1 + - beta1L*PDupwindNthAnti1Xt1 + beta2L*PDupwindNthAnti2Xt1 + - beta3L*PDupwindNthAnti3Xt1 + PDupwindNthSymm1Xt1*Abs(beta1L) + - PDupwindNthSymm2Xt1*Abs(beta2L) + PDupwindNthSymm3Xt1*Abs(beta3L))); + Atu13*PDstandardNth3alpha) + 6*(gtu23*PDstandardNth23beta1 + + alphaL*(6*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + Atu11*Gt111 + + Atu22*Gt122 + 2*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + Atu33*Gt133 + - 0.666666666666666666666666666667*(gtu11*PDstandardNth1trK + + gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu11*S1 + gtu12*S2 + + gtu13*S3) + (-3*PDstandardNth1beta1 + 2*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3))*Xtn1 - + 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt1 + epsdiss2*PDdissipationNth2Xt1 + + epsdiss3*PDdissipationNth3Xt1 + gtu22*PDstandardNth22beta1 + + gtu33*PDstandardNth33beta1 + beta1L*PDupwindNthAnti1Xt1 + + beta2L*PDupwindNthAnti2Xt1 + beta3L*PDupwindNthAnti3Xt1 + + PDupwindNthSymm1Xt1*Abs(beta1L) + PDupwindNthSymm2Xt1*Abs(beta2L) + + PDupwindNthSymm3Xt1*Abs(beta3L))); CCTK_REAL dotXt2 = - 0.333333333333333333333333333333*(6*gtu13*PDstandardNth13beta2 - - 6*(Atu12*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + - Atu23*PDstandardNth3alpha) + gtu12*(PDstandardNth11beta1 + - 7*PDstandardNth12beta2 + PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + + 0.333333333333333333333333333333*(gtu12*(PDstandardNth11beta1 + + 7*PDstandardNth12beta2 + PDstandardNth13beta3) + gtu22*(PDstandardNth12beta1 + 4*PDstandardNth22beta2 + - PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu23*(PDstandardNth13beta1 + 7*PDstandardNth23beta2 + - PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth2beta2 + 2*PDstandardNth3beta3)*Xtn2 + - 2*(alphaL*(18*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + - 6*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + 3*(Atu11*Gt211 + - Atu22*Gt222 + Atu33*Gt233) - 2*(gtu12*PDstandardNth1trK + - gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn2) - 3*(PDstandardNth1beta2*Xtn1 + - PDstandardNth3beta2*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt2 + - epsdiss2*PDdissipationNth2Xt2 + epsdiss3*PDdissipationNth3Xt2 + - gtu11*PDstandardNth11beta2 + gtu33*PDstandardNth33beta2 + - beta1L*PDupwindNthAnti1Xt2 + beta2L*PDupwindNthAnti2Xt2 + - beta3L*PDupwindNthAnti3Xt2 + PDupwindNthSymm1Xt2*Abs(beta1L) + - PDupwindNthSymm2Xt2*Abs(beta2L) + PDupwindNthSymm3Xt2*Abs(beta3L))); + PDstandardNth23beta3) + gtu23*(PDstandardNth13beta1 + + 7*PDstandardNth23beta2 + PDstandardNth33beta3) - + 6*(Atu12*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + + Atu23*PDstandardNth3alpha) + 6*(gtu13*PDstandardNth13beta2 + + alphaL*(6*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + Atu11*Gt211 + + Atu22*Gt222 + 2*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + Atu33*Gt233 + - 0.666666666666666666666666666667*(gtu12*PDstandardNth1trK + + gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu12*S1 + gtu22*S2 + + gtu23*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + + PDstandardNth2beta2*Xtn2 + PDstandardNth3beta2*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt2 + epsdiss2*PDdissipationNth2Xt2 + + epsdiss3*PDdissipationNth3Xt2 + gtu11*PDstandardNth11beta2 + + gtu33*PDstandardNth33beta2 + beta1L*PDupwindNthAnti1Xt2 + + beta2L*PDupwindNthAnti2Xt2 + beta3L*PDupwindNthAnti3Xt2 + + PDupwindNthSymm1Xt2*Abs(beta1L) + PDupwindNthSymm2Xt2*Abs(beta2L) + + PDupwindNthSymm3Xt2*Abs(beta3L))); CCTK_REAL dotXt3 = - 0.333333333333333333333333333333*(6*gtu12*PDstandardNth12beta3 - - 6*(Atu13*PDstandardNth1alpha + Atu23*PDstandardNth2alpha + - Atu33*PDstandardNth3alpha) + gtu13*(PDstandardNth11beta1 + - PDstandardNth12beta2 + 7*PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + + 0.333333333333333333333333333333*(gtu13*(PDstandardNth11beta1 + + PDstandardNth12beta2 + 7*PDstandardNth13beta3) + gtu23*(PDstandardNth12beta1 + PDstandardNth22beta2 + - 7*PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2 + - 4*PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) - - 3*(PDstandardNth1beta3*Xtn1 + PDstandardNth2beta3*Xtn2) + - (2*PDstandardNth2beta2 - PDstandardNth3beta3)*Xtn3 + - 2*(alphaL*(18*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + - 6*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + 3*(Atu11*Gt311 + - Atu22*Gt322 + Atu33*Gt333) - 2*(gtu13*PDstandardNth1trK + - gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn3) + 3*(epsdiss1*PDdissipationNth1Xt3 + - epsdiss2*PDdissipationNth2Xt3 + epsdiss3*PDdissipationNth3Xt3 + - gtu11*PDstandardNth11beta3 + gtu22*PDstandardNth22beta3 + - beta1L*PDupwindNthAnti1Xt3 + beta2L*PDupwindNthAnti2Xt3 + - beta3L*PDupwindNthAnti3Xt3 + PDupwindNthSymm1Xt3*Abs(beta1L) + - PDupwindNthSymm2Xt3*Abs(beta2L) + PDupwindNthSymm3Xt3*Abs(beta3L))); + 7*PDstandardNth23beta3) + gtu33*(PDstandardNth13beta1 + + PDstandardNth23beta2 + 4*PDstandardNth33beta3) - + 6*(Atu13*PDstandardNth1alpha + Atu23*PDstandardNth2alpha + + Atu33*PDstandardNth3alpha) + 6*(gtu12*PDstandardNth12beta3 + + alphaL*(6*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + Atu11*Gt311 + + Atu22*Gt322 + 2*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + Atu33*Gt333 + - 0.666666666666666666666666666667*(gtu13*PDstandardNth1trK + + gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu13*S1 + gtu23*S2 + + gtu33*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + + PDstandardNth2beta3*Xtn2 + PDstandardNth3beta3*Xtn3) + + 3*(epsdiss1*PDdissipationNth1Xt3 + epsdiss2*PDdissipationNth2Xt3 + + epsdiss3*PDdissipationNth3Xt3 + gtu11*PDstandardNth11beta3 + + gtu22*PDstandardNth22beta3 + beta1L*PDupwindNthAnti1Xt3 + + beta2L*PDupwindNthAnti2Xt3 + beta3L*PDupwindNthAnti3Xt3 + + PDupwindNthSymm1Xt3*Abs(beta1L) + PDupwindNthSymm2Xt3*Abs(beta2L) + + PDupwindNthSymm3Xt3*Abs(beta3L))); CCTK_REAL Xt1rhsL = dotXt1; diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_RHS2.cc b/ML_BSSN_O8/src/ML_BSSN_O8_RHS2.cc index bdef52f..47521ac 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_RHS2.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_RHS2.cc @@ -473,16 +473,15 @@ static void ML_BSSN_O8_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -514,16 +513,15 @@ static void ML_BSSN_O8_RHS2_Body(cGH const * restrict const cctkGH, int const di gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -540,18 +538,17 @@ static void ML_BSSN_O8_RHS2_Body(cGH const * restrict const cctkGH, int const di gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -559,7 +556,7 @@ static void ML_BSSN_O8_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -639,7 +636,8 @@ static void ML_BSSN_O8_RHS2_Body(cGH const * restrict const cctkGH, int const di CCTK_REAL Atm33 = At13L*gtu13 + At23L*gtu23 + At33L*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_boundary.cc b/ML_BSSN_O8/src/ML_BSSN_O8_boundary.cc index 5669ea4..a0b60fb 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_boundary.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_boundary.cc @@ -147,7 +147,7 @@ static void ML_BSSN_O8_boundary_Body(cGH const * restrict const cctkGH, int cons /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_constraints1.cc b/ML_BSSN_O8/src/ML_BSSN_O8_constraints1.cc index a2d4944..4b15f26 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_constraints1.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_constraints1.cc @@ -397,16 +397,15 @@ static void ML_BSSN_O8_constraints1_Body(cGH const * restrict const cctkGH, int CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -438,16 +437,15 @@ static void ML_BSSN_O8_constraints1_Body(cGH const * restrict const cctkGH, int gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -464,18 +462,17 @@ static void ML_BSSN_O8_constraints1_Body(cGH const * restrict const cctkGH, int gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -483,7 +480,7 @@ static void ML_BSSN_O8_constraints1_Body(cGH const * restrict const cctkGH, int CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -545,7 +542,8 @@ static void ML_BSSN_O8_constraints1_Body(cGH const * restrict const cctkGH, int + 2*SQR(cdphi1)) + gtu22*(cdphi222 + 2*SQR(cdphi2))) + 2*(-1 + gt33L*gtu33)*SQR(cdphi3)); - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_constraints2.cc b/ML_BSSN_O8/src/ML_BSSN_O8_constraints2.cc index 371bbb2..bdd6977 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_constraints2.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_constraints2.cc @@ -311,7 +311,7 @@ static void ML_BSSN_O8_constraints2_Body(cGH const * restrict const cctkGH, int CCTK_REAL Gt333 = Gtl133*gtu13 + Gtl233*gtu23 + Gtl333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBaseGamma.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBaseGamma.cc index 252947e..35f1679 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBaseGamma.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_convertFromADMBaseGamma.cc @@ -288,49 +288,36 @@ static void ML_BSSN_O8_convertFromADMBaseGamma_Body(cGH const * restrict const c CCTK_REAL Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL AL = IfThen(LapseACoeff != - 0,-(INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(dtalpL - + CCTK_REAL AL = IfThen(ToReal(LapseACoeff) != + 0,-3*INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(9*dtalpL - (beta1L*PDupwindNthAnti1alpha + beta2L*PDupwindNthAnti2alpha + beta3L*PDupwindNthAnti3alpha + PDupwindNthSymm1alpha*Abs(beta1L) + PDupwindNthSymm2alpha*Abs(beta2L) + - PDupwindNthSymm3alpha*Abs(beta3L))*ToReal(LapseAdvectionCoeff))),0); + PDupwindNthSymm3alpha*Abs(beta3L))*ToReal(LapseAdvectionCoeff)),0); CCTK_REAL theta = fmin(1,exp(1 - rL*INV(ToReal(SpatialShiftGammaCoeffRadius)))); - CCTK_REAL B1L; - CCTK_REAL B2L; - CCTK_REAL B3L; - - if (ShiftBCoeff*ShiftGammaCoeff != 0) - { - B1L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetaxL - - (beta1L*PDupwindNthAnti1beta1 + beta2L*PDupwindNthAnti2beta1 + - beta3L*PDupwindNthAnti3beta1 + PDupwindNthSymm1beta1*Abs(beta1L) + - PDupwindNthSymm2beta1*Abs(beta2L) + - PDupwindNthSymm3beta1*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B2L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetayL - - (beta1L*PDupwindNthAnti1beta2 + beta2L*PDupwindNthAnti2beta2 + - beta3L*PDupwindNthAnti3beta2 + PDupwindNthSymm1beta2*Abs(beta1L) + - PDupwindNthSymm2beta2*Abs(beta2L) + - PDupwindNthSymm3beta2*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - - B3L = INV(theta)*INV(ToReal(ShiftGammaCoeff))*(dtbetazL - - (beta1L*PDupwindNthAnti1beta3 + beta2L*PDupwindNthAnti2beta3 + - beta3L*PDupwindNthAnti3beta3 + PDupwindNthSymm1beta3*Abs(beta1L) + - PDupwindNthSymm2beta3*Abs(beta2L) + - PDupwindNthSymm3beta3*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)); - } - else - { - B1L = 0; - - B2L = 0; - - B3L = 0; - } - + CCTK_REAL B1L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetaxL - + 3*(beta1L*PDupwindNthAnti1beta1 + beta2L*PDupwindNthAnti2beta1 + + beta3L*PDupwindNthAnti3beta1 + PDupwindNthSymm1beta1*Abs(beta1L) + + PDupwindNthSymm2beta1*Abs(beta2L) + + PDupwindNthSymm3beta1*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B2L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetayL - + 3*(beta1L*PDupwindNthAnti1beta2 + beta2L*PDupwindNthAnti2beta2 + + beta3L*PDupwindNthAnti3beta2 + PDupwindNthSymm1beta2*Abs(beta1L) + + PDupwindNthSymm2beta2*Abs(beta2L) + + PDupwindNthSymm3beta2*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B3L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(27*dtbetazL - + 3*(beta1L*PDupwindNthAnti1beta3 + beta2L*PDupwindNthAnti2beta3 + + beta3L*PDupwindNthAnti3beta3 + PDupwindNthSymm1beta3*Abs(beta1L) + + PDupwindNthSymm2beta3*Abs(beta2L) + + PDupwindNthSymm3beta3*Abs(beta3L))*ToReal(ShiftAdvectionCoeff)),0); /* Copy local copies back to grid functions */ A[index] = AL; diff --git a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBase.cc b/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBase.cc index 0f74f58..e0bc9ee 100644 --- a/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBase.cc +++ b/ML_BSSN_O8/src/ML_BSSN_O8_convertToADMBase.cc @@ -135,7 +135,8 @@ static void ML_BSSN_O8_convertToADMBase_Body(cGH const * restrict const cctkGH, /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); gxxL = e4phi*gt11L; diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_Minkowski.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_Minkowski.cc index 17ffe3d..cc9763e 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_Minkowski.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_Minkowski.cc @@ -105,7 +105,7 @@ static void ML_BSSN_UPW_Minkowski_Body(cGH const * restrict const cctkGH, int co /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS1.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS1.cc index 08c5863..6f407a7 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS1.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS1.cc @@ -420,7 +420,7 @@ static void ML_BSSN_UPW_RHS1_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -458,7 +458,8 @@ static void ML_BSSN_UPW_RHS1_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL Atu33 = Atm31*gtu13 + Atm32*gtu23 + Atm33*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); @@ -483,14 +484,11 @@ static void ML_BSSN_UPW_RHS1_Body(cGH const * restrict const cctkGH, int const d PDupwindNth2(&phi[index])*beta2L + PDupwindNth3(&phi[index])*beta3L + epsdiss1*PDdissipationNth1phi + epsdiss2*PDdissipationNth2phi + epsdiss3*PDdissipationNth3phi + - IfThen(conformalMethod,-0.333333333333333333333333333333*(PDstandardNth1beta1 - + - PDstandardNth2beta2)*phiL,0.166666666666666666666666666667*(PDstandardNth1beta1 - + PDstandardNth2beta2)) + - IfThen(conformalMethod,phiL*(-0.333333333333333333333333333333*PDstandardNth3beta3 - + - 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*PDstandardNth3beta3 - - 0.166666666666666666666666666667*alphaL*trKL); + IfThen(ToReal(conformalMethod),phiL*(-0.333333333333333333333333333333*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) + + 0.333333333333333333333333333333*alphaL*trKL),0.166666666666666666666666666667*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3) - + 0.166666666666666666666666666667*alphaL*trKL); CCTK_REAL gt11rhsL = -2*alphaL*At11L + PDupwindNth1(>11[index])*beta1L + @@ -557,77 +555,68 @@ static void ML_BSSN_UPW_RHS1_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL dotXt1 = 0.333333333333333333333333333333*(7*(gtu12*PDstandardNth12beta1 + - gtu13*PDstandardNth13beta1) + 6*gtu23*PDstandardNth23beta1 + + gtu13*PDstandardNth13beta1) + gtu11*(4*PDstandardNth11beta1 + + PDstandardNth12beta2 + PDstandardNth13beta3) + + gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3) + 3*(PDupwindNth1(&Xt1[index])*beta1L + PDupwindNth2(&Xt1[index])*beta2L + PDupwindNth3(&Xt1[index])*beta3L + epsdiss1*PDdissipationNth1Xt1 + epsdiss2*PDdissipationNth2Xt1 + epsdiss3*PDdissipationNth3Xt1 + gtu22*PDstandardNth22beta1 + - gtu33*PDstandardNth33beta1) - 6*(Atu11*PDstandardNth1alpha + + gtu33*PDstandardNth33beta1) + gtu13*(PDstandardNth23beta2 + + PDstandardNth33beta3) - 6*(Atu11*PDstandardNth1alpha + Atu12*PDstandardNth2alpha + Atu13*PDstandardNth3alpha) + - gtu11*(4*PDstandardNth11beta1 + PDstandardNth12beta2 + - PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + - gtu12*(PDstandardNth22beta2 + PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu13*(PDstandardNth23beta2 + PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth1beta1 + 2*PDstandardNth3beta3)*Xtn1 + - 2*(alphaL*(18*(Atu11*cdphi1 + Atu12*cdphi2 + Atu13*cdphi3) + - 6*(Atu12*Gt112 + Atu13*Gt113 + Atu23*Gt123) + 3*(Atu11*Gt111 + - Atu22*Gt122 + Atu33*Gt133) - 2*(gtu11*PDstandardNth1trK + - gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK)) + - PDstandardNth2beta2*Xtn1) - 3*(PDstandardNth2beta1*Xtn2 + - PDstandardNth3beta1*Xtn3)); + 6*(gtu23*PDstandardNth23beta1 + alphaL*(6*(Atu11*cdphi1 + Atu12*cdphi2 + + Atu13*cdphi3) + Atu11*Gt111 + Atu22*Gt122 + 2*(Atu12*Gt112 + + Atu13*Gt113 + Atu23*Gt123) + Atu33*Gt133 - + 0.666666666666666666666666666667*(gtu11*PDstandardNth1trK + + gtu12*PDstandardNth2trK + gtu13*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu11*S1 + gtu12*S2 + + gtu13*S3) + (-3*PDstandardNth1beta1 + 2*(PDstandardNth1beta1 + + PDstandardNth2beta2 + PDstandardNth3beta3))*Xtn1 - + 3*(PDstandardNth2beta1*Xtn2 + PDstandardNth3beta1*Xtn3)); CCTK_REAL dotXt2 = - 0.333333333333333333333333333333*(6*gtu13*PDstandardNth13beta2 + - 3*(PDupwindNth1(&Xt2[index])*beta1L + + 0.333333333333333333333333333333*(gtu12*(PDstandardNth11beta1 + + 7*PDstandardNth12beta2 + PDstandardNth13beta3) + + gtu22*(PDstandardNth12beta1 + 4*PDstandardNth22beta2 + + PDstandardNth23beta3) + 3*(PDupwindNth1(&Xt2[index])*beta1L + PDupwindNth2(&Xt2[index])*beta2L + PDupwindNth3(&Xt2[index])*beta3L + epsdiss1*PDdissipationNth1Xt2 + epsdiss2*PDdissipationNth2Xt2 + epsdiss3*PDdissipationNth3Xt2 + gtu11*PDstandardNth11beta2 + - gtu33*PDstandardNth33beta2) - 6*(Atu12*PDstandardNth1alpha + - Atu22*PDstandardNth2alpha + Atu23*PDstandardNth3alpha) + - gtu12*(PDstandardNth11beta1 + 7*PDstandardNth12beta2 + - PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + - gtu22*(PDstandardNth12beta1 + 4*PDstandardNth22beta2 + - PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + - gtu23*(PDstandardNth13beta1 + 7*PDstandardNth23beta2 + - PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) + - (-PDstandardNth2beta2 + 2*PDstandardNth3beta3)*Xtn2 + - 2*(alphaL*(18*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + - 6*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + 3*(Atu11*Gt211 + - Atu22*Gt222 + Atu33*Gt233) - 2*(gtu12*PDstandardNth1trK + - gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn2) - 3*(PDstandardNth1beta2*Xtn1 + - PDstandardNth3beta2*Xtn3)); + gtu33*PDstandardNth33beta2) + gtu23*(PDstandardNth13beta1 + + 7*PDstandardNth23beta2 + PDstandardNth33beta3) - + 6*(Atu12*PDstandardNth1alpha + Atu22*PDstandardNth2alpha + + Atu23*PDstandardNth3alpha) + 6*(gtu13*PDstandardNth13beta2 + + alphaL*(6*(Atu12*cdphi1 + Atu22*cdphi2 + Atu23*cdphi3) + Atu11*Gt211 + + Atu22*Gt222 + 2*(Atu12*Gt212 + Atu13*Gt213 + Atu23*Gt223) + Atu33*Gt233 + - 0.666666666666666666666666666667*(gtu12*PDstandardNth1trK + + gtu22*PDstandardNth2trK + gtu23*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu12*S1 + gtu22*S2 + + gtu23*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn2 - 3*(PDstandardNth1beta2*Xtn1 + + PDstandardNth2beta2*Xtn2 + PDstandardNth3beta2*Xtn3)); CCTK_REAL dotXt3 = - 0.333333333333333333333333333333*(6*gtu12*PDstandardNth12beta3 + + 0.333333333333333333333333333333*(gtu13*(PDstandardNth11beta1 + + PDstandardNth12beta2 + 7*PDstandardNth13beta3) + 3*(PDupwindNth1(&Xt3[index])*beta1L + PDupwindNth2(&Xt3[index])*beta2L + PDupwindNth3(&Xt3[index])*beta3L + epsdiss1*PDdissipationNth1Xt3 + epsdiss2*PDdissipationNth2Xt3 + epsdiss3*PDdissipationNth3Xt3 + gtu11*PDstandardNth11beta3 + - gtu22*PDstandardNth22beta3) - 6*(Atu13*PDstandardNth1alpha + - Atu23*PDstandardNth2alpha + Atu33*PDstandardNth3alpha) + - gtu13*(PDstandardNth11beta1 + PDstandardNth12beta2 + - 7*PDstandardNth13beta3 - - 150.7964473723100754462068823974161384415*alphaL*S1) + - gtu23*(PDstandardNth12beta1 + PDstandardNth22beta2 + - 7*PDstandardNth23beta3 - - 150.7964473723100754462068823974161384415*alphaL*S2) + + gtu22*PDstandardNth22beta3) + gtu23*(PDstandardNth12beta1 + + PDstandardNth22beta2 + 7*PDstandardNth23beta3) + gtu33*(PDstandardNth13beta1 + PDstandardNth23beta2 + - 4*PDstandardNth33beta3 - - 150.7964473723100754462068823974161384415*alphaL*S3) - - 3*(PDstandardNth1beta3*Xtn1 + PDstandardNth2beta3*Xtn2) + - (2*PDstandardNth2beta2 - PDstandardNth3beta3)*Xtn3 + - 2*(alphaL*(18*(Atu13*cdphi1 + Atu23*cdphi2 + Atu33*cdphi3) + - 6*(Atu12*Gt312 + Atu13*Gt313 + Atu23*Gt323) + 3*(Atu11*Gt311 + - Atu22*Gt322 + Atu33*Gt333) - 2*(gtu13*PDstandardNth1trK + - gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK)) + - PDstandardNth1beta1*Xtn3)); + 4*PDstandardNth33beta3) - 6*(Atu13*PDstandardNth1alpha + + Atu23*PDstandardNth2alpha + Atu33*PDstandardNth3alpha) + + 6*(gtu12*PDstandardNth12beta3 + alphaL*(6*(Atu13*cdphi1 + Atu23*cdphi2 + + Atu33*cdphi3) + Atu11*Gt311 + Atu22*Gt322 + 2*(Atu12*Gt312 + + Atu13*Gt313 + Atu23*Gt323) + Atu33*Gt333 - + 0.666666666666666666666666666667*(gtu13*PDstandardNth1trK + + gtu23*PDstandardNth2trK + gtu33*PDstandardNth3trK))) - + 150.7964473723100754462068823974161384415*alphaL*(gtu13*S1 + gtu23*S2 + + gtu33*S3) + 2*(PDstandardNth1beta1 + PDstandardNth2beta2 + + PDstandardNth3beta3)*Xtn3 - 3*(PDstandardNth1beta3*Xtn1 + + PDstandardNth2beta3*Xtn2 + PDstandardNth3beta3*Xtn3)); CCTK_REAL Xt1rhsL = dotXt1; diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS2.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS2.cc index 990577a..7ea1d4a 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS2.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_RHS2.cc @@ -431,16 +431,15 @@ static void ML_BSSN_UPW_RHS2_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -472,16 +471,15 @@ static void ML_BSSN_UPW_RHS2_Body(cGH const * restrict const cctkGH, int const d gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -498,18 +496,17 @@ static void ML_BSSN_UPW_RHS2_Body(cGH const * restrict const cctkGH, int const d gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -517,7 +514,7 @@ static void ML_BSSN_UPW_RHS2_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -597,7 +594,8 @@ static void ML_BSSN_UPW_RHS2_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL Atm33 = At13L*gtu13 + At23L*gtu23 + At33L*gtu33; - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_boundary.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_boundary.cc index 95f3daf..a1b60f5 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_boundary.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_boundary.cc @@ -141,7 +141,7 @@ static void ML_BSSN_UPW_boundary_Body(cGH const * restrict const cctkGH, int con /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL phiL = IfThen(conformalMethod,1,0); + CCTK_REAL phiL = IfThen(ToReal(conformalMethod),1,0); CCTK_REAL gt11L = 1; diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints1.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints1.cc index ee0608b..24fe6dd 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints1.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints1.cc @@ -391,16 +391,15 @@ static void ML_BSSN_UPW_constraints1_Body(cGH const * restrict const cctkGH, int CCTK_REAL Xtn3 = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL Rt11 = 0.5*(6*(Gt111*Gtlu111 + Gt112*Gtlu112 + - Gt113*Gtlu113) + 4*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + - Gt311*Gtlu131 + Gt312*Gtlu132 + Gt313*Gtlu133) - - gtu11*PDstandardNth11gt11 - 2*gtu12*PDstandardNth12gt11 - - 2*gtu13*PDstandardNth13gt11 + 2*(Gt211*Gtlu211 + Gt212*Gtlu212 + + CCTK_REAL Rt11 = 3*(Gt111*Gtlu111 + Gt112*Gtlu112 + Gt113*Gtlu113) + + 2*(Gt211*Gtlu121 + Gt212*Gtlu122 + Gt213*Gtlu123 + Gt311*Gtlu131 + + Gt312*Gtlu132 + Gt313*Gtlu133) + Gt211*Gtlu211 + Gt212*Gtlu212 + Gt213*Gtlu213 + Gt311*Gtlu311 + Gt312*Gtlu312 + Gt313*Gtlu313 + - gt11L*PDstandardNth1Xt1) + 2*gt12L*PDstandardNth1Xt2 + - 2*gt13L*PDstandardNth1Xt3 - gtu22*PDstandardNth22gt11 - - 2*gtu23*PDstandardNth23gt11 - gtu33*PDstandardNth33gt11 + 2*Gtl111*Xtn1 - + 2*Gtl112*Xtn2 + 2*Gtl113*Xtn3); + gt11L*PDstandardNth1Xt1 + gt12L*PDstandardNth1Xt2 + + gt13L*PDstandardNth1Xt3 + 0.5*(-(gtu11*PDstandardNth11gt11) - + 2*gtu12*PDstandardNth12gt11 - 2*gtu13*PDstandardNth13gt11 - + gtu22*PDstandardNth22gt11 - 2*gtu23*PDstandardNth23gt11 - + gtu33*PDstandardNth33gt11) + Gtl111*Xtn1 + Gtl112*Xtn2 + Gtl113*Xtn3; CCTK_REAL Rt12 = 0.5*(4*(Gt211*Gtlu221 + Gt212*Gtlu222 + Gt213*Gtlu223) + 2*(Gt112*Gtlu111 + Gt122*Gtlu112 + Gt123*Gtlu113 + @@ -432,16 +431,15 @@ static void ML_BSSN_UPW_constraints1_Body(cGH const * restrict const cctkGH, int gt13L*PDstandardNth3Xt3 + Gtl113*Xtn1 + Gtl311*Xtn1 + Gtl123*Xtn2 + Gtl312*Xtn2 + Gtl133*Xtn3 + Gtl313*Xtn3); - CCTK_REAL Rt22 = 0.5*(6*(Gt212*Gtlu221 + Gt222*Gtlu222 + - Gt223*Gtlu223) + 4*(Gt112*Gtlu211 + Gt122*Gtlu212 + Gt123*Gtlu213 + - Gt312*Gtlu231 + Gt322*Gtlu232 + Gt323*Gtlu233) - - gtu11*PDstandardNth11gt22 - 2*gtu12*PDstandardNth12gt22 - - 2*gtu13*PDstandardNth13gt22 - gtu22*PDstandardNth22gt22 - - 2*gtu23*PDstandardNth23gt22 + 2*(Gt112*Gtlu121 + Gt122*Gtlu122 + - Gt123*Gtlu123 + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + - gt12L*PDstandardNth2Xt1) + 2*gt22L*PDstandardNth2Xt2 + - 2*gt23L*PDstandardNth2Xt3 - gtu33*PDstandardNth33gt22 + 2*Gtl212*Xtn1 + - 2*Gtl222*Xtn2 + 2*Gtl223*Xtn3); + CCTK_REAL Rt22 = Gt112*(Gtlu121 + 2*Gtlu211) + Gt122*(Gtlu122 + + 2*Gtlu212) + Gt123*(Gtlu123 + 2*Gtlu213) + 3*(Gt212*Gtlu221 + + Gt222*Gtlu222 + Gt223*Gtlu223) + 2*(Gt312*Gtlu231 + Gt322*Gtlu232 + + Gt323*Gtlu233) + Gt312*Gtlu321 + Gt322*Gtlu322 + Gt323*Gtlu323 + + gt12L*PDstandardNth2Xt1 + gt22L*PDstandardNth2Xt2 + + gt23L*PDstandardNth2Xt3 + 0.5*(-(gtu11*PDstandardNth11gt22) - + 2*gtu12*PDstandardNth12gt22 - 2*gtu13*PDstandardNth13gt22 - + gtu22*PDstandardNth22gt22 - 2*gtu23*PDstandardNth23gt22 - + gtu33*PDstandardNth33gt22) + Gtl212*Xtn1 + Gtl222*Xtn2 + Gtl223*Xtn3; CCTK_REAL Rt23 = 0.5*(2*(Gt112*Gtlu131 + Gt122*Gtlu132 + Gt123*Gtlu133 + Gt113*Gtlu211 + Gt123*Gtlu212 + Gt133*Gtlu213 + Gt213*Gtlu221 + @@ -458,18 +456,17 @@ static void ML_BSSN_UPW_constraints1_Body(cGH const * restrict const cctkGH, int gt23L*PDstandardNth3Xt3 + Gtl213*Xtn1 + Gtl312*Xtn1 + Gtl223*Xtn2 + Gtl322*Xtn2 + Gtl233*Xtn3 + Gtl323*Xtn3); - CCTK_REAL Rt33 = 0.5*(4*(Gt113*Gtlu311 + Gt123*Gtlu312 + Gt133*Gtlu313 - + Gt213*Gtlu321 + Gt223*Gtlu322 + Gt233*Gtlu323) + 6*(Gt313*Gtlu331 + - Gt323*Gtlu332 + Gt333*Gtlu333) - gtu11*PDstandardNth11gt33 - - 2*gtu12*PDstandardNth12gt33 - 2*gtu13*PDstandardNth13gt33 - - gtu22*PDstandardNth22gt33 - 2*gtu23*PDstandardNth23gt33 - - gtu33*PDstandardNth33gt33 + 2*(Gt113*Gtlu131 + Gt123*Gtlu132 + - Gt133*Gtlu133 + Gt213*Gtlu231 + Gt223*Gtlu232 + Gt233*Gtlu233 + - gt13L*PDstandardNth3Xt1) + 2*gt23L*PDstandardNth3Xt2 + - 2*gt33L*PDstandardNth3Xt3 + 2*Gtl313*Xtn1 + 2*Gtl323*Xtn2 + - 2*Gtl333*Xtn3); + CCTK_REAL Rt33 = Gt113*(Gtlu131 + 2*Gtlu311) + Gt123*(Gtlu132 + + 2*Gtlu312) + Gt133*(Gtlu133 + 2*Gtlu313) + Gt213*(Gtlu231 + 2*Gtlu321) + + Gt223*(Gtlu232 + 2*Gtlu322) + Gt233*(Gtlu233 + 2*Gtlu323) + + 3*(Gt313*Gtlu331 + Gt323*Gtlu332 + Gt333*Gtlu333) + + 0.5*(-(gtu11*PDstandardNth11gt33) - 2*gtu12*PDstandardNth12gt33 - + 2*gtu13*PDstandardNth13gt33 - gtu22*PDstandardNth22gt33 - + 2*gtu23*PDstandardNth23gt33 - gtu33*PDstandardNth33gt33) + + gt13L*PDstandardNth3Xt1 + gt23L*PDstandardNth3Xt2 + + gt33L*PDstandardNth3Xt3 + Gtl313*Xtn1 + Gtl323*Xtn2 + Gtl333*Xtn3; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; @@ -477,7 +474,7 @@ static void ML_BSSN_UPW_constraints1_Body(cGH const * restrict const cctkGH, int CCTK_REAL cdphi3 = fac1*PDstandardNth3phi; - CCTK_REAL fac2 = IfThen(conformalMethod,0.5*INV(SQR(phiL)),0); + CCTK_REAL fac2 = IfThen(ToReal(conformalMethod),0.5*INV(SQR(phiL)),0); CCTK_REAL cdphi211 = -(fac1*(-PDstandardNth11phi + Gt111*PDstandardNth1phi + Gt211*PDstandardNth2phi + @@ -539,7 +536,8 @@ static void ML_BSSN_UPW_constraints1_Body(cGH const * restrict const cctkGH, int + 2*SQR(cdphi1)) + gtu22*(cdphi222 + 2*SQR(cdphi2))) + 2*(-1 + gt33L*gtu33)*SQR(cdphi3)); - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); CCTK_REAL em4phi = INV(e4phi); diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints2.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints2.cc index e8ca69b..da54ae5 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints2.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_constraints2.cc @@ -305,7 +305,7 @@ static void ML_BSSN_UPW_constraints2_Body(cGH const * restrict const cctkGH, int CCTK_REAL Gt333 = Gtl133*gtu13 + Gtl233*gtu23 + Gtl333*gtu33; - CCTK_REAL fac1 = IfThen(conformalMethod,-0.5*INV(phiL),1); + CCTK_REAL fac1 = IfThen(ToReal(conformalMethod),-0.5*INV(phiL),1); CCTK_REAL cdphi1 = fac1*PDstandardNth1phi; diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBaseGamma.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBaseGamma.cc index 6118e93..882b220 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBaseGamma.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertFromADMBaseGamma.cc @@ -258,45 +258,32 @@ static void ML_BSSN_UPW_convertFromADMBaseGamma_Body(cGH const * restrict const CCTK_REAL Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; - CCTK_REAL AL = IfThen(LapseACoeff != - 0,INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(-dtalpL + + CCTK_REAL AL = IfThen(ToReal(LapseACoeff) != + 0,-(INV(ToReal(harmonicF))*pow(alphaL,-ToReal(harmonicN))*(9*dtalpL - (PDupwindNth1(&alpha[index])*beta1L + PDupwindNth2(&alpha[index])*beta2L + - PDupwindNth3(&alpha[index])*beta3L)*ToReal(LapseAdvectionCoeff)),0); + PDupwindNth3(&alpha[index])*beta3L)*ToReal(LapseAdvectionCoeff))),0); CCTK_REAL theta = fmin(1,exp(1 - rL*INV(ToReal(SpatialShiftGammaCoeffRadius)))); - CCTK_REAL B1L; - CCTK_REAL B2L; - CCTK_REAL B3L; - - if (ShiftBCoeff*ShiftGammaCoeff != 0) - { - B1L = -(INV(theta)*INV(ToReal(ShiftGammaCoeff))*(-dtbetaxL + - (PDupwindNth1(&beta1[index])*beta1L + - PDupwindNth2(&beta1[index])*beta2L + - PDupwindNth3(&beta1[index])*beta3L)*ToReal(ShiftAdvectionCoeff))); - - B2L = -(INV(theta)*INV(ToReal(ShiftGammaCoeff))*(-dtbetayL + - (PDupwindNth1(&beta2[index])*beta1L + - PDupwindNth2(&beta2[index])*beta2L + - PDupwindNth3(&beta2[index])*beta3L)*ToReal(ShiftAdvectionCoeff))); - - B3L = -(INV(theta)*INV(ToReal(ShiftGammaCoeff))*(-dtbetazL + - (PDupwindNth1(&beta3[index])*beta1L + - PDupwindNth2(&beta3[index])*beta2L + - PDupwindNth3(&beta3[index])*beta3L)*ToReal(ShiftAdvectionCoeff))); - } - else - { - B1L = 0; - - B2L = 0; - - B3L = 0; - } - + CCTK_REAL B1L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(9*dtbetaxL - + (PDupwindNth1(&beta1[index])*beta1L + + PDupwindNth2(&beta1[index])*beta2L + + PDupwindNth3(&beta1[index])*beta3L)*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B2L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(9*dtbetayL - + (PDupwindNth1(&beta2[index])*beta1L + + PDupwindNth2(&beta2[index])*beta2L + + PDupwindNth3(&beta2[index])*beta3L)*ToReal(ShiftAdvectionCoeff)),0); + + CCTK_REAL B3L = IfThen(ToReal(ShiftBCoeff)*ToReal(ShiftGammaCoeff) != + 0,INV(theta)*INV(ToReal(ShiftGammaCoeff))*(9*dtbetazL - + (PDupwindNth1(&beta3[index])*beta1L + + PDupwindNth2(&beta3[index])*beta2L + + PDupwindNth3(&beta3[index])*beta3L)*ToReal(ShiftAdvectionCoeff)),0); /* Copy local copies back to grid functions */ A[index] = AL; diff --git a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBase.cc b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBase.cc index 964e15f..4b2ad90 100644 --- a/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBase.cc +++ b/ML_BSSN_UPW/src/ML_BSSN_UPW_convertToADMBase.cc @@ -129,7 +129,8 @@ static void ML_BSSN_UPW_convertToADMBase_Body(cGH const * restrict const cctkGH, /* Precompute derivatives */ /* Calculate temporaries and grid functions */ - CCTK_REAL e4phi = IfThen(conformalMethod,INV(SQR(phiL)),exp(4*phiL)); + CCTK_REAL e4phi = + IfThen(ToReal(conformalMethod),INV(SQR(phiL)),exp(4*phiL)); gxxL = e4phi*gt11L; diff --git a/ML_WaveToyFO/interface.ccl b/ML_WaveToyFO/interface.ccl index 20aaeb3..e70550f 100644 --- a/ML_WaveToyFO/interface.ccl +++ b/ML_WaveToyFO/interface.ccl @@ -18,9 +18,6 @@ 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 MultiPatch_GetMap(CCTK_POINTER_TO_CONST IN cctkGH) -USES FUNCTION MultiPatch_GetMap - 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 diff --git a/ML_WaveToyFO/src/Differencing.h b/ML_WaveToyFO/src/Differencing.h index cd495e5..49ee0ba 100644 --- a/ML_WaveToyFO/src/Differencing.h +++ b/ML_WaveToyFO/src/Differencing.h @@ -1,144 +1,12 @@ -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth1(u) ((-8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(0)]) + 8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(0)]))*p1o12dx) -#else -# define PDstandardNth1(u) (PDstandardNth1_impl(u,p1o12dx,cdj,cdk)) -static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth1_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dx, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(0)]) + 8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(0)]))*p1o12dx; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth2(u) ((-8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(0)]) + 8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(0)]))*p1o12dy) -#else -# define PDstandardNth2(u) (PDstandardNth2_impl(u,p1o12dy,cdj,cdk)) -static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth2_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dy, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(0)]) + 8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(0)]))*p1o12dy; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth3(u) ((-8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-1)]) + 8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(2)]))*p1o12dz) -#else -# define PDstandardNth3(u) (PDstandardNth3_impl(u,p1o12dz,cdj,cdk)) -static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth3_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o12dz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-1)]) + 8*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(2)]))*p1o12dz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth11(u) ((30*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(0)]) - 16*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(0)]))*pm1o12dx2) -#else -# define PDstandardNth11(u) (PDstandardNth11_impl(u,pm1o12dx2,cdj,cdk)) -static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth11_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dx2, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (30*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(0)]) - 16*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(0)]))*pm1o12dx2; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth22(u) ((30*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(0)]) - 16*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(0)]))*pm1o12dy2) -#else -# define PDstandardNth22(u) (PDstandardNth22_impl(u,pm1o12dy2,cdj,cdk)) -static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth22_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dy2, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (30*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(0)]) - 16*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(0)]))*pm1o12dy2; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth33(u) ((30*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(0)]) - 16*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(2)]))*pm1o12dz2) -#else -# define PDstandardNth33(u) (PDstandardNth33_impl(u,pm1o12dz2,cdj,cdk)) -static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth33_impl(CCTK_REAL const* restrict const u, CCTK_REAL const pm1o12dz2, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (30*(*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(0)]) - 16*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(0)+cdk*(2)]))*pm1o12dz2; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth12(u) ((-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-1)+cdk*(0)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(1)+cdk*(0)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-1)+cdk*(0)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(1)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(2)+cdk*(0)]))*p1o144dxdy) -#else -# define PDstandardNth12(u) (PDstandardNth12_impl(u,p1o144dxdy,cdj,cdk)) -static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth12_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-1)+cdk*(0)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(1)+cdk*(0)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-1)+cdk*(0)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(1)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(2)+cdk*(0)]))*p1o144dxdy; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth13(u) ((-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(2)]))*p1o144dxdz) -#else -# define PDstandardNth13(u) (PDstandardNth13_impl(u,p1o144dxdz,cdj,cdk)) -static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth13_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(2)]))*p1o144dxdz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth21(u) ((-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-1)+cdk*(0)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(1)+cdk*(0)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-1)+cdk*(0)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(1)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(2)+cdk*(0)]))*p1o144dxdy) -#else -# define PDstandardNth21(u) (PDstandardNth21_impl(u,p1o144dxdy,cdj,cdk)) -static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth21_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdy, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-1)+cdk*(0)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(1)+cdk*(0)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-1)+cdk*(0)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-1)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(1)+cdk*(0)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(-2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(2)+cdk*(0)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(-2)+cdk*(0)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(2)+cdk*(0)]))*p1o144dxdy; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth23(u) ((-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(2)]))*p1o144dydz) -#else -# define PDstandardNth23(u) (PDstandardNth23_impl(u,p1o144dydz,cdj,cdk)) -static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth23_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(2)]))*p1o144dydz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth31(u) ((-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(2)]))*p1o144dxdz) -#else -# define PDstandardNth31(u) (PDstandardNth31_impl(u,p1o144dxdz,cdj,cdk)) -static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth31_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dxdz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(-1)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(1)+cdj*(0)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(-2)+cdj*(0)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(2)+cdj*(0)+cdk*(2)]))*p1o144dxdz; -} -#endif - -#ifndef KRANC_DIFF_FUNCTIONS -# define PDstandardNth32(u) ((-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(2)]))*p1o144dydz) -#else -# define PDstandardNth32(u) (PDstandardNth32_impl(u,p1o144dydz,cdj,cdk)) -static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) CCTK_ATTRIBUTE_NOINLINE CCTK_ATTRIBUTE_UNUSED; -static CCTK_REAL PDstandardNth32_impl(CCTK_REAL const* restrict const u, CCTK_REAL const p1o144dydz, ptrdiff_t const cdj, ptrdiff_t const cdk) -{ - ptrdiff_t const cdi=sizeof(CCTK_REAL); - return (-64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-1)])) + 64*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(1)])) + 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-1)])) - 8*((*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-1)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(1)+cdk*(2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-1)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(1)])) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(-2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(-2)+cdk*(2)]) - (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(-2)]) + (*(CCTK_REAL const*)&((char const*)(u))[cdi*(0)+cdj*(2)+cdk*(2)]))*p1o144dydz; -} -#endif - +#define PDstandardNth1(u) (p1o12dx*(-8*(u)[di*(-1)+dj*(0)+dk*(0)] + 8*(u)[di*(1)+dj*(0)+dk*(0)] + (u)[di*(-2)+dj*(0)+dk*(0)] - (u)[di*(2)+dj*(0)+dk*(0)])) +#define PDstandardNth2(u) (p1o12dy*(-8*(u)[di*(0)+dj*(-1)+dk*(0)] + 8*(u)[di*(0)+dj*(1)+dk*(0)] + (u)[di*(0)+dj*(-2)+dk*(0)] - (u)[di*(0)+dj*(2)+dk*(0)])) +#define PDstandardNth3(u) (p1o12dz*(-8*(u)[di*(0)+dj*(0)+dk*(-1)] + 8*(u)[di*(0)+dj*(0)+dk*(1)] + (u)[di*(0)+dj*(0)+dk*(-2)] - (u)[di*(0)+dj*(0)+dk*(2)])) +#define PDstandardNth11(u) (pm1o12dx2*(30*(u)[di*(0)+dj*(0)+dk*(0)] - 16*((u)[di*(-1)+dj*(0)+dk*(0)] + (u)[di*(1)+dj*(0)+dk*(0)]) + (u)[di*(-2)+dj*(0)+dk*(0)] + (u)[di*(2)+dj*(0)+dk*(0)])) +#define PDstandardNth22(u) (pm1o12dy2*(30*(u)[di*(0)+dj*(0)+dk*(0)] - 16*((u)[di*(0)+dj*(-1)+dk*(0)] + (u)[di*(0)+dj*(1)+dk*(0)]) + (u)[di*(0)+dj*(-2)+dk*(0)] + (u)[di*(0)+dj*(2)+dk*(0)])) +#define PDstandardNth33(u) (pm1o12dz2*(30*(u)[di*(0)+dj*(0)+dk*(0)] - 16*((u)[di*(0)+dj*(0)+dk*(-1)] + (u)[di*(0)+dj*(0)+dk*(1)]) + (u)[di*(0)+dj*(0)+dk*(-2)] + (u)[di*(0)+dj*(0)+dk*(2)])) +#define PDstandardNth12(u) (p1o144dxdy*(-64*((u)[di*(-1)+dj*(1)+dk*(0)] + (u)[di*(1)+dj*(-1)+dk*(0)]) + 64*((u)[di*(-1)+dj*(-1)+dk*(0)] + (u)[di*(1)+dj*(1)+dk*(0)]) + 8*((u)[di*(-1)+dj*(2)+dk*(0)] + (u)[di*(1)+dj*(-2)+dk*(0)] + (u)[di*(-2)+dj*(1)+dk*(0)] + (u)[di*(2)+dj*(-1)+dk*(0)]) - 8*((u)[di*(-1)+dj*(-2)+dk*(0)] + (u)[di*(1)+dj*(2)+dk*(0)] + (u)[di*(-2)+dj*(-1)+dk*(0)] + (u)[di*(2)+dj*(1)+dk*(0)]) + (u)[di*(-2)+dj*(-2)+dk*(0)] - (u)[di*(-2)+dj*(2)+dk*(0)] - (u)[di*(2)+dj*(-2)+dk*(0)] + (u)[di*(2)+dj*(2)+dk*(0)])) +#define PDstandardNth13(u) (p1o144dxdz*(-64*((u)[di*(-1)+dj*(0)+dk*(1)] + (u)[di*(1)+dj*(0)+dk*(-1)]) + 64*((u)[di*(-1)+dj*(0)+dk*(-1)] + (u)[di*(1)+dj*(0)+dk*(1)]) + 8*((u)[di*(-1)+dj*(0)+dk*(2)] + (u)[di*(1)+dj*(0)+dk*(-2)] + (u)[di*(-2)+dj*(0)+dk*(1)] + (u)[di*(2)+dj*(0)+dk*(-1)]) - 8*((u)[di*(-1)+dj*(0)+dk*(-2)] + (u)[di*(1)+dj*(0)+dk*(2)] + (u)[di*(-2)+dj*(0)+dk*(-1)] + (u)[di*(2)+dj*(0)+dk*(1)]) + (u)[di*(-2)+dj*(0)+dk*(-2)] - (u)[di*(-2)+dj*(0)+dk*(2)] - (u)[di*(2)+dj*(0)+dk*(-2)] + (u)[di*(2)+dj*(0)+dk*(2)])) +#define PDstandardNth21(u) (p1o144dxdy*(-64*((u)[di*(-1)+dj*(1)+dk*(0)] + (u)[di*(1)+dj*(-1)+dk*(0)]) + 64*((u)[di*(-1)+dj*(-1)+dk*(0)] + (u)[di*(1)+dj*(1)+dk*(0)]) + 8*((u)[di*(-1)+dj*(2)+dk*(0)] + (u)[di*(1)+dj*(-2)+dk*(0)] + (u)[di*(-2)+dj*(1)+dk*(0)] + (u)[di*(2)+dj*(-1)+dk*(0)]) - 8*((u)[di*(-1)+dj*(-2)+dk*(0)] + (u)[di*(1)+dj*(2)+dk*(0)] + (u)[di*(-2)+dj*(-1)+dk*(0)] + (u)[di*(2)+dj*(1)+dk*(0)]) + (u)[di*(-2)+dj*(-2)+dk*(0)] - (u)[di*(-2)+dj*(2)+dk*(0)] - (u)[di*(2)+dj*(-2)+dk*(0)] + (u)[di*(2)+dj*(2)+dk*(0)])) +#define PDstandardNth23(u) (p1o144dydz*(-64*((u)[di*(0)+dj*(-1)+dk*(1)] + (u)[di*(0)+dj*(1)+dk*(-1)]) + 64*((u)[di*(0)+dj*(-1)+dk*(-1)] + (u)[di*(0)+dj*(1)+dk*(1)]) + 8*((u)[di*(0)+dj*(-1)+dk*(2)] + (u)[di*(0)+dj*(1)+dk*(-2)] + (u)[di*(0)+dj*(-2)+dk*(1)] + (u)[di*(0)+dj*(2)+dk*(-1)]) - 8*((u)[di*(0)+dj*(-1)+dk*(-2)] + (u)[di*(0)+dj*(1)+dk*(2)] + (u)[di*(0)+dj*(-2)+dk*(-1)] + (u)[di*(0)+dj*(2)+dk*(1)]) + (u)[di*(0)+dj*(-2)+dk*(-2)] - (u)[di*(0)+dj*(-2)+dk*(2)] - (u)[di*(0)+dj*(2)+dk*(-2)] + (u)[di*(0)+dj*(2)+dk*(2)])) +#define PDstandardNth31(u) (p1o144dxdz*(-64*((u)[di*(-1)+dj*(0)+dk*(1)] + (u)[di*(1)+dj*(0)+dk*(-1)]) + 64*((u)[di*(-1)+dj*(0)+dk*(-1)] + (u)[di*(1)+dj*(0)+dk*(1)]) + 8*((u)[di*(-1)+dj*(0)+dk*(2)] + (u)[di*(1)+dj*(0)+dk*(-2)] + (u)[di*(-2)+dj*(0)+dk*(1)] + (u)[di*(2)+dj*(0)+dk*(-1)]) - 8*((u)[di*(-1)+dj*(0)+dk*(-2)] + (u)[di*(1)+dj*(0)+dk*(2)] + (u)[di*(-2)+dj*(0)+dk*(-1)] + (u)[di*(2)+dj*(0)+dk*(1)]) + (u)[di*(-2)+dj*(0)+dk*(-2)] - (u)[di*(-2)+dj*(0)+dk*(2)] - (u)[di*(2)+dj*(0)+dk*(-2)] + (u)[di*(2)+dj*(0)+dk*(2)])) +#define PDstandardNth32(u) (p1o144dydz*(-64*((u)[di*(0)+dj*(-1)+dk*(1)] + (u)[di*(0)+dj*(1)+dk*(-1)]) + 64*((u)[di*(0)+dj*(-1)+dk*(-1)] + (u)[di*(0)+dj*(1)+dk*(1)]) + 8*((u)[di*(0)+dj*(-1)+dk*(2)] + (u)[di*(0)+dj*(1)+dk*(-2)] + (u)[di*(0)+dj*(-2)+dk*(1)] + (u)[di*(0)+dj*(2)+dk*(-1)]) - 8*((u)[di*(0)+dj*(-1)+dk*(-2)] + (u)[di*(0)+dj*(1)+dk*(2)] + (u)[di*(0)+dj*(-2)+dk*(-1)] + (u)[di*(0)+dj*(2)+dk*(1)]) + (u)[di*(0)+dj*(-2)+dk*(-2)] - (u)[di*(0)+dj*(-2)+dk*(2)] - (u)[di*(0)+dj*(2)+dk*(-2)] + (u)[di*(0)+dj*(2)+dk*(2)])) diff --git a/ML_WaveToyFO/src/WTFO_Gaussian.cc b/ML_WaveToyFO/src/WTFO_Gaussian.cc index 6711448..30f3101 100644 --- a/ML_WaveToyFO/src/WTFO_Gaussian.cc +++ b/ML_WaveToyFO/src/WTFO_Gaussian.cc @@ -6,7 +6,6 @@ #include <math.h> #include <stdio.h> #include <stdlib.h> -#include <string.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -42,20 +41,15 @@ static void WTFO_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, const char *groups[] = {"ML_WaveToyFO::WT_rho","ML_WaveToyFO::WT_u","ML_WaveToyFO::WT_v"}; GenericFD_AssertGroupStorage(cctkGH, "WTFO_Gaussian", 3, groups); - /* Include user-supplied include files */ /* Initialise finite differencing variables */ ptrdiff_t const di = 1; ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const cdi = sizeof(CCTK_REAL) * di; - ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj; - ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk; CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0)); CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1)); CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME); CCTK_REAL const dxi = INV(dx); CCTK_REAL const dyi = INV(dy); CCTK_REAL const dzi = INV(dz); @@ -89,8 +83,6 @@ static void WTFO_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, /* Assign local copies of grid functions */ - - /* Include user supplied include files */ /* Precompute derivatives */ @@ -106,6 +98,7 @@ static void WTFO_Gaussian_Body(cGH const * restrict const cctkGH, int const dir, CCTK_REAL rhoL = 0; + /* Copy local copies back to grid functions */ rho[index] = rhoL; u[index] = uL; diff --git a/ML_WaveToyFO/src/WTFO_RHS.cc b/ML_WaveToyFO/src/WTFO_RHS.cc index 7141c11..208608d 100644 --- a/ML_WaveToyFO/src/WTFO_RHS.cc +++ b/ML_WaveToyFO/src/WTFO_RHS.cc @@ -6,7 +6,6 @@ #include <math.h> #include <stdio.h> #include <stdlib.h> -#include <string.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -60,21 +59,15 @@ static void WTFO_RHS_Body(cGH const * restrict const cctkGH, int const dir, int const char *groups[] = {"ML_WaveToyFO::WT_rho","ML_WaveToyFO::WT_rhorhs","ML_WaveToyFO::WT_urhs","ML_WaveToyFO::WT_v","ML_WaveToyFO::WT_vrhs"}; GenericFD_AssertGroupStorage(cctkGH, "WTFO_RHS", 5, groups); - GenericFD_EnsureStencilFits(cctkGH, "WTFO_RHS", 2, 2, 2); - /* Include user-supplied include files */ /* Initialise finite differencing variables */ ptrdiff_t const di = 1; ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const cdi = sizeof(CCTK_REAL) * di; - ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj; - ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk; CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0)); CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1)); CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME); CCTK_REAL const dxi = INV(dx); CCTK_REAL const dyi = INV(dy); CCTK_REAL const dzi = INV(dz); @@ -107,13 +100,11 @@ static void WTFO_RHS_Body(cGH const * restrict const cctkGH, int const dir, int ptrdiff_t const index = di*i + dj*j + dk*k; /* Assign local copies of grid functions */ - CCTK_REAL rhoL = rho[index]; CCTK_REAL v1L = v1[index]; CCTK_REAL v2L = v2[index]; CCTK_REAL v3L = v3[index]; - /* Include user supplied include files */ /* Precompute derivatives */ @@ -136,6 +127,7 @@ static void WTFO_RHS_Body(cGH const * restrict const cctkGH, int const dir, int CCTK_REAL v3rhsL = PDstandardNth3rho; + /* Copy local copies back to grid functions */ rhorhs[index] = rhorhsL; urhs[index] = urhsL; diff --git a/ML_WaveToyFO/src/WTFO_constraints.cc b/ML_WaveToyFO/src/WTFO_constraints.cc index 2b3db6a..46748ad 100644 --- a/ML_WaveToyFO/src/WTFO_constraints.cc +++ b/ML_WaveToyFO/src/WTFO_constraints.cc @@ -6,7 +6,6 @@ #include <math.h> #include <stdio.h> #include <stdlib.h> -#include <string.h> #include "cctk.h" #include "cctk_Arguments.h" #include "cctk_Parameters.h" @@ -54,21 +53,15 @@ static void WTFO_constraints_Body(cGH const * restrict const cctkGH, int const d const char *groups[] = {"ML_WaveToyFO::WT_v","ML_WaveToyFO::WT_w"}; GenericFD_AssertGroupStorage(cctkGH, "WTFO_constraints", 2, groups); - GenericFD_EnsureStencilFits(cctkGH, "WTFO_constraints", 2, 2, 2); - /* Include user-supplied include files */ /* Initialise finite differencing variables */ ptrdiff_t const di = 1; ptrdiff_t const dj = CCTK_GFINDEX3D(cctkGH,0,1,0) - CCTK_GFINDEX3D(cctkGH,0,0,0); ptrdiff_t const dk = CCTK_GFINDEX3D(cctkGH,0,0,1) - CCTK_GFINDEX3D(cctkGH,0,0,0); - ptrdiff_t const cdi = sizeof(CCTK_REAL) * di; - ptrdiff_t const cdj = sizeof(CCTK_REAL) * dj; - ptrdiff_t const cdk = sizeof(CCTK_REAL) * dk; CCTK_REAL const dx = ToReal(CCTK_DELTA_SPACE(0)); CCTK_REAL const dy = ToReal(CCTK_DELTA_SPACE(1)); CCTK_REAL const dz = ToReal(CCTK_DELTA_SPACE(2)); - CCTK_REAL const dt = ToReal(CCTK_DELTA_TIME); CCTK_REAL const dxi = INV(dx); CCTK_REAL const dyi = INV(dy); CCTK_REAL const dzi = INV(dz); @@ -101,12 +94,10 @@ static void WTFO_constraints_Body(cGH const * restrict const cctkGH, int const d ptrdiff_t const index = di*i + dj*j + dk*k; /* Assign local copies of grid functions */ - CCTK_REAL v1L = v1[index]; CCTK_REAL v2L = v2[index]; CCTK_REAL v3L = v3[index]; - /* Include user supplied include files */ /* Precompute derivatives */ @@ -124,6 +115,7 @@ static void WTFO_constraints_Body(cGH const * restrict const cctkGH, int const d CCTK_REAL w3L = -PDstandardNth1v2 + PDstandardNth2v1; + /* Copy local copies back to grid functions */ w1[index] = w1L; w2[index] = w2L; diff --git a/m/McLachlan_ADM.m b/m/McLachlan_ADM.m index ead5522..1bde284 100644 --- a/m/McLachlan_ADM.m +++ b/m/McLachlan_ADM.m @@ -236,9 +236,9 @@ evolCalc = gu[ua,ub] -> 1/detg detgExpr MatrixInverse [g[ua,ub]], G[ua,lb,lc] -> 1/2 gu[ua,ud] (PD[g[lb,ld],lc] + PD[g[lc,ld],lb] - PD[g[lb,lc],ld]), - R[la,lb] -> G[uc,ld,la] G[ud,lc,lb] - G[uc,la,lb] G[ud,lc,ld] - + 1/2 gu[uc,ud] (- PD[g[lc,ld],la,lb] + PD[g[lc,la],ld,lb] - - PD[g[la,lb],lc,ld] + PD[g[ld,lb],lc,la]), + R[la,lb] -> G[u1,l2,la] G[u2,l1,lb] - G[u1,la,lb] G[u2,l1,l2] + + 1/2 gu[u1,u2] (- PD[g[l1,l2],la,lb] + PD[g[l1,la],l2,lb] + - PD[g[la,lb],l1,l2] + PD[g[l2,lb],l1,la]), Km[ua,lb] -> gu[ua,uc] K[lc,lb], trK -> Km[ua,la], @@ -288,9 +288,9 @@ constraintsCalc = gu[ua,ub] -> 1/detg detgExpr MatrixInverse[g[ua,ub]], G[ua,lb,lc] -> 1/2 gu[ua,ud] (PD[g[lb,ld],lc] + PD[g[lc,ld],lb] - PD[g[lb,lc],ld]), - R[la,lb] -> G[uc,ld,la] G[lc,lb,ud] - G[uc,la,lb] G[lc,ld,ud] - + 1/2 gu[uc,ud] (- PD[g[lc,ld],la,lb] + PD[g[lc,la],ld,lb] - - PD[g[la,lb],lc,ld] + PD[g[ld,lb],lc,la]), + R[la,lb] -> G[u1,l2,la] G[l1,lb,u2] - G[u1,la,lb] G[l1,l2,u2] + + 1/2 gu[u1,u2] (- PD[g[l1,l2],la,lb] + PD[g[l1,la],l2,lb] + - PD[g[la,lb],l1,l2] + PD[g[l2,lb],l1,la]), trR -> R[la,lb] gu[ua,ub], Km[ua,lb] -> gu[ua,uc] K[lc,lb], trK -> Km[ua,la], diff --git a/m/McLachlan_ADMConstraints.m b/m/McLachlan_ADMConstraints.m index 3e3ad3a..2925af2 100644 --- a/m/McLachlan_ADMConstraints.m +++ b/m/McLachlan_ADMConstraints.m @@ -158,9 +158,9 @@ ADMConstraintsCalc = gu[ua,ub] -> 1/detg detgExpr MatrixInverse[g[ua,ub]], G[ua,lb,lc] -> 1/2 gu[ua,ud] (PD[g[lb,ld],lc] + PD[g[lc,ld],lb] - PD[g[lb,lc],ld]), - R[la,lb] -> G[uc,ld,la] G[lc,lb,ud] - G[uc,la,lb] G[lc,ld,ud] - + 1/2 gu[uc,ud] (- PD[g[lc,ld],la,lb] + PD[g[lc,la],ld,lb] - - PD[g[la,lb],lc,ld] + PD[g[ld,lb],lc,la]), + R[la,lb] -> G[u1,l2,la] G[l1,lb,u2] - G[u1,la,lb] G[l1,l2,u2] + + 1/2 gu[u1,u2] (- PD[g[l1,l2],la,lb] + PD[g[l1,la],l2,lb] + - PD[g[la,lb],l1,l2] + PD[g[l2,lb],l1,la]), trR -> R[la,lb] gu[ua,ub], Km[ua,lb] -> gu[ua,uc] K[lc,lb], |