subroutine TopDrive_Malfunction_MotorFailure
    
    use CDrillingConsoleVariables
    use CDataDisplayConsoleVariables
    use CSimulationVariables
    use TopDrive_VARIABLES
    
	IMPLICIT NONE
    
    
    if ( TDS%MotorFaileMalf==1 ) then
        TDS%N_new = 0.0
    end if
    
    
    
END subroutine