/[lmdze]/trunk/phylmd/concvl.f
ViewVC logotype

Diff of /trunk/phylmd/concvl.f

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

revision 205 by guez, Tue Jun 21 15:16:03 2016 UTC revision 206 by guez, Tue Aug 30 12:52:46 2016 UTC
# Line 4  module concvl_m Line 4  module concvl_m
4    
5  contains  contains
6    
7    SUBROUTINE concvl(paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, &    SUBROUTINE concvl(paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, d_v, &
8         d_v, rain, kbas, itop_con, upwd, dnwd, dnwd0, ma, cape, iflag, qcondc, &         rain, kbas, itop_con, upwd, dnwd, ma, cape, iflag, qcondc, pmflxr, da, &
9         pmflxr, da, phi, mp)         phi, mp)
10    
11      ! From phylmd/concvl.F, version 1.3, 2005/04/15 12:36:17      ! From phylmd/concvl.F, version 1.3, 2005/04/15 12:36:17
12      ! Author: Z. X. Li (LMD/CNRS)      ! Author: Z. X. Li (LMD/CNRS)
# Line 39  contains Line 39  contains
39      real, intent(out):: dnwd(klon, klev)      real, intent(out):: dnwd(klon, klev)
40      ! saturated downdraft mass flux (kg / m2 / s)      ! saturated downdraft mass flux (kg / m2 / s)
41    
     real, intent(out):: dnwd0(klon, klev)  
     ! unsaturated downdraft mass flux, in kg m-2 s-1  
   
42      REAL ma(klon, klev)      REAL ma(klon, klev)
43      real cape(klon) ! output (J / kg)      real cape(klon) ! output (J / kg)
44      INTEGER, intent(out):: iflag(klon)      INTEGER, intent(out):: iflag(klon)
# Line 72  contains Line 69  contains
69      CALL cv_driver(t, q, qs, u, v, play / 100., paprs / 100., iflag, d_t, &      CALL cv_driver(t, q, qs, u, v, play / 100., paprs / 100., iflag, d_t, &
70           d_q, d_u, d_v, rain, pmflxr, sig1, w01, kbas, itop_con, ma, upwd, &           d_q, d_u, d_v, rain, pmflxr, sig1, w01, kbas, itop_con, ma, upwd, &
71           dnwd, qcondc, cape, da, phi, mp)           dnwd, qcondc, cape, da, phi, mp)
     dnwd0 = - mp  
72      rain = rain / 86400.      rain = rain / 86400.
73      d_t = dtphys * d_t      d_t = dtphys * d_t
74      d_q = dtphys * d_q      d_q = dtphys * d_q
Legend:
Removed from v.205  
changed lines
  Added in v.206
  ViewVC Help
Powered by ViewVC 1.1.21