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 i-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 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

-------