diff options
author | Anton Khirnov <anton@khirnov.net> | 2020-06-20 10:36:10 +0200 |
---|---|---|
committer | Anton Khirnov <anton@khirnov.net> | 2020-06-20 10:36:10 +0200 |
commit | faf063f95614bab77753164cb08cc754b1e5a25f (patch) | |
tree | 139635452ac1085bff794fed61292fc2e4bd3a60 | |
parent | e918a879ffcd183a6ff866d0c86a9ec7de828415 (diff) |
Register symmetries for grid functions.
-rw-r--r-- | schedule.ccl | 11 | ||||
-rw-r--r-- | src/qms.c | 23 |
2 files changed, 34 insertions, 0 deletions
diff --git a/schedule.ccl b/schedule.ccl index 244300f..8072632 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -40,6 +40,17 @@ if (CCTK_EQUALS(lapse_source, "QMS_MG")) { LANG: C } "" + SCHEDULE qms_mg_register_symmetries in SymmetryRegister { + LANG: C + } "register symmetry properties" + + schedule qms_mg_select_bc in MoL_PostStep + { + LANG: C + OPTIONS: level + SYNC: W_val + } "select boundary conditions" + STORAGE: W_pred0 STORAGE: W_pred1 STORAGE: W_pred0_time @@ -1691,3 +1691,26 @@ void qms_mg_terminate_print_stats(CCTK_ARGUMENTS) context_free(&qms_context); } } + +void qms_mg_register_symmetries(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + int sym[3] = { 1, 1, 1 }; + int ret; + + ret = SetCartSymVN(cctkGH, sym, "QuasiMaximalSlicingMG::W_val"); + if (ret != 0) + CCTK_WARN(0, "Error registering symmetries"); +} + +void qms_mg_select_bc(CCTK_ARGUMENTS) +{ + DECLARE_CCTK_ARGUMENTS; + DECLARE_CCTK_PARAMETERS; + + int ret = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, "QuasiMaximalSlicingMG::W_val", "none"); + if (ret != 0) + CCTK_WARN(0, "Error registering boundaries"); +} |