[3] | 1 | ! |
---|
[97] | 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) |
---|
[3] | 6 | ! |
---|
[97] | 7 | !..include cles_phys.h |
---|
| 8 | ! |
---|
[104] | 9 | LOGICAL cycle_diurne,soil_model |
---|
[97] | 10 | LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro |
---|
[3] | 11 | INTEGER nbapp_rad, nbapp_chim, iflag_con, iflag_ajs |
---|
[1120] | 12 | REAL ecriphy |
---|
[175] | 13 | INTEGER lev_histmth, lev_histday |
---|
[3] | 14 | REAL solaire |
---|
[175] | 15 | |
---|
| 16 | ! Parametres pour PBL: |
---|
[97] | 17 | REAL z0, lmixmin |
---|
[175] | 18 | REAL ksta |
---|
[3] | 19 | LOGICAL ok_kzmin |
---|
[175] | 20 | |
---|
| 21 | ! Parametres surface: |
---|
[495] | 22 | REAL inertie,emis |
---|
[175] | 23 | |
---|
| 24 | ! Parametres Chimie: |
---|
[3] | 25 | logical chimi,ylellouch,hcnrad |
---|
| 26 | integer vchim,aerprod,htoh2 |
---|
[175] | 27 | |
---|
| 28 | ! Parametres Microphysique: |
---|
| 29 | integer microfi,cutoff,clouds |
---|
| 30 | real tx,tcorrect,p_prodaer |
---|
| 31 | real xnuf |
---|
[1056] | 32 | REAL xvis,xir |
---|
[3] | 33 | |
---|
| 34 | |
---|
[175] | 35 | COMMON/clesphys_i/ & |
---|
| 36 | & nbapp_rad, nbapp_chim, iflag_con, iflag_ajs, & |
---|
| 37 | & lev_histmth, lev_histday, vchim,aerprod,htoh2, & |
---|
| 38 | & microfi,cutoff,clouds |
---|
[97] | 39 | |
---|
[175] | 40 | COMMON/clesphys_r/ & |
---|
[1120] | 41 | & ecriphy, solaire, z0, lmixmin, ksta, inertie, emis, & |
---|
[1056] | 42 | & tx,tcorrect,p_prodaer,xnuf,xvis,xir |
---|
[175] | 43 | |
---|
| 44 | COMMON/clesphys_l/cycle_diurne, soil_model, & |
---|
| 45 | & ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin, & |
---|
| 46 | & chimi,ylellouch,hcnrad |
---|
| 47 | |
---|