--- trunk/phylmd/CV3_routines/cv3_undilute1.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/CV3_routines/cv3_undilute1.f	2014/08/29 13:00:05	103
@@ -20,11 +20,11 @@
 
 
 ! inputs:
-      integer len, nd
+      integer, intent(in):: len, nd
       integer nk(len), icb(len)
       real, intent(in):: t(len,nd)
-      real q(len,nd), qs(len,nd), gz(len,nd)
-      real p(len,nd)
+      real, intent(in):: q(len,nd), qs(len,nd), gz(len,nd)
+      real, intent(in):: p(len,nd)
       real plcl(len) ! convect3
 
 ! outputs: