From 8237c71e945513806341c0b59485abce2a7f3a55 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@d576a68a-b34a-40ae-82fc-004fa1a9d16f>
Date: Sat, 23 Jan 2010 22:01:40 +0000
Subject: Add parameters to let the user activate arbitrary numbers of time
 levels in ADMBase.

Add parameters to choose the prolongation type of the ADMBase
variables.  This is useful to disable prolongation, e.g. if only a
single time level is active.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMBase/trunk@51 d576a68a-b34a-40ae-82fc-004fa1a9d16f
---
 schedule.ccl | 82 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 77 insertions(+), 5 deletions(-)

(limited to 'schedule.ccl')

diff --git a/schedule.ccl b/schedule.ccl
index 61274db..ce70686 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -1,7 +1,83 @@
 # Schedule definitions for thorn ADMBase
 # $Header$
 
-STORAGE: shift_state, dtlapse_state, dtshift_state, metric[1], curv[1], lapse[1]
+STORAGE: shift_state dtlapse_state dtshift_state
+
+if (lapse_timelevels == 1)
+{
+  STORAGE: lapse[1]
+}
+else if (lapse_timelevels == 2)
+{
+  STORAGE: lapse[2]
+}
+else if (lapse_timelevels == 3)
+{
+  STORAGE: lapse[3]
+}
+
+if (! CCTK_Equals(initial_shift, "none"))
+{
+  if (shift_timelevels == 1)
+  {
+    STORAGE: shift[1]
+  }
+  else if (shift_timelevels == 2)
+  {
+    STORAGE: shift[2]
+  }
+  else if (shift_timelevels == 3)
+  {
+    STORAGE: shift[3]
+  }
+}
+
+if (! CCTK_Equals(initial_dtlapse, "none"))
+{
+  if (lapse_timelevels == 1)
+  {
+    STORAGE: dtlapse[1]
+  }
+  else if (lapse_timelevels == 2)
+  {
+    STORAGE: dtlapse[2]
+  }
+  else if (lapse_timelevels == 3)
+  {
+    STORAGE: dtlapse[3]
+  }
+}
+
+if (! CCTK_Equals(initial_dtshift, "none"))
+{
+  if (shift_timelevels == 1)
+  {
+    STORAGE: dtshift[1]
+  }
+  else if (shift_timelevels == 2)
+  {
+    STORAGE: dtshift[2]
+  }
+  else if (shift_timelevels == 3)
+  {
+    STORAGE: dtshift[3]
+  }
+}
+
+if (metric_timelevels == 1)
+{
+  STORAGE: metric[1], curv[1]
+}
+else if (metric_timelevels == 2)
+{
+  STORAGE: metric[2], curv[2]
+}
+else if (metric_timelevels == 3)
+{
+  STORAGE: metric[3], curv[3]
+}
+
+
 
 SCHEDULE ADMBase_ParamCheck at CCTK_PARAMCHECK
 {
@@ -46,8 +122,6 @@ if(CCTK_Equals(initial_lapse, "one"))
 # Do we have storage for the shift ?
 if (!CCTK_Equals(initial_shift, "none")) 
 {
-  STORAGE: shift[1]
-
   SCHEDULE ADMBase_SetShiftStateOn at CCTK_BASEGRID
   {
     LANG: C
@@ -71,7 +145,6 @@ if (! CCTK_Equals(initial_dtlapse, "none"))
 }
 else
 {
-  STORAGE: dtlapse[1]
   SCHEDULE ADMBase_SetDtLapseStateOff at CCTK_BASEGRID
   {
     LANG: C
@@ -106,7 +179,6 @@ if (CCTK_Equals(initial_shift, "zero"))
 # Initial data for dtlapse
 if (CCTK_Equals(initial_dtlapse, "zero"))
 {
-  STORAGE: dtshift[1]
   SCHEDULE ADMBase_DtLapseZero in ADMBase_InitialGauge
   {
     LANG: C
-- 
cgit v1.2.3