--- trunk/phylmd/CV3_routines/cv3_undilute1.f	2014/07/15 13:43:24	102
+++ trunk/phylmd/CV3_routines/cv3_undilute1.f	2014/08/29 13:00:05	103
@@ -23,8 +23,8 @@
       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: