--- trunk/libf/dyn3d/advz.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/advz.f	2010/03/26 18:33:04	28
@@ -33,7 +33,7 @@
       INTEGER ntra
       PARAMETER (ntra = 1)
 
-      REAL dtz
+      REAL, intent(in):: dtz
       REAL w ( iip1,jjp1,llm )
     
 C  moments: SM  total mass in each grid box