Register constrained (e.g. ADMBase) variables with MoL

1 files changed, 32 insertions, 0 deletions

diff --git a/m/prototype/ML_BSSN_Helper/src/RegisterConstrained.c b/m/prototype/ML_BSSN_Helper/src/RegisterConstrained.c
new file mode 100644
index 0000000..e6bdb5a
--- /dev/null
+++ b/m/prototype/ML_BSSN_Helper/src/RegisterConstrained.c
@@ -0,0 +1,32 @@
+#include <assert.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include <cctk.h>
+#include <cctk_Arguments.h>
+
+static void
+register_constrained (char const * restrict const gn);
+
+void
+ML_BSSN_RegisterConstrained (CCTK_ARGUMENTS)
+{
+  DECLARE_CCTK_ARGUMENTS;
+  
+  register_constrained ("ADMBase::metric");
+  register_constrained ("ADMBase::curv");
+  register_constrained ("ADMBase::lapse");
+  register_constrained ("ADMBase::shift");
+  register_constrained ("ADMBase::dtlapse");
+  register_constrained ("ADMBase::dtshift");
+}
+
+static void
+register_constrained (char const * restrict const gn)
+{
+  assert (gn);
+  
+  int const gi = CCTK_GroupIndex (gn);
+  int const ierr = MoLRegisterConstrainedGroup (gi);
+  assert (! ierr);
+}