!-----------------------------------------------------------------------
!   INCLUDE saison.h

      COMMON/saison/callsais,isaison,dist_star,declin,                   &
     &             mu0(ngridmx),fract(ngridmx)

      integer isaison
      logical callsais
      real dist_star,declin,mu0,fract

!-----------------------------------------------------------------------