anchor.diff:     real(ReKi)                                             :: alpha0              ! zero lift angle of attack (radians)
      real(ReKi)                                             :: eta_e
      real(ReKi)                                             :: St_sh
  +   real(ReKi)                                             :: Re
  +   real(ReKi)                                             :: alpha
   
      real(ReKi)                                     :: M, alpha1, alpha2, C_nalpha, C_nalpha_circ, T_f0, T_V0, T_p, b1,b2,b5,A1,A2,A5,S1,S2,S3,S4,k1_hat
  +   real(ReKi)                :: filtCutOff                    ! airfoil parameter for the low-pass cut-off frequency for pitching rate and accelerations (Hz)
      character(64)                                  :: chanPrefix
         ! Initialize variables for this routine
      errStat = ErrID_None
  
positive.code: 
  
        ! Local variables
     character(ErrMsgLen)                          :: errMsg2                 ! temporary Error message if ErrStat /= ErrID_None
     integer(IntKi)                                :: errStat2                ! temporary Error status of the operation
     character(*), parameter                       :: RoutineName = 'BEMT_AllocInput'
  
  
negative.code: 
  
        ! Local variables
     integer(IntKi)                                :: errStat2                ! temporary Error status of the operation
     character(*), parameter                       :: RoutineName = 'BEMT_SetParameters'
     integer(IntKi)                                :: i, j
  