--- trunk/libf/dyn3d/PVtheta.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/PVtheta.f	2008/04/18 14:45:53	10
@@ -56,7 +56,7 @@
       REAL pucov(iip1,jjp1,ilev)
       REAL pteta(iip1,jjp1,ilev)
       REAL ztfi(ilon,ilev)
-      REAL zplay(ilon,ilev), zplev(ilon,ilev+1)
+      REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1)
       INTEGER nbteta
       REAL theta(nbteta)
 c