--- trunk/libf/dyn3d/interpre.f	2010/04/01 09:07:28	30
+++ trunk/libf/dyn3d/interpre.f	2010/04/01 14:59:19	31
@@ -25,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)