--- trunk/libf/phylmd/CV3_routines/cv3_compress.f90	2011/07/01 15:00:48	47
+++ trunk/phylmd/CV3_routines/cv3_compress.f90	2013/11/15 18:45:49	76
@@ -12,16 +12,17 @@
           ,tra &
           ,h,lv,cpn,p,ph,tv,tp,tvp,clw  &
           ,sig,w0  )
-            use cvparam3
+            use cv3_param_m
       implicit none
 
 
 ! inputs:
-      integer len,ncum,nd,ntra,nloc
+      integer, intent(in):: len,ncum,nd,ntra,nloc
       integer iflag1(len),nk1(len),icb1(len),icbs1(len)
       real plcl1(len),tnk1(len),qnk1(len),gznk1(len)
       real pbase1(len),buoybase1(len)
-      real t1(len,nd),q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd)
+      real, intent(in):: t1(len,nd)
+      real q1(len,nd),qs1(len,nd),u1(len,nd),v1(len,nd)
       real gz1(len,nd),h1(len,nd),lv1(len,nd),cpn1(len,nd)
       real p1(len,nd),ph1(len,nd+1),tv1(len,nd),tp1(len,nd)
       real tvp1(len,nd),clw1(len,nd)
@@ -73,18 +74,6 @@
  100    continue
  110  continue
 
-!      do 121 j=1,ntra
-!      do 111 k=1,nd
-!       nn=0
-!      do 101 i=1,len
-!      if(iflag1(i).eq.0)then
-!       nn=nn+1
-!       tra(nn,k,j)=tra1(i,k,j)
-!      endif
-! 101  continue
-! 111  continue
-! 121  continue
-
       if (nn.ne.ncum) then
          print*,'strange! nn not equal to ncum: ',nn,ncum
          stop