80 |
PARAMETER (vk=0.35) |
PARAMETER (vk=0.35) |
81 |
REAL ricr |
REAL ricr |
82 |
PARAMETER (ricr=0.4) |
PARAMETER (ricr=0.4) |
|
REAL fak |
|
|
! b calcul du Prandtl et de dTetas |
|
|
PARAMETER (fak=8.5) |
|
|
REAL fakn |
|
83 |
! a |
! a |
|
PARAMETER (fakn=7.2) |
|
84 |
REAL onet |
REAL onet |
85 |
PARAMETER (onet=1.0/3.0) |
PARAMETER (onet=1.0/3.0) |
|
REAL t_coup |
|
|
PARAMETER(t_coup=273.15) |
|
86 |
REAL zkmin |
REAL zkmin |
87 |
PARAMETER (zkmin=0.01) |
PARAMETER (zkmin=0.01) |
88 |
REAL betam |
REAL betam |
89 |
! pour Phim / h dans la S.L stable |
! pour Phim / h dans la S.L stable |
90 |
PARAMETER (betam=15.0) |
PARAMETER (betam=15.0) |
|
REAL betah |
|
|
PARAMETER (betah=15.0) |
|
|
REAL betas |
|
|
! Phit dans la S.L. stable (mais 2 formes / |
|
|
PARAMETER (betas=5.0) |
|
91 |
! z/OBL<>1 |
! z/OBL<>1 |
92 |
REAL sffrac |
REAL sffrac |
93 |
! S.L. = z/h < .1 |
! S.L. = z/h < .1 |
94 |
PARAMETER (sffrac=0.1) |
PARAMETER (sffrac=0.1) |
95 |
REAL binm |
REAL binm |
96 |
PARAMETER (binm=betam*sffrac) |
PARAMETER (binm=betam*sffrac) |
|
REAL binh |
|
|
PARAMETER (binh=betah*sffrac) |
|
|
REAL ccon |
|
|
PARAMETER (ccon=fak*sffrac*vk) |
|
97 |
|
|
98 |
REAL q_star, t_star |
REAL q_star, t_star |
99 |
! Lambert correlations T' q' avec T* q* |
! Lambert correlations T' q' avec T* q* |