493 |
coefm(:knon, 1), ycoefm0, ycoefh0) |
coefm(:knon, 1), ycoefm0, ycoefh0) |
494 |
coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, :)) |
coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, :)) |
495 |
coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, :)) |
coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, :)) |
496 |
END IF |
END IF |
497 |
|
|
498 |
IF (iflag_pbl >= 3) THEN |
IF (iflag_pbl >= 3) THEN |
499 |
! MELLOR ET YAMADA adapté ŕ Mars, Richard Fournier et |
! MELLOR ET YAMADA adapté ŕ Mars, Richard Fournier et |