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

17 lines
452 B
Raw Blame History 

  1. subroutine Pump_Total_Counts

  2.     

  3.     use Pump_VARIABLES

  4.     use CPumpsVariables

  5.     use CDrillingConsoleVariables

  6.     use CDataDisplayConsoleVariables

  7.     use CSimulationVariables

  8. 

  9.     IMPLICIT NONE        

  10.      

  11.     

  12.     Total_Pump_GPM = PUMP(1)%Flow_Rate+PUMP(2)%Flow_Rate+PUMP(3)%Flow_Rate

  13.     Total_Pump_SPM = (PUMP(1)%Speed/PUMP(1)%Trans_Ratio)+(PUMP(2)%Speed/PUMP(2)%Trans_Ratio)+(PUMP(3)%Speed/PUMP(3)%Trans_Ratio)

  14.     

  15.     

  16.     

  17. end subroutine