194 |
zq(i) = q(i, k) |
zq(i) = q(i, k) |
195 |
END DO |
END DO |
196 |
|
|
197 |
! Calculer la varition de temp. de l'air du a la chaleur sensible |
! Calculer la variation de temp\'erature de l'air due \`a la |
198 |
! transporter par la pluie. |
! chaleur sensible transport\'ee par la pluie. Il resterait \`a |
199 |
! Il resterait a rajouter cet effet de la chaleur sensible sur les |
! ajouter cet effet de la chaleur sensible sur les flux de |
200 |
! flux de surface, du a la diff. de temp. entre le 1er niveau et la |
! surface, du \`a la diff\'erence de temp\'erature entre le 1er |
201 |
! surface. |
! niveau et la surface. |
202 |
|
|
203 |
DO i = 1, klon |
DO i = 1, klon |
204 |
IF (k <= klev - 1) THEN |
IF (k <= klev - 1) THEN |