Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=r64), | intent(in) | :: | CBFNom | |||
real(kind=r64), | intent(in) | :: | AirMassFlowRateNom | |||
real(kind=r64), | intent(in) | :: | AirMassFlowRate |
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.
FUNCTION AdjustCBF(CBFNom,AirMassFlowRateNom,AirMassFlowRate) RESULT(CBFAdj)
! FUNCTION INFORMATION:
! AUTHOR Fred Buhl using Don Shirey's code
! DATE WRITTEN September 2002
! Modified BOs March 2012
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! Adjust coil bypass factor for actual air flow rate.
! METHODOLOGY EMPLOYED:
! Uses relation CBF = exp(-NTU) whereNTU = A0/(m*cp). Relationship models the cooling coil
! as a heat exchanger with Cmin/Cmax = 0.
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
REAL(r64), INTENT (IN) :: CBFNom ! nominal coil bypass factor
REAL(r64), INTENT (IN) :: AirMassFlowRateNom ! nominal air mass flow rate [kg/s]
REAL(r64), INTENT (IN) :: AirMassFlowRate ! actual air mass flow rate [kg/s]
REAL(r64) :: CBFAdj ! the result - the adjusted coil bypass factor
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
REAL(r64) :: A0 ! intermediate variable
REAL(r64) :: ADiff ! intermediate variable
IF (CBFNom .gt. 0.0d0) THEN
A0 = -log(CBFNom)*AirMassFlowRateNom
ELSE
A0 = 0.0d0
END IF
ADiff=-A0/AirMassFlowRate
IF (ADiff >= EXP_LowerLimit) THEN
CBFAdj = exp(ADiff)
ELSE
CBFAdj = 0.0d0
END IF
RETURN
END FUNCTION AdjustCBF