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/Pump_OffMode_Solver.i90

48 lines
2.9 KiB
Raw Blame History 

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

  2. subroutine Pump_OffMode_Solver(Pump_No)

  3.     

  4.     use SimulationVariables

  5.     

  6.     IMPLICIT NONE

  7.     INTEGER :: Pump_No

  8.     

  9.     

  10.     

  11.     data%State%Pump(Pump_No)%N_new = 0.d0

  12.     

  13. !========================== Pump Rate limit ==========================

  14.     if (((data%State%Pump(Pump_No)%N_new-data%State%Pump(Pump_No)%N_old)/data%State%Pump(Pump_No)%time_step)>data%State%Pump(Pump_No)%RateChange) then

  15.         data%State%Pump(Pump_No)%Speed =(data%State%Pump(Pump_No)%RateChange*data%State%Pump(Pump_No)%time_step)+data%State%Pump(Pump_No)%N_old

  16.     else if (((data%State%Pump(Pump_No)%N_old-data%State%Pump(Pump_No)%N_new)/data%State%Pump(Pump_No)%time_step)>data%State%Pump(Pump_No)%RateChange) then

  17.         data%State%Pump(Pump_No)%Speed = (-data%State%Pump(Pump_No)%RateChange*data%State%Pump(Pump_No)%time_step)+data%State%Pump(Pump_No)%N_old

  18.     else

  19.         data%State%Pump(Pump_No)%Speed = data%State%Pump(Pump_No)%N_new

  20.     end if

  21. !=======================================================================

  22.          

  23.         

  24.     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]

  25.     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]

  26. !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]

  27.     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)

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

  29. !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

  30.         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]

  31.         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]

  32.     end if

  33.         

  34.     data%State%Pump(Pump_No)%SoundSPM = INT(data%State%Pump(Pump_No)%Speed/data%State%Pump(Pump_No)%Trans_Ratio)

  35.         

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

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

  38.     Else

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

  40.     End if

  41.         

  42.    

  43.     

  44.         

  45.        

  46.         

  47. end subroutine Pump_OffMode_Solver