/[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 150 by guez, Thu Jun 18 13:49:26 2015 UTC revision 154 by guez, Tue Jul 7 17:49:23 2015 UTC
# 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):: alb_new(:) ! (klon) albedo lu      real, intent(out):: alb_new(:) ! (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      alb_new(:knon) = alb_lu(knindex(:knon))      alb_new = alb_lu(knindex(:knon))
79      z0_new(:knon) = rug_lu(knindex(:knon))      z0_new(:knon) = rug_lu(knindex(:knon))
     alb_new(knon + 1:) = 999999.  
80      z0_new(knon + 1:) = 999999.      z0_new(knon + 1:) = 999999.
81    
82    END SUBROUTINE interfsur_lim    END SUBROUTINE interfsur_lim
Legend:
Removed from v.150  
changed lines
  Added in v.154
  ViewVC Help
Powered by ViewVC 1.1.21