From b07bdd7dc4daba05591fed570976d3a315d8964c Mon Sep 17 00:00:00 2001
From: goodale <goodale@d576a68a-b34a-40ae-82fc-004fa1a9d16f>
Date: Mon, 29 Apr 2002 17:20:13 +0000
Subject: Adding a ParamCheck routine - ADMBase only knows about "physical"
 metric_type so will refuse to setup "cartesian minkowski" if metric_type is
 not "physical".

Tom


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

(limited to 'schedule.ccl')

diff --git a/schedule.ccl b/schedule.ccl
index 75e4170..d66d70e 100644
--- a/schedule.ccl
+++ b/schedule.ccl
@@ -3,9 +3,14 @@
 
 STORAGE: metric[1], curv[1], lapse[1]
 
+SCHEDULE ADMBase_ParamCheck at CCTK_PARAMCHECK
+{
+  LANG: C
+} "Check consistency of parameters"
+
 # Schedule group for setting initial data
 
-schedule group ADMBase_InitialData at CCTK_INITIAL
+SCHEDULE group ADMBase_InitialData at CCTK_INITIAL
 {
 } "Schedule group for ADM initial data"
 
@@ -13,8 +18,8 @@ schedule group ADMBase_InitialData at CCTK_INITIAL
 
 if(CCTK_Equals(initial_data, "Cartesian Minkowski"))
 {
-  SCHEDULE ADMBase_CartesianMinkowski at CCTK_INITIAL
-  {	
+  SCHEDULE ADMBase_CartesianMinkowski in ADMBase_InitialData
+  {
     LANG: C
   } "Set the metric and extrinsic curvature to cartesian minkowski values"
 }
@@ -24,7 +29,7 @@ if(CCTK_Equals(initial_data, "Cartesian Minkowski"))
 if(CCTK_Equals(initial_lapse, "one"))
 {
   SCHEDULE ADMBase_LapseOne at CCTK_INITIAL
-  {	
+  {
     LANG: C
   } "Set the lapse to 1 at all points"
 }
@@ -35,14 +40,14 @@ if (!CCTK_Equals(initial_shift,"none"))
   STORAGE: shift[1]
 
   SCHEDULE ADMBase_SetShiftStateOn at CCTK_BASEGRID
-  {	
+  {
     LANG: C
   } "Set the shift_state variable to 1"
 }
 else
 {
   SCHEDULE ADMBase_SetShiftStateOff at CCTK_BASEGRID
-  {	
+  {
     LANG: C
   } "Set the shift_state variable to 0"
 }
@@ -52,7 +57,7 @@ else
 if(CCTK_Equals(initial_shift, "zero"))
 {
   SCHEDULE ADMBase_ShiftZero at CCTK_INITIAL
-  {	
+  {
     LANG: C
   } "Set the shift to 0 at all points"
 }
-- 
cgit v1.2.3