ReportRefrigerationComponents Subroutine

SUBROUTINE ReportRefrigerationComponents

          ! SUBROUTINE INFORMATION:
          !       AUTHOR         Richard Raustad, FSEC
          !       DATE WRITTEN   October 2004
          !       MODIFIED       Shirey, FSEC Dec 2004; Lawrie, Mar 2008 - Node names, not numbers.
          !       MODIFIED       Stovall - 2008 to 2010, new refrig variables and move orphan reporting to input.
          !       MODIFIED       Fricke, ORNL, Fall 2011, added transcritical CO2 refrigeration system variables
          !       RE-ENGINEERED  na

          ! PURPOSE OF THIS SUBROUTINE:
          ! To report information from the input deck for refrigerated cases and racks to the eio and err file.

          ! METHODOLOGY EMPLOYED:
          ! na

          ! REFERENCES:
          ! na

          ! USE STATEMENTS:
  USE DataLoopNode, ONLY: NodeID
  USE General, ONLY: RoundSigDigits

  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:
  INTEGER CascadeLoadID
  INTEGER CascadeLoadNum
  INTEGER CaseID
  INTEGER CaseNum
  INTEGER ChillerSetNum
  INTEGER CoilID
  INTEGER CoilNum
  INTEGER CompID
  INTEGER CompressorNum
  INTEGER CondID
  INTEGER CountSecPhase
  INTEGER CountSecBrine
  INTEGER GasCoolerID
  INTEGER RackNum
  INTEGER SecondaryID
  INTEGER SecondaryNum
  INTEGER SubcoolerNum
  INTEGER SubcoolerID
  INTEGER SystemNum
  INTEGER TransSystemNum
  INTEGER WalkInID
  INTEGER WalkInNum
  INTEGER ZoneNum
  INTEGER ZoneID
  CHARACTER(len=15) ChrOut
  CHARACTER(len=15) ChrOut2

 101 FORMAT(A)
 102 FORMAT(4X,A)
 103 FORMAT(2X,A)
 104 FORMAT('! <Refrigeration Compressor Rack>,Compressor Rack Name,',&
        ' # Refrigerated Cases Connected,# WalkIn Coolers Connected, Heat Rejection Location, ',&
        'Condenser Type, COP')
 105 FORMAT('!',2x,'<Refrigeration Case>,Refrigeration Case Number, Refrigeration Case Name,Zone Name,', &
        'Zone Node #,Zone Node Name,Capacity (W/m),LHR,Temperature (C),Length (m),Fan (W/m),',&
        'Installed Lighting (W/m),Anti-Sweat (W/m),Defrost (W/m)')
 108 FORMAT('!',2x,'<Refrigeration Compressor>,Compressor Number,Compressor Name,Nominal Capacity (W)')
 109 FORMAT('! <#Refrigeration Compressor Racks>,Number of Refrigeration Compressor Racks')
! 111 FORMAT(',',1X,F6.3) ! compressor rack output line
! 112 FORMAT(',',1X,F16.0)! compressor output line
! 113 FORMAT(',',1X,F7.1,',',1X,F6.2,6(',',1X,F6.1)) !refrigerated case output line
 114 FORMAT(',',1X,F7.1) ! detailed system output line
 117 FORMAT('! <#Detailed Refrigeration Systems>,Number of Detailed Refrigeration Systems')
 118 FORMAT('! <Detailed Refrigeration System>,Refrigeration System Name,Refrigerant Used', &
                ', # Refrigerated Cases Connected, # WalkInCoolers Connected, #Air Chillers Connected', &
                ', # Secondary Loops Served, # Cascade Condensers Served', &
                ', # Mechanical Subcoolers Served, # Compressors Connected', &
                ', # Compression Stages, Intercooler Type, Intercooler Effectiveness', &
                ', # Subcoolers Connected, Minimum Condensing Temperature (C)')
 119 FORMAT('!',2x,'<Refrigeration Walk In Cooler>, Walk In Number, Walk In Name,', &
         'Capacity (W),Temperature (C),Coil Fan (W), Circulating Fan (W), ',&
         'Lighting (W),Heaters (W),Defrost (W), # Zones')
 120 FORMAT('! <#Detailed Transcritical Refrigeration Systems>,Number of Detailed Transcritical Refrigeration Systems')
 121 FORMAT('! <Detailed Transcritical Refrigeration System>,Transcritical Refrigeration System Name,Refrigerant Used', &
                ', # Medium Temperature Refrigerated Cases Connected, # Low Temperature Refrigerated Cases Connected', &
                ', # Medium Temperature WalkInCoolers Connected, # Low Temperature WalkInCoolers Connected', &
                ', # High Pressure Compressors Connected, # Low Pressure Compressors Connected', &
                ', Minimum Condensing Temperature (C)')
 123 FORMAT('!',2x,'<Secondary Load>, Secondary System Served Name, Secondary Number')
 126 FORMAT('!',2x,'<Refrigeration Mechanical Subcooler>, Subcooler Number, Subcooler Name, ', &
                'Name of System Providing Cooling, Design Outlet Temperature (C)')
 127 FORMAT('!',2x,'<Refrigeration Liquid Suction Subcooler>, Subcooler Number, Subcooler Name, ', &
                'Design Subcooling (DeltaC),',&
            'Design liquid inlet temperature (C), Design vapor inlet temperature (C)')
 128 FORMAT('!',2x,'<Cascade Load>, System Name Connected, Condenser Number, Condenser Name')
 129 FORMAT('!',2x,'<Refrigeration Condenser:Air-Cooled>,Condenser Number,Condenser Name,Rated Condensing Temperature (C),', &
            'Rated Capacity (W), Rated Fan Power (W)')
 130 FORMAT('!',2x,'<Refrigeration Condenser:Water-Cooled>,Condenser Number,Condenser Name,Rated Condensing Temperature (C),', &
            'Rated Capacity (W), Rated Water Inlet Temperature (C), Rated Water Flow Rate (m3/s)')
 131 FORMAT('!',2x,'<Refrigeration Condenser:Evaporative-Cooled>,Condenser Number,Condenser Name,', &
            'Rated Capacity (W), Rated Fan Power (W)')
 132 FORMAT('!',2x,'<Refrigeration Condenser:Cascade>, Condenser Number, Condenser Name,', &
         ' Condensing Temperature Control Type, Rated Condensing Temperature (C),', &
         ' Capacity (W), Approach Temperature Difference (DeltaC)')
 133 FORMAT('! <Secondary Refrigeration System: Fluid Always Liquid>, Secondary Number, Secondary Name,', &
         ' # Refrigerated Cases Connected, # WalkIn Coolers Connected,', &
         ' Fluid Name, Capacity (W),Evap Temperature in Secondary Evaporator (C),',&
         ' Approach Temperature Difference (DeltaC), Temperature Range (DeltaC), TotalPumpPower (W)')
 134 FORMAT('!',6x,'<Walk-In Surfaces Facing Zone>, ZoneName,',&
            ' Wall/Ceiling Area (m2), UValue (W/m2-C), AreaStockDoors (m2), HeightStockDoors,',&
            ' UValueStockDoors (W/m2-C), AreaGlassDoors (m2), HeightGlassDoors (m), ',&
            ' UValueGlassDoors (W/m2-C)')
