SimulationCore2/Equipments/Drawworks/DWMalfunction_ClutchEngage.f90

subroutine DWMalfunction_ClutchEngage
    
    use CDrillingConsoleVariables
    use CDataDisplayConsoleVariables
    use CHoistingVariables
    use Drawworks_VARIABLES
    use CSounds
    use CLog4
	IMPLICIT NONE
    
    
    
    
    
    ! Sound Generation
    if ( Drawworks%SoundClutch) then
        Drawworks%SoundClutch = .false.
        Call SetSoundDwClutch(Drawworks%SoundClutch)
    end if
    if ( DW_OldClutchMode/=0 .and. DrillingConsole%DWClutchLever==0 ) then
        Drawworks%SoundClutch = .true.
        Call SetSoundDwClutch(Drawworks%SoundClutch)
    end if
    DW_OldClutchMode = DrillingConsole%DWClutchLever
   
    
    
    
    ! Drawworks Malfunction ----> Clutch Engage
    if ( Drawworks%ClutchEngageMalf==1 ) then
        if ( Drawworks%ClutchMode==1 .or. Drawworks%ClutchMode==-1 ) then
            Drawworks%ClutchMode = Drawworks%ClutchMode
        else if ( Drawworks%ClutchMode==0 ) then
            Drawworks%ClutchMode = -1
        end if
        return
    end if
    
    
    
    
    ! Drawworks Malfunction ----> Clutch Disengage
    if ( Drawworks%ClutchDisengageMalf==1 ) then
       Drawworks%ClutchMode = 0
       return
    end if
    
    
    Drawworks%ClutchMode = DrillingConsole%DWClutchLever
    
    
    
    
    
end subroutine