ThermalISO15099Calc Module

  1. TarcogComplexFenestration.f90
  2. ThermalISO15099Calc
module~~thermaliso15099calc~~UsesGraph module~thermaliso15099calc ThermalISO15099Calc module~tarcogshading TarcogShading module~tarcogshading->module~thermaliso15099calc module~tarcogoutput TARCOGOutput module~tarcogoutput->module~thermaliso15099calc module~tarcogargs TARCOGArgs module~tarcogoutput->module~tarcogargs module~tarcoggasses90 TARCOGGasses90 module~tarcoggasses90->module~thermaliso15099calc module~tarcoggasses90->module~tarcogshading module~tarcogargs->module~thermaliso15099calc module~tarcoggassesparams TARCOGGassesParams module~tarcoggassesparams->module~thermaliso15099calc module~tarcoggassesparams->module~tarcogshading module~tarcoggassesparams->module~tarcogoutput module~tarcoggassesparams->module~tarcoggasses90 module~tarcogparams TARCOGParams module~tarcogparams->module~thermaliso15099calc module~tarcogparams->module~tarcogshading module~tarcogparams->module~tarcogoutput module~tarcogparams->module~tarcogargs module~dataprecisionglobals DataPrecisionGlobals module~dataprecisionglobals->module~thermaliso15099calc module~dataprecisionglobals->module~tarcogoutput module~dataprecisionglobals->module~tarcoggassesparams module~dataprecisionglobals->module~tarcogparams module~tarcogcommon TARCOGCommon module~dataprecisionglobals->module~tarcogcommon module~dataglobals DataGlobals module~dataprecisionglobals->module~dataglobals module~tarcogcommon->module~tarcogoutput module~dataglobals->module~tarcoggasses90 module~dataglobals->module~tarcogargs
Help

Used By

module~~thermaliso15099calc~~UsedByGraph module~thermaliso15099calc ThermalISO15099Calc module~tarcogmain TARCOGMain module~thermaliso15099calc->module~tarcogmain proc~calccomplexwindowthermal CalcComplexWindowThermal module~tarcogmain->proc~calccomplexwindowthermal
Help

Subroutines


Subroutines

private subroutine film(tex, tw, ws, iwd, hcout, ibc)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: tex
real(kind=r64), intent(in) :: tw
real(kind=r64), intent(in) :: ws
integer, intent(in) :: iwd
real(kind=r64), intent(out) :: hcout
integer, intent(in) :: ibc

public subroutine Calc_ISO15099(nlayer, iwd, tout, tind, trmin, wso, wsi, dir, outir, isky, tsky, esky, fclr, VacuumPressure, VacuumMaxGapThickness, gap, thick, scon, tir, emis, totsol, tilt, asol, height, heightt, width, presure, iprop, frct, xgcon, xgvis, xgcp, xwght, gama, nmix, SupportPillar, PillarSpacing, PillarRadius, theta, q, qv, ufactor, sc, hflux, hcin, hcout, hrin, hrout, hin, hout, hcgas, hrgas, shgc, nperr, ErrorMessage, shgct, tamb, troom, ibc, Atop, Abot, Al, Ar, Ah, SlatThick, SlatWidth, SlatAngle, SlatCond, SlatSpacing, SlatCurve, vvent, tvent, LayerType, nslice, LaminateA, LaminateB, sumsol, Ra, Nu, ThermalMod, Debug_mode, ShadeEmisRatioOut, ShadeEmisRatioIn, ShadeHcRatioOut, ShadeHcRatioIn, HcUnshadedOut, HcUnshadedin, Keff, ShadeGapKeffConv, SDScalar, SHGCCalc, NumOfIterations)

! function attributes:

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: nlayer
integer, intent(in) :: iwd
real(kind=r64), intent(inout) :: tout
real(kind=r64), intent(inout) :: tind
real(kind=r64), intent(inout) :: trmin
real(kind=r64), intent(in) :: wso
real(kind=r64), intent(in) :: wsi
real(kind=r64), intent(in) :: dir
real(kind=r64), intent(in) :: outir
integer, intent(in) :: isky
real(kind=r64), intent(in) :: tsky
real(kind=r64), intent(inout) :: esky
real(kind=r64), intent(in) :: fclr
real(kind=r64), intent(in) :: VacuumPressure
real(kind=r64), intent(in) :: VacuumMaxGapThickness
real(kind=r64), intent(inout), dimension(MaxGap):: gap
real(kind=r64), intent(inout), dimension(maxlay):: thick
real(kind=r64), intent(inout), dimension(maxlay):: scon
real(kind=r64), intent(in), dimension(maxlay2):: tir
real(kind=r64), intent(in), dimension(maxlay2):: emis
real(kind=r64), intent(in) :: totsol
real(kind=r64), intent(in) :: tilt
real(kind=r64), intent(in), dimension(maxlay):: asol

