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 | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | DXCoilNum | |||
logical, | intent(inout) | :: | ErrorsFound | |||
integer, | optional | :: | HeatingCoilPLFCurvePTR | |||
integer, | optional | :: | CondenserType | |||
integer, | optional | :: | CondenserInletNodeNum | |||
real(kind=r64), | optional | :: | MaxOATCrankcaseHeater | |||
real(kind=r64), | optional | :: | MinOATCooling | |||
real(kind=r64), | optional | :: | MaxOATCooling | |||
real(kind=r64), | optional | :: | MinOATHeating | |||
real(kind=r64), | optional | :: | MaxOATHeating | |||
integer, | optional | :: | HeatingPerformanceOATType | |||
integer, | optional | :: | DefrostStrategy | |||
integer, | optional | :: | DefrostControl | |||
integer, | optional | :: | DefrostEIRPtr | |||
real(kind=r64), | optional | :: | DefrostFraction | |||
real(kind=r64), | optional | :: | DefrostCapacity | |||
real(kind=r64), | optional | :: | MaxOATDefrost | |||
logical, | optional | :: | CoolingCoilPresent | |||
logical, | optional | :: | HeatingCoilPresent | |||
real(kind=r64), | optional | :: | HeatSizeRatio | |||
real(kind=r64), | optional | :: | TotCap | |||
integer, | optional | :: | SupplyFanIndex | |||
character(len=MaxNameLength), | optional | :: | SupplyFanName |
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.
SUBROUTINE SetDXCoolingCoilData(DXCoilNum,ErrorsFound,HeatingCoilPLFCurvePTR,CondenserType,CondenserInletNodeNum, &
MaxOATCrankcaseHeater,MinOATCooling,MaxOATCooling,MinOATHeating,MaxOATHeating, &
HeatingPerformanceOATType,DefrostStrategy,DefrostControl,DefrostEIRPtr, &
DefrostFraction,DefrostCapacity,MaxOATDefrost,CoolingCoilPresent,HeatingCoilPresent, &
HeatSizeRatio, TotCap, SupplyFanIndex, SupplyFanName)
! SUBROUTINE INFORMATION:
! AUTHOR Richard Raustad, FSEC
! DATE WRITTEN December 2008
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This routine was designed to allow the DX coil to access information from a gas or
! electric heating coil when these coils are each used in a parent object.
! Also, this is an illustration of setting Data from an outside source.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
USE General, ONLY: TrimSigDigits
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: DXCoilNum ! Number of DX Cooling Coil
LOGICAL, INTENT(INOUT) :: ErrorsFound ! Set to true if certain errors found
INTEGER,OPTIONAL :: HeatingCoilPLFCurvePTR ! Parameter equivalent of heating coil PLR curve index
INTEGER,OPTIONAL :: CondenserType ! Parameter equivalent of condenser type parameter
INTEGER,OPTIONAL :: CondenserInletNodeNum ! Parameter equivalent of condenser inlet node number
REAL(r64),OPTIONAL :: MaxOATCrankcaseHeater ! Parameter equivalent of condenser Max OAT for Crank Case Heater temp
REAL(r64),OPTIONAL :: MaxOATCooling ! Parameter equivalent of condenser Max OAT for compressor cooling operation
REAL(r64),OPTIONAL :: MinOATCooling ! Parameter equivalent of condenser Min OAT for compressor cooling operation
REAL(r64),OPTIONAL :: MaxOATHeating ! Parameter equivalent of condenser Max OAT for compressor heating operation
REAL(r64),OPTIONAL :: MinOATHeating ! Parameter equivalent of condenser Min OAT for compressor heating operation
INTEGER,OPTIONAL :: HeatingPerformanceOATType ! Parameter equivalent to condenser entering air temp type (1-db, 2=wb)
INTEGER,OPTIONAL :: DefrostStrategy
INTEGER,OPTIONAL :: DefrostControl
INTEGER,OPTIONAL :: DefrostEIRPtr
REAL(r64),OPTIONAL :: DefrostFraction
REAL(r64),OPTIONAL :: DefrostCapacity
REAL(r64),OPTIONAL :: MaxOATDefrost
LOGICAL,OPTIONAL :: CoolingCoilPresent
LOGICAL,OPTIONAL :: HeatingCoilPresent
REAL(r64),OPTIONAL :: HeatSizeRatio
REAL(r64),OPTIONAL :: TotCap
INTEGER,OPTIONAL :: SupplyFanIndex
CHARACTER(len=MaxNameLength),OPTIONAL :: SupplyFanName
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
! Obtains and Allocates DXCoils
IF (GetCoilsInputFlag) THEN
CALL GetDXCoils
GetCoilsInputFlag = .FALSE.
END IF
IF (DXCoilNum <= 0 .or. DXCoilNum > NumDXCoils) THEN
CALL ShowSevereError('SetDXCoolingCoilData: called with DX Cooling Coil Number out of range='// &
TRIM(TrimSigDigits(DXCoilNum))//' should be >0 and <'//TRIM(TrimSigDigits(NumDXCoils)))
ErrorsFound=.true.
RETURN
ENDIF
IF (PRESENT(HeatingCoilPLFCurvePTR)) THEN
DXCoil(DXCoilNum)%HeatingCoilPLFCurvePTR=HeatingCoilPLFCurvePTR
ENDIF
IF (PRESENT(CondenserType)) THEN
DXCoil(DXCoilNum)%CondenserType=CondenserType
ENDIF
IF (PRESENT(CondenserInletNodeNum)) THEN
DXCoil(DXCoilNum)%CondenserInletNodeNum(1)=CondenserInletNodeNum
ENDIF
IF (PRESENT(MaxOATCrankcaseHeater)) THEN
DXCoil(DXCoilNum)%MaxOATCrankcaseHeater=MaxOATCrankcaseHeater
ENDIF
IF (PRESENT(MaxOATCooling)) THEN
DXCoil(DXCoilNum)%MaxOATCompressor=MaxOATCooling
ENDIF
IF (PRESENT(MaxOATHeating)) THEN
DXCoil(DXCoilNum)%MaxOATCompressor=MaxOATHeating
ENDIF
IF (PRESENT(MinOATCooling)) THEN
DXCoil(DXCoilNum)%MinOATCompressor=MinOATCooling
ENDIF
IF (PRESENT(MinOATHeating)) THEN
DXCoil(DXCoilNum)%MinOATCompressor=MinOATHeating
ENDIF
IF(PRESENT(HeatingPerformanceOATType))THEN
DXCoil(DXCoilNum)%HeatingPerformanceOATType=HeatingPerformanceOATType
END IF
IF(PRESENT(DefrostStrategy))THEN
DXCoil(DXCoilNum)%DefrostStrategy=DefrostStrategy
END IF
IF(PRESENT(DefrostControl))THEN
DXCoil(DXCoilNum)%DefrostControl=DefrostControl
END IF
IF(PRESENT(DefrostEIRPtr))THEN
DXCoil(DXCoilNum)%DefrostEIRFT=DefrostEIRPtr
END IF
IF(PRESENT(DefrostFraction))THEN
DXCoil(DXCoilNum)%DefrostTime=DefrostFraction
END IF
IF(PRESENT(DefrostCapacity))THEN
DXCoil(DXCoilNum)%DefrostCapacity=DefrostCapacity
END IF
IF(PRESENT(MaxOATDefrost))THEN
DXCoil(DXCoilNum)%MaxOATDefrost=MaxOATDefrost
END IF
IF(PRESENT(CoolingCoilPresent))THEN
DXCoil(DXCoilNum)%CoolingCoilPresent=CoolingCoilPresent
END IF
IF(PRESENT(HeatingCoilPresent))THEN
DXCoil(DXCoilNum)%HeatingCoilPresent=HeatingCoilPresent
END IF
IF(PRESENT(HeatSizeRatio))THEN
DXCoil(DXCoilNum)%HeatSizeRatio=HeatSizeRatio
END IF
IF(PRESENT(TotCap))THEN
DXCoil(DXCoilNum)%RatedTotCap(1)=TotCap
END IF
IF(PRESENT(SupplyFanIndex))THEN
DXCoil(DXCoilNum)%SupplyFanIndex=SupplyFanIndex
END IF
IF(PRESENT(SupplyFanName))THEN
DXCoil(DXCoilNum)%SupplyFanName=SupplyFanName
END IF
RETURN
END SUBROUTINE SetDXCoolingCoilData