Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=MaxNameLength), | intent(inout) | :: | FluidName | |||
real(kind=r64), | intent(inout) | :: | Temp | |||
integer, | intent(inout) | :: | FluidIndex |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
REAL(r64) FUNCTION DegradF(FluidName,Temp,FluidIndex)
! FUNCTION INFORMATION:
! AUTHOR Kenneth Tang
! DATE WRITTEN October 2004
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! Calculate the degradation factor to predict the heat pump performance
! when antifreeze is used.
! METHODOLOGY EMPLOYED:
! Use FluidProperties to calculate the properties of water and glycol
! at the given temperature. Then substitute the properties into the equation.
!
! REFERENCES:
! Jin, H. 2002. Parameter Estimation Based Models of Water Source Heat Pumps. Phd Thesis.
! Oklahoma State University.
! USE STATEMENTS:
USE FluidProperties
! FUNCTION ARGUMENT DEFINITIONS:
CHARACTER(len=MaxNameLength), INTENT (INOUT) :: FluidName !Name of glycol used in source side
REAL(r64), INTENT (INOUT) :: Temp ! Temperature of the fluid
INTEGER, INTENT (INOUT) :: FluidIndex ! Index number for the fluid
! FUNCTION PARAMETER DEFINITIONS:
CHARACTER(len=*), PARAMETER :: CalledFrom='HVACWaterToAir:DegradF'
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: VisWater !Viscosity of water [mPa-s]
REAL(r64) :: DensityWater !Density of water [kg/m3]
REAL(r64) :: CpWater !Specific heat of water [J/kg-K]
REAL(r64) :: CondWater !Conductivity of water [W/m-K]
REAL(r64) :: VisCoolant !Viscosity of water [mPa-s]
REAL(r64) :: DensityCoolant !Density of water [kg/m3]
REAL(r64) :: CpCoolant !Specific heat of water [J/kg-K]
REAL(r64) :: CondCoolant !Conductivity of water [W/m-K]
VisWater = GetViscosityGlycol('WATER',Temp,WaterIndex,CalledFrom)
DensityWater = GetDensityGlycol('WATER',Temp,WaterIndex,CalledFrom)
CpWater = GetSpecificHeatGlycol('WATER',Temp,WaterIndex,CalledFrom)
CondWater = GetConductivityGlycol('WATER',Temp,WaterIndex,CalledFrom)
VisCoolant = GetViscosityGlycol(FluidName,Temp,FluidIndex,CalledFrom)
DensityCoolant = GetDensityGlycol(FluidName,Temp,FluidIndex,CalledFrom)
CpCoolant = GetSpecificHeatGlycol(FluidName,Temp,FluidIndex,CalledFrom)
CondCoolant = GetConductivityGlycol(FluidName,Temp,FluidIndex,CalledFrom)
DegradF = (VisCoolant / VisWater)**(-0.47d0) * &
(DensityCoolant / DensityWater)**0.8d0 * (CpCoolant / CpWater)**0.33d0 * &
(CondCoolant / CondWater)**0.67d0
END FUNCTION DegradF