| 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 |
Parent Directory
| 
Revision Log