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(in) | :: | UnitarySysName |
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 CheckUnitarySysCoilInOASysExists(UnitarySysName)
! SUBROUTINE INFORMATION:
! AUTHOR Chandan Sharma
! DATE WRITTEN April 2013
! MODIFIED na
! RE-ENGINEERED na
!
! PURPOSE OF THIS SUBROUTINE:
! After making sure get input is done, checks if the Coil System DX coil is in the
! OA System. IF exists then the DX cooling coil is 100% DOAS DX coil.
!
! METHODOLOGY EMPLOYED:
! Based on CheckDXCoolingCoilInOASysExists by Bereket Nigusse in HVACDXSystem
!
! REFERENCES:
! na
!
! USE STATEMENTS:
USE InputProcessor, ONLY: FindItemInList
USE DXCoils, ONLY: SetDXCoilTypeData
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
CHARACTER(len=MaxNameLength), INTENT(IN) :: UnitarySysName
! SUBROUTINE PARAMETER DEFINITIONS:
CHARACTER(len=*), PARAMETER :: RoutineName='CheckUnitarySysCoilInOASysExists: ' ! include trailing blank space
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER :: UnitarySysNum
IF (GetInputFlag) THEN
CALL GetUnitarySystemInput
GetInputFlag=.false.
END IF
UnitarySysNum=0
IF (NumUnitarySystem > 0) THEN
UnitarySysNum=FindItemInList(UnitarySysName,UnitarySystem%Name,NumUnitarySystem)
IF (UnitarySysNum > 0)THEN
IF(UnitarySystem(UnitarySysNum)%ISHundredPercentDOASDXCoil) THEN
CALL SetDXCoilTypeData(UnitarySystem(UnitarySysNum)%CoolingCoilName)
END IF
ELSE
CALL ShowSevereError(TRIM(RoutineName)//'System not found = AirloopHVAC:UnitarySystem "'//TRIM(UnitarySysName)//'"')
END IF
ELSE
CALL ShowSevereError(TRIM(RoutineName)//'System not found = AirloopHVAC:UnitarySystem "'//TRIM(UnitarySysName)//'"')
END IF
RETURN
END SUBROUTINE CheckUnitarySysCoilInOASysExists