4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, fsnow, albedo, & |
SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, fsnow, falbe, & |
8 |
rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea, & |
rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea, & |
9 |
zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, rnebcon, & |
zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, rnebcon, & |
10 |
ratqs, clwcon, run_off_lic_0, sig1, w01) |
ratqs, clwcon, run_off_lic_0, sig1, w01) |
31 |
! column-density of water in soil, in kg m-2 |
! column-density of water in soil, in kg m-2 |
32 |
|
|
33 |
REAL, INTENT(IN):: fsnow(:, :) ! (klon, nbsrf) |
REAL, INTENT(IN):: fsnow(:, :) ! (klon, nbsrf) |
34 |
REAL, INTENT(IN):: albedo(klon, nbsrf) |
REAL, INTENT(IN):: falbe(klon, nbsrf) |
35 |
REAL, INTENT(IN):: rain_fall(klon) |
REAL, INTENT(IN):: rain_fall(klon) |
36 |
REAL, INTENT(IN):: snow_fall(klon) |
REAL, INTENT(IN):: snow_fall(klon) |
37 |
REAL, INTENT(IN):: solsw(klon) |
REAL, INTENT(IN):: solsw(klon) |
82 |
call nf95_put_var(ncid_restartphy, varid, qsol) |
call nf95_put_var(ncid_restartphy, varid, qsol) |
83 |
|
|
84 |
call nf95_inq_varid(ncid_restartphy, "ALBE", varid) |
call nf95_inq_varid(ncid_restartphy, "ALBE", varid) |
85 |
call nf95_put_var(ncid_restartphy, varid, albedo) |
call nf95_put_var(ncid_restartphy, varid, falbe) |
86 |
|
|
87 |
call nf95_inq_varid(ncid_restartphy, "SNOW", varid) |
call nf95_inq_varid(ncid_restartphy, "SNOW", varid) |
88 |
call nf95_put_var(ncid_restartphy, varid, fsnow) |
call nf95_put_var(ncid_restartphy, varid, fsnow) |