Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | AirModelName | = | ' ' | ||
character(len=MaxNameLength), | public | :: | ZoneName | = | ' ' | ||
integer, | public | :: | ZonePtr | = | 0 | ||
integer, | public | :: | AirModelType | = | RoomAirModel_Mixing | ||
integer, | public | :: | TempCoupleScheme | = | DirectCoupling | ||
logical, | public | :: | SimAirModel | = | .false. |
TYPE AirModelData
CHARACTER(Len=MaxNameLength) :: AirModelName =' '
CHARACTER(Len=MaxNameLength) :: ZoneName =' '
INTEGER :: ZonePtr =0 ! Pointer to the zone number for this statement
INTEGER :: AirModelType =RoomAirModel_Mixing ! 1 = Mixing, 2 = Mundt, 3 = Rees and Haves,
! 4 = UCSDDV, 5 = UCSDCV, -1 = user defined
! 6 = UCSDUFI
INTEGER :: TempCoupleScheme =DirectCoupling ! 1 = absolute (direct),
! 2 = relative air model temperature passing scheme (indirect)
LOGICAL :: SimAirModel =.false. ! FALSE if Mixing air model is currently used and
! TRUE if other air models are currently used
END TYPE AirModelData