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.
22 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: e22107763a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e22107763a'
${ noResults }
SimulationCore2/Equipments/Pumps/Pump_OffMode_Solver.f90

46 lines
2.3 KiB
Raw Blame History 

  1. subroutine Pump_OffMode_Solver(Pump_No)

  2.     

  3.     Use Pumps_VARIABLES

  4.     

  5.     IMPLICIT NONE

  6.     INTEGER :: Pump_No

  7.     

  8.     

  9.     

  10.     PUMP(Pump_No)%N_new = 0.d0

  11.     

  12.     !========================== Pump Rate limit ==========================

  13.     if (((PUMP(Pump_No)%N_new-PUMP(Pump_No)%N_old)/PUMP(Pump_No)%time_step)>PUMP(Pump_No)%RateChange) then

  14.         PUMP(Pump_No)%Speed =(PUMP(Pump_No)%RateChange*PUMP(Pump_No)%time_step)+PUMP(Pump_No)%N_old

  15.     else if (((PUMP(Pump_No)%N_old-PUMP(Pump_No)%N_new)/PUMP(Pump_No)%time_step)>PUMP(Pump_No)%RateChange) then

  16.         PUMP(Pump_No)%Speed = (-PUMP(Pump_No)%RateChange*PUMP(Pump_No)%time_step)+PUMP(Pump_No)%N_old

  17.     else

  18.         PUMP(Pump_No)%Speed = PUMP(Pump_No)%N_new

  19.     end if

  20.     !=======================================================================

  21.          

  22.         

  23.     PUMP(Pump_No)%Flow_Rate = PUMP(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0*(PUMP(Pump_No)%Speed/PUMP(Pump_No)%Trans_Ratio)                                 ![gpm]

  24.     PUMP(Pump_No)%HorsePower = ((PUMP(Pump_No)%Flow_Rate/0.01d0)*PUMP(Pump_No)%StandPipe_Pressure)/(168067.d0*PUMP(Pump_No)%Mech_Efficiency)              ![HHP]

  25.     !PUMP(Pump_No)%Max_Horsepower = ((PUMP(Pump_No)%Flow_Rate/0.01d0)*PUMP(Pump_No)%Max_Pressure)/(168067.d0*PUMP(Pump_No)%Mech_Efficiency)               ![HHP]

  26.     PUMP(Pump_No)%Max_Horsepower = (PUMP(Pump_No)%Flow_Rate*PUMP(Pump_No)%Max_Pressure)/(1714.d0*PUMP(Pump_No)%Mech_Efficiency)

  27.     if ( PUMP(Pump_No)%StandPipe_Pressure>PUMP(Pump_No)%Max_Pressure ) then   ! in shart check shavad

  28.     !if ( (PUMP(Pump_No)%StandPipe_Pressure*PUMP(Pump_No)%Flow_Rate)>(1714.d0*PUMP(Pump_No)%Max_Horsepower*PUMP(Pump_No)%Mech_Efficiency) ) then

  29.         PUMP(Pump_No)%Flow_Rate = (1714.d0*PUMP(Pump_No)%Mech_Efficiency*PUMP(Pump_No)%Max_Horsepower)/PUMP(Pump_No)%StandPipe_Pressure                   ![gpm]

  30.         PUMP(Pump_No)%Speed     = ( PUMP(Pump_No)%Flow_Rate/(PUMP(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0) )*PUMP(Pump_No)%Trans_Ratio                     ![rpm]

  31.     end if

  32.         

  33.     PUMP(Pump_No)%SoundSPM = INT(PUMP(Pump_No)%Speed/PUMP(Pump_No)%Trans_Ratio)

  34.         

  35.     If (PUMP(Pump_No)%Flow_Rate>0.d0) Then

  36.         PUMP(Pump_No)%Open_Close = 1

  37.     Else

  38.         PUMP(Pump_No)%Open_Close = 0

  39.     End if

  40.         

  41.    

  42.     

  43.         

  44.        

  45.         

  46. end subroutine Pump_OffMode_Solver