SimulationCore2/Equipments/Drawworks/DWMalfunction_MotorFailure.f90

subroutine DWMalfunction_MotorFailure
    
    use CDrillingConsoleVariables
    use CDataDisplayConsoleVariables
    use CHoistingVariables
    use Drawworks_VARIABLES
    
	IMPLICIT NONE
    
    
    
    
    if (Drawworks%MotorFaileMalf==1) then
        Drawworks%Conv_Ratio = 1.0D0
    end if
    
    
    
    
END subroutine