diff options
author | miguel <miguel@e296648e-0e4f-0410-bd07-d597d9acff87> | 1999-12-06 12:14:09 +0000 |
---|---|---|
committer | miguel <miguel@e296648e-0e4f-0410-bd07-d597d9acff87> | 1999-12-06 12:14:09 +0000 |
commit | 79f81e608351fc2d0fb72ff2a44842a6cd202f9e (patch) | |
tree | 27f423d8319bbe286d4985c7bc650b13f87aeac0 /schedule.ccl | |
parent | 9faa9285ebc53c6499508075da865c5b725fcd2a (diff) |
Migrating to Cactus 4.0
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@7 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'schedule.ccl')
-rw-r--r-- | schedule.ccl | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/schedule.ccl b/schedule.ccl index 6e901c9..087f563 100644 --- a/schedule.ccl +++ b/schedule.ccl @@ -1,2 +1,61 @@ # Schedule definitions for thorn Exact # $Header$ + + +# Initial data from exact solution. + +if (CCTK_Equals(initial_data,"exact")) +{ + schedule exactinitialize at CCTK_INITIAL + { + LANG: Fortran + } "Set initial data from exact solution" +} + + +# Exact lapse and/or shift. + +if ((CCTK_Equals(slicing,"exact")) || (CCTK_Equals(shift,"exact"))) +{ + schedule Exact_RegisterSlicing at CCTK_STARTUP + { + LANG: C + } "Register slicings" + + schedule exactgauge at CCTK_POSTINITIAL + { + LANG: Fortran + } "Set initial lapse and/or shift from exact solution" + + schedule exactgauge at CCTK_PRESTEP + { + LANG: Fortran + } "Set evolution lapse and/or shift from exact solution" +} + + +# The slice evolver. + +if ((CCTK_Equals(initial_data,"slice")) || (CCTK_Equals(evolution_system,"slice"))) +{ + STORAGE: Exact_slice + STORAGE: Exact_slicetemp1 + STORAGE: Exact_slicetemp2 + + COMMUNICATION: Exact_slice + COMMUNICATION: Exact_slicetemp1 + COMMUNICATION: Exact_slicetemp2 + + schedule slice_initialize at CCTK_INITIAL + { + LANG: Fortran + } "Set initial data from exact solution on arbitrary slice" +} + +if (CCTK_Equals(evolution_system,"slice")) +{ + schedule slice_evolve at CCTK_EVOL + { + LANG: Fortran + } "Evolve arbitrary slice and extract Cauchy data" +} |