WaterCoilEquipConditions Derived Type

type, public :: WaterCoilEquipConditions

Variables

Name WaterCoilTypeA WaterCoilModelA WaterCoilType WaterCoilModel WaterCoilType_Num Schedule SchedPtr RequestingAutoSize InletAirMassFlowRate OutletAirMassFlowRate InletAirTemp OutletAirTemp InletAirHumRat OutletAirHumRat InletAirEnthalpy OutletAirEnthalpy TotWaterCoilLoad SenWaterCoilLoad TotWaterHeatingCoilEnergy TotWaterCoolingCoilEnergy SenWaterCoolingCoilEnergy DesWaterHeatingCoilRate TotWaterHeatingCoilRate DesWaterCoolingCoilRate TotWaterCoolingCoilRate SenWaterCoolingCoilRate UACoil LeavingRelHum DesiredOutletTemp DesiredOutletHumRat InletWaterTemp OutletWaterTemp InletWaterMassFlowRate OutletWaterMassFlowRate MaxWaterVolFlowRate MaxWaterMassFlowRate InletWaterEnthalpy OutletWaterEnthalpy TubeOutsideSurfArea TotTubeInsideArea FinSurfArea MinAirFlowArea CoilDepth FinDiam FinThickness TubeInsideDiam TubeOutsideDiam TubeThermConductivity FinThermConductivity FinSpacing TubeDepthSpacing NumofTubeRows NumofTubesperRow EffectiveFinDiam TotCoilOutsideSurfArea CoilEffectiveInsideDiam GeometryCoef1 GeometryCoef2 DryFinEfficncyCoef SatEnthlCurveConstCoef SatEnthlCurveSlope EnthVsTempCurveAppxSlope EnthVsTempCurveConst MeanWaterTempSaved InWaterTempSaved OutWaterTempSaved SurfAreaWetSaved SurfAreaWetFraction DesInletWaterTemp DesAirVolFlowRate DesInletAirTemp DesInletAirHumRat DesTotWaterCoilLoad DesSenWaterCoilLoad DesAirMassFlowRate UACoilTotal UACoilInternal UACoilExternal UACoilInternalDes UACoilExternalDes DesOutletAirTemp DesOutletAirHumRat DesOutletWaterTemp HeatExchType CoolingCoilAnalysisMode UACoilInternalPerUnitArea UAWetExtPerUnitArea UADryExtPerUnitArea SurfAreaWetFractionSaved UACoilVariable RatioAirSideToWaterSideConvect AirSideNominalConvect LiquidSideNominalConvect Control AirInletNodeNum AirOutletNodeNum WaterInletNodeNum WaterOutletNodeNum WaterLoopNum WaterLoopSide WaterLoopBranchNum WaterLoopCompNum CondensateCollectMode CondensateCollectName CondensateTankID CondensateTankSupplyARRID CondensateVdot CondensateVol CoilPerfInpMeth

Source Code

WaterCoilEquipConditions

Components

