/[lmdze]/trunk/phylmd/fisrtilp.f90
ViewVC logotype

Diff of /trunk/phylmd/fisrtilp.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 345 by guez, Thu Sep 26 17:08:42 2019 UTC revision 346 by guez, Mon Dec 9 20:15:29 2019 UTC
# Line 194  contains Line 194  contains
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

Legend:
Removed from v.345  
changed lines
  Added in v.346

  ViewVC Help
Powered by ViewVC 1.1.21