SimulationCore2/Equipments/Pumps/Pumps_TotalSolver.f90

subroutine Pumps_TotalSolver
    
    use SimulationVariables
    
    Implicit none
    
    
    
    data%State%MPumps%Total_Pump_Gpm = data%State%Pump(1)%Flow_Rate+data%State%Pump(2)%Flow_Rate+data%State%Pump(3)%Flow_Rate                                                           ![gpm]
    data%State%MPumps%Total_Pump_SPM = (data%State%Pump(1)%Speed/data%State%Pump(1)%Trans_Ratio)+(data%State%Pump(2)%Speed/data%State%Pump(2)%Trans_Ratio)+(data%State%Pump(3)%Speed/data%State%Pump(3)%Trans_Ratio)     ![stk/min]
    
    
              
end subroutine Pumps_TotalSolver