Function UpdateRadSysSourceValAvg

src/EnergyPlus/LowTempRadiantSystem.cc:5666–5751

    }

    void UpdateRadSysSourceValAvg(EnergyPlusData &state,
                                  bool &LowTempRadSysOn) // .TRUE. if the radiant system has run this zone time step
    {

        // SUBROUTINE INFORMATION:
        //       AUTHOR         Rick Strand
        //       DATE WRITTEN   November 2000

        // PURPOSE OF THIS SUBROUTINE:
        // To transfer the average value of the heat source/sink over the entire
        // zone time step back to the heat balance routines so that the heat
        // balance algorithms can simulate one last time with the average source
        // to maintain some reasonable amount of continuity and energy balance
        // in the temperature and flux histories.

        // METHODOLOGY EMPLOYED:
        // All of the record keeping for the average term is done in the Update
        // routine so the only other thing that this subroutine does is check to
        // see if the system was even on.  If any average term is non-zero, then
        // one or more of the radiant systems was running.

        // SUBROUTINE PARAMETER DEFINITIONS:
        Real64 constexpr CloseEnough(0.01); // Some arbitrarily small value to avoid zeros and numbers that are almost the same

        // SUBROUTINE LOCAL VARIABLE DECLARATIONS:
        int SurfNum; // DO loop counter for surface index

        LowTempRadSysOn = false;

        // If there are no radiant systems in this input file, just RETURN
        if (state.dataLowTempRadSys->TotalNumOfRadSystems == 0) {
            return;
        }

        // Now check to see if anything is running and transfer information from the "average" variables to
        // the array that will be used within the heat balance.
        state.dataHeatBalFanSys->QRadSysSource = 0.0; // Zero this out first
        for (int numRadSys = 1; numRadSys <= state.dataLowTempRadSys->NumOfHydrLowTempRadSys; ++numRadSys) {
            auto &thisLTR = state.dataLowTempRadSys->HydrRadSys(numRadSys);
            for (int numRadSurf = 1; numRadSurf <= thisLTR.NumOfSurfaces; ++numRadSurf) {
                if (thisLTR.QRadSysSrcAvg(numRadSurf) != 0.0) {
                    LowTempRadSysOn = true;
                }
                SurfNum = thisLTR.SurfacePtr(numRadSurf);
                state.dataHeatBalFanSys->QRadSysSource(SurfNum) = thisLTR.QRadSysSrcAvg(numRadSurf);
            }
        }
        for (int numRadSys = 1; numRadSys <= state.dataLowTempRadSys->NumOfCFloLowTempRadSys; ++numRadSys) {
            auto &thisLTR = state.dataLowTempRadSys->CFloRadSys(numRadSys);
            for (int numRadSurf = 1; numRadSurf <= thisLTR.NumOfSurfaces; ++numRadSurf) {
                if (thisLTR.QRadSysSrcAvg(numRadSurf) != 0.0) {
                    LowTempRadSysOn = true;
                }
                SurfNum = thisLTR.SurfacePtr(numRadSurf);
                state.dataHeatBalFanSys->QRadSysSource(SurfNum) = thisLTR.QRadSysSrcAvg(numRadSurf);
            }
        }
        for (int numRadSys = 1; numRadSys <= state.dataLowTempRadSys->NumOfElecLowTempRadSys; ++numRadSys) {