/[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 149 by guez, Tue Jun 16 15:23:29 2015 UTC revision 150 by guez, Thu Jun 18 13:49:26 2015 UTC
# 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
Legend:
Removed from v.149  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.21