40 |
! sorties instantanées tous les pas de temps de la physique, |
! sorties instantanées tous les pas de temps de la physique, |
41 |
! fichier "histbilKP_ins.nc" |
! fichier "histbilKP_ins.nc" |
42 |
|
|
43 |
INTEGER ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day |
INTEGER ecrit_ins |
|
INTEGER ecrit_mth, ecrit_tra, ecrit_reg |
|
44 |
logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins |
logical:: ok_instan = .false. ! sorties instantanees dans le fichier histins |
45 |
|
|
46 |
save |
save |
55 |
CFC12_ppt, top_height, overlap, cdmmax, cdhmax, ksta, & |
CFC12_ppt, top_height, overlap, cdmmax, cdhmax, ksta, & |
56 |
ksta_ter, ok_kzmin, lev_histhf, lev_histday, lev_histmth, & |
ksta_ter, ok_kzmin, lev_histhf, lev_histday, lev_histmth, & |
57 |
type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins, latmin_ins, & |
type_run, ok_isccp, ok_regdyn, lonmin_ins, lonmax_ins, latmin_ins, & |
58 |
latmax_ins, ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, & |
latmax_ins, ecrit_ins, ok_instan |
|
ecrit_tra, ecrit_reg, ok_instan |
|
59 |
|
|
60 |
!--------------------------------------------------------- |
!--------------------------------------------------------- |
61 |
|
|
83 |
latmin_ins = -20. |
latmin_ins = -20. |
84 |
latmax_ins = 20. |
latmax_ins = 20. |
85 |
ecrit_ins = NINT(86400./48.) |
ecrit_ins = NINT(86400./48.) |
|
ecrit_hf = NINT(86400. *0.25) |
|
|
ecrit_hf2mth = 4*30 ! ecriture mens. a partir de val. inst. toutes les 6h |
|
|
ecrit_day = 86400 |
|
|
ecrit_mth = 86400 |
|
|
ecrit_tra = 1 |
|
|
ecrit_reg = NINT(86400. *0.25) ! 4 fois par jour |
|
86 |
|
|
87 |
print *, "Enter namelist 'clesphys_nml'." |
print *, "Enter namelist 'clesphys_nml'." |
88 |
read(unit=*, nml=clesphys_nml) |
read(unit=*, nml=clesphys_nml) |