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.
67 Commits
2 Branches
136 MiB
 
 
 
 
 
 
Tree: b8be6355fe
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'b8be6355fe'
${ noResults }
SimulationCore2/Equipments/Pumps/Pumps_StartUp.i90

64 lines
4.4 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.     

  8.     

  9. !>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<

  10.     data%State%Pump(1)%FlowRatePerSTK  = data%Configuration%Pumps%MudPump1VolumetricOutput     !.1d0     ![bbl/stk]

  11.     data%State%Pump(1)%RateChange      = data%Configuration%Pumps%MudPump1PumpRateChange                 ![stk/min2  ??]

  12.     data%State%Pump(1)%DelayToShutdown = data%Configuration%Pumps%MudPump1DelayToShutdown                ![min]

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

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

  15.     data%State%Pump(1)%Max_Pressure    = data%Configuration%Pumps%MudPump1MaximumPressure  !6000.d0      ![psi]

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

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

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

  19.     

  20.     data%State%Pump(1)%RateChange = (data%State%Pump(1)%RateChange*data%State%Pump(1)%Trans_Ratio)/60.d0 ![rpm/s  ??]    24/60

  21.     data%State%Pump(1)%DelayToShutdown = data%State%Pump(1)%DelayToShutdown/60.d0                        ![s]

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

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

  24.     Call Pump_OffMode_Solver(1)  

  25.     

  26.     

  27. !>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<

  28.     data%State%Pump(2)%FlowRatePerSTK  = data%Configuration%Pumps%MudPump2VolumetricOutput     !.1d0     ![bbl/stk]

  29.     data%State%Pump(2)%RateChange      = data%Configuration%Pumps%MudPump2PumpRateChange                 ![stk/min2  ??]

  30.     data%State%Pump(2)%DelayToShutdown = data%Configuration%Pumps%MudPump2DelayToShutdown                ![min]

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

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

  33.     data%State%Pump(2)%Max_Pressure    = data%Configuration%Pumps%MudPump2MaximumPressure  !6000.d0      ![psi]

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

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

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

  37.     

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

  39.     data%State%Pump(2)%DelayToShutdown = data%State%Pump(2)%DelayToShutdown/60.d0                        ![s]

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

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

  42.     Call Pump_OffMode_Solver(2)

  43.     

  44.     

  45. !!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<

  46.     data%State%Pump(3)%FlowRatePerSTK  = data%Configuration%Pumps%CementPumpVolumetricOutput     !.1d0     ![bbl/stk]

  47.     data%State%Pump(3)%RateChange      = data%Configuration%Pumps%CementPumpPumpRateChange                 ![stk/min2  ??]

  48.     data%State%Pump(3)%DelayToShutdown = data%Configuration%Pumps%CementPumpDelayToShutdown                ![min]

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

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

  51.     data%State%Pump(3)%Max_Pressure    = data%Configuration%Pumps%CementPumpMaximumPressure  !6000.d0      ![psi]

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

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

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

  55.     

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

  57.     data%State%Pump(3)%DelayToShutdown = data%State%Pump(3)%DelayToShutdown/60.d0                          ![s]

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

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

  60.     Call Pump_OffMode_Solver(3)  

  61.     

  62.     

  63. end subroutine Pumps_StartUp