blob: f68f27ee5e8fd4a1795544fc70c719595314cd58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Schedule definitions for thorn RotatingDBHIVP
# $Header$
if (CCTK_Equals(initial_data,"rotatingdbh"))
{
STORAGE: sph_to_car_coord, sph_to_car_psi
schedule RotatingDBHIVP_ParamCheck at PARAMCHECK
{
LANG: C
} "Check Parameters"
schedule RotatingDBHIVP IN ADMBase_InitialData
{
LANG: Fortran
} "Construct RotatingDBHIVP"
}
|