PSYCHROMETRIC PROPERTIES
OF MOIST AIR

<-- Enter dry bulb, elevation and either dewpoint, wet bulb or relative humidity. If you enter wet bulb, assign the value of one to 'which'. If you enter dew point, assign the value of two to 'which'. If you enter relative humidity, assign the value of three to 'which'. Results appear below

<-- Program to find vapor pressure of water vapor in air sample in units of psia

<
<-- Error Messages
<
<

<
<-- Error Messages
<
<

<
<-- Error Messages
<
<

Vapor pressure when <-- saturated at db

<-- Vapor Pressure at db
<-- Vapor Pressure at wb

<-- Vapor Pressure at db
<-- Vapor Pressure at dp

<-- Main program. Each function referred to is a 'subroutine'

<-- Relative Humidity

<-- Average barometric
pressure at elevation

<-- Average barometric
pressure at elevation

<-- Average barometric
pressure at elevation

<-- Vapor Pressure at db

<-- Unit definition for final display (purely cosmetic)

<-- Humidity ratio when
saturated at wet bulb

<-- Humidity ratio

<-- Humidity ratio

<-- Humidity ratio of air saturated at dry bulb

<-- Humidity ratio

<-- Humidity ratio of air saturated at dry bulb

<-- Humidity ratio when
saturated at dry bulb

<-- Degree of Saturation

<-- Degree of Saturation

<-- Error Message

<-- Degree of Saturation

<-- Error Message

<-- Enthalpy

<-- Error Message

<-- Relative Humidity

<-- Relative Humidity

<-- Enthalpy

<-- Specific Volume

<--
Dewpoint
Calculation
<--

<-- Enthalpy

<-- Specific Volume

<-- Partial pressure of
water vapor in actual
sample

<-- Initial value of humidity
ratio, wet bulb guess
and increment for guess
used to iterate the value
of wet bulb.

<-- Initial value of humidity ratio, wet bulb guess and increment for wet bulb guess used to iterate the value of wet bulb.

<-- Specific Volume

<
Dew Point Calculation
<

<-- Begin 'while' loop

<
< Iteration routine < for wet bulb
<

<
< Iteration routine for wb
<

<-- Vector of Results

<-- Change value of step

<-- Statement to prevent
endless loop

<-- Change value of step

<-- Vector of Results

<-- Statement to prevent endless loop

<-- Vector of Results