--- trunk/phylmd/CV30_routines/cv30_closure.f90	2019/07/31 17:10:31	331
+++ trunk/phylmd/CV30_routines/cv30_closure.f90	2019/08/13 09:19:22	332
@@ -14,7 +14,8 @@
     use suphec_m, only: rd
 
     ! input:
-    integer, intent(in):: icb(:), inb(:) ! (ncum)
+    integer, intent(in):: icb(:) ! (ncum) {2 <= icb <= nl - 3}
+    integer, intent(in):: inb(:) ! (ncum)
     real pbase(klon)
     real p(:, :) ! (klon, klev)
     real, intent(in):: ph(:, :)  ! (ncum, klev + 1)