mahmood19227
/
SimulationCore2
1
0
Forkuj 0
Kod Zgłoszenia 0 Oczekujące zmiany 0 Wydania 0 Wiki Aktywność
Simulation Core
Nie możesz wybrać więcej, niż 25 tematów Tematy muszą się zaczynać od litery lub cyfry, mogą zawierać myślniki ('-') i mogą mieć do 35 znaków.
66 Commity
2 Gałęzie
134 MiB
 
 
 
 
 
 
Drzewo: 9f0233da87
Gałęzie Tagi
${ item.name }
Utwórz gałąź ${ searchTerm }
z '9f0233da87'
${ noResults }
SimulationCore2/Equipments/Pumps/Pump_OnMode_Solver.i90

35 wiersze
2.3 KiB
Czysty Wina Historia 

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

  2. subroutine Pump_OnMode_Solver(Pump_No)

  3.     

  4.     use SimulationVariables

  5.     

  6.     IMPLICIT NONE

  7.     INTEGER :: Pump_No

  8.     

  9.     

  10.     

  11.     data%State%Pump(Pump_No)%Flow_Rate = data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0*(data%State%Pump(Pump_No)%Speed/data%State%Pump(Pump_No)%Trans_Ratio)                                 ![gpm]

  12.     data%State%Pump(Pump_No)%Max_FlowRate = data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0*data%State%Pump(Pump_No)%MaxSPM                                                                    ![gpm]

  13.     data%State%Pump(Pump_No)%HorsePower = ((data%State%Pump(Pump_No)%Flow_Rate/0.01d0)*data%State%Pump(Pump_No)%StandPipe_Pressure)/(168067.d0*data%State%Pump(Pump_No)%Mech_Efficiency)              ![HHP]

  14. !data%State%Pump(Pump_No)%Max_Horsepower = ((data%State%Pump(Pump_No)%Flow_Rate/0.01d0)*data%State%Pump(Pump_No)%Max_Pressure)/(168067.d0*data%State%Pump(Pump_No)%Mech_Efficiency)               ![HHP]

  15.     data%State%Pump(Pump_No)%Max_Horsepower = (data%State%Pump(Pump_No)%Flow_Rate*data%State%Pump(Pump_No)%Max_Pressure)/(1714.d0*data%State%Pump(Pump_No)%Mech_Efficiency)

  16. ! if ( data%State%Pump(Pump_No)%StandPipe_Pressure>data%State%Pump(Pump_No)%Max_Pressure ) then   ! in shart check shavad

  17. ! !if ( (data%State%Pump(Pump_No)%StandPipe_Pressure*data%State%Pump(Pump_No)%Flow_Rate)>(1714.d0*data%State%Pump(Pump_No)%Max_Horsepower*data%State%Pump(Pump_No)%Mech_Efficiency) ) then

  18. !     data%State%Pump(Pump_No)%Flow_Rate = (1714.d0*data%State%Pump(Pump_No)%Mech_Efficiency*data%State%Pump(Pump_No)%Max_Horsepower)/data%State%Pump(Pump_No)%StandPipe_Pressure                   ![gpm]

  19. !     data%State%Pump(Pump_No)%Speed     = ( data%State%Pump(Pump_No)%Flow_Rate/(data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0) )*data%State%Pump(Pump_No)%Trans_Ratio                     ![rpm]

  20. ! end if

  21.         

  22.     data%State%Pump(Pump_No)%SoundSPM = INT(data%State%Pump(Pump_No)%Speed/data%State%Pump(Pump_No)%Trans_Ratio)              ![SPM]                                                                        ![spm]

  23.     

  24.     If (data%State%Pump(Pump_No)%Flow_Rate>0.d0) Then

  25.         data%State%Pump(Pump_No)%Open_Close = 1

  26.     Else

  27.         data%State%Pump(Pump_No)%Open_Close = 0

  28.     End if

  29.     

  30.     

  31.     

  32.         

  33.         

  34. end subroutine Pump_OnMode_Solver