--- trunk/libf/dyn3d/advect.f90	2010/03/05 16:43:45	25
+++ trunk/libf/dyn3d/advect.f90	2011/04/08 12:43:31	43
@@ -18,10 +18,12 @@
 
   !   Arguments:                                                          
 
-  REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm), teta(ip1jmp1, llm)
-  REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm), w(ip1jmp1, llm)
+  REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)
+  real, intent(in):: teta(ip1jmp1, llm)
+  REAL massebx(ip1jmp1, llm), masseby(ip1jm, llm)
+  real, INTENT (IN):: w(ip1jmp1, llm)
   REAL dv(ip1jm, llm), du(ip1jmp1, llm), dteta(ip1jmp1, llm)
-  LOGICAL, INTENT (IN) :: conser
+  LOGICAL, INTENT (IN):: conser
 
   !   Local: