/[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 150 by guez, Thu Jun 18 13:49:26 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 381  contains Line 381  contains
381    
382         if (iflag_con == 3) then         if (iflag_con == 3) then
383            CALL cv3_undilute2(klon, ncum, klev, icb, icbs, nk, tnk, qnk, gznk, &            CALL cv3_undilute2(klon, ncum, klev, icb, icbs, nk, tnk, qnk, gznk, &
384                 t, q, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, &                 t, qs, gz, p, h, tv, lv, pbase, buoybase, plcl, inb, tp, &
385                 tvp, clw, hp, ep, sigp, buoy) !na->klev                 tvp, clw, hp, ep, sigp, buoy) !na->klev
386         else         else
387            ! iflag_con == 4            ! iflag_con == 4
388            CALL cv_undilute2(klon, ncum, klev, icb, nk, tnk, qnk, gznk, t, q, &            CALL cv_undilute2(klon, ncum, klev, icb, nk, tnk, qnk, gznk, t, &
389                 qs, gz, p, dph, h, tv, lv, inb, inbis, tp, tvp, clw, hp, ep, &                 qs, gz, p, dph, h, tv, lv, inb, inbis, tp, tvp, clw, hp, ep, &
390                 sigp, frac)                 sigp, frac)
391         endif         endif
# 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.150
  ViewVC Help
Powered by ViewVC 1.1.21