15 |
USE netcdf, ONLY: nf90_nowrite |
USE netcdf, ONLY: nf90_nowrite |
16 |
use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open |
use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open |
17 |
|
|
18 |
integer, intent(IN):: jour ! jour a lire dans l'annee |
integer, intent(IN):: jour ! jour \`a lire dans l'ann\'ee |
19 |
|
|
20 |
real, intent(out):: pctsrf_new_oce(:), pctsrf_new_sic(:) ! (klon) |
real, intent(out):: pctsrf_new_oce(:), pctsrf_new_sic(:) ! (klon) |
21 |
! sous-maille fractionnelle |
! sous-maille fractionnelle |