! 135 FORMAT (6x,6(',',1X,F16.1),',',2x,I5)
! 136 FORMAT (6x,8(',',1X,F16.1))
! 137 FORMAT (2x, 2(',',1X,F12.1))!condenser output
! 138 FORMAT (2x, 3(',',1X,F12.1))!condenser output
! 139 FORMAT (2x, 4(',',1X,F12.1))!condenser output
! 140 FORMAT(7(',',1X,F8.1),1X,',',I5) !walkin output line
 141 FORMAT('!',2x,'<Mechanical Subcooler Load>, Subcooler Number, Subcooler Name')
 142 FORMAT('! <#Secondary Refrigeration Systems>,Number of Secondary Refrigeration Systems')
! 143 FORMAT(',',1X,F8.1,',',1X,F8.4,2(1X,',',F8.2,',',1x,F8.2,',',1x,F8.4)) !walkin/zone output line
! 144 FORMAT(',',1X,F7.1) !mech subcooler output line
! 145 FORMAT(3(',',1X,F7.1)) !lshx output line
 146 FORMAT('! <Secondary Refrigeration System: Liquid Overfeed>, Secondary Number, Secondary Name,', &
         ' # Refrigerated Cases Connected, # WalkIn Coolers Connected, #Air Coils Connected', &
         ' Fluid Name, Capacity (W),Evap Temperature in Secondary Evaporator (C),',&
         ' Approach Temperature Difference (DeltaC), Circulating Rate, TotalPumpPower (W)')
! 147 FORMAT(',',1X,F7.1,1X,2(',',F6.2),2(',',1X,F9.3)) !secondary system output line
 148 FORMAT('! <#ZoneHVAC/Refrigeration Air Chiller Sets>,Number of ZoneHVAC/Refrigeration Air Chiller Sets')
 149 FORMAT('! <ZoneHVAC/Refrigeration Air Chiller Set>,Chiller Set Name,',&
        ' # Air Chillers Connected, Zone Location')
 !150 FORMAT('! <#Refrigeration Air Chiller>,Number of Refrigeration Air Chillers')
 151 FORMAT('!',2x,'<Refrigeration Air Chiller>,Refrigeration Chiller Number, Refrigeration Chiller Name,Zone Name,', &
        'Zone Node #,Zone Node Name,Sensible Capacity (W/C),Sensible Capacity (W),Evaporating Temperature (C),DT1 (C),',&
        'Fan Power (W),Heater (W),Defrost (W), Air Flow Rate (m3/s)')
 152 FORMAT('!',2x,'<Air Chiller Load>, Air Chiller Name, Air Chiller Number, Zone Name,')
 160 FORMAT('!',2x,'<Refrigeration GasCooler:Air-Cooled>,Gas Cooler Number, Gas Cooler Name, Rated Outlet Pressure (Pa),', &
         'Rated Outlet Temperature (C), Rated Approach Temperature (C), Rated Capacity (W), Rated Fan Power (W)')


        !write all headers applicable to this simulation
 IF(NumRefrigeratedRacks > 0) THEN
  WRITE(OutputFileInits,109) ! Intro to refrigeration case racks
  WRITE(OutputFileInits,104) ! Refrigeration Rack header
 END IF !(NumRefrigeratedRacks > 0)
IF(NumRefrigSystems > 0)THEN
  WRITE(OutputFileInits,117) ! Intro to detailed systems
  WRITE(OutputFileInits,118) ! Detailed system header
  WRITE(OutputFileInits,108) ! Compressor header (Always have compressor if have detailed system)
