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 |
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 |