module comsaison
   logical,save :: callsais
   integer,save :: isaison
   real,save :: dist_sol,declin
!$OMP THREADPRIVATE(callsais,isaison,dist_sol,declin)
contains
  
end module comsaison