! Venetians:
real(kind=r64), intent(in) :: height
real(kind=r64), intent(in) :: heightt
real(kind=r64), intent(in) :: width
real(kind=r64), intent(in), dimension(maxlay1):: presure
integer, intent(in), dimension(maxlay1, maxgas):: iprop
real(kind=r64), intent(in), dimension(maxlay1, maxgas):: frct
real(kind=r64), intent(in), dimension(maxgas,3):: xgcon
real(kind=r64), intent(in), dimension(maxgas,3):: xgvis
real(kind=r64), intent(in), dimension(maxgas,3):: xgcp
real(kind=r64), intent(in), dimension(maxgas):: xwght
real(kind=r64), intent(in), dimension(maxgas):: gama
integer, intent(in), dimension(maxlay1):: nmix
integer, intent(in), dimension(maxlay):: SupportPillar
real(kind=r64), intent(in), dimension(maxlay):: PillarSpacing
real(kind=r64), intent(in), dimension(maxlay):: PillarRadius
real(kind=r64), intent(inout), dimension(maxlay2):: theta
real(kind=r64), intent(out), dimension(maxlay3):: q
real(kind=r64), intent(out), dimension(maxlay1):: qv
real(kind=r64), intent(out) :: ufactor
real(kind=r64), intent(out) :: sc
real(kind=r64), intent(out) :: hflux
real(kind=r64), intent(out) :: hcin

! Layers:
real(kind=r64), intent(out) :: hcout

! Layers:
real(kind=r64), intent(out) :: hrin

! Layers:
real(kind=r64), intent(out) :: hrout

! Layers:
real(kind=r64), intent(inout) :: hin

! OUTPUTS: ! Overall:
real(kind=r64), intent(inout) :: hout

! OUTPUTS: ! Overall:
real(kind=r64), intent(out), dimension(maxlay1):: hcgas
real(kind=r64), intent(out), dimension(maxlay1):: hrgas
real(kind=r64), intent(out) :: shgc
integer, intent(out) :: nperr
character(len=*), intent(inout) :: ErrorMessage
real(kind=r64), intent(out) :: shgct
real(kind=r64), intent(out) :: tamb

! Layers:
real(kind=r64), intent(out) :: troom

! Layers:
integer, intent(in), dimension(2):: ibc
real(kind=r64), intent(in), dimension(maxlay):: Atop
real(kind=r64), intent(in), dimension(maxlay):: Abot
real(kind=r64), intent(in), dimension(maxlay):: Al
real(kind=r64), intent(in), dimension(maxlay):: Ar
real(kind=r64), intent(in), dimension(maxlay):: Ah
real(kind=r64), intent(in), dimension(maxlay):: SlatThick
real(kind=r64), intent(in), dimension(maxlay):: SlatWidth
real(kind=r64), intent(in), dimension(maxlay):: SlatAngle
real(kind=r64), intent(in), dimension(maxlay):: SlatCond
real(kind=r64), intent(in), dimension(maxlay):: SlatSpacing
real(kind=r64), intent(in), dimension(maxlay):: SlatCurve
real(kind=r64), intent(in), dimension(maxlay1):: vvent

! Laminates:
real(kind=r64), intent(in), dimension(maxlay1):: tvent

! Laminates:
integer, intent(in), dimension(maxlay):: LayerType
integer, intent(in), dimension(maxlay):: nslice
real(kind=r64), intent(in), dimension(maxlay):: LaminateA(maxlay)

! Gaps:
real(kind=r64), intent(in), dimension(maxlay):: LaminateB(maxlay)

! Gaps:
real(kind=r64), intent(in), dimension(maxlay):: sumsol(maxlay)

! Gaps:
real(kind=r64), intent(out), dimension(maxlay):: Ra

! Shading related:
real(kind=r64), intent(out), dimension(maxlay):: Nu

