--- trunk/Sources/phylmd/CV30_routines/cv30_yield.f	2016/05/18 17:56:44	195
+++ trunk/Sources/phylmd/CV30_routines/cv30_yield.f	2016/05/23 13:50:39	196
@@ -41,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)
@@ -72,6 +71,7 @@
     !-------------------------------------------------------------
 
     ncum = size(icb)
+    iflag = 0
 
     ! initialization: