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.
SUBROUTINE AllocateLoadComponentArrays
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer
! DATE WRITTEN April 2012
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Allocate the arrays related to the load component report
! METHODOLOGY EMPLOYED:
! Use the ALLOCATE command
! REFERENCES:
! na
! USE STATEMENTS:
! na
USE DataSurfaces, ONLY: TotSurfaces
USE DataEnvironment, ONLY: TotDesDays, TotRunDesPersDays
USE DataGlobals, ONLY: NumOfTimeStepInHour
IMPLICIT NONE
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
LOGICAL, SAVE :: DoAllocate = .TRUE.
IF (DoAllocate) THEN
!For many of the following arrays the last dimension is the number of environments and is same as sizing arrays
ALLOCATE(radiantPulseUsed(NumOfZones,0:TotDesDays+TotRunDesPersDays))
radiantPulseUsed = 0.0d0
ALLOCATE(radiantPulseTimestep(NumOfZones,0:TotDesDays+TotRunDesPersDays))
radiantPulseTimestep = 0
ALLOCATE(radiantPulseReceived(TotSurfaces,0:TotDesDays+TotRunDesPersDays))
radiantPulseReceived = 0.0d0
ALLOCATE(loadConvectedNormal(TotSurfaces,0:NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
loadConvectedNormal = 0.0d0
ALLOCATE(loadConvectedWithPulse(TotSurfaces,0:NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
loadConvectedWithPulse = 0.0d0
ALLOCATE(netSurfRadSeq(TotSurfaces,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
netSurfRadSeq = 0.0d0
ALLOCATE(decayCurveCool(TotSurfaces,NumOfTimeStepInHour*24))
decayCurveCool = 0.0d0
ALLOCATE(decayCurveHeat(TotSurfaces,NumOfTimeStepInHour*24))
decayCurveHeat = 0.0d0
ALLOCATE(ITABSFseq(TotSurfaces,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
ITABSFseq = 0.0d0
ALLOCATE(TMULTseq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
TMULTseq = 0.0d0
ALLOCATE(peopleInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
peopleInstantSeq = 0.0d0
ALLOCATE(peopleLatentSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
peopleLatentSeq = 0.0d0
ALLOCATE(peopleRadSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
peopleRadSeq = 0.0d0
ALLOCATE(peopleDelaySeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
peopleDelaySeq = 0.0d0
ALLOCATE(lightInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
lightInstantSeq = 0.0d0
ALLOCATE(lightRetAirSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
lightRetAirSeq = 0.0d0
ALLOCATE(lightLWRadSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
lightLWRadSeq = 0.0d0
ALLOCATE(lightSWRadSeq(TotSurfaces,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
lightSWRadSeq = 0.0d0
ALLOCATE(lightDelaySeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
lightLWRadSeq = 0.0d0
ALLOCATE(equipInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
equipInstantSeq = 0.0d0
ALLOCATE(equipLatentSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
equipLatentSeq = 0.0d0
ALLOCATE(equipRadSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
equipRadSeq = 0.0d0
ALLOCATE(equipDelaySeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
equipDelaySeq = 0.0d0
ALLOCATE(refrigInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
refrigInstantSeq = 0.0d0
ALLOCATE(refrigRetAirSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
refrigRetAirSeq = 0.0d0
ALLOCATE(refrigLatentSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
refrigLatentSeq = 0.0d0
ALLOCATE(waterUseInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
waterUseInstantSeq = 0.0d0
ALLOCATE(waterUseLatentSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
waterUseLatentSeq = 0.0d0
ALLOCATE(hvacLossInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
hvacLossInstantSeq = 0.0d0
ALLOCATE(hvacLossRadSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
hvacLossRadSeq = 0.0d0
ALLOCATE(hvacLossDelaySeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
hvacLossDelaySeq = 0.0d0
ALLOCATE(powerGenInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
powerGenInstantSeq = 0.0d0
ALLOCATE(powerGenRadSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
powerGenRadSeq = 0.0d0
ALLOCATE(powerGenDelaySeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
powerGenDelaySeq = 0.0d0
ALLOCATE(infilInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
infilInstantSeq = 0.0d0
ALLOCATE(infilLatentSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
infilLatentSeq = 0.0d0
ALLOCATE(zoneVentInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
zoneVentInstantSeq = 0.0d0
ALLOCATE(zoneVentLatentSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
zoneVentLatentSeq = 0.0d0
ALLOCATE(interZoneMixInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
interZoneMixInstantSeq = 0.0d0
ALLOCATE(interZoneMixLatentSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
interZoneMixLatentSeq = 0.0d0
ALLOCATE(feneCondInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
feneCondInstantSeq = 0.0d0
! ALLOCATE(feneSolarInstantSeq(NumOfZones,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
! feneSolarInstantSeq = 0.0d0
ALLOCATE(feneSolarRadSeq(TotSurfaces,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
feneSolarRadSeq = 0.0d0
ALLOCATE(feneSolarDelaySeq(TotSurfaces,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
feneSolarDelaySeq = 0.0d0
ALLOCATE(surfDelaySeq(TotSurfaces,NumOfTimeStepInHour*24,TotDesDays+TotRunDesPersDays))
surfDelaySeq = 0.0d0
DoAllocate = .FALSE.
END IF
END SUBROUTINE AllocateLoadComponentArrays