Initial revision

darcs-hash:20010301114010-f6438-12fb8a9ffcc80e86c0a97e37b5b0dae0dbc59b79.gz

1 files changed, 84 insertions, 0 deletions

diff --git a/CarpetExtra/SpaceTimeToy/schedule.ccl b/CarpetExtra/SpaceTimeToy/schedule.ccl
new file mode 100644
index 000000000..85afb3e27
--- /dev/null
+++ b/CarpetExtra/SpaceTimeToy/schedule.ccl
@@ -0,0 +1,84 @@
+# Schedule definitions for thorn SpaceTimeToy
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/SpaceTimeToy/schedule.ccl,v 1.8 2003/11/05 16:18:40 schnetter Exp $
+
+STORAGE: spacetimeevolve[3]
+STORAGE: icn_state
+
+
+
+# Startup
+
+schedule SpaceTimeToy_Startup at STARTUP
+{
+  LANG: Fortran
+} "Register banner"
+
+schedule SpaceTimeToy_InitSymBound at BASEGRID
+{
+  LANG: Fortran
+  OPTIONS: global
+} "Schedule symmetries"
+
+
+
+# Iterative Crank-Nicholson integration
+
+schedule SpaceTimeToy_EulerStep at EVOL \
+	after HydroToy_EulerPredictor
+{
+  LANG: Fortran
+  STORAGE: spacetimetemps hydrotemps
+} "Initial Euler step"
+
+schedule SpaceTimeToy_Boundaries at EVOL \
+	after SpaceTimeToy_EulerStep
+{
+  LANG: Fortran
+  SYNC: spacetimeevolve
+} "Select boundary conditions after initial Euler step"
+
+schedule GROUP ApplyBCs at EVOL \
+	after SpaceTimeToy_Boundaries
+{
+} "Apply boundary conditions after initial Euler step"
+
+
+
+schedule GROUP SpaceTimeToy_ICNLoop at EVOL \
+	after SpaceTimeToy_EulerStep \
+	after HydroToy_EulerPredictor \
+	before HydroToy_EulerCorrector \
+	while SpaceTimeToy::do_iterate
+{
+} "All ICN steps"
+
+schedule SpaceTimeToy_ICNStep in SpaceTimeToy_ICNLoop
+{
+  LANG: Fortran
+  STORAGE: spacetimetemps hydrotemps
+} "One ICN step"
+
+schedule SpaceTimeToy_Boundaries in SpaceTimeToy_ICNLoop \
+	after SpaceTimeToy_ICNStep
+{
+  LANG: Fortran
+  SYNC: spacetimeevolve
+} "Select boundary conditions after ICN step"
+
+schedule GROUP ApplyBCs in SpaceTimeToy_ICNLoop \
+	after SpaceTimeToy_Boundaries
+{
+} "Apply boundary conditions after ICN step"
+
+
+
+schedule SpaceTimeToy_Boundaries at POSTRESTRICT
+{
+  LANG: Fortran
+  SYNC: spacetimeevolve
+} "Select boundary conditions after restricting"
+
+schedule GROUP ApplyBCs at POSTRESTRICT \
+	after SpaceTimeToy_Boundaries
+{
+} "Apply boundary conditions after restricting"