--- trunk/libf/phylmd/CV3_routines/cv3_closure.f90	2011/07/01 15:00:48	47
+++ trunk/phylmd/CV3_routines/cv3_closure.f	2014/04/25 14:58:31	97
@@ -2,7 +2,7 @@
       SUBROUTINE cv3_closure(nloc,ncum,nd,icb,inb &
                             ,pbase,p,ph,tv,buoy &
                             ,sig,w0,cape,m)
-            use cvparam3
+            use cv3_param_m
             use cvthermo
       implicit none
 
@@ -14,7 +14,7 @@
 
 
 ! input:
-      integer ncum, nd, nloc
+      integer, intent(in):: ncum, nd, nloc
       integer icb(nloc), inb(nloc)
       real pbase(nloc)
       real p(nloc,nd), ph(nloc,nd+1)