SimulationCore2/Equipments/Pumps/Pumps_Inputs.f90

subroutine Pumps_Inputs
    
    !use CPumpsVariables
    !use CDrillingConsoleVariables
    !use CDataDisplayConsoleVariables
    !use CSimulationVariables
    use Pumps_VARIABLES
    !use MudSystem

	IMPLICIT NONE
    
    
    !>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<

    PUMP(1)%StandPipe_Pressure = 25.e0!PumpPressure1       ![psi]
    
    PUMP(1)%AssignmentSwitchh = 1!AssignmentSwitch
    
    PUMP(1)%Switch   = -1!MP1CPSwitch
    
    PUMP(1)%Throttle = 0.e0!MP1Throttle  ![RPM]
    
    PUMP(1)%PowerFailMalf = 1  !??????? motaghayere voroudi   (Pump1 Malfunction ----> Power Failure)
    
    PUMP(1)%Failure = 0!Pump1Failure     (Pump1 Warning ----> Failure)
    
    Pumps_IsStopped = .false.!IsStopped
    
    PUMP(1)%N_new    = PUMP(1)%Throttle
    
    
    
    

    
    
    
    
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<
!
!    PUMP(2)%StandPipe_Pressure = PumpPressure2       ![psi]
!    
!    
!    
!    
!    
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<
!  
!    PUMP(3)%StandPipe_Pressure = PumpPressure3       ![psi]
  
    
    
    
    
end subroutine Pumps_Inputs