mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
64 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: dbb110d1b9
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'dbb110d1b9'
${ noResults }
SimulationCore2/Equipments/Pumps/Pumps_StartUp.i90

51 lines
3.9 KiB
Raw Blame History 

  1. # 1 "/home/admin/SimulationCore2/Equipments/Pumps/Pumps_StartUp.f90"

  2. subroutine Pumps_StartUp

  3.     use CPumpsVariables

  4.     use CPumps

  5.     use SimulationVariables

  6. 	IMPLICIT NONE

  7. !>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<

  8.     data%State%Pump(1)%FlowRatePerSTK  = .04d0                              ![bbl]  !??????? motaghayere voroudi

  9. !data%State%Pump(1)%FlowRatePerSTK = data%State%Pump(1)%FlowRatePerSTK*0.0292d0      ![gpm]

  10.     data%State%Pump(1)%RateChange      = 4.d0                                 ![stk/min2  ??]   !??????? motaghayere voroudi

  11.     data%State%Pump(1)%Mech_Efficiency = data%Configuration%Pumps%MudPump1MechanicalEfficiency         ![dimensionless]

  12. !data%State%Pump(1)%Vol_Efficiency = MudPump1VolumetricEfficiency         !bayad hazf beshe ?

  13.     data%State%Pump(1)%Max_Pressure    = 6000.d0                               ![psi]  !??????? motaghayere voroudi

  14.     data%State%Pump(1)%MaxSPM          = data%Configuration%Pumps%MudPump1Maximum                      ![spm]

  15.     data%State%Pump(1)%Trans_Ratio     = 965.d0/data%State%Pump(1)%MaxSPM

  16.     data%State%Pump(1)%time_step       = 0.1d0                                !?????? niaz hast ya na??

  17.     

  18.     data%State%Pump(1)%RateChange = 193.d0!data%State%Pump(1)%RateChange*data%State%Pump(1)%Trans_Ratio    ! [rpm/min  ??]  ??????????????? rpm/s

  19.     data%State%Pump(1)%K_throttle = 0

  20.     data%State%Pump(1)%N_old      = 0.d0

  21.     Call Pump_OffMode_Solver(1)  

  22. !>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<

  23.     data%State%Pump(2)%FlowRatePerSTK  = .04d0                              ![bbl]  !??????? motaghayere voroudi

  24. !data%State%Pump(2)%FlowRatePerSTK = data%State%Pump(2)%FlowRatePerSTK*0.0292d0      ![gpm]

  25.     data%State%Pump(2)%RateChange      = 4.d0                                 ![stk/min2  ??]   !??????? motaghayere voroudi

  26.     data%State%Pump(2)%Mech_Efficiency = data%Configuration%Pumps%MudPump2MechanicalEfficiency         ![dimensionless]

  27. !data%State%Pump(2)%Vol_Efficiency = MudPump2VolumetricEfficiency         !bayad hazf beshe ?

  28.     data%State%Pump(2)%Max_Pressure    = 6000.d0                               ![psi]  !??????? motaghayere voroudi

  29.     data%State%Pump(2)%MaxSPM          = data%Configuration%Pumps%MudPump2Maximum                      ![spm]

  30.     data%State%Pump(2)%Trans_Ratio     = 965.d0/data%State%Pump(2)%MaxSPM

  31.     data%State%Pump(2)%time_step       = 0.1d0                                !?????? niaz hast ya na??

  32.     data%State%Pump(2)%RateChange = 193.d0!data%State%Pump(2)%RateChange*data%State%Pump(2)%Trans_Ratio    ! [rpm/min  ??]  ??????????????? rpm/s

  33.     data%State%Pump(2)%K_throttle = 0

  34.     data%State%Pump(2)%N_old      = 0.d0

  35.     Call Pump_OffMode_Solver(2)

  36. !!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<

  37.     data%State%Pump(3)%FlowRatePerSTK  = .04d0                              ![bbl]  !??????? motaghayere voroudi

  38. !data%State%Pump(3)%FlowRatePerSTK = data%State%Pump(3)%FlowRatePerSTK*0.0292d0      ![gpm]

  39.     data%State%Pump(3)%RateChange      = 4.d0                                 ![stk/min2  ??]   !??????? motaghayere voroudi

  40.     data%State%Pump(3)%Mech_Efficiency = data%Configuration%Pumps%CementPumpMechanicalEfficiency       ![dimensionless]

  41. !data%State%Pump(3)%Vol_Efficiency = CementPumpVolumetricEfficiency       !bayad hazf beshe ?

  42.     data%State%Pump(3)%Max_Pressure    = 6000.d0                               ![psi]  !??????? motaghayere voroudi

  43.     data%State%Pump(3)%MaxSPM          = data%Configuration%Pumps%CementPumpMaximum                    ![spm]

  44.     data%State%Pump(3)%Trans_Ratio     = 965.d0/data%State%Pump(3)%MaxSPM

  45.     data%State%Pump(3)%time_step       = 0.1d0                                !?????? niaz hast ya na??

  46.     data%State%Pump(3)%RateChange = 193.d0!data%State%Pump(3)%RateChange*data%State%Pump(3)%Trans_Ratio    ! [rpm/min  ??]  ??????????????? rpm/s

  47.     data%State%Pump(3)%K_throttle = 0

  48.     data%State%Pump(3)%N_old      = 0.d0

  49.     Call Pump_OffMode_Solver(3)  

  50. end subroutine Pumps_StartUp