| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | EvapFluidCoolerType | = | ' ' | ||
| integer, | public | :: | EvapFluidCoolerType_Num | = | 0 | ||
| integer, | public | :: | PerformanceInputMethod_Num | = | 0 | ||
| logical, | public | :: | Available | = | .TRUE. | ||
| logical, | public | :: | ON | = | .TRUE. | ||
| real(kind=r64), | public | :: | DesignWaterFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignSprayWaterFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesWaterMassFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HighSpeedAirFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HighSpeedFanPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HighSpeedEvapFluidCoolerUA | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedAirFlowRate | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedAirFlowRateSizingFactor | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedFanPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedFanPowerSizingFactor | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedEvapFluidCoolerUA | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedEvapFluidCoolerUASizingFactor | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignEnteringWaterTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignEnteringAirTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DesignEnteringAirWetbulbTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | EvapFluidCoolerMassFlowRateMultiplier | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HeatRejectCapNomCapSizingRatio | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HighSpeedStandardDesignCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedStandardDesignCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedStandardDesignCapacitySizingFactor | = | 0.0d0 | ||
| real(kind=r64), | public | :: | HighSpeedUserSpecifiedDesignCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedUserSpecifiedDesignCapacity | = | 0.0d0 | ||
| real(kind=r64), | public | :: | LowSpeedUserSpecifiedDesignCapacitySizingFactor | = | 0.0d0 | ||
| real(kind=r64), | public | :: | Concentration | = | 0.0d0 | ||
| integer, | public | :: | FluidIndex | = | 0 | ||
| real(kind=r64), | public | :: | SizFac | = | 0.0d0 | ||
| integer, | public | :: | WaterInletNodeNum | = | 0 | ||
| integer, | public | :: | WaterOutletNodeNum | = | 0 | ||
| integer, | public | :: | OutdoorAirInletNodeNum | = | 0 | ||
| integer, | public | :: | BlowDownSchedulePtr | = | 0 | ||
| integer, | public | :: | HighMassFlowErrorCount | = | 0 | ||
| integer, | public | :: | HighMassFlowErrorIndex | = | 0 | ||
| integer, | public | :: | OutletWaterTempErrorCount | = | 0 | ||
| integer, | public | :: | OutletWaterTempErrorIndex | = | 0 | ||
| integer, | public | :: | SmallWaterMassFlowErrorCount | = | 0 | ||
| integer, | public | :: | SmallWaterMassFlowErrorIndex | = | 0 | ||
| integer, | public | :: | WMFRLessThanMinAvailErrCount | = | 0 | ||
| integer, | public | :: | WMFRLessThanMinAvailErrIndex | = | 0 | ||
| integer, | public | :: | WMFRGreaterThanMaxAvailErrCount | = | 0 | ||
| integer, | public | :: | WMFRGreaterThanMaxAvailErrIndex | = | 0 | ||
| integer, | public | :: | EvapFluidCoolerAFRRFailedCount | = | 0 | ||
| integer, | public | :: | EvapFluidCoolerAFRRFailedIndex | = | 0 | ||
| integer, | public | :: | CapacityControl | = | 0 | ||
| real(kind=r64), | public | :: | BypassFraction | = | 0.0d0 | ||
| integer, | public | :: | EvapLossMode | = | EvapLossByMoistTheory | ||
| integer, | public | :: | BlowdownMode | = | BlowdownByConcentration | ||
| integer, | public | :: | SchedIDBlowdown | = | 0 | ||
| integer, | public | :: | WaterTankID | = | 0 | ||
| integer, | public | :: | WaterTankDemandARRID | = | 0 | ||
| real(kind=r64), | public | :: | UserEvapLossFactor | = | 0.0d0 | ||
| real(kind=r64), | public | :: | DriftLossFraction | = | 0.0d0 | ||
| real(kind=r64), | public | :: | ConcentrationRatio | = | 0.0d0 | ||
| logical, | public | :: | SuppliedByWaterSystem | = | .false. | ||
| integer, | public | :: | LoopNum | = | 0 | ||
| integer, | public | :: | LoopSideNum | = | 0 | ||
| integer, | public | :: | BranchNum | = | 0 | ||
| integer, | public | :: | CompNum | = | 0 |
TYPE EvapFluidCoolerspecs
CHARACTER(len=MaxNameLength) :: Name = ' ' ! User identifier
CHARACTER(len=MaxNameLength) :: EvapFluidCoolerType = ' ' ! Type of evaporative fluid cooler
INTEGER :: EvapFluidCoolerType_Num = 0
INTEGER :: PerformanceInputMethod_Num = 0
LOGICAL :: Available = .TRUE. ! need an array of logicals--load identifiers of available equipment
LOGICAL :: ON = .TRUE. ! Simulate the machine at it's operating part load ratio
REAL(r64) :: DesignWaterFlowRate = 0.0d0 ! Design water flow rate through the evaporative fluid cooler [m3/s]
REAL(r64) :: DesignSprayWaterFlowRate = 0.0d0 ! Design spray water flow rate through the evaporative fluid cooler [m3/s]
REAL(r64) :: DesWaterMassFlowRate = 0.0d0 ! Design water flow rate through the evaporative fluid cooler [kg/s]
REAL(r64) :: HighSpeedAirFlowRate = 0.0d0 ! Air flow rate through evaporative fluid cooler at high speed [m3/s]
REAL(r64) :: HighSpeedFanPower = 0.0d0 ! Fan power at high fan speed [W]
REAL(r64) :: HighSpeedEvapFluidCoolerUA = 0.0d0 ! UA of evaporative fluid cooler at high fan speed [W/C]
REAL(r64) :: LowSpeedAirFlowRate = 0.0d0 ! Air flow rate through evaporative fluid cooler at low speed [m3/s]
REAL(r64) :: LowSpeedAirFlowRateSizingFactor =0.0d0 ! sizing factor for low speed air flow rate []
REAL(r64) :: LowSpeedFanPower = 0.0d0 ! Fan power at low fan speed [W]
REAL(r64) :: LowSpeedFanPowerSizingFactor = 0.0d0 ! Sizing factor for low speed fan power []
REAL(r64) :: LowSpeedEvapFluidCoolerUA = 0.0d0 ! UA of evaporative fluid cooler at low fan speed [W/C]
REAL(r64) :: LowSpeedEvapFluidCoolerUASizingFactor = 0.0d0 ! sizing factor for low speed UA []
REAL(r64) :: DesignEnteringWaterTemp = 0.0d0 ! Entering water temperature at design conditions
REAL(r64) :: DesignEnteringAirTemp = 0.0d0 ! Design inlet air dry-bulb temperature (C)
REAL(r64) :: DesignEnteringAirWetbulbTemp = 0.0d0 ! Design inlet air wet-bulb temperature (C)
REAL(r64) :: EvapFluidCoolerMassFlowRateMultiplier = 0.0d0 ! Maximum evaporative fluid cooler flow rate is
! this multiplier times design flow rate
REAL(r64) :: HeatRejectCapNomCapSizingRatio = 0.0d0 ! ratio of actual cap to nominal capacity []
REAL(r64) :: HighSpeedStandardDesignCapacity = 0.0d0 ! Standard Design Capacity of the evaporative fluid cooler [W]
! with entering water at 35C (95F),
! leaving water at 29.44C (85F), entering air at 25.56C (78F) wet-bulb
! temp and 35C (95F) dry-bulb temp, and water flow
! rate of 5.382E-8 m3/s per watt (3 gpm/ton)
REAL(r64) :: LowSpeedStandardDesignCapacity = 0.0d0 ! Standard Design Capacity of the evaporative fluid cooler [W]
! with entering water at 35C (95F),
! leaving water at 29.44C (85F), entering air at 25.56C (78F) wet-bulb
! temp and 35C (95F) dry-bulb temp, and water flow
! rate of 5.382E-8 m3/s per watt (3 gpm/ton)
REAL(r64) :: LowSpeedStandardDesignCapacitySizingFactor = 0.0d0 ! sizing factor for low speed capacity []
REAL(r64) :: HighSpeedUserSpecifiedDesignCapacity = 0.0d0 ! User specified design capacity [W]
REAL(r64) :: LowSpeedUserSpecifiedDesignCapacity = 0.0d0 ! User specified design capacity for at low speed for
! two speed fluid cooler[W]
REAL(r64) :: LowSpeedUserSpecifiedDesignCapacitySizingFactor = 0.0d0 ! sizing factor for low speed user capacity []
REAL(r64) :: Concentration = 0.0d0 ! fluid/glycol concentration - percent
INTEGER :: FluidIndex = 0 ! Index to Property arrays
REAL(r64) :: SizFac = 0.0d0 ! sizing factor
INTEGER :: WaterInletNodeNum = 0 ! Node number on the water inlet side of the evaporative fluid cooler
INTEGER :: WaterOutletNodeNum = 0 ! Node number on the water outlet side of the evaporative fluid cooler
INTEGER :: OutdoorAirInletNodeNum = 0 ! Node number of outdoor air inlet for the evaporative fluid cooler
INTEGER :: BlowDownSchedulePtr = 0 ! Pointer to blow down schedule
INTEGER :: HighMassFlowErrorCount = 0 ! Counter when mass flow rate is >
! Design*EvapFluidCoolerMassFlowRateMultiplier
INTEGER :: HighMassFlowErrorIndex = 0 ! Index for high mass flow recurring error message
INTEGER :: OutletWaterTempErrorCount = 0 ! Counter when outlet water temperature is < minimum allowed temperature
INTEGER :: OutletWaterTempErrorIndex = 0 ! Index for outlet water temperature recurring error message
INTEGER :: SmallWaterMassFlowErrorCount = 0 ! Counter when water mass flow rate is very small
INTEGER :: SmallWaterMassFlowErrorIndex = 0 ! Index for very small water mass flow rate recurring error message
INTEGER :: WMFRLessThanMinAvailErrCount = 0 ! Counter when water mass flow rate is less than minimum available
INTEGER :: WMFRLessThanMinAvailErrIndex = 0 ! Index for water mass flow rate less than minavail recurring message
INTEGER :: WMFRGreaterThanMaxAvailErrCount = 0 ! Counter when water mass flow rate is greater than minimum available
INTEGER :: WMFRGreaterThanMaxAvailErrIndex = 0 ! Index for water mass flow rate > minavail recurring message
INTEGER :: EvapFluidCoolerAFRRFailedCount = 0 ! Counter for air flow rate ratio out of bounds error
INTEGER :: EvapFluidCoolerAFRRFailedIndex = 0 ! Index for air flow rate ratio out of bounds error
!fluid bypass
INTEGER :: CapacityControl = 0 ! Type of capacity control for single speed cooling tower:
! 0 - FanCycling, 1 - FluidBypass
REAL(r64) :: BypassFraction = 0.0d0 ! Fraction of fluid bypass as a ratio of total fluid flow
! through the tower sump
!begin water system interactions
INTEGER :: EvapLossMode = EvapLossByMoistTheory ! sets how evaporative fluid cooler water evaporation is modeled
INTEGER :: BlowdownMode = BlowdownByConcentration ! sets how evaporative fluid cooler water blowdown is modeled
INTEGER :: SchedIDBlowdown = 0 ! index "pointer" to schedule of blowdown in [m3/s]
INTEGER :: WaterTankID = 0 ! index "pointer" to WaterStorage structure
INTEGER :: WaterTankDemandARRID = 0 ! index "pointer" to demand array inside WaterStorage structure
REAL(r64) :: UserEvapLossFactor = 0.0d0 ! simple model [%/Delt C]
REAL(r64) :: DriftLossFraction = 0.0d0
REAL(r64) :: ConcentrationRatio = 0.0d0 ! ratio of solids in blowdown vs make up water
LOGICAL :: SuppliedByWaterSystem = .false.
!end water system variables
!loop topology variables
INTEGER :: LoopNum = 0
INTEGER :: LoopSideNum = 0
INTEGER :: BranchNum = 0
INTEGER :: CompNum = 0
END TYPE EvapFluidCoolerspecs