--- trunk/libf/dyn3d/guide.f90	2012/10/02 15:50:56	67
+++ trunk/dyn3d/guide.f	2014/03/05 14:57:53	82
@@ -38,7 +38,7 @@
     REAL, intent(inout):: teta(ip1jmp1, llm) ! temperature potentielle 
     REAL q(ip1jmp1, llm) ! temperature potentielle 
     REAL ps(ip1jmp1) ! pression au sol
-    REAL masse(ip1jmp1, llm) ! masse d'air
+    REAL, intent(out):: masse(ip1jmp1, llm) ! masse d'air
 
     ! variables dynamiques pour les reanalyses.
     REAL, save:: ucovrea1(ip1jmp1, llm), vcovrea1(ip1jm, llm) !vts cov reas