339 |
END DO |
END DO |
340 |
end IF |
end IF |
341 |
|
|
342 |
call coef_diff_turb(dtime, nsrf, ni(:knon), ypaprs, ypplay, yu, yv, & |
call coef_diff_turb(dtime, nsrf, ni(:knon), ypaprs(:knon, :), & |
343 |
yq, yt, yts, ycdragm, zgeop(:knon, :), ycoefm(:knon, :), & |
ypplay(:knon, :), yu(:knon, :), yv(:knon, :), yq(:knon, :), & |
344 |
ycoefh(:knon, :), yq2) |
yt(:knon, :), yts(:knon), ycdragm(:knon), zgeop(:knon, :), & |
345 |
|
ycoefm(:knon, :), ycoefh(:knon, :), yq2(:knon, :)) |
346 |
|
|
347 |
CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), ycoefm(:knon, :), & |
CALL clvent(dtime, yu(:knon, 1), yv(:knon, 1), ycoefm(:knon, :), & |
348 |
ycdragm(:knon), yt(:knon, :), yu(:knon, :), ypaprs(:knon, :), & |
ycdragm(:knon), yt(:knon, :), yu(:knon, :), ypaprs(:knon, :), & |