| 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* |
Parent Directory
| 
Revision Log
| 
Patch