aboutsummaryrefslogtreecommitdiff
path: root/ML_BSSN_Helper
diff options
context:
space:
mode:
Diffstat (limited to 'ML_BSSN_Helper')
-rw-r--r--ML_BSSN_Helper/schedule.ccl8
-rw-r--r--ML_BSSN_Helper/src/RegisterSymmetries.c66
-rw-r--r--ML_BSSN_Helper/src/make.code.defn2
3 files changed, 2 insertions, 74 deletions
diff --git a/ML_BSSN_Helper/schedule.ccl b/ML_BSSN_Helper/schedule.ccl
index 06cd875..b9d0262 100644
--- a/ML_BSSN_Helper/schedule.ccl
+++ b/ML_BSSN_Helper/schedule.ccl
@@ -29,12 +29,6 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN")) {
OPTIONS: meta
} "Register slicing"
- SCHEDULE ML_BSSN_RegisterSymmetries IN SymmetryRegister
- {
- LANG: C
- OPTIONS: meta
- } "Register grid function symmetries"
-
SCHEDULE ML_BSSN_UnsetCheckpointTags AT basegrid
{
LANG: C
@@ -64,7 +58,7 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN")) {
if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep"))
{
- SCHEDULE GROUP ML_BSSN_convertToADMBaseGroup IN MoL_PostStep AFTER (ML_BSSN_ApplyBCs ML_BSSN_enforce)
+ SCHEDULE GROUP ML_BSSN_convertToADMBaseGroup IN MoL_PostStep AFTER (ML_BSSN_ApplyBCs ML_BSSN_enforce) BEFORE Whisky_PostStep
{
} "Calculate ADM variables"
}
diff --git a/ML_BSSN_Helper/src/RegisterSymmetries.c b/ML_BSSN_Helper/src/RegisterSymmetries.c
deleted file mode 100644
index 6812079..0000000
--- a/ML_BSSN_Helper/src/RegisterSymmetries.c
+++ /dev/null
@@ -1,66 +0,0 @@
-#include <assert.h>
-
-#include <cctk.h>
-#include <cctk_Arguments.h>
-
-#include <Symmetry.h>
-
-static void
-setcartsym (cGH const * restrict cctkGH, char const * restrict vn, int symdesc);
-
-void
-ML_BSSN_RegisterSymmetry (CCTK_ARGUMENTS)
-{
- DECLARE_CCTK_ARGUMENTS;
-
- setcartsym (cctkGH, "ML_BSSN::phi" , 0);
- setcartsym (cctkGH, "ML_BSSN::gt11" , 11);
- setcartsym (cctkGH, "ML_BSSN::gt12" , 12);
- setcartsym (cctkGH, "ML_BSSN::gt13" , 13);
- setcartsym (cctkGH, "ML_BSSN::gt22" , 22);
- setcartsym (cctkGH, "ML_BSSN::gt23" , 23);
- setcartsym (cctkGH, "ML_BSSN::gt33" , 33);
- setcartsym (cctkGH, "ML_BSSN::trK" , 0);
- setcartsym (cctkGH, "ML_BSSN::At11" , 11);
- setcartsym (cctkGH, "ML_BSSN::At12" , 12);
- setcartsym (cctkGH, "ML_BSSN::At13" , 13);
- setcartsym (cctkGH, "ML_BSSN::At22" , 22);
- setcartsym (cctkGH, "ML_BSSN::At23" , 23);
- setcartsym (cctkGH, "ML_BSSN::At33" , 33);
- setcartsym (cctkGH, "ML_BSSN::Xt1" , 1);
- setcartsym (cctkGH, "ML_BSSN::Xt2" , 2);
- setcartsym (cctkGH, "ML_BSSN::Xt3" , 3);
- setcartsym (cctkGH, "ML_BSSN::alpha", 0);
- setcartsym (cctkGH, "ML_BSSN::beta1", 1);
- setcartsym (cctkGH, "ML_BSSN::beta2", 2);
- setcartsym (cctkGH, "ML_BSSN::beta3", 3);
- setcartsym (cctkGH, "ML_BSSN::A" , 0);
- setcartsym (cctkGH, "ML_BSSN::B1" , 1);
- setcartsym (cctkGH, "ML_BSSN::B2" , 2);
- setcartsym (cctkGH, "ML_BSSN::B3" , 3);
-}
-
-void
-setcartsym (cGH const * restrict const cctkGH,
- char const * restrict const vn,
- int symdesc)
-{
- int sym[3];
-
- for (int d=0; d<3; ++d) {
- sym[d] = +1;
- }
-
- assert (symdesc >= 0);
- while (symdesc > 0) {
- int const d = symdesc % 10;
- assert (d>=1 && d<=3);
- sym[d-1] *= -1;
- symdesc /= 10;
- }
-
- int const ierr = SetCartSymVN (cctkGH, sym, vn);
- if (ierr != 0) {
- CCTK_WARN (CCTK_WARN_ABORT, "internal error");
- }
-}
diff --git a/ML_BSSN_Helper/src/make.code.defn b/ML_BSSN_Helper/src/make.code.defn
index 60cb539..7e30e05 100644
--- a/ML_BSSN_Helper/src/make.code.defn
+++ b/ML_BSSN_Helper/src/make.code.defn
@@ -1,2 +1,2 @@
# -*-Makefile-*-
-SRCS = RegisterSlicing.c RegisterSymmetries.c SelectBCsADMBase.c UnsetCheckpointTags.c
+SRCS = RegisterSlicing.c SelectBCsADMBase.c UnsetCheckpointTags.c