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.
SUBROUTINE GetAirModelDatas
! SUBROUTINE INFORMATION:
! AUTHOR Linda Lawrie
! DATE WRITTEN March 2005
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This routine "gets" all the data for the "RoomAir" models by calling individual
! routines.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
LOGICAL :: ErrorsFound
ErrorsFound=.false.
! get air node input data for all zones
CALL GetAirNodeData(ErrorsFound)
! get mundt model controls for all zones
CALL GetMundtData(ErrorsFound)
! get UCSDDV model controls for all zones
CALL GetDisplacementVentData(ErrorsFound)
! get UCSDCV model controls for all zones
CALL GetCrossVentData(ErrorsFound)
! get BTG's user-defined patterns for all zones
CALL GetUserDefinedPatternData(ErrorsFound)
! get UCSD UFAD interior zone model controls for all zones
! get UCSD UFAD exterior zone model controls for all zones
CALL GetUFADZoneData(ErrorsFound)
IF (ErrorsFound) THEN
CALL ShowFatalError('GetAirModelData: Errors found getting air model input. Program terminates.')
ENDIF
RETURN
END SUBROUTINE GetAirModelDatas