! $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,betaevap,ust,tg,ok_flux_surf,ok_prescr_ust,ok_prescr_beta,ok_forc_tsurf

!$OMP THREADPRIVATE(/flux_arp/)