--- trunk/Sources/phylmd/clqh.f	2015/10/06 15:57:02	173
+++ trunk/Sources/phylmd/clqh.f	2015/11/25 20:14:19	174
@@ -70,7 +70,7 @@
     real swnet(klon)
     real fluxlat(klon)
     real pctsrf_new(klon, nbsrf)
-    REAL agesno(klon)
+    REAL, intent(inout):: agesno(klon)
     REAL d_t(klon, klev) ! incrementation de "t"
     REAL d_q(klon, klev) ! incrementation de "q"
     REAL, intent(out):: d_ts(:) ! (knon) incrementation de "ts"