blob: 0d7018c9182859292bddb7ac434c4fe0c83c365a (
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
|
# Schedule definitions for thorn AHFinder
#c/*@@
#c @date July 1999
#c @author Lars Nerger
#c @@*/
schedule AHFinder_SetSym at CCTK_BASEGRID
{
LANG: Fortran
} "Set symmetries for AHFinder grid functions"
if (ahf_active && CCTK_Equals(ahf_mask,"off"))
{
schedule ahfinder at CCTK_POSTSTEP
{
LANG: Fortran
STORAGE:ahfgradient,ahfinder_gauss,find3grid,ahfindergrid,ahfmask
} "Call apparent horizon finder"
}
else if (ahf_active)
{
STORAGE: ahfindergrid,ahfmask
schedule ahfinder at CCTK_POSTSTEP
{
LANG: Fortran
STORAGE: ahfgradient,ahfinder_gauss,find3grid
} "Call apparent horizon finder with persisting grid"
}
|