--- trunk/phylmd/phyredem.f 2018/07/12 14:49:20 276 +++ trunk/phylmd/phyredem.f 2018/09/06 15:51:09 304 @@ -4,7 +4,7 @@ contains - SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albedo, evap, & + SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albedo, & rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea, & zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, rnebcon, & ratqs, clwcon, run_off_lic_0, sig1, w01) @@ -32,7 +32,6 @@ REAL, INTENT(IN):: snow(klon, nbsrf) REAL, INTENT(IN):: albedo(klon, nbsrf) - REAL, INTENT(IN):: evap(klon, nbsrf) REAL, INTENT(IN):: rain_fall(klon) REAL, INTENT(IN):: snow_fall(klon) REAL, INTENT(IN):: solsw(klon) @@ -94,9 +93,6 @@ call nf95_inq_varid(ncid_restartphy, "ALBE", varid) call nf95_put_var(ncid_restartphy, varid, albedo) - call nf95_inq_varid(ncid_restartphy, "EVAP", varid) - call nf95_put_var(ncid_restartphy, varid, evap) - call nf95_inq_varid(ncid_restartphy, "SNOW", varid) call nf95_put_var(ncid_restartphy, varid, snow)