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

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

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

revision 231 by guez, Mon Nov 6 17:47:03 2017 UTC revision 232 by guez, Tue Nov 7 10:23:25 2017 UTC
# Line 279  contains Line 279  contains
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)
Legend:
Removed from v.231  
changed lines
  Added in v.232
  ViewVC Help
Powered by ViewVC 1.1.21