/[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 229 by guez, Mon Nov 6 17:20:45 2017 UTC revision 231 by guez, Mon Nov 6 18:00:54 2017 UTC
# Line 377  contains Line 377  contains
377               coefh(:knon, 2:) = ykmn(:knon, 2:klev)               coefh(:knon, 2:) = ykmn(:knon, 2:klev)
378            END IF            END IF
379    
380            CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), coefm(:knon, :), &            CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), coefm(:knon, 2:), &
381                 yt(:knon, :), yu(:knon, :), ypaprs(:knon, :), &                 coefm(:knon, 1), yt(:knon, :), yu(:knon, :), ypaprs(:knon, :), &
382                 ypplay(:knon, :), ydelp(:knon, :), y_d_u(:knon, :), &                 ypplay(:knon, :), ydelp(:knon, :), y_d_u(:knon, :), &
383                 y_flux_u(:knon))                 y_flux_u(:knon))
384            CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), coefm(:knon, :), &            CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), coefm(:knon, 2:), &
385                 yt(:knon, :), yv(:knon, :), ypaprs(:knon, :), &                 coefm(:knon, 1), yt(:knon, :), yv(:knon, :), ypaprs(:knon, :), &
386                 ypplay(:knon, :), ydelp(:knon, :), y_d_v(:knon, :), &                 ypplay(:knon, :), ydelp(:knon, :), y_d_v(:knon, :), &
387                 y_flux_v(:knon))                 y_flux_v(:knon))
388    
Legend:
Removed from v.229  
changed lines
  Added in v.231
  ViewVC Help
Powered by ViewVC 1.1.21