c-----------------------------------------------------------------------
c INCLUDE planet.h

      COMMON/planet/aphelie,periheli,year_day,peri_day,
     $       obliquit,
     $       z0,lmixmin,emin_turb,coefvis,coefir,
     $       timeperi,e_elips,p_elips,unitastr

      REAL aphelie,periheli,year_day,peri_day,
     $     obliquit,
     $     z0,lmixmin,emin_turb,coefvis,coefir,
     $       timeperi,e_elips,p_elips,unitastr

c-----------------------------------------------------------------------