diff options
Diffstat (limited to 'CarpetExtra/HydroToy')
| -rw-r--r-- | CarpetExtra/HydroToy/param.ccl | 8 | ||||
| -rw-r--r-- | CarpetExtra/HydroToy/schedule.ccl | 13 |
2 files changed, 17 insertions, 4 deletions
diff --git a/CarpetExtra/HydroToy/param.ccl b/CarpetExtra/HydroToy/param.ccl index 2760c29dd..d27dbef12 100644 --- a/CarpetExtra/HydroToy/param.ccl +++ b/CarpetExtra/HydroToy/param.ccl @@ -1,5 +1,11 @@ # Parameter definitions for thorn HydroToy -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/param.ccl,v 1.2 2001/03/21 22:57:40 eschnett Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/param.ccl,v 1.3 2001/08/26 13:59:38 schnetter Exp $ + +restricted: + +BOOLEAN hydrotoy_active "Activate or deactivate the HydroToy thorn" +{ +} "yes" private: diff --git a/CarpetExtra/HydroToy/schedule.ccl b/CarpetExtra/HydroToy/schedule.ccl index 319793a1d..aa8716cb0 100644 --- a/CarpetExtra/HydroToy/schedule.ccl +++ b/CarpetExtra/HydroToy/schedule.ccl @@ -1,5 +1,9 @@ # Schedule definitions for thorn HydroToy -# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/schedule.ccl,v 1.1 2001/03/18 22:37:09 eschnett Exp $ +# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/HydroToy/schedule.ccl,v 1.2 2001/08/26 13:59:40 schnetter Exp $ + +if (hydrotoy_active) { + + STORAGE: hydroevolve @@ -29,10 +33,13 @@ schedule HydroToy_EulerPredictor at EVOL SYNC: hydroevolve } "Euler predictor step" -schedule HydroToy_EulerCorrector at EVOL \ - after HydroToy_EulerPredictor +schedule HydroToy_EulerCorrector at EVOL after HydroToy_EulerPredictor { LANG: Fortran STORAGE: hydrotemps SYNC: hydroevolve } "Euler corrector step" + + + +} |