1 |
guez |
3 |
module comconst |
2 |
|
|
|
3 |
|
|
use dimens_m, only: jjm |
4 |
|
|
|
5 |
|
|
implicit none |
6 |
|
|
|
7 |
|
|
INTEGER im, jm, lllm, imp1 |
8 |
|
|
integer, parameter:: jmp1 = jjm + 1 |
9 |
|
|
integer lllmm1, lllmp1, lcl |
10 |
|
|
REAL dtvr ! time step for dynamics (in s) |
11 |
|
|
real, parameter:: daysec = 86400. ! number of seconds per day |
12 |
guez |
26 |
REAL pi, dtphys |
13 |
guez |
3 |
real, parameter:: rad = 6371229. ! radius of the Earth (in m) |
14 |
|
|
real r |
15 |
|
|
real, parameter:: cpp = 1004.70885, kappa = 0.2857143 |
16 |
|
|
REAL cotot, unsim |
17 |
|
|
real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2) |
18 |
|
|
real omeg ! angular speed of rotation of the Earth (in rad s-1) |
19 |
|
|
|
20 |
|
|
private jjm |
21 |
|
|
|
22 |
|
|
contains |
23 |
|
|
|
24 |
|
|
subroutine initialize |
25 |
|
|
|
26 |
|
|
print *, "Call sequence information: initialize" |
27 |
|
|
pi = Acos(-1.) |
28 |
|
|
omeg = 2 * pi / daysec |
29 |
|
|
|
30 |
|
|
end subroutine initialize |
31 |
|
|
|
32 |
|
|
end module comconst |