--- trunk/dyn3d/etat0.f	2018/09/06 14:25:07	303
+++ trunk/dyn3d/etat0.f	2018/09/06 15:51:09	304
@@ -64,7 +64,7 @@
 
     real qsat(iim + 1, jjm + 1, llm) ! mass fraction of saturating water vapor
     REAL qsolsrf(klon, nbsrf), snsrf(klon, nbsrf) 
-    REAL albe(klon, nbsrf), evap(klon, nbsrf)
+    REAL albe(klon, nbsrf)
     REAL tsoil(klon, nsoilmx, nbsrf) 
     REAL null_array(klon)
     REAL solsw(klon), sollw(klon)
@@ -290,7 +290,6 @@
     albe(:, is_lic) = 0.6
     albe(:, is_oce) = 0.5
     albe(:, is_sic) = 0.6
-    evap = 0.
     qsolsrf = 150.
     tsoil = spread(spread(pack(tsol_2d, dyn_phy), 2, nsoilmx), 3, nbsrf)
     solsw = 165.
@@ -316,10 +315,10 @@
     call nf95_put_var(ncid_restartphy, varid, null_array)
 
     call phyredem(pctsrf, tsoil(:, 1, :), tsoil, qsolsrf, &
-         pack(qsol_2d, dyn_phy), snsrf, albe, evap, null_array, null_array, &
-         solsw, sollw, null_array, null_array, frugs, agesno, zmea, zstd, &
-         zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, &
-         clwcon, null_array, sig1, w01)
+         pack(qsol_2d, dyn_phy), snsrf, albe, null_array, null_array, solsw, &
+         sollw, null_array, null_array, frugs, agesno, zmea, zstd, zsig, zgam, &
+         zthe, zpic, zval, t_ancien, q_ancien, rnebcon, ratqs, clwcon, &
+         null_array, sig1, w01)
 
   END SUBROUTINE etat0