From 3c22ef6066de0a1bfc7af1bd46159157c37146e9 Mon Sep 17 00:00:00 2001
From: goodale <goodale@edbb7e70-9571-45d5-a481-0a560a9b4751>
Date: Fri, 26 Apr 2002 13:17:57 +0000
Subject: Have the old slicing stuff working, with new param names.

Tom


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/CoordGauge/trunk@45 edbb7e70-9571-45d5-a481-0a560a9b4751
---
 schedule.ccl | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

(limited to 'schedule.ccl')

diff --git a/schedule.ccl b/schedule.ccl
index 468d827..b80be63 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -1,2 +1,46 @@
 # Schedule definitions for thorn CoordGauge
 # $Header$
+
+# Old stuff
+schedule Einstein_ActivateSlicing at CCTK_BASEGRID
+{
+  LANG: C
+} "Initialize slicing, setup priorities for mixed slicings"
+
+schedule Einstein_SetNextSlicing at CCTK_PRESTEP
+{
+   LANG: C
+} "Identify the slicing for the next iteration"
+
+#New stuff
+
+if(CCTK_Equals(lapse_evolution_method, "coordgauge")||
+   CCTK_Equals(shift_evolution_method, "coordgauge"))
+{
+  SCHEDULE GROUP CoordGauge AT CCTK_PRESTEP
+  {
+  } "Coordinate Gauge group"
+
+
+  if(CCTK_Equals(lapse_evolution_method, "coordgauge"))
+  {
+    SCHEDULE GROUP LapseSelect IN CoordGauge BEFORE PickCoordGauge
+    {
+    } "Lapse Selection Group"
+
+    SCHEDULE GROUP LapseApply  IN CoordGauge AFTER  PickCoordGauge
+    {
+    } "Lapse Application Group"
+  }
+
+  if(CCTK_Equals(shift_evolution_method, "coordgauge"))
+  {
+    SCHEDULE GROUP ShiftSelect IN CoordGauge BEFORE PickCoordGauge
+    {
+    } "Shift Selection Group"
+
+    SCHEDULE GROUP ShiftApply  IN CoordGauge AFTER  PickCoordGauge
+    {
+    } "Shift Application Group"
+  }
+}
-- 
cgit v1.2.3