11 |
USE dimens_m |
USE dimens_m |
12 |
USE dimphy |
USE dimphy |
13 |
USE tracstoke |
USE tracstoke |
14 |
USE yomcst |
USE suphec_m |
15 |
USE yoethf |
USE yoethf_m |
16 |
USE fcttre |
USE fcttre |
17 |
USE comfisrtilp |
USE comfisrtilp |
18 |
use numer_rec, only: nr_erf |
use numer_rec, only: nr_erf |
24 |
REAL, INTENT (IN) :: & ! intervalle du temps (s) |
REAL, INTENT (IN) :: & ! intervalle du temps (s) |
25 |
dtime |
dtime |
26 |
REAL, INTENT (IN) :: paprs(klon,klev+1) ! pression a inter-couche |
REAL, INTENT (IN) :: paprs(klon,klev+1) ! pression a inter-couche |
27 |
REAL, INTENT (IN) :: pplay(klon,klev) ! pression au milieu de couche |
REAL, INTENT (IN):: pplay(klon,klev) ! pression au milieu de couche |
28 |
REAL t(klon,klev) ! temperature (K) |
REAL, INTENT (IN):: t(klon,klev) ! temperature (K) |
29 |
REAL q(klon,klev) ! humidite specifique (kg/kg) |
REAL q(klon,klev) ! humidite specifique (kg/kg) |
30 |
REAL d_t(klon,klev) ! incrementation de la temperature (K) |
REAL d_t(klon,klev) ! incrementation de la temperature (K) |
31 |
REAL d_q(klon,klev) ! incrementation de la vapeur d'eau |
REAL d_q(klon,klev) ! incrementation de la vapeur d'eau |