--- trunk/libf/dyn3d/PVtheta.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/PVtheta.f	2014/02/28 17:52:47	79
@@ -4,8 +4,9 @@
       use dimens_m
       use paramet_m
       use comconst
-      use comvert
+      use disvert_m
       use comgeom
+      use tourabs_m, only: tourabs
       IMPLICIT none
 
 c=======================================================================
@@ -52,11 +53,11 @@
 c
       INTEGER ilon
       integer, intent(in):: ilev
-      REAL pvcov(iip1,jjm,ilev)
-      REAL pucov(iip1,jjp1,ilev)
-      REAL pteta(iip1,jjp1,ilev)
+      REAL, intent(in):: pvcov(iip1,jjm,ilev)
+      REAL, intent(in):: pucov(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