--- trunk/Sources/phylmd/clqh.f	2016/12/07 17:37:21	209
+++ trunk/Sources/phylmd/clqh.f	2017/03/28 12:46:28	215
@@ -48,7 +48,7 @@
     REAL delp(klon, klev) ! epaisseur de couche en pression (Pa)
     REAL radsol(klon) ! ray. net au sol (Solaire + IR) W / m2
     REAL, intent(inout):: albedo(:) ! (knon) albedo de la surface
-    REAL, intent(inout):: snow(klon) ! hauteur de neige
+    REAL, intent(inout):: snow(:) ! (knon) ! hauteur de neige
     REAL qsurf(klon) ! humidite de l'air au dessus de la surface
 
     real, intent(in):: precip_rain(klon)
@@ -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"