!
! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
!
      logical :: ok_flux_surf
      real :: fsens
      real :: flat

      common /flux_arp/fsens,flat,ok_flux_surf

!$OMP THREADPRIVATE(/flux_arp/)