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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 177 by guez, Fri Feb 5 16:02:34 2016 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 13  contains Line 13  contains
13    
14      ! Laurent FAIRHEAD, February 2000      ! Laurent FAIRHEAD, February 2000
15    
     use abort_gcm_m, only: abort_gcm  
16      USE dimphy, ONLY: klon      USE dimphy, ONLY: klon
17      USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, nbsrf      USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, nbsrf
18      USE netcdf, ONLY: nf90_noerr, nf90_nowrite      USE netcdf, ONLY: nf90_nowrite
19      use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open      use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open
20      use nr_util, only: assert_eq      use nr_util, only: assert
21    
22      integer, intent(IN):: itime ! numero du pas de temps courant      integer, intent(IN):: itime ! numero du pas de temps courant
23      real, intent(IN):: dtime ! pas de temps de la physique (en s)      real, intent(IN):: dtime ! pas de temps de la physique (en s)
# Line 37  contains Line 36  contains
36    
37      ! Local:      ! Local:
38    
     integer knon ! nombre de points dans le domaine a traiter  
   
39      INTEGER, save:: lmt_pas ! frequence de lecture des conditions limites      INTEGER, save:: lmt_pas ! frequence de lecture des conditions limites
40      ! (en pas de physique)      ! (en pas de physique)
41    
# Line 56  contains Line 53  contains
53    
54      ! --------------------------------------------------      ! --------------------------------------------------
55    
56      knon = assert_eq(size(knindex), size(lmt_sst), "interfoce_lim knon")      call assert(size(knindex) == size(lmt_sst), "interfoce_lim knon")
57    
58      if (debut .and. .not. allocated(sst_lu)) then      if (debut .and. .not. allocated(sst_lu)) then
59         lmt_pas = nint(86400. / dtime) ! pour une lecture une fois par jour         lmt_pas = nint(86400. / dtime) ! pour une lecture une fois par jour
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21