--- trunk/libf/dyn3d/PVtheta.f	2008/04/18 14:45:53	10
+++ trunk/libf/dyn3d/PVtheta.f	2011/04/13 12:29:18	44
@@ -54,7 +54,7 @@
       integer, intent(in):: ilev
       REAL pvcov(iip1,jjm,ilev)
       REAL pucov(iip1,jjp1,ilev)
-      REAL pteta(iip1,jjp1,ilev)
+      REAL, intent(in):: pteta(iip1,jjp1,ilev)
       REAL ztfi(ilon,ilev)
       REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1)
       INTEGER nbteta