SimulationCore2/Equipments/TopDrive/TopDrive_OffMode.f90

subroutine TopDrive_OffMode
    
    use TopDrive_VARIABLES
    !use CDataDisplayConsoleVariables
    !use CDrillingConsoleVariables
    use CSimulationVariables
    use CWarningsVariables
    use CSounds
    use CTopDrivePanelVariables
    
	IMPLICIT NONE
    
    
    !==================================================================
    !                  Rate limit for off Mode
        
        Do while ( ((TDS%N_old-0.0d0)/TDS%time_step)>386.0d0 )
            TDS%N_ref = (-386.0d0*TDS%time_step)+TDS%N_old
            !else
            !    TDS%N_ref=0.0d0
            !end if
            
            CALL TopDrive_INPUTS
            CALL TopDrive_Solver
            TDS%N_old = TDS%N_ref
            !if ( TDS_OldTransMode==0 .and. TDS%w_new/=0.d0 ) then
            !    Call Activate_RotaryGearsAbuse()
            !    TDS%SoundGearCrash = .true.
            !    Call SetSoundRtGearCrash(TDS%SoundGearCrash)
            !else
            !    TDS%SoundGearCrash = .false.
            !    Call SetSoundRtGearCrash(TDS%SoundGearCrash)
            !end if
            !TDS_OldTransMode = RTTransmissionLever
            if ( (TopDriveTdsPowerState==0) .or. (IsStopped == .true.) ) then
                TopDriveTdsPowerLed = 0
            end if
        
            Call sleepqq (80)  !?????????????????
        End Do
    !==================================================================
    
    
    TDS%N_ref  = 0.
    TDS%N_new  = 0.
    TDS%N_old  = 0.
    
    
    TDS%ia     = 0.
    TDS%ia_old = 0.
    TDS%ia_new = 0.
    TDS%x      = 0.
    TDS%x_old  = 0.
    TDS%x_new  = 0.
    TDS%y      = 0.
    TDS%y_old  = 0.
    TDS%y_new  = 0.
    TDS%w      = 0.
    TDS%w_old  = 0.
    TDS%w_new  = 0.
    TDS%Speed  = 0.
    TDS_wOld   = 0.
    
    
    
    
    TopDriveOperationFaultLed = 0
    TDS%Speed = 0.d0                 !Speed [RPM]
    TopDriveRpmGauge  = TDS%Speed
    TD_RPMUnityOutput = -TopDriveRpmGauge
    TDS%SoundRPM      = 0
    !Call SetSound( TDS%SoundRPM )
    TDS%Torque           = 0.d0      ![ft.lbf]
    TopDriveTorqueGauge  = 0.d0      ![ft.lbf]
    TDS_OldPowerMode     = 1
    
    TDS_OldPowerMode = 0
    
    
end subroutine