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