19 |
! From phylmd/phyetat0.F, version 1.4 2005/06/03 10:03:07 |
! From phylmd/phyetat0.F, version 1.4 2005/06/03 10:03:07 |
20 |
! Author: Z.X. Li (LMD/CNRS) |
! Author: Z.X. Li (LMD/CNRS) |
21 |
! Date: 1993/08/18 |
! Date: 1993/08/18 |
22 |
! Objet : Lecture de l'état initial pour la physique |
! Objet : lecture de l'état initial pour la physique |
23 |
|
|
24 |
USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
use dimphy, only: zmasq, klev |
25 |
USE dimsoil, ONLY : nsoilmx |
USE dimsoil, ONLY : nsoilmx |
26 |
USE temps, ONLY : itau_phy |
USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
27 |
use netcdf, only: nf90_get_att, nf90_global, nf90_inq_varid, NF90_NOERR, & |
use netcdf, only: nf90_get_att, nf90_global, nf90_inq_varid, NF90_NOERR, & |
28 |
NF90_NOWRITE |
NF90_NOWRITE |
29 |
use netcdf95, only: handle_err, nf95_get_var, nf95_close, NF95_OPEN, & |
use netcdf95, only: handle_err, nf95_get_var, nf95_close, NF95_OPEN, & |
30 |
nf95_inq_varid |
nf95_inq_varid |
31 |
use dimphy, only: zmasq, klev |
USE temps, ONLY : itau_phy |
32 |
|
|
33 |
CHARACTER(len=*), intent(in):: fichnom |
CHARACTER(len=*), intent(in):: fichnom |
34 |
REAL tsol(klon, nbsrf) |
REAL tsol(klon, nbsrf) |