# 1 "/home/admin/SimulationCore2/Equipments/Pumps/Pumps_VARIABLES.f90" MODULE Pumps_VARIABLES IMPLICIT NONE PUBLIC ! REAL , PARAMETER :: pi=3.14159265d0 Type, public:: Pumps_Var REAL :: Total_Pump_GPM, Total_Pump_SPM, Total_Stroke_Counter_For_Plot end Type Pumps_Var Type(Pumps_Var) :: MPumps !**************************************************************************************************** !**************** Define PUMP Array ************************************************************ TYPE, PUBLIC :: Pump_Var !***** Pump_VARIABLES *************************** INTEGER :: AssignmentSwitchh, Switch, K_throttle INTEGER :: PowerFailMalf , BlowPopOffMalf , SPMGaugeMalf , Failure REAL :: Throttle, RateChange, DelayToShutdown REAL :: Mech_Efficiency, Vol_Efficiency, Trans_Ratio REAL :: StandPipe_Pressure , Max_Pressure REAL :: Speed, N_new, N_old, MaxSPM REAL :: Flow_Rate, Hydraulic_HorsePower, Max_Horsepower, FlowRatePerSTK, Max_FlowRate, HorsePower REAL :: time_step INTEGER :: BLWR ! 1=On , 0=Off INTEGER :: Open_Close ! 1=Open , 0=Close !************* Sound_VARIABLES ********************** INTEGER :: SoundSPM Logical :: SoundBlower END TYPE Pump_Var !*********************************************************************************************** !*********************************************************************************************** END MODULE Pumps_VARIABLES