END IF !(NumRefrigSystems > 0)
IF(NumSimulationSecondarySystems > 0)THEN
  WRITE(OutputFileInits,142) ! Intro to Secondary systems
  CountSecPhase = 0
  CountSecBrine = 0
  DO SecondaryID=1,NumSimulationSecondarySystems
    IF((Secondary(SecondaryID)%FluidType == SecFluidTypeAlwaysLiquid).AND. (CountSecBrine ==0))THEN
      WRITE(OutputFileInits,133) ! Secondary system header for brine type systems
      CountSecBrine = CountSecBrine + 1
    END IF
    IF((Secondary(SecondaryID)%FluidType == SecFluidTypePhaseChange).AND. (CountSecPhase ==0))THEN
      WRITE(OutputFileInits,146) ! Secondary system header for liquid overfeed/phase change systems
      CountSecPhase = CountSecPhase +1
    END IF
  END DO
  WRITE(OutputFileInits,123) !  Secondary system load header
END IF !(NumSimulationSecondarySystems > 0)
IF(NumRefrigChillerSets > 0)THEN
  WRITE(OutputFileInits,148) ! Intro to Chiller set
  WRITE(OutputFileInits,149) ! Chiller set header
  WRITE(OutputFileInits,151) ! Intro to Air Chiller
  WRITE(OutputFileInits,152) ! Air chiller header
END IF !(NumRefrigSystems > 0)
IF(NumSimulationCases > 0)THEN
  WRITE(OutputFileInits,105) !  Case header
END IF !(NumSimulationCases > 0)
IF(NumSimulationWalkIns > 0)THEN
  WRITE(OutputFileInits,119) !  Walk-in header
  WRITE(OutputFileInits,134) !  Walk-in zone-specific header
END IF !(NumSimulationWalkIns > 0)
IF(NumSimulationCondAir > 0)THEN
  WRITE(OutputFileInits,129) !  Condenser, Air-Cooled header
END IF !(NumSimulationCondAir > 0)
IF(NumSimulationCondEvap > 0)THEN
  WRITE(OutputFileInits,131) !  Condenser, Evaporative-Cooled header
END IF !(NumSimulationCondEvap > 0)
IF(NumSimulationCondWater > 0)THEN
  WRITE(OutputFileInits,130) !  Condenser, Water-Cooled header
END IF !(NumSimulationCondWater > 0)
IF(NumSimulationCascadeCondensers > 0)THEN
  WRITE(OutputFileInits,132) !  Condenser, Cascade header
  WRITE(OutputFileInits,128) !  Cascade Load header
END IF !(NumSimulationCascadeCondensers > 0)
IF(NumSimulationMechSubcoolers > 0)THEN
  WRITE(OutputFileInits,141) !  Mech subcooler loads served header
  WRITE(OutputFileInits,126) !  Mechanical Subcooler header
END IF !(NumSimulationMechSubcoolers > 0)
IF((NumSimulationSubcoolers - NumSimulationMechSubcoolers) > 0)THEN
  WRITE(OutputFileInits,127) !  LSHX Subcooler header
END IF !((NumSimulationSubcoolers - NumSimulationMechSubcoolers) > 0)

IF(NumTransRefrigSystems > 0)THEN
  WRITE(OutputFileInits,120) ! Intro to detailed transcriticial refrigeration system
  WRITE(OutputFileInits,121) ! Detailed system header
  IF(NumSimulationCases > 0)THEN
    WRITE(OutputFileInits,105) !  Case header
  END IF !(NumSimulationCases > 0)
  IF(NumSimulationWalkIns > 0)THEN
    WRITE(OutputFileInits,119) !  Walk-in header
    WRITE(OutputFileInits,134) !  Walk-in zone-specific header
  END IF !(NumSimulationWalkIns > 0)
  WRITE(OutputFileInits,108) ! Compressor header (Always have compressor if have detailed system)
  IF(NumSimulationGasCooler > 0)THEN
    WRITE(OutputFileInits,160) !  Gas Cooler, Air-Cooled header
  END IF !(NumSimulationGasCooler > 0)
