diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2008-08-04 11:52:07 -0500 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2008-08-04 11:52:07 -0500 |
commit | ecf86b57b550bee257906fc7407f602fbf47d7e1 (patch) | |
tree | e52398aae88c12e743fcaf9db2ea3885afb099ea /ML_BSSN_Helper | |
parent | 823afa433a88cb83b9a8124391a1c26d4d1726bd (diff) |
Do not register the grid function symmetries in the helper thorns since
Kranc does this on its own. Correct instead an error in Kranc which
registers the symmetries too late.
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 |