/[lmdze]/trunk/phylmd/Interface_surf/interfsur_lim.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/interfsur_lim.f

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

revision 105 by guez, Thu Sep 4 10:05:52 2014 UTC revision 106 by guez, Tue Sep 9 12:54:30 2014 UTC
# Line 4  module interfsur_lim_m Line 4  module interfsur_lim_m
4    
5  contains  contains
6    
7    SUBROUTINE interfsur_lim(itime, dtime, jour, nisurf, knon, knindex, debut, &    SUBROUTINE interfsur_lim(itime, dtime, jour, nisurf, knindex, debut, &
8         alb_new, z0_new)         alb_new, z0_new)
9    
10      ! Cette routine sert d'interface entre le modèle atmosphérique et      ! Cette routine sert d'interface entre le modèle atmosphérique et
# Line 24  contains Line 24  contains
24      integer, intent(IN):: nisurf      integer, intent(IN):: nisurf
25      ! index de la surface à traiter (1 = sol continental)      ! index de la surface à traiter (1 = sol continental)
26    
     integer, intent(IN):: knon ! nombre de points dans le domaine a traiter  
27    
28      integer, intent(in):: knindex(:) ! (klon)      integer, intent(in):: knindex(:) ! (knon)
29      ! index des points de la surface à traiter      ! index des points de la surface à traiter
30    
31      logical, intent(IN):: debut ! premier appel à la physique (initialisation)      logical, intent(IN):: debut ! premier appel à la physique (initialisation)
# Line 35  contains Line 34  contains
34    
35      ! Local:      ! Local:
36    
37        integer knon ! nombre de points dans le domaine a traiter
38    
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 50  contains Line 51  contains
51    
52      !------------------------------------------------------------      !------------------------------------------------------------
53    
54        knon = size(knindex)
55    
56      if (debut) then      if (debut) then
57         lmt_pas = nint(86400./dtime * 1.0) ! pour une lecture une fois par jour         lmt_pas = nint(86400./dtime * 1.0) ! pour une lecture une fois par jour
58         jour_lu_sur = jour - 1         jour_lu_sur = jour - 1
Legend:
Removed from v.105  
changed lines
  Added in v.106
  ViewVC Help
Powered by ViewVC 1.1.21