/[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

trunk/phylmd/cv_driver.f revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC trunk/Sources/phylmd/cv_driver.f 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, &
# Line 448  contains Line 448  contains
448    
449         ! --- passive tracers         ! --- passive tracers
450    
451         if (iflag_con == 3) CALL cv3_tracer(klon, klon, ncum, klev, klev, &         if (iflag_con == 3) CALL cv3_tracer(klon, ncum, klev, ment, sij, da, phi)
             ment, sij, da, phi)  
452    
453         ! --- UNCOMPRESS THE FIELDS         ! --- UNCOMPRESS THE FIELDS
454    
Legend:
Removed from v.103  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.21