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. |
474 |
END DO |
END DO |
475 |
|
|
476 |
CALL hbtm(ypaprs, ypplay, yt2m, yq2m, ustar(:knon), y_flux_t(:knon), & |
CALL hbtm(ypaprs, ypplay, yt2m, yq2m, ustar(:knon), y_flux_t(:knon), & |
477 |
y_flux_q(:knon), yu, yv, yt, yq, ypblh(:knon), ycapcl, & |
y_flux_q(:knon), yu, yv, yt(:knon, :), yq, ypblh(:knon), & |
478 |
yoliqcl, ycteicl, ypblt, ytherm, ylcl) |
ycapcl, yoliqcl, ycteicl, ypblt, ytherm, ylcl) |
479 |
|
|
480 |
DO j = 1, knon |
DO j = 1, knon |
481 |
i = ni(j) |
i = ni(j) |