--- trunk/libf/phylmd/CV3_routines/cv3_undilute2.f90	2011/07/01 15:00:48	47
+++ trunk/Sources/phylmd/CV3_routines/cv3_undilute2.f	2015/04/29 15:47:56	134
@@ -4,7 +4,7 @@
                              ,p,h,tv,lv,pbase,buoybase,plcl &
                              ,inb,tp,tvp,clw,hp,ep,sigp,buoy)
       use conema3_m
-            use cvparam3
+            use cv3_param_m
             use cvthermo
       implicit none
 
@@ -28,7 +28,7 @@
 
 
 ! inputs:
-      integer ncum, nd, nloc
+      integer, intent(in):: ncum, nd, nloc
       integer icb(nloc), icbs(nloc), nk(nloc)
       real t(nloc,nd), q(nloc,nd), qs(nloc,nd), gz(nloc,nd)
       real p(nloc,nd)