! Shading related:
integer, intent(in) :: ThermalMod
integer, intent(in) :: Debug_mode

! Environment related:
real(kind=r64), intent(out) :: ShadeEmisRatioOut
real(kind=r64), intent(out) :: ShadeEmisRatioIn
real(kind=r64), intent(out) :: ShadeHcRatioOut
real(kind=r64), intent(out) :: ShadeHcRatioIn
real(kind=r64), intent(out) :: HcUnshadedOut
real(kind=r64), intent(out) :: HcUnshadedin
real(kind=r64), intent(out), dimension(maxlay):: Keff

! Gaps:
real(kind=r64), intent(out), dimension(MaxGap):: ShadeGapKeffConv

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
real(kind=r64), intent(in) :: SDScalar

!! INPUTS/OUTPUTS:
integer, intent(in) :: SHGCCalc
integer, intent(out) :: NumOfIterations

! Layers:

private subroutine therm1d(nlayer, iwd, tout, tind, wso, wsi, VacuumPressure, VacuumMaxGapThickness, dir, Ebsky, Gout, Trmout, Trmin, Ebroom, Gin, tir, rir, emis, gap, thick, scon, tilt, asol, height, heightt, width, iprop, frct, presure, nmix, wght, gcon, gvis, gcp, gama, SupportPillar, PillarSpacing, PillarRadius, theta, q, qv, flux, hcin, hrin, hcout, hrout, hin, hout, hcgas, hrgas, ufactor, nperr, ErrorMessage, Tamb, Troom, ibc, Atop, Abot, Al, Ar, Ah, vvent, tvent, LayerType, Ra, Nu, vfreevent, qcgas, qrgas, Ebf, Ebb, Rf, Rb, ShadeEmisRatioOut, ShadeEmisRatioIn, ShadeHcModifiedOut, ShadeHcModifiedIn, ThermalMod, Debug_mode, AchievedErrorTolerance, TotalIndex)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !! MAIN ITERATION LOOP !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: nlayer
integer, intent(in) :: iwd
real(kind=r64), intent(inout) :: tout
real(kind=r64), intent(inout) :: tind
real(kind=r64), intent(in) :: wso
real(kind=r64), intent(in) :: wsi
real(kind=r64), intent(in) :: VacuumPressure
real(kind=r64), intent(in) :: VacuumMaxGapThickness
real(kind=r64), intent(in) :: dir
real(kind=r64), intent(inout) :: Ebsky
real(kind=r64), intent(in) :: Gout
real(kind=r64), intent(in) :: Trmout
real(kind=r64), intent(in) :: Trmin
real(kind=r64), intent(inout) :: Ebroom
real(kind=r64), intent(in) :: Gin
real(kind=r64), intent(in), dimension(maxlay2):: tir
real(kind=r64), intent(in), dimension(maxlay2):: rir
real(kind=r64), intent(in), dimension(maxlay2):: emis
real(kind=r64), intent(in), dimension(MaxGap):: gap
real(kind=r64), intent(in), dimension(maxlay):: thick
real(kind=r64), intent(in), dimension(maxlay):: scon
real(kind=r64), intent(in) :: tilt
real(kind=r64), intent(in), dimension(maxlay):: asol
real(kind=r64), intent(in) :: height
real(kind=r64), intent(in) :: heightt
real(kind=r64) :: width
integer, intent(in), dimension(maxlay1, maxgas):: iprop
real(kind=r64), intent(in), dimension(maxlay1, maxgas):: frct
real(kind=r64), intent(in), dimension(maxlay1):: presure
integer, intent(in), dimension(maxlay1):: nmix
real(kind=r64), intent(in), dimension(maxgas):: wght
real(kind=r64), intent(in), dimension(maxgas, 3):: gcon
real(kind=r64), intent(in), dimension(maxgas, 3):: gvis
real(kind=r64), intent(in), dimension(maxgas, 3):: gcp
real(kind=r64), intent(in), dimension(maxgas):: gama
integer, intent(in), dimension(maxlay):: SupportPillar
real(kind=r64), intent(in), dimension(maxlay):: PillarSpacing
real(kind=r64), intent(in), dimension(maxlay):: PillarRadius
real(kind=r64), intent(inout), dimension(maxlay2):: theta
real(kind=r64), intent(out), dimension(maxlay3):: q
real(kind=r64), intent(out), dimension(maxlay1):: qv
real(kind=r64), intent(out) :: flux
real(kind=r64), intent(out) :: hcin
real(kind=r64), intent(inout) :: hrin
real(kind=r64), intent(inout) :: hcout
real(kind=r64), intent(inout) :: hrout
real(kind=r64), intent(inout) :: hin
real(kind=r64), intent(inout) :: hout
real(kind=r64), intent(out), dimension(maxlay1):: hcgas
real(kind=r64), intent(out), dimension(maxlay1):: hrgas
real(kind=r64), intent(out) :: ufactor
integer, intent(inout) :: nperr
character(len=*) :: ErrorMessage
real(kind=r64), intent(inout) :: Tamb
real(kind=r64), intent(inout) :: Troom
integer, intent(in), dimension(2):: ibc
real(kind=r64), intent(in), dimension(maxlay):: Atop
real(kind=r64), intent(in), dimension(maxlay):: Abot
real(kind=r64), intent(in), dimension(maxlay):: Al
real(kind=r64), intent(in), dimension(maxlay):: Ar
real(kind=r64), intent(in), dimension(maxlay):: Ah
real(kind=r64), intent(in), dimension(maxlay1):: vvent
real(kind=r64), intent(in), dimension(maxlay1):: tvent
integer, intent(in), dimension(maxlay):: LayerType
real(kind=r64), intent(out), dimension(maxlay):: Ra
real(kind=r64), intent(out), dimension(maxlay):: Nu
real(kind=r64), intent(out), dimension(maxlay1):: vfreevent
real(kind=r64), intent(out), dimension(maxlay1):: qcgas
real(kind=r64), intent(out), dimension(maxlay1):: qrgas
real(kind=r64), intent(inout), dimension(maxlay):: Ebf
real(kind=r64), intent(inout), dimension(maxlay):: Ebb
real(kind=r64), intent(inout), dimension(maxlay):: Rf
real(kind=r64), intent(inout), dimension(maxlay):: Rb
real(kind=r64), intent(out) :: ShadeEmisRatioOut
real(kind=r64), intent(out) :: ShadeEmisRatioIn
real(kind=r64), intent(out) :: ShadeHcModifiedOut
real(kind=r64), intent(out) :: ShadeHcModifiedIn
integer, intent(in) :: ThermalMod
integer, intent(in) :: Debug_mode
real(kind=r64), intent(out) :: AchievedErrorTolerance
integer, intent(out) :: TotalIndex

