27 |
USE dimsoil, ONLY : nsoilmx |
USE dimsoil, ONLY : nsoilmx |
28 |
USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
USE indicesol, ONLY : epsfra, is_lic, is_oce, is_sic, is_ter, nbsrf |
29 |
use netcdf, only: nf90_global, nf90_inq_varid, NF90_NOERR, NF90_NOWRITE |
use netcdf, only: nf90_global, nf90_inq_varid, NF90_NOERR, NF90_NOWRITE |
30 |
use netcdf95, only: nf95_close, nf95_get_att, nf95_get_var, & |
use netcdf95, only: nf95_get_att, nf95_get_var, nf95_inq_varid, & |
31 |
nf95_inq_varid, nf95_inquire_variable, NF95_OPEN |
nf95_inquire_variable, NF95_OPEN |
32 |
|
|
33 |
REAL, intent(out):: pctsrf(klon, nbsrf) |
REAL, intent(out):: pctsrf(klon, nbsrf) |
34 |
REAL, intent(out):: tsol(klon, nbsrf) |
REAL, intent(out):: tsol(klon, nbsrf) |