219 |
real dflux_t(klon) ! derivee du flux de chaleur sensible au sol |
real dflux_t(klon) ! derivee du flux de chaleur sensible au sol |
220 |
REAL, save:: dlw(klon) ! derivative of infra-red flux |
REAL, save:: dlw(klon) ! derivative of infra-red flux |
221 |
REAL bils(klon) ! bilan de chaleur au sol |
REAL bils(klon) ! bilan de chaleur au sol |
222 |
REAL fder(klon) ! Derive de flux (sensible et latente) |
REAL fder(klon) ! d\'erive de flux (sensible et latente) |
223 |
REAL ve(klon) ! integr. verticale du transport meri. de l'energie |
REAL ve(klon) ! integr. verticale du transport meri. de l'energie |
224 |
REAL vq(klon) ! integr. verticale du transport meri. de l'eau |
REAL vq(klon) ! integr. verticale du transport meri. de l'eau |
225 |
REAL ue(klon) ! integr. verticale du transport zonal de l'energie |
REAL ue(klon) ! integr. verticale du transport zonal de l'energie |
265 |
REAL, save:: topsw(klon), toplw(klon), solsw(klon) |
REAL, save:: topsw(klon), toplw(klon), solsw(klon) |
266 |
|
|
267 |
REAL, save:: sollw(klon) ! surface net downward longwave flux, in W m-2 |
REAL, save:: sollw(klon) ! surface net downward longwave flux, in W m-2 |
268 |
real, save:: sollwdown(klon) ! downward LW flux at surface |
real, save:: sollwdown(klon) ! downwelling longwave flux at surface |
269 |
REAL, save:: topsw0(klon), toplw0(klon), solsw0(klon), sollw0(klon) |
REAL, save:: topsw0(klon), toplw0(klon), solsw0(klon), sollw0(klon) |
270 |
REAL, save:: albpla(klon) |
REAL, save:: albpla(klon) |
271 |
|
|
655 |
z_factor = (z_avant - (rain_con + snow_con) * dtphys) / z_apres |
z_factor = (z_avant - (rain_con + snow_con) * dtphys) / z_apres |
656 |
DO k = 1, llm |
DO k = 1, llm |
657 |
DO i = 1, klon |
DO i = 1, klon |
658 |
IF (z_factor(i) > 1. + 1E-8 .OR. z_factor(i) < 1. - 1E-8) THEN |
IF (z_factor(i) /= 1.) THEN |
659 |
q_seri(i, k) = q_seri(i, k) * z_factor(i) |
q_seri(i, k) = q_seri(i, k) * z_factor(i) |
660 |
ENDIF |
ENDIF |
661 |
ENDDO |
ENDDO |