blob: 97d701d0890a090c909e293f29c53fa80dc93476 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# Schedule definitions for thorn CoordGauge
# $Header$
STORAGE: slicing_flags
# Old stuff
schedule Einstein_ActivateSlicing at CCTK_WRAGH
{
LANG: C
} "Initialize slicing, setup priorities for mixed slicings"
schedule Einstein_SetNextSlicing at CCTK_PRESTEP
{
LANG: C
} "Identify the slicing for the next iteration"
#New stuff
if(CCTK_Equals(lapse_evolution_method, "coordgauge")||
CCTK_Equals(shift_evolution_method, "coordgauge"))
{
SCHEDULE GROUP CoordGauge AT CCTK_PRESTEP
{
} "Coordinate Gauge group"
if(CCTK_Equals(lapse_evolution_method, "coordgauge"))
{
SCHEDULE GROUP LapseSelect IN CoordGauge BEFORE PickCoordGauge
{
} "Lapse Selection Group"
SCHEDULE GROUP LapseApply IN CoordGauge AFTER PickCoordGauge
{
} "Lapse Application Group"
}
if(CCTK_Equals(shift_evolution_method, "coordgauge"))
{
SCHEDULE GROUP ShiftSelect IN CoordGauge BEFORE PickCoordGauge
{
} "Shift Selection Group"
SCHEDULE GROUP ShiftApply IN CoordGauge AFTER PickCoordGauge
{
} "Shift Application Group"
}
}
|