/[lmdze]/trunk/Sources/phylmd/clmain.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/clmain.f

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

revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 124  contains Line 124  contains
124      REAL t2m(klon, nbsrf), q2m(klon, nbsrf)      REAL t2m(klon, nbsrf), q2m(klon, nbsrf)
125      REAL u10m(klon, nbsrf), v10m(klon, nbsrf)      REAL u10m(klon, nbsrf), v10m(klon, nbsrf)
126    
127      !IM cf. AM : pbl, hbtm (Comme les autres diagnostics on cumule ds      ! Ionela Musat cf. Anne Mathieu : pbl, hbtm (Comme les autres
128      ! physiq ce qui permet de sortir les grdeurs par sous surface)      ! diagnostics on cumule dans physiq ce qui permet de sortir les
129        ! grandeurs par sous-surface)
130      REAL pblh(klon, nbsrf)      REAL pblh(klon, nbsrf)
131      ! pblh------- HCL      ! pblh------- HCL
132      REAL capcl(klon, nbsrf)      REAL capcl(klon, nbsrf)
# Line 575  contains Line 576  contains
576    
577            END DO            END DO
578    
579            CALL hbtm(knon, ypaprs, ypplay, yt2m, yq2m, yustar, &            CALL hbtm(knon, ypaprs, ypplay, yt2m, yq2m, yustar, y_flux_t, &
580                 y_flux_t, y_flux_q, yu, yv, yt, yq, ypblh, ycapcl, yoliqcl, &                 y_flux_q, yu, yv, yt, yq, ypblh(:knon), ycapcl, yoliqcl, &
581                 ycteicl, ypblt, ytherm, ytrmb1, ytrmb2, ytrmb3, ylcl)                 ycteicl, ypblt, ytherm, ytrmb1, ytrmb2, ytrmb3, ylcl)
582    
583            DO j = 1, knon            DO j = 1, knon
Legend:
Removed from v.178  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21