private subroutine guess(tout, tind, nlayer, gap, thick, width, theta, Ebb, Ebf, Tgap)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: tout
real(kind=r64), intent(in) :: tind
integer, intent(in) :: nlayer
real(kind=r64), intent(in), dimension(MaxGap):: gap
real(kind=r64), intent(in), dimension(maxlay):: thick
real(kind=r64), intent(out) :: width
real(kind=r64), intent(out), dimension(maxlay2):: theta
real(kind=r64), intent(out), dimension(maxlay):: Ebb
real(kind=r64), intent(out), dimension(maxlay):: Ebf
real(kind=r64), intent(out), dimension(maxlay1):: Tgap

private subroutine TemperaturesFromEnergy(theta, Tgap, Ebf, Ebb, nlayer, nperr, ErrorMessage)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(inout), dimension(maxlay2):: theta
real(kind=r64), intent(inout), dimension(maxlay1):: Tgap
real(kind=r64), intent(in), dimension(maxlay):: Ebf
real(kind=r64), intent(in), dimension(maxlay):: Ebb
integer, intent(in) :: nlayer
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage

private subroutine solarISO15099(totsol, rtot, rs, nlayer, absol, sf)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: totsol
real(kind=r64), intent(in) :: rtot
real(kind=r64), intent(in), dimension(maxlay3):: rs
integer, intent(in) :: nlayer
real(kind=r64), intent(in), dimension(maxlay):: absol
real(kind=r64), intent(out) :: sf

