/[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 155 by guez, Wed Jul 8 17:03:45 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 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.
11    
12      ! Laurent FAIRHEAD, February 2000      ! Laurent FAIRHEAD, February 2000
13    
     use abort_gcm_m, only: abort_gcm  
14      USE dimphy, ONLY: klon      USE dimphy, ONLY: klon
15      use netcdf, only: NF90_NOWRITE      use netcdf, only: NF90_NOWRITE
16      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
# Line 24  contains Line 23  contains
23      ! index des points de la surface \`a traiter      ! index des points de la surface \`a traiter
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):: alblw(:) ! (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(:) ! (klon) longueur de rugosit\'e lue
28    
29      ! Local:      ! Local:
# Line 75  contains Line 74  contains
74      endif      endif
75    
76      ! Recopie des variables dans les champs de sortie      ! Recopie des variables dans les champs de sortie
77      alblw = alb_lu(knindex)      albedo = alb_lu(knindex)
78      z0_new(:knon) = rug_lu(knindex)      z0_new(:knon) = rug_lu(knindex)
79      z0_new(knon + 1:) = 999999.      z0_new(knon + 1:) = 999999.
80    
Legend:
Removed from v.155  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21