END IF !(NumTransRefrigSystems > 0)

 IF(NumRefrigeratedRacks > 0) THEN
  WRITE(OutputFileInits,101) '#Refrigeration Compressor Racks, '//TRIM(RoundSigDigits(NumRefrigeratedRacks))
  DO RackNum=1,NumRefrigeratedRacks
    IF(RefrigRack(RackNum)%HeatRejectionLocation == LocationOutdoors ) THEN
      ChrOut='Outdoors'
    ELSE
      ChrOut='Zone'
    END IF
    SELECT CASE (RefrigRack(RackNum)%CondenserType)
      CASE(RefrigCondenserTypeAir)
      ChrOut2='Air-Cooled'
      CASE(RefrigCondenserTypeEvap)
      ChrOut2='Evap-Cooled'
      CASE(RefrigCondenserTypeWater)
      ChrOut2='Water-Cooled'
    END SELECT
    WRITE(OutputFileInits,101) ' Refrigeration Compressor Rack,'//TRIM(RefrigRack(RackNum)%Name)//','// &
            TRIM(RoundSigDigits(RefrigRack(RackNum)%NumCases))//','// &
            TRIM(RoundSigDigits(RefrigRack(RackNum)%NumWalkIns))//','// &
            TRIM(ChrOut)//','// TRIM(ChrOut2)//','//trim(RoundSigDigits(RefrigRack(RackNum)%RatedCOP,3))
    DO CaseNum=1,RefrigRack(RackNum)%NumCases
      CaseID = RefrigRack(RackNum)%CaseNum(CaseNum)
      WRITE(OutputFileInits,103) ' Refrigeration Case,'//  &
            TRIM(RoundSigDigits(CaseID))//','//  &
            TRIM(RefrigCase(CaseID)%Name)//','//  &
            TRIM(RefrigCase(CaseID)%ZoneName)//','//   &
            TRIM(RoundSigDigits(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            TRIM(NodeID(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RateTotCapPerLength,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%RatedLHR,2))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Temperature,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Length,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%OperatingFanPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%LightingPower,1))//','// &  !Installed lighting power, may not be rated power
            trim(RoundSigDigits(RefrigCase(CaseID)%AntiSweatPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%DefrostPower,1))
    ENDDO !numcases

    DO  WalkInNum=1,RefrigRack(RackNum)%NumWalkIns
      WalkInID = RefrigRack(RackNum)% WalkInNum( WalkInNum)
      WRITE(OutputFileInits,103) ' Refrigeration Walk In Cooler,  '//  &
            TRIM(RoundSigDigits(WalkInID))//','//  &
            TRIM( WalkIn(WalkInID)%Name)//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignRatedCap,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%Temperature,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CoilFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CircFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%ElecFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignLighting,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeaterPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DefrostCapacity,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%NumZones))
      DO ZoneID=1, WalkIn( WalkInID)%NumZones
         WRITE(OutputFileInits,102) '  Walk-In Surfaces Facing Zone, '//  &
            TRIM( WalkIn(WalkInID)%ZoneName(ZoneID))//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%SurfaceArea(ZoneID),1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValue(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueStockDr(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueGlassDr(ZoneID),4))
      ENDDO !zones for walk ins on rack
    ENDDO ! walk ins on rack

    DO CoilNum=1,RefrigRack(RackNum)%NumCoils
      CoilID = RefrigRack(RackNum)%CoilNum(CoilNum)
      WRITE(OutputFileInits,103) ' Air Chiller Load,'//  &
            TRIM(WareHouseCoil(CoilID)%Name)//','//  &
            TRIM(RoundSigDigits(CoilID))//','//  &
            TRIM(WareHouseCoil(CoilID)%ZoneName)
    ENDDO !numairchillers
  ENDDO !numracks
END IF !(NumRefrigeratedRacks > 0)

