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_MP_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_MP_Helper')
-rw-r--r-- | ML_BSSN_MP_Helper/schedule.ccl | 8 | ||||
-rw-r--r-- | ML_BSSN_MP_Helper/src/RegisterSymmetries.c | 66 | ||||
-rw-r--r-- | ML_BSSN_MP_Helper/src/make.code.defn | 2 |
3 files changed, 2 insertions, 74 deletions
diff --git a/ML_BSSN_MP_Helper/schedule.ccl b/ML_BSSN_MP_Helper/schedule.ccl index 173e973..bc985a8 100644 --- a/ML_BSSN_MP_Helper/schedule.ccl +++ b/ML_BSSN_MP_Helper/schedule.ccl @@ -29,12 +29,6 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN_MP")) { OPTIONS: meta } "Register slicing" - SCHEDULE ML_BSSN_MP_RegisterSymmetries IN SymmetryRegister - { - LANG: C - OPTIONS: meta - } "Register grid function symmetries" - SCHEDULE ML_BSSN_MP_UnsetCheckpointTags AT basegrid { LANG: C @@ -64,7 +58,7 @@ if (CCTK_EQUALS (evolution_method, "ML_BSSN_MP")) { if (CCTK_EQUALS (calculate_ADMBase_variables_at, "MoL_PostStep")) { - SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroup IN MoL_PostStep AFTER (ML_BSSN_MP_ApplyBCs ML_BSSN_MP_enforce) + SCHEDULE GROUP ML_BSSN_MP_convertToADMBaseGroup IN MoL_PostStep AFTER (ML_BSSN_MP_ApplyBCs ML_BSSN_MP_enforce) BEFORE Whisky_PostStep { } "Calculate ADM variables" } diff --git a/ML_BSSN_MP_Helper/src/RegisterSymmetries.c b/ML_BSSN_MP_Helper/src/RegisterSymmetries.c deleted file mode 100644 index 88ccd72..0000000 --- a/ML_BSSN_MP_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_MP_RegisterSymmetry (CCTK_ARGUMENTS) -{ - DECLARE_CCTK_ARGUMENTS; - - setcartsym (cctkGH, "ML_BSSN_MP::phi" , 0); - setcartsym (cctkGH, "ML_BSSN_MP::gt11" , 11); - setcartsym (cctkGH, "ML_BSSN_MP::gt12" , 12); - setcartsym (cctkGH, "ML_BSSN_MP::gt13" , 13); - setcartsym (cctkGH, "ML_BSSN_MP::gt22" , 22); - setcartsym (cctkGH, "ML_BSSN_MP::gt23" , 23); - setcartsym (cctkGH, "ML_BSSN_MP::gt33" , 33); - setcartsym (cctkGH, "ML_BSSN_MP::trK" , 0); - setcartsym (cctkGH, "ML_BSSN_MP::At11" , 11); - setcartsym (cctkGH, "ML_BSSN_MP::At12" , 12); - setcartsym (cctkGH, "ML_BSSN_MP::At13" , 13); - setcartsym (cctkGH, "ML_BSSN_MP::At22" , 22); - setcartsym (cctkGH, "ML_BSSN_MP::At23" , 23); - setcartsym (cctkGH, "ML_BSSN_MP::At33" , 33); - setcartsym (cctkGH, "ML_BSSN_MP::Xt1" , 1); - setcartsym (cctkGH, "ML_BSSN_MP::Xt2" , 2); - setcartsym (cctkGH, "ML_BSSN_MP::Xt3" , 3); - setcartsym (cctkGH, "ML_BSSN_MP::alpha", 0); - setcartsym (cctkGH, "ML_BSSN_MP::beta1", 1); - setcartsym (cctkGH, "ML_BSSN_MP::beta2", 2); - setcartsym (cctkGH, "ML_BSSN_MP::beta3", 3); - setcartsym (cctkGH, "ML_BSSN_MP::A" , 0); - setcartsym (cctkGH, "ML_BSSN_MP::B1" , 1); - setcartsym (cctkGH, "ML_BSSN_MP::B2" , 2); - setcartsym (cctkGH, "ML_BSSN_MP::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_MP_Helper/src/make.code.defn b/ML_BSSN_MP_Helper/src/make.code.defn index da5fe95..12fb65d 100644 --- a/ML_BSSN_MP_Helper/src/make.code.defn +++ b/ML_BSSN_MP_Helper/src/make.code.defn @@ -1,2 +1,2 @@ # -*-Makefile-*- -SRCS = SelectBCsADMBase.c RegisterSlicing.c RegisterSymmetries.c UnsetCheckpointTags.c +SRCS = SelectBCsADMBase.c RegisterSlicing.c UnsetCheckpointTags.c |