--- trunk/Sources/phylmd/concvl.f	2016/06/21 15:16:03	205
+++ trunk/Sources/phylmd/concvl.f	2016/08/30 12:52:46	206
@@ -4,9 +4,9 @@
 
 contains
 
-  SUBROUTINE concvl(paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, &
-       d_v, rain, kbas, itop_con, upwd, dnwd, dnwd0, ma, cape, iflag, qcondc, &
-       pmflxr, da, phi, mp)
+  SUBROUTINE concvl(paprs, play, t, q, u, v, sig1, w01, d_t, d_q, d_u, d_v, &
+       rain, kbas, itop_con, upwd, dnwd, ma, cape, iflag, qcondc, pmflxr, da, &
+       phi, mp)
 
     ! From phylmd/concvl.F, version 1.3, 2005/04/15 12:36:17
     ! Author: Z. X. Li (LMD/CNRS)
@@ -39,9 +39,6 @@
     real, intent(out):: dnwd(klon, klev)
     ! saturated downdraft mass flux (kg / m2 / s)
 
-    real, intent(out):: dnwd0(klon, klev)
-    ! unsaturated downdraft mass flux, in kg m-2 s-1
-
     REAL ma(klon, klev)
     real cape(klon) ! output (J / kg)
     INTEGER, intent(out):: iflag(klon)
@@ -72,7 +69,6 @@
     CALL cv_driver(t, q, qs, u, v, play / 100., paprs / 100., iflag, d_t, &
          d_q, d_u, d_v, rain, pmflxr, sig1, w01, kbas, itop_con, ma, upwd, &
          dnwd, qcondc, cape, da, phi, mp)
-    dnwd0 = - mp
     rain = rain / 86400.
     d_t = dtphys * d_t
     d_q = dtphys * d_q