6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
SUBROUTINE phyredem0(lmt_pas) |
SUBROUTINE phyredem0 |
10 |
|
|
11 |
! 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 |
12 |
! Author: Z. X. Li (LMD/CNRS) |
! Author: Z. X. Li (LMD/CNRS) |
15 |
! Objet : \'ecriture de l'\'etat de d\'emarrage ou red\'emarrage |
! Objet : \'ecriture de l'\'etat de d\'emarrage ou red\'emarrage |
16 |
! pour la physique |
! pour la physique |
17 |
|
|
18 |
use conf_gcm_m, only: nday |
use conf_gcm_m, only: nday, lmt_pas |
19 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
20 |
USE dimsoil, ONLY: nsoilmx |
USE dimsoil, ONLY: nsoilmx |
21 |
USE indicesol, ONLY: nbsrf |
USE indicesol, ONLY: nbsrf |
22 |
USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float |
USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float |
23 |
USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, & |
USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, & |
24 |
nf95_def_var, nf95_enddef, nf95_put_var |
nf95_def_var, nf95_enddef, nf95_put_var |
25 |
use phyetat0_m, only: rlat, rlon |
use phyetat0_m, only: rlat, rlon, itau_phy |
|
USE temps, ONLY: itau_phy |
|
|
|
|
|
INTEGER, intent(in):: lmt_pas ! number of time steps of "physics" per day |
|
26 |
|
|
27 |
! Local: |
! Local: |
28 |
|
|
75 |
(/idim2, dimid_nsoilmx, dimid_nbsrf/), varid) |
(/idim2, dimid_nsoilmx, dimid_nbsrf/), varid) |
76 |
call nf95_put_att(ncid_restartphy, varid, 'title', 'soil temperature') |
call nf95_put_att(ncid_restartphy, varid, 'title', 'soil temperature') |
77 |
|
|
|
call nf95_def_var(ncid_restartphy, 'TSLAB', nf90_float, idim2, varid) |
|
|
call nf95_put_att(ncid_restartphy, varid, 'title', & |
|
|
'Ecart de la SST (pour slab-ocean)') |
|
|
|
|
|
call nf95_def_var(ncid_restartphy, 'SEAICE', nf90_float, idim2, varid) |
|
|
call nf95_put_att(ncid_restartphy, varid, 'title', & |
|
|
'Glace de mer kg/m2 (pour slab-ocean)') |
|
|
|
|
78 |
call nf95_def_var(ncid_restartphy, 'QS', nf90_float, & |
call nf95_def_var(ncid_restartphy, 'QS', nf90_float, & |
79 |
(/idim2, dimid_nbsrf/), varid) |
(/idim2, dimid_nbsrf/), varid) |
80 |
call nf95_put_att(ncid_restartphy, varid, 'title', 'Humidite de surface') |
call nf95_put_att(ncid_restartphy, varid, 'title', 'Humidite de surface') |
86 |
(/idim2, dimid_nbsrf/), varid) |
(/idim2, dimid_nbsrf/), varid) |
87 |
call nf95_put_att(ncid_restartphy, varid, 'title', 'albedo de surface') |
call nf95_put_att(ncid_restartphy, varid, 'title', 'albedo de surface') |
88 |
|
|
|
call nf95_def_var(ncid_restartphy, 'EVAP', nf90_float, & |
|
|
(/idim2, dimid_nbsrf/), varid) |
|
|
call nf95_put_att(ncid_restartphy, varid, 'title', 'Evaporation de surface') |
|
|
|
|
89 |
call nf95_def_var(ncid_restartphy, 'SNOW', nf90_float, & |
call nf95_def_var(ncid_restartphy, 'SNOW', nf90_float, & |
90 |
(/idim2, dimid_nbsrf/), varid) |
(/idim2, dimid_nbsrf/), varid) |
91 |
call nf95_put_att(ncid_restartphy, varid, 'title', 'Neige de surface') |
call nf95_put_att(ncid_restartphy, varid, 'title', 'Neige de surface') |
100 |
|
|
101 |
call nf95_def_var(ncid_restartphy, 'sollw', nf90_float, idim2, varid) |
call nf95_def_var(ncid_restartphy, 'sollw', nf90_float, idim2, varid) |
102 |
call nf95_put_att(ncid_restartphy, varid, 'title', & |
call nf95_put_att(ncid_restartphy, varid, 'title', & |
103 |
'Rayonnement IF a la surface') |
'Rayonnement IR a la surface') |
104 |
|
|
105 |
call nf95_def_var(ncid_restartphy, 'fder', nf90_float, idim2, varid) |
call nf95_def_var(ncid_restartphy, 'fder', nf90_float, idim2, varid) |
106 |
call nf95_put_att(ncid_restartphy, varid, 'title', 'Derive de flux') |
call nf95_put_att(ncid_restartphy, varid, 'title', 'Derive de flux') |