--- trunk/libf/dyn3d/fluxstokenc.f90	2010/04/06 17:52:58	32
+++ trunk/libf/dyn3d/fluxstokenc.f90	2011/04/13 12:29:18	44
@@ -11,7 +11,8 @@
   IMPLICIT NONE
 
   REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
-  REAL masse(ip1jmp1, llm), teta(ip1jmp1, llm), phi(ip1jmp1, llm)
+  REAL masse(ip1jmp1, llm), phi(ip1jmp1, llm)
+  real, intent(in):: teta(ip1jmp1, llm)
   REAL phis(ip1jmp1)
   REAL, intent(in):: time_step
   INTEGER, INTENT (IN) :: itau