From 31b531681a0598bdf998c6b58af8bcf3b4e8be20 Mon Sep 17 00:00:00 2001 From: goodale Date: Thu, 25 Apr 2002 22:03:52 +0000 Subject: 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 --- schedule.ccl | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 schedule.ccl (limited to 'schedule.ccl') 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" +} -- cgit v1.2.3