anchor.diff:              C_Brake(2,i_pt) = 0
            END IF
   
  +
  +         ! Z
  +         IF (dxdt%StC_x(5,i_pt) * u%Mesh(i_pt)%TranslationVel(3,1) <= 0 ) THEN
  +            C_ctrl(3,i_pt) = p%StC_Z_C_HIGH
  +         ELSE
  +            C_ctrl(3,i_pt) = p%StC_Z_C_LOW
  +         END IF
  +
  +         !Brake Y
  +         IF      ( (x%StC_x(5,i_pt) > p%P_SP(3)-0.2) .AND. (x%StC_x(6,i_pt) > 0) ) THEN
  +            C_Brake(2,i_pt) = p%StC_Z_C_BRAKE
  +         ELSE IF ( (x%StC_x(5,i_pt) < p%N_SP(3)+0.2) .AND. (x%StC_x(6,i_pt) < 0) ) THEN
  +            C_Brake(3,i_pt) = p%StC_Z_C_BRAKE
  +         ELSE
  +            C_Brake(3,i_pt) = 0
  +         END IF
  +
         ELSE IF (p%StC_CMODE == CMODE_Semi .AND. p%StC_SA_MODE == SA_CMODE_GH_invVel) THEN ! Inverse velocity-based ground hook control with high damping for braking
   
            ! X
  
positive.code:          ELSE
              C_Brake(2,i_pt) = 0
           END IF
  
        ELSE IF (p%StC_CMODE == CMODE_Semi .AND. p%StC_SA_MODE == SA_CMODE_GH_disp) THEN ! displacement-based ground hook control with high damping for braking
  
  
negative.code:       INTEGER(IntKi),                INTENT(  OUT)  :: ErrStat     !< Error status of the operation
        CHARACTER(*),                  INTENT(  OUT)  :: ErrMsg      !< Error message if ErrStat /= ErrID_None
  
        REAL(ReKi), dimension(3)                        :: K          ! tuned mass damper stiffness
        Real(ReKi)                                      :: denom      ! denominator for omni-direction factors
        integer(IntKi)                                  :: i_pt       ! Generic counter for mesh point
  
  