--- trunk/Sources/dyn3d/etat0.f 2015/07/08 17:03:45 155 +++ trunk/Sources/dyn3d/etat0.f 2015/07/16 17:39:10 156 @@ -73,7 +73,6 @@ REAL sn(klon) REAL qsolsrf(klon, nbsrf), snsrf(klon, nbsrf) REAL albe(klon, nbsrf), evap(klon, nbsrf) - REAL alblw(klon, nbsrf) REAL tsoil(klon, nsoilmx, nbsrf) REAL radsol(klon), rain_fall(klon), snow_fall(klon) REAL solsw(klon), sollw(klon), fder(klon) @@ -332,7 +331,6 @@ albe(:, is_lic) = 0.6 albe(:, is_oce) = 0.5 albe(:, is_sic) = 0.6 - alblw = albe evap = 0. qsolsrf = 150. tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)