9 |
! by a simple index, in degrees |
! by a simple index, in degrees |
10 |
|
|
11 |
integer, save:: itau_phy |
integer, save:: itau_phy |
12 |
|
REAL, save:: zmasq(KLON) ! fraction of land |
13 |
|
|
14 |
private klon |
private klon |
15 |
|
|
26 |
! Objet : lecture de l'état initial pour la physique |
! Objet : lecture de l'état initial pour la physique |
27 |
|
|
28 |
USE conf_gcm_m, ONLY: raz_date |
USE conf_gcm_m, ONLY: raz_date |
29 |
use dimphy, only: zmasq, klev |
use dimphy, only: klev |
30 |
USE dimsoil, ONLY : nsoilmx |
USE dimsoil, ONLY : nsoilmx |
31 |
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 |
32 |
use netcdf, only: nf90_global, nf90_inq_varid, NF90_NOERR, NF90_NOWRITE |
use netcdf, only: nf90_global, nf90_inq_varid, NF90_NOERR, NF90_NOWRITE |
37 |
REAL, intent(out):: ftsol(klon, nbsrf) |
REAL, intent(out):: ftsol(klon, nbsrf) |
38 |
REAL, intent(out):: ftsoil(klon, nsoilmx, nbsrf) |
REAL, intent(out):: ftsoil(klon, nsoilmx, nbsrf) |
39 |
REAL, intent(out):: qsurf(klon, nbsrf) |
REAL, intent(out):: qsurf(klon, nbsrf) |
40 |
REAL, intent(out):: qsol(:) ! (klon) |
|
41 |
|
REAL, intent(out):: qsol(:) |
42 |
|
! (klon) column-density of water in soil, in kg m-2 |
43 |
|
|
44 |
REAL, intent(out):: snow(klon, nbsrf) |
REAL, intent(out):: snow(klon, nbsrf) |
45 |
REAL, intent(out):: albe(klon, nbsrf) |
REAL, intent(out):: albe(klon, nbsrf) |
46 |
REAL, intent(out):: evap(klon, nbsrf) |
REAL, intent(out):: evap(klon, nbsrf) |
183 |
call NF95_INQ_VARID(ncid_startphy, "QS", varid) |
call NF95_INQ_VARID(ncid_startphy, "QS", varid) |
184 |
call nf95_get_var(ncid_startphy, varid, qsurf) |
call nf95_get_var(ncid_startphy, varid, qsurf) |
185 |
|
|
|
! Eau dans le sol (pour le modele de sol "bucket") |
|
|
|
|
186 |
ierr = NF90_INQ_VARID(ncid_startphy, "QSOL", varid) |
ierr = NF90_INQ_VARID(ncid_startphy, "QSOL", varid) |
187 |
IF (ierr == NF90_NOERR) THEN |
IF (ierr == NF90_NOERR) THEN |
188 |
call nf95_get_var(ncid_startphy, varid, qsol) |
call nf95_get_var(ncid_startphy, varid, qsol) |