/[lmdze]/trunk/Sources/phylmd/stdlevvar.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/stdlevvar.f

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

revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC revision 188 by guez, Tue Mar 22 16:31:39 2016 UTC
# Line 68  contains Line 68  contains
68      ! RKAR : constante de von Karman      ! RKAR : constante de von Karman
69      REAL, PARAMETER:: RKAR=0.40      REAL, PARAMETER:: RKAR=0.40
70      ! niter : nombre iterations calcul "corrector"      ! niter : nombre iterations calcul "corrector"
71      INTEGER, parameter:: niter=2, ncon=niter-1      INTEGER, parameter:: niter=2
72    
73      ! Variables locales      ! Variables locales
74      INTEGER i, n      INTEGER i, n
# Line 84  contains Line 84  contains
84      REAL, dimension(klon):: zdte, zdq      REAL, dimension(klon):: zdte, zdq
85      ! lmon : longueur de Monin-Obukhov selon Hess, Colman and McAvaney      ! lmon : longueur de Monin-Obukhov selon Hess, Colman and McAvaney
86      DOUBLE PRECISION, dimension(klon):: lmon      DOUBLE PRECISION, dimension(klon):: lmon
     DOUBLE PRECISION, parameter:: eps=1.0D-20  
87      REAL, dimension(klon):: delu, delte, delq      REAL, dimension(klon):: delu, delte, delq
88      REAL, dimension(klon):: u_zref, te_zref, q_zref      REAL, dimension(klon):: u_zref, te_zref, q_zref
89      REAL, dimension(klon):: temp, pref      REAL, dimension(klon):: temp, pref
Legend:
Removed from v.178  
changed lines
  Added in v.188
  ViewVC Help
Powered by ViewVC 1.1.21