blob: 69313ae6dc520eba50b96d76b75687faeadca19e (
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
|
# Interface definition for thorn Dissipation
# $Header$
IMPLEMENTS: Dissipation
INHERITS: grid SphericalSurface SpaceMask
CCTK_INT FUNCTION MoLQueryEvolvedRHS (CCTK_INT IN EvolvedIndex)
REQUIRES FUNCTION MoLQueryEvolvedRHS
CCTK_INT FUNCTION \
SymmetryTableHandleForGrid (CCTK_POINTER_TO_CONST IN cctkGH)
USES FUNCTION SymmetryTableHandleForGrid
CCTK_INT FUNCTION HorizonRadiusInDirection \
(CCTK_INT IN horizon_number, \
CCTK_INT IN N_points, \
CCTK_REAL IN ARRAY x, CCTK_REAL IN ARRAY y, CCTK_REAL IN ARRAY z, \
CCTK_REAL OUT ARRAY radius)
USES FUNCTION HorizonRadiusInDirection
PRIVATE:
REAL epsdisA_group TYPE=gf
{
epsdisA
} "dissipation array for spatially different dissipation"
|