anchor.diff:     real(ReKi)                 :: Cl_temp
      real(ReKi)                 :: Cd_temp
      real(ReKi)                 :: Cd0_temp
  +   real(ReKi)                 :: Cm0_temp
   
      real(ReKi)                :: T_I                                           !
      real(ReKi)                :: Kalpha                                        !
  
positive.code:    
     
     real(ReKi), parameter           :: fc_limit = (1.0_ReKi + Gonzales_factor)**2    ! normally, fc is limited by 1, but we're limiting (sqrt(fc)-Gonzales_factor) to 1
     real(ReKi)                      :: Cc, Cl, Cd, Cm, Cd0, denom
     ErrStat = ErrID_None
     ErrMsg  = ''
        ! NOTE:  This subroutine call cannot live in Blade Element because BE module calls UnsteadyAero module.
  
negative.code:    real(ReKi)                                             :: Cm_v, alpha_prime_f
     real(ReKi)                                             :: x_cp_hat                      ! center-of-pressure distance from LE in chord fraction
     real(ReKi)                                             :: Cm_common                     ! 
     real(ReKi)                                             :: Cm0
  
     integer(intKi)                                         :: ncols
     
  