Initial revision

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

1 files changed, 56 insertions, 0 deletions

diff --git a/CarpetExtra/FOWaveToyF77/schedule.ccl b/CarpetExtra/FOWaveToyF77/schedule.ccl
new file mode 100644
index 000000000..a3cd168c0
--- /dev/null
+++ b/CarpetExtra/FOWaveToyF77/schedule.ccl
@@ -0,0 +1,56 @@
+# Schedule definitions for thorn FOWaveToy77
+# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/FOWaveToyF77/schedule.ccl,v 1.10 2003/11/05 16:18:39 schnetter Exp $
+
+STORAGE: scalarevolve[3] scalarevolve_derivs[3]
+
+schedule FOWaveToyF77_Startup at STARTUP
+{
+  LANG: Fortran
+} "Register banner"
+
+schedule FOWaveToyF77_InitSymBound at BASEGRID
+{
+  LANG: Fortran
+  OPTIONS: GLOBAL
+} "Schedule symmetries"
+
+
+
+schedule FOWaveToyF77_Boundaries as FOWaveToy_Boundaries at INITIAL after FOWaveToy_InitialData
+{
+  LANG: Fortran
+  SYNC: scalarevolve scalarevolve_derivs
+} "Select boundary conditions of 3D wave equation"
+
+schedule group ApplyBCs as FOWaveToy_ApplyBCs at INITIAL after FOWaveToy_Boundaries
+{
+} "Apply boundary conditions of 3D wave equation"
+
+
+
+schedule FOWaveToyF77_Evolution as FOWaveToy_Evolution at EVOL
+{
+  LANG: Fortran
+} "Evolution of 3D wave equation"
+
+schedule FOWaveToyF77_Boundaries as FOWaveToy_Boundaries at EVOL after FOWaveToy_Evolution
+{
+  LANG: Fortran
+  SYNC: scalarevolve scalarevolve_derivs
+} "Select boundary conditions of 3D wave equation"
+
+schedule group ApplyBCs as FOWaveToy_ApplyBCs at EVOL after FOWaveToy_Boundaries
+{
+} "Apply boundary conditions of 3D wave equation"
+
+
+
+schedule FOWaveToyF77_Boundaries as FOWaveToy_Boundaries at POSTRESTRICT
+{
+  LANG: Fortran
+  SYNC: scalarevolve scalarevolve_derivs
+} "Select boundary conditions of 3D wave equation"
+
+schedule group ApplyBCs as FOWaveToy_ApplyBCs at POSTRESTRICT after FOWaveToy_Boundaries
+{
+} "Apply boundary conditions of 3D wave equation"