--- trunk/libf/phylmd/CV3_routines/cv3_undilute1.f90	2011/07/01 15:00:48	47
+++ trunk/libf/phylmd/CV3_routines/cv3_undilute1.f90	2011/09/23 12:28:01	52
@@ -22,7 +22,8 @@
 ! inputs:
       integer len, nd
       integer nk(len), icb(len)
-      real t(len,nd), q(len,nd), qs(len,nd), gz(len,nd)
+      real, intent(in):: t(len,nd)
+      real q(len,nd), qs(len,nd), gz(len,nd)
       real p(len,nd)
       real plcl(len) ! convect3