| 1 | ! |
|---|
| 2 | ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre |
|---|
| 3 | ! veillez n utiliser que des ! pour les commentaires |
|---|
| 4 | ! et bien positionner les & des lignes de continuation |
|---|
| 5 | ! (les placer en colonne 6 et en colonne 73) |
|---|
| 6 | ! |
|---|
| 7 | ! |
|---|
| 8 | !..include cles_phys.h |
|---|
| 9 | ! |
|---|
| 10 | LOGICAL cycle_diurne,soil_model |
|---|
| 11 | LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro |
|---|
| 12 | LOGICAL ok_kzmin,tuneupperatm |
|---|
| 13 | LOGICAL callnlte,callnirco2,callthermos |
|---|
| 14 | LOGICAL ok_cloud, ok_chem, reinit_trac, ok_sedim |
|---|
| 15 | LOGICAL ok_clmain, physideal, startphy_file |
|---|
| 16 | INTEGER nbapp_rad, nbapp_chim, iflag_con, iflag_ajs |
|---|
| 17 | INTEGER lev_histins, lev_histday, lev_histmth |
|---|
| 18 | INTEGER tr_scheme, cl_scheme |
|---|
| 19 | INTEGER nircorr, nltemodel, solvarmod |
|---|
| 20 | INTEGER nb_mode |
|---|
| 21 | INTEGER solarchoice |
|---|
| 22 | REAL ecriphy |
|---|
| 23 | REAL z0, lmixmin |
|---|
| 24 | REAL ksta, inertie |
|---|
| 25 | REAL euveff, fixed_euv_value |
|---|
| 26 | |
|---|
| 27 | COMMON/clesphys_l/ cycle_diurne, soil_model, & |
|---|
| 28 | & ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin, & |
|---|
| 29 | & tuneupperatm,callnlte,callnirco2,callthermos, & |
|---|
| 30 | & ok_cloud, ok_chem, reinit_trac, ok_sedim, & |
|---|
| 31 | & ok_clmain, physideal, startphy_file |
|---|
| 32 | |
|---|
| 33 | COMMON/clesphys_i/ nbapp_rad, nbapp_chim, & |
|---|
| 34 | & iflag_con, iflag_ajs, & |
|---|
| 35 | & lev_histins, lev_histday, lev_histmth, tr_scheme, & |
|---|
| 36 | & cl_scheme, nircorr, nltemodel, solvarmod, nb_mode, & |
|---|
| 37 | & solarchoice |
|---|
| 38 | |
|---|
| 39 | COMMON/clesphys_r/ ecriphy, z0, lmixmin, & |
|---|
| 40 | & ksta, inertie, euveff, fixed_euv_value |
|---|
| 41 | |
|---|
