16 |
! Objet : \'ecriture de l'\'etat de d\'emarrage ou red\'emarrage |
! Objet : \'ecriture de l'\'etat de d\'emarrage ou red\'emarrage |
17 |
! pour la physique |
! pour la physique |
18 |
|
|
19 |
USE dimphy, ONLY: klev, klon, zmasq |
USE dimphy, ONLY: klev, klon |
20 |
USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, nbsrf |
USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, 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 |
23 |
use phyredem0_m, only: ncid_restartphy |
use phyredem0_m, only: ncid_restartphy |
24 |
|
|
25 |
REAL, INTENT(IN):: pctsrf(:, :) ! (klon, nbsrf) |
REAL, INTENT(IN):: pctsrf(:, :) ! (klon, nbsrf) |