phylmd/Interface_surf/interfoce_lim.f

module interfoce_lim_m

  implicit none

contains

  SUBROUTINE interfoce_lim(jour, pctsrf_new_oce, pctsrf_new_sic)

    ! lecture conditions limites
    ! Cette routine sert d'interface entre le modèle atmosphérique et
    ! un fichier de conditions aux limites.

    ! Laurent FAIRHEAD, February 2000

    USE netcdf, ONLY: nf90_nowrite
    use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open

    integer, intent(IN):: jour ! jour \`a lire dans l'ann\'ee

    real, intent(out):: pctsrf_new_oce(:), pctsrf_new_sic(:) ! (klon)
    ! sous-maille fractionnelle

    ! Local:
    integer ncid, varid ! pour NetCDF

    ! --------------------------------------------------

    call NF95_OPEN ('limit.nc', NF90_NOWRITE, ncid)

    ! Fraction "ocean"
    call NF95_INQ_VARID(ncid, 'FOCE', varid)
    call NF95_GET_VAR(ncid, varid, pctsrf_new_oce, start = (/1, jour/))

    ! Fraction "glace de mer"
    call NF95_INQ_VARID(ncid, 'FSIC', varid)
    call NF95_GET_VAR(ncid, varid, pctsrf_new_sic, start = (/1, jour/))

    call NF95_CLOSE(ncid)

  END SUBROUTINE interfoce_lim

end module interfoce_lim_m
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