20 |
! ne tient pas compte de la diff\'erentiation des sous-fractions |
! ne tient pas compte de la diff\'erentiation des sous-fractions |
21 |
! de sol. |
! de sol. |
22 |
|
|
23 |
use clcdrag_m, only: clcdrag |
use cdrag_m, only: cdrag |
24 |
use clqh_m, only: clqh |
use clqh_m, only: clqh |
25 |
use clvent_m, only: clvent |
use clvent_m, only: clvent |
26 |
use coef_diff_turb_m, only: coef_diff_turb |
use coef_diff_turb_m, only: coef_diff_turb |
305 |
* (ypplay(:knon, k - 1) - ypplay(:knon, k)) |
* (ypplay(:knon, k - 1) - ypplay(:knon, k)) |
306 |
ENDDO |
ENDDO |
307 |
|
|
308 |
CALL clcdrag(nsrf, sqrt(yu(:knon, 1)**2 + yv(:knon, 1)**2), & |
CALL cdrag(nsrf, sqrt(yu(:knon, 1)**2 + yv(:knon, 1)**2), & |
309 |
yt(:knon, 1), yq(:knon, 1), zgeop(:knon, 1), ypaprs(:knon, 1), & |
yt(:knon, 1), yq(:knon, 1), zgeop(:knon, 1), ypaprs(:knon, 1), & |
310 |
yts(:knon), yqsurf(:knon), yrugos(:knon), ycdragm(:knon), & |
yts(:knon), yqsurf(:knon), yrugos(:knon), ycdragm(:knon), & |
311 |
ycdragh(:knon)) |
ycdragh(:knon)) |