COMMON/saison/callsais,isaison,dist_sol,declin,
     $             mu0(ngridmx),fract(ngridmx)

      INTEGER isaison
      LOGICAL callsais
      REAL dist_sol,declin,mu0,fract