--- trunk/libf/dyn3d/interpre.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/interpre.f	2010/04/01 14:59:19	31
@@ -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)