--- trunk/libf/phylmd/CV3_routines/cv3_feed.f90	2011/07/01 15:00:48	47
+++ trunk/phylmd/CV3_routines/cv3_feed.f	2014/03/05 14:57:53	82
@@ -1,7 +1,7 @@
 
       SUBROUTINE cv3_feed(len,nd,t,q,qs,p,ph,hm,gz &
                         ,nk,icb,icbmax,iflag,tnk,qnk,gznk,plcl)
-            use cvparam3
+            use cv3_param_m
       implicit none
 
 !================================================================
@@ -21,7 +21,8 @@
 
 ! inputs:
         integer len, nd
-      real t(len,nd), q(len,nd), qs(len,nd), p(len,nd)
+      real, intent(in):: t(len,nd)
+      real q(len,nd), qs(len,nd), p(len,nd)
       real hm(len,nd), gz(len,nd)
       real ph(len,nd+1)