EPA-R4-73-030g
July 1973
ENVIRONMENTAL MONITORING SERIES
m^^^l^l^lSMi^^^^^ili^^l^im^^^im
I111III1
^^^M^^^^^^^^^^^^M^^^M^W^^^^^
w$$^tt$ii?^^?$^&%iK
'K&'ff,
*%!:$:;:;:
:*:*«*
^m
-------
EPA-R4-73-030g
URBAN AIR SHED PHOTOCHEMICAL
SIMULATION MODEL STUDY
VOLUME II - USER'S GUIDE AND DESCRIPTION
OF COMPUTER PROGRAMS
Appendix - Data Preparation Programs
by
D. Whitney
Systems Applications, Inc.
9418 Wilshire Boulevard
Beverly Hills, California 90212
Contract No. 68-02-0339
Program Element No. 1A1009
EPA Project Officer: Herbert Viebrock
Meteorology Laboratory
National Environmental Research Center
Research Triangle Park, North Carolina 27711
Prepared for
OFFICE OF RESEARCH AND DEVELOPMENT
U.S. ENVIRONMENTAL PROTECTION AGENCY
WASHINGTON, D.C. 20460
July 1973
-------
This report has been reviewed by the Environmental Protection Agency and
approved for publication. Approval does not signify that the contents
necessarily reflect the views and policies of the Agency, nor does
mention of trade names or commercial products constitute endorsement
or recommendation for use.
11
-------
TABLE OF CONTENTS
I. SYSTEM OVERVIEW
II. DESCRIPTION OF THE PROGRAMS
A. Wind Speed and Direction (WIND)
B. Air Quality (QUAL)
C. Mixing Depth (DEPTH)
D. Boundary Conditions (BOUND)
E. Data Files Preparation (DPREP)
F. Input Data Comparison (COMP)
III. OPERATING PROCEDURES
A. General Information
B. Program Operating Characteristics
IV. SYMBOL GLOSSARIES, PROGRAM LISTINGS, SAMPLE
DECKS, AND SAMPLE OUTPUT
A. Symbol Glossaries
TABLE OF CONTENTS (Cont'd)
B. Program Listings
1.
2.
3.
4.
5.
6.
WIND
QUAL
DEPTH
BOUND
DPREP
COMP
PACE
1
3
3
9
15
20
26
30
32
32
48
INPUT
SS
56
56
66
74
79
86
90
1.
2.
3.
4.
5.
6.
WIND
QUAL
DEPTH
BOUND
DPREP
COMP
C. Sample Input Decks
1.
2.
3.
4.
5.
WIND
QUAL
DEPTH
BOUND
DPREP
D. Sample Output
1.
2.
3.
4.
5.
6.
7.
8.
WIND - Correlation
WIND - Calculation
QUAL - Correlation
QUAL - Calculation
DEPTH
BOUND
DPREP
COMP
REFERENCES
Page
94
94
112
128
136
151
161
167
167
169
171
172
174
175
175
182
187
194
198
202
210
222
231
ii
-------
I. SYSTEM OVERVIEW
The automation of input data preparation for the airshed
simulation package involves four main programs (one each for
wind speed and direction, mixing depth, initial conditions,
and boundary conditions), a data gathering program, and
a data comparison program. The first five programs,
when run consecutively using the appropriate options and
file descriptions, will produce input decks identical in
form with the meteorological data file and the program oper-
ating parameters and initial and boundary as depicted in
Figure 2 of Volume II of this report. The sixth program
is useful for comparison of automatically vs. manually
prepared airshed input decks. The various relationships
among these programs and the airshed system are shown in
Figure A-l.
In addition to their data generating capabilities, the
wind and initial condition programs can be used to test the
exponential form and the radius of influence used in data
generation. These programs will calculate the wind speed
and direction or pollutant concentrations at each measuring
station and then make comparisons of the predicted and mea-
sured values. The "goodness-of-fit" is reported both hour-
wise for all stations and station-wise for all hours as
either the variance p or the correlation coefficient 6.
All of the programs have various options which may be
invoked via input data and file specifications, thus allow-
ing the user a great deal of flexibility in data prepara-
tion and analysis for the airshed model. These individual
.features are discussed in the next section of this Appendix.
For a full description of the technical details concerning
these features, as well as for a general discussion of the
various strategies, the reader is referred to the main report
by Liu et al (1973) .
oo
a
'*
o o
hi l-l
3 W.
00
.^ B
U« 0)
VI
05
£>
a
H
V
0)
in
-------
II. DESCRIPTION OF THE PROGRAMS
A. Wind Speed and Direction (WIND)
1. Program Objective and Capability
The program WIND has two main functions: 1) to corre-
late the measured wind speed and direction at each station
with those predicted using other nearby stations, and 2) to
calculate the wind speed and direction at each ground level
grid point for input to the airshed model. Selection of a
particular program function is accomplished by specifying
the appropriate parameter in the options field on the input
control card (see below).
In the correlation section, it is possible to test up to
six different values of the exponent in the inverse power
equation for the wind speed and direction calculation. It
is also possible to vary both the size of the radius of
influence for selection of stations to be used in the corre-
lation and to vary the total distance that the program will
go in seeking out a station to be used in the correlation.
The time span and the total number of wind stations are addi-
tional variables which are under the control of the user.
In the calculation section, the user may specify the time
span, number of stations, value of the exponent, and radius
of influence to be used in computing the wind speed and direc-
tion on any arbitrarily-sized rectangular grid. Built into
the program are certain assumptions with regard to the
terrain over which the calculations are to be made. The
output of these calculations may be placed on a file for
later use by the data-gathering program DPREP in the pre-
paration of meteorological input data for the airshed model.
2. Program Structure
The program WIND can be divided into four sections: in-
ternal data declaration, external data input and checking,
wind station correlation, and output grid calculation.
Each of these sections is treated in detail in separate
paragraphs below.
The initial data declaration section begins with the
definition of some complex variables. The size of each array
is defined in the symbol glossary in Section A-IV. Parti-
cular note should be taken of the equivalences between the
variance values and the grid speeds, and the correlation
coefficients and the grid angles; any change in array sizes
may require modification of these shared storage declarations.
The regional designations are depicted in Figure A-2; these
control the type of calculations done in the preparation
of grid values. The unit numbers for the input and output
files are declared. The miscellaneous section includes
the limit check and default values for input analysis as
defined in the data deck set-up in Table A-2. This section
ends with the definition of the internal functions for radian/
degree interconversion.
The external data input section begins with the reading
of a single control card which contains the options and
operating parameters for the WIND program. Limit checks
are made on the appropriate input items and default values
provided where necessary, along with the appropriate warn-
ing messages. An initial page is written, listing the
values from the control card (see Section A-IV). Station
-------
I 134 S 6 7
g 1 to n it 13 '« if it IT iff il
It il 11 11 It ff
u
u
23
2!
11
.10
11
IS
17
It
li
l<>
n
12
II
10
1
8
7
4
S
4
3
1
1
1
2.
A
3
N
V
r
L
Is*,
_
i
5
c
s
\
"
6
n
/
\
•\
8
v^
1
"""X.
R
(0
G
n
ii
>r
'3
— -.
",
~\
"X
N
^
F
\
x
* — .
2.1
^
22
s.
ti
1°,
IS
if
«
23
21
11
30
11
li
^
i
if
«,
13
1
II
10
1
3
7
i
5
4
3
2
1
Figure A-2
Region Definitions for Program WIND
coordinate data are read in (one card per station) and
printed. Finally, wind speed and direction data are read
and date and limit checked (two cards per station) until
the end of the input file is reached. A sample input deck
is shown in Section A-IV. After all the input data are read,
a list of missing data points is printed.
The correlation section begins by converting the wind
speeds and directions to vector form. A wind vector is
then calculated at each station using an interpolation
scheme and the measured wind vectors at neighboring stations;
the algorithm employed is described in Liu et al (1973).
The measured and calculated vectors are then broken down
into wind speed and direction and printed for each station
(see Section A-IV). The correlation coefficients and vari-
ances on both an hour-wise and station-wise basis are calcu-
lated concurrently using the algorithms described in Liu et
al (1973). The non-zero values are then averaged and the
tables of values printed (see Section A-IV).
In the calculation section, an appropriate set of wind
stations for each square of the grid is selected on the
basis of the regional designation. The distance parameters
are calculated and corrected for station shadowing. The
calculated values are printed in linear and grid format,
and the values are stored on an external file for later use
by the program DPREP.
3. Input Data Requirements
The summary given below describes the general form of the
input data cards. The names of the variables, input
format, range and default values, and specific comments
are given in Table A-2, Section A-III.
-------
The first card is the control card. It begins with a
set of option flags which determine what kind of processing
will be done and the extent of the printed and filed out-
put. Next come values for the grid size, number of stations,
time span, and number and range of exponents. Finally, the
radii of influence for station and grid square calculations
appear.
The next set of cards is the station coordinate cards.
These contain the number and name of each wind measure-
ment station and the X and Y coordinates of that station.
There is one card for each wind station.
The final set of cards contains the wind direction and
speed measurements for each station. These data cards
are paired, with the direction card first. Each card
consists of date, station, and measurement identification
fields, followed by 24 data values, one per hour starting
with 0000 and ending with 2300.
4. Program Output
The WIND program creates a variety of output information,
most of which is under the control of the option flags on
the control card. The initial page, which describes the
control card, is mandatory. After that, the user may
optionally print the wind station coordinate data; the
measured and calculated wind vector, speed, and direction
data; the correlation coefficients; the variances; the
linear grid patterns; and the two-dimensional grid itself.
It is also possible, although not recommended, to supress
printing of the program-generated warning messages regard-
ing missing or erroneous data.
The program also produces an intermediate storage file
for use by program DPREP in preparation of the input data
file for the Meteorological Data Preparation Program. One
twenty-byte record is written on this file for each square
at each hour for which the program is executed; this record
contains the hour (2400 time), X and Y coordinates of the
square, and the wind speed and direction at the center of
the square.
-------
B. Air Quality (QUAL)
1. Program Objective and Capability
The program QUAL has two main functions: to correlate
the measured air pollutant concentrations at each station
with those predicted using other nearby stations and to cal-
culate the initial pollutant concentrations in each ground
level grid cell for input to the airshed model. Selection
of the desired program functions is accomplished by specify-
ing the appropriate parameters in the options field on the
input control card (see below).
In the correlation section, it is possible to test up
to six different values of the exponent for use in the inverse
power equation. Correlations may be made for up to six dif-
ferent pollutants. It is also possible to vary both the size
of the radius of influence for selection of stations to be
used in the correlation and the total distance that the pro-
gram will go in seeking out a station to be used in the cor-
relation. The time span and the total number of input sta-
tions are additional variables which are under the control
of the user.
In the calculation section, the user may specify the
time span, number of stations; value of the exponent, and
radius of influence to be used in computing the concentra-
tions of up to six pollutants for any arbitrarily-sized rec-
tangular grid. Built into the program are certain assumptions
with regard to the terrain over which the calculations are to
be made. The output of these calculations may be placed on
a file for later use by the data-gathering program DPREP in
the preparation of the initial conditions portion of the air-
shed model input and by the program BOUND in the calculation
of boundary conditions for the model.
2. Program Structure
The program QUAL can be divided into four sections:
internal data declaration, external data input and checking,
input station correlation, and output grid calculation.
Each of these sections is treated in detail in separate
paragraphs below.
The internal data declaration section begins with the
definition of the size of each . array, as shown in the
symbol glossary in Section A-IV. The regional designations are
depicted in Figure A-3; these control the type of calculations
done in the preparation of grid values. The unit numbers
for the input and output files are declared. The miscellan-
eous section includes the limit check and default values for
input analysis, as defined in Table A-3, and a number of
pollutant name abbreviations for special handling.
The external data input section begins with the reading
of a single control card which contains the options and
operating parameters for the QUAL program. Limit checks
are done on the input values and default values provided
where necessary, along with the appropriate warning messages.
An initial page is written, listing the values from the
control card (see Section A-IV). The conversion factor for
hydrocarbon concentrations and the list of pollutant names
are read from the next card. Station coordinate data are
read in (one card per station) and printed. Finally, pol-
lutant concentration data (up to six cards per station) are
read and date and limit checked until the end of the input
file is reached. A sample input deck is shown in Section A-IV.
After all the input data are read, a list of missing data
points is printed. A check is made for both methane (MTU)
and total hydrocarbon (TIIC) by identifying the pollutant names.
10
-------
I 1 3 <• f 6 f X 1 10 II it >3 it if it it iff
It II tl 11 If ff
«
U
23
21
ii
.1*
11
It
n
u
n
i
1
8
7
t
S
1,
3
I
1
I
,
1
t
A
j
\
V
r
L
\
}
f,
"",
\
6
0
\
\
/
\
""••
V
»
K.
5
-^
'
12.
'J
- — .
H,
^^
If
~~\
11
\
n
\
ib
F
N
IS
iO
,
:"
LI
~-^
22
\
a
.
a
21
if
V,
23
27
11
10
11
/S
7
I
if
If-
3
1
II
IQ
1
3
7
t.
S
4
3
2
1
Figure A-3
Region Definitions for Program QUAL
11
If so, the names and values are converted to reactive hydro-
carbon (RHC) and unreactive hydrocarbon (UHC) and multiplied
by factors to convert the concentrations based on the number
of carbons to concentrations based on the number of hydrocar-
bon molecules. Nitrogen dioxide, if present, has its name
.changed from N02 to N2, in order to avoid later confusion with
nitric oxide (NO) in the DPREP program.
The correlation section begins by calculating the con-
centration of each pollutant for each hour at each station
for which neighboring station data are available. The mea-
sured and calculated values are then printed for each station
(see Section A-IV). The correlation coefficients and variances
on both an hour-wise and station-wise basis are calculated
concurrently using the algorithms described in Liu et al (1973) .
The non-zero values are then averaged and the tables of values
printed (see Section A-IV).
In the calculation section, an appropriate set of input
stations is selected for use in making computations at each
grid point. The basis for selection of the stations is gov-
erned by the regional designation. The distance parameters
are calculated and corrected for station shadowing. The cal-
culated values are printed in linear and grid format, and
the values for the initial hour are stored on an external
file for later use by programs DPREP and BOUND.
3. Input Data Requirements
The summary given below describes the general form of
the input data cards. The names of the variables, input
format, range and default values, and specific comments are
given in Table A-3 , Section A-III.
12
-------
The first card is the control card. It begins with a
set of option flags which determine what kind of processing
will be done and the extent of the printed and filed output.
Next come values for the grid size, number of pollutants,
number of stations, time span, and number and range of expon-
ents. Finally, the radii of influence for station and grid
square calculations appear.
The second card begins with the hydrocarbon concentration
conversion factors. These are followed by the three-letter
abbreviations of the pollutant names.
The next set of cards is the station coordinate cards.
These contain the number and name of each pollution measure-
ment station and the X and Y coordinates of that station.
There is one card for each station.
The final set of cards contains the pollutant concentra-
tion measurements for each station. Each card consists of
date, station, and pollutant identification fields, fol-
lowed by 24 data values, one per hour starting with 0000
and ending with 2300.
4. Program Output
The QUAL program creates a variety of output information,
most of which is under the control of the option flags on
the control card. The initial page, which describes the
control card, is mandatory. After that, the user may option-
ally print the input station coordinate data; the measured
and calculated pollutant concentration data; the correlation
coefficients; the variances; the linear grid patterns;
and the two-dimensional grid itself. It is also possible,
although not recommended, to suppress printing of the pro-
gram-generated warning messages regarding missing or erroneous
data.
13
The program also produces an intermediate storage file
for use by programs BOUND and DPREP in preparation of the
input data file for the initial and boundary condition
portions of the airshed simulation program. One sixteen-
byte record is written on this file for each square at the
first hour for which the program is executed; this record
contains the pollutant name, the X and Y coordinates of the
square, and the pollutant concentration at the center of
the square.
14
-------
C. Mixing Depth (DEPTH)
1. Program Objective and Capability
The program DEPTH has one main function: to cal-
culate the input grid of mixing depths for the airshed
model. Control of this function is provided in the options
field on the input control card (see below).
The program accepts as input a minimal amount of
measured inversion height data, cross-correlates these
data over the time and distance span requested by the user,
and calculates the mixing depth over each square of the
arbitrarily-sized rectangular grid. Built into the program
are certain assumptions about the terrain over which the
calculations are to be made. The output of these calculations
may be placed on a file for later use by the data-gathering
program DPREP in the preparation of the meteorological input
data for the Meteorological Data Preparation Program.
2. Program Structure
The program DEPTH can be divided into four sections:
internal data declarations, external data input and check-
ing, input station data correlation, and output grid cal-
culation. Each of these sections is treated in detail in
separate paragraphs below.
The internal data declaration section begins with the
definition of the size of each array as shown in the
symbol glossary in Section A-IV. The regional designations
are depicted in Figure A-4; these control the type of
calculation done in the preparation of grid values. The
unit numbers for the input and output files are declared.
15
IS
«
23
71
li
.if
it
IS
t?
il
H
HI
U
n
u
10
1
8
7
t
s
t,
J
i
1
i
1
1
Z
J
3
t.
D
E
\
V
s
\
B
>
t
\
\
t,
i
\
/
•i
t
• — — >
»
i
A3
^
H
/o
"X
10
//
&
r
ii
12
V
*
u
13
A2
^
'j
a
-~-.
is
\
'»
/9
V
IS
it
r
A6
x
i°
a
Al
n
12
^
il
f f
\
13
It
2;
ff
is
If
24
23
21
11
if
H
IS
n
t
if
IT
5
il
II
ro
1
3
7
t
S
4
3
i
1
•Figure A-4
Region Definitions for Program DEPTH
16
-------
The miscellaneous section includes the limit check and
default values for input analysis, as defined in Table A-4.
This section ends with the definition of two internal func-
tions for distance calculation and mixing depth interpolation.
The external data input section begins with the reading
of a single control card which contains the options and
operating parameters for the DEPTH program. Limit checks
are done on the input values and default values are provided
where necessary, along with the appropriate warning messages.
An initial page is written, listing the values from the control
card (see Section A-IV). Station input data arc read
and printed until the end of the input file is reached.
Each inversion height and time are date and limit checked,
and inversion heights are converted to mixing depths. A
sample input deck is shown in Section A-IV.
The input data are correlated over all hours for each
station by interpolation and extrapolation of the input
data. If no data are present for a station, data from an
adjacent station are used. The results are limit checked
and adjusted, if necessary, and printed in tabular form
(see Section A-IV).
In the calculation section, an appropriate set of
input stations for each square of the grid is selected on
the basis of the regional designation. The distance
parameter and mixing depths are calculated and, if necessary,
corrected for limit checks. The calculated values are printed
in linear and grid format, and the values are stored on
an external file for later use by program DPREP.
17
3. IJiput Data Requirements
The summary given below describes the general form
of the input data cards. The names of the variables,
input format, range and default values, and specific
comments are given in Table A-4, Section A-III.
The first card is the control card. It begins with a
set of option flags which determine the extent of the
printed and filed output. Next come values for the grid
size, time span, and mixing depth limits.
The remaining input cards consist of the station measure-
ments. Each card contains the date, the station name (HAW,
COM, or ELM), the time, and the height of the inversion layer
at that time. Up to fifteen measurements for each of the three
stations will be accepted.
4. Program Output
The DEPTH program creates a variety of output informa-
tion, most of which is under the control of the option flags
on the control card. The initial page, which describes
the control card, is mandatory. After that, the user may
optionally print the input station inversion height data,
calculated station mixing depth data, the linear grid
patterns, and the two-dimensional grid itself. It is
also possible, although not recommended, to supress print-
ing of the program-generated warning messages regarding
missing or erroneous data.
The program also produces an intermediate storage file
for use by program DPREP in preparation of the input data
file for the Meteorological Data Preparation Program.
18
-------
One sixteen-byte record is written to this file for each
square at each hour for which the program is executed;
this record contains the hour (2400 time), the X and Y
coordinates of the square, and the calculated mixing
depth at the center of the square.
19
D. Boundary Conditions (BOUND)
1. Program Objective and Capability
The program BOUND has one main function: to calculate
the boundary concentrations on the horizontal boundary of
the modeling region for use by the airshed model. Control
of this function is provided in the options field on the
input control card (see below).
The program accepts as input information about pollu-
tion measurement stations on or near the boundaries of the
region to be modeled, plus the pollution concentration in-
formation from the measuring stations. It then proceeds to
calculate the pollutant concentration at the boundaries for
any arbitrarily-shaped rectangular grid. Built into the
program are certain assumptions about the terrain over which
the calculations are to be made. The output of these calcu-
lations may be placed on a file for later use by the data-
gathering program DPREP in the preparation of boundary condi-
tion inputs to the airshed model.
2. Program Structure
The program BOUND can be divided into four sections:
internal data declarations, external data input and checking,
corner station correlation, and output grid calculation.
Each of these sections is treated in detail in separate para-
graphs below.
The internal data declaration section begins with the
definition of the size of each array as shown in the sym-
bol glossary in Section A-IV. The regional designations
are depicted in Figure A-5; these control the type of
20
-------
11
21
J3
2!
li
.2«
11
IS
0
l(
ii
i
22
1 t
A
sP
ii
J5
A
n
<:t
. .
A
C
c
c
c
c
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
ix
IS
?4
J3
i'i
?.;
JO
li
13
17
•4
!!>
'I1
:5
12
'f
'0
•'t
3
7
4
J
',
3
z
I
Figure A-5
Region Definitions for Program BOUND
21
calculations done in the preparation of grid values. The
unit numbers for the input and output files are declared.
The miscellaneous section includes the limit check and
default values for input analysis, as defined in Table A-S,
and a number of abbreviations for pollutants which require
special treatment.
The external data input section begins with the reading
of a single control card which contains the options and
operating parameters for the BOUND program. Limit checks
are done on the input values and default values are provided
where necessary, along with the appropriate warning messages.
An initial page is written, listing the values from the
control card (see Section A-IV). The conversion factors for
hydrocarbon concentrations and the list of pollutant names
are read on the next card. Station coordinates and descript-
ive data are read in (one card per station) and printed.
Finally, pollutant concentration data (up to six cards per
station) are read and date and limit checked until the end
of the input file is reached. A sample input deck is shown
in section A-IV. After all the input data are read, a 'check
is made for either methane (MTH) or total hydrocarbon (THC)
having been designated as pollutant names. Readings for these
two pollutants are averaged over all reporting stations at
each hour, and these average values are assigned to all the
input stations for that hour. If both MTH and THC are
present, their values are converted to reactive hydrocarbon .
(RUC) and unreactive hydrocarbon (UHC) and multiplied by the
concentration unit conversion factors. A list of missing data
22
-------
points is printed. Nitrogen dioxide, if present, has its name
changed from N02 to N2, in order to prevent later confu-
sion with nitric oxide (NO) in the DPREP program. Finally,
the initial pollutant concentrations in ground level cells
adjacent to a horizontal boundary are obtained from the file
prepared by the QUAL program.
The corner station correlation involves the location
of eight virtual measurement stations (two for each corner)
and assigning to them pollutant concentrations and station
characteristics corresponding to the average of those
present at the two real stations nearest the corners (one
from each boundary). This provides continuity around the
corners during subsequent calculations.
In the calculation section, an appropriate set of input
stations for each cell on the grid boundary is selected
on the basis of the regional designation. The boundary
condition at any hour is then interpolated between these
stations according to the algorithms described for each
region by Liu et al (1973). The calculated values are
printed in linear and grid format, and the values are stored
on an external file for later use by program DPREP.
3. Input Data Requirements
The summary given below describes the general form of
the input data cards. The names of the variables, input
format, range and default values, and specific comments
are given in Table A-5, Section A-III.
23
The first card is the control card. It begins with a
set of option flags which determine the extent of the printed
and filed output. Next come values for the grid size,
number of pollutants, number of stations, and time span.
The second card begins with the hydrocarbon concentration
conversion factors. These are followed by the three-letter
abbreviations of the names of the pollutants.
The next set of cards is the station coordinate cards.
These contain the number and name of each pollution measure-
ment station, the name of the boundary, the coordinate of
that station on that boundary, the times associated with
the wind changes and pollution decrease, decay rates,
and the fraction of its reading to be used in boundary cal-
culations. There is one card for each station.
The final set of cards contains the pollutant concen-
tration measurements for each station. Each card consists
of date, station, and pollutant identification fields,
followed by 24 data values, one per hour starting with 0000
and ending with 2300.
4. Program Output
The BOUND program creates a variety of output information,
most of which is under the control of the option flags
on the control card. The initial page, which describes the
control card, is mandatory. After that, the user may
optionally print the input station coordinate and.descriptive
data, the linear grid pattern, and the two-dimensional
grid itself. It is also possible, although not recommended,
to supress. printing of the program-generated warning mes-
24
-------
sages regarding missing or erroneous data.
The program also produces an intermediate storage file
for use by program DPREP in preparation of the input data
file for the initial and boundary condition portion of the
airshed simulation program. One twenty-byte record is written
to this file for each square at each hour for which the pro-
gram is executed; this record contains the pollutant name,
the hour (2400 time), the coordinate of the square, the
boundary on which the square appears, and the calculated
pollutant concentration at the center of the square.
25
E. .Data Files Preparation (DPREP)
1. Program Objective and Capability
The program DPREP has one main function: to create
the input files for the airshed model and its accompanying
meteorological program. Selection of which files are to be
created is accomplished by specifying the appropriate para-
meters in the options field on the input control card (see
below).
The program can choose from among any or all of the
several input files and place the information to one or
two output files. The input files are the wind speed and
direction (from program WIND), the mixing depths (from DEPTH) ,
the initial conditions (from QUAL), the boundary conditions
(from BOUND), a single header card for the meteorological
data output file, and a set of header cards for the airshed
model input file. All of this information can be sent to
output files for printing and punching.
2. Program Structure
The program DPREP can be divided into four sections:
internal data declaration, external data input and checking,
meteorological file construction, and airshed model file
construction. Each of these functions is treated in detail
in separate paragraphs below.
The internal data declaration section begins with the
definition of the size of each array as defined in the
symbol glossary in Section A-IV. Particular note should be
taken of the equivalences between the meteorological data
arrays and the initial conditions array; any change in the
array sizes may require modification of these shared stor-
age declarations. The rest of the data declarations include
unit numbers for input and output files, limit and default
values for input analysis, and various internal flags.
26
-------
The external data input section consists of two control
cards which contain the options and operating parameters
for the DPREP Program. Limit checks are made on the grid
size; size resettings are accompanied by appropriate warn-
ing messages. An initial page is written listing the values
from the control card (see Section A-IV). A sample input
deck is also shown in Section A-IV.
The meteorological data file section begins with the
reading of a single header card from an input file (see
Section IV of Volume II for format). The program then
reads and checks, hour by hour, the wind speed and direction
and mixing depth files. These data are then printed and
punched in the format described in Section IV of Volume II
for the meteorological data input file.
The airshed model file section begins by reading from
an input file and printing a set of header cards whose format
is described in Section IV of Volume II. The program then
reads and checks the initial conditions input file, re-
formats the data as described in Section IV of Volume II, and
prints and punches the reformatted initial conditions. The
boundary conditions input file is accorded similar treat-
ment, on an hour by hour basis.
3. Input Data Requirements
The summary given below describes the general form of
the input data cards. The names of the variables, input
format, range and default values, and specific comments are
given in Table A-6 , Section A-III, and Tables 3 and 4 of
Volume II.
27
The first card is the control card. It begins with a
set of option flags which determine which input and output
files will be read, punched, or printed, followed by values
for the number of pollutants, grid size, and data. The list
of pollutant name abbreviations is read from the second card.
If needed, the header card for the meteorological data
file is on a separate input file. Its content and format
are described in Section III-B-2 of Volume II and will not
be repeated here.
On another separate input file, if needed, is the
portion of the airshed model data input file which precedes
the initial and boundary conditions. The contents and
formats are described in Section III-B-3 of Volume II and
will not be repeated here.
The program also expects to find up to four intermed-
iate data files created by previous programs in this series.
From program WIND comes a set of twenty-byte records con-
taining the hour (2400 time), X and Y coordinates of the grid
square, and the wind speed and direction at the center of
that square. From program DEPTH comes a set of sixteen-bvte
records containing the hour (2400 time), X and Y coordinates
of the grid square, and the mixing depth above the center of
that square. From program QUAL comes a set of sixteen-byte
records containing the pollutant name, the X and Y coordinates
of the grid square, and the initial condition pollutant
concentration at the center of that square. From program
BOUND comes a set of twenty-byte records containing the
pollutant name, the hour (2400 time), the coordinate of the
28
-------
square on the boundary, the boundary name, and the pollu-
tant concentration at the boundary.
4. Program Output
The DPREP program creates a variety of output informa-
tion, most of which is under the control of the option flags
on the control card. The initial page, which describes the
control card, is mandatory. After that the user may option-
ally read, print, or punch the meteorological data input file
header card, the mixing depth, wind velocity, or wind direc-
tion output files, the airshed model data input header cards,
and the initial or boundary condition output files. The
printed output goes directly to the printer, while the punch
output goes to two data sets which may be punched immediately
or at some later time. Sample output is shown in Section A-IV.
29
F. Input Data Comparison (COUP)
1. Program Objective and Capability
The program COMP has one main function: to compare
the airshed model and meteorological data input files gen-
erated in program DPREP with similar files containing
manually prepared input data. Unlike the other programs
described in this Appendix, this program is specific to the
25 x 25 grid, six pollutant, 0500-1600 time span used in
verification of the airshed model simulation program. The
program does an hour-by-hour comparison printout of the auto-
matic and hand-generated values for wind speed and direction,
mixing depth, and initial and boundary conditions; the vari-
ance is calculated and printed for those squares where mean-
ingful data appear. There is no input control card.
2. Program Structure
The program COMP can be divided into three sections:
internal data declaration, meteorological file comparison,
and airshed model file comparison. Each of these sections
is treated in detail in separate paragraphs below.
The internal data declaration section begins with the
definition of the size of each array as defined in the
symbol glossary in section A-IV. This is followed by a
definition of the regions of interest within the grid and
various data items used in table construction. The unit
numbers for input and output files are declared.
The meteorological file comparison skips the header
card. It then reads, on an hour-by-hour basis, the 25 x 25
grids of hand-generated and automatic mixing depths, wind
speeds, and wind directions; calculates the variances for .
each grid; and prints output tables of each grid.
30
-------
The airshed model file comparison skips the first
part of the file. It then reads, for each of the six pollu-
tants, the 25 x 25 grids of hand-generated and automatic
initial condition pollutant concentrations; calculates the
variance; and prints an output table of that grid. Finally,
for each of the six pollutants, it reads, on an hour-by-hour
basis, the hour card and the 25 x 4 grid of hand-generated
and automatic boundary conditions, calculates the variance,
and prints an output table of that grid.
3. Input Data Requirements
There is no control card or other input data for pro-
gram COMP. The program does expect to find four data files
for comparison -- automatic and hand-generated versions of
both the meteorological and airshed model input files.
These files must be in identical formats for a 25 x 25 grid,
0500-1600 hour time span, and six pollutants, with one
header card on the meteorological file and 217 header cards
on the airshed model file.
4. Program Output
The COMP program prints one output grid per hour for
each of the meteorological variables: mixing depth, wind
velocity, and wind direction. It prints one output grid
for the initial conditions for each of the six pollutants.
And it prints one output grid per hour for the boundary
conditions for each of the six pollutants. On each square
of these grids is shown the hand-generated value, the
computer-generated value, and a symbol indicating whether
that square was included in the variance calculation; the
overall variance for that grid appears in the header line.
31
III. Operating Procedures
This section of the user's guide is divided into two parts.
The first part gives a general description of the compilation
and execution of the airshed data input preparation programs,
including a brief summary (Table A-!) of program execution
steps. The second part is devoted to a detailed description.
of the operation of each individual program.
A. General Information
1. Compilation of the Programs
Each of the six programs described in Section A-II
is written in BASIC FORTRAN and its compilation is
machine-independent. All six programs were compiled
and tested on an IBM 370/155 located at the California Insti-
tute of Technology; the compilation parameters are listed
in Table A-7. Symbol glossaries for all programs appear
in Section A-IV.
All programs are written in the same style. They
begin with a brief description, followed by a dictionary
of all variable names. Then follows the array and data
declarations, the body of the program, and finally the
format statements. Statement labels are in increasing
order from 100 to 900; format labels are in increasing
order from 1 to 9 for input and 11 to 99 for output.
Control always passes forward in the programs, except when
processing is controlled by the reading of a variable-
length input file. All do-loops end with a CONTINUE state-
ment.
2. Execution of the Programs
Each of the six programs described in Section A-II is
designed to operate as a stand-alone program. No subroutines
32
-------
Table A-l
Operating Instructions
WIND -- creates wind speed and direction file; correlates
wind measurement stations
1. Specify JCL DD cards
a. Card reader (unit 5)
b. Printer (unit 6)
c. WINDOUT (unit 7) (optional)
2. Prepare the data deck (Table A-2)
3. Run the program
QUAL -- creates initial conditions file; correlates pollu-
tion measurement stations
1. Specify JCL DD Cards
a. Card reader (unit S)
b. Printer (unit 6)
c. QUALOUT (unit 9) (optional)
2. Prepare the data deck (Table A-3)
3. Run the program
DEPTH -- creates mixing depth file
1. Specify JCL DD cards
a. Card reader (unit 5)
b. Printer (unit 6)
c. DEPTHOUT (unit 8) (optional)
2. Prepare the data deck (Table A-4)
3. Run the program
BOUND -- creates boundary conditions file
1. Run program QUAL (B above) with file option
2. Specify JCL DD cards
a. Card reader (unit 5)
b. Printer (unit 6)
c. QUALOUT (unit 9)
d. BOUNDOUT (unit 10) (optional)
33
3. Prepare the data deck (Table A-5)
4. Run the program
DPREP -- creates meteorological and airshed model files
1. Run program WIND (A above) with file option (optional)
2. Run program QUAL (B above) with file option (optional)
3. Run program DEPTH (C above) with file option (optional)
4. Run program BOUND (D above) with file option (optional)
5. Specify JCL DD cards
a. Card reader (unit 5)
b. Printer (unit 6)
c. K1NDOUT (unit 7) (optional)
d. DEPTHOUT (unit 8) (optional)
e. QUALOUT (unit 9) (optional)
f. BOUNDOUT (unit 10) (optional)
g. MHEADIN (unit 11) (optional)
h. AHEADIN (unit 12) (optional)
i. METOUT (unit 13) (optional)
j. AIROUT (unit 14) (optional)
6. Prepare the data deck (Table A-6)
7. Run the program
COMP -- compares computer and hand-generated meteorological
and airshed model files
1. Run program DPREP (E above) with all options
2. Specify JCL DD cards
a. Printer (unit 6)
b. METOUT (unit 13)
C. AIROUT (unit 14)
d. METIN (unit 15)
e. AIRIN (unit 16)
3. Run the program
34 '
-------
TABLE A-2
INPUT DATA DECK SETUP FOR WIND PROGRAM
Card No.
1
1
1
1
1
1
1
1
1
1
1
Table A-2
Card No.
" 1
1
1
1
1
1
1
1
1
1
1
Column No.
1
2
3
5
6
7
8
10
11
12
13
(Cont'd)
Column No.
16-20
21-25
26-30
31-35
36-40
41-45
46-50
51-55
56-60
61-65
66-70
Variable
LWARN
LFILE
LSTAT
LCORR
LVECT
LBETA
LVARI
LCALC
LSHAD
LPATT
LGRID
Variable
NXSQR
NYSQR
NSTA
NFSTHR
NLSTHR
NEXP
EXPEST
EXPLST
RADSTA
RADGRD
RAD INC
Format
11
11
11
11
11
11
11
11
11
11
11
Format
IS
IS
IS
IS
IS
IS
FS.O
F5.0
FS.O
FS.O
FS.O
Units
--
--
--
--
--
--
--
--
--
--
"
Units
grid
units
grid
units
--
hhmm
hhmm
--
--
--
grid
units
grid
units
grid
units
Note
If zero or blank, warning messages will
not be printed
If zero or blank, grid calculation will
not be output to disk file
If zero or blank, wind station coordinate
data will not be printed
If zero or blank, wind station correla-
tion will not be performed
If zero or blank, measured and calculated
wind vectors will not be printed
If zero or blank, correlation coefficients
will not be calculated
If zero or blank, variance values will
not be calculated
If zero or blank, grid calculation will
not be performed
If zero or blank, station shadow effect
will not be recognized
If zero or blank, linear grid pattern
will not be printed
If zero or blank, two-dimensional grid
pattern will not be printed
1-3
NOSTA(K) 3X
Note
The number of squares on the X-axis:
limits 1-25; default 25
The number of squares on the Y-axis;
limits 1-25; default 25
The number of wind input stations;
limits 3-25; default 25
Initial hour for calculation; limits
0000-2300; default 0000
Final hour for calculation; limits
0000-2300; default 2300
Number of values of the exponent to be cal-
culated; limits 1-6; default 1
Initial exponent value; default 0.0
Final exponent value; default 0.0
Radius of influence to be used in
station correlation; default 1.0
Radius of influence to be used in grid
calculation, default 1.0
Increment to be added to radius of
influence if needed; default 1.0
Station number -- ignored
-------
Table A-2 (Cont'd)
Card No.
2
2
2
3
3
3
3
3
3
3
3
3
Column No.
4-7
11-15
16-20
1-2
3-4
"5-6
7-9
10-13
14-25
26-28
29-32
33-80
Variable
NAMSTA(K)
STAX(K)
STAY(K)
KYEAR
KMONTH
KDAY
NOSTA
KSTA
STATID
NAME
UNIT
JPOINT(J)
Format
A4
F5.0
F5.0
12
12
12
3X
A4
12X
A3
4X
2412
Units
--
grid
units
grid
units
yy
mm
dd
--
--
--
--
--
.. .
Note
Station name
Station coordinate on X-axis
Station coordinate on Y-axis
Year
Month
Day
Station number -- ignored
Station name
Station identification -- ignored
Input variable name
Units of measure -- ignored
Wind point or speed values; limits
0-16 or 0-99; default 0
TABLE A-3
INPUT DATA DECK SETUP FOR QUAL PROGRAM
Card No. Column No. Variable Format Units
1
1
1
1
1
1
1
1
1
1
1
1
2
3
5
6
7
8
10
11
12
13
LWARN
LFILE
LSTAT
LCORR
LVECT
LBETA
LVARI
LCALC
LSHAD
LPATT
LGRID
11
11
11
11
11
11
11
11
11
11
11
Note
If zero or blank, warning messages
will not be printed
If zero or blank, grid calculations
will not be output to disk file
If zero or blank, station coordinate
data will not be printed
If zero or blank, station correlation
will not be performed
If zero or blank; measured and calcu-
lated pollutant concentrations will
not be printed
If zero or blank, correlation will not
be calculated
If zero or blank, variance values will
not be calculated
If zero or blank, grid calculation will
not be performed
If zero or blank, station shadow effect
will not be recognized
If zero or blank, linear grid pattern
will not be printed
If zero or blank, two-dimensional grid
pattern will not be printed
-------
Table A-3 (Cont'd)
Card No.
1 '
1
I
I
I
1
1
1
1
1
1
1
Table A-3
Card No.
2
2
2
3
3
3
3
4
4
4
. 4
4
4
4
4
4
Column No.
16-20
21-25
26-30
31-35
36-40
41-45
46-50
51-55
56-60
61-65
66-70
71-75
(Cont'd)
Column No.
1-5
6-10
11-40
1-3
4-7
11-20
11-30
1-2
3-4
5-6
7-9
10-13
14-25
26-28
29-32
33-80
Variable
NXSQR
NYSQR
NEMM
NSTA
NFSTHR
NLSTHR
NEXP
EXPFST
EXPLST
RADSTA
RADGRD
RADINC
Variable
FACRHC
FACUHC
NAMEMM(L)
NOSTA(K)
NAMSTA(K)
STAX(K)
STAY(K)
KYEAR
KMONTH
KDAY
NOSTA
KSTA
STATID
KEMM
UNIT
JPOINT
Format
15
IS
IS
IS
IS
IS
IS
F5.0
F5.0
FS.O
FS.O
FS.O
Format
FS.O
FS.O
6(2X,A3)
3X
A4
FS.O
FS.O
12
12
12
3X
A4
12X
A3
4X
2412
Units
grid
units
grid
units
--
--
hhmm
hhmm
--
--
--
grid
units
grid
units
grid
units
Units
--
--
--
--
--
grid
units
grid
units
yy
mm
dd
--
--
--
--
--
variou
Note
The number of squares on the X-axis;
limits 1-25; default 25
The number of squares on the Y-axis;
limits 1-25; default 25
•
The number of pollutants; limits 1-6;
default 6
The number of input stations; limits
3-25; default 25•
Initial hour for calculation limits
0000-2300; default 0000
Final hour for calculation; limits
0000-2300; default 2300
Number of exponential values to be
calculated; limits 1-6; default 1
Initial exponent value; default 0.0
Final exponent value; default 0.0
Radius of influence 'to be used in
station correlation; default 1.0
Radius of influence to be used in
grid calculation; default 1.0
Increment to be added to radius of
influence, if needed; default 1.0
Note
Conversion factor for reactive hydro-
carbons
Conversion factor for unreactive
hydrocarbons
Pollutant names
Station number -- ignored
Station name
Station coordinate on X-axis
Station coordinate on X-axis
Year
Month
Day
Station number -- ignored
Station name
Station identification -- ignored
Input pollutant name
Unit of measure — ignored
Pollutant concentration values; limi£r>
1-99; default 0
-------
Table A
INPUT DATA DECK SETUP
-4
FOR DEPTH PROGRAM
Card No. Column No.
1 1
1 2
1 4
1 . ' S
1 7
1 8
1 11-15
1 16-20
1 21-25
1 26-30
1 31-35
1 36-40
Table A- 4 (Cont'd)
Card No. Column No.
2 1-2
2 3-4
2 5-6
2 8-10
2 11-15
2 16-20
Variable
LWARN
LFILE
LDATA
LCORR
LPATT
LGRID
NXSQR
NYSQR
NFSTHR
NLSTHR
MI N DPT
MAXDPT
Variable
LYEAR
LMONTH
LDAY
LSTAT
LHOUR
LHGHT
Format
11
11
11
11
11
11
IS
IS
IS
IS
IS
IS
Format
12
12
12
A3
IS
IS
Units
' --
--
--
--
--
--
grid
units
grid
units
hhmm
hhmiii
feet
feet
Units
yy
mm
dd
--
hhmm
feet
Note
If zero or blank, warning messages will
not be printed
If zero or blank, grid calculations
will not be output to disk file
If zero or blank, station input data
will not be printed
If zero or blank, station mixing depth
correlation will not be performed
If zero or blank, linear grid pattern
will not be printed
If zero or blank, two-dimensional grid
pattern will not be printed
The number of squares on the X-axis;
limits 1-2S; default 25
The number of squares on the Y-axis;
limits 1-25; default 25
Initial hour for calculation; limits
0000-2300; default 0000
Final hour for calculation; limits
0000-2300; default 2300
Minimum value for mixing depth; default 0
Maximum value for mixing depth; default 0
Note
Year
Month
Day
Station Name
Time of reading
Inversion height at this hour
-------
Card No. Column No
TABLE A-5
INPUT DATA DECK SETUP
Variable Format Units
FOR BOUND PROGRAM
Note
1 1
1 2
1 3 ?••
1 S
1 6
1 11-16
1 16-20
1 21-25
1 26-30
1 31-35
1 36-40
Card No. Column No.
2 1-5
2 6-10
2 11-40
3 1-3
3 4-7
3 10
3 11-15
3 16-20
3 21-25
3 . 26-30
3 31-35
3 36-40
3 41-45
LWARN
LFILE
LSTAT
LPATT
LGRID
NXSQR
NYSQR
NEMM
NSTA
NFSTHR
NLSTHR
Vari able
FACRHC
FACUIIC
NAMEMM(L)
NOSTA(K)
NAMSTA(K)
NBND(K)
STAC(K)
NHWIND
NHBACK
NHFORW
NHBASE
DECAY (K)
DISCNT(K)
11
11
,*. • I I'-
ll
11
IS
15
IS
15
IS
IS
Format
FS.O
F5.0
6(2X,A3)
3X
A4
Al
FS.O
IS
15
15
IS
FS.O
FS.O
--
--
.• --
--
--
grid
units
grid
units
--
--
hhmm
hhmm
Units
--
--
--
--
--
grid
units
hhmm
hhmm
hhmm
hhmm
hr'1
_ _
If zero or blank, warning messages
will not be printed
If zero or blank, grid calculations
will not be output to disk file
If zero or blank, station coordinate
data will not be printed
If zero or blank, linear grid pattern
will not be printed
If zero or blank, two-dimensional grid
pattern will not be printed
The number of squares on the X-axis;
limits 1-25; default 25
The number of squares on the Y-axis;
limits 1-25; default 25
The number of pollutants; limits 1-6;
default 6
The number of wind input stations;
limits 3-22 ; default 22
Initial hour for calculation;limits
0000-2300; default 0000
Final hour for calculation;limits 0000-
2300; default 2300
Note
Conversion factor for reactive hydro-
carbons
Conversion factor for unreactive
hydrocarbons
Pollutant names
Station number -- ignored
Station Name
Boundary designation
Station coordinate boundary
Wind direction change hour
Hour to be used for start of blown-
back pollution
Hour to be used for end of blown-
back pollution
Hour to be used as base point beyond
which no decay occurs
Fractional decay rate of initial condi-
tions or blown-back pollution
Fraction of station reading or initial
condition to be used
-------
Table A-5 (Cont'd)
Card No.
4
4
4
4
4
4
4
4
4
Column No.
1-2
3-4
5-6
7-9
10-13
14-25
26-28
29-32
33-80
Variable
KYEAR
KMONTH
KDAY
NOSTA
KSTA
STATID
KEMM
UNIT
JPOINT(J)
Format
12
12
12
3X
A4
I2X
A3
4*
2412
.Units
yy
nun
dd
--
--
--
--
--
vario
Note
Year
Month
Day
Station number -- ignored
Station name
Station identification -- ignored
Input pollutant name
Unit of measurement -- ignored
various Pollutant concentration values;
limit 1-99; default 0
TABLE A-6
INPUT DATA DECK SETUP FOR DPREP PROGRAM
Card No.
Column No.
Variable Format Units
1
1
1
1
1
1
1
1
1
1
1
1
1
2
3
4
5
6
7
9
10
11
12
13
LMCRD
LPUWV
LPRWV
LPUWD
LPRWD
LPUMD
LPRMD
LCCRD
LPUSC
LPRSC
LPUBC
LPRBC
11
11
11
11
11
11
11
11
11
11
11
11
Note
If zero or blank, no meteorological
file header record will be read
If zero or blank, wind velocities
will not be punched
If zero or blank, wind velocities will
not be printed
If zero or blank, wind directions will
not be punched
If zero or blank, wind directions will
not be printed
If zero or blank, mixing depths will
not be punched
If zero or blank, mixing depths will
not be printed
If zero or blank, no airshed input file
header will be read
If zero or blank, starting conditions
will not be punched
If zero or blank, starting conditions
will not be printed
If zero or blank, boundary conditions
will not be punched
If zero or blank, boundary conditions
will not be printed
-------
T3
X
c
£
0
3
rH
rH
O
o.
U4,0
o
4J
r- rH
O 3
,£i «
3
S E
3'H
Z rH
'O 4->
•H -H
r. C
003
«
U
X
IV
r^
4J
(4-1
0
_r;
B C
o J3
>. *
x e
X B
4J
C
o
£
O
_r*
4->
(4-4
O
X
a
•0
•a
«
-------
Table A-7
Compilation Data
Item
Source Deck (cards)
Number of Source Statements
Size of Object Program (kilobytes)
Punched Object Deck (cards)
Printed Output (lines)
Core requirement (kilobytes)
CPU time (seconds)
Program Name
Input Deck (cards)
Printed Output (lines)
I/O Accesses
Core Requirement (kilobytes)
CPU Time (seconds)
tes)
WIND
1085
715
47
554
1337
164
34
QUAL
918
592
68
522
1140
121
27
DEPTH
478
282
17
279
614
119
11
BOUND
856
572
41
407
1065
120
24
DPREP
583
371
31
318
743
119
13
COMP
321
191
37
209
433 '
103
7
Table A- 8
Execution Data
WIND
(Corr.
670
5000
500
84
28
WIND
) (Calc.)
670
1500
900
84
70
QUAL
(Corr.)
600
4200
400
104
24
Program
QUAL
(Calc)
600
500
600
104
19
Name
DEPTH
300
750
SOO
51
13
BOUND
500
1SSO
1000
71
22
DPREP COMP
560 900
2500 6000
2400 1000
65 71
59 64
Table A-9
File Structures
File FORTRAN
Name Unit. *
SYS IN
SYSOUT
WINDOUT
DEPTHOUT
QUALOUT
BOUNDOUT
MHEADIN
AHEAD IN
METOUT
A I ROUT
METIN
AIRIN
S
6
7
8
9
10
11
12
13
14
IS
16
Record length
Format (Bytes)
card image
print line
unformatted
unformatted
unformatted
unformatted
card image
card image
card image
card image
card image
card image
80
133
20
16
16
20
80
80
80
80
80
80
Identification
System card reader
System printer
Wind speeds and directions
Mixing depths
Initial conditions
Boundary conditions
Meteorological file header card
Airshed model file header cards
Computer-generated meteorological data file
Computer-generated airshed model data file
Hand-generated meteorological data file
Hand-generated airshed model data file
-------
A typical input deck and representative samples of
printout for program WIND may be found in Section A-IV.
The correlation execution data shown in Table A-8 were
obtained for option pattern 101 1111 0000 , a 25 x 25
grid, 25 stations, a time span from 0000-2300 hours,
three exponents (1.0, 2.0, and 3.0), and a seven-square
radius of influence. The calculation execution data
shown in Table A-8 were obtained from option pattern
111 0000 1101, a 25 x 25 grid, 25 stations, a time span
from 0500-1600 hours, one exponent (1.0), and a seven-
square radius of influence.
2. Program QUAL
This program is designed to operate in two modes.
In the first mode, the program correlates the calculated
pollutant concentrations at each station with their mea-
sured values; in the second mode, the program calculates
the pollutant concentrations in every cell on a rec- _
tangular grid. The input deck specifications are shown
in Table A-3; the only difference between the modes of
operation is in the selection of the various options.
The first card is the options and parameters control
card. Note that many of the items can be omitted, pro-
vided the default values are acceptable. The second card
contains conversion factors and the pollutant names. The
third card is representative of a set of station coordi-
nate cards; the actual number of cards is determined from
the parameter NSTA on the control card. The fourth card
is also representative of a set of cards. These arc the
station data cards as provided by the recording agency;
any number of these cards may be present.
51
A typical input deck and representative samples of
printout for program QUAL may be found in Section A-IV.
The correlation execution data shown in Table A-8 were ob-
tained for option pattern 101 1111 0000, a 25 x 25 grid,
six pollutants, 16 stations, a time span from 0000-2300
hours, three exponents (1.0, 2.0, and 3.0), and a ten-
square radius of influence. The calculation execution
data shown in Table A-8 were obtained for option pattern
111 0000 1101, a 25 x 25 grid, six pollutants, time 0500,
one exponent (1.0), and a ten-square radius of influence.
3. Program DEPTH
This program is designed to calculate the mixing
depths on a two-dimensional rectangular grid. The input
deck specifications are shown in Table A-4.
The first card is the options and parameters control
card. Note that many of the items can be omitted, provided
the default values are acceptable. The second card is
representative of a set of station input data cards; up to
fifteen cards per station may be present.
A typical input deck and representative samples of
printout for program DEPTH may be found in Section A-IV.
The execution data shown in Table A-8 were obtained for
option pattern 11 11 01, a 25 x 25 grid, and a time span
from 0500-1600 hours.
4. Program BOUND
This program is designed to calculate the pollutant
concentrations on a pseudo-rectangular boundary. The
input deck specifications are shown in Table A-5.
The first card is the options and parameters control
card. Note that many of the items can be omitted, provided
the default values are acceptable. The second card
52
-------
contains conversion factors and the pollutant names.
The third card is representative of a set of station coor-
dinate cards ; the actual number of cards is determined
from the parameter NSTA on the control card. The fourth
card is also representative of a set of cards. These
are the station data cards as provided by the recording
agency; any number of these cards may be present.
A typical input deck and representative samples of
printout for program BOUND may be found in Section A-IV.
The execution data shown in Table A-8 were obtained for
option pattern 111 01 , a 25 x 25 grid, six pollutants,
18 stations, and a time span from 0500-1600 hours.
5. Program DPREP
By manipulation of the options field, this program can
be made to produce part or all of the meteorological and
airshed model input files. The input deck specifications
are shown in Table. A-6.
The first card is the options and parameters control
card. Note that many of the items can be omitted, provided
the default values are acceptable. The second card con-
tains the pollutant names; note particularly that nitrogen
dioxide must be given as N2 in order to be recognized.
A typical input deck and representative samples of
printout for program DPREP may be found in Section A-IV.
The execution data shown in Table A-8 were obtained for
option pattern 1111111 11111 , six pollutants, a 25 x 25
grid, and data as generated by the programs described above.
53
6. Program COMP
This program has no input data deck. Instead, it
takes the meteorological and airshed model input data
files as generated by program DPREP and compares them
with similar files containing hand-generated input data.
Representative samples of the printout for program
COMP may be found in Section A-IV. The execution data
shown in Table A-8 were obtained from the files as pre-
pared by program DPREP above.
54
-------
en
> en
S •<
*X3 2£
t- O3
m o
c-
c o
M en
en
o >
m 73
n 1-1
en en
o o
o
en 50
en
at
o
H
hH
o
z
tn t—•
en
O H
-i Z
*o a
c en
SYMBOL GLOSSARY
WIND PROGRAM
Variable
Units
Dimension
ANGLE radians
or degrees
ANGLEC radians
or degrees
ANGTST radians
ARCOS(X) radians
BDHCNT(I)
BDHSUM(I)
BDSCNT(I)
BDSSUM(I)
BETADH(I.J)
BETADS(I.K)
BETASH(K.J)
BETASS(I.K)
--
--
--
--
6
6
6
6
6 x 24
6 x 25
6 x 24
6 x 25
Description
The angle that the wind direction makes with respect
to due South (also used for shadow calculation)
Calculated value of the wind angle (also used for
shadow checking)
Test value of wind angle difference
The standard arc cosine function
Number of hour-wise wind direction correlation coef-
ficients (one per exponent)
Sura of hour-wise wind direction correlation coeffi-
cients (one per exponent)
Number of station-wise wind direction correlation.
coefficients (one per exponent)
Sum of station-wise wind direction correlation coef-
ficients (one per exponent)
Wind direction correlation coefficients (one per expo-
nent per hour)
Wind direction correlation coefficients (one per expo-
nent per station)
Wind speed correlation coefficient (one per exponent
per hour)
Wind speed correlation coefficient (One per exponent
per station)
-------
SYMBOL GLOSSARY
KIND PROGRAM (Cont'd)
Variable
Units
Dimension
BETMAX
BSHCNT(I)
BSHSUM(I)
BSSCNT(I)
BSSSUM(I)
COS (X)
CPOINT
DEG(X)
DENOM
DICBAR
DICDIF
--
--
--
--
--
--
degrees
degrees
(grid unit)""
radians
radians
--
6
6
6
6
--
--
--
--
--
-.
DICSUM
(radians)2
Description
Maximum value for correlation coefficient
Number of hour-wise wind speed correlation coefficients
(one per exponent)
Sum of hour-wise wind speed correlation coefficients
(one per exponent)
Number of station-wise wind speed correlation coeffi-
cients (one per exponent)
Sura of station-wise wind speed correlation coefficients
(one per exponent)
The standard cosine function
The number of degrees per wind point
Internal function to convert radians to degrees
Sum of inverse power station-to-station or station-to
square distances
The mean of the calculated wind directions
The difference between any calculated wind direction
and the mean
The sum of the squares of the calculated wind direction
differences from the mean
SYMBOL GLOSSARY
KIND PROGRAM (Cont'd)
Variable
DI REAR
DIRDIF
DIRSUM
Units
. radians
radians
(radians).
DIST
DISTC
DSTMIN
EXP(I)
grid units
grid units
grid units
--
EXPDIF
EXPFST
EXPLST
GRIDEG(M.N) degrees
GRIDSP(M.N) miles/hr
GRIDX miles/hr
GRIDY miles/hr
HALFPI
HRCNT
Dimension Description
The mean of the measured wind directions
The difference between any measured wind direction and
the mean
The sum of the squares of the measured wind direction
differences from the mean
The distance between two points
The distance between two points (used for shadow checking)
Minimum value for distance between two points
6 The exponent value in the inverse power equation (one per
exponent)
The difference between successive exponential values
The initial exponential value
The final exponential value
25 x 25 The two-dimensional grid of wind directions
25 x 25 The two dimensional grid of wind speeds
The real portion of the wind vector for any square
The imaginary portion of the wind vector for any square
TT/2
The number of hours for which wind data are available at
a station
-------
SYMBOL GLOSSARY
KIND PROGRAM (Cont'd)
Variable
I
INT(M)
IPRINT
I READ
IWIND
J
JBLANK
JDIR(L)
JPOINT(J)
JPSTA(J.K)
JREG(M.N)
K
KDAY
KFLAG
KK
KMONTH
KPOINT
Units
Dimension Description
Index variable
25 The first 25 integers (used for tables)
Printer output file number (normally 6)
Card reader input file number (normally 5)
Data output file number (normally 7)
Index variable
A single blank character (used for output)
16 The names of the wind directions (one per point)
24 Input values of wind points (one per hour)
24 x 25 The collection of wind points (one per hour per station)
25 x 25 The two-dimensional grid of region assignments
Index variable
Day of the month for input data
Flag to identify first data card
Index variable
Month of the year for input data
Calculated wind point of a given square or s.tation for
output
SYMBOL GLOSSARY
KIND PROGRAM (Cont'd)
Variable
KREG(L)
KSTA
KVAR
KYEAR
L
LBETA
LCALC
LCORR
LDAY
LFILE
LGRID
LMONTH
LPATT
LPOINT
LREG
LSHAD
Units
Dimension Description
7 The alphabetic designation for each regional numerical
value
Wind station name on input card
Input variable name
Year for input data
Index variable
Correlation coefficient option flag
Grid calculation option flag
Wind station correlation option flag
Date test value for day
Date file output option flag
Two-dimensional grid output option flag
Date test value for month
Linear grid output option flag
Measured wind point of a given square or station for
output
Region of an individual grid square
Wind station shadow effect option flag
-------
SYMBOL GLOSSARY
WIND PROGRAM (Con'td)
Variable
Units
LSTAT
LVARI
LVECT
LWARN
LYEAR
M
MAXEXP
MAXHR
MAXPNT
MAXSPD
MAXSQR
MAXSTA
MINEXP
MINHR
MINPNT
MINRAD
MINSQR
--
--
--
--
--
--
--
--
--
miles/hr
grid units
--
--
--
--
grid units
grid units
Dimension Description
--. Station coordinate.output option flag
Variance calculation option flag
Station wind vector output option flag
Warning message option flag
Date test value for year
Index variable
Maximum number of exponents
Maximum hour value
Maximum wind point value
Maximum wind speed value
Maximum number of squares in any direction
— Maximum number of wind stations
Minimum number of exponents
Minimum hour value
Minimum wind point value
Minimum radius of influence value
Minimum number of squares in any direction
SYMBOL GLOSSARY
WIND PROGRAM (Cont'd)
Variable
MINSTA
MM
MSTA
N
NAMDIR
NAMSPD
NAMSTA(K)
NENDHR
NEXP
NFSTHR
NHRS
NLSTHR
NSTA
NSTRHR
NXSQR
NYSQR
PDEG(L)
Units
Dimension
25
grid units
grid units
16
Description
Minimum number of wind stations
Index variable
Wind station index value
Index variable
Abbreviation for wind direction (WD)
Abbreviation for wind speed (WS)
List of wind station names (one per station)
Index representation of final hour
Number of exponents
Initial hour input value
Current hour value
Final hour input value
Number of wind stations
Index representation of initial hour
Number of squares in X-direction
Number of squares in Y-direction
The wind points in degrees (one per point)
-------
SYMBOL GLOSSARY
WIND PROGRAM (Con't)
Variable
Units
SQRT(X)
STACAL(J.K) miles/hr
STACNT
STASP(J.K) miles/hr
STASPC miles/hr
STAVEC(J.K) miles/hr
Dimension
24 x 25
24 x 25
24 x 25
STAVX
STAVXC
STAVY
STAVYC
STAX(M)
STAY(N)
SUMDIC
SUMDIR
miles/hr
miles/hr
miles/hr
miles/hr
grid units
grid units
radians
radians or
radians2
--
--
--
--
25
25
--
..
SUMDSQ
radians
Description
The standard square root function
The calculated wind vectors (one per hour per station)
The number of stations for which wind data are avail-
able at a given hour
The collection of wind speeds (one per hour per station)
The calculated station wind speed
The measured wind vectors (one per hour per station)
The real portion of the measured station wind vector
The real portion of the calculated station wind vector
The imaginary portion of the measured station wind vector
The imaginary portion of the calculated station wind vector
Station coordinate on X-axis
Station coordinate on Y-axis
The sum of the calculated wind directions
The sum of the measured wind directions and the sum of
products of the differences between the measured and
calculated wind directions and their respective means
The sum of the squares of the differences between the
measured and calculated wind directions
SYMBOL GLOSSARY
KIND PROGRAM (Cont'd)
Variable
PI
RAD(X)
RADGRD
RADINC
RADMIN
RADSTA
RADTST
SIN(X)
SPCBAR
SPCDIF
SPDBAR
SPDDIF
Units
radians
grid units
grid units
grid units
grid units
grid units
miles/hr
miles/hr
SPCSUM (miles/hr)2
miles/hr
miles/hr
SPDSUM (miles/hr)2
Dimension Description
n (3.14159)
Function to convert degrees to radians
Radius of influence for wind station selection in
grid calculation
Radius of influence increment for wind station
searches
Minimum allowable value for radius of influence
Radius of influence for wind station selection in
station correlation
Incremented radius of influence for wind station
searches
The standard sine function
The mean of the calculated wind speeds
The difference between any calculated wind speed and
the mean
The sum of the squares of the calculated wind speed
differences from the mean
The mean of the measured wind speeds
The difference between any measured wind speed and the
mean
The sum of the squares of the measured wind speed dif-
ferences from the mean
-------
SY>fsOL GLOSSARY
KIND FROGRAM (Cont'd)
Variable
SUMSPC
SUMSPD
SUHSSQ
TWO PI
VALMIN
VARDH(I.J)
VARDS(I.K)
VARSH(I.J)
VARSS(I.K)
VECCAL
VEXCAL
VEYCAL
Units
miles/hr
miles/hr or
(miles/hr)2
(miles/hr)
--
various
degrees
degrees
miles/hr
miles/hr
miles/hr
miles/hr
miles/hr
Dimension
--
--
--
--
--
6 x 24
6 x 25
6 x 24
6 x 25
--
--
--
Description
The sum of the calculated wind speeds
The sum of the measured wind speeds and the sum of the
products of the differences between the measured and
calculated wind speeds and their respective means
The sum of the squares of the differences between the
measured and calculated wind speeds
2*ir
Minimum allowable value for any variable
Wind direction variance (one per exponent per hour)
Wind direction variance (one per exponent per station)
Wind speed variance (one per exponent per hour)
Wind speed variance (one per exponent per station)
Sum of the calculated wind vectors
Sum of real portions of calculated wind vectors
Sum of imaginary portions of calculated wind vectors
Variable
ANGLE
ANGLEC
ARCOS(X)
BETAH(I.J.L)
BETAS(I,K,L)
BETMAX
BHCNT(I)
01 BHSUM(I)
BSCNT(I)
BSSUM(I)
CALBAR
CALDIF
CALSUM
SYMBOL GLOSSARY
QUAL PROGRAM
Units Dimension Description
radians -- Station angle used in shadow calculation
radians -- Station angle used for checking for shadow effect
radians -- The standard arc cosine function
6x 24 x 6 Correlation coefficient (one per exponent per hour
per pollutant)
6 x 25 x 6 Correlation coefficient (one per exponent per station
per pollutant)
Maximum value for correlation coefficient
6 Number of hour-wise correlation coefficients (one
per exponent)
6 Sum of hour-wise correlation coefficients (one per
exponent
6 Number of station-wise correlation coefficients (one
per exponent)
6 Sum of station-wise correlation coefficients (one per
exponent)
various '-- The mean of the calculated pollutant concentrations
various -- The difference between any calculated pollutant con-
centration and the mean
(various) -- The sum of the squares of the calculated pollutant
concentration differences from the mean
-------
SYMBOL GLOSSARY
QUAL PROGRAM (Cont'd)
Variable
DENOM
DIST
DISTC
DSTMIN
EXP(I)
Units Dimension
(grid unit)""
grid units
grid units
grid units
EXPDIF
o, EXPFST
^i
EXPLST
FACRHC pphm/ppm-c
FACUHC pptm/ppm-c
GRIDEM(M.N) various
HALFPI
HRCNT
25 x 25
Description
Sum of inverted power station-to-station or station-
to-square distances
The distance between two points
The distance between two points (used for shadow
checking)
Minimum value for distance between two points
The exponent value in the inverted power equation
(one per exponent)
The difference between successive values of the exponent
The initial value of the exponent
The final value of the exponent
Conversion factor for reactive hydrocarbon concentrations
Conversion factor for unreactive hydrocarbon concentra-
tions
The two-dimensional grid of pollutant concentrations
T/2
The number of hours for which input data are available
at a station
Index variable
SYMBOL GLOSSARY
QUAL PROGRAM (Cont'd)
Variable
INT(M)
IPRINT
I QUAL
I READ
J
JBLANK
JPOINT(J)
JREG(M.N)
K
KDAY
KEMM
KFLAG
KK
KMONTH
KREG(L)
KSTA
KYEAR
Units Dimension
25
various 24
25 x 25
Description
The first 25 integers (used for tables)
Printer output file number (normally 6)
Data output file number (normally 9)
Card reader input file number (normally S)
Index variable
A single blank character (used for output)
Input values of pollutant concentrations (one per hour)
The two-dimensional grid of region assignments
Index variable
Day of the month for input data
Pollutant name on input card
Flag to identify first data card
Index variable
Month of the year for input data
The alphabetic designation for each regional numerical
value
Station name on input card
Year for input data
-------
SYMBOL GLOSSARY
QUAL PROGRAM (Cont'd)
Variable
L
LBETA
LCALC
LCONC
LCORR
LDAY
LFILE
LGRID
LMONTH
LMTH
LPATT
LSHAD
LREG
LSTAT
LTHC
LVARI
LVECf
LKARN
Units
Dimension Description
Index variable
Correlation coefficient option flag
Grid calculation option flag
Calculated station concentrations output option flag
Station correlation option flag
Date test value for day
Data file output option flag
Two-dimensional grid output option flag
Date test value for month
Index to methane in pollutant name list
Linear grid output option flag
Wind station shadow effect option flag
Region of an individual grid square
Station coordinate output option flag
Index to total hydrocarbon in pollutant name list
Variance calculation option flag
Station wind vector output option flag
Warning message option flag
SYMBOL GLOSSARY
QUAL PROGRAM (Cont'd)
Variable
Units
LYEAR
M
MAXEMN
MAXEXP
MAXHR
MAXPNT
MAXSQR
MAXSTA
MEMM
MINEMM
MINEXP
MINHR
MINPNT
MINRAD
MINSQR
MINSTA
MM
--
--
--
--
--
various
grid units
--
--
--
--
--
various
grid units
grid units
--
...
Dimension Description
Date test value for year
Index variable
Maximum number of pollutants
Maximum number of exponents
Maximum hour value
Maximum input concentration value
Maximum number of squares in any direction
Maximum number of stations
Index to pollutant name
Minimum number of pollutants
Minimum number of exponents
Minimum hour value
Minimum input concentration
Minimum radius of influence value
Minimum number of squares in any direction
Minimum number of stations
Index variable
-------
SYMBOL GLOSSARY
QUAL PROGRAM (Cont'd)
Variable
MSTA
N
NAMEMM(I)
NAMMTH
NAMN02
NAMN2
NAMRHC
NAMSTA(K)
NAMTHC
NAMUHC
NEMM
NENDHR
NEXP
NFSTHR
NHRS
KLSTHR
NSTA
Units Dimension
25
Description
Station index value
Index variable
List of pollutant names (one per pollutant)
Abbreviation for methane
Abbreviation for nitrogen dioxide
Abbreviation for nitrogen dioxide
Abbreviation for reactive hydrocarbon
List of station names (one per station)
Abbreviation for total hydrocarbon
Abbreviation for unreactive hydrocarbon
Number of pollutants
Index representation of final hour
Number of exponents
Initial hour input value
Current hour value
Final hour input value
Number of wind stations
SYMBOL GLOSSARY
QUAL PROGRAM (Cont'd)
Variable
Units
Dimension
NSTRHR
NXSQR grid units
NYSQR grid units
QUALC (J.K.L) various 24 x 25 x 6
QUALM (J.K.L) various 24 x 25 x 6
RADGRD
grid units
RAD INC
RADMIN
RADSTA
RADTST
SIN(X)
SQRT(X)
STACNT
STAX(M)
STAY(N)
grid units
grid units
grid units
grid units
grid units
grid units
25
25
Description
Index representation of initial hour
Number of cells in X-direction
Number of cells in Y-direction
Calculated pollutant concentrations (one per hour per
station per pollutant)
Measured pollutant concentrations (one per hour per
station per pollutant)
Radius of influence for station selection in grid calcu-
lation
Radius of influence increment for station selection
Minimum allowable value for radius of influence
Radius of influence for station selection in station
correlation
Incremented radius of influence for station searches
The standard sine function
The standard square root function
The number of stations for which data are available at
a given hour
Station coordinate on X-axis
Station coordinate on Y-axis
-------
SYMBOL GLOSSARY
QUAL PROGRAM (Cont'd)
Variable
SUMCAL
SUMNUM
SUMSSQ
Units
various
(various)'
(various)'
Dimension
SUMVAL
VALBAR
VALCAL
VALDIF
VALMIN
VALSUM
various
various
various
various
various
(various
2
VARH (I,J,L) various 6 x 24 x 6
VARS (I.K.L) various 6 x 25 x 6
Description
The sum of the calculated pollutant concentrations
The sum of the products of the difference between
the measured and calculated pollutant concentrations
and their respective means
The sum of the squares of the differences between the
measured and calculated pollutant concentrations
The sum of the measured pollutant concentrations
The mean of the measured pollutant concentrations
Sum of the pollutant concentrations
The difference between any measured pollutant concen-
tration and the mean
Minimum allowable value for any variable
The sum of the squares of the measured pollutant concen-
tration difference from the mean
Pollutant concentration variance (one per exponent per
hour per pollutant)
Pollutant concentration variance (one per exponent per
station per pollutant)
Variable Units
ACOEFF(I)
BCOEFF(I) grid units
DIST(A.B, grid units
X,Y)
HOUR(J.K) hours
IBOUND
INT(M)
IPRINT
I READ
J
JCALC(JVAL1, feet
A1,B1,A2,B2,
X,Y)
JDEPTH(L.K) feet
JDPTHB
JDPTHC
feet
feet
SYMBOL GLOSSARY
DEPTH PROGRAM
Dimension
IS x 3
25
24 x 3
Description
The set of "A" coefficients for the coordinate calcu-
lation equation Y=AX+B
The set of "B" coefficients for the coordinate calcu-
lation equation Y=AX+B
Internal function to calculate the distance between a
point and a line
Time of an input station reading (one per reading per
station)
Index variable
Data output file number (normally 8)
The first 25 integers (used for tables)
Printer output file number (normally 6)
Card reader input file number (normally S)
Index variable
Internal function to interpolate mixing depth over a
grid cell
Correlated mixing depth at each station (one per hour
per station)
Mixing depth over the ocean
Mixing depth over the San Gabriel Mountains
-------
SYMBOL GLOSSARY
DEPTH PROGRAM (Cont'd)
Variable
JVAL
K
KDAY
KFLAG
KMONTH
KREG(L)
KYEAR
Units
Dimension
JDPTHD
JDPTHE
JDPTH1
JDPTH2
JDPTH3
JGRID(M.N)
JHOUR(J.K)
JREAD(J.K)
JREG(M.N)
feet
feet
feet
feet
feet
feet
--
feet
--
--
--
--
--
25 x 25
15 x 3
15 x 3
25 x 25
feet
10
Description
Mixing depth over the San Fernando Valley
Mixing depth over the Santa Monica Mountains
Mixing depth between Hawthorne and Commerce
Mixing depth between Commerce and El Monte
Mixing depth between El Monte and San Gabriel Mountains
The two-dimensional grid of mixing depths
Hour of an input station reading (one per reading per
station)
Inversion height at an input station (one per reading
per station)
The two-dimensional grid of region assignments
Mixing depth over one individual grid cell
Index variable
Date test value for day
Flag to identify first data card
Date test value for month
The alphabetic designations for each regional numerical
value
Date test value for year
SYMBOL GLOSSARY
DEPTH PROGRAM (Cont'd)
Variable
Units
L
LCORR
LDATA
LDAY
LDEPTH
LFILE
LGRID
LHGHT
LHOUR
LMONTH
LPATT
LSTAT
LSTAHT(K)
LWARN
LYEAR
M
MAXDAT
MAXDPT
--
--
--
--
feet
--
--
feet
--
--
--
--
feet
--
--
—
--
feet
Dimension Description
Index variable
Correlation output option flag
Station data output option flag
Day of the month for input data
Individual station mixing depth reading
Data file output option flag
Two-dimensional grid output option flag
Individual station inversion height reading
Individual station time reading
Month of the year for input data
Linear grid output option flag
Station name on input card
3 Elevation of a station above sea level (one per station)
Warning message option flag
Year for input data
Index variable
Maximum number of readings for one station
Maximum allowed mixing depth
-------
SYMBOL GLOSSARY
DEPTH PROGRAM (Cont'd)
Variable
Units
MAXHR
MAXSQR
MAXSTA
MHOUR
MINDPT
• MINHR
MINSQR
N
NAMSTA (K)
NDATA
NENDHR
NFSTHR
NHOUR
NLSTHR
NREAD(K)
NSTRHR
NXSQR
--
grid units
--
--
feet
--
grid units
--
--
--
--
--
--
--
--
--
grid units
Dimension . Description
Maximum hour value
Maximum number of cells in any direction
Maximum number of stations
Hourly interval for correlation usage
Minimum allowed mixing depth
Minimum hour value
Minimum number of cells in any direction
Index variable
3 List of input station names
Index to number of readings at a station
Index representation of final hour
Initial hour input value
Current hour value
Final hour input value
3 Number of inversion height readings (one per station)
Index representation of initial hour
Number of cells in X-direction
SYMBOL GLOSSARY
DEPTH PROGRAM (Cont'd)
Variable
NYSQR
XHOUR
XLOC
YLOC
Units
grid units
hours
grid units
grid units
Dimension Description
Number of cells in Y-direction .
Hourly interval for correlation use
Location of a cell on the X-axis
Location of a cell on the Y-axis
-------
Variable Uni ts Dimension
DECAY(K) hr"1 30
DISCNT(K) -- 30
FACRHC pphm /ppm-c
FACUHC pptm /ppm-c
GRDTOP various
GRDBOT
various
GRIDEM(M,N) various
I
IBOUND
II
IPRINT
IQUAL
I READ
INT(M)
I TEST
25 x 4
25
SYMBOL GLOSSARY
BOUND PROGRAM
Description
Rate of decay of a pollutant concentration from some
initial condition (one per station)
Fraction of station reading to be used in calculations
(one per station)
Conversion factor for reactive hydrocarbon concentra-
tions
Conversion factor for unreactive hydrocarbon concentra-
tions
First part of boundary square pollutant concentration
calculation
Second part of boundary square pollutant concentration
calculation
The array of boundary square pollutant concentrations
Index variable
Data output file number (normally 10)
Index variable
Printer output file number (normally 6)
Initial condition input file number (normally 9)
Card reader input file number (normally 5)
The first 25 integers (used for tables)
Input value of the X-coordinate index
SYMBOL GLOSSARY
BOUND PROGRAM (Cont'd)
Variable
J
JBLANK
JBND(N)
JJ
JKTH(J)
JPOINT(J)
JREG(M.N)
JTEST
JTHC(J)
K
KDAY
KEMM
KFLAG
KK
KMONTH
KREG(L)
Units
ppm
various
ppm
Dimension Description
Index variable
A single blank character (used for output)
4 The names of the boundaries
Index variable
24 The sum or the methane concentrations (one per hour)
24 Input values of pollutant concentrations (one per hour)
25 x 4 The boundary region assignments
Input value of the Y-coordinate index
24 The sum of the total hydrocarbon concentrations (one
per hour)
Index variable
Day of the month for input data
Pollutant names on input card
Flag to identify first data card
Index variable
Month of the year for input data
3 The alphabetic designations for each regional 'numerical
value
-------
SYMBOL GLOSSARY
BOUND PROGRAM (Cont'd)
Variable Units Dimension Description
KSTA -- • -- Station name on input card
KYEAR -- -- Year for input data
L -- -- Index variable
LDAY -- -- Date test value for day
LFILE -- -- Data file output option flag
LGRID -- -- Two-dimensional grid output option flag
LL -- -- Index variable
LMONTH -- -- Data test value for month
LMTH -- -- Index to methone in pollutant name list
LPATT -- -- Linear grid output option flag
LSTAT -- -- Station coordinate output option flag
LTHC -- -- Index to total hydrocarbon in pollutant name list
LWARN -- -- Warning message option flag
LYEAR -- -- Date test value for month
M -- -- Index variable
MALLHR -- -- Full day (24-hour) index
MAXEMM -- -- Maximum number of pollutants
SYMBOL GLOSSARY
BOUND PROGRAM (Cont'd)
Variable
Units
Dimension
MAXHR
MAXPNT various
MAXSQR grid units
MAXSTA
MAXO(K.J)
MEMM
MINEMM
MINHR
MINPNT various
MINSQR grid units
MINSTA
MM
MSTA
N
NAMEMM(I)
NAMMTH
NAMN02
NAMN2
'.. .
--
--
--
--
--
' --
--
--
--
--
--
--
--
6
--
--
Description
Maximum hour value
Maximum input concentration value
Maximum number of cells in any direction
Maximum number of stations
The standard maximum value function
Index to pollutant name list
Minimum number of pollutants
Minimum hour value
Minimum input concentration value
Minimum number of cells in any direction
Minimum number of stations
Index variable
Station index value
Index variable
List of pollutant names (one per pollutant)
Abbreviation for methene
Abbreviation for nitrogen dioxide
Abbreviation for nitrogen dioxide
-------
SYMBOL GLOSSARY
BOUND PROGRAM (Cont'd)
Variable Units Dimension Description
NAMRHC -- -- Abbreviation for reactive hydrocarbon
NAMSTA(K) -- 30 List of station names (one per station)
NAMTHC -- -- Abbreviation for total hydrocarbon
NAMU11C -- -- Abbreviation for unreacted hydrocarbon
NBND(K) -- 30 Boundary assignments (one per station)
NEND(N) -- 4 Index to last station on each boundary
. NEXDHR -- -- Index representation of final hour
NFSTHR -- -- Initial hour input value
NHBACK -- -- Starting hour for blown-back pollution
NHBASE -- -- Ending hour for pollutant concentration decay
NHFOR'.V. -- -- Ending hour for using blown-back pollution
NHRS -- -- Current hour value
NHWIND -- -- The hour of the wind reversal
NLSTHR -- -- Final hour input value
KMTH(J) -- 24 Number of stations reporting methane concentrations
(one per hour)
NN -- -- Index variable
NOKHR -- -- Index to hour for decay calculations
SYMBOL GLOSSARY
BOUND PROGRAM (Cont'd)
Variable Units Dimension
NSTA
NSTART(N) -- 4
NSTRHR
NTBACK(K)
NTBASE(K)
NTFORW(K)
NTHC (J)
NTKIND(K)
30
30
30
24
30
NXSQR grid units
NYSQR grid units
QUALM (J.K.I) various 24 x'30 x 6
QINIT (M.N.I) various 25 x 4 x 6
QTEST various
STAC(K) grid units
30
Description
Number of stations
Index to first station on each boundary
Index representation of initial hour
Index to starting hour for blown-back pollution
(one per station)
Index to ending hour for polluta-nt concentration
decay (one per station)
Index to ending hour for using blown-back pollution
(one per station)
Number of stations reporting total hydrocarbon concen-
tration (one per hour)
Index to wind reversal hour (one per station)
Number of cells in X-directioh
Number of cells in Y-directioh
Measured pollutant concentrations (one per hour per
station per pollutant)
Initial condition concentrations (one per cell per
boundary per pollutant)
Test value of input pollutant concentration
Coordinate of station on boundary
-------
SYMBOL GLOSSARY
BOUND PROGRAM (Cont'd)
Variable
VALMIN
XLOC
Units
various
grid units
Dimension Description
Minimum allowable value of any variable
Location of a cell on a boundary
SYMBOL GLOSSARY
DPREP PROGRAM
Variable Units Dimension Description
BC variable -- Boundary pollutant concentration input
I -- -- Index variable
IAIR -- -- Airshed model output file number (normally 14)
IBOUND -- -- Boundary condition input file number (normally 10)
IDEPTH -- . -- Mixing depth input file number (normally 8)
IHEADA -- -- Airshed model header input file number (normally 12)
IHEADM -- -- Meterological header input file number (normally 11)
IMET -- -- Meteorological output file number (normally 13)
IPRINT -- -- Printer output file number (normally 6)
IQUAL -- -- Initial condition input file number (normally 9)
IREAD -- -- Card reader input file number (normally 5)
ITEST ... -- X-axis index input
IWIND -- -- Wind speed and direction input file number (normally 7)
J -- -- Index variable
JCARD -- -- Maximum number of integer values per punched card
JTEST -- -- Y-axis index input
-------
SYMBOL GLOSSARY
DPREP PROGRAM (Cont'd)
Variable
K
KBND
KCARD
KEMM
L
LBLANK
LC(I,J,K)
LCCRD
LDAY
LEND
LETTER(L)
LMCRD
LMONTH
LPRBC
LPRMD
LPRSC
LPRWD
Units Dimension
variable 26 x 25 x 6
Description
Index variable
Boundary name input
Maximum number of floating-point values per punched card
Pollutant name input
Index variable
A single blank character (used for output)
Pollutant concentration holding area for output
Airshed model input file option flag
Day of the month
Index of the last array value to be output
Letter code for multi-line output
Meteorological input file option flag
Month of the year
Boundary condition print option flag
Mixing depth print option flag
Starting condition print option flag
Kind direction print option flag
SYMBOL GLOSSARY
DPREP PROGRAM (Cont'd)
Variable
LPRWV
LPUBC
LPUMD
LPUSC
LPUWD
LPUWV
LYEAR
M
MAXEMM
MAXSQR
MAXVAL
MCARD(M)
MD(I,J)
MFLAG
MINEMM
MINSQR
MTEST
Units Dimension
feet
20
26 x 25
Description
Wind velocity print option flag
Boundary condition punch option flag
Mixing depth punch option flag
Starting condition punch option flag
Wind direction punch option flag
Wind velocity punch option flag
Year
Index variable
Maximum number of pollutant names
Maximum number of grid cells in any direction
Maximum number of values in one output record
Holding area for transfer of input record to output
(20 four-character words)
Mixing depths (one per grid -cell)
Flag to indicate pollutant not in input list
Minimum number of pollutant names
Minimum number of grid cells in any direction
Test value for pollutant name
-------
SYMBOL GLOSSARY
DPREP PROGRAM (Cont'd)
Variable
MTEST
N
NAMBND(N)
NAMEMM(K)
NBOUND
NDFILE
NEMM
NHRS
NHTEST
NOPNCH
NXSQR
NYSQR
SC
WD(I,J)
KV(I.J)
Units
--
--
--
--
--
--
--
--
--
--
grid units
grid units
variable
degrees
railes/hr
Dimension
--
--
4
6
--
--
--
--
--
--
--
--
26 x 25
26 x 25
Description
Test value for pollutant name
Index variable
Boundary names (one per boundary)
Pollutant names (one per pollutant)
Number of boundaries
Flag to indicate end of input file has been reached-
Number of pollutants
Hour value input
Test value for input hour
Flag to suppress output if error occurs
Number of cells in X-direction
Number of cells in Y-direction
Initial pollutant concentration input
Wind direction (one per grid cell)
Wind velocity (one per grid cell)
Variable
DSUM
IAUTOA
IAUTOM
Units
Dimension
BCC(I.K)
BCH(I.K)
BSUM
CNTB
CNTD
CNTM
CNTS
CNTV
DIRDIF
various 25 x 4
various 25 x 4
(various)
degrees
(degrees)'
SYMBOL GLOSSARY
COMP PROGRAM
Description
Computer-generated boundary conditions (one per
boundary cell)
Hand-generated boundary conditions (one per boundary
cell)
Sum of the squares of the differences between computer
and hand-generated boundary conditions
Number of boundary condition values
Number of wind direction values
Number of mixing depth values
Number of initial condition values
Number of wind velocity values
Difference between computer and hand-generated wind
directions
Sum of the squares of the differences between computer
and hand-generated wind directions
Index variable
Computer-generated airshed model file number (nor-
mally 14)
Computer-generated meteorological file number (nor-
mally 13)
-------
SYMBOL GLOSSARY
COM? PROGRAM (Cont'd)
Variable
Units
Dimension
IHANDA
IHANDM
INT(I)
IPRINT
J
JB
JREG(I.J)
JX
l-»
JY
K
KREG(I.J)
L
LB(K)
LD --
LM
LY
MAXDPT feet
SYMBOL GLOSSARY
COMP PROGRAM (Cont'd)
Variable Units
MDC(I.J) feet
MDH(I.J) feet
MINDPT feet
MSUM feet
NAME
NH
PI degrees
IS SCC(I,J) various
SCH(I.J) various
SQRT(X)
SSUM (various)2
STHR
SUMB various
SUMD degrees
' SUMM feet
SUMV miles/hr
--
--
25
--
--
--
25 x 25
--
--
--
25 x 25
--
4
--
--
--
Dimension
25 x-25
25 x 25
--
--
--
--
--
25 x 25
25 x 25
--
--
--
--
--
--
--
Description
Hand-generated airshed model file number (normally 16)
Hand-generated meteorological file number (normally 15)
The first 25 integers (used for tables)
Printer output file number (normally 6)
Index variable
A single blank character (used for output)
The two-dimensional grid of region assignments
The single character "X"
The single character "Y"
Index variable
Output array for variance notes (one per grid cell)
Index variable
Alphabetic designator for each boundary name
Day of the month
Month of the year
Year
Maximum allowable mixing depth
Description
Computer-generated mixing depths (one per grid cell)
Hand-generated mixing depths (one per grid cell)
Minimum allowable mixing depth
Sum of the squares of the differences between computer
and hand-generated mixing depths
Pollutant name
Hour of the day
n(180°)
Computer-generated initial conditions (one per grid
cell)
Hand-generated initial conditions (one per grid cell)
The standard square root function
Sum of the squares of the differences between computer
and hand-generated initial conditions
Starting hour on boundary condition input
Variance of the boundary conditions
Variance of the wind directions
Variance of the mixing depths
Variance of the wind velocities
-------
SYMBOL GLOSSARY .
COMP PROGRAM (Cont'd)
Variable
TKOPI
VSUM
WDC(I.J)
WDH(I.J)
WVC(I,J)
WVH(I.J)
Units
degrees
(railes/hr)'
degrees
degrees
miles/hr
miles/hr
Dimension Description
Sum of the squares of the differences between computer
and hand-generated wind velocities
25 x 25 Hand-generated wind directions (one per grid -cell)
25 x 25 Hand-generated wind directions (one per grid cell)
25 x 25 Computer-generated wind velocities (one per grid cell)
25 x 25 Hand-generated wind velocities (one per grid cell)
SOURCE CARD LISTING FOR PROGRAM WIND
c
c
c
c
c
c
c
c
c
_c
c
c
c
c
c
c
c
c
• i
o r» r» r> r> o
C
c
"c
c
c
c
c
c
c
c
' c
c
c
c
c
c
c
c
c
1 !
o «Yr> r> o n
C
c
c
c
— c
c
****** PROGRAM W- I N 0 ****** •• • '
CORRELATES hl^O PATTERNS AND CALCULATES «INO GRID
?« FEHR'.JA'JY i7J ,- INITIAL PROGRAM OOCIJMf NTATION
"THIS PROGRAM 13 THE PROPERTY OF SYSTEMS APPL 1C AT IONS ," INC ,
THIS PROGRAM J3 hPITTEN IN FORTRAN IV FOR TnE IBM 360/370
THIS PROGRA* TAKES AS INPUT A CONTROL CARD, A SET OF «IIKO STATION
"COOROtNiTE CAR3S, ' AMD~A SET" OF WIND SPEED AND DIRECTION DATA CARDS',
IT PRODUCTS AS OUTPUT A LISTING OF THE INPUT CARDS AND, OPTIONALLY/
A CROSS-CORRELATION OF EACH VINO STATION TO EVERY OTHER STATION 0*
A GRID OF »INO SPEED AND DIRECTION VALUES,
INGLE
"ANGLEC
ANGTST
fcDHC NT
BOH SU*
BftTAOH
BETA3S
BET1* AX
B-S^SUH
BSSCN'T
CPOINT
"DEC
DICFUR
OICOIF
DICSUH
D I R SI A R
DIR31IH
OIST
O'ISTC
OSTMIM"
EXP
EXPDlf '""
EXPF3T
GPIOEG
GRIDS'5
GRIDX
GRIDY"" '
HALFPI
I
"INT
IREAO" '
IxlNO
J
JOLANK
JOIR"
TH£ ANGLE (IN RADIANS) OF THE «INO DIRECTION
T>-E A>,r,(.E (IN DEGREES) OF THE WIND OI»fCTUIN
TEST VALUE f 0* A>.GLE GREATER THAN 160 UEG,
f.-UMREX OF HOURLY DIRECTION BETA VALUE3 SUMMED "" ' '""
SU" OF HOURLY DIRECTION SETA VALUES
NU-.H-V OF STATION DIRECTION' BETA VALUES SUMMED
SUM ns- STATION DIRECTION BETA VALUES
TH£ Hi_'jR»>ISE CORRELATION COEFFICIENT FOR" VI»0 DIRECTION-
THE 5TATinw.«lSE CORRELATION Cnf.>- M C I ENT FOR *INO DIRECTION
THE HQUR-.I3E CORRELATION COEFF 1C lEN'T FOR WIND SPEED "
THK STATION. »-ISE CO»°t:LAT!ON COEFFICIENT FOR »INO SPEED
MAXIMUM ALLOWABLE" VALI'E FOR A CORRELATION COEFFICIENT
NU"BF" OF HQU'LY SPEED bETA VALUES SUMMED
SUM np HOURLY SPEEO HLTA VALUES
•JUUJE3 OF STATION' S°EED HETA VALUES SUMMED
3U* OF HOURLY DIRECTION RETA VALUES
THE ^vJ^HER OF DEGREES PER »»0 POINTS
MINIMijM ALLO*iRl.F VALUE FOR DISTANCE BETWEEN TK'O POINTS ~
THF EXPONENT TO BE USED FOR THE DISTANCE EFFECT ON KINO SPEED
THt O'.iiNTUH STEP. FOR EACH EXPONENT VALUE"" "~
THE USF.R-PROVIOED INITIAL EXPONENT VALUE
THE US&R-PROVIDKC hl'JAL tXPONtNl VALUt
THE r.R!D USED FOP PRINTING THE WIND ANGLES
THE GRID USED FOR PRINTING THt WIND SPEEDS" "
THE X.AXIS VALUE FOR THE GRID SPEED VECTOR
THF. Y-AXIS VALUE FOR THE. GRID SPEED VECTOR
PI / ?.
THE"MJMRER"OF~Vi"L'UC3" TO BEMUSED" INT A""BETAS~CAICUCATICW
00-LOOP OR LOCAL INDEX
A stT OF INTEGERS TO USE AS LABEUS
FILE NUMBER FOR PRINTER OUTPUT
FILE NUMBER FOR CARD INCUT
FILE. NUMM.tU FOR hINO DATA OUTPUT
UD-LDOP OW LOCAL INDEX
A SINr.Lt BLANK CHARACTER FOR OUTPUT
THt ALPHAbETIC WIND 01RE.CIIUNS .
94
-------
n
SOURCE CARD LISTING FOR .PROGRAM WIND _._.. CCont'd 2)
THE HOURLY ARRAY OF POINT VALUES FOR A STATION
THE '"INT POINT APRAY FOR ALL STATIONS - ' '
THE NUMERICAL PESION IDENTIFIERS
DO-LOO? OR LOCAL INDEX —-
DAY OF THE MONTH DATA WERE TAKEN
FLAG TO DENOTE THAT FIRST DATA CARD HAS BEEN READ
MONTH nF THE YEAR "DATA WERE TAKEN
JPOINT
JPSTA
J3EG
K
KDAY
KFLAG
KMONTH
KPOINT
KREG
K3TA
KVAR
KYEAR
L
L&ETA
LCALC
LCORR "
LOAY
LFILE "
LGHIO
L"ONTH
LPATT
LPOINT
LRE.G
LSHJO
LSTAT
LVARI
LVECT
I.*" ARM "
LYEAS
M
HAXEXP
MAXHfi
KAXPNT
MAXSPD
MAXSQR
MAX3TA
MINEXP
KINM3
MU.PMT
MKF?«LSF*TAnO'l f'F STARTING HOUR
•IU"?E? OK S.T.IAffS IN <-U I CfC ! ION —
NUMBER OF SCHAHtS IN
— —
3
VALUES ' "
— • •
.... — . — .
:TION
:TION"" •
DISK
TPUT
UNDER TEST
-'ING
HORDINATES
»UT
MESSAGES
•D
ED
• -
C RADGRD
~C RADTN'C"
C RADMIN'
C RAOT3T
~ C SPCRAR
c SPcniF
" C SPCSUH
C SPOHAR
~~C SPODIF
C SPDSUM
" C STACAL
C 3TACNT.
~C STASP
C STASPC
C STAVEC
C STAVX
" C STAVXC
C STAVY
" C STAVYC
C STAX
C STAY
C 3UMOIC
C SUMDIR
C S U H f. S Q
" C SU"SPC
C SUMSPD
c SUMSSQ"
C TwOPI
C VALMIN.
C VARDH "
"" c VAROS
C VAR3H
C VARSS
C VEXCAL
"" C VEYCAL
C
"" C OECLARF
'SOURCE CARD. LIST ING_FOR.P.ROGRAM..WIND.
_(Cont' d_3
MAXIMUM DISTANCE TO A STATION FOR CALCULATION
"INCREMENT TO BE ADDED TO DISTAN'CE IF NO STATIOV"I8
MINIMUM ALLOWABLE VALUE FOR ANY RADIUS OF INFLUENCE
MAXIMUM DISTANCE TO A STATION FOR CORRELATION
TtST VALUE FOR RADIUS OF INFLUENCE
'THE MEAN CF THE CALCULATED SPEED
THE DIFFERENCE BETWEEN ANY CALCULATED SPEED AND THE MEAN
THE RUNNING SUM OF THE CALCULATED SPEEDS -
THE MEAN OF THE MEASURED SPEEDS
"THE DIFFERENCE PF.T-'EF.N AN'Y MEASURED SPEECT ANO~THE~WEAN —
THE RUNNING SL'M OF THt MEASURED SPEEDS
THE CALCULATED *I'ND VECTOR • ••••• —
NII«PER OF STATIONS ACTAULLY REPORTING DATA
THF ARRAY OF WIND SPEEDS FOR ALL STATIONS
CALCULATED *IMD SPEt.D AT A STATION
THE X-VtCTOR OF STATION HIND SPEED
THE CALCULATED X-VECTDR OF THE «IND SPEED
THE Y-VtCTOR OF STATION WIND SPEED
THE CALCULATED Y-VEXTOR OF THE WIND SPEED
X«COOROINAT.fc OF A STATIOM
~Y-COORDINATE OF'A STATIOM
THE SUM OF THE CALCULATED DIRECTIONS
THE SUM OF THE f.EASUKt-D DIRECTIONS
THE SUM OF THfc DIRECTION DIFFERENCES SQUARED
THE SUM OF THE CALCULATED SPEEDS
THE SUM OF THE MF.ASURf.O SPEEDS
'THE SUM OF THE SPEED DIFFERENCES SOUAREO"
? * PI
MINIMUM ALLCl'.'Al'LF VALUE FOR ANY CALCULATED VARIABLE
THE HDi!R"*ISt" VARIANCE FOR *>IND DIRECTION
THE STuiON-wisr VARIANCE FOR WIMD DIRECTION
THE HOUR-V-ISE VARIANCE FOR WIND SPEED
"THE STATION-*ISE VARIAMCE FOS V.IKO SPEED
PI
PAD
HEPRESENTATIOM I'.' OEGREF;3 OF POINT VALUES
PI
FUNCTION TO CONVERT OEGREtS TO RADIANS
SUM OF CALCULATED VALUES OF REAL PORTIONS OF WIND VECTORS
SUM OF CALCULATED. VALUES OF IMAG, PORTIONS OF HIND'VECTORS
OECLARF SOME COMPLEX VARIABLES' " -"'
COMPLEX 3T4VEC, STACAL. VF.CCAL
"C SET PROGRAM DIMENSIONS "
DIMENSION NAhsTA(?S), SFAXC25). STAYC25)
DIMENSION JPOINTC2U), EXP(6), INTC25) - "'
DIMENSION JPSTA(2u,253, STASP(21,25), STAvEC(20,25), STACAL(20,25)
"" DIMENSION JDIR(lb), POEG(lb), JKtGC25,25), KREGC7)
DIMENSION VARSS(6,25), VAROS(6.25), VARSH(6,2tt), VARDHC6,2«)
DIMENSION BETASS(6,25), efTAD5(6,25), 8ETASHC6,2fl), 8ETADH(6,2q)—
. DIMENSION bUHCNT(fc), BDH5LIVC6). BDSCNTC*). BDSSUM(6)
" DIMENSION BSHCNT(i), BSHSUMC6), BSSCNT(b), BSSSUMtb)—
DIMENSION G«10SP(2bi,25), GRICt'G (25 , 25)
"C'SET EOUIVAIF'NCES . -" ' '
EQUIVALENCE (VARSH(1,1), GRIOSPCl,!))
"EOIJIVAI.FNCE (VAPCHC1,!), GPinSPCl,?)) '
EOUIVALFUCE (VARSS(lfl), GRIUSP(1,1S))
EQUIVALENCE (VA^OsClrll- GK IT.S? (1 , 19 ) ) "
tnillvAlEi.CE (Hf TASM(1,1), GRIOL5(1,1'))
ERUIVAl FNCF. (hETAOH(i,i), GRinLGCl,7)J ~
EQUIVALENCE (HETASSd.l), G-< 10EG ( 1 . 1 3 ) )
EQUIVALENCE (?.ETAnS(l,l)i GRIDEGC1 , 1 9) )————
C DEFINE THE STiIONS ON THE GRID
DATA JREG / 1«1, 19«2, b*6, 2*1, 17«2,'-6«6,
95
-------
.. _SOURCE._CARD_LIS.T.ING..FOR. PROGRAM .WIND
n
B
D
E
F
H
I
J
K
L
M
3*1
5»t
7*1
7*1
6*1
-- - - — 5*1
1*1
10*3
10*3
10*3
, 15*2,
,-11*2,
, 3*a,
," 3*a,
, 1*1,
, '" 5*«,
f O ft U |
10*1,
10*5,
, 1*7
, 1*7,
, 1*7,
.(.ContLd..4)~
7*6,
-9*6,-
15*6,
-15*6,-
15*6,
15*6,'
15*6,
15*6,
15*6,
1«*6,
1«*6/
'6*1 i
7*1,
-6*1,
6*1,
5*1,
3*1,
"10*3,"
10*3,
13*2.
«*2,
3*u,
a*a,-
5*u,
7*tt,
10*1,
10*5,
1*7,
1*7,
8*6,
15*6,
15*6,
15*6,
15*6,
15*6,
15*6, —
15*6,
1«*6,
1U«6,
JLOU.RCE_CARDAIST.ING_EOR.-P.RO.GRAM_W1ND_
_(Cont.'_d_S)__
READ (IREAO,!) LWARN, LFILE, L3TAT, LCORR, IVECT, LBETA, LVARI,
LCALC, LSHAD, LPATT,"LGRIO, NX30R, "NYSORi NSTA, :
NF3THR, NLSTHR, NEXP, EXPFST, EXPL3T, RAOSTA, RADGRD, RADINC
VALUES '.
IF (NXSOR ,GE. MINSQR .AND, NX30R ,LE, MAXSOR) GO TO 105
IF (LKAPN ,FO; 0) GO TO 103 ~ """" "~ ~'
WRITE (IPRINT.ll) NXSOR
WRITE CIPRINT.19) MINSOR, MAXSOR, MAXSOR
NXSOR B MAXSQH
DEFINE THE WIND DIRECTIONS
' DATA JD1R / SHNNE. JH ME, JHEN£, 3H'E , " '"
B 3HESF., 3H 3E, 3HSSE^_3H 3_,
C " "3HSSW, 3H" Sw, 3HW3W, 3H""w , "
0 3HWNW, JH NK, 3HNNK, JH N /
"ASSIGN LETTER DESIGNATIONS TO THE REGIONS ~ "
DATA KREG /IMA, 1HH, 1HC, 1HD, 1HE, 1HF, 1HC/
"ASSIGN DEGREE READINGS TO EACH OF THE POINTS ""
DATA PUEG /202.5, 225.0, 2>
DATA I'AXHR /2300/
DATA MINHP /O/
DATA MAVEXP /b/~
DATA MIK'EXP /!/
* DAI4 M4X30R /2S/
DATA MINSOR /!/
DATA MAVPNT /ux
DATA MINPNT /O/
DATA HAXSPD /99/ "
DATA MINSPD /!/
DATA MIN3AD '/!/
DATA «FLAG /o/
—• DATA RADMIN /1,0/
DATA OSTMIN /0,1/
—— DATA VALMIN /0.0001/ '
DATA BETHAX /l.OO/
DATA CPOINTV22.5/
DATA EXPOIF /0,0/
—— DATA HALFPI /1.37060/ '
DATA PI /3,1«159/
— DATA TWOPI /6.2831B/ ™
DEFINE FUNCTIONS FO^ RADIAN/DEGREE CONVERSION
RAD(X) = PI • XV 18870 :—
OEB(X) 3 180,0 * X / PI
READ THE CONTROL CARD '
97
"IF (NY3CR"lGE,""MINSCR~r»NO~NYSOR-7i;E~HA'XSORr~CO"~TCm"0~
IF (LWARN ,EO, 0) GG TO 108
WRITE IIPRINT.12) NYSCR '
WRITE (IPRINT,19) MIN35R, MAXSOR, MAX3QR
~10B"~ NY30R B MAXSQR "" • —
C TEST LIMITS OF NU"BEH OF WIND STATIONS
-ffO IF'fNSTA .GE, MIN3T»"T»NDT'N3TA"',L
_ IF (L>»ARN ,EO, 0) GO TO 113_
~WRITE (1PHINT,13) MSTA ' " '
WHITE (IPRINT,19) MINSTA, MAXSTA^ MA^SJTA
T13 NSTA s MAXSTA -- •- • -
C TEST LIMITS ON FIRST AND LAST HOURS TO BE USED
"i'15 IF (NFSTHR ,'GE, MINHR^AND." NFSTHR~CEr"MAXHR"J GO TO \ZV~
IF (LWARN ,EO. 0) GO TO 118 _ _
~ "WRlTt (lPHINT,li() NF3THR
_ WRITE (IPRINT.19) MINHR^ MAXHR_, MJ^NJ^R
116 ""NF8TH* a MINHR
JL?-?___IF (NLSTHR ,GE, MINHR .AND, NLSTHR ,LE. MAXHR) GO TO 125
IF (LWARN ,EQ. 0) GO TO 123""
W»ITE (IPRJNT.15) N'_STHR
WRITE (IPRINT.19)" MINHR, MA"Xhfti MAXHR
123 NL8THW
~C TEST LIMITS OF NUMBER OF EXPONENTI*L~VAL'UES ~~
J25 IF (NEXP ,GE. KINEXP .AND. NfcXP ,LE, MAXEXP) 60 TO 130
"IF" (LN4RN ,EQ.""0) GO TU"128'
WRITE CIPRINT,16) NEXP
(IPB1NT,19) MlN£xP,"MAXEXPr'HINEXP~
128 NEXP B MINEXP
"C TEST LIMITS OF RADII OF INFLUENCE'
130 IF CRADSTA ,GE, RAOMIN) GO JMDJl"
~" "IF (L^ARN ",EQ, 0) GO TO'lSl
WRITE CIP"INT,85) RADSTA
'WRITE (IPRJNT,19) MINRAD," MAXPNTT'HINRAD"
RADSTl * DiflMIN
IF (R»DGRD ,GE. RADMIN) GO'TO'13«
IF (LwARN ,EO. 0) GO TO 133
'WRITE fIPRINT.86) RAOGRD
WRITE (IPRINT.19) MINRAO, MAXPNT, MINRAD
RADGRD s RADMIN .-.-•-
IF (RADINC .GE, RADMIN) GO TO 136
IF (LWARM ,EO, 0) GO TO 135 ""
WRITE (1PRINT,87) HAOINC
WRITE (IPRINT.19) MINRAD, MAXPNinHNRAlT
135 RADINC = RADMIN
'C WRITE FIRST PAGE HEADING AND CONTROL DATA
136 «=»m (IPRJNT,21)
" IF (LV.ARN ,NE. 0) WRITE CIPRW,17)
IF (L'iA«N ,EO, 0) WRITE (IPRINT,18)
IF (LFILE ,N'E, '0) WRITE'CIPRINT,U8) ~
IF (LFILE ,EO. 0) WRITE (IPR1NT,«9)
IF (LSTAT ,Nt. 0) WRITE (IPRINT.38)
131
132
130
-------
(Cont'd 6)
SOURCE CARD LISTING FOR PROGRAM WIND .
IF (LSTAT ,EQ. 0) WRITE (IPRINT . J9)
"- - IF (LCORR ,NE. 0) WRITE (IPRINT.22)
IF (LCORR ,EO, 0) WRITE (IPRINT.23)
IF' (LCORR ,EQ. 0)"GO TO 137
IF (LVtCT ,NE. 0) WRITE (IPRINT.ua)
-- — jp (LVECT ,EO. 0) WRITE (IPRINT,a5) """ "" " "
IF (LBETA ,NE, 0) WRITE (IPH1NT,S6)
IF (Li'ETA ,EQ. 0) WRITE (IPRINT,«7) "~ ~
IF (LVARI ,NE, 0) WRITE (IPHINT,56)
IF (LVA9I ,EO. 0) WRITE (IPRINT,57)~
137 IF (LCALC ,NE. 0) WRITE UPRlNT,Z KSTA, KVAR-
GO TO 155
~C "CHECK SPEED READING
_l*3 IF (JPQINT(K) ,GT. 0) GO TO 165
"" "IK (L«AHM ,EO. 0) GO TO 16U
L » 100 * (K « 1)
•RITE (IPRINT,U3) JPOINT(K), U,~KSTA
WRITE (1PRINT,1<>) MINSPO, MAXSPO, MINPNT
JPOINT(K) a 0
JPSTA(K,MSTA) B 0
~c STORE SPEED READING
165 STASP(K,M3TA) B JPOINT(K)
~ GO TO 175 " ' ' ' ~
C CHECK POINT REARING
"167 IF (JPQINT(K) ,GE, MINPNT •~tAND7~JPOINT(K)-7WE7~H*XPNT)~60"TO-T70"
IF (LWARN ,EO,_0) GO T0_169
T a 10 0 • (K - 1) "
(IPRINT,«2) JPOINT(K), L, KSTA
(IPRlNT,!?) MINPNT, MAXPNT. "MINPNT"
169 JPOINT(K) s MINPNT
C STORE POINT READING
_1TO_ JPSTA(K,MSTA) B_JPOINT(K_)_ _
ITS' ""CONTINUE • - - - -
GO TO 155
"c WRITE MESSAGES FOR MISSING DATA ~
180 IF (L«ARN ,EO. 0) GO TO 200
WRITE (IPRINT,76) " "
DO 19,1 K o l.N'STA __
00 185 J * NSTRHR, NENDHR"
IP (JPSTA(J,K) ,GT. 0) GO TO 165 _
" " L « 100 * (J • 1) " " ~~ "
WRITE (IPRINT.79) NAM3TA(K), L _
"185 CnNTIMUE • """' "
190 CONTINUE
"C'SET" EXPONENTIAL 'VALUE~DO-LOOP -
200 DO U90 I » 1,NEXP
EXP(I) a EXPFST * (I""- 1) *" EXPDIF --
C SET HOURLY DO-LOOP
DO 290 J s N'STRHR,NENDHR
C CALCULATE VECTOR VALUES AND VECTOR SUMS
DO 210 K « l.NSTA -
KPOINT * JPSTA(J.K) _
"C SKIP THIS VALUE IF NO DATA
IF (KPOINT ,fc(), 0) GO TO 210
ANGLE = RAO(PI.'EG(KPOINT)) ' " ~" "
STAVX o ST«SP(J,K) * COS(ANGLE)
--- ST«VY * STASP(J.K) * SIN(ANGLC) -
"210 CONTINUE
99
CMPLX(STAVX, STAVY)
100
-------
SOURCE CARD^LISTING FOR^PROGRAM WINI>___
..CContld. 8).
_SOURCE_CARD_LJ5.T.IN.G_EOR_PRO.GRAM_WJND_
C CHECK FOR CORRELATION OPTION
— IF (LCO.RR ,EO. 0) CO TO 20 '
C CORRELATE EACH STATION AGAINST ALL OTHER STATIONS
00 2«0 K s'l,NSTA — ———
3TACAL(J,K) e CMPLXCO.O, 0,0)
"C SKIP THIS STATION IF NO DATA"' '
IF (JP3TA(J,K) ,EO, 0) GO TO 2UO
"VEXCAL » 0,0 ""
VEYCAL = 0,0 .
Dt't'OM =" o.o
DO 220 L a l.NSTA
~C SKIP THIS STATION IF NO DATA"OR IF CORRELATED STATION
IF (JPSTA(J,L) ,10, 0) GO TO 220
~ IF (L ,tO. K) GO TO 220 ~ ~ "
_c__c_ALeuLATE DISTANCE AND SUM VECTORS
GRIDX = ABStSTAX(K) - STAX(L))"
GRIOY a AHSOTAYU) - STAY(D)
OI3T s SOPT(G«IDX ** 2 « GRI&Y **~2)
00 TO 360
MESSAGE
355 IF (LWASN ,EO, 0) GO TO 360
WRITE (IPRINT753)~NHRS --
CONTINUE
CONTINUE
_££ontld_?l.
570
C CHECK FOR CORRELATION OPTIONS
"flOO ' IF (LCORR ,EQ, 0) GO TO 600
C_£AJ.CULATE THE STATION CORRELATION COEFFICIENT
" :
SOPT(G«IDX ** 2
SKIP IF DISTANCE IS OUTSIDE MAXIMUM ALLOWED
"" IF (DIST ,GT, HADSTA) GO TO 220 " ~
IF (DIST ,LT, OSTMIN) DIST a OSTHIN
"OIST 'a DIST ** F.XP(I)
VEXCAL 8 VEXCAL » REAL(3TAVEC(J,D) / OIST
DF.NI1M a DENOM » 1,0 / OIST "" ' ' ~
VEYCAL * VEYCAL * AIMAGC STAVEC(J,L)) / DIST
CONTINUE
SUMSPC
3UMOIR
8UMSSQ
BETASSd
"BtTADSd
VARSSd,
0,0
0,0
0,0 |
0 , 0 •— .
,J) B o.O
,J) a 0,0 ' • •
j) a 0,0 ;
VAROS(I,jj a u,u — ,
H«CNT a 0,0
"220
_C_8KIP_ IF NO STATION AV4ILA8LE FOR CORRELATION
"IF CUtNUK ,LT, VALMIN) GO TO 2 ™ —
ANGLEC a ARC03CSTAVXC / STASPC)
IF CSTAVYC ,LT. 0,0)-ANGLEC-o-TWOPI-"-ANGtEC :
ANGLEC a DEC ( A«jGLF.C )
~3flO KPOINT a IFIX((ANGLEC + 0,5 * CPOINT) / CPOINT)- • MAXPMT-/-2
IF (KPOINT ,LE, 0) KPOINT a KPOINT + MAXPNT
a JPSTA(K,J)' -- -- -- -
_C_SKIP THIS HOUR IF NO DATA
IF (JPSTA(K,J) ,EQ, '0)~"GO"T
_C__6ET SPEED AND DIRECTION
STAVXC a REAL(STACAL(K;J)')
STAVYC a AIMAG(STACAL(K,J)}
C S'KIP CALCULATION IF BOTH ARE ZERO"
IF (ABSCSTAVXC) ,LT, VALMIN .AND, ABS(STAVYC) ,LT.
& GO TO 010 .-.-.- _ _
_ STASPC « SQRTOTAVXC ** 2 + STAVYC ** 2)
ANGLEC a ARCOS(STAVXC / STASPC)
IF (STAVYC ,LT, 0,0) ANGLEC « TWOPI * ANGLEC
ANGLE a RAD(PDEG(JPSTA(K,J)))
_C_GET SUMS'nF SOUARtS
SUMSSQ a SUMSSO + (3TASP(K,J) • STASPC)"*»~2
_ ANGTST s *BS(AhCLE " ANGLEC)
IP (AMGTST ,GT, PI) ANGTST e TWOPI
SUMDSO a SUMDSO * ANGTST ** 2
"ANGTST
C""6ET" SCALAR SUMS
8UMSP1)
SUM3PC
SU-DIR
"SiJVDIC
HHCNT
« SUMSPD
SUMOIR
SUMOIC
*
+
+ 1
+ STASP(K,J)
+ STASPC
ANGLE
ANGLEC
0
PRINT THE OUTPUT LINE
*RITE (I »R 1 NT, 53 )NHRS,-LPOINT,-KPOI NT,-JOIR (LPOINT )f-JDIR (KPOINT )T'
& PDEG(LPOINT), ANGLEC, 8TASP(K,J), STASPCf
& STAVX, 3TAVXC, STAVY, STAVYC - "
101
..... HRCNT
~OTO C 0 N TIN U E
_C_SKIP CALCULATION IF NO DATA FOR THIS STATION
IF (hRCNT ,LT. 1,0) GO TO OJO "
C CALCULATE V43IANCE IF WANTED
IF (LVARI ,EO, 0) GO TO 015
VARS3(I,J) s snRT(SUMS3f5 / HRCNT)
VARDS(I.J) a (JEG(SORT(SUHDSn"/~HRCNTn
_c CALCULATE BETA CORRELATION IF MNTED
«15 IF (LHETA ,EO, 0) GO TO «30
_C_F_IND AVERAGES
"SPOBAR'a SUMSPD I HRCNT" •
_____SPCBAR s 3UMSPC / HRCNT
DIRBAR 'S SUMDIR /"HRCNT
DICBAR a SUMDIC / HRCNT
'(TBEGIN CORRELATION FACTOR CALCULATION'
-------
SOURCE CARD. LISTING. FROM JPROGRAM WIND (Cont'd 10) SOURCH.CARD_LISTING_FO_R_P.ROGRAM_jyiND_
_C£ont_!d_i!L
SUMSPD a 0.0
1 SUMDIR a 0,0
SPDSUM a 0,0
SPCSUM a 0.0
01R3U- a 0,0
C GET
&
DICSUM B 0,0 ...
DO «20 K a NSTRHR, NENDHR .
GET SPEED AND DIRECTION
STAVXC B REAL(STACAL(KVJ)) —
STAVYC a AIMAG(STACAL(K,J))
IF~(AB5CSTAVXC)~-,LT, VALMIN"
GO TO «60
STASPC * SORT(STAVXC~**~2~>-STA-VYC~**—2)~
ANGLEC a ARCnS(STAVXC / STASPC)
O—ABSCSTAVTC?
C~SKlP THIS HOUR If NO DATA
IF (JPSTA(K.J) ,EQ. _0) SO TO «20
~C~GET SPEED AND DIRECTION"
3TAVXC • REAL(STACAL(K,J» _
STAVYC = AIMAG(3TACAL(K,J))"" "
IF (AHSCSTAVXC) ,LT, VALKIN .AND. AB3C3TAVYC) .IT,
8, GO TO U20
__ STASPC a S')»T(3TAVXC ** 2 + STAVYC_*» 2)
"" ANGLEC = ARC(.13(3TAVXC / STASPC) ~"~
IF (STAVYC ,LT. 0,0) ANGLEC • TWOPI • ANGLEC
ANGLE a RAIKPOEGUPSTACK.J)))
C CALCULATE DIFFERENCES
SPOPIF o STASP(K,J> - SPDBAR ' '
SPCOIF a ST'S^C - SPC8AR
DIRDIF c ANGLE • DIKaAK
DICPIF = ANGLEC « OICBAR
"."CHECK DIRECTIONS FOR MORE THAN HALF CIRCLE
IF (OIRDIF ,GT, PI) DIROIF a OIROIF • TWOPI
IF (OICUIF ,GT. PI) DtCOIF » OICDIF « TWOPI
IF (STAVYC ,LT. 0.0) ANGLEC 8 TWOPI «-»NCLEC-
ANGLE = RADCPDEGCJPS1A(K,J)))
C~CET~SU»S (IF "SQUARES'
SUMSS'J a 8UMS3Q + (STASP(K»J) • STASPC) *» 2
A'-JGTST a ABS(ANGLE • ANGLEC) "
IF (AKiGTST ,GT. PI) ANGTST a TKQPI
SUMDSO a SIIHDS6 + ANGTST ** 2~
C GET SCALAR SUMS
'3UMSPO
3U"SPC
= 30MSPD +~STASP(K,"J)"
a SU*SpC » STASPC
a aU-IDIW + ANGLt
SiJMlUC a S'J>'PIC
STACNT a STACNT
ANGLEC
1,0
-------
SOURCE CARD LISTING FOR.PROGRAM WIND
(Cont'd 12)
IF CDICDIF ,GT. PI) DIC01F a DICOIF • TWOPI
IP CDIROIF ,LT. C- PI)) OIROIF » OIROIP » TWOPI
IF CDICDIF ,LT. C- PI)) OICDIF = OICDIF + TWOPI
~C~CALCULATE SUMS
SUMSPO a 3UMSPD +
— •- SUMDIH = SUMDIR +
3POSUM a 3PD3UM +
~ ~ SPCSUM s SPC3UH *
_ DIRSUM a DIRSIJH +
OICSIJM = OICSUM * OICDIF
«70 CONTINUE
SPODIP
OIRPIP
SPDDIF *
SPCOIF *
* SPCDIP
* OIC01F
* SPODIP
SPCDIF
OIROIF
DICDIF'
SOURCE CARD_LISTING.FOR ,P.RO.GRAM..W1ND_
C PRINT STATION HEADING
— WRITE (IPRINT.61) KYEAR,-KHONTH,- KOAY
WRITE UPRINT.62) (EXP(I)> I » l.NEXP)
WRITE CIPRINT,67) (J8U«NK,—I~n 1,NEXP)
WRITE (IPRINT.6U)
_(.Cont'd.l3)
__
~C"CALCULATE THE" HOUR. WISE CORRELATION COEFPICICNT8
IF (3POSUM ,LT, VALHIN) GO TO «7fl _______
----- IP (SPCS'JM' ,LT, VALMIN} CO TO «7U
BETASHd.K) a SIJMSPD / SORT (SPDSUM) / 30RT(9PC8UM)
~ —
STATION.WISE CORRELATION 'COEFFICIENTS
On 530 j a I,NSTA
WRITE dPRINT,65)NAMSTA(J), (BETA3SCI,J)T"8CTA03CITJ)iT"!"'
c INCREMENT AVERAGES AND COUNTS
On 525"! a 1,'lfXP
IF (ABS(8ETAS9d,J)> .LT, VALMIN) GO TO 523
IF (ABSCBETASSCI,J)) .GT, BETMAX)~GO "TO 523
BSSSUMd) a BSSSUMd) * BETASSCI,J)
BSSCNTd )~B-BSSCNTCI)~+" 1,0
523 IF (Afl3(BETADSd,J)) ,LT, VALMIN) GO TO 525
!F"(AHS(i3ETA(>Sd,J))",GT, BETH AX)" GO~TO~52S
BOSSUH(I) a BDSSUMd) •» BETADSd.J) _
. BDSCNT(I) = BOSCNTd) + 1.0
525 CONTINUE
530 CONTI.MiE ' .-_.-.-
C CALCULATE AND PRINT AVERAGES,
00 532 I a'l.NEXP"
IF CBSSCNTCI) ,GT, 0,0) BSSSUMd) » 9SS3UMCI) / BSSCNTd)
IF CBDSCNTd) ,GT, 0,0) 8DSSUM( I)"s"8DSSUM(I)"'/" BOSCNTd)"
_532 CONTINUE
WRITE CIPR1NT,'69) (B3S3UM d ) ,' BOSSUMd ) ,~1 » 17NEXP)
_C _WR_ITE VARIANCE OUTPUT UNLESS FLAGGED
550 "IF" (LVARI ,EQ. 0)"GO TO 600"
C_ CLEAR AVERAGES AND COUNTS
00 560 I 8 1,NEXP '• ""• ~"
BDHCNTd)_a 0,0
BDSCNTd) 1! 0,0
BSHCNTd )_«_0,0
BSSCNTd) a 0.0
« 0.0
a 0.0
« 0,0
s 0.0 - - •- - - — - —
_560 CONTINUE
C~wRlTE "OURLY HEADING"
WRITE C1PRINT,98) KYEAR, KMONTH, SOAY
~ WRITE (IPRINT,92) (EXP(I)",~I a'l.NEXP)
WRITE (IPR1NT,96) CJ8LANK, I a l.NEXP)
»RITE (1PRINT,9«) " ' : ~~
C WRITE HOUR.^ISE CORRELATION COEFFICIENTS
on 570 J a NSTRHR.NENDHR
100 « (J • 1)
BDSSUM(I)
d )
WRITE (IPRIHT.93) NHRS, C VAR3HCI , J) , VAROHdV J37"
C INCREMENT AVERAGES AND COUNTS
' DO 565 I a 1,NEXP ~
915
520 CONTINUE
c CALCULATE »NO PRTM AVERAGES
DO 52? I = I.'.'EXP
IF (HSHCNTd) .GT, 0,1) BSHSUMd) 9 BSHSUMd) / BSHCNTd)
IF (BOHCNTd) ,GT. 0.0) BOMSUMd)- a 8DHSUMd)-/-BOHCNTd-)-
522 CONTINUE
- WRITE dPRlNl,69) (9SH8UM(I)> BOH3U^(I)» I • l.NEXP) •-
105
562
IF (AH8(vARSHCl,J)) ,LT,
BSHSUi'(l) - BSHSUMd)
BSHCNTd) B BSKCNTd)
60 TO 56?
+ VAPSHd.JT
» 1,0
IF (ABS(VARRnd.J)) ,LT. VALMIN) GO TO 565'
80fSU-'d) « l'PKSU"d) + V/iRDH(I,J)
BOHCNTd) = BOhCNTd) + 1,0
565 CONTINUE
-570 — CONTINUE
C CALCULATE AND PRINT AVERAGES
' DO 572 I « l.NEXP "
106
-------
n
SOURCE HAUtJ LIST1NR FOR PROGRAM WIND . iLont 6 .<,J .
IF (B3HCHTCI) ,GT, 0.0) BSHSIIM(I) a BSHSU*d) / BSHCNT(I)
— IF (BPHCNTd) .GT. 0,0) BOHSUM(I) a BDHSUMd) / BDMCNT(I)
572 CONTINUE
HRITE dPRINT,9<»r CBSHSUMd), BOHS.UM(I),~ I' a T.NEXP)
C PRINT STATION HEADING
WRITE (IPPINT.91) KYEAR, KMONTH, KDAY
WRITE dPRINT.92) (EXP(I), I = 1,NEXP)
WRITE dPRlNT.97) (JbLANK, I » 1,NEXP)
WHITE dPRI"T»9 NAMSTA(J), (VAHSSd,J), VARDSd.J); I '» l.NF.XP)
c INCREMENT AVERAGES AND COUNTS
On 575 I a l,h£xP
IF (AB3(VA«ssdf J)) ,LT, VALHIN) GO TO 575
BSSSUKd) = BSSSUMd) * VAWSSd.J)
BSSCNTd) = bSSCNT(I) » .1,0
573 IF (ABS(VAKOSU,J)) ,LT. VALMIN) GO TO 575
1) +
SOURCE CAKD
iMj_J-OR PROGRAM .
_U,on.t'0 I s 1,'JXSGR " ' ~"
C CLEAR GRID TO Z'-RO
G5|IDSPtL,K) a 0,0 "' "" ~
GPlOEGtL.O « 0,0 ^_____
VEXCAL a 0,0
VEYCAL a 0,0
OENQM a 0,0 " " '~ "
RAOTST a HADGRD
-C'LOOK FOR VALID WIND STATIONS-FOR "THIS-SQUARE—
605 00 650 M a 1,NSTA
— IF (JPSTA(J,M) -,E(
LREG a JREG(L,K)
GO TO (610, 612, 611, 616, 618y~620, '618),
C OCEAN "A"
"610"—IF (STAY (M) ,LT;- 10,0)-GO -TO-620
IF (STAY(H) .GT, 17.0) GO TO 650
GO TO 660
C CALCULATE A>"D CHECK THE SQUARE TO STATION DISTANCE
620 DI8T a SORT ((FLOAT (L) - 0,5 • STAX(M))-.* 2 »
_ __ & (FLOAT(K) • 0.5 - STAY(M)) ** 2) _
IF (CIST .GT, HADTST .AND, LPEG ,GT, 2) Gn"TO~650
IF (DJ3T ,LT. OST^IN) DIST s D3TMIN
"C CHECK FOR THI3 STATION BEING IN SHADOW OF CLOSER STATION"
IF (L3HAD ,t(5. 0) GO TO 635
ANGLE a HALFPI
00 650 _»". s l.NSTA
IF (M« .EG, H)' GO"TO'630
IF (JPSTA(J.MH) ,EG, 0) GO TO 630
DI8TC a SQRTCCFLOATCL) - 0,5 - STAX(MH))"»*"H"*
_ & (FLOAT(K) • 0.5 • 3T4YCMM)) »* 2)
IF (DISK ,LT, PSTMIN) DISTC = OSTMIN"~
IF (OI3T ,L.E, DISTC) GO TO 6JO
ANGUC = Ab8C2.0 * ABCOS(D!STC/DI3T)~)
IF (AUGLF.C ,GT. HALFPI) GO TO 630
IF (ANGLEC ,LT, ANGLE) ANGLE = ANGLEC" " ~
CONTIMLit
(IPRINT,71) NHRS, KYEAR, KMQNTH, KOAY
-ir-(3T»X(M) -
60 TO 620
STAY!AG( STAVtC (J,M) ) / DIST
DE'vOM B DENOM + 1,0 / DIST
"650" CONTINUE "~ "
C TEST FOR AT LEAST ONE VALID STATION
~ " IF (DfNOM .GTT'OiO) GO "TO 653
RADTST a RAOTST + RADINC
IF (RADTST .GT, SORT(FLOAT(NXSOR ** 2'+"NY80R"*» "2))) CO'TO '655 ~~
IF UHAR.N ,EO. 0) GO TO 605
IF (LPATT .ME. 0) MPITE CIPRIMT,78) INT CD, "INTtK),'RAOTST
IF (LPATT ,EO. 0) WRITE (IPRINT,77) NHRS, INT(L), INT(K), RADTST
GO TO 605 •• • ~ " ' ' ~
C CALCULATE T«E MNO SPEED AND DIRECTION
'653 VECCAL a CMPLXtVEXCAL / OENOM, VEYCAL^/DENOM)
^^ GRIflX a REAL(VECCAL)
~~ GRIDY a AlhAG(vECCAL) ~' ' '
GRlDSPfL,*) = SQRT(GRIOX ** 2 + GRIOY ** 2)
ANGLEC = ARCOSCGRIDX'/ GRIDSPCL",K))
IF (GRIDY ,LT. 0,0) ANGLEC = T'«OPI • ANGLEC
GRIDEGCL,K) a DEG(ANGLEC)"
KPOINT a IFIX((GRIOEG(L,K) » 0,5 * CPOINT) / CPOINT) • HAXPNT / 2
IF (KPOINT ,LE. 0) KPOINT a KPOINT * NAXPNT ~
C PRINT THE OUTPUT LINE UNLESS FLAGGED
9; -0)~GO' TO 660
C OCEAN "B"
107
•RITE (1PRINT,72) INT(L)f INT(K), KREG(JREG(L.K)), KPOINT,
JDIR(KPOINT), GRIOEG(LrK),-GR10SP(L,K),- GRIDX,-GR10Y —
108
-------
SOURCE CARD LISTING FOR PROGRAM WIND
(Cont'd I6)_
^SjD.URCE_.CARD_LISILNG_EQR_EROGRAM_KlND
(Cont'd 17)
GO TO 660
- C WRITE MESS»GE"FOR~NO-ACCEPTABLE-STATIONS"
655 IF (L»ARN ,EQ. 0) GO TO 660
- • IF CLPATT",NE."0) WRITE CIPRINT,73) INTCC), INTCK) ,'-RADTST
IF (L°ATT ,EO, 0) WRITE CIPRINT,753 NHRS, INT(L), INTCK), RAOTST
"660 CONTINUE
670 CONTINUE
C ACCOUNT FOR THE SPECIAL CASES OF SQUARE AVERAGING
00 702 K a 21,25
IF CJREGC11.K) ,Nt, 7) GO TO 702
C VEROUGU MOUNTAINS
" GRinEGCll.K) a" (GRIOEG(IO.K) + GRIDEG (1 2 ,K ) T * 0,5
GRIDSPC11.K) • CGRIDSPUO,*) » GRIDSP C 12, K) ) • 0.5
"702 CONTINUE
00 720 K e 19,20
00 710 L 3 1,10
IF CJREGCL,*) ,NE, 5) GO TO 710
C SANTA MQNICA MOUNTAINS
IF CK ,EQ, 20) GO TO 705
GRIPSPCL.K) = CGRIDSPCL.K - 1) * 2,0 + GRIOSP(U,K » 2)) / 3,0
GO TO 710
705 GRIOtGCL.K) = CGRIDEG(L,K + 1) * 2,0 + GRIDEGCL,K • 2)) / 3,0
GRIOSPCL.K) a CGRIDSPCL,K * 1) * 2,0 + GRIOSPCL.K • 2)) / 5,0
710 CONTINUE
720 CONTINUE
C PRINT TH1' WIND SPEED GRID UNLESS FLAGGED
IF CLGHID ,EO, n) GO TO 750 """ " '
WRITE UPRINTjPl) NHRS, KYEAR, KMONTH, KOAY,
H, CINTCK), K = l.NXSOR)
0(1 730 K 3J,NYSQR
L a NYSUR • K + i - — - -
WRITE (IPRINT.82) INTCL), CGKIDSPCM,L) , M « t.NXSQR)
730 CONTINUE
C PRINT T«E KIND DIRECTION GRID
WRITE (IPRINT.8J) NHRS, KYEAR, KMQN'TH, KOAY,
t. UNTCK) , K s 1 , NXSOR)
DO 7"0 K = l.NYSQR
.L s NYSQR • K + i
?ao * CONTINUE
15
16
17
19
22
- 5T
21
26
_27
26
- ~29
~31
32
33
31
35
• 37
38
39
•• •&
1
- - s
1
"" &
1
1
&
1
1
1
1
&
1
&
"~ 1
f.
' ~ \
t,
1
1
.&
&
t
J
\
\
1
t
t
13 PORMATCOPROGRAM INPUT SPECIFIES ', is,
j— 1-WIND MEASUREMENT STATIONS,-')
18 FORMATCOPROGRAM INPUT SPECIFIES ', 15,
-'"AS THE STARTING HOUR,')-
FORMATCOPKOGHAM J'NPUT SPECIFIES ', 15,
1 AS THE ENPING HOUR,')
FORMATCOPROGHAM INPUT SPECIFIES ', 15,
' DIFFERENT EXPONENTS,') "
FORMATCOWARNING MESSAGES WILL BE PRINTED,')
FORMATC'O.ARNIKG MESSAGES WILL NOT'BE PRINTCDT'1 :
POHMATC THIS IS OUTSIDE THE PROGRAM LIMITS OF ', 15,
' THROUGH i, 15, '.', /, ' VALUE HAS BEEN RESET "ft)-' T I5r
' AND PROCESSING HAS BEEN CONTINUED,1)
STATION CORRELATION AND WIND PATTERN CALCULATION'-//)
FDRVATC "OWING STATIONS *IL\. BE CORRELATED,')
"FORMATf '0*IND"STATIOKiS "ILL NOT "BE" CORRFLATEDT'T -
PATTERNS .HILL BE CALCULATED,')
fORH»T('OWlNp PATTERNS WILL NOT 8E CALCULATED','' )
FORMATCOX-AXIS IS ', 15, ' SOUARtS LONG,'/
I Y. AXIS IS ', "15, "' "SQUARES HIGH,')
PORHATC'p* TOTAL OF ', 15, ' KIND STATIONS WERE INPUT.')
ORMATObDATA COVERING " THE'TIME SPAN 'VIS,
' THROUGH I, 15, ' HOURS "ILL BE PROCESSED,')
FORMATCO', 15, ' EXPONENT VALUES RANGING FROM ' ," F5'."2>~
i THRfH'GM ', fS.2, ' ^ILL Bt TfrSTED,')
FORMAt('r*INp STATIOM LOCATIONS'// .-...--.
' STATION X-AXIS Y-AXIS'/ _
i NAMt ..... COORDINATE •""""COORDINATE'/) :
FOP-a, 12X, A3, «x.
INPUT SPECIFIES
4 X-01RFCTION, ' )-
_ _ ......_ ..
615, 5F5.0)
2112) - • -
', 15,
- -... uii
15
-«16
Ji7
. U9
— — - -
i
i
• •• i
i
i
&
&
&
&
12
-i « SOUARt
FQHMATC'OPROGRAM INPUT SPECIFIES ', 15
-J- 'SQUARES IN Y-DIHECTION,')• -
. 109 :
52
FORMATC1 WIND STATION COORDINATE DATA KILL NOT BE PRINTED,')
PORMATCOSTATION ', Aili'l'IS NOT IN LOC A TION 'LIST; ' ,
& ' STATION' INPUT DATA NOT ACCEPTED,')
PORMATC 'OPROGRAM INPUT SPECIUES WIND POINT ',
t. 12, ' AT ', IS, ' HOUR FOR STATION ', Ail, ',')
FORMATC "OPROGHAM INPUT SPECIFIFS KJN;O SPEED ',
t. 13. ' AT ', 15, ' HOUR FOR STATION ', AU, '.')
FORMATC1 INTERMEDIATE KIND VECTORS '"ILL BE PRINTED,') ------ ---- '
FORMATC1 INTtRMEOIATE WIND VECTORS WILL NOT BE PRINTED,')
FORMATC CO'RfLATION COEFFICIENTS WILL BE PRINTED,')
FORMATC1 CORRELATION COEFFICIENTS WHL NOT BE PRINTED,')
FORMATC'"CALCULATED DATA WJLL BE FILED.') ------ •
FORMATC CALCULATED DATA ULL WOT 9E FILER,')
FORMATC (DATA CORRELATION FOR WIND STATION '7~»0^ ---- — ' -
WITH EXPONENT = ', F6.2, «X, 3I2//
POINT DIRECTION DEGREES I,'-' --- .•---
SPEED X-VECTOR Y-VECTnR'/
HOUR HEAS CALC MEAS CALC HEAS CACC^'I;
MEAS CALC MEAS CALC MtAS CALC1/)
PORMATC1X, Id, 2X, 12, 3X, 12, OX, A3, 3X, A3, IX, F3, 1 ,"1X, -F
__________ ____ no ___ . ' _____ • __
-------
SOURCE CARD LISTING FOR PROGRAM VflJID . (Cont'd IS)
& 2X, F4.1, IX, F«,l, 2X, Fd.l, IX, P«.l, 2X, Ftt.l, IX, Fa
~53 FORMATdX, ia, ' NO INPUT DATA FOR THIS STATION AT THIS HOUR,
5« FtlRMATCAu, F5.2, 15, IX, 12, IX, 12, 2P5.1)
~55 FORMA TCOFOR INPUT ITEM '1~,~ A3, "'" AT' STATION -'7~Aa—'-THE'DATE
& 312, ' IS IN CONFLICT WITH THE ORIGINAL DATE ', JI2, ','
"56 ~ FORMATC1 VARlAKCE VALUES'WILL BE PRINTED.')
57 _ FORMATC1 VARIANCE VALUES WILL NOT BE PRINTED,')
58' FORIATC' SHADOWED STATIONS WILL SE DISCOUNTED,'}
59 FORIATC 3hADi>EO STATIONS WILL NOT Bf- DISCOUNTED,')
61"" FOHHATC IMND STATION CORRELATION COEFFICIENTS', 20X, 312)
62 FOSMATf// ,.5dX, 'EXPONENT VALUfc3'/7X, 6F1«,2)
63 " FORMATdX, I«, 6X, 6C2F6.2, 2XJ)
64 FORMATC1H )
65 FORMATC1X, 3X, Ad, 3X, 6C2F6.2, 2X)) • "" " "
66 PORMATC HOUR1, 6X, 6(A1, ' SPEED POINT '}) _
"67" "PORMATC' STATION', 3X, 6 (A1, ' SPEED POINT '))~
68__ PORMATC1HOURLY CORRELATION COEFFICIENTS', 20X, 312)
"69 " FflRMATC'OAVERAGE1, 3X, 6C2F6.2, 2X)) " " " " '
71 FORMATC'1CALCULATED WIND PATTERN FOR ', 15,
"i I HOUR I, 1«X, 3I2// ' , "'
& ' COLUMN ROW REG10M POINT DIRECTION^ DEGREES
4- "' SPEED X»VECTOR Y-VECTORI/) " "" '
72 PORMATC3X, 12, 5X, 12, 5X, AJ, 6X, 12, 6X, A3, 7X, F5.1,
& 2X, Fa.l, 3X, F5.1, 5X, F5.1) " "" '-
_7_3 FORMATOX, 12, sx, 12, ' NO ACCEPTABLE WIND STATION WITHIN ',
"& PS.l, ' SQUARES OF THIS POINT,')
7« PDRMATCOAN INPUT CARD FOR STATION ', All, I SHOWS INPUT ITEM ',
~& A3', ~',""ITEM" IGNORED. '/)"""
FORMATC1 HR = ', Id, ' X = ', 12, '• Y = ' , 12,
& I NIJ WIND STATION WITHIN ', F5.1, ' SQUARES.1)
FORMATC1H1) '
FORMATC HR = ', IH, < X s ', 12, ' Y » ', 12,
4 ' STATION RANGE RAIsFD TO ', Fb.l, ' SQUARES,')
" FOSMATC3X, I?., SX, 12,"' WIND STATION RANGE RAISED "TO T"
H F5.1, ' SQUARES AT THIS POINT,')
FORMATC' >.IND STATION 1, AU, ' HAS NO DATA ENTRY FOR », 15,
& ' HOURS,')
" FORMATC1 1MND SPEED GRID FOR ', IS, '" ~
& ' HOUR ', 1«X, 312 //, 6X, 2515)
~PORMATC/2X,"I2," 3X. 25F5. 1)
FORMATC1IhlND DIRECTION GBID FOR ', IS,
"8 ' HOUR ', 1UX, 312 //, 6X, 2515)
FORMATC/2X, 12, 3x, 25F5.0)
"FORMATC'OPROGRAM INPUT SPECIFIES ', P5,l>
& ' AS THE STATION RADIUS OF INFLUENCE,')
—FORMATCOPROGRAM 'INPUT' SPECIF ICS"' f F9?U
& ' AS THE GRID RADIUS OF INFLUENCE,')
" -FORMATCOPROGRAM INPUT SPECIFIES ', F5.1, '
& ' A3 THE RADIUS OF INFLUENCE INCREMENT,')
J50URCE CARD LISTING..FOR_PRpGRAM _Q"AL _
.l)
') "
"'7-
/)
******
C ****** PROGRAM 0 U A 'L
C CORRELATES AIR QUALITY PATTERNS AND CALCULATES POLLUTANT GRID
75
76
77
' 79
"'81
"82"
_ 8I
eu
— 86
-37
'" POLLUTANT IDENTIFICATION ON ANY INPUT CARD
C KKLAG FL»G TO DENOTE THAT FIRST DATA CARD HAS BEEN READ
C KK PO LOOP OR LOCAL INDEX
C KMONTH MONTH OF THfc YEAS DATA WERE TAKEN " .....
C KREG THE ALPHABETIC REGION ItlENTIFIERS
C KSTA ~ STATION IDENTIFICATION ON AN INPUT DATACARD -
C KYEAR YEAR DATA WERE TAKEN _
~C~L ----- DO-LOOP OR LOCAL INDEX -- — ----- '
C LBETA INPUT OPTION FLAG TO REQUEST BETA VALUE LISTING
~C LCALC ---- INPUT OPTION" FLAG FOR REQUEST OF-CALCULATION FUNCTION -
112
-------
SOURCE CARD LISTING FOR PROGRAM QtlAL
(Cont'd 2)
C LCONC
C LCORR
C LOAY
C LGRID
C LMONTH
C LMTH
C LPATT
C LREG
C LSHAO
C LSTAT
C LTHC
C LVARI
C LWARN
C LYEAR
C MAXEMM
C MAXEXP
C MAXHR
C MAXPNT
C MAXSQR
C MAXSTA
C XEM".
C MINE MM
C MINEXP
C MINHR
C KINPNT
C MINRAO
C MINSTA
C
C
C
C
MM
MSTA
N
C NAMMTH
C N4M.N02
C NAMRHC
C NAM3TA
C NAMTHC
C NAMUHC
c ME MM •
c
C
C
C
NEXP
NFSTHR
NHRS "
c NLSTHR
C NSTA
NSTRHR
NX5QR
NYSQR
QU4LC
R40GSD
RADINC
C RAOMIN
C RAOSTA
• C R40TST
C STACNT
C STAX
INPUT OPTION FLAG FOR REQUEST OF MEASURED VALUE OUTPUT
INPUT OPTION FLAG FOR REQUEST OF CORRELATION FUNCTION
TEST VALUE OF DAY FOR DATE TESTING
"INPUT" OPTION FLAG'FOR REQUEST" TO "FILE" RESULTS "ON DISK
INPUT OPTION FLAG FOR REQUEST OF GRID PRINTOUT
TEST VALUE CF MONTH FOR DATE TESTING '
POINTER TO METHANE IN POLLUTANT LIST
INPUT OPTION FLAG FOR REQUEST OF POLLUTANT PATTERN OUTPUT
LOCAL REPRESENTATION OF THE REGION IJF THE SQUARE UNDER TEST
' INPUT OPTION FLAG FOR INCLUSION PF STATION SHADOWING
INPUT OPTION FLAG FOR REQUEST TO PRINT STATION COORDINATES
POINTER TO TOTAL HYDROCARBON IN POLLUTANT LIST
INPUT OPTION FLAG FOR REQUEST OF VARIANCE LISTING
INPUT OPTION FLAG TO REQUEST PRINTOUT OF WARNING MESSAGES
TEST VALUE OF YEAR FOR DATE TESTING _ _
DO-LOOP OR LOCAL INDEX
MAXIMUM NUMBER OF POLLUTANTS _
MAXIMUM NUMBER OF EXPONENT VALUES TO BE CALCULATED
MAXIMUM MOUR VALUE TO BE PUT IN BY USER _ _
MAXIMUM VALUE AN INPUT DECLARATION HAY HAVE
MAXIMUM NUMBER OF SQUARES IN ANY GRID DIRECTION
'"MAXi-Hi NUMBER OF STATIONS TO BE INPUT BY USER"
POLLUTANT IDENTIFIFR FOR INPUT LIST
MINI Mil"! NUMBER OF ALLO'iLD POLLUTANTS
"INIMIJM NUMBER OF EXPONENT VALUES TO BE CALCULATED
MINIMUM HOUR VALUE TO Bfc PUT IN BY USER
MINIMUM VALUE A POINT DECLARATION MAY HAVE ___
"MINIMUM ALLOWABLE VALUE FOR ANY RADIUS OF INFLUENCE
MINIMUM NUMBER OF SQUARES IN ANY GRID DIRECTION
' MINIMUM NUMBER OF STATIONS TO BE INPUT BY USER
DO-LOOP OR LOCAL INDEX
STATION IDENTIFIER FOR INPUT LIST
OO-LOOP up LOCAL I'-'DEX _
" LIST OF POLLUTANT UAKf.S ""
ABBREVIATION FOR METHANE
ABBREVIATION FOR NITROGEN DIOXIDE
ABBREVIATION FOR NITROGEN DIOXIDE
ABBREVIATION FOR REACTIVE HYDROCARBONS
AM ARRAY OF STATION NAMES
""ABBREVIATION FOR TOTAL HYDROCARBONS"
ABBREVIATION FOR UNREACTEO HYDROC ARBI3NS__ . ,
" MUMbER OF POLLUTANT NAMES
INTERNAL REPRESENTATION OF ENDING HOUR
NUMBER OF EXPONENT VALUES REQUESTED BY'USER
STARTING HOUR VALUE REQUESTED BY USER
—UU*"BER OF HOURS TO BE PRINTED
ENDING HOUR VALUE REQUESTED BY USER
" NUMBER OF STATIONS ACTUALLY READ IN BY USER '
INTERNAL REPRESENTATION OF STARTING HOUR
NUMBER (IF SQUARES IN X-DIRECTION
NUMBER HF SQUARES IN Y-UIRECTION
CALCULATED AIR QUALITY ARRAY "
MEASURED AIR QUALITY ARRAY
MAXIMUM DISTANCE TO 4 STATION FOR CALCULATION
INCREMENT TO BE ADDED TU DISTANCE IF NO STATION FOUND
MIM"UM ALLOWABLE VALUE FOR ANY.RADIUS OF INFLUENCE
MAXI«IJM DISTANCE TO A STATION FOR CORRELATION
— TEST VALUE FOR MAXIMUM STATION DISTANCE :
NUMBER UF STATIONS ACTAULLY REPORTING DATA
•-X.COORDINATE OF A STATION '
STAY
SUMCAL"
SUMNUM
3UMSOR"
SUMVAL
VALBAR"
VALCAL
VALDIF
VALMIN
VALSUM"
VARH
VARS
SOURCE CARD LISTING FOR PROGRAM QUAL_
Y-COORDINATE OF A STATION
THE SUM UF THE CALCULATED VALUES
. (Cont'd 3)..
RUNNING SUM FOR NUMERATOR CALCULATIONS
'"SUM OF THE SQUARES OF THE'VALUE DIFFERENCES :
THE SUM OF THE MEASURED VALUES -
'"THE MEAN UF THE MEASURED VALUES
RUNNING SUM OF CALCULATED VALUES
' THE DIFFERENCE BETWEEN ANY MEASURED VALUE"AND'THE "MEAN
MINIMUM ALLOWABLE VALUE FOR ANY CALCULATED VARIABLE
THE SUM OF THE MEASURED DIFFERENCES SQUARED ~
THE HOUR-MSF. VARIANCE FOR POLLUTANT VALUES
THE STATION-WISE VARIANCE FOR POLLUTANT VALUES
1*1,
3M,
5*1 ,
7*1,
"7*1,
6*1,
5*1,
4*1,
T0*3,
10*3,
10*3,
19*2.
15*2,
11*2,
3*1 ,
3*4,
4*4,
' 5*4,
6*4,
10*4,
10'*S,
1*7,
1*7,
1*7,
5»6,
7*6,
9*6,
15*6,
15*6,
15*6,
15*6,
15*6,
15*6,
15*6,
14*6,
14*6,
1, VARSC6,25,6) " ~"
_SET EQUIVALENCES
EQUIVALENCE (HETAHC1, 1, 1), GRIDEMCl,!))
DEFINE THf REGIONS ON TH.' GRID
DATA
B
C
D
F
" 6" " '
H
I
J
K '
L
M
ASSIGN LETTER DESIGNATIONS TO THE REGIONS
DATA KREG X1HA, 1HB, 1HC, 1HD, 1HE, 1HF, 1HG/ "" J""
SET THE INTEGER VALUES
DATA INT /I , 2,3,4,5,6,7,"8;9,10,11,'12,13,10,15,16,17.18rr«. ,20>~
B 21,22,23,2
-------
cuv.! PIT \1.
fCont'd 51
DATA MINpwT /O/
DAT* MINHAD /I/
DATA KFLAG /O/
DATA RADMIN /1,0./
DATA DSTMIN /0,1/
DATA" VALMIN "/0.017"
DATA 8ETHAX Xl.OO/
DATA EXPDIF /0,0/"
DATA HALFPl /1.57080/
' C READ THE CONTROL CARD
___ "EAD (IREAO.l) LWARN, LFILE, LSTAT, LCORR, LCONC, LBETA,
*. LC'-LC, LSHAO, LPATT, LGKXD, NXSQR, NYSBR, NEMM, NSTA
& NFSTHR, iwLSTHR, ^EXP, EXPFST, EXPLST, RADSTA, RADGBD
C TEST LIMITS OF INPUT VALUES
IF (NXSOH .Gt.. MJNSOH .AND, NXSQR ,LE, HAXSflR) GO TO 105
IF (LWAHN ,Ef3, 0) GO TO 103
NXSOR
>AXSQR;~MAXSQR
LV4RI,
RADINC
103
105
WRITE (IPI-INT.ll)
"WRITE (IPRINT, 19) MINSQR,
= MAX3QR
106
IF (NYSSR .GE, MINSQR'.AND, NYSOR ,LE, MAXSOR) GO TO 108'"
IF (LWARN ,ES, 0) GO TO 106
WRITE (IP»IfJT,12) NYSOR "
(IPRINT,19) MINSQR,_M_AXSOR, MAXSOR
B'MAXSQB ' " ~
C TEST LIMITS 0'-> MUMflER OF POLLUTANTS
108
XK 1 : ,. • . , . ; rv» JlNC
'WRITE (IP-'JN',19)' *ISRAD, MAXPNT>-HINRAD
155 RADINC = RADMIN •-
C READ THE POLLUTANT NAMES
IJfc RFftO (IREA0.2) FACRHC, FACUHC, (NAMEMM(K), K
c V.RITE FIRST PAGE HEADING AND CONTROL DATA
^.RITE (!PRINT,21)
IF (L
IF
IF
_ IF (LFILE ,EQ. 0) WRITE CIPR1NT,«9)
~~IF" (LSTAT .NE, 0) KR1TE (IPRlNTfJS)'
_ IF tLSTAT ,EO, 0)' WRITE (JPRINT.39)
" IF (UCORR ,NE, 0) '"RITE ( IPRINT , 22)"
___ IF (LCOHR ,EG, 0) WRITE (IPRINT. 23)
"IF CLCORR ,EO, 0) GO TO 137
___ IF (|,CnNC ,NE, 0) WRITE ( IPRINT, «
-------
SOURCE CARD LISTING FOR PROGRAM QUAL .. •._ (Cont'd 6)
139 CONTINUE
'"1 100 CONTINUE ------
' ' C PRINT STATION COORDINATE DATA UNLESS FLAGGED
IF (L3TAT—.ED," 0) GO'TO 150
WRITE (IPRINT.32) NAMSTA(J), STAX(J), 3TAY(J)
" 150 CONTINUE ' . . . .
C READ THE INPUT DATA FOR EACH STATION
WRITE UPRINT»76) " ~~
155 READ (IRtAO,U,ENDnlflS) KYEAH, KMONTH, KD»V, KSTA, KEHM,
& (JPOINTCK), K = 1.20) " "
C IF THIS IS FIRST CARD, SAVE THE DATE
~ IF (KFLAG ,NE, 0) GO TO 157 • - -
LYE»R = KYEAR
LMD'JT.H s KMONTH " " - --
; LDAY n Kl)AY _
KFLAG
SOURCE CARD LISTING FOR. PROGRAM QUAL ._„
WRITE (IPRINT,79) NAMSTA(K), NAMEMM(M), L
187 ~~ CONTINUE ' "~ '
188 CONTINUE
"189 CONTINUE
C CHECK FOR PRESENCE OF THC AND HTH IN INPUT
DO 19? K
_CCo.nt.'.d._7)_
190
192
1, NEMM " "- '
IF (NAMEMM(K) ,EO, NAMTHC) LTHC » K
IF (NAMEMM(K) ,EQ, NAMMTH) LMTH a K
IF (LTHC ,EQ." 0)~GO~TO '210
IF
,Et), 0) GO TO 210
C" RECALCULATE THC AS RCH (« THC
a NAMRHC
1 ,NSTA
1
C CHECK DATE -• IF NO MATCH, WRITE WARNING
157 IF (L*ARN ,£Q, 0) GO TO 158 *
IF CLYE4R ,EQ, KYE'R .AND. L*ONTH .10. KMONTH .AND,
& LDAY ,EO. KDAY) GO TO 158
WRITE (IPRINT,7«) KEMM, KSTA,_KYEAR, KMONTH,_KOAr»
& LYEAH/ L*ONTH, LDAY " ~ ~ '
C IDENTIFY THIS STATION FROM THE COORDINATE LIST
158 DO 160 K a 1,NSTA ~" ' "
IF (NAMSTA(K) ,EQ. KSTA) GO TO 165
160 CONTINUE
C STATION NOT FOUND •• WRITE WARNING MESSAGE
IF (LwARN ,EB, 0)'GO TO 155 "~ ~"
•RITE (IPRINT,«1) KSTA
GO TO 155
165 MSTA c K
C IDENTIFY POLLUTANT NAME FROM EMISSIONS LIST " ~" "'
DO 17« K a I,NEMM
~~ IF (NAMEMM(K) ,EO. KEMM) GO'TO" 175~ ~~~
170 CONTINUE
C NAME NOT FOUND -- WRITE WARNING MESSAGE " '" '
IF (LWARN ,EO, 0) GO TO 155
WRITE MPR1N"T,«S) KEMM, KSTA - • -- • - - - ----- -
GO TO 155
"175M£MM = K ~~~~~~
C TEST LIMITS OF POINT READINGS
'"00 180 K e'NSTRHR, NENQHR ' —"
IF (JPQINT(i<) .Gt. MINPNT .AND. JPOINT(K) ,LE, MAXPNT) GO TO 179
""• ~~ IF (L*ARN ,EQ. 0) GO TO 178 ~ '
L • 100 • (K • 1)
WHITE (IPRINT,«2) KFMM, JPOINTCK r,~L-i
WRITE (IPRINT/19) H1NPNT, MAXPNT, MINPNT
"178 " JPOINT(K) a MINPNT " •
c STORE POLLUTANT RKAOING
"179" aiJALMCK.MSTAjJ'EMM) s JPOINT(K)
180 CONTIMUt
GO TO 155 ~
C WRITE MESSAGES FOR MISSING DATA
185 IF (LWARN ,FI3, 0) GO TO 190
WRITE (IPRINT.76)
' " DO 189 M = 1 ,NE^K
on isa K s I,NSTA
DO 187 J « NSTRHR, NLNDMR
DO 197 J
— "DO "195 K a NSTRHR," Nt'NO'HP"
IF (Q!JALM(K, J.LTHC) ,GT. 0,0 .AND, OUALM(K,J,LMTH) .CT, 0.0)
— ~~ I GO TO 195
OUALM(K,J.LTHC) s 0,0
OUALM(K,J,LHTH) q 0,0 " "
GO TO 195
—tTc'ATCuLATE VALUES'," INCLUDING 'FACTOR~FOR"CARBON~NUHBER-COHRECTION
193
(QUALM(K,J,LTHC) • QUALM(K,J,LMTH)) * FACRHC
OUALM(K,J,LMTH) * FACUHC
NAMNOZ) NAMEMM(K) a NAHN2
OUALM(K,J,LTHC)
OI.IALM(K,J,L«TH)
J95 CONTINUE
197 CONTINUE
C CHANGE N'AMf. OF NO? IF PRESENT
"210 00 215 K n l,NtMM
IF(N'A»EI'«(K) ,EO,
215 CONTINUE
C SEE IF CORRELATION 18 WANTED
IF (LCO^R ,EQ. 0) GO TO 600
c SET EXHUNENTIAL VALUE DO-LOOP
" 00 "90 I a 1,NEXP"~ '
EXP(I) s tXPFST + (I - 1) * EXPDIF
C SET HOURLY 00-LOOP . "~ '
00 ?90 J » NSTPHR,NENOHR
C CORRELATE EACH STATION AGAINST ALC"OTHER STATIONS"
00 260 M a l,riEMM
-. - 00 2UO K a l.NSTA
C SKIP THIS STATION IF NO DATA
IF (OUALH(J,K,M) ,LT. 1 , 0 )' GO 'TO "
VALCAL s 0.0
DENOH = 0.0 " " "' " """
DO 220 L = l.NSTA
f SKIP THIS STATION IF NO DATA OR IF~CORREL"A TED" STATION
IF (OUALM(J,L,M) .LT, 1,0) GO TO 220
IF (L ,EO, K) GO TO 220 " ' -- """
C CALCULATE DISTANCE AND SUM VECTORS
DIST = S«RT{(ST»X(K) » STAX(D) ** 2 » (STAY (K)" .
C SKIP IF DISTANCE IS OUTSIDE MAXIMUM ALLOWED
--- IF (DIST ,GT. RAOSTA .AND. NAMEMM(M) . NE
t. NAME>
-------
SOURCE CARD LISTING FOR PROGRAM QUAL
(Cont'd 8)
C CALCULATE CORRELATED POLLUTANT CONCENTRA TIONS
8UA|.C( J.K.M) 3 VALCAL / DENOM
210 CONTINUE
260 CONTINUE
290 CONTINUE
C PRINT HEADINGS AND INPUT AND CALCULATED STATION DATA UNLESS FLAGGED
IF (LCQHC ,EO, 0) CO TO 400
OR 370 J a 1,N3TA • ' " - - - --
WRITE CIPPINT.51) NAM3TACJ), EXP(I), KYEAR, KMONTH, KDAY,
& (>JAMEMMCL)»~L"» 1>NEMM5
WRITE (IPRINT.5S) ____ _
DO 360 K a NSTHHR,NENOH« " ~
NHR3 B 100 * CK - l)_ ___ ____ ^^^ _
C~PP.INT TVH) , M * l.NEMM)
360 "CONTINUE
370 CONTINUE
C CHECK FOR CORRELATION COEFFIC I ENT" OPTION
«00 IF (LCORR ,EOt 0) GO TO 600
C CALCULATE THE STATION CORRELATION COEFFICIENT
on a«n M = I.NFMM
DO«33J»l, N3TA"
SUHVAL s 0,0
SlIMCAL = 0,0
SUMSO«
. SOURCE_CARD _LISTING_FOR-PJIOGRAM_QUAL
VALSUM e VALSUM + VALDIF * VALDIF
CALSUM n CALSUM + CALDIF * CALOIF - -- - -
H) " VAL8AR
CALI5IF - QUALC(K,J,M) - CALBAR
C CALCULATE SUMS
3IIHNUM s SUMNUM + VALDIF * CALDIF '
VALSUM B VALSIIM + VALDIF * VALDIF
CALSUH « CALSUM + CALDIF" *"CALDIF
870 CONTINUE
"C CALCULATE THE HOUR-WISE CORRELATION COEFFICIENTS":
IF (VAL3UX ,LT, VALMIN) GO TO «80
IF (CALSUM',LT, VALMIN) GO'TO «80 :
8ETAH(I,K,M) * SUMNUM / SORT(VALSUM) / SORT(CALSUM)
085CONTIMUE"" '
flBb CONTINUE
119
120
-------
SOURCE CARD LISTING FOR PROGRAM QUAL
(Cont'd 10)
C WRITE CORRELATION COEFFICIENT OUTPUT UNLESS FLAGGED
IF (LBETA ,EO. 0) GO TO 550
T'CLEAR AVERAGES ' "~
a l.NEXP
= 0.0
a 0,0
a 0.0 " ' " "
a 0,0
on 510 I
BHCNT(I)
BM3l!M(I)
BSCM(I)
BSSUM(I)
"CONTINUE'
: SOURCE . CARD_LISTING_FOR_P.ROGRAM_QUAL_
DO 560 I a 1,NEXP
8HCNTC1) * 0,0
'BM3U"(I) a 0,0
"~~BSCMTd)"a 0,0
BSSUM(I) n 0.0
360 CONTINUE
C WRITE HOURLY HEADING
WRITE (IPRINT.985 "NAMEMM (K) ,~ KYEAR,' KMONTHr~KDAY-
WR1TE (IPRINT.92) (EXP(I), I e l.NEXP)
~snr
c WRITE HOURLY HEADING
WRITE UPRINT,68) N*MEMM{K)',~KYEAR,~'KMONTH, KDAY"
WRITE (IPRINT.62) CEXP(I), I » l.NEXP)
*RITE dpRiNT,**) (JBLANK, i = I,NEXP) ~
WRITE (IPPINT.6U)
WRITE dPRINT,9 KYEAR, KMQNTH» KOAY
--- ' WRITE (IPR1NT.62) CFXPCI), I a 1,NEXP)
WRITE (IPRINT»67) CJ8LANK, I a 1,NEXP) __ __
WRITE (IPRINT.6U) ' " ......... ~
C WRITE STATION- WISE CORRELATION. COEFFICIENTS _
~" "" on 530 j s I.MSTA " .....
WRITE (lP(UNT/fe5) NAMSTA(J), (HE T A 3 ( 1 , J, K ) , I a l.NEXP)
GO TO 5Z5
IF (BHCNT(I) ,LT, 1.0) GO TO 572
BHSUM(I) a BHSUM(I) /„ BHCNT(I)"
CONTINUE
19)" (BHSUM( I),""!' a
572
C WRITE STATION
•RITE fIPRI\'T,91)
' wRITt (IPRINT,9?) (EXP(I), I
wujTf (IHRINT.97) (JBLANK, I
_ *RTTE UPRINT,9«)
c "WRITE STATION. WISE CORRELATIOIJ COEFFICIENTS
OP 58P J » l.NSTA
KYEAR, KMQNTH, KOAY
a 1,NEXP)
a l.NEXP)
WRITE (IPRINT.95) NAMSTA (J), "(VARS(I, J,K)7~"I » 17NEXP1"
INCREMENT AVERAGts
00 975 1 » IrNEXP
IF CABS(VARS(I,J,K))_.IT, VALMIN) GO TO 575
BSSUM(I) = BSSUMd)'* VAR3d,J,K)" "
BSCNT(I) a SSCNT(I) + 1,0
---.„-
DO 525 I s 1 ,MXP
IF (ABStBETAS(l.J.K)) ,LT. VAL^
IF (ABSCBETASCI.J.,*)) .GT, BET-AX) GO TO 525
BS3UHCI) = 8SSUHCI) + BETASCI.J.K) "
BSCNT(I) s HSCNT(I) * 1,0
525" CONTINUE ' .. - — --
510 CONTINUE
PRINT AVERAGES"" -- •
a 1,NEXP
~~S85
"C CALCULATE AN
On 535 1
BSSUM(I) / B3CNTCI)
BS3U«(I)
-535- CONTINUE - - ----- - .....
WRITE (IPRINT.69) (8SSUM(I>» I « 1»NEXP)
•~sao - CONTINUE - • •
C WRITE VARIANCE OUTPUT UNLESS FLAGGED
— 550 - IP-.avARl-.tO — 0) -GO-TO 600
00 590 K = 1,'IEMM
— C-CLEAR AVERAGES -- -----
575
580 CtWTlNUf
C CALCULATE AND PRINT AVERAGES " - - -
DO b85 I a 1,M£XP
IF (fisCNT(I) ,LT,"UO)-GO-TO"5B5
BSSUM(I) a B5SUMCI) / BSCNT(I)
CONTINUE ' "
WRITE (IPRINT.99) (BSSUM(I), I * 1,NEXP)
590 CONTINUE " ~"
C CHECK FOR CALCULATION OPTION
~600~' IF"(LCALC ",EO," 0)~GO"TO~900
C 9ET EXPONENTIAL VALUE DO-LOOP
DO 790 I a. 1,1 '
EXP(I) a EXPFST » (I • J) * EXPDIF
"c SET HOURLY DO-LOOP "
DO 780 J a NSTRHR.NENDHR
NHRS «'100 * (J'-'l) (
00 775 N a l, NEMM
-^KRITE HEADING AND SET GRID DO-LOOPS
121
122
-------
SOURCE CARD LISTING FOR PROGRAM_OUAL.
.CCont'd 12)
_SOtlRCE_ CARD LISTIN.G_FQBLP-RO.GRAM_QUAL_
_OCon.t.'_ NSTRHR) CQ TQ 775
IF (I ,N£ ,1) GO TO 775
DO 770 K « l,HYSQR " ......
DO 760 L • 1, NXSQR
WRITE -CIOU4U
CONTINUE
—C-CALCULATE .THE DISTANCE-ANO-RELATED
760
-~770 -- CONTINUE'"
123
124
-------
SOURCE CARD LISTING FOR PROGRAM
(Cent .'.d.14)
n
775
780
790
C"'ENO"
900
~ 1
2
3
u
11
t,
12
&
~I3
CONTINUE
CUNTlNUt
CONTINUE
UP PROGRAM
STOP
FOR"ATC3Ii;~lX, UIl.""lX,"ail, 2X,
FORMATC2F5.0, 6C2X,' A3))
FORMATC3X, A". 3X, 2F5.0)
FORMATC3I?, 3X, Aa, 12X, A3, «X,
FORKATCOPHOGRAM IWPUT SPECIFIES""
1 SQUARES IN X-OIRECTION. • )
PORMATC 'OPROGWAM IMPUT SPECIFIES
' SOUAP.fc.1 IN Y-DIRECT10N.' )
POflMATCOPROGHAM INPUT SPECIFIES
'715, 5F5.0) " '
2412)
' , 15,
', 15,
', 15. "-" " ~
_SOURCE_CARD LISTING_FQR__PRQGRANI_QUAI,_
JLLSL
• IS NOT IN EMISSIONS LIST,', /
"' INPUT VALUES FOS THI3 POLLUTANT~NOT~ACCEPTE07' J~
_»U FORMATC INTERMEDIATE CALCULATED VALUES WILL BE PRINTED,')
US FO»MATC"INT£RMEt!IATE CALCULATED VALUES~WILr~NOT" BE~PRINTEDT»7
06
117
49
(19
51
11
T6"
TT"
16
""
_
'22
23
' 2U'
.25
26
"27™
"28"
"29-
~3T"
32
33"
& ' POLLUTANT MEASUREMENT STATIONS.1)
""FORMATCOPROGRAM INPUT SPECIFIES"', IS,
& i AS THE STARTING HOUR,') _
FORMATC OPKOG^AM INPUT SPECIFIES ', is, ' ' — ~
& ' AS THE ENDING HOUR,')
"FORMATCOPROGRAM INPUT SPECIFIES ', is, :
i ' DtFFEHKNT EXPONENTS,')
' "PORMATC 'OXARN1NG MESSAGES '"ILL BE PRINTED,')
FORMATCOHARNING MESSAGES l«HI. NOT BE PRINTED,')
~FORMATC THIS IS OUTSIDE THE PROGRAM LIMITS OF ', 15,
I ' THROUGH ', 15, ',', /. ' VALUE HAS BEEN RESET TO ', 15,
~l ' AMD PROCESSING HAS HEfcN CONTINUED,') '
FORMATC'1AIR QUALITY CORRELATION AND POLLUTANT C ALCULAT ICN_' //)_
FORMATC'OAIR 'JUALITY WILL BE CORRELATED,') "' ""
PORMATCOAIK DUALITY WILL NOT BE CORRtLATED.')
""FORMATCOPOLLUTANT PATTERNS '"ILL BE CALCULATED,') ' ' '"
FORMATCOPOLl.ilTANT PATTERNS KILL NOT I3E CALCULATED.')
"'PORMATCOX-AXIS IS ', IS, ' SQUARE'S LONG.'/ ~'
» ' Y-'XIS IS ', 15, ' SQUARES HIGH,')
""FOHMATC'OA TOTAL OF ', IS, ' INPUT STATIONS rfERE NAMED,'/
& 'OA TOTAL OF ', 15, 'POLLUTANTS «£RE NAMEDJ'/6C2X, A3))
" FORMATCODATA COVERING THE TIME SPAN ', 15, "
& ' THROUGH i, 15, ' HOURS *ILL at PROCESSED,')
"FORMATC'O1, 15. 1 EXPONENT VALUES RANGING FROM ', F5,2, '"
& ' THROUGH ', FS.2, ' ULL BE TESTED,')
"FORWATC 1AJR OUALITY'STATION LOCATIONS'//
& ' STATION X-AXIS Y-4XI8'/
& ' N»HE '" " " COORDINATE' " COORDINATE'/) ~
FORMATC2X, AU, 9X, F6.1, 8X, F6.1)
' FORMATC'OINPUT STATIONS HITHIN ', F5.1,
& ' SQUARES <
_R 20K, 312)
, IEXPOHEMT V»LUES'/5X,-iFlQ,2)
M5X. FS,2))
' -
73
7«
75
76
77
_ -T8-
FORMATC1X, IU,
" FORMATC1H )
FORMATtlX, AU, 6C5X, F5.2))
FORMATC HOUR', 6X,'6A1)
_FORMATC" STATION', 3X, 6AI)
"FORMATC 1HOURLY CORRELATION' COEFFICIE"NTS"TOR-~rT~AT; ~
& 20: , 312)
~ FORMATC01EAN1, 6(5X,"F5,2)) '
FORMATClCALCULATFO ', A3, ' POLLUTANT PATTERN FOR ', 15.
"i ' HOUR ', t«X, 3I2//
t. ' COLUMN RL'W REGION VALUE', /)
FORMAH3X, 12. 5X,"I2, 5X, Al, FS,1)
FORMATC3X, 12, 5X, 12, ' NO ACCEPTABLE INPUT STATION WITHIN •»
'd F5.1, ' SGUARES OF THIS POINT,')
FORMATC'OFOR POLLUTANT ', AJ, ' AT STATION ', AO, ' THE DATE '»
i 312, ' IS IN CONFLICT WITH THE ORIGINAL DATE 'V 312, ','/)-
_ FORMATC1 POL a ', A3, i HR a ', IU, ' X = ', 12, ' Y a ', 12,
& ' NO INPUT STATION'" WITHIN ', F5;ir '-SOUAR£S7«'1
& ' SQUARES WILL BE USED IN PATTERN CALCULATION,!/
& ''If NO STATION IS WITHIN THIS RANGE,',
& ' VALUE INCREASES BY ', F-J.I, ' SIUARES,')
"3fl FORMATC' INDIVIDUAL POLLUTANT VALUES WILL BE PRINTED,1)
35 FORMATC INDIVIDUAL POLLUTANT VALUES WILL NOT BE PRINTED,')
~J6 FORMAT!' POLLUTANT PATTERN' GPIOS WILL HE PRINTED,')
37 FORMATC POLLUTANT PATTERN GRIDS *ILL NOT BE PRINTED,')
"39 FDRMATC I'J"UT STATION COQRniNATE DAT* WILL BE PRINTED,') ' "
39 FORMATC1 INPUT STATION COORDINATE DATA *ILL NOT HE PRINTED,')
ai FORMATCOSTATION ', AU, ' IS NOT IN LOCATION LIST,',
& ' STATION IMPUT DATA iioi ACCEPTED.')
-02 FORMATC 'OP30GRAM INPUT SPECIFIL'S ', A-*, ' CONCfcNTRA T ION" OF—•-.-
& 12, ' AT ', 15. ' HOUR FOR STATION ', Aa, ',')
~a3 PORMATC'OPOLLUTANT ', A'j, ' AT STATION ', A«, ~ -
~79
"81
"83
85
86
87
88
FORMATC' POL a ', A3, ' HR a ' , I«,'''X B ' , 12, -t-y-n-t , JJ,-
» ' STATION RANGE RAISED TO ', F5.1, ' SQUARES,')
' FORMATC3X, 12, 5X, 12, ' STATION RANGE RAISED TO ',
& Fb.l, ' SQUARES AT THIS POINT,')
FORHATC' STATION ', Afl, ' HAS NO DATA-ENTRY FOR POLL-UTANT-'l
& AJ, ' AT ', 15, ' HOURS,1)
FORMAT COPRQGRAM INPUT SPECIFIES ', 15, ----- ------ '
i ' POLLUTANT NAMES,')
' FORMATC 1POLLUTANT ', A3, ' CONCENTRATION GRID FOR-' r"I5-»
& ' HOUR '. l«v, 312 //, 6X, 2515)
" FORMATC/3X, 12, 3X. 25F5.1) -----
FORMATCOPROG^AM INPUT SPECIFIES ', F5,t,
t. 'AS THE STATin\ KAUIliS OF INFLUENCE,') "
FORMAT COP»')G^AM INPUT SPECIFIES ', F5,l,
& 'A3 THt GRID RADIUS OF I'.FLUEN'CE . ' ) ------
FORMATC 'OPROGRAM INP^T SPECIFIES ', FS.I,
&-' ' AS THE RADIUS OF INFLUENCE INCREMENT',"')
FORMATC'OThE CONVERSION FACTOR FOR REACTIVE HYDORCARBON3 IS ',
" & F5,i/' THE coNvt'psiON FACTOR FOR UNREACTIVE-MYCROCARBONS'T-
125
126
-------
n
91
SOURCE CARD LISTING FOR PROGRAM QUAL
(Cont'd 16)
> IS ', F5,l)
IN^UT STATION-VARIANCE VALUES FOR «, A3,
20X, 3ia>
93 FORMAT fix, IU, _
90 FORMAT(1H ) ' ' '
95 FflRMATUX, Ail, 6(UX, F6.2))
A I A
C LOAY,
C LDEPTH
C LF1LE
C LHGHT
C LxGuR
C LMONTH
C LPATT
C LSTAT
C LSTAMT
C LWARN
C M
OGRAM DEPTH ******
S MIXING DEPTH DATA AND CALCULATES MIXING DEPTH GRID
Y 0, C. WHITNEY FOR SYSTEMS APPLICATIONS, INC,
INDIVIDUAL INVERSION HEIGHT READING
1973 .-'INITIAL PROGRAM DOCUMENTATION •"
RAM IS THE PROPLRTY OF SYSTEMS APPLICATIONS, INC,
RAM IS BRITTEN. IN FORTRAN IV FOR THE ISM 360/370 ~ "
RAM TAKES AS INPUT A CONTROL CARD AND A SET OF MIXING
TA CARDS. IT PHI1DUCES AS OUTPUT A LISTING OF THE COR-
MPU1 DATA AND A GRID OF MIXING DEPTHS,
THE SET OF A COEFFICIENTS FOR THE EQUATION Y = AX * B
THE SET OF B COEFFICIENTS FOR THE EQUATION Y a AX + B
A FUNCTION TO CALCULATE THE DISTANCE FROM POINT" TO LINE "
INPUT TIME OF A STATION READING
DO-LOOP UH LOCAL INDEX ..-.-.. ._ .- . ... .
FILE NUMBER FOR DEPTH OUTPUT
A SET OF INTEGERS TO USt AS LABELS"
FILE NUMHER FOR PRINTER OUTPUT
FILE NUMBER FOR CARD INPUT
DO-LOOP OR LOCAL INDEX
A FUNCTION TO CALCULATE MIXING'DEPTH FOR A SQUARE
THE CORRELATED MIXING DEPTH AT EACH STATION
THE MIXING DEPTH OVER THE OCEAN '"
THE "IXING DEPTH OVER THE SAN GAPRIEL MOUNTAINS
THE MIXING DEPTH OVER THE SAN FERNANDO' VALLEY
THE MIXING DEPTH OVER THE SANTA MONICA MOUNTAINS
THE MIXING DEPTH BETWEEN HAWTHORNE AND COMMERCE
THE MIXING DEPTH BETWEEN COMMERCE AND EL MONTE
THE MIXING DEPTH BETWEEN EL MONTE AND SAN GABRIEL ~" ' —
THE GRID OF MIXING DEPTHS
INPUT U'!E UF A "SI A HUN READING
INPUT VALUE OP A STATION READING
NUMERICAL REGION IDENTIFIERS "' — -
XIXIKG otPTH VALUE OF AN INDIVIDUAL SQUARE
PC-LOOP OR LOCAL l^DfX
CHFCK VALUE FOR DAY OP THE MONTH
FI.AG 10 SIGNAL THAT FIRST STATION CARD' HAS BEEN READ
CHECK VALUE FOR MONTH OK THE YEAR
ALPHABETIC REGION IDENTIFIERS
CHECK VALUE FOR YEAR
DO-LOOP OR LOCAL INDEX " ' "~ "
INPUT OPTION TO REQUEST PRINT OF CORRELATED VALUES
INPUT OPTION TO REQUEST 'PRINT OF INPUT DATA
DAY OF THE MONTH DATA WERE TAKEN
INPUT OPTION FLAG TO PUT CALCULATED DATA TO FILE
INDIVIDUAL INVERSION HEIGHT READING
INDIVIDUAL TIME READING
MONTH OF THE YEAR DATA *ERE TAKEN £
INPUT OPTION TO PRINT INTEHMEDIATE GRID PATTERN -' -
INDIVIDUAL STATION NAME
INPUT OPTION FL»G TO REQUEST PRINT OF HARNING MESSAGES
DO-LOOP OR LOCAL INDEX
MAXIMUM Ml*iBE». OF DATA ITEMS PER "STATION •
128
-------
_SOURCE.CARD .LISTING .FOR JP.ROGRAM DEPTH .__
_CCont.'d 2). _____ _________ SOURCE CARD^LISTING FOFL PROGRAM. DEPTH-
_C.Cont'd. 3)
r'l -
c
c
c
__c.
c
- c
c
c
~~c
c
c
c
~ c
_c
c
c
"c
_c
c
_c
c
c
" c
HAXDPT MAXIMUM ALLOWED MIXING DEPTH-
MAXHR - MAXIMUM ALLOWED HOUR READING "
MAXSQR MAXIMUM NUMBER OF SQUARES IN GRID
MAXSTA NUMBER "OF INPUT STATIONS
MHOUR HOURLY INTERVAL FOR CORRELATION
MINDPT '~MINIMUM ALLOWED MIXING DEPTH " "
MINHR MINIMUM ALLOWED HOUR READING
HINSQR "-MIMMUM NUMBER OF SQUARES IN GRID
N DO-LOOP OR LOCAL INDEX
NAMSTA~ LIST OF STATION NAME'S "
KOATA LOCAL INDEX FOR NUMBER OF STATION DATA HEMS
NENDHR — INTERNAL REPRESENTATION OF ENDING HOUR
NFSTMP STARTING HOUR REQUESTED BY USER __
NHOUR ' ' HOURLY REPRESENTATION FOR PRINTOUT
NLSTHR ENDING HOUR REQUESTED BY USER
NSEAO NUMBER OF HEADINGS AT EACH STATION
N3TRHR_ INTERNAL REPRESENTATION OF STARTING HOJJR
NXSQR "~ NUMBER OF SOU'RES IN X-DIRECTION
NYSQR NUMBER OF SQUARES IN Y-DIRECTION
XHOUR " HOURLY INTERVAL FOR CORRELATION
XLOC LOCATION OF SQUARE IN X-OIRECT10N
YLOCLOCATION CF SQUARE IN Y-DIRECTION
DATA IPRINT / 6/
OAT4 jOEpTH f 8/ -------
C DEFINE MISCELLANEOUS DATA VALUES
DATA MAXSTA ~/3/ ; '
DATA MAXDAT /15/
DATA MINHR
DATA
DATA
" DATA KFLAG /O/
/25/~
C DEFINE FUNCTIONS FOR DISTANCE AND VALUES
D1ST(A, B, X, Y) n 3URTCX * X + (B »"Y) "**" 2~-
& (A * (Y « B) * X) ** 2 / (A * A + 1,0))
JCALCtJVALl, JVAL2. Al, 81, A?, B2, X, Y) a WALT *
& MVAL2 - JVAL1) / (DIST(A2, 82, X, Y) / OIST(A1, 81, X,
READ (IREAD.l) LWARN, LF 1LE, "LDATA, "LCORR," LPATT, LGRID",
_ & NXSOR, NYSQR, NFSTHR, NLSTHR, MINDPT, MAXDPT_
c TEST LIMITS ON INPUT VALUES
IF (NXSUR ,G(., MINSKR .AND, NXSQR ,LE, MAXSOR) 60 TO 110
IF (LWARN ,EO. 0) GO TO 105 " ----- — -
WRITE (IPRINT,ID NXSOR _
(IPRINT,19) MIN3QR",' MAXSQR,~MAXSOR~
= MAXSOH
Y) * 1,0)
105
~
SET DIMENSIONS
DIMENSION NAMSTA(3), LSTAHT(3), JREAO(15,3), JHOU*U5,3), NREAO(S)
""" DIMENSION JREG(25,25), KREG(IO), HOUR(15,3), JGRIO(25,25)
DIMENSION JD£PTH(21,3), INT (25), ACOEFF_(_7_)_,__8COE^F(7J__
"DEFINE REGION NAMES
DATA KREG /2HA1, 2HA2, 2HA3, 2HA4, 2HA5, 2HA6, _ -
B 2H8 , 2HC , 2HD , 2HE /
DEFINE STATION NAMES _ ,_
DATA NAMSTA /3HHAW, " JHCHM, 3HELMA
DEFINE STATION ELEVATIONS
""' DATA LST'HT / 60, 160,"300X
CLtAR INPUT KtCIEVtRS _ __ _. . .
DATA JREAD /15*0/ '"
DATA JHOUR /1S*0/
DATA NREAO /3*0/ " - -— -
NXSOR
IF
,Gfc. MINSQH ,AND, NYSQR ,LE, MAxsnR)'GO"To i2o~
IF (L"ARN ,EQ, 0) GO TO 115
WRITE. (IPRINT,12) NYSCR
WRITE (IPRINT,19) MINSOR, MAX3I3R, MAXSQR
"NYSQH
IF (NFSTHR ,GE, UlNHR .AND, NFSTHR ,LE, MAXHR) 60_JO 130__ ___ __
IF (LhARN ,EQ. 0) CO TO 125
KRITt (IPRINT, la) NFSTHR __ _ ___ _
WRITE (IPRINT, 19) IINHR, MAXHR, MINNS
DEFINE LINEAR F'JUATION COEFFICIJNTS _ __
"" DATA ACOEFF /-1,00. 0.00, -1,677 -0,70, -0,6fl, -0,53,
DATA BCOEFF /ao.o, s.o, 20,0, is.o, 21,0, 27,0, 2e,o/
SET INTEGER VALUES
DATA INT /I, 2, 3, H, 5, 6, 7, 8, 9, 10, 11, 12, 13,
"8 16, 17, 18, 19, 20, 21, 22, 23, 24, 25/
DEFINE REGIONAL VALUES
OATA'JREG /20*7,5*1,
,38/-
15,
18*7,5*1,2*1, _ _
16*7,1*1,5«0,
7*7,2*3,7*2,2*1,7*1,
7*7,}*3,5*2,9»a,l*5,~
6*7,6*3,9*1,5*5, _
"5*7,u«3,8*«,8*5,"
«*7, 2*3, «•«, 10*5,1*6,
0*10,7*«,9*5,5*6,
9*10,8*5,6*6,
9*10.1*5,7*6,5*8,
10*9,5*6,10*8,
17*7,5*1,3*1,
10*7,5*2,4*1,6*1, "
7*7,3*3,6*2,9*1,
'6*7,5*3,2*2,9*1,3*5,
6*7,1*3,9*4,6*5,
5*7,3*3,8*1,9*5, —
3*7,2*3,8*1,9*5,3*6,
5*10,5*4,8*5,7*6,
9« 10,6*b,10*6,
9*10,2*5,6*6,8*8,
6*9,5*6,12*8,
115
120
J"
130" 'IF (NLSIHR ,GE, "MINHR",AND," NLSTHR ,LE
IF (LWARN ,EQ. 0) GO TO 135
~ WRITE. (IPRINT,is) NLSTHR
WRITE (IPRINT,19) MINHR, MAXHR, MAXHR
"135 NLSTHR a MAXHR " ------
C WRITE FIHST PAGE HEADING AND CONTROL DATA
"ISOWRITE (IPRINT,21)
IF (LwARN .NE, 0) WRITE (IPRINT,33)
IF (LwARN ,EO, 0) WRITE "(IPRINT,34)
IF (LFILE .NE, 0) WRITE (IPRIN-T,26)
IF (LFILE ,EO, 0) WRITE (IPRINT,27) ~
IF (LOATA ,NE, 0) WRITE (IPRINT,22)
IF (LOATA ,EO, 0) WRITE (IPRINT,23)
IF (LCDRR ,NE, 0) WRITE (IPRINT,21)
- —— IF CLCORR ,EQ. 0) WRITE (IFRINT.25) ~
IF (LPATT ,NE. o) WRITE (IPRINT, 28)
IF (LPATT ,EG. 0) WRITE (IPRINT, 29)
IF (LGRlD ,NE, 0) WRITE (IFRINT,31)
IF (LGRID ,ED. 0) WRITE (IFRINT,32)
WRITE (IPRINT, 37) MINOPT, HAXOPT
WRITE (IPRINT, 38) NXSGR. NYSOR
WRITF (IPRIN7,39) NFSTHR, NLSTHR
C SET FILE NUM3ERS
DATA IREAD / 5/
"C'SET SOME INTERNAL VAHIAPLES
NSTRHR = S'FSTMR / 100 + 1
-- NE\'OH« = NLSlMH / 100 + 1
"RITE (IPRINT, 16)
— —C-READ STATION DATA, CHECKING FOR FIHST CARD-
. . 130
-------
_SOURCE_CARD..LISTING_F.OR_PRO.GRAM_DEPTH (.ContLd.4) SOURCE._CARD LISTING_FOR_PROGRAM_nEETH CContld_5}_
I • 160 READ (IREAO,2,END»2aO) LYEAR, LMONTH, LOAY, LSTAT, LHOURf UH6HT WRITE UPRINT,«8)
_ JF- (KFl;A5-;NEt--0)-Gr]-To-j65 — 240 CONTINUE
I C 3AVE FIRST DATE TO CHECK OTHERS C CHECK TH»T EACH STATION HAS AT LEAST ONE VALUE
-KYEAR-"a-L'YEAR 270 WRITE
KMOMTH B LMONTH IF (NREAO(l) ,GT. 0) GO TO 273
KDAY = LD4Y" C HAWTHORNE HISSING' •- USE "COMMERCE, -THEW~EL~MONTE
KFLAG =1 K e 2
~~C CHECK 04TE -- WITE WARMING MESSAGE IF MISMATCH Nf>4rA s NRl'At)(K) ' - - - --
IfcS IF (L«4PN ,LO, 0) GO TO 168 ' IF (N.')ATA ,GT. 05 GO TO 272
'"'IF (LYEAH ,EO. KYEAR .AND." LHONTH ,EQ, KMONTH .AMD, K e i " '"
& U04Y ,EO. KDAY) CO TO 168 . .NDATA a N"f.40(K)
WRITE (lPRINT,«n LSTAT, LHOUR, LYEAR, LMONTH, LOAY, KYEAR, JF (NOATA ,GT, 05 GO TO 272
& KlQNTH, KOAY __C NO DATA AT 4n. -- MIXING DEPTHS CANNOT BE CALCULATED
~~C~IDENTIFY THIS STATION ~" " ' WHITE (IPRINT,52> " """
J68 00 170 K s 1.MAXSTA _ I GO TO 900
~IF~(NAMSTA(K)",EO.~ WATS' CO TO ~18"0 I C MOVE" THE" DATA '
170 CONTINUE ' _J7? _ op 275 J " IfNPATA
C "STATION NOT FOUNO"»»~WRITE WARNING HESSAGE 1 " JREADCJ.l) a JREAD(J",K")
IF (LWARN ,EO, 0) GO TO 160 I JHOUR(J,1> s.JhOURCJ.K^
wRITt (IPRINT.U2) LSTAT HOUR(J,O » HOuR(J,K)
GO TO 160 _ _ ' 273 CONTINUE _
c fN'cREME'JT OATA'CGU'NTIR AND' CHECK~FOR OVERFL'OTI ' "NRE4D(i) VMREAD"(KT
180 NRE40(i<) B NKEAOCK) +1 i C XRITE WARNING HESS4GE
" " "
IP (NREAp(K) ,LE, MAXOAT)" GO^TO"190 "~ " "~"IF (LWARS ,EO. 0) GO 'TO "275"
IP (LWA»N ,EQ, 0) GO TO 160 __ • _ _ WRITE (IPRINT,5tt) NAMSTA(l), NAM8TAJK)
WRITE (IPRINT.«3) MAXDAT," USTAT" ~" " 475" "IF (NKEAp(2) ,GT, 0) GO "TO 280 "
GO TO 160 ' : C COMMERCE MISSJNG •» USE EL HQNTE, THEN HAWTHORNE
C CHECK "TIME"OF" O'A'TA RE'"AO'ING •• K »
190 IF (LHOUR ,GE, MINHR ,AND. LHOUR ,LE, HAXHR) GO TO 210 __ • _ NDATA a NREAD(K) _
JF (U'ARN ,EO. 0) GO TO 160" ~~ ' "IF (NDATA" ,GT." 0) GO T0'277
*IRITE (IPRINT,<4a) LHOUR, tSTAT, MJNHR, MAXHR _ _ . _ K B 1
" GO TO 160 ----- , --NR4TA a NREAD(K)
C CHECK LIMITS ON HEIGHT V*l HE _ _C PQVE THE DATA .
'210 LDEPTH = LHGHT •• LST4M|(K) " ' "" ...... " ~277"~ 00 ?7i? J - I.MOATA
IF (LOEPTH ,GE, M1NDPT) GO TO 220 JHt 4D ( J , ? } s JPEAOCJ.K)
" IF (LWAKN ,EO. 0) GO TO 215 JHOUR(J.J) = JHOHS(J,K)
WRITE (IPRINT,«S) LDEPTH, LHOUR, LSTAT HOuRtJ.?} » HObH(J,K)
" WRITE (IPSINT»19) MINRPT, MAXOPT, MINDPT ' '276 ' CtllJTl'JUE " ..... ~
215 LHGHT a MINOPT + ISTAHT(K) _ _ __ _ N«F:AO(3) a HHEAO(K) _
220 IF (LPEPTH ,LE,'KAXOPT) GO T0"230 ^t'^'RlTE wARMlMG' MESSAGE '.
IF (LWARN ,EO. 0) GO TO 225 IF (L'"ARN ,EO. 0) GO TO 280
----- WRITE CIPRINT.05) LOEPTH, LHOUR,"~LSTAT ----- --------- ~ ~~~ WRITE (IPRINT, 51) "NAMSTA t2)",~N»MSTAXKr
WRITE (IPRINT, 19) MINOPTf MAXDPT» MAXDPT 280 IF (N"U»0(3) ,GT, 0) GO TO 290
225 ---- LWGHT a HAXDPT + L8TAHT (K ) ' -' ---------------------- C "EL"~MONTE HISSING — USE"COMMERCE -----
C SAVE VALUES IN ARRAYS K a 2
230" " NDATA * NREAD(K) --------- " ----- NOATA B-NREAD(KJ --
JREADCNDATA, K) s LHGHT • LSTAHT(K) C MOVE THE DATA
JHOMRtNDATA. K) a LHOUR ..... ~ 00 28^ J'«'1,NOATA
HOURtNDATA', K) a LHOUR / 100 + FLOAT (MOO(LHOUR» 100)) / 60,0 _ JRE4D(J,3) a JR£AO(J,K)
160 " "" ~~ JHOUKCJjJ) s JHOUR(J,K)
C PRINT INPUT VALUES, IF W4NTEO HOUR(J,i) a HOUR(J,K)
~~ -- IF^(LOATA'.EOr'0)"GO T0~270 -- —283 CONTINUE
WRITE (IPRINT.01) LYEAR, LMONTM, LDAY NREAD(3) » NREAD(K)
"DO 260 K = 1,MAXSTA ' ~C~WRITE' WARNING-MESSAGE ;
NDATA a NREAO(K) ' If (LWARN ,EO. 0) GO TO 290
IF (NDATA ,LT. 1) GO TO" 360 WRITE "(IPRINT,5a) NAMSTA (SJ
0" 2?>0 J = i.'JDAT4 . C CORRELATE THE STATION READINGS OVER ALL HOURS
LHG'-IT = JKFTUJ.XJ + LSTAHTtKI ' - —290— CO 360 K = l.i'-AxSTA
WRITE (IPBI'.'T,«9) NAHSTA(K), JHOUR(J,K), LHGHT ND4TA a NRE*l)(K)
250 CONTINUE . DO 3SO J s ^4STR;^R, NENOHK -
__ 131 . 152
-------
_.SOURCE_CARD LISTING..FOR.PROGRAM DEPTH.._.:
._ (Cont'd 6) . SOURCE CARD_LISTING. FOR_PROGRAM..DEPTH_
JContJd _?)._
IF (NOATA ,GT, 1) GO TO 310
~JDEPTH(J,K) s JREAD(1,K)
GO TO 350
—ITO MHOIJR a 100~*"(J '-~1)
XHOUR a J . 1 ^^
IF (MHOUR ,GT,~JHOUR(r,K)r GO "TO 320 '~ ' "
N 3 2
~ GO TO 3«0 * .- _ - -
320 00 330 N s l.NDATA
IF (HHOUR ,LT, JHOUR(N7><))~ GO~TO'380~~"
330 CONTINUE _
N s NOATA ~" -"
380 JDEPTH(J,K) a JREAD(N-l.K) + (JREAD(N,K) . JREAO(N-1,K))
g, (HOUR(N,K) » HOUF(N-1»K)) * (XHOUR - HOUR(N*1,K)) '
C TEST CALCULATED VALUE FOR LIMITS
IF (J'jfcPTHU,*) ,LT; MINDPT) JDEPTH(J,K)-O~MINDPT
IF (JDEPTH(J.K) ,GT, MAXOPT) JUE.PTH(J,K) a MAXOPT
"350 CONTINUE - • - - - • - -- - - --.
360 CONTINUE
'"C PRINT THE CORRELATED DATA IF WANTED ~ ~" "'
. IF (LCURR ,EO. 0) GO TO 390
'370"
(IPRINT.51) LYFAR, LMONTHr~L~DAY7~CNAMSTA C J)7"J~=~I7MAXSTA"r
00 370 K = NS1RHR, NENOHR
NHOUR = 100 * (K - 1) ' "~ ""." - -----
WRITE (IPRINT.b.5) NHUUR, (JOEPTH(K,L), L a l,MAX3TA)
CO'JTI^UE " "
C SET T-IE DEPTH OVER THE OCEAN
"390 " JDPTHH 2 J[)tPTH(NSTRHR,l)
c CALCULATE THE GRID ON AN HOUR-BY-HOUR BASIS
00 590 J s NSTRHR, NENDHR '
NHOUR a 100 * (J - 1)
C WRITE HEADER If WANTED ' " -.----. - . -
IF (LPATT ,NE, 0) WRITE (IPRINT»71) NMOUR» LYEAR, LHONTH,
~C~"3E7 THE FIXED DEPTHS FOR THIS HOUR~ ~~ ~
JOPTH1 = JDEPTHCJ.l)
GO TO 520
C HAWTHORNE TO COMMERCE'-
flUO JVAL a JC'LCtJOPTHl, JDPTH2, ACOEFFU), BCOEFF(fl),
S ACOEFFC5)rBC.OEFF(5)T~XLOC7~YLOC)
GO TO 520
"C COMMERCE TO EL MONTE " " '
«50 JVAL a JC4LC(JDPTH2, JOPTH3, ACOEFF(5), BCOEFF(S),
& ACOEFF(fc), BCOEFF(6), XLUC, YLCC)"
GO TO 520
C'EL MONTE TO SAN GABRIEL'~MOUNTAINS
a60 JVAL = JCALC(JDPTH3, JDPTHC, ACOEFF(6), BCOEFF(6),
& ACOEFF(7), BCOEFF(7), XLOC, YLOC) ""
GO TO 520
C OCEAN '" '
JI7_0 JVAL <> JOPJHB_
"00 TO 520
c SAN GABRIEL MOUNTAINS
"U80 JVAL = JDPTHC
GO TO 520
"C 3AN FERNANDO VALLEY
U90 JVAL a JOPTHD
GO TO 5?0 "
C SANTA MONICA MOUNTAINS
'510 JVAL = JDPTHB + JOPTHE V ((22t5"."YL~OC)-7
& SQRT((XLOC - 1.5) ** 2 + (YLOC • 15,5) «* 2) » 1,0)
C TEST FOR CALCULATED DEPTH OUT OF RANGE ~~~"
_S20 IF (JVAL ,LT, MINDPT) JVAL 0 MINOPT
LDAY
JOPTH2
JDPTH3
JOPTHO
•JDPTHC
"JORTHfc
JDEPTHCJ.2)
JDEPTH(J,3)
"IF (.JVAL ,(,T, MAXDPT) JVAL a MAXOPT :
jr,RID(L,K) a JV4L
C PRINT OUTPUT IF WANTED " " "
IF (LP*TT .ME. 0) WRITE (IPRINT.72) INT(L)» INT(K)>
"' ' t. KREG(M), JVAL
5BO__CONTINUE
"550 CQNTlNUt""
C PRINT GRID IF WANTED
JDPTHJ + J * (JDPTH3
JD?T«D • JDPTH9
« JOPTH2) / 5
_C SET UP THE S'JUARtS IN THfc GRID
00 550 N s 1, NYSQR
K a NYSQft • N + 1
YLOC = FLOAT(K) • 0,5
DO 510 L = 1. NXS3R
XLOC s ' FLOAT (L) - 0.5"
C BRANCH ON REGIONAL DESIGNATION
Ma JPEG(L.K)
GO TO ("10, HSO, U30, OUO,_a50, U*0,_a70, ««0, «90, S10)(
C""SOUTH COAST
«10 JVAL = JC»LC(JDPTH8, JDPTH1, ACOEFF(l), BCOEFF(1),
& ' ACOfcFF(«), BCOEFF(U),"XLOC,~YLOC)
GO TO 520
c LONG BEACH " "
020 JVAL = JCALCtJDPTHH, JOPTH1, ACOEFF(2), BCOEFF(2)i
& ACOEFF(a), BCOEFF(«), XLOC, YLOC)
GO TO 520
"C BEACHES " --_— — — - —
a30 JVAL = JC'LCCJDPTHH, JDPTH1, ACOEfF(J), BCOEFF(3),
& ACOEFF(U), BCOEFF(I), XLOC, YLOC)
._ . .. 133
IF (LGRIO ,E<5, 0) GO TO 590 "
»RITE UPRINT.BIJNHOUR, LYEAR, LMONTH, LOAY, (INT(M), M
00 560 K e 1, NYSOR ......... --- ...... ~ '
L = NYSOR . « » i
WRITE (I PR I NT, 82) INTCL )7~'CJGRID CM;L~)7~TT B-I— NXSOR)
580 CONTINUE
C FILE OUTR'.'T IF WANTED ------- : ---------------- ~ --
IF (LFILE ,EQ, 0) GO TO 590
~ ~ 00 585 L a l.NYSDR -------------------- - '
00 583 M s
' I
I
1
I
1,NXSQR)
_._ ,
WRITE" (IDEPTH)- NMOURV~INTtM)-,-lNT(U)— JGRIOCNiL)
CONTINUE
CONTINUE ' -------- ~ ---- •
CONTINUE
C END OF PROGRAM
900 STOP
583
"585
590
1 '
2
11
FORMAT f21t> "IX-.-211 r~lX, -2H,~2X,- 615)—
FOH*AT(iI2, IX, A3, 215)
FCJRi'ATC'OPROGHAM INPUT SPECIFIES -«,"15,-
& ' SUUARtS IN X-DIRECTION.i)
12 FORMATflOPRHGRAM INPUT SPEC IFIE3 •> 15,
f. ' SOU'RFS IN Y-DIRECTION, ' )
ia FORMAT c' OPROGSAI INPUT SPECIF it. s-:»-,- is,
i ' AS THL STARTING MPUP,')
15 FORMAT (I OPRUGffAM INPUT SPECIFIES ', IS,--
. .. . 134
-------
SOURCE CARD LISTING FOP. PROGRAM MIH'TI!
(Cont'd 8}
22
23
2«
2s
26
27
26
29
31
S2
S3
J«
"37
38
"
39
Ul
il2
03
& ' AS T«E ENDING HOUR, ')
FORMATC' THIS IS OUTSIDE THE PROGRAM LIMITS OF ', J3,
& ' THROUGH ', IS, ',', /, ' VALUE HAS BEEN RESET TO ', IS,
-&- I 'AND PROCESSING'HAS BEEN 'CONTINUED, ')
FOHMATf'1M1XING DEPTH PATTERN CALCULATION'//)
~"FORMATC'OSTATION INPUT DAT* KILL BE PRINTED,')
FORMATr'03TATION INPUT OAT* KILL NOT BE PRINTED,')
FORKATC CORRELATED ST'TIHN DATA XILL BE PRINTED.')
FORMATC CORRELATED STATION DiTA vj\ I MOT HE'. PRINTED,1)
CALCULATED MIXING DEPTH DATA "ILL RE FILED,')
CALCULATED MIXING, DEPTH PATA /.ILL NOT «E FILED,')
FORMATC OIMOIVIOUAL GBID ?ATA POINTS WILL BE PRINTED,')
SOURCE CARD LISTING FOR PROGRAM BOUND
* PROGRAM 9 0 LI N D ****** •
FQR-ATC
C CALCULATES POLLUTANT BOUNDARY CONDITIONS
C~>;RITTEN-BY D,~ C;~WHITNEY FOR SYSTEMS APPLICATTONST^NC;
C 5 APRIL 1973 •- INITIAL PROGRAM DOCUMENTATION
~C~THlg"PROGRAM 'IS THE PROPERTY OF SYSTEMS APPLIC»TIONS~INC;"
C THIS PROGRAM IS WRITTEN IN FORTRAN IV FOR THE IBM 360/370
THIS OKOGR4M TA^tS AS
OI'-'DIVIDUAL GRID C t T A POINTS *ILL NOT RE PRINTED,')
Ob
«7
_«8
t9
bl
52
" S3
5<|
~ "
71
72
"81
~62
FORMATf "IXING DEPTH GRID WILL BE PRINTED,')
FORM4TC MIXING CEPTH GRID "ILL NOT BE PRINTED,<)
-.'ARN1NG MESSAGES i*'ILL BE PRINTED,1)
__ FORMATC 'OWARNING MESSAGES WILL NOT BE PRINTED,') _
~ FO.RMATC IOTHE MINIMUM ALLOWABLE MIXING DEPTH" wiLL~BE~rn5»~
8. _ ' FEET,1/' THE MAXIMUM ALLOWABLE MIXING DE'PTH_HILL J3E '
& 15, ' FEET, ') " ..---,
POR"ATC'OX-AXIS IS ', IS, ' SQUARES LONG.'/ __
"& ' Y.iXTS IS ', 15, ' SQUARES HIGH,')
FOR"AT('OOATA COVERING THt TIMF SPAN ', IS,
A ' THROUGH i, 15, ' HOURS "ILL 9t PROCESSED,')
FORMATC'1 INPUT DATA FOR INVERSION HEIGHTS ', 20X, 3I2//
i ' STATION TIME HEIGHT', //)
FORMATCOSTATION ', A3, ' IS NOT IN LOCATION LIST,',
'"&' " ' STATION INPUT DATA NOT ACCEPTED,')
FORMATC'OMQPE THAN ', 13, ' INPUT DATA ITEMS FOR STATION NA
& I, EXCESS DISREGARDED. I)
FORMATC'ODATA INPUT TIME OF ', IS, ' HOUR FOR STATION ', A3,
& ' IS UUTSIDE', /, ' RANGE OF ', IS, 'THROUGH I, 15,
8, ' HO'IRS. INPUT ITFM WOT ACCEPTED.')
FORMATC ' OPH'JGHAU INPUT SPECIHES MIXING DEPTH ', IS,
i 'AT ', IS, ' HQUH FOR STATION ', A3, ',')
FHRMATUnl )
POR.MATC'OFOR STATION ', A3, ' AT ', IS, ' HOURS THE LISTED DATE
& 312, ' 19 IN CONFLICT *ITh THE ORIGINAL DATE ', 312, ','/)
FORMAT C1H )
FORMATC3X, 'A3, ~6X,"I«, «x;~I5)
FORMATC'1CQRRELATED MIXING DEPTHS FOR ALL STATIONS', 20X, 312,
8. ' HOUR' , 3C7X, AJ), //) ' ' - .
poRMATC'iNQ INPUT DATA FOR ANY STATION -. JOB TERMINATED.')
FORMATCI5, 3C6X, 1"))
FORMATfiflMO I'.Pi.lT DATA FOR STATION ', A3, ', DATA FROM STATION
& A3, ' WUL BE L'SFO INSTEAD,'/)
FORMATC'1CALCULATEO MIXING DEPTHS AT ', IS, ' HOUR', 20X,
& ' COLUMN SO* REGION DEPTH', //)
FORMATC3X, 12, 5X, 12, "X, 42, «X, IS)
•"FORMATC 1MIXIMG DEPTH GRID FOR ', IS, ' HOUR',. 20X, 3I2//
& 6X, ?5IS)
"" FORMATC/, 2X, 'I2,"3Xr25I5) "~I ~
END
135
PUT « CONTROL CARO. 4 SET OF INPUT STATION
C COORDINATE CARPS, AMD A SET OF POLLUTANT CONCENTRATION DATA CARDS, ' '
C IT PRODUCES AS OUTPUT A LISTING OF THE INPUT CARDS AND, OPTIONALLY,
C A PRINTOUT OF POLLUTANT CONCENTRATION VALUES AT THE GRID BOUNDARIES,
C
THE RATE OF DECAY FROM SOME INITIAL CONDITION
THE FRACTION TO BE MULTIPLIED BY THE STATION READING
"FACTOR TO CONVERT REACTIVE 'HYDROCARBONS FROM C NUMBER BASE'~
FACTOR TO CONVERT UNREACTIVE HYDROCARBONS FROM C NUMBER BASE
'THE UPPER PORTION OF THE GRID CALCULATION" "" " '
THE LOHER PORTION OF THE GRID CALCULATION
'THE GRID USED FOR PRINTING THE POLLUTANT CONCENTRATIONS'"'
DO-LOOP OR LOCAL INDEX
"FUE NUMBER FOR 80LINO DATA "OUTPUT "
DO-LOOP OH LOCAL INDEX
A SET OF INTEGERS TO USE AS LAP.ELS
FILE NUMBER FOR PKINTER OUTPUT
FILE NUMBER MIR QUAL DATA OUTPUT
FILE NUMBER FOR CARD INPUT '
"INPUT VALUE OF THE X-COORDIN.A Tf
DO-LOOP OR LOCAL INDEX
A SINGLE BLANK CHARACTER FUR OUTPUT
THE NAMES OF THE BOUNDARIES
DO-LOOP OR LOCAL INDEX --
SUMMATION VALUE FOR "ETHANE
T«E HOURLY ARRAY OF INPUT VALUES FOR A STATION'
REGIONAL NUMERICAL DESIGNATION
INPUT VALUE OF THE Y-COORPINATE "" "
SUMMATION VALUE FOR TOTAL HYDROCARBONS
DO-LOOP OR LOC*L INDEX ' ""'
DAY OF THE MONTH DATA WERE TAKFN
"POLLUTANT IDENTIFICATION ON ANY INPUT CARD
FLAG TO pfcNOTE THAT FIRST DATA CARD HAS BEEN READ
OO-LOOP OR LOCAL INDEX " '' '
MONTH OF THE YEAR DATA KF.RE TAKEN
THE ALPHABETIC REGION IDENTIFIERS "
STATION IPF\TIFIC'TION ON AM INPUT DATA CARD
YEAR DATA rfESE TAKEN ~
DO-LOOP OR LOCAL, INDEX
TEST VALUE OF DAY FOR DATE TESTING
INPUT OPTION FLAG FOR REQUEST TO FILE RESULTS ON DISK
INPuT OPTION FLAG FOR REQUEST OF GRID 'PRINTOUT '
DO-LOOP OR LOCAL INDEX
"TEST VALUE OF MONTH FOR DATE"TE3TING
POINTER TO METHANE IN POLLUTANT NAME LIST
INPUT OPTION FLAG FOR REQUEST OF POLLUTANT'PATTERN "OUTPUT-
INPUT OPTION FLAG FOR REQUEST TO PRINT STATION COORDINATES
POINTER TO TOTAL HYDROCARBON " IN POLLUTANT'NAME' LIST "
INPUT OPTION FLAG TO REQUEST PRINTOUT OF WARNING MESSAGES
TEST VALUE OF YEAR'FOR'DATE"TESTING'
OO'LOPP OR LOCAL INDEX
C «ALLHR-'THE 2a-HQUR DAY ' ~
136
-------
SOURCE CARD LISTING FOR PROGRAM BOUND.
(Cont'd 2)
MAXEMM MAXIMUM NUMBER OF POLLUTANTS
MAXHR MAXIMUM HOUR VALUE TO BE PUT IN BY USER
WAXPNT MAXIMUM VALUE AN INPUT DECLARATION MAY HAVE
MAXSQR~~HAXIMUH~ NUMBER OF'SQUARES IN ANY GRID'DIRECTIONT
MSX3TA MAXIMUM NUMBER OF STATIONS TO BE INPUT BY USER
HEMM " POLLUTANT IDENTIFIER FOR INPUT LIST
MINIMUM NUMBER OF ALLO^f-D POLLUTANTS
MINIMUM HOUR VALUE TO RE PUT IN BY USER
MINPNT MINIMUM VALUE A POINT DECLARATION MAY HAVE ___________
MINSGR— MINIMUM MiMbF.R OF SQUARES IN' ANY GRID DIRECTION
MINSTA MINIMUM NUMBER OF STATIONS TO BE INPUT BY USER _
MM DO-LOOP OR LOCAL INDEX
MSTA STATION IDENTIFIER FOR INPUT LIST
N ' DO-LOOP OR LOCAL INDEX
NAMEMM LIST OF POLLUTANT NAMES
NAMMTH ABBREVIATION FOR METHANE
NAMN02 _ ABBREVIATION FUR NITROGEN DIOXIDE
NAMN2 " ABBREVIATION FOR NITROGEN DIOXIDE '" "
NAMRHC ABBREVIATION FOR REACTIVE HYDROCARBONS
NAH3TA ~ AN ARRAY OF STATION NAMES " " """
N4MTHC ABBREVIATION FOR TOTAL HYDROCARBON
NAMUHC ABBREVIATION FOR UNKEACTIVE HYDROCARBONS"
N9ND THF ROUr'OARY LOCATION OF EACH STATION
"BOUND' 'THE NUMBER OF BOUNDARIES TO THE GRID "" , "
NUMBER OF POLLUTANT NAMES _ _
THE LAST STATION IN EACH BOUNDARY " " "
NENOHR INTFRNAL REPRESENTATION OF ENDING HOUR
NFSTHR ""STARTING HOUR VALUE REQUESTED BY USER"
NHBACK STARTING HOUR FOR BLO^N-HACK POLLUTION
NHbASE HOUR BEYOND WHICH NO FURTHER DECAY IS OBSERVED '
NHFnsw THE NUMBER OF HOURS FORWARD FROM THE WIND CHANGE
NHRS NUMBER OF HOURS TO BE PRINTED
THE HOUR OF THE WIND CHANGE
ENDING HOUR VALUE REQUESTED BY"USER
NUM3ER OF STATIONS REPORTING METHANE AT A GIVEN HOUR _ _
DO-LOOP OR LOCAL INDEX
THt CURPfcNT OR bASE HOUR INDfcX, WHICHEVER IS LE33
NUMBER OF STATIONS ACTUALLY READ IN BY USER "
THE FIRST STATION IN EACH BOUNDARY
'INTERNAL REPRESENTATION OF STARTING HOUR
STARTING HOUR INPEX FOR BLOWN.RACK POLLUTION
HOUR I'-'DEX BEYOND 4HICH NO FURTHER DECAY IS OBSERVED - —"
THE NUMBER OF HOURS INUFX FORWARD FROM THE KIND CHANGE
NUMBER OF STATIONS REPORTING TOTAL HYDROCARBON AT ANY HOUR
THE HOUR INDEX OF THE WIND CHANGE
NUMBER OF'SQUARES IN'X-DIRECTION
NUMBER OF SQUARES IN Y-OIRECTION
MEASURED AIR QUALITY ARRAY
THE INITIAL CONDITION AIR QUALITY VALUES
INPUT POLLUTANT CONCENTRATION VALUE '' ""
HOLDING AREA FOR COORDINATES
MI'.'flJM ALLOWABLE VALUE FOR ANY CALCULATED"VAR1 ABLE
LOCATION ON A BOUNDARY- - • — —
_. SOURCE CARD LISTING FOR PROGRAM BOUND (Co
DIMENSION QUALMC2fl,30,6), GRIDEMC25,0) , JBNDCO)
C ASSIGN LETTER DESIGNATIONS TO THE BOUNDARIES
~ "" DATA JBND X1HN', 1HS, 1HE, 1HW/
C ASSIGN LETTER DESIGNATIONS TO THE REGIONS
DATA XREG 'X1HA, 1HB", "1HCX " " "
C ASSIGN THE REGIONS
DATA JREG X2S*1, 25*2, " 15*1," 5*3'," 5*17~1&*2»
c SET THE INTEGER VALUES
DATA INT /l,2,3,«,S,6,7/8,9,10,H",I2r !3ri"a7J5>16T17V18»t9720r
B 21,22,23,21,25/
~C~~CLEAR THE STATION bOUNDARY"IDENTIFIERS~
DATA (-.START XU*OX
DATA ME^O X-l, •!, -1. -IX
C SET FILE NUMBERS
DATA TREAD X5X ' '
DATA IP&INT X6X
DATA IQUAL X"?X ' ' ' ~
DATA isiouND xiox
C DEFINE MISCELLANEOUS DATA VALUES
DATA NAMTHC XJHTHCX
DATA NAMMTH X3HMTHX
DATA NAMRHC /3HRHCX"""
DATA N'A-UHC XiHUHCX
DA I A NAMN02' X3HN02X
DATA NAMN2 X3HN2 X
DATA MAXEWM /6X
DATA MINE.MM /!/
DATA JHLANK XIH'X
DATA MAXSTA XJ2X
"~DATA HINSTA X«X-
SET PROGRAM DIMENSIONS
DIMENSION NAM3TA(30), 3TACC30), N8NOC30), DECAY(iO). 01SCNTOO)
DIMENSION JTHC(2U)» JMTH(2U), NTHC(30), NUTH(2B5, KREGO)
DIMENSION JREr,(2S,U), 01MT(25,a,6), NSTART(O), NEND(U)
DIMENSION NT*INO(30), NTBACKC30), NTFORWC305, NTBASE(30)
DIMENSION JPOINT(2AR.N ,EO. 0) GO TO 106
«RIU (IPR1NT,12) NYSQR ~"~
WRITE (IPRINT.19) MlNSQR, MAXSOR, MAXSQR
106" MYSQR = MAXSOS ' ~
C TEST LIMITS ON NUMBER OF POLLUTANTS
~I08 IF (MfMK .GE. MINI
LSTAT,~LPATTV~ UGRIOr
NSTA, NFSTHR, NLSTHR
.AND. MEXM -;LE,-MAXEMW}-GO-TO-nO
IF (L.'ARN ,EO. 0) GO TO 109
UPPINT,1&) NEMM
137
138
-------
SOURCE CARD LISTING FOR PROGRAM BOUND
(Cont'd 4)
SOURCE CARD LISTING FOR .RROGRAM BOUND (Cont'd
"'RITE UPRINT,19) MINEMM, MAXEK*. MAXEMM
'""1 109 NEMM a MAXEMM
' ' C TEST LIMITS OF NUMBER OF WIND STATIONS
~no" IF (NSTA ,GE, MINSTA .AND, NSTA ;i_£.' HAXSTA) 5o~TO~its—
IF (L«ARN ,EO. 0) GO TO 113
•(RITE UPRINT.U) NSTA
WRITE (IPRINT.19) MINSTA, MAXST4, MAX3TA
113 NSTA = MAXSTA •• —• "
C TEST LIMITS ON FIRST AND LAST HOURS TO BE USED
" 115 IF (NFSTHR ,GE, MI'JHR .AND, NFSTHR ,LE," MAXHR) 'GO TO" 120'
IF (LKARN ,EO. 0) GO TO 116
WPJTE (IPSINT.H) NFSTHR
WRITE fIPRINT,19) MINHR, MAXHR, MINHR
118 " NFSTHR = MINHR
_120_ IF (N'l.STHR ,GE, MINHR .AND, NLSTHR ,LE, MAXHR) _GO TO 125
IF (LfAKN ,EO, 0) GO TO 123'
WRITE (IPRINT,1S) NLSTHR
WRITE (IPRINT,19) "1NHR, MAXHR, MAXHR " " " "
123 NLSTHR = "AXHR
C READ THE POLLUTANT NAMES ""' ' "
; _125 READ (IHEAD.2) FACRHC, FACUHC, (NAMEMM(K), K e 1, NEMM)
C WRITE FIRST PAGE HEADING AND'CONTROL DATA "' "" ' "
WRITE (IPRINT,21)
IF ((.WARN ,NE, 0) WRITE (IPRINT,17)
, IF (L^APN ,tO, 0) '-RITE (IPRINT»18)
" " """ IF (LFILE ,NE. 0) WRITE (IPRIHT.U8) ' .. .
. IF (LFILE ,EQ. 0) WRITE (IPR1NT,U9)
"IF (LSTAT ,Nt. OJ'waiTE (IP'INT.38)'
IF (LSTAT ,EO, 0) WRITE (1PRINT,39) '
IF (LPATT ,NE, 0) WRITE (IPRINT,3«) "
IF (LPATT ,EQ. 0) WRITE (IPRINT>35)
" IF CLGRIO ,NE. 0) '-IRITF (IPRINT,36)
•_ IF (LGRIO ,EQ, 0) WRITE (IPRINT,37)
WRITE (IPRINT.2B) NFSTHR, NLSTHR
' '""" WRITE (IPRINT,27) N3TA, NEMM, (NAMEMM(K), K « 1,NEMM)
WRITE (IPRINT,8R) FACRHC, FACUHC
~c SET SOME INTERNAL VARIABLES ' ' "
NSTRHR s NFSTHR / 100 + 1
" * "NEHOHH B NI.STHR / joo '+ ~\
C CHEC< FOR PRESENCE OF THC OR MTH IN INPUT
'" ~ "" 00 13S K B i, SEMM - ' —
oo 150 j « I,NSTA
---- READ CIREAD.3) NAMSTA(J), NBNO(J), ST»C(J)» --------
i NHWINO, NH8ACK, N'HFOR^, NH8ASE, DECAYCJ), DISCNT(J)
-C~CHECK"ALL "INPL'T HOURS FWVAUIOITY --------- ---------
111
113
iau
IF (NHWINO ,GE, MINHR .AND, KHUINP ,LE, MAXHR) CO TO
IF (L-URN ,EQ, 0) GO TO 181 " --- .
WRITE (IPRINT,22) NHWINO
WRITE (IPRINT.19) MINHR, MAXHR, MAXHR
MAXHR
"IF (NHBACK .HE, HINHR , AND', " NHB ACK ',LE ,~HAXHR)' 60~TO~r«»~
IF (trtARS ,EU. 0) GH TO 113
WRITE UPRINT.2J) NHBACK " ......
WRITE (IPSINT.19) MINHR, MAXHR, MAXHR
NHBACK - - . ..
IF (NHFORW ,GE, MINHH .AM), NHFORW ,LE, MAXHR) 00 TO 106
IF (L*ARN .E«,"0) GO TO 1«"K B I,LEND
00 152 J f LSTART, NSTA
IF (NBND(J) ,EO. JBNO(K)) GO TO 152
IF (NSTART(K) ,GT. 0) NEND(K) = J - 1
IF (NfNO(J) ,EO. J8ND(K+1)) NSTART(K+1)
GO TO Ib3 .
'CONTINUE
LSTART
GO TO 1
LSTART
CONTINUE
—iao-- CONTINUE
c READ THE STATION COORDINATES
- -- IF (LSTAT ,NE, 0) uRITE
-------
SOURCE CARD LISTING FOR PROGRAM BOUND . (Cont ' d 6)
WRITE (IPRINT.77) N8ND(K), NAM3TA(K)
<"} ~ 160 CONTINUE ...... ' '
GO TO 16U __
-'C'~MISSING BOUNDARY " '
162 WRITE CIPRINT, 78) JBND(J) ___ ___
160 CONTINUE
C READ THE INPUT OAT* FOR EACH STATION
-RITE (1PRINT.76) - .....
165 REAO (IHEAD,U,END=190) KYEAR. KMONTH,
"• ""'II (JPOINT(K), K s 1,MALLHR)
C IF THIS 13 FIPST CARD, SAVE THE DATE __
IF (KFL4G ,NE. 0) GO TO 167
LYEAR x KYEAR
" (.MONTH e KMONTH '
______ LDAy s KDAY _______ __
KFLAG'
^.SOURCE CARD LISTING FOR PROGRAM. BOUND.
_CContJ_d._Z)_
187
188
IF (KEMM ,EQ, NAMMTH) GO TO 187
NTHC(K) a NTHC(K) * 1 - - -
JTHC(K) 3 JTHCCK) + JPOINT(K)
"BO TO 188 " ~
NMTH(K) s NMTH(K) * 1
JHTH(K) a JMTH(K) * JPOINT(K)
|
C CHECK DATE -•• IF NO MATCH, WRITE WARNING _
167 IF (LWARN ,EQ. 0) GO TO 168 ..... '
IF (LYEAR ,EQ. KYEAR .AND, LMONTH ,EQ, KMONTH .AND,
---- "i LDAY .CO. KOAY) GO TO 168
WRITE (IPRINT,72" IF (NMTH(K) ,Er., 0) GO TO 1
-------
SOURCE CARD LISTING FOR PROGRAM BOUND
(Cont'd 8)
J =
1 =
KEMH, ITfST, JTEST, TTK3T
NYSOR)
1) M a a
NXSOR ) M
1) M a «
H s J
» 3
Or. 210
OH 23C
READ (IOUU
C SEE'IF THIS IS A BOUNDARY
M a 0
IF (JTEST ,EO.
IP (JTEST ,EO,
IF (ITEST ,EO,
IF (ITEST ,EO.
IF (M ,FQ, 0) GO TO 230
C CHECK THE POLLUTANT NAME
00 ?1S L s 1, NPJ-H
IF {NtMfi.
CO'iTI'.'Ot
C NOT PDtSE'.'T •- WRITF. MESSAGE
IF (L14RN ,Nt. 0) WRITE 0
IF (M ,LE. ?) GO TO 225
QIMITtJTEST, "M, L) = OTEST
IF (JTEST ,EO. NY3DR) H f 1
IF (JTEST ,EQ."l) H s 2" '
IF (M ,GE. J) GO TO 230
QlrvITUTEST. », L) = RTEST
CONTI'-UE
220
225
230
250
C CREATE 1Kb CQi'NER SQUARE STATIONS ' '
260 DO ?80 KK s 1,NSTA
K = N3TA - KK + 1
00 ?75 LL = 1 ,NPOUND
L = N^OUNO i LL + 1 ' ..... —
_C _ TF_ STATION IS^IN THIS BOUNDARY, MOVE THE VALUES
IF (K ,LT. N3TARHD) GO'TO~275 "
310 IF (JTEST ,f:E. 0) GO TO 320
N = LEMO » LSTART - h
IF (3iJALH(J,N,K) .Gf. 1,0) JTEST
320 CONTINUE
C SAVE STATION NUMBERS IN JPOINT _
JPOIMT(2 • L • 1) = ITLST
JPOINT(2 * L) ' JTtST _ _
'530' CONTINUE
C CALCULATE VALUES
00 360 L a l.NBOUND" "
GHOTOP = 0,0
""
C GET INDICES FOR EACH BOUNDARY CORNER
GO TO (332, 33U, 336, 338), L ~
C NORTH-iFST
332 M * Jf'OINT(l)
N = JPOINT(.I)
SO TO 340
C NQRTHKAST
33« » " J"OINT(2)
N B JPOINT(fc)
"GO TO i
-------
.SOURCE CARD LISTING FOR PROGRAM BOUND ._• .(Cont' d 10)
350
ft - -
OUALM(J,N,K)
CONTINUE
a (GRDTOP +
8 CGRDTOP +
OROBOT)
GRDBOT)
*
*
0
0
.5 .
.5 " ]
CONTINUE
CONTINUE
_360
380
""C STORE ALL THE OTHER'AVERAGE VALUES "
on "20 J = UNBOUND
C GET INDICES FOR EACH BOUNDARY CORNER
_ GO TO
c "NORTHWEST
SOURCE CARD .LISTING_FOR PROGRAM.BOUND (.Cont_Ld_113_
IF (K ,GE, 3) KK 8 NYSOR .
~C OBTAIN BOUNDARY PARAMETERS
LSTART o NSTART(K)
NEMD(K)
LSTART
li
LEND
VH a LEND
"DO 620 L
+ 1
KK
002 h o NSTART(l)
K B NSTART(l)
N a NEND(U)
"La NEND(U) •
GO TO 010
C NORTHEAST
400 M a NENO(l)
K a NEND(l) •
N s NENO(3)
L a NENO(J) •
GO TO 010
C SOUTHWEST
U06 * = NSTART(O)
K s N3TARTC4)
N s NSTARH2)
L a NSTARK2)
GO TO 010
C SOUTHEAST
408 M = NEND(2)
" . " K a NEND(2) -
N = NSTART(3)
L = HSTART(J)'
C STORE VALUES
fllO 8TAC(NSTARTCJ!
* 1
1 -- - - — -
1
1
t 1
+ 1~ - —
1
+" J- —
1) B FLOAHMINjUK) • 0,S
C CLEAR GRID. TO ZERO
GRIOEMCUfK) = 0,0 --------- — - --- • -
C_8*IP IF NOT REGION "A"
"""IP " (JREG(L,K) .NE.~n~GO~"TO'"620 - — — —
c SET TIME AND PLACE
"NO*HR s J - ---
XLOC = FLOAT(L) " 0.5
c INTERPOLATION .. TEST FOR *r LEAST "ONE~V»L"ID^ST»TION ---
IF C«*1 - 1) 615, fcOJ, 60U
ONL'V ONE STATION «» USE IT," RESETTING~TIHE' IF"~BEYONO~31'SE"
' _602 IF CJ ,GT. NT«ASE(LSTART)) NO«HR o NTBASE (LSTART)
GRIOEM(L.K) a QINITCLiK,NO . (1,0 • DECAY(LSTART) >
__ & (NHWHR « N3TRHR)) * 01 SC NT (LST A RT )
GO TO 620 ~ "'•- ......
' C FIND LOCATION OF THIS SOUARE IN ARRAY
too" "LL "= o "" ..... " ' ------------ — •- — —
00 605 M = LSTART, LEND
IF (XLOC ,GT, STAC(H)) LL" a LL" * 1""
_ 405 CONTINUE
IF (LL ,LT, 1) LL o l -
__ _ IF (LL ,GE, MM) LL = KM • 1
C FIND PROPER INPUT VALUES FOR INTERPOLATION
_ II a 0
8TAC(NENO(J)) » FLOAT(MAXSGR) • 0,5
NBND(N3TART(J)J a J8ND(J) " "'"
NBNO(MSNDCJ)} 5 JBMD(J)
OECAY(M) = (DECAY(K) + OECAY(D) * 0,5
OECAY(N) B (DtC4Y{K) + DECAY(D) * 0,5
610
_ NN s 0
DO 610 H ="LSTART, LEND
NM = NN * i
I F " '( N N " . E 0 , "l L j " "fl~B~ M
IF (NN ,ES, LL + 1) JJ a
CONTINUE " '
IF (II ,EQ. 0) GO TO 615
IF (JJ ,EQ, 0) GO TO 615
OISCNT(M)
OISCNT(N)
s'(DISCNT(K)
DISCNT(L))
NTwlNDCU)
* 0,3
NT-IIND(N)
NTBACKtM)
NT3AC:<(N)
(NT9ACKCK)
NTFOHwfN)
= (NTFORX(K)'
a (NTBASfc(K)
a (NTHASE(K)
NTBACK(L)) /
NTBACK(L)) /
NTBASE(D)
NTHASE(D)
—030-
NTBASfc(N)
CONTINUE
c SET HOURLY DO-LOOP
"600— 00 780 J a NSTRHR,NENDHR
NHHS s 100 * (J - 1)
- 00 775 N s 1, NEMM
C WRITE HEADING AND SET GRIO DO-LOOPS
IF (LPATT ,EO, 0) WRITE (IPRINT.76)
IF (LPATT .HI, 0) WRITE UPR1'JT,71)
&- -— KYEAR, K»O.NTH, KOAY
00 700 K = UNBOUND
IF (K ,Lt. 2) KK = NXSQR
c CALCULATE THE POLLUTANT CONCENTRATIONS, RESETTING TIME IP BEYOND BASE
IF (J ,GT, NTtfASE(II)) NOWHR"= NTBASE(II) "
GRIOE'ML.K) = PIMT(L,K,N) * (1.0 - OECAY(Il) * (NQWHR • NSTRHR))
& » UISCNT(II) + (OINIT(L,K,N) * (J,0 " DECAY(JJ) *
& (NO*HH - NSTRHR)) * DISCNT(JJ) « QINIT(L,K,N) *
& OISCNT(II) * (1.0 - OFCAY(II) * (MOWHP. • NSTRHR))) / ' ~ -
f- (STAC(JJ) . STAC(IU) • (XLOC • STACdl))
GO'TO 620
J8NO(K)
NHRS,
c WRITE MESSAGE FOR NO ACCEPTABLE STATIONS
615 IF (LwAR^J ,EO, 0) GO TO 6?0
IF (LPATT ,NE. 0) "RITE UPRINT,73) ,
IF (LPATT. EU.O) WRITE (IPRINT.75) NA*EMM(N) ,' NHRSi INT(L)VJBNO(K)
620 CONTINUE
C" SET LOOP AND 1EST FOR "NON. REGION "A" ---------------
00 hflP L = I,KK
IF (JSEG(L,K) ,EB. 1) GO TO 680 ....... ----------------------------
C CLEAR GRIO COMPONENTS AND SET LOCATION
GROTOP = 0,0 ----- - - - ----- ------ -
GRDBOT = 0,0
XLOC = FLOAT(L) - 0.5
c INTERPOLATION -- TEST FOK AT LEAST ONE VALID STATION
-- IF (KM - 1) 675, 622, 628 - - -
145
146
-------
623
LL +"1
- ~r rtr
SOURCE CARD LISTING FOR PROGRAM BOUND (Cont'd 12)
C ONLY ONE STATION -- USE IT
622 IF fOUALltJ,LSTART,N) ,LT, VALMIV) GO TO 675
IF (JREG(L.K) .En, 2) GO TO 623
IP (L ,E3. 16) GRIDEM(L,K)'3 QUALM(J7LSTART,N)
GO TO 680
IF (J .LT, NTRASE(LSTART)) GRDTOP s (3UALM(NTBACK (LSTART), '
i LSTART, ;:•) * (1.0 - Of CAY(LSTART) * (J « NTBACK (LSTART)))
"" IP (J ,LT. NTFORW(LSTART)) GO TO 650
GRDBOT a OL'AL'"(J, LSTART, N) * n ISCNT (LSTART)
"""IP (J ,LT. NTf)A3E(LSTART)) GO TO 6«5 " '"'
GO TO 650
C FIND LOCATION OF THIS SQUARE IN ARRAY ~-- "
62(1 LL = 0
00 625 K a LSTART, LEND
JF CnUALM(J.M.M) ,LT, VALMIN) GO TO 625
'IP (XLOC ,GT, STAC(M)} LL -
625 CONTINUE
IF (LL .LT. 1) LL = 1 - - - —
IF (LL ,GE, MM) LL s MM « J
C PINO PROPER INPUT VALUES FOR INTERPOLATION
II a 0
JJ = 0 " ' """
NN B 0
DO 630 M = LSTART, LEND
IF CQUALM(J,M,N) ,LT, VALMIN) GO TO 630
NN a NN * 1 " '
IF (NN ,EQ, LL) II s M
IF (N.'i ,EO, LL't D'JJ a"M~ "
630 CONTINUE
' IF (II ,EO,' 0) GO TO 67S ~" -----
IF (JJ ,£0, 0) GO TH 675
'C SEPARATE CALCULATION FOR REGION" "C" '•"
IF (JSf.G(L.K) ,EO. 3) GO TO 660
C'CALCULATE bACX FLO* UNLESS AFTER BASE"HOUR ~~
IF (J ,GE, NTBA3ECII)} GO TO 610
GROTOP = QUALM(NTMACKCin,II»N)*(l .0-DECAY(II)*(J-NT8ACK(II))) ""
& * (OUALM(HTPACKCJJ), JJ,N)*(1 ,0-DtCAY(JJ)»(J«NT8ACK(JJ))) .
& OUALH(NTBACK(1I),II,N)*(1,0-DECAY(II)*(J-NTBACK(II)))) /
* (STACCJJ) - STAC(II)) * (XLOC - STAC(ID) 760
C "CALCULATE BASF STATION CONTRIBUTION UNLESS BEFORE'FORWARO HOUR ~772" CONTINUE "" ' "-" '
C PRINT THE OUTPUT LINE UNLESS FLAGGED
"69« IF (LPATT .EC, 0)' GO TO 700 "
OH 695 L = 1r*K
IK (GRIRt'MCL.K) ,LT. 1.0) GRIDEH(L,K) a I'.O
"'RITE (IPRINT,72) _INT(L)^ N6ND(K), KREG( JREG (L , K ) ) , 6RIDEM(L,K)
695 "CONTINUE
700 CONTINUE
"C PRINT THE CONCENTRATION GRID UNLESS FLAGGED ~
IF (LGRIO ,EO, 0) GO TO 750
KAXO(NXS<5R, NYSQR)
KK
(IPRINT,6i) NAME>,M(N), NHRS, KYEAR, KMONTH, KDAY,
"V " " (INT(K), K * 1,KK)"
00 7«0 K B l.NFiOUND
IF (K ,LE, 2) KK = NXS5R
IF (K ,Gf:, 3) KK a
00 710 L
<• 1.0
1,KK)
C PUT
750
1 ,KK
IF (G ,LT. 1,0 )_ 6RIOEM(L
"CONTINUE. ' " ' "
«RITE (IPRINT,8U) JBND (K ) ,_ (OR IOEM (M, K ^,
THE GRID TO THE FILE UNLESS FLAGGED
IF (LFILE ,EO, 0) GO TO 775
DO 770 K = UNBOUND
"IF (K",LE."2) KK a NXSOR
IF (K ,GE, 3) KK 3 NYSQR __
00 760 L = 1»KK ' "~
IF (GRIDE«(L,K) ,LT, 1,0) GRID£M(L,K) B 1,0
WRITE (I90UND) NAHEMM(N), NHRS, INT(L)» J8ND(K)rGRIOEM(LrK)—
CONTINUE
"CONTINUE " ----- - - _-
CONTINUE
CONTINUE " ""
OF PRfjGHAM
STG» "" "
FORMAT(3I1, IX, 2IU «X, 615)
•FORMATC2F5,~0,-6t2Xr"A3))
FORMATCSX, A(l, 2X, Al, F5.0, "15, ZF5.0)
FORMAT(JI2, 3X, AU, 1?X, AJ, (
«X, 213, 2X, F5,l)
" FORMATt'OPKHGRAM INPUT SPECIFIES t,-15,"
& ' SOUARtS IN X.DIRECTION,")
FORM4TCOPROGRAM INPUT SPECIFIES ~'7 15^;
H ' SOUARtS IN Y-DIRECTIOM,')
FORMAT(IOPROGRAM INPUT SPECIFIES ', -is, ~
& ' POLLUTANT MEASUREMENT STATIONS.')
- FORMAT(lflPROGRAM INPUT SPECIFIES ', 15,~
& ' AS THt STARTING HOUR,')
FORMATCOPROGRAH INPUT SPECIHES'1", IS>—
& ' AS THE tNDING HOUR.')
FORMAT('OPROGRAH INPUT SPECIFILS '» 15,"-
147
148
-------
SOURCE CARD LISTING FOR PROGRAM BOUND (Cont'd 14) _ SOURCE CARD LISTING FOR PROGRAM BOUND (Cont'd 15)
& ' POLLUTANT NAMES.1)
17 FORMATCO*ARNING MESSAGES KILL BE PRINTED.')
18 FORMATCOWARNING MESSAGES WILL NOT BE PRINTED,')
"19 FORMATC' THIS IS OUTSIDE THE "PROGRAM LIMITS"OF-'7
4 ' THROUGH I, 15, ',', /, ' VALUE HAS BEEN RESET TO ', 15,
& " AND PROCESSING HAS BEEN CONTINUED,')
78 FORMATCOTHE ', Al, ' BOUNDARY HAS NO INPUT STATIONS,'/
& ' RESULTS FOR CALCULATIONS ON THIS BOUNDARY ARE UNRELIABLE',')
79 FORMATC STATION ', A4, ' HAS NO DATA ENTRY FOR POLLUTANT ',
-J A-37~'"~AT~TI57'~'""HOURS,'
83 FORMATClPOLLUTANT ', A3, ' CONCENTRATION GRID FOR ', 15,
\~ "I HOUR ', 1«X, 3I2//64X, 'SQUARE'/' BORDER',"13; 2ai5)~
21 FORMATC1BOUNDARY CONDITION POLLUTANT CALCULATION'//) I 84 FORMATC/3X, Al, 2X, 25F5.1)
22 PORMATCOPROGRAM INPUT SPECIFIES ', 15, " " " —"—88 FORMATCOTHE CONVERSION FACTOR FOR REACTIVE HYDORCARBONS "IS '«-}—
_& ' AS THE KIND CHANGE TIME.') "~ t. PS,I/' THE CONVERSION FACTOR FOR UNREACTIVE HYDROCARBONS',
"23 FORHATCOPROGRAM INPUT SPECIFIES '7~is, u, '" is"'T F5,n
& ' AS THE BACK FLOW TIME,') ~ END
2u FOR«AT( 'OPRHC.RAM INPUT SPECIFIES ', is, ~ —:•—r~
* ' AS THt FORWARD FLO* TJiE,1)
Z<3 FQHMATt ' ((PROGRAM I.'iPUT SPECIFIES '.15,
f. ' AS THF DECAY H'SE TIMt,1)
26 ' FOR-'1ATCOX.A.XIS IS ', 15, ' SQUAKES LONG,'/ " " '
& ' Y-AXIS IS ', 15, ' SQUARES HIGH,')
27 FORMATCO' TOTAL UF ', IS, ' INPUT STATIONS «ERE NAMED.'/
t. 'OA TOTAI. OF ', IS, ' POLLUTANTS WERE NAMED I '/6 (2X, A3))
28 ' FORSATCOOATA COVERING THE TIME SPAN ', 15, " --•-•• —• •
__ & ' THROUGH ', is, ' HOURS WILL BE PROCESSED,M •
~31 " PORMATClAIR QUALITY STATION INPUT DATA'// " ' ~ - ——
& ' STATION BOUND. STATION WIND REVERSAL TIMES ',
& " ' BASE DECAY STATION'/' NAME ARY COORDINATE 'j
_& ' CHANGE BACK FORWARD TIME RATE DISCOUNT'/)
"32" FORMATUX, AU, 6X, Al, F10.1, 110, 17, 17, 18, F7.3, F8,3)
34 FORMATCOINQ1VIDUAL POLLUTANT VALUES WILL BE PRINTED,') '
"35 FORMATCOINOIVIOUAL POLLUTANT VALUES WILL NOT BE PRINTED;') •
36 FORMATC
37
38 FQRMAT(
39 FORMAT(
41
POLLUTANT PATTERN GRIDS WILL BE PRINTED.')
POLLUTANT PATTERN GRIDS WILL NOT BE PRINTED,') ~"
INPUT STATION COORDINATE DATA WILL HE PRINTED,')
P'PUT STATION COORDINATE 0*TA «ILL NOT BE PRINTED.')
03TATTON ', AU, ' IS NiOT IN LOCATION LIST.",
& I STATIC" INPUT 0*TA NOT ACClPTtP,')
42 FORMATCOpR'lGRAH INPUT SPECIFIES ', A3, " CONCENTRATION OF ',
& 12, ' AT I, 15, ' HOUR FOR STATION ', AU, ',')
43 FDRMATCOPOLLUTANT ', Ai, ' AT STATION ', AU,
H 'IS NOT IN EMISSIONS LIST,', /
& ' INPUT VALUES FOR THIS POLLUTANT NQT ACCEPTED,')
~44 FORMATC INTERMEDIATE CALCULATED VALUES WILL BE PRINTEDT')
45 FORMATC INTERMEDIATE CALCULATED VALUES WILL NOT HE PRINTED,')
~f|6 FORMATCOPOLLUTAUT ', A3, ' FOR INITIAL CONDITIONS ',
& ' IS NOT IN EMISSIONS LIST,', /
t < INPUT VALUES FOR THIS POLLUTANT NOT ACCEPTED,') '
fl8 FORMATC CORRELATED AND CALCULATED DATA WILL BE FILED,')
"fl9 FORMATC CORRELATED AND CALCULATED PATA WILL NOT 9E FILED;-')
71 FORMATC 1CALCULATED ', A3, ' POLLUTANT PATTERN FOR ', 15,
-"& ' HOUR ', 11X, 3I2// '
& ' SQUARE HOROER REGION VALUE', /)
72 FORMATC3X, 12. 2C7X, Al), F8.1)
73 FURMAT(3X, 12, 7X, Al, ' NO ACCEPTABLE INPUT STATION ON THIS',
g —i BOUNDARY,') — — -—- ' —
1H FORMATCOFOR POLLUTANT ', A3, ' AT STATION ', A4, ' THE DATE ',
" & 312, ' IS IN CONFLICT WITH THE ORIGINAL DATE ', 312, ','/) -
75 FORMATC POL = ', A3, ' HR o ' , 14, ' SOR = ', 12, ' BOf-0 o ',"»li
& ' MO INPUT STATION O'i THIS BOUNDARY,')
-77 PORMATCOCN THE ','Al,-' BOUNDARY, STATIC* •'»-»«•
& ' HAS A COORDINATE VALUE LESS THAN THE PRECEDING STATION,'/
— i ' RESULTS FOR CALCULATIONS ON THIS BOUNDARY ARE UNRELI«BLE. • J
"149 " " ~ ISO"
-------
n
c
c
c
' C
c
c
c
c
c
c"
_c
c
c
" C
_ c
c
_c
c
_ c
c
_c
c
c
c
c
c
c
" c
c
c
c
c
__c
c
r.
c
c
c
c
~~c
c
"C
c
" C
c
~c
c
c
c
c
c
" C
c
c
c
" C
c
c
-c
. SOURCE CARD LISTING.FOR PROGRAM DPREP 1 ._..
****** PROGRAM 0 P R E P ******
PREPARES WIND VELHCITY AND DIRECTION AND MIXING DEPTH CARDS
PREPARES INITIAL CONDITION A'.D BOUNDARY CONDITION CARDS
WRITTEN BY 0. C. "HITNEY FUR SYSTEMS APPLICATIONS, INC.
22 MARCH 1971 -- INITIAL PROGRAM DOCUMENTATION
THIS PROGRAM IS THE PROPERTY Of SYSTEMS APPLICATIONS, INC.
THIS PROGRAM IS WRITTEN IN FORTRAN IV FOR THE IBM 3fcO/S70
THIS PROGRAM TAKES AS INPUT A CONTROL CARD AND DATA SETS CONTAINING
KIND VELOCITY AND DIRECTION AND MIXING DEPTH DATA.
IT PRODUCES A3 OUTPUT A LISTING OF THE INPUT CARDS AND, OPTIONALLY,
PRINTOUT OR PUNCHOUT OF THE WIND VELOCITY AND DIRECTION AND MIXING
DEPTH VALUES IN A FORM SUITABLE FOR THE AIRSHED MODEL,
_.SOURCE_C_ARD IJSJING.FOR..PRQ.GRAM_
_CContld_2.L
BC " BOUNDARY POLL'-ITANT VALUE'INPUT AND HOUR OUTPUT"
I _ DO-LOOP OR LOCAL INDEX
IAIR"~" "FILE NUMBER FOR AIRSHED MODEL OUTPUT"
JBOUNO FILE NUMBER FOR BOUND PROGRAM OUTPUT
IOEPTH " FILE NUMBER FOR DEPTH PROGRAM OUTPUT
iHt'OA _ FILE NUMIJEH FOR AIRSHED MODEL FILE HEARER _
IMtAOMFILE MUMUER FOR METEOROLOGICAL FILE HEADER
I MET FILE NUMBER FOR METEOROLOGICAL OUTPUT
IPRINT~~"FILE NUMBER FOH PRINTER OUTPUT "
IOUAL FILE NUMBER FOR QUAL PROGRAM OUTPUT
IREAD "FILE NUMBER FOR CARD INPUT ' ' ~
ITE3T __TE3T VALUE FOR THE COLUMN COUNT "I"
IWINO FILE NUMBER KOR WIND PROGRAM OUTPUT :"
J 00-LnOP OR LOCAL f'JOKX
JCAPD MAXIMUM 'lUMbtP- 0? INTFGrR VALW3 ON A PUNCHED CARD
JTEST TEST VALUfc FQK THE ROW COUNT »J«
t nO»LOOP OR LOC'L INDEX
KRND AN INPUT BOUNDARY NAME
KCARO " ' MAXIMUM NlJMBEH OF FLOATING POINT VALUES ON A PUNCHED CARD
KEMM AN INPUT POLLUTANT NAME
L DO-LOOP OP LOCAL INDEX
L3LANK A SINGLE BLANK CHARACTER
LC HOLDING AREA FOR POLLUTANT CONCENTRATION VALUES '"
LCCRO INPUT OPTION FLAG TO SIGNAL INPUT FOR- CONDITION FILE
LOAYDAY OF'tHE MONTH FOR OUTPUT LABELLING
LEND i AST VALUE TO BE PUNCHED OR PRINTED ON A CARD
LETTER LETTER COOK TO DISTINGUISH PUNCHED CARDS
L«CRD INPUT OPTION FLAG TO SIGNAL INPUT FOR METEOROLOGICAL FILE
LMQNTH MONTH OF THE YEAR FOR OUTPUT LABELLING ' ' '
LPRBC INPUT OPTION FLAG TO REQUEST PRINT OF BOUNDARY CONDITIONS
-LPRMQ INPUT OPTION 'FLAG TO REQUEST PRINT OF' MIXING -DEPTH
LPRSC INPUT OPTION H.AG TO REQUEST PRINT OF STARTING CONDITIONS
LPRWO INPUT OPTION FLAG TO Rfc'OlJEST PRINT OF WIND DIRECTION
LPR.IV INPUT OPTION FLAG TO RPQUEST PRINT OF wif.o VELOCITY
LPUFC INPUT OPTION1 H.AG TO RF.OUF5T PUNCH OF HOUNOAWr CONDITIONS
LPu'"0 INPUT op Tin." f-L"~> TO HEJUEST PI'VM oi- MIXING otPTH
LPU3C INPUT OPTION Fl. AG TO RFflUL'ST PUNCH OF STARTING CONDITIONS
LPU-^D INPUT OPTION FLAG TO REOUIST ?U^:CH OF WIND DIRECTION
LPUl-'V INPUT OPTION FLAG TO RECUE.3T PUNCH DP WIND VECLOCITY
LYEAR YEAR l-OH OUTPUT LABELLING
M •- DO-LOOP OR LOCAL INDEX
MAXEMM MAXIMUM NUMBER OF POLLUTANT NAMES
MAxssR—MAXIMUM NUMBER OP SQUARES-IN ANY- GRID-DIRECTION
MAXVAL MAXIMUM NUMBER OF VALUES TO BE READ FROM A FILE
MCARD —A-MOLDING ARRAY FOR A CARD IMAGE - -
. ,isi__ . . _. ..
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
MO '
f FL A G — f
MINFMM i
MINSSR '
MTEST
N (
NAMBNO
NAMEMM
N80UND i
NDFILE ~!
NEMM
K'HRS ~ ;
NHTEST
NQPNCH 1
NXSOR 1
NYSOR 1
SC !
*0"
WV i
SET OIMENI
ARRAY OF MIXING DEPTHS
FLAG TO INDICATE POLLUTANT NAME NOT-IN EMISSIONS LIST
MINIMUM NUMBER OF POLLUTANT NAMES
MU" \'U«eER OF SQUARES IN AMY GRID DIRECTION
TE.ST VALUE fOR POLLUTANT NAME
DO-LOOP OR LOCAL INDEX — - . "
THE NAMES OF THE BOUNDARIES
T"E NAMES OF THE POLLUTANTS - " — "
NUMBER UF BOUNDARY VALUES TO BE CONSIDERED
FLAG TO SIGNIFY END OF FILE
THE NUMBER OF POLLUTANTS
AN INPUT HOUR VALUE ~ '
TEST VALUE FOR THE INPUT HOUR
FLAG tsHICH IS SET IF~AN ERROR "I3~DETECTEO :
NUMBER OF SCUARES IN X.DIRECTION
"NUMBER OF SOUARES IN Y-DIRECTION
STARTING POLLUTANT VALUt INPUT AND HOUR OUTPUT
ARRAY OF WIND DIRECTIONS
ARRAY OF KIND VELOCITIES
DIMENSION LCC26,2S,6), NAMBND((t), NAMEMM(6), MCARO(20)
'C'SET EQUIVALENCES '
EQUIVALENCE (LCtl,l,l), WVCl.l))
"EQUIVALENCE (LCCl,l,J)i'WD(1,1))
__ EQUIVALENCE (LC(1,1,5), M0(l,l))_ '_
c SET"PILE NUMBERS
DATA IHFAO / s/
DATA [t'sjNT / fc/ "
.DATA I1'. I NO /7/
DATA n.'tPTn / P/
___ _ DATA IOUAL / 9/1
DATA IBOUND /10/
DATA IHEAOM /n/
DATA iHtADA 'I?/
DATA IMET /U/
D'ATA I AIR
C SET THE DATA VALUES __
"OATA'MAXSOR /?5/
DATA MAXEMM /s>/
"DATA NBOUND /n/
DATA MINSDR /!/_
"DATA MIN£MM /!/
DATA NOPNCH /O/
DATA •JCARD~/2S/
DATA KCARO /1J/
DATA MAXVAL /?6/
04 T A L HLANK /.?H
0 • f A LtlTER /1HA,
DATA NAVHND /1HN,
C READ THE CONTROL CARD
1HB/
IMS, 1HE,
1HW/
READ fIREAO.n L*CRD, LPUWV, LPRKV, LPUWD, LPRCD, LPUMD,_ LPRMD,
i LCCRD, LPUSC, LPRSC, LPU8C, LPRBC, NEMM, '
& NXSQR, NYSQR, LYEAR, LMONTH, LOAY
TEST LIMITS ON NU«B£R OF POLLUTANTS " ' "
IF (NEMM ,GE, MlNEMK ,AND, NEMM ,LE. MAXEMM) GO TO 102
WRITE "UPRINT,57) NEMM :
WRITE (IPRINT,19) HINFMM, MAXEMM, MAXEMM
NEMM a MAXEMM •"" ~
152
-------
SOURCE CARD LISTING FOR PROGRAM DPREP
(Cont'd 3)
SOURCE CARD LISTING FOR PROGRAM _DP.REP.__
..(Cont:.d_.4)
C TEST LIMITS ON SQUARE COUNTS
102 IF (NXSOR ,GE, MINSOR .AND, NXSOR ,LE, MAXSQR) CO TO 105 '"
WRITE. UPRINT,!!) NXSOR
WRITE (IPRINT,19) MINSOR»~HAXSCR,""MAXSQR
NXSOR = MAXSOH
105 IF (NYSOR .GE. MINSfiR ,4(00, NYSQR ,UE, MAXSOR) GO TO 110
WRITE (IPRINT,12) NYSCR
----- WHJTE (IPRINT,19) MINSQR» MAXSOR» M4XSOR
NYSQR = MAXSQR ___ __ _____ __
C'READ POLLUTANT LIST"
110 READ (IREAO,2) CNAMEMM(I), I a 1,N£MM) _ __ ____
C WRITE FIHST PAGE HEADING AND CONTROL DATA
WRITE UPRINT. 21) LYEAR, LMONTH, LOAY
" IF (LMCRO ,NE, 0) «RITE (1PRINT,13)
IF (LPU-V ,Mfe, 0) "RITE (IPPINT,22> ____ _ ____ _
" IF UPUHV ,EQ. 0) "KITE ( IPRJN T , 23 ) " "
IF UPRWV ,NE, 0) WHITE (IPPINTr2U)
"" ..... IF (LPP-WV .EG, 0) WRITE UPRINT, 25)
IF (L»UWD ,NE, 0) "RITE UPRINT, 26)_ • __ _
IF (LDUWO ,EO, 0) WRITE UPRINT, 27}
IF (LPHWO ,NE. 03 *R1TE UPRINT, 28)
""IF (LPRWU .ED. 0) WRITE UPRINT, 29)
IF (LPUMO ,NF, 0) WRITE UPRINT. 31)
" "" IF (LP'JMD ,EO, 0) 'IRITE CIPRI»T,32) ""' '"
IF (LPRMD ,NE, 0) WKJU (IPRINT.3J)
" IF (LPRMD ,fcO, 0) rfRITE (IPRINT,JU)
IF (LCCRO ,ME. 0) "PITE ( IPRINT . 1 «> ____ ____
IF (LPUSC ,NE, 0) tKRITE (IPPINT.15)
IF (U"USC ,EO, 0) WRITE CIPRINT.Jfe) _
IF (L"P.3C ,wE, 0) WPITE (IPRINT.37) -•--•--
IF (LP»SC ,EO, 0) '"RITE (1PRINT.38)
----- "IF (LPUBC ,NE. 0) '"RITE (IPRIN1,15)
_ IF (LPUBC .EO. 0) WRITE (IPHI"T,16)_ ____ ___
IF (LPHBC .ME, 0) WRITE (IPR1NT»17)
IF (LPRBC ,EO, 0) VRITt (1PMJNT,18)
WRITE UPHINT.bfl) Hf.»r-, (NAMEMM(I), I a l.NEMMT
MYSG«
C CHECK FOR COLUMN NUMBER MISMATCH
— '--IF (ITEST .Ed. I) GO TO 125 —
WRITE (IPRINT»~JCAPD — • - -
DUI17K=1»HAXVAL _
--- — WV(K ,1, 5 s 0,0 ...... ........ - ... -
<0(K,L) = 0.0
117 CO«TIM)E
118 C OUT I '->UE
— c ENTER P?AD LOOP AND SET HOUR TEST • ••- - - ----
120 READ (IwlND,END=190) NHTEST, ITtST, JTEST, WV(I,J), WD(1,J)
If (1 ,EQ, 1 .AND, J ,E'J. 1) N«RS = NHIE3T
____________ __ _________ 153 _______________ _______
"IF (J ,GE. NYSOR) GO TO 200
J B J + 1 _
GO TO 120
C END OF FILE -« MAKE SURE COMPLETE GRID WAS READ __
"1«0 NDFILE s l
IF (I ,E.O, 1 .AND, J .£13. 1) GO_TO 200__
"WRITE'(iPRiNT.ua) NHTEST, "ITEST, JTEST
NOPNCH = i _
"C TEST FOR OUTPUT OF MIXING DEPTH
200 IF (LPUMD ,EQ. 0 .AND. LPRMD ,EO, 0) GO TO 300
C INITIALIZE COUNTERS. AND CLEAR ARRAY -
1 = 1 _ __
"J a \' ' " -
DO 215 L " l.JCARD
DO 210 K B 1,MAXVAL
MO(K,L) = 0
"210 CONTINUE :"
215 CONTINUE
"c ENTER READ LOOP AND SET'HOUR TEST
.220 READ (IDEPTH,END=2''0) NHTEST, ITEST, JTEST» MD(I,J)
IF (I ,N£. 1) GO TO 222 ~ ~'
IF (J ,NE. 1) GO TO 222
IF (LPU'V ,NE, 0) GO TO 222 " "
IF (LPRwv ,N£. 0) GO TO 222
IF (LRU»D ,NE. 0) GO TO 222
IF (LPRwO ,NE. 0) GO TO 222
' NHRS B NHTEST '
C CHECK FOR COLUMN NUMBER MISMATCH
222 IF (ITEST .EG. I) GO TO 225
WRITE (IPUNCH.U5) NHTEST, JTEST, ITEST, I
I s ITEST
"C'TEST FOR ROW NUMBER MISMATCH
225 If (JTEST ,EB, J) GO TO 230
WRITE upRiNT,i6) NHTEST, ITEST, JTEST, "J
NOPNCH s \
•J = JTEST -— '
c CHECK FOR HOUR MISMATCH
230 IF (NHRS .EO, NHTFST) GO TO 235 ~-
-------
n
_ . ___ SOURCE CARD LISTING FOR PROGRAM DPRF.P •
WRITE C1P"INT,«73 ITE3T, JTE3T, NHTE3T, NHR3
— — NOPNCH a 1
NHR9 a NHTEST __
"C~TEST AND TIC' COLUMN "VALUE
235 If (I ,6E, NXSOR) 60 TO 200 _
- '
(Cont'd 5)
60 TO 220
"~C~RESET COLUMN VALUE "AND TEST 'ROW VALUE"
2«0 I a 1
- if cj";Ge,
J B J + 1
'GO TO 220
C END OF FILE •» MAKE SURE COMPLETE GRID HAS READ
"'290 NOF1LE B 1 ' ~" " """" " " "
IF CI ,EQ, 1 .AND, J ,EO._1) GO J_0 300
wRIT£"UPRINT,u8f NHTE3T,' ITEST, JTEST"
NOPNCH a 1
~C"CHECK WHETHER MNU nn DEPTH is WANTED " ' " " ""
300 IF CLPUWV ,EQ. 0 .AND, LPRWV, EO, 0 .AND, LPU^D ,EQ. 0
&' ' .AND, LP«KO ,EO, 0 .AND.'LPUMD' ,EO,0 .AND, LPRKD .EO. 03
_ & GO TO aOO _
C SET "UP'FOR OUTPUT" UNLESS FL'GGEO
IF (NOPNCH ,E«. 1) GO TO 390
IF (NDFILE ,EQ, 13 GO TO aOO
C OUTPUT MIXINQ_DEPTH3 IF WANTED _
IF "(LPUMD~".EG. 0",ANo;~LPRMO ,"Efl," "0") 'GO TO 330*
00 320 M a 1,NYSOR
"on 310 L a l, NXSOR, KCAHD
r L + KCAPO - 1
N = L / KCARP
IF (LPU"D
1
(IHET,bl3 (KD(K,M), K = L,LENP),
_________ SOURCF. CARD LISTING FOR PROGRAM .DPREP ___ _____ (Cont'.d 6).
C GO BACK FOR NEXT HOUR/ UNLESS END OF FILE
390 IF (NDFILE ,NE, 1) GO TO 115 ' ------------ ---
c PICK UP POLLUTANT DECK HEADER CARDS, IF ANY
-a 00 - IF-aCCRO-JEQ— 0)"GO T0-a"3
101 READ (IHEADA,6,END = «9) MCARO
IF (LPU3C ,NE. 0 ,OR. LPURC ,NE, 0) WRITE CIAIR»6) MCARD
TO 001 ' ....... ~ '
C TEST FOR OUTPUT OF STARTING CONDITIONS
-fl03 - IF~(LPUSC",EOr"0-;AND.-LPRSC-tEQl-OJ-CO— rO~600
C INITIALIZE COUNTERS AND CLEAR ARRAY
NDFILE"= 0" ' -
I = 1 _ _ _
J = 1
_ 00 «15 M s 1,HAXEMM
D0""a ! 0 L~»~T»MCARD
Of) a05 K = 1,MAXVAL
L C ( K , L » M ) a 0""~ '
«03 CONTINUE
~a 1 0 CON T I NUE ---- -
015 CONTINUE
TENTER' READ LOOP""A'ND-TEST~FOR"TJEW"POCCUTA'NT
U20 READ fIOUAL.ENDnU90) MTEST, ITEST, JTEST, SC
IF CI ,NE, I) "GO T0'«35"
IF fJ ,NE, 1) GO TO «35 ___ . _ _
~C~IOENTIFY POLLUTANT
_ MFLAG B 0 _ _
KEMH s'MTKST"~'~~ '
DO U2S K s
IF LETTERCN)
(IPRINT,63) H.TESTr""ITEST7~JTEST7~J-
NOPN'CH s 1
'J s JTEST '
C CHECK FOR POLLUTANT MISMATCH
"U50 IF (KFMX ,ET. MTEST3 GO T0"a60
"360
370
— J80
IF
S
CONTINUE
CONTINUE
"RITE CIPRI-JT,feU) ITEST, JTEST, MTEST, KEMM
NO.PN'CM a 1
KE'«" = MTEST
c PUT VALUE INTO ARRAY UNLESS FLAGGED" ~" "
U60 IF ("FLAG .EO. I) GO TO a70
LC(I,J,K) : IFIXCSC + 0,5} ~~
C TEST AND TIC COLUMN VALUE
070 IF (I .GE. NXSOR) GO TO'asO
I s I + l
r.n TO 020 "
C RESET COLUMN VALUE AND TEST ROW VALUE
~aso I = i .
IF CJ ,LE. NYSOR) J e J t 1
IF' CJ ,GT. NY3QR) J a 1
155
150.
-------
_ ..SOURCE CARD LISTING FOR PROGRAM DPREP
(Cont'd 9)
16
"17
16
21
23
23
' 2«"
25
"26
27
"28"
29_
"31
32
33
34
"35
36
"37
38
"39
*-..
FORMATC'080UNOARY CONDITIONS WILL NOT BE PUNCHED,!)
FORMATC BOUNDARY CONDITIONS WILL 8E PRINTED,')
FORKATC BOUNDARY CONDITIONS KILL NOT BE PRINTED,!)
FORMATC THIS IS OUTSIDE THE PROGRAM-LIMITS OF ','15, "
& ' THROUGH ', 15. ',', /, ' VALUE HAS BEEN RESET TO
4" ~ " I AND PROCESSING HAS BEEN CONTINUED.')
15,
ttfl
fl8
-89
51
-52
53
50
55
"56
57
58
FORMATC 1PUNCH AND PRINT OF AIR3HEO- INPUT DATA', 20X, 3I2//)
VELOCITIES '"ILL BE PUNCHED,')
VELOCITIES WILL NOT BE PUNCHED,')
-FORMATC WIND VELOCITIES WILL BE PRINTED,')
FORMATC WIND VELOCITIES WILL NOT bE PRINTED,')
" FORHATCOWINI) DIRECTIONS WILL BE PUNCHED,')
FORMATC'OWIND DIRECTIONS WILL NOT BE PUNCHED,')
"FORMATC WlrtD DIRECTIONS WILL BE PRINTED,') ' ' ~
FORMATC" WIND DIRECTIONS WILL NOT BE PRINTED,')
"FQVMATCOMIXINC DEATHS WILL' BE PUNCHED,') ' '
_FORHArC'OMIXlNG DEPTHS WILL NOT BE PUNCHtD,1)
FORMATC MIXI'JG DEPTHS WILL BE PRINTED,') "
FOPMAiC MIXING DEPTHS WILL NOT BE PRINTED,')
' FORHATC "OSTARTlNU CTJND I T IONS "W ILL BE PUNCHED,') '
_ FORMATCosTARTiMG CONDITIONS WILL NOT HE PUNCHED,')
"FORMATC STARTING CONDITIONS WILL of. PRINTED,') ' '
FDRMATC STARTING CONDITIONS "ILL NOT HE PRINTED,')
"' FORMATCOX.AXIS IS ', 15, ' SQUARES L"NG,'/ '' "
& . ' Y-AXIS IS ', 15, ' SQUARES HIGH,'/1H1)
'FORMATC'OINPUT DATA FDR "UND SPEED AND DIRECTION AT ', Ifl,
& __ ' HOURS FOR SO*' ', I«, ' SHOWS COLUMN ', I"/' WHILE COLUMN', .
~l.~ Id, ''WAS EXPECTED,' OUTPUT WILL BE SUPPRESSED,')
FORMATC "OlNPUT DATA FOR WIND SPEED AND DIRECTION AT ', lu,
'& ' HOURS FOR COLUMN ', Ifl, ' SHO'S ROW ', IU/' WHILE ROW , ia/' WHILE ROW ',
& Ifl, ' "A3 EXPECTED. OUTPUT WILL 8E SURPRESSED,')
~ FORMATC'OSTARTlNG' CONDITIONS FOR COLUMN ', IU, ' OF ROW''}
8. Ifl, ' SHOWS POLLUTANT ', A3/' KHILE POLLUTANT ',
i A3,"' WAS EXPECTED." OUTPUT WILL" BE SUPPRESSED,')
FORMATC'OUNtXPECTED END OF STARTING CONDITIONS FILE.'/
& '.LAST CAfa) READ HAD POLLUTANT = ', A3, ' COLUMN a-'~,'~lQt "
_! ' K°W ° *' IU' '•''_
FORMATC25I3,"Al,'A2, 12)
FORMAT(1X, ?b!3, Al, A2, 12)
FORMAT! '((POLLUTANT '", A5,' ' "SOT~lN"~I>JP'UT'"L"IST7~VAi;UES "IGNORED,"1';
__FORM^ATC OBOUNUARY CONDITIONS AT HOUR ', IU, ' FOR POLLUTANT ', .«
""& '"AT BOUNDARY ', AI, ' SHOWS COLUMN ',"!«/' WHILE COLUMN',
& ia, I WAS EXPECTED. OUTPUT WILL BE SUPPRESSED.')
'"FORMATCOHOUNDARY CONDITIONS AT HOUR ',"Ifl, ' FOR POLLUTANT ', A
_& J FOR COLUMN ', 14, ' SHOWS BOUNDARY ', Al/' WHILE BOUNDARY
& ,"AI,"''WAS EXPfcCTEO."'OUTPUT WILL"BE~SURPRESSED,')
FORMATC'OSOUNDARY CONDITIONS AT HOUR ', Ifl, ' FOR COLUMN ', Ifl,
&" " ' AT BOUNDARY ', Al, ' SHOWS POLLUTANT ', A3/' WHILE',
& 'POLLUTANT ', A3, ' WAS EXPECTED,1,
' OUTPUT HILL HE SURPRESSED. I ) " "'
.'OUNEXPECTKD END OF BOUNDARY CONDITIONS FILE.'/
"'LAST CARD READ HAD HOUR =' <,'"iu",' '"POLL'UTANT «-'-,—A3",
'COLUMN s I, IU, 'BOUNDARY o ', Al, ',')
FORMATC'OBOUNDARY CONDITION FOR POLLUTANT ', AS, ' FOR COLUMN >,
& Ifl, ' AT BOUNDARY ', Al, ' SHOWS HOUR ', IU/' WHILE HOUR ',
'& "" ifl, ' WAS EXPECTED. OUTPUT WILL BE SURPRESSED.')
FORMATC2F10.03
~" FORMA FC25I3, A2,""Ar, A2)" '
•FORMATCIX, 2513, A2, Al, A2)
FORMATC'METEOROLOGICAL INPUT DECK is ON FORTRAV UNIT-',-!«/'•
t, ' AIRSHED MODEL INPUT DECK IS ON FORTRAN UNIT ", Ifl)
END ' " " " " "
'»
&
THEY AREl'/
_160_
-------
i
n
SOURCE .CARP USJT.NG .FOR PROGRAM COMP . _ 1
C ****** PROGRAM COMP ******
C COMPARES MANUAL AND MACHINE MADE MATRICES
C 9 APRIL 1973 -- INITIAL PROGRAM DOCUMENTATION
C THIS PROGRAM IS WRITTEN IN FORTRAN IV FOR THE IBM 360/370
C THIS PRDGRAK TAKfcS AS INPUT T*0 SETS OF AIRSHED INPUT
C THE VARIANCE ASSOCIATED »ITH THAT MATRIX,
C BCC COMPUTED BOUNDARY CONDITIONS
C 83UM SUMMING VARIABLE FOR BOUNDARY CONDITIONS
C CNTD NUMBER OF WIND DIRECTION VALUES FOR VARIANCE
C CNTS NUMBER OF INITIAL CONDITION VALUES FOR VARIANCE
C'CNTV NUMBER OF rflND VELOCITY VALUES FOR VARIANCE ~~
C DIRDIF DIFFERENCE BETwEFN HAND-MADE AND AUTOMATIC WIND DIRECTIONS
C tSUM SlJfMINU VARIAbLt HJK VflNo DIRECTION
C I DO LOOP OR IDCAL INDEX
C IAUTOM THE FILE NUMBER FOR AUTOMATIC METEOROLOGICAL DATA
"'C IHANOA "."THE FILE NUMBfcR FOR HAND-MADE AIRSHED MODEL DATA " ~'
_c IHANDM THE FILE NUMBER FOR HAND-MADE METEOROLOGICAL DATA
c INT A st.T OF INTEGERS FOR PRINTOUT
C IPRINT THE FILE NUMBER FOR PRINTED OUTPUT
"c IREAO THE FILE NUMBER FOR INPUT
C J On LOOP OR LOCAL INDEX
c JREG REGIONAL CHARACTERIZATION OF THE GRIO
C JX TME CHARACTER "X"
C JY THE CHARACTER »Y"
c K (jo LOOP u>t LMCAL INDEX
C KREG OUTPUT ARRAY FOR VARIANCE NOTES
C L8 LETTER CODE FOR BOUNDARY NAME
C LO DAY HF TH£ MONTH
C LM MONTH OF THE YEAR
C MAXOPT MAXIMUM ALLOWED MIXING DEPTH
C MOH MANUAL MIXING DEPTH
C MSUH SU^ING VARIABLE FOR MIXING DEPTH
C NH HOUR OP THE DAY
C SCC COMPUTED INITIAL CONDITIONS
c sen MANUAL INITIAL CONDITIONS
C SSUH SUMMING VARIABLE FOR INITIAL CONDITIONS
C SljMB BOUNDARY CONDITION VARIANCE
C StIMM MIXING DEPTH VARIANCE
c S'JMV WIND VELOCITY VARIANCE
C T«'OPI 2,0 * PI. IN DEGREES
161
SOURCE CARD LISTING FOR PROGRAM COMP fCont'd 2)
C V3UM SUMMING VARIABLE FOR WIND VELOCITY
"C WDC " " COMPUTED WIND DIRECTION
C WDH MANUAL WIND DIRECTION
C"WVC ~ COMPUTED WIND VELOCITY " '
C WVH MANUAL WIND VELOCITY
C
C SET DIMENSIONS
DIMENSION «VH(25,25), wOHC2'i,25), MDH(25,25)
DIMENSION WVC(25,25), WOCC25,25), MOC(25,25)
DIMENSION BCC(25,0<0, BCHC25,o«), 3CC(25,2S), SCHt25,25J
DIMENSION LB(«), INTC25), JRfcG(25,25), KREG(25,25)
C DEFINE THE REGIONS
DATA JREG / 20 IHX, 5 IH 19 IHX, 6 IH
" "" "8 18 IHX, 7 IH 17 IHX, ' 8 IH
C 16 IHX, 9 IH 6 IHX, 19 IH
U 6 IHX, 19 IH 6 IHX, 19 IH
E 6 IHX, 19 IH 6 IHX, 19 Ih
"F " " "" 6 IHX, 19 IH 6 IHX, 19 IH
G 5 IHX, 20 IH 5 IHX, 20 IH
H « IHX, 21 IH 3 IHX, 22 IH
& 125 * IH ,
L 16 * IH , 9 * IHX, 13 IH , 12 IHX,
M 11 * IH , 14 * IHX, 11 IH , It IHX/
"C DEFINE THE INTEGERS ' "
DATA INT / 1, 2, 3, 1, 5, 6, 7, 6, 9, 10, 11, 12, 13, 14, 15,
3 16, 17, 18, 19, 20, 21, 22, 23, 24, 25/
C DEFINE FILE NUM9ERS
DATA IREAO / s/
DATA IPRINT / 6/
DATA lAUfOM /13/ " "
DATA IAUTOA /!«/
DATA IHtNOH /15/
DATA IHANDA /16/
C DEFINE OTHER OATA
DATA JB /IH /
DATA JX /IHX/
DATA JY /IHY/
DATA MAXDPT /2bOO/
DATA MINDPT / 200/
DATA PI /180.0/
DATA TWOPI /360.0/
C READ HEADtH
READ (IHANDM,7) NAME
RtAn UAU!GM,7) NAME
c METEOROLOGICAL DATA — CLEAR SUMS
TOO' MSUM so ' •"
3UHV a 0,0
SUMO o 0,0
3UMM c 0,0
V3U". o 0,0
OSUM a 0,0
CNfM B 0,0 • • - -
CNTV a 0,0
CNTD » 0,0
C READ MIXING DEPTHS
00 110 J = 1,25
READ (IHANOM,1,END=200) (MDH(I,J), I = 1,25)
REAO (I«UTOM ,1,EN03200J-(MDC(I,J) ,— I-o-l , 25 ) »— NHi— L-Y-»— tMr— L'O
110 CONTHJUt
162
-------
(Cont'd 3)
.__. SOURCE. CARD LISTING FOR PROGRAM COMP
00 120 J a 1,25
" DO 115 I a 1,25 ' ~ ~
KPEG(I,J) a JREG(I,J)
IF (JREGCI.J) ,ER. JX) GO TO I 15 ~
IF (MOH(I.J) ,LT. HINOPT) GO TO Hi
IF (MOH(I,J) ,GT. MAXOPT) GO TO 11I~ ' ''
IF (MDCd.J) ,LT, MINOPT) GO TO 113
IF CMDCd.J) ,GT, MAXOPT) GO TO 113 ' -
MSUM a MSUM + (MDH(I.J) » MOCCI.JJ) ** 2
CNTM a CNTM + 1,0 " '
GO TO 115
" 113 " KREGCI.J) = JY ' "
115 CONTINUE
120 -~ CONTINUE ' " - - '
C CALCULATE VARIANCE
IF (CNTM ,LT. l.orGCTTO 125 ~ ~
SUM* a SUPTCFLOAT(MSUM) / CNTM)
C OUTPUT MIXING DEPTHS " '
125 WRITE (IPRINT,11) NH, LY. LM, LO, 3UMK, INT
00 130 K s i,25 " ' ' ' —- ' •-- -~
J a 2i • K
~ "*Rire (IPRINT, 12 T'CMDHci7J)7~i~»~i725)7~(Hoc(rrJ) r
& (KREG(I,J), I o 1,25)
130 " CONTINUE - ' - -
WRITE (IPRINT.22)
C READ'wiND VELOCITIES " '" '
00 iao J a 1,25
READ dHAMnv.,2) '(wvHd;'J),"I"=~T, 25)~
REAO (I«UTOM,2) (WVC(I,J), I = 1,25)
CONTINUE ' .-..-..
173"
175
180
SOURCE CARD LISTING FOR.PROGRAM COMP. (Contld 4J.
00 180 J « 1,35
00 175 I s 1,25
K1EGCI,J) a JPE6(I»J)
IF CJREGCI/J) ,EO." JX)-GO~70~1'75
IF ChOH(I.J) .LT. 0,0) GO TO 175
IF CrtDCU.J) .LT, 0.0) GO TO 173
CNTD = CNTO + 1,0
DIRUIF = ABS(WOH(1,J) -'WOCCI,J))
IF (DIRDIF ,GT, PI) OIRDIF
03UM a PSU« t OIRDIF **"2"
GH TO 175 _
KHEGU,J) = JY -.-..
CONTINUE
CONTINUE
DIRDIF
_C_C:ALCUI«TE VARIANCE _ __
IF (CMTP ,LT, i'.O") GO 'TO 185
SUMO * SOPTCDSUM / CNTD) _ __ ____
C OUTPUT DIRECTIONS .......... " ...... ""
185 **RITE (IPRINT.15) NH, LY, LM, LO, SUMO, INT
'00 190 K t 1,25 "" .....
J z 26 • K
UP«INT,16)' (WDH(I7"J), Ta 1,25),
8. (KREGd.J), I » 1,25) _
" '
_
), I *~l ,"25J7~"J
110"
CALCULATE SUM UF SQUARES
00 ISO J a 1,25
DO 115 I = 1,35
KREGd.J) a jREGClf J)~
IF CJRF.Gd»J) ,EO, JX) 00 TO 1«5
IP HVHd.J) .LE, 1,0) GO TO 1«3 ' ~ '
IF
-------
_.SOURCE CARD LISTING FOR .PROGRAM COMP _. (Cont'd S)
1,25
DO 2"0 L =
':•' WRITE6(IPRINT,1B) (SCH 11, J) »J^ "_JljZ5Jj_(3CC(l_._J_)»_!_ " »»2^|»_i» _
S— - (KREGCI,J),~I'" 1,253 • -
240 CONTINUE
" WRITE (IPRINT,22)
250 CONTINUE
- C BOUNDARY CONDITIONS •• READ HOUR VALUE
300 READ (IHA.Ml)A,5,ENO««00) STHR
REAO UAUTQA,5,END-aOO) STHR
00 350 K » 1,6
' " C CLEA8 SUM
SUMS a 0.0
'' . BSJH a 0,0 "~
CST3 a 0.0 ,
~C READ BOUNDARY CONDITIONS"
OH 310 J 3 1,4
~ READ UHANOA.b) (8CH(I,J), I =
READ flAUTOA,*)
& 312, • VARIANCE B I, F6.2//5X, 25I5/)
~FORMATC HAND ', 25F5, O/' ~ AUTO ' ,25F5, 0/I5i lX,25CaxrA J )7J
FORMATC 1COMPARI80N OF INITIAL CONDITIONS FOR POLLUTANT ',
& A3, I ON ', 312, ' VARIANCE s i, F6.2//5X, 2515/3"
FORHATC HAND .' ,25F5,l/« AUTO ' , 25F5 ,1/I5, 2X, ?5 C4X , A 1)/)
FOXMATC 1COMPARISON OF BOUNDARY CONDITIONS FOR POLLUTANT '~f
& A3, ' AT ', I«, ' HOURS ON ', 312, ' VARIANCE s ' , F6.2//
'i 5X.25I5/) " " ' "
FORMATC HAND" ,25F5,1/1X,A1, > AUTO', 25F5.1 /7X, 25 (ax , A1 )/)
FORMAT('0"X" INDICATES A SUUARE OUTSIDE THE BOUNDARIES OF 'THE', "
i > AIRSHED MODEL,'/' "Y" INDICATES A SQUARE CONTAINING A«,
& " I QUESTIONABLE VALUE,'/' NEITHER "X" NOR "Y« SCUARES ARE'i~
_& _i USED IN VARIANCE CALCULATION.') _•
E'ND" " ' •. • - - ------ - -
1,25)
1,25).
L8(J), NAME
IF CBCCCI.J) ,LE, 1.0) GO TO 315
CNTB 3 CNTb + 1.0 _
8SU1 a BSUM +"(BCH(I,J> • BCC(I»J)J
GO TO 320
" J15 KHtG(l,J) 9 JY
320 CONTINUE _
~ 330 CONTINUE
C CALCULATE V»RIANCE _ _____
IF (CNTB ,LT,-l,orGO T0'335
SUMS = SQRTCBSUM / CNTB)
" C OUTPUT BOUNDARY CONDITIONS
335 NH B IFIX(STHH + TO,5)
SUH8, INT
NRITE (IPRINT,!?) NAME, NH, LY, LM, LD,
——WRITE (IPRINT,21) CBCHCI,J),"~r ="r,253~LB(J37~
& (BCCCI.J), I * 1,2S), (KREGCI.J), I = 1,25)
3«0 " CONTINUE
WRITE (IPR1NT,22)
350 CONTINUE
C GO SACK FOR NEXT HOUR_
GO TO 300 '
C END OP PROGRAM
400
1
2 "
3
—a -
5
6
7
11
FOHMATU3I5/12I5,7X,ia,312)
FORMATtlJF5.1/12F5.1,7X,iar3I2)
FOR"AT(1 5F5,0/12r5,0,7X,ia,SI2)_
F()RMAT(25F3.0,1X,A2)
FORM.AT(F10,0)
FOR".4T(25F3,0,2X,Al.A2)
12-
13
FOR1ATC1COMPARISON OF MIXING DEPTHS AT ', la, ' HOURS ON ',
I 312, ' VARIANCE = ', F6.2//5X, 25I5/)
- FORMATc1 HAND ',2515 ./'- AUTO ',2515 /i5,ix,2Scax,Ai)/)
FOKIATClCOMHARISON OF WIND SPEEDS AT ', 10, ' HOURS ON ',
I 312, ' VARIANCE = ', F6.2//5X, 25IS/)
165
166
-------
SAMPLE ;.INP.UT. DATA DECK FOR WIND PROGRAM 1 . _
111 0000 1001
21RE30 ' ' 3
7RIJPK 9
" 12PA3A
20AZU
9%'EST
98ELM
99COMM
1CAP
IbLUNB
21WHTR
93LAH
9 1 A M A
2BPOMA
92SNA
15Rb
HVEN
19CPK
161VA
23ENC
3feaKT
11
20
6
17
"" 13
11
12
17
19
20
.1 21, B
,2 21.0
,7 19.5
.5 19,6
,0 16,3
.1 17,8
.3 15.1
.3 16,5
.9 «,8
,7 12,3
.7 12,3
.8 e,«
25 0500 1600 1 1.00 1,00 7. 7, -5,0 ••
69092<
' 69092'
69092<
69092<;
~ 69092<;
69092S
69092 12PA!
»" 12»A<
1 11VE>
' llvE-
I 16RV
1 16RV'
' 21RES
evuvtv ,:iNtS
690929 15R8
SAMPLE INPUT DATA. DECK
rRITTIERlHWHwl
rRITTIERlUWlSW!
JAOENA 116M1M
SAOEWA 116K1SWJ
' ICE 1 a K 1 1 w [
' ICE l 16PT111316131213111?
9 MPH 2212303:
) 16PT1115161511 2111'
3 MPH '2322 3-2 2 _
) IfcPT 1 71210 2121013
5 MPH 12208731
) 16PT1H6 910 1 710 1
i MPH 25335153
) 16PT B 813 3 1 915 5
PROGRAM (fnnf'rt 7)
>13 8111112121212121211 9 81215!
'222566666033111
> 210 789 810101010 2 216 215!
! 1 1 2-2-3-3-0- 6 3 2T1-1 1 1
H11211101H111111110 9 8 6 7 5
253 610101111 8670553
15 1 8 910111111101110 9897
1330568977650232
>11 8 3 9 3 6 81?lli I i si 3* i i <;i 5
1 *"* i»ii232iiiii22 aTiVSYzTi-
1 16PT101010 9 2101213111110 910101010 9 9 9 9 H H *
6«o92-» 15»B HOONOO 12*15WS MPH 22 156323313587 8 875fcS7fc5
_ . _____ ... 6!?!" !_«" H«IL "5M1.0 16PT 788886 f,3,«15l218 7 8 2,1,15 7 I S I
"" 25.7 17,2
23,0 3.7
7
8
.1 9.9
,7 ia,3
1,2 22,1
15,2 13,6 ._
" 3.9 20.5
2U.6 18.1
22*NTT 22. 1 10,8
10LACA 12.2 22,2
13CO-A 11,3 11,1
17HISH 5,0 21,3
26KFI ~ 'IB. 6 10.5
690929
690929
600929
690929
690Q29
690929
690929
695929
690929
690929
690929
690929
690929
6909?9
690929
690929
690929
690929
690929
' 690929
690929
690°29
JLAX
3LAX
5HUP
SHUR
2L6H
2LGB
UKJTR
luTB
60NT
60NT
8PMO
SP^O
1CAP
1CAP
369KT
36RKT
30FOX
30FOX
29HQL
29HCJL
38'JP
"58NP
LA INT
LA INT
BANK
BANK
EACH
EACH
LSALMT
L3ALMT
ARID
ARIO
ALE
ALE
ON TULA
DNTHL A
BPCKTT
H3CKTT
^OXFLD
FOXFLO
LYwOQt)
1 Y HOOD
NWPRTB
NWPRTB
13W11WO
13W15WS
fllWllwO
ai*i5wa
21Kl«hO
21W15WS
10 WO
""15WS
61W11WO
61W15W3
89V.11MD
69^15i>3
75t.l«WO
75V-15WS
9 u * 1 u w 0
91Vi15^S
9«W11WO
98K15WS
27Ullh[>
27M5W3
11«D
ISrtS
16PT 1111211 1 81216 9121111111211111211101010 8 8
'MPH ~~J 5 8 9'9"6 fl 6""5 9 9101215101H 61310 8 7"B 7
16PT HOllia 11612 1658576688 51211131315
MPH ? 3 3 5 312 5 3 3 3 2 2 7 9 91012 565366
16PTlSl?iai 1161110151113151111121012121213151516 21
MPH 7 5 6 510 7 B 5 7 6 6 8121211101210 67911
16PT
MPH "
16PT
MPH
16PT
16PT
MPH "
1 1810 2111213 910 910131H11115 2 8
"21225'632 16679109977 22 I "
16 3 31616 5 812 918J 3121 2 1 2121 1 1616
53332711 669 M212171HO 8165
5 810 9 a 8 8 1 6 512 9 9 911101112 6
2101118 21216 1101212121212121212121210 8 8161
'313055 U 2356899988568322
8PT12 2 1 612 6 6 1 1 112121212121212121212 8 a a
MPH 3150329538867 8101112 975221
16PT11121210121213 911111311111010 9121111111010111
MPH 10 88558521268 612151H5 975786
8PT 8 8 8 8 a 2 812 612 810 81010101010 81010 8 1
MPH 1 1 11152 1611119522622222
8PT11 1616 110 1112121212121212121212H 1
MPH 3" 5810 1 3261087810101081
ovuviv gJHE* H4LL 115W15WS
_690929 17M13HHILL3 113KJUXC
_ 690929
690929
690929
690929
690929
' 690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
"690929
690929
690929
690929
690929
6"0929
690929
690929
690929
690929
690929
690929
690929
690929
690929
i MPH llllllll
> 16PT 1 212 3 21M3 3
111257753322111
17MI3HHJLL3 113hl5ws MPH 1 1 l'2"2 7 1 I'l
25MALCMALIRU10HM1KP 16PT 2 1 1 6 1 51 0 1 5 1 1 1 0 1 0 7 9101010101010 1 8 1 1 3 31
«*ALCMALIHU108M5WS MPH ' 3 1 1 1 3 1 1 2 3 2 2 5 75808 232322
2,Ln^trH !PlK1rD !fcPT Mil2 ' "2131112121312121212 2121 212lf 131 « 1)
leuONBhACM I01M5»'S MPH 222262323075 810101310 73652
i.°t:=- !o°s:i;:s ^^iii^iiiii ? m : in ii?iiilii\i\i
I:;E! ?KS?; ,'i:is:s w>t jri. JTI rsiwwiitiwrvt rrr
23ENC EMCINO 66KHWO 16PT 9 910 8 3 9 9 5 713131313131313121212121 5 5
2JENC ENCIHO 66M5NS MPH 2 2 3 3 3 3 3 2 2 S 3 1 S 7 1* 1 Tf* I 1 I I
IIF.LM n\'T£ ia»io
IUELM ONTE " isws
13COMAPTON H2viav«i>
13CUMAPTON 112^)5KS
I9CPK CAMOCA 67wiu«D
19CPK CANOGA 67W15.WS
73URi
7rtUHi
28POM,
2PPOH'
20A.U
5 A A 7| 1
91 4NA
9 1 A M 4
923NA
92SN4
93LAH
9JLAH
^BANJK IOOKIIKO
<(3A>JK '100*15WS
APnMC)WA109»14KO
'PUMnNA109nl5*S
AZUSA 97kl1wO
AWAHt'IM 11KO
'AMAHEIM """ 15V.S
SA'JTA AM4 18wO
S4'iTA 4^4 15WS
LA H4BRA 11'*D
LA H4PBA 1S»S
98FLM EL MO'uTf I8UO
'9BELM EL HONTE — 15WS
99COMHCOMMEWCE 1«KD
99COMMCOMMEWCE ' 15KS
16PT 8 81211
MPH '1122
I6PT 1111313
MPH 3355
I6PT1H01211
MPH 1111
16PT
MPH 2 "1 11
16PT15H 510
MPH 3222
16PT 816 611
16PT15161515
MPH 1111
16PT 7 81215
MPH- 2 12 3
16PT 1189
MPH 2221
16PT 1 1 912
KPH -5133
16PT16151211
MPH a 5
-------
__ SAMPLE, INPUT DATA DECK FOR QUAL PROGRAM
SAMPLE INPUT DATA_DECK. FOR._QUAL.PROGRAM_
.(Cont'd 2)
in oooo 1001
22,0 9,0 THC-'NO""OZ
21RE3D 3,1 21.8
79UUK 9,2 21,0
12PA3A 10,7 19,5
20AZU ' 20,5 19,6
9«E3T 6,0 16.3
76LSNX ' 7,7 12,5
98ELM 17,0 17,6
99COMH 13,3 15. 1 ™
ICAP 11,3 16.5
1810MB ' 12,9 8.8
2««HTR 17,7 12,3
93LAH --• (9,7 12,3
91ANA 20.8 8,8
26POMA 25.7 17.2
923NA 23,0 3,7
ISfCJ " 7.1 9,9
690929 ICAP nOwNUiN LA
690929 60AZU AZU3*
690929 <>9BUSi< BURBANK
690929 71»EST '*EST L A "
690929 72LONBLOMG BEACH
690929 70UESO RESEDA
690929 75PO'AZU AZuSA
690929 69BURK 3UR3AMK
6 16 0500 0500 1'lgOO 1,00 lO.O'lO.O 5,0 690929 71WEJT WEST L A
•— N02 CO ~ MTH ' "•• ' 690929 72LO*BLONG BEACH
690929 70RESD RESEDA
690929 75POMA POMONA
690929 76LENX LENNOX
' ~ ' 690929 79PASA PASADENA
690929 BOWHTR "'HITTIER
690929 ICAP [)OV«NTWN LA
690929 60AZU AZUSA
690929 79PASA PASADENA
690929 ICAP DOKNTWN LA
690929 60AZU AZUSA
690929 79Pi.':A PASADENA
"~ " " ' ' ' 690929 9] ANA A'JAhtl."
690929 93LAH LA HABRA
690929 91ANA ANAHEI*
690929 93LAH LA HABHA
690929 91ANA ANAHEI"
10Z PPHM 1111 1125812987532111111 6<}09?9 9HELM EL 'J-OME
10Z PPHM 2222 223 916222028382510 721111 1 fc90929 9?£LM fL "ONTt
10Z PPHM 1111 1120 71110211011 5322111 1 69C929 9PFLM tL MONTE
1PZ PPHM 1 l-r2~Tl 1"3 510121010 6 0 213 I'l 1 I fc90<>29 99COMHCOMMERCE "~
10Z PPHM 1112 11112262111111221 1 690929 99CO-MCQ.-MERCE
10Z PPHM 21 1 1 ~ 2 « 0 912101017 967032111 1690929 99COMMCO"*EHCE
10Z PPHM 3332 223 916191 Olb2121 16 663222 2&90929 99CUMMCQMMEHCE
10Z PPHM 1233 11223 010 7 8 3 0 U 0 1 121 1690929 99COMMCOMMERCE
102 PPHM 3222 222 9 1 726U 1 3220 1 2 9632222 2&90929 91ANA ANAHEIM
10Z PPHM I'l 1 r~~l~l"2 6112130301912 7453211 1690929 92SNA SANTA ANA~
2CQ PPM 111123 71718 63326650700 6^90929 93LAH LA HAHHA
2CO PPM 910 9 9 91010101110 867966U577789
2CO PPM 9 910111213151817 91U011 7755 61216101615
2CO PPM 003365 91717 8 500005000556 ...
2CO PPM 232237 91311 96665555500056
2CO PPM 1513 910 910121611 86ttb33bb567B88
2CO PPM
2CO PPM 5 5 5 0 6 71110111113 21111113055 -
3S02PPHM 12222222 02221122221 11
3S02PPHM 111111 1 1 1 1 1 H 1 1 1 1 1 21
5S02PPHM 111111 1 .1 222222211 11
3902PPHM 162136 1313899o76a32221 ' "
3S02PPHM 111111 1 11111111111 11
3S02PPHM 111111 1 2211111111 li-" -
3S02PPHK 621115 1 1111321
3SU2FPhM 111123 1 11111111111111
3S02PPHM 21111111 12 1 1 1 1 ! 1 1 2 2 2
ONH2PPHM 5666502 311191810 567750003 ' '
OMI2PPHM131510U1312121 J1611 85 57 71113111110
ON02HPHC1312121 3101blbl 725292819 1110111719131110 -
OH02PPHM 777798 812211910 888 910 99988
OH02PPHM 6550206 91728
-------
SAMPLE INPUT DATA DECK FOR DEPTH PROGRAM
It 11
690929
690929
690929
690929
690929
690929
690929
690929
" 690929
69Q929
690929
690929
690929
690929
~ 690929
690929
—
01
HAW
HAM
HAW
H*>
COM
CO"!
COM
COM
CUM
COM
tLM
ELM
tLM
ELM
ELM
EuM
_ —
25
nsoo
0626
1228
1600
0500
0815
0910
1206
1257
1600
0500
0756
0920
1156
1312
1600
25 0500 1600
- 035 -
650
700
630
3B5
600
S5'0
1300
1000
960
400
050
825
1700
2800
2800
100 2500 ' ' -. Ill 01 6 18 0500 1600 - - - - •• ••
\ 22,0 9,0 THC' NO •"OZ"""N02~ CO" HTH
70RESD N 3,5 0500 OUOO 0800 1100 ,180 0,5
69BURK M 9,5" 0500 "0000 OBOO 1 1 00" . 160 " 0 , 6
79PASA N 1U.5 0500 OUOO 0600 1100 ,150 0,6
604ZU N 20,5 0500 0000 OPOO 1200 ,120 0,« ' ••••
71«fEST 3 «,5 0500 0000 0800 1100 ,050 0,6
76LENX 3 5.5 0500 0000 OROO 1100 ,050 0,6 ~
72LQNB 3 12,5 0500 OUOO 0800 1100 ,050 0,6
92SNA S 19,5 0500 OUOO 0*00 1100 ,050 0,6
92SNA E 3.5 0500 0«00 0900 0900 ,?20 0,6
9(ANA E 8,5 0500 OUOO 0800 OYOO ,d
-------
SAMPLE INPUT DATA DECK FOR BOUND PROGRAM
''I
(Cont'd 2)
• - SAMPLE INPUT DATA DECK FOR DPREP PROGRAM
490929
6909H9
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
690929
f>9fl929
690929
690929
690927
690929
690929
60AZU »ZUS»
69HIJP-K BUP.BAWK -
71WEST
-------
C"5 - - -
*~^
Y-AUS IS *5 SOU»*CS MICH.
o
' 0
:O
•j . '
i°
. O
O
O " '
o
0
o
,
o
0
SAMPLE OUTPUT FROM PROGRAM KIND -- CORRELATION OPTION 1
o
R Sia» I3t «~»MIS T-aitlS
«.\i« co3Bois»TE coomi-are
O oEii 1.1 ti.n
niH* 9.2 fi.o
*«S» , 1 <•. r li. S
O M i *j.$ t-j.t.
-e-.r fc.o i .1
tl 1 1 7.fc 1 . 3
O C'.j-^H M.I 1 .1
Cft» 11.1 1 .5
10 0 »*.« .8
C «•* * 1 '.* t .1
i i n.T 1.1
AN JO. B .4
PT » J^.T 1 .
51 23.0 ).
IB T.I T.
O VEN *.T I*.
IV* 15.2 U.
O esc i.* 20.
e'-'
• I *ISH 5.0 2^.3
lO . . , , KFI ^p.B • 10.5
•f
;J.0
']
0
i
i° •
1 o
1
' O
n
i O
! o
O
; o
I
jo
O
o
•*>
0 ;
0
•
o
0
o
O
o
o
o
0
o
o
o
~>
o
o
o
o
o
o
o
0
0
o
0
o
o
0
o
o
o
o
o
0
• o
SAMPLE OUTPUT FROM PROGRAM WIND -- CORRELATION OPTION
(Cont'd 2)
-------
; o
i °
i °
lo
1
1
0
, o
1
1
! 0
. ^~
C
o
, 0
! °
1 0
1
1 °
.
L
[1 \ .OC7.4*.Ol,SO.OO. 4.01.
.jy wvw 115. iofl.2 4.0 2.2 -2. a -o. ?.« ?. O
NNW -SW |S7. 74.0 6.0 1.2 -5.5 0. 2.3 I. ' •
WIM WWW 112. 105.3. 6.0 2.1 -2.3 -0. 5.5 2. O !
NNF WN-J 202. 120.2 3 .'o 1.) -2.9 -0. -1. 1 I.
WN* H -4 112. 102.4 3.0 1.4 -I.I -o. 2.B 1. Q i
_ WSW Mri b7. .75.4.. -J.0.6.3. 3.4 1. , H.3 6. O
1 H HSW .90. 7b,l 11. 0 7.<» 0.0 1. 11.0 7.
HSW W^w 67. 76. 2T. Q4. 22. 71. 6.S*. . Oi
_ SSW WSW 22.5 57.2 4.0 l.» 3.T 0. 1.5 1.
SM SM 45. 051. 22. 01. 01. 4Q. 1.40* O1
usuwbT.4da.o2.oo.so.ao.oi.0o. •
n '
o
o
o
0
o
0
!
o
n .
O
n
O
SAMPLE OUTPUT FROM PROGRAM KIND -- CORRELATION OPTION
(Cont'd 3)
0
M1S3 SltllOH
ci
4ESO
O WESt
ELH
O CAP
W 67.41 —
o
o
o
o
n
O
O °
O
o
O
O
o
o
SAMPLE OUTPUT FROM PROGRAM WIND -- CORRELATION OPTION (Cont'd 4)
-------
o .
EXPONENT VII tl* t
1.00 2. 00 1.00
SOJ .4* 7l.fr
60J . !•» 61.3
I"1 7UO .42 91.8
i»ni) r t»g PO.fc
; 200 .11 *6.l
• O 3JJ .17 51.1
-ilO . ?7 4*.S
1JJ . 1 3 36.1
1 . 70J .20 31. B
900 . f>4 50. 9
O 90 J ' .01 7*.* "'
' -' 1JJ . 78 fl9.0
lO 200 t.37 100.*
.'I 300 1.25 «4.3&
72.1 . .-.4
SZ'.I !3H
nil :»*•
51.3 .31
12." •(>'•
3ft. 6 .
1.1
4.4 0
[.0
).T O '
3.0 Q
1.0
4.2 0
C,.? O
6.6 O
i .r i
6.90 O
O
'
o
o .
u i
o o
u
o
o
o
O
O
O
0
1
o
SAMPLE OUTPUT FROM PROGRAM KIND -- CORRELATION OPTION (Cont'd 5)
0
•j id
j | ,00 2.00 3.00
9*SD 0.7* 0.59 O.'fl 0.5T 0. 77 0.19
->i^A , 0.7i 0.1", 0.7 0.3? 0.73 0.2«
EL D.I! 0. 67 0 *)
: 01 0.-14 O.ftl 0 "
; O Cft 0.<>l 0.11 0 '
>49 0 . B 1 0.13 0"
N 0. IS 0.11 Ofl
n A n.s^ o.u o ".
O V O.»0 -O.OT 0 9
j £ O.oi 0.^2 0 t
V 0.9) O.LO 0
O OUT 0. 79 0.27 0
: i L»C4 0.50 0.** 0
HISH 0.51 0. 31 0
O.ft'i 0 O.S
0.60 0 0.5
0. 0 0.«
0.53 0 0.4
0.42 0 0.4
0.13 0 O.i
-G.Q/ 0 -0.0
0.*') 0 0.*
0.37 0 0.3
0.04 0 0.1
O.5* 0 0.5
o.4<) o a 0.4
0.51 0 ? 0.5
0.40 0 0 0.35
-0.00 0 9 -0.03
j^O
0
0
o
0
n
O
o
O
n
O
.
69 929
O
0
O
. 0
o
0
o .
0 i
1
o
0
0
0
o
n
0
n
O
0
O
0
O
SAMPLE OUTPUT FROM PROGRAM WIND -- CORRELATION OPTION
(Cont'd 6)
-------
o
n
0
o
o
o
o
o
io
•!°
O
c
o
o
0
o
o
0
o
0
a
o
o
o
u
1
c
o
o
__ HOUH S
o n
too o
?.U (i
300 0
50J -0
iOi) -0
70J a
*00 0
OJJ 0
JJJ J
iJO 0
6JJ 0
dOJ 0
103 0
UJ 0
200 0
I-AHIS S
1.00 2.00 3.00
.4) -O.Oi 0..15) 0.2J 0."»J O.lft
.0> O.*rt 0.03 0.23 -O.J1 0. ~~ --- ^
.210. 61-0. 3d 0.)A*0.17O.
.01 0.02 0.03 0.02 0.02 0.
.SO O.ll O.*it> O.I 0.60 0.
.5* 0.0' O.hO O.I) O.b5 0.
.^5 -0.01 Q,v> 0.2 0..15 0. ~ ~ "" "-'
.*! -0.03 0.3' O.L 0.33 0.
,27 0.20 0.2? 0.1 0.29 0.
21 0.15 O..V O.J 0.20 0.
?S 0. Ort O.lf O.I O.ii1* 0.2
21 O.IT 0.04 O.I • -0.02 0.0*
30 0.15 0.2!) 0.20 0.26 0.25
SAMPLE OUTPUT FROM PROGRAM WIND -- CORRELATION OPTION (Cont'd 7}
25 S01MBES LONG.
*tHD STaini" yifMIN 7.0
-------
]°
'!
i i
! °
i o
HI no VUTIU'N LOCA
&TMIJM ,-
PAS* 1
til
coin
LONfl |
*MtR [
1*11 1
ANA 2
Prim 7
SNA ?
VEN
fPH
RV4 |
ENC
BUT 2
LAC* |
HON.
.|N*?E
3.1
4.7
.5
.0
.4
.3
. 7
.7
7
0
1
7
2
2
9
6
2
.3
.0
—
21.1"
21.0 " ' ' — ___
l<*.5
19.6 •— •'•' —
16.1
17.8 " . — _
__15. I
1 2 . J " ™ —
_ 12.)
17.2
) . 7 • ' • . — -—•• .—. —
9.9
22.
1). — — . _—_
20.
22. ~" -—— _— — _
11.
24. J ~
c
- C
o :
o
o
o
0
O
O
° I
o !
o!
o i
_ I
0
o
o
s -
O
O
• - — — — — — — —
..... SAMPLE OUTPUT FROM PROGRAM WIND -- CALCULATION OPTION (Cont'd ')O
o
n
,• o
: C
i-r
i
o
o
!
i o
o
o
o
o
o
o
o
CALCULUCD UNO P*TTE«N r0« 500 MOU* « 929 .......
CIXU1N dO
ri REGION POINT 01 BE CM ON D_G«EE
1 25
2 25
3 25
4 25
5 2.
l 25
8 25
1
9 25
0 25
1 2
«. 2
16 2
1
2
2
2
2
1
5
4 102.3
5 NN 164.6
5 NS lf.3.8
SPEED I-VECTOK
1.7 0.1
l.R -0.4
l.T O.I
3.6 -2.9
2.8 -2.1
2.1 -1.4
t.5 -0.3
I. -0.3
3. -3.4
3. -3.4
6 N 170.8 2. -2.4
N 173.1 2. -2.3
1 N 176.5
UNE 211.5
NE 235.0
ESF J40.2
ENE 239.3
ENE 25 t. ">
E 270.0
E 2'O.Q
ESE 232.5
1 Nri 131.6
1 USM 71.4
i u eo.s
1 MSw 74.5
1 N_ 115.9
1 NW 141.1
1 ' NW 12B.
2 * 95.
4 NW 124.
3 W*rf 120.
6 N 16».
5 NNM 1ft 3.
15 HH'4 167.
1 NNE 204.
' 2 NE 2)2.
2 NE 22).
3 ENE 251.
3 ENE 239.
3 ENE 250.
* E 270.
4 E 2BO.
5 ESE 292.
5 6SE 282.4
* E 277.2
11 M%u 70.5
11 WSU 57.5
14 NW 138.9
12 M 92.0
12 W 93.4
13 MNM 114.1
13 _NW 122.0
2. -2.2
2. -2.2
2. -l.T
2. -1.2..
3. -1.8
3. -0.6
4. -0.0
4.0 -0.0
2.9 0.6
2.3 I.I
2.7 -1.8
l.T 0.6
1.7 0.3
.6 0.4
.9 -2.1
.2 -2.5
.2 -1.4
.5 -0.2
.8 -1.0
.0 -0.5
.1 -3.0
.2 -3.
.5 -2.
.4 -2.
.5 -2.
.6 -I.
.7 -2.
.4 -|.
.3 -1.
.3 -1.
.3 0.
.0 0.
2.9 0.
2.5 0.
2.9 0.
i.e o.
.6 1.0
.1 -2.1
.7 -0.1
.6 -O.t
.8 -0.7
.9 -|.0
Y-VECTO*
i.r
I. a
1.6
I'2
t!b
1.5
0.9
1.0
0.3
0.1
-1.3
-2.4
-2.1
-3.2
-2.9
-4.0
-4.0
-2.8
-2.0
2.0
1. 7
1.7
1.6
2.0
2.0
l.T
1.9 '
1.5
0.8
O.A
0.9
0.6
-0.4
- .0
- . 1
- .2
- .»
- .1
- .3
- .0
- .9
- .5
- .8
.T
.7
2.'
1.
1.
1.
SAMPLE OUTPUT FROM PROGRAM. WIND -- CALCULATION OPTION
(Cont'd 3)
-------
o
CJ
0
**
0
21
(1 ;=
0
0
15
!°
i
r
0 "
o s
0
6
*
0
'
O l
0
0
0
o
0 _ _
• 1*0
< —
• ,
• 0
0
IS
•i
0
j — a
0
\ *
i
0
O 2
i
: o
0
0
O
1 2 J * 9 A 7 9 9 10 11 12 I J 1* 15 16 If 18 19 20 21 22 21 2* 25
.) 2. 0 . 3.0 5.0 3.T J. 11.2 1. I.
SAMPLE OUTPUT FROM PROGRAM WIND -- CALCULATION OPTION (Cont'd 4)
BT«UCMON Glifo FOX 500 MtlU* "~ 6* 929 " ~ ~ " ~ ""
67. 102. 66. 126. 1*). MO. |M. 132. 102. 102. 165. 1* . 171. 173. in. 211. 235. 2*0. 2 0. 251. 270. 2 0. 281. 2 1. 29*. .
132. 1. 81. . 136. 1 1. 128. 6. 12 1
73. 77. 78. 83. 89. 86. 94. 90. 11*. 68. 93. 104. 132. 1*1. 104. 69. 132. 169. 204. 256. 259. 262. 260. 119. 301.
74. 73. 72. BO. 8*. 79. 7*. 8S . 82. 8 . 80. 86. 80. 6B. 9 . 8 . 87. 113. 119. 12 . 124. . . 11 . 1 0.
68. 79. 7t. 68. 65. 60. 69. 64. 65. 76. 57. BO. 86. 93. 75. 97. 91. 93. Bfl. 79. 1 t L. 121. 113. 83. 50.
"•"•»•* •'• • 5 2- • '• '• • "• "• '"• 10 • "• '•• •>'•'• •
65. 56. 70. 11. (, . 65. l«. .. 1. J6. 72. 65. 6 . 6J. 77. 1 . 5». JJ7. )) . J17. 1J7. JJ . JJ 11 . HI.
i*. 71. 61. 61. 61. 66. 61. 6S. 60. 36. 61.'"66. M. 66. 67. «!. 69. )i. 68. Jif. Jli;~i>7. 1)'. Sl». ' JJI.
SAMPLE OUTPUT FROM PROGRAM WIND -- CALCULATION1 OPTION' fCont'd 51
0
c
o
o
o
ol
_ I
°l
o
o
O i
0
o
o
o
0
o
0
o
o
Q
o
o
0
0
o
o
o
o
0
0
0
o
o
o
-------
0
s - — — -
0 .««,« -Ess.cr, MU -F ..,~-rn.
0
»ia 1MALITT HHL pt r.naft ,
O
INPUT STATIONS hlTHfN 10. 0 SEU»PF«i will PE USED IH PAJTE«». CALCULATION.
•j
i°
c
o ......
0
o
0
o
ft
0
0
0 SAMPLE OUTPUT FROM PROGRAM QUAL -- CORRELATION' OPTION 1
n
o
0
o
o
o
n
O
0
o
0
o
0
0
n
O
n
O
n
0
r>
O
n
w
«
o
c
0
*!" QUAL
STATION
HA1£
A7'l
WEST
LCSI
El"
CAP
10 *
I A
AN
PC A
SNA
|Tr tTITICS ICCtMfhS
I-.TIS »-
3.1
7D.5
^.0
IT.*
13.3
11.3
17.9
17.7
n.T
25.1 1
n.o
n
••n
o
p
fi
' O
3
' . O
1
5 0
•
3 0
2
7 0
O
0
[0
•I
'
-------
.
• WC
0 20.0 >*.
ina 20.0 60.
*C10 20.0 JS.
•J-'O 0.0 0.
1003 20.0 3*.
O uoo o.o o.
i COO 20.0 60.
1*00 0.3 0.
i O 1 7JO 0.0 0.
i l"»00 20.0 «0.
O 2030 20.0 4;.
: . 2ion ;o.o *2.
I i JZOO 20.0 4*.
!-}
i°
: o
: °
i o
i
i °
! n
1
j o
j «
o
c
•
_ *0 _ <"7 N2 CO UMC
. E*S CM.C MAS cnc -eas ctic KEAS cue -f*s c»i
11.0 P. 6 ?,? 1.2 1S.O 8.5 0. 0.0 30.0 33
.0 0.6 ?.0 1,3 11. 0 *.* 0. 0.0 »0.0 4C
.0 0.4 r.c 1.4 10. c K.I o. o.o i-3.0 *7
.0 J.I C.O 0.0 6.n 1.2 0. C.C 20.0 50
.n 3.7 41. C 11.4 12.0 12.7 0.0 0.0 3T.O 30
0.3 0.0 3«'.0 1ft. 0 0.0 0.0 0.0 0.0 20.0 23
1.0 3.* «.C "t.ft 6.0 7.1 P.O 0.0 10. 0 26
1.0 in.« 2.0 1.1 3.0 P. 7 0.0 0.0 20.0 20
8.0 <).* 2.0 1.1 1.0 7.3 0.0 O.C 30.0 30
7.0 11. * 2.0 1.0 3.n A. 8 0.0 0.0 30.0 33
7.0 14.0 i.O 1.0 3.0 6.7 0.0 0.0 30.0 33
-
n
o
o !
8
0
" O i
0
z 0
4
* 0
o n
8
0
! . °
o O
2
0
: °
o o
0
0
0
n
O
n
O
n
O
r^ '
SAMPLE OUTPUT
! QUA!
ATTOV
_/f nnf.1,1
r^
HO>J»IT
n
Nmi»
n?
00
^ 00
on
O oo
10
i O on
i t oo
; i oo
' O i oo
1 00
1 00
. O i oo
I 1700
1 O MOO
' I 2000
fC 2100
2200
i ! Z50°
r-O
1 °
0
0
O
n
O
n
O
ri
O
CO««EM
1.00
-C.C4
0.)'
o.n
-C.IJ
-0.1)
-C.IT
0.04
C.ll
-0.01
C.f"»
C.JT
-O.Tfc
-C.32
0.00
-0.20
-0.45
-0.511
-O.T)
-0.61
-0.21
n
TI01 COFFFICIF-dS FCt no »9 9?»
Q
EII>C>>rk.T VALUES
?.oo 3.cr . P
-c. -c.i O •
0. f . 1
0. O.I
-0. 0.0 1
-C. -C.I
-o. -c.i O
0. C.O
0. 0.2
0. C.) O
0. 0.1
••) . C . 5
-C. -0.9 O
-0. -C.C
0. C.I O
-0. -0.1
-o. -c.i O
-0. -C.J
-0. -0.? CJ
-0. -0.5
-0. -0.il
o
-0.15 -O.OB
0
0
o
0
n
o
0
0
• n
SAMPLE OUTPUT FROM PROGRAM QUAL -- CORRELATION OPTION (Cont'd 4) O
-------
1.01 2. OP 3. OR
STATION
«Esn r.j* o.m c.39
RIIBK 0.7? 0.72 C.71
UEST O.flO O.f<2 0.93
O EH o-o o.o o.o
C*" 0.67 O.TO 0.69
WHTR 0.31 0.71 C.6I
1AM P.65 0.60 0.*9
SNA 0.0 0.0 0.0
o
1 ' MEAN 0.64 0.63 0.61
1 O
!o
JO
o
i v
', o
o
o
c
' o
i
• o
. _
I u SAMPLE OUTPUT FROM PROGRAM QUAL -- CORRELATION' OPTION
O
C 1.00 2.00 3.00
0 .17 «.|$ *.1<1 — _ _____
200 .21 |.j« 1.52
D 100 .M J.'4 i.Th
500 . 11 J.47 3.*>*.
O 900 3.4 J.** .*?
1 _1100 ?.? 2.29 .35
i 1307 2.*, 2.ftft .72
1 0 1500 .9 1. orj ,q$
' - 9f>0 .01 3.94 .93
f 001 .1* 3.08 .0.1 "
200 3.47 3.31 .21 ~~~~
i 2300 2.40 2.71 2.67
'l MEAN 3.11 3.13 3.17
i o
1
0
o —
i °
o . .
n
o —
o
_° SAMPLE OUTPUT FROM PROGRAM QUAL -- CORRELATION OPTION
0
i
c
, c
o ;•
i
O
!
0
o
0
0
o
o
0
o :
fCont'd 51
O
• O
^
o
0
0
o i
1
O
O ;
0
n
O
o
O
0
O
n
o
o
o
A
(Cont'd 6) °
-------
n
1.00 7.00 3.00
STATION
«e n 3. si i.*c 3.3*
Ptl H S,B6 S.flU .03
PA A C.O 0.0 .0
^ A: ?.m Z.TI .M
WF T ?.IZ Z.OT " .C-"
1C < J,»0 l.ft? .^o
CO * ?.*0 ^."JO .15
CA J.->3 3.5T .6%
O 10 » i.ao i.Pb .03
KM H 2.14 Z.?0 2.14
l» 0.0 0.0 C.C
O »N 0.0 0.0 C.C
W A l.Ql 1.7T 1.T3
SKA 0.0 0.0 0.0
O
{->
;0
"I
i
O
u
O
u
O
0
0
0
0
" SAMPLE OUTPUT FROM PROGRAM' QUA!. -- CORRELATION OPTION
r
o
0
o
o
o
- c
0
o
o
o
o
u
0
1 O
0
u
0
rCont'd 7) w
o
0
• ' -»H-,'|-.r. ieS:^'* -HL ft PMt:TfO.
O' Aid Qi.'tlltr will MCT ««• f.-RPFt'tf 0.
O " " "
T-4Jlli IS 21* SQU/.ofS Mir.H,
04T* CJ':-*I'«C, TW T|H£ ^PIN ".JO IM*3ur.H " 5-30 H-IU'S Will 3F PPOCES^ED.
A TniiL OF *> PClLUf*fiTS Wt»; KiMS3i
1 O TMc Cfl'J/tHil.W PACTIIB KIP UNVft-ZnVt HVi)i>OCAOHn>J^ IS ".0
j i t*p'j:*Evi vsturs »At.r,iNr. no.- i.oo iH»DtiCH i.ao «ai BE TESIEO.
0
o
! o •
o . • •
0
o
O '
o .
1 ° SAMPLE OUTPUT FROM PROGRAM OUAL
O
• " o
o
o
0
j
------- o
0
o
----- o
_. o
• o
o
. . . . _.. _ Q
.0
" o
o
• --• o
.0
.. : .- o
0
-- CALCULATION OPTION 1
-------
o
o
o
o
o
o
o
o
o
o
STATION
nu=ti
ti\l
IFNX
0^
ON9
AH
PQ.tA
1-
1
2
1
I
I
1
2
2
2
0
N LOCATIONS
«1S Y-»»IS O
INATE COORDINATE
*-
C-
u
„ .
0
I 2
7
O
o
0
o
0
o
0
o
SAMPLE OUTPUT FROM PROGRAM QUAL -- CALCULATION OPTION' (Cont'd 2)
. o
o
. o
o
. o
' O
0
-
1 it C 10.9
i 25 C 10. «
o
O
r-
o
o
o
0
1
. 0
i 0
: o
i iO
i
o
6
c
o
o
o
0
o
0
& 5
J 5
B $
•» 5
10 5
I 5
V 2S
5 25
7 25
ia 75
19 2*
20 25
?«, 25
2 25
2V
2V
2V
2V
1 2v
) 2V
5 2V
7 2V
2 2V
I 23
2 23
3 21
V 23
6 23
c
c
c
c
c
f
f
t
f
. f
f
r
t
F
r.
c
c
C
c
c
c
c
F
F
F
— r
F
~f~
— 1~
C
C
c
~r
1 1 .0 f
11.2
12.2
1 1 . 7 r.
II. 9
12.0
8 °
9
a
u.
11*
9.
9.
10.
10.
10.
It.
11.
12*
B.
1:
10.
-------
PULLUTANT NU CONCE*tlU~TION GRID" FOR MO HOUR "~~69* 929 '
1 * 3 * ' &~~ 7 " V~ ~9 ~10l"l U" 13iV~~I5 ~U " O 13"
232*ij"
1°
I O
lo
o
h
ii°
' j
I O
13.3 12.7 13.2 16.9 1»."7 !«.» 1 r".> 2r.9"2"»."s li.2 13.1 12.7 ll'.B 10.7 TsTs ibTs 10.9 1»;«~12.9 772 l~l 57i~37T~Tr5
20 11.5 11.T 11.3 U.7
r;* o
»""5~
ia b.j a. J a.6 9.6 5.2
~i 7 &70 8 ."a "~8 . >~10.0~l 6Y.3
9ro~iT.3~i2.5"ii.'9~ii~.Tl373"'i277"T»;o""i7i~u~r"f3'.2"ii".'i"lo."5~7r9~6T7 ^7'.~7 — 77'e'~r.'6 — iTT"
16 0.2 7.S
IS 8.6 8.
9.2 «.8 8.* T.o 6.9 10.7 9.1 8.0 10. l"~l I. * ~l U6 Ifc.Vi'jVi uTb *1) .8~*l 1.6 l2~.T"l6".T 11.6 "<)".9 flTa S.'j I'd!? "f^" fH Q
12 B.3 8.5 8.R 8."* 8.1 s72 12.1 9/1 10.fl" I0.0"l2.9 iV. 7 12.9 ll.5~10.7 10.0~"l27l*"li
11 *"i"-'* 11.9~>79 7T7 7.5 7. J~~» 0. 9~!o. 9 "l S. 5"7zT6~Tz .*B"Tl7 I~u"7"r*l"3r6~l 2~ *" I 2 . 9~1 lT*~l I
. o
* 10.I 10.5 10.4 5,4 6.9
,8~To.9~~10.2 8."~9 rTf 97S O
9 8.3 e.l 8.3 8.5 9.'V'8.2~ 8.V~ii."2 IU7 r3.~5 U. o' 13". o'l 3.6 'l 2. tT'li .9 I2.'a llls'^uri 9r>~li.5 979—9'. 3—979 STY—«7T~
1 <~>
1
1 o
0
I °
1
1 O
1
1 0
1
1
! °
O
n
SAMPLE OUTPUT FROM PROGRAM QUA!. -- CALCULATION OPTION (Cont'd 4) O
*o
CO
a
M.I-I-. mi-ti. rttt.tn C'lOiinKK
K
,..-,lvn..A. r..,r n.i. »?!•!< nil l.r.l »' «sl«l«r..
C; ~1»r "J\«l-u- .HLfw.'.M1? -I'l1-'*- frPT^ wlct It 25'' » erpT.
C Y-XTS IS 75 «U."^ HO.
o • . •
o
o
:O
:°
o
0
o
o
o
o
o
C
o
u SAMPLE OUTPUT FROM PROGRAM DEPTH
. O
....... Q
•
o
o
0
0
o
(J
0
o
o
u
0
o
o
o
o
u
o
1 °
-------
-INPUT-CAT! F09 IhVF'STCN >'F7CHS"
O
O
~H!iW
• HAW '
~cn»'
CO**
" cn«< -
CO"
- ec«-
"' 826"
\?f»
-|600~
91*
~ «JIQ~
1206
' 650"
TOO
" A10~
6CC
~~ P50~
1100
-
o
o
o
0
r
•
u
c
o
o
O
°
1.
j
ul
i
0
o
0
o
0
o
0
u
n
SAMPLE OUTPUT FROM PROGRAM DEPTH (Cont'd 2) u
NJ
0
-
C "0 3'i 77« 70
. ' ". *CO I5T 7C
O • 0 5A2 23 7)
•» 0 507 «4 »J
"' 1 1 *2I M ICT
2 0 r>3* 1 24 14^
0 50° ?SJ I!5 "°
600 WO *00 7^0
0
O
0
0
O
0
0
o
O
"
O
O
o
o
^ SAMPLE OUTPUT FROM PROGRAM DEPTH
r,
O
• 0
O
O
o
0
0
o ,
Or
-
0
0
0
0
0
o
o
o
O
(Cont'd 3) °
-------
, o !
i --- --. — .,, „ __
; O 1 23 * 9 fr T 8 fl" "i6 ll~ ~IZ "Yl iV Y» 16 l> "u 14 "ZO 2\ 22 23 Z\ ^^ O
,' O I*"..1*"-1*",1.*" I*"_1**' **"J*«* IM1 UW ib^I 1^4 Ifclfc It56 ^6 16S6 6^6 16>6 y»* J6»* IbSA^lftS* 1656 J6»6J16»*^ ^
C ?0 iC'll ~fl« 1001 1022"lOM TOftYllil H3<»~lJ6j"l2}0 \2tl 11*1 U«T l*30~l"**3 1*17' 1525*1551" 1ST* l*9a 1619" "l 63'»~16i3~f639~J.629~
~~iB?2 VISif-,"2 B8T~'»315"T6 16"l 4 IC 5 ^ 10 8T*"t'lV*"!\l\tT\ '2fcV Tj'l 0~T3 sTTpfsT* »T"l * * b~"f*9 7~T 5 231 5 * T 156l"T»«0' 1610 162V T 6*"f
O _..
O I* >T^ 3T5 375~ 375 31S~~5M *>?"» 5"l T*0 T1*! 8*1 9^0 •»!«»" IC "»»«— »»« '*«»« 111 I.. 'iftn'-.L ...* ^. • »,.."«. ^ _AA A.. «.*' 1«. I ~l_..~l.... -....-.. «.— t . ..-". »..—. .^. ^ t
»9T 52*—5«4 628—587—731—778—(SJ—!t«—i)r»—9'
'BC2 8*f"~Hl—»)»"
~525~588~625—e9fj— 755—III—825—876"~ O
T7J—J75—175—575—575—375—575—575—575—»*4—511—5M—JJ5—63t 7T5—750—I5V
O I 375 375 375 375 ~3H~>75 3T5"375 3>5")75 375 575—375 375 S75 375" 375 375—375 "*S5—*9C—5*1—5aT—450—^b'05 O
lf5—3T5—3~75—375—3t5—315—3 If—575—575—37!—175—J15~)-7S—575—J75—175—1T5~575—43.
O , O
O ' ' O
o _----_-_- _.-_---_^ ______
'••' BO-j'.'jii.' tait-'iiui'i
O cn-.-K.mu i-i*- r»Lr
o
IMC MJ ii;. N02
o *
o
0 "
.0 __
O "
o
o • •
o
O "
o
o
o
o
o
o
.... . ... o
"miUtl'M eAl'.UL*7lf)'l
>"i mvr.. . . . . 0 .
1.5 0
"" '"""" "E°E N>"-D' o
to «'« . ...... 0
c, «.,. n».r.CMvt H,O»OCA,BO« is -.0 0
' *•"" O
. . . 0
- •• - o
o
- - - — • - — o
o
u
o
- u
O
O
o
SAMPLE OUTPUT PROM PROGRAM BOUND 1 °
-------
o _..
^ ..i «f Cuc»m*.Tt CPI.KVE MO ft-.* o.i< ... < «isu^i
; rt i fit , soo 4no BOO lino O.C'-O o.tcc
! Q s\s . ioO • - - 40O (ICO - • **00 0. 1^0 — 0.800
| o PAS* 7 . 500 400 BOO 100 0.150 O.fcOQ
SNA . 500 400 600 1100 O.C'-O 0.600
| o li° Li! *?f ° — ?.oc
, o
':O
:O ------ • -
n
1 c -
• C
, l_:
C
1 O
o
o
• -
SAMPLE OUTPUT FROM PROGRAM BOUND (Cont'd 2)
0. .
. ® «m»r
C .... ,. .,, ,„,„,„.,, ..„ ,,,.,., ,, ,„,,,,„,,„ i u i ii 3-zi , z, , ?, r „-,-„ « ,3 o ,,- , ,i 7 „
^
C w 30 « 30 * 30 ft-30 ft 30 0 30 6 »• 30 6 10 • 10 6 3C 6 30 6 10 A 30 « 30 • 1C 6 IT ?-l(, ? I9 ? M ? 13 ? l?-r t? , ,2
G
, O
jo-- -
i 0
j-°
'•
O
J
o
o
o
SAMPLE OUTPUT FROM PROGRAM BOUND (Cont'd 31
0
-------
C . ... _. ... _._..._ _.. O'
POLlUtAM NO CONCfMCAIlCN GRID FQR TOO hTUft 6<) *)J9
I* — *.l ~ 3.0 S.O—1.2- 3.T —6.5 -ft. I — ft. 6 - T.t'-T.J-T.O '6.1 e.J-e.l 3.8 -«.6~ T.J- 6.1 — fl.9—Z.^ - 3 .3 "' 3.O-'2.«— S.I—?.» ,
^ ,- s !tt ,,;0 _ 3;,_.1|8_,f3-1_T 1.6-- 1.3 ' 1.3 — 1-.J- I. I—1.0'- 1.0 -I.O— t.l — I.*- 1.3—1.*— Ir5—'t.e —I". T—l7S~-t.«- JwO—J7t Q j
! o
!io T I • o '
CD .O
Ul . i
'o
O
i c
t O
o
0
o
o
0 SAMPLE OUTPUT FROM PROGRAM BOUND (Cont'cM )
U
0
O
o
o
o
o
0
o
o
o
o „. _ .„ _... .
PPLlMTAhr Ci CONCFMPlTlQf* CBIO FO* 700 I
<*—i c 11 1 r—i j
1 ITI — rvl — rn — 171-
O
0
O
0
O
tO
•?
;O '
'o
°
C
o
o
o
o
o
o
(J
o
IJ
0
U
o
o
o
o
o
o
o
o
o
o
/
\J
( 0
SAMPLE OUTPUT FROM PROGRAM BOUND CCon't 5) "
-------
o .__._... _ ...- — - O
PCLLuT»NI N? CQfcCfNTtJTIC^GHinFC* 100 NCI'* 69 929 ___ _ _____
| " SCU*Rt _
' ® — — N - «.H ».T *.T~ 4.8 ' ^.Q— 5.?- ».« "9.0 1.?-$.?-«.8 -*.J~*.* -«.?—«. I —«.8 ' 9.6-' T.t- -li.O ~*iC 10.0 ~*. 5 — «.»—<.3—8.5
! O — " 5" -«.*">•« -e.2- e.9 r.6 «.r-Ji«—i.'fl-i.2-z.»-•».» -z.i-i.fz.f ».«* »•'•"'-'••'•• "*-'"*i«"'««~5«*""'->"~«'*~a-' O
f 578—37B 578—5.*6 5TO—5T2—»T?—ITT—9;T—«';0—8.«—TrO—TT«—tTt 9T*-t n?~t ?rO-|ff:t?-t<7t-tCrJ—*T3—^TT—57 fl—978—»H
| ° » 4.T-*;3•-1».8--^.<~3:o-7;6•~^vl--I:T—?;z-7.T-j.?"i.T- «.j~a^ -a.-)-T.6-3;«—s.«—»=3-*i»--i.-?-MT~*;r~*TT—<7«
j , .. ._
j Q _.. - -
|Q :'o
i o '• o
o . o
o — ~ r o
• o , , . "
i . _ • ... _
i o _^ ~_~
! C O
. o _.... o
i o , : . o
I o _ . Q
SAMPLE OUTPUT FROM PROGRAM BOUND (Cont'd 6)
o
0 _
i •" sewn*
o
1 V&— ^7*> »;*—J V9- — 1 ,
-------
0 .
P^LLUMNT i
-flforp—i-
i hOU"> 6? <»?Q
-r 7 |C — tr ij [3— |4 15 ,9 iT~ TS——T,
C !
— o j
o
| 0
]
"
0
o
O
.u
Do
;•"(
. .u - _..._..
tvj; o
UD;
O
U
o
1
1 TJIAL ilF ft t-"LLUIAVT< ijfar 'l>"cn. 1
O I
i
O
o
o
o
o
o
o
o
o
o
o
o
o
o
o
ZS_i.auASUJ!lGtt._
J°
-!°
o
o
o
o
SAMPLE OUTPUT PROM PROGRAM DPREP
-------
: o
j
1 Q
-
-
o
o
o
. o
c
|o
- •(
i
o
' O
c
c
o
o
o
o
375
374
»75
375 _
3 7
^_ 37 .
J
J 5
1 5
I 5
3 5
».•
ill
ill
219
— "',
271
20J
JJ
JJ
2.
2.
2.
t.
3.0
25
3f5 3
US
375
175
375_
375
375
375
J'5_
lid
375 ~
£12
21
.'15
210
IOJ
20J
200..
Joi_
2.7
.'. 2
2.2
2.3
500.
75
75
75 _
75
T5 -
75
75
,'5_
03
75 "
1 75
2 T.
7 2 _
2 T
1 I
2M
203
210
r ?*
.'05
200
70}
203
. 1
. 1
. 1
7.9
_1600.
375 375
375 37?
375 375
175 175
37? 37S
375 375
175,_ 37?..
175 37?
17? V5
152 llfl _
37? ~ 37?"
3M _317
"375 37>~
?f"» 77*
267 253 .
175 IT?
176 175
71* 716
376 " 371
"l27 336~
209_70"
20*., 711
273 Z->5
200 200
2-7 ;**
200 ZuO
223 2.' 7
TOO 7 JO
700. 700
200 2JO
700 730
230 " 200"
20.1 700
2.7 2-7
2.0 U«
7.7 Z.7"
7.0 I."
7.0 !."
2 ."1 2 . •
7.9 2.8
1.2 1.1
9/
76
76
7S _
71
76
376
375
375
346
375
37*
175
301
1 75
2=2
375
260
375
U5
375
211
3T6
213
70"
370
203
.'J.I
700
221
700
700
"703
2Q.T
703
1.1
* 7. '
I .3
o.a
i .1
.175 3*5 375
375 J75 375
175 376 375
3 75 371- .. -1 '*>
375 375 3 1*>
3' 375 375.
.*7 37* 375
17 375 376
37 J76 375
37 357 3*3
37 ~ 375 1»5
16 317 323
37 "375" ) 75
,333 31 *• '02
376 375 375
.110 29(. 2P2 _
375 375 175
2«i 275 , 2M.
375 375 375
Z*B 2l*_2«.0_
(76 375 315
2*6 221 273
175 " 375 375
375" 3'5~ 375"
270 7.17 f\".
3 f5 .176 3*2
215 212 7LO
360 3*5 3D
" 177 " 312 " 29o
235 203^200
" JO* 2rf« 273
200 _ 203 ,200
200 2JJ 203
771 " 2*5 r60
203 200 200
"265 261 2*7
2(10 200 200
"2 If 215 233
70J 200 700
203 200 2UO
700 2)0 200
700 700 203
200 29 121 2*
O.OWV 5C06-> 121 28 . •
' — 2,**V 6CC6* 121 1*
?^*»v 500b'* 171 **
prn«tf 5t3C^> 121 *(* -
0.0-V 50061 1?i_58 _„ —
°i
o
0
0
— o
o
t'd 2)
SAMPLE OUTPUT FROM
1
!
i
i
i
i
1
1
i
:
o
Mi
o
0
o
n
0
i
}
i'J
o
0
o
0
^
o
o
o
o
-•
1
?
1-
1.
4.
j;
>.
Z.
1 .
t.
1.
2.
1.
2.
I.
71
71
70
73
71
7*
72
71
77
7*
M
75
75
a2
76
77
73
8*
71
10
80
112
a )
i i
o i
i i
2 ,.'
2 >
1 2
6 2
1 i
6 1
4 t
2 -.
l_l-
i_l.
i 3.
a f.
e i.
7 I.
i i.
3 2.
8 1 .
1 I.
a i.
73
t
t
, 7
7
7
, r
. I
. 1
7
/i
. 97.
76
n
. 91
78
. 9-.
. 80
. 85
ai
o
1
Z
0
5
3
6
9
/
1
1
9
n
r
•
m
'
-
'
.0 3.
. 6 7
.0 1.
. 1 7.
.1 1
.0 2
.5 J
*.2 *.
I.O 1.
1.1 3.
l.6__2.
3.1 3.
1,8 Z.
2.6 2.
1.4 2.
7.1 2.
?.l 2.
1.1 1*
1.7 1.
2.6 2.
73. 71
71. 73
(9. 66
T.1, 71
61, *1
73. 73
71. 69
'?., ,65
T4. 10
73. 7?
"7. 95
71. 7?
11. 43
7*. 71
9*. Ht.
76. 7*
7ft. 75
11. 1*
71. 74
16. 107
no. i|
46. 100
42. 1*
0 2.0 2.9 2.9 3.1 1.1 1.
4 t . (• 1.6 1 .* 1.2 I.O 0.
0 1.* !.*> .5 1.1 1.1 I.
1 7. 1 2.7 .1 1.7 i.T I .
5 1.5 1.* .ft 3.-. 3.* 1.
0 1.6 7.3 7.2 3.2 3.1 3.
) I.'- .ft I.* 1.1 1.2 t.
T J.5 1.0 3.0 J.l 3.2 2.
3 *.l_2.,l Z.I 2.1 2.0 2.
2 3.0 2.7 7.6 7.6 2.9 Z.
f> 2.6 Z. 1 2.0 2.Z 2.1 2.
0 1.1 3.2 3. 7 3.5 3.3 J.
2 l.P 1.6 1.7 t.9 1.7 1.
9 3. 1 3.0 3.5 3.3 3.* 3.
N 1.7 1.1 2.0 2.0 1.9 1.
T 2,»9 3.W S.i 3.4 3.0 7.
. 72. ?•>. 77.. 72. H. 71
. 77. 72. 77. 72. 17. n.
. 5*. 5?._J 7._J.37._337._317
72. 77. 2. 72. 72. 72
. 65. 317. 3 r. 317. 337,_337
It. 77. 7. 7?,, 72. 77,
. 50. 2*. f-. 5T 351. 33'
. 7fl. *»0. 6. 51. 6. 357
7|. 0. 0. 67. 63. 66
. 93. *. 16. 97. 91. 56
,T|. 1. 64. 60. 62. 65
. 40. 7. 10t. 11). U2. 102,
71 . Ft. 65. fa'-. 67. 6*
, 0*. 3. 96. 136. 124. Ill
. 71. 67. 60. 5fl. 65. «0
. 73. 6L 61. 61. 78. 76
, 11. 65. If). 107. I 10. 109
77. 7*. 7 . 41. 83. IB
. 106. 10*. 10 . 104. 107. 1 16
. 41. 79. 7 . Rh. fll. R2
. 111. 116. 11 . 123. 126. 116
. 86. n*. a . ai. a*. 86
t 1.0 3
T 0.7. 1
2 0. 7 0
7 |.6 0.
2 3.5 3.
0 J.l 3.
fc 2.0 I.
1 7.5 2.
3 2.0 2.
* 2.5 2.
0 2.2 1-
2 2.1 ?..
9 2.2 2.
2 7.. 6^ 2.
9 7.4 ).
° X \:
. 7|, 71
. 7|. M
. ?17._JJ37
. ^2. 72
. 337. .137
. 72. 77.
•_33'-_3JT
. 355. 337
. 67. 69
. *3. 1
. bR. 71
. 7fl. 61
. 6.S. 7ft
. 102. PJ
71. 7fl
. T5. 7*
t_lOf>. mi
.76. "73
. 117. 117
, R2. 8*
, 116. 117
. 81. 15
0 2.iwv
1 0.0 XV
7 O.OK*
6 0.0 WV
ft 2.0WV
1 2.3W
7_ O.O'-V
3 I.HWV
0_0. OWV_
0 O.OW
6 t.*W
3 0, 0-V
•, J>.6"V
* . O.OwV
0 2.6hV
. 71. Wf)
. 7 1 . wo
. o.uo
. 77. wo
O.wn
O.wo
. 7 I, WO
. f). wn
. 61. wn
o.wn
. nz.wn
. 77. WD
O.iO
7 1 . WD
O.wO
. (U.kf)
o.-o
. 105. Wf)
50069
50069
50069
503-ji
5C061
50061
S
50061*
50009
50061
50069
50061
6Q06T
50369
50069
50061
50069
60061
50061
50069
50061
50069
50061
50069
60061
60069
5C061
50061
50061
50069
50069
50069
50069
50061
129 7*
921 «•!
:,j: ::
92110ft
IZHlfl
921120
1291 18
17H5*
"i!"
12H99
97.T2Q*
021216
12122A
121273
1?9z!I
«7i?*n
121 ?»
971 2B
12" Jfl
129 *4
929 4«
971 5B
921 6B
9Z1 7*
929 TB
129 a«
971 »fl
17.1 1*
121 9B
92911*
97911 fl
1291Z*
92H2B
9211 Ifl
9791**
- 0
o
. . . . c
0
- - 0
o
0
o
0
o
0
0
0
0
n
O
0
O
n
O
0
0
SAMPLE OUTPUT FROM PROGRAM DPREP
(Cont'd 3)
-------
n
o
o
o
r
i
F
i"
c
o
o
-,
o
0
o
o
0
u
i o
c
. f
\°-
! 0
i Q
]
L
r
0
o
o
o
o
o
o
o
lo
1 o
375 J7i 174 175 375 374 374 3S9 *C3 41 I. .425 *1? . 0*0 *001>9 929 Ifl
40* *1J *?0 414 *24 *07 394 IfiJ !(.-. 351 1*0 177 n"H fcOOfi1) 9?q 7*
jr> 175 174 J74 374 375 375 375 3?* 31* 405 409 *l4»r> 600&9 929 a*
*lh *.>« *01 194 3M 367 353 119 32ft Jll 100 238 ON? 60069 Q29 Op
375 *74 1'5 375 17< 174 170 1<>2 *0*. *14 *2* 4*2 *l*«n 600t>9 12910*
U* 11! i" 515 "£ 5'I "J JSi. ?J* ?" J" 75! ''S-n "Ife! 929M"
JI! ll* 1*6 !" Ill ItH ?«0 ?i* 270 2SO 253 2M "fl-T 600^9 S2912B
175 *7» «74 375 375 1 ->9 417 **2 * 30 -, 1 2 3^7 3-7 Jft7-r> 600^9 929t3»
34| li» 3?4 311 Zfr- 7*4 274 2bl 7S3 2*3 21* 7?5 0»0 6CCV.9 9? «.03s9 «2->l*B
2/i 2lb 7f>4 704 2JO 705 700 70J 70J 200 '00 20ft 0".T 60349 97.9|9K
Ht 213 2'1 77Q 264 7-.0 74* ;5i 2*7 24*. 2*S 230 218-D 60D*9 9?920A
2U7 20* 203 703 730 700 200 733 200 200 200 700 0"0 600*9 97920^
2*9 2*9 7*9 7*7 2** 2*1 73« 2)4 231 211 271 709 202*^ 600'>9 42971A
MS 1M loo »0 JOO ",0 JJ'o »0 !« !« "i "0° "o°."S »"os' "'"J
SAMPLE OUTPUT FROM PROGRAM DPREP
fll. 7*. Tlm 70. ^->. ^^^ Tli ,^. jjf Jllm ,,. „_ 1.*OI*3049 97? 7B
102. 103. *'. "5. 44. 91. 9*. 101. 10J. IDS. M, 74. r5.U?tA0049 Q^9 0*
73. S*._ .50. 43. .59. 55. .*6. 2;.. 49. 64. 75. (SI. 0. »T) 1 41^59 9?« is
116. 135. 111. 112. 111. 112. 115. 11*>. ll». 121. 97. 7;. 5 1 . nfj 1 1 0049 9?9?2A
_ 5*. 57. *4. 19. 11. 19. 41. 5*. 50. 51. 69. 77. O.KT1600S9 929 2* f
9.29.6V itsi of PESTABT
TT 24 25 5 4. 10560. 10560. 10. 1130. 1200.
21 20 19 18 IT 7 7 7 T 7 7 7 6 6 5 * 1 1 I 1 11.111 iLfF
HESEOA 3.6 22.4 ST*I 1
OlUftiN* «.& 21.4 STN ?
PASAUtNA 15.2 70.0 STN 1
A/Ji* 21.0 20. 1 *TN 4
EL HUNTF 17.7 lfl.4 STN 5
OOWJIO.N LA 11.8 17.0 STN A
POflONA ' 25.5 17.5 STN 7
NfiF LA 6.5 16.7 STN ft
C'J^IERCF 13.7 15.6 STN 9
LENNOX fl.l 11.1 STN 10
• MITMER IP- 3 12. T STN II
I A HAB1A 20.3 12. T 4TN 12
LUNG bt*CH 13.4 9.3 STN 14
ANinEII 21.4 9.3 STN 15
SANTA ANA 22.? 4.3 STN 14
SANlA 1DNIC* tTNS 4.0 19.5 lAHfll* 2
PAiiK VEOOE5 H.O 7.5 IANO«< 3
PACIFIC OCEAN 4.0 4.0 LANDM* 4
15.9 7.45 2M. 95.0 4.0
6.6 12. IS 720. 45.4 2.4
0.51* 0.41* 0.414 0.41* 0.4t* 0.4fc« 0.573 0.612 O.S27 O.T95 O.*41 0.759
._.. '-5 10.25 216. 11.3 4.8
0.975 1.020 1.0ft 5 1.043 1.041 1.0*3 1.04] 1.043 1.0*3 1.043 1.0*3 0.642
19.4 3.7 211 . 55. 7 . 2.9
0.3B9 U.1I9 0.3S9 O.TJ9 0.189 0. H9 0.7** 0.827 1.000 0.9P1 C.9B3 0.9B3
1.022 1.022 1.0*4 1.0*4 1.0*4 1.044 J.O** 1.044 1.0*4 l.O*4 1.0*4 0*3f>9
11.2 7.5 ?40. 14.7 0.*
1.040 1.0*4 1.941 1.037 1.037 1.037 1.017 1.0)7 I.01T 1.017 1.03T 0.591
16.05 7.2 2*0. 27.7 1.5
C
o
oi
0
O
o
0
o
0
0
0
u
0
0
o
0
0
o
0
0
(Cont'd 4)
O
o
n
0
n
i
O
0
O
o
O
n
0
'O
O
n
O
0
O
o
o
0
0
SAMPLE OUTPUT FROM PROGRAM DPREP
(Cont'd 5)
-------
B 7.
Ji 1.0*-. l.OM_l.O)7 1.017 1.01T 1.0)7 1.017 1.0
*S J.85 .'*.). ' «.-
l.J< UJ-.4 1.051 1.0)7 1.0)7 1.0 7 1.017 1.0)7 1.0
9.3 /1.55 60
61.0. 7*1.0.1*1 ^ 1 0. *1 0.7*1 0.
C I0.?->20.75._. 80, .2. _ . . .
O ?0.0l .5 4. 12. . 9-.(»5 4. .5137 50. .15 .0
O MC
o
o
j ~
i°
o
o
o
Q
o
C
-
.
NO 03 M>;
5_5_> *-
5555
5555
5 S 5 5
"55*
> 5 5 _
555
555
555
. > .5 .5 .
.5 .!> .5 .
.t .5 .5 .
. S .5 .5 .
.S .% .5 .
o :l :i:i:i:i
a :t-:J .I :l :»•
.9 .95 t.
S 5 5
555
555
5 *' 5
5 5
. .5 .5 .
. .5 .5 .
1 s ^ ^ ^
. '.* .5 .
. .5 .5 .
.5 .5-5 :
.
-:
-;
_J * 5 5
5555
5555
5555
5555
5555
5555
555*
5555
5555
.* .5 .5 .5 .
.5 .S .5 .5 .
.«• .5 .« .5 .
.5 .5 .5 .S .
.5 .S .5 .5 .
.5 .5 .S .5 .
.5 .5 .5 .5 .
5 5
5 5
5 5
5 5
5 5
5 5
5 5
5 5
5 5
5 5
.5 .5
.*; ,*•
."S .5
^5 .5
-.5~. 5
.5 .5
.5 .* .5 .5 .5 .5 .5
-.S .4 .S*".4 .5 .5 .5
.5 .5 .5 .5 .5 .5 .5
00
59
n
o
7 1.0)7 1.0)7 0.501
.1 O
.5 O
.1 n :
1 .04 .00 1.0 1.4 U
n* .01 nl O »
.1* .86 .T i
-01 -ot -o* ,
o
;::;;:;; o
'55555
55555
5 S 5 5 5
55555
55555
5 5 5 ^ *
55555
5 .5 .5 .5 .5 .
V.s" .5 .5~.5 .
1 .5 .5 .S .5. .
5".5 .5*. .5 .
* .5 .S . .5 .
-s .'5 .'5 . -.•> .
•> .6 .f. . .7 .
f. .7 .7 . .ft .
A .7 .T . .9 .
1 .7 .7 . .B .
7 .7". 7". ~.| .
6.7.7. .8 .
-;
•
•
* .
f
..-
:
j
5
5
5 0
5
_.; 0
5
I o
5 0
5
Ii O
.5
.5 .
*7 O
:;
o
0
SAMPLE OUTPUT FROM PROGRAM DPR15P (Cont'd 6)
_. _. .5 . _. . .5 . .5 . .5 .
. . .^ . . . .5 . .5 . .5 .
. . .5 . . . .5 . .5 . .5 .
.* . . .n .a . .4 i. o
4 . . -e .0 . .9 i. • >-
.? . . .5 .5 . .5 .»
5 . . ,5 .5 . .5 .* O
O
o
C
!
o
0
0
; 0
!
1°
'•! ' '
10 | 11
_. Jd 11
crv | I 11
' ' '
O i i
1 1
O 1 1
1 1
O i l
1 1
0 ! {
1 O 11
\ 3 '
le IL
I 2 2
: i i
I o 11
! o
: i >
,. i '
. u i »
i >
i
i
i
i
i
i
i
i
i
i
i
i
i
2
i
3
i
i
1
, — 1 I
i
i
i
i
i
i
•
t 11111I1111I1222
1 lllltllllll?27?
1 111 11111 11222??
1 11111111127????
22227.222222222Z22
222222Z22222?22*2
22222222222222222
-.Z...Z...2 .2-2 2 2 2_;_J! ? ?__? 7 ?._? 2
22222222222222222
222222223)3^33333
22222233 3333 3* 3333
22322233333331315
33333334443333333
23331333311111111
1 1 I 1 1 I 1 1 1 1 1 1 1 1 1 t 1
t 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
-..i.._ i....i...i. i i i i i i i i i i i i i
11 1 t 1 1 1 1 1 1 1 1 t 1 1 1
11 1 I 1 1 1 1 1 1 t 1 1 1 1 1
11 Illltlllllllll
11 tlllllllllllll
11 I 1 1 1 1 1 1 1 1 1 1 1 1 1
11 Illltlllllllll
I
?
2
7
7
t
7
1
O
0
o
o
o
2
t
1 °
1 O
! .
!
! O
n
0
o
o
u
<•>
0
o
o
SAMPLE OUTPUT FROM PROGRAM DPREP
(Cont'd 7)
-------
o
i
I o
; o
, o
1 o
o
o
—
1
j
1
I
I
1 L_
^l*-
* 1-
"_?"
6 Jf)
S \* 3
» J* J
_
__
_
_
o 3d Id
* j* ii n
% j> (•• ji
-_
_
r
. _
_
T
- —
_
7 7
1
T
r
—
r
7
-_
l_
7
1
-l_ l_
1
8 1 P 1
l_
9 0 9 (1
- v- v «- o
I t 1
111 O
1 1
„ ~.l .1-
1 1
L_
i
i
i
i
r-
c
1
0
0 '
i
i
i
i i
0 *3
0 *
i r>
i
* O
4
* n
* . 0
* 0
* 0
«
4
» O
» 0
» o
1 DH 1
I »H 2
I •- > O
2 «M 6 O
3 <« 9 0
3 IN 0
* tH 2 • O
S BH 3 1
• !> 11 !•, 27 .'* 30 !, M, 3" .1 4J », «. .7 ., 0 .7 »H 5 O
SAMPLE OUTPUT FROM PROGRAM DPREP
(Cont'd 8)
I O < Q 1 9 0 1 •> 10
a — :-;-H-:-:-:-';
7 . J S 8 8 I I \!
t, 1 9 > 0 •> 9 10
O Il.U. 1. 11. 3 1) 15..17
1 14 1J 13 15 17 16 11 1
o ..;••'••••
i
i
0 i
1
1 1
[O i
. '
» 1
•j° !
O i
1
1
O 11
I I
1 1
O 11 i
2222222
O 2222222
22222221
C 22222222
7 71 7 777 7
Cl 77777*77
0
0
0
z
0
1 1
T
7
7
a
0
i
i
"-I
7
7
fc
0
3
1
.
7
J
7
1
>-'
1
1
7
J_
7
1
3
3
;
1
2
2
1
1_
7
1
3
J
3
*_1
7
7_
7
1
i
i
l
3_1
•
J
n
i
?
3
?
2
2
7
7
e
27I11II11I0106C) O
f t 1 1111 19 « Q C *
3 X 1 1 10 10 10 <> 9 NO 7
) 11 t t 10 10 10 9 9 NC 8 O
1 1 7 8 * « •» « R *
-------
2 U 11 I 1 U U 11 11 12 12 10 9 9 8 3 6 9 n o ii
fcl
0
*_U J_1JL,14» 13_IS_1> 4 i* ;_10_1Q o 9 -9 « -3 o 13
t 1 J 3 11 141 1131 3 311 t'lllOtO 9 910 0 111
O »6t»t»»6»tt«7r77T77l
0
o
-
<
i ••*
SO
i
* i
' 0
. O a
: o .'
i
' O !
0 i
O s
3
1
O J
1
J7
O »'
O ).
0 -i
6
- O }
\,—\
0 s
! 7
O 5
*
! O *
i in
L_U U 11 11 II 12 U 1 111 9 d fl 9 •» P 9 9 9
3.1 S 13 39 3« 8 39 B 3d a Irt 3P )7 37 37 37 3T 7 17
Id dJ9333a !>^^ HIS d 3 ^1337373737 3 7 737
H 1* 3S 19 3" 3* 3* 39 38 » 19 33 3J» 3H 8 7 37 3 37
d »H 3t» Id 3? 1! JS 18 39 J 19 JH 16 3(3 « 7 17 i jf
a J 34 3* 33 3! 19 3* 17 J6 iS 3^ 21 ..'7 28.31 31 1^ 37
7 3 ~i7"lT'37~37 3T~16 ?«, >5 34 jj'j* 12 J2 3l"34 35 36
43 . * 3.
SAMPLE OUTPUT I
111 I I I 1 t I 1 1 I I 1 22
III 1 1 t 1 1 I 1 1 1 1 1 It
S51644..3J33333334**
C 26 27 2d JJ ?9 ?9 29 2'. 29 30 M 12 33 33 3* 3!> 36 37 33 29
19 Jfl Id 11 !« 3« 3? S4 1ft 39 1« 39 19 19 39 18 27 71 ff 7fl
O 15
32
0 32
' r- b
i 3
c . !
Jo—;
. J 5
530. 613.
6a&7!7fl<)998e_7.7_e. 9_.7. ^ 3
) 452?eillllllll22J
6 64
-------
! O
: ~
o
0 . . . .
• o
Q
t
'I
:'-"
'o
0
O
•
o
0
0
0
o
o
j
o
o
0
o
0
0
o
o
0
0
0
o
0
o
0
o
0
o
o
o
SAMPLE PROGRAM FROM PROGRAM DPREP
(Cont'd 12)
0
a
o
o
o
o
o
o
o
rO
•"[
i
0
U
o
o
0
o
o
o
o
e
; — cn-p.; !•»,•; .-,v .,;-.v. T,
1 f )
.1,,1-j 7«_7i?__»y._
V;n IJf '2f 7)J_
-".._.. - ...
ft
. —
21
*~* JiTVr 62J^~W3 *?9 *
20
M.I-*') (»1J 615 ^20 '
n
in
» jru iii *2s *". J
"
HVJ.I i-iT '.'•I 55D 1
41(1,1 J/> m 37',
1*. X X X
IS H t X
I* X * 1
HAN 5Y>~" 550~"~'550 ~5
iTiOrTuo^M-o*-*' V-.™ -Vi.-i.^-:*-!*.^— : ' ~ ™ — ' ------
* «. 6 7 * 1 1.1 11 12 1) 1* 15 Ift 17 !• 10 20 21 22 21 2*> 25
, _...__._. ... - _ .
7*2' 71? 732 M7 •): M'J TOO '-"I A") '•"'. '.«! --H -."1 6<<1 ->-U 6»l 'M (."1 "I 6^1 61 1 6BI
~" "'•"•• ' •' •-•-•-•" '- •" •• «-
'._:::'::"" :•••:•.••'..•..•;•:' •'•;;
—
15 'i'-O ^50 61)0 !>70 &"0 C^O TOO 700 6'>0 t>1Q 610 670 6bO 6iO A50 630 f 10 6)0 620 620 620
10 'iO 670 tPiJ 6t)C "i^O 700 700 A^O fil" 6^C~^h70 f'-O /.50 650 6*50 630 650 150 ~650~ 630 """""
^•"\ rS',2 60«- TOf 72". 7*-> 77| 711 «1* 007 716 ffl5 77* TfcS 753 7*«- 73* 727 72 1 M6 71 0 T05
',n S50 S*>0 *.f)0 6 SO fceO ''«0 700 TJf) 7*0 770 7'.0 76.) 7bO 750 73 Q 700 A 70 650 650 6~0 450
S15 &<•*» 652 *t7/. 61"! 717 739 760 7flO "01 . fll* HQ3 702 7fl 1 771 761 751 7*2 73) T2.T 721 T|6
50 510 74 770
O
O
o
n i
1
o
o
o
o
o
o
o
o
o
o
o
o
o
0
o
0
SAMPLE OUTPUT FROM PROGRAM COMP
-------
—til.
o
50 565 575 5^ 550 530 O
113 »-» JT'i 375 175 175 17? 115 375 375 US JJi V7J 3J5 434 4 « 7 537 5"l 5^6 635___65J
»_ "I „ O
o
t.'.-.Tt.^ ,5 5]u'.^f •-•'5T'I: T"l fr*INf,'> tf< "f II'E fllESITU KGOEl.
ILAIIS 4 Sni.'.Kr C< Nl- I\!V- 1 kjl" i I I ll-.i ^L i vrtLII6.
o
o
o o
io ~0
j _a r-l ^ . , _..,
1 ° SAMPLE OUTPUT FROM PROGRAM COM2 (Cont'd 2) ®
. 0
i e
l 0
1
j °
• C
i o
i
1 0
O
O
iiO
• O
j
0
c
0
c
o
,
o
0
o
o
o
1 > 1 "" > 5 -, '~ •'" 5 " «' 10 "M
"iur'-i "i. 'to. %6. "o. "'. ".. "i. "'i. "". 'M. '°i.
2::
Mi'U JO. 30. 30. 3U. 30. 35. )5. 15. 35. 15. V..
"
Ail!."; 55. A*,. 7*. -M. ''I. T^. b7. -,7. ^0. 3-S. 61.
^0
rtlll J itt. 63. «.H. 7*. 7fl. c.n. ^S-J. ',0. 61. 59. 6*>.
IV
M
' MftNN 5U."~50. ~50^ 5>)7 ff57~"r55. 55. SS*.*"*S5.' 5sV 55.""
Aim 6^. t?. *J2. M . '.4. M. Vi. 76. 79. M. <^.
1 7 ' " " "* " "" " ~ ~
MAN.) ->b. 5!,. 5'j. •>•>. 5S. 5t-. 56. 5ft. b*. 5fl. U.
1(. X X X ~
1 j X X X . X
Alir-l 73. 72. 71. 70. 71. U. 75. 77. «2. 15. M.
14 X X X X X
AUTO 73. 71. 77. 71. 71. 70. 7*. flQ. 83. 87. Q|.
t i x ~ X " X )f X -• - - —
HASJ hi. Ar>. 6*. hH. 4^. 6-1. M. 65. 61. 65. <,5.
A'.IT 1 74. 71, 71. 7?. F/ . 71. 71. 77. «1. «*), •) 7 .
MASII 57; *T. ST; h^1; i'^. — 6 a; — 4"7; — Ji?. — sr, — 65." — tr; —
11 X X X » t X
W" 11 ~14" ~l"4 *t6 ' "17* " M " 19 20 ?1 ?? 21 " "24 ' 2» "
_I5._ !',. 1«. '.*••_ ?"•_ U» >4- 35. 15. 45. 45. 64. 6«. 69.
?*>. "ll. 31. 'it. Ji."~3 1« " 3,i."35. JT. 40. "^o. 40. "" 40. "45.
xriixxikxvxxxi
25. V ." 15. IS. )5. " "15. " 35." 35." *"*0. 43. ~4g. ~ *o. 45. 45. "~
?^. ?7. 32. if.. 21», >3. 35. ^7. so. 51. 62. 65. 76. TB.
H. 1*. 41. 44. 46. 31. 3*.. 45. *q. ^,5. 61. 65. 76. 80.
15. I7. 17. 40. 40, 40. 40. 40. 4). 45. *S, 4$. 49. 50.
55. 55. 50. 24. *4. 51. 52. 57. HO. 4*. 55. 67. 75. 96.
M. 6?. 5fl. 54. 53. 53. 51. 55. 55. 55. 51. 67. 79. $9.
5~1. 5(T. JO. ~ "477~47.' 4?Z 56~.~~55"; 7.0."~"55". 55. 55.~.55r~ 50. ~"~
55." 53. "517" '50. 50". 50"; 557 5<". 65™ "40. 55. 55.' ~5S. — 55,"
16. _ 80. ,.._7!1._ Jl. 71JL_^5._ 6?. t>*. 66. 66. fj^____ 70. 75. 87.
32. A3. 84. 42. T,, 73. 68. 67. 60. 69. 71. 74. 78. 82.
w." "~bov~'sf."55V~5*; to.' A'O; io. Ao.~"60.™6o; — 5%; — 55."" 55.
1*7. 87. P5. 90. 76. KO. 79. 73. 70. 69. 71. 73. 81. 08.
.'».-_.'.»• _«.'.!._«J.'_'?i_'li._"*l_T«i_'i_ .«•_'»•_•>•_ »^_."- ..._
65. -i'ov'io:' 'or 6i;- 601. 55."1!?. ss. ;?. 55. • «j.— •«;- -5!:
104. 17. Ql. 97. A6. K5. 46. 84. 74. 74. 75. R3. 04, 86.
fJT-^r.-*!— «7-«.-M.-55^-,,-.-«— J5.-55^-5I7-55T-T5:
O
c
o
o
o
o
0
o
o
o
o
0
0
o
0
6
o
o
0
0
0
SAMPLE OUTPUT FROM PROGRAM COM? (Cont'd 3)
-------
76. 76. 71.
AJI I _ It. _ 75
76. _ 75. 75. 73.^ 7).
im.> 71.
ALT.) _./:>.
.' L. 71. II. £.9. iSi._
90.. ss.. e.2. v. 74, 7i._7».__.'.»._.»•-.
. ._ . o
. 7-7.._ 76._ 66. 66. . 65.
O aura 77,__77._
o
|;O
MAVJ 75. 75. 75. 75. 75. 75. 75. 7j. 74. 72. 71. 71. 70. 6t». 6*. 63. 63. 63. 56. 55. 5s. 56. 56. 56. 56.
~ J A X A r X K X X X X X* A"" x"~~l"X*X X Y ~" ""-- — - - -
MA'O 7*T. 75. ~75~7 ~ 75. ~ 75r~ 75.75.' ~7i.~ 73"." 72. ~72."~72. 70. t5l 65. 60." M>." ~t6".~~?6~.56. 5(,. 56.~~56. ~56. ~56.
_MtIU 77. 7n. 73. 78. -ra. 7 ».. 71. fi). »0. _ ?0. _ H I .. _ 8 1 . _ f I .. .p 1 . _ d I .__9 I._HO. 7<»._7<»._ 67.. 67. _67. 67. 67.. 67. ,_
_. O
'" O
_ O
,7P. . 67.. _67._ 61.. 6T. 67... O
I
i o
; o
<-J'l.'a-: ."I't-jlnr 7H." HG'l-ofRIES J= T^r AlBS
S3U.-3-. .-fl-.TAI^I-r. 1 :.ȣiT IIAAeLs V7.LUC.
-f SVIf=lS.£'S.ji;'.3. 11.»»l«iiCt OIC'AA'.III,
c
o
o
O
. o
• • o
SAMPLE OUTPUT FROM .PROGRAM COMP
CCont'ci 41
0
a
0
o
o
o
o
o
o
jo
:°
*
o
o
o
0
0
c
0
o
o
0
AH! 1 0
MV4.) ""(.
Ab 1 J u
Mif^r 1.
1'J
lv
HAND 3.
I"
AUt-l 5
1 ?
IK
HAN') 57
,4
HAND o.
«UM 4
13
HA'i'J b.
1.'
11
? ~ j * •• (, "">" "e ' " o .10 " n " 12 "~n "i4 15 U "if " 'if ' 10 20 21 22 21 J* 25
J 1.0 1.0 1.0 1.6 2.0 2.O 7 ,'j 3.f3 1.5 1.5 3.5 fc.Q 4.0 *.o 4.^ 5.0 S.O 5.0 ?.0 *.0 5.0 5.0 5.0 5.0
0 l.fl f.o"*1.0" U0~ 2.0 ~2.0 2.5 " }'. 0 1.~5~ i.S "*.0 "*.C k.O V".~b"~4.a " 4.0 ~4.5 "~5.0 5.0 5To' 5.0 5.0 5.0 5.0
f T Y T Y jriXXXXXKXXXX
y~VYY I11XXKXRI
0 "V.o"~ I", o"™ 1. 0 " 3.1J~ 3.o"3.(l"~*'.0 3.0 1.5 *«0 *.^ 4.0 3.0 2.0 Z.5 -3.0 4.0 5.0 5.0 5.0 5.O 5.0 5.0. 3.0
.5 0.7 l.O 2.1 !.•» 1.5 1.4 1.5 !.<• 2.2 3.2 4.) 4.1 3.q 3.6 3.6 *.2 4.4 4.3 4.* 4. 13. t "..0 4.|_4.0
r » Y
j" 1~6 37V*"3^P ~V.n "*ViO 3To" 3~.0~ 3.C l.'i ^4.0 4".T"~"l.Y~"?."5 ^r*TC ^27V~"37b ~3.V *.0~4.5 "5."0 ' 5.0 "5.0 '5.0 4.3
....'.I 7.* 1.0 ?.•) ?.«. 7.5 /.H 3.1 1.3 4.) 4.5 4.3 3.1 2.5 3.5 fc.l 4.T 4.T *.2 4.0 4.0 4.0 4.2 4.3
.5 1.6 3. 7 !.•) 4.0 3. 7 1.7 *..;' *.3 4.4 4.7 4.1 4.7 4.1 3. 9 4.2 4.7 5.0 4.9 4.2 «•.! 3.B 4.1_4.4_3.l ___
i> 1.0 3.0 i.O :t.O 3.5 1.1 *.0 4.0 5.0 (,.0 -S.O l.i 6.0 5,3 5.5 6.0 6.0 (-.0 *.5 5.i 5.0 5.0 *.5 4.0
.1 •-. l J.I 5.0 5.0 4.S »,6 5.* '.1 5. T 6.0 7.1 S.fl 5.h S.I 4.fl 4.n *.S 4. ft 4. 2 3.8 4.0 4.1 4.1 *.0
.5 1.6 4.7 S.I S.2 *.9 *.9 5.3 5.5 5.4 5.iS 5.9 (,.0 ft.* 5.4 4.9 4.P 4.7 4.5 4.0 3.9 3.1 1.8 *.0 3.B
« X X
J 4.0 «>,o 5.0 f..O 6.0 ^.U fr.O b.e *-.5 7.0 7.0 7.0 '.0 ft.O 6.0 5.5 5.0 5.0 *.5 4.0 1.5 3.5 3.5 3.3
A X X T
j 5.0 " V. 0 6^-1 'TV'i"'"''. 0 6.0 6.0 ~tiT*i " t"ro~~"7.0 ^7.0 7. 6 tt",Q 5."0 5.0~" 5.0 ""5". 0 *^S *~. 0 <.fl 3. 5 " "3. 5 3.0 3.0
X X X - X /
.5 4, ft *.*, 4.T 4.7 4.9 5.0 5.1 5.* 5.5 5.«! 5.9 5.7 5.1 5.1 4.7 4.7 4.7 4.3 4.0 3.<> 3.T l.T 3.T J.T
x X X X X
b""6.0 '5".'5""5.5 f..s"";>.5 i.5 5.5 6.0 7.0 7.5 >. 6 7.1,' 1.6 ft. C 5.0 5.0 '4.5' 4.5 V.fl"'1.5 J.O"J.O l.fl 3.0 ~
X X X X X X
s ?7» 5^5~ ST5 5*. 5 <7fl~ ~7>."6 *^0 67D t75 77"fl TTO 5".'5 4VO T.5 5TO ^*T5~'*TO *."0"~'3. 5~ 3^TJ 3TO l".0~"lifl TiO
l X X X X X
o
o
o
o
o
o
o
o
o
0
o
o
o
o
o
0
0
o
o
0
o
SAMPLE OUTPUT FROM PROGRAM COMP
(Cont'd 5)
-------
O „
~
.. O
*' ••.!." '>.* *.* ^.o">.0"*.b"-*.b ».J ».0 3. !• ~ ? .0 ' 3.0 3.1>'3.0~).0~3.0 "
.' __s._p _ ^ _ l«.l_L-,l_ *.'.Q._'-.'JL _ *.> _ iii__'-2 __ 3.' 3.; :.t> _ ;._* _ !•?__?_•,*._*•* _
~~ M,VJ s.j *.o"~V.o s.'o s.o'*.o i.o *.o i'.y *".o s.o " i^o" %.b "4.5 *.i 4.0 "*".6*~i.d "*.o" 3.* 3.5 ».o 3.0 3.0 3.0
4i. | J -., _4.4 4.4_«,.4_ ».1 *.3_ 4.3 _4.5 * ..? >.« 5.7_S. * _*•"._*«•.<••''- *••*.. *•!_-•*•*,. .''fr--3'.!- X*1 -3*1- J'2- 3'7- 3>?
O ~ n.V. »' "S.O T.O l.j'5.0 '?.!> S.<» S.ll' ^O'S.O" 4'.*~4.4 4.4 4.0 " 4.0" 4. J V. 0 ~4.0*"Y."5 4.0"4.6" 4.0 4.0 4.0 3.5 3.5. w1
O
"AM'I'.I 'IJ| ';°, ';?• '»°1 S4°l ^4?1 SA?1 *4?4 "4.4 *4.4 '4.4 *4.4 4.4 4.4 4.1 4.3 j. > i.» j. ?_ 3. 1 _ i. 4 3.5 . i. 7 3.7.J.5.
O .
3.6 i.« 1.1 1.6 ._ O
X X X > I '
O
:O
*.o ^.'o'"*-^ *.a *.o *.o *.o O
J..i 3-i l.JL_1..2_ ».«
4. J 4 ( 4. J 4,1-_'4.1 4.3 4.J _4. 1 4.? i.3 4.1 4.3 4.» 4.J 4.2_ 4. ?_ 4. 7 _4. 1 4.1 4.0.4.0 .4.0 4.0 4.0 4.0
" 4 XX I X ~ < "~ X X X " < "" X X " X I "' -' - " - - ' -
_
x x X
O j
—M«T;,~—rr»—rr~"4To—^TO47n";o"~r:;i^;TV~.' 4.3 4.T 4.J 4.1 4.3 •.. I 4.1 4.3 4.J 4.2 4.? 4. 2 _4. l_ 4. | _ 4, 0 . 4.0 4.0 4.0 4.0 4.0- O
' i "' x x x'rxx'x xx x xx x""x x x x x x x
o
o
c
rn \ JJUM-- cms'i-c •.!•; 3'j'i'j:'.-_Kits.cF..'i-; iipjii-
rtS » SSl'S'l l!!'IIA|l.!^l. « UIKSll-ltibll VilUli.
" V.1B "»"_Svll.^^I£^_^^^ (t«,rD !N V/ J UNCt_T AtriJl «T ION
. - - O i
O
o ,_
o ~
SAMPLE OUTPUT FROM PROGRAM COMP
(Cont'd 6)
I ? 3
It I! ' 11 14 IS Ib IT IB
j;j -U.J 11.0 II.0 II.0 11.Q 11.J !?.'! 1^.0 1?.0 1^.0 11.0 ^.T 2..1_Jl^__?_iO_ ^.Q -<.Q ^.0 IT.1 fl.C_ >.0 9.0_.-».q 9.0 0.0
-- - , -— . - _.. - . _ - _ _-
O
:i
o ;
o ~57o' T."o"—l7o"-3. o -
' O CJI j._tl.O- II.'J. 10.0_10.3. II.3.II.O l/,3_12.0_ll.O .11.0. II.O 9.0_.9.0_ 9.0 _".0_ 9.0 9.0_ 9.0...9.0 . *.0 .9.0 _9.0 9.3 9.0 9.0...
IIJLJ LI.j ii.o ii.o ii.o ii.o ii.o ir.o i;.o n.o n.p n.n_^.o <.o _'.o «.o ».o «.o ».n ^.o °.o' 9.0 9.0 j.» ?..o_«.o
( O „. . „ -_ „ _ - _.
I "I",
' O J3 "
i
O I
ru 'O :>'Jf"_-.7.o_l.o_ .7.0 7,n_ 7.0^ 7.0... 7.0 _ n.o ?.o_.n._p ,7.q_ 7.0 7_.q 7.0 7.o^n.o u.o i.o «.p 9.0.9.0 9.0 9.0 B.O (t.o
I5 *7d"~*.o 4.0 "iVo'^^i 5%"o s.d *."i"o" 3^0 "2.0" ?".d""V.o >Yo «io" «7b" i".o R.o n.
.y 3.0 i.O 4,0 i.;i S.O '•.n s.o ^.o S.O *-0 5.o ".C «.0 fl.3 S'.o 6.6 "T7o S7o rtj o ^76 T73 773 778 7TO
'iTo 3.0" T.'o""37c> *To vTb 5"."o 5.0 "V.'o i7o~"5.o 7 To V."o <»V6 S7o S7b~"?7o~?."d"~Tro 7;o"~"';o" *T;O~~T.O ~ T.O ^ 'T.
i o
r.3 <7o~3T6 i.n 3".u r.'o~"v.b" S'.o "s.'o ~ 5.d «i7o ~Tro fl.o ~fl'.o~~flvo 7.o'76;o is.'o «70 "~T;O T;O--T;O'"&.O ~6.o &.o
1* K X X X X " " - -•- - --
TtTfTT) TT3 T75 TTo sT5 TTo ^Tti *7u 575 57T5 TTrt £77! 770 77C F70 T7D' "670 R70 6Tty~"f7fi tS7B K~."0 S r
I, ,.• ~ i j, '( -,•" • - • - — — ••
i
I
o i
o i
-- o !
!
•".._ O i
I
, c
1 °
!
! o -
— -A^—j.-o-T .-0 T.o -3".o - iTo— f.o-470— i.o--».-o-*-.o-5-.-6— fTO-Tro-?:!)
MANO 3.0 1.0 1.0 5.0 3.0 "1.0 4.0" 4.0 "4.0 ^.0 5.0 i.O 4.0 i.O
11 X X X X X X
-j.-o— ir«-K-o-«-.o-tr«-*-.o-«.i> -s-.o 5.0-5.0-5.0 "- o
O
O
SAMPLE OUTPUT FROM PROGRAM COMP
(Cont'd 7)
-------
El
o
I
u " °> " '< x~ i ' x x " _
—TLIl^V^'^^V^^^Vi^^ ° I
mi—To—i"~o~T5—~o i o 375—i7i>—Ho—iTo—Ho—i.o 3.0 3.0 3.0 -..o ».o ».o ».o ».o ».o *.'ci e'.'o Co" Co 5.0
»aia__a!!j *.J t.O i"u_t.O i.0..t.O_t.O_.I.O_7.0_»..0_J.C_7..0_.T.O_.'.l) _'.0_J.O_I.O_.T.l._'..0_ '.0_ 7.0. '.0 '.0__T.O._ O
•i b~j'o ~i".o ~i7o""7.o—3.0 3.0 3.0 i.o Y.o ' Wo~ V.V V.o »'.o ' *'.o" «.o 5.0 5.0 i.o 5.0 C
Ii.u_t...o_;°j_i°(i-jji_JJLa..o-aj-J..a_rJ.«-J..ii_i^—i--_i..«_l.o_i.o—
> .... O
O '
; °
i o
_ -__-- — - - ••- —. •„- -,-0 ' 3~o~ ) "o ~3~0'~j7o~iro 376" "370 3lo "i.o" 3.0 'J.O '3.0 "3.0 ».n"«.o"«.O 5.0 O |
"';',',, '^ .'"., ;°0 ^.j_'_Illi_lt.a—Lo—Lj—L.0—'..0—l.Q—tJ_J;..a t.JJ_i..o_4.!l_»..o_V.-0_J..S._l.n—W>—1-.8_I-.0_7.(1._1.<1 |
-°l
O --------- O
•»- INUlCAIt^ A soi'»"c ft'STM-M n, a 'Jvit SI ICsabLt VAUI^. . Q
O ~~ " °
o
o
o
O
SAMPLE OUTPUT FROM PROGR.VI COMP (Cont'd 8)
| O . .. ( -„„,„- - -,,. ,. . SI- - , - , ,--, - • » • -'
| „ '°""""("'1'™"* C2_"'"°'" "" '*"""•_' co " '" "o«y ^ •"' v.»i.«e - i.)^
i Q 1 ? 3 » !, s I • •) 10 II 1! 13 it 15 IB IT II I' JO 21 " 2J 23 2» J5 O
M*I,.I i7j t.o i.'o i.o I.o "i.o l.'o i.o i.o "I.o i.o V."o~3".o \."o ;To" V.'o "nVo"e".'o """ft.'o" *.c 3.0 3.0 3.0 3.0 "3.0 " J
,*UI J s.0._*»0 ^.0 i.o t.O _ 3-0 *'° ?-° -.3'°-. 3.0 3.0 3.0 _3.0 *.Q 4.0 5,0 2.0 2.0 2 .q ?.0 2.0 _l.0_1.0 2.0 2.0 O
" ------- . -. ^ ^
-- - - Q
f -Y- i-ioicVfts A s"oit*oc ,-.pfii!Tfn-j& *~oiiETrT7^Ti.c v«uif.
O N f I r •< E s •<• tin* "Y* S'jiiftp^s *Bn ii'^n IN yA^li^ct f.ftLCuiATlON. O
fo .,
o ;Q —— — •• • o •
: j : :
: o , c '
" i
o • — o I
o
o
o
O
O
O
0
o
0
0
O
O
0
*
SAMPLE OUTPUT FROM PROGRAM COMP (Cont'd 9)
-------
REFERENCE
Liu, M. K., D. C. Whitney, S. D. Reynolds and P. M. Roth,
"Automation of Meteorological and Air Quality Data
for the SAI Urban Airshed Model," Systems Applications,
Inc. Report R73-SAI-32, May 1973.
231
------- |