--- trunk/libf/dyn3d/fluxstokenc.f90	2011/04/13 12:29:18	44
+++ trunk/libf/dyn3d/fluxstokenc.f90	2012/11/14 16:59:30	68
@@ -11,7 +11,8 @@
   IMPLICIT NONE
 
   REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
-  REAL masse(ip1jmp1, llm), phi(ip1jmp1, llm)
+  REAL masse(ip1jmp1, llm)
+  real, intent(in):: phi(ip1jmp1, llm)
   real, intent(in):: teta(ip1jmp1, llm)
   REAL phis(ip1jmp1)
   REAL, intent(in):: time_step