83 |
real l0(ngrid) |
real l0(ngrid) |
84 |
real sq(ngrid), sqz(ngrid), zz(ngrid, klev+1) |
real sq(ngrid), sqz(ngrid), zz(ngrid, klev+1) |
85 |
integer iter |
integer iter |
86 |
real:: ric = 0.195, rifc = 0.191, b1 = 16.6, kap = 0.4 |
real:: ric = 0.195, rifc = 0.191, b1 = 16.6 |
87 |
|
|
88 |
!----------------------------------------------------------------------- |
!----------------------------------------------------------------------- |
89 |
|
|
141 |
enddo |
enddo |
142 |
enddo |
enddo |
143 |
|
|
144 |
! Au premier appel, on d\'etermine l et q2 de façon it\'erative. |
! Au premier appel, on d\'etermine l et q2 de fa\ccon it\'erative. |
145 |
! It\'eration pour d\'eterminer la longueur de m\'elange |
! It\'eration pour d\'eterminer la longueur de m\'elange |
146 |
|
|
147 |
if (first .or. iflag_pbl == 6) then |
if (first .or. iflag_pbl == 6) then |