SimulationCore2/Equipments/Pumps/Pumps_StartUp.f90

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