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

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

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

revision 281 by guez, Fri Jul 20 16:28:36 2018 UTC revision 282 by guez, Fri Jul 20 16:46:48 2018 UTC
# Line 30  contains Line 30  contains
30      ! column-density of water in soil, in kg m-2      ! column-density of water in soil, in kg m-2
31    
32      real, intent(in):: rmu0(klon) ! cosinus de l'angle solaire zenithal      real, intent(in):: rmu0(klon) ! cosinus de l'angle solaire zenithal
33      real rugos(klon) ! rugosite      real, intent(in):: rugos(:) ! (knon) rugosite
34      REAL rugoro(klon)      REAL, intent(in):: rugoro(:) ! (knon)
35    
36      REAL, intent(in):: u1lay(:), v1lay(:) ! (knon)      REAL, intent(in):: u1lay(:), v1lay(:) ! (knon)
37      ! vitesse de la 1ere couche (m / s)      ! vitesse de la 1ere couche (m / s)
# Line 73  contains Line 73  contains
73      REAL, intent(out):: d_t(:, :) ! (knon, klev) incrementation de "t"      REAL, intent(out):: d_t(:, :) ! (knon, klev) incrementation de "t"
74      REAL, intent(out):: d_q(:, :) ! (knon, klev) incrementation de "q"      REAL, intent(out):: d_q(:, :) ! (knon, klev) incrementation de "q"
75      REAL, intent(out):: d_ts(:) ! (knon) variation of surface temperature      REAL, intent(out):: d_ts(:) ! (knon) variation of surface temperature
76      real z0_new(klon)      real, intent(out):: z0_new(:) ! (knon)
77    
78      REAL, intent(out):: flux_t(:) ! (knon)      REAL, intent(out):: flux_t(:) ! (knon)
79      ! (diagnostic) flux de chaleur sensible (Cp T) à la surface,      ! (diagnostic) flux de chaleur sensible (Cp T) à la surface,
Legend:
Removed from v.281  
changed lines
  Added in v.282
  ViewVC Help
Powered by ViewVC 1.1.21