AllocateSurfaceHeatBalArrays – EnergyPlusFortran

private subroutine AllocateSurfaceHeatBalArrays()

Arguments

None
Source Code

SUBROUTINE AllocateSurfaceHeatBalArrays  ! Heat Balance Array Allocation done at BeginSim Flag

          ! SUBROUTINE INFORMATION:
          !       AUTHOR         Richard Liesen
          !       DATE WRITTEN   February 1998
          !       MODIFIED       na
          !       RE-ENGINEERED  na

          ! PURPOSE OF THIS SUBROUTINE:
          ! This subroutine

          ! METHODOLOGY EMPLOYED:
          ! Uses the status flags to trigger variable allocation.

          ! REFERENCES:
          ! na

          ! USE STATEMENTS:
!  USE DataRoomAirModel, ONLY: IsZoneDV,IsZoneCV,HVACMassFlow, ZoneDVMixedFlag

  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 Loop

          ! FLOW:

! Use the total number of surfaces to allocate variables to avoid a surface number limit
  ALLOCATE (CTFConstInPart(TotSurfaces))
  CTFConstInPart=0.0d0
  ALLOCATE (CTFConstOutPart(TotSurfaces))
  CTFConstOutPart=0.0d0
  ALLOCATE (CTFTsrcConstPart(TotSurfaces))
  CTFTsrcConstPart=0.0d0
  ALLOCATE (TempEffBulkAir(TotSurfaces))
  TempEffBulkAir=23.0d0
  ALLOCATE (HConvIn(TotSurfaces))
  HConvIn=0.0d0
  ALLOCATE (HcExtSurf(TotSurfaces))
  HcExtSurf=0.0d0
  ALLOCATE (HAirExtSurf(TotSurfaces))
  HAirExtSurf=0.0d0
  ALLOCATE (HSkyExtSurf(TotSurfaces))
  HSkyExtSurf=0.0d0
  ALLOCATE (HGrdExtSurf(TotSurfaces))
  HGrdExtSurf=0.0d0
  ALLOCATE (TempSurfIn(TotSurfaces))
  TempSurfIn=0.0d0
  ALLOCATE (TempSurfInTmp(TotSurfaces))
  TempSurfInTmp=0.0d0
  ALLOCATE (QRadSWOutAbs(TotSurfaces))
  QRadSWOutAbs=0.0d0
  ALLOCATE (QRadSWInAbs(TotSurfaces))
  QRadSWInAbs=0.0d0
  ALLOCATE (InitialDifSolInAbs(TotSurfaces))
  InitialDifSolInAbs=0.0d0
  ALLOCATE (InitialDifSolInTrans(TotSurfaces))
  InitialDifSolInTrans=0.0d0
  ALLOCATE (QRadSWwinAbs(TotSurfaces,CFSMAXNL+1))
  QRadSWwinAbs=0.0d0
  ALLOCATE (InitialDifSolwinAbs(TotSurfaces,CFSMAXNL))
  InitialDifSolwinAbs=0.0d0
  ALLOCATE (QRadSWOutMvIns(TotSurfaces))
  QRadSWOutMvIns=0.0d0
  ALLOCATE (QRadThermInAbs(TotSurfaces))
  QRadThermInAbs=0.0d0
  ALLOCATE (SUMH(TotSurfaces))
  SUMH=0

  ALLOCATE (TH(TotSurfaces,MaxCTFTerms,2))
  TH=0.0d0
  ALLOCATE (TempSurfOut(TotSurfaces))
  TempSurfOut = 0.d0
  ALLOCATE (TempSurfInRep(TotSurfaces))
  TempSurfInRep = 0.d0
  ALLOCATE (QConvInReport(TotSurfaces))
  QConvInReport = 0.d0
  ALLOCATE (QdotConvInRepPerArea(TotSurfaces))
  QdotConvInRepPerArea = 0.d0
  ALLOCATE (QdotConvInRep(TotSurfaces))
  QdotConvInRep = 0.d0

  ALLOCATE ( QRadNetSurfInReport(TotSurfaces))
  QRadNetSurfInReport   = 0.d0
  ALLOCATE ( QdotRadNetSurfInRep(TotSurfaces))
  QdotRadNetSurfInRep   = 0.d0
  ALLOCATE  ( QdotRadNetSurfInRepPerArea(TotSurfaces))
  QdotRadNetSurfInRepPerArea  = 0.d0

  ALLOCATE ( QRadSolarInReport(TotSurfaces))
  QRadSolarInReport   = 0.d0
  ALLOCATE ( QdotRadSolarInRep(TotSurfaces))
  QdotRadSolarInRep   = 0.d0
  ALLOCATE  ( QdotRadSolarInRepPerArea(TotSurfaces))
  QdotRadSolarInRepPerArea  = 0.d0

  ALLOCATE ( QRadLightsInReport(TotSurfaces))
  QRadLightsInReport   = 0.d0
  ALLOCATE ( QdotRadLightsInRep(TotSurfaces))
  QdotRadLightsInRep   = 0.d0
  ALLOCATE  ( QdotRadLightsInRepPerArea(TotSurfaces))
  QdotRadLightsInRepPerArea  = 0.d0

  ALLOCATE ( QRadIntGainsInReport(TotSurfaces))
  QRadIntGainsInReport   = 0.d0
  ALLOCATE ( QdotRadIntGainsInRep(TotSurfaces))
  QdotRadIntGainsInRep   = 0.d0
  ALLOCATE  ( QdotRadIntGainsInRepPerArea(TotSurfaces))
  QdotRadIntGainsInRepPerArea  = 0.d0

  ALLOCATE ( QRadHVACInReport(TotSurfaces))
  QRadHVACInReport   = 0.d0
  ALLOCATE ( QdotRadHVACInRep(TotSurfaces))
  QdotRadHVACInRep   = 0.d0
  ALLOCATE  ( QdotRadHVACInRepPerArea(TotSurfaces))
  QdotRadHVACInRepPerArea  = 0.d0

  ALLOCATE (QConvOutReport(TotSurfaces))
  QConvOutReport = 0.d0
  ALLOCATE (QdotConvOutRepPerArea(TotSurfaces))
  QdotConvOutRepPerArea = 0.d0
  ALLOCATE (QdotConvOutRep(TotSurfaces))
  QdotConvOutRep = 0.d0

  ALLOCATE (QdotRadOutRep(TotSurfaces))
  QdotRadOutRep = 0.d0
  ALLOCATE (QdotRadOutRepPerArea(TotSurfaces))
  QdotRadOutRepPerArea = 0.d0
  ALLOCATE (QRadOutReport(TotSurfaces))
  QRadOutReport = 0.d0


  ALLOCATE (OpaqSurfInsFaceConduction(TotSurfaces))
  OpaqSurfInsFaceConduction=0.d0
  ALLOCATE(OpaqSurfInsFaceConductionFlux(TotSurfaces))
  OpaqSurfInsFaceConductionFlux = 0.d0
  ALLOCATE (OpaqSurfInsFaceCondGainRep(TotSurfaces))
  OpaqSurfInsFaceCondGainRep=0.d0
  ALLOCATE (OpaqSurfInsFaceCondLossRep(TotSurfaces))
  OpaqSurfInsFaceCondLossRep=0.d0
  ALLOCATE (OpaqSurfInsFaceConductionEnergy(TotSurfaces))
  OpaqSurfInsFaceConductionEnergy = 0.d0

  ALLOCATE(SWOutAbsTotalReport(TotSurfaces))
  SWOutAbsTotalReport=0.0d0
  ALLOCATE(SWOutAbsEnergyReport(TotSurfaces))
  SWOutAbsEnergyReport=0.0d0

  ALLOCATE (OpaqSurfOutsideFaceConduction(TotSurfaces))
  OpaqSurfOutsideFaceConduction       = 0.d0
  ALLOCATE(OpaqSurfOutsideFaceConductionFlux(TotSurfaces))
  OpaqSurfOutsideFaceConductionFlux   = 0.d0
  ALLOCATE (OpaqSurfExtFaceCondGainRep(TotSurfaces))
  OpaqSurfExtFaceCondGainRep          = 0.d0
  ALLOCATE (OpaqSurfExtFaceCondLossRep(TotSurfaces))
  OpaqSurfExtFaceCondLossRep          = 0.d0
  ALLOCATE (OpaqSurfOutsideFaceConductionEnergy(TotSurfaces))
  OpaqSurfOutsideFaceConductionEnergy = 0.d0

  ALLOCATE (OpaqSurfAvgFaceCondGainRep(TotSurfaces))
  OpaqSurfAvgFaceCondGainRep      = 0.d0
  ALLOCATE (OpaqSurfAvgFaceCondLossRep(TotSurfaces))
  OpaqSurfAvgFaceCondLossRep      = 0.d0
  ALLOCATE (OpaqSurfAvgFaceConduction(TotSurfaces))
  OpaqSurfAvgFaceConduction       = 0.d0
  ALLOCATE ( OpaqSurfAvgFaceConductionFlux(TotSurfaces))
  OpaqSurfAvgFaceConductionFlux   = 0.d0
  ALLOCATE (OpaqSurfAvgFaceConductionEnergy(TotSurfaces))
  OpaqSurfAvgFaceConductionEnergy = 0.d0

  ALLOCATE ( OpaqSurfStorageGainRep(TotSurfaces))
  OpaqSurfStorageGainRep  = 0.d0
  ALLOCATE ( OpaqSurfStorageCondLossRep(TotSurfaces))
  OpaqSurfStorageCondLossRep  = 0.d0
  ALLOCATE ( OpaqSurfStorageConduction(TotSurfaces))
  OpaqSurfStorageConduction  = 0.d0
  ALLOCATE ( OpaqSurfStorageConductionFlux(TotSurfaces))
  OpaqSurfStorageConductionFlux  = 0.d0
  ALLOCATE ( OpaqSurfStorageConductionEnergy(TotSurfaces))
  OpaqSurfStorageConductionEnergy = 0.d0

  ALLOCATE (OpaqSurfInsFaceBeamSolAbsorbed(TotSurfaces))
  OpaqSurfInsFaceBeamSolAbsorbed=0.0d0
  ALLOCATE (TempSource(TotSurfaces))
  TempSource = 0.0d0
  ALLOCATE (QH(TotSurfaces,MaxCTFTerms,2))
  QH=0.0d0
  ALLOCATE (THM(TotSurfaces,MaxCTFTerms,2))
  THM=0.0d0
  ALLOCATE (QHM(TotSurfaces,MaxCTFTerms,2))
  QHM=0.0d0
  ALLOCATE (TsrcHist(TotSurfaces,MaxCTFTerms))
  TsrcHist = 0.0d0
  ALLOCATE (QsrcHist(TotSurfaces,MaxCTFTerms))
  QsrcHist = 0.0d0
  ALLOCATE (TsrcHistM(TotSurfaces,MaxCTFTerms))
  TsrcHistM = 0.0d0
  ALLOCATE (QsrcHistM(TotSurfaces,MaxCTFTerms))
  QsrcHistM = 0.0d0

  ALLOCATE (NetLWRadToSurf(TotSurfaces))
  NetLWRadToSurf = 0.0d0
  ALLOCATE (QRadSWLightsInAbs(TotSurfaces))
  QRadSWLightsInAbs = 0.d0

  ALLOCATE (RadSysTiHBConstCoef(TotSurfaces))
  RadSysTiHBConstCoef = 0.0d0
  ALLOCATE (RadSysTiHBToutCoef(TotSurfaces))
  RadSysTiHBToutCoef = 0.0d0
  ALLOCATE (RadSysTiHBQsrcCoef(TotSurfaces))
  RadSysTiHBQsrcCoef = 0.0d0
  ALLOCATE (RadSysToHBConstCoef(TotSurfaces))
  RadSysToHBConstCoef = 0.0d0
  ALLOCATE (RadSysToHBTinCoef(TotSurfaces))
  RadSysToHBTinCoef = 0.0d0
  ALLOCATE (RadSysToHBQsrcCoef(TotSurfaces))
  RadSysToHBQsrcCoef = 0.0d0
  ALLOCATE(QRadSysSource(TotSurfaces))
  QRadSysSource = 0.0D0
  ALLOCATE (TCondFDSourceNode(TotSurfaces))
  TcondFDSourceNode = 15.D0
  ALLOCATE(QHTRadSysSurf(TotSurfaces))
  QHTRadSysSurf = 0.0D0
  ALLOCATE(QHWBaseboardSurf(TotSurfaces))
  QHWBaseboardSurf = 0.0D0
  ALLOCATE(QSteamBaseboardSurf(TotSurfaces))
  QSteamBaseboardSurf = 0.0D0
  ALLOCATE(QElecBaseboardSurf(TotSurfaces))
  QElecBaseboardSurf = 0.0D0

  ! allocate term used as sink for PV electricity
  ALLOCATE(QPVSysSource(TotSurfaces))
  QPVSysSource = 0.0D0

