SUBROUTINE AllocateModuleArrays
! SUBROUTINE INFORMATION:
! AUTHOR Rick Strand
! DATE WRITTEN February 1998
! MODIFIED August 2005 JG - Added output variables for energy in J
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This routine allocates all of the arrays at the module level which
! require allocation.
! METHODOLOGY EMPLOYED:
! Allocation is dependent on the user input file.
! REFERENCES:
! na
! USE STATEMENTS:
USE General, ONLY : RoundSigDigits
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER SurfLoop, ZoneLoop
INTEGER I, MaxNumOfLayers, NumOfLayers
! FLOW:
ALLOCATE (CTHETA(TotSurfaces))
CTHETA=0.0d0
ALLOCATE (SAREA(TotSurfaces))
SAREA=0.0d0
ALLOCATE(SurfSunLitArea(TotSurfaces))
SurfSunLitArea=0.0d0
ALLOCATE(SurfSunLitFrac(TotSurfaces))
SurfSunLitFrac=0.0d0
ALLOCATE (SunlitFracHR(TotSurfaces,24))
SunlitFracHR=0.0d0
ALLOCATE (SunlitFrac(TotSurfaces,24,NumOfTimeStepInHour))
SunlitFrac=0.0d0
ALLOCATE (SunlitFracWithoutReveal(TotSurfaces,24,NumOfTimeStepInHour))
SunlitFracWithoutReveal=0.0d0
ALLOCATE (BackSurfaces(TotSurfaces,MaxBkSurf,24,NumOfTimeStepInHour))
BackSurfaces = 0
ALLOCATE (OverlapAreas(TotSurfaces,MaxBkSurf,24,NumOfTimeStepInHour))
OverlapAreas = 0.0d0
ALLOCATE (CosIncAngHR(TotSurfaces,24))
CosIncAngHR=0.0d0
ALLOCATE (CosIncAng(TotSurfaces,24,NumOfTimeStepInHour))
CosIncAng=0.0d0
ALLOCATE (AnisoSkyMult(TotSurfaces))
AnisoSkyMult = 1.0d0 ! For isotropic sky; recalculated in AnisoSkyViewFactors if anisotropic radiance
! ALLOCATE (WithShdgIsoSky(TotSurfaces))
! WithShdgIsoSky=0.0
! ALLOCATE (WoShdgIsoSky(TotSurfaces))
! WoShdgIsoSky=0.0
! ALLOCATE (WithShdgHoriz(TotSurfaces))
! WithShdgHoriz=0.0
! ALLOCATE (WoShdgHoriz(TotSurfaces))
! WoShdgHoriz=0.0
! ALLOCATE (DifShdgRatioIsoSky(TotSurfaces))
! DifShdgRatioIsoSky=0.0
! ALLOCATE (DifShdgRatioHoriz(TotSurfaces))
! DifShdgRatioHoriz=0.0
ALLOCATE (MultIsoSky(TotSurfaces))
MultIsoSky=0.0d0
ALLOCATE (MultCircumSolar(TotSurfaces))
MultCircumSolar=0.0d0
ALLOCATE (MultHorizonZenith(TotSurfaces))
MultHorizonZenith=0.0d0
ALLOCATE (WinTransSolar(TotSurfaces))
WinTransSolar=0.0d0
ALLOCATE (WinBmSolar(TotSurfaces))
WinBmSolar=0.0d0
ALLOCATE (WinBmBmSolar(TotSurfaces))
WinBmBmSolar=0.0d0
ALLOCATE (WinBmDifSolar(TotSurfaces))
WinBmDifSolar=0.0d0
ALLOCATE (WinDifSolar(TotSurfaces))
WinDifSolar=0.0d0
ALLOCATE (WinDirSolTransAtIncAngle(TotSurfaces))
WinDirSolTransAtIncAngle=0.0d0
ALLOCATE (WinHeatGain(TotSurfaces))
WinHeatGain=0.0d0
ALLOCATE (WinHeatGainRep(TotSurfaces))
WinHeatGainRep=0.0d0
ALLOCATE (WinHeatLossRep(TotSurfaces))
WinHeatLossRep=0.0d0
ALLOCATE (WinGainConvGlazToZoneRep(TotSurfaces))
WinGainConvGlazToZoneRep = 0.0d0
ALLOCATE (WinGainIRGlazToZoneRep(TotSurfaces))
WinGainIRGlazToZoneRep = 0.0d0
ALLOCATE (WinLossSWZoneToOutWinRep(TotSurfaces))
WinLossSWZoneToOutWinRep = 0.0d0
ALLOCATE (WinGainFrameDividerToZoneRep(TotSurfaces))
WinGainFrameDividerToZoneRep = 0.0d0
ALLOCATE (WinGainConvGlazShadGapToZoneRep(TotSurfaces))
WinGainConvGlazShadGapToZoneRep = 0.0d0
ALLOCATE (WinGainConvShadeToZoneRep(TotSurfaces))
WinGainConvShadeToZoneRep = 0.0d0
ALLOCATE (OtherConvGainInsideFaceToZoneRep(TotSurfaces))
OtherConvGainInsideFaceToZoneRep=0.0d0
ALLOCATE (WinGainIRShadeToZoneRep(TotSurfaces))
WinGainIRShadeToZoneRep = 0.0d0
ALLOCATE (WinGapConvHtFlowRep(TotSurfaces))
WinGapConvHtFlowRep=0.0d0
ALLOCATE (WinShadingAbsorbedSolar(TotSurfaces))
WinShadingAbsorbedSolar=0.0d0
ALLOCATE (WinSysSolTransmittance(TotSurfaces))
WinSysSolTransmittance=0.0d0
ALLOCATE (WinSysSolReflectance(TotSurfaces))
WinSysSolReflectance=0.0d0
ALLOCATE (WinSysSolAbsorptance(TotSurfaces))
WinSysSolAbsorptance=0.0d0
ALLOCATE (InsideGlassCondensationFlag(TotSurfaces))
InsideGlassCondensationFlag=0
ALLOCATE (InsideFrameCondensationFlag(TotSurfaces))
InsideFrameCondensationFlag=0
ALLOCATE (InsideDividerCondensationFlag(TotSurfaces))
InsideDividerCondensationFlag=0
ALLOCATE (ZoneTransSolar(NumOfZones))
ZoneTransSolar=0.0d0
ALLOCATE (ZoneBmSolFrExtWinsRep(NumOfZones))
ZoneBmSolFrExtWinsRep = 0.0d0
ALLOCATE (ZoneBmSolFrIntWinsRep(NumOfZones))
ZoneBmSolFrIntWinsRep = 0.0d0
ALLOCATE (InitialZoneDifSolReflW(NumOfZones))
InitialZoneDifSolReflW = 0.0d0
ALLOCATE (ZoneDifSolFrExtWinsRep(NumOfZones))
ZoneDifSolFrExtWinsRep = 0.0d0
ALLOCATE (ZoneDifSolFrIntWinsRep(NumOfZones))
ZoneDifSolFrIntWinsRep = 0.0d0
ALLOCATE (ZoneWinHeatGain(NumOfZones))
ZoneWinHeatGain=0.0d0
ALLOCATE (ZoneWinHeatGainRep(NumOfZones))
ZoneWinHeatGainRep=0.0d0
ALLOCATE (ZoneWinHeatLossRep(NumOfZones))
ZoneWinHeatLossRep=0.0d0
ALLOCATE (ZoneOpaqSurfInsFaceCond(NumOfZones))
ZoneOpaqSurfInsFaceCond=0.0d0
ALLOCATE (ZoneOpaqSurfInsFaceCondGainRep(NumOfZones))
ZoneOpaqSurfInsFaceCondGainRep=0.0d0
ALLOCATE (ZoneOpaqSurfInsFaceCondLossRep(NumOfZones))
ZoneOpaqSurfInsFaceCondLossRep=0.0d0
ALLOCATE (ZoneOpaqSurfExtFaceCond(NumOfZones))
ZoneOpaqSurfExtFaceCond=0.0d0
ALLOCATE (ZoneOpaqSurfExtFaceCondGainRep(NumOfZones))
ZoneOpaqSurfExtFaceCondGainRep=0.0d0
ALLOCATE (ZoneOpaqSurfExtFaceCondLossRep(NumOfZones))
ZoneOpaqSurfExtFaceCondLossRep=0.0d0
ALLOCATE (QRadSWOutIncident(TotSurfaces))
QRadSWOutIncident=0.0d0
ALLOCATE (QRadSWOutIncidentBeam(TotSurfaces))
QRadSWOutIncidentBeam=0.0d0
ALLOCATE (BmIncInsSurfIntensRep(TotSurfaces))
BmIncInsSurfIntensRep=0.0d0
ALLOCATE (BmIncInsSurfAmountRep(TotSurfaces))
BmIncInsSurfAmountRep=0.0d0
! ALLOCATE (DifIncInsSurfIntensRep(TotSurfaces))
! DifIncInsSurfIntensRep=0.0
! ALLOCATE (DifIncInsSurfAmountRep(TotSurfaces))
! DifIncInsSurfAmountRep=0.0
ALLOCATE (IntBmIncInsSurfIntensRep(TotSurfaces))
IntBmIncInsSurfIntensRep=0.0d0
ALLOCATE (IntBmIncInsSurfAmountRep(TotSurfaces))
IntBmIncInsSurfAmountRep=0.0d0
! ALLOCATE (IntDifIncInsSurfIntensRep(TotSurfaces))
! IntDifIncInsSurfIntensRep=0.0
! ALLOCATE (IntDifIncInsSurfAmountRep(TotSurfaces))
! IntDifIncInsSurfAmountRep=0.0
ALLOCATE (QRadSWOutIncidentSkyDiffuse(TotSurfaces))
QRadSWOutIncidentSkyDiffuse=0.0d0
ALLOCATE (QRadSWOutIncidentGndDiffuse(TotSurfaces))
QRadSWOutIncidentGndDiffuse=0.0d0
ALLOCATE (QRadSWOutIncBmToDiffReflGnd(TotSurfaces))
QRadSWOutIncBmToDiffReflGnd=0.0d0
ALLOCATE (QRadSWOutIncSkyDiffReflGnd(TotSurfaces))
QRadSWOutIncSkyDiffReflGnd=0.0d0
ALLOCATE (QRadSWOutIncBmToBmReflObs(TotSurfaces))
QRadSWOutIncBmToBmReflObs=0.0d0
ALLOCATE (QRadSWOutIncBmToDiffReflObs(TotSurfaces))
QRadSWOutIncBmToDiffReflObs=0.0d0
ALLOCATE (QRadSWOutIncSkyDiffReflObs(TotSurfaces))
QRadSWOutIncSkyDiffReflObs=0.0d0
ALLOCATE (CosIncidenceAngle(TotSurfaces))
CosIncidenceAngle=0.0d0
ALLOCATE (BSDFBeamDirectionRep(TotSurfaces))
BSDFBeamDirectionRep=0
ALLOCATE (BSDFBeamThetaRep(TotSurfaces))
BSDFBeamThetaRep=0.0d0
ALLOCATE (BSDFBeamPhiRep(TotSurfaces))
BSDFBeamPhiRep=0.0d0
ALLOCATE (QRadSWwinAbsTot(TotSurfaces))
QRadSWwinAbsTot=0.0d0
ALLOCATE (QRadSWwinAbsLayer(TotSurfaces, MaxSolidWinLayers))
QRadSWwinAbsLayer = 0.0d0
ALLOCATE (FenLaySurfTempFront(TotSurfaces, MaxSolidWinLayers))
FenLaySurfTempFront = 0.0d0
ALLOCATE (FenLaySurfTempBack(TotSurfaces, MaxSolidWinLayers))
FenLaySurfTempBack = 0.0d0
ALLOCATE (SWwinAbsTotalReport(TotSurfaces))
SWwinAbsTotalReport=0.0d0
ALLOCATE (InitialDifSolInAbsReport(TotSurfaces))
InitialDifSolInAbsReport=0.0d0
ALLOCATE (InitialDifSolInTransReport(TotSurfaces))
InitialDifSolInTransReport=0.0d0
ALLOCATE (SWInAbsTotalReport(TotSurfaces))
SWInAbsTotalReport=0.0d0
ALLOCATE (WindowRevealStatus(TotSurfaces,24,NumOfTimeStepInHour))
WindowRevealStatus=0
! Weiler-Atherton
MAXHCArrayBounds=2*(MaxVerticesPerSurface+1)
MAXHCArrayIncrement=MaxVerticesPerSurface+1
ALLOCATE(XTEMP((MaxVerticesPerSurface+1)*2))
XTEMP=0.0d0
ALLOCATE(YTEMP((MaxVerticesPerSurface+1)*2))
YTEMP=0.0d0
ALLOCATE(XVC(MaxVerticesPerSurface+1))
XVC=0.0d0
ALLOCATE(XVS(MaxVerticesPerSurface+1))
XVS=0.0d0
ALLOCATE(YVC(MaxVerticesPerSurface+1))
YVC=0.0d0
ALLOCATE(YVS(MaxVerticesPerSurface+1))
YVS=0.0d0
ALLOCATE(ZVC(MaxVerticesPerSurface+1))
ZVC=0.0d0
!Sutherland-Hodgman
ALLOCATE(ATEMP(2*(MaxVerticesPerSurface + 1)))
ATEMP=0.0d0
ALLOCATE(BTEMP(2*(MaxVerticesPerSurface + 1)))
BTEMP=0.0d0
ALLOCATE(CTEMP(2*(MaxVerticesPerSurface + 1)))
CTEMP=0.0d0
ALLOCATE(XTEMP1(2*(MaxVerticesPerSurface + 1)))
XTEMP1=0.0d0
ALLOCATE(YTEMP1(2*(MaxVerticesPerSurface + 1)))
YTEMP1=0.0d0
!energy
ALLOCATE (WinTransSolarEnergy(TotSurfaces))
WinTransSolarEnergy=0.0d0
ALLOCATE (WinBmSolarEnergy(TotSurfaces))
WinBmSolarEnergy=0.0d0
ALLOCATE (WinBmBmSolarEnergy(TotSurfaces))
WinBmBmSolarEnergy=0.0d0
ALLOCATE (WinBmDifSolarEnergy(TotSurfaces))
WinBmDifSolarEnergy=0.0d0
ALLOCATE (WinDifSolarEnergy(TotSurfaces))
WinDifSolarEnergy=0.0d0
ALLOCATE (WinHeatGainRepEnergy(TotSurfaces))
WinHeatGainRepEnergy=0.0d0
ALLOCATE (WinHeatLossRepEnergy(TotSurfaces))
WinHeatLossRepEnergy=0.0d0
ALLOCATE (WinGapConvHtFlowRepEnergy(TotSurfaces))
WinGapConvHtFlowRepEnergy=0.0d0
ALLOCATE (ZoneTransSolarEnergy(NumOfZones))
ZoneTransSolarEnergy=0.0d0
ALLOCATE (ZoneBmSolFrExtWinsRepEnergy(NumOfZones))
ZoneBmSolFrExtWinsRepEnergy = 0.0d0
ALLOCATE (ZoneBmSolFrIntWinsRepEnergy(NumOfZones))
ZoneBmSolFrIntWinsRepEnergy = 0.0d0
ALLOCATE (ZoneDifSolFrExtWinsRepEnergy(NumOfZones))
ZoneDifSolFrExtWinsRepEnergy = 0.0d0
ALLOCATE (ZoneDifSolFrIntWinsRepEnergy(NumOfZones))
ZoneDifSolFrIntWinsRepEnergy = 0.0d0
ALLOCATE (ZoneWinHeatGainRepEnergy(NumOfZones))
ZoneWinHeatGainRepEnergy=0.0d0
ALLOCATE (ZoneWinHeatLossRepEnergy(NumOfZones))
ZoneWinHeatLossRepEnergy=0.0d0
ALLOCATE (BmIncInsSurfAmountRepEnergy(TotSurfaces))
BmIncInsSurfAmountRepEnergy=0.0d0
ALLOCATE (ZnOpqSurfInsFaceCondGnRepEnrg(NumOfZones))
ZnOpqSurfInsFaceCondGnRepEnrg=0.0d0
ALLOCATE (ZnOpqSurfInsFaceCondLsRepEnrg(NumOfZones))
ZnOpqSurfInsFaceCondLsRepEnrg=0.0d0
ALLOCATE (ZnOpqSurfExtFaceCondGnRepEnrg(NumOfZones))
ZnOpqSurfExtFaceCondGnRepEnrg=0.0d0
ALLOCATE (ZnOpqSurfExtFaceCondLsRepEnrg(NumOfZones))
ZnOpqSurfExtFaceCondLsRepEnrg=0.0d0
! ALLOCATE (DifIncInsSurfAmountRepEnergy(TotSurfaces))
! DifIncInsSurfAmountRepEnergy=0.0
ALLOCATE (IntBmIncInsSurfAmountRepEnergy(TotSurfaces))
IntBmIncInsSurfAmountRepEnergy=0.0d0
! ALLOCATE (IntDifIncInsSurfAmountRepEnergy(TotSurfaces))
! IntDifIncInsSurfAmountRepEnergy=0.0
ALLOCATE (QRadSWwinAbsTotEnergy(TotSurfaces))
QRadSWwinAbsTotEnergy=0.0d0
ALLOCATE (WinShadingAbsorbedSolarEnergy(TotSurfaces))
WinShadingAbsorbedSolarEnergy=0.0d0
SurfaceWindow%BmSolAbsdOutsReveal = 0.0d0
SurfaceWindow%BmSolRefldOutsRevealReport = 0.0d0
SurfaceWindow%BmSolAbsdInsReveal = 0.0d0
SurfaceWindow%BmSolRefldInsReveal = 0.0d0
SurfaceWindow%BmSolRefldInsRevealReport = 0.0d0
SurfaceWindow%OutsRevealDiffOntoGlazing = 0.0d0
SurfaceWindow%InsRevealDiffOntoGlazing = 0.0d0
SurfaceWindow%InsRevealDiffIntoZone = 0.0d0
SurfaceWindow%OutsRevealDiffOntoFrame = 0.0d0
SurfaceWindow%InsRevealDiffOntoFrame = 0.0d0
! Added report variables for inside reveal to debug CR 7596. TH 5/26/2009
SurfaceWindow%InsRevealDiffOntoGlazingReport = 0.0d0
SurfaceWindow%InsRevealDiffIntoZoneReport = 0.0d0
SurfaceWindow%InsRevealDiffOntoFrameReport = 0.0d0
SurfaceWindow%BmSolAbsdInsRevealReport = 0.0d0
CALL DisplayString('Initializing Zone Report Variables')
! CurrentModuleObject='Zone'
DO ZoneLoop=1,NumOfZones
CALL SetupOutputVariable('Zone Windows Total Transmitted Solar Radiation Rate [W]', &
ZoneTransSolar(ZoneLoop),'Zone','Average',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Exterior Windows Total Transmitted Beam Solar Radiation Rate [W]', &
ZoneBmSolFrExtWinsRep(ZoneLoop), &
'Zone','Average',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Interior Windows Total Transmitted Beam Solar Radiation Rate [W]', &
ZoneBmSolFrIntWinsRep(ZoneLoop), &
'Zone','Average',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Exterior Windows Total Transmitted Diffuse Solar Radiation Rate [W]', &
ZoneDifSolFrExtWinsRep(ZoneLoop), &
'Zone','Average',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Interior Windows Total Transmitted Diffuse Solar Radiation Rate [W]', &
ZoneDifSolFrIntWinsRep(ZoneLoop), &
'Zone','Average',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Windows Total Heat Gain Rate [W]', &
ZoneWinHeatGainRep(ZoneLoop),'Zone','Average',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Windows Total Heat Loss Rate [W]',ZoneWinHeatLossRep(ZoneLoop), &
'Zone','Average',Zone(ZoneLoop)%Name)
! Energy variables
CALL SetupOutputVariable('Zone Windows Total Transmitted Solar Radiation Energy [J]',ZoneTransSolarEnergy(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Exterior Windows Total Transmitted Beam Solar Radiation Energy [J]', &
ZoneBmSolFrExtWinsRepEnergy(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Interior Windows Total Transmitted Beam Solar Radiation Energy [J]', &
ZoneBmSolFrIntWinsRepEnergy(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Exterior Windows Total Transmitted Diffuse Solar Radiation Energy [J]', &
ZoneDifSolFrExtWinsRepEnergy(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Interior Windows Total Transmitted Diffuse Solar Radiation Energy [J]', &
ZoneDifSolFrIntWinsRepEnergy(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Windows Total Heat Gain Energy [J]', &
ZoneWinHeatGainRepEnergy(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Windows Total Heat Loss Energy [J]',ZoneWinHeatLossRepEnergy(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
IF (DisplayAdvancedReportVariables) THEN
! CurrentModuleObject='Zone(Advanced)'
CALL SetupOutputVariable('Zone Opaque Surface Inside Faces Total Conduction Heat Gain Rate [W]', &
ZoneOpaqSurfInsFaceCondGainRep(ZoneLoop), &
'Zone','Average',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Opaque Surface Inside Faces Total Conduction Heat Loss Rate [W]', &
ZoneOpaqSurfInsFaceCondLossRep(ZoneLoop), &
'Zone','Average',Zone(ZoneLoop)%Name)
! Energy variables
CALL SetupOutputVariable('Zone Opaque Surface Inside Faces Total Conduction Heat Gain Energy [J]', &
ZnOpqSurfInsFaceCondGnRepEnrg(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
CALL SetupOutputVariable('Zone Opaque Surface Inside Faces Total Conduction Heat Loss Energy [J]', &
ZnOpqSurfInsFaceCondLsRepEnrg(ZoneLoop), &
'Zone','Sum',Zone(ZoneLoop)%Name)
ENDIF
END DO
CALL DisplayString('Initializing Surface (Shading) Report Variables')
! CurrentModuleObject='Surfaces'
DO SurfLoop=1,TotSurfaces
IF (Surface(SurfLoop)%ExtSolar) THEN
CALL SetupOutputVariable('Surface Outside Face Sunlit Area [m2]', &
SurfSunlitArea(SurfLoop),'Zone','State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Outside Face Sunlit Fraction []', &
SurfSunlitFrac(SurfLoop),'Zone','State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Outside Face Incident Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncident(SurfLoop), &
'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Outside Face Incident Beam Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncidentBeam(SurfLoop),'Zone', &
'Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Outside Face Incident Sky Diffuse Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncidentSkyDiffuse(SurfLoop),'Zone', &
'Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Outside Face Incident Ground Diffuse Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncidentGndDiffuse(SurfLoop),'Zone', &
'Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable( &
'Surface Outside Face Beam Solar Incident Angle Cosine Value []',CosIncidenceAngle(SurfLoop),'Zone', &
'Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable( &
'Surface Outside Face Incident Sky Diffuse Ground Reflected Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncSkyDiffReflGnd(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable( &
'Surface Outside Face Incident Sky Diffuse Surface Reflected Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncSkyDiffReflObs(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable( &
'Surface Outside Face Incident Beam To Beam Surface Reflected Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncBmToBmReflObs(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable( &
'Surface Outside Face Incident Beam To Diffuse Surface Reflected Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncBmToDiffReflObs(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable( &
'Surface Outside Face Incident Beam To Diffuse Ground Reflected Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncBmToDiffReflGnd(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Anisotropic Sky Multiplier []', &
AnisoSkyMult(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window BSDF Beam Direction Number []',BSDFBeamDirectionRep(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window BSDF Beam Theta Angle [rad]',BSDFBeamThetaRep(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window BSDF Beam Phi Angle [rad]',BSDFBeamPhiRep(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
END IF
IF (.NOT. Surface(SurfLoop)%HeatTransSurf) CYCLE
IF (Surface(SurfLoop)%Class == SurfaceClass_Window) THEN
! CurrentModuleObject='Windows/GlassDoors'
IF (Surface(SurfLoop)%ExtSolar) THEN
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Rate [W]', &
QRadSWwinAbsTot(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Shortwave Radiation Rate [W]',&
SWwinAbsTotalReport(SurfLoop), &
'Zone','Average', Surface(SurfLoop)%Name)
IF (Construct(Surface(SurfLoop)%Construction)%WindowTypeBSDF) THEN
NumOfLayers = Construct(Surface(SurfLoop)%Construction)%TotSolidLayers
ELSE
NumOfLayers = Construct(Surface(SurfLoop)%Construction)%TotLayers
END IF
DO I = 1, NumOfLayers
CALL SetupOutputVariable('Surface Window Total Absorbed Shortwave Radiation Rate Layer '//TRIM(RoundSigDigits(I))//&
' [W]', QRadSWwinAbsLayer(SurfLoop, I), 'Zone','Average', TRIM(Surface(SurfLoop)%Name))
CALL SetupOutputVariable('Surface Window Front Face Temperature Layer '//TRIM(RoundSigDigits(I))//' [C]', &
FenLaySurfTempFront(SurfLoop, I), 'Zone','Average', TRIM(Surface(SurfLoop)%Name))
CALL SetupOutputVariable('Surface Window Back Face Temperature Layer '//TRIM(RoundSigDigits(I))//' [C]', &
FenLaySurfTempBack(SurfLoop, I), 'Zone','Average', TRIM(Surface(SurfLoop)%Name))
END DO
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Rate [W]', &
WinTransSolar(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam Solar Radiation Rate [W]', &
WinBmSolar(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
!added TH 12/9/2009
CALL SetupOutputVariable('Surface Window Transmitted Beam To Beam Solar Radiation Rate [W]',WinBmBmSolar(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam To Diffuse Solar Radiation Rate [W]',WinBmDifSolar(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Diffuse Solar Radiation Rate [W]',WinDifSolar(SurfLoop),'Zone', &
'Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Gain Rate [W]',WinHeatGainRep(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Loss Rate [W]',WinHeatLossRep(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Gap Convective Heat Transfer Rate [W]',&
WinGapConvHtFlowRep(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Shading Device Absorbed Solar Radiation Rate [W]', &
WinShadingAbsorbedSolar(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
IF (DisplayAdvancedReportVariables) THEN
! CurrentModuleObject='Windows/GlassDoors(Advanced)'
CALL SetupOutputVariable('Surface Window Inside Face Glazing Zone Convection Heat Gain Rate [W]', &
WinGainConvGlazToZoneRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Glazing Net Infrared Heat Transfer Rate [W]', &
WinGainIRGlazToZoneRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Shortwave from Zone Back Out Window Heat Transfer Rate [W]', &
WinLossSWZoneToOutWinRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Frame and Divider Zone Heat Gain Rate [W]', &
WinGainFrameDividerToZoneRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Gap between Shade and Glazing Zone Convection Heat Gain Rate [W]', &
WinGainConvGlazShadGapToZoneRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Shade Zone Convection Heat Gain Rate [W]', &
WinGainConvShadeToZoneRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Shade Net Infrared Heat Transfer Rate [W]', &
WinGainIRShadeToZoneRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
IF ( Construct(Surface(SurfLoop)%Construction)%WindowTypeEQL ) THEN
CALL SetupOutputVariable('Surface Window Inside Face Other Convection Heat Gain Rate [W]', &
OtherConvGainInsideFaceToZoneRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
ENDIF
ENDIF
! Added TH 12/23/2008 for thermochromic windows
! CurrentModuleObject='Thermochromic Windows'
IF (Construct(Surface(SurfLoop)%Construction)%TCFlag == 1) THEN
CALL SetupOutputVariable('Surface Window Thermochromic Layer Temperature [C]',SurfaceWindow(SurfLoop)%TCLayerTemp, &
'Zone','Average', Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Thermochromic Layer Property Specification Temperature [C]', &
SurfaceWindow(SurfLoop)%SpecTemp,'Zone', 'Average', Surface(SurfLoop)%Name)
ENDIF
! Added TH 5/26/2009 for switchable windows to report switching factor (tinted level)
! CurrentModuleObject='Switchable Windows'
IF(Surface(SurfLoop)%WindowShadingControlPtr >0) THEN
IF(WindowShadingControl(Surface(SurfLoop)%WindowShadingControlPtr)%ShadingType == WSC_ST_SwitchableGlazing) THEN
!IF (SurfaceWindow(SurfLoop)%ShadingFlag == SwitchableGlazing) THEN !ShadingFlag is not set to SwitchableGlazing yet!
CALL SetupOutputVariable('Surface Window Switchable Glazing Switching Factor []', &
SurfaceWindow(SurfLoop)%SwitchingFactor, &
'Zone', 'Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Switchable Glazing Visible Transmittance []', &
SurfaceWindow(SurfLoop)%VisTransSelected, &
'Zone', 'Average',Surface(SurfLoop)%Name)
ENDIF
ENDIF
IF (SurfaceWindow(SurfLoop)%FrameArea > 0.0d0) THEN
! CurrentModuleObject='Window Frames'
CALL SetupOutputVariable('Surface Window Frame Heat Gain Rate [W]',SurfaceWindow(SurfLoop)%FrameHeatGain, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Frame Heat Loss Rate [W]',SurfaceWindow(SurfLoop)%FrameHeatLoss, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Frame Inside Temperature [C]',SurfaceWindow(SurfLoop)%FrameTempSurfIn, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Frame Outside Temperature [C]',SurfaceWindow(SurfLoop)%FrameTempSurfOut, &
'Zone','Average',Surface(SurfLoop)%Name)
ENDIF
IF (SurfaceWindow(SurfLoop)%DividerArea > 0.0d0) THEN
! CurrentModuleObject='Window Dividers'
CALL SetupOutputVariable('Surface Window Divider Heat Gain Rate [W]',SurfaceWindow(SurfLoop)%DividerHeatGain, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Divider Heat Loss Rate [W]',SurfaceWindow(SurfLoop)%DividerHeatLoss, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Divider Inside Temperature [C]',SurfaceWindow(SurfLoop)%DividerTempSurfIn, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Divider Outside Temperature [C]',SurfaceWindow(SurfLoop)%DividerTempSurfOut, &
'Zone','Average',Surface(SurfLoop)%Name)
ENDIF
! CurrentModuleObject='Windows'
! Energy
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Energy [J]', &
QRadSWwinAbsTotEnergy(SurfLoop), &
'Zone','Sum', Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Energy [J]',WinTransSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam Solar Radiation Energy [J]',WinBmSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
!added TH 12/9/2009
CALL SetupOutputVariable('Surface Window Transmitted Beam To Beam Solar Radiation Energy [J]', &
WinBmBmSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam To Diffuse Solar Radiation Energy [J]', &
WinBmDifSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Diffuse Solar Radiation Energy [J]',WinDifSolarEnergy(SurfLoop), &
'Zone', 'Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Gain Energy [J]',WinHeatGainRepEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Loss Energy [J]',WinHeatLossRepEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Gap Convective Heat Transfer Energy [J]',WinGapConvHtFlowRepEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Shading Device Absorbed Solar Radiation Energy [J]', &
WinShadingAbsorbedSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window System Solar Transmittance []',WinSysSolTransmittance(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window System Solar Reflectance []',WinSysSolReflectance(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window System Solar Absorptance []',WinSysSolAbsorptance(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Glazing Condensation Status []', &
InsideGlassCondensationFlag(SurfLoop), &
'Zone','State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Frame Condensation Status []',InsideFrameCondensationFlag(SurfLoop), &
'Zone','State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Divider Condensation Status []', &
InsideDividerCondensationFlag(SurfLoop), &
'Zone','State',Surface(SurfLoop)%Name)
! Outside reveal report variables
!IF (Surface(SurfLoop)%Reveal > 0.0) THEN
CALL SetupOutputVariable('Surface Window Outside Reveal Reflected Beam Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%BmSolRefldOutsRevealReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
! Energy
CALL SetupOutputVariable('Surface Window Outside Reveal Reflected Beam Solar Radiation Energy [J]', &
SurfaceWindow(SurfLoop)%BmSolRefldOutsRevealRepEnergy, &
'Zone', 'Sum',Surface(SurfLoop)%Name)
!ENDIF
! Inside reveal report variables
IF (SurfaceWindow(SurfLoop)%InsideReveal > 0.0d0 .OR. SurfaceWindow(SurfLoop)%InsideSillDepth > 0.0d0) THEN
CALL SetupOutputVariable('Surface Window Inside Reveal Reflected Beam Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%BmSolRefldInsRevealReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
! Energy
CALL SetupOutputVariable('Surface Window Inside Reveal Reflected Beam Solar Radiation Energy [J]', &
SurfaceWindow(SurfLoop)%BmSolRefldInsRevealRepEnergy, &
'Zone', 'Sum',Surface(SurfLoop)%Name)
! Added report variables for inside reveal to debug CR 7596. TH 5/26/2009
! All reflected solar by the inside reveal is turned into diffuse
CALL SetupOutputVariable('Surface Window Inside Reveal Absorbed Beam Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%BmSolAbsdInsRevealReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Reveal Reflected Diffuse Zone Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%InsRevealDiffIntoZoneReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Reveal Reflected Diffuse Frame Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%InsRevealDiffOntoFrameReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Reveal Reflected Diffuse Glazing Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%InsRevealDiffOntoGlazingReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
ENDIF
! Output blind report variables only when blinds are used
IF(SurfaceWindow(SurfLoop)%BlindNumber .GT. 0)THEN
! CurrentModuleObject='Window Blinds'
CALL SetupOutputVariable('Surface Window Blind Beam to Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind Beam to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlTsolBmDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind Diffuse to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind and Glazing System Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlGlSysTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind and Glazing System Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlGlSysTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
END IF
! Output screen report variables only when screens are used
IF(SurfaceWindow(SurfLoop)%ScreenNumber .GT. 0)THEN
! CurrentModuleObject='Window Screens'
CALL SetupOutputVariable('Surface Window Screen Beam to Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen Beam to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScTsolBmDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen Diffuse to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen and Glazing System Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScGlSysTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen and Glazing System Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScGlSysTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
END IF
! CurrentModuleObject='Windows'
CALL SetupOutputVariable('Surface Window Solar Horizontal Profile Angle [deg]', &
SurfaceWindow(SurfLoop)%ProfileAngHor, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Solar Vertical Profile Angle [deg]', &
SurfaceWindow(SurfLoop)%ProfileAngVert, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Glazing Beam to Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%GlTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Glazing Beam to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%GlTsolBmDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Glazing Diffuse to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%GlTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Model Solver Iteration Count []', &
SurfaceWindow(SurfLoop)%WindowCalcIterationsRep, &
'Zone', 'State',Surface(SurfLoop)%Name)
ELSEIF (.not. Surface(SurfLoop)%ExtSolar) THEN ! Not ExtSolar
IF (DisplayAdvancedReportVariables) THEN
! CurrentModuleObject='InteriorWindows(Advanced)'
IF(SurfaceWindow(SurfLoop)%OriginalClass /= SurfaceClass_TDD_Diffuser) &
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Rate [W]', &
QRadSWwinAbsTot(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Shortwave Radiation Rate [W]', &
SWwinAbsTotalReport(SurfLoop), &
'Zone','Average', Surface(SurfLoop)%Name)
IF(SurfaceWindow(SurfLoop)%OriginalClass /= SurfaceClass_TDD_Diffuser) &
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Rate [W]', &
WinTransSolar(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam Solar Radiation Rate [W]',WinBmSolar(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
!added TH 12/9/2009
CALL SetupOutputVariable('Surface Window Transmitted Beam To Beam Solar Radiation Rate [W]',WinBmBmSolar(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam To Diffuse Solar Radiation Rate [W]', &
WinBmDifSolar(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Diffuse Solar Radiation Rate [W]',WinDifSolar(SurfLoop),'Zone', &
'Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Gain Rate [W]', &
WinHeatGainRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Loss Rate [W]', &
WinHeatLossRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Gap Convective Heat Transfer Rate [W]', &
WinGapConvHtFlowRep(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Shading Device Absorbed Solar Radiation Rate [W]', &
WinShadingAbsorbedSolar(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
IF (SurfaceWindow(SurfLoop)%FrameArea > 0.0d0) THEN
CALL SetupOutputVariable('Surface Window Frame Heat Gain Rate [W]',SurfaceWindow(SurfLoop)%FrameHeatGain, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Frame Heat Loss Rate [W]',SurfaceWindow(SurfLoop)%FrameHeatLoss, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Frame Inside Temperature [C]',SurfaceWindow(SurfLoop)%FrameTempSurfIn, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Frame Outside Temperature [C]',SurfaceWindow(SurfLoop)%FrameTempSurfOut, &
'Zone','Average',Surface(SurfLoop)%Name)
ENDIF
IF (SurfaceWindow(SurfLoop)%DividerArea > 0.0d0) THEN
CALL SetupOutputVariable('Surface Window Divider Heat Gain Rate [W]',SurfaceWindow(SurfLoop)%DividerHeatGain, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Divider Heat Loss Rate [W]',SurfaceWindow(SurfLoop)%DividerHeatLoss, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Divider Inside Temperature [C]',SurfaceWindow(SurfLoop)%DividerTempSurfIn, &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Divider Outside Temperature [C]',SurfaceWindow(SurfLoop)%DividerTempSurfOut, &
'Zone','Average',Surface(SurfLoop)%Name)
ENDIF
! Energy
IF(SurfaceWindow(SurfLoop)%OriginalClass /= SurfaceClass_TDD_Diffuser) &
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Energy [J]', &
QRadSWwinAbsTotEnergy(SurfLoop), &
'Zone','Sum', Surface(SurfLoop)%Name)
IF(SurfaceWindow(SurfLoop)%OriginalClass /= SurfaceClass_TDD_Diffuser) &
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Energy [J]',WinTransSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam Solar Radiation Energy [J]',WinBmSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam To Beam Solar Radiation Energy [J]', &
WinBmBmSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Beam To Diffuse Solar Radiation Energy [J]', &
WinBmDifSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Diffuse Solar Radiation Energy [J]',WinDifSolarEnergy(SurfLoop), &
'Zone', 'Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Gain Energy [J]',WinHeatGainRepEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Heat Loss Energy [J]',WinHeatLossRepEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Gap Convective Heat Transfer Energy [J]',WinGapConvHtFlowRepEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Shading Device Absorbed Solar Radiation Energy [J]', &
WinShadingAbsorbedSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window System Solar Transmittance []',WinSysSolTransmittance(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window System Solar Reflectance []',WinSysSolReflectance(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window System Solar Absorptance []',WinSysSolAbsorptance(SurfLoop), &
'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Glazing Condensation Status []', &
InsideGlassCondensationFlag(SurfLoop), &
'Zone','State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Frame Condensation Status []', &
InsideFrameCondensationFlag(SurfLoop), &
'Zone','State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Face Divider Condensation Status []', &
InsideDividerCondensationFlag(SurfLoop), &
'Zone','State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Outside Reveal Reflected Beam Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%BmSolRefldOutsRevealReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Reveal Reflected Beam Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%BmSolRefldInsRevealReport, &
'Zone', 'State',Surface(SurfLoop)%Name)
! Energy
CALL SetupOutputVariable('Surface Window Outside Reveal Reflected Beam Solar Radiation Energy [J]', &
SurfaceWindow(SurfLoop)%BmSolRefldOutsRevealRepEnergy, &
'Zone', 'Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Inside Reveal Reflected Beam Solar Radiation Energy [J]', &
SurfaceWindow(SurfLoop)%BmSolRefldInsRevealRepEnergy, &
'Zone', 'Sum',Surface(SurfLoop)%Name)
! Output blind report variables only when blinds are used
IF(SurfaceWindow(SurfLoop)%BlindNumber .GT. 0)THEN
CALL SetupOutputVariable('Surface Window Blind Beam to Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind Beam to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlTsolBmDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind Diffuse to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind and Glazing System Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlGlSysTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Blind and Glazing System Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%BlGlSysTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
END IF
! Output screen report variables only when screens are used
IF(SurfaceWindow(SurfLoop)%ScreenNumber .GT. 0)THEN
CALL SetupOutputVariable('Surface Window Screen Beam to Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen Beam to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScTsolBmDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen Diffuse to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen and Glazing System Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScGlSysTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Screen and Glazing System Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%ScGlSysTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
END IF
CALL SetupOutputVariable('Surface Window Solar Horizontal Profile Angle [deg]', &
SurfaceWindow(SurfLoop)%ProfileAngHor, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Solar Vertical Profile Angle [deg]', &
SurfaceWindow(SurfLoop)%ProfileAngVert, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Glazing Beam to Beam Solar Transmittance []', &
SurfaceWindow(SurfLoop)%GlTsolBmBm, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Glazing Beam to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%GlTsolBmDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Glazing Diffuse to Diffuse Solar Transmittance []', &
SurfaceWindow(SurfLoop)%GlTsolDifDif, &
'Zone', 'State',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Model Solver Iteration Count []', &
SurfaceWindow(SurfLoop)%WindowCalcIterationsRep, &
'Zone', 'State',Surface(SurfLoop)%Name)
END IF
END IF ! end non extsolar reporting as advanced variables
END IF ! Window Reporting
IF (Surface(SurfLoop)%Class == SurfaceClass_Window .AND. Surface(SurfLoop)%ExtBoundCond > 0 &
.and. Surface(SurfLoop)%ExtBoundCond /= SurfLoop) THEN !Interzone window
! CurrentModuleObject='InterzoneWindows'
CALL SetupOutputVariable('Surface Window Transmitted Beam Solar Radiation Rate [W]', &
SurfaceWindow(SurfLoop)%BmSolTransThruIntWinRep, &
'Zone', 'State',Surface(SurfLoop)%Name)
!energy
CALL SetupOutputVariable('Surface Window Transmitted Beam Solar Radiation Energy [J]', &
SurfaceWindow(SurfLoop)%BmSolTransThruIntWinRepEnergy, &
'Zone', 'Sum',Surface(SurfLoop)%Name)
END IF
IF(Surface(SurfLoop)%Class == SurfaceClass_TDD_Dome .AND. Surface(SurfLoop)%ExtSolar) THEN
! CurrentModuleObject='TDD Domes'
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Rate [W]',&
QRadSWwinAbsTot(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Rate [W]', &
WinTransSolar(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
!energy
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Energy [J]', &
QRadSWwinAbsTotEnergy(SurfLoop), &
'Zone','Sum', Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Energy [J]',WinTransSolarEnergy(SurfLoop), &
'Zone','Sum',Surface(SurfLoop)%Name)
END IF
IF(SurfaceWindow(SurfLoop)%OriginalClass == SurfaceClass_TDD_Diffuser) THEN
! CurrentModuleObject='TDD Diffusers'
CALL SetupOutputVariable('Surface Outside Face Incident Solar Radiation Rate per Area [W/m2]', &
QRadSWOutIncident(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Rate [W]', &
QRadSWwinAbsTot(SurfLoop),'Zone','Average', &
Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Rate [W]', &
WinTransSolar(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
!energy
CALL SetupOutputVariable('Surface Window Total Glazing Layers Absorbed Solar Radiation Energy [J]', &
QRadSWwinAbsTotEnergy(SurfLoop), &
'Zone','Sum', Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Window Transmitted Solar Radiation Energy [J]',WinTransSolarEnergy(SurfLoop),&
'Zone','Sum',Surface(SurfLoop)%Name)
END IF
ENDDO
DO SurfLoop=1,TotSurfaces
IF (.NOT. Surface(SurfLoop)%HeatTransSurf) CYCLE
! CurrentModuleObject='Surfaces'
CALL SetupOutputVariable('Surface Inside Face Exterior Windows Incident Beam Solar Radiation Rate per Area [W/m2]', &
BmIncInsSurfIntensRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Inside Face Exterior Windows Incident Beam Solar Radiation Rate [W]', &
BmIncInsSurfAmountRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Inside Face Interior Windows Incident Beam Solar Radiation Rate per Area [W/m2]', &
IntBmIncInsSurfIntensRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Inside Face Interior Windows Incident Beam Solar Radiation Rate [W]', &
IntBmIncInsSurfAmountRep(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Inside Face Initial Transmitted Diffuse Absorbed Solar Radiation Rate [W]', &
InitialDifSolInAbsReport(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Inside Face Initial Transmitted Diffuse Transmitted Out Window Solar Radiation Rate [W]', &
InitialDifSolInTransReport(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Inside Face Absorbed Shortwave Radiation Rate [W]', &
SWInAbsTotalReport(SurfLoop),'Zone','Average',Surface(SurfLoop)%Name)
!energy
CALL SetupOutputVariable('Surface Inside Face Exterior Windows Incident Beam Solar Radiation Energy [J]', &
BmIncInsSurfAmountRepEnergy(SurfLoop),'Zone','Sum',Surface(SurfLoop)%Name)
CALL SetupOutputVariable('Surface Inside Face Interior Windows Incident Beam Solar Radiation Energy [J]', &
IntBmIncInsSurfAmountRepEnergy(SurfLoop),'Zone','Sum',Surface(SurfLoop)%Name)
END DO
RETURN
END SUBROUTINE AllocateModuleArrays