blob: 1503665bf8db530b7e791138d60431052563e825 (
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
78
79
80
|
# Schedule definitions for thorn Whisky_Init_Data
schedule Whisky_InitData_CheckParameters AT CCTK_PARAMCHECK
{
LANG: C
} "Check parameters"
if (CCTK_Equals(initial_hydro,"shocktube")) {
schedule Whisky_shocktube in HydroBase_Initial
{
LANG: Fortran
} "Shocktube initial data"
}
if (CCTK_Equals(initial_data,"con2primtest")) {
STORAGE:whisky_init_data_reflevel
schedule Whisky_Init_Data_RefinementLevel IN HydroBase_Initial BEFORE Whisky_con2primtest
{
LANG: Fortran
} "Calculate current refinement level"
schedule Whisky_con2primtest in HydroBase_Initial
{
LANG: Fortran
} "Testing the conservative to primitive solver"
}
if (CCTK_Equals(initial_data,"con2prim2con_test")) {
STORAGE:whisky_init_data_reflevel
schedule Whisky_Init_Data_RefinementLevel IN HydroBase_Initial BEFORE c2p2c
{
LANG: Fortran
} "Calculate current refinement level"
schedule c2p2c in HydroBase_Initial
{
LANG: Fortran
} "Testing conservative to primitive to conservative"
}
if (CCTK_Equals(initial_data,"reconstruction_test")) {
schedule Whisky_reconstruction_test in HydroBase_Initial
{
LANG: Fortran
STORAGE: whisky_prim_bext
STORAGE: whisky_scalars
OPTIONS: global loop-local
} "Testing the reconstruction"
}
if (CCTK_Equals(initial_hydro,"only_atmo")) {
schedule Whisky_Only_Atmo in HydroBase_Initial
{
LANG: Fortran
} "Only atmosphere as initial data"
}
if (CCTK_Equals(initial_hydro,"read_conformal")) {
schedule Whisky_ReadConformalData in HydroBase_Initial
{
LANG: Fortran
} "Set the missing quantities, after reading in from file initial data from conformally-flat codes (Garching)"
}
if (CCTK_Equals(initial_hydro,"simple_wave")) {
STORAGE: simple_wave_grid_functions
STORAGE: simple_wave_scalars
schedule Whisky_SimpleWave in HydroBase_Initial
{
LANG: Fortran
} "Set initial data from Anile Miller Motta, Phys.Fluids. 26, 1450 (1983)"
STORAGE: simple_wave_output
schedule Whisky_SimpleWave_Analysis AT CCTK_ANALYSIS AFTER Whisky_Entropy
{
LANG: Fortran
} "Compute some output variables for the Simple Wave"
}
|