Type	Visibility		Name		Initial
character(len=MaxNameLength),	public	::	Name	=	' '
character(len=10),	public	::	WaterCoilTypeA	=	' '
character(len=20),	public	::	WaterCoilModelA	=	' '
integer,	public	::	WaterCoilType	=	0
integer,	public	::	WaterCoilModel	=	0
integer,	public	::	WaterCoilType_Num	=	0
character(len=MaxNameLength),	public	::	Schedule	=	' '
integer,	public	::	SchedPtr	=	0
logical,	public	::	RequestingAutoSize	=	.false.
real(kind=r64),	public	::	InletAirMassFlowRate	=	0.0d0
real(kind=r64),	public	::	OutletAirMassFlowRate	=	0.0d0
real(kind=r64),	public	::	InletAirTemp	=	0.0d0
real(kind=r64),	public	::	OutletAirTemp	=	0.0d0
real(kind=r64),	public	::	InletAirHumRat	=	0.0d0
real(kind=r64),	public	::	OutletAirHumRat	=	0.0d0
real(kind=r64),	public	::	InletAirEnthalpy	=	0.0d0
real(kind=r64),	public	::	OutletAirEnthalpy	=	0.0d0
real(kind=r64),	public	::	TotWaterCoilLoad	=	0.0d0
real(kind=r64),	public	::	SenWaterCoilLoad	=	0.0d0
real(kind=r64),	public	::	TotWaterHeatingCoilEnergy	=	0.0d0
real(kind=r64),	public	::	TotWaterCoolingCoilEnergy	=	0.0d0
real(kind=r64),	public	::	SenWaterCoolingCoilEnergy	=	0.0d0
real(kind=r64),	public	::	DesWaterHeatingCoilRate	=	0.0d0
real(kind=r64),	public	::	TotWaterHeatingCoilRate	=	0.0d0
real(kind=r64),	public	::	DesWaterCoolingCoilRate	=	0.0d0
real(kind=r64),	public	::	TotWaterCoolingCoilRate	=	0.0d0
real(kind=r64),	public	::	SenWaterCoolingCoilRate	=	0.0d0
real(kind=r64),	public	::	UACoil	=	0.0d0
real(kind=r64),	public	::	LeavingRelHum	=	0.0d0
real(kind=r64),	public	::	DesiredOutletTemp	=	0.0d0
real(kind=r64),	public	::	DesiredOutletHumRat	=	0.0d0
real(kind=r64),	public	::	InletWaterTemp	=	0.0d0
real(kind=r64),	public	::	OutletWaterTemp	=	0.0d0
real(kind=r64),	public	::	InletWaterMassFlowRate	=	0.0d0
real(kind=r64),	public	::	OutletWaterMassFlowRate	=	0.0d0
real(kind=r64),	public	::	MaxWaterVolFlowRate	=	0.0d0
real(kind=r64),	public	::	MaxWaterMassFlowRate	=	0.0d0
real(kind=r64),	public	::	InletWaterEnthalpy	=	0.0d0
real(kind=r64),	public	::	OutletWaterEnthalpy	=	0.0d0
real(kind=r64),	public	::	TubeOutsideSurfArea	=	0.0d0
real(kind=r64),	public	::	TotTubeInsideArea	=	0.0d0
real(kind=r64),	public	::	FinSurfArea	=	0.0d0
real(kind=r64),	public	::	MinAirFlowArea	=	0.0d0
real(kind=r64),	public	::	CoilDepth	=	0.0d0
real(kind=r64),	public	::	FinDiam	=	0.0d0
real(kind=r64),	public	::	FinThickness	=	0.0d0
real(kind=r64),	public	::	TubeInsideDiam	=	0.0d0
real(kind=r64),	public	::	TubeOutsideDiam	=	0.0d0
real(kind=r64),	public	::	TubeThermConductivity	=	0.0d0
real(kind=r64),	public	::	FinThermConductivity	=	0.0d0
real(kind=r64),	public	::	FinSpacing	=	0.0d0
real(kind=r64),	public	::	TubeDepthSpacing	=	0.0d0
integer,	public	::	NumofTubeRows	=	0
integer,	public	::	NumofTubesperRow	=	0
real(kind=r64),	public	::	EffectiveFinDiam	=	0.0d0
real(kind=r64),	public	::	TotCoilOutsideSurfArea	=	0.0d0
real(kind=r64),	public	::	CoilEffectiveInsideDiam	=	0.0d0
real(kind=r64),	public	::	GeometryCoef1	=	0.0d0
real(kind=r64),	public	::	GeometryCoef2	=	0.0d0
real(kind=r64),	public	::	DryFinEfficncyCoef(5)	=	0.0d0
real(kind=r64),	public	::	SatEnthlCurveConstCoef	=	0.0d0
real(kind=r64),	public	::	SatEnthlCurveSlope	=	0.0d0
real(kind=r64),	public	::	EnthVsTempCurveAppxSlope	=	0.0d0
real(kind=r64),	public	::	EnthVsTempCurveConst	=	0.0d0
real(kind=r64),	public	::	MeanWaterTempSaved	=	0.0d0
real(kind=r64),	public	::	InWaterTempSaved	=	0.0d0
real(kind=r64),	public	::	OutWaterTempSaved	=	0.0d0
real(kind=r64),	public	::	SurfAreaWetSaved	=	0.0d0
real(kind=r64),	public	::	SurfAreaWetFraction	=	0.0d0
real(kind=r64),	public	::	DesInletWaterTemp	=	0.0d0
real(kind=r64),	public	::	DesAirVolFlowRate	=	0.0d0
real(kind=r64),	public	::	DesInletAirTemp	=	0.0d0
real(kind=r64),	public	::	DesInletAirHumRat	=	0.0d0
real(kind=r64),	public	::	DesTotWaterCoilLoad	=	0.0d0
real(kind=r64),	public	::	DesSenWaterCoilLoad	=	0.0d0
real(kind=r64),	public	::	DesAirMassFlowRate	=	0.0d0
real(kind=r64),	public	::	UACoilTotal	=	0.0d0
real(kind=r64),	public	::	UACoilInternal	=	0.0d0
real(kind=r64),	public	::	UACoilExternal	=	0.0d0
real(kind=r64),	public	::	UACoilInternalDes	=	0.0d0
real(kind=r64),	public	::	UACoilExternalDes	=	0.0d0
real(kind=r64),	public	::	DesOutletAirTemp	=	0.0d0
real(kind=r64),	public	::	DesOutletAirHumRat	=	0.0d0
real(kind=r64),	public	::	DesOutletWaterTemp	=	0.0d0
integer,	public	::	HeatExchType	=	0
integer,	public	::	CoolingCoilAnalysisMode	=	0
real(kind=r64),	public	::	UACoilInternalPerUnitArea	=	0.0d0
real(kind=r64),	public	::	UAWetExtPerUnitArea	=	0.0d0
real(kind=r64),	public	::	UADryExtPerUnitArea	=	0.0d0
real(kind=r64),	public	::	SurfAreaWetFractionSaved	=	0.0d0
real(kind=r64),	public	::	UACoilVariable	=	0.d0
real(kind=r64),	public	::	RatioAirSideToWaterSideConvect	=	1.d0
real(kind=r64),	public	::	AirSideNominalConvect	=	0.d0
real(kind=r64),	public	::	LiquidSideNominalConvect	=	0.d0
integer,	public	::	Control	=	0
integer,	public	::	AirInletNodeNum	=	0
integer,	public	::	AirOutletNodeNum	=	0
integer,	public	::	WaterInletNodeNum	=	0
integer,	public	::	WaterOutletNodeNum	=	0
integer,	public	::	WaterLoopNum	=	0
integer,	public	::	WaterLoopSide	=	0
integer,	public	::	WaterLoopBranchNum	=	0
integer,	public	::	WaterLoopCompNum	=	0
integer,	public	::	CondensateCollectMode	=	CondensateDiscarded
character(len=MaxNameLength),	public	::	CondensateCollectName	=	' '
integer,	public	::	CondensateTankID	=	0
integer,	public	::	CondensateTankSupplyARRID	=	0
real(kind=r64),	public	::	CondensateVdot	=	0.0d0
real(kind=r64),	public	::	CondensateVol	=	0.0d0
integer,	public	::	CoilPerfInpMeth	=	0

