| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | PerfType | = | ' ' | ||
| real(kind=r64), | public | :: | NomSupAirVolFlow | = | 0.0d0 | ||
| real(kind=r64), | public | :: | NomProcAirFaceVel | = | 0.0d0 | ||
| real(kind=r64), | public | :: | NomElecPower | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B1 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B2 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B3 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B4 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B5 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B6 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B7 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | B8 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MinRegenAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MaxRegenAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MinRegenAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MaxRegenAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MinProcAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MaxProcAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MinProcAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MaxProcAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MinFaceVel | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MaxFaceVel | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MinRegenAirOutTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxRegenAirOutTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MinRegenAirInRelHum | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MaxRegenAirInRelHum | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MinProcAirInRelHum | = | 0.0d0 | ||
| real(kind=r64), | public | :: | T_MaxProcAirInRelHum | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C1 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C2 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C3 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C4 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C5 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C6 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C7 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | C8 | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MinRegenAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MaxRegenAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MinRegenAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MaxRegenAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MinProcAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MaxProcAirInTemp | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MinProcAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MaxProcAirInHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MinFaceVel | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MaxFaceVel | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MinRegenAirOutHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | MaxRegenAirOutHumRat | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MinRegenAirInRelHum | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MaxRegenAirInRelHum | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MinProcAirInRelHum | = | 0.0d0 | ||
| real(kind=r64), | public | :: | H_MaxProcAirInRelHum | = | 0.0d0 | ||
| logical, | public | :: | PrintRegenInRelHumTempMess | = | .FALSE. | ||
| integer, | public | :: | RegenInRelHumTempErrIndex | = | 0 | ||
| integer, | public | :: | RegenInRelHumTempErrorCount | = | 0 | ||
| character(len=400), | public | :: | RegenInRelHumTempBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | RegenInRelHumTempBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | RegenInRelHumTempBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | RegenInRelHumTempLast | = | 0.0d0 | ||
| logical, | public | :: | PrintProcInRelHumTempMess | = | .FALSE. | ||
| integer, | public | :: | ProcInRelHumTempErrIndex | = | 0 | ||
| integer, | public | :: | ProcInRelHumTempErrorCount | = | 0 | ||
| character(len=400), | public | :: | ProcInRelHumTempBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | ProcInRelHumTempBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | ProcInRelHumTempBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | ProcInRelHumTempLast | = | 0.0d0 | ||
| logical, | public | :: | PrintRegenInRelHumHumRatMess | = | .FALSE. | ||
| integer, | public | :: | RegenInRelHumHumRatErrIndex | = | 0 | ||
| integer, | public | :: | RegenInRelHumHumRatErrorCount | = | 0 | ||
| character(len=400), | public | :: | RegenInRelHumHumRatBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | RegenInRelHumHumRatBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | RegenInRelHumHumRatBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | RegenInRelHumHumRatLast | = | 0.0d0 | ||
| logical, | public | :: | PrintProcInRelHumHumRatMess | = | .FALSE. | ||
| integer, | public | :: | ProcInRelHumHumRatErrIndex | = | 0 | ||
| integer, | public | :: | ProcInRelHumHumRatErrorCount | = | 0 | ||
| character(len=400), | public | :: | ProcInRelHumHumRatBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | ProcInRelHumHumRatBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | ProcInRelHumHumRatBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | ProcInRelHumHumRatLast | = | 0.0d0 | ||
| logical, | public | :: | PrintT_RegenInTempMessage | = | .FALSE. | ||
| logical, | public | :: | PrintT_RegenInHumRatMessage | = | .FALSE. | ||
| logical, | public | :: | PrintT_ProcInTempMessage | = | .FALSE. | ||
| logical, | public | :: | PrintT_ProcInHumRatMessage | = | .FALSE. | ||
| logical, | public | :: | PrintT_FaceVelMessage | = | .FALSE. | ||
| logical, | public | :: | PrintRegenOutTempMessage | = | .FALSE. | ||
| logical, | public | :: | PrintRegenOutTempFailedMessage | = | .FALSE. | ||
| logical, | public | :: | PrintH_RegenInTempMessage | = | .FALSE. | ||
| logical, | public | :: | PrintH_RegenInHumRatMessage | = | .FALSE. | ||
| logical, | public | :: | PrintH_ProcInTempMessage | = | .FALSE. | ||
| logical, | public | :: | PrintH_ProcInHumRatMessage | = | .FALSE. | ||
| logical, | public | :: | PrintH_FaceVelMessage | = | .FALSE. | ||
| logical, | public | :: | PrintRegenOutHumRatMessage | = | .FALSE. | ||
| logical, | public | :: | PrintRegenInHumRatMessage | = | .FALSE. | ||
| logical, | public | :: | PrintRegenOutHumRatFailedMess | = | .FALSE. | ||
| integer, | public | :: | RegenOutHumRatFailedErrIndex | = | 0 | ||
| integer, | public | :: | RegenOutHumRatFailedErrorCount | = | 0 | ||
| character(len=400), | public | :: | RegenOutHumRatFailedBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutHumRatFailedBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutHumRatFailedBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | RegenOutHumRatFailedLast | = | 0.0d0 | ||
| logical, | public | :: | PrintImbalancedMassFlowMess | = | .FALSE. | ||
| integer, | public | :: | ImbalancedFlowErrIndex | = | 0 | ||
| integer, | public | :: | ImbalancedMassFlowErrorCount | = | 0 | ||
| character(len=400), | public | :: | ImbalancedMassFlowBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | ImbalancedMassFlowBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | ImbalancedMassFlowBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | ABSImbalancedFlow | = | 0.0d0 | ||
| integer, | public | :: | T_RegenInTempErrorCount | = | 0 | ||
| integer, | public | :: | T_RegenInHumRatErrorCount | = | 0 | ||
| integer, | public | :: | T_ProcInTempErrorCount | = | 0 | ||
| integer, | public | :: | T_ProcInHumRatErrorCount | = | 0 | ||
| integer, | public | :: | T_FaceVelErrorCount | = | 0 | ||
| integer, | public | :: | T_RegenInTempErrIndex | = | 0 | ||
| integer, | public | :: | T_RegenInHumRatErrIndex | = | 0 | ||
| integer, | public | :: | T_ProcInTempErrIndex | = | 0 | ||
| integer, | public | :: | T_ProcInHumRatErrIndex | = | 0 | ||
| integer, | public | :: | T_FaceVelocityErrIndex | = | 0 | ||
| integer, | public | :: | RegenOutTempErrorCount | = | 0 | ||
| integer, | public | :: | RegenOutTempErrIndex | = | 0 | ||
| integer, | public | :: | RegenOutTempFailedErrorCount | = | 0 | ||
| integer, | public | :: | RegenOutTempFailedErrIndex | = | 0 | ||
| character(len=400), | public | :: | RegenOutTempFailedBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutTempFailedBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutTempFailedBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | RegenOutTempFailedLast | = | 0.0d0 | ||
| integer, | public | :: | H_RegenInTempErrorCount | = | 0 | ||
| integer, | public | :: | H_RegenInHumRatErrorCount | = | 0 | ||
| integer, | public | :: | H_ProcInTempErrorCount | = | 0 | ||
| integer, | public | :: | H_ProcInHumRatErrorCount | = | 0 | ||
| integer, | public | :: | H_FaceVelErrorCount | = | 0 | ||
| integer, | public | :: | H_RegenInTempErrIndex | = | 0 | ||
| integer, | public | :: | H_RegenInHumRatErrIndex | = | 0 | ||
| integer, | public | :: | H_ProcInTempErrIndex | = | 0 | ||
| integer, | public | :: | H_ProcInHumRatErrIndex | = | 0 | ||
| integer, | public | :: | H_FaceVelocityErrIndex | = | 0 | ||
| integer, | public | :: | RegenOutHumRatErrorCount | = | 0 | ||
| integer, | public | :: | RegenOutHumRatErrIndex | = | 0 | ||
| integer, | public | :: | RegenInHumRatErrorCount | = | 0 | ||
| integer, | public | :: | RegenInHumRatErrIndex | = | 0 | ||
| character(len=400), | public | :: | T_RegenInTempBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | T_RegenInTempBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | T_RegenInTempBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | T_RegenInTempLast | = | 0.0d0 | ||
| character(len=400), | public | :: | T_RegenInHumRatBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | T_RegenInHumRatBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | T_RegenInHumRatBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | T_RegenInHumRatLast | = | 0.0d0 | ||
| character(len=400), | public | :: | T_ProcInTempBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | T_ProcInTempBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | T_ProcInTempBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | T_ProcInTempLast | = | 0.0d0 | ||
| character(len=400), | public | :: | T_ProcInHumRatBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | T_ProcInHumRatBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | T_ProcInHumRatBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | T_ProcInHumRatLast | = | 0.0d0 | ||
| character(len=400), | public | :: | T_FaceVelBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | T_FaceVelBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | T_FaceVelBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | T_FaceVelLast | = | 0.0d0 | ||
| character(len=400), | public | :: | RegenOutTempBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutTempBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutTempBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | RegenOutTempLast | = | 0.0d0 | ||
| character(len=400), | public | :: | H_RegenInTempBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | H_RegenInTempBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | H_RegenInTempBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | H_RegenInTempLast | = | 0.0d0 | ||
| character(len=400), | public | :: | H_RegenInHumRatBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | H_RegenInHumRatBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | H_RegenInHumRatBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | H_RegenInHumRatLast | = | 0.0d0 | ||
| character(len=400), | public | :: | H_ProcInTempBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | H_ProcInTempBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | H_ProcInTempBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | H_ProcInTempLast | = | 0.0d0 | ||
| character(len=400), | public | :: | H_ProcInHumRatBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | H_ProcInHumRatBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | H_ProcInHumRatBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | H_ProcInHumRatLast | = | 0.0d0 | ||
| character(len=400), | public | :: | H_FaceVelBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | H_FaceVelBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | H_FaceVelBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | H_FaceVelLast | = | 0.0d0 | ||
| character(len=400), | public | :: | RegenOutHumRatBuffer1 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutHumRatBuffer2 | = | ' ' | ||
| character(len=400), | public | :: | RegenOutHumRatBuffer3 | = | ' ' | ||
| real(kind=r64), | public | :: | RegenOutHumRatLast | = | 0.0d0 |
TYPE BalancedDesDehumPerfData
! User Input data
CHARACTER(len=MaxNameLength) :: Name =' ' ! unique name of balanced desiccant performance data type object
CHARACTER(len=MaxNameLength) :: PerfType =' ' ! Type of performance data set
REAL(r64) :: NomSupAirVolFlow =0.0d0 ! nominal supply air volumetric flow rate m^3/s
REAL(r64) :: NomProcAirFaceVel =0.0d0 ! nominal process air face velocity m/s
REAL(r64) :: NomElecPower =0.0d0 ! nominal electric power consumption [W]
! regeneration outlet temperature equation coefficients and limits
REAL(r64) :: B1 =0.0d0 ! constant coefficient for outlet regeneration temprature equation
REAL(r64) :: B2 =0.0d0 ! regen inlet humrat coeff for outlet regen temperature equation
REAL(r64) :: B3 =0.0d0 ! regen inlet temp coeff for outlet regen temprature equation
REAL(r64) :: B4 =0.0d0 ! (regen in humrat/regen in temp) coeff for outlet regen temp eq
REAL(r64) :: B5 =0.0d0 ! process inlet humrat coeff for outlet regen temp equation
REAL(r64) :: B6 =0.0d0 ! process inlet temp coeff for outlet regen temp equation
REAL(r64) :: B7 =0.0d0 ! (process in humrat/proc in temp) coeff for outlet regen temp eq
REAL(r64) :: B8 =0.0d0 ! process, regen face velocity coeff for outlet regen temp eq
REAL(r64) :: T_MinRegenAirInTemp =0.0d0 ! min allowable regen inlet air temperature [C]
REAL(r64) :: T_MaxRegenAirInTemp =0.0d0 ! max allowable regen inlet air temperature [C]
REAL(r64) :: T_MinRegenAirInHumRat =0.0d0 ! min allowable regen inlet air humidity ratio [kg water / kg air]
REAL(r64) :: T_MaxRegenAirInHumRat =0.0d0 ! max allowable regen inlet air humidity ratio [kg water / kg air]
REAL(r64) :: T_MinProcAirInTemp =0.0d0 ! min allowable process inlet air temperature [C]
REAL(r64) :: T_MaxProcAirInTemp =0.0d0 ! max allowable process inlet air temperature [C]
REAL(r64) :: T_MinProcAirInHumRat =0.0d0 ! min allowable process inlet air humidity ratio [kg water/kg air]
REAL(r64) :: T_MaxProcAirInHumRat =0.0d0 ! max allowable process inlet air humidity ratio [kg water/kg air]
REAL(r64) :: T_MinFaceVel =0.0d0 ! min allowable process, regen face velocity [m/s]
REAL(r64) :: T_MaxFaceVel =0.0d0 ! max allowable process, regen face velocity [m/s]
REAL(r64) :: MinRegenAirOutTemp =0.0d0 ! min allowable regen outlet air temperature [C]
REAL(r64) :: MaxRegenAirOutTemp =0.0d0 ! max allowable regen outlet air temperature [C]
REAL(r64) :: T_MinRegenAirInRelHum =0.0d0 ! min allowable regen inlet air relative humidity [%]
REAL(r64) :: T_MaxRegenAirInRelHum =0.0d0 ! max allowable regen inlet air relative humidity [%]
REAL(r64) :: T_MinProcAirInRelHum =0.0d0 ! min allowable process inlet air relative humidity [%]
REAL(r64) :: T_MaxProcAirInRelHum =0.0d0 ! max allowable process inlet air relative humidity [%]
! regeneration outlet humidity ratio equation coefficients and limits
REAL(r64) :: C1 =0.0d0 ! constant coeff for outlet regen humidity ratio equation
REAL(r64) :: C2 =0.0d0 ! regen inlet humrat coeff for outlet regen humidity ratio eq
REAL(r64) :: C3 =0.0d0 ! regen inlet temp coeff for outlet regen humidity ratio equation
REAL(r64) :: C4 =0.0d0 ! (regen in humrat/regen in temp) coeff for outlet regen humrat eq
REAL(r64) :: C5 =0.0d0 ! process inlet humrat coeff for outlet regen humidity ratio eq
REAL(r64) :: C6 =0.0d0 ! process inlet temp coeff for outlet regen humidity ratio eq
REAL(r64) :: C7 =0.0d0 ! (proc in humrat/proc in temp) coeff for outlet regen humrat eq
REAL(r64) :: C8 =0.0d0 ! process, regen face velocity coeff for outlet regen humrat eq
REAL(r64) :: H_MinRegenAirInTemp =0.0d0 ! min allowable regen inlet air temperature [C]
REAL(r64) :: H_MaxRegenAirInTemp =0.0d0 ! max allowable regen inlet air temperature [C]
REAL(r64) :: H_MinRegenAirInHumRat =0.0d0 ! min allowable regen inlet air humidity ratio [kg water / kg air]
REAL(r64) :: H_MaxRegenAirInHumRat =0.0d0 ! max allowable regen inlet air humidity ratio [kg water / kg air]
REAL(r64) :: H_MinProcAirInTemp =0.0d0 ! min allowable process inlet air temperature [C]
REAL(r64) :: H_MaxProcAirInTemp =0.0d0 ! max allowable process inlet air temperature [C]
REAL(r64) :: H_MinProcAirInHumRat =0.0d0 ! min allowable process inlet air humidity ratio [kg water/kg air]
REAL(r64) :: H_MaxProcAirInHumRat =0.0d0 ! max allowable process inlet air humidity ratio [kg water/kg air]
REAL(r64) :: H_MinFaceVel =0.0d0 ! min allowable process, regen face velocity [m/s]
REAL(r64) :: H_MaxFaceVel =0.0d0 ! max allowable process, regen face velocity [m/s]
REAL(r64) :: MinRegenAirOutHumRat =0.0d0 ! min allowable regen outlet air temperature [C]
REAL(r64) :: MaxRegenAirOutHumRat =0.0d0 ! max allowable regen outlet air temperature [C]
REAL(r64) :: H_MinRegenAirInRelHum =0.0d0 ! min allowable regen inlet air relative humidity [%]
REAL(r64) :: H_MaxRegenAirInRelHum =0.0d0 ! max allowable regen inlet air relative humidity [%]
REAL(r64) :: H_MinProcAirInRelHum =0.0d0 ! min allowable process inlet air relative humidity [%]
REAL(r64) :: H_MaxProcAirInRelHum =0.0d0 ! max allowable process inlet air relative humidity [%]
! for model bound checking
! regen inlet relative humidity for temperature equation
LOGICAL :: PrintRegenInRelHumTempMess = .FALSE. !- flag to print regen in RH error message for temp eq
INTEGER :: RegenInRelHumTempErrIndex = 0 !- index to recurring error struc for regen outlet hum rat
INTEGER :: RegenInRelHumTempErrorCount = 0 !- counter if regen outlet temp limits are exceeded
CHARACTER(len=400) :: RegenInRelHumTempBuffer1 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: RegenInRelHumTempBuffer2 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: RegenInRelHumTempBuffer3 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
REAL(r64) :: RegenInRelHumTempLast = 0.0d0 !- last value of regen outlet humidity ratio
! process inlet relative humidity for temperature equation
LOGICAL :: PrintProcInRelHumTempMess = .FALSE. !- flag to print regen in RH error message for temp eq
INTEGER :: ProcInRelHumTempErrIndex = 0 !- index to recurring error struc for regen outlet hum rat
INTEGER :: ProcInRelHumTempErrorCount = 0 !- counter if regen outlet temp limits are exceeded
CHARACTER(len=400) :: ProcInRelHumTempBuffer1 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: ProcInRelHumTempBuffer2 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: ProcInRelHumTempBuffer3 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
REAL(r64) :: ProcInRelHumTempLast = 0.0d0 !- last value of regen outlet humidity ratio
! regen inlet relative humidity for humidity ratio equation
LOGICAL :: PrintRegenInRelHumHumRatMess = .FALSE. !- flag to print regen in RH error message for temp eq
INTEGER :: RegenInRelHumHumRatErrIndex = 0 !- index to recurring error struc for regen outlet hum rat
INTEGER :: RegenInRelHumHumRatErrorCount= 0 !- counter if regen outlet temp limits are exceeded
CHARACTER(len=400) :: RegenInRelHumHumRatBuffer1 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: RegenInRelHumHumRatBuffer2 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: RegenInRelHumHumRatBuffer3 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
REAL(r64) :: RegenInRelHumHumRatLast = 0.0d0 !- last value of regen outlet humidity ratio
! process inlet relative humidity for humidity ratio equation
LOGICAL :: PrintProcInRelHumHumRatMess = .FALSE. !- flag to print regen in RH error message for temp eq
INTEGER :: ProcInRelHumHumRatErrIndex = 0 !- index to recurring error struc for regen outlet hum rat
INTEGER :: ProcInRelHumHumRatErrorCount = 0 !- counter if regen outlet temp limits are exceeded
CHARACTER(len=400) :: ProcInRelHumHumRatBuffer1 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: ProcInRelHumHumRatBuffer2 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: ProcInRelHumHumRatBuffer3 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
REAL(r64) :: ProcInRelHumHumRatLast = 0.0d0 !- last value of regen outlet humidity ratio
! regen outlet temp variables
LOGICAL :: PrintT_RegenInTempMessage = .FALSE. !- flag to print regen in temp error message for temp eq
LOGICAL :: PrintT_RegenInHumRatMessage = .FALSE. !- flag to print regen in humrat err message for temp eq
LOGICAL :: PrintT_ProcInTempMessage = .FALSE. !- flag to print proc inlet temp err message for temp eq
LOGICAL :: PrintT_ProcInHumRatMessage = .FALSE. !- flag to print process hum rat err message for temp eq
LOGICAL :: PrintT_FaceVelMessage = .FALSE. !- flag to print face velocity error message
LOGICAL :: PrintRegenOutTempMessage = .FALSE. !- flag to print regen outlet temp error message
LOGICAL :: PrintRegenOutTempFailedMessage = .FALSE. !- flag to print regen outlet temp error message
! regen outlet hum rat variables
LOGICAL :: PrintH_RegenInTempMessage = .FALSE. !- flag to print regen in temp err message for humrat eq
LOGICAL :: PrintH_RegenInHumRatMessage = .FALSE. !- flag for regen in humrat err message for humrat eq
LOGICAL :: PrintH_ProcInTempMessage = .FALSE. !- flag for process inlet temp err message for humrat eq
LOGICAL :: PrintH_ProcInHumRatMessage = .FALSE. !- flag for process hum rat error message for hum rat eq
LOGICAL :: PrintH_FaceVelMessage = .FALSE. !- flag for face velocity error message
LOGICAL :: PrintRegenOutHumRatMessage = .FALSE. !- flag for regen outlet hum rat error message
LOGICAL :: PrintRegenInHumRatMessage = .FALSE. !- flag for regen outlet hum rat error message
! used when regen outlet humrat is below regen inlet humrat, verify coefficients warning issued
LOGICAL :: PrintRegenOutHumRatFailedMess = .FALSE. !- flag for regen outlet hum rat error message
INTEGER :: RegenOutHumRatFailedErrIndex = 0 !- index to recurring error struc for regen outlet hum rat
INTEGER :: RegenOutHumRatFailedErrorCount = 0 !- counter if regen outlet temp limits are exceeded
CHARACTER(len=400) :: RegenOutHumRatFailedBuffer1 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: RegenOutHumRatFailedBuffer2 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
CHARACTER(len=400) :: RegenOutHumRatFailedBuffer3 = ' ' !- buffer for RegenOutHumRat warn mess on following timstep
REAL(r64) :: RegenOutHumRatFailedLast = 0.0d0 !- last value of regen outlet humidity ratio
! used when regen and process mass flow rates are not equal to within 2%
LOGICAL :: PrintImbalancedMassFlowMess = .FALSE. !- flag for imbalanced regen and process mass flow rate
INTEGER :: ImbalancedFlowErrIndex = 0 !- index to recurring error struc for imbalanced flow
INTEGER :: ImbalancedMassFlowErrorCount = 0 !- counter for imbalanced regen and process mass flow rate
CHARACTER(len=400) :: ImbalancedMassFlowBuffer1 = ' ' !- buffer for imbalanced regen and process mass flow rate
CHARACTER(len=400) :: ImbalancedMassFlowBuffer2 = ' ' !- buffer for imbalanced regen and process mass flow rate
CHARACTER(len=400) :: ImbalancedMassFlowBuffer3 = ' ' !- buffer for imbalanced regen and process mass flow rate
REAL(r64) :: ABSImbalancedFlow = 0.0d0 !- last value of heat exchanger mass flow rate imbalance
! regen outlet temp eqn
INTEGER :: T_RegenInTempErrorCount = 0 !- counter if regen inlet temp limits are exceeded
INTEGER :: T_RegenInHumRatErrorCount = 0 !- counter if regen inlet hum rat limits are exceeded
INTEGER :: T_ProcInTempErrorCount = 0 !- counter if process inlet temperature limits are exceeded
INTEGER :: T_ProcInHumRatErrorCount = 0 !- counter if process inlet hum rat limits are exceeded
INTEGER :: T_FaceVelErrorCount = 0 !- counter if regen and proc face vel limits are exceeded
INTEGER :: T_RegenInTempErrIndex = 0 !- index to recurring error structure for regen inlet temp
INTEGER :: T_RegenInHumRatErrIndex = 0 !- index to recurring error structure for regen in humrat
INTEGER :: T_ProcInTempErrIndex = 0 !- index to recurring error structure for process in temp
INTEGER :: T_ProcInHumRatErrIndex = 0 !- index to recurring error structure for process in humrat
INTEGER :: T_FaceVelocityErrIndex = 0 !- index to recurring err struc for proc and regen face vel
INTEGER :: RegenOutTempErrorCount = 0 !- counter if regen outlet temp limits are exceeded
INTEGER :: RegenOutTempErrIndex = 0 !- index to recurring error structure for regen outlet temp
! used when regen outlet temperature is above regen inlet temperature, verify coefficients warning issued
INTEGER :: RegenOutTempFailedErrorCount = 0 !- counter if regen outlet temp limits are exceeded
INTEGER :: RegenOutTempFailedErrIndex = 0 !- index to recurring error structure for regen outlet temp
CHARACTER(len=400) :: RegenOutTempFailedBuffer1 = ' ' !- buffer for RegenOutTemp warn messages on following timestep
CHARACTER(len=400) :: RegenOutTempFailedBuffer2 = ' ' !- buffer for RegenOutTemp warn messages on following timestep
CHARACTER(len=400) :: RegenOutTempFailedBuffer3 = ' ' !- buffer for RegenOutTemp warn messages on following timestep
REAL(r64) :: RegenOutTempFailedLast = 0.0d0 !- last value of regen outlet temp
! regen outlet hum rat eqn
INTEGER :: H_RegenInTempErrorCount = 0 !- counter if regen inlet temp limits are exceeded
INTEGER :: H_RegenInHumRatErrorCount = 0 !- counter if regen inlet hum rat limits are exceeded
INTEGER :: H_ProcInTempErrorCount = 0 !- counter if process inlet temperature limits are exceeded
INTEGER :: H_ProcInHumRatErrorCount = 0 !- counter if process inlet hum rat limits are exceeded
INTEGER :: H_FaceVelErrorCount = 0 !- counter if regen and proc face vel limits are exceeded
INTEGER :: H_RegenInTempErrIndex = 0 !- index to recurring error structure for regen inlet temp
INTEGER :: H_RegenInHumRatErrIndex = 0 !- index to recurring error struc for regen inlet humrat
INTEGER :: H_ProcInTempErrIndex = 0 !- index to recurring error struc for process inlet temp
INTEGER :: H_ProcInHumRatErrIndex = 0 !- index to recurring error struc for process inlet hum rat
INTEGER :: H_FaceVelocityErrIndex = 0 !- index to recurring err struc for proc and regen face vel
INTEGER :: RegenOutHumRatErrorCount = 0 !- counter if regen outlet temp limits are exceeded
INTEGER :: RegenOutHumRatErrIndex = 0 !- index to recurring error struc for regen outlet hum rat
INTEGER :: RegenInHumRatErrorCount = 0 !- counter if regen outlet temp limits are exceeded
INTEGER :: RegenInHumRatErrIndex = 0 !- index to recurring error struc for regen outlet hum rat
! regen outlet temp variables !- T_RegenInTemp = Regen inlet temperature
CHARACTER(len=400) :: T_RegenInTempBuffer1 = ' ' !- buffer for T_RegenInTemp warn message on following timestep
CHARACTER(len=400) :: T_RegenInTempBuffer2 = ' ' !- buffer for T_RegenInTemp warn message on following timestep
CHARACTER(len=400) :: T_RegenInTempBuffer3 = ' ' !- buffer for T_RegenInTemp warn message on following timestep
REAL(r64) :: T_RegenInTempLast = 0.0d0 !- last value of regen inlet temp
!- T_RegenInHumRat = Regen inlet humidity ratio
CHARACTER(len=400) :: T_RegenInHumRatBuffer1 = ' ' !- buffer for T_RegenInHumRat warn messag on following timestep
CHARACTER(len=400) :: T_RegenInHumRatBuffer2 = ' ' !- buffer for T_RegenInHumRat warn messag on following timestep
CHARACTER(len=400) :: T_RegenInHumRatBuffer3 = ' ' !- buffer for T_RegenInHumRat warn messag on following timestep
REAL(r64) :: T_RegenInHumRatLast = 0.0d0 !- last value of regen inlet humidity ratio
!- T_ProcInTemp = Process inlet temperature
CHARACTER(len=400) :: T_ProcInTempBuffer1 = ' ' !- buffer for T_ProcInTemp warning messag on following timestep
CHARACTER(len=400) :: T_ProcInTempBuffer2 = ' ' !- buffer for T_ProcInTemp warning messag on following timestep
CHARACTER(len=400) :: T_ProcInTempBuffer3 = ' ' !- buffer for T_ProcInTemp warning messag on following timestep
REAL(r64) :: T_ProcInTempLast = 0.0d0 !- last value of process inlet temp
!- T_ProcInHumRat = Process inlet humidity ratio
CHARACTER(len=400) :: T_ProcInHumRatBuffer1 = ' ' !- buffer for T_ProcInHumRat warn message on following timestep
CHARACTER(len=400) :: T_ProcInHumRatBuffer2 = ' ' !- buffer for T_ProcInHumRat warn message on following timestep
CHARACTER(len=400) :: T_ProcInHumRatBuffer3 = ' ' !- buffer for T_ProcInHumRat warn message on following timestep
REAL(r64) :: T_ProcInHumRatLast = 0.0d0 !- last value of process inlet humidity ratio
!- T_FaceVel = Process and regen face velocity
CHARACTER(len=400) :: T_FaceVelBuffer1 = ' ' !- buffer for T_FaceVel warning messages on following time step
CHARACTER(len=400) :: T_FaceVelBuffer2 = ' ' !- buffer for T_FaceVel warning messages on following time step
CHARACTER(len=400) :: T_FaceVelBuffer3 = ' ' !- buffer for T_FaceVel warning messages on following time step
REAL(r64) :: T_FaceVelLast = 0.0d0 !- last value of process and regen face velocity
!- T_RegenOutTemp = Regen outlet temperature
CHARACTER(len=400) :: RegenOutTempBuffer1 = ' ' !- buffer for RegenOutTemp warn messages on following timestep
CHARACTER(len=400) :: RegenOutTempBuffer2 = ' ' !- buffer for RegenOutTemp warn messages on following timestep
CHARACTER(len=400) :: RegenOutTempBuffer3 = ' ' !- buffer for RegenOutTemp warn messages on following timestep
REAL(r64) :: RegenOutTempLast = 0.0d0 !- last value of regen outlet temp
! regen outlet humidity ratio variables !- H_RegenInTemp = Regen inlet temperature
CHARACTER(len=400) :: H_RegenInTempBuffer1 = ' ' !- buffer for H_RegenInTemp warn message on following time step
CHARACTER(len=400) :: H_RegenInTempBuffer2 = ' ' !- buffer for H_RegenInTemp warn message on following time step
CHARACTER(len=400) :: H_RegenInTempBuffer3 = ' ' !- buffer for H_RegenInTemp warn message on following time step
REAL(r64) :: H_RegenInTempLast = 0.0d0 !- last value of regen inlet temp
!- H_RegenInHumRat = Regen inlet humidity ratio
CHARACTER(len=400) :: H_RegenInHumRatBuffer1 = ' ' !- buffer for H_RegenInHumRat warn messag on following timestep
CHARACTER(len=400) :: H_RegenInHumRatBuffer2 = ' ' !- buffer for H_RegenInHumRat warn messag on following timestep
CHARACTER(len=400) :: H_RegenInHumRatBuffer3 = ' ' !- buffer for H_RegenInHumRat warn messag on following timestep
REAL(r64) :: H_RegenInHumRatLast = 0.0d0 !- last value of regen inlet humidity ratio
!- H_ProcInTemp = Process inlet temperature
CHARACTER(len=400) :: H_ProcInTempBuffer1 = ' ' !- buffer for H_ProcInTemp warn messages on following time step
CHARACTER(len=400) :: H_ProcInTempBuffer2 = ' ' !- buffer for H_ProcInTemp warn messages on following time step
CHARACTER(len=400) :: H_ProcInTempBuffer3 = ' ' !- buffer for H_ProcInTemp warn messages on following time step
REAL(r64) :: H_ProcInTempLast = 0.0d0 !- last value of process inlet temp
!- H_ProcInHumRat = Process inlet humidity ratio
CHARACTER(len=400) :: H_ProcInHumRatBuffer1 = ' ' !- buffer for H_ProcInHumRat warn message on following timestep
CHARACTER(len=400) :: H_ProcInHumRatBuffer2 = ' ' !- buffer for H_ProcInHumRat warn message on following timestep
CHARACTER(len=400) :: H_ProcInHumRatBuffer3 = ' ' !- buffer for H_ProcInHumRat warn message on following timestep
REAL(r64) :: H_ProcInHumRatLast = 0.0d0 !- last value of process inlet humidity ratio
!- H_FaceVel = Process and regen face velocity
CHARACTER(len=400) :: H_FaceVelBuffer1 = ' ' !- buffer for H_FaceVel warning messages on following time step
CHARACTER(len=400) :: H_FaceVelBuffer2 = ' ' !- buffer for H_FaceVel warning messages on following time step
CHARACTER(len=400) :: H_FaceVelBuffer3 = ' ' !- buffer for H_FaceVel warning messages on following time step
REAL(r64) :: H_FaceVelLast = 0.0d0 !- last value of process and regen face velocity
!- H_RegenOutTemp = Regen outlet temperature
CHARACTER(len=400) :: RegenOutHumRatBuffer1 = ' ' !- buffer for RegenOutHumRat warn message on following timestep
CHARACTER(len=400) :: RegenOutHumRatBuffer2 = ' ' !- buffer for RegenOutHumRat warn message on following timestep
CHARACTER(len=400) :: RegenOutHumRatBuffer3 = ' ' !- buffer for RegenOutHumRat warn message on following timestep
REAL(r64) :: RegenOutHumRatLast = 0.0d0 !- last value of regen outlet humidity ratio
END TYPE BalancedDesDehumPerfData