--- trunk/libf/dyn3d/PVtheta.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/PVtheta.f	2012/09/20 13:00:41	66
@@ -4,7 +4,7 @@
       use dimens_m
       use paramet_m
       use comconst
-      use comvert
+      use disvert_m
       use comgeom
       IMPLICIT none
 
@@ -54,9 +54,9 @@
       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 zplay(ilon,ilev), zplev(ilon,ilev+1)
+      REAL, intent(in):: zplay(ilon,ilev), zplev(ilon,ilev+1)
       INTEGER nbteta
       REAL theta(nbteta)
 c