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