--- trunk/phylmd/phyredem.f90 2019/07/31 14:55:23 330 +++ trunk/phylmd/phyredem.f90 2019/07/31 17:10:31 331 @@ -4,7 +4,7 @@ contains - SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, fsnow, albedo, & + SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, fsnow, falbe, & 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) @@ -31,7 +31,7 @@ ! column-density of water in soil, in kg m-2 REAL, INTENT(IN):: fsnow(:, :) ! (klon, nbsrf) - REAL, INTENT(IN):: albedo(klon, nbsrf) + REAL, INTENT(IN):: falbe(klon, nbsrf) REAL, INTENT(IN):: rain_fall(klon) REAL, INTENT(IN):: snow_fall(klon) REAL, INTENT(IN):: solsw(klon) @@ -82,7 +82,7 @@ call nf95_put_var(ncid_restartphy, varid, qsol) call nf95_inq_varid(ncid_restartphy, "ALBE", varid) - call nf95_put_var(ncid_restartphy, varid, albedo) + call nf95_put_var(ncid_restartphy, varid, falbe) call nf95_inq_varid(ncid_restartphy, "SNOW", varid) call nf95_put_var(ncid_restartphy, varid, fsnow)