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