--- trunk/libf/dyn3d/bilan_dyn.f90	2011/04/08 12:43:31	43
+++ trunk/libf/dyn3d/bilan_dyn.f90	2011/04/13 12:29:18	44
@@ -33,7 +33,7 @@
     real masse(iip1, jjp1, llm), pk(iip1, jjp1, llm)
     real flux_u(iip1, jjp1, llm)
     real flux_v(iip1, jjm, llm)
-    real teta(iip1, jjp1, llm)
+    real, intent(in):: teta(iip1, jjp1, llm)
     real phi(iip1, jjp1, llm)
     real ucov(iip1, jjp1, llm)
     real vcov(iip1, jjm, llm)