4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE phyredem(pctsrf, tsol, tsoil, qsurf, qsol, snow, albedo, evap, & |
SUBROUTINE phyredem(pctsrf, ftsol, ftsoil, qsurf, qsol, snow, albedo, & |
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) |
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_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: masque |
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) |
26 |
REAL, INTENT(IN):: tsol(:, :) ! (klon, nbsrf) |
REAL, INTENT(IN):: ftsol(:, :) ! (klon, nbsrf) |
27 |
REAL, INTENT(IN):: tsoil(:, :, :) ! (klon, nsoilmx, nbsrf) |
REAL, INTENT(IN):: ftsoil(:, :, :) ! (klon, nsoilmx, nbsrf) |
28 |
REAL, INTENT(IN):: qsurf(:, :) ! (klon, nbsrf) |
REAL, INTENT(IN):: qsurf(:, :) ! (klon, nbsrf) |
29 |
|
|
30 |
REAL, intent(in):: qsol(:) ! (klon) |
REAL, intent(in):: qsol(:) ! (klon) |
32 |
|
|
33 |
REAL, INTENT(IN):: snow(klon, nbsrf) |
REAL, INTENT(IN):: snow(klon, nbsrf) |
34 |
REAL, INTENT(IN):: albedo(klon, nbsrf) |
REAL, INTENT(IN):: albedo(klon, nbsrf) |
|
REAL, INTENT(IN):: evap(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) |
64 |
PRINT *, 'Call sequence information: phyredem' |
PRINT *, 'Call sequence information: phyredem' |
65 |
|
|
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, masque) |
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, tsol) |
call nf95_put_var(ncid_restartphy, varid, ftsol) |
74 |
|
|
75 |
call nf95_inq_varid(ncid_restartphy, "Tsoil", varid) |
call nf95_inq_varid(ncid_restartphy, "Tsoil", varid) |
76 |
call nf95_put_var(ncid_restartphy, varid, tsoil) |
call nf95_put_var(ncid_restartphy, varid, ftsoil) |
77 |
|
|
78 |
call nf95_inq_varid(ncid_restartphy, "QS", varid) |
call nf95_inq_varid(ncid_restartphy, "QS", varid) |
79 |
call nf95_put_var(ncid_restartphy, varid, qsurf) |
call nf95_put_var(ncid_restartphy, varid, qsurf) |
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, albedo) |
86 |
|
|
|
call nf95_inq_varid(ncid_restartphy, "EVAP", varid) |
|
|
call nf95_put_var(ncid_restartphy, varid, evap) |
|
|
|
|
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, snow) |
call nf95_put_var(ncid_restartphy, varid, snow) |
89 |
|
|