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

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

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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 145 by guez, Tue Jun 16 15:23:29 2015 UTC
# Line 309  contains Line 309  contains
309      ! --- CONVECTIVE FEED      ! --- CONVECTIVE FEED
310    
311      if (iflag_con == 3) then      if (iflag_con == 3) then
312         CALL cv3_feed(klon, klev, t1, q1, qs1, p1, ph1, hm1, gz1, nk1, icb1, &         CALL cv3_feed(klon, klev, t1, q1, qs1, p1, ph1, gz1, nk1, icb1, &
313              icbmax, iflag1, tnk1, qnk1, gznk1, plcl1) ! klev->na              icbmax, iflag1, tnk1, qnk1, gznk1, plcl1) ! klev->na
314      else      else
315         ! iflag_con == 4         ! iflag_con == 4
# Line 404  contains Line 404  contains
404         ! --- MIXING         ! --- MIXING
405    
406         if (iflag_con == 3) then         if (iflag_con == 3) then
407            CALL cv3_mixing(klon, ncum, klev, klev, icb, nk, inb, ph, t, q, &            CALL cv3_mixing(klon, ncum, klev, klev, icb, nk, inb, t, q, qs, u, &
408                 qs, u, v, h, lv, qnk, hp, tv, tvp, ep, clw, m, sig, ment, &                 v, h, lv, hp, ep, clw, m, sig, ment, qent, uent, vent, nent, &
409                 qent, uent, vent, nent, sij, elij, ments, qents)                 sij, elij, ments, qents)
410         else         else
411            ! iflag_con == 4            ! iflag_con == 4
412            CALL cv_mixing(klon, ncum, klev, icb, nk, inb, inbis, ph, t, q, qs, &            CALL cv_mixing(klon, ncum, klev, icb, nk, inb, inbis, ph, t, q, qs, &
Legend:
Removed from v.139  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.21