21 |
LOGICAL:: ok_kzmin = .true.! calcul de Kzmin dans la couche limite de surface |
LOGICAL:: ok_kzmin = .true.! calcul de Kzmin dans la couche limite de surface |
22 |
INTEGER, save:: ecrit_ins |
INTEGER, save:: ecrit_ins |
23 |
logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins |
logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins |
24 |
|
real:: f_cdrag_ter = 1., f_cdrag_oce = 0.8 ! surface drag coefficients |
25 |
|
|
26 |
contains |
contains |
27 |
|
|
31 |
|
|
32 |
namelist /clesphys_nml/ solaire, co2_ppm, CH4_ppb, N2O_ppb, CFC11_ppt, & |
namelist /clesphys_nml/ solaire, co2_ppm, CH4_ppb, N2O_ppb, CFC11_ppt, & |
33 |
CFC12_ppt, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ecrit_ins, & |
CFC12_ppt, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ecrit_ins, & |
34 |
ok_instan |
ok_instan, f_cdrag_ter, f_cdrag_oce |
35 |
|
|
36 |
!--------------------------------------------------------- |
!--------------------------------------------------------- |
37 |
|
|