diff options
Diffstat (limited to 'ML_BSSN_Helper')
-rw-r--r-- | ML_BSSN_Helper/schedule.ccl | 8 | ||||
-rw-r--r-- | ML_BSSN_Helper/src/RegisterSymmetries.c | 66 | ||||
-rw-r--r-- | ML_BSSN_Helper/src/make.code.defn | 2 |
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 |