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/Pump3_MainSolver.f90

41 lines
1.2 KiB
Raw Blame History 

  1. subroutine Pump3_MainSolver

  2.     

  3.     Use Pumps_VARIABLES

  4.     

  5.     Implicit none

  6.     

  7.     

  8.     

  9.               

  10.     if (PUMP(3)%Throttle<=0.d0) then

  11.         PUMP(3)%K_throttle = 1

  12.     end if

  13.               

  14.               

  15.     if((PUMP(3)%Switch==1) .and. (PUMP(3)%K_throttle==1) .and. (PUMP(3)%PowerFailMalf==0) .and. (PUMP(3)%Failure==0)) then

  16.                    

  17.         !========================== Pump 3 Rate limit ==========================

  18.         if (((PUMP(3)%N_new-PUMP(3)%N_old)/PUMP(3)%time_step)>PUMP(3)%RateChange) then

  19.             PUMP(3)%Speed =(PUMP(3)%RateChange*PUMP(3)%time_step)+PUMP(3)%N_old                     ![RPM]

  20.         else if (((PUMP(3)%N_old-PUMP(3)%N_new)/PUMP(3)%time_step)>PUMP(3)%RateChange) then

  21.             PUMP(3)%Speed = (-PUMP(3)%RateChange*PUMP(3)%time_step)+PUMP(3)%N_old

  22.         else

  23.             PUMP(3)%Speed = PUMP(3)%N_new

  24.         end if

  25.         !=======================================================================

  26.                        

  27.         Call Pump_OnMode_Solver(3)

  28.         

  29.     else

  30.         

  31.         Call Pump_OffMode_Solver(3)

  32.         PUMP(3)%K_throttle = 0

  33.     

  34.     end if

  35.     

  36.     

  37.     PUMP(3)%N_old = PUMP(3)%Speed

  38.     

  39.               

  40.               

  41. end subroutine Pump3_MainSolver