29 |
! "zu1" et "zv1". Nous avons moyenné les valeurs de ces trois |
! "zu1" et "zv1". Nous avons moyenné les valeurs de ces trois |
30 |
! champs sur les quatre sous-surfaces du modèle. |
! champs sur les quatre sous-surfaces du modèle. |
31 |
|
|
|
use calendar, ONLY: ymds2ju |
|
32 |
use clqh_m, only: clqh |
use clqh_m, only: clqh |
33 |
use clvent_m, only: clvent |
use clvent_m, only: clvent |
34 |
use coefkz_m, only: coefkz |
use coefkz_m, only: coefkz |
52 |
use ustarhb_m, only: ustarhb |
use ustarhb_m, only: ustarhb |
53 |
use vdif_kcay_m, only: vdif_kcay |
use vdif_kcay_m, only: vdif_kcay |
54 |
use yamada4_m, only: yamada4 |
use yamada4_m, only: yamada4 |
55 |
|
use ymds2ju_m, ONLY: ymds2ju |
56 |
|
|
57 |
! Arguments: |
! Arguments: |
58 |
|
|
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 |