private subroutine resist(nlayer, Trmout, Tout, Trmin, tind, hcgas, hrgas, theta, qlayer, qv, LayerType, thick, scon, ufactor, flux, qcgas, qrgas)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: nlayer
real(kind=r64), intent(in) :: Trmout
real(kind=r64), intent(in) :: Tout
real(kind=r64), intent(in) :: Trmin
real(kind=r64), intent(in) :: tind
real(kind=r64), intent(in), dimension(maxlay1):: hcgas
real(kind=r64), intent(in), dimension(maxlay1):: hrgas
real(kind=r64), intent(inout), dimension(maxlay2):: theta
real(kind=r64), intent(out), dimension(maxlay3):: qlayer
real(kind=r64), intent(in), dimension(maxlay1):: qv
integer, intent(in) :: LayerType(maxlay)
real(kind=r64), intent(in), dimension(maxlay):: thick
real(kind=r64), intent(in), dimension(maxlay):: scon
real(kind=r64), intent(out) :: ufactor
real(kind=r64), intent(out) :: flux
real(kind=r64), intent(out), dimension(maxlay1):: qcgas
real(kind=r64), intent(out), dimension(maxlay1):: qrgas

private subroutine hatter(nlayer, iwd, tout, tind, wso, wsi, VacuumPressure, VacuumMaxGapThickness, Ebsky, tamb, Ebroom, troom, gap, height, heightt, scon, tilt, theta, Tgap, Radiation, Trmout, Trmin, iprop, frct, presure, nmix, wght, gcon, gvis, gcp, gama, SupportPillar, PillarSpacing, PillarRadius, hgas, hcgas, hrgas, hcin, hcout, hin, hout, index, ibc, nperr, ErrorMessage, hrin, hrout, Ra, Nu)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: nlayer
integer, intent(in) :: iwd
real(kind=r64), intent(in) :: tout
real(kind=r64), intent(in) :: tind
real(kind=r64), intent(in) :: wso
real(kind=r64), intent(in) :: wsi
real(kind=r64), intent(in) :: VacuumPressure
real(kind=r64), intent(in) :: VacuumMaxGapThickness
real(kind=r64), intent(inout) :: Ebsky
real(kind=r64), intent(out) :: tamb
real(kind=r64), intent(inout) :: Ebroom
real(kind=r64), intent(out) :: troom
real(kind=r64), intent(in), dimension(MaxGap):: gap
real(kind=r64), intent(in) :: height
real(kind=r64), intent(in) :: heightt
real(kind=r64), intent(in), dimension(maxlay):: scon
real(kind=r64), intent(in) :: tilt
real(kind=r64), intent(inout), dimension(maxlay2):: theta
real(kind=r64), intent(in), dimension(maxlay1):: Tgap
real(kind=r64), intent(inout), dimension(maxlay2):: Radiation
real(kind=r64), intent(in) :: Trmout
real(kind=r64), intent(in) :: Trmin
integer, intent(in), dimension(maxlay1, maxgas):: iprop
real(kind=r64), intent(in), dimension(maxlay1, maxgas):: frct
real(kind=r64), intent(in), dimension(maxlay1):: presure
integer, intent(in), dimension(maxlay1):: nmix
real(kind=r64), intent(in), dimension(maxgas):: wght
real(kind=r64), intent(in), dimension(maxgas, 3):: gcon
real(kind=r64), intent(in), dimension(maxgas, 3):: gvis
real(kind=r64), intent(in), dimension(maxgas, 3):: gcp
real(kind=r64), intent(in), dimension(maxgas):: gama
integer, intent(in) :: SupportPillar(maxlay)
real(kind=r64), intent(in), dimension(maxlay):: PillarSpacing
real(kind=r64), intent(in), dimension(maxlay):: PillarRadius
real(kind=r64), intent(out), dimension(maxlay1):: hgas
real(kind=r64), intent(out), dimension(maxlay1):: hcgas
real(kind=r64), intent(out), dimension(maxlay1):: hrgas
real(kind=r64), intent(inout) :: hcin
real(kind=r64), intent(inout) :: hcout
real(kind=r64), intent(in) :: hin
real(kind=r64), intent(in) :: hout
integer, intent(in) :: index
integer, intent(in), dimension(2):: ibc
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage
real(kind=r64), intent(inout) :: hrin
real(kind=r64), intent(inout) :: hrout
real(kind=r64), intent(inout), dimension(maxlay):: Ra
real(kind=r64), intent(inout), dimension(maxlay):: Nu

