--- trunk/libf/phylmd/CV3_routines/cv3_undilute1.f90	2011/07/01 15:00:48	47
+++ trunk/libf/phylmd/CV3_routines/cv3_undilute1.f90	2013/02/18 16:33:12	69
@@ -1,7 +1,7 @@
 
       SUBROUTINE cv3_undilute1(len,nd,t,q,qs,gz,plcl,p,nk,icb &
                              ,tp,tvp,clw,icbs)
-            use cvparam3
+            use cv3_param_m
             use cvthermo
       implicit none
 
@@ -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