!Allocate the moisture balance arrays
  ALLOCATE(TempOutsideAirFD(TotSurfaces))
  TempOutsideAirFD=0.0D0
  ALLOCATE(RhoVaporAirOut(TotSurfaces))
  RhoVaporAirOut=0.0d0
  ALLOCATE(RhoVaporSurfIn(TotSurfaces))
  RhoVaporSurfIn=0.0d0
  ALLOCATE(RhoVaporAirIn(TotSurfaces))
  RhoVaporAirIn=0.0d0
  ALLOCATE(HConvExtFD(TotSurfaces))
  HConvExtFD=0.0d0
  ALLOCATE(HMassConvExtFD(TotSurfaces))
  HMassConvExtFD=0.0d0
  ALLOCATE(HConvInFD(TotSurfaces))
  HConvInFD=0.0d0
  ALLOCATE(HMassConvInFD(TotSurfaces))
  HMassConvInFD=0.0d0
  ALLOCATE(HSkyFD(TotSurfaces))
  HSkyFD=0.0d0
  ALLOCATE(HGrndFD(TotSurfaces))
  HGrndFD=0.0d0
  ALLOCATE(HAirFD(TotSurfaces))
  HAirFD=0.0d0

  CALL DisplayString('Setting up Surface Reporting Variables')

  ! Setup surface report variables CurrentModuleObject='Opaque Surfaces'
  DO Loop=1,TotSurfaces
    IF (.not. Surface(Loop)%HeatTransSurf) CYCLE
    CALL SetupOutputVariable('Surface Inside Face Temperature [C]',TempSurfInRep(Loop),'Zone','State',Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Outside Face Temperature [C]',TempSurfOut(Loop),'Zone','State',Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Adjacent Air Temperature [C]',TempEffBulkAir(Loop),'Zone','State', &
                              Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Convection Heat Transfer Coefficient [W/m2-K]',HConvIn(Loop),'Zone', &
                              'State',Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Convection Heat Gain Rate [W]', QdotConvInRep(loop), 'Zone', 'State', &
                              Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Convection Heat Gain Rate per Area [W/m2]', QdotConvInRepPerArea(loop), &
                              'Zone', 'State',  Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Convection Heat Gain Energy [J]',QConvInReport(loop), 'Zone', 'Sum', &
                              Surface(Loop)%Name)

    CALL SetupOutputVariable('Surface Inside Face Net Surface Thermal Radiation Heat Gain Rate [W]', QdotRadNetSurfInRep(loop), &
                              'Zone', 'State', Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Net Surface Thermal Radiation Heat Gain Rate per Area [W/m2]', &
                               QdotRadNetSurfInRepPerArea(loop), 'Zone', 'State', Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Net Surface Thermal Radiation Heat Gain Energy [J]',QRadNetSurfInReport(loop), &
                               'Zone', 'Sum', Surface(Loop)%Name)

    IF(Surface(Loop)%Class /= SurfaceClass_Window) THEN
      CALL SetupOutputVariable('Surface Inside Face Solar Radiation Heat Gain Rate [W]',  QdotRadSolarInRep(loop), 'Zone',  &
                                'State', Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Inside Face Solar Radiation Heat Gain Rate per Area [W/m2]',  &
                                 QdotRadSolarInRepPerArea(loop), 'Zone', 'State',   Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Inside Face Solar Radiation Heat Gain Energy [J]', QRadSolarInReport(loop), &
                                'Zone', 'Sum', Surface(Loop)%Name)

      CALL SetupOutputVariable('Surface Inside Face Lights Radiation Heat Gain Rate [W]',  QdotRadLightsInRep(loop), &
                                'Zone', 'State', Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Inside Face Lights Radiation Heat Gain Rate per Area [W/m2]',  &
                                QdotRadLightsInRepPerArea(loop), 'Zone', 'State',  Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Inside Face Lights Radiation Heat Gain Energy [J]', QRadLightsInReport(loop), &
                                'Zone', 'Sum', Surface(Loop)%Name)
    ENDIF

    CALL SetupOutputVariable('Surface Inside Face Internal Gains Radiation Heat Gain Rate [W]',  QdotRadIntGainsInRep(loop), &
                              'Zone', 'State', Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Internal Gains Radiation Heat Gain Rate per Area [W/m2]',  &
                              QdotRadIntGainsInRepPerArea(loop), 'Zone', 'State',  Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face Internal Gains Radiation Heat Gain Energy [J]', QRadIntGainsInReport(loop), &
                              'Zone', 'Sum', Surface(Loop)%Name)

    CALL SetupOutputVariable('Surface Inside Face System Radiation Heat Gain Rate [W]',  QdotRadHVACInRep(loop), 'Zone', 'State',&
                                 Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face System Radiation Heat Gain Rate per Area [W/m2]',  &
                               QdotRadHVACInRepPerArea(loop), 'Zone', 'State',  Surface(Loop)%Name)
    CALL SetupOutputVariable('Surface Inside Face System Radiation Heat Gain Energy [J]', QRadHVACInReport(loop), 'Zone', 'Sum', &
                               Surface(Loop)%Name)

    IF (Surface(Loop)%ExtBoundCond == ExternalEnvironment .or. DisplayAdvancedReportVariables) THEN
      CALL SetupOutputVariable('Surface Outside Face Outdoor Air Drybulb Temperature [C]',Surface(Loop)%OutDryBulbTemp,&
                                'Zone','State',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Outdoor Air Wetbulb Temperature [C]',Surface(Loop)%OutWetBulbTemp,&
                                'Zone','State',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Outdoor Air Wind Speed [m/s]',Surface(Loop)%WindSpeed,&
                                'Zone','State',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Convection Heat Gain Rate [W]', QdotConvOutRep(loop), &
                                'Zone', 'State', Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Convection Heat Gain Rate per Area [W/m2]', QdotConvOutRepPerArea(loop),&
                                'Zone', 'State',   Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Convection Heat Gain Energy [J]',QConvOutReport(loop), 'Zone', 'Sum', &
                                                                                 Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Convection Heat Transfer Coefficient [W/m2-K]',HcExtSurf(Loop),&
                                'Zone','State',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Net Thermal Radiation Heat Gain Rate [W]', QdotRadOutRep(loop),   &
                                'Zone', 'State', Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Net Thermal Radiation Heat Gain Rate per Area [W/m2]',   &
         QdotRadOutRepPerArea(loop),  &
                                'Zone', 'State', Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Net Thermal Radiation Heat Gain Energy [J]',QRadOutReport(loop),   &
                                'Zone', 'Sum', Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Thermal Radiation to Air Heat Transfer Coefficient [W/m2-K]',  &
         HAirExtSurf(Loop),&
                                'Zone','State',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Thermal Radiation to Sky Heat Transfer Coefficient [W/m2-K]',  &
         HSkyExtSurf(Loop),&
                                'Zone','State',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Outside Face Thermal Radiation to Ground Heat Transfer Coefficient [W/m2-K]',  &
         HGrdExtSurf(Loop),&
                                'Zone','State',Surface(Loop)%Name)
      IF(Surface(Loop)%Class /= SurfaceClass_Window) THEN
        CALL SetupOutputVariable('Surface Outside Face Solar Radiation Heat Gain Rate [W]',  &
                                  SWOutAbsTotalReport(Loop),'Zone','Average',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Solar Radiation Heat Gain Rate per Area [W/m2]',  &
                                  QRadSWOutAbs(Loop),'Zone','Average',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Solar Radiation Heat Gain Energy [J]', SWOutAbsEnergyReport(Loop),   &
                                   'Zone', 'Sum', Surface(Loop)%Name)
      ENDIF
    ENDIF
    IF(Surface(Loop)%Class==SurfaceClass_Floor .OR. Surface(Loop)%Class==SurfaceClass_Wall .OR.  &
       Surface(Loop)%Class==SurfaceClass_IntMass .or.  &
       Surface(Loop)%Class==SurfaceClass_Roof  .OR. Surface(Loop)%Class==SurfaceClass_Door) THEN
