26 |
use cv30_undilute2_m, only: cv30_undilute2 |
use cv30_undilute2_m, only: cv30_undilute2 |
27 |
use cv30_unsat_m, only: cv30_unsat |
use cv30_unsat_m, only: cv30_unsat |
28 |
use cv30_yield_m, only: cv30_yield |
use cv30_yield_m, only: cv30_yield |
29 |
|
use cv_thermo_m, only: cv_thermo |
30 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
31 |
|
|
32 |
real, intent(in):: t1(klon, klev) ! temperature (K) |
real, intent(in):: t1(klon, klev) ! temperature (K) |
168 |
! SET CONSTANTS AND PARAMETERS |
! SET CONSTANTS AND PARAMETERS |
169 |
|
|
170 |
! set thermodynamical constants: |
! set thermodynamical constants: |
|
! (common cvthermo) |
|
171 |
CALL cv_thermo |
CALL cv_thermo |
172 |
|
|
173 |
! set convect parameters |
! set convect parameters |