From ecf86b57b550bee257906fc7407f602fbf47d7e1 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Mon, 4 Aug 2008 11:52:07 -0500 Subject: 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. --- ML_BSSN_Helper/schedule.ccl | 8 +--- ML_BSSN_Helper/src/RegisterSymmetries.c | 66 --------------------------------- ML_BSSN_Helper/src/make.code.defn | 2 +- 3 files changed, 2 insertions(+), 74 deletions(-) delete mode 100644 ML_BSSN_Helper/src/RegisterSymmetries.c (limited to 'ML_BSSN_Helper') 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 - -#include -#include - -#include - -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 -- cgit v1.2.3