Source Code

TYPE WaterCoilEquipConditions
  CHARACTER(len=MaxNameLength) :: Name           = ' ' ! Name of the WaterCoil
  CHARACTER(len=10)           :: WaterCoilTypeA  = ' ' ! Type of WaterCoil ie. Heating or Cooling
  CHARACTER(len=20)           :: WaterCoilModelA = ' ' ! Type of WaterCoil ie. Simple, Detailed, etc.
  INTEGER      :: WaterCoilType                  = 0    ! Type of WaterCoil ie. Heating or Cooling
  INTEGER      :: WaterCoilModel                 = 0    ! Type of WaterCoil ie. Simple, Detailed, etc.
  INTEGER                   :: WaterCoilType_Num = 0
  CHARACTER(len=MaxNameLength) :: Schedule       = ' ' ! WaterCoil Operation Schedule
  INTEGER      :: SchedPtr                       = 0   ! Pointer to the correct schedule
  LOGICAL      :: RequestingAutoSize             = .false.  ! True if this coil has appropriate autosize fields
  REAL(r64)    :: InletAirMassFlowRate           = 0.0d0 ! MassFlow through the WaterCoil being Simulated [kg/s]
  REAL(r64)    :: OutletAirMassFlowRate          = 0.0d0 ! MassFlow throught the WaterCoil being Simulated[kg/s]
  REAL(r64)    :: InletAirTemp                   = 0.0d0 ! Inlet Air Temperature Operating Condition [C]
  REAL(r64)    :: OutletAirTemp                  = 0.0d0 ! Outlet Air Temperature Operating Condition [C]
  REAL(r64)    :: InletAirHumRat                 = 0.0d0 ! Inlet Air Humidity Ratio Operating Condition
  REAL(r64)    :: OutletAirHumRat                = 0.0d0 ! Outlet Air Humidity Ratio Calculated Condition
  REAL(r64)    :: InletAirEnthalpy               = 0.0d0 ! Inlet Air enthalpy [J/kg]
  REAL(r64)    :: OutletAirEnthalpy              = 0.0d0 ! Outlet Air enthalpy [J/kg]
  REAL(r64)    :: TotWaterCoilLoad               = 0.0d0 ! Total Load on the Coil [W]
  REAL(r64)    :: SenWaterCoilLoad               = 0.0d0 ! Sensible Load on the Coil [W]
  REAL(r64)    :: TotWaterHeatingCoilEnergy      = 0.0d0 ! Total Heating Coil energy of the Coil [J]
  REAL(r64)    :: TotWaterCoolingCoilEnergy      = 0.0d0 ! Total Cooling Coil energy of the Coil [J]
  REAL(r64)    :: SenWaterCoolingCoilEnergy      = 0.0d0 ! Sensible Cooling Coil energy of the Coil [J]
  REAL(r64)    :: DesWaterHeatingCoilRate        = 0.0d0 ! Design Heating Coil Rate used for sizing [W]
  REAL(r64)    :: TotWaterHeatingCoilRate        = 0.0d0 ! Total Heating Coil Rate on the Coil [W]
  REAL(r64)    :: DesWaterCoolingCoilRate        = 0.0d0 ! Design Cooling Coil Rate used for sizing [W]
  REAL(r64)    :: TotWaterCoolingCoilRate        = 0.0d0 ! Total Cooling Coil Rate on the Coil [W]
  REAL(r64)    :: SenWaterCoolingCoilRate        = 0.0d0 ! Sensible Cooling Coil Rate on the Coil [W]
  REAL(r64)    :: UACoil                         = 0.0d0 ! WaterCoil UA Value
  REAL(r64)    :: LeavingRelHum                  = 0.0d0 ! Simple Coil Latent Model requires User input for leaving RH
  REAL(r64)    :: DesiredOutletTemp              = 0.0d0 !
  REAL(r64)    :: DesiredOutletHumRat            = 0.0d0 !
  REAL(r64)    :: InletWaterTemp                 = 0.0d0 ! Inlet Water Temperature [C]
  REAL(r64)    :: OutletWaterTemp                = 0.0d0 ! Outlet Water Temperature [C]
  REAL(r64)    :: InletWaterMassFlowRate         = 0.0d0 ! Inlet Water Mass Flow Rate [Kg/s]
  REAL(r64)    :: OutletWaterMassFlowRate        = 0.0d0 ! Outlet Water Mass Flow Rate [Kg/s]
  REAL(r64)    :: MaxWaterVolFlowRate            = 0.0d0 ! Maximum water Volume flow rate [m3/s]
  REAL(r64)    :: MaxWaterMassFlowRate           = 0.0d0 ! Maximum water mass flow rate [Kg/s]
  REAL(r64)    :: InletWaterEnthalpy             = 0.0d0 ! Inlet Water Enthalpy
  REAL(r64)    :: OutletWaterEnthalpy            = 0.0d0 ! Outlet Water Enthalpy
  !These are the additional Geometry and Design Variables for Detailed Flat Fin Coil
  REAL(r64)    :: TubeOutsideSurfArea            = 0.0d0 !Tube Primary Surface Area
  REAL(r64)    :: TotTubeInsideArea              = 0.0d0 !Total Tube inside Surface Area
  REAL(r64)    :: FinSurfArea                    = 0.0d0 !Fin Surface Area
  REAL(r64)    :: MinAirFlowArea                 = 0.0d0 !
  REAL(r64)    :: CoilDepth                      = 0.0d0 !
  REAL(r64)    :: FinDiam                        = 0.0d0 !Fin Diameter or the Coil Height
  REAL(r64)    :: FinThickness                   = 0.0d0 !
  REAL(r64)    :: TubeInsideDiam                 = 0.0d0 !Inner diameter of Tubes
  REAL(r64)    :: TubeOutsideDiam                = 0.0d0 !Outer Diameter of the Tubes
  REAL(r64)    :: TubeThermConductivity          = 0.0d0 !
  REAL(r64)    :: FinThermConductivity           = 0.0d0 !
  REAL(r64)    :: FinSpacing                     = 0.0d0 !Fin Spacing or Distance
  REAL(r64)    :: TubeDepthSpacing               = 0.0d0 !
  INTEGER      :: NumofTubeRows                  = 0   !
  INTEGER      :: NumofTubesperRow               = 0   !
  !BEGIN calculated parameters for detailed flat fin coil
  REAL(r64)    :: EffectiveFinDiam               = 0.0d0 !
  REAL(r64)    :: TotCoilOutsideSurfArea         = 0.0d0 !
  REAL(r64)    :: CoilEffectiveInsideDiam        = 0.0d0 !
  REAL(r64)    :: GeometryCoef1                  = 0.0d0 !
  REAL(r64)    :: GeometryCoef2                  = 0.0d0 !
  REAL(r64)    :: DryFinEfficncyCoef(5)          = 0.0d0 !
  REAL(r64)    :: SatEnthlCurveConstCoef         = 0.0d0 !
  REAL(r64)    :: SatEnthlCurveSlope             = 0.0d0 !
  REAL(r64)    :: EnthVsTempCurveAppxSlope       = 0.0d0 !
  REAL(r64)    :: EnthVsTempCurveConst           = 0.0d0 !
  REAL(r64)    :: MeanWaterTempSaved             = 0.0d0 !
  REAL(r64)    :: InWaterTempSaved               = 0.0d0 !
  REAL(r64)    :: OutWaterTempSaved              = 0.0d0 !
  REAL(r64)    :: SurfAreaWetSaved               = 0.0d0 !
  REAL(r64)    :: SurfAreaWetFraction            = 0.0d0 !
  !END calculated parameters for detailed flat fin coil
  ! Design Input Variables to the Design Detailed Simple inputs model
  REAL(r64)    :: DesInletWaterTemp         = 0.0d0 ! Entering water temperature at Design(C)
  REAL(r64)    :: DesAirVolFlowRate         = 0.0d0 ! Entering Air Volume Flow Rate Design( m3/s)
  REAL(r64)    :: DesInletAirTemp           = 0.0d0 ! Entering air dry bulb temperature at Design(C)
  REAL(r64)    :: DesInletAirHumRat         = 0.0d0 ! Entering air humidity ratio at design conditions
  REAL(r64)    :: DesTotWaterCoilLoad       = 0.0d0 ! Total heat transfer rate at Design(Watt)
  REAL(r64)    :: DesSenWaterCoilLoad       = 0.0d0 ! Sensible heat transfer rate at Design(Watt)
  !BEGIN calculated parameters for Design Detailed Simple inputs model
  REAL(r64)    :: DesAirMassFlowRate        = 0.0d0 ! Design Air MassFlow through the WaterCoil [kg/Sec]
  REAL(r64)    :: UACoilTotal               = 0.0d0 ! Overall external dry UA (W/C)
  REAL(r64)    :: UACoilInternal            = 0.0d0 ! Overall internal UA(W/C)
  REAL(r64)    :: UACoilExternal            = 0.0d0 ! Overall external heat transfer coefficient(W/C)
  REAL(r64)    :: UACoilInternalDes         = 0.0d0 ! Overall design internal UA(W/C)
  REAL(r64)    :: UACoilExternalDes         = 0.0d0 ! Overall design external heat transfer coefficient(W/C)
  REAL(r64)    :: DesOutletAirTemp          = 0.0d0 ! Leaving air temperature at rating(C)
  REAL(r64)    :: DesOutletAirHumRat        = 0.0d0 ! Humidity ratio of air leaving at design capacity.
  REAL(r64)    :: DesOutletWaterTemp        = 0.0d0 ! Temp of Liquid Leaving the Coil at design Capacity
  INTEGER      :: HeatExchType              = 0   ! Heat exchanger configuration, default to Cross Flow
  INTEGER      :: CoolingCoilAnalysisMode   = 0   ! Mode Of analysis, Simple=1 and Detailed =2
                                                  !    Simple= AllWet-AllDry, Detailed= PartWet-PartDry
  REAL(r64)    :: UACoilInternalPerUnitArea = 0.0d0 ! Internal overall heat transfer coefficient(W/m2 C)
  REAL(r64)    :: UAWetExtPerUnitArea       = 0.0d0 ! External overall heat transfer coefficient(W/m2 C)
  REAL(r64)    :: UADryExtPerUnitArea       = 0.0d0 ! External overall heat transfer coefficient(W/m2 C)
  REAL(r64)    :: SurfAreaWetFractionSaved  = 0.0d0 ! Previous saved value, for numerical efficiency.
  !END calculated parameters for Design Inputs Detailed coil

  ! variables for simple heating coil with variable UA
  REAL(r64)    :: UACoilVariable                 = 0.d0 ! WaterCoil UA value when variable (simple heating coil only)
  REAL(r64)    :: RatioAirSideToWaterSideConvect = 1.d0 !"r" value for coil,
  REAL(r64)    :: AirSideNominalConvect          = 0.d0 ! nominal rating point air side convection term (fin_effic*(hc*A))
  REAL(r64)    :: LiquidSideNominalConvect       = 0.d0 ! nominal rating point water side convection term (hc*A)

  INTEGER      :: Control                        = 0   !Const Vol =1;  Variable Vol = 2
  INTEGER      :: AirInletNodeNum                = 0   !
  INTEGER      :: AirOutletNodeNum               = 0   !
  INTEGER      :: WaterInletNodeNum              = 0   !
  INTEGER      :: WaterOutletNodeNum             = 0   !
  INTEGER      :: WaterLoopNum                   = 0   ! Plant loop index
  INTEGER      :: WaterLoopSide                  = 0   ! Plant loop side index
  INTEGER      :: WaterLoopBranchNum             = 0   ! Plant loop branch index
  INTEGER      :: WaterLoopCompNum               = 0   ! Plant loop Comp index

  !begin variables for Water System interactions
  INTEGER ::CondensateCollectMode                 = CondensateDiscarded !  where does water come from
  CHARACTER(len=MaxNameLength) :: CondensateCollectName = ' ' ! name of water source e.g. water storage tank
  INTEGER ::CondensateTankID                      = 0 !index "pointer" to Storage TAnk array WaterStorage
  INTEGER ::CondensateTankSupplyARRID             = 0 !index pointe to supply Vdot array in WaterStorage
  REAL(r64)   :: CondensateVdot = 0.0d0 ! rate of water condensation from air stream [m3/s]
  REAL(r64)   :: CondensateVol  = 0.0d0 ! amount of water condensed from air stream [m3]
  !end variables for water system interactions

  !COIL:Water:SimpleHeating Coil Performance Input Method
  INTEGER :: CoilPerfInpMeth = 0 ! 1 = UA and Design Water Flow Rate; 2 = Nominal Capacity

END TYPE WaterCoilEquipConditions

All Derived Types