SimulationCore2/Equipments/Pumps/Pumps_Outputs.f90

subroutine Pumps_Outputs
    
    use CPumpsVariables
    use CDrillingConsoleVariables
    use CDataDisplayConsoleVariables
    use CSimulationVariables
    use Pumps_VARIABLES
    use MudSystem
    
	IMPLICIT NONE
    
    
    !>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    
    !Call SetSoundBlowerMP1(PUMP(1)%SoundBlower)
    ! DrillingConsole%MP1BLWR = 1
    ! Call OpenPump1()
    ! Call ClosePump1() 
    ! total_pumps%Total_Pump_GPM = 100
    ! total_pumps%Total_Pump_SPM =
    ! Call Set_MP1SPMGauge( sngl(1-PUMP(1)%SPMGaugeMalf)*real((PUMP(1)%Speed/PUMP(1)%Trans_Ratio),8) )
    ! DrillingWatch%SPM1 = MP1SPMGauge
    ! Call SetSoundMP1( PUMP(1)%SoundSPM )
    ! SCR1LED=1
    ! SCR2LED=1
    ! SCR3LED=1
    ! SCR4LED=1
    
    
    
    

    
    
    
    
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<
!
!    
!    
!    
!    
!    
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<
!  
  
    
    
    
    
end subroutine Pumps_Outputs