private subroutine filmi(tair, t, nlayer, tilt, wsi, height, iprop, frct, presure, nmix, wght, gcon, gvis, gcp, hcin, ibc, nperr, ErrorMessage)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: tair
real(kind=r64), intent(in) :: t
integer, intent(in) :: nlayer
real(kind=r64), intent(in) :: tilt
real(kind=r64), intent(in) :: wsi
real(kind=r64), intent(in) :: height
integer, intent(in), dimension(maxlay1, maxgas):: iprop
real(kind=r64), intent(in), dimension(maxlay1, maxgas):: frct
real(kind=r64), intent(in), dimension(maxlay1):: presure
integer, intent(in), dimension(maxlay1):: nmix
real(kind=r64), intent(in), dimension(maxgas):: wght
real(kind=r64), intent(in), dimension(maxgas, 3):: gcon
real(kind=r64), intent(in), dimension(maxgas, 3):: gvis
real(kind=r64), intent(in), dimension(maxgas, 3):: gcp
real(kind=r64), intent(out) :: hcin
integer, intent(in) :: ibc
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage

private subroutine filmg(tilt, theta, Tgap, nlayer, height, gap, iprop, frct, VacuumPressure, presure, nmix, wght, gcon, gvis, gcp, gama, hcgas, Rayleigh, Nu, nperr, ErrorMessage)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: tilt
real(kind=r64), intent(in), dimension(maxlay2):: theta
real(kind=r64), intent(in), dimension(maxlay1):: Tgap
integer, intent(in) :: nlayer
real(kind=r64), intent(in) :: height
real(kind=r64), intent(in), dimension(MaxGap):: gap
integer, intent(in), dimension(maxlay1, maxgas):: iprop
real(kind=r64), intent(in), dimension(maxlay1, maxgas):: frct
real(kind=r64), intent(in) :: VacuumPressure
real(kind=r64), intent(in), dimension(maxlay1):: presure
integer, intent(in), dimension(maxlay1):: nmix
real(kind=r64), intent(in), dimension(maxgas):: wght
real(kind=r64), intent(in), dimension(maxgas, 3):: gcon
real(kind=r64), intent(in), dimension(maxgas, 3):: gvis
real(kind=r64), intent(in), dimension(maxgas, 3):: gcp
real(kind=r64), intent(in), dimension(maxgas):: gama
real(kind=r64), intent(out), dimension(maxlay1):: hcgas
real(kind=r64), intent(out), dimension(maxlay):: Rayleigh
real(kind=r64), intent(out), dimension(maxlay):: Nu
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage

private subroutine filmPillar(SupportPillar, scon, PillarSpacing, PillarRadius, nlayer, gap, hcgas, VacuumMaxGapThickness, nperr, ErrorMessage)

Arguments

Type IntentOptional AttributesName
integer, intent(in), dimension(maxlay):: SupportPillar
real(kind=r64), intent(in), dimension(maxlay):: scon
real(kind=r64), intent(in), dimension(maxlay):: PillarSpacing
real(kind=r64), intent(in), dimension(maxlay):: PillarRadius
integer, intent(in) :: nlayer
real(kind=r64), intent(in), dimension(MaxGap):: gap
real(kind=r64), intent(inout), dimension(maxlay1):: hcgas
real(kind=r64), intent(in) :: VacuumMaxGapThickness
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage

private subroutine nusselt(tilt, ra, asp, gnu, nperr, ErrorMessage)

Arguments

Type IntentOptional AttributesName
real(kind=r64), intent(in) :: tilt
real(kind=r64), intent(in) :: ra
real(kind=r64), intent(in) :: asp
real(kind=r64), intent(out) :: gnu
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage

