subroutine DWMalfunction_MotorFailure use CDrillingConsoleVariables use ConfigurationVariables use ConfigurationVariables use CDataDisplayConsole use ConfigurationVariables use CHoistingVariables use ConfigurationVariables use ConfigurationVariables !@ IMPLICIT NONE if (data%State%Drawworks%MotorFaileMalf==1) then data%State%Drawworks%Conv_Ratio = 1.0D0 end if END subroutine