diff options
Diffstat (limited to 'src/Mag_NS.cc')
-rw-r--r-- | src/Mag_NS.cc | 38 |
1 files changed, 31 insertions, 7 deletions
diff --git a/src/Mag_NS.cc b/src/Mag_NS.cc index 3787557..8b578a4 100644 --- a/src/Mag_NS.cc +++ b/src/Mag_NS.cc @@ -98,13 +98,6 @@ void ID_Mag_NS_initialise (CCTK_ARGUMENTS) betay[i] = mag_ns.beta_y[i]; betaz[i] = mag_ns.beta_z[i]; - // These initial data assume stationarity - dtalp[i] = 0.0; - - dtbetax[i] = 0.0; - dtbetay[i] = 0.0; - dtbetaz[i] = 0.0; - CCTK_REAL g[3][3]; g[0][0] = mag_ns.g_xx[i]; g[0][1] = mag_ns.g_xy[i]; @@ -169,5 +162,36 @@ void ID_Mag_NS_initialise (CCTK_ARGUMENTS) + CCTK_INFO ("Setting time derivatives of lapse and shift"); + { + // These initial data assume stationarity + + if (CCTK_EQUALS (initial_dtlapse, "ID_Mag_NS")) { +#pragma omp parallel for + for (int i=0; i<npoints; ++i) { + dtalp[i] = 0.0; + } + } else if (CCTK_EQUALS (initial_dtlapse, "none")) { + // do nothing + } else { + CCTK_WARN (CCTK_WARN_ABORT, "internal error"); + } + + if (CCTK_EQUALS (initial_dtshift, "ID_Mag_NS")) { +#pragma omp parallel for + for (int i=0; i<npoints; ++i) { + dtbetax[i] = 0.0; + dtbetay[i] = 0.0; + dtbetaz[i] = 0.0; + } + } else if (CCTK_EQUALS (initial_dtshift, "none")) { + // do nothing + } else { + CCTK_WARN (CCTK_WARN_ABORT, "internal error"); + } + } + + + CCTK_INFO ("Done."); } |