--- trunk/Sources/phylmd/clmain.f	2015/06/18 12:23:44	149
+++ trunk/Sources/phylmd/clmain.f	2015/07/07 17:49:23	154
@@ -85,7 +85,7 @@
     ! solid water mass flux (kg/m2/s), positive down
 
     REAL, INTENT(IN):: solsw(klon, nbsrf), sollw(klon, nbsrf)
-    REAL fder(klon)
+    REAL, intent(in):: fder(klon)
     REAL, INTENT(IN):: rlat(klon) ! latitude en degr\'es
 
     REAL rugos(klon, nbsrf)
@@ -283,7 +283,6 @@
     ysnow = 0.
     yqsurf = 0.
     yalb = 0.
-    yalblw = 0.
     yrain_f = 0.
     ysnow_f = 0.
     yfder = 0.
@@ -354,7 +353,6 @@
              ysnow(j) = snow(i, nsrf)
              yqsurf(j) = qsurf(i, nsrf)
              yalb(j) = albe(i, nsrf)
-             yalblw(j) = alblw(i, nsrf)
              yrain_f(j) = rain_fall(i)
              ysnow_f(j) = snow_f(i)
              yagesno(j) = agesno(i, nsrf)
@@ -480,8 +478,8 @@
           CALL clqh(dtime, itap, jour, debut, rlat, knon, nsrf, ni(:knon), &
                pctsrf, ytsoil, yqsol, rmu0, co2_ppm, yrugos, yrugoro, yu1, &
                yv1, coefh(:knon, :), yt, yq, yts, ypaprs, ypplay, ydelp, &
-               yrads, yalb, yalblw, ysnow, yqsurf, yrain_f, ysnow_f, yfder, &
-               ysolsw, yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, &
+               yrads, yalb, yalblw(:knon), ysnow, yqsurf, yrain_f, ysnow_f, &
+               yfder, ysolsw, yfluxlat, pctsrf_new, yagesno, y_d_t, y_d_q, &
                y_d_ts(:knon), yz0_new, y_flux_t, y_flux_q, y_dflux_t, &
                y_dflux_q, y_fqcalving, y_ffonte, y_run_off_lic_0, y_flux_o, &
                y_flux_g)