SimulationCore2/Equipments/Drawworks/DWMalfunction_ClutchDisengage.f90

subroutine DWMalfunction_ClutchDisengage
    
    use CDrillingConsoleVariables
    use CDataDisplayConsoleVariables
    use CHoistingVariables
    use Drawworks_VARIABLES
    
	IMPLICIT NONE
    
    !! Drawworks Malfunction ----> Clutch Disengage
    !if ( Drawworks%ClutchDisengageMalf==1 ) then
    !   Drawworks%ClutchMode=0
    !   return
    !end if
    
    
    
    
END subroutine