SimulationCore2/Equipments/Pumps/Pumps_StartUp.f90

subroutine Pumps_StartUp
    
    Use CPumpsVariables
    Use Pumps_VARIABLES
    
	IMPLICIT NONE
    
    
  
    
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    PUMP(1)%FlowRatePerSTK  = 7000.d0                              ![bbl]  !??????? motaghayere voroudi
    !PUMP(1)%FlowRatePerSTK = PUMP(1)%FlowRatePerSTK*0.0292d0      ![gpm]
    PUMP(1)%RateChange      = 4.d0                                 ![stk/min2  ??]   !??????? motaghayere voroudi
    PUMP(1)%Mech_Efficiency = PumpsSpecification%MudPump1MechanicalEfficiency         ![dimensionless]
    !PUMP(1)%Vol_Efficiency = MudPump1VolumetricEfficiency         !bayad hazf beshe ?
    PUMP(1)%Max_Pressure    = 600.d0                               ![psi]  !??????? motaghayere voroudi
    PUMP(1)%MaxSPM          = PumpsSpecification%MudPump1Maximum                      ![spm]
    PUMP(1)%Trans_Ratio     = 965.d0/PUMP(1)%MaxSPM
    PUMP(1)%time_step       = 0.1d0                                !?????? niaz hast ya na??
    
    PUMP(1)%RateChange = 193.d0!PUMP(1)%RateChange*PUMP(1)%Trans_Ratio    ! [rpm/min  ??]  ??????????????? rpm/s
    PUMP(1)%K_throttle = 0
    PUMP(1)%N_old      = 0.d0
    Call Pump_OffMode_Solver(1)  
    
    
    
    
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    PUMP(2)%FlowRatePerSTK  = 7000.d0                              ![bbl]  !??????? motaghayere voroudi
    !PUMP(2)%FlowRatePerSTK = PUMP(2)%FlowRatePerSTK*0.0292d0      ![gpm]
    PUMP(2)%RateChange      = 4.d0                                 ![stk/min2  ??]   !??????? motaghayere voroudi
    PUMP(2)%Mech_Efficiency = PumpsSpecification%MudPump2MechanicalEfficiency         ![dimensionless]
    !PUMP(2)%Vol_Efficiency = MudPump2VolumetricEfficiency         !bayad hazf beshe ?
    PUMP(2)%Max_Pressure    = 600.d0                               ![psi]  !??????? motaghayere voroudi
    PUMP(2)%MaxSPM          = PumpsSpecification%MudPump2Maximum                      ![spm]
    PUMP(2)%Trans_Ratio     = 965.d0/PUMP(2)%MaxSPM
    PUMP(2)%time_step       = 0.1d0                                !?????? niaz hast ya na??
    
    PUMP(2)%RateChange = 193.d0!PUMP(2)%RateChange*PUMP(2)%Trans_Ratio    ! [rpm/min  ??]  ??????????????? rpm/s
    PUMP(2)%K_throttle = 0
    PUMP(2)%N_old      = 0.d0
    Call Pump_OffMode_Solver(2)  
    
    
    
    
    
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    PUMP(3)%FlowRatePerSTK  = 7000.d0                              ![bbl]  !??????? motaghayere voroudi
    !PUMP(3)%FlowRatePerSTK = PUMP(3)%FlowRatePerSTK*0.0292d0      ![gpm]
    PUMP(3)%RateChange      = 4.d0                                 ![stk/min2  ??]   !??????? motaghayere voroudi
    PUMP(3)%Mech_Efficiency = PumpsSpecification%CementPumpMechanicalEfficiency       ![dimensionless]
    !PUMP(3)%Vol_Efficiency = CementPumpVolumetricEfficiency       !bayad hazf beshe ?
    PUMP(3)%Max_Pressure    = 600.d0                               ![psi]  !??????? motaghayere voroudi
    PUMP(3)%MaxSPM          = PumpsSpecification%CementPumpMaximum                    ![spm]
    PUMP(3)%Trans_Ratio     = 965.d0/PUMP(3)%MaxSPM
    PUMP(3)%time_step       = 0.1d0                                !?????? niaz hast ya na??
    
    PUMP(3)%RateChange = 193.d0!PUMP(3)%RateChange*PUMP(3)%Trans_Ratio    ! [rpm/min  ??]  ??????????????? rpm/s
    PUMP(3)%K_throttle = 0
    PUMP(3)%N_old      = 0.d0
    Call Pump_OffMode_Solver(3)  
    
    
    
    
    
end subroutine Pumps_StartUp