Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | dimension(maxgas) | :: | iprop | ||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | frct | ||
real(kind=r64), | intent(in) | :: | press | |||
integer, | intent(in) | :: | nmix | |||
real(kind=r64), | intent(in), | dimension(maxgas) | :: | xwght | ||
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) | :: | s | |||
real(kind=r64), | intent(in) | :: | H | |||
real(kind=r64), | intent(in) | :: | hc | |||
real(kind=r64), | intent(in) | :: | forcedspeed | |||
real(kind=r64), | intent(in) | :: | Tinlet | |||
real(kind=r64), | intent(out) | :: | Toutlet | |||
real(kind=r64), | intent(in) | :: | Tav | |||
real(kind=r64), | intent(out) | :: | hcv | |||
real(kind=r64), | intent(out) | :: | qv | |||
integer, | intent(inout) | :: | nperr | |||
character(len=*), | intent(inout) | :: | ErrorMessage |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
subroutine forcedventilation(iprop, frct, press, nmix, xwght, xgcon, xgvis, xgcp, s, H, hc, &
& forcedspeed, Tinlet, Toutlet, Tav, hcv, qv, nperr, ErrorMessage)
!**************************************************************************************************************
! Input:
!
! iprop Vector of gas identifiers
! frct Fraction of gasses in a mixture
! nmix Number of gasses in a mixture
! press Pressure in mixture
! s1 Gap width [m]
! H IGU cavity height [m]
! L IGU cavity width [m]
! hc Convective/conductive coefficient for non-vented gap
! Tav Average temperature of gap surfaces
! Tinlet Temperature of inlet air
!
! Output:
!
! hcv Convective/conductive coefficient for vented gap
! qv Heat transfer to the gap by vetilation [W/m^2]
! nperr Error flag
! ErrorMessage string containing error message
!**************************************************************************************************************
integer, dimension(maxgas), intent(in) :: iprop
integer, intent(in) :: nmix
real(r64), dimension(maxgas), intent(in) :: frct
real(r64), dimension(maxgas), intent(in) :: xwght
real(r64), dimension(maxgas, 3), intent(in) :: xgcon, xgvis, xgcp
real(r64), intent(in) :: press, s, H
real(r64), intent(in) :: hc, Tav, forcedspeed, Tinlet
real(r64), intent(out) :: hcv, qv, Toutlet
integer, intent(inout) :: nperr
character(len=*), intent(inout) :: ErrorMessage
real(r64) :: H0, dens, cp, pr, con, visc
call gasses90(Tav, iprop, frct, press, nmix, xwght, xgcon, xgvis, xgcp, con, visc, dens, cp, pr, 1, nperr, ErrorMessage)
H0 = (dens * cp * s * forcedspeed) / (4.0d0 * hc + 8.0d0 * forcedspeed)
Toutlet = Tav - (Tav - Tinlet)* (e**(-H/H0))
qv = - dens * cp * forcedspeed * s * (Toutlet - Tinlet) / H
!Need to calculate surface-to-air convection heat transfer coefficient. This is needed later to calculate layer
!to gap thermal resistance
hcv = 2.0d0 * hc + 4.0d0 * forcedspeed
end subroutine forcedventilation