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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
# Interface definition for thorn SummationByParts
# $Header$
implements: SummationByParts
#inherits: grid
SUBROUTINE Diff_gf ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_STRING IN var_name, \
CCTK_STRING IN dvar_name )
PROVIDES FUNCTION Diff_gf WITH DiffGf LANGUAGE C
SUBROUTINE Diff_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_REAL IN ARRAY var, \
CCTK_REAL OUT ARRAY dvar, \
CCTK_INT IN table_handle )
PROVIDES FUNCTION Diff_gv WITH DiffGv LANGUAGE C
SUBROUTINE Diff_up_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_REAL IN ARRAY var, \
CCTK_REAL OUT ARRAY dvar, \
CCTK_REAL IN ARRAY up, \
CCTK_INT IN table_handle )
PROVIDES FUNCTION Diff_up_gv WITH DiffUpGv LANGUAGE C
SUBROUTINE Diff2_gv ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir1, \
CCTK_INT IN dir2, \
CCTK_REAL IN ARRAY var, \
CCTK_REAL OUT ARRAY dvar, \
CCTK_INT IN table_handle )
PROVIDES FUNCTION Diff2_gv WITH DiffGv2 LANGUAGE C
SUBROUTINE Diff_coeff ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_INT IN nsize, \
CCTK_INT OUT ARRAY imin, \
CCTK_INT OUT ARRAY imax, \
CCTK_REAL OUT ARRAY q, \
CCTK_INT IN table_handle )
PROVIDES FUNCTION Diff_coeff WITH DiffCoeff LANGUAGE C
SUBROUTINE Diff_up_coeff ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_INT IN nsize, \
CCTK_INT OUT ARRAY imin, \
CCTK_INT OUT ARRAY imax, \
CCTK_REAL OUT ARRAY q, \
CCTK_INT IN up, \
CCTK_INT IN table_handle )
PROVIDES FUNCTION Diff_up_coeff WITH DiffUpCoeff LANGUAGE C
SUBROUTINE Diff2_coeff ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_INT IN nsize, \
CCTK_INT OUT ARRAY imin, \
CCTK_INT OUT ARRAY imax, \
CCTK_REAL OUT ARRAY q, \
CCTK_INT IN table_handle )
PROVIDES FUNCTION Diff2_coeff WITH DiffCoeff2 LANGUAGE C
#Routine to return the coefficients for the diagonal norms.
SUBROUTINE GetScalProdDiag ( CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN dir, \
CCTK_INT IN nsize, \
CCTK_REAL OUT ARRAY sigmad )
PROVIDES FUNCTION GetScalProdDiag WITH SBP_GetScalProdDiag LANGUAGE Fortran
CCTK_REAL FUNCTION GetScalProdCoeff ()
PROVIDES FUNCTION GetScalProdCoeff WITH GetCoeff LANGUAGE Fortran
SUBROUTINE GetLshIndexRanges ( \
CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT OUT ARRAY imin, \
CCTK_INT OUT ARRAY imax )
PROVIDES FUNCTION GetLshIndexRanges WITH get_lsh_iranges LANGUAGE C
SUBROUTINE GetBoundWidth (\
CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT OUT ARRAY bsize, \
CCTK_INT IN table_handle )
PROVIDES FUNCTION GetBoundWidth WITH Get_Bound_Width LANGUAGE C
CCTK_INT FUNCTION GetDomainSpecification \
(CCTK_INT IN size, \
CCTK_REAL OUT ARRAY physical_min, \
CCTK_REAL OUT ARRAY physical_max, \
CCTK_REAL OUT ARRAY interior_min, \
CCTK_REAL OUT ARRAY interior_max, \
CCTK_REAL OUT ARRAY exterior_min, \
CCTK_REAL OUT ARRAY exterior_max, \
CCTK_REAL OUT ARRAY spacing)
USES FUNCTION GetDomainSpecification
CCTK_INT FUNCTION \
GetBoundarySpecification \
(CCTK_INT IN size, \
CCTK_INT OUT ARRAY nboundaryzones, \
CCTK_INT OUT ARRAY is_internal, \
CCTK_INT OUT ARRAY is_staggered, \
CCTK_INT OUT ARRAY shiftout)
USES FUNCTION GetBoundarySpecification
CCTK_INT FUNCTION \
MultiPatch_GetBoundarySpecification \
(CCTK_INT IN map, \
CCTK_INT IN size, \
CCTK_INT OUT ARRAY nboundaryzones, \
CCTK_INT OUT ARRAY is_internal, \
CCTK_INT OUT ARRAY is_staggered, \
CCTK_INT OUT ARRAY shiftout)
USES FUNCTION MultiPatch_GetBoundarySpecification
CCTK_INT FUNCTION \
SymmetryTableHandleForGrid (CCTK_POINTER_TO_CONST IN cctkGH)
REQUIRES FUNCTION SymmetryTableHandleForGrid
CCTK_INT FUNCTION MultiPatch_GetMap (CCTK_POINTER_TO_CONST IN cctkGH)
USES FUNCTION MultiPatch_GetMap
CCTK_INT FUNCTION MultiPatch_GetMaps (CCTK_POINTER_TO_CONST IN cctkGH)
USES FUNCTION MultiPatch_GetMaps
CCTK_INT FUNCTION \
MultiPatch_GetBbox \
(CCTK_POINTER_TO_CONST IN cctkGH, \
CCTK_INT IN size, \
CCTK_INT OUT ARRAY bbox)
USES FUNCTION MultiPatch_GetBbox
CCTK_INT FUNCTION SymmetryHandleOfName (CCTK_STRING IN sym_name)
REQUIRES FUNCTION SymmetryHandleOfName
CCTK_INT FUNCTION MoLQueryEvolvedRHS (CCTK_INT IN EvolvedIndex)
USES FUNCTION MoLQueryEvolvedRHS
public:
CCTK_REAL normmask TYPE=gf TAGS='tensortypealias="scalar" Prolongation="None" checkpoint="no"'
{
nmask
} "Mask for the norm calculation"
CCTK_REAL deltas TYPE=gf TIMELEVELS=1 TAGS='tensortypealias="U" Prolongation="None"'
{
sbp_dx, sbp_dy, sbp_dz
} "Dissipation deltas"
|
