--- trunk/libf/dyn3d/advy.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/advy.f	2010/04/01 14:59:19	31
@@ -42,7 +42,7 @@
       PARAMETER (ntra = 1)
 
       REAL dty
-      REAL pbarv ( iip1,jjm, llm )
+      REAL, intent(in):: pbarv ( iip1,jjm, llm )
 
 C  moments: SM  total mass in each grid box
 C           S0  mass of tracer in each grid box