Calculate an approximation of the solution error

darcs-hash:20040407150821-07bb3-eed6ae63d064c5746d4a408eabc7f1dd82db542d.gz

1 files changed, 31 insertions, 3 deletions

diff --git a/CarpetExtra/WaveToyMoL/schedule.ccl b/CarpetExtra/WaveToyMoL/schedule.ccl
index 7d3f01265..ffce79084 100644
--- a/CarpetExtra/WaveToyMoL/schedule.ccl
+++ b/CarpetExtra/WaveToyMoL/schedule.ccl
@@ -1,26 +1,31 @@
 # Schedule definitions for thorn WaveToyMoL
-# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyMoL/schedule.ccl,v 1.4 2004/01/25 14:57:31 schnetter Exp $
+# $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: global
+  OPTIONS: meta
 } "Schedule symmetries"
 
 SCHEDULE WaveToyMoL_RegisterVars IN MoL_Register
 {
   LANG: Fortran
-  OPTIONS: global
+  OPTIONS: meta
 } "Register variables for MoL"
 
 
@@ -33,9 +38,32 @@ SCHEDULE WaveToyMoL_CalcRHS IN MoL_CalcRHS
 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"
+  
+}