335 |
IF (ok_kzmin) THEN |
IF (ok_kzmin) THEN |
336 |
! Calcul d'une diffusion minimale pour les conditions tres stables |
! Calcul d'une diffusion minimale pour les conditions tres stables |
337 |
CALL coefkzmin(knon, ypaprs, ypplay, yu, yv, yt, yq, & |
CALL coefkzmin(knon, ypaprs, ypplay, yu, yv, yt, yq, & |
338 |
ycdragm(:knon), ycoefm0(:knon, 2:), ycoefh0(:knon, 2:)) |
ycdragm(:knon), ycoefh0(:knon, 2:)) |
339 |
|
ycoefm0(:knon, 2:) = ycoefh0(:knon, 2:) |
340 |
coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, 2:)) |
coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, 2:)) |
341 |
coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, 2:)) |
coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, 2:)) |
|
ycdragm(:knon) = max(ycdragm(:knon), ycoefm0(:knon, 1)) |
|
|
ycdragh(:knon) = max(ycdragh(:knon), ycoefh0(:knon, 1)) |
|
342 |
END IF |
END IF |
343 |
|
|
344 |
IF (iflag_pbl >= 6) THEN |
IF (iflag_pbl >= 6) THEN |