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
|
# Schedule definitions for thorn IDAnalyticBH
# $Header$
if (CCTK_Equals(initial_data,"schwarzschild") ||
CCTK_Equals(initial_data,"kerr") ||
CCTK_Equals(initial_data,"bl_bh") ||
CCTK_Equals(initial_data,"misner_bh") ||
CCTK_Equals(initial_data,"multiple_misner"))
{
schedule IDAnalyticBH_ParamChecker at CCTK_PARAMCHECK
{
LANG: C
OPTIONS: global
} "Construct parameters for analytic black hole solutions"
}
if (CCTK_Equals(initial_data,"schwarzschild"))
{
schedule Schwarzschild in ADMBase_InitialData
{
STORAGE: confac[1]
LANG: C
} "Construct initial data for a single Schwarzschild black hole"
}
else if (CCTK_Equals(initial_data,"kerr"))
{
# The Kerr stuff uses the conformal factor internally, so
# so make sure that the conformal factor has storage during
# this routine
schedule KerrID in ADMBase_InitialData
{
STORAGE: confac[1]
LANG: C
} "Construct initial data for a single Kerr black hole"
}
else if (CCTK_Equals(initial_data,"bl_bh"))
{
# The Brill-Lindquist stuff uses the conformal factor internally, so
# so make sure that the conformal factor has storage during
# this routine
schedule BrillLindquist in ADMBase_InitialData
{
STORAGE: confac[1]
LANG: C
} "Construct initial data for Brill Lindquist black holes"
}
else if (CCTK_Equals(initial_data,"misner_bh"))
{
# The Misner stuff uses the conformal factor internally, so
# so make sure that the conformal factor has storage during
# this routine
schedule Misner_standard in ADMBase_InitialData
{
STORAGE: confac[1]
LANG: C
} "Construct initial data for two Misner black holes"
}
else if (CCTK_Equals(initial_data,"multiple_misner_bh"))
{
schedule Misner_multiple in ADMBase_InitialData
{
STORAGE: confac[1]
LANG: C
} "Construct initial data for multiple Misner black holes"
}
|
