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	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