MODULE planet
  IMPLICIT NONE
  SAVE

  REAL :: aphelie, periheli, year_day, peri_day, obliquit, &
       coefvis, coefir
  
END MODULE planet