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

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

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

revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC revision 156 by guez, Thu Jul 16 17:39:10 2015 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, knindex, debut, alblw, z0_new)    SUBROUTINE interfsur_lim(itime, dtime, jour, knindex, debut, albedo, z0_new)
8    
9      ! Cette routine sert d'interface entre le mod\`ele atmosph\'erique et      ! Cette routine sert d'interface entre le mod\`ele atmosph\'erique et
10      ! un fichier de conditions aux limites.      ! un fichier de conditions aux limites.
# Line 24  contains Line 24  contains
24      ! index des points de la surface \`a traiter      ! index des points de la surface \`a traiter
25    
26      logical, intent(IN):: debut ! premier appel \`a la physique (initialisation)      logical, intent(IN):: debut ! premier appel \`a la physique (initialisation)
27      real, intent(out):: alblw(:) ! (knon) albedo lu      real, intent(out):: albedo(:) ! (knon) albedo lu
28      real, intent(out):: z0_new(:) ! (klon) longueur de rugosit\'e lue      real, intent(out):: z0_new(:) ! (klon) longueur de rugosit\'e lue
29    
30      ! Local:      ! Local:
# Line 75  contains Line 75  contains
75      endif      endif
76    
77      ! Recopie des variables dans les champs de sortie      ! Recopie des variables dans les champs de sortie
78      alblw = alb_lu(knindex)      albedo = alb_lu(knindex)
79      z0_new(:knon) = rug_lu(knindex)      z0_new(:knon) = rug_lu(knindex)
80      z0_new(knon + 1:) = 999999.      z0_new(knon + 1:) = 999999.
81    
Legend:
Removed from v.155  
changed lines
  Added in v.156
  ViewVC Help
Powered by ViewVC 1.1.21