PXHMXU5HANPRQKDNFTAD4XBZXMZKU2OPGRHUSHN6B7VMFQMB2XFAC
2HBMXCNDT3QJWGTNHCJX3IBQ7H3QEGFGMELYYO63P3WDPBTP3JWQC
GP6UYE5IVVG25EHEMT4EPKFUUWI2QUZSJCRSHOIVTM4AX4IVXBLAC
NUOLOGCKMF5UOBGBYEOX4O7NQ5AEVVLCH6KRBQRJQXIRDNJ2C2ZQC
LAPWK2M55JGEUK5ZGFN5DKUOAV3HJYUBWHO7ZWVU7FBYMCQXHQZAC
67ABKXMOSVKKVRSSD6QVF4BLBQLZCEAST2UMLLKOBV7WSVTQRSEQC
FHE6M7GL6TJSS4VHGV6XY5PQSZBCU6SIXAGZG67Z76NRGKZZAGTQC
#warning "TODO: These are wrong!"
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtalp_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtbetax_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtbetay_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtbetaz_(p.I) = 0; });
// ADMBase
#warning "TODO: These are wrong!"
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtkxx_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtkxy_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtkxz_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtkyy_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtkyz_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dtkzz_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dt2alp_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dt2betax_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dt2betay_(p.I) = 0; });
loop_all<0, 0, 0>(cctkGH, [&](const PointDesc &p) { gf_dt2betaz_(p.I) = 0; });
const mat3<T, DN, DN> g; // W = 0
const mat3<T, DN, DN> k; // W = 0
const T alp; // W = 0
const vec3<T, UP> beta; // W = 0
const mat3<T, DN, DN> g; // W = 0
const mat3<T, DN, DN> K; // W = 0
const T alp; // W = 0
const T dtalp; // W = 0
const vec3<T, UP> beta; // W = 0
const vec3<T, UP> dtbeta; // W = 0
beta([&](int a) { return betaG(a); })
// (11)
dtalp([&] {
const T mu_L = f_mu_L / alphaG;
return -pow2(alphaG) * mu_L * Kh;
}()),
beta([&](int a) { return betaG(a); }),
// (12)
dtbeta([&](int a) {
const T mu_S = f_mu_S / pow2(alphaG);
return pow2(alphaG) * mu_S * Gamt(a) //
- eta * betaG(a);
})
// (11)
alphaG_rhs([&] {
//
alphaG_rhs(dtalp), betaG_rhs(dtbeta),
//
K_rhs([&](int a, int b) {
return -1 / pow(chi, 2) * chi_rhs *
(At(a, b) + (Kh + 2 * Theta) / 3 * gammat(a, b)) +
1 / chi *
(At_rhs(a, b) +
(Kh_rhs + 2 * Theta_rhs) / 3 * gammat(a, b)) +
1 / chi * (At(a, b) + (Kh + 2 * Theta) / 3 * gammat_rhs(a, b));
}),
//
dtalpha_rhs([&] {