1 |
module interfoce_lim_m |
2 |
|
3 |
implicit none |
4 |
|
5 |
contains |
6 |
|
7 |
SUBROUTINE interfoce_lim(jour, pctsrf_new_oce, pctsrf_new_sic) |
8 |
|
9 |
! lecture conditions limites |
10 |
! Cette routine sert d'interface entre le modèle atmosphérique et |
11 |
! un fichier de conditions aux limites. |
12 |
|
13 |
! Laurent FAIRHEAD, February 2000 |
14 |
|
15 |
USE netcdf, ONLY: nf90_nowrite |
16 |
use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open |
17 |
|
18 |
integer, intent(IN):: jour ! jour \`a lire dans l'ann\'ee |
19 |
|
20 |
real, intent(out):: pctsrf_new_oce(:), pctsrf_new_sic(:) ! (klon) |
21 |
! sous-maille fractionnelle |
22 |
|
23 |
! Local: |
24 |
integer ncid, varid ! pour NetCDF |
25 |
|
26 |
! -------------------------------------------------- |
27 |
|
28 |
call NF95_OPEN ('limit.nc', NF90_NOWRITE, ncid) |
29 |
|
30 |
! Fraction "ocean" |
31 |
call NF95_INQ_VARID(ncid, 'FOCE', varid) |
32 |
call NF95_GET_VAR(ncid, varid, pctsrf_new_oce, start = (/1, jour/)) |
33 |
|
34 |
! Fraction "glace de mer" |
35 |
call NF95_INQ_VARID(ncid, 'FSIC', varid) |
36 |
call NF95_GET_VAR(ncid, varid, pctsrf_new_sic, start = (/1, jour/)) |
37 |
|
38 |
call NF95_CLOSE(ncid) |
39 |
|
40 |
END SUBROUTINE interfoce_lim |
41 |
|
42 |
end module interfoce_lim_m |