[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 |
---|
[1642] | 14 | LOGICAL ok_cloud, ok_chem, reinit_trac, ok_sedim |
---|
[2135] | 15 | LOGICAL ok_clmain, physideal, startphy_file |
---|
[97] | 16 | INTEGER nbapp_rad, nbapp_chim, iflag_con, iflag_ajs |
---|
[1305] | 17 | INTEGER lev_histins, lev_histday, lev_histmth |
---|
[1661] | 18 | INTEGER tr_scheme, cl_scheme |
---|
[1310] | 19 | INTEGER nircorr, nltemodel, solvarmod |
---|
[2135] | 20 | INTEGER nb_mode |
---|
[1120] | 21 | REAL ecriphy |
---|
[3] | 22 | REAL solaire |
---|
[97] | 23 | REAL z0, lmixmin |
---|
| 24 | REAL ksta, inertie |
---|
[1310] | 25 | REAL euveff, solarcondate |
---|
[3] | 26 | |
---|
[1305] | 27 | COMMON/clesphys_l/ cycle_diurne, soil_model, & |
---|
| 28 | & ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin, & |
---|
[1310] | 29 | & callnlte,callnirco2,callthermos, & |
---|
[2135] | 30 | & ok_cloud, ok_chem, reinit_trac, ok_sedim, & |
---|
| 31 | & ok_clmain, physideal, startphy_file |
---|
[3] | 32 | |
---|
[1305] | 33 | COMMON/clesphys_i/ nbapp_rad, nbapp_chim, & |
---|
[2135] | 34 | & iflag_con, iflag_ajs, & |
---|
[1310] | 35 | & lev_histins, lev_histday, lev_histmth, tr_scheme, & |
---|
[1661] | 36 | & cl_scheme, nircorr, nltemodel, solvarmod, nb_mode |
---|
[1160] | 37 | |
---|
[1305] | 38 | COMMON/clesphys_r/ ecriphy, solaire, z0, lmixmin, & |
---|
[1310] | 39 | & ksta, inertie, euveff, solarcondate |
---|
[1160] | 40 | |
---|