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) |
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 |