--- trunk/Sources/phylmd/clqh.f	2016/12/07 17:37:21	209
+++ trunk/Sources/phylmd/clqh.f	2017/03/22 13:40:27	214
@@ -58,7 +58,7 @@
     ! solid water mass flux (kg / m2 / s), positive down
 
     real, intent(inout):: fder(klon)
-    real fluxlat(klon)
+    real, intent(out):: fluxlat(:) ! (knon)
     real, intent(in):: pctsrf_new_sic(:) ! (klon)
     REAL, intent(inout):: agesno(:) ! (knon)
     REAL d_t(klon, klev) ! incrementation de "t"