IF(NumRefrigSystems > 0)THEN
  WRITE(OutputFileInits,101) '#Detailed Refrigeration Systems,'//TRIM(RoundSigDigits(NumRefrigSystems))
  DO SystemNum=1,NumRefrigSystems
    WRITE(OutputFileInits,101) ' Detailed Refrigeration System,'//&
          TRIM(System(SystemNum)%Name)//','//TRIM(System(SystemNum)%RefrigerantName)//','//&
          TRIM(RoundSigDigits(System(SystemNum)%NumCases))//','// &
          TRIM(RoundSigDigits(System(SystemNum)%NumWalkIns))//','// &
          TRIM(RoundSigDigits(System(SystemNum)%NumCoils))//','// &
          TRIM(RoundSigDigits(System(SystemNum)%NumSecondarys))//','// &
          TRIM(RoundSigDigits(System(SystemNum)%NumCascadeLoads))//','//&
          TRIM(RoundSigDigits(System(SystemNum)%NumMechSCServed))//','//&
          TRIM(RoundSigDigits(System(SystemNum)%NumCompressors + System(SystemNum)%NumHiStageCompressors))//','//&
          TRIM(RoundSigDigits(System(SystemNum)%NumStages))//','// &
          TRIM(RoundSigDigits(System(SystemNum)%IntercoolerType))//','// &
          TRIM(RoundSigDigits(System(SystemNum)%IntercoolerEffectiveness,2))//','// &
          TRIM(RoundSigDigits(System(SystemNum)%NumSubcoolers))//','//  &
          trim(RoundSigDigits(System(SystemNum)%TCondenseMin,1))

    DO CaseNum=1,System(SystemNum)%NumCases
      CaseID=System(SystemNum)%CaseNum(CaseNum)
      WRITE(OutputFileInits,103) ' Refrigeration Case,'//  &
            TRIM(RoundSigDigits(CaseID))//','//  &
            TRIM(RefrigCase(CaseID)%Name)//','//  &
            TRIM(RefrigCase(CaseID)%ZoneName)//','//   &
            TRIM(RoundSigDigits(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            TRIM(NodeID(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RateTotCapPerLength,1))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RatedLHR,2))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Temperature,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Length,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%OperatingFanPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%LightingPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%AntiSweatPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%DefrostPower,1))
    ENDDO !NumCases on system
    DO  WalkInNum=1,System(SystemNum)%NumWalkIns
      WalkInID=System(SystemNum)%WalkInNum(WalkInNum)
      WRITE(OutputFileInits,103) ' Refrigeration Walk In Cooler,'//  &
            TRIM(RoundSigDigits(WalkInID))//','//  &
            TRIM( WalkIn(WalkInID)%Name)//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignRatedCap,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%Temperature,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CoilFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CircFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignLighting,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeaterPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DefrostCapacity,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%NumZones))
       DO ZoneID=1, WalkIn( WalkInID)%NumZones
         WRITE(OutputFileInits,102) '  Walk-In Surfaces Facing Zone, '//  &
            TRIM( WalkIn(WalkInID)%ZoneName(ZoneID))//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%SurfaceArea(ZoneID),1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValue(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueStockDr(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueGlassDr(ZoneID),4))
    ENDDO !Num zones for each walk in on system
    ENDDO !NumWalkIns on system

    DO CoilNum=1,System(SystemNum)%NumCoils
    CoilID = System(SystemNum)%CoilNum(CoilNum)
      WRITE(OutputFileInits,103) ' Air Chiller Load,'//  &
            TRIM(WareHouseCoil(CoilID)%Name)//','//  &
            TRIM(RoundSigDigits(CoilID))//','//  &
            TRIM(WareHouseCoil(CoilID)%ZoneName)
    ENDDO !numairchillers

  DO CascadeLoadNum=1,System(SystemNum)%NumCascadeLoads
      CascadeLoadID = System(SystemNum)%CascadeLoadNum(CascadeLoadNum)
      WRITE(OutputFileInits,103) ' Cascade Load,'//  &
            TRIM(System(Condenser(CascadeLoadID)%CascadeSysID)%Name)//','// &
            TRIM(RoundSigDigits(CascadeLoadID))//','//TRIM(Condenser(CascadeLoadID)%Name)
  ENDDO !cascade load on detailed system

  DO SecondaryNum=1,System(SystemNum)%NumSecondarys
      SecondaryID = System(SystemNum)% SecondaryNum( SecondaryNum)
      WRITE(OutputFileInits,103) ' Secondary Load,'//  &
            TRIM(Secondary(SecondaryID)%Name)//','//TRIM(RoundSigDigits(SecondaryID))
  ENDDO !secondary load on detailed system

  DO SubcoolerNum=1,NumSimulationSubcoolers
    IF (Subcooler(SubcoolerNum)%MechSourceSysID /=SystemNum)CYCLE
    WRITE(OutputFileInits,103)' Mechanical Subcooler Load, '// TRIM(RoundSigDigits(SubcoolerNum))//','//  &
             TRIM(Subcooler(SubcoolerNum)%Name)
  ENDDO !Num sim subcoolers, looking only for NumSMech Subcoolers served by this system

    IF (System(SystemNum)%NumStages == 1) THEN  ! Single-stage compression system
       DO CompressorNum=1,System(SystemNum)%NumCompressors
        CompID=System(SystemNum)%CompressorNum(CompressorNum)
        WRITE(OutputFileInits,103) ' Refrigeration Compressor,'//  &
              TRIM(RoundSigDigits(CompID))//','//  &
              TRIM(Compressor(CompID)%Name)//','//  &
              TRIM(RoundSigDigits(Compressor(CompID)%NomCap,0))
       ENDDO !NumCompressors
    ELSE IF (System(SystemNum)%NumStages == 2) THEN  ! Two-stage compression system
       ! Low-stage compressors
       DO CompressorNum=1,System(SystemNum)%NumCompressors
        CompID=System(SystemNum)%CompressorNum(CompressorNum)
        WRITE(OutputFileInits,103) ' Refrigeration Low-Stage Compressor,'//  &
              TRIM(RoundSigDigits(CompID))//','//  &
              TRIM(Compressor(CompID)%Name)//','//  &
              TRIM(RoundSigDigits(Compressor(CompID)%NomCap,0))
       ENDDO !NumCompressors
       ! High-stage compressors
       DO CompressorNum=1,System(SystemNum)%NumHiStageCompressors
        CompID=System(SystemNum)%HiStageCompressorNum(CompressorNum)
        WRITE(OutputFileInits,103) ' Refrigeration High-Stage Compressor,'//  &
              TRIM(RoundSigDigits(CompID))//','//  &
              TRIM(Compressor(CompID)%Name)//','//  &
              TRIM(RoundSigDigits(Compressor(CompID)%NomCap,0))
       ENDDO !NumHiStageCompressors
    END IF  !NumStages

    CondID=System(SystemNum)%CondenserNum(1)
    SELECT CASE (Condenser(CondID)%CondenserType)
      CASE(RefrigCondenserTypeAir)
        WRITE(OutputFileInits,103) ' Refrigeration Condenser:Air-Cooled,'//  &
            TRIM(RoundSigDigits(CondID))//','// TRIM(Condenser(CondID)%Name)//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedTCondense,1))//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedCapacity,1))//','//   &
            trim(RoundSigDigits(Condenser(CondID)%RatedFanPower,1))
      CASE(RefrigCondenserTypeEvap)
        WRITE(OutputFileInits,103) ' Refrigeration Condenser:Evaporative-Cooled,'//  &
            TRIM(RoundSigDigits(CondID))//','// TRIM(Condenser(CondID)%Name)//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedCapacity,1))//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedFanPower,1))
      CASE(RefrigCondenserTypeWater)
        WRITE(OutputFileInits,103) ' Refrigeration Condenser:Water-Cooled,'//  &
            TRIM(RoundSigDigits(CondID))//','// TRIM(Condenser(CondID)%Name)//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedTCondense,1))//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedCapacity,1))//','//   &
            trim(RoundSigDigits(Condenser(CondID)%InletTemp,1))//','//  &
            trim(RoundSigDigits(Condenser(CondID)%DesVolFlowRate,1))
      CASE(RefrigCondenserTypeCascade)

        SELECT CASE (Condenser(CondID)%CascadeTempControl)
          CASE(CascadeTempSet)
            ChrOut = 'Fixed'
          CASE(CascadeTempFloat)
            ChrOut = 'Floating'
        END SELECT ! cascade temperature control
        WRITE(OutputFileInits,103) ' Refrigeration Condenser:Cascade,'//  &
            TRIM(RoundSigDigits(CondID))//','// TRIM(Condenser(CondID)%Name)//','// TRIM(Chrout)//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedTCondense,1))//','//  &
            trim(RoundSigDigits(Condenser(CondID)%RatedCapacity,1))//','//   &
            trim(RoundSigDigits(Condenser(CondID)%RatedApproachT,1))
    END SELECT !condenser type

    DO SubcoolerNum=1,System(SystemNum)%NumSubcoolers
      SubcoolerID=System(SystemNum)%SubcoolerNum(SubcoolerNum)
      SELECT CASE(Subcooler(SubcoolerID)%SubcoolerType)
        CASE(LiquidSuction)
          WRITE(OutputFileInits,103) ' Refrigeration Liquid Suction Subcooler,'//  &
             TRIM(RoundSigDigits(SubcoolerID))//','//  &
             TRIM(Subcooler(SubcoolerID)%Name)//','//  &
             trim(RoundSigDigits(Subcooler(SubcoolerID)%LiqSuctDesignDelT,1))//','//  &
             trim(RoundSigDigits(Subcooler(SubcoolerID)%LiqSuctDesignTliqIn,1))//','// &
             trim(RoundSigDigits(Subcooler(SubcoolerID)%LiqSuctDesignTvapIn,1))
        CASE(Mechanical)
          WRITE(OutputFileInits,103) ' Refrigeration Mechanical Subcooler,'//  &
             TRIM(RoundSigDigits(SubcoolerID))//','//  &
             TRIM(Subcooler(SubcoolerID)%Name)//','//TRIM(Subcooler(SubcoolerID)%MechSourceSys)//','//  &
             trim(RoundSigDigits(Subcooler(SubcoolerID)%MechControlTliqOut,1))
      END SELECT
    ENDDO !NumSubcoolers

  ENDDO  !NumRefrigSystems
