blob: 1ff5f1fd36c89b7f10d8e147e5267dfbbf2e703e (
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
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"
|