/[lmdze]/trunk/Sources/phylmd/Interface_surf/interfoce_lim.f
ViewVC logotype

Annotation of /trunk/Sources/phylmd/Interface_surf/interfoce_lim.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 221 - (hide annotations)
Thu Apr 20 14:44:47 2017 UTC (7 years, 2 months ago) by guez
File size: 1122 byte(s)
clcdrag is no longer used in LMDZ. Replaced by cdrag in LMDZ. In cdrag
in LMDZ, zxli is a symbolic constant, false. So removed case zxli true
in LMDZE.

read_sst is called zero (if no ocean point on the whole planet) time or
once per call of physiq. If mod(itap - 1, lmt_pas) == 0 then we have
advanced in time of lmt_pas and deja_lu is necessarily false.

qsat[sl] and dqsat[sl] were never called.

Added output of qsurf in histins, following LMDZ.

Last dummy argument dtime of phystokenc is always the same as first
dummy argument pdtphys, removed dtime.

Removed make rules for nag_xref95, since it does not exist any longer.

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

  ViewVC Help
Powered by ViewVC 1.1.21