private subroutine adjusthhat(SDLayerIndex, ibc, tout, tind, nlayer, theta, wso, wsi, iwd, height, heightt, tilt, thick, gap, hout, hrout, hin, hrin, iprop, frct, presure, nmix, wght, gcon, gvis, gcp, index, SDScalar, Ebf, Ebb, hgas, hhat, nperr, ErrorMessage)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: SDLayerIndex
integer, intent(in), dimension(2):: ibc
real(kind=r64), intent(in) :: tout
real(kind=r64), intent(in) :: tind
integer, intent(in) :: nlayer
real(kind=r64), intent(in), dimension(maxlay2):: theta
real(kind=r64), intent(in) :: wso
real(kind=r64), intent(in) :: wsi
integer, intent(in) :: iwd
real(kind=r64), intent(in) :: height
real(kind=r64), intent(in) :: heightt
real(kind=r64), intent(in) :: tilt
real(kind=r64), intent(in), dimension(maxlay):: thick
real(kind=r64), intent(in), dimension(MaxGap):: gap
real(kind=r64), intent(in) :: hout
real(kind=r64), intent(in) :: hrout
real(kind=r64), intent(in) :: hin
real(kind=r64), intent(in) :: hrin
integer, intent(in), dimension(maxlay1, maxgas):: iprop
real(kind=r64), intent(in), dimension(maxlay1, maxgas):: frct
real(kind=r64), intent(in), dimension(maxlay1):: presure
integer, intent(in), dimension(maxlay1):: nmix
real(kind=r64), intent(in), dimension(maxgas):: wght
real(kind=r64), intent(in), dimension(maxgas, 3):: gcon
real(kind=r64), intent(in), dimension(maxgas, 3):: gvis
real(kind=r64), intent(in), dimension(maxgas, 3):: gcp
integer, intent(in) :: index
real(kind=r64), intent(in) :: SDScalar
real(kind=r64), intent(in), dimension(maxlay):: Ebf
real(kind=r64), intent(in), dimension(maxlay):: Ebb
real(kind=r64), intent(inout), dimension(maxlay):: hgas
real(kind=r64), intent(inout), dimension(maxlay3):: hhat
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage

private subroutine storeIterationResults(nlayer, index, theta, Trmout, Tamb, Trmin, Troom, Ebsky, Ebroom, hcin, hcout, hrin, hrout, hin, hout, Ebb, Ebf, Rb, Rf, nperr)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: nlayer
integer, intent(in) :: index
real(kind=r64), intent(in), dimension(maxlay):: theta
real(kind=r64), intent(in) :: Trmout
real(kind=r64), intent(in) :: Tamb
real(kind=r64), intent(in) :: Trmin
real(kind=r64), intent(in) :: Troom
real(kind=r64), intent(in) :: Ebsky
real(kind=r64), intent(in) :: Ebroom
real(kind=r64), intent(in) :: hcin
real(kind=r64), intent(in) :: hcout
real(kind=r64), intent(in) :: hrin
real(kind=r64), intent(in) :: hrout
real(kind=r64), intent(in) :: hin
real(kind=r64), intent(in) :: hout
real(kind=r64), intent(in), dimension(maxlay):: Ebb
real(kind=r64), intent(in), dimension(maxlay):: Ebf
real(kind=r64), intent(in), dimension(maxlay):: Rb
real(kind=r64), intent(in), dimension(maxlay):: Rf
integer, intent(inout) :: nperr

private subroutine CalculateFuncResults(nlayer, a, b, x, FRes)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: nlayer
real(kind=r64), intent(in), dimension(4*nlayer, 4*nlayer):: a
real(kind=r64), intent(in), dimension(4*nlayer):: b
real(kind=r64), intent(in), dimension(4*nlayer):: x
real(kind=r64), intent(inout), dimension(4*nlayer):: FRes

All Modules

