4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE phyredem(pctsrf, tsol, tsoil, tslab, seaice, qsurf, qsol, snow, & |
SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albedo, evap, & |
8 |
albedo, evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, & |
rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, agesno, zmea, & |
9 |
agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, & |
zstd, zsig, zgam, zthe, zpic, zval, t_ancien, q_ancien, rnebcon, & |
10 |
rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01) |
ratqs, clwcon, run_off_lic_0, sig1, w01) |
11 |
|
|
12 |
! From phylmd/phyredem.F, version 1.3, 2005/05/25 13:10:09 |
! From phylmd/phyredem.F, version 1.3, 2005/05/25 13:10:09 |
13 |
! Author: Z. X. Li (LMD/CNRS) |
! Author: Z. X. Li (LMD/CNRS) |
22 |
use phyredem0_m, only: ncid_restartphy |
use phyredem0_m, only: ncid_restartphy |
23 |
|
|
24 |
REAL, INTENT(IN):: pctsrf(:, :) ! (klon, nbsrf) |
REAL, INTENT(IN):: pctsrf(:, :) ! (klon, nbsrf) |
25 |
REAL, INTENT(IN):: tsol(:, :) ! (klon, nbsrf) |
REAL, INTENT(IN):: ftsol(:, :) ! (klon, nbsrf) |
26 |
REAL, INTENT(IN):: tsoil(:, :, :) ! (klon, nsoilmx, nbsrf) |
REAL, INTENT(IN):: ftsoil(:, :, :) ! (klon, nsoilmx, nbsrf) |
|
REAL, INTENT(IN):: tslab(:), seaice(:) ! (klon) slab ocean |
|
27 |
REAL, INTENT(IN):: qsurf(:, :) ! (klon, nbsrf) |
REAL, INTENT(IN):: qsurf(:, :) ! (klon, nbsrf) |
28 |
|
|
29 |
REAL, intent(in):: qsol(:) ! (klon) |
REAL, intent(in):: qsol(:) ! (klon) |
79 |
call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_sic)) |
call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_sic)) |
80 |
|
|
81 |
call nf95_inq_varid(ncid_restartphy, "TS", varid) |
call nf95_inq_varid(ncid_restartphy, "TS", varid) |
82 |
call nf95_put_var(ncid_restartphy, varid, tsol) |
call nf95_put_var(ncid_restartphy, varid, ftsol) |
83 |
|
|
84 |
call nf95_inq_varid(ncid_restartphy, "Tsoil", varid) |
call nf95_inq_varid(ncid_restartphy, "Tsoil", varid) |
85 |
call nf95_put_var(ncid_restartphy, varid, tsoil) |
call nf95_put_var(ncid_restartphy, varid, ftsoil) |
|
|
|
|
call nf95_inq_varid(ncid_restartphy, "TSLAB", varid) |
|
|
call nf95_put_var(ncid_restartphy, varid, tslab) |
|
|
|
|
|
call nf95_inq_varid(ncid_restartphy, "SEAICE", varid) |
|
|
call nf95_put_var(ncid_restartphy, varid, seaice) |
|
86 |
|
|
87 |
call nf95_inq_varid(ncid_restartphy, "QS", varid) |
call nf95_inq_varid(ncid_restartphy, "QS", varid) |
88 |
call nf95_put_var(ncid_restartphy, varid, qsurf) |
call nf95_put_var(ncid_restartphy, varid, qsurf) |