anchor.diff:           if  ( Kafactor < 0.0_ReKi ) then ! .AND.  .NOT. OtherState%VRTX(OtherState%iBladeNode, OtherState%iBlade )  )then
               y%Cc = eta_e*Cc_pot*(sqrt(fprimeprime_c) - f_c_offset)
            else         
  -            y%Cc = eta_e*Cc_pot*(sqrt(fprimeprime_c) - f_c_offset) + Cn_v*tan(alpha_e)*(1-xd%tau_v(OtherState%iBladeNode, OtherState%iBlade)/(2.0*T_VL))
  +            !y%Cc = eta_e*Cc_pot*(sqrt(fprimeprime_c) - f_c_offset) + Cn_v*tan(alpha_e)*(1-xd%tau_v(OtherState%iBladeNode, OtherState%iBlade)/(2.0*T_VL))
  +            y%Cc = eta_e*Cc_pot*(sqrt(fprimeprime_c) - f_c_offset) + Cn_v*alpha_e*(1-xd%tau_v(OtherState%iBladeNode, OtherState%iBlade)/(2.0*T_VL)) !testing without tan 9/16/15
            end if
            
         elseif ( p%UAMod == 2 ) then
  
positive.code:       Get_Cc_FS   = Cn_alpha_q_circ * sqrt(fprimeprime) * tan(alpha_e + alpha0) * eta_e
     else if ( UAMod == 2 ) then
        ! use equation 1.38
        Get_Cc_FS   = Cn_alpha_q_circ * (sqrt(fprimeprime) - 0.2_ReKi) * tan(alpha_e + alpha0) * eta_e
     else
        ! implementation error!  Cannot have UAMod other than 0,1,2
     end if
  
negative.code:    
     
        ! Compute Cc_pot using eqn 1.28
     !Cc_pot          = Cn_alpha_q_circ*tan(alpha_e+alpha0)
     Cc_pot          = Cn_alpha_q_circ*alpha_e !testing 9/16/15 without tangent
     
     if (OtherState%FirstPass(i,j)) then
        Cn_pot_minus1 = Cn_pot
  