AirflowNetworkBalanceManager AirflowNetworkSolver BaseboardElectric BaseboardRadiator Boilers BoilerSteam BranchInputManager BranchNodeConnections ChillerAbsorption ChillerElectricEIR ChillerExhaustAbsorption ChillerGasAbsorption ChillerIndirectAbsorption ChillerReformulatedEIR CondenserLoopTowers ConductionTransferFunctionCalc ConvectionCoefficients CoolTower CostEstimateManager CrossVentMgr CTElectricGenerator CurveManager DataAirflowNetwork DataAirLoop DataAirSystems DataBranchAirLoopPlant DataBranchNodeConnections DataBSDFWindow DataComplexFenestration DataContaminantBalance DataConvergParams DataConversions DataCostEstimate DataDaylighting DataDaylightingDevices DataDefineEquip DataDElight DataEnvironment DataErrorTracking DataGenerators DataGlobalConstants DataGlobals DataHeatBalance DataHeatBalFanSys DataHeatBalSurface DataHVACControllers DataHVACGlobals DataInterfaces DataIPShortCuts DataLoopNode DataMoistureBalance DataMoistureBalanceEMPD DataOutputs DataPhotovoltaics DataPlant DataPlantPipingSystems DataPrecisionGlobals DataReportingFlags DataRoomAirModel DataRootFinder DataRuntimeLanguage DataShadowingCombinations DataSizing DataStringGlobals DataSurfaceColors DataSurfaceLists DataSurfaces DataSystemVariables DataTimings DataUCSDSharedData DataVectorTypes DataViewFactorInformation DataWater DataWindowEquivalentLayer DataZoneControls DataZoneEnergyDemands DataZoneEquipment DaylightingDevices DaylightingManager DELIGHTMANAGERF DELIGHTMANAGERF DemandManager DesiccantDehumidifiers DirectAirManager DisplacementVentMgr DualDuct DXCoils DXFEarClipping EarthTube EconomicLifeCycleCost EconomicTariff EcoRoofManager ElectricBaseboardRadiator EMSManager EvaporativeCoolers EvaporativeFluidCoolers ExteriorEnergyUse ExternalInterface FanCoilUnits Fans FaultsManager FluidCoolers FluidProperties FuelCellElectricGenerator Furnaces General GeneratorDynamicsManager GeneratorFuelSupply GlobalNames GroundHeatExchangers HeatBalanceAirManager HeatBalanceHAMTManager HeatBalanceIntRadExchange HeatBalanceManager HeatBalanceMovableInsulation HeatBalanceSurfaceManager HeatBalFiniteDiffManager HeatingCoils HeatPumpWaterToWaterCOOLING HeatPumpWaterToWaterHEATING HeatPumpWaterToWaterSimple HeatRecovery HighTempRadiantSystem Humidifiers HVACControllers HVACCooledBeam HVACDuct HVACDXHeatPumpSystem HVACDXSystem HVACHXAssistedCoolingCoil HVACInterfaceManager HVACManager HVACMultiSpeedHeatPump HVACSingleDuctInduc HVACStandAloneERV HVACUnitaryBypassVAV HVACUnitarySystem HVACVariableRefrigerantFlow HWBaseboardRadiator ICEngineElectricGenerator IceThermalStorage InputProcessor InternalHeatGains ISO_C_FUNCTION_BINDING ISO_C_FUNCTION_BINDING LowTempRadiantSystem ManageElectricPower MatrixDataManager MicroCHPElectricGenerator MicroturbineElectricGenerator MixedAir MixerComponent MoistureBalanceEMPDManager MundtSimMgr NodeInputManager NonZoneEquipmentManager OutAirNodeManager OutdoorAirUnit OutputProcessor OutputReportPredefined OutputReportTabular OutsideEnergySources PackagedTerminalHeatPump PackagedThermalStorageCoil Photovoltaics PhotovoltaicThermalCollectors PipeHeatTransfer Pipes PlantCentralGSHP PlantChillers PlantComponentTemperatureSources PlantCondLoopOperation PlantHeatExchangerFluidToFluid PlantLoadProfile PlantLoopEquip PlantLoopSolver PlantManager PlantPipingSystemsManager PlantPressureSystem PlantUtilities PlantValves PollutionModule PondGroundHeatExchanger PoweredInductionUnits Psychrometrics Pumps PurchasedAirManager RefrigeratedCase ReportSizingManager ReturnAirPathManager RoomAirModelManager RoomAirModelUserTempPattern RootFinder RuntimeLanguageProcessor ScheduleManager SetPointManager SimAirServingZones SimulationManager SingleDuct SizingManager SolarCollectors SolarReflectionManager SolarShading SortAndStringUtilities SplitterComponent SQLiteProcedures SQLiteProcedures StandardRatings SteamBaseboardRadiator SteamCoils SurfaceGeometry SurfaceGroundHeatExchanger SystemAvailabilityManager SystemReports TARCOGArgs TARCOGCommon TARCOGDeflection TARCOGGasses90 TARCOGGassesParams TARCOGMain TARCOGOutput TARCOGParams TarcogShading ThermalChimney ThermalComfort ThermalEN673Calc ThermalISO15099Calc TranspiredCollector UFADManager UnitHeater UnitVentilator UserDefinedComponents VariableSpeedCoils vectors VentilatedSlab WaterCoils WaterManager WaterThermalTanks WatertoAirHeatPump WatertoAirHeatPumpSimple WaterUse WeatherManager WindowAC WindowComplexManager WindowEquivalentLayer WindowManager WindTurbine ZoneAirLoopEquipmentManager ZoneContaminantPredictorCorrector ZoneDehumidifier ZoneEquipmentManager ZonePlenum ZoneTempPredictorCorrector