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 |
|
|