schedule.ccl


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
49
50
51
52
53

# 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_WRAGH after Einstein_ActivateSlicing
{
   LANG: C
} "Identify the slicing for the next iteration"

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"
  }
}