36 |
REAL, intent(out):: ftsol(klon, nbsrf) |
REAL, intent(out):: ftsol(klon, nbsrf) |
37 |
REAL, intent(out):: ftsoil(klon, nsoilmx, nbsrf) |
REAL, intent(out):: ftsoil(klon, nsoilmx, nbsrf) |
38 |
REAL, intent(out):: qsurf(klon, nbsrf) |
REAL, intent(out):: qsurf(klon, nbsrf) |
39 |
REAL, intent(out):: qsol(:) ! (klon) |
|
40 |
|
REAL, intent(out):: qsol(:) |
41 |
|
! (klon) column-density of water in soil, in kg m-2 |
42 |
|
|
43 |
REAL, intent(out):: snow(klon, nbsrf) |
REAL, intent(out):: snow(klon, nbsrf) |
44 |
REAL, intent(out):: albe(klon, nbsrf) |
REAL, intent(out):: albe(klon, nbsrf) |
45 |
REAL, intent(out):: evap(klon, nbsrf) |
REAL, intent(out):: evap(klon, nbsrf) |
182 |
call NF95_INQ_VARID(ncid_startphy, "QS", varid) |
call NF95_INQ_VARID(ncid_startphy, "QS", varid) |
183 |
call nf95_get_var(ncid_startphy, varid, qsurf) |
call nf95_get_var(ncid_startphy, varid, qsurf) |
184 |
|
|
|
! Eau dans le sol (pour le modele de sol "bucket") |
|
|
|
|
185 |
ierr = NF90_INQ_VARID(ncid_startphy, "QSOL", varid) |
ierr = NF90_INQ_VARID(ncid_startphy, "QSOL", varid) |
186 |
IF (ierr == NF90_NOERR) THEN |
IF (ierr == NF90_NOERR) THEN |
187 |
call nf95_get_var(ncid_startphy, varid, qsol) |
call nf95_get_var(ncid_startphy, varid, qsol) |