--- trunk/Sources/phylmd/CV30_routines/cv30_mixing.f	2016/03/21 15:36:26	186
+++ trunk/Sources/phylmd/CV30_routines/cv30_mixing.f	2016/03/21 18:01:02	187
@@ -18,7 +18,7 @@
 
     ! inputs:
     integer, intent(in):: ncum, nd, na, nloc
-    integer icb(nloc), inb(nloc), nk(nloc)
+    integer, intent(in):: icb(nloc), inb(nloc), nk(nloc)
     real sig(nloc, nd)
     real t(nloc, nd), rr(nloc, nd), rs(nloc, nd)
     real u(nloc, nd), v(nloc, nd)
@@ -123,8 +123,6 @@
        ! *** if no air can entrain at level i assume that updraft detrains ***
        ! *** at that level and calculate detrained air flux and properties ***
 
-       !@ do 170 i=icb(il), inb(il)
-
        do il=1, ncum
           if ((i >= icb(il)).and.(i <= inb(il)).and.(nent(il, i) == 0)) then
              !@ if(nent(il, i) == 0)then