blob: 08dc51abc5be343780d200bcab5384ff4e244648 (
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
# Schedule definitions for thorn WaveToyExpl
# $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyExpl/schedule.ccl,v 1.1 2003/06/18 18:24:30 schnetter Exp $
STORAGE: scalarevolve[3]
STORAGE: scalarevolveint[3]
SCHEDULE WaveToyExpl_Startup AT startup
{
LANG: Fortran
} "Register banner"
SCHEDULE WaveToyExpl_InitSymBound AT basegrid
{
LANG: Fortran
OPTIONS: global
} "Schedule symmetries"
SCHEDULE WaveToyExpl_IntInit AT postinitial
{
LANG: Fortran
} "Initialise intermediate variables"
SCHEDULE WaveToyExpl_IntStep AT evol
{
LANG: Fortran
} "Calculate intermediate step"
SCHEDULE WaveToyExpl_IntBoundaries AT evol AFTER WaveToyExpl_IntStep
{
LANG: Fortran
SYNC: scalarevolveint
} "Select boundary conditions after intermediate step"
SCHEDULE GROUP ApplyBCs AS WaveToyExpl_ApplyIntBoundaries AT evol AFTER WaveToyExpl_IntBoundaries
{
} "Apply boundary conditions after intermediate step"
SCHEDULE WaveToyExpl_FinalStep AT evol AFTER WaveToyExpl_ApplyIntBoundaries
{
LANG: Fortran
} "Calculate final step"
SCHEDULE WaveToyExpl_FinalBoundaries AT evol AFTER WaveToyExpl_FinalStep
{
LANG: Fortran
SYNC: scalarevolve
} "Select boundary conditions after final step"
SCHEDULE GROUP ApplyBCs AS WaveToyExpl_ApplyFinalBoundaries AT evol AFTER WaveToyExpl_FinalBoundaries
{
} "Apply boundary conditions after final step"
SCHEDULE WaveToyExpl_IntBoundaries IN postrestrict
{
LANG: Fortran
SYNC: scalarevolveint
} "Select boundary conditions after restricting"
SCHEDULE WaveToyExpl_FinalBoundaries IN postrestrict
{
LANG: Fortran
SYNC: scalarevolve
} "Select boundary conditions after restricting"
SCHEDULE GROUP ApplyBCs AS WaveToyExpl_ApplyBoundaries IN postrestrict AFTER (WaveToyMoL_IntBoundaries, WaveToyMoL_FinalBoundaries)
{
} "Apply boundary conditions after restricting"
|