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