Initial import of new Einstein stuff. This has the new thorns, but not all

are fully functional yet.  

When I have completed this stage I'll send an updated spec out with some 
questions which have arisen during this process.

Please don't import anything new without checking with me first, as I want 
to play games on the server copying cvs files around to preserve histories 
on files which are only minimally touched.

Tom



git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMBase/trunk@2 d576a68a-b34a-40ae-82fc-004fa1a9d16f

1 files changed, 52 insertions, 0 deletions

diff --git a/schedule.ccl b/schedule.ccl
new file mode 100644
index 0000000..09adf9c
--- /dev/null
+++ b/schedule.ccl
@@ -0,0 +1,52 @@
+# Schedule definitions for thorn ADMBase
+# $Header$
+
+STORAGE: metric[1], curv[1], lapse[1]
+
+# Initial data for the spatial slices
+
+if(CCTK_Equals(initial_data, "Cartesian Minkowski"))
+{
+  SCHEDULE ADMBase_CartesianMinkowsi at CCTK_INITIAL
+  {	
+    LANG: C
+  } "Set the metric and extrinsic curvature to cartesian minkowski values"
+}
+
+# Initial data for the lapse
+
+if(CCTK_Equals(initial_lapse, "one"))
+{
+  SCHEDULE ADMBase_LapseOne at CCTK_INITIAL
+  {	
+    LANG: C
+  } "Set the lapse to 1 at all points"
+}
+
+# Do we have storage for the shift ?
+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"
+}
+
+# Initial data for the shift
+
+if(CCTK_Equals(initial_shift, "zero"))
+{
+  SCHEDULE ADMBase_ShiftZero at CCTK_INITIAL
+  {	
+    LANG: C
+  } "Set the shift to 0 at all points"
+}