33 |
|
|
34 |
REAL ustar(klon) |
REAL ustar(klon) |
35 |
|
|
36 |
INTEGER i, k |
INTEGER i |
37 |
REAL zxt, zxq, zxu, zxv, zxmod, taux, tauy |
REAL zxu, zxv, zxmod, taux, tauy |
38 |
REAL zx_alf1, zx_alf2 ! parametres pour extrapolation |
REAL zx_alf1, zx_alf2 ! parametres pour extrapolation |
|
LOGICAL unssrf(klon) ! unstb pbl w/lvls within srf pbl lyr |
|
|
LOGICAL unsout(klon) ! unstb pbl w/lvls in outer pbl lyr |
|
|
LOGICAL check(klon) ! True=>chk if Richardson no.>critcal |
|
39 |
|
|
40 |
!--------------------------------------------------------------- |
!--------------------------------------------------------------- |
41 |
|
|