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

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

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

revision 250 by guez, Fri Jan 5 18:18:53 2018 UTC revision 251 by guez, Mon Jan 8 14:12:02 2018 UTC
# Line 339  contains Line 339  contains
339               END DO               END DO
340            end IF            end IF
341    
342            call coef_diff_turb(dtime, nsrf, ni(:knon), ypaprs, ypplay, yu, yv, &            call coef_diff_turb(dtime, nsrf, ni(:knon), ypaprs(:knon, :), &
343                 yq, yt, yts, ycdragm, zgeop(:knon, :), ycoefm(:knon, :), &                 ypplay(:knon, :), yu(:knon, :), yv(:knon, :), yq(:knon, :), &
344                 ycoefh(:knon, :), yq2)                 yt(:knon, :), yts(:knon), ycdragm(:knon), zgeop(:knon, :), &
345                   ycoefm(:knon, :), ycoefh(:knon, :), yq2(:knon, :))
346    
347            CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), ycoefm(:knon, :), &            CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), ycoefm(:knon, :), &
348                 ycdragm(:knon), yt(:knon, :), yu(:knon, :), ypaprs(:knon, :), &                 ycdragm(:knon), yt(:knon, :), yu(:knon, :), ypaprs(:knon, :), &
Legend:
Removed from v.250  
changed lines
  Added in v.251
  ViewVC Help
Powered by ViewVC 1.1.21