--- trunk/Sources/phylmd/cv_driver.f	2016/03/29 15:20:23	189
+++ trunk/Sources/phylmd/cv_driver.f	2016/05/12 13:00:07	192
@@ -26,6 +26,7 @@
     use cv30_undilute2_m, only: cv30_undilute2
     use cv30_unsat_m, only: cv30_unsat
     use cv30_yield_m, only: cv30_yield
+    use cv_thermo_m, only: cv_thermo
     USE dimphy, ONLY: klev, klon
 
     real, intent(in):: t1(klon, klev) ! temperature (K)
@@ -167,7 +168,6 @@
     ! SET CONSTANTS AND PARAMETERS
 
     ! set thermodynamical constants:
-    ! (common cvthermo)
     CALL cv_thermo
 
     ! set convect parameters
@@ -257,8 +257,10 @@
 
        ! Unsaturated (precipitating) downdrafts
        CALL cv30_unsat(icb(:ncum), inb(:ncum), t, q, qs, gz, u, v, p, ph, th, &
-            tv, lv, cpn, ep, sigp, clw, m, ment, elij, delt, plcl, mp, &
-            qp(:ncum, :nl), up(:ncum, :nl), vp(:ncum, :nl), wt, water, evap, b)
+            tv, lv, cpn, ep(:ncum, :), sigp(:ncum, :), clw(:ncum, :), &
+            m(:ncum, :), ment(:ncum, :, :), elij(:ncum, :, :), delt, plcl, &
+            mp, qp(:ncum, :nl), up(:ncum, :nl), vp(:ncum, :nl), wt, water, &
+            evap, b)
 
        ! Yield (tendencies, precipitation, variables of interface with
        ! other processes, etc)