--- trunk/Sources/phylmd/CV30_routines/cv30_yield.f	2016/03/29 15:20:23	189
+++ trunk/Sources/phylmd/CV30_routines/cv30_yield.f	2016/05/23 13:50:39	196
@@ -9,9 +9,12 @@
        qent, uent, vent, nent, elij, sig, tv, tvp, iflag, precip, VPrecip, &
        ft, fr, fu, fv, upwd, dnwd, dnwd0, ma, mike, tls, tps, qcondc)
 
+    ! Tendencies, precipitation, variables of interface with other
+    ! processes, etc.
+
     use conema3_m, only: iflag_clw
-    use cv30_param_m, only: delta, minorig, nl, sigd
-    use cvthermo, only: cl, cpd, cpv, grav, rowl, rrd, rrv
+    use cv30_param_m, only: minorig, nl, sigd
+    use cv_thermo_m, only: cl, cpd, cpv, grav, rowl, rrd, rrv
     USE dimphy, ONLY: klev, klon
 
     ! inputs:
@@ -27,7 +30,8 @@
     real m(klon, klev)
     real tp(klon, klev)
     real mp(klon, klev), rp(klon, klev), up(klon, klev)
-    real vp(klon, klev), wt(klon, klev)
+    real, intent(in):: vp(:, 2:) ! (ncum, 2:nl)
+    real, intent(in):: wt(:, :) ! (ncum, nl - 1)
     real, intent(in):: water(:, :), evap(:, :) ! (ncum, nl)
     real, intent(in):: b(:, :) ! (ncum, nl - 1)
     real ment(klon, klev, klev), qent(klon, klev, klev), uent(klon, klev, klev)
@@ -37,8 +41,7 @@
     real sig(klon, klev)
     real tv(klon, klev), tvp(klon, klev)
 
-    ! input / output:
-    integer iflag(klon)
+    integer, intent(out):: iflag(:) ! (ncum)
 
     ! outputs:
     real precip(klon)
@@ -52,6 +55,7 @@
     real qcondc(klon, klev)
 
     ! Local:
+    real, parameter:: delta = 0.01 ! interface cloud parameterization
     integer ncum
     integer i, k, il, n, j, num1
     real rat, awat, delti
@@ -67,6 +71,7 @@
     !-------------------------------------------------------------
 
     ncum = size(icb)
+    iflag = 0
 
     ! initialization: