diff options
Diffstat (limited to 'ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc')
-rw-r--r-- | ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc | 444 |
1 files changed, 444 insertions, 0 deletions
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 new file mode 100644 index 0000000..a405eb7 --- /dev/null +++ b/ML_BSSN_MP_O8/src/ML_BSSN_MP_O8_convertFromADMBaseGamma.cc @@ -0,0 +1,444 @@ +/* File produced by Kranc */ + +#define KRANC_C + +#include <assert.h> +#include <math.h> +#include <stdio.h> +#include <stdlib.h> +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Parameters.h" +#include "GenericFD.h" +#include "Differencing.h" +#include "loopcontrol.h" + +/* Define macros used in calculations */ +#define INITVALUE (42) +#define QAD(x) (SQR(SQR(x))) +#define INV(x) ((1.0) / (x)) +#define SQR(x) ((x) * (x)) +#define CUB(x) ((x) * (x) * (x)) + +extern "C" void ML_BSSN_MP_O8_convertFromADMBaseGamma_SelectBCs(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + CCTK_INT ierr = 0; + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtlapse","flat"); + if (ierr < 0) + CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtlapse."); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_dtshift","flat"); + if (ierr < 0) + CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_dtshift."); + ierr = Boundary_SelectGroupForBC(cctkGH, CCTK_ALL_FACES, GenericFD_GetBoundaryWidth(cctkGH), -1 /* no table */, "ML_BSSN_MP_O8::ML_Gamma","flat"); + if (ierr < 0) + CCTK_WARN(1, "Failed to register flat BC for ML_BSSN_MP_O8::ML_Gamma."); + return; +} + +static void ML_BSSN_MP_O8_convertFromADMBaseGamma_Body(cGH const * restrict const cctkGH, int const dir, int const face, CCTK_REAL const normal[3], CCTK_REAL const tangentA[3], CCTK_REAL const tangentB[3], int const min[3], int const max[3], int const n_subblock_gfs, CCTK_REAL * restrict const subblock_gfs[]) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + + /* Declare finite differencing variables */ + + if (verbose > 1) + { + CCTK_VInfo(CCTK_THORNSTRING,"Entering ML_BSSN_MP_O8_convertFromADMBaseGamma_Body"); + } + + if (cctk_iteration % ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_every != ML_BSSN_MP_O8_convertFromADMBaseGamma_calc_offset) + { + return; + } + + const char *groups[] = {"ADMBase::dtlapse","ADMBase::dtshift","Coordinates::jacobian","grid::coordinates","Grid::coordinates","ML_BSSN_MP_O8::ML_dtlapse","ML_BSSN_MP_O8::ML_dtshift","ML_BSSN_MP_O8::ML_Gamma","ML_BSSN_MP_O8::ML_lapse","ML_BSSN_MP_O8::ML_metric","ML_BSSN_MP_O8::ML_shift"}; + GenericFD_AssertGroupStorage(cctkGH, "ML_BSSN_MP_O8_convertFromADMBaseGamma", 11, 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); + 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 dxi = INV(dx); + CCTK_REAL const dyi = INV(dy); + CCTK_REAL const dzi = INV(dz); + CCTK_REAL const khalf = 0.5; + CCTK_REAL const kthird = 1/3.0; + CCTK_REAL const ktwothird = 2.0/3.0; + CCTK_REAL const kfourthird = 4.0/3.0; + CCTK_REAL const keightthird = 8.0/3.0; + CCTK_REAL const hdxi = 0.5 * dxi; + CCTK_REAL const hdyi = 0.5 * dyi; + CCTK_REAL const hdzi = 0.5 * dzi; + + /* Initialize predefined quantities */ + CCTK_REAL const p1o1024dx = 0.0009765625*INV(dx); + CCTK_REAL const p1o1024dy = 0.0009765625*INV(dy); + CCTK_REAL const p1o1024dz = 0.0009765625*INV(dz); + CCTK_REAL const p1o1680dx = 0.000595238095238095238095238095238*INV(dx); + CCTK_REAL const p1o1680dy = 0.000595238095238095238095238095238*INV(dy); + CCTK_REAL const p1o1680dz = 0.000595238095238095238095238095238*INV(dz); + CCTK_REAL const p1o5040dx2 = 0.000198412698412698412698412698413*INV(SQR(dx)); + CCTK_REAL const p1o5040dy2 = 0.000198412698412698412698412698413*INV(SQR(dy)); + CCTK_REAL const p1o5040dz2 = 0.000198412698412698412698412698413*INV(SQR(dz)); + CCTK_REAL const p1o560dx = 0.00178571428571428571428571428571*INV(dx); + CCTK_REAL const p1o560dy = 0.00178571428571428571428571428571*INV(dy); + CCTK_REAL const p1o560dz = 0.00178571428571428571428571428571*INV(dz); + CCTK_REAL const p1o705600dxdy = 1.41723356009070294784580498866e-6*INV(dx)*INV(dy); + CCTK_REAL const p1o705600dxdz = 1.41723356009070294784580498866e-6*INV(dx)*INV(dz); + CCTK_REAL const p1o705600dydz = 1.41723356009070294784580498866e-6*INV(dy)*INV(dz); + CCTK_REAL const p1o840dx = 0.00119047619047619047619047619048*INV(dx); + CCTK_REAL const p1o840dy = 0.00119047619047619047619047619048*INV(dy); + CCTK_REAL const p1o840dz = 0.00119047619047619047619047619048*INV(dz); + CCTK_REAL const p1odx = INV(dx); + CCTK_REAL const p1ody = INV(dy); + CCTK_REAL const p1odz = INV(dz); + CCTK_REAL const pm1o840dx = -0.00119047619047619047619047619048*INV(dx); + CCTK_REAL const pm1o840dy = -0.00119047619047619047619047619048*INV(dy); + CCTK_REAL const pm1o840dz = -0.00119047619047619047619047619048*INV(dz); + + /* Loop over the grid points */ + #pragma omp parallel + LC_LOOP3 (ML_BSSN_MP_O8_convertFromADMBaseGamma, + i,j,k, min[0],min[1],min[2], max[0],max[1],max[2], + cctk_lsh[0],cctk_lsh[1],cctk_lsh[2]) + { + ptrdiff_t const index = di*i + dj*j + dk*k; + + /* Assign local copies of grid functions */ + CCTK_REAL alphaL = alpha[index]; + CCTK_REAL beta1L = beta1[index]; + CCTK_REAL beta2L = beta2[index]; + CCTK_REAL beta3L = beta3[index]; + CCTK_REAL dtalpL = dtalp[index]; + CCTK_REAL dtbetaxL = dtbetax[index]; + CCTK_REAL dtbetayL = dtbetay[index]; + CCTK_REAL dtbetazL = dtbetaz[index]; + CCTK_REAL gt11L = gt11[index]; + CCTK_REAL gt12L = gt12[index]; + CCTK_REAL gt13L = gt13[index]; + CCTK_REAL gt22L = gt22[index]; + CCTK_REAL gt23L = gt23[index]; + CCTK_REAL gt33L = gt33[index]; + CCTK_REAL J11L = J11[index]; + CCTK_REAL J12L = J12[index]; + CCTK_REAL J13L = J13[index]; + CCTK_REAL J21L = J21[index]; + CCTK_REAL J22L = J22[index]; + CCTK_REAL J23L = J23[index]; + CCTK_REAL J31L = J31[index]; + CCTK_REAL J32L = J32[index]; + CCTK_REAL J33L = J33[index]; + CCTK_REAL rL = r[index]; + + /* Include user supplied include files */ + + /* Precompute derivatives */ + CCTK_REAL const PDupwindNthAnti1alpha = PDupwindNthAnti1(&alpha[index]); + CCTK_REAL const PDupwindNthSymm1alpha = PDupwindNthSymm1(&alpha[index]); + CCTK_REAL const PDupwindNthAnti2alpha = PDupwindNthAnti2(&alpha[index]); + CCTK_REAL const PDupwindNthSymm2alpha = PDupwindNthSymm2(&alpha[index]); + CCTK_REAL const PDupwindNthAnti3alpha = PDupwindNthAnti3(&alpha[index]); + CCTK_REAL const PDupwindNthSymm3alpha = PDupwindNthSymm3(&alpha[index]); + CCTK_REAL const PDupwindNthAnti1beta1 = PDupwindNthAnti1(&beta1[index]); + CCTK_REAL const PDupwindNthSymm1beta1 = PDupwindNthSymm1(&beta1[index]); + CCTK_REAL const PDupwindNthAnti2beta1 = PDupwindNthAnti2(&beta1[index]); + CCTK_REAL const PDupwindNthSymm2beta1 = PDupwindNthSymm2(&beta1[index]); + CCTK_REAL const PDupwindNthAnti3beta1 = PDupwindNthAnti3(&beta1[index]); + CCTK_REAL const PDupwindNthSymm3beta1 = PDupwindNthSymm3(&beta1[index]); + CCTK_REAL const PDupwindNthAnti1beta2 = PDupwindNthAnti1(&beta2[index]); + CCTK_REAL const PDupwindNthSymm1beta2 = PDupwindNthSymm1(&beta2[index]); + CCTK_REAL const PDupwindNthAnti2beta2 = PDupwindNthAnti2(&beta2[index]); + CCTK_REAL const PDupwindNthSymm2beta2 = PDupwindNthSymm2(&beta2[index]); + CCTK_REAL const PDupwindNthAnti3beta2 = PDupwindNthAnti3(&beta2[index]); + CCTK_REAL const PDupwindNthSymm3beta2 = PDupwindNthSymm3(&beta2[index]); + CCTK_REAL const PDupwindNthAnti1beta3 = PDupwindNthAnti1(&beta3[index]); + CCTK_REAL const PDupwindNthSymm1beta3 = PDupwindNthSymm1(&beta3[index]); + CCTK_REAL const PDupwindNthAnti2beta3 = PDupwindNthAnti2(&beta3[index]); + CCTK_REAL const PDupwindNthSymm2beta3 = PDupwindNthSymm2(&beta3[index]); + CCTK_REAL const PDupwindNthAnti3beta3 = PDupwindNthAnti3(&beta3[index]); + CCTK_REAL const PDupwindNthSymm3beta3 = PDupwindNthSymm3(&beta3[index]); + CCTK_REAL const PDstandardNth1gt11 = PDstandardNth1(>11[index]); + CCTK_REAL const PDstandardNth2gt11 = PDstandardNth2(>11[index]); + CCTK_REAL const PDstandardNth3gt11 = PDstandardNth3(>11[index]); + CCTK_REAL const PDstandardNth1gt12 = PDstandardNth1(>12[index]); + CCTK_REAL const PDstandardNth2gt12 = PDstandardNth2(>12[index]); + CCTK_REAL const PDstandardNth3gt12 = PDstandardNth3(>12[index]); + CCTK_REAL const PDstandardNth1gt13 = PDstandardNth1(>13[index]); + CCTK_REAL const PDstandardNth2gt13 = PDstandardNth2(>13[index]); + CCTK_REAL const PDstandardNth3gt13 = PDstandardNth3(>13[index]); + CCTK_REAL const PDstandardNth1gt22 = PDstandardNth1(>22[index]); + CCTK_REAL const PDstandardNth2gt22 = PDstandardNth2(>22[index]); + CCTK_REAL const PDstandardNth3gt22 = PDstandardNth3(>22[index]); + CCTK_REAL const PDstandardNth1gt23 = PDstandardNth1(>23[index]); + CCTK_REAL const PDstandardNth2gt23 = PDstandardNth2(>23[index]); + CCTK_REAL const PDstandardNth3gt23 = PDstandardNth3(>23[index]); + CCTK_REAL const PDstandardNth1gt33 = PDstandardNth1(>33[index]); + CCTK_REAL const PDstandardNth2gt33 = PDstandardNth2(>33[index]); + CCTK_REAL const PDstandardNth3gt33 = PDstandardNth3(>33[index]); + + /* Calculate temporaries and grid functions */ + ptrdiff_t dir1 = Sign(beta1L); + + ptrdiff_t dir2 = Sign(beta2L); + + ptrdiff_t dir3 = Sign(beta3L); + + CCTK_REAL detgt = 1; + + CCTK_REAL gtu11 = INV(detgt)*(gt22L*gt33L - SQR(gt23L)); + + CCTK_REAL gtu12 = (gt13L*gt23L - gt12L*gt33L)*INV(detgt); + + CCTK_REAL gtu13 = (-(gt13L*gt22L) + gt12L*gt23L)*INV(detgt); + + CCTK_REAL gtu22 = INV(detgt)*(gt11L*gt33L - SQR(gt13L)); + + CCTK_REAL gtu23 = (gt12L*gt13L - gt11L*gt23L)*INV(detgt); + + CCTK_REAL gtu33 = INV(detgt)*(gt11L*gt22L - SQR(gt12L)); + + CCTK_REAL Gt111 = 0.5*((gtu11*J11L - gtu12*J12L - + gtu13*J13L)*PDstandardNth1gt11 + (gtu11*J21L - gtu12*J22L - + gtu13*J23L)*PDstandardNth2gt11 + (gtu11*J31L - gtu12*J32L - + gtu13*J33L)*PDstandardNth3gt11 + 2*(J11L*(gtu12*PDstandardNth1gt12 + + gtu13*PDstandardNth1gt13) + J21L*(gtu12*PDstandardNth2gt12 + + gtu13*PDstandardNth2gt13) + J31L*(gtu12*PDstandardNth3gt12 + + gtu13*PDstandardNth3gt13))); + + CCTK_REAL Gt211 = 0.5*((gtu12*J11L - gtu22*J12L - + gtu23*J13L)*PDstandardNth1gt11 + (gtu12*J21L - gtu22*J22L - + gtu23*J23L)*PDstandardNth2gt11 + (gtu12*J31L - gtu22*J32L - + gtu23*J33L)*PDstandardNth3gt11 + 2*(J11L*(gtu22*PDstandardNth1gt12 + + gtu23*PDstandardNth1gt13) + J21L*(gtu22*PDstandardNth2gt12 + + gtu23*PDstandardNth2gt13) + J31L*(gtu22*PDstandardNth3gt12 + + gtu23*PDstandardNth3gt13))); + + CCTK_REAL Gt311 = 0.5*((gtu13*J11L - gtu23*J12L - + gtu33*J13L)*PDstandardNth1gt11 + (gtu13*J21L - gtu23*J22L - + gtu33*J23L)*PDstandardNth2gt11 + (gtu13*J31L - gtu23*J32L - + gtu33*J33L)*PDstandardNth3gt11 + 2*(J11L*(gtu23*PDstandardNth1gt12 + + gtu33*PDstandardNth1gt13) + J21L*(gtu23*PDstandardNth2gt12 + + gtu33*PDstandardNth2gt13) + J31L*(gtu23*PDstandardNth3gt12 + + gtu33*PDstandardNth3gt13))); + + CCTK_REAL Gt112 = 0.5*(gtu11*(J12L*PDstandardNth1gt11 + + J22L*PDstandardNth2gt11 + J32L*PDstandardNth3gt11) + + gtu12*(J11L*PDstandardNth1gt22 + J21L*PDstandardNth2gt22 + + J31L*PDstandardNth3gt22) + gtu13*(-(J13L*PDstandardNth1gt12) + + J12L*PDstandardNth1gt13 + J11L*PDstandardNth1gt23 - + J23L*PDstandardNth2gt12 + J22L*PDstandardNth2gt13 + + J21L*PDstandardNth2gt23 - J33L*PDstandardNth3gt12 + + J32L*PDstandardNth3gt13 + J31L*PDstandardNth3gt23)); + + CCTK_REAL Gt212 = 0.5*(gtu12*(J12L*PDstandardNth1gt11 + + J22L*PDstandardNth2gt11 + J32L*PDstandardNth3gt11) + + gtu22*(J11L*PDstandardNth1gt22 + J21L*PDstandardNth2gt22 + + J31L*PDstandardNth3gt22) + gtu23*(-(J13L*PDstandardNth1gt12) + + J12L*PDstandardNth1gt13 + J11L*PDstandardNth1gt23 - + J23L*PDstandardNth2gt12 + J22L*PDstandardNth2gt13 + + J21L*PDstandardNth2gt23 - J33L*PDstandardNth3gt12 + + J32L*PDstandardNth3gt13 + J31L*PDstandardNth3gt23)); + + CCTK_REAL Gt312 = 0.5*(gtu13*(J12L*PDstandardNth1gt11 + + J22L*PDstandardNth2gt11 + J32L*PDstandardNth3gt11) + + gtu23*(J11L*PDstandardNth1gt22 + J21L*PDstandardNth2gt22 + + J31L*PDstandardNth3gt22) + gtu33*(-(J13L*PDstandardNth1gt12) + + J12L*PDstandardNth1gt13 + J11L*PDstandardNth1gt23 - + J23L*PDstandardNth2gt12 + J22L*PDstandardNth2gt13 + + J21L*PDstandardNth2gt23 - J33L*PDstandardNth3gt12 + + J32L*PDstandardNth3gt13 + J31L*PDstandardNth3gt23)); + + CCTK_REAL Gt113 = 0.5*(gtu11*(J13L*PDstandardNth1gt11 + + J23L*PDstandardNth2gt11 + J33L*PDstandardNth3gt11) + + gtu12*(J13L*PDstandardNth1gt12 - J12L*PDstandardNth1gt13 + + J11L*PDstandardNth1gt23 + J23L*PDstandardNth2gt12 - + J22L*PDstandardNth2gt13 + J21L*PDstandardNth2gt23 + + J33L*PDstandardNth3gt12 - J32L*PDstandardNth3gt13 + + J31L*PDstandardNth3gt23) + gtu13*(J11L*PDstandardNth1gt33 + + J21L*PDstandardNth2gt33 + J31L*PDstandardNth3gt33)); + + CCTK_REAL Gt213 = 0.5*(gtu12*(J13L*PDstandardNth1gt11 + + J23L*PDstandardNth2gt11 + J33L*PDstandardNth3gt11) + + gtu22*(J13L*PDstandardNth1gt12 - J12L*PDstandardNth1gt13 + + J11L*PDstandardNth1gt23 + J23L*PDstandardNth2gt12 - + J22L*PDstandardNth2gt13 + J21L*PDstandardNth2gt23 + + J33L*PDstandardNth3gt12 - J32L*PDstandardNth3gt13 + + J31L*PDstandardNth3gt23) + gtu23*(J11L*PDstandardNth1gt33 + + J21L*PDstandardNth2gt33 + J31L*PDstandardNth3gt33)); + + CCTK_REAL Gt313 = 0.5*(gtu13*(J13L*PDstandardNth1gt11 + + J23L*PDstandardNth2gt11 + J33L*PDstandardNth3gt11) + + gtu23*(J13L*PDstandardNth1gt12 - J12L*PDstandardNth1gt13 + + J11L*PDstandardNth1gt23 + J23L*PDstandardNth2gt12 - + J22L*PDstandardNth2gt13 + J21L*PDstandardNth2gt23 + + J33L*PDstandardNth3gt12 - J32L*PDstandardNth3gt13 + + J31L*PDstandardNth3gt23) + gtu33*(J11L*PDstandardNth1gt33 + + J21L*PDstandardNth2gt33 + J31L*PDstandardNth3gt33)); + + CCTK_REAL Gt122 = 0.5*(gtu11*(-(J11L*PDstandardNth1gt22) + + 2*(J12L*PDstandardNth1gt12 + J22L*PDstandardNth2gt12) - + J21L*PDstandardNth2gt22 + 2*J32L*PDstandardNth3gt12 - + J31L*PDstandardNth3gt22) + gtu12*(J12L*PDstandardNth1gt22 + + J22L*PDstandardNth2gt22 + J32L*PDstandardNth3gt22) - + gtu13*(J13L*PDstandardNth1gt22 + J23L*PDstandardNth2gt22 + + J33L*PDstandardNth3gt22 - 2*(J12L*PDstandardNth1gt23 + + J22L*PDstandardNth2gt23 + J32L*PDstandardNth3gt23))); + + CCTK_REAL Gt222 = 0.5*(gtu12*(-(J11L*PDstandardNth1gt22) + + 2*(J12L*PDstandardNth1gt12 + J22L*PDstandardNth2gt12) - + J21L*PDstandardNth2gt22 + 2*J32L*PDstandardNth3gt12 - + J31L*PDstandardNth3gt22) + gtu22*(J12L*PDstandardNth1gt22 + + J22L*PDstandardNth2gt22 + J32L*PDstandardNth3gt22) - + gtu23*(J13L*PDstandardNth1gt22 + J23L*PDstandardNth2gt22 + + J33L*PDstandardNth3gt22 - 2*(J12L*PDstandardNth1gt23 + + J22L*PDstandardNth2gt23 + J32L*PDstandardNth3gt23))); + + CCTK_REAL Gt322 = 0.5*(gtu13*(-(J11L*PDstandardNth1gt22) + + 2*(J12L*PDstandardNth1gt12 + J22L*PDstandardNth2gt12) - + J21L*PDstandardNth2gt22 + 2*J32L*PDstandardNth3gt12 - + J31L*PDstandardNth3gt22) + gtu23*(J12L*PDstandardNth1gt22 + + J22L*PDstandardNth2gt22 + J32L*PDstandardNth3gt22) - + gtu33*(J13L*PDstandardNth1gt22 + J23L*PDstandardNth2gt22 + + J33L*PDstandardNth3gt22 - 2*(J12L*PDstandardNth1gt23 + + J22L*PDstandardNth2gt23 + J32L*PDstandardNth3gt23))); + + CCTK_REAL Gt123 = 0.5*(gtu12*(J13L*PDstandardNth1gt22 + + J23L*PDstandardNth2gt22 + J33L*PDstandardNth3gt22) + + gtu11*(J13L*PDstandardNth1gt12 + J12L*PDstandardNth1gt13 - + J11L*PDstandardNth1gt23 + J23L*PDstandardNth2gt12 + + J22L*PDstandardNth2gt13 - J21L*PDstandardNth2gt23 + + J33L*PDstandardNth3gt12 + J32L*PDstandardNth3gt13 - + J31L*PDstandardNth3gt23) + gtu13*(J12L*PDstandardNth1gt33 + + J22L*PDstandardNth2gt33 + J32L*PDstandardNth3gt33)); + + CCTK_REAL Gt223 = 0.5*(gtu22*(J13L*PDstandardNth1gt22 + + J23L*PDstandardNth2gt22 + J33L*PDstandardNth3gt22) + + gtu12*(J13L*PDstandardNth1gt12 + J12L*PDstandardNth1gt13 - + J11L*PDstandardNth1gt23 + J23L*PDstandardNth2gt12 + + J22L*PDstandardNth2gt13 - J21L*PDstandardNth2gt23 + + J33L*PDstandardNth3gt12 + J32L*PDstandardNth3gt13 - + J31L*PDstandardNth3gt23) + gtu23*(J12L*PDstandardNth1gt33 + + J22L*PDstandardNth2gt33 + J32L*PDstandardNth3gt33)); + + CCTK_REAL Gt323 = 0.5*(gtu23*(J13L*PDstandardNth1gt22 + + J23L*PDstandardNth2gt22 + J33L*PDstandardNth3gt22) + + gtu13*(J13L*PDstandardNth1gt12 + J12L*PDstandardNth1gt13 - + J11L*PDstandardNth1gt23 + J23L*PDstandardNth2gt12 + + J22L*PDstandardNth2gt13 - J21L*PDstandardNth2gt23 + + J33L*PDstandardNth3gt12 + J32L*PDstandardNth3gt13 - + J31L*PDstandardNth3gt23) + gtu33*(J12L*PDstandardNth1gt33 + + J22L*PDstandardNth2gt33 + J32L*PDstandardNth3gt33)); + + CCTK_REAL Gt133 = 0.5*(gtu11*(-(J11L*PDstandardNth1gt33) + + 2*(J13L*PDstandardNth1gt13 + J23L*PDstandardNth2gt13) - + J21L*PDstandardNth2gt33 + 2*J33L*PDstandardNth3gt13 - + J31L*PDstandardNth3gt33) + gtu12*(-(J12L*PDstandardNth1gt33) + + 2*(J13L*PDstandardNth1gt23 + J23L*PDstandardNth2gt23) - + J22L*PDstandardNth2gt33 + 2*J33L*PDstandardNth3gt23 - + J32L*PDstandardNth3gt33) + gtu13*(J13L*PDstandardNth1gt33 + + J23L*PDstandardNth2gt33 + J33L*PDstandardNth3gt33)); + + CCTK_REAL Gt233 = 0.5*(gtu12*(-(J11L*PDstandardNth1gt33) + + 2*(J13L*PDstandardNth1gt13 + J23L*PDstandardNth2gt13) - + J21L*PDstandardNth2gt33 + 2*J33L*PDstandardNth3gt13 - + J31L*PDstandardNth3gt33) + gtu22*(-(J12L*PDstandardNth1gt33) + + 2*(J13L*PDstandardNth1gt23 + J23L*PDstandardNth2gt23) - + J22L*PDstandardNth2gt33 + 2*J33L*PDstandardNth3gt23 - + J32L*PDstandardNth3gt33) + gtu23*(J13L*PDstandardNth1gt33 + + J23L*PDstandardNth2gt33 + J33L*PDstandardNth3gt33)); + + CCTK_REAL Gt333 = 0.5*(gtu13*(-(J11L*PDstandardNth1gt33) + + 2*(J13L*PDstandardNth1gt13 + J23L*PDstandardNth2gt13) - + J21L*PDstandardNth2gt33 + 2*J33L*PDstandardNth3gt13 - + J31L*PDstandardNth3gt33) + gtu23*(-(J12L*PDstandardNth1gt33) + + 2*(J13L*PDstandardNth1gt23 + J23L*PDstandardNth2gt23) - + J22L*PDstandardNth2gt33 + 2*J33L*PDstandardNth3gt23 - + J32L*PDstandardNth3gt33) + gtu33*(J13L*PDstandardNth1gt33 + + J23L*PDstandardNth2gt33 + J33L*PDstandardNth3gt33)); + + CCTK_REAL Xt1L = Gt111*gtu11 + Gt122*gtu22 + 2*(Gt112*gtu12 + + Gt113*gtu13 + Gt123*gtu23) + Gt133*gtu33; + + CCTK_REAL Xt2L = Gt211*gtu11 + Gt222*gtu22 + 2*(Gt212*gtu12 + + Gt213*gtu13 + Gt223*gtu23) + Gt233*gtu33; + + CCTK_REAL Xt3L = Gt311*gtu11 + Gt322*gtu22 + 2*(Gt312*gtu12 + + Gt313*gtu13 + Gt323*gtu23) + Gt333*gtu33; + + 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 + + (J11L*PDupwindNthSymm1alpha + J21L*PDupwindNthSymm2alpha + + J31L*PDupwindNthSymm3alpha)*Abs(beta1L) + (J12L*PDupwindNthSymm1alpha + + J22L*PDupwindNthSymm2alpha + J32L*PDupwindNthSymm3alpha)*Abs(beta2L) + + (J13L*PDupwindNthSymm1alpha + J23L*PDupwindNthSymm2alpha + + J33L*PDupwindNthSymm3alpha)*Abs(beta3L))*ToReal(LapseAdvectionCoeff)),0); + + CCTK_REAL theta = fmin(1,exp(1 - + rL*INV(ToReal(SpatialShiftGammaCoeffRadius)))); + + 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; + B1[index] = B1L; + B2[index] = B2L; + B3[index] = B3L; + Xt1[index] = Xt1L; + Xt2[index] = Xt2L; + Xt3[index] = Xt3L; + } + LC_ENDLOOP3 (ML_BSSN_MP_O8_convertFromADMBaseGamma); +} + +extern "C" void ML_BSSN_MP_O8_convertFromADMBaseGamma(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + GenericFD_LoopOverInterior(cctkGH, &ML_BSSN_MP_O8_convertFromADMBaseGamma_Body); +} |