--- trunk/libf/dyn3d/PVtheta.f	2012/09/20 13:00:41	66
+++ trunk/libf/dyn3d/PVtheta.f	2013/06/24 15:39:52	70
@@ -53,7 +53,7 @@
       INTEGER ilon
       integer, intent(in):: ilev
       REAL pvcov(iip1,jjm,ilev)
-      REAL pucov(iip1,jjp1,ilev)
+      REAL, intent(in):: pucov(iip1,jjp1,ilev)
       REAL, intent(in):: pteta(iip1,jjp1,ilev)
       REAL ztfi(ilon,ilev)
       REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1)