4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE conflx(dtime, pres_h, pres_f, t, q, con_t, con_q, qhfl, w, & |
SUBROUTINE conflx(dtime, pres_h, pres_f, t, q, con_t, con_q, qhfl, omega, & |
8 |
d_t, d_q, rain, snow, mfu, mfd, pen_u, pde_u, pen_d, pde_d, kcbot, & |
d_t, d_q, rain, snow, mfu, mfd, pen_u, pde_u, pen_d, pde_d, kcbot, & |
9 |
kctop, kdtop, pmflxr, pmflxs) |
kctop, kdtop, pmflxr, pmflxs) |
10 |
|
|
39 |
! (klon, klev) convergence de l'eau vapeur (g/g/s) |
! (klon, klev) convergence de l'eau vapeur (g/g/s) |
40 |
|
|
41 |
REAL, intent(in):: qhfl(:) ! (klon) evaporation (negative vers haut) mm/s |
REAL, intent(in):: qhfl(:) ! (klon) evaporation (negative vers haut) mm/s |
42 |
REAL, intent(in):: w(:, :) ! (klon, klev) vitesse verticale (Pa/s) |
REAL, intent(in):: omega(:, :) ! (klon, klev) vitesse verticale (Pa/s) |
43 |
|
|
44 |
REAL, intent(out):: d_t(:, :) ! (klon, klev) incrementation de temperature |
REAL, intent(out):: d_t(:, :) ! (klon, klev) incrementation de temperature |
45 |
REAL, intent(out):: d_q(:, :) ! (klon, klev) incrementation d'humidite |
REAL, intent(out):: d_q(:, :) ! (klon, klev) incrementation d'humidite |
113 |
DO i = 1, klon |
DO i = 1, klon |
114 |
paprsf(i, k) = pres_f(i, klev-k + 1) |
paprsf(i, k) = pres_f(i, klev-k + 1) |
115 |
paprs(i, k) = pres_h(i, klev + 1-k + 1) |
paprs(i, k) = pres_h(i, klev + 1-k + 1) |
116 |
pvervel(i, k) = w(i, klev + 1-k) |
pvervel(i, k) = omega(i, klev + 1-k) |
117 |
zcvgt(i, k) = con_t(i, klev-k + 1) |
zcvgt(i, k) = con_t(i, klev-k + 1) |
118 |
zcvgq(i, k) = con_q(i, klev-k + 1) |
zcvgq(i, k) = con_q(i, klev-k + 1) |
119 |
|
|