!
! $Header$
!
c..include cles_phys.h
c
       LOGICAL cycle_diurne,soil_model,new_oliq,ok_orodr,ok_orolf 
       LOGICAL ok_limitvrai
       LOGICAL bug_ozone
       INTEGER nbapp_rad, iflag_con
       REAL co2_ppm, solaire
       REAL*8 RCO2, RCH4, RN2O, RCFC11, RCFC12  
       REAL*8 CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
cIM simulateur ISCCP 
       INTEGER top_height, overlap
cIM seuils cdrm, cdrh
       REAL cdmmax, cdhmax
cIM param. stabilite s/ terres et en dehors
       REAL ksta, ksta_ter
cIM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
       LOGICAL ok_kzmin
cIM lev_histhf  : niveau sorties 6h
cIM lev_histday : niveau sorties journalieres
cIM lev_histmth : niveau sorties mensuelles
       INTEGER lev_histhf, lev_histday, lev_histmth
       CHARACTER*4 type_run
       LOGICAL ok_isccp, ok_regdyn
       REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
       REAL ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
       REAL ecrit_mth, ecrit_tra, ecrit_reg 
       REAL freqin_isccp, freqout_isccp
       INTEGER :: ip_ebil_phy
       LOGICAL ok_slab_sicOBS

       COMMON/clesphys/cycle_diurne, soil_model, new_oliq,
     S     ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
     S     , co2_ppm, solaire, RCO2, RCH4, RN2O, RCFC11, RCFC12
     S     , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
     S     , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter
     S     , ok_kzmin, lev_histhf, lev_histday, lev_histmth
     S     , type_run, ok_isccp, ok_regdyn
     S     , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
     S     , ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
     S     , ecrit_mth, ecrit_tra, ecrit_reg, bug_ozone
     S     , freqin_isccp, freqout_isccp, ip_ebil_phy
     S     , ok_slab_sicOBS