END IF !(NumRefrigSystems > 0)

IF(NumTransRefrigSystems > 0)THEN
  WRITE(OutputFileInits,101) '#Detailed Transcritical Refrigeration Systems,'//TRIM(RoundSigDigits(NumTransRefrigSystems))
  DO TransSystemNum=1,NumTransRefrigSystems
    WRITE(OutputFileInits,101) ' Detailed Transcritical Refrigeration System,'//&
          TRIM(TransSystem(TransSystemNum)%Name)//','//TRIM(TransSystem(TransSystemNum)%RefrigerantName)//','//&
          TRIM(RoundSigDigits(TransSystem(TransSystemNum)%NumCasesMT))//','// &
          TRIM(RoundSigDigits(TransSystem(TransSystemNum)%NumCasesLT))//','// &
          TRIM(RoundSigDigits(TransSystem(TransSystemNum)%NumWalkInsMT))//','// &
          TRIM(RoundSigDigits(TransSystem(TransSystemNum)%NumWalkInsLT))//','// &
          TRIM(RoundSigDigits(TransSystem(TransSystemNum)%NumCompressorsHP))//','//&
          TRIM(RoundSigDigits(TransSystem(TransSystemNum)%NumCompressorsLP))//','//&
          trim(RoundSigDigits(GasCooler(TransSystem(TransSystemNum)%GasCoolerNum(1))%MinCondTemp,1))

    DO CaseNum=1,TransSystem(TransSystemNum)%NumCasesMT
      CaseID=TransSystem(TransSystemNum)%CaseNumMT(CaseNum)
      WRITE(OutputFileInits,103) ' Medium Temperature Refrigeration Case,'//  &
            TRIM(RoundSigDigits(CaseID))//','//  &
            TRIM(RefrigCase(CaseID)%Name)//','//  &
            TRIM(RefrigCase(CaseID)%ZoneName)//','//   &
            TRIM(RoundSigDigits(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            TRIM(NodeID(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RateTotCapPerLength,1))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RatedLHR,2))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Temperature,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Length,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%OperatingFanPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%LightingPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%AntiSweatPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%DefrostPower,1))
    ENDDO !NumCasesMT on system
    DO CaseNum=1,TransSystem(TransSystemNum)%NumCasesLT
      CaseID=TransSystem(TransSystemNum)%CaseNumLT(CaseNum)
      WRITE(OutputFileInits,103) ' Low Temperature Refrigeration Case,'//  &
            TRIM(RoundSigDigits(CaseID))//','//  &
            TRIM(RefrigCase(CaseID)%Name)//','//  &
            TRIM(RefrigCase(CaseID)%ZoneName)//','//   &
            TRIM(RoundSigDigits(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            TRIM(NodeID(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RateTotCapPerLength,1))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RatedLHR,2))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Temperature,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Length,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%OperatingFanPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%LightingPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%AntiSweatPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%DefrostPower,1))
    ENDDO !NumCasesLT on system
    DO  WalkInNum=1,TransSystem(TransSystemNum)%NumWalkInsMT
       WalkInID=TransSystem(TransSystemNum)%WalkInNumMT(WalkInNum)
      WRITE(OutputFileInits,103) ' Medium Temperature Refrigeration Walk In Cooler,'//  &
            TRIM(RoundSigDigits(WalkInID))//','//  &
            TRIM( WalkIn(WalkInID)%Name)//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignRatedCap,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%Temperature,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CoilFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CircFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignLighting,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeaterPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DefrostCapacity,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%NumZones))
       DO ZoneID=1, WalkIn( WalkInID)%NumZones
         WRITE(OutputFileInits,102) '   Walk-In Surfaces Facing Zone,'//  &
            TRIM( WalkIn(WalkInID)%ZoneName(ZoneID))//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%SurfaceArea(ZoneID),1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValue(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueStockDr(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueGlassDr(ZoneID),4))
    ENDDO !Num zones for each walk in on system
    ENDDO !NumWalkInsMT on system
    DO  WalkInNum=1,TransSystem(TransSystemNum)%NumWalkInsLT
       WalkInID=TransSystem(TransSystemNum)%WalkInNumLT(WalkInNum)
      WRITE(OutputFileInits,103) ' Low Temperature Refrigeration Walk In Cooler,'//  &
            TRIM(RoundSigDigits(WalkInID))//','//  &
            TRIM( WalkIn(WalkInID)%Name)//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignRatedCap,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%Temperature,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CoilFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CircFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignLighting,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeaterPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DefrostCapacity,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%NumZones))
       DO ZoneID=1, WalkIn( WalkInID)%NumZones
         WRITE(OutputFileInits,102) '   Walk-In Surfaces Facing Zone,'//  &
            TRIM( WalkIn(WalkInID)%ZoneName(ZoneID))//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%SurfaceArea(ZoneID),1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValue(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueStockDr(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueGlassDr(ZoneID),4))
    ENDDO !Num zones for each walk in on system
    ENDDO !NumWalkInsLT on system

    DO CompressorNum=1,TransSystem(TransSystemNum)%NumCompressorsHP
      CompID=TransSystem(TransSystemNum)%CompressorNumHP(CompressorNum)
      WRITE(OutputFileInits,103) ' High Pressure Refrigeration Compressor,'//  &
            TRIM(RoundSigDigits(CompID))//','//  &
            TRIM(Compressor(CompID)%Name)//','//  &
            trim(RoundSigDigits(Compressor(CompID)%NomCap,0))
    ENDDO !NumCompressorsHP
    DO CompressorNum=1,TransSystem(TransSystemNum)%NumCompressorsLP
      CompID=TransSystem(TransSystemNum)%CompressorNumLP(CompressorNum)
      WRITE(OutputFileInits,103) ' Low Pressure Refrigeration Compressor,'//  &
            TRIM(RoundSigDigits(CompID))//','//  &
            TRIM(Compressor(CompID)%Name)//','//  &
            trim(RoundSigDigits(Compressor(CompID)%NomCap,0))
    ENDDO !NumCompressorsLP

    IF(TransSystem(TransSystemNum)%NumGasCoolers >= 1)THEN
      GasCoolerID=TransSystem(TransSystemNum)%GasCoolerNum(1)
      WRITE(OutputFileInits,103) ' Refrigeration GasCooler:Air-Cooled,'//  &
        TRIM(RoundSigDigits(GasCoolerID))//','// TRIM(GasCooler(GasCoolerID)%Name)//','//  &
        TRIM(RoundSigDigits(GasCooler(GasCoolerID)%RatedOutletP,1))//','// &
        TRIM(RoundSigDigits(GasCooler(GasCoolerID)%RatedOutletT,1))//','// &
        TRIM(RoundSigDigits(GasCooler(GasCoolerID)%RatedApproachT,1))//','// &
        TRIM(RoundSigDigits(GasCooler(GasCoolerID)%RatedCapacity,1))//','// &
        TRIM(RoundSigDigits(GasCooler(GasCoolerID)%RatedFanPower,1))
    END IF  ! System(SystemNum)%NumGasCoolers >= 1

  ENDDO  !NumTransRefrigSystems
