44 |
REAL, intent(in):: q2m(klon) |
REAL, intent(in):: q2m(klon) |
45 |
REAL, intent(in):: ustar(:) ! (knon) |
REAL, intent(in):: ustar(:) ! (knon) |
46 |
REAL, intent(in):: flux_t(:), flux_q(:) ! (knon) flux à la surface |
REAL, intent(in):: flux_t(:), flux_q(:) ! (knon) flux à la surface |
47 |
|
REAL, intent(in):: u(:, :) ! (knon, klev) vitesse U (m/s) |
48 |
REAL, intent(in):: u(klon, klev) ! vitesse U (m/s) |
REAL, intent(in):: v(:, :) ! (knon, klev) vitesse V (m/s) |
49 |
REAL, intent(in):: v(klon, klev) ! vitesse V (m/s) |
REAL, intent(in):: t(:, :) ! (knon, klev) temperature (K) |
50 |
|
REAL, intent(in):: q(:, :) ! (knon, klev) vapeur d'eau (kg/kg) |
|
! temperature (K) |
|
|
REAL, intent(in):: t(klon, klev) |
|
|
! vapeur d'eau (kg/kg) |
|
|
REAL, intent(in):: q(klon, klev) |
|
51 |
|
|
52 |
REAL, intent(out):: pblh(:) ! (knon) |
REAL, intent(out):: pblh(:) ! (knon) |
53 |
! Cape du thermique |
! Cape du thermique |
279 |
! (attention, on ajoute therm(i) qui est virtuelle ...) |
! (attention, on ajoute therm(i) qui est virtuelle ...) |
280 |
! pourquoi pas sqrt(b1)*t_star ? |
! pourquoi pas sqrt(b1)*t_star ? |
281 |
qT_th(i) = qT_th(i) + b2sr*q_star |
qT_th(i) = qT_th(i) + b2sr*q_star |
282 |
! new on differre le calcul de Theta_e |
! new on diff\`ere le calcul de Theta_e |
283 |
rhino(i, 1) = 0. |
rhino(i, 1) = 0. |
284 |
ENDIF |
ENDIF |
285 |
ENDDO |
ENDDO |