anchor.diff:  
         ! Determine if any vortex we are tracking is continuing to separate or is reattaching to the airfoil
      if (p%UAMod == 2) then   !Added specific logic for UAMod=2
  -      TESF = ((ABS(Cn_prime)>ABS(xd%Cn_prime_minus1(i,j))))
  +      TESF = ABS( Cn_prime ) > ABS( xd%Cn_prime_minus1(i,j) )
      else
         TESF = fprimeprime < xd%fprimeprime_minus1(i,j) ! Separation point is moving towards the Leading Edge when .true.; otherwise separation point is moving toward trailing edge   
      end if
  
positive.code:             ! Eqn 1.57
           Cm_v     = -x_cp_bar*( 1-cos( pi*xd%tau_v(misc%iBladeNode, misc%iBlade)/T_VL ) )*Cn_v
     
           if ((xd%tau_v(misc%iBladeNode, misc%iBlade) > 0.0).AND.(p%UAMod == 2)) then   !Added specific logic for UAMod=2
              y%Cm   = Cm_FS + Cm_v   ! Eqn 1.58 - 1.60
           elseif (p%UAMod == 2) then 
              y%Cm   = Cm_FS
           else
                 ! Eqn 1.58 - 1.60
              y%Cm   = Cm_FS + Cm_v
        end if
     end if
     end if
     
  #ifdef UA_OUTS
  
negative.code:    real(ReKi)                :: beta_M                                        ! Prandtl-Glauert compressibility correction factor,  sqrt(1-M**2)
     real(ReKi)                :: beta_M_Sqrd                                   ! square of the Prandtl-Glauert compressibility correction factor,  (1-M**2)
                   
     real(ReKi)                 :: Cn_temp
     real(ReKi)                 :: Cm_temp
     real(ReKi)                 :: Cl_temp
     real(ReKi)                 :: Cd_temp
     
     real(ReKi)                :: T_fc
     real(ReKi)                :: T_fm
  