diff options
author | goodale <goodale@d576a68a-b34a-40ae-82fc-004fa1a9d16f> | 2002-04-29 17:20:13 +0000 |
---|---|---|
committer | goodale <goodale@d576a68a-b34a-40ae-82fc-004fa1a9d16f> | 2002-04-29 17:20:13 +0000 |
commit | b07bdd7dc4daba05591fed570976d3a315d8964c (patch) | |
tree | 5e44cb06423abed4d1854f7e5485a5b15148048a /schedule.ccl | |
parent | b1538d2c3a1bd35cbbd53f8993bbce6dbeda2dde (diff) |
Adding a ParamCheck routine - ADMBase only knows about "physical" metric_type
so will refuse to setup "cartesian minkowski" if metric_type is not
"physical".
Tom
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMBase/trunk@8 d576a68a-b34a-40ae-82fc-004fa1a9d16f
Diffstat (limited to 'schedule.ccl')
-rw-r--r-- | schedule.ccl | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/schedule.ccl b/schedule.ccl index 75e4170..d66d70e 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -3,9 +3,14 @@ STORAGE: metric[1], curv[1], lapse[1] +SCHEDULE ADMBase_ParamCheck at CCTK_PARAMCHECK +{ + LANG: C +} "Check consistency of parameters" + # Schedule group for setting initial data -schedule group ADMBase_InitialData at CCTK_INITIAL +SCHEDULE group ADMBase_InitialData at CCTK_INITIAL { } "Schedule group for ADM initial data" @@ -13,8 +18,8 @@ schedule group ADMBase_InitialData at CCTK_INITIAL if(CCTK_Equals(initial_data, "Cartesian Minkowski")) { - SCHEDULE ADMBase_CartesianMinkowski at CCTK_INITIAL - { + SCHEDULE ADMBase_CartesianMinkowski in ADMBase_InitialData + { LANG: C } "Set the metric and extrinsic curvature to cartesian minkowski values" } @@ -24,7 +29,7 @@ if(CCTK_Equals(initial_data, "Cartesian Minkowski")) if(CCTK_Equals(initial_lapse, "one")) { SCHEDULE ADMBase_LapseOne at CCTK_INITIAL - { + { LANG: C } "Set the lapse to 1 at all points" } @@ -35,14 +40,14 @@ if (!CCTK_Equals(initial_shift,"none")) STORAGE: shift[1] SCHEDULE ADMBase_SetShiftStateOn at CCTK_BASEGRID - { + { LANG: C } "Set the shift_state variable to 1" } else { SCHEDULE ADMBase_SetShiftStateOff at CCTK_BASEGRID - { + { LANG: C } "Set the shift_state variable to 0" } @@ -52,7 +57,7 @@ else if(CCTK_Equals(initial_shift, "zero")) { SCHEDULE ADMBase_ShiftZero at CCTK_INITIAL - { + { LANG: C } "Set the shift to 0 at all points" } |