Initial revision

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

1 files changed, 69 insertions, 0 deletions

diff --git a/CarpetExtra/WaveToyMoL/schedule.ccl b/CarpetExtra/WaveToyMoL/schedule.ccl
new file mode 100644
index 000000000..ffce79084
--- /dev/null
+++ b/CarpetExtra/WaveToyMoL/schedule.ccl
@@ -0,0 +1,69 @@
+# Schedule definitions for thorn WaveToyMoL
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyMoL/schedule.ccl,v 1.5 2004/04/07 17:08:21 schnetter Exp $
+
+STORAGE: scalarevolve[3]
+STORAGE: scalarevolvedot
+
+if (estimate_error) {
+  STORAGE: scalarevolveerrorestimate
+}
+
+
+
+SCHEDULE WaveToyMol_Startup AT startup
+{
+  LANG: Fortran
+  OPTIONS: meta
+} "Register banner"
+
+SCHEDULE WaveToyMoL_InitSymBound AT basegrid
+{
+  LANG: Fortran
+  OPTIONS: meta
+} "Schedule symmetries"
+
+SCHEDULE WaveToyMoL_RegisterVars IN MoL_Register
+{
+  LANG: Fortran
+  OPTIONS: meta
+} "Register variables for MoL"
+
+
+
+SCHEDULE WaveToyMoL_CalcRHS IN MoL_CalcRHS
+{
+  LANG: Fortran
+} "Calculate RHS for MoL"
+
+SCHEDULE WaveToyMoL_Boundaries IN MoL_PostStep
+{
+  LANG: Fortran
+  OPTIONS: level
+  SYNC: scalarevolve
+} "Select boundary conditions in MoL"
+
+SCHEDULE GROUP ApplyBCs IN MoL_PostStep AFTER WaveToyMoL_Boundaries
+{
+} "Apply boundary conditions in MoL"
+
+
+
+if (estimate_error) {
+  
+  SCHEDULE WaveToyMoL_EstimateError AT poststep
+  {
+    LANG: Fortran
+  } "Estimate the truncation error"
+  
+  SCHEDULE WaveToyMoL_EstimateErrorBoundaries AT poststep AFTER WaveToyMoL_EstimateError
+  {
+    LANG: Fortran
+    OPTIONS: level
+    SYNC: scalarevolveerrorestimate
+  } "Select boundary conditions for the truncation error"
+  
+  SCHEDULE GROUP ApplyBCs AT poststep AFTER WaveToyMoL_EstimateError
+  {
+  } "Apply boundary conditions"
+  
+}