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) | :: | ResourceTypeNum |
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 GetResourceTypeChar(ResourceTypeNum) RESULT(ResourceTypeChar)
! FUNCTION INFORMATION:
! AUTHOR Linda Lawrie
! DATE WRITTEN June 2005
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS FUNCTION:
! Shows the resource type character string, given the resource type numeric.
! METHODOLOGY EMPLOYED:
! na
! REFERENCES:
! na
! USE STATEMENTS:
USE DataGlobals, ONLY: MaxNameLength
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
INTEGER, INTENT(IN) :: ResourceTypeNum
CHARACTER(len=MaxNameLength) :: ResourceTypeChar
! na
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
! na
SELECT CASE (ResourceTypeNum)
CASE (iRT_Electricity)
ResourceTypeChar='Electricity'
CASE (iRT_Gas)
ResourceTypeChar='Gas'
CASE (iRT_Gasoline)
ResourceTypeChar='Gasoline'
CASE (iRT_Diesel)
ResourceTypeChar='Diesel'
CASE (iRT_Coal)
ResourceTypeChar='Coal'
CASE (iRT_FuelOil_1)
ResourceTypeChar='FuelOil#1'
CASE (iRT_FuelOil_2)
ResourceTypeChar='FuelOil#2'
CASE (iRT_Propane)
ResourceTypeChar='Propane'
CASE (iRT_OtherFuel1)
ResourceTypeChar='OtherFuel1'
CASE (iRT_OtherFuel2)
ResourceTypeChar='OtherFuel2'
CASE (iRT_Water)
ResourceTypeChar='Water'
CASE (iRT_OnSiteWater)
ResourceTypeChar='OnSiteWater'
CASE (iRT_MainsWater)
ResourceTypeChar='MainsWater'
CASE (iRT_RainWater)
ResourceTypeChar='RainWater'
CASE (iRT_Condensate)
ResourceTypeChar='Condensate'
CASE (iRT_WellWater)
ResourceTypeChar='WellWater'
CASE (iRT_EnergyTransfer)
ResourceTypeChar='EnergyTransfer'
CASE (iRT_Steam)
ResourceTypeChar='Steam'
CASE (iRT_DistrictCooling)
ResourceTypeChar='DistrictCooling'
CASE (iRT_DistrictHeating)
ResourceTypeChar='DistrictHeating'
CASE (iRT_ElectricityProduced)
ResourceTypeChar='ElectricityProduced'
CASE (iRT_ElectricityPurchased)
ResourceTypeChar='ElectricityPurchased'
CASE (iRT_ElectricitySurplusSold)
ResourceTypeChar='ElectricitySurplusSold'
CASE (iRT_ElectricityNet)
ResourceTypeChar='ElectricityNet'
CASE (iRT_SolarWater)
ResourceTypeChar='SolarWater'
CASE (iRT_SolarAir)
ResourceTypeChar='SolarAir'
CASE (iRT_SO2)
ResourceTypeChar='SO2'
CASE (iRT_NOx)
ResourceTypeChar='NOx'
CASE (iRT_N2O)
ResourceTypeChar='N2O'
CASE (iRT_PM)
ResourceTypeChar='PM'
CASE (iRT_PM2_5)
ResourceTypeChar='PM2.5'
CASE (iRT_PM10)
ResourceTypeChar='PM10'
CASE (iRT_CO)
ResourceTypeChar='CO'
CASE (iRT_CO2)
ResourceTypeChar='CO2'
CASE (iRT_CH4)
ResourceTypeChar='CH4'
CASE (iRT_NH3)
ResourceTypeChar='NH3'
CASE (iRT_NMVOC)
ResourceTypeChar='NMVOC'
CASE (iRT_Hg)
ResourceTypeChar='Hg'
CASE (iRT_Pb)
ResourceTypeChar='Pb'
CASE (iRT_NuclearHigh)
ResourceTypeChar='Nuclear High'
CASE (iRT_NuclearLow)
ResourceTypeChar='Nuclear Low'
CASE (iRT_WaterEnvironmentalFactors)
ResourceTypeChar='WaterEnvironmentalFactors'
CASE (iRT_CarbonEquivalent)
ResourceTypeChar='Carbon Equivalent'
CASE (iRT_Source)
ResourceTypeChar='Source'
CASE (iRT_PlantLoopHeatingDemand)
ResourceTypeChar='PlantLoopHeatingDemand'
CASE (iRT_PlantLoopCoolingDemand)
ResourceTypeChar='PlantLoopCoolingDemand'
CASE DEFAULT
ResourceTypeChar='Unknown'
END SELECT
RETURN
END FUNCTION GetResourceTypeChar