SimulationCore2/Equipments/TopDrive/TopDrive_TorqueLimit.f90

subroutine TopDrive_TorqueLimit
    
    Use equipments_PowerLimit
    Use TopDrive_VARIABLES
    
    IMPLICIT NONE
    
    
    
    ! Top Drive Malfunction ----> Drive Motor Limit Overide
    if ( TDS%OverideTorqueLimitMalf==1 ) then
        return
    end if
    
    
    
    
    IF (TDS%ia_ref>TDS%ia_ref_limit) THEN
        TDS%ia_ref = TDS%ia_ref_limit
    END IF
    
    
    
    
end subroutine