blob: 17f5da48de0486dc074532d4de1fa87ea15a9809 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Schedule definitions for thorn DistortedBHIVP
# $Header$
if (CCTK_Equals(initial_data,"distortedbh"))
{
STORAGE: sph_to_car_coord, sph_to_car_psi
schedule DistortedBHIVP_ParamCheck at PARAMCHECK
{
LANG: C
} "Check Parameters"
schedule DistortedBHIVP at CCTK_INITIAL
{
LANG: Fortran
} "Construct DistortedBHIVP"
}
|