!
! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
!
      logical :: ok_flux_surf
      logical :: ok_prescr_ust !for prescribed ustar
      real :: fsens
      real :: flat
      real :: ust
      real :: tg

      common /flux_arp/fsens,flat,ust,tg,ok_flux_surf,ok_prescr_ust

!$OMP THREADPRIVATE(/flux_arp/)