SimulationCore2/Equipments/Pumps/Pump3_OffMode_Solver.f90

subroutine Pump3_OffMode_Solver
    
    use Pump_VARIABLES
    use CPumpsVariables
    use CDrillingConsoleVariables
    use CDataDisplayConsoleVariables
    use CSimulationVariables
    use CDrillWatchVariables
    use CSounds
    
    
    IMPLICIT NONE
    INTEGER :: Pump_No
    
    
    
        CALL Pump_INPUTS
        
        
        
        !==================================================================
        !                  Rate limit for off Mode
        
        if (((PUMP(3)%N_old-0.0d0)/PUMP(3)%time_step)>386.) then
            PUMP(3)%N_ref = (-386.*PUMP(3)%time_step)+PUMP(3)%N_old
            !else
            !    PUMP(1)%N_ref=0.0d0
            !end if
        
            Call Pump3_OnMode_Solver
        
            PUMP(3)%N_old = PUMP(3)%N_ref
       
        !==================================================================
        else
        
        
            PUMP(3)%Speed  = 0.0
        
            Call Pump_Solver(3)
                        
            Call Pump_Total_Counts
        
        
            Call Set_MP1SPMGauge( real((PUMP(3)%Speed/PUMP(3)%Trans_Ratio),8) )
            SPM1 = MP1SPMGauge
            PUMP(3)%SoundSPM = INT(PUMP(3)%Speed/PUMP(3)%Trans_Ratio)
            Call SetSoundMP3( PUMP(3)%SoundSPM )
        
        
        end if
        

end subroutine Pump3_OffMode_Solver