blob: 58087c8a63bf019bc168b09519b7fc924895911e (
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
|
/*@@
@header ADM_Spacing.h
@date June 2002
@author Denis Pollney
@desc
Calculate various spacing dependent scalars.
@enddesc
@@*/
#ifndef ADM_SPACING_H
#define ADM_SPACING_H
dt=CCTK_DELTA_TIME
dx=CCTK_DELTA_SPACE(1)
dy=CCTK_DELTA_SPACE(2)
dz=CCTK_DELTA_SPACE(3)
idx=1.d0/dx
idy=1.d0/dy
idz=1.d0/dz
i2dx=idx/2.d0
i2dy=idy/2.d0
i2dz=idz/2.d0
i12dx=idx/12.d0
i12dy=idy/12.d0
i12dz=idz/12.d0
idxx=idx**2
idyy=idy**2
idzz=idz**2
i12dxx=idxx/12.d0
i12dyy=idyy/12.d0
i12dzz=idzz/12.d0
idxy=i2dx*i2dy
idxz=i2dx*i2dz
idyz=i2dy*i2dz
i36dxy=idxy/36.d0
i36dxz=idxz/36.d0
i36dyz=idyz/36.d0
#endif
|