--- trunk/libf/dyn3d/interpre.f	2008/02/27 13:16:39	3
+++ trunk/dyn3d/interpre.f	2013/11/15 18:45:49	76
@@ -8,13 +8,12 @@
        use dimens_m
       use paramet_m
       use comconst
-      use comvert
+      use disvert_m
+      use conf_gcm_m
       use conf_gcm_m
-      use logic
       use comgeom
       use temps
       use ener
-      use comdissip
        implicit none
 
 c---------------------------------------------------
@@ -26,8 +25,8 @@
       real   massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm)      
       real   w(iip1,jjp1,llm+1)
       real   fluxwppm(iim,jjp1,llm)
-      real   pbaru(iip1,jjp1,llm )
-      real   pbarv(iip1,jjm,llm)
+      real, intent(in)::   pbaru(iip1,jjp1,llm )
+      real, intent(in)::   pbarv(iip1,jjm,llm)
       real   unatppm(iim,jjp1,llm)
       real   vnatppm(iim,jjp1,llm)
       real   psppm(iim,jjp1)
@@ -92,8 +91,6 @@
            do j=1,jjp1
               do i=1,iip1              
                fluxw(i,j,l)=w(i,j,l)*g*0.01/aire_2d(i,j)
-C               print*,i,j,l,'fluxw(i,j,l)=',fluxw(i,j,l),
-C     c                      'w(i,j,l)=',w(i,j,l)
               enddo
            enddo
       enddo