From cca6017bff3ff0cbbfc6f67c82e198c3da942526 Mon Sep 17 00:00:00 2001
From: Anton Khirnov <anton@khirnov.net>
Date: Mon, 22 Jul 2019 10:14:50 +0200
Subject: Use the lapse_source parameter to determined when we should run.

---
 param.ccl    |  6 ++++++
 schedule.ccl | 40 +++++++++++++++++++++-------------------
 2 files changed, 27 insertions(+), 19 deletions(-)

diff --git a/param.ccl b/param.ccl
index 1d208ed..0aac37a 100644
--- a/param.ccl
+++ b/param.ccl
@@ -1,5 +1,11 @@
 # Parameter definitions for thorn QuasiMaximalSlicing
 
+shares: ML_BSSN
+EXTENDS CCTK_KEYWORD lapse_source "lapse_source"
+{
+  QMS :: ""
+}
+
 RESTRICTED:
 CCTK_INT basis_order_r "Number of the basis functions in the radial direction" STEERABLE=recover
 {
diff --git a/schedule.ccl b/schedule.ccl
index 818d9a2..4f16e27 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -1,25 +1,27 @@
 # Schedule definitions for thorn MaximalSlicingAxi
 #
-SCHEDULE quasimaximal_slicing_axi_eval IN ML_BSSN_evolCalcGroup BEFORE ML_BSSN_lapse_evol {
-    LANG: C
-} "Quasimaximal slicing eval W"
-SCHEDULE quasimaximal_slicing_axi_eval IN ML_CCZ4_evolCalcGroup BEFORE ML_CCZ4_lapse_evol {
-    LANG: C
-} "Quasimaximal slicing eval W"
+if (CCTK_EQUALS(lapse_source, "QMS")) {
+    SCHEDULE quasimaximal_slicing_axi_eval IN ML_BSSN_evolCalcGroup BEFORE ML_BSSN_lapse_evol {
+        LANG: C
+    } "Quasimaximal slicing eval W"
+    SCHEDULE quasimaximal_slicing_axi_eval IN ML_CCZ4_evolCalcGroup BEFORE ML_CCZ4_lapse_evol {
+        LANG: C
+    } "Quasimaximal slicing eval W"
 
-#SCHEDULE quasimaximal_slicing_axi_solve IN ML_BSSN_evolCalcGroup BEFORE quasimaximal_slicing_axi_eval {
-#SCHEDULE quasimaximal_slicing_axi_solve IN MoL_PostStep AFTER ML_BSSN_ApplyBCs {
-SCHEDULE quasimaximal_slicing_axi_solve IN MoL_PreStep {
-    LANG: C
-} "Quasimaximal slicing solve W"
+    #SCHEDULE quasimaximal_slicing_axi_solve IN ML_BSSN_evolCalcGroup BEFORE quasimaximal_slicing_axi_eval {
+    #SCHEDULE quasimaximal_slicing_axi_solve IN MoL_PostStep AFTER ML_BSSN_ApplyBCs {
+    SCHEDULE quasimaximal_slicing_axi_solve IN MoL_PreStep {
+        LANG: C
+    } "Quasimaximal slicing solve W"
 
-#SCHEDULE quasimaximal_slicing_axi IN MoL_PseudoEvolution {
-#    LANG: C
-#} "Quasimaximal slicing"
+    #SCHEDULE quasimaximal_slicing_axi IN MoL_PseudoEvolution {
+    #    LANG: C
+    #} "Quasimaximal slicing"
 
-SCHEDULE qms_init IN ADMBase_InitialData {
-    LANG: C
-} ""
+    SCHEDULE qms_init IN ADMBase_InitialData {
+        LANG: C
+    } ""
 
-STORAGE: W_pred
-STORAGE: W_coeffs
+    STORAGE: W_pred
+    STORAGE: W_coeffs
+}
-- 
cgit v1.2.3