--- trunk/libf/phylmd/CV3_routines/cv3_compress.f90	2011/09/20 09:14:34	51
+++ trunk/libf/phylmd/CV3_routines/cv3_compress.f90	2011/09/23 12:28:01	52
@@ -21,7 +21,8 @@
       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)