!      IF (DisplayAdvancedReportVariables) THEN  !CurrentModuleObject='Opaque Surfaces(Advanced)'
        CALL SetupOutputVariable('Surface Inside Face Conduction Heat Transfer Rate [W]',OpaqSurfInsFaceConduction(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Inside Face Conduction Heat Gain Rate [W]',OpaqSurfInsFaceCondGainRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Inside Face Conduction Heat Loss Rate [W]',OpaqSurfInsFaceCondLossRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Inside Face Conduction Heat Transfer Rate per Area [W/m2]', &
                                  OpaqSurfInsFaceConductionFlux(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Inside Face Conduction Heat Transfer Energy [J]', &
                                   OpaqSurfInsFaceConductionEnergy(Loop), 'Zone', 'Sum', Surface(Loop)%Name)

        CALL SetupOutputVariable('Surface Outside Face Conduction Heat Transfer Rate [W]',OpaqSurfOutsideFaceConduction(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Conduction Heat Gain Rate [W]',OpaqSurfExtFaceCondGainRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Conduction Heat Loss Rate [W]',OpaqSurfExtFaceCondLossRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Conduction Heat Transfer Rate per Area [W/m2]',&
                                   OpaqSurfOutsideFaceConductionFlux(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Conduction Heat Transfer Energy [J]', &
                                   OpaqSurfOutsideFaceConductionEnergy(Loop), 'Zone', 'Sum', Surface(Loop)%Name)

        CALL SetupOutputVariable('Surface Average Face Conduction Heat Transfer Rate [W]',OpaqSurfAvgFaceConduction(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Average Face Conduction Heat Gain Rate [W]',OpaqSurfAvgFaceCondGainRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Average Face Conduction Heat Loss Rate [W]',OpaqSurfAvgFaceCondLossRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Average Face Conduction Heat Transfer Rate per Area [W/m2]', &
                                   OpaqSurfAvgFaceConductionFlux(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Average Face Conduction Heat Transfer Energy [J]', &
                                   OpaqSurfAvgFaceConductionEnergy(Loop), 'Zone', 'Sum', Surface(Loop)%Name)

        CALL SetupOutputVariable('Surface Heat Storage Rate [W]',OpaqSurfStorageConduction(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Heat Storage Gain Rate [W]',OpaqSurfStorageGainRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Heat Storage Loss Rate [W]',OpaqSurfStorageCondLossRep(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Heat Storage Rate per Area [W/m2]',OpaqSurfStorageConductionFlux(Loop), &
                                  'Zone','State',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Heat Storage Energy [J]', &
                                   OpaqSurfStorageConductionEnergy(Loop), 'Zone', 'Sum', Surface(Loop)%Name)

!      ENDIF
        !CurrentModuleObject='Opaque Surfaces'

      CALL SetupOutputVariable('Surface Inside Face Beam Solar Radiation Heat Gain Rate [W]',OpaqSurfInsFaceBeamSolAbsorbed(Loop), &
                        'Zone','State',Surface(Loop)%Name)
    END IF
    IF (Construct(Surface(Loop)%Construction)%SourceSinkPresent) &
      CALL SetupOutputVariable('Surface Internal Source Location Temperature [C]',  &
                               TempSource(Loop),'Zone','State',Surface(Loop)%Name)
    IF(Surface(Loop)%Class == SurfaceClass_Window) THEN  ! CurrentModuleObject='Windows'
      CALL SetupOutputVariable('Surface Shading Device Is On Time Fraction []',SurfaceWindow(Loop)%FracTimeShadingDeviceOn, &
                                          'Zone','Average',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Storm Window On Off Status []',SurfaceWindow(Loop)%StormWinFlag, &
                                          'Zone','State',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Window Blind Slat Angle [deg]',SurfaceWindow(Loop)%SlatAngThisTSDeg,  &
                               'Zone','State',Surface(Loop)%Name)
    END IF
!    IF (DisplayAdvancedReportVariables) THEN  !CurrentModuleObject='Opaque Surfaces(Advanced)'
      CALL SetupOutputVariable('Surface Inside Face Convection Classification Index [ ]',   &
                              Surface(Loop)%IntConvClassification, &
                              'Zone','Average',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Inside Face Convection Model Equation Index [ ]',   &
                               Surface(Loop)%IntConvHcModelEq, &
                              'Zone','Average',Surface(Loop)%Name)
      CALL SetupOutputVariable('Surface Inside Face Convection Reference Air Index [ ]',   &
                               Surface(Loop)%TairRef, &
                              'Zone','Average',Surface(Loop)%Name)
      IF (Surface(Loop)%ExtBoundCond == ExternalEnvironment) THEN
        CALL SetupOutputVariable('Surface Outside Face Convection Classification Index [ ]',   &
                              Surface(Loop)%OutConvClassification, &
                              'Zone','Average',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Forced Convection Model Equation Index [ ]',   &
                              Surface(Loop)%OutConvHfModelEq, &
                              'Zone','Average',Surface(Loop)%Name)
        CALL SetupOutputVariable('Surface Outside Face Natural Convection Model Equation Index [ ]',   &
                              Surface(Loop)%OutConvHnModelEq, &
                              'Zone','Average',Surface(Loop)%Name)
      ENDIF
!     ENDIF
    IF (DisplayAdvancedReportVariables) THEN
      CALL SetupOutputVariable('Surface Construction Index []', Surface(Loop)%Construction, &
                               'Zone','Average',Surface(Loop)%Name)
    ENDIF

  ENDDO

!unused  ALLOCATE (QBV(NumOfZones))
!unused  QBV=0.0
  ALLOCATE (QC(NumOfZones))
  QC=0.0d0
  ALLOCATE (QD(NumOfZones))
  QD=0.0d0
  ALLOCATE (QDforDaylight(NumOfZones))
  QDforDaylight=0.0d0
  ALLOCATE (QDV(NumOfZones))
  QDV=0.0d0
  ALLOCATE(QL(NumOfZones))
  QL=0.0d0

!UCSD
  ALLOCATE(MRT(NumOfZones))
  MRT=0.0d0

  ! Allocate Reporting Variables and set up tracking
  ALLOCATE(ZoneMRT(NumOfZones))
  ZoneMRT=0.0d0

  DO Loop=1,NumOfZones
      !CurrentModuleObject='Zone'
    CALL SetupOutputVariable('Zone Mean Radiant Temperature [C]',ZoneMRT(Loop),'Zone','State',Zone(Loop)%Name)
  END DO

  RETURN

END SUBROUTINE AllocateSurfaceHeatBalArrays
AllocateSurfaceHeatBalArrays Subroutine

Source Code

All Procedures

private subroutine AllocateSurfaceHeatBalArrays()

Arguments

Calls

Called By

Source Code

Source Code

All Procedures
