9 |
integer lllmm1, lllmp1, lcl |
integer lllmm1, lllmp1, lcl |
10 |
REAL dtvr ! time step for dynamics (in s) |
REAL dtvr ! time step for dynamics (in s) |
11 |
real, parameter:: daysec = 86400. ! number of seconds per day |
real, parameter:: daysec = 86400. ! number of seconds per day |
12 |
REAL pi, dtphys, dtdiss |
REAL pi, dtphys |
13 |
real, parameter:: rad = 6371229. ! radius of the Earth (in m) |
real, parameter:: rad = 6371229. ! radius of the Earth (in m) |
14 |
real r |
real r |
15 |
real, parameter:: cpp = 1004.70885, kappa = 0.2857143 |
real, parameter:: cpp = 1004.70885, kappa = 0.2857143 |