SimulationCore2/Equipments/Pumps/Pumps_TotalSolver.f90

subroutine Pumps_TotalSolver
    
    Use Pumps_VARIABLES
    
    Implicit none
    
    
    
    MPumps%Total_Pump_Gpm = PUMP(1)%Flow_Rate+PUMP(2)%Flow_Rate+PUMP(3)%Flow_Rate                                                           ![gpm]
    MPumps%Total_Pump_SPM = (PUMP(1)%Speed/PUMP(1)%Trans_Ratio)+(PUMP(2)%Speed/PUMP(2)%Trans_Ratio)+(PUMP(3)%Speed/PUMP(3)%Trans_Ratio)     ![stk/min]
    
    
              
end subroutine Pumps_TotalSolver