blob: 61eb49703810a3dbbfda5edcdc21275c95757aec (
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 IN ADMBase_InitialData
{
LANG: Fortran
} "Construct DistortedBHIVP"
}
|