--- trunk/libf/dyn3d/interpre.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/interpre.f	2010/04/06 17:52:58	32
@@ -14,7 +14,6 @@
       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