END IF !(NumTransRefrigSystems > 0)

IF(NumSimulationSecondarySystems > 0)THEN
  WRITE(OutputFileInits,101) '#Secondary Refrigeration Systems,'//TRIM(RoundSigDigits(NumSimulationSecondarySystems))
  DO SecondaryID=1,NumSimulationSecondarySystems
    SELECT CASE (Secondary(SecondaryID)%FluidType)
      CASE(SecFluidTypeAlwaysLiquid)
        WRITE(OutputFileInits,101) 'Secondary Refrigeration System: Fluid Always Liquid,'//  &
            TRIM(RoundSigDigits(SecondaryID))//','//  &
            TRIM(Secondary(SecondaryID)%Name)//','//  &
            TRIM(RoundSigDigits(Secondary(SecondaryID)%NumCases))//','//  &
            TRIM(RoundSigDigits(Secondary(SecondaryID)%NumWalkIns))//','//  &
            TRIM(Secondary(SecondaryID)%FluidName)//','//  &
            trim(RoundSigDigits(Secondary(SecondaryID)%CoolingLoadRated,1))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%TEvapDesign,2))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%TApproachDifRated,2))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%TRangeDifRated,3))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%PumpTotRatedPower,3))
      CASE(SecFluidTypePhaseChange)
        WRITE(OutputFileInits,101) 'Secondary Refrigeration System: Liquid Overfeed,'//  &
            TRIM(RoundSigDigits(SecondaryID))//','//  &
            TRIM(Secondary(SecondaryID)%Name)//','//  &
            TRIM(RoundSigDigits(Secondary(SecondaryID)%NumCases))//','//  &
            TRIM(RoundSigDigits(Secondary(SecondaryID)%NumWalkIns))//','//  &
            TRIM(Secondary(SecondaryID)%FluidName)//','//  &
            trim(RoundSigDigits(Secondary(SecondaryID)%CoolingLoadRated,1))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%TEvapDesign,2))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%TApproachDifRated,2))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%CircRate,3))//','// &
            trim(RoundSigDigits(Secondary(SecondaryID)%PumpTotRatedPower,3))
      END SELECT
    DO CaseNum=1,Secondary(SecondaryID)%NumCases
      CaseID=Secondary(SecondaryID)%CaseNum(CaseNum)
      WRITE(OutputFileInits,103) 'Refrigeration Case,'//  &
            TRIM(RoundSigDigits(CaseID))//','//  &
            TRIM(RefrigCase(CaseID)%Name)//','//  &
            TRIM(RefrigCase(CaseID)%ZoneName)//','//   &
            TRIM(RoundSigDigits(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            TRIM(NodeID(RefrigCase(CaseID)%ZoneNodeNum))//','//  &
            trim(RoundSigDigits(RefrigCase(CaseID)%RateTotCapPerLength,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%RatedLHR,2))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Temperature,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%Length,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%OperatingFanPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%LightingPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%AntiSweatPower,1))//','// &
            trim(RoundSigDigits(RefrigCase(CaseID)%DefrostPower,1))
    ENDDO !NumCases on secondary on secondary system

    DO  WalkInNum=1,Secondary(SecondaryID)%NumWalkIns
      WalkInID = Secondary(SecondaryID)% WalkInNum( WalkInNum)
      WRITE(OutputFileInits,103) 'Walk In,'//  &
            TRIM(RoundSigDigits(WalkInID))//','//  &
            TRIM( WalkIn(WalkInID)%Name)//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignRatedCap,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%Temperature,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CoilFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn( WalkInID)%CircFanPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DesignLighting,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeaterPower,1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%DefrostCapacity,1))
       DO ZoneID=1, WalkIn(WalkInID)%NumZones
         WRITE(OutputFileInits,102) 'Walk In Surfaces Facing Zone,'//  &
            TRIM( WalkIn(WalkInID)%ZoneName(ZoneID))//','//  &
            trim(RoundSigDigits(WalkIn(WalkInID)%SurfaceArea(ZoneID),1))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValue(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightStockDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueStockDr(ZoneID),4))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%AreaGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%HeightGlassDr(ZoneID),2))//','// &
            trim(RoundSigDigits(WalkIn(WalkInID)%UValueGlassDr(ZoneID),4))
       ENDDO !zones for walk ins on secondary
     ENDDO ! walk ins on secondary

    DO CoilNum=1,Secondary(SecondaryID)%NumCoils
    CoilID = Secondary(SecondaryID)%CoilNum(CoilNum)
      WRITE(OutputFileInits,103) ' Air Chiller Load,'//  &
            TRIM(WareHouseCoil(CoilID)%Name)//','//  &
            TRIM(RoundSigDigits(CoilID))//','//  &
            TRIM(WareHouseCoil(CoilID)%ZoneName)
    ENDDO !numairchillers
  ENDDO !secondary
