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

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

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

revision 206 by guez, Tue Aug 30 12:52:46 2016 UTC revision 227 by guez, Thu Nov 2 15:47:03 2017 UTC
# Line 17  contains Line 17  contains
17      INTEGER knon      INTEGER knon
18      REAL, intent(in):: dtime ! intervalle de temps (en s)      REAL, intent(in):: dtime ! intervalle de temps (en s)
19    
20      REAL u1lay(klon), v1lay(klon)      REAL, intent(in):: u1lay(:), v1lay(:) ! (knon)
21      ! u1lay----input-R- vent u de la premiere couche (m/s)      ! vent de la premiere couche (m/s)
     ! v1lay----input-R- vent v de la premiere couche (m/s)  
22    
23      REAL, intent(in):: coef(:, :) ! (knon, klev)      REAL, intent(in):: coef(:, :) ! (knon, klev)
24      ! Coefficient d'echange (m**2/s) multiplié par le cisaillement du      ! Coefficient d'echange (m**2/s) multiplié par le cisaillement du
25      ! vent (dV/dz). La première valeur indique la valeur de Cdrag (sans      ! vent (dV/dz). La première valeur indique la valeur de Cdrag (sans
26      ! unité).      ! unité).
27    
28      REAL t(klon, klev), ven(klon, klev)      REAL, intent(in):: t(klon, klev), ven(klon, klev)
29      ! t--------input-R- temperature (K)      ! t--------input-R- temperature (K)
30      ! ven------input-R- vitesse horizontale (m/s)      ! ven------input-R- vitesse horizontale (m/s)
31      REAL paprs(klon, klev+1), pplay(klon, klev), delp(klon, klev)      REAL paprs(klon, klev+1), pplay(klon, klev), delp(klon, klev)
Legend:
Removed from v.206  
changed lines
  Added in v.227
  ViewVC Help
Powered by ViewVC 1.1.21