17 |
! pour la physique |
! pour la physique |
18 |
|
|
19 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
20 |
USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, nbsrf |
USE indicesol, ONLY: is_oce, nbsrf |
21 |
USE netcdf95, ONLY: nf95_inq_varid, nf95_put_var, nf95_close |
USE netcdf95, ONLY: nf95_inq_varid, nf95_put_var, nf95_close |
22 |
use phyetat0_m, only: zmasq |
use phyetat0_m, only: zmasq |
23 |
use phyredem0_m, only: ncid_restartphy |
use phyredem0_m, only: ncid_restartphy |
66 |
call nf95_inq_varid(ncid_restartphy, "masque", varid) |
call nf95_inq_varid(ncid_restartphy, "masque", varid) |
67 |
call nf95_put_var(ncid_restartphy, varid, zmasq) |
call nf95_put_var(ncid_restartphy, varid, zmasq) |
68 |
|
|
69 |
call nf95_inq_varid(ncid_restartphy, "FTER", varid) |
call nf95_inq_varid(ncid_restartphy, "pctsrf", varid) |
70 |
call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_ter)) |
call nf95_put_var(ncid_restartphy, varid, pctsrf) |
|
|
|
|
call nf95_inq_varid(ncid_restartphy, "FLIC", varid) |
|
|
call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_lic)) |
|
|
|
|
|
call nf95_inq_varid(ncid_restartphy, "FOCE", varid) |
|
|
call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_oce)) |
|
|
|
|
|
call nf95_inq_varid(ncid_restartphy, "FSIC", varid) |
|
|
call nf95_put_var(ncid_restartphy, varid, pctsrf(:, is_sic)) |
|
71 |
|
|
72 |
call nf95_inq_varid(ncid_restartphy, "TS", varid) |
call nf95_inq_varid(ncid_restartphy, "TS", varid) |
73 |
call nf95_put_var(ncid_restartphy, varid, ftsol) |
call nf95_put_var(ncid_restartphy, varid, ftsol) |