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

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

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 282 by guez, Fri Jul 20 16:46:48 2018 UTC
# Line 24  contains Line 24  contains
24    
25      logical, intent(IN):: debut ! premier appel \`a la physique (initialisation)      logical, intent(IN):: debut ! premier appel \`a la physique (initialisation)
26      real, intent(out):: albedo(:) ! (knon) albedo lu      real, intent(out):: albedo(:) ! (knon) albedo lu
27      real, intent(out):: z0_new(:) ! (klon) longueur de rugosit\'e lue      real, intent(out):: z0_new(:) ! (knon) longueur de rugosit\'e lue
28    
29      ! Local:      ! Local:
30    
# Line 75  contains Line 75  contains
75    
76      ! Recopie des variables dans les champs de sortie      ! Recopie des variables dans les champs de sortie
77      albedo = alb_lu(knindex)      albedo = alb_lu(knindex)
78      z0_new(:knon) = rug_lu(knindex)      z0_new = rug_lu(knindex)
     z0_new(knon + 1:) = 999999.  
79    
80    END SUBROUTINE interfsur_lim    END SUBROUTINE interfsur_lim
81    
Legend:
Removed from v.254  
changed lines
  Added in v.282
  ViewVC Help
Powered by ViewVC 1.1.21