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