279 |
DO it=1, nqmx - 2 |
DO it=1, nqmx - 2 |
280 |
if (clsol(it)) then |
if (clsol(it)) then |
281 |
! couche limite avec quantite dans le sol calculee |
! couche limite avec quantite dans le sol calculee |
282 |
CALL cltracrn(it, pdtphys, yu1, yv1, coefh, t_seri, ftsol, & |
CALL cltracrn(it, pdtphys, yu1, yv1, coefh(:, 2:llm), coefh(:, 1), & |
283 |
pctsrf, tr_seri(:, :, it), trs(:, it), paprs, pplay, delp, & |
t_seri, ftsol, pctsrf, tr_seri(:, :, it), trs(:, it), paprs, & |
284 |
masktr(1, it), fshtr(1, it), hsoltr(it), tautr(it), & |
pplay, delp, masktr(1, it), fshtr(1, it), hsoltr(it), & |
285 |
vdeptr(it), rlat, d_tr_cl(1, 1, it), d_trs) |
tautr(it), vdeptr(it), rlat, d_tr_cl(1, 1, it), d_trs) |
286 |
DO k = 1, llm |
DO k = 1, llm |
287 |
DO i = 1, klon |
DO i = 1, klon |
288 |
tr_seri(i, k, it) = tr_seri(i, k, it) + d_tr_cl(i, k, it) |
tr_seri(i, k, it) = tr_seri(i, k, it) + d_tr_cl(i, k, it) |