!
! $Id: flux_arp.h 2010-08-04 17:02:56Z lahellec $
! Modif EV, 10/2020
!
      logical :: ok_flux_surf
      logical :: ok_prescr_ust !for prescribed ustar
      logical :: ok_prescr_beta
      logical :: ok_forc_tsurf


      real :: fsens
      real :: flat
      real :: betaevap
      real :: ust
      real :: tg

      common /flux_arp/fsens,flat,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,betaevap,ok_forc_tsurf

!$OMP THREADPRIVATE(/flux_arp/)