
! $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/)


      