END IF !numsimulationsecondarys

IF(NumRefrigChillerSets > 0)THEN
  WRITE(OutputFileInits,101) '#ZoneHVAC/Refrigeration Air Chiller Sets,'//TRIM(RoundSigDigits(NumRefrigChillerSets))
  DO ChillerSetNum=1,NumRefrigChillerSets
    WRITE(OutputFileInits,101) 'ZoneHVAC/Refrigeration Air Chiller Set,'//  &
            TRIM(AirChillerSet(ChillerSetNum)%Name)//','//  &
            TRIM(RoundSigDigits(ChillerSetNum))//','//  &
            TRIM(RoundSigDigits(AirChillerSet(ChillerSetNum)%NumCoils))//','//  &
            TRIM(AirChillerSet(ChillerSetNum)%ZoneName)

    DO CoilNum=1,AirChillerSet(ChillerSetNum)%NumCoils
    CoilID = AirChillerSet(ChillerSetNum)%CoilNum(CoilNum)
    WRITE(OutputFileInits,103) ' Refrigeration Air Chiller,'//  &
            TRIM(RoundSigDigits(CoilID))//','//  &
            TRIM(WareHouseCoil(CoilID)%Name)//','//  &
            TRIM(WareHouseCoil(CoilID)%ZoneName)//','//   &
            TRIM(RoundSigDigits(WareHouseCoil(CoilID)%ZoneNodeNum))//','//  &
            TRIM(NodeID(WareHouseCoil(CoilID)%ZoneNodeNum))//','//  &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%UnitLoadFactorSens,1))//','// &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%RatedSensibleCap,2))//','// &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%TEvapDesign,1))//','// &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%RatedTemperatureDif,1))//','// &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%RatedFanPower,1))//','// &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%HeaterPower,1))//','// &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%DefrostCapacity,1))//','// &
            trim(RoundSigDigits(WareHouseCoil(CoilID)%RatedAirVolumeFlow,1))
    ENDDO !numairchillers
  ENDDO !numrefrigchillersets
END IF !numrefrigchillersets

RETURN

END SUBROUTINE ReportRefrigerationComponents