--- trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f	2016/05/18 17:56:44	195
+++ trunk/Sources/phylmd/CV30_routines/cv30_undilute2.f	2016/05/23 13:50:39	196
@@ -27,7 +27,7 @@
     real, intent(in):: t(klon, klev), qs(klon, klev), gz(klon, klev)
     real, intent(in):: p(klon, klev), h(klon, klev)
     real, intent(in):: tv(klon, klev), lv(klon, klev)
-    real, intent(in):: pbase(klon), buoybase(klon), plcl(klon)
+    real, intent(in):: pbase(:), buoybase(:), plcl(:) ! (ncum)
 
     ! outputs:
     integer, intent(out):: inb(:) ! (ncum)