blob: 53c96d88c4c443bdddc2c5743de21c5f9e54ef6c (
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
# Schedule definitions for thorn HydroAnalysis
if (Hydro_Analysis_comp_rho_max || Hydro_Analysis_comp_rho_max_origin_distance)
{
STORAGE: Hydro_Analysis_rho_max
STORAGE: Hydro_Analysis_rho_max_loc
}
if (Hydro_Analysis_comp_vol_weighted_center_of_mass)
{
STORAGE: Hydro_Analysis_rho_sum
STORAGE: Hydro_Analysis_rho_center_volume_weighted
STORAGE: Hydro_Analysis_rho_center_volume_weighted_gf[3]
}
if (Hydro_Analysis_comp_rho_max_origin_distance)
{
STORAGE: Hydro_Analysis_rho_max_origin_distance
}
schedule Hydro_Analysis_Init IN CCTK_BASEGRID
{
LANG: C
OPTIONS: global
} "Initialize variables"
schedule group Hydro_Analysis AT POSTSTEP
{
} "Group for Hydro_Analysis routines"
schedule Hydro_Analysis_PrepareReduction IN Hydro_Analysis
{
LANG: C
OPTIONS: global-early
} "Compute the local reduction results"
schedule Hydro_Analysis_Reduction IN Hydro_Analysis AFTER Hydro_Analysis_PrepareReduction
{
LANG: C
OPTIONS: global
} "Compute the global reduction results"
if (Hydro_Analysis_comp_rho_max || Hydro_Analysis_comp_rho_max_origin_distance)
{
schedule Hydro_Analysis_LocationSearch IN Hydro_Analysis AFTER Hydro_Analysis_Reduction
{
LANG: C
OPTIONS: global loop-local
} "Look for the location of the maximum density"
}
if (Hydro_Analysis_comp_rho_max_origin_distance)
{
schedule Hydro_Analysis_FindSeparation IN Hydro_Analysis AFTER Hydro_Analysis_LocationSearch
{
LANG: Fortran
OPTIONS: global
} "Compute the proper distance between the maximum of the density and the origin (along a straight coordinate line)"
}
|