215 |
ydelp = 0. |
ydelp = 0. |
216 |
yu = 0. |
yu = 0. |
217 |
yv = 0. |
yv = 0. |
|
yt = 0. |
|
218 |
yq = 0. |
yq = 0. |
219 |
yrugoro = 0. |
yrugoro = 0. |
220 |
d_ts = 0. |
d_ts = 0. |
345 |
ypplay(:knon, :), ydelp(:knon, :), y_d_v(:knon, :), & |
ypplay(:knon, :), ydelp(:knon, :), y_d_v(:knon, :), & |
346 |
y_flux_v(:knon)) |
y_flux_v(:knon)) |
347 |
|
|
|
! calculer la diffusion de "q" et de "h" |
|
348 |
CALL clqh(dtime, julien, firstcal, nsrf, ni(:knon), & |
CALL clqh(dtime, julien, firstcal, nsrf, ni(:knon), & |
349 |
ytsoil(:knon, :), yqsol(:knon), mu0, yrugos(:knon), & |
ytsoil(:knon, :), yqsol(:knon), mu0, yrugos(:knon), & |
350 |
yrugoro(:knon), yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), & |
yrugoro(:knon), yu(:knon, 1), yv(:knon, 1), ycoefh(:knon, :), & |
473 |
END DO |
END DO |
474 |
|
|
475 |
CALL hbtm(ypaprs, ypplay, yt2m, yq2m, ustar(:knon), y_flux_t(:knon), & |
CALL hbtm(ypaprs, ypplay, yt2m, yq2m, ustar(:knon), y_flux_t(:knon), & |
476 |
y_flux_q(:knon), yu, yv, yt, yq, ypblh(:knon), ycapcl, & |
y_flux_q(:knon), yu, yv, yt(:knon, :), yq, ypblh(:knon), & |
477 |
yoliqcl, ycteicl, ypblt, ytherm, ylcl) |
ycapcl, yoliqcl, ycteicl, ypblt, ytherm, ylcl) |
478 |
|
|
479 |
DO j = 1, knon |
DO j = 1, knon |
480 |
i = ni(j) |
i = ni(j) |