| [3] | 1 | ! |
|---|
| 2 | ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/clesphys.inc,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ |
|---|
| 3 | ! |
|---|
| 4 | !..include cles_phys.h |
|---|
| 5 | ! |
|---|
| 6 | LOGICAL :: cycle_diurne,soil_model,new_oliq,ok_orodr,ok_orolf |
|---|
| 7 | LOGICAL :: ok_limitvrai |
|---|
| 8 | INTEGER :: nbapp_rad, nbapp_chim, iflag_con, iflag_ajs |
|---|
| 9 | REAL :: solaire |
|---|
| 10 | REAL :: z0, lmixmin |
|---|
| 11 | REAL :: ksta, inertie |
|---|
| 12 | LOGICAL :: ok_kzmin |
|---|
| 13 | INTEGER :: lev_histmth, lev_histday |
|---|
| 14 | logical :: chimi,ylellouch,hcnrad |
|---|
| 15 | integer :: vchim,aerprod,htoh2 |
|---|
| 16 | integer :: microfi,cutoff |
|---|
| 17 | real :: tx,tcorrect |
|---|
| 18 | |
|---|
| 19 | |
|---|
| 20 | COMMON/clesphys/cycle_diurne, soil_model, new_oliq, & |
|---|
| 21 | & ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, nbapp_chim & |
|---|
| 22 | & , iflag_con, iflag_ajs, solaire, z0, lmixmin, ksta & |
|---|
| 23 | & , ok_kzmin, lev_histmth, lev_histday & |
|---|
| 24 | & , inertie, chimi,vchim,aerprod,htoh2,ylellouch,hcnrad & |
|---|
| 25 | & , microfi,cutoff,tx,tcorrect |
|---|
