United States
Environmental Protection
Agency
                       .
              nvironmental Sciences Research
             Laboratory
             Research Triangle Park NC 27711
EPA-600/8-78-016b
November 1978
Research and Development
User's Guide
For RAM
Volume  II.
Data  Preparation
and Listings

-------
                  RESEARCH REPORTING SERIES


Research reports of the Office of Research and Development, U.S. Environmental
Protection Agency, have been  grouped into nine series. These nine broad cate-
gories were established to facilitate further development and  application of en-
vironmental technology. Elimination of traditional grouping was consciously
planned to foster technology transfer and a maximum interface in  related fields.
The nine series are:

    1. Environmental Health Effects Research

    2. Environmental Protection Technology

    3. Ecological Research

    4. Environmental Monitoring

    5. Socioeconomic Environmental Studies

    6. Scientific and Technical Assessment Reports (STAR)

    7. Interagency Energy-Environment Research and Development

    8. "Special" Reports

    9. Miscellaneous Reports

This report has been assigned to the SPECIAL REPORTS series.  This series is
reserved for reports which are intended to meet the technical  information needs
of specifically targeted user groups. Reports in this series include Problem Orient-
ed Reports, Research Application Reports, and Executive Summary Documents.
Typical  of these reports include state-of-the-art analyses, technology assess-
ments, reports on the results of major research and development efforts, design
manuals, and user  manuals.
                        EPA REVIEW NOTICE

This report has been reviewed by the U.S. Environmental Protection Agency, and
approved for publication. Mention of trade names or commercial products does
not constitute endorsement or recommendation for use.

This document is available to the public through the National Technical Informa-
tion Service, Springfield, Virginia 22161.

-------
                                EPA-600/8-78-016b
                                    November 1978
    User's Guide  For  RAM
             Volume II.
Data Preparation and  Listings
                    by

         D. Bruce Turner and Joan Hrenko Novak

          Meteorology and Assessment Division
       Environmental Sciences Research Laboratory
       Environmmental Sciences Research Laboratory
          Office of Research and Development
         U.S. Environmental Protection Agency
          Research Triangle Park, NC 27711

-------
                           DISCLAIMER
     This report has been reviewed by the Environmental
Sciences Research Laboratory, U. S. Environmental Protection
Agency, and approved for publication.  Mention of trade names
or commercial products does not constitute endorsement or
recommendation for use.
                      AUTHORS' AFFILIATION
     The authors are on assignment with the U. S. Environmental
Protection Agency from the National Oceanic and Atmospheric
Administration, U. S. Department of Commerce.

-------
                            FOREWORD
     Within the Office of Air, Land, and Water Use, the Environ-
mental Sciences Research Laboratory conducts a research program
in the physical sciences to detect, define, and quantify the
effects of air pollution on urban, regional, and global atmos-
pheres and the subsequent impact on water quality and land use.
This includes research and development programs designed to
quantitate the relationships between emissions of pollutants
from all types of sources and air quality and atmospheric
effects.

     The Meteorology and Assessment Division conducts research
programs in environmental meteorology to describe the roles and
interrelationships of atmospheric processes and airborne pollu-
tants in effective air, water, and land resource management.
Developed air quality simulation models  (in Fortran computer
code) are made available to dispersion model users in computer
compatible form by availability of a magnetic tape from NTIS
(See Preface).

     RAM is one of the five dispersion algorithms added to
UNAMAP in March 1978.  RAM is based upon Gaussian dispersion
concepts of steady-state modeling.  Limitations are imposed on
use of the algorithm by the assumptions of non-reactive pollu-
tants and one wind vector and one stability class as representa-
tive of the area being modeled.  Also computations made under
light wind conditions should be interpreted skeptically.  In
spite of these limitations RAM provides a useful short-term
(hours to a day) algorithm for point and area sources for air
pollution impact assessment.
                                   rology and Assessment Division
                                m

-------
                             PREFACE
     One of the research activities of the Meteorology and
Assessment Division focuses on the development, evaluation,
validation, and application of air quality simulation, photo-
chemical, and meteorological models capable of describing air
quality and atmospheric processes affecting the disposition of
airborne pollutants, on scales ranging from local to global.
Within the Division, the Environmental Applications Branch
adapts and evaluates new and existing meteorological dispersion
models and statistical technique models, tailors effective
models for recurring user application, and makes these models
available through EPA's computer network system.

     RAM, an adaptation of Gaussian techniques previously used
in point source modeling, uses a rapid executing algorithm for
area sources based on the narrow plume hypothesis and has numer-
ous options available to increase user utility. RAM is one of
the atmospheric dispersion models on the User's Network for
Applied Modeling of Air Pollution (UNAMAP) system.  The UNAMAP
system may be purchased on magnetic tape from the National
Technical Information Service (NTIS) for use on the user's
computer system.

     Although attempts are made to thoroughly check out computer
programs with a wide variety of input data, errors are occasion-
ally found.  In case there is a need to correct, revise, or up-
date this model, revisions may be obtained as they are issued by
completing and sending the form on the last page of this guide.
     Comments and suggestions regarding this publication should
be directed to:
          Chief, Environmental Applications Branch
          Meteorology and Assessment Division  (MD-80)
          Environmental Protection Agency
          RESRCH TRI PK, NC  27711

     Technical questions regarding use of the model may be asked
by calling (919)  541-4564.  Users within the Federal Government
may call FTS:  629-4564.  Both volumes of the User's Guide are
available from NTIS, Springfield, Va.  22161.
     The magnetic tape containing all Fortran source codes for
RAM, as well as for ten other dispersion models, may be ordered
from Computer Products, NTIS.  Ask for UNAMAP  (Version 3),
PB 277 193.
                                IV

-------
                            ABSTRACT
     The information presented in this user's guide is directed
to air pollution scientists having an interest in applying air
quality simulation models.  RAM is the three letter designation
for this system of efficient Gaussian-plume multiple-source air
quality algorithms and also the primary algorithm for urban
areas. RAM is a method of estimating short-term dispersion using
the Gaussian steady-state model.  These algorithms can be used
for estimating air quality concentrations of relatively non-
reactive pollutants for averaging times from an hour to a day
from point and area sources.  The algorithms are applicable for
locations with level or gently rolling terrain where a single
wind vector for each hour is a good approximation to the flow
over the source area considered.  Calculations are performed
for each hour. Hourly meteorological data required are wind
direction, wind speed, temperature, stability class, and mixing
height.  Emission information required of point sources consists
of source coordinates, emission rate, physical height, stack
diameter, stack gas exit velocity, and stack gas temperature.
Emission information required of area sources consists of south-
west corner coordinates, source side length, total area emission
rate and effective area source-height. Computation time is kept
to a minimum by the manner in which concentrations from area
sources are estimated using a narrow plume hypothesis and using
the area source squares as given rather than breaking down all
sources into an area of uniform elements.  Options are available
to the user to allow use of three different types of receptor
locations:  1) those whose coordinates are input by the user,
2) those whose coordinates are determined by the model and are
downwind of significant point and area sources where maxima are
likely to occur, and  3) those whose coordinates are determined
by the model to give good area coverage of a specific portion of
the region.  Computation time is also decreased by keeping the
number of receptors to a minimum.   Volume I considers the use
and capabilities of RAM, its basis, the organization of the
computer program, and data requirements.  Volume II presents RAM
example outputs, typical run streams, variable glossaries, and
Fortran source codes.

-------
                         CONTENTS  VOLUME II

 Foreward	iii
 Preface	iv
 Abstract  	    v
 Figures	ix
 Acknowledgements	    x
 1.    Introduction	    1
 2.    System overview and glossary 	    2
 3.    RAMQ	20
           Input data formats (RAMQDOC)	20
           Run-stream example	21
           Output example	22
           Fortran source program listings 	   26
 4.    RAMMET	36
           Input data formats (RAMMETDOC)	36
           Run-stream example	38
           Output example	40
           Fortran source program listings 	   41
 5.    RAM	47
           Input data formats (RAMDOC)	47
           Run-stream example	52
           Output examples 	   53
           Fortran source program listings 	   72
           Program to read the partial concentration out-
                put file (PARTC)	Ill
           Format of punch card output (PUNCHCARD) 	  113
 6.    RAMF	115
           Input data formats	115
           Run-stream examples 	  120
           Output example	126
           Fortran source program listings 	  132
           Program to read the hourly output file (RAMFHOUR) .  146
           Program to read the daily output file (RAMFDAY)  . .  148
 7.    RAMR	150
           Fortran source program listings 	  150
 8.    RAMFR	176
           Fortran source program listings 	  176
 9.    CUMF	188
           Input data formats	188
           Run-stream example	188
           Output example	189
           Fortran source program listings 	  201
10.    RAMBLK	207
           Input data formats	207
           Run-stream example	207
           Output example	208
           Fortran source program listings 	  212

-------
                        CONTENTS  VOLUME I
Foreward	iii
Preface	iv
Abstract 	  v
Figures	ix
Acknowledgements 	  x
     1.   Introduction 	  1
     2.   Recommendations	3
               Uses	3
               Algorithm Assumptions 	  3
               Proper use of RAM	8
               Special problems that may be encountered using
                    the frequency distribution version (RAMF) of
                    RAM	9
     3.   Theoretical Basis for RAM	11
               Dilution by the wind	11
               Dispersion results in Gaussian distributed cross
                    sections	11
               Steady-state conditions 	 11
               Concentration - sum of individual contributions  . 11
               Plume rise for point sources	12
               Effluent rise for area sources	17
               Concentrations from point sources 	 17
               Concentrations from area sources	18
     4.   Organization of Computer Programs	19
               Interrelationship of eight main programs	19
               Brief descriptions of programs	22
               Brief descriptions of subroutines 	 28
     5.   Data Requirements	32
               RAMBLK	32
               RAMQ	32
               Meteorological data and RAMMET	35
               RAM and RAMR	37
               RAMF and RAMFR	42
               CUMF	43
     6.   Algorithm Capabilities 	 44
               Typical use of RAM	44
               Discussion of RAM example	46
               Typical RAMR use	50
               Typical RAMF use	50
References	52
Appendix	54
                                vm

-------
                                   FIGURES

Number                                                                Page

  1.      System flow for RAM or RAMR	   3

  2.      System flow for RAMF or RAMFR	   4

  3.      Locations of point sources
            and significant point
            receptors for example problem 	  54

  4.      Locations of area sources and
            significant area receptors
            for example problem	55

  5.      Locations of input receptors
            and honeycomb receptors for
            example problem 	  56

-------
                               ACKNOWLEDGMENTS
     The authors appreciate the assitance of Adrian D. Busse for placing RAM
into the UNAMAP system, and the helpful discussions with John S. Irwin and K.
L. Calder.
     We appreciate the suggestions for changes received from the Regional
Meteorologists and other contributors in EPA regions.  These suggested
changes arose from their experience in running provisional versions of RAM.
     RAM bears the initials of Robert A. McCormick who directed the meteor-
ology program of the Federal air pollution control effort from June 1958
until the time of his retirement in January 1973.  His dedicated leadership,
encouragement, advice, and counsel throughout this peirod are greatly appre-
ciated.
     The assistance of Theresa Burton, Caryl Whaley, Lea Prince, Nancy
Beasley, Bonnie Kirtz, Carolyn Johnston, Sandy Bryant, Tom Pierce, and
especially that of Pamela Hinton and Joan Emory is gratefully acknowledged.
We thank Ralph Seller for the use of his slide showing point and area sources
for the cover.

-------
                             1,   INTRODUCTION


     The purpose of Volume II of the RAM User's Guide is to supply the user
with technical information necessary to execute all  programs in the RAM
system.  Detailed explanations of the preparation of input data are given as
well as corresponding example outputs.   Core,  time,  and page estimates are
provided in several example run streams.  The  form of the run cards is as
follows:

@RUN,priority/options runid/core,accnt,proj-id,run-time(min),pages/cards

A glossary contains the definition of all  variables  used in the RAM programs,
and, for completeness, all unique routines in  the RAM system are listed below.
The following table indicates which routines are necessary for execution of
specific programs in the RAM system:
  RAMQ
RAMMET
RAM
RAMF
RAMR
RAMFR    CUMF
RAMBLK

  RAMQ
  BLKQU
  BLKQR
RAMMET
RAM
ANGARC
JMHPOL
JMHARE
JMHPTU
JMH54U
JMHCZU
DBTRCU
JMHFIN
JMHREC
JMHOUR
JMHHON
BRSZ
BRSYSZ
BLOCK
RAMF
ANGARC
JMHPOL
JMHARE
JMHPTU
JMH54U
JMHCZU
DBTRCU
JMHFD
BRSZ
BRSYSZ
BLOCK



RAMR
ANGARC
JMHPOL
JMHARE
JMHPTR
JMH54R
JMHCZR
DBTRCR
JMHFIN
JMHREC
JMHOUR
JMHHON
PGSZ
PGSYSZ
BLOCKR
RAMFR
ANGARC
JMHPOL
JMHARE
JMHPTR
JMH54R
JMHCZR
DBTRCR
JMHFD
PGSZ
PGSYSZ
BLOCKR



                                     CUMF      RAMBLK
                                     GRAPH     JMHCZB
                                     PROB      DBTRCB
                                     CALCOMP   PGSZ
                                      SOFTWARE PGSYSZ
                                               BRSZ
                                               BRSYSZ

-------
                   2,   SYSTEM OVERVIEW AND  GLOSSARY

     Figures 1 and 2 for the RAM system illustrate that control  cards  and
either point or area source emissions or both are required input to RAMQ --
the emissions preprocessor.  The generated output file is  required for all
versions of RAM.
     Control and possibly receptor and meteorological  data are  input into  the
RAM versions on cards.   If the user chooses to input meteorological  data on
cards, then execution of the meteorological preprocessor,  RAMMET,  may  be
omitted; otherwise one year's hourly surface observations  and corresponding
mixing height data is required by RAMMET to prepare the necessary  meteoro-
logical input file for the RAM versions.
     Finally, in addition to the average emissions data from RAMQ, all  RAM
versions will accept hourly emissions data.
     Output from RAM or RAMR consists of printed output and, if specified
by the user, punch cards for contouring and hourly contributions from  each
source to each receptor.  Output from RAMF or RAMFR consists of printed out-
put and hourly and daily concentration files.  The daily concentration file
can be used as input to the program CUMF in order to produce printed and
plotted cumulative frequency distributions.

-------
   ' _A.'iEA_EMjss]p_Ns

    POINT EMISSIONS
       CONTROL
         CARDS
         R A M Q
                                                                   MIXING HT. DATA
                                      NCC
                                    SURFACE
                                   MET. DATA
                 CONTROL
                   CARD
                                                      PREPROCESSED
                                                        MET. DATA
                                                                           HOURLY
                                                                            POINT
                                                                          EMISSIONS
                                                                            HOURLY
                                                                             AREA
                                                                           EMISSIONS
PREPROCESSED
  EMISSIONS
    DATA
PUNCHED CARDS
FOR CONTOURING
                          PRINTED
                          OUTPUT
    HOURLY
    PARTIAL
CONCENTRATION'
      FILE

                  DOTTED LINE MEANS OPTIONAL
                    Figure  1.   System  flow  for  RAM or RAMR

-------
    I  AREAEMSKJNS
                                                                                  'MIXING HT. DATA
                                                         NCC
                                                       SURFACE
                                                      MET. DATA
                                                                                 CONTROL
                                                                                  CARD
        CONTROL
         CARDS
                                    RECEPTOR DATA
                                                                   PREPROCESSED
                                                                     MET. DATA
PREPROCESSED
  EMISSIONS
    DATA
                                   CONTROL
                                    CARDS
                                                                              HOURLY
                                                                               POINT
                                                                             EMISSIONS
                                  R A M F
                                    OR
                                 R A M F R
      STORAGE OF
      SUMMATION
         DATA
                                                                              HOURLY
                                                                               AREA
                                                                              EMISSIONS
                                   HOURLY
                                   CONCEN-
                                   TRATION
                                     FILE
                                                        DAILY
                                                   CONCENTRATION
                                                         FILE
PRINTED
OUTPUT
	DOTTED LINE MEANS OPTIONAL
                                                   PRINTED
                                                 CUMULATIVE
                                                 FREQUENCY
                                                DISTRIBUTIONS
                                                                          /CALCOMP
                                                                         /    PLOTTED
                                                                        (   CUMULATIVE
                                                                         \  FREQUENCY
                                                                          NDISTRIBUTIONS
                        Figure 2.   System flow  for RAMF or  RAMFR

-------
                                    GLOSSARY
                         VERSION 78124 OF RAM DOCUMENTATION
      ***GLOSSARY   OF   TERMS   FOR   RAM
AND  R A M R
C        RAM IS AN URBAN SHORT TERM STEADY-STATE GAUSSIAN DISPERSION MODEL THAT
C         DETERMINES HOURLY CONC. AND AVG. CONC. FOR NAVG HOURS AT A NUMBER OF
C         RECEPTOR POINTS . RAMR IS THE RURAL VERSION OF RAM.
C
C     ACHI     CONCENTRATION DUE TO AREA SOURCES AT EACH RECEPTOR(G/M**3)
C     AHCHI    SAME AS ACHI  BUT FOR THIS HOUR ONLY.
C     AHSIGS   SAME AS ASIGS BUT FOR THIS HOUR ONLY.
C     ANGARC   SUBROUTINE- DETERMINE THE ARCTAN(DELM/DELN)
C     ASIGS    PARTIAL CONC. DUE TO EACH SIGWIF. AREA  SOURCE AT EACH RECEPTOR
C     ASORC(1,NAS)  EAST COORD. OF 3W CORNER OF AREA SOURCE (USER UNITS)
C     ASQRC(2,NAS)  NORTH COORD. OF SW CORNER OF AREA SOURCE (USER UNITS)
C     ASORC(3,NAS)  SULFUR DIOXIDE EMISSION RATE FOR ENTIRE AREA (GRAMS/SECOND)
C     ASORC(4,NAS)  PARTICULATE    EMISSION RATE FOR ENTIRE AREA (GRAMS/SECOND)
C     ASORC(5,NAS)  SIDE LENGTH OF AREA SOURCE (USER UNITS)
C     ASORC(6,NAS)  AREA SOURCE HEIGHT (METERS)
C     AXCOF    AREA SOURCE DISTANCE COEFFICIENTS FROM RAMBLK
C     AXEXP    AREA SOURCE DISTANCE EXPONENTS FROM RAKBLK
C     BPH      HEIGHTS SEPARATING AREA HEIGHT CLASSES(METERS)
C     CIN      ARRAY CONTAINING INTEGRATED VALUES FOR AREA SOURCES
C     COEFFS   NAMED COMMON FOR COEFFICIENTS GENERATED BY RAMBLK
C     CONONE    MULTIPLIER CONSTANT TO CONVERT LENGTH IN USER UNITS TO KM
C     CONTWO    MULTIPLIER CONSTANT TO CONVERT LENGTH IN INTERNAL UNITS TO KM
C     COST     COSINE OF rfIND DIRECTION FOR THIS HOUR
C     C1       DUMMY VARIABLE FREQUENTLY USED IN PRINTING
C     C2       DUMMY VARIABLE FREQUENTLY USED IN PRINTING
C     C3       DUMMY VARIABLE FREQUENTLY USED IN PRINTING
C     C4       DUMMY VARIABLE FREQUENTLY USED IN PRINTING
C     DAY1     JULIAN DAY OF MET DATA.
C     DEC      DEGREES FOR DETERMINATION OF QUADRANT
C     DELM     EAST  COMPONENT OF RESULTANT wIND FOR NAVG HOURS.
C     DELN     NORTH COMPONENT OF RESULTANT WIND FOR NAVG HOURS.
C     DSAV     ARRAY OF DISTANCES TO FINAL RISrX.KM)
C     DUMR     DUMMY VARIABLE TO SKIP PAST WIND DIRECTION TO 10 DEGREES.
C     FH       FRACTION OF AREA SOURCE HEIGHT MICH IS PHYSICAL HEIGHT
C     GRIDSP   DISTANCE BETWEEN RECEPTORS GENERATED BY JMHHON (USER UNITS)
C     HAFL     POLLUTANT HALF-LIFE (SECONDS)
C     HCGRID   NAMED COMMON CONTAINING BOUNDS FOR HONEYCOMB GRID
C     HC1      HEIGHT CLASS DESIGNATIONS FOR RAMbLK DATA
C     HEIGHT   NAMED COMMON , VARIABLES CONCERNED folTH AREA SOURCE HEIGHTS
C     HINT     REPRESENTATIVE HEIGHTS FOR AREA SOURCES(METERS)
C     HL       MIXING HEIGHT(METERS) FOR THIS HOUR
C     HLH      MIXING HEIGHTS (METERS) FOR 24 HOURS
C     HRMIN,HRMAX,HSMIN,HSMAX LIMITS FOR HONEYCD'-lb  RECEPTOR GENERATION-USER UNIT
C     H3AV     AH.^Y OF PLUXE RISES ALREADY CALCULATED (KCTER5)
C     I        DUriMY VARIABLE FRKQUE,\TLY USED
C     IA       AREA SOURCE MAP ARhAY (CONTAIN? IJTEGER MAPPING OF AREA
C               SOURCES BY SOURCE uUl'.cEri).
C     IASIGS   ARRAY CONTAINING RA.-iK FOR EACH ARbA SOURCE I* Ir^KiS OF
C              SIGNIFICANCE
C     ICHAfi    AN  'I' TO INDICAT.-: I'iPUT KL-Cf.PTOh .

-------
C     ICODE    NUMBER OF SIGNIFICANT SOURCE MICH GENERATED THIS RECEPTOR
C     ID       SURFACE METEOROLOGICAL STATION IDENTIFICATION FROM DISK
C     IDATK    YEAR AND STARTING JULIAN DAY TO APPEAR ON OUTPUT.
C     IDATA    DATE(YYDDBHH) ON HOURLY AREA SOURCE EMISSION RECORD
C     IDATP    DATE(YYDDDHH) OH HOURLY POINT SOURCE EMISSION RECORD
C     IDAY     NUMBER OF DAYS PREVIOUSLY PROCESSED BY A PRECEDING RUN.
C     IDCK     INTERNAL DATE USED FOR CHECKING DATE ON HOURLY EMISSION
C     IHSTRT   START HOUR OF RUM
C     IDM      IDENTIFICATION FOR RADIOSONDE STATION USED TO DETERMINE
C               MIXING HEIGHT FROM DISK
C     IFREQ    FREQUENCY TABLE OF OCCURRENCE OF EACH STABILITY CLASS.
C     IKST     STABILITY CLASS FOR THIS HOUR
C     ILH      DO LOOP INDEX ON HOUR LOOP
C     IMAS     ARRAY OF ORIGINAL AREA SOURCE NUMBERS IN ORDER OF SIGNIFICANCE
C     IMO      MONTH ON MET DATA.
C     IMOD     INDICATOR FOR RURAL=1, OR URBAN=2 VERSION OF MODEL
C     IMPS     ARRAY OF ORIGINAL POINT SOURCE NUMBERS IN ORDER OF SIGNIFICANCE
C     IHXD     IDENTIFICATION FOR RADIOSONDE STATION USED TO DETERMINE
C               MIXING HEIGHT. FROM CARD IMPUT.
C     IMXYR    YEAR FOR MIXING HEIGHT DATA - 2 DIGITS FROM CARD INPUT.
C     IN       INPUT UNIT NUMBER, CARD READER
C     IMAS     THE NUMBER OF USER SPECIFIED SIGNIF. AREA SOURCES, COUNT
C     INPT     THE NUMBER OF USER SPECIFIED SIGNIF. POINT SOURCES, COUNT
C     10       UNIT NUMEER(6) - PRINTER OUTPUT
C     lOPfd)  CONTROL OPTION, POINT SOURCE INPUT?
C     IOPT(2)  CONTROL OPTION, AREA SOURCE INPUT?
C     IOPT(3)  CONTROL OPTION, SPECIFIED RECEPTORS?
C     IOPT(4)  CONTROL OPTION, SIGNIFICANT POINT RECEPTORS?
C     IOPT(5)  CONTROL OPTION, SIGNIFICANT AREA  RECEPTORS?
C     IOPT(6)  CONTROL OPTION, FILL IN HONEYCOKS RECEPTORS?
C     IOPT(7)  CONTROL OPTION, HOURLY OUTPUT?
C     IOPT(8)  CONTROL OPTION, SOURCE CONTRIBUTIONS TO DISK?
C     IOPT(9)  CONTROL OPTION, HOURLY SUMMARIES ONLY?
C     IOPT(10) CONTROL OPTION, PUNCH CARDS FOR CONTOURS?
C     lOPT(H) CONTROL OPTION, INPUT MET DATA ON CARDS?
C     IOPT(12) CONTROL OPTION, SPECIFY SIGMF. SOURCE NUMBERS? 0
C     IOPT(13) CONTROL OPTION, READ HOURLY EMISSIONS?
C     IP       DUMMY VARIABLE USED FOR PROPER POLLUTANT TITLE
C     IPOL     INDEX FOR POLLUTANT, j = S02 , 4 = PARTICIPATE.
C     IPSIGS   ARRAY CONTAINING RANK FOR KACK POINT SOURCE IM TERMS OF
C              SIGNIFICANCE
C     IPl      DUMMY VARIABLE USED FOR LOOP dOUNDS
C     IQ       LOOP INDEX FOR MET DATA
C     IRSIZE   RAST-WEST SIZE OF AREA SOURCE REGION (IK INTERNAL UNITS).
C     ISFCD    SURFACE METEOROLOGICAL STATION IDENTIFICATION - FROM
C               CARD I\PUT.
C     ISFCYR   YEAR FOR SURFACE DATA - 2 DIBITS. FROM CARD INPUT.
C     ISSIZE   NORTH-SOUTH SIZE OF AREA SOURCE nEGIOH(IN INTERNAL UNITS)
C     ISTDAY   START DAY OF CURRENT AVERAGING PERIOD
C     ITYPE    ALPHANUMERIC CHARACTER TO INDICATE HOd A RECEPTOR IS GENERATED.
C     Iw'D      WIND DIRECTION CONTROL, QUADRANT FriOM toh'ICH WIND BLOWS.
C     IYEAR    YEAR FOR SURFACE DATA - 2 DIGITS. FRO'-' DISK.
C     IY!"i      YEAR FOR MIXING HEIGHT DATA - 2 DIGITS FROM DISK.
C     J        DUMMY VARIABLE FREQUENTLY USED
C     JDUM     DUMMY VARIABLE USED IM PRINTING AREA ARRAY KAP(IA)
C     JHR      "OUR SUBSCRIPT USED i.'IT4 HFT DATA
C     JLIK     DUMMY VARIABLE USED IK' PRINTING AREA ARRAY MAP(IA)
C     JMHARE   SUBROUTINE- INTEGRATES FOh CONC. FROM AREA SOURCES
C     JMHFIN   SUBROUTINE- PRODUCES OUTPUT FOR T-1E BASIC AVG. TIME
C     JMHHOM   SUBROUTING- GE.MF HATES HONEYCOMB PATTERN OF KECEPTORS
C     JMHOUH   SUBROUTINE- PRODUCES HOURLY OUTPUT
C     JMHPTU   SUBROUTINE- DGTERMI.x'iS CONC FHO' POI.'iT SOURCES
0
0
0
0
0
0
0
0
0
0
0
0
0
=
=
=
=
=
=
=
=
=
r
=
=
=
NO,
NO,
NO,
NO,
NO,
NO,
NO,
NO,
NO,
NO,
NO,
MO,
NO,
1 =
1 =
1 =
1 =
1 =
1 =
1 =
1 =
1 =
1 =
1 =
1 =
1 =
YES
YES
YES
YES
YES
YES
YES
YES
YES
YES
YES
YES
YES

-------
C              (JMHPTR IN RURAL VERSION)
C     JMHREC   SUBROUTINE- GENERATES RECEPTORS DOWNWIND OF SIGNIF. SOURCES
C     JMH54U   SUBROUTINE-GENERATES TABLES OF CALCULATED CONC. FOR AREA SOURCES
C              (JHHS^R ri RURAL VERSION)
C     JYR      YEAR OF MET DATA.
C     K        DUMMY VARIABLE FREQUENTLY USED
C     KST      STABILITY CLASS FOR THIS HOUP.
C     KSUM     VARIABLE USED Ii\ DETERMINING AVERAGE  STABILITY
C     L        DUMMY VARIABLE USED IN PFIMTING POINT IDENTIFICATION
C     LH       INDEX USED FOR SUBSCRIPTING DATA IF! HOUR LOOP
C     LINE!    FIRST LINE OF TITLE USUALLY IDENTIFIES USER AND
C               AFFILIATION.
C     LIME2    SECOND LINE OF TITLE, CAN IDMiTIFY EMISSIONS SOURCE AND
C               DATE.
C     LINE3    THIRD LINE OF TITLE, CAN INDICATE METEOROLOGICAL DATA
C               LOCATION AiMD PERIOD OF RECORD.
C     LSMAX    MAXIMUM STABILITY CLASS FREQUENCY.
C     LST      VARIABLE USED IN DETERMINING MODAL STABILITY
C     LSTAB    VARIABLE USED IN DETERMINING MODAL STABILITY
C     MAS      AREA SOURCE NUMBERS USER kANTS TO CONSIDER AS SIGNIFICANT
C     METCON   NAMED COMMON,   CONC. ARRAYS AND CURRENT MET. CONDITION'S
C     METDAT   NAMED COMMON,  HOURLY MET. DATA FOP EACH DAY.
C     MODEL    MODEL(1) = 'RURAL'; MODEL(2) = 'URBAN'.
C     MODL     MODL=1 FOR RURAL VERSION, MODL=2 FOR JRBAN VERSION
C     MPS      POINT SOURCE NUMBERS USSR WANTS TO CONSIDER AS SIGNIFICANT
C     NAS      NUMBER OF AREA SOURCES,  COUNT
C     NAVG     NUMBER OF HOURS IN THE AVERAGING TIME
C     NB       THE BEGINNING HOUR OF THE CURRENT AVERAGING TIME LOOP
C     NEP      NUMBER OF HEIGHTS SEPARATING HEIGHT CLASSES
C     WE       THE ENDING HOUP OF THE CURRENT LOOP
C     NHRS     COUNT ; USED TO DETERKIfJE WHEN A DAY(24 HOURS) IS COMPLETE
C     NUTS     NUMBER OF HEIGHT CLASSES
C     NID      UNIT NUMBER(9) - DISK UNIT OF EMISSION DATA AMD OTHER
C               INFORMATION FROM RAMQ.
C     NIP      UNIT NUMBER(IO) - DISK OUTPUT OF PARTIAL CONCENTRATIONS AT
C               EACH RECEPTOR.
C     NIT      UNIT NUMBER(11) FOP INPUT OF MET DATA.
C     NP       CURRENT NUMBER OF COMPLETED PERIODS
C     NPER     THE NUMBER OF PERIODS TO BE RUN.
C     NPREC    NUMBER OF PERMANENT RECEPTORS
C     NPT      NUMBER OF POI*T SOURCES, COUNT
C     NRECEP   TOTAL NUMBER OF RECEPTORS
C     NSIGA    MO. OF SIGNIFICANT AREA  SOURCES,MAY BE LESS THAN IN RAKQ
C     NSIGP    HO. OF SIGNIFICANT POINT SOURCES,MAY BE LESS THAN IN RAMO
C     PARTC    ARRAY OF PARTIAL CONCENTRATIONS,CONTRIBUTION FROM EACH SOURCE
C     PCHI     CONCENTRATION DUE TO POINT SOURCES AT EACH RECEPTOR(G/M**3)
C     PERSI3   WIND PERSISTENCE FOR NAVG HOURS.  (RESULTANT SPEED/AVG. SPEED)
C     PHCHI    SAME AS PCHI  BUT FOR THIS HOUR ONLY.
C     PHSIGS   SAME AS PSIGS BUT FOR THIS HOUR ONLY.
C     PL       ARRAY CONTAINING EXPONENTS FOR WIND PROFILE
C     PMAME    12 CHARACTER POINT SOURCE IDENTIFICATION.
C     PSAV     ORIGINAL ANNUAL EMISSION RATE FOR ALL SOURCES.
C     PSIGS    PARTIAL CONC. DUE TO EACH SIGNIF. POINT SOURCE AT EACH RECEPTOR.
C     PXCOF    POINT SOURCE DISTANCE COEFFICIENTS FROM RAMBLK
C     PXEXP    POINT SOURCE DISTANCE EXPONENTS FROM RAMBLX
C     PXUCOF   POINT SOURCE CONCENTRATION COEFFICIENTS FROM RAMBLK
C     PXUEXP   POINT SOURCE CONCENTRATION EXPONENTS FROM RAMBLK
C     QHL      ARRAY OF HOURLY MIXING HEIGHTS(METERS).
C     QTEMP    ARRAY OF AMBIENT AIR TEMPERATURES(KELVIN)
C     QTHETA   ARRAY OF WIND DIRECTION'S (DEGREES)
C     QU       ARRAY OF WIND SPEEDS (METERS/SECOND)
C     RDUM     INTERMEDIATE STORAGE

-------
c
c
c
c
c
c
o
^
c
c
c
c
c
c
c
c
/-I
l^
c
c
c
c
r>
w
c
c
c
c
c
c
c
c
c
c
c
c
c
c
   RELC
   RMAX
   RMIN
   RMIN i
   RNAKE
   RRCC
   3DUM
   BF
   SINT
   SMAX
 NAMED  COMMON
                            POR RELATIVE CONCENTRATION ARRAY.

                            COORD. OF AREA SOURCES .( INTERN AL -UNITS)
                            COORD. OF AREA SOURCES .( INTERN AL UNITS)
                            COORDINATE OF AREA SOURCES
                                               OF RECEPTOR.
   SMINI
   SORC
   SOURCEd
   SOURCE(2

   SOURCE (3
   SOURCES
   SOURCE(5
   SOURCE(6
   SOURCE(?
   SOU'RCE(8

   30URCE(9
   SREC
   TEMP


   THETA


   TITLE
   TLOS
   TRAD
   U
   UNITS
   UR
   URES
   URREC
   USREC
   Vfi
   XL IX
 MAXIMUM  EAST
 MINIMUM  EAST
 MINIMUM,  EAST

 8  DIGIT  ALPHANUMERIC DESCRIPTOR
 EAST RECCPTOR CO-ORDINATES(USER UNIT CONVERTED TO INTERNAL UNIT)
 INTERMEDIATE STORAGE
 SIDE LENGTH OF AREA SOURCE IN METERS.
 SIN  OF  WIND DIRECTION FOP THIS HOUR
 MAXIMUM  NORTH COORD. OF AREA SOURCES.(INTERNAL UNITS)
 MINIMUM  NORTH COORD. OF AREA SOURCES.(IMTERNAL UNITS)
 MINIMUM  NORTH COORDINATE OF AREA SOURCES
 NAMED COMMON CONTAINING SOURCE AND CONTROL INFORMATION
,NPT)  EAST  COORDINATE OF POINT SOURCE  (USER UNITS)
,NPT)  NORTH COORDINATE OF POINT SOURCE  (USER UNITS)
,NPT)  SULFUR DIOXIDE EMI.SSIOn RATE (GRAMS/SECOND)
,NPT)  PARTICULATE EMISSION RATS (GRAMS/SECOND)
,NPT)  PHYSICAL STACK HEIGHT (METERS)
,KPT)  STACK GAS TEMPERATURE (KELVIN)
,HPT)  STACK INSIDE TOP DIAMETER (METERS)
,NPT)  STACK GAS EXIT VELOCITY (METERS/3ECOMD)
,NPT)  BRIGGS F WITHOUT TEMP, THAT  IS:  3-12139*VF
 NORTH RECEPTOR CCORDINATES( USER UMT CONVERTED TO INTERNAL UNIT)
 AVERAGE  AMBIENT AI li TEMPERATURE FOR iMAVG HOURS. ALSO
  TEMPERATURE FOR THIS HCUR(KELVIN)
 RESULTANT WIND DIRECTION FOR NHOURS(DCGHESS).ALSO WIND
  DIRECTION FOR THIS HOUR
 TITLE(1)=' 502  ', TITLb(2)=' PART '
 PARTIAL  COMPUTATION RELATED TO POLLUTANT LOSS.
 ANGLE OF THE WIND THIS HOUR IN RADIANS.
 AVERAGE  WIND SPEED. ALSO WI>
-------
C    JMHFD    SUBROUTINE- PRODUCES OUTPUT FOR THE BASIC AVG.  TIME
C    LDRUH    DAY NUMBER OF LAST DAY TO BE PROCESSED IN THIS  RUN
C    MDAYS    NUMBER OF DAYS TO BE RUM
C    SUM      NAMED COMMON CONTAINING SUMMARY ARRAYS
C    UMAX     FIVE HIGHEST HOURLY CONCENTRATIONS, DATE AND HOUR OF
C             OCCURRENCE FOR EACH RECEPTOR
C             HMAX(1,J,K) CONCENTRATION
C             HMAX(2,J,K) JULIAK DAY
C             KMAX(3,J,K) HOUR
C               J IS THE FIRST THRU FIFTH HIGHEST INDICATOR
C               K IS THE RECEPTOR NUMBER
      ***GLOSSARY
0 F
TERMS
0 R
RAM MET***
C
C
n
ly
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
C
C
C
C
C
C
C
C
C
C
RAMMET RE
CLIMATIC
INFORMAT
RANDOMIZ
IN DAILY
AFV
ALAT
ALF
ALFSIN
ALONG
A MM
ANGL
CONST
COSD
COSLAT
COSTD
DAY1
DAYNO
DCOS
DSIN
DUM
FV
FVR
HCOS
HI
HLH
H2
I
ICEIL
ICN
ICOVER
ID
IDAY
IDC
IDFAC

IDG
IDIG
IDIR
IDM

IDY
IFLAG
IHOUR
IHR
IMO
IMONTH
          READS SURFACE OBSERVATION HOURLY CARD IMAGES FROM THE NATIONAL
             CENTER (NCC)  FOR ONE YEAR'S DATA,  READS MIXING HEIGHT
             ON FROM CARDS,   CALCULATES STABILITY CLASS AND
             D  FLOW'VECTOR,  AND WRITES HOURLY  MET,  DATA ARRAYS
             RECORDS.
               FLOW VECTOR (ARRAY)
               LATITUDE OF SITE
               SOLAR ELEVATION ANGLE(DEGREES)
               SINE OF SOLAR  ELEVATION ANGLE
               LONGIDUTE OF  SITE
               TIME OF MERIDIAN PASSAGE
               TEST ELEVATION ANGLES
               THE NUMBER OF  DEGREES IN A RADIAN
               COS OF  DAYNO
               COSINE  OF LATITUDE
               COS OF  TDAYNO
               JULIAN  DAY OF  MET DATA.
               ANGULAR POSITION FOR THIS DAY.
               COSINE  OF SOLAR DECLINATION
               SINE OF SOLAR  DECLINATION
               DUMMY VARIABLE FOR TEMPORARY STORAGE
               FLOW VECTOR (DEGREES)
               RANDOMIZED FLOW VECTOR
               COSINE  OF SOLAR HOUR ANGLE OF SUNRISE AND SUNSET
               ELEVATION ANGLE
               MIXING  HEIGHTS (METERS) FOR 24  HOURS
               SOLAR HOUR ANGLE OF SUNRISE AND  SUNSET
               FREQUENTLY USED DUMMY FOR DO INDEX
               INPUT CEILING(HUNDREDS OF FEET)
               DUMMY RELATED  TO SOLAR RADIATION INDEX
               OPAQUE  CLOUD  COVER(TENTHS)
               SURFACE METEOROLOGICAL STATION  IDENTIFICATION FROM DISK
               DAY FROM MET.  TAPE
               MET TAPE IDENTIFICATION
               NUMBER  OF DAYS FROM FIRST OF YEAR TO  END OF PREVIOUS
                MONTH.
               NUMERICAL DATA CORRESPONDING TO  ICEIL
               ALPHA DIGITS  TO COMPARE WITH ALPHA.VARIABLES ON MET CARD
               WIND DIRECTION CATEGORY (10 DEGREES)
               IDENTIFICATION FOR RADIOSONDE STATION USED TO DETERMINE
               MIXING  HEIGHT  FROM DISK
               INDEX FOR DAY  LOOP
               INDICATOR THAT END OF FILE HAS  BEEN REACHED
               HOUR
               INTEGER HOUR
               MONTH ON MET  DATA.
               MONTH
                                        9

-------
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>
u
c
c
c
c
c
^
c
c
c
c
c
c
c
c
c
c
c
c
IN
IND
10
IRADX
IRAND
IREC
IROOF
ISKY
ISPEED
ITEMP
IYEAR
IYM
IYRC
J
JI
JK
KHR
KHRC
KST
KSTSP
LDAY
LMON
LST
LSTAB
LWD
LYS
RAND(24)
RANDU
S
SIGMA
SIND
SINLAT
SINTD
SPEED
TDAYNO
TEMP
TEMPZ
TSR
TSS
XAF
XAFM1
XAFP1
XDIR
XHR
XMN
XMMM1
XMNP1
ZONE
         INPUT UNIT NUMBER,  CARD READER
         INDICATOR FOR WIND  SPEED
         UNIT NUMBER(6) - PRINTER OUTPUT
         RADIATION INDEX
         RANDOM DIGIT FROM 0 TO 9.
         CURRENT RECORD ON MET. TAPE
         CEILING HEIGHT CODE
         SKY COVER(TENTHS)
         INPUT WIND SPEED(KNOTS)
         INPUT TEMPERATURE(DRY BULB - FARENHEIT)
         YEAR FOR SURFACE DATA - 2  DIGITS.  FROM DISK.
         YEAR FOR MIXING HEIGHT DATA - 2 DIGITS FROM DISK.
         YEAR
         DUMMY VARIABLE FOR  OUTPUT  LISTS
         DUMMY VARIABLE FOR  DO LOOP INDEX
         DUMMY FOR DO LOOP INDEX
         INDEX FOR HOURLY DO LOOP
         HOUR
         ARRAY OF CALCULATED HOURLY STABILITIES FOR EACH DAY
         TEMPORARY STABILITY CLASS
         DAY OF MONTH FROM CARD FOR LAST HOUR
         MONTH FROM CARD FOR LAST HOUR
         STABILITY CLASS FOR LAST HOUR
         TABLE OF STABILITES INDEXED BY IND AND IRADX
         LAST WIND DIRECTION(DEGREES)
         INDICATOR: 1 FOR NORMAL YEAR, 2 FOR LEAP YEAR.
         INITIAL RANDOM NUMBER.
         SUBROUTINE TO GENERATE RANDOM NUMBERS
         WIND SPEED (KNOTS)
         VARIABLE TO ACCOUNT FOR ELLIPTICITY OF EARTH'S  ORBIT
         SIN OF DAYMO
         SINE OF LATITUDE
         SIN OF TDAYNO
         WIND SPEED (METERS/SECOND)
         TWO TIMES DAYNO
         ARRAY OF HOURLY TEMPERATURES FOR EACH DAY
         INTERMEDIATE CALCULATION INVOLVING ZONE AND LONGITUDE
         TIME OF SUNRISE
         TIME OF SUNSET
         TODAY'S MAXIMUM MIXING HEIGHT(METERS)
         YESTERDAY'S MAXIMUM MIXING HEIGHT(METERS)
         TOMORROW'S MAXIMUM  MIXIMG  HEIGHT(METERS)
         WIND DIRECTION (DEGREES)
         FLOATING POINT HOUR
         TODAY'S MINIMUM MIXING HEIGHT!METERS)
         YESTERDAY'S MINIMUM MIXING HEIGHT(METERS)
         TOMORROW'S MINIMUM MIXING  HEIGHT(METERS)
         TIME ZONE OF SITE(  GREENWICH MEAN  TIME- LOCAL STANDARD TIME)
***GLOSSARY
   0 F
T E R
FOR
R A M Q
                                                          * * *
C
C
C
C
C
c
c
c
c
c
RAMQ PROCE
MAP ARRAY
IMPACT.



A
ASVAL
AXCOF
AXCOR
         RANKS POINT
INVENTORY INFORMATION.  CONSTRUCTS AREA SOURCE
AMD ARSA SOURCES ACCORDING TO EXPECTED
        FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
         IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.

         TEMPORARY COEFFICIENT
         SIGNIFICANCE- EMISSION RATE TIMES SIDE LENGTH.
         URBAN COEFFICIENT FOR DI3T. TO AREA MAX
         RURAL COEFFICIENT FOR DIST. TO AREA MAX
                                 10

-------
C     AXEXP    URBAN EXPONENT FOR DIST. TO AREA MAX.
C     AXEXR    RURAL EXPONENT FOR DIST. TO AREA MAX
C     B        TEMPORARY EXPONENT
C     COEFFR   NAMED COMMON-ARRAYS OF RURAL COEFFICIENTS AND EXPONENTS
C     COEFF"   NAMED COMMON-ARRAYS OF URBAN COEFFICIENTS AMD EXPONENTS
C     C1       DUMMY TO WRITE OUTPUT IN USER UNITS
C     C2       DUMMY TO WRITE OUTPUT IN USER UNITS
C     C3       DUMMY TO WRITE OUTPUT IN USER UNITS
C     D        TEMPORARY SIDE LENGTH VALUE
C     F        BRIGGS 3UOYAKCY FLUX PARAMETER
C     HC       TEMPORARY HEIGHT CLASS AT 5 METER INTERVALS
C     HC1      HEIGHT CLftSS SEPARATIONS(METERS)
C     HF       FINAL PLUME RISE(METERS) FOR CURRENT POINT SOURCE
C     HFIN     ARRAY OF  FINAL RISE(METERS) FOR EACH POINT SOURCE
C     IH       DO INDEX TO DETERMINE HEIGHT INDEX
C     IH1      HEIGHT VALUES FOR TABLE OUTPUT
C     IH2      HEIGHT VALUES FOR TABLE OUTPUT
C     IR       EAST IA INDEX FOR SOURCE NUMBER STORAGE
C     IRDIM    EAST MAXIMUM DIMENSIONS OF IA ARRAY (AREA SOURCE INDEX)
C     IRMAX    MAXIMUM INTEGER EAST  COORD. OF AREA SOURCES.
C     IRMIN    MINIMUM INTEGER EAST  COORD. OF AREA SOURCES.
C     IRX      MAXIMUM EAST IA INDEX FOR SOURCE NUMBER STORAGE
C     IS       HEIGHT CLASS INDEX AND NORTH IA INDEX FOR SOURCE NUMBER STORAGE
C     ISDIM    NORTH MAXIMUM DIMENSIONS OF IA ARRAY (AREA SOURCE INDEX)
C     ISMAX    MAXIMUM INTEGER NORTH COORD. OF AREA SOURCES.
C     ISMIN    MINIMUM INTEGER NORTH COORD. OF AREA SOURCES.
C     ISX      MAXIMUM NORTH IA FOR SOURCE NUMBER STORAGE
C     ITITLE   80 COLS OF INFORMATION TO BE USED AS OUTPUT TITLE
C     IWA      INTEGER AREA SOURCE SIDE LENGTH(USER UNITS)
C     LMAX     TEMPORARY NUMBER OF SOURCE WITH HIGHTEST CONCENTRATION
C     MAXA     MAXIMUM NUMBER OF AREA SOURCES.SECOND DIMENSION OF ASORC
C     MAXP     MAXIMUM NUMBER OF POINT SOURCES.SECOND DIM. OF SOURCE
C     NDIMA    MAXIMUM NUMBER OF AREA SOURCES
C     NDIMP    MAXIMUM NUMBER OF POINT SOURCES
C     NIN      INPUT DATA UNIT NUMBER(UNIT 5 ON THE UNIVAC 1110)
C     NS       TEMPORARY SOURCE NUMBER INDEX IN DO LOOP
C     PSVAL    SIGNIFICANCE VALUE
C     PXCOF    URBAN COEFFICIENT FOR DIST. TO POIWT MAX
C     PXCOR    RURAL COEFFICIENT FOR DIST. TO POINT MAX
C     PXEXP    URBAN EXPONENT FOR DIST. TO POINT MAX
C     PXEXR    RURAL EXPONENT FOR DIST. TO POINT MAX
C     PXUCOF   URBAN COEFICIENT FOR CHI-U/Q POINT MAX
C     PXUCOR   RURAL COEFFICIENT FOR CHI-U/Q POINT MAX
C     PXUEXP   URBAN EXPONENT FOR CHI-U/Q POINT MAX
C     PXUEXR   RURAL EXPONENT FOR CHI-U/Q POINT MAX
C     RC       TEMPORARY WEST BOUNDARY OF AREA SOURCE
C     RCHECK   TEMPORARY EAST BOUNDARY OF AREA SOURCE
C     SC       TEMPORARY SOUTH BOUNDARY OF AREA SOURCE
C     SCHECK   TEMPORARY NORTH BOUNDARY OF AREA SOURCE
C     SF       AREA SIDE LENGTH (METERS)
C     SIGMAX   TEMPORARY LOCATION OF MAXIMUM CONC.
C     SIGNIF   DUMMY VARIABLE FOR TEMPORARY STORAGE OF SIGNIFICANCE VALUES.
C     TABLE    ARRAY CONTAINING FREQUENCY DISRTIBUTIONS
C     TITLE    S02  OR PART FOR LEGENDS
C     TS       STACK TEMPERATURE(KELVIN)
C     WA       SIDE LENGTH(USER UNITS)
C
C
C     ***GLOSSARY  OF  TERMS  FOR  JMHREC**»

C        SUBROUTINE JMHREC DETERMINES LOCATIONS OF RECEPTORS DOWNWIND IN
C         THE RESULTANT DIRECTION FOR THE PERIOD FROM SIGNIFICANT POINT
                                       11

-------
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
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
    AND AREA SOURCES.

        FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
         IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
A        TEMPORARY COEFFICIENT

AB       TEMPORARY DISTANCE(INTERNAL UNITS)
B        TEMPORARY EXPONENT
C        TEMPORARY COEEFICIENT
C1       EAST COORD. IN USER UNITS FOR PRINTOUT

C2       NORTH COORD. IN USER UNITS FOR PRINTOUT
CONM     MAXIMUM ESTIMATED CONCENTRATION FROM A POINT SOURCE(G/M«*3)

D        TEMPORARY EXPONENT
DTHDZ    D THETA/ DZ, CHANGE OF TEMPERATURE WITH  HEIGHT.

F        BRIGGS BUOYANCY FLUX PARAMETER
H        EFFECTIVE AREA SOURCE HEIGHT(METERS)

HC1      BREAK POINT HEIGHTS FOR HEIGHT CLASSES(METERS)
HF       FINAL EFFECTIVE HEIGHT.

IH       DO LOOP INDEX TO FIND HEIGHT CLASS
IP       DO LOOP INDEX
IOPT(1)  CONTROL OPTION, POINT SOURCE INPUT?             0 = NO,  1  =  YES.

IOPT(2)  CONTROL OPTION, AREA  SOURCE INPUT?             0 = NO,  1  =  YES.
IOPT(t)  CONTROL OPTION, SIGNIFICANT POINT RECEPTORS?    0 = NO,  1  =  YES.

IOPT(5)  CONTROL OPTION, SIGNIFICANT AREA  RECEPTORS?    0 = NO,  1  =  YES.

IS       HEIGHT CLASS INDEX
JCHAR    AN 'A' TO INDICATE RECEPTOR GENERATED BY AREA SOURCE.

PL       EXPONENT FOR INCREASE OF WIND SPEED WITH HEIGHT.

Q        SOURCE EMISSION RATE(GXSEC)

RS       EAST CO-ORDINATE OF SOURCE

S        STABILITY PARAMETER
SS       NORTH CO-ORDINATE OF SOURCE
TS       STACK GAS TEMPERATURE(DEG-K)

UPL      WIND DIRECTION AT STACK HEIGHT.

WA       0.5*SOURCE  SIDE LENGTH IN INTERNAL UNITS.
X        DISTANCE OF MAXIMUM CONCENTRATION(KILOMETERS)



""•GLOSSARY   OF   TERMS   FOR   JMHHON***


   SUBROUTINE JMHHON DETERMINES LOCATIONS OF A HEXAGONAL OR HONEYCOMB

    ARRAY OF RECEPTOR POINTS SPACED GRIDSP APART AND ADDS TO THE

    RECEPTOR LIST THOSE NOT HAVING ANOTHER RECEPTOR WITHIN 0.5 GRIDSP
    OF THEIR LOCATION.

        FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
         IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
DISQ     SQUARE OF DISTANCE BETWEEN RECEPTOR AND HONEYCOMB POINT.
DLIM     SQUARE OF HALF THE DISTANCE BETWEEN HONEYCOMB RECEPTORS.
DUM      TEMPORARY STORAGE
DUM1     TEMPORARY STORAGE
DUM2     TEMPORARY STORAGE
HCOMBR   EAST COORDINATE OF CANDIDATE HONEYCOMB RECEPTORS.

HCOMBS   NORTH COORDINATE OF CANDIDATE HONEYCOMB RECEPTORS.

ICHAR    AN ALPHABETIC  'H' TO INDICATE RECEPTOR GENERATED BY
          HONEYCOMB  ROUTINE.

M        DO LOOP INDEX
N        DO LOOP INDEX

NBEES    NUMBER OF RECEPTORS GENERATED
NCOLS1   ESTIMATE OF THE NUMBER OF HONEYCOMB RECEPTORS IN ODD

          NUMBERED ROWS.
NCOLS2   ESTIMATE OF THE NUMBER OF HONEYCOMB RECEPTORS IN EVEN

          NUMBERED ROWS.
NROWS    ESTIMATED NUMBER OF HONEYCOMB RECEPTOR ROWS.

NULIM    TEMPORARY NUMBER OF RECEPTORS.

R        TEMPORARY EAST COORD. OF  RECEPTOR
                                        12

-------
c
c
c
c
c
c
c
c
c
c
c
c
c
RH
S
SH
XCD1
XCD2
XING
YCD
YINC




« • <
C
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
            TEMPORARY EAST COORD. OF CANDIDATE HONEYCOMB RECEPTOR.
            TEMPORARY NORTH COORD. OF RECEPTOR.
            TEMPORARY NORTH COORD. OF CANDIDATE HONEYCOMB RECEPTOR.
            EAST COORDINATE OF HONEYCOMB RECEPTOR(ODD ROWS)
            EAST COORDINATE OF HONEYCOMB RECEPTOR(EVEN ROWS)
            EAST SPACING INCREMENT
            NORTH COORDINATE OF HONEYCOMB GENERATED RECEPTOR.
            NORTH SPACING INCREMENT
            THE FOLLOWING ARE DUMMY VARIABLES USED IN JMHHON  FOR TEMPORARY
            STORAGE: DUM.DUM1, AND DUM2.


       •GLOSSARY   OF   TERMS   FOR   J M H 5  4 U(R) » » *

JMH54U(R) CALCULATES TABLES OF CONCENTRATIONS FROM AREA SOURCES THAT
 EXTEND UPWIND FROM A RECEPTOR TO VARIOUS DISTANCES. A TABLE  IS
 PRODUCED FOR EACH SOURCE HEIGHT (FROM ONE TO THREE).
           FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
            IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
   CI       INTEGRATED CHI » U/QA.
   CL       CHI » U/QA FOR LAST ITERATION.
   CP       CHI » U/QA  AT THIS DISTANCE.
   DELX     DISTANCE INCREMENT (KILOMETERS).
   H        TEMPORARY STORAGE OF AREA SOURCE HEIGHT(METERS)
   HARE     ARRAY OF MODIFIED AREA HTS. FOR WHICH CONC. TABLES ARE GENERATED.
   ID       INDEX FOR CIN STORAGE.
   IH       INDEX FOR HEIGHT CLASS LOOP
   JD       CONTROL FOR SIZE OF DISTANCE INCREMENT.
   JMHCZU   SUBROUTINE TO CALCULATE CONCENTRATIONS FROM INFINITE LINE SOURCES
            AT A DISTANCE,X,UPWIND FROM A RECEPTOR(JMHCZR FOR RURAL VERSIONS)
   N        INCREMENT FOR INITIAL STORAGE.
   NC       INCREMENT LIMIT FOR INITIAL STORAGE.
   PL       EXPONENT FOR INCREASE OF WIND SPEED WITH HEIGHT.
   SZ       SIGMA Z, STANDARD DEVIATION OF CONCENTRATION IN  THE
             VERTICAL DIRECTION(METERS)
   TT       TRAVEL TIME FROM SOURCE TO THIS RECEPTOR(KM-SEC/M)
   UPL      WIND SPEED AT AREA SOURCE HEIGHT(METERS/SECOND)
   X        DISTANCE UPWIND (KILOMETERS).
      * * *
            GLOSSARY   OF   TERMS   FOR   JMHCZU(R)
                                                                        » * *
C   JMHCZU(R) CALCULATES CONCENTRATIONS FROM INFINITE LINE SOURCES AT A
C   DISTANCE, X, UPWIND FROM A RECEPTOR.
C             FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
C              IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
C     AN       THE NUMBER OF SUMMATIONS CALCULATED
C     BRSZ     SUBROUTINE CALLED TO OBTAIN SIGMA-Z(PGSZ IN RURAL VERSION)
C     H        AREA SOURCE HEIGHT(METERS)
C     IWRI     OUTPUT UNIT (6).
C   •  KST      STABILITY CLASS FOR THIS HOUR.
C     RCZ      RELATIVE CONCENTRATION NORMALIZED FOR WIND SPEED FROM AN
C               INFINITE LINE SOURCE.
C     SZ       SIGMA Z, STANDARD DEVIATION OF CONCENTRATION IN THE
C               VERTICAL DIRECTION(METERS)
C     THL      TWICE THE MIXING  HEIGHT
C     X        UPWIND DISTANCE FROM RECEPTOR TO SOURCE (KILOMETERS).
C              THE FOLLOWING ARE ALL DUMMY VARIABLES USED IN JMHCZU(R)  FOR
C              TEMPORARY STORAGE: A1,A2,A3,A4,A5,A6,A?,C1 ,C2 ,C3,C4,C5,C6,C7,C8,
C              C9,CA,CB,CC,CD,CE,CF,SUM,AND T.
                                       13

-------
        **GLOSSARY
0 F
TERMS   FOR
        3 R S. Z
                                                                *  *  #
C   BRSZ DETERMINES URBAN SIGMA-Z FOR THE SOURCE-RECEPTOR DISTANCE,  X.
C     KST      STABILITY CLASS FOR THIS HOUR.
C     SZ       SIGMA Z, STANDARD DEVIATION OF  CONCENTRATION IN  THE
C               VERTICAL DIRECTION(METERS)
C     X        SOURCE-RECEPTOR DISTANCE IN METERS.
C     XK       SOURCE-RECEPTOR DISTANCE IN KM.
        **GLOSSARY
0 F
TERMS   FOR   PGSZ***
    PGSZ DETERMINES RURAL SIGMA-Z FOR THE SOURCE-RECEPTOR DISTANCE,  X,
      KST      STABILITY CLASS FOR THIS HOUR.
      SZ       SIGMA Z, STANDARD DEVIATION OF  CONCENTRATION IN THE
                VERTICAL DIRECTION(METERS)
      X        SOURCE-RECEPTOR DISTANCE (KILOMETERS)
      ***GLOSSARY
0 F
TERMS
FOR   JMHARE
                                                                    * * »
    JMHARE INTEGRATES ALONG THE LINE UPWIND FROM THE RECEPTOR IN ORDER
    TO OBTAIN THE EFFECT OF ALL AREA SOURCES ALONG THIS LINE.
         SUBROUTINE JMHARE DETERMINES THE CONCENTRATION FROM AREA SOURCES
             ALL RECEPTORS FOR A GIVEN HOUR.  THE 'NARROW PLUME HYPOTHESIS'
             USED, I.E., AREA SOURCES DIRECTLY UPWIND ARE ASSUMED
          REPRESENTATIVE OF AREA SOURCES AFFECTING THE RECEPTOR.
         JMHARE CALLS SUBROUTINE JMHPOL FOR INTERPOLATION OF THE
           INTEGRATED VALUE TABLES GENERATED BY SUBROUTINE JMH5^U(R)
              FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
               IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
               SMALL EAST-WEST INCREMENT TO STEP INTO NEXT UPWIND AREA
                SOURCE.
               SMALL NORTH-SOUTH INCREMENT TO STEP INTO NEXT UPWIND AREA
                SOURCE.
               ARRAY CONTAINING MODIFIED BREAK POINT HEIGHTS
               INTEGRATED CONCENTRATION FROM X = 0 TO DIST.
               INTEGRATED CONCENTRATION FROM X = 0 TO XL.
               HALF SIDE LENGTH(USER UNITS)
               EAST  INCREMENT, FUNCTION OF WIND QUADRANT.
               NORTH INCREMENT, FUNCTION OF WIND QUADRANT.
               INTEGRATED CONG. BETWEEN XL AND DIST.
               DISTANCE IN INTERNAL UNITS FROM RRE.SRE TO BOUNDARY
               DIST(INTERNAL UNITS) FROM RRE.SRE TO LOCUS.
               DISTANCE TO CLOSEST LOCUS(INTERNAL UNITS)
               TEMPORARY STORAGE OF A BREAKPOINT HEIGHT
               AREA EFFECTIVE HEIGHT(METERS)
               NUMBER OF LOCI FOUND.
               HEIGHT CLASS
               LAST HEIGHT CLASS USED.
               CONTROL OPTION, SOURCE CONTRIBUTIONS TO DISK? 0- = NO,  1 = YES.
               DUMMY VARIABLE FOR EAST-WEST INDEX.
               DUMMY VARIABLE FOR NORTH-SOUTH INDEX.
               SUBROUTINE TO INTERPOLATE CONC. FROM JMH5^U(R) GENERATED TABLES.
               INDEX FOR RECEPTOR LOOP
               SIGNIFICANCE RANK OR ZERO.
               DUMMY DO INDEX TO LOCATE LOCI
               SOURCE NUMBER (FROM IA ARRAY).
               PHYSICAL AREA SOURCE HEIGHT(METERS)
               EXPONENT FOR INCREASE OF WIND SPEED WITH HEIGHT.
               PARTIAL CONC. AT KTH RECEPTOR FROM THIS(NS) AREA SOURCE.
               AREA EMISSION RATE (G/SEC-M**2).
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
C
C
C
C
C
SUBR
AT
IS
REP
JMHA
IN


ADELR

ADELS

BPHM
CONC
TONCL
D
DELR
DELS
DIFF
DIST
DX
DXMIN
H
HA
ICNT
IH
IHL
IOPT(8)
IR
IS
JMHPOL
K
KSIG
L
NS
PHT
PL
PROD
QA
                                       14

-------
               EAST  COORD OF LOCUS: THE RAY THETA AND SM.
               R UPWIND BOUNDARY FOR THIS SOURCE.
               EAST  COORD OF SOURCE CENTER.
               EAST  COORD OF POINT JUST INSIDE NEXT AREA SOURCE
               EAST  COORD OF CLOSEST LOCUS
               EAST  COORDINATE  OF BOUNDARY.
               MINIMUM EAST COORDINATE OF AREA SOURCES
               EAST DISTANCE FROM RRE.SRE TO BOUNDARY RM
               EAST RECEPTOR COORDINATE
               NORTH COORD OF LOCUS: THE RAY THETA AND RM
               S UPWIND BOUNDARY FOR THIS SOURCE.
               NORTH COORD OF SOURCE CENTER.
               NORTH COORD OF POINT JUST INSIDE NEXT AREA SOURCE
               NORTH COORD OF CLOSEST LOCUS
               NORTH COORDINATE OF BOUNDARY.
               MINIMUM NORTH COORDINATE OF AREA SOURCES
               NORTH DISTANCE FROM RRE.SRE TO BOUNDARY SM.
               NORTH RECEPTOR COORDINATE
               TEMPORARY HEIGHT FOR WIND SPEED COMPUTATION.
               WIND SPEED AT AREA SOURCE HEIGHT(METERS)
               UPWIND DISTANCE FROM RRE.SRE TO RB
               UPWIND DISTANCE FROM RRE.SRE TO SB
               UPWIND DISTANCE(KM) TO LAST POINT WHERE INTEGRATION  WAS
                CALCULATED.
            GLOSSARY   OF   TERMS   FOR   JMHPOL*»*

    JMHPOL CALLED BY JMHARE INTERPOLATES THE TABLES GENERATED BY JMH5MU(R)
          GIVEN UPWIND DISTANCE.
              FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
               IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
               VALUE INTERPOLATED FROM TABLE.
               DUMMY TO CALCULATE DISTANCE,  XL.
               HEIGHT INDEX, BETWEEN 1 AND 3-
               INDEX TO OBTAIN CIN FOR DISTANCE  LESS THAN X.
               INDEX TO OBTAIN CIN FOR DISTANCE  GREATER THAN X.
               CURRENT RECEPTOR NUMBER
               UPWIND DISTANCE(KM),
               DISTANCE LESS THAN X.
               DISTANCE GREATER THAN X.
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
c
c
c
c
c
c
R
RB
RC
RDUM
RLOC
RM
RMINI
RMR
RRE
S
SB
SC
SDUM
SLOC
SM
SMINI
SMS
SRE
THT
UPL
XD1
XD2
XL



« « »
JMHPOL
FOR A G


CONC
D
IH
J
K
KREC
X
XL
XU
C     *»»GLOSSARY   OF   TERMS   FOR   JMHPT U(R)  *  *  *

C   JMHPTU(R) DETERMINES CONCENTRATIONS FROM ALL POINT SOURCES AT ALL
C   RECEPTORS FOR A GIVEN HOUR.
C             FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
C              IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
C     BUOY     PARTIAL CALCULATION OF BRIGGS F
C     D        STACK TOP INSIDE DIAMETER
C     DBTRCU   SUBROUTINE THAT DETERMINES RELATIVE CONCENTRATION AT  A  RECEPTOR
C              FROM A POINT SOURCE AT A GIVEN UPWIND AND CROSSWIND DISTANCE.
C                   (DBTRCR FOR RURAL VERSIONS)
C     DELHF    STABLE MOMENTUM PLUME RISE
C     DELT     STACK GAS TEMPERATURE MINUS AMBIENT AIR TEMPERATURE
C     DHA      UNSTABLE MOMENTUM PLUME RISE
C     DISTF    DISTANCE OF FINAL RISE(KILOMETERS)
C     DTHTZ    D THETA/DZ, CHANGE OF TEMP. WITH  HEIGHT
C     DTMB     DELTA-T FOR BUOYANCY-MOMENTUM DELTA-H CROSSOVER
C     DUM      INTERMEDIATE STORAGE
C     F        BRIGGS BUOYANCY FLUX PARAMETER
                                       15

-------
C     FP       ARRAY OF F'S FOR EACH SOURCE
C     HF       FINAL EFFECTIVE HEIGHT (METERS).
C     HPR      ARRAY OF H-PRIMES FOR EACH SOURCE.
C     HPRM     H-PRIME, CORRECTED STACK HEIGHT FOR STACK DOWNWASH
C     HX       PLUME HEIGHT FOR DISTANCE X
C     IOPT(8)  CONTROL OPTION, SOURCE CONTRIBUTIONS TO DISK? 0 = NO,  1  = YES.
C     IOPT(13) CONTROL OPTION, READ HOURLY EMISSIONS?        0 = NO,  1  = YES.
C     J        POINT SOURCE INDEX.
C     K        RECEPTOR INDEX.
C     KSIG     SIGNIFICANT POINT SOURCE INDEX.
C     PL       EXPONENT FOR INCREASE OF WIND SPEED WITH HEIGHT.
C     PROD     CONCENTRATION CONTRIBUTION FROM JTH SOURCE TO KTH RECEPTOR
C     RQ       EAST  COORDINATE OF SOURCE.
C     S        STABILITY PARAMETER
C     SCALE    VALUE TO SCALE EXIT VELOCITY ACCORDING TO EMISSIONS
C     SQ       NORTH COORDINATE OF SOURCE.
C     SY       SIGMA Y, STANDARD DEVIATION OF CONCENTRATION IN THE
C               CROSSWIND DIRECTION(METERS)
C     SZ       SIGMA Z, STANDARD DEVIATION OF CONCENTRATION IN THE
C               VERTICAL DIRECTION(METERS)
C     THT      TEMPORARY PHYSICAL STACK HEIGHT
C     TS       STACK GAS TEMPERATURE(K)
C     TT       TRAVEL TIME FROM SOURCE TO RECEPTOR(KM-SEC/M)
C     UPH      ARRAY OF WIND SPEEDS AT STACK TOP FOP EACH POINT SOURCE.
C     UPL      WIND SPEED AT STACK HEIGHT(METERS/SECOND)
C     VS       STACK GAS VELOCITY(METERS/SECOND)
C     X        UPWIND DISTANCE FROM RECEPTOR TO SOURCE (KILOMETERS).
C     XDUM     SOURCE EAST  COORD. MINUS RECEPTOR EAST  COORD.
C     Y        CROSSWIND DISTANCE FROM RECEPTOR TO SOURCE (KILOMETERS).
C     YDUM     SOURCE NORTH COORD. MINUS RECEPTOR NORTH COORD.
      * * *
            GLOSSARY   OF   TERMS   FOR   DBTRCU(R)***
C  DBTRCU(R) DETERMINES RELATIVE CONCENTRATION AT A RECEPTOR FROM A POINT
C   SOURCE AT A GIVEN UPWIND AND CROSSWIND DISTANCE.
C             FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
C              IN THIS GLOSSARY, SEE GLOSSARY FOR RAM.
C     AN       THE NUMBER OF SUMMATIONS CALCULATED.
C     BRSYSZ   CALLED TO OBTAIN SIGMA-Y AND SIGMA-Z(PGSYSZ IN RURAL VERSION)
C     H        EFFECTIVE POINT SOURCE HEIGHT(METERS)
C     HL       HEIGHT OF THE MIXING DEPTH(METERS)
C     IWRI     OUTPUT UNIT (UNIT 6 ON THE UNIVAC 1110).
C     RC       RELATIVE CONCENTRATION, CHI/Q.
C     SY       SIGMA Y, STANDARD DEVIATION OF CONCENTRATION IN THE
C               CROSSWIND DIRECTION(METERS)
C     SZ       SIGMA Z, STANDARD DEVIATION OF CONCENTRATION IN THE
C               VERTICAL DIRECTION(METERS)
C     THL      TWO TIMES THE MIXING HEIGHT
C     U        WIND SPEED FOR THIS HOUR(METERSXSECOND)
C     X        UPWIND DISTANCE FROM RECEPTOR TO SOURCE (KILOMETERS).
C     Y        CROSSWIND DISTANCE FROM RECEPTOR TO SOURCE(KILOMETERS).
C     YD       CROSSWIND DISTANCE IN METERS.
C     Z        RECEPTOR HEIGHT(METERS)
C              THE FOLLOWING ARE ALL DUMMY VARIABLES USED IN DBTRCU(R) FOR
C              TEMPORARY STORAGE: A1,A2,A3,A4,A5,A6,A7,C1,C2,C3,CH,C5,C6,C7,C8,
C              C9,CA,CB,CC,CD,CE,CF,DUM,SUM,T,AND TEMP.


c     ***r, LOSSARY   OF   TERMS   FOR   BRSYSZ***

C  BRSYSZ DETERMINES URBAN SIGMA-Y AND SIGMA-Z FOR THE SOURCE-RECEPTOR
                                       16

-------
c
c
c
c
c
c
c
c
DISTANCE, X.
  KST      STABILITY CLASS FOR THIS HOUR.
  SY       SIGMA Y, STANDARD DEVIATION OF CONCENTRATION IN THE
            CROSSWIND DIRECTION(METERS)
  SZ       SIGMA Z, STANDARD DEVIATION OF CONCENTRATION IN THE
            VERTICAL DIRECTION(METERS)
  X        SOURCE-RECEPTOR DISTANCE IN METERS.
  XK       SOURCE-RECEPTOR DISTANCE IN KILOMETERS.
      ***GLOSSARY   OF   TERMS
                                            FOR
PGSYSZ***
C  PGSYSZ DETERMINES RURAL SIGMA-Y AND SIGMA-Z FOR THE SOURCE-RECEPTOR
C   DISTANCE, X.
C     KST      STABILITY CLASS FOR THIS HOUR.
C     SY       SIGMA Y, STANDARD DEVIATION OF CONCENTRATION IN THE
C               CROSSWIND DIRECTION(METERS)
C     SZ       SIGMA Z, STANDARD DEVIATION OF CONCENTRATION IN THE
C               VERTICAL DIRECTION(METERS)
C     X        SOURCE-RECEPTOR DISTANCE (KILOMETERS)
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
c
c
c
  ***GLOSSARY   OF   TERMS   FOR   JMHOUR***

     SUBROUTINE JMHOUR WRITES OUTPUT FOR EACH HOUR.
          FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
           IN THIS GLOSSARY,  SEE GLOSSARY FOR RAM.
  C1        RECEPTOR EAST COORD.(USER UNITS)
  C2        RECEPTOR NORTH COORD.(USER UNITS)
  CMAX     TEMPORARY STORAGE  OF MAXIMUM CONCENTRATION.
  GRANDS   TOTAL CONCENTRATION FOR THIS RECEPTOR(G/M**3)
  GRANDT   TOTAL CONCENTRATION FOR THIS RECEPTOR, USED  FOR RANKING
            CONCENTRATIONS(G/M**3)
  IOPT(1)   CONTROL OPTION,    POINT SOURCE INPUT?        0 =  NO,  1 =  YES.
  IOPT(2)   CONTROL OPTION,    AREA  SOURCE INPUT?        0 =  NO,  1 =  YES.
  IOPT(9)   CONTROL OPTION, HOURLY SUMMARIES  ONLY?        0 =  NO,  1 =  YES.
  IRANK    CONCENTRATION RANK OF RECEPTOR.
  K        RECEPTOR INDEX.
  LMAX     RECEPTOR NUMBER OF TEMPORARY MAXIMUM.
  * * *
        GLOSSARY   OF   TERMS   FOR   JMHFIN
                                                                «  »  *
     SUBROUTINE JMHFIN WRITES OUTPUT AVERAGED FOR NAVG.
          FOR VARIABLES APPEARING IN THE PROGRAM BUT NOT LISTED
           IN THIS GLOSSARY,  SEE GLOSSARY FOR RAM.
  AWU      CONCENTRATION FOR  THIS RECEPTOR FROM AREA SOURCE(MICRO-G/M**3)
  BPHM     ARRAY CONTAINING MODIFIED BREAK POINT HEIGHTS
  C1        EAST COORD. OF RECEPTOR(USER UNITS)
  C2        NORTH COORD. OF RECEPTOR(USER UNITS)
  CMAX     TEMPORARY STORAGE  OF MAXIMUM CONCENTRATION.
  GRANDS   TOTAL CONCENTRATION FOR THIS RECEPTOR(G/M»*3)
  GRANDT   TOTAL CONCENTRATION FOR THIS RECEPTOR, USED  FOR RANKING
            CONCENTRATIONS(G/M«»3)
  GWU      TOTAL CONC. FOR THIS RECEPTOR(MICROGRAMS/M«*3)
  HARE     ARRAY OF MODIFIED  AREA-HTS. FOR WHICH CONC.  TABLES
  IOPT(1)   CONTROL OPTION,    POINT SOURCE INPUT?        0 =
  IOPT(2)   CONTROL OPTION,    AREA  SOURCE INPUT?        0 =
  IOPT(10)  CONTROL OPTION, PUNCH CARDS FOR CONTOURS?     0 =
  IPOLT    ALPHA ARRAY: 'S02' OR 'PART1.
  IPOLU    ALPHA DESIGNATOR FOR. POLLUTANT USED: 'S02' OR 'PART'.
  IRANK    RANK OF CONCENTRATION FOR THIS RECEPTOR.
          ARE GENERATED
         NO,  1 = YES.
         NO,
         NO,
= YES..
= YES.-
                                       17

-------
C     LMAX     RECEPTOR NUMBER OF TEMPORARY MAXIMUM.
C     PWU      CONCENTRATION FOR THIS RECEPTOR FROM POINT SOURCES(MICRO-G/M»»3)
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
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
      •••GLOSSARY  OF  TERMS  FOR  JMHFD«««
        SUBROUTINE JMHFD WRITES OUTPUT AVERAGED FOR NAVG
        AND ACCUMULATES SUMS FOR ANNUAL AVERAGES,  HIGHEST DAY  AND HIGHEST
        HOUR TABLES. FOR VARIABLES APPEARING IN THE PROGRAM BUT  NOT  LISTED
        HERE SEE GLOSSARY FOR RAM.
  ANNSUM   AN ARRAY CONTAINING CUMULATIVE DAILY CONC.  SUM AT EACH RECEPTOR
  BPHM     ARRAY CONTAINING MODIFIED BREAK POINT HEIGHTS
  C1       EAST COORD. OF RECEPTOR(USER UNITS)
  C2       NORTH COORD. OF RECEPTOR(USER UNITS)
  CMAX     TEMPORARY STORAGE OF MAX. CONCENTRATIONS
  DMAX     AN ARRAY CONTAINING THE 5 HIGHEST DAILY CONCENTRATIONS
            AND THE DAY OF OCCURRENCE FOR EACH  RECEPTOR
  GRANDS   TOTAL CONCENTRATION FOR THIS RECEPTOR(G/M«»3)
  GRANDT   TOTAL CONCENTRATION FOR THIS RECEPTOR,  USED FOR RANKING
  HARE     ARRAY OF MODIFIED AREA HTS. FOR WHICH CONC. TABLES  ARE GENERATED
  HMAX     AN ARRAY CONTAINING THE 5 HIGHEST HOURLY CONCENTRATIONS ,  DATE'
            AND HOUR OF OCCURRENCE FOR EACH RECEPTOR
  IJ       DUMMY VARIABLE USED IN SUBSCRIPTING  OF  DMAX AND HMAX  AKRAYS
  IJP1     DUMMY VARIABLE USED IN SUBSCRIPTING  OF  DMAX AND HMAX
  IPOLT    ALPHA ARRAY: 'S021 OR 'PART'.
  IPOLU    ALPHA DESIGNATOR FOR POLLUTANT USED: 'S02'  OR 'PART'.
  IRANK    RANK OF CONCENTRATION FOR THIS RECEPTOR.
  LMAX     MARKS THE RECEPTOR NO. OF THE HIGHEST CONC. IN THAT SEARCH
  SUM      NAMED COMMON AREA CONTAINING ANNSUM,HMAX AND DMAX
  •••GLOSSARY   OF   TERMS
FOR
C U M F * * »
CUMF PRINTS AND PLOTS CUMULATIVE FREQUENCY DISTRIBUTIONS OF 21-HOUR
CONCENTRATIONS.
  ALOG     LIBRARY FUNCTION TO OBTAIN LOGS TO BASE 10.
  AMIN     CANDIDATE MINIMUM
  CHI      ARRAY OF CONCENTRATION PLOTTING POSITIONS.
  CJI      CONCENTRATION ARRAY (DAYS BY STATIONS)
  CON      LIST OF DAILY CONCENTRATIONS IN MICROGRAMS PER CUBIC
            METER  FOR ONE STATION.
  CONC     ARRAY OF CONCENTRATIONS FOR PLOTTING,
  DAY1     DAY NUMBER ON MODEL OUTPUT DISK RECORDS
  F        LIST OF FREQUENCIES TO TEST FOR PLOTTING POINTS.
  FA       FREQUENCY POSITION FOR EACH DAY.
  FQ       ARRAY OF PROBABILITY PLOTTING POSITIONS.
  FREQ     FREQUENCIES CORRESPONDING TO EACH CONCENTRATION.
  GRAPH    SUBROUTINE TO DRAW THE BASE CHART FOR  LOG-PROBABILITY PLOTS.
  HD1.HD2  ALPHA CHARACTERS FOR PLOTTING.
  HD3.HDY  ALPHA CHARACTERS FOR PLOTTING
  IMAX     NUMBER OF STATIONS FOR WHICH CONCENTRATIONS WERE
            TRANSMITTED ON DISK.
  INT1     SYMBOL CODE, '4' = 'X'.
  IRD      READ INPUT UNIT (5)
  IWRI     WRITE OUTPUT UNIT (6)
  JDAY     JULIAN DAY NUMBER OF THIS DISK RECORD.
  JDYR     NO. OF DAYS IN TriE YEAR.
  JM1      ONE LESS THAN THE NUMBER OF DAYS IN A  YEAR.
  KNTR     COUNT OF PLOTTING POSITIONS.
  NBEG     FIRST LINE WITH ? ITEMS PER LINE.
  ND       LIST OF DAY NUMBERS.
                                       18

-------
C     NEND     NUMBER OF LINES WITH 8 ITEMS PER LINE.
C     NLOG     THE NUMBER OF LOG CYCLES ON THE CONCENTRATION SCALE.
C     NPLOT    PLOT NUMBER
C     PROB     FUNCTION TO CONVERT FROM FREQUENCY  TO PROBABILITY
                PLOTTING POSITION.
C     R        EAST  COORDINATE OF STATION.
C     S        NORTH COORDINATE OF STATION.
C     SCALE    CONVERSION FROM GIVEN UNITS TO MICROGRAMS  PER CUBIC  METER.
C     STA      STATION NUMBER.
C     SUM      CUMULATIVE SUM OF CONCENTRATIONS TO DETERMINE ANNUAL  MEAN
C     TEST     HIGHEST CONCENTRATION VALUE THAT CAN BE  PLOTTED.
C     TITLE    80 CHARACTER TITLE.
C     TLN1     TITLE, TRANSFERRED FROM RAMF (SAME  AS LINED
C     TLN2     TITLE, TRANSFERRED FROM RAMF (SAME  AS LINE2)
C     TLN3     TITLE, TRANSFERRED FROM RAMF (SAME  AS LINES)
C     XE       EAST  COORDINATES OF STATIONS
C     XDIM     THE HORIZONTAL DIMENSION OF THE PLOT IN  INCHES.
C     YBASE    THE MINIMUM VALUE ON THE CONCENTRATION SCALE.
C     YDIM     THE VERTICAL DIMENSION OF THE PLOT  IN INCHES.
C     YN       NORTH COORDINATES OF STATIONS
C   THE FOLLOWING ARE DUMMY VARIABLES USED IN CUMF: A,ADUM,B,D,DENOM,1,J,K,
          KBEG,L,LF,LN,M,N,N2,N3,N4,N5,N6,N7,N8,NA
C   THE FOLLOWING ARE PLOTTER SUBROUTINES: GRAPH,LINE,NUMBER,PLOT,PLOTS,SYMBOL
                                       19

-------
                 3-
                      RAMQ - INPUT FORMATS AND EXAMPLE RUNSTEAMS
RAMQDOC
C  RAMQ PREPARES EMISSION INVENTORY INFORMATION FOR INPUT INTO RAM,  CONSTRUCTS
C   AN AREA MAP ARRAY, AND RANKS POINT AND AREA SOURCES ACCORDING TO EXPECTED
C   IMPACT. OUTPUT FROM RAMQ IS REQUIRED AS INPUT TO ALL THE RAM VERSIONS.

**»»*  CARD INPUT TO RAMQ ****»

CARD 1 (13A6.A2)   ITITLE     80 CHARACTER TITLE
 EXAMPLE:
RUN OF RAMQ,   ED KRENSHAW, REGION XV, EPA, TEST CITY DATA (1  JAN 78)


CARD 2 (FREE FORMAT)      NDIMP,NDIMA,IPOL,MOD
  NDIMP  ESTIMATED NUMBER OF POINT SOURCES. NDIMP MUST BE SET TO ZERO IF RUN IS
        JUST FOR AREA SOURCES(NO POINT SOURCES).
  NDIMA  ESTIMATED NUMBER OF AREA  SOURCES. NDIMA MUST BE SET TO ZERO IF RUN IS
        JUST FOR POINT SOURCES(NO AREA SOURCES).
  IPOL   POLLUTANT INDICATOR: USE 3 FOR S02 OR 4 FOR SUSPENDED PARTICULATE
  MOD    DISPERSION PARAMETER INDICATOR: USE 1 FOR RURAL, 2 FOR URBAN
 EXAMPLE:
 12, 15,  3, 2


CARD 3 (FREE FORMAT)    UNITS,CONONE
  UNITS  NUMBER OF USER UNITS PER SMALLEST AREA SOURCE SQUARE SIDE LENGTH.
  CONONE MULTIPLIER CONSTANT TO CONVERT LENGTH IN USER UNITS TO KILOMETERS.
 EXAMPLE:
2.0, 1.609344


CARD TYPE 4  (2A6,8F8.2)  (PNAME(I,NPT),1=1,2),(SOURCE(I,NPT),1=1,8)
  ONE CARD FOR EACH POINT SOURCE
(PNAME(I,NPT),1=1,2)  UP TO 12 ALPHANUMERIC CHARACTERS FOR SOURCE IDENTIFICATION
  SOURCE(I.NPT)  EAST  COORDINATE OF POINT SOURCE (USER UNITS)
              "  NORTH COORDINATE OF POINT SOURCE (USER UNITS)
                 SULFUR DIOXIDE EMISSION RATE (G/SEC)
                 PARTICULATE EMISSION RATE (G/SEC)
                 PHYSICAL STACK HEIGHT  (METERS)
                 STACK GAS TEMPERATURE  (DEGREES KELVIN)
                 STACK INSIDE TOP DIAMETER (METERS)
                 STACK GAS EXIT VELOCITY (METERS/SEC)
SOURCE(2,NPT)
SOURCE(3,NPT)
SOURCE(4,NPT)
SOURCE(5,NPT)
SOURCE(6,NPT)
SOURCE(7,NPT)
SOURCE(8,NPT)
NOTE: IF NDIMP=0  NO POINT CARDS ARE READ.
 EXAMPLE:
PLANT 1
          579.50  4406.75 232.365 13-335  82.9
513.1   3.5
13.7
CONTROL CARD TO SIGNAL END OF POINT SOURCE CARDS.
       HAS 'END POINTS' IN CARD COLUMNS 1 TO 10.
 EXAMPLE:
END POINTS

CARD TYPE 5 ( FREE FORMAT)
                                       20

-------
 ONE CARD FOR EACH AREA SOURCE
  ASORC(1,NAS)   EAST COORD. OF SW CORNER OF AREA SOURCE (USER UNITS)
  ASORC(2,NAS)   NORTH COORD OF SW CORNER OF AREA SOURCE (USER UNITS)
                 SIDE LENGTH OF AREA SOURCE (USER UNITS)
                 SULFUR DIOXIDE EMISSION RATE FOR ENTIRE AREA (G/SEC)
                 PARTICULATE    EMISSION RATE FOR ENTIRE AREA (G/SEC)
                 AREA SOURCE HEIGHT (METERS)
(NOTE THAT ASORC(5,NAS) - SIDE LENGTH IS READ OUT OF ORDER TO CONFORM  WITH  THE
EXISTING ORDER OF IPP EMISSIONS DATA. IF NDIMA =0 NO AREA CARDS ARE READ.)
 EXAMPLE:
570., 4400., 4.,   1.25, 0.0, 10.
ASORC(5,NAS)
ASORC(3,NAS)
ASORC(4,NAS)
ASORC(6,NAS)
»»»««DISK OUTPUT FROM RAMQ*****
     THE OUTPUT EMISSIONS DATA IS WRITTEN IN UNFORMATTED FORTRAN
     RECORDS TO UNIT 9 AND IS REQUIRED INPUT TO ALL RAM VERSIONS.
*»*«»EXAMPLE RUN STREAM*****

0RUN.D/R JOBNAME/15,ACCNT-NO/USERID,PROJ-ID
0PASSWD PASSWORD
0ASG.CP RAMQOUT.
@USE 9,RAMQOUT
@XQT A999*UNAMAP.RAMQ
RUN OF RAMQ,   ED KRENSHAW, REGION XV,  EPA,
 12, 15, 3, 2
 2.0, 1.609344
PLANT 1     579.50


                    4402.25
                    4403.25
                    4400.89
                    4407.50
                    4401.35
                    4400.70
                    4412.00 299.5
                    4400.90  16.74
                    4398.00 226.2
                                         ,1,10

                                            .  OUTPUT FILE FROM RAMQ

                                            .  PROGRAM FILE
                                          TEST CITY  DATA (1  JAN 78)
PLAN1
PLAN!
PLAN!
PLAN!
PLAN1
PLAN1
PLAN1
PLAN!
PLAN!
PLAN!
PLAN!
END I
570.
574.
576.
578.
578.
574.
570.
574.
578.
580.
582.
580.
582.
580.
582.
' 2
' 3
1 4
1 5
1 6
1 7
1 8
1 9
1 10
r 11
n 12
'OINTS
4400.
4400.
4400.
4400.
4402.
4402.
4404.
4406.
4406.
4406.
4406.
4404.
4404.
4402.
4402.
575
571
571
579
567
564
577
576
580
583
574

4.
2.
2.
2.
2.
4.
4.
2.
2.
2.
2.
2.
2.
2.
2.
25
25
75
50
14
70
45
75
10
0
0
















                  4406.75 232.365 13-335
                  4405.25 150,465 57.005
                  4407.00  19.005
                           81.060
                           26.145
                            2.56
                           36.43
                           33.64
                           38.8
82.9
76.2
3.255
:8.350
5.145
0.
0.
0.
0.
0.
0.
0.
25.9
40.8
18.3
26.5
48.8
26.5
6.
93.
18.1
93.6
513.1
464.3
477.6
499.8
533.2
505.
464.
428.
654.
405.
506.
483.
3-5
3-2
1.0
2.8
0.6
1.04
3-05
1.68
.79
4.88
1.37
4.88
13.7
12.5
15.8
17.6
14.7
3.81
18.6
5.02
24.89
12.59
4.23
12.59
                   1.25, 0.0, 10.
                   3.05, 0.0, 10.
                   6.25, 0.0, 12.
                   8.85, 0.0, 15.
                   3.15, 0.0, 10.
                   0.00, 0.0,  0.
                   4.25, 0.0, 15.
                   2.60, 0.0, 10.
                   3.10, 0.0, 12.
                   2.76, 0.0, 20.
                    .83, 0.0, 20.
                   1.66, 0.0, 20.
                   1.90, 0.0, 20.
                    .51, 0.0, 20.
                   1.48, 0.0, 20.

0**********************tt*****«*****«***********«*«**X*******«***»*«
C
C  THE PRECEEDING RUN STREAM HAD A RUN TIME OF 5.11  SECONDS  ON  THE
C  UNIVAC 1110 AND REQUIRED 15-K WORDS OF MEMORY(APPROXIMATELY  5,534 WORDS
C  FOR INSTRUCTIONS AND 8,523 WORDS OF DATA)
                                       21

-------
                                                        Z«-l                                  1*1 (VJ    M        Kl        •»     •»
                                                        3     «•»
                                                                                         •**
                                                        _J     I                     UJ 1*1
                                                        <     I-                     ooo-     U                     lul w         •   •••••••••••

                                                        uj     3                     I- Ol        r-«—
                                                        <     c/»

                                                        O     <                        K

                                                               x                     we         ••••••••••••

                                                        U                            f- M
                                                        OC     K                     -     UJ
   at     *                                             in     a.                     MM
   O«h-                  M                  -I     CE                     t- t-        (NJOu-vOOO-OOO-O-OMOOKl
   ae     «     <                  uj                  x        oor>-tvj~»-r-oj~r<\io»-o
   u.     *     o                       uj              z
   )-«>-                  3            »-           K              0<^
   3*1-                  O            OOOCO              MU
   O*i-i                  M            N-UJ.J              KUitn
   t"*     *     W                                      O>  *—  l^              ^t     (/5 Z        "^ *—  4n ^* ^  CJ O C3  CT^ CJ C3 C3
   Z     *                         ^C            Z        M  k^              jc     ^c O        fo C2  tvj CO it~  C3 C5 ^D  Ci C3 *—* C3
   !-(*(—                  UJ            O**Z                  OCU>M         »4««.   ««••«.«
   ac*uj                  <            t_oo              U.HW)        T-iArsj
          «f-                                acMOcoo              ZOCM
   LU     *                         in            UJ    Z  UJ  -O              tH     < I
   _l     *       »                 1-            >3t/>OO                     D. UJ
   0.     «     <                                          3  T-              UJ
   E.     *     0.                                 »    H     ru              u
   <     «     u/                  o            O30E*              acrs
   x*                         z            co.ujro              3ucn        •oN-r- C3 f—  v^ ^ *^  do tf\ t^f (\J
          «>                                ce    i-i                     v>     v> o         >••••••!••*•
          *x                  M                  ^^t/>                         *XIH        iNJoo^v^^rsj^o K>  co o* ^> ^
          4(               (/>       UJ            £v)0c                  H*U>lAf^OO(\JlO K>  Ki O^ T" (M
          *ZKw            OKuj                  z^iorvjr-                         ruM
*  «  *  *     O        Z       QC            OCHI-UJ              M     (M 1-1
                1-1        UJ       3            u.    z  Ul  QC              OOK
                u>        M       o                  3C<              a.     w uj
                UJ        U       CO            Z        O
                Qc        *•*                     OQf^UJ                                  lAi/NOmmChOirvOO O^O
                          1*.       I—            I-I    UJ  "H  OC Kl
                  *       U.       Z            t-    V>  X.  UJ                     10
                •»        UJ       M            <3XII                  K QC ^
                <        O       O            K        O  t- -I                  ac O M    O O  O O OO O O  O «- OO-
                x        w       o.            oe    o  •*     o                  O O I-
                Irt                                OO-4-t-O.                  ZUM
                Z        Z       (M            U.OK)            _J    O   «  O Z                  K OC UJ
                O                  K-            <     •  «-  UJ i-l                  MOM
                uj        (0       o            acruK-M                  < o 3
                  •        MO.           2           ~i
                a        M       x           iu           9
                K        3       U           IT           U (M
                <                                         UJ —I O
                oc        Z       Z                 uj  ac < M
                           33                 ac  « u
                u.        ac       oc                 «        ac
                O                                         uj v) O
                           (»       M                 Ul  OC IM tk
                ZKM                 oe  UJ                                                                   O«-OJ

                acoci-                 x  >- 1-1 w                  o

                                                            I   I  Z                  3           ZZZZZZZZZZZZ
                                                         I        3                  O           <«<«<««<<<«<
                                                            uoac                  M           _)jj™i_j_)-ijj_iJ_l
                                                        viz*                                  0.0,0.0.0,0.0.0.0.0,0,0.
                                                        (-  O f «0
                                                        M  Z Z M                               I
                                                        z  o o z
                                                        3  W W H*
                                                                  22

-------
Z •">
< u
O UJ
•t -» Ki  r»i -^
ooooo
 I   I  I  I   I
                                      ooooooooo
                                       I   I   I  I  I   I   I   I   I
                                                                                                                              z
                                                                                                                              3
> r- to    OOOOOOOOOOOOOOO
HI X OC      ...............
KvCUl    CD  O OJ in O    inOPJOOOOOO


u. X C
          Xi-<    OOOOOOOOOOOOOOO
      UJ  t-  Z     •••••.•••••••••
      o  ID  3    •*rwt\i(\j<\i«»'*rvi<\j<\icjrvjf\i<\irvj

      to  uj  oc
          _i  UI
             to
             3
          (/>  «•»
          X
          o
          H        OOOOOOOOOOOOOOO
      t-  I/I  f*    OOOOOOOOOOOOOOO
Z    Q:  CO  O    OOOOOOOOOOOOOOO
O    «  H»  Ul    OOOOOOOOOOOOOOO
M    O.  r  00     «  •		
K        Ul*«    OOOOOOOOOOOOOOO
«           IM
c           «


u.        to  •*    ooooo    ooooocooo
Z        Z  M     I   I   I   I   I     I   I   I   I   I  I  I   I   I




at        MW     >*•••••••••••••

O        ui


<
Ul                 OOOOOOOOOOOOOOO
ac    x  a  **     ««•.«.....«.«.  4

      QC  O  r-    OOOOOOOOOOOOOOO


             a

             ae
          au    ooooooooooooooo
      H-ocin     •••*••••••••»••




      Ul
      w
      ae
      3           i
      o
                                                                                                                       ^    o
                                                                                                                       o    o
                                                                                                                       o     •
                                                                                                                              (I
                                                                                                                             X
                                                                                                                       O N- C/l
                                                                                                                       o
                                                                                                                        •    o
                                                                                                                       >»    o
                                                                                                                       JO     t
                                                                                                                       (NJ W O
                                                                                                                             o
                                                                                          *"»                           CO QC l-l
                                                                                          <                           M at x.
                                                                                          1-1                              < V)
                                                                                          k(^                           (/)
                                                                                                                       K Ul O
                                                                                          ^     »— K>iAO     f^     MOO
                                                                                          <•-«-«-              z at  •
                                                                                          OC                           3 3 (M
                                                                                          Q£     oru^o     *o        oo^
                                                                                          <     «-«-»—              -J irt rvi
                                                                              O.    O*  O ^\ ^    U"v
                                                                              <
                                                                              s:
                                                                                    O  -O -O K1    -»
                                                                              Ul
                                                                              u
                                                                                                                       z «
                                                                                                                       a: uj II
                                                                                                                       iU Ct X
                                                                                                                          X
                                                                                                                       Z K O
                                                                                                                       t-t    O
                                                                                          O
                                                                                          (/>     N.Nuj(Nj
                                                                                          «                           IH N
                                                                                          <                           ac »<
                                                                                                                       O V> II
                                                                                                                       X X K
                                                                   23

-------
1-1    UI  Z
ui    >  o
X    MM
      H-  t-    Or-OOOOOOOOOOOOOOOOOO
O    <  O    O-JOOOOOOOOOOOOOOOOOOO
H    «J  <    OfVJNOOOOOOOOOOOOaoOOO
      aoe      .••.<••.«....•••<...
DC        V)
O        X
O        IS
O     <  w
<     UJ  «n
       a:  z
Z     <  O    Oinin^OOOOOOOCjOaOOOOOO
O        M    OO>T«-OOOOOOOOOOOOOOOO
>1     -J  Irt      «««.«•••••••.«•«•«..
K     <   O
M     O Z
C     Cl. O    OOOoOOOOOOf*1OOOOOr*-«aOO    «-

       _JW>      ....................      .
       «t c/s        QO    rg     LA       «~  *O                 Orsjin       f\j
r\iHM        KI*XU"V       uoro                 mKifM       *o
O     O C                                                     r- fy    m       r-
(/>     H- UJ                                                                        r-
          U>     I   I   I   I  I   I   I   I  I   I   I   I  I   I   I   I  I   I   I   I
          M
          ut    OOr--Of— o*"'O'r--Or-'Ot—  -O«"">Or->O
          X           *-^»f\*r\jKiroooo^-
                                              24

-------
      s                                                         s
      S                                                         o
      «> ••»                                                      «>
      r»»
UJ      «                                                 «
u      «                                                 >u
at      •    ^rOT-r->OM«-OOOO»>             «J            MKl«»-*sr>»i*^.*<»
a    x >.    T-in»roo«oc09-mr-hoo>             oe            oooooooooo
O    < vt     •••  ......  •••             3    X <-.     I   I  I  I  I   I   I  I  I  I
V)    KK    W«-OOO-O>»-U-v>rr-M(Mr-             O    H>W    rooo>r-in    Uitu    »«-«
M    <_> o                                                 ui«j«:     ••••••••••
O      a                                                 oe«*.(M»-a-o-o>oooo-ou>in
a.      u                                                 <    a VD
use
M    
-------
                          RflMQ PROGRAM LISTING
C*»»»  PROGRAM R A n Q  «»»«•»»»«««  78124 VERSION
C   THIS IS THE EMISSIONS PREPROCESSOR  USED IN CONJUNCTION WITH RAM.
C   RAMQ IS RESPONSIBLE FOR MAKING THE NECESSARY DATA CONVERSIONS ON
C   THE RAW EMISSIONS DATA IN ORDER TO ESTABLISH A STANDARD DATA BANK
C   WHICH WILL BE ACCEPTABLE TO RAM.
C   IN ORDER TO MAKE THE PREPROCESSOR FLEXIBLE ENOUGH TO ACCEPT
C   SOURCE INPUT IN ANY COORDINATE SYSTEM AND YET COMPLY WITH THE
C   PROGRAM RESTRICTIONS, ALL COORDINATES ARE CONVERTED TO AN
C   INTERNAL GRID SYSTEM WHICH DEPENDS ON A USER SPECIFIED GRID
C   SQUARE SIZE.  MOST CALCULATIONS ARE PERFORMED USING THIS
C   INTERNAL COORDINATE SYSTEM .  A CONVERSION FACTOR FROM USER
C   UNITS TO KILOMETERS IS APPLIED WHEN NECESSARY.
C   RAMQ USES 2 SUBROUTINES:
C     BLOCK -BLOCK DATA FOR URBAN SIGMAS
C     BLOCKR -BLOCK DATA FOR RURAL SIGMAS
      COMMON /COEFFU/ PXCOF(6,9),PXEXP(6,9),PXUCOF(6,9),PXUEXP(6,9),AXCO
     1F(6,9),AXEXP(6,9),HC1(10)
      COMMON /COEFFR/ PXCOR(6,9),PXEXR(6,9),PXUCOR(6,9),PXUEXR(6,9),AXCO
     1R(6,9),AXEXR(6,9)
      DIMENSION IA(25,25), SOURCE(9,250), ASORC(6,100), TITLE(2), MPS(25
     1), MAS(10), TABLE(4,21), SIGNIF(250), ASVAL(IOO), PSVAL(250), ITIT
     2LE(14), HFIN(250),  PNAME(2,250), MODEL(2)
      DATA MAXP /250/ ,MAXA /100/ ,IRDIM /25/ ,ISDIM /25/
C***MAXP EQUALS SECOND DIMENSION OF SOURCE.
C***MAXA EQUALS SECOND DIMENSION OF ASORC.
C***IRDIM AND ISDIM EQUAL THE TWO DIMENSIONS OF IA.
      DATA TITLE /'S02 '.'PART'/ ,IRSIZE,ISSIZE /1,1/
      DATA MODEL /'RURAL  '.'URBAN '/
C**»
c**»
C**»
C***SOURCE(9, PT SOURCES)
C**«
c*»*
c*»*
c**»
C***
c**»
c*»*
C***
C***PNAME - 12 CHARACTER PLANT IDENTIFICATION
C***          AREA SOURCE INFORMATION
C***ASOFiC(6, AREA SOURCES)  1=EAST CO-ORD(USER UNITS)
C***                        2=NORTH CO-ORD(USER UNITS)
C**»                        3 = S02 EMISSION RATE(G/SEC)
C**»                        4=PART EMISSION RATE(G/SEC)
C**»                        5=SIDE LENGTtKUSER UNITS)
C***                        6=AREA SOURCE HEIGHT(M)
C***INITIALIZATIONS
C«**THE UNIVAC 1110 AUTOMATICALLY ZEROS ALL VARIABLES. IF THE USER'S
C***COMPUTER SYSTEM DOES NOT ASSUME ALL VARIABLES ARE  INITIALLY ZERO,
C***THE FOLLOWING VARIABLES MUST BE ZEROED: IA.SOURCE,ASORC,MPS,MAS,RMAX
C**»,SMAX,NPT,NAS, AND TABLE.
POINT SOURCE INFORMATION
                1=EAST CO-ORD(USER UNITS)
                2=NORTH CO-ORD(USER UNITS)
                3=S02 EMISSION RATE(G/SEC)
                4=PART EMISSION RATE(G/SEC)
                5=STACK HEIGHT(M)
                6=STACK TEMP(K)
                7=STACK DIAM(M)
                8=STACK VELOCITYCM/S)
                9=PARTIAL BUOYANCY CALCULATION
RMQ0010
RMQ0020
RMQ0030
RMQ0040
RMQ0050
RMQ00150
RMQ0070
RMQ0080
RMQ0090
RMQOTOO
RMQO 11,0
RMQ0120
RMQO130
RMQO140
RMQ0150
RMQO160
RMQO*170
RMQ0880
RMQ0190
RMQ0200
RMQ0210
RMQ0220
RMQ0230
RMQ0240
RMQ0250
RMQ0260
RMQ0270
RMQ0280
RMQ0290
RMQ0300
RMQ0310
RMQ0320
RMQ0330
RMQ0340
RMQ0350
RMQ0360
RMQ0370
RMQ0380
RMQ0390
RMQ0400
RMQ0410
RMQ0420
RMQ0430
RMQ0440
RMQ0450
RMQ0460
RMQ0470
RMQ0480
RMQ0490
RMQ0500
RMQ0510
RMQ0520
RMQ0530
                                       26

-------
      RMIN=99999.                                                        RMQ0540
      SMIN=99999.                                                        RMQ0550
      IN=5                                                               RMQ0560
      10=6                                                               RMQ0570
      NSIGP=25                                                           RMQ0580
      NSIGA=10                                                           RMQ0590
      NIN=5                                                              RMQ0600
      NID=9                                                              RMQ0610
C«**READ RUN IDENTIFICATION - TITLE CARD                                 RMQ0620
      READ (IN,180) ITITLE                                               RMQ0630
C***READ IN THE MAXIMUM NUMBER OF POINT SOURCES AND AREA SOURCES         RMQ0640
C***EXPECTED . ALSO SIGNIFY POLLUTANT TO BE MODELED, 3=S02 4=PARTICULATE RMQ0650
C*«*AND TYPE OF AREA TO BE MODELED,RURAL OR URBAN.                       RMQ0660
C*»* MOD=1 FOR RURAL SIGMAS, MOD=2 FOR URBAN SIGMAS.                     RMQ0670
      READ (IN,490) NDIMP,NDIMA,IPOL,MOD                                 RMQ0680
C***NDIMP AND NDIMA CAN NOT EXCEED DIMENSIONS OF POINT AND AREA SOURCE   RMQ0690
C***INFORMATION RESPECTIVELY.                                            RMQ0700
      WRITE (10,510) ITITLE                                              RMQ0710
      WRITE (10,450) MODEL(MOD)                                          RMQ0720
      WRITE(IO,710) NDIMP,NDIMA                                          RMQ0730
C«**INPUT GRID SQUARE SIZE, NUMBER OF USER UNITS EQUAL TO SIDE LENGTH OF RMQ0740
C***SMALLEST AREA SOURCE SQUARE, AND APPROPRIATE CONVERSION FACTOR.      RMQ0750
C***CONVERSION IS ALWAYS FROM SPECIFIED USER UNITS TO KILOMETERS***      RMQ0760
C***EXAMPLE CONVERSION FACTORS:                                          RMQ0770
c««»      FEET T0 KM     3.048E-04                                       RMQ0780
C*»*      MILES TO KM    1 .609344E+00                                    RMQ0790
C*»*      METERS TO KM   1.0E-03                                         RMQ0800
C*»*                                                                     RMQ0810
      READ (IN,490) UNITS,CONONE                                         RMQ0820
C***DETERMINE CONVERSION FROM INTERNAL UNITS TO KILOMETERS.              RMQ0830
      CONTWO=CONONE*UNITS                                                RMQ0840
      IP=IPOL-2                                                          HMQ0850
      WRITE(IO,720) UNITS,CONONE,CONTWO,TITLE(IP),IPOL                   RMQ0860
C***READ POINT SOURCES***                                                RMQ0870
C***IF NOT EXPECTING POINT SOURCES, SKIP.                                RMQ0880
      IF (NDIMP.EQ.O) GO TO 170                                          RMQ0890
10    NPT=NPT+1                                                          RMQ0900
      IF (NPT.GT.MAXP+1) GO TO  120                                       RMQ0910
      READ (NIN,470) (PNAME(I,NPT),1=1,2),(SOURCE(I,NPT),1=1,8)          RMQ0920
C*»*CARD WITH 'END POINTS' IN COL  1-10 IS USED TO SIGNIFY END OF POINT   RMQ0930
C***SOURCES.                                                             RMQ0940
      IF (PNAMEd,NPT).EQ.'END  PO') GO TO 130                            RMQ0950
C***SOURCE CO-ORDINATES ARE TRANSFORMED INTO INTERNAL UNITS.             RMQ0960
      SOURCEd,NPT)=SOURCE(1,NPT)/UNITS                                  RMQ0970
      SOURCE(2,NPT)rSOURCE(2,NPT)/UNITS                                  RMQ0980
C***CALCULATE BUOYANCY FACTOR                                            RMQ0990
      D=SOURCE(7,NPT)                                                    RMQ1000
      SOURCE(9,NPT)=2.45153*SOURCE(8,NPT)*D*D                            RMQ1010
C***2.45153 IS GRAVITY OVER FOUR.                                        RMQ1020
C***STORE POINT EMISSIONS ACCORDING TO HEIGHT CLASS                      RMQ1030
      DO 20 1=1,20                                                       RMQ1040
      HC=I*5.                                                            RMQ1050
      IF (SOURCE(5,NPT).LE.HC)  GO  TO 30                                  RMQ1060
20    CONTINUE                                                           RMQ1070
C***POINT SOURCES WITH PHYSICAL HEIGHTS GT 100 METERS ARE LISTED         RMQ1080
C***SEPARATELY.                                                          RMQ1090
      WRITE (10,500) NPT,SOURCE(5,NPT),SOURCE(IPOL , NPT)                  RMQ1100
      GO TO 40                                                           RMQ1110
C***ADD EMISSION RATE INTO TABLE AND TOTAL.                              RMQ1120
30    TABLE(1,I)=TABLE(1, I) + SOURCE(IPOL,NPT)                             RMQ1130
40    TABLEd,21)=TABLE(1,21)+SOURCE(IPOL,NPT)                           RMQ1140
C***DETERMINE SIGNIFICANT POINT SOURCES                                  RM01150
                                       27

-------
C***SIGNIFICANCE IS DETERMINED  BY  SELECTING A SPECIFIED NUMBER           RMQ1160
C***OF POINT SOURCES  (N  <  OR  -  25)  CONTRIBUTING TO THE HIGHEST           RMQ1170
C***PREDICTED MAXIMUM CONCENTRATIONS.   MAX CONCENTRATION IS              RMQ1180
C***PREDICTED BY CHI(MAX)  -  (A*H**B)*Q/U  WHERE A AND B ARE THE           RMQ1190
C***COEFFICIENT AND EXPONENT,RESPECT IVELY, OF A MAXIMUM CHI*U/Q          RMQ1200
C***VALUE PRECALCULATED  FOR  B STABILITY AND A SPECIFIC EFFECTIVE         RMQ1210
C***HEIGHT CLASS.  THE FINAL  PLUME  RISE OF THE SOURCE IS CALCULATED      RMQ1220
C*** WITH B STABILITY AND  A  3 M/SEC  WIND  SPEED.                          RMQ1230
C*** Q IS THE SOURCE  STRENGTH IN G/SEC. U IS THE WIND                    RMQ1240
C***SPEED SET TO 3 M/SEC.                                                 RMQ1250
      U-3.0                                                               RMQ1260
      TEMP-293.                                                           RMQ1270
      TS-SOURCE(6,NPT)                                                    RMQ1280
      I.F (TS.GT.TEMP) GO TO  50                                            RMQ1290
      HF-SOURCE(5,NPT)                                                    R"Q1300
      GO TO 70                                                            RMQ1310
50    F-SOURCE(9,NPT)*(TS-TEMP)/TS                                        RMQ1320
      IF (F.GE.55) GO TO 60                                               RMQ1330
      HF-SOURCE(5,NPT)+21.425*F**0.75/U                                  RMQ1340
      GO TO 70                                                            RMQ1350
60    HF-SOURCE(5,NPT)+38.71*F**0.6/U                                     RMQ1360
70    HFIN(NPT)»HF                                                        RMQ1370
C***DETERMINE HEIGHT  INDEX.                                               RMQ1380
      DO 80 IH-2,9                                                        RMQ1390
      IF (HF.LT. (HCl(IH)-.OD)  GO  TO  90                                  RMQ1400
80    CONTINUE                                                            RMQ1410
      IH-10                                                               RMQ1420
90    IS-IH-1                                                             RMQ1430
      IF (MOD.EQ.l) GO TO  100                                             RMQ1440
      A-PXUCOF(2,IS)                                                      RMQ1450
      B-PXUEXP(2,IS)                                                      RMQ1460
      GO TO 110                                                           RMQ1470
100   A-PXUCOR(2,IS)                                                      RMQ1480
      B-PXUEXR(2,IS)                                                      RMQ1490
110   SIGNIF(NPT)-(A*HF**B)*SOURCE(IPOL,NPT)/U                           RMQ1500
C***GO BACK AND READ DATA  FOR ANOTHER  POINT SOURCE.                       RMQ1510
      GO TO 10                                                            RMQ1520
120   WRITE (10,430) MAXP                                                 RMQ1530
      CALL EXIT                                                           RMQ1540
130   NPT-NPT-1                                                           RMQ1550
      WRITE (10,520)                                                      RMQ1560
C***LIST POINT SOURCE INFORMATION.                                        RMQ1570
      DO 140 I-l.NPT                                                      RMQ1580
      Cl-SOURCEd ,1) *UNITS                                                RMQ1590
      C2-SOURCE(2,I)*UNITS                                                RMQ1600
140   WRITE (10,530)  I, (PNAME(J , I),J-l,2),Cl,C2,(SOURCE(K,I),K-3,8),SIGN RMQ1610
     1IF(I),HFIN(I)                                                       RMQ1620
C***RANK 25 HIGHEST POINT  SOURCES***                                      RMQ1630
      IF (NPT.LT.NSIGP)  NSIGP-NPT                                         RMQ1640
      DO 160 I-l.NSIGP                                                    RMQ1650
      SIGMAX—1.0                                                         RMQ1660
      DO 150 J-l.NPT                                                      RMQ1670
      IF (SIGNIF(J).LE.SIGMAX)  GO  TO  150                                  RMQ1680
      SIGMAX-SIGNIF(J)                                                    RMQ1690
      LMAX-J                                                              RMQ1700
150   CONTINUE                                                            RMQ1710
      MPS(I)-LMAX                                                         RMQ1720
      PSVAL(I)-SIGMAX                                                     RMQ1730
160   SIGNIF(LMAX)—1.0                                                   RMQ1740
C***READ AREA SOURCES***                                                  RMQ1750
C***IF NOT EXPECTING  AREA  SOURCES,  SKIP.                                  RMQ1760
170   IF (HDIMA.EQ.O) GO TO  340                                           RMQ1770

-------
      NAS=NAS+t                                                          RMQ1780
      IF (NAS.GT.MAXA+1) GO TO 210                                       RMQ1790
      READ (NIN,490,END=220) ASORC( 1 ,NAS),ASORC(2,NAS),ASORC(5,NAS),ASOR RMQ1800
     1C(3,NAS),ASORC(4,NAS),ASORC(6,NAS)                                 RMQ1810
C»»»CO-ORDINATES ARE TRANSLATED TO INTERNAL UNITS.                       RMQ1820
      ASORC(1,NAS)=ASORC(*,NAS)/UNITS                                    RMQ1830
      ASORC(2,NAS)=ASORC(2,NAS)/UNITS                                    RMQ1840
C»«»STORE AREA EMISSIONS ACCORDING TO HEIGHT CLASS                       RMQ1850
      DO 180 1=1,20                                                      RMQ1860
      HC=I*5.                                                            RMQ1870
      IF (ASORC(6,NAS).LE.HC) GO TO 190                                  RMQ1880-
180   CONTINUE                                                           RMQ1890"
C**»AREA SOURCES WITH HEIGHTS GT 100 METERS ARE LISTED SEPARATELY.       RMQ1900
      WRITE (10,540) NAS,ASORC(6,NAS),ASORC(IPOL,NAS)                    RMQ1910
      GO TO 200                                                          RMQ1920
C»««ADD EMISSION RATE INTO TABLE AND TOTAL.                              RMQ1930
190   TABLE(3,I)=TABLE(3,I)+ASORC(IPOL,NAS)'                              RMQ1940
200   TABLE(3,21)=TABLE(3,21)-t-ASORC(IPOL,NAS)                            RMQ1950
C*»*CALCULATE SIDE LENGTH IN UNITS                                       RMQ1960
      ASORC(5,NAS)=ASORC(5,NAS)/UNITS                                    RMQ1970
      WA=ASORC(5,NAS)                                                    RMQ1980
C***CONVERTS SIDE LENGTH IN INTERNAL UNITS TO METERS AND ADJUST EMISSION RMQ19?0
C*»*RATE                                                                 RMQ200D
      SF=WA*1000.»CONTWO                                                 RMQ20fD
C***DETERMINE EMISSION RATE IN G/SEC-M*»2.                               RMQ2020
      ASORC(3,NAS)=ASORC(3,NAS)/(SF»SF)                                  RMQ2030
      ASORC(4,NAS)=ASORC(4,NAS)/(SF*SF)                                  RMQ2040
C***FOR AREA SOURCES SIGNIFICANCE IS DETERMINED BY SELECTING -A           RMQ2050
C*»*SPECIFIED NUMBER OF AREA SOURCES (N < OR = 10) WHICH HAVE            RMQ2060
C***THE HIGHEST EMISSION RATE TIMES THE SIDE LENGTH OF THE AREA          RMQ2070
C***SOURCE.                                                              RMQ2080
      SIGNIF(NAS)=SF*ASORC(IPOL,NAS)                                     RMQ2090
C***READJUST AREA SOURCE REGION BOUNDARIES AS REQUIRED(INTERNAL UNITS).  RMQ2100
      RC=ASORC(1,NAS)                                                    RMQ2110
      SC=ASORC(2,NAS)                                                    RMQ2120
      IF (RC.LT.RMIN) RMIN=RC                                            RMQ2130
      IF (SC.LT.SMIN) SMIN=SC                                            RMQ2140
      RCHEK=RC+WA                                                        RMQ2150
      SCHEK = SC-t-WA                                                        RMQ2160
      IF (RCHEK.GT.RMAX) RMAX=RCHEK                                      RMQ2170
      IF (SCHEK.GT.SMAX) SMAX=SCHEK                                      RMQ2180
C***GO BACK AND READ DATA FOR ANOTHER AREA SOURCE.                       RMQ2190
      GO TO 170                                                          RMQ2200
210   WRITE (10,440) MAXA                                                RMQ2210
      CALL EXIT                                                          RMQ2220
220   NAS=NAS-1                                                          RMQ2230
C***LIST AREA SOURCE INFORMATION.                                        RMQ2240
      WRITE (10,550)                                                     RMQ2250
      DO 230 1=1,NAS                                                     RMQ2260
      C1=ASORC(1,I)*UNITS                                                RMQ2270
      C2=ASORC(2,I)*UNITS                                                RMQ2280
      C3=ASORC(5,I)*UNITS                                                RMQ2290
      WRITE (10,560) I.C1,C2,(ASORC(K,I),K=3,4),C3,ASORC(6,I),SIGNIF(I)  RMQ2300
230   CONTINUE                                                           RMQ2310
C***DETERMINE SIZE OF AREA ARRAY                                         RMQ2320
      RDUM=RMAX-RMIN+.0005                                               RMQ2330
      IRSIZE=RDUM                                                        RMQ2340
      IF(RDUM-FLOAT(IRSIZE).GT.0.001)     GO TO ?30                       RMQ2350
      SDUM = SMAX-SMIN-f .0005                                               RMQ2360
      ISSIZE=SDUM                                                        RMQ2370
      IF(SDUM-FLOATdSSIZE) .GT.0.001)  GO TO 740                          RMQ2380
C***CHECK SIZE OF AREA SOURCE REGION WITH DIMENSIONS OF IA ARRAY.         RMQ2390
                                       29

-------
      IF (IRSIZE.GT.IRDIM) GO TO 240                                     RMQ2400
      IF (ISSIZE.LE.ISDIM) GO TO 250                                     RMQ2410
240   WRITE (10,570) IRSIZE,ISSIZE                                       RMQ2420
      CALL EXIT                                                          RMQ243Q
C**ttZERO IA ARRAY(AREA SOURCE MAP ARRAY)                                  RMQ2440
250   DO 260 1=1,IRSIZE                                                  RMQ2450
      DO 260 J=1, ISSIZE                                                  RMQ2460
260   IA(I,J)=0                                                          RMQ2470
C***LOOP THROUGH ALL AREA SOURCES AND STORE SOURCE NO'S IN IA.           RMQ2480
C***THERE CAN BE NO OVERLAPPING OF AREA SOURCES. LOCATIONS ARE           RMQ2490
C***DEFINED BY THE INTERNAL GRID SYSTEM.                                  RMQ2500
      RMINI=RMIN-1.                                                      RMQ2510
      SMINI=SMIN-1.                                                      RMQ2520
      DO 280 NS=1,NAS                                                    RMQ2530
      IR=ASORC(1 ,NS)-RMINI+.0005                                         RMQ2540
      IS=ASORC(2,NS)-SMINI+.0005                                         RMQ2550
      IWA=ASORC(5,NS)+.0005-1.                                           RMQ2560
      ISX=IS+IWA                                                         RMQ2570
      IRX=IR+IWA                                                         RMQ2580
      DO 270 I=IR,IRX                                                    RMQ2590
      DO 270 J=IS,ISX                                                    RMQ2600
C***CHECK TO SEE IF IA ALREADY HAS A SOURCE IN THE I,J TH POSITION       RMQ2610
      IF (IA(I,J).EQ.O) GO TO 270                                        RMQ2620
      WRITE (10,590) IA(I,J),I,J,NS                                      RMQ2&30
      CALL EXIT                                                          RMQ2640
C***STORE SOURCE NO. IN APPROPRIATE POSITION                             RMQ2650
270   IA(I,J)=NS                                                         RMQ2660
280   CONTINUE                                                           RMQ2670
C***PRINT OUT AREA SOURCE MAP ARRAY(IA) IF NOT TOO LARGE TO FIT ACROSS   RMQ2680
C***PAGE.                                                                RMQ2690
      IF (IRSIZE.GT.41) GO TO 300                                        RMQ2700
      WRITE(IO,700)                                                      RMQ2710
      JLIM=ISSIZE+1                                                      RMQ2720
      DO 290 JDUM=1,ISSIZE                                               RMQ2730
      J=JLIM-JDUM                                                        RMQ2740
290   WRITE (10,610) J , (IA(I,J) , 1=1,IRSIZE)                              RMQ2750
      WRITE (10,620) (1,1=1.IRSIZE)                                      RMQ2760
      GO TO 310                                                          RMQ2770
300   WRITE (10,460)                                                     RMQ2780
C***PRINT OUT ORIGIN CO-ORDINATES                                        RMQ2790
310   WRITE (10,580) RMINI.SMINI,IRSIZE,ISSIZE                           RMQ2800
      WRITE (10,600) RMIN,RMAX,SMIN,SMAX                                 RMQ2810
C**«                                                                     RMQ2820
C***RANK HIGHEST 10 AREA SOURCES                                         RMQ2830
      IF (NSIGA.GT.NAS) NSIGA=NAS                                        RMQ2840
      DO 330 I=1,NSIGA                                                   RMQ2850
      SIGMAX=-1.0                                                        RMQ2860
      DO 320 J=1,NAS                                                     RMQ2870
      IF (SIGNIF(J).LE.SIGMAX) GO TO 320                                 RMQ2880
      SIGMAX=SIGNIF(J)                                                   RMQ2890
      LMAX=J                                                             RMQ2900
320   CONTINUE                                                           RMQ2910
      MAS(I)=LMAX                                                        RMQ2920
      ASVAL(I)=SIGMAX                                                    RMQ2930
330   SIGNIF(LMAX)=-1.0                                                  RMQ29T4O
C**»OUTPUT SOURCE-STRENGTH-HEIGHT TABLE                                  RMQ2950
C***THIS TABLE DISPLAYS THE TOTAL EMISSIONS FOR BOTH POINT AND           RMQ2960
C**aAREA SOURCES AND THE CUMULATIVE FREQUENCY ACCORDING TO               RMQ29JO
C**«HEIGHT CLASS. REQUIRED INPUT TO RAM, SUCH AS HEIGHT CLASS BOUNDARIES RMQ29SO
C*»*FOR AREA SOURCES AND REPRESENTATIVE HEIGHTS FOR EACH                 RMQ2990
C*»* HEIGHT CLASS, CAN BE DETERMINED FROM THESE TABLES.                  RMQ3000_
340   WRITE (10,630) TITLE(IP)                                           RMQ30

-------
C»»»HEIGHT CLASS EMISSIONS ARE IN 1 AND 3.
C»«»DETERMINE CUMULATIVE PERCENT IN 2 AND 4.
      IF (TABLE(1,21).EQ.O.O) TABLE( 1 ,21)=1 .0
      IF (TABLE(3,21).EQ.O.O) TABLE(3,21)=-1 .0
350
      IH2 = 5
      TABLE(2,1)=TABLE(1,1)/TABLE(1,21)
      TABLE(4,1)=TABLE(3,D/TABLE(3,21)
      WRITE (10,640) IH1,IH2,(TABLE(J,l),J=1,n)
      DO 350 1=2,20
      IH2=I»5
      IH1=IH2~4
      TABLE(2,I)=TABLE(1,I)/TABLE(1,21)+TABLE(2,I-1)
      TABLE(4,I)=TABLE(3,I)/TABLE(3,21)+TABLE(4,I-1)
      WRITE (10,640) IH1,IH2,(TABLE(J,I) ,J=1,4)
      CONTINUE
      IF (NDIMP.EQ.O) TABLE(1 ,21)=0.0
      IF (NDIMA.EQ.O) TABLE( 3 ,21 ) =0 .0
      WRITE (10,650) TABLE(1,21) ,TABLE(3,21)
C***OUTPUT TABLES 'FOR SIGNIFICANT SOURCES
      IF (NDIMP.EQ.O) GO TO 370
      WRITE (10,660) TITLE(IP)
      DO 360 1=1 ,NSIGP
      WRITE (10,670) I,PSVAL(I
      CONTINUE
      IF (NDIMA.EQ.O) GO TO 390
      WRITE (10,690) TITLE(IP)
      DO 380 1=1 ,NSIGA
      WRITE (10,680) I,ASVAL(I),MAS(I)
      CONTINUE
360
370
                               ,MPS(I)
380
C*»*CREATE OUTPUT FILES TO BE USED AS INPUT TO RAM.
C«»«OUTPUT POINT SOURCE INFORMATION TO DISK OR TAPE
390   WRITE (NID) UNITS,CONTWO,CONONE,IPOL.NPT,MPS,PNAME,MOD
      DO 400 1=1,9
400   WRITE (NID) (SOURCE(I,J),J=1,NPT)
C»«»OUTPUT AREA SOURCE INFORMATION AND MAXIMA
      WRITE (NID) NAS,MAS,RMIN,RMAX,SMIN,SMAX,IRSIZE,ISSIZE
      DO 410 1=1 ,6
410   WRITE (NID) (ASORC(I,J),J=1,NAS)
      DO 420 I=1,IRSIZE
420   WRITE (NID) (IA(I,J),J=1,ISSIZE)
      CALL EXIT
730   WRITE(IO,735)
735   FORMATC AREA SOURCES, UNITS OR SIDE LENGTH SPECIFIED INCORRECTLY;
     * ERROR ON EAST MAX BOUNDARY.')
      STOP
740   WRITE(IO,745)
745   FORMATC AREA SOURCES, UNITS OR SIDE LENGTH SPECIFIED INCORRECTLY;
     * ERROR ON NORTH MAX BOUNDARY.')
C
430   FORMAT C USER TRIED TO INPUT MORE THAN ',14,' POINT SOURCES. THIS
     1 GOES BEYOND THE CURRENT PROGRAM DIMENSIONS.1)
440   FORMAT (' USER TRIED TO INPUT MORE THAN ',14,' AREA SOURCES.',' TH
     1IS GOES BEYOND THE CURRENT PROGRAM DIMENSIONS.1)
450   FORMAT(10X,' RAMQ RUN USING ' ,A6 ,'COEFFICIENTS'/1X)
460   FORMAT (' AREA ARRAY IS TOO WIDE FOR PAGE SIZE, THEREFORE WILL NOT
     1 BE PRINTED')
470   FORMAT (2A6.8F8.2)
480   FORMAT (13A6.A2)
490   FORMAT ()
500   FORMAT (1X,'HEIGHT ABOVE 100M FOR POINT SOURCE  ',14,' HEIGHT=',F6
RMQ3020
RHQ3030
RMQ3040
RMQ3050
RMQ3060
RMQ3070
RMQ3080
RMQ3090
RMQ3100
RMQ31 >u
RMQ3120
RMQ3130
RMQ3140
RMQ3150
RMQ3160
RMQ3170
RMQ3180
RMQ3190
RMQ3200
RMQ3210
RMQ3220
RMQ3230
RMQ3240
RMQ3250
RMQ3260
RMQ3270
RMQ3280
RMQ3290
RMQ3300
RMQ331Q
RMQ3320
RMQ3330
RMQ3340
RMQ3350
RMQ3360
RMQ3370
RMQ3380
RMQ3390
RMQ3400
RMQ3410
RMQ3420
RMQ3430
RMQ3440
RMQ3450
RMQ3460
RMQ3470
RMQ3480
RMQ3490
RMQ3500
RMQ3510
RMQ3520
RMQ3530
RMQ3540
RMQ3550
RMQ3560
RMQ3570
RMQ3580
RMQ3590
RMQ3600
RMQ3610
RMQ3620
RMQ3630
                                       31

-------
     1.2,  EMISSIONS-',F10.2)                                             RMQ3640
510   FORMAT ('1'/1IX,13A6,A2//1X)                                        RMQ3650
520   FORMAT ('0',TAO,'POINT  SOURCE  INFORMATION'//IX,T8,'SOURCE',T24,'EA RMQ3660
     1ST',T32,'NORTH',T40,'S02(G/SEC)   PART(G/SEC)   STACK   STACK   STACK RMQ3670
     2   STACK',7X,'SIGNIFICANCE',4X,'EFF'/IX,T24,'COORD',T32,'COORD','   RMQ3680
     3  EMISSIONS   EMISSIONS     HT(M)   TEMP(K)  DIAM(M)  VEL(M/SEC)   (MIC RMQ3690
     4ROG/M**3)  HT(M)'/1X,T24,'(USER  UNITS)'/1X)                         RMQ3700
530   FORMAT (1X.T3,13,IX,2A6,2X,2F9.2,FlO.2,Fl1.2,IX,4F8.1,6X,6PF11.2,0 RMQ3710
     1PF10.2)                                                             RMQ3720
540   FORMAT (IX,'HEIGHT ABOVE  100M  FOR AREA  SOURCE   ',14,'  HEIGHT-',F6. RMQ3730
     12,' EMISSIONS"',FlO.2)                                              RMQ3740
550   FORMAT ('1'//1X,T20,'AREA  SOURCE  INFORMATION'//IX,T2,'SOURCE',T9,' RMQ3750
     1EAST',T17,'NORTH',T29,'SO2',T40,'PART',T51,'SIDE',T59,'EFFECTIVE S RMQ3760
     2IGNIFICANCE'/IX,T9,'COORD',T17,'COORD',T26,'EMISSIONS',T39,'EMI SSI RMQ3770
     30NS',T50,'LENGTH',T61,'HEIGHT',T70,'(G/M/SEC)'/1X,T10,'(USER UNITS RMQ3780
     4)',128,'(GRAMS/M**2/SEC)  ',T47,'(USER  UNITS)  (METERS)'/IX)         RMQ3790
560   FORMAT (IX,T2,13,2F9.1,IX,2(IX,1PE11.4),2X,OPF6.1,5X,F6.1,2X,1PE11 RMQ3800
     1.4)                                                                 RMQ3810
570   FORMAT (' DIMENSIONS TOO SMALL TO HOLD  ARRAY  ',13,'  BY  ',13)        RMQ3820
580   FORMAT ('OTHE ORIGIN IN  INTERNAL  UNITS  IS  ( ' , F10.2,',',F10 . 2 , ' ) ' / 1 RMQ3830
     IX,'THE SIZE OF THE AREA  SOURCE ARRAY  IS  (',I 5,',',15 , ' ) ' )          RMQ3840
590   FORMAT (' SOURCE ',13,'  IS  ALREADY LOCATED  AT  POSITION  (',13,',',! RMQ3850
     13,')   CHECK SOURCE  ',13)                                           RMQ3860
600   FORMAT (' RMIN-',F8 . 2 , '  RMAX-',F8 . 2 , '  SMIN-",F8.2,'  SMAX-',F8.2,   RMQ3870
     1'   (IN INTERNAL UNITS)'//1X)                                       RMQ3880
610   FORMAT (IX,13,2X,4113/IX)                                           RMQ3890
620   FORMAT (/6X,41I3/1X)                                                RMQ3900
630   FORMAT ('1',4X,'TOTAL  ',A4,' EMISSION  AND  CUMULATIVE  FRACTION ACCO RMQ3910
     1RDING TO HEIGHT'//1X,T12,'TOTAL  POINT    CUMULATIVE       TOTAL AREA RMQ3920
     2    CUMULATIVE'/IX,'HEIGHT(M)  EMISSIONS(G/S)   FRACTION       EMISSI RMQ3930
     30NS(G/S)  FRACTION'/1X)                                             RMQ3940
640   FORMAT (1X.T2.I2,' -',13,T11,F8.2,T26,F7.3,T41,F8.2,T56,F7.3)      RMQ3950
650   FORMAT ('0',T2,'TOTAL',2X,FlO.2,T39,FlO.2/IX)                       RMQ3960
660   FORMAT ('1',T3,'SIGNIFICANT  ',A4,' POINT  SOURCES'//IX,T8,'RANK',T2 RMQ3970
     12,'CHI-MAX',T33,'SOURCE  NO.'/IX,T17,'(MI CROC RAMS/M**3)'/1X)         RMQ3980
670   FORMAT (1X.19,I3.T18,6PF12.2,135,13)                                RMQ3990
680   FORMA1 (1X.19,13,118,1PE12.4,135,13)                                RMQ4000
690   FORMAT ('0'///1X,13,"SIGNIFICANT  ',A4,'  AREA  SOURCES'//IX,T8,'RANK RMQ4010
     1",120,"Q*LENGTH',T33,"SOURCE NO.'/IX,T19,'(G/M/SEC)'/IX)           RMQ4020
700   FORMAT('1',5X,"AREA  SOURCE  MAP ARRAY  (IA)'/1X)                     RMQ4030
710   FORMAK'O', 10X, "THIS RUN  EXPECTS  ',13,'  POINT  SOURCES AND ',13,     RMQ4040
     *' AREA SOURCES.'///)                                                RMQ4050
720   FORMAT (IX,T21,'GENERAL  INFORMATION  FROM  RAMQ, VERSION  78124'//2X, RMQ4060
     X                                                    'UNITS - THERE  RMQ4061
     1ARE',F14.7," USER UNITS(INPUT  UNITS)  PER  SMALLEST  AREA  SOURCE SQUA RMQ4070
     2RE SIDE LENGTH  (INTERNAL  UNIT)'/2X,'CONONE  -  THERE  ARE',F14.7,"  KI RMQ4080
     3LOMETERS PER USER UNIT'/2X,'CONTWO -  IT  IS  CALCULATED THAT THERE A RMQ4090
     4RE',F14.7," KILOMETERS  PER  SMALLEST  AREA  SOURCE SQUARE  SIDE LENGTH RMQ4100
     5 (INTERNAL UNIT)'/2X,"THIS  RUN IS FOR  ',A6,'SINCE  IPOL-',12//IX)   RMQ4110
C                                                                         RMQ4120
      END                                                                 RMQ4130
      BLOCK DATA
C***COEFFICIENTS GENERATED  WITH  URBAN  SIGMAS USING BRSYSZ & BRSZ
BKQU010
BKQU020
C***DISTANCE OF MAX. CONC.  FROM  PT  SOURCE-PXCOF(KST,IH)*H**PXEXP(KST,IH) BKQU030
C***RELA1IVE CONC. NORMALIZED  FOR WIND  SPEED FROM PI  SOURCE, CHI*U/Q,  -  BKQU040
C***     PXUCOF(KS1,IH)*H**PXUEXP(KST,IH)                                 BKQU050
C***DIS1ANCE OF MAX. CONC.  FROM  DOWNWIND EDGE OF AREA SOURCE -           BKQU060
C***     AXCOF(KST,IU)*H**AXEXP(KST,IH)                                   BKQU070
                                        32

-------
C**» IH=1 FOR H LESS THAN 20 METERS.
C*** IH = 2 FOR H FROM 20 TO 30 METERS.
C*** IH=3 FOR H FROM 30 TO 50 METERS.
C*** IH = 4 FOR H FROM 50 TO 70 METERS.
C*** IH=5 FOR H FROM 70 TO 100 METERS.
C**» IH=6 FOR H FROM 100 TO 200 METERS.
C*** IH=7 FOR H FROM 200 TO 300 METERS.
C*** IH=8 FOR H FROM 300 TO 500 METERS.
C*** IH=9 FOR H GREATER THAN 500 METERS.
COMMON /COEFFU/ PXCOF( 6 , 9 ) , PXEXP( 6 ,9) ,
*AXCOF(6,9),AXEXP(6,9),HC1(10)
DATA PXCOF/ .29000E-02, .29000E-02
* .76841E-02, .76841E-02, .31586E-02
* .50285E-02, .65931E-02, .65931E-02
* .36114E-02, .45861E-02, .51435E-02
* .34513E-02, .34298E-02, .43860E-02
* .36196E-02, .36196E-02, .33575E-02
* .19672E-02, .41677E-02, .41677E-02
* .63291E-03, .63291E-03, .50465E-02
* .21446E-02, .19145E-03, .19145E-03
* .30537E-02, .12214E-02, .12483E-03
* .77521E-02, .29817E-02, .39130E-03
DATA PXEXP/ .10000E+01, .10000E+01
* .10829E+01, .10829E+01, .97149E+00
.10080E+01, .11340E+01, .11340E+01
.99634E+00, .10350E+01, .12070E+01
.94836E+00, .10095E+01, .10465E+01
.93716E+00, .93716E+00, .10145E+01
.14421E+01 , .90654E+00, .90654E+00
.16884E+01, .16884E+-01, .870U3E+00
.11920E+01, .igi'HE+OI, .19TME+01
.10327E+01, .12907E+01, .19890E+01
.79879E+00, .10365E-I-01, .H738E+01
DATA PXUCOF/ .16808E+00, .16808E+00
.18861E+00, .18861E+00, . 15945E+00
.20229E-I-00, .21253E+00, .21253E+00
.19871E+00, .20011E+00, .24888E+00
.13262E+00, .18908E-1-00, .19685E+00
.11745E+00, .11745E+00, .17767E+00
.34521E+00, .91943E-01, .91943E-01
.34368E+00, .3^368E+00, .65533E-01
.17MJ45E+00, .23640E+00, .23640E+00
.89821E-01, .16720E+00, .15537E-I-00
.29993E-01, .56100E-01, .16747E+00
DATA PXUEXP/ -.19722E+01, -.19722E+01
-.20649E+01, -.20649E+01, -.19546E+01
-.19940E+01, -.21047E+01, -.21047E+01
-.19736E+01, -.19908E+01, -.21512E+01
-.19045E+01, -.19609E+01, -.19867E+01
-.18759E+01, -.18759E+01, -.19462E+01
-.22320E+01, -.18228E+01, -.18228E+01
-.22310E+01, -.22310E+01, -. 17589E+01
-.19617E+01, -.21604E+01, -.2160UE+01
-.18172E+01, -.19543E+01, -.20868E+01
-.16284E+01, -.17MHE+01, -.195M5E+01
DATA AXCOF/ .44505E-02, .44505E-02
.10026E-01, .10026E-01, .145289E-02
.68258E-02, .76276E-0'2, .76276E-02
.50000E-02, .63099E-02, .51380E-02
.52938E-02, .50000E-02, .59067E-02
.57593E-02, .57593E-02, .50000E-02
.16889E-02, .68765E-02, .68765E-02














PXUCOF(6,9) ,PXUEXP(6,9),

, .33389E-02,
, .31586E-OZ,
, .31977E-02,
, .51435E-02,
, .33140E-02,
, .39506E-02,
, .32748E-02,
, .50465E-02,
, .60289E-02,
, .12483E-03,
, .11337E-03,
, .10205E+01,
, .97149E+00,
, .96787E+00,
, .12070E+01 ,
, .13194E+01,
, .10711E+01,
, .10200E+01,
, .87043E+00,
, .83924E+00,
, .19890E+01,
, .20045E+01,
, .20927E+00,
, .15945E-hOO,
, .14777E+00,
, .24888E+00,
, .30041E+00,
, .19301E+00,
, .15327E+00,
, .65533E-01,
, .47345E-01,
, .15537E+00,
, .11009E+00,
, -.19896E+01,
, -.195M6E+01,
, -.19322E+01,
, -.21512E+01,
, -.21993E+01,
, -.19820E+01,
, -.19142E+01,
, -.17589E+01,
, -.17019E+01,
, -.20868E+01,
, -.20314E+01,
, .50000E-02,
, .45289E-02,
, .47786E-02,
, .51380E-02,
, .29303E-02,
, .52626E-02,
, .50000E-02,

. 49374 E-02,
.34293E-02,
•31977E-02,
.34513E-02,
.33140E-02,
.19672E-02,
•32439E-02,
.31556E-02,
.60289E-02,
.77521E-02,
.11337E-03/
.10141E+01,
.10116E+01,
.96787E+00,
.94836E+00,
.1319tE+01 ,
.14421E+01,
.11139E+01,
.10270E+01,
.83924E+00,
.79879E+00,
.20045E-t-01/
.20378E-fOO,
.20527E+00,'
.14777E+00,
.13262E+00,
.30041E+00,
.34521E+00,
.18499E+00,
.11984E+00,
.47345E-01,
.29993E-01,
.11009E+00/
-.19965E+01,
-.19831E+01,
-.19322E+01,
-.19045E+01,
-.21993E+OT,
-.22320E+01,
-.19728E+01,
-.18677E+01,
-.17019E+OT,
-.16284E+01,
-.20314E+01/
.68776E-02,
.50000E-02,
.47786E-02,
.52938E-02,
.29303E-02,
.16889E-02,
.39429E-02,
BKQU080
BKQU090
BKQU100
BKQU110"
BKQU120
BKQU130
BKQU140
BKQU150
BKQU160
BKQU170
BKQU180
BKQU190
BKQU200
BKQU210
BKQU220
BKQU230
BKQU240
BKQU250
BKQU260
BKQU270
BKQU280
BKQU290
BKQU300
BKQU310
BKQU320
BKQU330
BKQU340
BKQU350
BKQU360
BKQU370
BKQU380
BKQU390
BKQU400
BKQU410
BKQU420
BKQU430
BKQU4.40
BKQU450
BKQU460
BKQU470
BKQU480
BKQU490
BKQU500
BKQU510
BKQU520
BKQU530
BKQU540
BKQU550
BKQU560
BKQU570
BKQU580
BKQU590
BKQU600
BKQU6J(3
BKQU620
BKQU630
BKQU640
BKQU650
BKQU660
BKQU670
BKQU68D
BKQU690
33

-------
.74769E-03,
.22800E-02,
.50000E-02,
.12206E-01,
DATA AXEXP/
.11356E+01,
.10224E+01,
.10000E+01,
.91659E+00,
.89676E+00,
.16163E+01,
.17932E+01,
.12557E+01,
. 10000E+01 ,
. 75807E+00,
DATA HC1/10.,20
END
.74769E-03,
.39161E-03,
.10882E-02,
.50000E-02,
.96437E+00,
.11356E+01,
.12269E+OI,
. 10455E+01 ,
.10000E+01,
.89676E+00,
.85826E+00,
.17932E+01,
.19153E+01,
. 13853E+01 ,
.10000E+01,
.,30. ,50. ,70.

.82988E-02
.39161E-03
.29900E-03
.28165E-03
.96437E+00
.95855E+00
. 12269E+01
. 13430E+01
.10624E+01
.10000E+01
.85826E+00
.82277E+00
.19153E+01
. 19626E-(-01
. 16028E+01
,100. ,200.

.82988E-02,
.99556E-02,
.29900E-03,
, .25538E-03,
, . 10000E+01,
, .95855E+00,
.94276E+00,
.13430E+01,
.14866E+01,
.10896E+01,
.10000E+01,
.82277E+00,
. 79086E+00,
.19626E+01,
.19880E+01,
, 300. ,500. , 1000.

.50000E-02,
.99556E-02,
.12206E-01,
.25538E-03/
.10199E+01,
.10000E+01,
.94276E+00,
.91659E+00,
.14866E+01,
.16163E+01,
.11523E+01,
.10000E+01,
.79086E+00,
.75807E+00,
.19880E+01/
/

BKQU700
BKQU710
BKQ0720
BKQU730
BKQU740
BKQU750
BKQU760
BKQU770
BKQU780
BKQU790
BKQU800
BKQU810
BKQU820
BKQU830
BKQU840
BKQU850
BKQU860
      BLOCK DATA
C***COEFFICIENTS GENERATED WITH RURAL SIGMAS
C***DISTANCE OF MAX. CONC. FROM PT SOURCE=PX(
C***RELATIVE CONC. NORMALIZED FOR WIND SPEED
C***     PXUCOR(KST,IH)*H**PXUEXR(KST, IH)
C***DISTANCE OF MAX. CONC. FROM DOWNWIND EDGI
C***
C***
C***
C***
C***
C***
C***
C***
C***
C***
  AXCOR(KST.IH)*H**AXEXR(KST,IH)
IH»1 FOR H LESS THAN 20 METERS.
IH-2
IH-3
IH-4
IH-5
IH-6
IH = 7
IH
FOR H
FOR H
FOR H
FOR H
FOR H
FOR H
FOR H
FOR H
FROM
FROM
FROM
FROM
FROM
FROM
FROM
                  20 TO 30 METERS.
                  30 TO 50 METERS.
                  50 TO 70 METERS.
                  70 TO 100 METERS.
                  100 TO 200 METERS.
                  200 TO 300 METERS.
    •8 FOR H FROM 300 TO 500 METERS.
  IH=9 FOR H GREATER THAN 500 METERS.
 COMMON /COEFFR/ PXCOR(6,9),PXEXR(6,9),P)
*AXCOR(6,9),AXEXR(6,9),HC1(10)
 DATA   PXCOR/  .38964E-02,  .54607E-02,
                .21051E-01,  .59088E-02,
                .10152E-01,  .10867E-01,
                .14437E-01,  .79376E-02,
                .75237E-02,  .22618E-02,
                .10509E-01,  .75283E-02,
                .37139E-01,  .10418E-01,
                .14422E-03,  .51107E-01,
                .13842E-03,  .43952E-09,
                .84890E-03,  .10930E-06,
                .74961E-02,  .19441E-03,
                .10995E+01,  .10757E+01,
                .12577E+01,  .96054E+00,
                .13228E+01,  .14784E+01,
                .10843E+01,  .13951E+01,
                .10966E+01,  .15582E+01,
                .91238E+00,  .10965E+01,
                .53282E+00,  .91427E+00,
                .25085E+01,  .47257E+00,
                .22426E+01,  .49057E+01,
                .17455E+01,  .34951E+01,
                .10971E+01,  .19827E+01,
                .10401E+00,  .12133E+00,
        .12743E-01 ,
        .87095E-02,
        .76095E-02,
        .67199E-02,
        .14425E-01,
        .79956E-03,
        .15400E-02 ,
        .12670E-02 ,
        .75225E-02,
        .10401E-01,
      DATA   PXEXR/
        .12469E+01 ,
        .12329E+01,
        .10937E+01,
        .10176E+01 ,
        .73818E+00,
        .21366E+01,
        .17878E+01,
        .16753E+01,
        .10966E+01,
        .91440E+00,
      DATA  PXUCOR/


ING PGSYSZ &PGSZ
(KST.IH) *H**PXEXR(KST,IH)
OM PT SOURCE,

F AREA SOURCE










CHI*U/Q, -

»










COR(6,9) ,PXUEXR(6,9) ,

.75278E-02,
.50774E-02,
.59366E-02,
. 10552E-01 ,
.38170E-02,
.22489E-02,
.75363E-02,
. 10468E-01 ,
.50921E-01 ,
. 13979E-02,
.10859E-04,
. 10965E+01 ,
. 1 1000E+01 ,
.95916E+00,
. 14870E+01 ,
.15823E+01 ,
.15595E+01,
. 10963E+01 ,
.91337E+00,
.47321E+00,
.22807E+01 ,
.27551E+01 ,
.14273E+00,

.11563E-01,
.74442E-02,
.67049E-02 ,
.10739E-01 ,
.13053E-02,
.24006E-02 ,
. 17287E-02 ,
. 75324E-02 ,
.10472E-01 ,
.50996E-01 ,
.20000E+04/
.1 1383E + 01 ,
.1 1002E+01 ,
. 10182E+01 ,
.80763E+00,
.20212E+01 ,
.16914E+01 ,
.16166E+01 ,
.10964E+01 ,
.91331E+00,
.47297E+00,
.OOOOOE+00/
.15351E+00,
BQROOJO
BQR0020
BQROObo
BQR0040
BQR0050
BQR0060
BQR0070
BQR0080
BQR0090
BQR0100
BQR0110
BQR0120
BQR0130
BQR0140
BQR0150
BQR0160
BQR0170
BQR0180
BQR0190
BQR0200
BQR0210
BQR0220
BQR0230
BQR0240
BQR0250
BQR0260
BQR0270
BQR0280
BQR0290
BQR0300
BQR0310
BQR0320
BQR0330
BQR0340
BQR0350
BQR0360
BQR0370
BQR0380
BQR0390
BQR0400
BQR0410
                                        34

-------
.18855E+00,
.18239E+00,
.13963E+00,
.75308E-01,
.28539E-01,
.569^3E+01 ,
.28818E+01 ,
.10826E+01,
.12546E+00,
* .60615E-01,
DATA PXUEXR/ -
* -.21822E+01, -
* -.21317E+01, -
* -.20017E+01 , -
* -.18468E+01, -
* -.15940E+01, -
* -.31511E+01, -
* -.28678E+01, -
* -.25514E+01, -
* -.19799E+01, -
* -.18012E+01, -
DATA AXCOR/
* .17234E-01,
* .13875E-01,
* .11079E-01,
* .13824E-01,
* .32619E-01,
* .73510E-06,
* .20868E-04,
« .11204E-02,
* .11153E-01,
* .13881E-01,
DATA AXEXR/
* .13211E+01,
* .12332E+01,
* .10949E+01,
.91206E+00,
.58703E+00,
.41392E+01,
.29494E+01,
.18483E+01,
.10932E+01,
.91129E+00,
DATA HC1/10. ,20
END
.18668E+00,
.20458E+00, '
.19162E+00,
.13784E+00,
.66936E-01 ,
.14792E-01,
.40940E+03,
.77Q20E+02,
.15580E+01 ,
.11952E+00,
.19460E+01, -
.22176E+01, -
.22094E+01, -
.21462E+01 , -
.19984E+01, -
.18191E+01, -
.14513E+01, -
.40795E+01, -
•34879E+01, -
.26152E+01, -
.19721E+01, -
.68365E-02,
.19793E-01,
.91114E-02,
.53876E-02,
.11267E-01,
.13833E-01,
. 53521* E-01,
.28987E-05,
.21361E-05,
.61078E-03,
.11140E-01,
.10103E+01 ,
.14994E+01 ,
.15339E+01,
.15113E+01,
.10906E+01,
.91191E+00,
.47949E+00,
.38412E+01,
•33796E+01,
.19546E+01,
.10933E+01,
. ,30. ,50. ,70.

.77533E-01
.34326E+00
.38998E+00
.54357E+00
.13615E+00
.65799E-01
.12403E-01
.23011E+05
.68810E+03
.22517E+01
.19774E+01
.18479E+01
.24209E+01
.23991E+01
.24128E+01
.19955E+01
.18153E+01
.14181E+01
.48399E+01
-38719E+01
.26744E+01
.791 34E-0.?
.92054E-0?
.65416E-0/.
.48999E-02
.42195E-02
.11119E-01
.13821E-01
.55881E-01
.20000E+04
.10114E-03
.61554E-03
.10748E+01
.91095E+00
.18689E+01
.17163E+01
.15738E+01
.1093?E+01
.91210E+00
.47136E+00
.OOOOOE+00
.27Q33E+01
.19534E+01
,100. ,200.

, .11728E+00,
, .67228E-01,
, .76271E+00,
, .72550E+00,
, .52790E+00,
, .13315E+00,
, .64321E-01,
, .12340E-01,
, .46522E+06,
, .42842E+03,
, -.20086E+01 , -
, -.19661E+01, -
, -.18060E+01, -
, -.26556E+01, -
, -.25578E+01, -
, -.24059E+01, -
, -.19907E+01, -
, -.18111E+01 , -
, -.14172E+01, -
, -.53670E+01, -
, -.37956E+01 , -
, .11062E-01,
, .94211E-02,
, .12311E-01,
, .17087E-02,
, .17526E-02,
, .30122E-02,
, .11115E-01,
, .13920E-01,
, .55160E-01,
, .20000E+04,
, .20000E+04,
, .10960E+01,
, .10166E+01,
, .82547E+00,
, .22636E+01,
, .19791E+01,
, .16531E+01,
, .10938E+01,
, .91075E+00,
, .47363E+00,
, .OOOOOE+00,
, .OOOOOE+00,
,300. ,500. ,1000.

.14120E+00,
.10013E+00,
.40484E-01 ,
.22936E-.01,
. 12908E+01 ,
.74832E+00,
.12927E+00,
.62874E-01 ,
.12245E-01 ,
.OOOOOE+00/
.20742E+01 ,
.20050E+01 ,
.19196E+01 ,
.16763E+01 ,
.29371E+01 ,
. 2 6 9 3 4 K r 0 1 ,
.24817E+01 ,
.19851E+01 ,
.18071E+01 ,
.14160E+01 ,
.17020E+02/
.14818E-01,
.11254E-01 ,
.1 1151E-01 ,
.19297E-01 ,
.13715E-03,
.11144E-02,
.22334E-02 ,
.11152E-01 ,
.13838E-01,
.55799E-01,
.20000E+04/
.12112E+01,
.10903E+01,
.96699E+00,
.71059E+00,
.29084E+01 ,
.20856E+01,
.17181E+01,
.10932E+01 ,
.91178E+00,
.47178E+00,
.OOOOOE+00/
/

BQR0420
BQR0430
BQR0440
BQR0450
BQR0460
BQR047Q
BQR0480
BQR0490
BQR0500
BQR0510
BQR0520
BQR0530
BQR0540
BOR0550
BQR0560
BQR0570
BQH0580
BQR0590
BQR0600
BQR0610
BQR0620
BQR0630
BQR0640
BQR0650
BQR0660
BQR0670
BQR0680
BQR0690
BQR0700
BQR0710
BQR0720
BQR073Q
BQR0740
BQR075Q
BQR0760
BQR0770
BQR0780
BQR0790
BQR0800
BQR0810
BQR0820
BQR0830
BQR0840
BQR0850
BQR0860
35

-------
                        RAMMET  -  INPUT  FORMATS  ANu EXAMPLE RUNSTEAMS
RAMMETDOC
C  RAMMET READS HOURLY SURFACE MET.  OBSERVATIONS  FROM THE NATIONAL
C   CLIMATIC CENTER  (NCC)  FOR ONE  YEAR'S  DATA,  READS  MIXING HEIGHT
C   INFORMATION FROM CARDS,  CALCULATES  STABILITY CLASS AND
C   RANDOMIZED  FLOW VECTOR, AND WRITES  HOURLY  MET.  DATA ARRAYS
C   IN DAILY RECORDS.
*****CARD INPUT TO RAMMET*****

CARD 1  (15,12,IX,2F10.1,F2.0,14,F10.0)  IDC,IYRC.ALAT,ALONG,ZONE,
               NDAYS,RAND(24)
C     IDC      STATION  IDENTIFICATION  FOR SURFACE OBSERVATION TAPE
C     IYRC     YEAR  OF  METEOROLOGICAL  DATA
C     ALAT     LATITUDE OF  SITE
C     ALONG    LONGITUDE OF  SITE(POSITIVE FOR WEST LONGITUDE, NEGATIVE FOR EAST
C               LONGITUDE)
C     ZONE     TIME  ZONE OF  SITE.(GREENWICH  MERIDIAN TIME- LOCAL STANDARD TIME)
C     NDAYS    NUMBER  OF DAYS  TO  BE PROCESSED - SAME AS NUMBER OF DAYS
C               IN THE  YEAR.
C     RAND(24) THE INITIAL  RANDOM NUMBER (SEED) USED TO GENERATE THE SEQUENCE OF
C               RANDOM  NUMBERS FOR THE  RANDOMIZED FLOW VECTOR. IF THE SAME SEED
C               IS USED IN  DIFFERENT EXECUTIONS OF RAMMET, THE SAME SET OF
C               RANDOM  NUMBERS WILL BE  GENERATED FOR THE ENTIRE YEAR. ANY ODD
C               NUMBER  GREATER THAN 3  DIGITS CAN BE USED AS THE SEED.
C               THE  RESULTING  RANDOM INTEGERS GENERATED ON THE UNIVAC 1110 FOR
                USE  IN  TESTING THIS RUNSTREAM FOR TWO DAYS ARE THE FOLLOWING:
                052799197626221028209349
                250994853068489903100516
 EXAMPLE:
9381573 39.9
      84.200
05 365 65549.
CARD 2  (12X.F5.0,13X.F5.0)  XMNM1.XAFM1
      XMNM1
      XAFM1
 EXAMPLE:
93815721231
  YESTERDAY'S MINIMUM MIXING HEIGHT.(METERS)
  YESTERDAY'S MAXIMUM MIXING HEIGHT.(METERS)
    YESTERDAY INITIALLY IS THE LAST  DAY OF  THE  PREVIOUS
                                                                      YEAR.
0077
   0723
CARD 3  (15,12,5X.F5.0,13X.F5.0) IDM,IYM,XHN,XAF
C     IDM       IDENTIFICATION FOR RADIOSONDE STATION USED TO DETERMINE
C                MIXING  HEIGHT.  FROM MIX HT CARD.
C     IYM       YEAR FOR MIXING  HEIGHT DATA - 2 DIGITS FROM MX HT CARD.
C     XMN       TODAY'S  MINIMUM  MIXING HEIGHT.(METERS)
C     XAF       TODAY'S  MAXIMUM  MIXING HEIGHT.(METERS)
                   INITIALLY TODAY IS  THE FIRST DAY OF THE YEAR
 EXAMPLE:
93815730101P  0250            P  0155
                                        36

-------
CARD 4 AND FOLLOWING  (12X,F5.0,13X,F5.0)  XMNP1.XAFP1
C
C
      XMNP1
      XAFP1
TOMORROW'S MINIMUM MIXING HEIGHT.(METERS)
TOMORROW'S MAXIMUM MIXING HEIGHT.(METERS)
  INITIALLY TOMORROW  IS  THE  SECOND  DAY  OF  THE YEAR
 EXAMPLE:
93815730102
             0396
                0584
      INITIALLY  THREE MIXING  HEIGHT  CARDS ARE READ:
      FOR YESTERDAY, TODAY,  AND  TOMORROW.  IN THE LOOP FOR DAYS AFTER
      INTERPOLATING MIXING  HEIGHTS, MIXING HEIGHTS FOR TODAY AND TOMORROW ARE
      SHIFTED AND NEW MIXING HEIGHTS  FOR NEXT DAY'S TOMORROW READ IN.

      A TOTAL OF THE NUMBER OF DAYS IN  THE YEAR PLUS  TWO(DEC 31 OF YEAR BEFORE,
      AND JAN 1 OF YEAR  AFTER) MIXING HEIGHT CARDS ARE EXPECTED AS INPUT TO
      RAMMET.
          TAPE OR DISK  INPUT  OF  SURFACE METEOROLOGICAL DATA *****
C
C
C
C
C
C
C
C
C
C
c*****
C
C     A FULL YEARS' HOURLY  SURFACE  OBSERVATIOHS(24* NUMBER OF DAYS IN THE YEAR)
C     ARE EXPECTED IN CARD  DECK  144 FORMAT FROM THE NATIONAL CLIMATIC CENTER ON
C    UNIT 8. NO DATA CAN  BE MISSING.
FORMAT OF EACH CARD  IMAGE  RECORD  -  (I 5,412,3A1,22X,212,4X,13,29X,Al)
         ID,IYEAR,IMONTH,IDAY,IHOUR,ICEIL,IDIR,ISPEED,ITEMP,ICOVER

C     ID       SURFACE METEOROLOGICAL  STATION IDENTIFICATION - FROM
C               MET  DATA.
C     IYEAR    YEAR  FOR  SURFACE DATA  -  2  DIGITS.  FROM MET DATA
C     IMONTH   MONTH
C     IDAY     DAY
C     IHOUR    HOUR
C              DATA  FROM THE  NATIONAL  CLIMATIC CENTER(NCC) ARE LABELED WITH
C              HOURS 00  TO 23 FOR OBSERVATIONS FROM  MIDNIGHT TO 2300. IN RAMMET
C              AND ITS OUTPUT,  HOURS  01  TO 24 REPRESENT  OBSERVATIONS FROM 0100
C              TO MIDNIGHT.
C     ICEIL    INPUT CEILING(HUNDREDS  OF  FEET)
C              SINCE MINUS SIGNS(11-PUNCHES)  REPRESENT SPECIAL CODING ON CARD
C              IMAGE DATA  FROM NCC,  ICEIL AND ICOVER ARE READ IN ALPHA FORMAT
C              AND CONVERTED  IN RAMMET.
C     IDIR     INPUT WIND  DIRECTION  (10'S  OF  DEGREES, THAT IS, 27 = 270 DEGREES)
C     ISPEED   INPUT WIND  SPEED.(KNOTS)
C     ITEMP    INPUT TEMPERATURE.(DEG-F)
C     ICOVER   OPAQUE CLOUD COVER.(TENTHS)


EXAMPLE:
9381573010100120                       0507    021
9381573010101070800008000000000026200907062919023020055--7070
9381573010102040580008000000000023401004102911024020055-6004047070-
9381573010103014580006000010000021501203092906025022058-6201440045-
9381573010104011580005000000003019601203122900026022055-7K01 130032-
9381573010105011 80004000010003017701602092895029025058-4	6K011-
9381573010106010-00000900010000016301836142891027024069	010
9381573010107006-00000400030000016501936122891022021088	006
9381573010108004-00000700020000014102036162885028026072	004
9381573010109003-00000400030000013202001182882026024078	003
938157301 0110004-00000700020000012602001182880023022088	004
9381573010111004-00000700020000012002034182878023022088	004
9381573010112004-00000700020000011502134142877023023092	004
                                        37

-------
9381573010113008800001700010000009002234142870024024092—K008
9381573010114017800002700010000008002232102867024024092—3017
9381573010115015800001000010000008302331122868026025088—3015
9381573010116008 58000900010000009002428132870026026092-3	5K00882K010-
9381573010117015580003000010000009802027092872024023085-6301543040-
938157301011888825000700000000001030182606287302302208163710039888600	600	5
9381573010119	10000800000000001100152210287502001908133888800	300	300	0
9381573010120	10000800000000001140142012287601701708822888800	200	200	0
9381573010121090800007000000000011501521152877021020078—7090
9381573010122070800015000000000011801621152878024022071—7070
9381573010123	20001500000000001180142115287802502206322707000	200	200	2
9381573010200035800012000000000011101520162876025022066--3035
9381573010201035800012000000000011101621172876026023066—3035
9381573010202033800012000000000010901621162875027024063--3033
9381573010203	20001200000000001070152017287502602306322302500	200	200	2
9381573010204	20001200000000001080142017287502302106811301500	100	100	1
9381573010205	000012000000000010501421182874022020071003   00	000	000	0
9381573010206	000012000000000010701421182874023021068000	00	000	000	0
9381573010207	10001200000000001090152018287502302107133888800	300	300	0
9381573010208	000010000000000011801620182878024022071007   00	000	000	0
9381573010209	20001200000000001250172016287902502307211714000	100	100	1
9381573010210	20001200000000001280202016288102702507511714000	100	100	1
9381573010211	21001200000000001310212018288202902707231714029888300	300	1
9381573010212	24001500000000001280222116288103102806961714059888600	600	2
9381573010213120800015000000000012002420162879035031064 — 7120
9381573010214	22001500000000001150262018287803603206741712039888400	400	3
938157301021512055001000000000001100282016287604003506296712039888900	900	9
9381573010216120580010000000000010902820182876041036060-8712029888-00	00	9
938157301021712055000700000000001100271918287604003506086712029888800	800	6
9381573010218	40000700000000001060281817287604103606066988800	600	600	2
9381573010219	10000700000000001050291816287504103606233988800	300	300	1
9381573010220	20000700000000001050291816287504003606533988800	300	300	3
9381573010221	20000800000000000950291922287203903506744988800	400	400	4
9381573010222	000012000000000009402920202872042037060000	00	000	000	0
9381573010223	000012000000000009402919182872042037060000	00	000	OO't)	0
9381573123123017800002700010000008002232102867024024092—3017
9381574010100004-00000700020000011502134142877023023092	004


*****DISK OUTPUT FROM RAMHET*****

THE OUTPUT MET DATA IS WRITTEN  IN  UNFORMATTED  FORTRAN  RECORDS  TO  UNIT  9.
THE RAM VERSIONS WILL READ MET  DATA DIRECTLY FROM  THIS  FILE  OR FROM CARDS,
WHICHEVER IS SPECIFIED BY THE USER.

*****EXAMPLE ECL STREAM*****


IN THIS EXAMPLE RUNSTREAM THE FILE, S9381573,   IS  A  DISK FILE
CONTAINING HOURLY SURFACE MET OBSERVATIONS  IN  THE  CARD  FORMAT  RECEIVED FROM
THE NATIONAL CLIMATIC CENTER IN ASHEVILLE,  NC.  THE FILE,  METDATA, WILL
CONTAIN THE PROCESSED MET DATA  WHICH  IS  OUTPUT  FROM  RAMMET.
THE UPPER AIR DATA WHICH IS INPUT  ON  CARDa  IS  USED IN
CONJUNCTION WITH THE SURFACE DATA  TO  CREATE THE PROPER  MET  INPUT  INTO  RAM.

@RUN,D/R JOBNAME/9,ACCNT-NO/USERIu,PROJ-ID,2,70
@PASSWD PASSWORD
@ASC,A S9381573.                             .  NCC  FORMATTED  SFC MET DATA
@USE 8,59381573.
                                        38}

-------
@ASG,CP METDATA.
@USE 9,METDATA.
@XQT A999*UNAMAP.RAMMET
9381573 39.9
93815721231
93815730101P
93815730102
93815730103
93815730104
93815730105
      84.200
0077
0250
0396
042214.
708.8
110812.006.7
011605.605.6
                                 RAMMET OUTPUT FILE
05 365 65549.
   0723
 P 0155
   0584
   037610.307.5
   110809.806.9
   024306.506.2
93815731228  086602.802.7
93815731229  031609.304.6
93815731230P 130113.805.4
93815731231
93815740101
048302.701.4
048302.701.4
           081806.504.4
           046712.308.2
           085411.309.8
         M 0854
         M 0854
C********************************************************************
C
C     THE PRECEEDING RUN STREAM HAD A RUN TIME OF  1 MINUTE  AND  58  SECONDS
C  ON THE UNIVAC 1111 AMD REQUIRED  10-K WORDS OF MEMORY(APPROXIMATELY  5,706
C DWORDS OF INSTRUCTIONS AND 3,206 WORDS OF DATA)
                                       39

-------
                                                        (M
                                                           o>  a  •
                                                        N - «  KIO
                                                           P>  O  •
                                                        K 
                                                           is.  O  •
                                                        M O  Kl in
                                                     •*  • ru     ir\
                                                           in O  •
f  «  «  «  t
H     *
UJ     *
X     *
K     *
«     *
oe     «
       41
C     *
O     *
oc     *
u.     +
a
o
                                                        in
                                                            •   i
                                                           O  O  •
                                                        1- <5  «I 00
                                                     in  • ro     KI
                                                           00  O  •
                                                        •O >O  OO ^
                                                     in  •  9- oo
                 *  • IM     oo
                            -o
                        •   •
          z           o o  •
          O        T- IS. Kl is.

          t-        in        t- o *  O •*


          V) (\t     (M *Q •* OO
              •  «*  • I\J «- Kl
                                                                                   KI
                                                                                    •
                                                                                   O
                                                                                   »•  •  •
                                                                                      is- O   •
                                                                                   Kl IS. fM M
                                                                        O>  O  •
                                                                     Kt N  «- is,

                                                                     O
                                                                     r*   •   •
                                                                        O  O  »
                                                                     Kt IS,  IM r-
                                                                  -«- o
                                                                  <*  • CM
                                                                     oo

                                                                        00  O  •
                                                                     ro rs.  o *j
                                                                  s»  • (M  KI in
                                                                     00        Kl

                                                                        OO  O  •

                                                                  4  • IM  KI in
                                                                     00        Kl

                                                                        oo  o  •
                                                                     Kl |s.             Kl fs. Kl

                                                                        in  o  • in in in
                                                                I    (M Is-  Csl ^~
                                                                I sC  • IM     CM
                                                                     N.KI|S-KI»-
                                                  UJ    Is.
                                                  v>
                                                                                   ii     rj|s.(MOininm
                                                                                   K  •*  • 04     i\t
                                                                                   uJ     00
                                                                                                 •  •
                                                                                               in a  •
                                                                                            •c f>- oo «r
                                                                                         4-  • IM rvjoo
                                                                                            •*        (M

                                                                                               in o  •
                                                                                            ^O f^ 00 O
                                                                                         sT  • »
                                                                                         in  • fsi ru r-
                                                                                            o r- •* is.
                                                                                         >»  • ry (M Kl
                                                                                            ru        rsi

                                                                                               00 O  •
                                                                                            T- fs. rsi «~
                                                                                         -*  • IM (M M
                                                                                            Kt        (M
                                                                                    i             •  •
                                                                                               O> O  •
                                                                                            in is- KI rsi
                                                                                         KI»rslPslKI««»«
                                                                                            r-        ro f^  ^ O> sr
                                                                                      KI         •  •    >o  in ru in

                                                                                      rsi    o is. o o>
                                                                                       • rsj  • IM ru o*

                                                                                      r-         •  •    Kl  ^ (s. ^
                                                                                               f>- o  • r\j  in •a m

                                                                                      K ro  • rsi IM in
                                                                                      UJ    I-        IM
                                                                            '                  .
                                              X  ut f  •iMT-oosroo
                                                                                            00  O  •  •   •  •
                                                                                      00         •  •
                                                                                                Kl O  •

                                                                                      II  «»   • rvj r- in  -4  •* M KI
                                                                                      LU    (M       «—  in in oo o
                                                                                    '  10         •  •     oo oo •* is.
                                                                                      >H        rg o  •
                                                                                      oc    «- r- in (\j
                                                                                      Zin   •rM«~in   •  •  •   •
                                                                                      3    rsi       T-  ^ «i Kl OO
                                                                                      trt         •  •     in in ou in
                                                                                                o^ o  •  ou oo ^ r—

                                                                                      in -o   • ro    KI

                                                                                      KI         •  •     >* ^j; KI KI
                                                                                                O O  •  in in oo r-
                                                                                      II     IT. f«- s» O  00 O) .» 00
                                                                                      f Is.   • rsi    ^T
                                                                                      <    r-
                                                                                      o         •  •      •  •  •   •
                                                                                                o o  •  •» •* KI ^r
                                                                                                                                  • IM
                                                                                                                               •  •

                                                                                                                              OO
                                                                                                                                                        ou
                                                                                                                                                           UJ

                                                                                                                                                           (A

                                                                                                                                                           
rsi

00
                    V)
                    ac
                    UJ
    Z Kl <             •   •
    O II  K  II        O  O  •
    ^ ae. v>  >•     so|s.«-Ki««««

r-     LUKO     ^        (Mtnininin
                                                                                         00           KlinKI
                                                                                              •   •
                                                                                            OO  O  •
                                                                                         fs. O  fM in   •   •  •
O t>  Z <
II  Kl  it t-  II
oc        <  x
JJ     {/) Q  ^*
QQ     >•     Z        O*  O  •

3     a u  E  >r  •rururvj
z        <  1-1     KI        rsi
    II  U. Sk             •   •
                                                  in        r\j^4~m*?tn
                                                       ••    OUinJ3M"l
                                                                                         oo
                                                                                   oo
                                                                                                      inootn
                              Z  U O OC Kl
                              o  a    =2 r-
                              i-f30C(/>limi|fMfM-4v
                              K  h- ui    oc    a  u     rsi  M
                              <  •-< O) Kl < U  ui  O.  II  II  r-
                              K^-*:is-UJHujJC>OiX
                                        C>>»C/1O.UJU.>I^
                                        r-h-ik£v)K'»T-Z        OO'KlinKI

                                                               E «T   • ro    M
                                                   •  •••!*(    00            •••
                                                     rooro            ••     lAKim
                                                                         O O  •  r- «O r-
                                                                         N- Ki oo  KI in ^^
                                                               II  •*  n  i\j    IM
                                                         u     ae    OH         n      II
                                                        rsi     <  II oj a.  H  II   T-    IM
                                                        x     w *~ ui £ > ac  x    x
                                                        _i     >- i/> a. uj u. >  _i    _i
                                                           OOO  •r-oOmflOKt
                                                                                      Kt
                                                                                      II
                                                                                      >-
                                                                                                                          rg
                                                                                                                          T-
                                                                                                                          n
                                                                                                                          z
                                                                                                                          O
                                                                                                                          KI
                                                                                                                                              oo oo  -
                                                                                                                                                 oo O
                                                                                                                                                     ac
                                                                                                                                                     Q.
                                                                                                                                              in in  JO in ui
                                                                                                                                              OO 00  >* 00 UJ
                                                                                                                                 -O f~ O  O
                                                                                                                                  • O
                                                                                                                           II -O  l|  rg r*  r-              UJ
                                                                                                                          a:     on     <-  n     n     oc
                                                                                                                          <  n  uj o.  n  n  «-     (M
                                                                                                                          iu i-  iu c >  ac i     x    _i
                                                                                                                          >- 1^  U- UJ U.  > _J     J    J
                                                                                                                          I-. »^  W t- «  U. I     X    
-------
                          RAMMET PROGRAM LISTING
C***RAMMET-PREPROCESSOR~ WRITTEN BY JOAN HRENKO NOVAK
C*** BASED ON METHODS SUGGESTED BY TURNER ,  ZIMMERMAN,  AND IRWIN.
C*** VERSION 78124
C"**RAMMET ASSUMES THERE IS NO MISSING DATA  ON THE MET. TAPE.
C*»*IF MISSING DATA IS DETECTED, THE LOCATION OF THE MISSING DATA IS
C***PRINTSD. MISSING DATA MUST BE FILLED IN  BEFORE PROCEEDING .
      DIMENSION LSTAB(12,7), IDFAC(12,2), ANGL(3), ICEIL(3), IDG(3), ID I
C***
C»»*
C*»*
      DIMENSION KST(24), SPEED(24),  TEMP(24),  AFV(24),  FVR(24),  HLH(2,24
     1), RAND(24)
      DATA IDIG /'O','1','2',13','4','5','6','7','8','9','-'/
      DATA IREC /!/ ,IMO /1/ ,ANGL /60. ,35.,15./ .CONST /57.29578X
      DATA IDFAC /0,31,59,90,120,151,181,212,243,273,304,334,0,31,60,91,
     1121,152,182,213,244,274,305,335/
      DATA LSTAB /7,7 ,7 ,6 ,6 ,6 ,5 ,5,5,5,4,4,6,6,6,5,5,5,4,4,4,4,4,4,4,4,4,
     14,4,4,4,4,4,4,4,4,3,3,3,4,4,4,4,4,4,4,4,4,2,2,2,3,3,3,3,3,3,4,4,4,
     21,2,2,2,2,2,2,3,3,3,3,*, 1,1,1,1,1,2,2,2,2,3,3,3/
       UNIT 8 = SURFACE DATA
       UNIT 9 = OUTPUT FILE
       UNIT 5 = UPPER AIR DATA IN CARD FORMAT
      IN=5
      10=6
      IFLAG=0
C»**READ CARD TO INITIALIZE MET TAPE ID,YEAR.LATITUDE,LONGITUDE,
C*** TIME ZONE ,NO. OF DAYS IN YEAR, INITIAL RANDOM NUMBER.
C»**RAND(24) IS THE INITIAL RANDOM NO. USED TO GENERATE THE SEQUENCE OF
C***NUMBERS FOR THE RANDOMIZED FLOW VECTOR. IF THE SAME NO. IS USED IN
C»**DIFFERENT EXECUTIONS OF THE PREPROCESSOR, THE SAME  SET OF RANDOM NOS
C***WILL BE GENERATED. ANY ODD NUMBER GREATER THAN 3 DIGITS CAN BE USED
C***AS THE SEED. THIS SEED IS MULTIPLIED BY 10,000 INTERNALLY.
C*»»ZONE IS GMT-LST.
      READ (IN.400) IDC,IYRC,ALAT.ALONG,ZONE,NDAYS,RAND(24)
      WRITE (10,410) IDC,IYRC.ALAT,ALONG,ZONE,NDAYS,RAND(24)
      DUM=ALAT/CONST
      SINLAT=SIN(DUM)
      COSLAT=COS(DUM)
      DUM=ALONG/15.-ZONE
      TEMPZr15."ZONE-ALONG
C**»RESET SUBSRIPT IF LEAP YEAR
      LYS=1
      IF (NDAYS.EQ.366) LYS=2
C**»READ MET DATA
C*»*THIS READ ASSUMES AN INPUT TAPE WITH HOURLY DATA FROM THE
C***NATIONAL CLIMATIC CENTER, ASHVILLE, NC. IN THEIR STANDARD
C***HOURLY CARD FORMAT.
C»*»SKIP 00 HOUR OF MET DATA.
      READ (8,420) ID,IYEAR,IMONTH,IDAY,IHOUR,ICEIL,IDIR,ISPEED,ITEMP,IC
     10VER
      LWD=IDIR
C***BEGIN PROCESSING WITH HOUR 01
      READ (8,420) ID,IYEAR,IMONTH,IDAY,IHOUR,ICEIL,IDIR,ISPEED,ITEMP,IC
     10VER
C*»*MIXING HEIGHT VALUES ARE DETERMINED TWICE A DAY FROM RADIOSONDE DATA
MET0010
MET0020
MET0030
MET0040
MET0050
MET0060
MET0070
MET0080
MET0090
MET0100
MET0110
MET0120
MET0130
MET0140
MET0150
MET0160
MET0170
MET0180
MET0190
MET0200
MET0210
MET0220
MET0230
MET0240
MET0250
MET0260
MET0270
MET0280
MET0290
MET0300
MET0310
MET0320
MET0330
MET03*»0
MET0350
MET0360
MET0370
MET0380
MET0390
MET0400
MET0410
MET0420
MET0430
MET0440
MET0450
MET0460
MET0470
MET0480
MET0490
METO5-00
MET0510
MET0520
MET0530
                                      41

-------
C***USING THE PROCEDURES OF HOLZWORTH.                                   MET0540
C***READ PRIOR DAYS MIXING HEIGHT VALUES                                 MET0550
      READ (IN,430) XMNM1.XAFM1                                          MET0560
C***PRESENT DAY                                                          MET0570
      READ (IN,440) IDM,IYM,XMN,XAF                                      MET0580
C***WRITE IDENTIFYING INFORMATION ON OUTPUT FILE                         MET0590
      WRITE (9) ID,IYEAR,IDM,IYM                                         MET0600
      WRITE (10,450) IYEAR,ID,IYM,IDM                                    MET06tO
C**» READ NEXT DAY'S MIXING HEIGHT VALUES                                MET0620
      READ (IN,430) XMNP1,XAFP1                                          MET0630
C»»*START DAY LOOP.                                                      MET064.0
      DO 380 IDY=1,NDAYS                                                 MET0650
C***CALCULATE THE DAY NO AND THE TIME OF SUNRISE AND SUNSET              MET0660
      DAY1 = IDAY-t-IDFAC(IMONTH,LYS)                                        MET0670
C***CONSTANT 0.0172028=360./365.242*57.29578                             MET0680
C***DETERMINE THE ANGULAR(RADIANS) FRACTION OF A YEAR FOR THIS DATE.     MET0690
      DAYNO=(DAY1-1.0)*0.0172028                                         MET0700
      TDAYNO=2.*DAYNO                                                    MET0710
      SIND=SIN(DAYNO)                                                    MET0720
      COSD=COS(DAYNO)                                                    MET0730
      SINTD=SIN(TDAYNO)                                                  MET0740
      COSTD=COS(TDAYNO)                                                  MET07-50
C***ACCOUNT FOR ELLIPTICITY OF EARTH'S ORBIT.                            METOT^O
      SIGMAr279.9348 + (DAYNO*CONST) + 1.9l4827*SIND-0.079525*COSD-t-0.019938* METOT70
     1SINTD~0.00162*COSTD                                                MET0780
C***CONSTANT 0.39785=31N(.4091720193=23.44383/57.29578)                  METO^go
C***FIND THE SINE OF THE SOLAR DECLINATION.                              MET0800
      DSIN=0.39785*SIN(SIGMA/CONST)                                      MET0810
      DCOS=SQRT(1-0~DSIN*DSIN)                                           MET0820
C***DETEHMINE TIME(HRS) OF MERIDIAN PASSAGE                              MET0830
      AMM=12.0+0.12357*SIND~0.004289*COSD+0.153809*SINTD+0.060783*COSTD  MET0840
      HCOS=(-SINLAT*DSIN)/(COSLAT*DCOS)                                  MET0850
C***DETERMINE SOLAR HOUR ANGLE OF SUNRISE-SUNSET.                        MET0860
      H2=(ATAN2(SQRT(1.-HCOS*HCOS),HCOS)/15.0)'CONST                     MET0870
C***TIME OF SUNRISE(TSR) AND TIME OF SUNSET(TSS) ARE EXPRESSED IN        MET0880
f***LOCAL STANDARD TIME SINCE THE ZONE CORRECTION HAS ALREADY BEEN MADE. MET0890
C***OTHERWISE THEY WOULD BE IN GREENWICH MEAN TIME.                      MET0900
      TSR=AMM~H2+DUM                                                     MET0910
      TSS=AMM+H2+DUM                                                     MET0920
      RAND(1)=FAND(24)»100000.                                           MET0930
C***THIS CALL TO THE UNIVAC RANDOM NO. GENERATOR PROVIDES 24 UNIFORMLY   MET0940
C***DISTRIBUTED NUMBERS BETWEEN 0 AND 1.                                 MET0950
C***IF THIS ROUTINE IS NOT RUN ON A UNIVAC MACHINE, THE RANDOM NO.       MET0960
C***GENERATOR FOR THE USER'S SYSTEM MAY BE SUBSTITUTED.                  MET0970
      CALL RANDU (RAND,24)                                               MET0980
C***START HOUR LOOP                                                      MET0990
      DO 370 KHR=1,24                                                    MET1000
      KHRC=KHR                                                           MET1010
C***INITIALIZE STABILITY BEFORE IT IS CALCULATED                         MET1020
      KST(KHR)-0                                                         MET1030
      IF (KHR.EQ.24) GO TO 7Q                                            MET1040
C***CHECK DATA FOR CORRECTNESS & CONTINUITY                              MET1050
C***CHECK STATION NUMBER.                                                MET1060
      IF (ID.EQ.IDC) GO TO 10                                            MET1Q70
      WRITE (10,460) IREC,ID,IDC                                         MET1080
      WRITE (10,510)                                                     MET1090
      CALL EXIT                                                          METHOD
C***CHECK YEAR.                                                          MET1110
10    IF (IYEAR.EQ.IYRC) GO TO 20                                        MET1120
      WRITE (10,470) IYEAR,IYRC,:REC                                     METIISO
      WRITE (10,510)                                                     MET1140
      CALL EXIT                                                          MET1150
                                       42

-------
C«»«CHECK MONTH
20
C**»
IF (IMONTH.EQ.IMO) GO TO 40
IF (IMONTH.EQ.(IMO+D) GO TO 30
WRITE (10,480) IMONTH.IMO.IREC
      WRITE (10,510)
      CALL EXIT
30    IMO=IMONTH
C***CHECK DAY
40    IF (IFIX(DAYD.EQ.IDY) GO TO 50
      WRITE (10,490) DAY1,IDY,IREC
      WRITE (10,510)
      CALL EXIT
C*»»CHECK HOUR
50    IF (IHOUR.EQ.KHRC) GO TO 80
      WRITE (10,500) IHOUR,KHR,IREC
      WRITE (10,510)
      GO TO 370
60    WRITE (10,520) KHR,IREC,IHOUR
      CALL EXIT
70    IF (IHOUR.NE.O) GO TO 60
      KHRC=IHOUR
C»**UPDATE MIXING HEIGHTS- STARTING NEW DAY.
      XMNM1=XMN
      XAFM1=XAF
      XMN=XMNP1
      XAF=XAFP1
C***READ NEXT DAYS MIXING HEIGHTS.
      READ (IN,430,END=80) XMNP1,XAFP1
80    DO 90 JK=1,11
      IF (ICOVER.EQ.IDIG(JK)) GO TO 100
90    CONTINUE
      JK=11
      WRITE (10,530) ICOVER
100   ISKY=JK-1
      IF (ICEIL(1).NE.IDIG(11)) GO TO 110
      IDG(1)=9
      IDG(2)=9
      IDG(3)=8
      GO TO 150
110   DO 140 JI=1,3
      DO 120 JK=1,10
      IF (ICEIL(JI).EQ.IDIG(JK)) GO TO 130
120   CONTINUE
130   IDG(JI)=JK-1
140   CONTINUE
150   IROOF=IDG(1)*100+IDG(2)*10+IDG(3)
C***IROOF IS CEILING HEIGHT IN HUNDREDS OF FEET.
C***CONVERT TEMP  FROM FAHRENHEIT TO KELVIN
      TEMP(KHR)=0.5556*(ITEMP-32.)+273.15
C»**CONVERT WIND  SPEED  FROM KNOTS TO METERS/SEC
      S=ISPEED*0.51444
C***WIND SPEED  IS SET TO 1 METER/SEC
      IF (S.LT.1.0) S=1.0
      SPEED(KHR)=S
C***CHECK FOR CALMS
      IF (IDIR.EQ.O) GO  TO 160
C***WIND DIRECTION IS ASSUMED TO BE THE SAME AS FOR THE LAST HOUR
C***IF THE WIND DIRECTION IS  REPORTED AS "CALM".
      LWD=IDIR
      GO TO 170
160   IDIR=LWD
MET1160
MET1170
MET1180
MET1190
MET1200
MET1210
MET1220
MET1230
MET1240
MET1250
MET1260
MET1270
MET1280
MET1290
MET1300
MET1310
MET1320
MET1330
MET1340
MET1350
MET1360
MET1370
MET1380
MET1390
MET1400
MET1410
MET1420
MET1430
MET1440
MET1450
MET1460
MET147Q
MET1480
MET1490
MET1500
MET1510
MET1520
MET1530
MET1540
MET1550
MET1560
MET1570
MET1580
MET1590
MET1600
MET1610
MET1620
MET1630
MET1640
MET1650
MET1660
MET1670
MET1680
MET1690
MET 1700
MET1710
MET1?20
MET1730
MET1740
MET175Q
MET1760
MET177Q
                                       43

-------
170   XDIR=IDIR*10.
C***CALCULATE FLOW VECTOR AND RANDOM FLOW VECTOR
      IF (XDIR.GT.180.) GO TO 180
      FV=XDIR+180.
      GO TO 190
180   FV=XDIR-180.
190   AFV(KHR)=FV
      IRAND=RAND(KHR)*10.
C*»*IRAND IS SINGLE DIGIT FROM 0 TO 9.
      FVR(KHR)=FV+IRAND-4.0
      IF (FVR(KHR).GT.360.) FVR(KHR)=FVR(KHR)-360.
C***DETERMINE RADIATION INDEX.
      IF (ISKY.EQ.10.AND.IROOF.LT.70) GO TO 200
      IF (IHOUR.GT.TSR.AND.IHOUR.LT.TSS) GO TO 210
      IRADX=2
      IF (ISKY.LE.4) IRADX=1
      GO TO 280
200   IRADX=3
      GO TO 280
C***DETERMINE THE ANGLE OF ELEVATION
C***DETERMINE SOLAR HOUR ANOLE(RADIANS)
210   HI=(15.*(KHRC-AMM)+TEMPZ)/CONST
      ALFSN=SINLAT*DSIN+DCOS*COSLAT*COS(HI)
C***DETERMINE SOLAR ELEVATION ANGLE(DEG).
      ALF=ATAN2(ALFSN,SQRT(1.-ALFSN*ALFSN))*CONST
      DO 220 1=1,3
220   IF (ALF.GT.ANGL(D) GO TO 230
      1 = 4
230   ICN=5-I
      IF (ISKY.GT.5) GO TO 240
      IRADX=ICN+3
      GO TO 280
240   IRADX=ICN-1
      IF (IROOF.LT.70) GO TO 250
      IF (IROOF.LT.160) GO TO 260
      IF (ISKY.EQ.10) GO TO 270
      IRADX=ICN
      GO TO 270
250   IRADX=ICN-2
      GO TO 270
260   IF (ISKY.EQ.10) IRADX=IRADX-1
270   IF (IRADX.LT.1) IRADX=1
      IRADX=IRADX+3
280   IND=ISPEED
      IF (ISPEED.GT.12) IND=12
      IF (ISPEED.LE.1) IND=1
C«»»DETERMINE STABILITY.
      KST(KHR)=LSTAB(IND,IRADX)
C»*»DO NOT ALLOW STABILITY TO VARY RAPIDLY
      IF (IDY.EQ.1.AND.KHR.EQ.1) LST=KST(KHR)
      IF ((KST(KHR)-LST).GT.I) KST(KHR)=LST-t-1
      IF ((LST-KST(KHR)).GT.1) KST(KHR)=LST-1
      LST=KST(KHR)
      IF (KST(KHR).LT.1) WRITE (10,540) KST(KHR),IND,IRADX,IREC
C*»»CALCULATE MIXING HEIGHT
      IHR=KHRC
      XHR=IHR
      IF (IHR.GT.14.AND.XHR.LE.TSS) GO TO 300
      IND=2
      IF (XHR.LE.TSS) GO TO 310
      IF (KST(KHR).EQ.4) GO TO 290
      HLH(2,KHR)=XAF+(XMNP1-XAF)*((XHR-TSS)/(24.-TSS))
MET1780
MET 1^90
MET1800
MET1810
MET 1820
MET1830
MET 1840
MET1850
MET 1860
MET187Q
MET1880
MET1890
MET1900
MET1910
MET1920
MET1930
MET1940
MET1950
MET1960
MET1970
MET1980
MET1990
MET2000
MET2010
MET2020
MET2030
MET2040
MET2050
MET2060
MET207Q
MET2080
MET2090
MET2100
MET2110
MET2120
MET2130
MET2140
MET2150
MET2160
MET217Q
MET2180
MET2190
MET2200
MET2210
MET2220
MET2230
MET2240
MET2250
MET2260
MET2270
MET2280
MET2290
MET2300
MET2310
MET2320
MET2330
MET2340
MET2350
MET2360
MET2370
MET2380
MET2390
                                       44

-------
      IND=1                                                              MET2HOO
290   HLH(lND.KHR)=XAF+(XAFP1-XAF)»((XHR-TSS)/(38.-TSS))                 MET2410
      IF (IND.EQ.2) HLHd,KHR)sHLH(2,KHR)                                MET2420
      GO TO 360                                                          MET2430
300   HLH(1,KHR)=XAF                                                     MET2440
      HLH(2,KHR)=XAF                                                     MET2450
      GO TO 360                                                          MET2460
310   IF (XHR.GT.TSR) GO TO 330                                          MET247Q
      KSTSP=KST(KHR)                                                     MET2480
      IF (KST(KHR).EQ.4) GO TO 320                                       MET2490
      HLH(2,KHR)=XMN                                                     MET250CT
      IND=1                                                              MET2510
320   HLH(lND,KHR)sXAFM1+(XAF-XAFM1)«((24.-TSS+XHR)/(24.-TSS+l4.))       MET2520
      IF (IND.EQ.2) HLH(1,KHR)=HLH(2,KHR)                                MET2530
      GO TO 360                                                          MET2540
330   IF (KSTSP.EQ.4) GO TO 350                                          MET2550
      flLH(2,KHR)=XMN+(XAF-XMN)«((XHR-TSR)/(l4.-TSR))                     MET2560
      HLH(1,KHR)=XAF«(XHR-TSR)/(14.-TSR)                                 MET2570
      GO TO 360                                                          MET2580
340   IFLAG=1                                                            MET2590
      IHOUR=0                                                            MET26QO
      GO TO 370                                                          MET2610
350   HLH(1,KHR)sXAFM1+(XAF-XAFM1)»((24.-TSS+XHR)/(24.-TSS+14.))         MET2610
      HLH(2,KHR)=HLH(1,KHR)                                              MET2630
C«»»READ NEXT HOUR'S MET DATA                                            MET2640
360   IF (IFLAG.EQ.1) GO TO 390                                          MET2650
C««»STORE CORRECT MONTH AND DAY FOR DAILY PRINTOUT, SINCE 24TH HOUR LABE MET2660
      IF(KHR.NE.23) GO TO 365                                            MET2670
      LMON=IMONTH                                                        MET2680
      LDAYsIDAY                                                          MET2690
365   READ (8,420,END=340) ID,IYEAR,IMONTH,IDAY,IHOUR,ICEIL,IDIR,ISPEED, MET2700
     1ITEMP.ICOVER                                                       MET2710
      IRECsIREC+1                                                        MET2720
C»»«END OF HOUR LOOP.                                                    MET2730
370   CONTINUE                                                           MET2740
C***WRITE DAYS CALCULATION ON TO FILE                                    MET2750
C*»*EACH ARRAY CONTAINS THE COMPLETE INFORMATION FOR ONE DAY ORDERED     MET2760
CONSEQUENTIALLY FROM HOUR 01 THRU 24                                    MET277Q
      WRITE (9) IYEAR,LMON,DAY1,KST,SPEED,TEMP,AFV.FVR.HLH               MET2V80
      WRITE (10,550) IYEAR,LMON,LDAY,DAY1,TSR,TSS                        MET2790
      WRITE (10,560) KST                                                 MET2800
      WRITE (10,570) SPEED,TEMP,AFV,FVR,((HLH(I,J),J = 1,24) ,1=1 ,2)        MET2810
C***END OF DAY LOOP.                                                     MET2820
380   CONTINUE                                                           MET2830
390   WRITE (9) IYEAR,LMON,DAY1,KST,SPEED,TEMP ,AFV ,FVR ,HLH               MET2840
      WRITE (10,550) IYEAR,LMOM,LDAY,DAY1,TSR,TSS                        MET2850
      WRITE (10,560) KST                                                 MET2860
      WRITE (10,570) SPEED,TEMP,AFV,FVR,((HLH(I,J),J = 1 ,24),1=1,2)        MET2870
      WRITE (10,580)                                                     MET2880
      CALL EXIT                                                          MET2890
C                                                                        MET2900
400   FORMAT (15,12,1X,2F10.1,F2.0,14,F10.0)                             MET2910
410   FORMATC1',1   RAMMET - VERSION 78124V1X,                         MET2911
     *' STATION NUMBER=',I5,5X,'YEAR OF DATA=',I2/1X,                    MET2920
     •'LATITUDES',F10.1,'   LONGITUDE=',FIO.I,'   ZONE=',F4.o/ix,           MET2930
     *!NUMBE;H OF DAYS IM YEAR=',i3,'  RANDOM SESD=' .FIO.O)               MET2940
420   FORMAT (15,412,3A1,22X ,212,4X,13,29X,A1)                            rtfcT2950
430   FORMAT (12X,F5.0,13X,F5.0)                                         MET2960
440   FORMAT (15,12,5X,F5.0,13X.F5 .0)                                    MET297Q
450   FORMAT (1X , '19' , 12 , ' SURFACE DATA AT STATION ',15,1 OX , '19' , 12 , '  MI MET2980
     1XING HEIGHT DATA AT STATION ',15)                                  MET2990
460   FORMAT (' ID DOES NOT MATCH IM RECORD     ',14,'  ID ON TAPE IS ',15 MET3000
                                       45

-------
     *,'  ID REQUESTED IS ',15)                                           MET3010
470   FORMAT (' YEAR IS',13,'  INSTEAD OF ',12,'  IREC=',I4)                MET3020
480   FORMAT (' MONTH ',12,'  DOES NOT AGREE WITH LOOP ',12,'  IREC=',I4)   MET3030
490   FORMAT (' DAY ',F4.0,'  DOES NOT AGREE WITH LOOP ',12,'  IREC=',I4)   MET3040
500   FORMAT (' HOUR ',12,' DOES NOT AGREE WITH  LOOP ',12,'  IREC=',I4)   MET3050
510   FORMAT (' *****DATA IS  MISSING. PLEASE CORRECT INPUT FILE*****')   MET3060
520   FORMAT (' ERROR:  MISSING HOUR LOOP VALUE=  ',13,'  WHILE  VALUE ','ON MET3Q7Q
     1  RECORD ',17,' IS =  ',13)                                          MET3080
530   FORMAT (' THE CHARACTER  ',A1,' IS NOT ALLOWABLE.','  CLOUD COVER DE MET3090
     1FAULTS TO 10.')                                                    MET3100
540   FORMAT (' STABILITY:',414)                                         MET3110
550   FORMAT (' IYEAR=',I2,'  IMONTH=',12,'  DAY=',I2,' JULIAN  DAY=',       MET3120
     *F5.0,' SUNRISE=',F7.3,'   SUNSET=',F7.3)                             MET3130
560   FORMAT (' KST= ',24(11,4X))                                        MET3140
5?0   FORMAT (' SPEED=   ',24(F4.1,1X)/' TEMP=',24(F4.0,1X)/'  AFV= ',24(F MET3150
     14.0.1X)/' FVR=',24(F4.0,1X)/' HLH1=',12(F5.0,1X)/6X,12(F5.0,1X)/'   MET3160
     2HLH2=',12(F5.0,1X)/6X,12(F5.0,1X))                                 MET3170
580   FORMAT (' ALL RECORDS HAVE BEEN PROCESSED')                         MET3180
C                                                                        MET3190
      END                                                                MET3200
                                        46

-------
                 5.
RAM - INPUT FORMATS AND EXAMPLE RUNSTEAMS
RAMDOC

C***RAM IS AN EFFICIENT GAUSSIAN-PLUME  MULTIPLE-SOURCE
C***AIR QUALITY ALGORITHM. RAM  IS  DESCRIBED  IN:  NOVAK,J.H., AND
C***TURNER,D.B., 1976: AIR POLLUTION  CONTROL ASSOC.  J.,  VOL. 26, NO. 6,
C***PAGES 570-575(JUNE 1976). RAM'S PRINCIPAL USE IS TO  DETERMINE
C***SHORT TERM(ONE-HOUR TO ONE-DAY) CONCENTRATIONS FROM  POINT AND
C***AREA SOURCES IN URBAN AREAS.(RAMR FOR RURAL  AREAS)

C***THREE SYSTEMS OF  LENGTH  AND COORDINATES  ARE  USED IN  RAM:
C*** THE FIRST SYSTEM, USER  UNITS,  IS SELECTED BY THE USER AND
C***  NORMALLY USES THE COORDINATE SYSTEM OF THE EMISSION INVENTORY.
C***  ALL LOCATIONS INPUT BY THE USER(SUCH AS SOURCES AND RECEPTORS)
C***  ARE IN THIS SYSTEM. ALSO  AS  A CONVENIENCE  TO THE USER ALL
C***  LOCATIONS ON OUTPUT ARE ALSO IN THIS SYSTEM.
C*** THE SECOND SYSTEM, INTERNAL UNITS, IS USED  INTERNALLY IN RAM
C***  FOR COORDINATE  LOCATIONS  AND DISTANCES. ONE INTERNAL UNIT IS THE
C***  SIDE LENGTH OF  THE SMALLEST  AREA  SOURCE SQUARE. THIS LENGTH MUST
C***  BE IDENTIFIED AND SPECIFIED  BY  THE USER. THE PURPOSE OF USING
C***  INTERNAL UNITS  IS TO HAVE A  CORRESPONDENCE BETWEEN LOCATION(GRID
C***  COORDINATES) AND PARTICULAR  AREA  SOURCE POSITIONS. THIS IS
C***  ACCOMPLISHED THROUGH THE  USE OF THE AREA SOURCE MAP ARRAY(IA ARRAY
C***  ). THIS ALLOWS  DETERMINATION AS TO WITHIN  WHICH AREA SOURCE ANY
C***  COORDINATE POINT RESIDES.
C*** THE THIRD SYSTEM,X,Y, IS AN UPWIND, CROSSWIND COORDINATE SYSTEM
C***  WITH REFERENCE  TO EACH RECEPTOR.  THE X-AXIS IS DIRECTED UPWIND
C***  (SAME AS WIND DIRECTION FOR  THE PERIOD). IN ORDER  TO DETERMINE
C***  DISPERSION PARAMETER VALUES  AND EVALUATE EQUATIONS FOR
C***  CONCENTRATIONS, DISTANCES IN THIS SYSTEM MUST BE IN KILOMETERS.
C***

*****    CARD INPUT TO RAM (OR  RAMR)   *****

CARD 1  (13A6.A2)   LINE1     80 CHARACTER TITLE
 EXAMPLE:
 RUN BY: ED KRENSHAW, AIR &  HAZARDOUS MATER. DIV., REGION XV, EPA(1 JAN 78)
CARD 2 (13A6.A2)   LINE2
 EXAMPLE:
 EMISSIONS: TEST CITY,  1973
     80 ALPHA CHARACTERS  OF  INFORMATION
CARD 3 (13A6.A2)   LINE3      80  ALPHA  CHARACTERS  OF INFORMATION
 EXAMPLE:
 SFC MET DATA: TEST CITY  1973; UPPER AIR:  TEST CITY  1973.


CARD 4 (FREE FORMAT)  IOPT,NPER,NAVG,Z,HAFL,NSIGP,NSIGA,IDATE,IHSTRT
  IOPT - OPTIONS  (THIRTEEN  DIFFERENT ONES) CODED:  1= USE OPTION, 0= DON'T USE.
  IOPT(1)  POINT  SOURCE INPUT?
  IOPT(2)  AREA   SOURCE INPUT?
  IOPT(3)  ENTERING PERMANENT RECEPTOR  COORDINATES?
                                        47

-------
IOPT(4)  SIGNIFICANT  POINT RECEPTORS GENERATED?
IOPT(5)  SIGNIFICANT  AREA  RECEPTORS GENERATED?
IOPT(6)  HONEYCOMB  RECEPTORS GENERATED?
IOPT(7)  HOURLY  OUTPUT?
IOPT(8)  PARTIAL CONCENTRATIONS WRITTEN  TO  DISK?
       THE PARTIAL  CONCENTRATION FILE  IS A  RECORD OF THE CONTRIBUTION
       OF EACH SOURCE TO EACH RECEPTOR FOR  EACH  HOUR.
       SEE PARTC FOR  DESCRIPTION OF FILE FORMAT.
IOPT(9)  PRINT HOURLY SUMMARIES RATHER THAN FULL  HOURLY OUTPUT?
       THIS OPTION  SHOULD BE USED  ONLY  IF  OPTION 7 IS REQUESTED.
       THE EFFECT IS  TO REDUCE THE AMOUNT OF PRINTOUT FROM 3 OR MORE
       PAGES/HOUR TO  1 PAGE/HOUR BY ELIMINATING  OUTPUT OF SOURCE-
       RECEPTOR  CONTRIBUTION TABLES.
IOPT(10) PUNCH CONCENTRATIONS OH CARDS FOR  EXTERNAL USE (SUCH AS PLOTTING)
       ONE CARD  IS  PUNCHED FOR EACH RECEPTOR FOR  EACH AVERAGING PERIOD.
       IT CONTAINS  RECEPTOR COORDINATES  IN  USER  UNITS, TOTAL CONCENTRATION,
       THE CONTRIBUTION FROM AREA SOURCES,  AND THE CONTRIBUTION FROM  POINT
       SOURCES(!1ICROGRAMS/M**3).SEE PUNCHCARD FOR DESCRIPTION OF OUTPUT  FORMAT
IOPT(11) INPUT METEOROLOGICAL DATA ON  CARDS?
IOPT(12) SPECIFY SIGNIFICANT SOURCES?
       RAM INTERNALLY DETERMINES THE ORDER  OF SIGNIFICANCE FOR BOTH  POINT  AND
       AREA SOURCES.  THE USER SHOULD EMPLOY OPTION 12 ONLY IF THERE  IS A
       PARTICULAR SOURCE OF INTEREST WHICH  WAS NOT CONSIDERED TO BE
       SIGNIFICANT  BY RAM(I.E. IS HOT  INCLUDED ON THE PRINTOUT). IF  THE  USER
       WISHES  TO ADD  A SIGNIF. POINT SOURCE BUT  NOT A SIGNIFICANT AREA SOURCE,
       BOTH CARD TYPE 6 AND 9 MUST BE  INCLUDED IF BOTH POINT AHD AREA  SOURCES
       ARE BEING CONSIDERED AND INAS SHOULD BE SET TO 0.

IOPT(13) READ  HOURLY  EMISSIONS?
NPER     THE NUMBER OF PERIODS TO BE RUN
NAVG     THE NUMBER OF HOURS IN THE AVERAGING TIME(PERIOD)
       IF THE  AVERAGING TIME IS 24 HOURS, HPER IS EQUIVALENT TO THE  NUMBER  OF
       DAYS TO BE RUN.
Z        RECEPTOR HEIGHT ABOVE GROUND  (METERS) (ALL MUST BE AT SAME  HEIGHT).
HAFL     POLLUTANT  HALF-LIFE (SECONDS).
NSIGP    NO. OF  SIGNIFICANT POINT SOURCE(MAX-25), MAY BE LESS THAN  IN  RAMQ
NSIGA    NO. OF  SIGNIFICANT AREA SOURCES(MAX-10), MAY BE LESS THAN  IN  RAMQ
IDATE(l) 2 DIGIT YEAR
IDATE(2) STARTING JULIAN DAY FOR THIS  RUH
IHSTRT   STARTING HOUR FOR THIS RUN

       RESTRICTIONS OH INPUT PARAMETERS  FOR RAM

       1) IF METEOROLOGICAL DATA HAS BEEN PREPROCESSED USING RAMMET  OR THE
        CRSTER PREPROCESSOR:
         (A) THE STARTING HOUR(IHSTRT) MUST EQUAL 1.
         (B) THE STARTING JULIAN DAY(IDATE(2)) MUST BE BETWEEN 1 AND 366.
             THE MET. FILE WILL AUTOMATICALLY BE POSITIONED TO THE  CORRECT  DAY
         (C) IF  MULTIPLE DAYS ARE TO BE  RUN, THE AVERAGING TIME(NAVG)  MAY  BE
             1,2,3,4,6,8,12, OR 24. FOR  OTHER AVERAGING TIMES<=24,  THE TOTAL
             NUMBER OF HOURS RUN(HAVG*NPER) MUST NOT EXCEED 24.
         (D) NON-CONSECUTIVE DAYS OR PERIODS MUST BE RUN SEPARATELY.

       2) IF METEOROLOGICAL DATA IS TO BE  INPUT  ON CARDS:
         (A) THE STARTING HOUR(IHSTRT) MAY  RANGE BETWEEN 1 AND 24  INCLUSIVELY.
         (B) THE STARTING JULIAN DAY (IDATE(2)) MUST AGREE WITH THE  DATE  ON  THE
             FIRST  INPUT CARD. NO FILE MANIPULATION IS DONE.
         (C) THE AVERAGING TIME(NAVG)  MAY ALSO RANGE BETWEEN  1 AND  24.
         (D) NON-CONSECUTIVE DAYS OR PERIODS CAN BE PROCESSED IN THE SAME  RUN.
             HOURS  WITHIN A PERIOD MUST  BE  CONSECUTIVE AND EACH  PERIOD MUST
             HAVE THE SAME AVERAGING TIME.
                                         48

-------
 EXAMPLE:
1,1,1,1,1,1,1,1,0,1,1,1,1,  1, 2, 0.0, 14400.,  5,  10,  73,  001,1


CARD TYPE 5  (FREE  FORMAT)  ISFCD,ISFCYR,IMXD,IMXYR
   THIS  CARD  IS  REQUIRED ONLY IF IOPT(11)=0
  ISFCD    SURFACE METEOROLOGICAL STATION IDENTIFICATION.
  ISFCYR   YEAR  OF SURFACE  DATA - 2 DIGITS.
  IMXD     IDENTIFICATION  OF RADIOSONDE STATION USED  TO DETERMINE
            MIXING HEIGHT.
  IMXYR    YEAR  OF MIXING  HEIGHT DATA - 2 DIGITS.
 EXAMPLE:
93815, 73, 93815,  73

CARD TYPE 6  (2613)  INPT.HPS
     THIS CARD IS  REQUIRED  ONLY IF IOPT(1)=1 AND  IOPT(12)=1
 IHPT      THE NUMBER OF USER SPECIFIED SIGNIFICANT  POINT  SOURCES, COUNT(MAX-25)
 MPS       POINT SOURCE NUMBERS USER WANTS  TO  CONSIDER  SIGNIFICANT(I.E., CONC.
            CONTRIBUTIONS  FROM SIGNIF. SOURCES ARE PRINTED OH OUTPUT)

EXAMPLE:
  1  7
CARD TYPE 7  (FREE  FORMAT)  FH,XLIM,NHTS,(HINT(I),1=1,NHTS)
    THIS CARD  IS REQUIRED  ONLY IF IOPT(2)«1
  FH       FRACTION  OF  AREA SOURCE HEIGHT WHICH  IS  PHYSICAL HEIGHT
  XLIM     DISTANCE  LIMIT  ON INTEGRATION FOR AREA  SOURCE(USER UNITS).  IN ORDER
             FOR CALCULATED CONCENTRATIONS FROM AREA SOURCES TO BE DETERMINED
             CORRECTLY,  XLIM SHOULD BE EQUIVALENT TO THE  GREATEST DISTANCE FROM
             ANY RECEPTOR(INCLUDING THOSE GENERATED BY  THE  ALGORITHM) TO ANY PART
             OF AN  AREA  SOURCE. IF RECEPTORS ARE  OUTSIDE  THE AREA SOURCE REGION,
             XLIM WILL BE THE DISTANCE FROM THE RECEPTOR  FARTHEST FROM THfi AREA
             SOURCE REGION  ACROSS THE AREA SOURCE TO THE  CORNER FARTHEST AWAY
             FROM THE RECEPTOR. IF ALL RECEPTORS  ARE INSIDE THE AREA SOURCE
             REGION,  XLIM IS THE GREATEST POSSIBLE  DISTANCE FROM A RECEPTOR TO A
             CORNER OF THE  AREA SOURCE REGION. XLIM  IS  ENTERED IN USER UNITS.
             IF XLIM  IS  TOO SHORT THE CALCULATED  CONCENTRATIONS WILL BE TOO LOW.
             IF XHM  IS  TOO LARGE COMPUTATION TIME  IS  INCREASED. XLIM CANNOT
             EXCEED 116  KM.
  NHTS       INTEGER  NUMBER OF HEIGHTS TO BE USED FOR AREA  SOURCES(MIN-1,MAX-3)
  HINT     HEIGHT(S) (METERS) FOR AREA SOURCE INTEGRATIONS. THIS IS AN ARRAY OF
             FROM ONE TO THREE ELEMENTS.
 EXAMPLE:
 .75, 25., 3,  11.,15.,20.
CARD TYPE 8  (FREE  FORMAT)   (BPH(I),1-1,NBP)
     THIS CARD  IS  REQUIRED ONLY WHEN CARD TYPE  7
IS USED
  BPH      BREAKPOINT  HEIGHTS (METERS) BETWEEN AREA  SOURCE HEIGHTS. THESE VALUES
            DEFINE  THE BOUNDS OF HEIGHTS CLASSES. ANY  AREA SOURCE FALLING
            WITHIN  THE HEIGHT CLASS WILL USE THE SPECIFIED REPRESENTATIVE
            HEIGHT(HINT)  FOR -THAT CLASS DURING THE INTEGRATION.  BPH IS AN
            ARRAY OF TWO  ELEMENTS. ONE VALUE WILL BE READ IF NHTS ON PREVIOUS
            CARD IS  1  OR  2.  TWO VALUES READ FOR NHTS • 3.  BPH AND HINT CAN
            USUALLY  BE CHOSEN BY EXAMINING THE QUANTITY OF AREA SOURCE EMISSIONS
            WITH HEIGHT WHICH IS GIVEN AS PART OF THE  RAMQ OUTPUT. IT IS
            DESIRABLE  TO  CHOOSE AS REPRESENTATIVE HEIGHTS FROM AREA SOURCES AS
            POSSIBLE.IF NHTS IS 1, THE VALUE OF BPH  MUST BE LARGER THAN
            ANY AREA HEIGHT  IN THE DATA SET FOR THE  RUN.

-------
EXAMPLE:
13., 17.
CARD TYPE 9  (2613)  INAS.MAS
     THIS CARD IS REQUIRED  ONLY IF IOPT(2)-1 AND  IOPT(12)-1
 INAS      THE NUMBER  OF USER SPECIFIED SIGNIFICANT  AREA  SOURCES,  COUNT(MAX-10)
 MAS       AREA  SOURCE NUMBERS USER WANTS TO CONSIDER  SIGNIFICANT(I.E. CONC.
             CONTRIBUTIONS FROM SIGNIF. SOURCES ARE PRINTED  ON OUTPUT)

EXAMPLE:
  0


CARD TYPE 10   (2A4.2F10.3)  (RNAME(J.NRECEP),J-l,2),RREC(NRECEP),SREC(NRECEP)
      ONE CARD FOR  EACH INPUT RECEPTOR; LAST RECEPTOR  CARD  MUST  BE BLANK.
      REQUIRED ONLY IF IOPT<3)-1


  RNAME   ALPHA-NUMERIC STATION IDENTIFIER  (8 CHARACTERS).
  RREC    EAST COORDINATE OF RECEPTOR  (USER UNITS).
  SREC    NORTH  COORDINATE  OF RECEPTOR (USER UNITS).
      NOTE : THE  SUM OF RREC AND SREC  EQUAL TO ZERO  IS USED  TO TRANSFER
       CONTROL SIGNALING THAT THE LAST RECEPTOR CARD HAS  BEEN READ.
       A COORDINATE SCHEME  SHOULD BE SELECTED PRIOR  TO RUNNING RAMQ SO THAT ALL
       SOURCES AND  RECEPTORS HAVE POSITIVE  EAST(R) AND NORTH(S)  COORDINATES.
 EXAMPLE:
RECEP 1   566.00    4405.0
CARD TYPE  11  (FREE  FORHAT)  GRIDSP,HRMIN,HRMAX,HSMIN,HSMAX
  THIS CARD IS  REQUIRED ONLY IF IOPT(6)=1
  HONEYCOMB BOUNDARIES (HONEYCOMB RECEPTORS  WILL  BE  GENERATED ONLY FOR
  THE AREA DEFINED  BY THESE BOUNDS)
   NOTE, IF BOUNDARY VARIABLES ARE INPUT AS  ZERO  BOUNDARIES WILL BE THE SAME AS
   THE AREA SOURCE  REGION.  HOWEVER IF NO AREA SOURCES  ARE INPUT AND IF
    HONEYCOMB RECEPTORS ARE TO BE GENERATED, THIS  CARD MUST BE INCLUDED
    TO PROVIDE  THE  BOUNDS FOR RECEPTOR  GENERATION.
  CRIDSP   GRID  SPACING (DISTANCE BETWEEN)  FOR HOtiEYCOMB RECEPTORS  (USER UNITS).
           MINIMUM EAST  COORDINATE (USER UNITS).
                         COORDINATE (USER UNITS).
  HRMIN
  HRMAX
  HSMIN
  HSMAX
 EXAMPLE:
 2.0,  570., 578
MAXIMUM EAST
MINIMUM NORTH COORDINATE  (USER UNITS).
MAXIMUM NORTH COORDINATE  (USER UNITS).
                   4400., 4408.
CARD TYPE  12  (FREE FORMAT) JYR,DAY 1,JHR,IKST(JHR),QU(JHR),QTEMP(JHR),
           QTHETA(JHR) , QI1L (JUR)
     THESE CARDS  CONTAIN HOURLY SURFACE  METEOROLOGICAL OBSERVATIONS  AND ARE
     REQUIRED  ONLY IF  IOP(11)=1. THERE  SHOULD  BE  A CARD FOR EACH HOUR TO BE
     MODELED.  IF  IOPT(11)=0 THE MET DATA IS ASSUMED TO COME FROM RAI1MET.
                YEAR OF MET. DATA
                JULIAN  DAY OF MET. DATA
                HOUR OF tlET. DATA
                STABILITY CLASS FOR  THE  JHR-TH  HOUR
                WIND SPEED(M/SEC) FOR THE JHR-TH  HOUR
                AMBIENT AIR TEMPERATURE (DEG-KELVIII)  FOR THE  JHR-TH HOUR
                WIND DIR.(DEG) FOR JHR-TH HOUR(FROli WHICH THE WIND IS BLOWING)
                MIXING  HEIGHT(METERS) FOR THE JHR-TH HOUR
  JYR
  DAY1
  JHR
  IKST(JHR)
  QU (JHR)
  QTEIiP (JHR)
  QTHETA(JHR)
  QHL(JHR)
EXAMPLE:
73,1,1,4,6.17,269.82,33.0,429.11
                                        50

-------
*********poSSIBLE DISK OR TAPE INPUr TO RAM  *****

1) ANNUAL  OR  AVERAGE EMISSION DATA IS REQUIRED  FOR  THE EXECUTION OF RAM.
THE MODEL  EXPECTS THESE EMISSIONS ON UNIT  9  IN  THE  FORMAT AS OUTPUT FROM THE
EMISSIONS  PREPROCESSOR, RAHQ. SEE RAMQDOC  FOR A DESCRIPTION OF THE INPUT DATA
FORMAT.
2) HOURLY  METEOROLOGICAL DATA CAN BE INPUT  VIA  CARDS  AS DESCRIBED ABOVE, OR
CAN BE  INPUT  FROM DISK/TAPE ON UNIT  11  IN THE FORMAT  AS OUTPUT FROM THE MET.
PREPROCESSOR,  RAMMET.  THIS OUTPUT FORMAT  IS  EXACTLY THE SAME AS THE OUTPUT FILE
FROM THE MX24SP(  ALSO  CRSTER) PREPROCESSORS. THE  ONLY DIFFERENCE BETWEEN THE
RAMMET  PREPROCESSOR AND THE CRSTER PREPROCESSOR IS THE GENERATED RANDOM NUMBERS.
SEE RAMMETDOC  FOR A DESCRIPTION OF THE  INPUT DATA FORMAT.

3) HOURLY  POINT  SOURCE EMISSION DATA CAN  BE  INPUT FROM DISK OR TAPE ON UNIT  15.
RAM EXPECTS EMISSIONS, ONE RECORD FOR EACH  HOUR,  AS FORTRAN WRITTEN UNFORMATTED
RECORDS CONTAINING THE FOLLOWING DATA:
VARIABLE

IDATP
SOURCE(IPOL,I),I-1,NPT
                         DESCRIPTION

                         DATE(YYDDDHH) WHERE YY-YEAR,DDD>JULIAN DAY,  HH=HOUR
                         THE HOUR'S POINT SOURCE  EMISSIONS(GRAMS/SECOND)
                         FOR EACH OF THE POINT SOURCES  IN  THE  ORDER IN WHICH THEY
                         WERE INPUT INTO RAMQ.(IPOL  HERE IS  THE POLLUTANT TYPE AS
                         SPECIFIED AS INPUT TO RAMQ, 3=S02,  4"PARTICULATE)

4) HOURLY AREA  SOURCE  EMISSION DATA CAN BE INPUT FROM  DISK  OR TAPE ON UNIT 16.
RAM EXPECTS EMISSIONS,  ONE RECORD FOR EACH HOUR, AS FORTRAN WRITTEN  UNFORMATTED
RECORDS CONTAINING  THE  FOLLOWING DATA:
VARIABLE
                         DESCRIPTION
IDATA
ASORC(IPOL,I),1-1,NAS
                         DATE(YYDDDHH) WHERE YY-YEAR,ODD-JULIAN  DAY,  HH=HOUR
                         THE HOUR'S AREA EMISSIONS(GRAMS/SECOND)
                         FOR EACH OF THE AREA SOURCES  IN THE  ORDER IN WHICH THEY
                         WERE INPUT INTO RAMQ.
NOTE: IT IS ASSUMED  THAT THE USER WILL SUPPLY HIS  OWN  SOFTWARE TO PRODUCE THE
HOURLY EMISSION  FILES COMPATIBLE WITH THIS FORMAT.


*****POSSIBLE  DISK AND PUNCHCARD OUTPUT FROM RAM*****

1) CONTRIBUTIONS (MICROGRAMS/M**3) FROM EACH SOURCE  TO  EACH RECEPTOR
ARE WRITTEN TO A FILE(UNIT 10) EACH HOUR IF PARTIAL  CONCENTRATION OUTPUT IS
REQUESTED(IOPT(8)"1).  RECEPTOR LOCATIONS ARE ALSO  RECORDED  EACH
HOUR SINCE THEY  WILL  CHANGE WITH AVERAGE WIND DIRECTION  IF  GENERATED.
SEE PARTC FOR  FILE FORMAT.

2) PUNCH CARDS CONTAINING POINT AND AREA TOTAL CONCENTRATIONS  AT EACH RECEPTOR
FOR THE PERIOD BEING  MODELED MAY BE GENERATED. SEE PUNCHCARD FOR FORMAT.
    *************************************************!

     THE FOLLOWING ECL IS NEEDED TO EXECUTE RAM USING
THE URBAN SIGMAS.  THE PREPROCESSED EMISSION FILE, REFERRED TO AS
RAMQOUT IN THE EXAMPLE ,  MUST CONTAIN THE PREPROCESSOR
OUTPUT FROM RAMQ WHICH SPECIFIED THE USE OF URBAN  SIGMAS.
     THE METEOROLOGICAL DATA CAN BE INPUT EITHER FROM  DISK  OR  CARDS.
THE EXAMPLE ECL  DEMONSTRATES MET DATA INPUT FROM CARDS  IN FREE FORMAT
(PARAMETERS MAY  BE SEPARATED BY COMMAS OR BLANKS).
                                        51

-------
     THE HOURLY EMISSION DATA CAN BE  INPUT  FROM  DISK OR  TAPE.
THE EXAMPLE ECL DEMONSTRATES HOURLY EMISSIONS  INPUT  FROM DISK.
     TO FACILITATE CHECKING TEST RUNS AGAINST  EXAMPLE OUTPUTS  GIVEN IN THE
USERS GUIDE, THE HOURLY EMISSIONS DATA  USED WITH THIS TEST  RUN WAS
THE SAME AS THE AVERAGE EMISSION RATE(INPUT TO RAMQ) FOR EACH  HOUR.

*****EXAMPLE ECL STREAM*****

@RUN,D/R JOBNAME/40,ACCNT-NO/USERID,PROJ-ID,1,50/60
@PASSWD PASSWORD
@ASG,A RAMQOUT.                             .  INPUT  EMISSION FILE  FROM RAMQ
@USE 9,RAMQOUT.
@ASG,A PARTCON.                             .  PARTIAL CONCENTRATION  OUTPUT FILE
@USE 10,PARTCON.
@ASG,A RAMHPOINT.                           .  HOURLY  POINT EMISSION  INPUT FILE
@USE 15,RAMHPOINT.
@ASG,A RAMHAREA.                            .  HOURLY  AREA EMISSION INPUT FILE
@USE 16,RAMHAREA.
@XQT A999*UNAMAP.RAM
RUN BY: ED KRENSHAW, AIR & HAZARDOUS  MATER. DIV., APB, REGION  XV, EPA(1 JAN 78)
EMISSIONS: TEST CITY,  1973
SFC MET DATA: TEST CITY 1973; UPPER AIR:  TEST  CITY   1973
1,1,1,1,1,1,1,',0,1,1,1,1, 1, 2, 0.0,  14400.,  5, 10, 73, 001,1
  1  7
 .75, 25., 3,  11. ,15.,20.
13., 17.
  0  0
RECEP 1   566.00   4405.0
RECEP 2   564.5    4401.5

 2.0, 570., 578., 4400., 4408.
73,1,1,4,6.17,269.82,33.0,429.11
73,1,2,4,4.63,271.48,23.0,401.7
C
C*******************************************-**************************
C
C  THE PRECEEDING RUN  STREAM HAD A RUN  TIME OF 16.65 SECONDS
C  ON THE UNIVAC  1110  AND REQUIRED 39-K WORDS  OF MEMORY
C   (APPROXIMATELY 11,511 WORDS  FOR INSTRUCTIONS  AND 26,959  WORDS  FOR DATA)
                                        52

-------
                             RAM-OUTPUT EXAMPLE

     Figures 3 through 5 show the spatial  relations of the 12 point sources,
the 15 area sources, and the 41 receptors  used in the example problem.   This
emission information is used in the example run-stream for RAMQ on page 20.
The run-stream for RAM for this example is given on the previous page (p.  56).
     Figure 3 shows the locations of the 12 point sources P-l  to P-12 in rela-
tion to the area source region (dashed lines).  Also shown in this figure  are
the 10 receptors (numbers 3-12) generated  downwind of the 5 significant point
sources (sources 7, 5, 8, 9, and 11).
     Figure 4 shows the locations of the 15 area sources (A-l  through A-15)
and the 10 receptors (13 through 22) generated downwind of significant area
sources.
     Figure 5 shows the locations of the 2 input receptors (1  and 2) and the
19 honeycomb receptors (23 through 41).  Note that, because of the existence
of receptors 5, 6, 7, 8, 9, and 10 due to  significant points and receptors
13, 14, 15, 16, and 19 due to significant  areas, a number of the receptors
that might be in a regular pattern of honeycomb receptors are not required.
Each prospective candidate position for a  honeycomb receptor is examined to
see if it is within one-half the spacing between honeycomb receptors of an
already existing receptor.   If it is within this distance, the candidate
position is not used.
                                      53

-------
   C/5
   cc

   I
   111
   o
CM (-    ^
~Z    a.

co O    •
LU Q.    w
CJ |_


ii
co —
0°
• O

1
1 ^CM
I ^ "~
1
1
1
1
u
! T0 "pAv. CD
! in
1
1
>~ 2<%
| ^ 2

! 2^3
r
i *"•' •
i
L
1
I
1
i
!~ *•
1 a.

1 °?
[."••









2*



i*.
d.
9 n
O ^
Q
^—



~~


_







CM
r-
0.
•








_

















00
in

CM
00
in


s
in

00
in

CO
in


s
in


CM
in



o
in




^
(O
in



CD
(D
in




V*

E-
la
o
a.

c
o
Q.
4->
C
to
o
•r-

fC
o
0
                                                                                                        in
                                                                                                        CM
                                                                                                        CD
                                                                                                        ID
                                                                                                                ro
                                                                                                                cu
                                                                                                                t.
           CT)
                                                                  CM
                                                                  O

                                                                  §
(O
en
                                                     54

-------
   V)
   cc
   O

   £
   UJ
   O
   UJ
— HI

<*<
01 **•
O H
oo
Mo:

S5
tfO
< CO


  O

r-
<
O
i—
<
C55
<


00
<

CO
<
S2 CM
<
~ 1
CO
<

CM
<'
o
CM
3
<
                                                                      CO
                                                                                              S
                                                                                              in
                                                                                           CM
                                                                                           oo
                                                                                           ID
                                                                                           O
                                                                                           oo
                                                                                           ID
                                                                                              00
                                                                                              1^
                                                                                              in
                                                                                              (O
                                                                                              r^
                                                                                              in
                                                                                              in
                                                                                              O
                                                                                              r^
                                                                                              in
                                                                                                      at

                                                                                                     JQ

                                                                                                      2
                                                                                                      CL
                                                                                                      o.
                                                                                                      E
                                                                                                      re
                                                                                                      x
                                                                                                      O)
                                                                                                   S-
                                                                                                   o
                                                                                                   -(->
                                                                                                   Q.
                                                                                                   o;
                                                                                                   o
                                                                                                   CD
                                                                                                   i-

                                                                                                   (O
                                                                                                   0)
                                                                                                   s_
                                                                                                   (O
                                                                                                     c
                                                                                                     re
                                                                                                     o
                                                                                                     c
                                                                                                     CD
                                                                                                     •o
                                                                                                     c
                                                                                                     re
                                                                                                     cu
                                                                                                     o
^
                                                                                              oo
                                                                                              to
                                                                                                     re
                                                                                                     cu
                                                                                                     s-
                                                                                              (O
                                                                                              <£>
                                                                                              in
                                                                                                     c
                                                                                                     o
                                                                                              s
                                                                                              in
                                                                                                     re
                                                                                                     o
                                                                                                     o
                                                                                              CM
                                                                                              u>
                                                                                              in
                                                                                                     en
                   00
                               (O
                               o
                                                     CM
                                                     O
                                                                   O
                                                                   o
                                                                              00
tfl
O)
CO
                                                      55

-------
     o>
     co
     CC

5   I

co   UJ
CC   O
O   "i
o   s
ui   o
CC   O
11
                                               CO
                                               CN
                                               CO
                                                                        in
                                                                        CM
                                                                              l_
                                                              O)
                                      Im
                                      CO
                                                PO
                                                0
                                                CO
                                                                        CO

                                                                    CN
                                                                         s
                                                                         in
                                                                                                             CM
                                                                                                             oo
                                                                                                             in
o
oo
in
oo

in
                                                                                                             

                                                                                 .a
                                                                                  o
                                                                                  s_
                                                                                  Q.

                                                                                  O)

                                                                                 'o.
                                                                                  E
                                                                                  03
                                                                                  X
                                                                                  01
                                                                                  co


                                                                                  O


                                                                                  Q.
                                                                                  QJ

                                                                                  O


                                                                                  S-


                                                                                 _Q


                                                                                  O
                                                                                  O
                                                                                                                      fC

                                                                                                                      00
                                                                                                                      S-
                                                                                                                      o
                                                                                                                     •4->
                                                                                                                      Q.
                                                                                                                      O)
                                                                                                                      o
                                                                                                                      OJ
                                                                                                                      S-
                                                                                                                      co
                                                                                                                      c;
                                                                                                                      o
                                                                                  (O
                                                                                  o
                                                                                  o
                                                                                                                      O)
                                                                                                                      S-
                                                                                                                      CD
(O
o

3
                                                                CM
                                                                                          00

                                                                                          8
                                            56

-------
                                                                                     uu     ui
                                                                                     K     -I
                                                                                     2
                                                                                     M     UJ
                                                                                    is     uj
                                                                                    z     a
                                                                                    UJ     <
                                                                                    -i     a
                                                                                            a
                                                                                    in     i/>
                                                                                    a
                                                                                    l-i     UJ
                                                                                         U
                                                                                            ae
                                                                                    Ul     3
                                                                                    oe     O
«
*
*
41
4t
4(
*
*
4t
«
*
«
41
f
*
jjt
*
41
41
*
f
*
4
41
*
*
*
*
41
*
41
41
41
*
« *



K
<;
oe

X
O
ac
u.

H-
3
O
h"
Z
HI
ct
a.

UJ
-J
OH
4
X
UJ




* «
* *
*
41
*
41
41
41
41
*
41
41
4t
*
41
41
41
41
*
«
4t
4t
4f
41
*
*
41
41
41
4t
41
41
41
4>
4C
41 41

*s
00
N°

Z
4
•^

T-
w
4^
a.
UJ
»
>
x

z
o
HI
ID
Ul
ac.
„
•
^
HI
f)

•
ae
Ul
SEVERAL DA

ae
o

UJ
z
o

o
Hi

z
o
HI
H-
ro - a.
Hi ^
HI
u ae
o
H. u.
CO
uj c
K «c
ac
*i
ae u.
HI O
Z
o
Hi
*- x
a. o
O HI
t-
UJ ft-
ac o
0
Z UJ
10 CO
HI 3

II II
O i~

«l

z
o
HI
H>
^
U
HI
U.
HI
U
UJ
0.
CO

o
HI
H-
a.
o



CO

























UJ CO
a. ac
< 1- UJ
H. 3 on
-~ a. ic
U K 3
CO 3 Z
HI O
                                                                       at
                                                                       3
                                                                       O
                                                                       
                                                                                           t-
                                                                                           
                                                                             
       <:
a  " a
   z   •
<• O  I-     00     Z
>- Ht  uj     *-i     O
CD CO  C            I-l
   CO         CO     I—
Z HI  u     HI     a.
3 1C  u.     x     O
CK UJ  CO     Hi
JU
r-
ae
ul
              ID
              a
DC
O
Z
                                                                   ae
                                                                   3
                                                                   o
                                                                   co co
                                                                      Z
                                                                   »- o
                                                                   Z M
                                                                   < co
       a:  co
       o  ae            ]M
       Hi  O        O  _J CO  CO
       ah-        >-  ae a:  o
       ui  a.            3 3  ac
       U  UJ        Z  O O  «
       Uj  CJ        UJ  X h-  U
    co a:  uj co     i-     z
    ac     ae ac     t-  >- o  C
    o ^     o     HI  a: o  o
<  H- z  < i-     oe<     oe
Hi  O- HI  UJ O.     SEOCU.HIHI
a.  «3U.«HIUJ
    UJ        UJ  3 U  CO     I- Z
Uv  OC I—  Hi CE  Q, Z     CO  « tS >-
U     ZZ     Hi O  >• Q  Q i-l J
a^Hi<-O
COZU>kkO^<         EU.X
                                                                             1      
                                                                             O     >-
                                                                             ae     HI
                                                                             u.     Z
                                                                                    3
                                                                                                                        II
                                                                                                                        oc
                                                                                                                        3
                                                                                                                        o
                                                                                                                        X
                                                                                                                  '  10 -I
                                                                                                                    > 3
                                                                             ae
                                                                             O
                                                                             Z     0
                                                                             M     O
                                                                                    o
                                                                             _l     O
                                                                             <      •
                                                                             ae     r\j
O
-J  Ul
HI  ac KI
*  u
    X  II
O  H -J
>»     O
sr  K a.
K1  < M
0~  X
O  H- UJ
-o     u
 •  a z
r-  uj HI
       a.
       Q
                            O a: uj HI M
                            o. < a. co co
                                                                      at
                                                                      <
    3 Cvj
    O O
UJ  -J CO
ac  <
    CJ
       ae
    co o
OC  HI U,

X  H- CO
>—  M HI

 I   I
                                                                                                         3
                                                                                                         a.
                                                                                                         z
                                                                                           z
                                                                                           Ul
                                                                                           co
                            O  H.
                            1-1  ae
                            cc  t- <
                            UJ  to
                            a.  x '

                            x   *
                                                                                                             to  Z
                                                                                                             oe  O
                                                                                                             UJ  CJ
                                                                                                             K-  ul
                                                                                                             Ul  to
                                                                                                             f:
                                                                                                                 O
                                                                                                             o  o
                                                                                                             o   •
                                                                                                             o  o
                                                                                                              •  o
                                                                                                                 •*
                                                                                                             Ct  .J
                                                                                                             O  u.
                                                                                                             0,  X
                            ae
                            o
                                                                                                                    co  •
                                                                                                                    ae -^
                                                                                                                    3 ro
                                                                                                                    O w
                                                                                                                    X ui
                                                                                                                           <£ X
                                                                                                                           O
                                                                                                  O     HI
                                                                                                                at
                                                                                                                UJ I
                                                                                                                a. i
                                                                                               Z
                                                                                               3
                                                                                        uj o  ac
                                                                                    i/>  z j»
                                                                                    t-  O I-  CO
                                                                                    i-«  Z Z  «
                                                                                    Z  O O  X
                                                                                    3  U U  K
                                                                                                         o  x O
                                                                                                      ID        a.
                                                                                                      Z CD  a:
                                                                                                      H< z  o a
                                                                                                      Ul M  K UJ
                                                                                                      < K  a. e
                                                                                                      ac ac  ui 3
                                                                                                      UJ «  U CO
                                                                                                      > Hi  Ul tO
                                                                                                      < co  ac <
                                                    57

-------
                         Ul
                         CD
                         oe
                         3
                         o
                         OK>»
                                            K       h-irioo'Ois.oO'OOooiniMio
                                            W         •••••••!••••
                                            -J       Klf\Jtr\l»*-*l«-|OOin«»fVI«»M
                                                         Kl r- CM    «-Kl«-    «» t- >»
                   K    a:                 ^
                   <                       x       oooooooooooo
                   flt    >-              ^;w       «-K)ro9-aopomeomoo«-o
                   1C     ui        >-i    < «         ••••••••»•••
T-                 W     H        H    I— K        f\J-Owr\OOO-OOO>O'OK10OKl
M                 ujzuj            i/>x        oor»-(Ni~j-«-rvj-j-f\j    ot-o
<                 K 3  O        l-i
a.                 ui ac           -J
ui                 o     to              o
 »                    v>  uJ        aJ    u
>                 z M  w        u    in in
K    M           UJXCK        ac    roooooocj
      r^           WH-3        3    O.C        KlOfVJMT-OOOOOOO
Z    O           CD     O        O    U>«         •••••••••«••
o^*              afio        CA^^CO        K)Nroocjtr\
M                 coo                 >—     >-           < u.  K-        KCEM
UJ    I-           XX        Z    < E
ct    1-1              o  M        >-i    a. ui
      i_>           en ui  O        O
 •                 iu   a.        tv
 >    H-           u 3                 «
>    to           a     co              uio        o>»-t>fi>»oo>»o
M    uj           aaiv)              aiz        Ki>roo«-Lr\^j--oojuii^-r\i
a    (-           OCDUJ              (OO         ••••••••••••
                   CO     -I              *»l-4        !MOI>'->OfM'OK)OOt>-O'O
 •     >•     2       O                 U3CO        hilT.r-Puf\J     KtKVKIOr-fVJ
a:    a     o    (- K  oe              «co        r«j»-                       MTsi
UJ    M     HI    Z     O              fM 1-1
H.    <     H-    M UJ                 OK
^           <    O oe.  *A              co uj
K    » •*"•* •« M
<     •«    uj       z>o                     a    ~r^r-«Nr-«^«<««r^^sr
M           u    r\j «»  o.
<    m     at    ^- «o  K                     Be
3d    r--     3       uj  HI                 auj    otntntf>o%ro>Ainooo
   mo     o       biv              H- oe  co
MN-t-     CO       OCUJKI          CO O  3
   o              CKSW              «ov
K*-V     H    o o  z              uju        i
M    H     2    u.to<                           l
«    HI     HI           U
     » U     O    X H  w  r-
 • >•        a.    o z  u.  r>
31 K h-           HI HI  W
< HI I/I           H> O  Z
x o iu           « a.  u>
(Oh-           K     M  O
z H-              at K  co
ul <0  ••           O Z
K uj <           u.j
^ H> I—           zwO              U<           «-           _IJ_l_!_l_l_)_l-)_f_l_l
>«Hiui           cOHfOtA                       CVfiX&A*(L(L&CLQ»QuA»A*
CD co  K           10 co
   10              HI     Ul                           *-
-------
a
a
ac
3
O
in
o
O
                             a
                             o
          O
          O
                             DC

                             O
a
ui
             O
             o
              •    o
          O f»    O
          o«-    o
, AIR & HAZARDOUS HATER. DIV., REGION XVfEpA(1 JAN 78 >
Y, 1973
CITY 1973 ; UPPER AIR: TEST CITY 1973
* t-
< HI
X U
bl
Z H-
UJ (/>
ex. ui
U H*

O 1*
UJ VI
Z
• • o
>- HI
in bo
bO
Z M
3 K
ac ui
H-
bO
UJ
f—

1*
•c
^*
4;
a

•
K-
UJ
C

u
u*
bl
AREA SOURCE INFORMATION
ON FOR 15 (NAS) AREA SOURCES HAS BEEN DETERMINED BY RAM8
M
*-
•c
C
(X
O
u.
Z
H-I

j£
O
M
(/)
V)
M
t
Ul

A SOURCES ARE TO BE USED FOR THIS RUN
LU
Qt
«t

f.
JE
^
O
M
U.
*1
JJ
^
M
(/)

O
r*

IF1CANCEUKAS) FOR 10 OR LESS AREA SOURCES DETERMINED BY RAMS
9 2 10 8 7 13 12
z.
uj
HI
bo in

U>
O

a. 10
Ul
o
ac
O
^
Ul
X
^—


M
H-
X
z
UJ
bO
O
H-
X
U)
HI
UJ
X

«t
UJ
QC
4(

U.
o

a.
UJ
CD
£
3
Z

r-

HI Ul X ^_ z HI 0 a. ^ ^ Ul ac CD OURCE HEIGHT WHICH IS PHYSICAL HEI6HT(FH)= .750 bO < Ul ac •x u. O ^ O HI H> U < OC u. FOR AREA SOURCE INTEGRATION TABLESCXLIH) IN USER UNITS = 25 UJ (_» z « H- bO HI 0 b» 0 h- Hl E HI _/ AREA SOURCE 6RID IN USER UNITS: UJ X H. u. O V) UJ HI ae •c ^ z 3 O m RWAX= 564.000 SHIN= 4400. QOO SHAX= 4408.000 ZE) OF AREA SOURCE MAP ARRAY(IA) IN INTERNAL UNITS = 7 EAST-W O HI O bO O bO • HI O Is. X u-\ Ul ISI HI II Ui Z ac HI HI £ •" ac uj IS) HI I/I H OOOOOOOOOOOOOOO UJXK OOfMUtO lAOrsJOOOOOO ooooooooooooooo h- Z U) 3 bO 3 >• < ac If. < a. c. u OC 3 o r- ro in O v— r- t- Ci fM sT O c^ o m sr f 1 ^ ^ (IT] AJ W Z UJ O ac ui « a. rvi * « E Z I O O HI Ul bO (M o uo ac O H- O O HI Z o Z 3 ac a ul H- OC bO O 3 < O — OC 3 o bO ooooooooooooooo oo ooooooooooooo oooaooooooooooo ooooooooooooooo ooooooooooooooo ooooo I I I I I ooooooooo I I I I I I I I I ooooooooooooooo oooOi\irM**O'OO'O>j>j-rM(M OOOOOOOOOOOOOOO ooooooooooooooo 59


-------
00
0.
Ul
X    tr\
      N-
Z    O
O    r-

U>    >•
UJ    »-
 •
a:
UJ
O
o
(si

X
       a.
       a.
                    t- K «
                    ec o «fl
                    O O K
                    Z U IH
             at
          O UJ
       H> ae v>
       M o 3
       < o »*
       uj o
                   o o
                   O Ul

                   in i-
                   o o
                   •* -»
                                o o
                                o o
                                •o •*
   K>  O>
   IV  T-
     » U    (E     U
  . >-        O     M
   t-  I-    K     u.

   o  ui    UJ     H
Z t-
Ul 
OC Ul  •

U H  I


a  "  :
                    UJ
                    & a.
                    UJ Ul
                    jj^jf *•

                    UJ U
a
a.
u o t-
1- rH UJ
O> «n K
   V>
Z M U
3 K "fc
o: ui trt
       o

       a.
       ui
       w
       Ul
       QC
                                                                       60

-------
                                                                               <->
                                                                               UJ
                                                                            X  *^    CD O  i
                                                                            O.  K      ..........
                                                                            w  w    oooaoiC'G'Osr-4'O-u
                                                                            3
                                             00
                                             Kl
X     Kl
       f.
2     l>
O     r-
H»
u>     >-
UJ     H-
U.     i~<
       ac
       UJ
       a.
       a.
X O
v»
UJ 
at uj
W K
"0
»•  M
ffi  M
3  K
at  uj
                     V    (M 00
                      I     ao •*
                 a.  u>      •  •
                 E  UJ    &. r-
                 UJ  O    -ON.
                     K
                 UJ  W    T- O
                 Z  t-    t- N-
                 I-C  I      •  •
                 x  to    o »-
                 1-1  I-H    I\J O
                 K  UJ    -JJ- •*
                 UJ  V)    ^ ^
                 UJ  >«      •  •
                 a.  K    o •<•
              < <  M    O O
              O I-  U3    O O
                 UJ  UJ      •  •
              H X  O    Kl Kl
              UJ h-  **    Kl (M
              3 ac
              o. 3
              z o
       II
       O tf\
       UJ -O
       UJ  •  •*
       Q- O
       -
       O     H-
       Z  II   1-4
       M 0.  _l
       3 C  M
          UJ  Qj
       t- t-  *
       z     t-
       < IU  «/>
       I- U>
       -J «  -4
       3 at  <
       CO UJ  O
       01 >  O
       cc <  1C
                                      (A
                                      z
                                      o
                                             t-     o«
                                             r»     o>
                                      M      •      •
                                      t-    oo II
                                      •-C    (\J O
                                      a        uJ  n
                                      Z        UJ  UJ
                                      O     II  0.  O
                                      0    Z M  Z
                                            O     UJ
                                      >-    M a  H-
                                      UJ    K Z  M
                                                                     VI
                                                                     K
                                                                     O
                                                                     o.
                                                                     UJ
                                                                     o
                                                                     a.
                                                                            »
                                                                                                                 (M
                                                                                                                 •*
                                                                                                                                      oc
                                                                                                                                      o
                                                                                      OOOOOOOOOO
                                                                                                                                      o
                                                                                                                                      CO
                                                                                                <
                                                                                                Ul
                                                                                                K
                                                                                                                                                       OOOOOOOOOO
<
h-
_)
3
                                             QC     BC
                                             M UJ  UJ
                                             O U>  B.
       o at  o
       Z UJ  Z

Ul     31 <  JB
                                                                            IX
                                                                            o
                                                                            t-
                                                                            a.
                                                                            UJ
                                                                            u
                                                                            Ul
                                                                                                       o
                                                                                                       H
                                                                                                       CL
                                                                                                                                             Ul
                                                                                                                                             OC

-------
                                                                                               tt
                                                                                               (U
                                                                                               tn
                                                                                               O
                                                                                               at
                                                                                               LU
                                                                                               ot
                                                                                               UJ
                                                                                               a.
                                                                                               to
                                                                                               <
                                                                                               a:
                                                                                               in
                                                                                               M
                                                                                               X
                     O                                                                       l-
                     o
               oo                                                                       a.
               o      •                                                                       o
               o    rvj                                                                       u.
                •
            it jo                                                                              a
            >• o     u                                                                        uj
            LU •»    W)                                                                       I—
               •*    K                                                                       «
            a       M                                                                       ac
            UJ       Z                                                                       UJ
            a II     3                                                                       z
            Z X                                                                              UJ  *
            3 <    OC                                                                       UJ  «
            o IE    uj                                                                           «
            a> v>       •
                     2                                                                       it  a
            tn o                                                                              o  o
          H-I o    «c                                                                       M  1-1
ac             o    »««                                                                       K  oc
O          «  •                                                                              <  ui
I—          oc o    «                                                                       o  a.
a.          o o    a                                                                       o
uj          t- -*•    i/>                                                                       -J  uj
U          EL •»    O                                                                           Z
UJ          UJ       **                                                                       a  t^
a:          o       an                                                                       z  u>
            UJ II     U)                                                                       <  <
m          a z    «*                                                                           tr
E             i-t    V>                                                                       
o          *: to    o                                                                       uj  «
^          O       »-                                                                       ffi
UJ          <-> O    Q-                                                                       JE  u>
Z          >- O    UJ                                                                       3  Z
O          uJ O    O                                                                       Z  M
X          Z  •    UJ                                                                           a
            oo    ac       f>-i*.t>-ooaotaK»K\M'O'O-otxo>c>.oo-ai:uJ
O          100              OOOOOOOOO-OMfOfOflOOO^t^-N-l^-KOuJ
uj             in    oj    x*************>*<***h-o
<          CO         O    KOOOOOOOOOOOOOOOOOOOuJOe
Ct                    O    O-T^I~T~T^-~J^r-»>I>»>r'T^'^T-J>T~r-J^JOQ.
uj          on      f    z-*f~J*t*t**-J'*-**t-i~i*r**-i-J-f*3-&m
Z          UJ  X     UJ                                                                       BC. UJ
LU          Ct  <     Z                                                                          X
U?          Lu  C     O                                                                       UJ h-
            >  Ct     X        OOOOOOOOOOOOOOOOOOOX
            o                   ooooooooooooooooooot-
            UO     Z    »-»«t»»«»««»««««»«»««
               o     uj    «'M^'Ot-(omr-(NJ«»'O«r-Ki^-f\j'*'OooO"
            UJO     UJ        uju^ininmLnmiAi/^LniAmLnmLnknLn4r\i/^tnK
               OH-                                                                       O
            O  r-     uj                                                                       z
            h-  LA     00
                                                                                               UJ
            <         uj    at                                                                 
            UJ         U    O                                                                 <
            ct  II      Z    h-XXXXXXXXXXXXXXZXXXXuJ
            <  z     <    a.                                                                 -i
                                                             62

-------
                     i-i in
                     o uj       ooo-roh-o-i\i«-(Mi-o>o>*O'O«»o>oroooom»r»o«-(vrJoOKioo<»oooo-»oe*aO'O-»rMoor>-oouiKiO'OOOoooo
                  t-_J3         •••••••••••••••*»•*
                  O.JO             moorooOdji/%<\jKii"OvJ/    r- Is-    ro
            OC       U.          OOO>rAr^O(M-«O«-O>-«4(VlOOOOOOOOOOOOOOOOOOOOOOOOOOO
            a    _l M I-       OOOOu-\-J-sOKlO-Mr--ciN.r^OT-KiocoooooooaciooooooooociooooooooGoo
            UJ
            u
            OC

            o


            te
            o
            a.
z
<
o.          ac.
uj          o
 •          at
>          u.
X    M

Z    o-    ro
o    r-    «                   ooooooooooo-oooooooooooooooooooooooooooooo
_          «                   OOOOOOOOOO^TPJOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
U)    >-    £    tn       t-    OOOOOOOOOOK100OOOOOOOOOOOOOOOOOOOOOOOOOOOOO
UJ    K-    *«.             «-     •  ••«•««•••«•«••••«•«»«••«•«•«••«•••••«»«•
oe    M    trt                                                 fO >»
      U    C                                                 M O-
 •          <                                                 •* »-
 •    i-    oe
>    «n    u5
W    UJ    O
A    »-    a:                   OOOOOOOOfMirtOOOIMOOOOOOOOOOOOOOOOOOOOOOOOOOO
            W                   OOOOOOOOOOOOOOfVIOOOOOOOOOOOOOOOOOOOOOOOOOOO
 •    M    HI    >*       O    O CJ O O O O O O O- l/. C' CJ C Vi CJ O O O O O Ci O O O O O O t< O O C) O O O l~i rj CJ O O O O
ce    ae    K                    «•«•«••••••«•«•••«««««•««••«•«•««•••«•«««

K    <    Z                                           O CO          K>
<          O                                           N- (M
c    ae    M
      UJ    t-
v>    a.    a
s    o.    a>                   oooooooor-iAooo^oo 0000000000000000000000000
o    3    M                   oooooooi*-ooooooooooaoooooaooooc3ooooooQoo
O          (K    Kl       OO    OOOOC'O^IMO-roOOOVAOOOOOOOOOOCJOC'OCiOOOOOOOCJOOOO
ae          H>                    ••«•••••
<    •»    Z                                     r- •* I
MO                                     1^0
«    Ki    o                                     •* ru
w    (-          (M       U->    OOOON.OKI-»»-t-OOOineXOOOOOOOOOOOOQOOOOOOOOOOOOO
<    M                          •••••••••«••••••••••••••••••••«•••«•••§••
    * U                                     K) 00                         N
 • >•                                        (V) «O
2 I- K                                     N- K1
< M V>
X O UJ
M    K
Z I-                            OOO-rOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
UIMM                         OO»OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
OS UJ <          t-       r»    OOh-rviOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
K K K                          	•••••§•••••»••••••••••»•••••••••••
      <                               in ao
O >• O                               fo r»
uj • "1 UJ          X       UJ
a>  K          <       w a.
   M             ae       aeui*-r\iro<«in'«N>wo>OiriMKi4'm<
SEI-lO                   9W                            »~»*»-*-»~l~(
a K u.                   o ui
ae ui in                   vi ee
                                                                           63

-------
                     «    «C       OOO O*  «• N •* OO O •» O«O T>  «W f •* K> * Or-  •» O •*

                     O _J O                   *"<-(M«M«MKI
                     HlAUl         •   «
                     OW«e                   r-  ^ ru (MM M       1*1 K> ««• r- »•    «-
         M
         r-    ac
               a                   oooG(Mm<*«or-K)OOK

«*ooo>oooooooooooooe>oooeooooo o oooo^Ktr-N-Kirooo^iA'OOO-tfOooooooooooooooooooooooo X O M OOO OlNi MO OO OO O f- O t- O O OO OO •* O O O OO OO O O OO OO OO OO O O M «k O O O OO O O O O O D O r- O O O O O O O O> D O O l«- O O O OO O O O O O O O OO O O t- K> OOO OO OO OO OO O -O OO OO O O O < O O O (V OO OO O O OO OO OO OO O O < K » Kl O O O OO O O O O O O O O O O O O O O O ITi O O O ft O O O O O O O O O O O O OO O O ac r- •*•••••••••••••••••••»•«••••• ..... ••.*••• 0. IU in t/t ttl W OOOOOOOGOOOOGOOOOOOlftOOOOOC-rviOOGGOOOtOOOVOOOO •» a: OOOOOOOOOOOOOOOOOGG»OOOOO(Mr~OO«OOON«rOl p ....... i ..... ....... ........... ........ .. OOOOOOOOOOOOOOOOOOmOOOOOOO-*f\JOO»-r^OOOCDOOK)OOO GGOGGOOOOOOOGOOGGOOOGO*-OOr-r\JOO«-(NJOOOOGO^OOO . » z K)(MO»GOON'(IOGOOOOOOiriOOOGOG«}OOOO-OOOOOOO^ X v> OOOOoOl^rgrMIMr-OOOT-MOOO-OOO-OOOOOOOrdOOOO^OOOOOOOO O. < C o ac « > « at o> K> O- r- * OOOGOOGOOOOOOOOOU-tOOOOGOmQOOOOOOOOOOQOQOOO 1-1 * OOOOOOOOOOOOOOOOKIOOOOOO^OOOOOOOOOOOOOOOOO W >• f in (M OGOOOOOGOOOOOOOOrvOGGOGGQOOOOOOaOOOGOOOOOO Ul I- «. .................t. ........ ..... ......... ac M «rt W M UJ O O K OC OOOOOOOOOOGQOGGrgu>Kir-inOOOOI^-'Ol_)OOOOOCjOOOOOOOC. OOOOOOOOOOO O O *•* OOOOOKIOOf— rNJfMOO«)-Or--OOOOOOOOOOOOOOOOOOOOOCJOOOO O Ct K) in OOOOff.G-*«»KinOOOK)fMOOOOOOOeiOt)OOOOC)OOOOOOOOOOO Of t~ ..!.•........ ............................ « •» Z r- .- N O « Kl Cl X IV. Kt O« a« h- r- O OOOOOOf<-f^aoinOOOf\JOOOOOOOOOOOOOOOOOOOOOOOOOOO Cf r- >• OOOOOO^rirtJO-OOOOinOOOOOOOOOOOOOOOOOOOOOOOOOOO M 1— f^ Kl OOOOOOOO^IMKlOOOKtOOOOOOOOOOOCVOOOOOOGOOOGOOOO < M ......................................... * o r- »* (\j r\i (v • V "* I- K < M X U UJ H ZH OOOOOOOOOOOOCJOr>-OOOOOOOOaOOOOOOODOOOOOOOOO uj 00 .1 OOOOOOOOOOOO^OOO-OOOOOOOOOOOOOOOOOOOOOOOOOO Ct Uj < t- -* OOOOOOOOOOOOO-OOOOOOOOOOOOOOOOOOOOOOOOOOOO li )_ (_ ......................................... < OC CeiU Zi^O 3*-* 3 E a. O at a: ui bo en ac 64


-------
                                          K Z
                                          Z <
                                          LU OC
                                                                                                 (M    f\Jf\j»-     u, O

                                   OC     -J
                                                                                                                                                 o- o O»
                                                                                                                                                 r-    IVI
                                   a,
                                   LU
                                          O <
              a
              3
              O
              X
              K'I
              IV.
                                   o>
                                          o «
                                          CE UJ CO
                                   %—     U. ft: LU
                                             < U
                                    »     _J    fit
                                    •     < _l O
                                   vt     H -J O
                                   r-     O < 
                                                                     r-  »- OJ (M f\J Kl
                                                                                                 Ki Ki «- »- -i 3
                                          K Z O
                                          O U) CO
              Q.
              13
              O
              cc
D     >-<
       O
                                          it
                                          C
                                          ae
ooa
                                                co
                                          u. h-i u
                                             O CJ
                                          _l Q. o:
                                          <    =1
                                          t- -I O
                                          O _J CO
                                          I- <
                                                                                                                                                 o> o a-
                                                                                                                                                 r-    (M
ac     a;     rn
                                          t Z
                                          O 1-1
                                          a O v>
                                          U. Q. UJ
                                                O
                                          _J U. £K
                                          < >H 3
                                          I- i: O
                                          O UJ V,
                                                       OO(>^>O»-|v.T-KlOOKlKlKlNK1inOOOOOOOOOOOOOOOOOOOOOOOOOO
                                                       ooooovji^-oocj-*  m«-o ^Kirvio-ooooooooooooaoooooooooooao
                                                       t  O t> O u-' -4  «, K.  -o •«) •» r\J ao *> h- O C_' o O O  C' O  O Cj O Cj C_. CJ O  O O O O O O CJ Cl O O O  t_J
IX
a:
    Kl O
    r>- <—
    o-
                     CB C

                     *••* ^—
                     x x
                                                       O  o »—  r\j
                                                       ooooooooooooO'O-oacf.  oooooaoooooooooooooooooo
     * CJ
 ••  >•
.*  I- t~
<  »-» CO
X  O u.
                     UJ CO     r-
                                                                                               j co  ^ m  ca
                                                                                                                              i o t^u -^  CJ ^"
                                                                                                                                                                            KI Is-  <^J ^r  MJ CL.  o
    St u.
    UJ CO
                               o
                               o
                     < »^
                     I- U5
                     uj UJ
                     X O     M
                     h- *^     Kl
                                         O
                                         t—
                                         U.
                                         UJ
                                         o
                                                                                         T-  r- •«  r- •
                                                                                                                                      o  LJ o o c. o  o o c> o o i
                                                                                                                                                                                      o  o c.  o
                                                                                            65

-------
                        O  LLJ
                        a.  <->
                                                                                                                                  > r\j       ro f\j >j     K>
                                                                                                                                   ,r\j       *- r\i «—     rvj
                        u-           OKl^uiOinKlO^Ou-il^OKiOjinOOOOOOOOOOOOOOOOOOOOOOO O-O O
                     -JHHK-        OOro>rfOoCOOOOOOO*to.— O-r^lunOOOOOOOOOOOOOOOOOOOOOOO O* O O
                     «  z ir        c   c  <\jroNvTo«-rNOoof\j^-^f^u^N.
                     K  1/5 O.               Mt-iX>r-C>(\jr-O-O>«-    O
              o
              I
             cc
             o
             o
             o
             a.
UJ           O
 •           ce
>           u-

       i>-     ^\

O     r-     *                      O CJ O  O O O & O  O O u-\  -C C' O O O  O O O  O O  O O O O O O O O O O  O O O  O O O O C  O O
1-1           *                      O O O  O O O O O  O O r'l  r- O O O O  O O O  O O  O LJ O O CJ Q LJ O O O  O O O  O O O O O  O O
U)     >-     C     u->        «-    OOOOOOOOOCJi-OOOOOOOaOOOOOOOOOOOOOOOOOOOOOOO
uj     t-     >•               i—      •«•••••««....••.•••«•.«•••..•«••«•.««•••«
a      f-<     ci                                                        -«•  iv-
       w    JE                                                        O  «-

 •     h-     Ot
>     fj                           oooooaoooooooiv-ooooooooooooooooooooooooooa
                    st        c»     c- c, C'  i_. c> 1-1 0 c  iv (\, i_'  i_i >.  fv. L.  c   o o c-  u.. t;  c.> <_ c< ci c. c  o c  < o o  o r" o  c  o o £-" o  c  o
             (t                        •»•••••••••.••««••••»«•••«•••••*«•••««••«

H-     <     Z                                                  h- o           O
<           O                                                  in (\j           «—
Jt.     oe     >-<

to     a.    ^3
3     O-     Jj                      0 O O  O O C. fvi Q  1^ sr CJ  O C_- ci O CJ  >-J O O  O O  O O O O O O O CJ O O  O O O  O O O O C  O O
O     3     i-i                      OO t^ r-
   O-                               OOOOO>vr>«—»-OOOOKlr-u-iOOOCJOOOOOOOOOOOOOt>OOOOOCjOO
ae r- >>                            OOOOMOOOOOOOOO^OmoaOOOOOOOOOOOOOOOOOOOOOOOO
>H     f-            OJ        i/>    t_i O O  O Ch |v. o O  t_J O O  O fv. o l/^ O  O O O  O O  O O O O i J O O O O O  O O O  o C» LJ O O  O O

     • vj                                          sr (v.                     in
 • >•                                             OO T-
j* I- h-                                          o sr
«C fH H
X W tu

Zt-                               OK)«-irvOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
UJMII                            OOrOsrOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
CC UJ <           T-        h-    OOfvjrv-OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

       <                                   O-  00
a  >< o                                   ru  r-
UJ V>
   z  •                     *
 "Of-            X            «
>• I-I UJ            Z        UJ
DD V) C            <        U 0.


3 t u.                     O UJ
dc uj i/s                     w Q-
                                                                                     66

-------
                           UJ CO




                       O  —J O                     *—  r— fl ft  *O K*>        >TroOJc-T-*«~r-        r-    r-
                       h-  « CO








                       t—  CD UJ         •   ••«•.»••••«.••••*•••.••.••.•»•»••••••.••

          P-           t—  CO <
          f

           •     M
           •
          Ki
          «—     OE
                 3                     O O  O C • o  f>.J O CD  O C  O O T- O vj  C • O r.  d C  O  C O C,  «- O O O O O O O O C  O O C  O C: O  O

                 I    Ci        rvi     o o  o o CM   O  O O O          fi     OOOOOOOOOOOOOOOOOOOOI^OOaOOOOOCOOOCCiOOGOCO
                 O                     O O  O O O  O O C  O O O O C-   O O -C O O O  O  Cr  O a  O O CI  O
                 ct                     oooooooooaooooooooofi&amoo^oooKioooi^r-.ainaooo
                 13    00        (^     Cj O  C  t~ C_>  O t-> <":'  O C  COO O O  O O C.  C  •<' C,  a r- C   Ci fi O  C   O -c O C  C  -J  >»  C > «~  O C Ci  O
                                        o c.  c,  a o  o o o  o o o c> Ci o c>  o o o  r- c". o  o «~  o o  »»  r j o o o o c>  o o o  o
           •    t-                     OOOOOOOOOOOOOOOOOOOOOCJ^OCDO-OOOOO«O"JOOOOfMOOO
^         •    2    N        UJ     O O  O  C  C  O C Ci  C O O O O C1 C  O C. O  Kl C O  O -J O  O O -J C- O O  si  CI O l.J O O C >  irv CJ O  CJ
3O        r-    <                      .••«•••   •••.   ••••••••!.   •>.4<>«>.   •••>.••>•••
N        r-    o                                                                                 *<~
                 (-1
2               "-
<               1-H
-)         "    Z
          c/]    o
r-        i—    1-1                     oaoou-vu-vKi-j-ooooroorvoooooo-icjoooooooooooooooooi^-
•**        x    1/1                     ooaorj(M(M«-oooooo«-ooKiooo'Oooooaoooooooaocjoaoo
<                     -o        o     o c.-  o  r i N»  ~i T- <-  o r i o o sr C' »i  c • o c>  o c< c '  f o o  c< o cj c  o o  ci  o o c- c i o c   o o o  K
Q.        «    JE              «-      «««•••••««••«••••  ......  ..................
LU        UJ    O                                                                             t~
 '        ue    ac
>        <    u.
X     f^l
       N        »s
20-        rt
O     «-        *                      O O  O  O O  O O O  O C< C' O O O O  O 'O O  O O O  O C. -        I-    tn        (\J     OOOOOOOOOCiOOOOOOW-OOOOOOKlOOOOOOOOOOOOOOOOO
ae     t-t
       o
i-i     a!        O
a     H        a;                     OOOOOOKIKI«-C>. ooounopooooooooooooot-oooroooooooo-o
                 O(^ c.  o >  c» c »_' ^ t j c  t J c ' c '  c_i IA c.
^     Of,        f^                      .•.••••••••*•.•••••....*.......«...•....«
lu     ^*        ^^                                                                       ^~
»-     <        z
«t               o
K     ac        i-i
       UJ        H
co     a.        3
D     a.        uJ                     o o o  C- tn ^j- r^j t-  c- (^ C( o  o- f^ oo  cj o ct ci  o o o  c"j cj c.j  o o o  o  o o c> o (j o cj c c<  cj o o
O     O        M                     O O O  O iri O «- i>  l> f>- O O  00 O- -*  O O O O  O O O  IJ CO i J  O O O  O  O O O O O O O O O  O CJ O
a               ac.    M        u",     o o o  cj ixi (•"> -* M  cj o o o  -» c -o  o cj c-j o  c/ o o  c~> o c~>  o o c>  o  c, o o CD o o o o c.  o t_- o
ac               h-                      	•«•««•«	
<     •»        2                                  «- «-                           »~
Nj               O

X    t^-

ej) r- t-
   ».                                  OOOOOOOf<)-*irvOOOOOOOaOOOOOOOOOOOOOOOCJOOCjOOOO

M    t—              »  UJ O O O  O O O  LJ O O O  (  ' O CJ  O O O  C i C) C )  O  O O O i-i O '.'J C) C j f j  C  i O C)
•<    I-I	<•••	
     » LJ                                                   fVi (\l  f\J f\J           Kl

J« t- e-

X O UJ
CO    f-
zh-                                  oaooooooooooT-OMOOooooooooooooooooooaooooo
UJCO"                               OOOOOOOOOOOOMON.OOOOOOOOOOOOOOOOOOOOOOO'DOO
aeui<              «-        - >-i uj              z        uj
ffi co I              <        w a.
                                 30
                                 O UJ
                                 co a:
                                                                                    67

-------
                                iw    O
                                Ki     t- X
                                «-     z<
                                       UJ a:
                                       o
                                       z
                                 .1     O
                                CO     U
                                K
                                X        (A
                                          UJ
                                Z     IE «•»
                                o     one
                                t-i     a: 3
                                t—     it O
                                <        V)
                                a:     —I
                                «     oooooOoofiu">«jl>"Of"-i/>iOKi«-«-       «-     «
                                                                                                                                         OOKI       1*1 1*1 in    KI
                                                                                                                                            M       «- N *•    «M
                                 •»    K
                                 •     o  «
                                o     aeujc/)
                                IM     u-  a u,
                                          < u
                                 •     _J     a
                                 •     <  -J a
                                tn     K  -J O
                                r-     O  < V>
                                       C-
.00
N-

Z
                                       OtU
                                       QTOCI/I
                                       u.  < uu
                                             O
Z    i>     O
O    «-     o:
                                          oo
                                          a. a
                                                     i o r\i i^ O- n» N.  •j- i^- o »- oo  ixi -» -t> r~ r\j  o C' o o c  r- Is- o c «- m  u-\ o o ,-x, in  r^  o au Ci o  O n o
                                                        ........................................
                                                          o-oc>riv-miAO-«-«»Kmi')Kiooro                     -*          COM       MI\JOOfOO-«-^»       (\J                     v              (M       «-CVJ•
       t-     to    t-
H-I     uj
a     K
                                       jc  z       omoof~uio-or>jO'O(\ix)-»pj<\joooooooooooooaoooooooooooo
                                       Oi-c       o(MO-j-oo~»iMommmu-iKirjinoooooooooooocooooooooooooo
                                       it  O U)    OCM»lMa,u3>«.1l.jAK,T-OKiir>OC_,t.CJC-OOOl.. C'C.'CJOC!OCjOC'OC.OCOOOtJ
                                       U.O.UJ    OC.J(\JI^Or--IO«p--O«-i£>f^-Uu-\OC!  <-J O O O O  O O O O O  O O i_> O O  O O O O O O O O O
3     Q.     •
                                       a
                                       o
                                                    o c j i— 4
                                                   i>ooc»ooooc. ooooooooaoooaotjoocio
                                                    LJ O fl  O IA  O -O O
                                                                                       a-  r\j r ) pn  M  M r-
                                                                                                                       >~ CJ O O O  O O o O O O  CJ O O O O  O O O
uJ  (/)  »•
a:  uj  «t
^  »-  t-
                       ^s    o         •
                       to    o        O
                                                                                                                     l  c\i C) O O ij  (_• O ^j C. O C  UJ
                                                                                                                                                                      O  L~> C-i C  CJ
 3 s: u.
 a: ui v.
                    o
                    3.
                                                                                       68

-------
                       out        ot-ir>-jD-ooooooof^«— QGo
                    _J O. O        OO»-t«--»T-'OOOr-«»(\JOU-i
              ii     a    Cf        OOlT>«»fOO-O'KI(\Jf-f^MO-iri
              IK     I- -J 3         ......«.«««.«.
              Z3     O — JO              r\j  ,O sj- ,\j Kl  in r- <\l f> >O f^J rv
              O     t- « fO'O«-»(Nj
                    _
                    «t z z        c  o m  -i i»- o- >o  «•• o a r-  ro »• «t «\  c  r  c  r  o o o o  o o o  o o C-1 o  c  C'dooococ  oc
                    (_UJM         •••••••••<•••••••••••••••••••••••••••••••
                    O'-'O              r\ioc>rr\jiriOf-f\jroofMcc»*
             O
             a.
             s:
             o
             a
<           r
a.           <
LU           at
 ••           u)
>           o
X     II    IX
       IV    O
2     O    M
O     «-    ».                     OOOOOOOOOOCvj^OOOOOOOOOOC. ODOOOOOOOOOOOOOOQO
>-i           —                     OOOOOOOQOO~»rvJOOOC3OOi_iOOOOOCJOOOOOOOOOOOOOOOO
U3     >-    Z     in        T-    OOOCOOOOOON-KiOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
m     (-    o               «-     «•«»««••••«•••••••«••••••••«•«•••••••«••«
a;     ^-<    »-«                                                      *•*» o
       Oh-                                                      r- O
 •           3                                                      si (\J
 •     >-    to
>     w    •-<
M     Ul    IX
O     »-    t-                     OOOOQOOOinoOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
             x                     ooooooooa-a-oooooaooooooooooooooooooooooooo
 •     ii    o     -j         o-    o c.r c.j  o c_. LJ c>  c: a.' uo  o c, o WT i_> o c> o o  c.i L.I ci i_> c. c. o cj o o c<  C' o o o  o o o o  c.- o o
(x     a.    w                      .>..•.•.•.!....•••.   .>•••>...»••!.   •••>.<••
LU     1*1                                                     O N           O
(-     «                                                     Kl 00           h-
•«           r\i                                               o PVJ
x:     a.    o
       UJ    C^)
go     a.
Z>     a    u,                     CiOC.]CiOO-*u->(M'JtjCjOO-ClOCjOOOC'OOCJOOOOOClC.JCiOOOOOOO CXO
o     3    JJ                     oooooo-j-rsjfsjMooor-oooooooooaaoooooooooooooood
O           •«;     fl        00    OOOC)OO«»-O»-O-OOOOOOOOOOODOOOOCiOOOOOOOOOOOOaOO
at           ac                      ••«•••••••••••••••«•••••••«»••••«••••••••
«-*uj                                        u>^ost^j           ^-
>s<           >                                        «~  «-
<     Kl    <                                        •»  M
X     N-
   Kl  O    OC
ud r^  «-    3
   O-        O                     OOOOOON-O-KlO-t-OOO^OOf^OOOOOOOOOOOOOOOOOOOOOOOOOO
«»->-    3:                     oooa>tt-r>-f^ivooooKivoooc)oooooooooaoooooooooooooo
M     I-     I     f\)        in    OOOO(OO>«-l\jOOOO»-fMf\jOOOOOOOOOOOOOOOOOOOOOOCiOOO
<     rt    (\J                      •••••••••••«•••••••••••••••••••••«•«•••••
     •  O                                        •* (\J                     (M    •*•
 » >•                                            o o>
3; t-  I-                                        N- Kl
< t-l  trt
X U  UJ
     t-
Z t-                               O»-IO-*OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
aioju                           aor-i^-ooooooooooaoooooooooooooooooooooooooo
a LU  <           1-        r.    OOlTlsTOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
^ K  K                            •••••«••••«•••••••••••••••••••••••••••••«
       <                                 CM  00
a  »  a                                 M  - n  aj           Z        UJ
ffi V)  C           <        <-> 0.
   (A               OC        0:iUT-IMK)~»l
D C  "•                    O  UJ
tt. UJ                      
-------
                        Ul  
                        at  ui       o
                     _l <  
                     KiDlU         •  •••*••••••••••••••
                     Otiae                     T- •- f\J to Kl Ki        •* Kl «- r- «-    »-
              Kl
                                     OOOOIOINjKIK)r-«-OOO-t\JOOO<4-OOOU*tOOOOOOOOOOOOOOOOOOO
                                     OOOOru(MOOOOOOr-Or-OOOOOOinOO«-OOOOOOOOOOOOOOOO
              o:
              3
              o                     ooooooooooooooooooooo>ooo«»oooooooooooooooo
              CO                     OOOOOOOOOOOOIOOOOOOOOIMOOO-«OOOOOaOOOOOOOOOO
                     O-        Kl    OOOOOOOOOOOOOOOOOOOOOOOOT-OOOOOOOOOOOOOOOO
              <               r-      •  >••••••••••••••••••.   •..••..••!••.   •!.••••
              1X1
              a:
              <

              *-
              z
              <                     OOOOOOOOOOOOOOOOOaONOO^OO^KlOOOOOOO^KiOI^-OOOO
              W                     OOOOOOOOOOOOOOOOOOOlAOO>»OOOr\J»-O>»OOOO
              t-i     00        N    OOOOOOOOOOOOOOOOOOOl^OOOOOroOOOinOC!O>»«»O«-OOCiO
              u.                       •••••••••••••4i*««««»«*««a««a**«««««**«««
              »M
              z
              U)
              l-(
              «

              *                     OOCJOOOC.OOOCiOOOOOOOr-OOOr-OOO
              O                     OOOOOOOOOOOOOOOOOOOOOO*-OO^-s»OOinoOOOO-*OOoOOOO
              a-     N        CO    OOOOOOOOOOOOOOOOOOrMOOC'KiOOOK>OOOK)OOOOOO>rOCO
"»            *
              C
r-            ««                     OOOOKl(SJKIOOOOOO(\JO^OOOOs»-OOO>rOOOOOO>a-OOOO-OOOOOOO'«)
**                                 OOOOOOrOT--O'OOOOlA(\JOOT-OOO«-OOOOOOOOOO'»OOOOOOOoO
<            C     O        O    OC. OO^':K^^^l^J«-^r-OO(^J^-KlOOC^OCCi(^JC.OOOOOOOOOOOOOOOOO(^J
Q.            <               «-      •••••••••••••••••••>•••••<•••••<••••••••*
LU            OC


>            o
X     Kl     O£

Z     |J>     M
O     r-     £                     OCJOOOOOOOOOOOOOO-OOOOOOOmOOOOOOOOOOOOOOOOO
M            w                     OOOOOOOOOOOOOOOO«-OOOOOOT-OOOOOOOOOOOOOOOOO
U3     >-     2     in        (\J    OOOOC)OOOOOOOOOOO«»OC)OOOO  r* C t-  C^ C.  C  L- C^ O O C- O ^ .  O Cj O -a O C> O O O Cj i/'  C.
vi     a.
•^j     a.     Uj                     C' O C/  O t^  JC' -j IV •<.' »- O  C^ 3  (X (Xj O  t - O C  O C,  O O O O C.  O C. O  O O C- C O  O CJ O  O O O C'
O     O     JJ3                     O CJ O  O rw  >o NJ- r-O O O CJ  O yc>  f-1 >o o  L-J O O  CJ O  O O O O O  O O O  O O O O O  O O U  O O t_l O
G            <    PO        m    Ci Cj c  C' i—  «- sj sj r\j r\j c_  o r\  r\j s» o  o o o  o C-.  o C' CJ o o  o o o  o C1 o o o  o o o  o c. o o
a:            cc.                       «•«•••««.•«««••«.•«•«•••••«•••'•«•••••••••
<      •*     u.                                   r-  c-                            f
'>!            >
«t     Kl     <
X     1^.
    Kl O     Or
>xJ  h- »-     D
    J-        O                     OOUOOOK1O«-OOGO«-OOOOOOOOOOOOOOOOOOOOOOOOOOO
rxr->-     x                     ooooov-iui-oxoooooouooooaooooopnoaocpoooooouo
i-l     K     I     (NJ        r-)    ^> L> ^}  • J t J  , J i,J (X) \f\ <, > .  O I    h- v  J C J  ^ '  w) t.,5  C, -! ..^  C^ d  "U O ./,.  Uj O C '  ~> ',^ O > '~1 O  C  . O O  O '""I O <~
-
A  (- K
<  l~t i/5
X  O UJ
(/>     ^-
2  r-                               oOGOOOOOOOOOr-LiJ-iOOOOOOOOOOOOOOOOOOOOOOOOOO
.u  iO  ••                            O O O  O O  O O O O LJ O  "3 J-  O .O O  O  J .3  O O  O  3 O O O  O O O  O O O O O  O O O  O O O O
auj«c           «-        -»    OOOOOOOOOOOOKICJOUO^C,  aoooooooooooooooaooooo
^(_(—                              ......«......................•..•••••••••
       «t                                                                     K
a  •• o
tl  l/>
    z  •                      «
«•  O H*            ^           *t
                                                                                    70

-------
                       z
                       O
                       ct
                       K V.
                       z z           r-o«*u^t— i/NKit^rvjO^rxj^o-Kiu-i^riX^f^^-oo
                       uj<           vi -*  «~ t-                           ru    ru  ex* *- fv rv  f  KI rv
                       o   K> *o oc  t— t-oori--oo>OP''O^n>e
                          ^           ooin-jo>oo-Ki-»O'X)>»-«-i>t>-«--oo^*sriri«->»>»
                          O            •««•••   .........   .....................
                          co                  r\joO'O>4ri*iiOKiof^-ors->oo    *—           KI r\j        oo-o    rorg^-ix)    oo
                                              r»~i *~ O O^  h ~i f"> <,«-*- O    O        r-                 r- t—        r-f\-       v- r*\       r-
                                                      i * «-- -C  *j  ^  c r-- r*t  *— O <^i C  <-  r-J ^J" ro f^  fc u> K -^j  »- O a"1
                                          OOOttji—  ls-ooojr-OOO-h-OKi»-OOoOMio-o«-T-OKiooi^vOajo<»'Mu^Ni--ja/o>i'
                                       c. ooC'»ir>'ffO(MKir-»-r-MO-ro'CO
 ••           ac
>           K-
x    Ki    z        c              OKioul^i7-vT<>r'NJ«-'MOKi4j-o>nOOKiu.CjOint\j(_)oro>>'O^r>o^j-i«iT-<— ~»otjr-rjh-
      h-    cu        Ot—           o *~ «*  Ki &j oo  -o o o oo fv* T- or  c>- fvj  in O c ' T- f*-> o o N- in  O «— N- (NJ O  r- o- •* O  oo Cj ro o c 5 r- KI o
Z    O-    O        O£j£        OO«-N-^»»-<'OO«--tfMO^i>-OmOJOK>OOO>l>-O«-rv-OO«-OOOin'OOr-OOr--»-O
O    T-    z        u. ^-t  uj        o O ir>  sj- K* O  o  P»I f\j i^ f*^ r^t o-  u"i r-  r^ c> o f^j o o o t* j r\j o
IH           O           O•    o        *JO.a:              <\JOCvojK>tnr-roKi-o«-        000*0     Ktrusi-f*-    oo           o-
LUK-              <3              fO«— OOflfO^t-r-OO        »-                 r-«-              fM        »-K1        t—           (NJ
.        K-JO                     r^-ro-jru-OK-a-tM
      <->    cc.        O _l  to
 "           <        K «t
 •    t-    ac
>    en    K
M    lil    3           t—
O    K    irt        Z. Z           OfOoON.OO-OKlrMOO(M(MOu-vM^OOOOOOOOOOOOOOOOOOOOOOOOOO
 •     "•              tt o «        o cj *-  r«- «r v- ru ui «^ ru <  IM KI 4 o  o o i_' c.' o o  Ci LJ o c.i  o o c_i o o ui o C'  o c> c< o o  o o o
a:     a:    rvj        u- a. uj        o o >n  »» ci o o « o o r^  ro > «i <\i  o o o o o o  o a o GJ  o o o o o o o o  o o o o o  o o o
UJ     l-i    O              <^         •«•«•••••••«•••••••««•«•«••••••••••••«•••
t-     <    (/)        «ju»a:              tMco^rutA^^iMro^f^oo^
<                     < 1-1 3              Kl»-OO«-T-«*i>«-O    IV.
£     ae    ai        t-zo                     r-ro>»r\)'O(M~r(\(
       UJ            O U) (/>
to     a.    <        h- M
3     a.    ix           co
O     3    uj
a           >
K           <
^     •»                              oo»"rvj-ol^f"-ou^LjOo>*tri
tsi           a:                        omoini~o<\ioui<«jui«.o>o>i
<     K!    S)        X               »......«.
I     f>-    O        K              LA»-N.vOKlKI«-T-OOOOO-O
             i        IK              oooooooooooooo-oooooooooooooooorioooooonrioo
             I         o              -»>»'*Nr-»'*>»«»-»'»-»«»''iriKi«*^to^^<^'*^r-*^^>4-^'*^>*-*-*-*-*~T«»-»'»>»>»
X <-> UJ               «               i^u>uib^iriiAinb^b^u^u^b^inb^i^u>u^b^i«irib^b^inb^irib^ir               ui
Z K
uj oo  "
a: ui <
^ H t-                •
      •c               o
a»o               z
UJIrt                                  OOI^f^i^m!>C10OO>{>t-r->»MiriC>-PJOOOI*.KlMOOOOOOOOOOOOOOOOOOO
   z  •               a                                               «.,.
"OK               O
>• •-< LU               H-               - «> c               a.
                     Ui               f-ruKi-*moKoOOO^<\jrO'*
ZM
-------
                          RAM PROGRAM LISTING
C***   URBAN  BATCH VERSION(78124) OF RAM
C***RAM IS AN EFFICIENT GAUSSIAN-PLUME MULTIPLE-SOURCE
C»**AIR QUALITY ALGORITHM. RAM IS DESCRIBED IN: NOVAK,J.H., AND
C***TURNER,D.B.,  1976: AIR POLLUTION CONTROL ASSOC. J., VOL. 26, NO. 6,
C***PAGES 570-575(JUNE 1976). RAM'S PRINCIPAL USE IS TO DETERMINE
C***SHORT TERM(ONE-HOUR TO ONE-DAY) CONCENTRATIONS FROM POINT AND
C***AREA SOURCES IN URBAN AREAS.
C***SEE RAM GLOSSARY FOR DEFINITIONS OF VARIABLES.
C**»
C***          POINT SOURCE INFORMATION
C***
                              1=EAST CO-ORD(USER UNITS)
                              2=NORTH CO-ORD(USER UNITS)
                              3=S02 EMISSION RATE(GXSEC)
                              4=PART EMISSION RATE(GXSEC)
                              5=STACK HEIGHT(M)
                              o=STACK TEMP(K)
                              7=STACK DIAM(M)
                              8=STACK VELOCITY(M/S)
                              9=PARTIAL CALCULATION OF  BUOYANCY
C***SOURCE(9,#PT SOURCES)
C***
C***
c**»
C***
c**»
c**»
C***
c**»
C***PNAME           12 CHARACTER PLANT IDENTIFICATION
C***          AREA SOURCE INFORMATION
C***ASORC(6,#AREA SOURCES)  1=X CO-ORD(USER UNITS), SOUTHWEST CORNER
C***                        2=Y CO-ORD(USER UNITS), SOUTHWEST CORNER
C***                        3=S02 EMISSION RATE(G/SEC)
C***                        4=PART EMISSION RATE(G/SEC)
C***                        5=SIDE LENGTH(USER UNITS)
C***                        6=STACK HEIGHT(M)
      COMMON /COEFFS/ PXCOF(6,9) ,PXEXP(6,9) ,PXUCOF(6,9) ,PXUEXP(6,9) ,AXCO
     1F(6,9) ,AXEXP(6,9) ,HC1(10)
      COMMON /RELC/ CIK(3,200)
      COMMON /SORC/ IA(25,25) , SOURCE ( 9 ,250) , ASORC(6 , 100) , UNITS, CONTWO , RR
     1 EC (150) ,SREC(150) ,MPS(25) ,MAS(10) ,IOPT(13) , IPOL , NRECEP , RMIN , RMAX ,S
     2MIN,SMAX,IRSIZE,I3SIZE,NPT,NAS,NSIGP,NSIGA,PNAME(2,250) ,PSAV(250)
      COMMON /METCON/ ACHI(150) ,PCHI(150) ,ASIGS(150,1 1) , PSIGS( 1 50 , 26 ) ,IA
     1SIGS(100) ,IPSIGS(250) ,THETA ,U ,KST ,HL ,TSMP ,STNT, COST , 3PH(2) , IhD.PAR
     2TC(250) ,AHCHI( 150) , PHCHI( 150) , AHSIGS (1 50 , 1 1) , PHSIGS( 1 50 , 26 ) ,PL(6)
      COMMON /HEIGHT/ HIKT( 3 ) ,H ARE( 3) , bPHM( 2 ) , FH
      COMMON /METDAT/ QTHETA(2l) ,aU(2H) ,IKST(24) ,QHL(2U) ,QTEMP(2it) , IDAT'-i
     1(2)
      COMMON /HCGRID/ HRMIK , riHHAX , HS MI,^! , HSMAX
      COMMON ITYPE(150) , ICODE(150) , IN , TO , NIP , MD , N AVG
      DIMENSION IFREQ(7), DEG(3), HSAV(250),  RH A ME ( 2 , 50) ,  DUMR(24),  HLH(
     12, 2M), LTNEK14),  L:ME2(1i|), LINF.3(14),  MODEL(2),  DSAV(250),  I'-1PS(
     225),  IMAS(IO), UPRECdSO), USREC(150),  TITLE(2)
      DATA  IFREQ /7*Q/ ,DEG /90 . , 1 80 .
      DATA  PL /O. 15, 0.15, 0.20, 0.25,0
DATA MODEL /'RURAL
NRECEP=0
MPREC=0
MP = 0
IN = 5
10 = 6
                                          . /  ,ICHAR  /'I'/
                                      40, 0.60/
                                                                   RAM0010
                                                                   RAM0020
                                                                   RAM0030
                                                                   RAM0040
                                                                   RAM0050
                                                                   RAM0060
                                                                   RAM0070
                                                                   RAM0080
                                                                   RAM0090
                                                                   RAM0100
                                                                   RAM0110
                                                                   RAM0120
                                                                   RAM0130
                                                                   RAM0140
                                                                   RAM0150
                                                                   RAM0160
                                                                   RAM0170
                                                                   RAM0180
                                                                   RAM0190
                                                                   RAM0200
                                                                   RAM0210
                                                                   RAM0220
                                                                   RAM0230
                                                                   RAM0240
                                                                   RAM0250
                                                                   RAM0260
                                                                   RAM027Q
                                                                   RAM0280
                                                                   RAM0290
                                                                   HAH0300
                                                                   R-AM0310
                                                                   RAM0320
                                                                   R AMD 3 30
                                                                   RAM0340
                                                                   RAK0350
                                                                   RAM0360
                                                                   RAM0370
                                                                   RAK0380
                                                                   RAM0390
                                                                   RAM0400
                                                                   RAMOU 10
                                                                   RAM0420
                                                                   RAM0430
                                                                   RAM0440
                                                                   RAKiOf 50
                                                                   R A HO '4 60
                            'UHiMN  '/  .TITLR  /'  S02
                                                         PART  '/
RAM0480
RAM0490
HA '''0500
R A 110510
R A '-10 5 20
RA'10530
                                        72

-------
C***NID-DISK OR TAPE INPUT OF PREPROCESSED EMISSION DATA. LIMITED TO:
Cs**150 RECEPTORS,250 POINT SOURCES AND 100 AREA SOURCES
C***KIP-DISK OUTPUT OF PARTIAL CONCENTRATIONS AT EACH RECEPTOR
C***NIT-DISK I'lPUT OF f-'ET DATA
C***UNIT 15 - TAPE/DISK INPUT OF HOURLY FCI\T SOURCE EMISSIONS
C***LINIT 16 - TAPE/DISK INPUT Or HOURLY AREA SOURCE EMISSIONS
      fj ID = 9
      NIP=10
      NIT=1 1
C***THREE SYSTEMS OF LENGTH AND COORDINATES ARE USED IN RAK:
C*** THE FIRST SYSTEM, USER UNITS, IS SELECTED BY THE USER AND
C***  NORMALLY USE THE COORDINATE SYSTEM OF THE EMISSION INVENTORY.
C***  ALL LOCATIONS INPUT BY THE USER(SUCH AS SOURCES AND RECEPTORS)
C***  ARE IN THIS SYSTEM. ALSO AS A CONVENIENCE TO THE USER ALL
C***  LOCATIONS ON OUTPUT ARE ALSO IM THIS SYSTEM.
C*** THE SECOND SYSTEM, INTERNAL UNITS, IS USED INTERNALLY IN RAK
c*»*  FOR COORDINATE LOCATIONS AND DISTANCES. ONE INTERNAL UNIT IS THE
      SIDE LENGTH OF THE SMALLEST AREA SOURCE SQUARE. THIS LENGTH MUST
      DE IDENTIFIED AND SPECIFIED BY THE USER. THE PURPOSE OF USING
      INTERNAL UNITS IS TO HAVE A CORRESPONDENCE BETWEEN LOCATION(GRID
C***  COORDINATES) AMD PARTICULAR AREA SOURCE POSITIONS. THIS IS
C****  ACCOMPLISHED THROUGH THE USE OF THE AREA SOURCE MAP ARRAY(IA ARRAY
C***  ). THIS ALLOkS DETERMINATION AS TO U'lTHIN WHICH AREA SOURCE ANY
C***  COORDINATE POINT RESIDES.
c*** THE THIRD SYSTEM,X,Y, IS AN UPWIND, CROSS;iIND COORDINATE SYSTEM
C***  WITH REFERENCE TO EACH RECEPTOR. TdE X-AXIS IS DIRECTED UPWIND
      (SAMK AS WIND DIRECTION FOR THE PERIOD). IN ORDER TO DETERMINE
      DISPERSION PARAMETER VALUES AND EVALUATE EQUATIONS FOR
      CONCENTRATIONS, DISTANCES IN THIS SYSTEM MUST BE IN KILOMETERS.
 ***
C
c*»*
 ***
C***
C***HEAD CARDS 1-3, IDENTIFICATION FOR TITLES.
      READ (IN, 940) LINE1 ,LINE2, LINES
      WHITE (10,950) LINE1 ,LINE2,LINE3
C***MODL IS INDICATOR FOR JR3AN VERSION.
      !',ODL = 2
      WRITE (10,960)
C***READ RAMQ OUTPUT FROM DISK OR TAPE; DATA IN INTERNAL UNITS.
      READ (NID) UNITS, CONTWO , CONONE , IPOL , NPT , IMPS, PNAME.IMOD
C***VERSION COMPATIBLE WITH RAMQ OUTPUT?
      IF (IMOD.EQ.MODL) GO TO 10
      WRITE (10,1000) MODEL(IMOD),MODEL(MODL)
      CALL EXIT
C***CONTINUE READING DATA TRANSFERRED FROM RAMQ.
10    DO 20 1=1 .9
20    READ (NID) (SOURCE( I , J ) , J= 1 , NPT)
      READ (NID) NAS,TMAS,RMIN,RMAX,SMIN,SMAX,IRSIZE,ISSIZE
      DO 30 1=1 ,6
30    READ (NID) (ASORC(I.J) ,J=1 ,NAS)
      DO 40 1=1 ,IRSIZE
40    READ (NID) ( IA( I , J ) , J= 1 , ISSIZE)
C***
C***READ CARD 4.
C***OPTION LIST***(SEE RUN STREAM EXAMPLES OF RAM FOR DETAILED
C***DESCRIPTION OF INPUT VARIABLES).
C*»*NAVG IS INTERMEDIATE AVERAGING TIME IN HOURS
C»**HAFL IS POLLUTANT HALF-LIFE IN SECONDS
      READ (IN, 970) IOPT,NPER.NAVG,Z,HAFL,NSIGP,NSIGA,IDATE,IHSTRT
      WRITE (10,1030) (I,IOPT(I)-,I=1,13)
      TLOS=693./HAFL
C***693. = 0.693*1000 METERS/KM, TLOS IN METERS/KM-SEC.
      IF (NAVG.EQ.O) CALL EXIT
C***READ SFC MET. STATION ID AND 2-DIGIT YEAR,
RAM0540
RAH0550
RAM0560
RAM0570
RAM0580
RAM0590
RAM0600
RAM0610
RAM0620
RAM0630
RAM0640
RAi"0650
RAM0660
RAM0670
RAM0680
RAM0690
RAMO^OO
RAM0710
RAM0720
RAM0730
RAMOV40
RAM0750
RAMQ760
RAM0770
RAM0780
RAM0790
RAM0800
RAM0810
RAM0820
RAM0830
RAM0840
RAM0850
RAM0860
KAM087Q
RAM0380
RAM0890
RAM0900
RAM0910
RAM0920
RAM0930
RAM0940
RAM0950
RAM0960
RAM0970
RAM0980
RAM0990
RAM1000
RAM1010
RAM1020
RAM1030
RAM1040
RAM1050
RAM1060
RAM1070
RAM1080
RAH1090
RAM1100
RAM1110
RAM1120
RAM1130
RAM1140
RAM1150
                                       73

-------
C***MIXING HEIGHT STATION AND 2-DIGIT YEAR                               RAM1160
C***ONLY IF MET DATA IS FROM RAMMET                                      RAM1170
      IF (lOPT(H).EQ.I) GO TO 60                                        RAM1180
C***READ CARD TYPE 5 UNLESS USING OPTION 11.                             RAM1190
      READ (IN,970) ISFCD,ISFCYR,IMXD,IMXYR                              RAM1200
C***THE ABOVE FORMAT IS UNIVACS FREE FIELD INPUT.                        RAM1210
C***VARIABLES MUST BE SEPARATED BY COMMAS.                               RAM1220
C***THIS IS SIMILAR TO IBM'S LIST DIRECTED 10.                           RAM1230
C***CHECK TO INSURE CORRECT SURFACE DATA, MIXING HT. DATA, AND           RAM1240
C***PREPROCESSOR ARE BEING  USED.                                         RAM1250
C**»READ IDENTIFICATION RECORD FROM PREPROCESSED MET DISK OR TAPE FILE   RAM126Q
      READ (NIT) ID,IYEAR,IDM,IYM                                        RAM127Q
      IF (ISFCD.EQ.ID.AND.ISFCYR.EQ.IYEAR) GO TO 50                      RAM1280
      WRITE (10,980) ISFCD,ISFCYR,ID,IYEAR                               RAM1290
      CALL EXIT                                                          RAM1300
50    IF (IMXD.EQ.IDM.AND.IMXYR.EQ.IYM) GO TO 60                         RAM1310
      WRITE (10,990) IMXD,IMXYR,IDM.IYM                                  RAM1320
      CALL EXIT                                                          RAM1330
60    IP=!POL-2                                                          RAM13HO
      WRITE (10,780) UNITS, CONONE, CONTWO, TITLE(IP) ,IPOL                  RAM1350
C***ECHO INPUT PARAMETERS                                                RAM1360
      WRITE: (10,790) NPER.NAVG.IDATSU) ,IDATE( 1) ,IHSTRT,Z,HAFL           RAM137*0
      IF (lOPT(H).EQ.O) WRITE (10,800) ISFCD , ISFCYR , IMXD , IMXYR          RAM13&3
      WRITE (10,810)                                                     RAM1390
C***IOPT(1) CONTROL OPTION, POINT SOURCE INPUT? 0 = NO, 1=YES.             RAM1400
C***IF NO POINT SOURCES, SKIP DOWN TO AREft SOURCE CODE.                  RAM1410
      IF (IOPT(1).EQ.O) GO TO 150                                        RAM1420
C***.IOPT(12) CONTROL OPTION, SPECIFY SIGNIFICANT POINT SOURCE NUMBERS    RAMU30
C***0=NO, 1=YES.                                                         RAM14140
      IF (IOPT(12).EQ.O) GO TO 80                                        RAM1M50
C***READ CARD TYPE 6 IF USING OPTIONS 1 AND 12.                          RAM1460
C***READ THE NUMB2R OF SIGNIFICANT POINT SOURCES THAT USER WANTS TO      RAM147Q
C***SPECIFY AND THE NUMBER DESIGNATIONS OF THOSE SOURCES.                RAMU80
      READ (IN,870) II'iPT,(MPS(I) ,1= 1 ,INPT)                               RAM1H90
      IF (INPT.EQ.O) GO TO 30                                            RAM1500
      IF (MPS(IIJPT) .EQ.O) WRITE (10,880)                                 RAM1510
      J=INPT+1                                                           RAM1520
      K=1                                                                RAM1530
C**i«ADD SIGNIFICAM1 SOURCES DETEhKINED FROM SIGNIFICANT SOURCE LIST      RAM1540
C***IF NSIGP GREATER TH.AN INPT.                                          RAM1550
      IF (J.GT.NSIGP) GO TO 100                                          RAM1560
      DO 7Q I=J,MSIGP                                                    RAM1570
      MPS(I)=IMPS(K)                                                     RAH1580
70    K=K+1                                                              RAM1590
      GO TO 100                                                          RAM1600
GO    DO 90 I=1,MSIGP                                                    RAM1610
90    ;1PS(I)=IMPS(I)                                                     RAM1620
100   WSITE (10,950) LINiil  ,LINE2,LINE3                                   RAM1630
      WRITS (10,820) NPT,MSIGP,(I''1PS(I) ,1=1 ,KS:GP)                       RAM1610
      WHITE (10,1050)                                                    RAM1650
      IF (IOPT(13).EQ.O) GO TO 120                                       RAM1660
C***SAVb AVERAGE EMISSION HATE                                           RAM167Q
      DO 110 1=1,MPT                                                     RAM1680
110   PSAV(I)=30U3CE(IPOL,I)                                             RAM1690
C***V;KITE OUT POINT SOURCE LIST.                                         RAM^OO
120   DO 130  1=1,MPT                                                     RAM171Q
C***CONVERT TO JSEfi JillTS FOH PRIMT  OUT.                                 RAM1720
      C1=SOURCE( 1 ,I)*'JMITS                                               RAM1730
      C2 = SOUHCE(2,I)*IJMT3                                               RAM17HQ
      WRITc, (10,1060) I,(P,1A;':E(L,I) ,L= : ,2),C1 ,C2,(SOURCE(K,I) ,K = 3,8)     RAM175Q
      I?SIGS(I)=0                                                        RAK1760
130   CCMJTI'MCE                                                           RAM177Q
                                       74

-------
140   'PSIGS v J/- -
C*»-*IOPT(2)  CCuThCL Orll.,  ,  ''rEA  SOJ^CE I;.PUT? 0 = .iC,  1=YES.
C***IF .»Q  ARE;'  S-Jl'RCE.-, Or'IP  rO/,.i  TO  I..PUTTING RECEPTORS.
153   IS-  (IGPT(2) . "X .01 j.j TO 260
C*i"*READ  CARD  TYPE  7 I -" USING OPTIu:  2.
      REAP  ( Ii: ,^70) F ; , 
  • L::'-XLT ^COMOM:-, TE (XLT •' .L.T. ! 16 . 1 GO TO 160 '.VHTTi:, (10,1040) XL!-'. CALL KXTT C*«*IOFT(12) OOt.TROL jPTTun, SPECIFY OI'TilEICArlT POINT SOURCES? C-.JO, C*** 1-YES. 1'oO IF (lOTTf, 12) .iv'i.O) 00 TO 1&0 C;***FLAD THE NUV.3EP OF oltJMFICAi-IT AFbA SOURCES T-^AT USSR C***.vAiJTS TO SPECIFY 4i;D Tiic, MUI'.BER DESIGfiATIOH3 OF THOSE SOURCES. C***RI-:AD CARD TYPE y IF USI:JG OPTIONS 2 AJD 12. READ (Iu,870) liiAS, (f^AS( I) ,1- 1 ,INAS) IF (IriAS.EO.O) 00 TO 130 IP' (liAS(IiiAS) .Ew .0) WRITE (10,890) J = UAS+1 i<=1 IF (J.GT.i.'SIGA) 00 TO 200 DO 170 I=J,NSIGA ;1AS(I) = IMAS(K) 170 K=K+1 GO TO 200 C*xjtADD SIOrilEICANT SOURCES LJ E TEPXINED FRO"! SIGNIFICANT SOURCE LIST C***IF NSIGA GREATER THAN IMAS. 180 DO 190 1=1,NSIGA 190 MAS(I")=IMAS(I) 200 WRITS (10,830) NAS,MSIGA,(r-1AS(l) ,1=1 ,MSIGA) VJRTTE (10,840) NHTS, (HINT(I) ,1=1 ,NhT3) WRITE (10,850) (BPH(I),1=1,NBP) WRITE (10,860) FH,C5,C1,C2,C3,C4,IRSIZE,ISSIZE C***IF IA ARRAY TOO LARGE TO BE PRINTED AS A HAP, PRINT!JQ IS SKIPPED. IF (IRSIZE.GT.4 I) GO TO 220 C***PRIMT OUT AREA SOURCE MAP ARRAY. WRITE (10,1010) JLIf-UISSIZE+1 DO 210 JDUM=1 ,ISSIZE J=JLIM-JDUM 210 WRITE (10,1020) J , (TA(I,J),1=1,TR3IZE) WRITE (10,1190) (1,1=1 , IRSIZE) GO TO 230 220 WRITE (10,930) C***WRITE OUT THE AREA SOURCE LIST. 230 WRITE (10,1070) DO 240 1=1,NAS i< A . ! 1 7 G 0 R A 1-11790 -i A .-. 1 3 0 0 « A ' ' 1 a 1 c rAI- 1 320 RA'-:1>J JO RAI'1 b'lO RAK1350 RA: 11560 R A i " 1 P) 7 0 i; A •: 1 o t; o R A : • i c 9 o ;' A '-11900 R A f, 1 9 1 0 R A' .1920 RA':1930 '< /i ". 1 -3 4 0 RA 11950 R A ;•! 1 9 6 0 RAM 199 3 RAi-12000 RA: 12010 RAM2020 PAM2Q JO RAM2040 RAK2050 RAM2060 RAK2Q7Q RAM2030 R A -12 090 RAM2100 RAM2110 RAF12120 RA^,2130 RAI12140 RA112150 RAH2160 RAI1217Q RAM2180 RAM2190 RAH2200 RAM2210 RAM2220 RAH2230 RAK2240 RAI12250 RAK2260 RAK227Q RAH2280 RAK2290 RAM2300 RAM2310 RAM2320 RAH2330 RAM2350 RAM2360 RAM2370 RAM2380 RAM2390 75

  • -------
    C***CONVERT TO USER UNITS FOR PRINT OUT                                  RAM2400
          C1=ASORC(1,I)«UNITS                                                RAM2410
          C2=ASORC(2,I)*UNITS                                                RAM2420
          C3=ASORC(5,I)*UNITS                                                RAM2430
          WRITE (10,1080) I,C1,C2,(ASORC(K,I),K = 3,1O,C3,ASORC(6(I)           RAM2l(HO
    C**»SIDE LENGTH IS MULTIPLIED BY .5 TO SAVE TIME IN LATER COMPUTATIONS   RAM2H50
          ASORC(5,I)=ASORC(5,I)*0.5                                          RAM2460
          IASIGS(I)=0                                                        RAM2470
    240   CONTINUE                                                           RAM2480
    C***FILL IN SIGNIFICANT AREA SOURCE MARKER ARRAY                         RAM2490
          DO 250 1=1,NSIGA                                                   RAM2500
          J=MAS(I)                                                           RAM2510
    250   IASIGS(J)=I                                                        RAM2520
    C***INPUT PERMANENT RECEPTORS                                            RAM2530
    C***IOPT(3) CONTROL OPTION, SPECIFIED RECEPTORS?  0 = NO, 1 = YES.       RAM2540
    260   IF (IOPT(3).EQ.O) GO TO 300                                        RAM2550
    270   NRECEP=NRECEP+1                                                    RAM2560
          IF (NRECEP.GT.150) GO TO 280                                       RAM2570
    C***READ COORDINATES IN USER UNITS                                       RAM2580
    C***ATTENTION USER: DON'T SPECIFY A RECEPTOR AT ORIGIN AS A BLANK CARD   RAM2590
    C***IS USED TO INDICATE ALL RECEPTORS HAVE BEEN READ.                    RAM2600
    C***READ CARD TYPE 10 IF USING OPTION 3.                                 RAM2610
          READ (IN,1090) (RNAME(J,NRECSP),J=1,2),RREC(NRECEP),SREC(NRECEP)   RAM2620
    C***BLANK CARD OR RECEPTOR AT ORIGIN  SIGNALS ALL PERMANENT RECEPTORS     RAM2630
    C***HAVE BEEN ENTERED.                                                   RAM2640
          IF (RREC(NRECEP)+SREC(NRECEP).LE.0.001) GO TO 280                  RAM2650
          GO TO 270                                                          RAM2660
    280   NRECEP=NRECEP-1                                                    RAM2670
    C***SAVE NUMBER OF PERMANENT RECEPTORS                                   RAM2680
          NPREC=NRECEP                                                       RAM2690
    C***PRINT OUT TABLE OF PERMANENT RECEPTORS***                            RAM27QO
          WRITE (10,950) LINE1.LINE2,LINES                                   RAM2710
          WRITE (10,1100)                                                    RAM2720
    C***THE CHARACTER "I" INDICATES THAT  THESE RECEPTORS WERE INPUT  INTO     RAi12730
    C***THE MODEL.                                                           RAi!27l|0
          DO 290 K=1,MRECEP                                                  RAM2750
          ITYPE(K) = ICH:AP                                                     RAM2760
          WRITE (10,1110) K,ITYPE(K),(RNAME(J,K),J=1,2),RREC(K),SREC(K)      RAH277Q
    C***CONVERT TO INTERNAL UNITS                                            RAM2?80
          RREC(K)=RREC(K)/UMTS                                              RAM27go
          SREC(K)=SREC(K)/UNITS                                              RAM2800
    290   ICODE(K)=0                                                         RAM2810
    C***IF NEITHER POINT OR AREA SOURCES  WERE SPECIFIiO,EXIT  PROGRAM.        HAM2820
    300   IF ((IQPT( 1) + IOPT(2) ) ,'lh.O) GO  TO  310                              RAM2630
          WRITE (10,1120)                                                    RAM28HO
          CALL EXIT                                                          RAM2850
    310   IDAY=IDATE(2)-1                                                    RAM2860
    C***IOPT(11) COtlTROL OPTION, IKPUT  '1ET DATA ON CARDS?  0 = NO,  1 = YES.      RAH2870
          IF (IDAY.LE.O.OS.IOPT(11).EC.1) GO TO 330                          RAM2830
    C***POSITIOM MET FILS TO CORP.hCT POSITION                                RAM2890
          DO 320 1=1,IDAY                                                    RAM2900
    320   READ (NIT) JYR                                                     RAM2910
    C***!OPT(6) CONTROL OPTION, FILL I'J  .IOUEYCOMB RECEPTORS?  0 = KO,  1=YES.    RAM2920
    330   IF (IOPT(6).EQ.O) GO  TO 360                                        RAM2930
    C***PEAD Iti SPACING BETWEEN HOTiYCOM^ RECEPTORS  AND VARIABLE  HONEYCOMB   RAK2940
    C***GRID BOUNDARIES I'J USSR UNITS.                                       RAM2950
    C***L'SER CAN INPUT ZERO MEHK FOR BOUNDARIES IF Hli  ,-,'Ai;TS THE  BOUNDARIES   PA'12960
    C***OF THE AREA SOURCE REGIO:' TO DEFINE  THE AREA COVERED  BY  HONEYCOMB    RAM2970
    C***RECEPTORS.                                                           RAM2930
    C***READ CARD  TYPE  11 IF USIVG OPTION 6.                                PAM2990
          READ (IN,970) GHIDSP.HF •*,] , Hh ^ AX , HSMIN , HSt'AX                       RA:-13000
          IF (HRMAX.Nh.0.0) GO  TO 340                                        RAM3010
                                            76
    

    -------
    C***R
         HIM,RKAX,STUN,SMAX
    
          HRMAX=PKAX
          HSHIM=SHIM
    ARE IN INTERNAL UNITS
          GO TO 350
    C***CONVERT INPUT GRID bOUNDARI'" S( USSR UNITS) TO INTERNAL UNITS
    340   HRMIN = HRMIi\i/U.N!rrS
          HRMAX=HRKAX/UNITS
          HSMIN = HSMIN/'JNITS
          HSMAX=HSMAX/UNITS
    C***CONVERT GRIDSP FROM USER UNITS TO INTERNAL UNITS.
    350   GRIDSP = GPIDSP/UMTS
    C***INITIALIZATION
    360   IDAY=IDAY+1
          NHRS=0
          IF (IOPT(11)
    C***INPUT MET DATA
                      .EQ.1) GO TO 400
                       FOR EACH DAY FROM DISK CREATED BY R AMMET , IOPT( 1 1 ) =0
          READ (NIT) JYR,IMO,DAY1 , IKST , QU ,QTEMP , DUMR .QTHETA ,HLH
          IF (JYR.NE.IDATSd)) GO TO 370
          IDATE(2)=DAY1
          IF (IDATE(2) .SQ.IDAY) GO TO 330
    C***DATE ON MET TAPE DOES NOT MATCH INTERNAL DATE
    3^0   WRITE (10,740) JYR,ID4TE(2) ,IDATE(1) ,IDAY
          CALL EXIT
    C***MODIFY WIND VECTOH 3Y 180 DEGREES.
    C***FROK RAMMET, THIS CONVERTS BACK TO
    330   DO 390 IQ=1 ,24
          IF (IKST(IQ).EQ.7) I.
    -------
          IF(IKST(JHR).EQ.7) IKST(JHR)=6                                     RAM3640
          WRITE (10,1140) JHR,QTHETA(JHR),QU(JHR),QHL(JHR),QTEMP(JHR),IKST(J RAM3650
         1HR)                                                                RAM3660
          SINT=SIN(TRAD)                                                     RAM3670
          COST=COS(TRAD)                                                     RAM3680
    C***CALCULATE WIND COMPONENTS                                            RAM3690
          URES=QU(JHR)                                                       RAM3700
          UR=URES*SINT                                                       RAM3710
          VR=URES*COST                                                       RAM3720
          DELM=DELM+UR                                                       RAM3730
          DELN=DELN+VR                                                       RAM3740
          TEMP=TEMP+QTEMP(JHR)                                               RAM3?50
          U=U+URES                                                           RAM3?60
          KST=IKST(JHR)                                                      RAM3770
    440   IFREQ(KST)=IFREQ(KST)+1                                            RAM3780
    C***REDEFINE NB AND NE IN CASE NON-CONSECUTIVE DAYS ARE BEING RUN        RAM3790
          IF(IOPT(11).EQ.O) GO TO 441                                        RAM3800
          NB=IHSTRT                                                          RAM3810
          NE=IHSTRT+NAVG-1                                                   RAM3820
    C***CALCULATE RESULTANT  WIND DIRECTION THETA                            RAM3830
    441   DELN=DELN/NAVG                                                     RAM3840
          DELM = DELM/NAVG                                                     RAM3850*
          THETA=ANGARC(DELM,DELN)                                            RAM3860i
    C***CALCULATS AVERAGE AND RESULTANT SPEED                                RAM387Q
          U=U/NAVG                                                           RAM3880
          TEMP=TEMP/NAVG                                                     RAM3890
          URES=SQRT(D£LN*DELN+DELM*DELM)                                     RAM3900
          PERSIS=URES/U                                                      RAM3910
    C***DETERMINE MODAL AND AVERAGE STABILITY                                RAM3920
          LSMAX=0                                                            RAM3930
          DO 450 1=1,7                                                       RAM3940
          LST=IFREQ(I)                                                       RAM3950
          IF (LST.LE.LSMAX) GO TO 450                                        RAM3960
          LSMAX=L3T                                                          RAM3970
          LSTAB=I                                                            RAM3980
    450   CONTINUE                                                           RAM3990
          IP1=LSTA3+1                                                         RAM4000
          KST = LST/\B                                                          RAM4010
          DO 460 I=IP1,7                                                     RAM4020
          IF (LSMAX.EQ.IFREQ(I)) GO TO 4?0                                   RAM4030
    460   CONTINUE                                                           RAM4040
          GO TO 490                                                          RAM4050
    C*«*IF TIE POR MAX MODAL STABILITY CALCULATE AVERAGE STABILITY           RAM4060
    470   KSUM=0                                                             RAM407Q
          DO 480 J^l,7                                                       RAM4080
    480   KSUM=KSUM+IFREQ(J)*J                                               RAM4090
          KST = FLOAT(KSUM)/FLOAT(!
    -------
          C2=HRMAX*UN!TS
          C3=HSMIN*UWITS
          C4=HSMAX*UNITS
          C5=GRIDSP*UNITS
          WRITE (10,1170) C1,C2,C3,C4,C5
          CALL JMHHOM (GRIDSF)
    510   IF U'RECEP.NE.O) GO TO 520
          WRITE (10,1180)
          CALL EXIT
    C***INITIALIZE CONCENTRATION' SUMS
    C***IF SIGNIFICANT OR HOKEYCOK.3 RECEPTORS,riRITS  CAUTIONING  STATEMENT.
    520   IF ((IOPT(4)+IOPT(5)+IOPT(6)).GT.O)  WRITE  (10,900)
    C***IrJlTIALIZE FOR AVERAGING TI.^E
          DO 550 K=1 ,'IRECEP
          ACHI(K)=0.0
          PCHI(K)=0.0
          DO 530 1=1,11
    530   ASIGS(K,I)=0.0
          LIU 540 1=1 ,26
    540   PSIGS(K,I)=0.0
    550   CONTINUE
    C***IF SAVIMG PARTIAL CONCENTRATION'S,  WRITE  NOS.  OF PFCSPTORS   SOURCES.
          IF (IOPT(8).EQ.O) GO  TO  57C
          DO -560 1=1 ,NRECEP
          URREC(I)=RREC(I)*UNIT3
          USREC(I)=SRSC(I)*UNITS
    560   CONTINUE
          WRITE (MP) NHECkP,NAS,>iPT,(Ur;i;iC(I) ,1=1 .r'RECiF) ,(USREC(I) ,1=1 /,Rf
         1CGP)
    
    C***LOOP Ci-i HOURS
                                                                              RA/14260
          DO 7QO ILH=NH,NE
          LH=ILH
          IF (LK.LE.2l!) GO TO 580
          LH = MOU(ILri,2l»)
          IF (LH.EQ.1) IDATE(2)=DAY1
    C***INITIALIZE HOURLY ARRAYS
    580   DO 610 K=1.NRECEP
          AHCHI(K)=0.0
          PHCHI(K)=0.0
          DO 590 1=1,11
    590   AHSIGS(K,I)=0.0
          DO 600 1=1,26
    600   PHSIGS(K,I)=0.0
    610   CONTINUE
    C***SET MET CONDITIONS FOR THIS HOUR***
          THETA=QTHETA(LH)
          U=QU(LH)
          HL=QHL(LH)
          TEMP=QTEMP(LH)
          KST=IKST(LH)
    C***DETERMINE WIND DIRECTION CONTROL,  IWD,  90  DEG.  QUADRANT  OF WIND
    C***
          DO 620 1=1,3
          IF (THETA.LE.DEG(D) GO TO 630
    620   CONTINUE
          1 = 4
    630   IWD=I
          TRAD=THETA*0.01745329
          SINT=SIN(TRAD)
          COST=COS(TRAD)
                                                                              RAK4280
                                                                              HA Mil 290
                                                                              RAM4300
                                                                              RA'14310
                                                                              RA!i4320
                                                                              RAM4330
                                                                              RAM4340
                                                                              RAK4350
                                                                              RAM4360
                                                                              RAM4380
                                                                              RAM4390
                                                                              PAM4400
                                                                              RAH4410
                                                                              RAK4420
                                                                              HAI 14430
                                                                              RAH4440
                                                                              RAM4450
                                                                              RAM4460
                                                                              RA;i4480
                                                                              RA"14490
                                                                              RA"!4500
                                                                              HAi.4t>00
                                                                              R At' 4620
                                                                              R A ^4630
                                                                              RAK4640
                                                                              RA/:4650
                                                                              RAM4660
                                                                              RAM467Q
                                                                              RA. 14680
                                                                              RAK4690
                                                                              RAM47QO
                                                                              RAM4710
                                                                              RAM4720
                                                                              RAI14730
                                                                              RAH4740
                                                                              RAI1477Q
                                                                              RAH4780
                                                                              RAM4790
                                                                              RAH4800
                                                                              RAM4810
                                                                              RAI44820
                                                                              RAM4830
                                                                              RAH4840
                                                                              RAM4850
                                                                              RAM4860
                                                                              RAM487Q
                                           79
    

    -------
    C»**CHECK FOR POINT SOURCES                                              RAM4880
          IF (IOPT(1).NE.1) GO TO 650                                        RAM4890
    C***IOPT(13) CONTROL OPTION, HOURLY EMISSIONS INPUT? 0=NO, 1=YES         RAM4900
          IF (IOPT(13).EQ.O) GO TO 640                                       RAM4910
          IDCK=IDATE(1)*100000+IDATE(2)*100+LH                               RAM4920
    C***READ HOURLY POINT SOURCE RECORD                                      RAM4930
          READ (15) IDATP,(SOURCE(IPOL,I),1=1,NPT)                           RAM4940
    C***CHECK DATE                                                           RAM4950
          IF (IDCK.EQ.IDATP) GO TO 640                                       RAM4960
          WRITE (10,910) IDCK.IDATP                                          RAK497Q
          CALL EXIT                                                          RAM4980
    C***CALCULATE POINT SOURCE CONTRIBUTIONS                                 RAM4990
    640   CALL JMHPTU (HSAV,DSAV,Z,TLOS,LH)                                  RAM5000
    C***CHECK FOR AREA SOURCES                                               RAM5010
    650   IF (IOPT(2).NE.l) GO TO 690                                        RAM5020
    C**»IOPT(13) CONTROL OPTION, HOURLY EMISSION INPUT? 0=NO, 1=YES          RAM5030
          IF (IOPT(13).EQ.O) GO TO 680                                       RAM5040
          IDCK=IDATE(1)*100000+IDATE(2)*100+LH                               RAM5050
    C***READ HOURLY AREA SOURCE EMISSION RECORD                              RAM5060
          READ (16) IDATA,(ASORC(IPOL,I),I=1,NAS)                            RAM507Q
    C***CHECK DATE                                                           RAM5080
          IF (IDCK.EQ.IDATA) GO TO 660                                       RAM5090
          WRITE (10,920) IDCK.IDATA                                          RAM5100
          CALL EXIT                                                          RAM5110
    C***CONVERT HOURLY AREA EMISSIONS FROM G/SEC TO G/SQ. M/SEC              RAM5120
    660   DO 670 1=1,NAS                                                     RAM5130
    C***CONVERT SIDE LENGTH TO METERS.                                       RAMS 140
    C***NOTE: SIDE LENGTH HAD BEEN MULTIPLIED BY .5 ABOVE FOR TIME           RAM5150
    C***CONSIDERATIONS                                                       RAM5160
          SF = ASORC(5,I)*2000*CONTWO                                          RAMS HO
    67Q   ASORC(IPOL,I)=ASORC(IPOL,I)/(SF*SF)                                RAM5180
    C***SET UP INTEGRATION TABLES FOR AREA SOURCE CALCULATIONS***            RAM5190
    680   CALL JMH54U (NHTS,Z ,XLIM,TLOS)                                     RAM5200
    C***CALCULATE AREA SOURCE CONTRIBUTIONS                                  RAM5210
          CALL JMHARE (WHTS,XLIM ,LH)                                         RAM5220
    C***OUTPUT RESULTS EACH HOUR                                             RAM5230
    C***IOPT(7) CONTROL OPTION, HOURLY OUTPUT? 0 = NO, 1 = YES.              RAM5240
    690   IF (IOPT(7).EQ.O) GO TO 7QQ                                        RAM5250
          CALL JMHOUR (LH,LINE1,LINE2,LIME3)                                 RAM5260
    700   CONTINUE                                                           RAK527Q
          IF(NE.GT.24) IDATE(2)=ISTDAY                                       RAM5280
    C***OUTPUT FINAL RESULTS                                                 RAM5290
          CALL JMHFIN (NB,LINE1,LINE2,LINE3)                                 RAM5300
          NP=NP+1                                                            RAM5310
          NHRS=NHRS+NAVG                                                     PAM5320
          IF(NP.GE.NPER) GO TO 720                                           RAM5330
          IF(NHHS.GE.24) GO TO 360                                           RAH5340
          NB=NE+NAVG                                                         RAM5350
          ME=NE+NAVG                                                         RAM5360
          IF(NB.LE.24) GO TO  410                                             RAM5370
          NB=MOD(MB,24)                                                      RAM53BO
          ME=HB+NAVG-1                                                       RAH5390
          GO TO 410                                                          HAM5400
    C***IOPT(8) CONTROL OPTION, SOURCE CONTRIBUTIONS TO  DISK? 0=NO, 1=YES.   RAM5410
    720   IF (IOPT(8).EQ.O) GO TO 730                                        PAM5420
          END FILE NIP                                                       RAM5430
          END FILE NIP                                                       RAK5440
    730   CALL EXIT                                                          RAK5450
    C                                                                        RAM5460
    740   FORMAT (' DATE ON MET. TAPt,  ',12,13,'  ,DOES MOT MATCH  INTERNAL 04 RAM547Q
         1TE,  ',12,13)                                                       RAM5480
    750   FORMAT (' HOUR ',13,' IS  i,"3T PER.'.ITTSD. HOURS  XUST  BE DEFIi^RD PET>i RAM5490
    710
                                           80
    

    -------
         1EEN 1  AND 24' )                                                     RAM5500
    780   FORMAT (1X,T21,'GENERAL INFORMATION FROM RAMQ'//2X,'UNITS - THERE  RAM5510
         1ARE',F14.7,'  USER UNITS(INPUT UNITS) PER SMALLEST AREA SOURCE SQUA RAM5520
         2RE SIDE LENGTH (INTERNAL UNIT)'/2X,'CONONE - THERE ARE',F14.7,' KI RAM5530
         3LOMETERS PER USER UNITV2X, ' CONTWO - IT IS CALCULATED THAT THERE A RAM5540
         4RE',F14.7,'  KILOMETERS PER SMALLEST AREA SOURCE SQUARE SIDE LENGTH RAM5550
         5 (INTERNAL UNIT)V2X,'THIS RUN IS FOR ',A6,'SINCE IPOL=',I2//1X)   RAM5560
    790   FORMAT (1X,T21,'GENERAL INPUT DATA'//2X,'NUMBER OF PERIODS TO BE S RAM5570
         1IMULATED(NPER)=  ',I3/2X,'AVERAGING TIME IN HOURS FOR EACH PERIOD(N RAM5580
         2AVG)=  '.I5/2X,'STARTING DATE(IDATE(2),IDATE(1),IHSTRT): JULIAN DAY RAM5590
         3 ',14,', YEAR 19',12,' HOUR=  ',I2/2X,'RECEPTOR HEIGHT FOR ALL RECE RAM5600
         4PTORS(Z) ',F6.3,'  METERSV2X,'ASSUMED POLLUTANT HALF-LIFE(HAFL) ', RAM5610
         5F10.2,' SECONDS')                                                   RAM5620
    800   FORMAT (2X,'SURFACE MET DATA FROM STATION(ISFCD) ',16,',  YEARdSFC RAM5630
         1YR) 19',I2/2X,'MIXING HEIGHT DATA FROM STATION(IMXD)  ',16,', YEAR( RAM5640
         2IMXYR) 19',12)                                                     RAM5650
    810   FORMAT (//1X)                                                      RAM5660
    820   FORMAT ('0',T21,'POINT SOURCE INFORMATION'//2X,'EMISSION INFORMATI RAM5670
         10N FOR ',14,' (NPT) POINT SOURCES HAS BEEN DETERMINED BY RAHQV2X, RAM5680
         212,' SIGNIFICANT POINT SOURCES(NSIGP) ARE TO BE USED FOR THIS RUN' RAM5690
         3/2X,'THE ORDER OF SIGNIFICANCE^IMPS) FOR 25 OR LESS POINT SOURCES  RAM5700
         4DETERMINED BY RAMQ IS LISTED BY POINT SOURCE NUMBER:'/2X,2515)     RAM5710"
    830   FORMAT (//1 X ,T2 1 , ' AREA SOURCE INFORMATIONV/2X ,'EMISSION INFORMATI RAM572»
         10N FOR ',14,' (NAS) AREA SOURCES HAS BEEN DETERMINED BY RAMQ'/2X,I RAM5730
         22,' SIGNIFICANT  AREA SOURCES(NSIGA) ARE TO BE  USED FOR THIS RUNV2 RAM5740
         3X,' THE ORDER OF SIGNIFICANCE(IMAS) FOR 10 OR  LESS  AREA SOURCES D RAM5750
         4ETERMINED BY RAMQ IS LISTED BY  AREA SOURCE NUMBER:'/2X,1015)      RAM5760
    840   FORMAT (2X,'NUMBER OF AREA HEIGHT CLASSES(NHTS)=',I2/2X,'REPRESENT RAM5770
         1ATIVE  AREA SOURCE HEIGHTS FOR EACH HEIGHT CLASS(HINT) IN METERS=', RAM5780
         23F10.2)                                                            RAM5790
    850   FORMAT (2X,'BREAK POINT HEIGHT BETWEEN THE AREA HEIGHT CLASSES(BPH RAM5800
         1)  IN METERS=',2F10.2)                                              RAM5810
    360   FORMAT (2X,'FRACTION OF AREA  SOURCE HEIGHT WHICH IS PHYSICAL HEIGH RAM5820
         1T(FH)='.F10.3/2X,'LIMIT OF DISTANCE FOR AREA SOURCE INTEGRATION TA RAM5830
         2BLESULIM) IN USER U5IIT3 =', F10.3/2X,'BOUNDARIES OF THE AREA SOURC RAM5840
         3E GRID IN USER UNITS:'/1X,T6,'RMIN=',F10.3,5X,'RMAX=',F10.3,5X,'SM RAM5850
         4IN=',F10.3,5X,'SMAX=',F10.3/2X,'SIZE(IRSIZE X  ISSIZE) OF AREA SOUR RAM5860
         5C& MAP ARRAY(IA) IN INTERNAL  UNITS =',13,' EAST-WEST BY ',13,' NOR RAM5870
         6TH-30UTH'//U)                                                     RAM5880
    8?0   FORMAT (2613)                                                      RAM5890
    880   FORMAT (' ***ERROR IN SPECIFYING SIGNIF. POINT SOURCES***')        RAM5900
    890   FORMAT (' ***ERROR IN SPECIFYING SIGNIF. AREA  SOURCES***')         RAM5910
    900   FORMAT (' ***PLEASE NOTE: THE RECEPTOR NUMBERS AND LOCATIONS GENER RAM5920
         1ATED FOR THIS AVERAGING TIME PERIOD ARE DIFFERENT FROM THOSE GENER RAM5930
         2ATED FOR'/13X,'  THE PRECEEDING AVERAGING PERIOD.***')              RAM5940
    910   FORMAT (' DATE BEING PROCESSED IS=  ' , I8/1X,'DATE OF HOURLY POINT E RAM5950
         1 MISSION RECORD is = '  , I8/1X,'***PLEA3E CHECK EMISSION RECORDS***')  RAM5960
    920   FORMAT (' DATE BEING PROCESSED IS=  ' , I8/1X, ' DATE OF HOURLY AREA EM RAM5970
         1ESSIOM RECORD IS = ' ,I8/1X,'***PLEASE CHECK EMISSION RECORDS***')   RAM5980
    930   FORMAT (' AREA ARRAY IS TOO WIDE FOR PAGE SIZE, THEREFORE kilLL HOT RAM5990
         1 EE PRINTED.')                                                     RAM6000
    940   FORf-'.AT ( 13A6,A2/13A6,A2/13A6,A2)                                   RAM6010
    950   FORMAT ( T ,13A6,A2/1X,13A6,A2/1X,13A6,A2)                         RAM6020
    960   FORMAT ('OTHIS IS THE NORMAL URBAN VERSIOM(78124) OF RAM FOR APPLI RAM6030
         1CATIOH TO ONE OR SEVERAL DAYS DATA.V1X)                           RAM6040
    970   FORMAT ()                                                          RAM6050
    960   FORMAT (' SURFACE DATA IDEMTIFERS READ INTO MODEL (STATION:',15,'  RAM6060
         1 ,YEAR=' ,12, ' ) DO MOT AGREE V.'ITH THE PREPROCESSOR OUTPUT FILE',/1X, PAM6070
         2'  (STATIOM=' ,15, '  ,YSAR=',[2)                                      RAM6080
    990   FORMAT (' MIXING HEIGHT IDENTIFERS READ INTO MODEL (STATION=' , 15 , ' RAH6090
         1 ,YEAR=',12,') DO NOT AGREE WITH THE PREPROCESSOR OUTPUT FILE',/1X RAM6100
         2,'  (STATION^1 ,15, ' ,YEAR=',I2)                                     RAM6110
                                           81
    

    -------
    1040
    
    
    1050
    1060
    1070
    1 ObO
    1090
    1 100
    1110
    1 120
    1130
    1 140
    1 150
    1 160
     170
    1180
    1190
    C
     FOf:"AT (' *** THE-,  ', A6 ,'VERSION  OF  THE  PREPROCESSOR  CAN  NriT BE I'SE
    1D v.IT,I THfJ '  ,A6,'VERSION OF  T.lE  MODEL***')
     FORMAT ( '0' ,  13X, ' ARiiA  SOURCE  MAP  ARRAY( IA ) ' / 1 X )
     FORMAT ( 1X, I3,2X,41I3/1X)
     FORMAT (1X.TJ,'OPTIOii   ', T1 6,'OPTION  LIST' , T46,'OPTION  SPECIFICATL
    10ti :  0=  IGNORE OPTION '/ 1 X , T65 ,'  1=  USE  OPTION'/1 X , T7 , 12 , T 1 6 ,'POINT
    2 SOURCE  DATA' ,T51 , I1/1X,'!7, 12, T16, 'AREA SOURCE  DAT A ' , T5 1 , 11 / 1 X , T7 ,
    3I2.T16, 'PERMANENT  htCEtTORS' ,T51 , 11/1X , T7,12,T16 , 'SIGNIFICANT  PC IN
    4T RECEPTORS'  ,T51 , 11/1X,T7,I2,T16,'SIGNIFICANT  AREA RECEPTORS', T5 1 ,
    5I1/1X,T7.I2,T16, 'HGK'EYCO'i.4 RECEPTORS' , T5 1 ,I1 / 1 X , T7 , 12 , T 1 6 , ' hOURL Y
    60UTPUT' ,T51 ,  I1/1X,T7,I2,T16, 'PARTIAL  CONC.  V.RITTEN TO  DISK/TAPE,' ,T
    751 ,I1/1X,T7,I2,T16,'PRINT ONLY  SUMMARY  HOURLY  OUTPUT',, T51 , 11/1X , T
    87,12,T16, 'PUNCH  CARDS  FOR CONTOURS' ,T51,11/1X,T7,12 , T16 , 'RE AD  MET
    9DATA FROM CARDS' ,T51,11/1X,T7,12 , T16, 'SPECIFY  SIGNIFICANT  SOURCE N
    AUMSERS' ,T51 ,I1/1X,T7,I2,T16,'READ  UOUPLY  - MISSIONS',T51,11/1X)
     FORMAT (' THE INPUT LI'-'IT OF  MAX  DISTANCE  FOR  AREA INTEGRATION ','
    1 CONVERTS TO  '.F10.3,'  KM WHICH  EXCEEDS STORAGE  '.'LIMITATION'S.  UP
    2  TO 116 KM  DISTANCES  ARE ALLOWED.')
     FOPt-AT ( '0' ,TbO, 'POINT  SOURCE LISTING '// 1 X , T8 ,' SOURCE ', T25 ,' FAST ',
    1T33,  'hCRTH' .TitO, 'S02(G/SEC)   PAhT(GXSEC)   STACK   STACK    STACK
    2  STACK'/1 X.T25, 'CCORU' ,T33,'COORD   E'-TSSIONS    EMISSIONS     HT(M)
    3  TEMP(K)  VDIAM(M)  VEL(M/SEC) '/ix,T26,' (USER  UMTS)'/IX)
     FORMAT (1X.T3.I3,1X,2A6,2X,2F9.2,F10.2,F1 1 .2,2X,4F3.2)
     FORMAT (/1X,T20,'AREA  SOURCE  LISTING'//1X,T2,'SOURCE',T10,'EAST',T
    116, 'NORTH' ,T26, '302(G/SEC-M**2) ' ,144,'PART(G/S5C-M**2)   SIDE
    2EFFECTIVE'/1X,T10, 'COORD   COORD' ,T29,'EMISSIONS' , T46 , 'EMISSIONS' ,
    3T61 ,  'LENGTH     HEIGHT ' / 1 X , T 1 1 , ' ( USZR  UN'ITS) ' , T58 , ' ( USER  UNITS)',!7
    44, ' (i:)  V1X)
     FORMAT (1X,T3,I3,2X,2F9.1 ,3X,1Pt;i 1 .4,7X,1PE11.4,3X,OPF7.1 ,3X,F7.1)
     FORMAT (2A4,2F10.3)
     FORMAT ('0',T9,'INPUT  RECEPTORS'//1X,'RECEPTOR     IDENTIFICATION
    1EAST     NORTH     '/1X,T30,'COORD',T39,'COORD'/1X , T31 ,'(USSR  UNITS
    2) V1X)
     FORMAT
     FORMAT
     FORMAT ('OIMPUT  MET DATA ' , 12 , '/ ' , I4/1X,T2,'HOUR    THETA     SPEED
    1   MIXING    TEMP      STABILITYV1X.T9, ' (CEG)     (M/S)   HEIGNT(M) (
    2DEG-K)    CLASSV1X)
     FORMAT ( 1X,T3,I2,4F9.2,oX,11)
     FQR-AT ( '0' ,'RESULTANT  MET CONDITIONS'/1X)
     FORMAT (2X,'WIND DIRECTIOiJ= ', F7 . 2 , T36 ,' RESULTANT WIND SPEED= '  , F7 . 2
    1/2X, 'AVERAGE  IvIND  SPEED=', F7 . 2 , T36 ,'AVERAGE TE^P= ' , F7 . 2/2X , ' WIND P
    2ERSI3TENCE='  ,F6.3,T36,'MODAL  STABILITY:' ,12)
     FORMAT ('0',T20,'GENERATED HONEYCOMB RECEPTORS'/1X,/1X,'THE AREA T
    10 BK COVERED  BY  HONEYCOMB RECEPTORS IS  BOUNDED BY:'/1X,'  RMIM=',F1
    20.3,'  RMAX-'  ,F10.3, '  SMIN=' .F10.3, '  SMAX=',F10.3//1X,'DISTANCE BET
    3JEEN HONEYCOMB  RECEPTORS(GKIDSP)  IN USER  UNITS=',F7.3//1X,'RECEPTO
    4R    EAST     ilOfiTH' )
     FORMAT (1X,'NO  RLCtPTORS HAVE I3EEN  CHOSEN")
     FORMAT (/6X,41I3/1X)
    ( 1X,Tt,I2, 1X.A1 ,8X,2fl4,7x,F6.2,3X,F7.2)
    (1X,':10 SOURCES SPECIFIED')
    TAM6120
    HAM6130
    RAM6140
    RAK6150
    HAM6160
    RAM617Q
    HAM6180
    RAM6190
    PAM6200
    RAM6210
    RAM6220
    RAH6230
    RAMD 240
    RAM6250
    RAM6260
    RAM627Q
    RAM6280
    RAM6290
    RAM6300
    RAM6310
    RAM6320
    RAM6330
    RAM6340
    PAM6350
    HAM6360
    RAM6370
    RAM6380
    HAM6390
    RAM6400
    RAM6410
    PAM6420
    RAM6430
    RAM6440
    PAM6450
    RAM6460
    RAM647Q
    RAM6480
    RAM6490
    RAM6500
    RAM6510
    RAM6520
    RAM6530
    RAM6540
    RAM6550
    RAM6560
    RAM6570
    RAM6580
    RAK6590
    RAM6600
    RAM6610
    RAM6620
    HAM6630
          FUNCTION ANGARC  (DELM.DELN)                                         ANGOOIO
    C        DETERMINES  APPROPRIATE  ANGLE  OF  TAN(ANG)  =  DELM/DELN            ANGOO?0
    C        WHICH IS REQUIRED FOR CALCULATION  OF  RESULTANT WIND DIRECTION.  ANG0030
    C        DELM IS THE AVERAGE  WIND  COMPONENT IN THE EAST DIRECTION.        ANG0040-
    C        DELN IS THE AVERAGE  WIND  COMPONENT IN THE NORTH DIRECTION.       ANG0050
    C        NO COMMON REQUIREMENT,  NO ARRAYS,  USES LIBRARY FUNCTION ATAN    ANG0060
                                            82
    

    -------
    10
    20
    
    30
    
    40
    50
    
    60
    C
    
    70
    
    30
    90
    
    100
    
    1 10
    IF (DELN) 10,40,60
    IF (DELM) 20,30,20
    RETURN
    ANGARC=;80.
    RETURN
    IF (DELf.) 50,50,70
    RETUHM
    ANGARC=0.
    ANGARC=0. INDICATES I ;jDETriRf':I,>; ATE AKGLii
    HETURK
    ANGARC=090.
    RETURN
    IF (DELM) 90,100,110
    RETURN
    AMGARC=360.
    RETURN
    AHGARC=57.29573*ATAM(DELr/DELK)
    RETURN
    
    END
        AMG0090
        AN 30100
        Ai.'GOIIO
        ANG0120
        ANG0130
        AI\GOHO
        AKGO 150
        ANG0160
        AhGG170
        ANGOloO
        AMG0190
        ANG0200
        ANGC210
        At;G0220
        AMG0230
        ANG0240
        ANG0250
        ANG0260
        ANG0270
        AMG0280
        ANG0290
             INTEGRATED VALUES
    RECEPTOR FROM AH AREA SOURCE
    AT
          SUBROUTINE JKHPOL ( X , Iri , CONG , MS ,KR EC , XLIM)
    C      INTERPOLATE FROM PRSCALCULATED AREA TABLES.
    C***THIS SUBROUTINE INTERPOLATES FROM A TABLE OF
    C***TO DETERMINE THE CONCENTRATION AT A
    C***A GIVEN DISTANCE AMD HEIGHT
    C      INPUT VARIBALES ARE...
    C         X - UPWIND DISTANCE IN KM.
    C         IH - THE HEIGHT INDEX.
    C         CONG - RELATIVE CONG. NORMALIZED FOR WIND SPEED, CHI*U/Q.
    C         NS - CURRENT SOURCE NUMBER
    C         KREC - CURRENT RECEPTOR NUMBER
    C         XLIM - MAXIMUM DISTANCE FOR INTERPOLATION IN AREA TABLES
          COMMON /RELC/ CI.N(3,200)
          COMMON ITYPE(150) ,ICODE(150) , IN , 10 , NIP , MID , N AVG
          IF (X.LT.0.01) GO TO 50
          IF (X.GE.0.5) GO TO 10
    C***FOR DISTANCES < 500M, CONC. WAS STORED EVERY 10M.
    C***STORAGE LOCATIONS 1-50 CONTAIN INTEGRATED CONC. FOR 10 TO 500M.
          J=100.*X
          D=J
          XL=D/100.
          XU=XL+0.01
          GO TO 40
    10    IF (X.GE.3.) GO TO 20
    C***FOR DISTANCES  FROM 500  TO 3.000KM CONC. WAS STORED EVERY 100M.
    C***STORAGE LOCATIONS 50-75  CONTAIN INTEGRATED CONC. FOR 0.5 TO 3. KM.
          J=IFIX(10.*X)+45
          D=J-45
          XL=D/10.
          XU=XL+0.1
          GO TO 40
    20    IF (X.GE.15.) GO TO 30
    C***FOR DISTANCES 3 TO 15 KM,  CONC. WAS STORED EVERY 500M.
    C***STORAGE LOCATIONS 75-99  CONTAIN  INTEGRATED CONC. FOR 3 TO 15 KM.
          J=IFIX(2.*X)+69
                                                                       POL0010
                                                                       POL0020
                                                                       POL0030
                                                                       POL0040
                                                                       POL0050
                                                                       POL0060
                                                                       POL0070
                                                                       FOL0080
                                                                       POL0090
                                                                       POL0 100
                                                                       POL0 110
                                                                       POL0 120
                                                                       POL0130
                                                                       POL0140
                                                                       POL0150
                                                                       POL0160
                                                                       POL0170
                                                                       POL0180
                                                                       POL0190
                                                                       POL0200
                                                                       POL0210
                                                                       POL0220
                                                                       POL0230
                                                                       POL02' ^
                                                                       POL0250
                                                                       POL0260
                                                                       POL0270
                                                                       POL0280
                                                                       POL0290
                                                                       POL0300
                                                                       POL0310
                                                                       POL0320
                                                                       POL0330
                                                                       POL0340
                                                                       POL0350
                                     83
    

    -------
          D=J-69
          XL=D/2.
          XU=XL-t-0.5
          GO TO 40
    C***FOR DISTANCES > 15,DOOM CONG. WAS STORED EVERY 1000M.
    C***STORAGE LOCATIONS 99-200 CONTAIN INTEGRATED CONC. FOR 15 TO 116KM.
    30    IF (X.GT.XLIM) GO TO 60
          J=IFIX(X)+84
          XL=J-84
          XU=XL+1 .
    40    K=J+1
    C***RETRIEVE CONCENTRATIONS FOR INTERPOLATION ACCORDING TO HEIGHT CLASS
    C***AND DISTANCE OUT.
          C1=CIN(IH,J)
          CONC=CU((X-XL)/(XU-XL))*(CIN(IH,K)-C1)
          RETURN
    C***FOR DISTANCES < 100M, CONC. WAS STORED IN CIM EVERY 10 M.
    C***STORAGE LOCATION 1 CONTAINS INTEGRATED CONC. FOR 10 M.
    50    CONC=100.*X*CIN(IH,1)
          RETURN
    60    WRITE (10,70) XLIM,NS,KREC
          CALL EXIT
    C
    70
          FORMAT ('  ***THE INPUT VALUE OF XLIK, ' ,F10.2 , ' ,  IS SMALLER THAN TH
         1E CALCULATED DISTANCE FROM AREA SOURCE  ',14,'  TO RECEPTOR ',14,'**
         2*'/1X,'PLEASE REDEFINE XLIM')
    
          END
                               POL0360
                               POL0370
                               POL0380
                               POL0390
                               POL0400
                               POL0410
                               POL0420
                               POL0430
                               POL0440
                               POL0450
                               POL0460
                               POL0470
                               POL0480
                               POL0490
                               POL0500
                               POL0510
                               POL0520
                               POL0530
                               POL0540
                               POL0550
                               POL0560
                               POL0570
                               POL0580
                               POL0590
                               POL0600
                               POL0610
                               POL0620
                               POLO&30
          SUBROUTINE JMHARE ( NHTS , XLIM ,LH)
    C***THE FUNCTION OF THIS SUBROUTINE IS TO CALCULATE THE CONCENTRATIONS
    C***AT EACH RECEPTOR DUE TO AREA SOURCES. THE HANNAH TECHNIQUE
    C***IS USED TO EXAMINE THE AREA SOURCES ALONG AN UPWIND LINE FROM
    C***THE RECEPTOR. SUBROUTINE JMHPOL IS CALLED TO INTERPOLATE CONC.
    C        INPUT VARIABLES ARE ...
    C        NHTS- THE NUMBER OF AREA  SOURCE HEIGHTS.
    C        XLIM- DISTANCE LIMIT OH AREA INTEGRATION
    C        IDATE - YEAR AND JULIAN LAY (IN COMMON/METDAT/ )
    C        LH- HOUR
          COMMON /SORC/ IA(25,25) , SOUPCE( 9 , 250) , ASORC( 6 , 1 00) , UNITS , CONTWO , RR
         1 ECU 50) , SPEC (150) ,MPS(25) , MAS(10) ,IOPT( 13) , IPOL , NRSCEP , RMI.M , PMAX , S
         2MIN,SMAX,IRSIZFJ,ISSIZE,NPT,\IAS,M3IGP,NSIGA,PMAME(2,250) , PSAV(250)
          COMMON /METCON/ ACHI(150) ,PCHI(150) ,ASIGS( 150,1 1) , PSIGS( 1 50 , 26 ) ,IA
         1SIGS(100) ,IPSIGS(250) , THET A , U , KST , HL , TEMP , SI. NT , COST , BPH( 2 ) , IWD.PAR
         2TC(250) ,AHCHI( 150) ,PHCHI(150) ,AHSIGS(150, 1 1 ) , PtiSIGS( 1 50 , 26 ) , PL( 6 )
          COMMON /MF.TOAIV QTHETA(24) ,QU(24) ,IKST(24) ,QtlL(24) ,QTEMP(24) , IDATE
         1(2)
          COMMON /HEIGHT/ HIMT( 3 ) , HARE( 3 ) , BPKM( 2) , FH
          COMMON ITYPE ( 1 5C) , ICODE( 1 50) , III , 10 , NIP , NID , :IAVG
          DIMENSION  ADELR(4), ADCLS(4)
          DATA ADELR
          DATA ADELS
    C***CALCULATING
          DO 10 IH=1 ,
          H=3PH(IH)
          BPHM(IH)=H
          IF (FH.SQ.1
          PHT=FH*H
          •JPL-U*(PHT/10.
                     /O . 00 1 , 0 . 00 1 , -0 . 00 1 ,-G . 00 1 /
                     /O . CO 1 ,-G .00 1 ,-0 . 00 1 , 0 . 00 1 /
                     ODIFIED  BREAK-POUT  HEIGHTS,
                     ,2
                       ) GO  TO  10
                          **PL(KST)
    IF KCCESSARY
    ARE0010
    ARE0020
    ARE0030
    ARE0040
    ARE0050
    ARE0060
    AREOO^O
    ARE0080
    ARE0090
    ARE0100
    ARE0110
    ARE0120
    ARE0130
    ARE0140
    ARE0150
    ARE0160
    APE017Q
    ARE0180
    ARE0190
    ARE0200
    ARE0210
    ARE0220
    ARE0230
    ARE0240
    ARE0250
    ARE0260
    ARE0270
    ARE0280
    ARE0290
    ARE0300
                                            84
    

    -------
          IF (UPL.LT.1 .) UPL=1 .
          BPHf"(IH) = ( (H-PHT)*5. )/UPL+PHT
    10    CONTINUE
    C***DELR: S.1ALL iAST~.vE.ST  INCREMENT DEPENDENT ON WIND  DIRECTION
    C**»USED TO STEP INTO NEXT UPWPID  AREA SOURCE.
          DF,LR=ADSLfi(IV;D)
    C***DELS: SMALL NORTH-SOUTH INCREMENT DEPENDENT ON  /JIND  DIRECTION
    C***UGED TO STEP IiMTO NEXT UPwIMD  A.REA SOURCE
          DELS = ADSLS(r,nD)
    C***SUETRACTION OF 1 SO THAT POINT I.I SOUTHWEST CORNER OF  AREA SOURCE
    C**-fREGIOtJ WILL HAVE IA I\DEX OF (1,1).
              ARE Ii^TEHtvAL UNITS.
    SOURCES
    TtiE K-TM
    WHICH CONTRIBUTE TO THE K-TH
     RECEPTOR LOCATION.
    C***LOOP ON RECEPTORS
    C***U?IITS FOR CEOKETRIC CALCULATIONS
          DO 310 K=1 , NRECEP
    C***ZERO PARTIAL CONCENTRATION ARRAY
          DO 20 1=1,NAS
    20    PARTC(I)=0.0
          XL-0.0
          CONCL=0.0
          IHL = 0
    C***SEAKCii FOR UPWIND AREA
    C***RF.CF_PTOR,  BEGINN'IMG AT
          RRE=RREC(K)
          SHE-SREC(K)
    C***SUBTHACT MINIMUM AND STEP UPWIND  INTO  AREA SOURCE,
    C***THIiN IMTEGERIZE TO ACCESS SOURCE  N'UMBER  IN IA  ARRAY.
          TR=RRE-RKINI+DELR
          IS=SRE-SHINI+DELS
    C***  IS RECEPTOR WITEIN DEFINED LIMITS ***
          IF ((RRE.LE.RMI\0 .OR.(RRK.GE.RMAX))  GO TO 230
          IF ((SRE.LE.St'IN) .OR.(SRE.GE.SMAX) )  GO TO 230
    C***
    C***RECEPTOR IS  rtlTHIN AREA SOURCE  REGION.
    
    C***DETERMIME SOURCE NUMBER,NS, SOURCE CENTER(RC,SC),
    C**1'HALF OF SOURCE SIDE LENGTH,D, SOURCE STRENGTH,QA,  AND  SOURCE  HEIGHT,
    C***HA.
    30    IF ((IR.LE.O).OR.(IR.GT.IRSIZE)) GO  TO 300
          IF ((IS.LE.O).OR.(IS.GT.ISSIZE)) GO  TO 300
          NS=IA(IR,IS)
    C***SKIP HEIGHT  CALCULATIONS IF NS  =  0.
          IF (NS.EU.O) GO TO 60
          D=ASORC(5,NS)
          RC=ASORC(1,NS)+D
          SC=ASORC(2,MS)+D
          QA=ASORC(IPOL,NS)
          HA=ASORC(6,NS)
          IF (QA.LE.0.0) GO TO 70
    C***USE POWER LAW DEPENDENT ON STABILITY CLASS TO  MODIFY WIND  SPEED
    C*W*AT EFFECTIVE HEIGHT OF STACK.
    C*** VARY EFFECTIVE HEIGHT(M) ACCORDING TO WIND SPEED
    C»**HA~ EFFECTIVE AREA SOURCE HEIGHT(M)
    C***FH- FRACTION OF HA WHICH IS PHYSICAL HEIGHT
    CI(*)(PHT- PHYSICAL STACK HEIGHT(M)
    C***(HA-PHT) IS  PLUMF, RISE
          PHT=FH*HA
          THT=PHT
          IF (PHT.LT.1.) THT=1.
          UPL=U*(THT/10.)*»PL(KST)
                                                   ARE0310
                                                   ARE0320
                                                   APE0330
                                                   ARE0340
                                                   ARE0350
                                                   ARE0360
                                                   ARE0370
                                                   APE0380
                                                   ARE0390
                                                   ARE0400
                                                   ARE0410
                                                   ARE0420
                                                                              ARE0440
                                                                              ARE0450
                                                                              ARE0460
                                                                              ARE047Q
                                                                              ARE0480
                                                                              ARE0490
                                                                              ARE0500
                                                                              ARE0510
                                                                              ARE0520
                                                                              ARE0530
                                                                              ARE0540
                                                                              ARE0550
                                                                              ARE0560
                                                                              ARE0570
                                                                              ARE0580
                                                                              ARE0590
                                                                              ARE0600
                                                                              ARE0610
                                                                              ARE0620
                                                                              ARE0630
                                                                              ARE06MO
                                                                              ARE0650
                                                                              ARE0660
                                                                              ARE0670
                                                                              ARE0680
                                                                              ARE0690
                                                                              ARE0700
                                                                              ARE0710
                                                                              ARE0720
                                                                              ARE0730
                                                                              ARE071*0
                                                                              ARE0750
                                                                              ARE0760
                                                                              ARE077Q
                                                                              ARE0780
                                                                              ARE0790
                                                                              ARE0800
                                                                              ARE0810
                                                                              ARE0820
                                                                              ARE0830
                                                                              ARE0840
                                                                              ARE0850
                                                                              ARE0860
                                                                              ARE0870
                                                                              ARE0880
                                                                              ARE0890
                                                                              ARE0900
                                                                              ARE0910
                                                                              ARE0920
                85
    

    -------
          IF (UPL.LT.1.) UPL=1.
          HA=((HA-PHT)*5.)/UPL+PHT
    C***DETERMINE HEIGHT CLASS
          IH=NHTS
          GO TO (70,50,40),  NHTS
    40    IF (HA.LT.BPHM(2)) IH=2
    50    IF (HA.LT.BPHM(O) IH=1
          GO TO 70
    C***SINCE SOURCE NO. IS ZERO, CALCULATE COORDINATES OF SOURCE CENTER
    C**»AND DEPENDING ON WIND DIRECTION BRANCH TO CODE WHICH DETERMINES
    C***THE NEXT AREA SOURCE IN THE UPWIND DIRECTION.
    60    D=.5
          RC=FLOAT(IR)+RMINI+D
          SC=FLOAT(IS)+SMINI+D
    C*»»IWD IS 1 FOR THETA LESS THAN 90 DEC., 2 FOR 90-180  DEC, ETC.
    70    GO TO (80,90,110,120), IWD
    C***rWD=1*****»
    C***DETERMINE TWO UPWIND BOUNDARIES(NORTH AND EAST).
    80    SB=SC+D
          GO TO 100
    C***IWD=2******
    C***DETERMINE TWO UPWIND BOUNDARIES(SOUTH AND EAST).
    90    SB=SC-D
    100   RB=RC+D
          GO TO 140
    C***IWD=3******
    C»»*DETERMINE TWO UPWIND BOUNDARIES(SOUTH AND WEST).
    110   SB=SC-D
          GO TO 130
    C***IWD=4******
    C***DETERM1NE T'vtO UPWIND BOUNDARIES(NORTH AND WEST).
    120   SB=SC+D
    130   RB=RC-D
    C***FIND LOCUS OF UPWIND RAY AMD CLOSEST BORDER
    140   IF (SINT.EQ.O.) GO TO  160
    C***IF SIN=0. NORTH OR SOUTH BOUNDARY IS APPROPRIATE.
          XD1=(RB~PRE)/SIMT
    C***XD1 IS DISTANCE(USER UNITS) TO EAST OR WEST BOUNDARY,
    C***WHICHEVER 13 UPWIND.
          IF (COST.EO.O.) GO TO  170
    C***IF COS=0. EAST OR WEST BOUNDARY IS APPROPRIATE.
          XD2=(SB-SRli)/COST
    C***XD2 IS DISTAHCE(USSR UNITS) TO NORTH  OR SOUTH BOUNDARY,
    C***WHICHEVER IS UPWIND.
          IF (XD1.LT.XD2) GO TO  T/o
    150   RDUf;=RRE+XD2*SINT+DELR
    
    C***RDU!1,SDUM ARE COORDINATES OF INTERSECTION WITH BOUNDARY PLUS
    C***3iXALL IMCREMEIJT3 TO STEP INSIDE NEXT UPWIMD SOURCE.
          DIST=XD2
    C***DIST IS DISTANCE TO NEAREST BORDER.
          GO TO 180
    160   XD2=(SB-SRE)/COST
          GO TO 150
    170   RDUM = ;iB+DELR
          D1ST=XD1
    180   DIST=DIST*CONTWO
    C***D13T IS lv-1 KM.
    C***IF sounc.^ i;o. is ZERO, PASS
          IF (fJS.Et'.O) GO TO 210
    C***IF fci;iISSIC!i RATE < 10E-10, POL
                                    OH TO  MEXT UPWIND  AREA SOURCE
                                       UTANT  CONTRIBUTION WILL  BE  IMSIGN1F
    ARE0930
    ARE0940
    ARE0950
    ARE0960
    ARE0970-
    ARE0980
    ARE0990
    ARE1000
    ARE1010
    ARE1020
    ARE10;30
    ARE1040
    ARE1050
    ARE1060
    ARE1070
    ARE1080
    ARE1090
    ARE1100
    ARE1110
    ARE1120
    ARE1130
    ARE1140
    ARE1J50
    ARE1160
    ARE117Q
    ARE1180
    ARE1190
    ARE1200
    ARE1210
    ARE1220
    ARE1230
    ARE1240
    ARE1250
    ARE1260
    ARE1270
    ARE1280
    ARE1290
    ARE1300
    ARE1310
    ARE1320
    ARE1330
    ARE1340
    ARE1350
    ARE1360
    ARE1370
    ARE1380
    ARE1390
    ARE1400
    APE1410
    ARE1420
    ARE1430
    ARE1440
    ARF1450
    ARE1460
    AHE147Q
    ARE1480
    ARE1490
    ARE1500
    ARE1510
    ARE1520
    ARE1530
    ARE1540
                                           86
    

    -------
    C***lCAi\IT, GO ON TO NEXT UP'.-il'iD  AREA  SOURCE.
          IF (QA.LE.10.0E-10) GO  TO  210
    C***(A SUBSTANTIAL SAVINGS  I>,  CO^PUT^ TlO'i  TDiC  IS
    C***AREA WITH HO EMISSIONS  IS  DEFIED  MT-: A  ZERO
    C***AS OPPOSED TO LEAVING THE  AREA  JKDEFI.-JED  ,THIK
    C* **!•':! MIMUM GRID SQUARE SIZE  /.'HZ ! SEARCriliG FOR  T'
    EFFECTED IF A LARGE
    SOURCE STRENGTH
     DEFAULTING TO THE
    E MEXT ;JPVJI;:D SCURCI
    C***USK THIS SOURCE TO RF.CEPTO*  DISTANCE
    C»**FOR  INTEGRATED XU/Q TO  T-IIS  DISTANC
                               VnLULS.  S'JBRCU
    A'iD HEIGHT CLASS T
     ?Y INTEr.POLAII'IG
    I'\E J"KPOL PFFFOR"
    C1
                                             PARTIAL  CONCENTRATION
    C***PRECALCULATED CH
    C***INTEHPOLATION.
          CALL Ji'lHPOL (DIST,I;I,CO";C,:,S,K,XLI")
    C***XL(KK) IS THE UPWIND  DISTANCE  TO  THE
    C***BOUNDAEY POINT.
          IF (XL.LE.O) GO  TO  190
          IF (IH.NE.IHL) CALL  J'-IHPOL  (XL.IH.i
    190   DIFF = COHC-COtJCL
    C***THE CHI*U/Q  DIFFERENCE  IS  MULT
    C***3Y rtlMD SPEED '.vHICrl HAS  BEE
    C***HEIGriT.  THIS CALCULATED
    C***riS TO THE TOTAL POLLUTANT
          PROD=QA*DIFF/UPL
          ACH1(X)=ACH1(K)+PROD
          AHCHI(K)=AHCHI(K)+FROD
          KSIG=IASIGS(MS)
          IF (KSIG.EQ.O) GO TO 200
    C***IF THE SOURCE IS SIGUIF ICal.T,  STORE
          AS1GS(K,KSIG)=ASIGS(K,K3IG)+FROD
          AHSIGS(K,KS1G)=AHS1GS(K,K3IG)+PROD
          A3IGS(K,11)=ASIGS(K,1D+PPOD
          AHSIGS(K,11)=AHSIGS(K,1D+PROD
    200   CONCL=CONC
    C***SAVE PARTIAL CONCENThATIO;,  FOR ALL SOURCES
          PARTC(KS)=PROD
          II;L=IH
          GO TO 220
    210   IHL=0
    220   XL-DIST
    C***IS THIS POINT OUTSIDE  SOURCE  REGION?
          IF ((RDUM.LE.RMIN) .OR.(RDUil.GE.RXAX) )  GO TO 300
          IF ((SDUM.LE.3MIM).OR.(SDUM.GE.3MAX))  GO TO 300
    C***IR,IS IA INDICES FOR NEXT SOURCE
          1R=RDUM~RMINI
          I3=SDUM~SMINI
          GO TO 30
    C***
    C***RECEPTOR IS OUTSIDE LIMITS  OF  GRID***
    C***
    230   DXM1W=99999.
    C***FIND THE INTERSECTION
    C***THE NEAREST BORDER OF
          ICMT=0
          RM=RMIN
    C*** FIND LOCUS FOR RMIN,
          DO 260 L=1 ,2
          RMR=RM-RRE
    C*** IF SINT IS ZERO, THERE IS  NO  LOCUS  rflTH THIS BOUNDARY
          IF (SINT.EQ.O.) GO TO 250
    C***FIND NORTH COORDINATE OF LOCUS.
          S=RMR*COST/SINTH-SRE
          IF (S.GT.SMAX) GO TO 250
          IF (S.LT.SM1N) GO TO 250
    C***FIND DISTANCE FROM RECEPTOR TO LOCUS.
               GET A V ;
               i TA^LE I
               Tt:E
                                                  EMISSION  FATE  A -D DIVIDED
                                                  THE  PO/;ER LAI-: TO THE PROPER
                                                 3 T-iE  CONTiUhUTIOi.  OF 30UPCE
                                                 AT ME K-TH RECEPTOR.
                              OF THE UPWIND  AZIMUTH  FROM
                              THE AREA SOURCE  REGION.
                              THEN RMAX
       THE RECEPTOR TO
    ARE1550
    ARE1560
    ARE1570
    ARE1580
    ARF1590
    A RE 1C 00
    ARE1610
    APE 1620
    ARE 16 30
    ARE16HO
    ARE 1650
    ARE1660
    ARE1670
    ARE16SO
    ARE1690
    ARE1700
    A R E 1 7 1 0
    ARS1720
    ARF1730
    ARE1740
    AHE1750
                                                                              A RE 177Q
                           A«E1800
                           A R E 1 3 1 0
                           ARS1320
                           ARF1830
                           ARElRitO
                           APE 1850
                           A RE 18 60
                           APE18VQ
                           ARE1830
                           A RE 1890
                           ARE1900
                           A R E 1 9 1 0
                           ARE1920
                           A RE 19 30
                           A RE 19*10
                           ARE1950
                           A R E 1 9 6 0
                  ARE 19 30
                  AHE1990
                  ARE2000
                  ARL2010
                  ARE2020
                  ARE2030
                  AKE2010
                  ARE2050
                  ARK2060
                  ARE207Q
                  ARE2080
                  ARK2090
                  ARE2100
                  ARE21 10
                  ARE2120
                  ARG2130
                  ARE2UO
                  ARE2150
                  ARE2160
                                           87
    

    -------
                                      IS A DOWNWIND LOCUS,
    
                                      A PREVIOUS LOCUS?
          DX=RMR*SINT+(S-SRE)«COST
    C*»*IF DISTANCE IS NEGATIVE, THIS
          IF (DX) 250,240,240
    C***IS THIS DISTANCE SHORTER THAN
    240   IF (DX.GE.DXMIN) GO TO 250
          RLOC=RM
          SLOC=S
          DXMIN=DX
    C*»*COUNT THE NUMBER OF LOCI FOUND.
          ICNT=ICNT+1
    250   RM=RMAX
    260   CONTINUE
          SM=SMIN
    C***FIND LOCUS FOR SMIiM, THEN SMAX.
          DO 290 L = 3,4
          SMS=SM-SRE
    C***IF COSINE IS ZERO, THERE IS NO LOCUS WITH THIS BOUNDARY.
          IF (COST.EQ.O.) GO TO 280
    C***FIND EAST COORDINATE OF LOCUS.
          R=SMS*SINT/COST+RRE
          IF (R.GT.RMAX) GO TO 280
          IF (P.LT.RMIM) GO TO 280
    C***FIND DISTANCE FROM RECEPTOR TO LOCUS.
          DX=(R-RRE)*SINT+SMS*COST
    C***IF DISTANCE IS NEGATIVE, THIS
          IF (DX) 280,270,270
    C***IS THIS DISTANCE SHORTER
                                                     NOT UPWIND.
                                      IS A DOWNWIND LOCUS, MOT UPWIND.
    270
                           GO TO
                           THAN
                           280
                                      A PREVIOUS LOCUS?
             (DX.GE.DXM1N)
          RLOC=R
          SLOC=SM
          DXMIN=DX
          ICMT=1CNT+1
    280   SM=SMAX
    290   CONTINUE
    C***IF ICNT=0 NO LOCI WERE FOUND, THEREFORE NO AREA SOURCE CONTRIBUTION
    C***AT THIS RECEPTOR.
          IF (ICNT.EQ.O) GO TO 300
          DIST=DXMIW
    C***FIND THE DISTANCE TO THE NEAREST SOURCE IN KM
    C***FIND CO-ORDINATES TO LOCATE SOURCE
    C***DIST IS IN INTERNAL UNITS.
          XL=D1ST*CONTWO
    C***XL IS IN KM.
    C***IR AND IS NOW ARE COORDINATES OF A POINT
    C***ARBA SOURCE.
          IR = RLOC + DELR-RMIM
          1S=SLOC+DELS-SMINI
          GO TO 30
    C***WRITE PARTIAL CONCENTRATIONS TO DISK
                     .EQ.O) GC TO 310
                      IDATE,LH,N,(PARTC(J) ,J=1 ,t-,AS)
                                                 LYING IN THE NEXT UPWIND
    300
          IF
    310
       (IOPT(8)
          (NIP)
    CONTINUE
    RETURN
    ARE2170
    ARE2180
    ARE2190
    ARE2200
    ARE2210
    ARE2220
    ARE2230
    ARE2240
    ARE2250
    ARE2260
    ARE227Q
    ARE2280
    ARE2290
    ARE2300
    ARE2310
    ARE2320
    ARE2330
    ARE2340
    ARE2350
    ARE2360
    ARE2370
    ARE2380
    ARE2390
    ARE2400
    ARE2410
    ARE2420
    ARE2430
    AHE2440
    ARE2450
    ARE2460
    ARE247Q
    ARE2480
    ARE2490
    ARE2500
    ARE251C
    ARE2520
    ARE2530
    ARE2540
    ARE2550
    ARE2560
    ARE2570
    ARE2580
    ARE2590
    ARP'2600
    ARE2610
    ARE2620
    AKE2630
    ARE2640
    ARE2650
    ARE2660
                                                                             ARE2680
                                                                             AR22690
                                                                             ARE2700
                                                                             AKE2710
          SUBROUTINE JKKPTU ( HS <\V , DSAV , Z , TLOS , Lil)
           THE PURPOSE OP THIS ROUTI ,'E 13  IJ  CALCULali
           POINT SOURCES.
                                                                             PTU0010
                                                                             PTJ0020
                                                                             PTU0030
                                           88
    

    -------
    C      INPUT VARIABLES ARE...
    C         HSAV- AN ARRAY OF EFFECTIVE HEIGHTS  FOR  POINT  SOURCES(METERS)
    C         DSAV-AN ARRAY OF DISTANCES TO  FINAL  RISE(KM)
    C         Z- RECEPTOR HEIGHT.
    C         TLOS- PARTIIAL COMPUTATION RELATED TO  POLLUTANT LOSS.
    C         IDATE- YEAR AND JULIAN DAY(IN  COMMON/METDAT/ )
    C         LH- HOUR
          COMMON /SORC/ IA(25,25) ,SOURCE(9 ,250) , ASORC(6 , 1 00) , UNITS, CONTWO, RR
         1EC(150) ,SREC(150) ,MPS(25) ,MAS(10) ,IOPT(13) ,IPOL,NRECEP ,RMIN,RMAX ,S
         2MIN,SMAX,IRSIZE,ISSIZE,NPT,NAS,NSIGP,NSIGA,PNAME(2,250),PSAV(250)
          COMMON /METCON/ A CHI (150) ,PCHI(150) , ASIGS( 150, 1 1 ) ,PSIGS( 150 ,26) ,IA
         1SIGS(100) ,IPSIGS(250) ,THETA,U,KST,HL)TEMP,SINT,COST,BPH(2),IWD,PAR
         2TC(250) ,AHCHI(150) ,PHCHI( 150) , AHSIGS( 150, 1 1 ) ,PHSIGS( 150 ,26) ,PL(6)
          COMMON /METDAT/ QTHETA(24) ,QU(24) ,IKST(2H) ,QHL(24) ,QTEMP(24) , IDATE
         1(2)
          COMMON ITYPE(150) ,ICODE(150) , IN, 10, NIP ,NID ,NAVG
          DIMENSION HSAV(NPT), DSAV(250), UPH(250),  HPR(250), FP(250)
    
    C***
    C***ZERO EFFECTIVE STACK HEIGHT FOR EACH  SOURCE
    C***
          DO 10 J=1 ,NPT
    10    HSAV(J)=0.0
    C***LOOP ON RECEPTORS***
          DO 120 K=1 ,NRECEP
    C***
    C***CALCULATE CONCENTRATIONS  FROM  POINT  SOURCES***
    C***     LOOP ON POINT SOURCES
          DO 110 J = 1 ,MPT
          PARTC(J)rO.O
          RQ=30URCE(1  ,J)
          SQ=SOURCE(2,J)
    C***DETERMIK!E UPWIND DISTANCE
    C***XDUM,YDUM IN  INTERNAL UNITS. X,Y  IN KM.
          XDUM=RQ-RREC(K)
          YDUM=SQ-SREC(K)
          X=(YDUM*COST+XDUM*SIJT)*COMWC
    C*** X IS THE UPWIND DISTANCE  OF THE  SOURCE  FROM  THE  RECEPTOR.
    C***IF X IS NEGATIVE, INDICATING THAT  THE  SOURCE IS  DOWNWIND OF
    C***THb RECEPTOR,  THE CALCULATION IS  TERMINATED ASSUHIMG  NO
    C** "CONTRIBUTION  FROM THAT SOURCE.
          IF (X.LE.0.0) GO fO T10
    C5f**
    C***DETFJHMliME CRCSSWIND DISTANCE
          Y=(YDUM*S1UT-XDUM*COST)*CONT.JC
          i!F = HSAV(J)
    CJ'**SKIP PLJHE HISS CALCULATION IF EFFECTIVE  HEIGHT  4AS  ALREADY  BEEN
    C***   CALCULATED KO n THIS SOURCE
          IF (ilF.GT.0.0) GO TO '6ICHCASE OF VilKD SPEED ^'ITH HEIGHT.
    CJ-**ASSUI/!.'  '.vIliD /iEASUREMENTS A.^E REFPESLNTATl VIL  FOR  A  10  r'STER  HEIGHT.'
          THT = SCUHC.:-;(5,J)
    C***PO!.i'T 3&UPCiL 'iClGHT NOT ALLOWED TO r;H LESS  THAn  1  ^ETER.
          IF (Ti/T.LT. 1 . ) THT-i .
          UPL=Ui(THT/13.)**PL(KGT)
    C***>
    -------
          L;UOY-SOUnCE(9,J)
          TS=SOURCE(6,J)
          ^ iii L T1 - T S — T ^' 1P
          F=BUOY*D!iLT/TS
    C*** IOPT(13) HOURLY EMISSION I.iPUT FROM TAPE/DISK?  0=110,  1=YES.
          IF (IOPT(13).EQ.O) GO TO 20
    C***MODIFY EXIT VELOCITY At,D BUOYANCY BY PATIO OF HOURLY EMISSIONS
    C***TO AVERAGE EMISSIONS
          SCALE=GOUKCE(IPOL,J)/PSAV(J)
                                 TAKES INTO ACCOUNT STACK DOWMWASH
                                            -  .
          F = FSSCALE
    20    D=SOUHCE(7,J)
    C*«*CALC'JLATE  K PRIME nHI
    C***BR1GGS(1973) PAGE 4
          HPRM=THT
          DUM=VS/UPL
          IF (DU'i.LT.1 .5) KPRr;=TKT+2.
          IF (HPfiy.LT.O.) HPRh = 0.
    C***CALCULATE PLUME ^ISE AMD ADD H PRIME TO 03TAIM EFFECTIVE
    C***STACK HEIGHT.
    C***
    C***PLUMK RISE CALCULATION
          IF (KST.GT.4) GO TO 40
    C***PLUKE HISE FOR UNSTABLE CONDITIONS
          IF (TS.LT.TEMP) CO TO 50
          IF (F.GE.55.) GO TO 30
    C*);*DETEfif''l NE DELTA-T FOR BUG
    C***FOUND BY EQUATING BR1GGS(1969) EG 5.2, PAGE 59
    C***bRIGGS(1971) EQUATIONS 6 AND 7, PAGE 1Q31 FOR F<55.
          DT'1B=0.0297*TSWVS**0.33333/D**0.66667
          IF (DELT.LT.DTMB) GO TO 50
    C***DI3TA.MCE OF FINAL BUOYANT R1SE(0.049 IS 14*3.5/1000)
    C***BR1GGS( iyn) AQUATION 7,F<55, AND DIST TO FINAL RISE  IS 3.5  XSTAR
                                                C30SSOVER(F<55)
                                                            COMBINATION OF
    G***COMB1NATICN OF BRIGGS(1971) EQUATION'S 6 AND 7, PAGE  1031  FOR  F<55.
          HF = ilPH.-l+21 .42':>itF**0.75/UPL
          GO TO 70
    C***DETEHHI^E DELTA-T FOR BUOY ANCY-MOf'iENTUM CROSSOVEfi( F>55)
    C***FOUND BY EOUATING BRIGGS(1969) EQ 5.2, PAGE 59 WITH  COMBINATION  OF
    C*** B1UGGS(1971)  EQUATIONS 6 AND 7, PAGE 1031 FOR F>55.
    30    DTf!B=0.0057S*TS*VS**0.66667/D**0.33333
          IF (DELT.LT.DTfIB) GO TO 50
    C***DISTANCE OF FINAL BUOYANT RISE (0.119 IS 34*3.5/1000)
    C***bRICGS(197D EQUATION 7, F>55, AND DIST TO FINAL  RISE  IS  3.5  XSTAR.
          DISTFrO.119*F**0.4
    C***COKB1NATION OF BRIGGS(1971) EQUATIONS 6 AND 7, PAGE  1031  FOR  F>55.
          UF=HPnM+38.71*F**0.6/UPL
          GO TO 70
    C***PLUME 'RISE  FOR STABLE CONDITIONS.
    40    DTHDZ=0.02
          IF (KST.GT.5) DTHDZ=0.035
          S = 9.80616*DTilDZ/TEMP
          IF (TS.LT.TEMP) GO TO 60
    C***DKTERMINE DELTA-T FOR BUOYANCY-MOMENTUM CROSSOVER(STABLE)
    C***FOUND BY EQUATING BRIGGS(1975) EQ 59, PAGE 96 FOR STABLE  BUOYANCY
    C***R1SE WITH 3RIGGS(1969) EQ 4.28, PAGE 59 FOR STABLE MOMENTUM RISE.
          DTMB=0.019582*TEMP*VS*SQRT(S)
          IF (DELT.LT.DTMB) GO TO 60
    C***STABLE BUOYANT RISE FOR WIND  CONDITIONS.(WIND NOT ALLOWED  LOW
    C***ENOUGH IN RAM TO REQUIRE STABLE RISE IN CALM CONDITIONS.)
    C***BRIGGS(1975) EQ 59, PAGE 96.
    PTU0660
    PTU0670
    PTU0630
    PTU069C
    PTU0700
    PTU0710
    PTU0720
    PTU0730
    PTU0740
    PTU0750
    PTU0760
    FTU0770
    PTU07SO
    PTU0790
    PTU0800
    PTU0810
    PTU0820
    PTU0830
    PTU0840
    PTU0850
    FTU0360
    PTU087Q
    PTU08SO
    PTU0890
    PTU0900
    PTU0910
    PTU0920
    PTU0930
    PTU0940
    PTU0950
    PTU0960
    PTU0970
    PTU0980
    PTU0990
    PTU1000
    PTU1010
    PTU1020
    PTU1030
    PTU1040
    PTU1050
    PTU1060
    PTU1070
    PTU1080
    PTU1090
    PTU1100
    PTU1110
    PTU1120
    PTU1130
    PTU1140
    PTU1150
    PTU1160
    PTU1170
    PTU1180
    PTU1190
    PTU1200
    PTU1210
    PTU1220
    PTU1230
    PTU1240
    PTU1250
    PTU1260
    PTU1270
                                            90
    

    -------
          HF=HPRM+2.6*(F/(UPL*S))**0.333333
    C***COMBINATION OF BRIGGS(1975) EQ 48 AND EQ 59. NOTE D13TF IN KM.
          DISTF=0.0020?15*UPL/SQRT(S)
          GO TO 7Q
    C***UNSTABLE-NEUTRAL MOMENTUM RISE
    C***BRIGGS(1969) EQUATION 5.2, PAGE 59 NOTE: MOST ACCURATE WHEN VS/U>4;
    C***TENDS TO OVERESTIMATE RISE WHEN VS/U<4 (SEE BRIGGS(1975) PAGE 78,
    C*** FIGURE 4.)
    50    HF=HPRM+3.*VS*D/UPL
          D1STF=0.
          GO TO 7Q
    C***STABLE MOMENTUM RISE
    60    DHA=3.*VS*D/UPL
    C***BRIGGS(1969) EQUATION 4.28, PAGE 59
          DELHF=1.5*(VS*VS*D*D*TEHP/(4.*TS*UPL))**0.333333/S**0.166667
          IF (DHA.LT.DELHF) DELHF=DHA
          HF=HPRM+DELHF
          DISTF=0.
    C***STORE OFF PLUME HEIGHT(ETC.) FOR THIS SOURCE FOR USE WITH
    C***OTHER RECEPTORS.
    70    rfSAV(J)=HF
          DSAV(J)=DISTF
          UPH(J)=UPL
          HPR(J)=HPRI1
          FP(J)=F
    C***IF SOURCE-RECEPTOR DISTANCE IS GREATER OR EQUAL TO DISTANCE TO FINAL
    C***SK1P PLUME RISE CALCULATION AMD USE FINAL RISE.
    80    IF (X.GE.DSAV(J)) GO TO 90
    C***PLUME RISE FOR DISTANCE X(160 IS 1 .6*1000**.67 BECAUSE X IN KM)
          HX=HPR(J)+160.*FP(J)**0.333333*X**0.666667/UPH(J)
          IF (HX.LT.HF) HF=riX
    C***SUBROUTINE DBTRCU RETURNS THE DISPERSION PARAMTERS,SY AND SZUET5RS)
    C***AND RELATIVE CONCENTRATION VALUE CHI/Q (SEC/l-:**3)
    90    UPL=UPH(J)
          CALL DBTRCU ( UPL,Z,HF,HL,X,Y,KST,SY,SZ,PROD)
    C***CALCULATS TRAVEL TIME IN KM-SEC/M TO  INCLUDE DECAY RATE OF POLLUTANT
          TT=X/UPL
    C***TLOS IN METERS/KM-SEC, SO TT*TLOS IS  DMEhSIOWLSSS
          PROD=PROD*30URCE(1POL,J)/EXP(TT*TLOS)
    C***INCREMENT CONCENTRATION AT K-TH PEC^PTOR( G/f"* *1)
          PCHI(K)=PCKI(K)+PROD
          PHCHI(K)=PHCH1(K)+PROD
          KSIG=1PSIGS(J)
          IF (KSIG.SQ.O) GO TO 100
    C***STORli COKCEKTKATIO'JS FRO.1] SIGNIFICANT SOURCtS. (G/.'i**3 )
          PSIGS(K,KSIG)=PS1GS(K,KSIG)+PHOD
          PSlGS(K,26)=PSlGS(K,26)-fFROD
          FHSlGS(K,26) = PHSIGS(K,26)-i-PRGD
    TOO   PARTC(J)=PfiOD
    110   COM1NUL
    Ck**EiM'D OF LOOP tOh SOURCES
    C***«RIT£ PARTIAL CONCS'JTKATIOiiS 0.\ DIS
          IF (IOPT(6) .Eg.O) GO TO  120
    CH**USiR PLSAS?: ,>jOTi: PARTIAL  COivC. 1,\ G/r:kii3, KOI
          h'hlTE (NIP) IDATL\LH,X,(PARTC(J) ,J=1 ,npr)
    120   COMTIhUE
    C*rf*t,IlD OF LOOP FOR RECEPTORS
          RETJRfv
    C
          END
    PTU1280
    PTU1290
    PTU1300
    PTU1310
    PTU1320
    PTU1330
    PTU1340
    PTU1350
    PTU1360
    PTU1370
    PTU1380
    PTU1390
    PTU1400
    PTU1410
    PTU1420
    PTU1430
    PTU1440
    PTU1450
    PTU1460
    PTU147Q
    PTU1480
    PTU1490
    PTU1500
    PTU1510
    PTU1520
    PTU1530
    PTU1540
    PTU1550
    PTU1560
    PTU1570
    PTU1580
    PTU1590
    PTU1600
    PTU1610
    PTU1620
    PTU1630
    PTU1640
    PTO'1650
    PTU1660
    PTU167Q
    PTJ1680
    PTU1690
    PTU17QO
    DT.J171Q
    PTU1720
    PTU173Q
    PTU1740
    PTU17bO
    PTU1760
    PTU177Q
    PTU1730
    PTU1790
    PIU1300
    PTU1&10
    PTU1820
    PTL1333
    PTIM 640
    PTU1350
    PTU1860
    PTU187Q
    PTU1880
                                           91
    

    -------
          SUBROUTINE J'';!54u  (/.liTS , Z , YLi" , TLCS)
    C***TrfE PURPOSE OF  THIS  POUTIRE  IS TO  CALCULATE Trtr;LE3 OF
    C***C01!CEKTRAT10r KOR* ALIZED  "On  ,TF AIIC:'.
    C     INPUT VARIAPLES
    C         HINT- REPRES
    C         KHTS- NbKBER
    0         Z- RECEPTOR  EEIGt:T(';)
    C         XLl."'- DISTA/.CE  Li'ilT  0", I:,TEGr,ATIO,\ OF AREA COU?CESU;0
    C         TLOS- PARTIAL  CCMPUTAT LO-;  DELATED TO POLLUTANT LOSS
          COMMON A'iETCO:;/  ACF-K150) ,?C.-;i(15C) ,ASIGS( 150,1 1) ,P3IG3(150,26) ,1A
         1 SIGS ( 1 00 ) , IPSIG3 ( 250 ) , THET A , U , .<3T , HL , T E::p , SI ^T , COST , RP U( 2 ) , I w'D , PA R
         2TC(250) ,AHC.il(150),PHCHI(150),AH3IGS(150,11),PK3IG3(150,26),PL(6)
          COMMON /HEIGHT/  M1\'T(3) ,HARE(3) ,EPH!'(2) ,"4
          COMMON /RELC/ CI.'i(3,200)
    C***COrlCENTRATIOh TABLES  ARE  GE'.'ERATEL FOR  UP 10 3 "CIG-1T3.
          DO 190 IK=1 ,rJHT3
          :I = HINT(IH)
           1ARE(1H)-!I
                                                       54U0010
                                                       5iIU0020
                                                       5^00030
          IF (FJ1.EQ.1 .)
    TO 10
          P!IT = FH*H
          UPL=U*(PHT/10.
          IF (UPL.LT.1.) UPL=1.
          H=( (H-PHT)*5.)/'JPL-i-PHT
          HARE(IH)=H
          GO TO 20
    C***MODIFY V,'I>jD SPEED  LY  PG'./FH  LAW PROFILE.
    10    IF (H.LT.1 .0)  :i = 1 .0
          UPL = U*(H/ I 0.)**PL(KST)
          IF (UPL.LT.i.0)  UFL= i .0
    C***ZERO CO.MCEtlTPATIOJ  ARRAY
    20    DO 30 J=1,200
    30    C1N(IH,J)=0.0
    
          HC=10
          CP^O.O
          01=0.0
          JD=1
    C***D15TArJCE IN KM.
          X = 0.0
          DELX=0.001
          ID=1
    40    CL=CP
          X=X+DELX
    C***SUBROUTIME JMHCZU  DETERMINES THE RELATIVE CONCENTRATION AT
    C«**VARYING DOWNWIND DISTANCES.
          CALL JMHCZU  ( Z , H , X , SZ , CP)
    C***CALCULATE TRAVEL TIME  IN  KM-SEC/M.
          TT=X/UPL
    C***ADJUST RELATIVE  COMCKNTRATION BY POLLUTANT DECAY RATE.
    C***TLOS IN METERS/SM-SEC,  SO  TT*TLOS IS DIMEMS10NLESS.
          CP=CP/EXP(TT*TLOS)
    C***INTEGRATED RELATIVE CONCEMTRATiOH IS DIMENSIOMLESS.
    C***MULTIPLICATION 3Y  500.  CONVERTS TO  METERS AND DIVIDES BY 2.
          CI=500.*DELX*(CL+CP)+CI
          GO TO (50,90,120,150,180), JD
    C***NORMALIZED CONCENTRATIONS  ARE STORED IN  TABLES FOR VARYING
    C**»DISTANCES AT  VARYING  TIME  INTERVALS. THE FOLLOWING COMMENTS DETAIL
                                                       54U0050
                                                       54U0060
                                                       54U0080
                                                       54U0090
                                                       5MU01 10
                                                       54U012C
                                                       54U0130
                                                       54U0140
                                                       54U0150
                                                       5UU0160
    54U0130
    54U0190
    54U0200
    54U0210
    5^400220
    54U0230
                                                       51U0260
                                                       5*400280
                                                       5^10290
                                                       54U0310
                                                       54U0320
                                                       54U0330
                                                       5^0350
                                                       54U0360
                                                       5HU0330
                                                       54U0390
                                                       54U0420
                                                       54U0430
                                                       54U0450
                                                        ilUOit80
                                                       54U0500
                                                       S1U0510
                                                       54(10520
                                                       54U0530
                                                       54U0540
                                                       54U0550
                                                       54U0560
                                                       54U0580
                                                       54U0590
                    92
    

    -------
    C***Tt:E TOLL'S CC:!S7:iuC7IC:,.                                            54U0600
    C***DISTAi\CFX1GC"; CALCULATE EVEHY 1 .-I,  STORE EVERY 10 H, 0.01KH.       54U0610
    50    IF (X-0.0993) 60,30,50                                             54U0620
    60    K = :i+1                                                              54U0630
          IF (;j.LT.\C) GO TC 40                                              54U0640
          N=0                                                                54U0650
    70    ID=(100.*X)+O.OOOt                                                 54U0660
    C***STORAGK LOCATIONS 1-9 CCi.'TAi:.' INTEGRATIONS FOR 10-90 M.              54U067Q
          CIN(IH,1D)=CI                                                      54U0680
          GO TO 40                                                           54U0690
    C***DI3TAl'iCl- 100-500^!: CHA\'GS DELX TO 10M; STORE EVERY  10 M, 0.01KM.     54UQ7QO
    60    JD=2                                                               54U0710
          DF.LX = 0.01                                                          54U0720
          GO TO 7o                                                           54U0730
    C***STORAGE LOCATIONS 10-49 CONTAIN INTEGRATIONS FOR 100 M TO 490 M.     54UQ740
    90    IF (X-0.497) 70,100,100                                            54UQ750
    C*** DISTANCE 500 -3000N.; CHANGE D?LX TO 100 M; STORE EVERY 100 M, G.1KM 54UQ760
    100   JD=3                                                               54U077Q
          DELX=0.1                                                           54UQ780
    110   IP=(10.*X)+45.C8                                                   54U0790
    C***STORAGE LOCATIONS 50-74 CONTAIN INTEGRATIONS FOR 500 M TO 2900 H.    54U0800
          CIN(lh,ID)=Ci                                                      54U0810
          GO TO 40                                                           54U0820
    120   IF (X-2.95) 110,13C,;30                                            54U0830
    C**" DISTANCE 3000- 15.000M. ;  CHANGE DELX TO 500 II; STORE EVERY 500 M,  54U0840
    C*** 0.5K-1.                                                              54U0850
    130   JD=4                                                               54U0860
          DELX=.5                                                            54U087Q
    140   ID=(2.*X)+69.08                                                    54U0880
    C***STOHAGl-: LOCATIONS 75,98 COKTA1N INTEGRATIONS FOR 3000 M TO 14.5 KM.  54U0890
          C1N(IH,ID)=CI                                                      54U0900
          GO TO 40                                                           54U0910
    150   IF (X-14.95) 140,160,160                                           54U0920
    C**K DISTANCE >15,OOOH.; CHANGE DELX TO 1000M; STORE EVERY 1000 M, 1KM.  54U0930
    160   JD=5                                                               54U0940
          DELX=1.                                                            54U0950
    17o   ID=X+84.08                                                         54U0960
    C***STORAGE LOCATIONS 99-200 CONTAIN IMTEGRATIONS FOR 15 KM TO A         54U097Q
    C***MAX1MUH OF 116 KM.                                                   54U0980
          ClN(IH,ID)rCl                                                      54U0990
          GO TO 40                                                           54U1000
    180   IF (X-XLIM) 170,190,190                                            54U1010
    190   CONTINUE                                                           54U1020
          RETURN                                                             54U1030
    C                                                                        54U1040
          END                                                                54U1050
          SUHROUTLNK JHHCZU (Z , H,X,SZ , RCZ)                                   CZU0010
          COMMON /MKTCON/ ACHI( 1 50) , PCH1(150),ASIGS(150,11),PSIGS(150,26),IA CZU0020
         UUGS(IOO),LPS1GS(250),THETA,U,KST,HL,TBMP,SINT,COST,BPH(2).IWD.PAR CZU0030
         2TC(250),AHC1I1(150),PHCHI(150),AHSIGS(150,11),PHSIGS(150,26),PL(6)  CZU0040
    C        SUBROUTINE JMHCZU CALCULATES CHI*U/Q, RELATIVE CONCENTRATION    CZU0050
    C         NORMALIZED FOR WIND SPEED AND EMISSION RATE, FOR A CROSSWIND   CZU0060
    C         1NFINTE SOURCE UPWIND OF A RECEPTOR (IN UNITS OF: PER  METER    CZUOQ7Q
    C        JMHCZU CALLS SUBROUTINE .BRSZ                                    CZU0080
    C        THE INPUT VARIABLES ARE	                                     CZU0090
    C         Z    RECEPTOR HEIGHT (M)                                       CZU0100
    C         H    EFFECTIVE STACK HEIGHT (M)                                CZU0110
    C         HL   MIXING HEIGHT- TOP OF NEUTRAL OR UNSTABLE LAYER(M)        CZU0120
                                           93
    

    -------
    C               (THROUGH COMMON/METCON/)
    C         X    DISTANCE  SOURCE IS UPWIND OF RECEPTOR (KM)
    C         KST  STABILITY CLASS (THROUGH COMMON /METCON/)
    C        THE OUTPUT VARIABLES ARE....
    C        SZ    VERTICAL DISPERSION PARAMTER.
    C        RCZ   RELATIVE CONCENTRATION HAS UNITS OF: PER METER.
    C     THE FOLLOWING EQUATION IS SOLVED —
    C        RC = (1/2.5066 *SIGMA Z) * ((EXP(-.05*((Z-H)XSIGMA Z)**2)
    C             + (EXP(-0.5*((Z+H)/SIGMA Z)**2))
    C             PLUS THE SUM OF THE FOLLOWING 4 TERMS K TIMES (N=1,K) —
    C               FOR NEUTRAL OR UNSTABLE CASES:
    C              TERM 1- EXP(-0.5*((Z-H-2NL)/SIGMA Z)**2)
    C              TERM 2- EXP(-0.5*((Z+H-2NL)/SIGMA Z)**2)
    C              TERM 3- EXP(~0.5*((Z-H+2NL)/SIGMA Z)**2)
    C              TERM 4- EXP(-0.5*((Z+H+2NL)/SIGMA Z)**2)
    C        2.5066 IS THE SQUARE ROOT OF 2 * PI
    C***NOTE THAT MIXING HEIGHT- THE TOP OF THE NEUTRAL OR UNSTABLE LAYER-
    C***HAS A VALUE ONLY FOR STABILITIES 1-4, THAT IS, MIXING HEIGHT
    C***DOES NOT EXIST FOR STABLE LAYERS AT THE GROUND SURFACE- STABILITY
    C***5 OR 6.
    C        STATEMENTS 190 TO 330 CALCULATE RC, THE RELATIVE CONCENTRATION,
    C         USING THE EQUATION DISCUSSED ABOVE.  SEVERAL INTERMEDIATE
    C         VARIABLES ARE USED TO AVOID REPEATING CALCULATIONS.
    C         CHECKS AKE MADE TO BE SURE THAT THE ARGUMENT OF THE
    C         EXPONENTIAL FUNCTION IS NEVER GREATER THAN 50 (OR LESS THAN
    C         -50).  IF 'AM' BECOMES GREATER THAN 45, A LINE OF OUTPUT IS
    C         PRINTED INFORMING OF THIS.
    C        CALCULATE MULTIPLE EDDY REFLECTIONS FOR RECEPTOR HEIGHT Z.
    C        1WR1 IS CONTROL CODE FOR OUTPUT
          IWRI=6
    C***1F STABLE, SKIP CONSIDERATION OF MIXING HEIGHT.
          IF (KST.GE.5) GO TO 40
    C        IF THE SOURCE IS ABOVE THE LID, SET f!C = 0., AND RETURN.
          IF (H-HL) 10,10,20
    10    IF (Z-HL) 40,40,180
    20    IF (Z-HL) 180,30,30
    30    WRITE (IU'fiI,43G)
          RETURt-i
    C        IF X IS LESS THAiJ 1 METER, SET RC = 0. AND RETURN.  THIS AVOIDS
    C         PROBLEMS OF INCORRECT l/ALUSS NEAR THE SOURCE.
    40    IF (X-0.001) 180,50,50
    50    CALL BRSZ (X,KST,SZ)
    C         SZ = SIGMA Z, THE STANDARD DEVIATION OF1 CONCENTRATION IN THE
    C         Z-DlRECTlOiM (M)
          IF (KoT-M) 60,60,^0
    60    IF (HL-5000.) 150,70,70
    C        IF STABLE CONDITION OR UNLIMITED MIXING HEIGHT:
    70    C2=2.*SZ*SZ
          It (Z) 130,80,100
    C***BCii Z = ZhRO:
    BO    C3 = il*!i/C2
          IF (C3-50.) 90,180,160
    'jO    A2 = 2./EXP(C3)
          nCZ=42/(2.5U66*GZ)
               J
    C***FOI: '!0'J-Zi:i-0 Z:
    10u
    CZU0130
    CZU0140
    CZU0150
    CZU0160
    CZU0170
    CZU0180
    CZU0190
    CZU0200
    CZU0210
    CZU0220
    CZU02JO
    CZU0240
    CZU0250
    CZU0260
    CZU0270
    CZU0280.
    CZU0290
    CZU0300
    CZU0310
    CZU0320
    CZU0330
    CZU0340
    CZU0350
    CZU0360
    CZU0370
    CZU0380
    CZU0390
    CZU0400
    CZU0410
    CZU0420
    CZU0430
    CZU0440
    CZU0450
    CZU0460
    CZU0470
    CZU0480
    CZU0490
    CZU0500
    CZU0510
    CZU0520
    CZU0530
    CZU0540
    CZU0550
    CZU0560
    CZU0570
    CZU0580
    CZU0590
    CZU0600
    CZU0610
    CZU0620
    CZU0630
    CZU0640
    CZU0650
    CZU0660
    CZU0670
    CZU0680
    CZU0690
    CZU0700
    CZU0710
    CZU0720
    CZU0730
                                           94
    

    -------
          IF (C3-50.) 110,120,'20
    110   A2=l./EXP(C3)
    120   IF (04-50.) 130,140, 140
    130   A3=l./EXP(C4)
    140   RCZ=(A2+A3)/(2.5066*SZ)
          RETURN
    C        IF 3IGMA-Z IS GREATER  THAN  1.6  TIDIES  T.-II  NIXING  HEIGHT,
    C         THE DISTRIBUTION 3ELOW  THE NIXING  iiTLGHT LS  dN170PM >,ITH
    C         HEIGHT REGARDLESS  OF  SOURCE HEIGHT.
    150   IF (SZ/HL-1.6) 170,170,160
    160   RCZ=1./KL
          RETURN
    C        INITIAL VALUE OF  AK SET  = 0.
    C         AM   THE NUMBER  OF TIMES THE SUMMATION TE?'-'  IS  EVALUATED
    C          AMD ADDED IN.
    17>0   AK = 0.
          IF (Z) 180,340,190
    C***NOTE: AIM ERRONEOUS NEGATIVE Z i'.'ILL FESULT  IN ZERO  CONCENTRATIONS.
    180   RCZ=0.
          RETURN
    C***CALCULATE MULTIPLE EDDY  REFLECTIONS  FOR  ELEVATED  RECEPTOR HEIGHT.
    190   A1 = 1 ./(2.5066*SZ)
          C2=2.*SZ*SZ
          A2 = 0.
    
          CA=Z-H
          CB=Z+H
          C3=CA*CA/C2
          C4=CB*CB/C2
          IF (03-50.) 200,210,210
    200   A2=1 ./EXP(C3)
    210   IF (04-50.) 220,230,230
    220   A3=1./EXP(C4)
    230   SUM=0.
          THL=2.*HL
    240   AN=AK+1.
          C5=AN*THL
          CC=CA-C5
          CD=CB-C5
          CE=CA-t-C5
          CF=CB+C5
          C6=CC*CC/C2
          C7=CD*CD/C2
          C8=CE*CE/C2
          C9=CF*CF/C2
          IF (06-50.) 250,260,260
          A4=1 ./EXP(C6)
          IF (C7-50.) 2^0,280,280
          A5= 1 ./EXP(C7)
          IF (C8-50.) 290,300,300
          A6=1 ./EXP(C8)
          IF (C9-50.) 310,320,320
          A7=1 ./EXP(C9)
    250
    260
    280
    290
    300
    310
    320
    330
    CZU0750
    CZUQ760
    CZU077Q
    CZU0730
    CZU0790
    CZU0800
    CZ/J0310
    CZU0820
    CZU0831'
    CZU0340
    CZU0650
    CZU0860
    CZU087Q
    CZU0880
    CZU0890
    CZU0900
    CZU0910
    CZU0920
    CZU0930
    CZU0940
    CZU0950
    CZU0960
    CZU0970
    CZU0980
    CZU0990
    CZU1000
    CZU1010
    CZU1020
    CZU1030
    CZU1040
    CZU1050
    CZU1060
    CZU1070
    CZU1080
    CZU1090
    CZD1 100
    CZU1 110
    CZU1 120
    C7.U1 130
    CZ/J1 TIO
    CZU1 150
    C7.U1 160
    C7.U1 170
    CZU1180
    CZU1 VjO
    CZIJ1200
    C/.U 1210
    CZU1220
    CZU1P30
    C7U1240
    C/.II12r;0
    C7,ui?r,o
          SUM=SUM+T
          IF (T-0.01) 330,240,240
          RCZ=A1*(A2+A3+SUM)
          RETURN
    C7.II1PHO
    C/II1?90
    C/JJ1 JOO
    CZU1310
    CZU1 J20
    CZU1330
    CZU1340
    CZU1350
    CZU1360
                                           95
    

    -------
    C CALCULATE MULTIPLE EDDY REFLECTIONS FOR
    340   A1 = 1 ./(2.5066*SZ)
          A2 = 0.
          C2=2.*SZ*SZ
          C3=H*H/C2
          IF (C3-50.) 350,360,360
    350   A2=2./EXP(C3)
    360   SUM=0.
          THL=2.»HL
    370   AN=AN+1.
          A4 = 0.
          A6 = 0.
          C5=AN*THL
          CC=H-C5
          CE=H+C5
          C6=CC*CC/C2
          C8=CE*CE/C2
          IF (C6-50.) 380,390,390
    380   A4=2./EXP(C6)
    390   IF (C8-50.) 400,410,410
    400   A6=2./EXP(C8)
    410   T = A4-i-A6
          SUM=SUM+T
          IF (T-0.01) 420,3?0,370
    420   RCZ=A1*(A2+SUM)
          RETURN
                                         GROUND LEVEL RECEPTOR HEIGHT
    C
    430
     FORMAT (1HO,'BOTH H AND Z ARE ABOVE
    1E COMPUTATION CAN NOT BE MADE.')
    
     END
                               THE MIXING HEIGHT SO A RELIABL
                                                                        CZU1370
                                                                        CZU1380
                                                                        CZU1390
                                                                        CZU1400
                                                                        CZU1410
                                                                        CZU1420
                                                                        CZU1430
                                                                        CZU1440
                                                                        CZU1450
                                                                        CZU1460
                                                                        CZU1470
                                                                        CZU1480
                                                                        CZU1490
                                                                        CZU1500
                                                                        CZU1510
                                                                        CZU1520
                                                                        CZU1530
                                                                        CZU1540
                                                                        CZU1550
                                                                        CZU1560
                                                                        CZU1570
                                                                        CZU1580
                                                                        CZU1590
                                                                        CZU1600
                                                                        CZU1610
                                                                        CZU1620
                                                                        CZU1630
                                                                        CZU1640
                                                                        CZU1650
                                                                        CZU1660
                                                                        CZU167Q
    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
    SUBROUTINE DBTRCU ( U , Z , 4 , HL , X , Y , KST ,SY ,SZ , RC).
     DETERMINE RELATIVE  CONCENTRATION FROK  POINT SOURCES.
       SUBROUTINE DBTRCU CALCULATES CHI/Q  CONCENTRATION  VALUES;
        CALLS UPON  BRSYSZ TO OBTAIN' STAUDAPD  DEVIATIONS.
       THE INPUT VARIABLES ARE	
        U    WIND SPEED  (M/SEC)
        Z    RECEPTOR HEIGHT (M)
        H    EFFECTIVE STACK HEIGHT (h)
        HL   MIXING HEIGHT- TOP OF  NEUTRAL  OH  UI'-'STrtBLE  LAYLR(M)
        X    DISTANCE RECiiPTOP  IS DO./MvI JD  OF  SOURCE  (KM)
        Y    DISTANCE RECEPTOR  IS CROSS.JI.MD FRO'i SOURCE  (KM)
        KST  STABILITY CLASS
       THE OUTPUT VARIABLES  ARE	
         SY HORIZONTAL DISPERSIO/I PARAIltilr-,1
         SZ VERTICAL DISPERSION PARAMETER
        RC   RELATIVE COMCEKTRATI0i\ (SEC/M*»3)  ,C.U/Q
       Iiwhl IS CONTROL CODE  FOR "vASril'IG  OUTPUT.
    IWR1=6
       THS FOLLOWING EQUATION IS  SOLVED  --
         RC = (1/(2*PI*U*SlGi'A  Y*SIGM-l  Z)1* ( TXP (-0 . 5* (Y/SIGMA
          (EXP(-0.5*((Z-H)/?IGrA  Z)*K2)  +  rXF(-0.5*(0
            PLUS THE SUM OF  TrlE FCLLCu'IX'G  4 >T-O, .;  -  T:
                 FOR HSUTSIL Ch oiiSIAPLT CAS IS:
             TERf! 1- SXP(-0.5*((Z-n-2r,L)/SIG'A Z)**2)
                  2- EXP(-0.5*((Z + H-2.JLV3iG .-\ Z)**2)
                  3- SXP(-0.5*((Z-H+2NL)/S1G
                                                                  AND
    TERM
    TERM
    TERM
                   4- EXP(-0.5*((Z+'->2r.L)/SIG
                                                7 1
    RCU0010
    RCU0020
    RCU0030
    RCU0040
    RCU0050
    RCUC060
    RCUOO^O
    RCU0080
    RCU0090
    RCU0100
    RCUG110
    RCU0120
    KCU0130
    RCUC140
    RCU015G
    RCU0160
    RCU017Q
    RCU0180
    RCU0190
    RCU0200
    RCU0210
    RCU0220
    RCU0230
    RCU0240
    RCU0250
    RCU0260
    RCU027Q
                                            96
    

    -------
    10
    20
    30
    40
    
    C
    C
    50
    C
    60
    C
    C
    C
    C
    C KOTS THAT MIXING HEIGHT- THE TOP OF THE  NEUTRAL OR UNSTABLE LAYER-
    C HAS A VALUE OiiLY FCn STABILITIES 1-4, THAT IS, MIXING HEIGHT  DOES
    C ,\OT EXIST FOR STABLE LAYERS AT THE GROUND SURFACE- STABILITY  5 CR 6.
    C        THE AbOVE EQUATION IS SIKILAR TO  EQUATION  (5.6) P  36 IN
    C         i.'ORKEOCK OF ATMOSPHERIC DISPERSION ESTIMATES '.-/ITH THE ADDITION
    C         OF THu, EXPONENTIAL INVOLVING Y.
    C***IF STABLE, SPCIF CONSIDERATION OK KIXIiJG HEIGHT.
          IF (KST.&E.5) CO TO 50
    C        IF IKE SOURCE IS ABOVE THE LID, SET RC = 0., AMD RETURN.
          IF (H-HL) 10,10,20
          LF (Z-HL) 50,50,40
          IF (Z-HL) 40,30,30
          WRITE (Ii/RI,460)
          RC=0.
          RETURN
             IF X IS LESS THAN 1 rlETER, SET RC = 0. AND RETURN.   THIS AVOIDS
              PROBLEMS OF INCORRECT VALUES t.;EAF THE SOURCE.
          IF (X-0.001) 10,60,60
             CALL oKSYSZ TO OBTAIN VALUES FOR  SY AMD SZ
          CALL BRSYSZ ( X , KST , SY , SZ)
              SY - SIGMA Y, THE STANDARD DEVIATION OF CONCENTRATION IN THE
              Y-DIRECTIGN (M)
              SZ - SIGh'A Z, THE STANDARD DEVI AT [Of, OF CONCENTRATION IN THE
              Z-DIRECTIOH (M)
          C1 = 1 .
          IF (Y) 70,90,70
          YD=ICOO.*Y
             YD IS CROSSNLND DISTANCE L vl :;ET^RS.
    80
    90
    100
    C
    
    C
    C
    1 10
    
    C
    120
    
    130
    C
    140
    150
    160
    170
    C
    180
    
    C
    C
          IF (TEhP-50.) 60,40,40
          C1=EXP(TEt1P)
          IF (KST-4) 100,100,110
          LF (KL-5000.) 190, : 10,1 10
             Ir STABLE CONDITION OR UNLIMITED MIXING HEIGHT,
              USE AQUATION 3.2 IF Z = 0, OR EQ 3.1 FOR NON-ZERO Z.
              (EQUATION NUMBERS REFER TO ,,'ORKEOOtC OF ATMOSPHERIC DISPERSION
              ESTIMATES.)
          C2=2.*SZ*SZ
          IF (Z) 40,120,140
            NOTE: AN ERRONEOUS NEGATIVE Z V/ILL RESULT IN ZF.PO CONCENTRATIONS
          C3=n*H/C2
          IF (C3-50.) 130,40,40
          A2=1 ,/EXP(C3)
             WADE EQUATION 3.2.
          RC=A2/(3.14159*U*SY*SZ*C1)
          RETURN
    
          A3 = 0.
          CA=Z-H
          CB=Z+H
          C3=CA*CA/C2
          C4=CB*CB/C2
          IF (C3-50.) 150,160,160
          A2=1 ,/t:XP(C3)
          IF (C4-50.) 170,180,180
          A3=1 ./EXP(C4)
             WADE EQUATION 3.1.
          RC=(A2+A3)/(6.2331S*U*SY*SZ*C1)
          RETURN
             IF SIGMA-Z IS GREATER THAN 1.6 TIMES THE MIXING HEIGHT,
              THE DISTRIBUTION BELOW THE MIXING HEIGHT IS UNIFORM WITH
    RCU02SO
    RCU0290
    RCU030G
    RCU0310
    RCU0320
    RCU0330
    RCU0340
    RCU0350'
    RCU0360
    RCU0370
    RCU0380
    RCU0390
    RCU0400
    PCU0410
    RCU0420
    RCU0430
    RCU0440
    RCU0450
    RCU0460
    RCU047Q
    RCU0480
    RCU0490
    RCU0500
    RCU0510
    RCU0520
    RCU0530
    RCU0540
    RCU0550
    RCU0560
    RCU0570
    RCU0530
    RCU0590
    RCU0600
    RCU0610
    RCU0620
    RCU0630
    RCU0640
    RCU0650
    RCU0660
    RCU067Q
    RCU0680
    RCU0690
    RCUQ7QO
    RCUQ710
    RCU0720
    RCU0730
    RCUQ740
    RCU0750
    RCU0760
    RCUQ77Q
    RCU0780
    RCU0790
    RCU0800
    RCU0810
    RCU0820'
    RCU0830
    RCU0840
    RCU0850.
    RCU0860-
    RCU0870
    RCU0880
    RCU0890
                                           97
    

    -------
    C
    C
    190
    C
    200
    
    C
    C
    C
    210
    
    C
    C
    C
    C
    C
    C
    C
    C
    220
    230
    240
    250
    260
    280
    290
    300
    310
    320
    330
    340
    350
    360
    
    C
    C
        HEIGHT REGARDLESS OF SOURCE HEIGHT BECAUSE OF REPEATED EDDY
        REFLECTIONS FROM THE GROUND AND THE MIXING HEIGHT.
    IF (SZ/HL-1.6) 210,210,200
       WADE EQUATION 3-5.
    RC=1./(2.5066«U»SY*HL»C1)
    RETURN
       INITIAL VALUE OF AN SET = 0.
        AN - THE NUMBER OF TIMES THE SUMMATION TERM IS EVALUATED
              AND ADDED IN.
    AN=0.
    IF (Z) 40,370,220
      STATEMENTS 220-260 CALCULATE RC, THE RELATIVE CONCENTRATION,
        USING THE EQUATION DISCUSSED ABOVE.  SEVERAL INTERMEDIATE
        VARIABLES ARE USED TO AVOID REPEATING CALCULATIONS.
        CHECKS ARE MADE TO BE SURE THAT THE ARGUMENT OF THE
        EXPONENTIAL FUNCTION IS NEVER GREATER THAN 50 (OR LESS THAN
        -50).  IF 'AN' BECOMES GREATER THAN 45, A LINE OF OUTPUT IS
        PRINTED INFORMING OF THIS.
       CALCULATE MULTIPLE, EDDY REFLECTIONS FOR RECEPTOR HEIGHT Z.
    A1=1 ./(6.28318*U*SY*SZ*C1)
    C2=2.*SZ*SZ
    A2=0.
    A3=0.
    CA=Z-H
    CH=Z+H
    C3=CA*CA/C2
    C4=CB*Cb/C2
    IF (C3-50.) 230,240,240
    A2=1 ./EXP(C3)
    IF (C4-50.)' 250,260,260
    A3=1 ./2XP(C4)
    SUt'! = 0.
    THL=2.*HL
    AN' = AN+1.
    A'UO.
    A5 = 0.
    A6=0.
             AH*THL
             CA-C5
             CB-C5
             CA+C5
             CU+C5
             CC*CC/C2
             CD*CD/C2
             CE*CE/C2
             CF*CF/C2
             (C6-50.) 280,290,290
             1 ./EXP(C6)
             (C7-50.) 300,310,310
             1 ./EXP(C7)
             (C3-5C.) 320,330,330
             1 ./LXP(C8)
             (C9-50.) 340,350,350
            =1 ./EXP(Cy)
    C5
    CC
    CD
    CE
    CF
    C6
    C7
    C8
    IK
    A5
    IF
    Ao
    IF
    3JK=SUM+T
    IF (T-0.01) 360,2^0,270
       CALCULATE .'1ULTIPLH;  EDDY REFLECTIONS FOR GROUND LEVEL RECEPTOR
                                      RCU0900
                                      RCU0910
                                      RCU0920
                                      RCU0930
                                      RCU0940
                                      RCU0950
                                      RCU0960
                                      RCU0970
                                      RCU0980
                                      RCU0990
                                      RCU1000
                                      RCU1010
                                      RCU1020
                                      RCU1030
                                      RCU1040
                                      RCU1050
                                      RCU1060
                                      RCU1070
                                      RCU1080
                                      RCU1090
                                      RCU1100
                                      PCU1110
                                      RCU1120"
                                      RCU1130*
                                      RCU1140
                                      RCU1150
                                      RCU1160
                                      PCU1170
                                      RCU1180
                                      RCU1190
                                      RCU1200
                                      RCU1210
                                      RCU1220
                                      RCU1230
                                      RCU1240
                                      RCU1250
                                      RCU1260
                                      RCU1270
                                      RCU1280
                                      RCU1290
                                      RCU1300
                                      RCU1310
                                      RCU1320
                                      RCU1330
                                      RCU1340
                                      RCU1350
                                      RCU1360
                                      RCU1370
                                      RCU1380
                                      RCU1390
                                      RCU1400
                                      RCUI'410
                                      RCU1420
                                      RCU1430
                                      RCU1440
                                      RCU1450
                                      RCU1460
                                      .RCU147Q
                                      ECU1480
                                      RCU1490
                                      RCU1500
                                      RCU1510
    98
    

    -------
    370
    380
    390
    
    MOO
    '410
    420
    430
    440
    450
    
    C
    460
    A1 = I ./(6.2S3 !8*U*SY*SZ
    A2rO.
    C 2 = 2 . * ? Z * S Z
    C3 = 'l*il/C2
    IF (C3-50.) 380,390,35
    A2=2./EXF(C3)
    SUK=0.
    TIIL = 2.*HL
    CC=h~C5
    CE=H+C5
    C6=CC*CC/C2
    C8=CE*CE/C2
    IF (C6-50.) 410,420,420
    A4=2./SXP(C6)
    IF (C6-50.) 430,44>j,440
    A6=2./EXP(C8)
    T=A4+AG
    SUM=SU:-I+T
    IF (T-0.01) 450,400,400
    PC = A1*(A2+3U:i)
    RETUHK
                                                       GiIT SO  /•  "ELLAf,  24 iiOURS)    FIJ0050
    C***1S ALSO FR1UTED. COIiCEuT RA 1'IONS ARE FRI-if,:!, I'i 'JICriOG RA!-,S  PER CUfLC   FINOO&O
    C***METER.                                                                 FIK0070
    C        INPUT VARIABLES ARE:                                             FLl.'OOBC
    C        MB- START HOUR  OF  AVERAGING TI/.E                                 FLM0090
    C        LIHE1- FIRST  LI.'^E  OF TITLE                                       FIM0100
    C        LINE2- SECOND LIMC  OF TITLE                                      FIM0110
    C        LINES- THIRD  LIME  OF TITLE                                       FTJ0120
          COMMOM /SORC/  I A (25 , 25 ) , SOURCE ( 9 , 250) , ASORC ( 6 , 1 00 ) , U li ITS , CO NT .'.'0 , R l>  F I 'IO 1 30
         1EC(150) ,SREC(150) ,MPS(25) ,KAS(10) ,LOPT(1 3) , IPOL , rl P''Cr,p , i"U " , R.'l AX , S  HMO 140
         2MIN,SMAX,IRSIZE,ISSIZE,riPT,NAS,fISIGP,n5LGA,Pt:A'1E(2,?50) ,PSAV(250)   F1M0150
          COMMON /METCON/  ACHI(150),PCHI(150),ASIGS(150,11) , FSIG3(150,26) ,I A  EUJ0160
         1SIGS(100) ,IPSIGS(250) , THETA , U , KST , HL , TEMP , S I NT , COST , P,PH( 2 ) , L'/ID, PAR  FII,0170
         2TC(250),AHCHI(150),PHCHI(150),AHSIGS(150,11).PHSIGSC150,26),PL(6)   STI0180
          COMMON /METDATY  QTHETA(24),QU(24) , 1KST(24),GHL(24) , OTiCKPC24),[DATE  FIN0190
         1(2)                                                                  FltlO?00
          COMMON ITYPE(150) ,ICODE(150) , IN , 10 , NIP , MI D , f'AVG                     FIM0210
          DIMENSION GRAMDT(150),  LRANK(ISO),  GRAMDS(150), LPOLT(?), LINE1(14  FLIJ0220
         1), LINE2C14),  LIME3(14)                                             FLK0230
          DATA IPOLT /'S02  ','PARTV                                          FIN0240
          IPOLU=IPOLT(1)                                                       FIN0250
          IF (IPOL.EQ.4) 1POLU=IPOLT(2)                                       FIN02&0
    C***AVERAGE CONCENTRATIONS  OVER SPECIFIED TIME PERIOD                     FIH0270
          DO 30 K=1,MRECEP                                                     FIN0280
                                            99
    

    -------
    10
          ACHI(K)=ACHI(K)/NAVG
          PCHI(K)=PCHI(K)/NAVG
          GRANDT(K)=ACHI(K)+PCHI(K)
          GRANDS(K)=GRANDT(K)
          DO 10 1=1 ,11
          ASIGS(K,I)=ASIGS(K,I)/NAVG
          DO 20 1=1,26
          PSIGS(K,I)=PSIGS(K,I)/NAVG
          CONTINUE
    20
    30
    C**»
    C***WRITE POINT SOURCE TABLE
          IF (lOPT(D.EQ.O) GO TO 110
          WRITE (10,180) LINE1.LINE2,LINES
          WRITE (10,190) NAVG,IPOLU,IDATE,NB
          IF (NSIGP.GT.10) GO TO 50
    C***PRINT FIRST PAGE OF OUTPUT AND TOTALS
          WRITE (10,200) (1,1=1,NSIGP)
                (10,210)
                (10,220) (MPS(I),1=1,NSIGP)
                (10,230)
                K=1,NRECEP
                (10,240) K,(PSIGS(K,I),1=1,NSIGP)
                         PSIGS(K,26),PCHI(K)
          WRITE
          WRITE
          WRITE
          DO
          WRITE
    C***PRINT TOTALS***
          WRITE (10,250)
    40    CONTINUE
          GO TO 110
    C***PRINT FIRST PAGE
    50    WRITE (10,200) (1,1=1,10)
          WRITE (10,260) (MPS(I),1=1,10)
          WRITE (10,230)
          DO 60 K=1.NRECSP
    60    WRITE (10,240) K , (PSIGS(K,I),1=1,10)
          IF (NSIGP.GT.20) GO TO 80
    C***PRINT SECOND PAGE AND TOTALS
          WRITE (10,180) LINE1,LIME2,LINES
          WRITE (10,190) NAVG,1PCLU,IDATE,NB
          WRITE (10,200) (1,1=11 ,NSIGP)
          WRITS (10,210)
          WRITS (10,220) (MPS(I),1=11.NS1GP)
          WRITE (10,230)
          DO 70 K=1.NRECEP
          WRITE (10,240) K,(PSIGS(K,I),1=11,NS1GP)
    70    WRITS (10,250) PS1GS(K,26),PCHI(K)
          GO TO 110
    C***WRITE SECOND PAGE***
    80    WRITE (10,180)
          WRITE (10,190)
          WRITE (10,200)
          WRITE (10,260)
          WRITE (10,230)
          DO 90 K=1,NRtCEF
    90    WRITE (10,240) K
          WRITE (10,180) L
          WRITE (10,190) NAVG
                               ,LIKE2,LI?JE3
                         IIAVG.IPGLU, IDATtl.NB
                         (1,1=1 i ,20)
                         (i-.PS(l) ,1=1 ;  ,20)
    (PS1GS(K,L),1=11,20)
      , IPOLU.IDATc,"
    C***WR1TE LAST FAG5 A^D TOTALS***
          WRITE (10,200)  (L, 1 = 21 ,'ISIGF)
          WRITE (10,210)
          WRITS (10,220)  (KPS(I) ,1 = 21,NSIGP)
          WRITE CIO,230)
          DO 100 K=1.NRhCEP
          WRITE (10,240)  rC,(FSIGS(K,i)II = 21,
    100   WRITE CO, 250)  PSIGSU.26) ,PC:!L(K)
                                                     FIN0290
                                                     FIN0300
                                                     FIN0310
                                                     FIN0320
                                                     FIN0330
                                                     FIN0340
                                                     FIN0350
                                                     FIN0360
                                                     TIN0370
                                                     FIN0380
                                                     FIN0390
                                                     FIN0400
                                                     FIN0410
                                                     FIN0420
                                                     FIN0430
                                                     FIN0440
                                                     FIN0450
                                                     FIN0460
                                                     FIN047Q
                                                     FIN0480
                                                     FIN0490
                                                     FIN0500
                                                     FIM0510
                                                     FIN0520
                                                     FIN0530
                                                     F1N0540
                                                     FIN0550
                                                     F1N0560
                                                     FIN0570
                                                     FIN0580
                                                     F1N0590
                                                     FIN0600
                                                     F1M0610
                                                     FI'I0620
                                                     F1M0630
                                                     FIN0640
                                                     FIM0650
                                                     FIM0560
                                                     F I NO 670
                                                     F1K0680
                                                     FIN0690
                                                     FINO^OO
                                                      FIH0720
                                                      FIMQ730
                                                      FIM0740
                                                      F1M0760
                                                      F1KOT7Q
                                                                             F1M0790
                                                                             FIN0300
                                                                             FINOS 10
                                                                             FIK0320
                                                                             F1M0630
                                                                             FIN0840
                                                                             FIM0850
                                                                             F1M0360
                                                                             FIN0830
                                                                             FIN0890
                                                                             FIK0900
                                           100
    

    -------
    c**»
    C***WRITE
         AREA SOURCE TABLE
    110   IF (IOPT(2).EQ.O) GO TO 130
          WRITE (10,180) LINE1,LINE2,LINE3
                         NAVG,IPOLU,IDATE,NB
                         (1,1=1.NSIGA)
     WRITE
     WRITE
     WRITE
     WRITE
     WRITE
     DO 120
     WRITE
     WRITE
    (10,270)
    (10,200)
    (10,280)
    (10,220)  (MAS(I),1=1,NSIGA)
    (10,230)
     K=1.NRECEP
    (10,240)  K,(ASIGS(K,I),I=1,NSIGA)
    (10,250)  ASIGS(K,11),ACHI(IO
                         LINE1,LINE2,LINE3
                         NAVG,IPOLU,IDATE,NB
    120
    C***
    C***OUTPUT SUMMARY TABLE
    C***
    130   WRITE (10,180)
          WRITE (10,290)
          WRITE (10,300)
    C***CALCULATE GRAND TOTALS AND RANK CONCENTRATIONS
          DO 150 1=1,NRECEP
          CMAX=-1.0
          DO 140 K=1.NRECEP
          IF (GRANDT(K).LE.CMAX) GO TO 140
          CMAX=GRANDT(K)
          LMAX=K
    140   CONTINUE-
          IRANK(LMAX)=I
          GRANDT(LMAX)=-1.0
    150   CONTINUE
          DO 160 K=1.NRECEP
          C1=RREC(K)*UNITS
          C2=SREC(K)*UNITS
          WRITE (10,310) K.ITYPE(K),ICODE(K),C1,C2,PSIGS(K,26),PCHI(K).ASIGS
         1(K,11),ACHI(K),GRANDS(K),IRANK(K)
    160   CONTINUE
          IF (IOPT(10).EQ.O) RETURN
    C***PUNCH CONCENTRATIONS FOR CONTOURING(MICROGRAMS/CUBIC METER)
    C***RECE;PTOR COORDINATES IN USER UNITS.
          DO 170 K=1.NRECEP
          C1=RKEC(K)*UNITS
          C2=SREC(K)*UNITS
          GWU=GRANDS(K)*1 .OE+06
          AWU=ACHI(K)*1.OE+06
          PWU=PCHI(K)*1.OE+06
          WRITE (1,320) C1,C2,GWU,AWU,PWU,K
    170   CONTINUE
          RETURN
    C
    180
    190
    200
    210
    
    220
    230
    240
    250
    260
     FORMAT ('1',13A6,A2/1X,13A6,A2/1X,13A6,A2)
     FORMAT ('0'.T22.I2,'-HOUR AVERAGE ',A4,' CONTRIBUTION^ KICROGRAMS/M
    1**3) FROM SIGNIFICANT POINT SOURCES',5X,12,V,13 ,'  START HOUR: '
    2,I2//1X,T5,'RANK')
     FORMAT ('+',T12,10(I3,7X))
     FORMAT (' + ' ,T113, 'TOTAL     TOTAL ' / 1 X , T1 1 3 , ' SIGNIF    ALLPOINTV1
    1X.T113,'POINT     SOURCES'/1X,'SOURCE #')
     FORMAT ('+',T12,10(13,7X) )
     FORi'lAT (1X, 'RECEP #' )
     FORMAT (1X,T3,13,1X , 6P1OF10 . 3)
     FORMAT ('+',T109,6P2F10.3)
     FORMAT (1X,'SOURCE #' ,T12 , 10(13,7X))
     FORMAT CO',T22,I2,'-HOUR AVERAGE ',A4,' CONTRIBUTIONMICROGRAMS/M
    1**3) FHOM SIGNIFICANT AREA SOURCES',5X,12,'/',13 ,'   START HOUR: ',
    FIN091Q
    FIN0920
    FIN0930
    FIN0940
    FIN0950
    FIN0960
    FIN0970
    FIN0980
    F1N0990
    FIN1000
    FIN1MO
    FIN 1020
    FIN1030
    FIN1040
    FIN1050
    FIN106.0
    FIN1070
    FIN1080
    FIN1090
    FIN1100
    FIN1110
    FINT120
    FIN VI 30
    FIN1140
    FIN1150
    F1N1160
    FIN117Q
    FIN1180
    FIN1190
    FIN1200
    FIN1210
    FIN1220
    FIN1230
    FIN1240
    F1N1250
    FIN1260
    FIN1270
    F1N1280
    FIN1290
    FIN1300
    FIN1310
    F1N1320
    FIN1330
    FIN1340
    FIN1350
    FIN1360
    FIN1370
    FIN1380
    FIN1390
    FIN1400
    F1N1410
    FIN1420
    FIN1430
    FIN1440
    FIN1450
    F1N1460
    FIN147Q
    FIN14&0
    FIN 1490
    FIN1500
    FIN1510
    FIN1520
                                           101
    

    -------
    280
    290
    300
    310
    320
    C
    'ALL AREA'/IX
    2I2//1X.T5,'RANK')
     FORMAT ('+',1113,'TOTAL      TOTAL'/1X,T113,'SIGNIF
    1,T113,'AREA       SOURCES'/IX,'SOURCE #')
     FORMAT ('0',T25,I2,'-HOUR AVERAGE ',AA,' SUMMARY  CONCENTRATION TAB
    1LE(MICR'OGRAMS/M**3) ' ,5X,I2,'/',I3, '  START  HOUR:  '.I2//1X)
     FORMAT (IX,'RECEPTOR  NO.    EAST     1JORTH     ',2X,5('TOTAL FROM
    1'),'COHCENTRATION'/1X,T36,'SIGNIF POINT  ALL  POINT    SIGNIF AREA
    2 ALL AREA     ALL  SOUKCES',5X,'RANK'/1X,T38,4('SOURCES',6X)//1X)
     FORMAT (1X,T3,I3,1X,A1,I3,6X,F7.2,2X,F7.2,1X,6P5F13.4,6X,I3)
     FORMAT ('CNTL',IX,5F10.3,14)
    
     END
    FIN1530
    FIN1540
    FIN1550
    FIN1560
    FIN1570
    FIN1580
    FIN1590
    FIM1600
    FIN1610
    FIN1620
    FIH 1 6 3 0
    FIN1640
          SUBROUTINE  JMHREC                                                    REC0010
    C***THE PURPOSE  OF  THIS SUBROUTINE IS TO  DETERMINE RECEPTORS FROM         REC0020
    C***SIGNIFICANT  SOURCES.                                                    REC0030
          COMMON  /COEFFS/ PXCOF(6,9),PXEXP(6,9),PXUCOF(6,9),PXUEXP(6,9),AXCO  REC0040
         1F(6,9),AXEXP(6,9),HC1(10)                                            REC0050
          COMMON  /SORC/ IA(25,25),SOURCE(9,250),ASORC(6,100).UNITS,CONTWO,RR  REC0060
         1ECU50) ,SREC(150) ,MPS(25) ,MAS(10) , IOPT(13) , I POL , NRECEP , RMIN , RMAX, S  REC0070
         2HIH,SMAX,IRSIZE,ISSIZE,HPT,HAS,NSIGP,NSIGA,PNAME(2,250),PSAV(250)   REC0080
          COMMON  /METCOH/ ACHI(150),PC HI(150),ASIGS(150, 11),PSIGS(150,26),IA  REC0090
         1SIGS(100),IPSIGS(250),THETA,U,KST,HL,TEMP,SINT,COST,BPH(2),IWD.PAR  REC0100
         2TC(250),AHCHI(150),PHCHI(150),AHSIGS(150,11),PHSIGS(150,26),PL(6)   REC0110
          COMMON  ITYPE(ISO) ,ICODE (150) ,IN,10,NIP,NID,NAVG                      REC0120
          DATA  ICHAR  /'P'/  .JCHAR /'A'/                                        REC0130
          IF  (lOPT(l).EQ.O) GO  TO 110                                          REC014G
          IF  (IOPT(4).EQ.O) GO  TO 110                                          REC0150
          WRITE  (10,200)                                                        REC0160
    C                                                                           REC0170
    C***LOOP  ON  SIGNIFICANT POINT SOURCES                                      REC0180
    C                                                                           REC0190
          DO  100  IP=1,NSIGP                                                    REC0200
          X=0.0                                                                 REC0210
          I=MPS(IP)                                                             REC0220
    C***EAST  AND  NORTH  COORDINATES OF THE SOURCE                               REC0230
          RS = SOURCE(1 ,1)                                                        REC0240
          SS=SOURCE(2,I)                                                        REC0250
          Q=SOURCE(IPOL,I)                                                      REC0260
    C***MODIFY  WIND  SPEED BY  POWER LAW PROFILE  IN ORDER  TO TAKE INTO          REC0270
    C***ACCOUNT  THE  INCREASE  IN WIND SPEED  WITH HEIGHT.                        REC0280
          UPL=U*(SOURCE(5,I)/10.)**PL(KST)                                     REC0290
    C***CALCULATE  PLUME RISE                                                    REC0300
          TS=SOURCE(6,I)                                                        REC0310
          IF  (TS.GT.TEMP) GO  TO 10                                             REC0320
          HF=SOURCE(5,I)                                                        REC0330
          GO  TO  70                                                             REC0340
    10    F=SOURCE(9,I)*(TS-TEMP)/TS                                           REC0350
          GO  TO  (20,20,20,20,40,50), KST                                       REC0360
    20    IF  (F.GE.55.) GO  TO 30                                               REC0370
          HF=SOURCE(5,I)+21.425*F**0.75/UPL                                    REC0380
          GO  TO  70                                                             REC03-90
    30    HF=SOURCE(5,I)+J8.71*F**0-6/UPL                                      REC0400
          GO  TO  70                                                             REC0410
    40    DTHDZ=0.02                                                            REC0420
          GO  TO  60                                                             REC0430
    50    DTHDZ=0.035                                                          REC04~40
    60    S=9.80616*DTHDZ/TEMP                                                 REC0450
          HF=SOURCE(5,I)+2.6*(F/(UPL*S))**0.333333                            REC0460"
                                             102
    

    -------
    C***DETERMINE  PROPER HEIGHT CLASS
    70    DO 80 IH-2,10
          IF (HF.LT.(HCl(IH)-.Ol)) GO TO 90
    80    CONTINUE
          IH-10
    90    IS-IH-1
    C***CALCULATE  RELATIVE CONC. NORMALIZED FOR  WIND  SPEED
          A«PXUCOF(KST,IS)
          B=PXUEXP(KST,IS)
          CONM=A*HF**B*Q/UPL
    C***CALCULATE  DISTANCE TO MAX. CONC. FROM  POINT SOURCE.
          C=PXCOF(KST,IS)
          D=PXEXP(KST,IS)
    C*** X IN KM.
          X=C*HF**D
    C***DO NOT ALLOW   RECEPTORS BEYOND  1000 KM.
          IF(X.CT. 1000.) GO TO 100
          NRECEP=NRECEP+2
          IF (NRECEP.GT.150) GO TO 190
    C
    C***TWO RECEPTORS  ARE  GENERATED FOR EACH SIGNIFICANT POINT SOURCE.
    C***RECEPTORS  ARE  LOCATED AT A DISTANCE OF X AND  AT 2X.
    C***X IS THE LOCATION  WHERE THE HIGHEST CONCENTRATION FROM THE IP-TH
    C***POIHT SOURCE  IS  EXPECTED.  A RECEPTOR IS  LOCATED AT A DISTANCE OF  2X
    C*** TO ALLOW  FOR  THE  INTERSECTION OF PLUMES FROM SEVERAL POINT SOURCES.
    C***THE CHARACTERS  "A" FOR AREA SOURCE AND "P"  FOR POINT SOURCES
    C***SIGNIFY WHICH  TYPE OF SOURCE CAUSED THE  GENERATION OF A
    C***SPECIFIC RECEPTOR.
          K=NRECEP-1
          ITYPE(K)=ICHAR
          ICODE(K)=I
    C***CALCULATE  EAST  AND NORTH COORDINATES(INTERNAL UNITS) OF THE RECEPTOR
    C***SINT AND COST  REFER TO THE SINE AND COSINE  OF THE RESULTANT WIND  DIR
          RREC(K)=RS-X*SINT/CONTWO
          SREC(K)=SS-X*COST/CONTWO
    C***CONVERT TO USER  UNITS FOR PRINT OUT.
          C1=RREC(K)*UNITS
          C2=SREC(K)*UNITS
          WRITE  (10,210) K.ICUAR,I,C 1 ,C2,CONM,X,HF,UPL
          X=2.0*X
          ITYPE(NRECEP)=ICHAR
          ICODE(NRECEP)-I
          RREC(NRECEP)=RS-X*SINT/CONTWO
          SREC(NRECEP)=SS-X*COST/CONTWO
    C***CONVERT TO USER  UNITS FOR PRINT OUT.
          C1=RREC(NRECEP)*UNITS
          C2=SREC(NRECEP)*UNITS
          WRITE  (10,220) NRECEP,ICHAR,I,C1,C2,X,HF,UPL
    100   CONTINUE
    C
    C***LOOP ON SIGNIFICANT AREA SOURCES
    C***ONE RECEPTOR  IS  LOCATED ON THE DOWNWIND  AZIMUTH FROM THE CENTER OF
    C***EACH SIGNIFICANT AREA SOURCE AT A DISTANCE  WHERE MAXIMUM
    C***CONCENTRATIONS  IS  EXPECTED.
    C
                                   180
                                   180
    110
          IF  (IOPT (2) .EQ.0)  GO TO
          IF  (IOPT (5).EQ.0)  GO TO
          WRITE  (10,230)
          DO  170  IP-l.NSIGA
          I=MAS(IP)
          WA=ASORC(5,I)
    C***LOCATE  SOURCE  CENTER
    REC0470
    REC0480
    REC0490
    REC0500
    REC0510
    REC0520
    REC0530
    REC0540
    REC0550
    REC0560
    REC0570
    REC0580
    REC0590
    REC0600
    REC0610
    REC0611
    REC0612
    REC0620
    REC0630
    REC0640
    REC0650
    REC0660
    REC0670
    REC0680
    REC0690
    REC0700
    REC0710
    REC0720
    RE£0730
    REC0740
    REC0750
    REC0760
    REC0770
    REC0780
    REC0790
    REC0800
    REC0810
    REC0820
    REC0830
    REC0840
    REC0850
    REC0860
    REC0870
    REC0880
    REC0890
    REC0900
    REC0910
    REC0920
    REC0930
    REC0940
    REC0950
    REC0960
    REC0970
    REC0980
    REC0990
    REC1000
    REC1010
    REC1020
    REC1030
    REG 1040
    REC1050
    REC1060
                                            103
    

    -------
          RS=ASORC(1,
          SS=ASORC(2,I)+UA
          H=ASORC(6,I)
    C***DETERMINE  HEIGHT  CLASS
    C***IS =  1 FOR  H  LESS
    C***IS =  2 FOR  H  FROM
    C***IS -  3 FOR  H  FROM
          DO  120  IH-2,3
          IF  (H.LT.HCl(IH)-O
                     THA  20  METERS.
                     20 TO  30  METERS.
                     30 TO  50  METERS.
                         01)  GO  TO 130
    120
    130
     CONTINUE
     IH-A
     IS-IH-1
    C***CALCULATE  DISTANCE(KM) TO MAXIMUM CONCENTRATION.
          C=AXCOF(KST,IS)
          D=AXEXP(KST,IS)
          X-C*H**D
          IF  (COST.EQ.O.)  GO TO 140
          A=ABS(WA/COST)
          IF  (SINT.EQ.O.)  GO TO 150
          B=ABS(WA/SINT)
          AB=AMIH1(A,B)
          GO  TO  160
    140   AB=ABS(WA/SINT)
          GO  TO  160
    150   AB=A
    160   X=X+AB*COUTWO
          NRECEP=HRECEP+1
    C***NO MORE  THAN  150  RECEPTORS ARE ALLOWED.
          IF  (NRECEP.GT.150) GO TO 190
          RREC(HRECEP)=RS-X*SINT/CONTWO
          SREC(NRECEP)=SS-X*COST/CONTWO
          Cl=RREC(NRECEP)*UNITS
          C2=SREC(HRECEP)*UNITS
          WRITE  (10,210)  NRECEP,JCHAR,I.C1,C2
          ITYPE(NRECEP)=JCHAR
          ICODE(NRECEP)=I
    170   CONTINUE
    180   RETURN
    190   WRITE  (10,240)
          NRECEP=150
          RETURN
    C
    200
    210
    220
    230
    
    240
     FORMAT  (1X////1X.T9, 'SIGNIFICANT POINT RECEPTORS '// 1 X, ' RECEPTOR #
    1 EAST     NORTH     PREDICTED MAX CONG .  MAX. DIST   EFF.  HT    U(PH
    2Y HT)'/1X,T34,' (MICROGRAMS /M* *3 ) ' ,T 55 , ' (KM) ' ,T 66 , ' (M) ' ,T76,' (M/SEC
     FORMAT  (1X,T2,I3,1X,A1,I3,4X,F6.2,3X,F7.2,4X,6PF12.2,5X,OP3F10.3)
     FORMAT  (1X,T2,I3,1X,A1,I3,4X,F6.2,3X,F7.2,21X,3F10.3)
     FORMAT  (1X////1X.T9, 'SIGNIFICANT AREA SOURCE RECEPTORS '// IX, 'RECEP
    1TOR #  EAST      NORTH    '//1X)
     FORMAT  (' THE MAXIMUM NO.  OF RECEPTORS HAS BEEN  GENERATED '/ /1X, ' N
    10 OTHERS WILL BE  ACCEPTED')
    
     END
    REC1070
    REC 1080
    REC 1090
    REC1100
    REC1110
    REC1120
    REC1130
    REC 11 40
    REC 1150
    REC1160
    REC 11 70
    REC1180
    REC 1190
    REC1200
    REC1210
    REC1220
    REC1230
    REC1240
    REC1250
    REC1260
    REC1270
    REC1280
    REC1290
    REC1300
    REC1310
    REC1320
    REC1330
    REC1340
    REC 1350
    REC1360
    REC1370
    REC1380
    REC1390
    REC1400
    REC1410
    REC1420
    REC1430
    REC1440
    REC1450
    REC1460
    REC1470
    REC1480
    REC1490
    REC1500
    REC1510
    REC1520
    REC1530
    REC1540
    REC1550
    REC1560
    REC1570
    REC1580
    REC1590
    REC1600
          SUBROUTINE  JMHOUR (LH,LINE 1,LINE 2,LINE3)                             HOUR010
    C***THE PURPOSE OF THIS SUBROUTINE  IS  TO  OUTPUT A TABLE OF PARTIAL        HOUR020
    C***CONTRIBUTIONS FROM SIGNIFICANT  POINT  AND AREA SOURCES FOR THE         HOUR030
    C***CURRENT  HOUR. OR,  IF DESIRED, A  SUMMARY TABLE LISTING FOR EACH        HOUR040
                                            104
    

    -------
    C***KECEPTOK:  THE TOTAL CONCENTRATION FROil  SIGNIFICANT POINT  SOURCES,
    C***SIGHIFICANT AREA SOURCES,  TOTALS FROM ALL  POINT AND AREA  SOURCES
    C***At:i> FINALLY THE TOTAL  CONTRIBUTIONS FR011 ALL SOURCES, CAN  BE'
    C***015TAINED  INSTEAD OF OR IN  ADDITION TO THE  PARTIAL CONCENTRATION
    C***TABLE.  CONCENTRATIONS  ARE  PRINTED IN MICROGRAMS PER CUBIC  METER..
    C       INPUT  VARIABLES. . .
    C          LH-CURRENT HOUR
    C          LINE1-FIRST LINE OF  TITLE
    C          LIHEZ-SECOti'J  LIME  OF TITLE
    C          LISE3-THIRD LINE OF  TITLE
          COMMON  /SORC/ IA(25, 25) , SOURCE (9 , 250) , ASORC(6 , 100) .UNITS, CON TWO, RR
          1EC(150) , SREC( 150) ,:IPS (25) ,MAS (10) , IOPT(13) , I POL , IIRECEP , UMIH.RMAX, S
          2HIN, SMAX, IRSIZE, I S3 IZ E , NPT , NAS , I1SIGP.NSIGA , PliAME (2 , 250) ,PSAV(250)
         ' C01IMON  /METCON/ ACHI ( 1 50 ) , PCtll ( 1 50 ) , ASICS ( 1 50 , 1 1 ) , PS IGS ( 1 50 , 26 ) , IA
          1SICS(100),IPSIGS(250) ,THETA,U, KST , HL , TEMP , SINT , COST , BPH ( 2 ) , IWD , PAR
          2TC(250) , AHCKI (150),PHCHI(150),AHSIGS(150,11),PIISIGS(150,26),PL(6)
          COMMON  /HEIGHT/ HINT ( 3 ) , HARE (3 ) , BPHM ( 2 ) , FH
          COMMON  /METUAT/ (JTHKT A ( 2 4 ) , QU ( 2 4 ) , IKS T ( 2 4 ) , (1HL(24) , QTEMP(24) , I DATE
          1(2)
          COMMON  ITYPE (150) , I CODE (150) , IN, IO.MIP, NID.MAVG
          DIMENSION GRAIiDT (150) , IRANK(150), GRANDS(ISO), LINEl(lA),  LINE2(1
          14),  LINE3(14)
          IF  (IOPT (9) .EQ. 1) GO TO  100
    C***
    C***WRITE
               POINT SOURCE TABLE
          IF  (IOPT(1
          WRITE  (10,
          WRITE  (10,
          IF  (NSIGP.
    C***PRINT  FIRST
          WRITE  (10,
          WRITE  (10,
          WRITE  (10,
          WRITE  (10,
          DO  10  K=l,
          WRITE  (10,
    C***PRINT  TOTALS
          WRITE  (10,
    10    CONTINUE
          GO  TO  80
    C***PRINT  FIRST
    20    WRITE  (10,
          WRITE  (10,
          WRITE  (10,
          DO  30  K=l,
    30    WRITE  (10,
          IF  (NSIGP.
    C***PRINT  SECOND
          WRITE  (10,
          WRITE  (10,
          WRITE  (10,
          WRITE  (10,
          WRITE  (10,
          WRITE  (10,
          DO  40  1C = 1,
          WRITE  (10,
    40    WRITE  (10,
          GO  TO  80
    ).EQ.O) GO  TO 80
    150) LINE1.LINE2.LIME3
    160) IDATE.LH
    GT. 10) GO  TO 20
    PAGE OF OUTPUT AND TOTALS
    170) (I,1=1,NSIGP)
    180)
    190) (MPS(I),1=1,NSIGP)
    200)
    NRECEP
    210) K,(PHSIGS(R,I),I=1,NSIGP)
    ***
    220) PHSICS(K,26).PUCHI(K)
    C***,JRITE  SECOND
    50    WRITE  (10,
          WRITE  (10,
    PAGE
    170)  (1,1=1,10)
    230)  (MPS(I),1=1,10)
    200)
    HRECEP
    210)  1C, (P11SIGS (K, I) ,1 = 1 , 10)
    GT.20)  GO  TO  50
     PAGE AND  TOTALS
    150)  LINE1 ,LINE2.LIHE3
    160)  IDATE.LH
    170)  (I,1=11,NSIGP)
    180)
    190)  (MPS(I),1=11,NSIGP)
    200)
    NRECEP
    210)  K,(PHSIGS (K.I),1 = 11,NSIGP)
    220)  PHSIGS(K,26),PHCHI(K)
    
     PAGE
    150)  LINE1.LINE2.LINE3
    160)  IDATE.LH
    HOUR050
    HOUR060
    HOUR 070
    HOUROSO
    HOUR090
    HOUR100
    110UR1 10
    HOUR 120
    HOUR 130
    HOUR 140
    HOUR 150
    HOURl60
    HOUR 170
    HOURl80
    HOUR 190
    HOUR200
    HOUK210
    HOUR220
    UOUR230
    HOUR240
    HOUR250
    HOUR260
    HOUR270
    HOUR280
    HOUR290
    HOUR300
    HOUR310
    HOUR320
    HOUR330
    HOUR 340
    HOUR 350
    IIOUR360
    IIOUR370
    HOUR380
    110UR390
    HOUR 400
    HOUR410
    HOUR420
    HOUR430
    HOUR440
    HOUR450
    HOUR460
    HOUR470
    HOUR480
    HOUR490
    HOUR500
    HOUR510
    HOUR520
    HOUR530
    HOUR540
    HOUR550
    HOUR560
    HOUR570
    HOUR580
    HOUR590
    HOUR600
    HOUR610
    HOUR620
    HOUR630
    HOUR640
    HOUR650
    HOUR660
                                             105
    

    -------
                           (1,1-11,20)
                           (MPS(I),1-11,20)
          WRITE  (10,170)
          WRITE  (10,230)
          WRITE  (10,200)
          DO  60  K-l.NRECEP
    60    WRITE  (10,210) K,(PHSIGS(K,I),1-11,20)
          WRITE  (10,150) LINE1,LIHE2,LINE3
          WRITE  (10,160) IDATE.LH
    C***WRITE  LAST PAGE AND TOTALS
          WRITE  (10,170) (I,I-21.NSIGP)
          WRITE  (10,180)
          WRITE  (10,190) (MPS(I),I-21,NSIGP)
          WRITE  (10,200)
          DO  70  K-l.NRECEP
          WRITE  (10,210) K,(PHSIGS(K,I),1-21,NSIGP)
          WRITE  (10,220) PHSIGS(K,26),PHCHI(K)
    70
    C***
    C***WRITE
    C***
    80
               AREA SOURCE TABLE
                          ,0) GO  TO 100
                          LINE1.LINE2,LINES
                          HARE,BPHM
                          IDATE.LH
                          (I,1=1.NSIGA)
    
                          (KAS(I),1=1,NSIGA)
    90
    C
    C***OUTPUT
    C
          IF  (IOPT(2).EQ.
          WRITE  (10,150)
          WRITE  (10,300)
          WRITE  (10,240)
          WRITE  (10,170)
          WRITE  (10,250)
          WRITE  (10,190)
          WRITE  (10,200)
          DO  90  K = 1,11RECEP
          WRITE  (10,210) 1C, (AUSICS (K, I) ,1=1 ,HSIGA)
          WRITE  (10,220) AHSICS(K,11),AHCHI(K)
                SUMMARY TABLE
    100
          W RITE
          WRITE
          I/RITE
          WHITE
                 (10,150)
                 (10,260)
                 (10,270)
                 (10,280)
    LINE1.LINE2,LINES
    IDATE.LH
                          LH,QTHETA(LH),QU(LH),QHL(LH),QTEMP(LH),IKST(LH)
          IF(IOPT(2).EQ.1)  WRITE (10,300) HARE,BPHM
          WRITE  (10,290)
    C***CALCULATE GRAND  TOTALS  ADD RANK CONCENTRATIONS
          DO  no  i; = i ,I;RECEP
          GRAKUT (K)=AUCUI(K.)+PHCUI(K)
    110   GRANDS(K)=CRAHDT(K)
    C***DETERHIHE RANKING ACCORDING TO CONCENTRATION
          DO  130  I=1,NRECEP
          CMAX=-1.0
          DO  1 20  K = l .1JRECEP
          IF  (GRANUT(K).LE.CMAX) GO TO 120
          CMAX=GRANUT (K)
          LMAX=K
    120   CONTINUE
          IKANK(LilAX) = I
          CRANDT(LHAX)=-1.U
    130   CONTINUE
          DO  140  K=1,HRECEP
          C 1=UREC (tl) *UNITS
    140
    
    C
    150
           C2=SUEC(K)*UNITS
           WRITE (10,310)  1C
          1IGS (K, 1 1 ) , AI1CH I (K) , GRANDS (K)
           CONTINUE
           RETURN
                             ITYPE(K),ICODE(K),C1,C2,PHSIGS((C,26),PHCHI(K),AHS
                                         IRANK(iC)
           FORMAT ( ' 1 ' , 13A6,A2/1X, 13A6,A2/1X, 13A6.A2)
    HOUR670
    HOUR680
    HOUR690
    HOUR700
    HOUR710
    HOUR720
    HOUR730
    HOUR740
    HOUR750
    HOUR 760
    HOUR770
    HOUR780
    HOUR790
    HOUR800
    HOUR810
    HOUR820
    HOUR830
    HOUR840
    HOUR850
    HOUR860
    HOUR870
    HOUR880
    HOUR89Q
    HOUR900
    HOUR910
    HOUR920
    HOUR930
    HOUR940
    1IOUR950
    HOUR960
    1IOUR970
    HOUR980
    HOUR990
    HOUROOO
    HOUR010
    UOUR020
    HOUR030
    HOUR 040
    HOUR050
    HOUR060
    HOUR070
    HOUR080
    HOUR090
    HOUR 100
    HOUR1 10
    HOUR120
    HOUR 130
    HOUR 140
    HOUR 150
    HOUR 160
    HOUR170
    HOUR 180
    HOUR190
    110UR200
    HOUR210
    HOUR220
    HOUR230
    HOUR 240
    HOUR250
    UOUR260
    HOUR 270
    IIOUR280
                                             106
    

    -------
    160    FORMAT  ( '0 ' ,T30, 'CGMRIBUT
          11 N T  SOURCES  ',5x,i2,'/',i4
    170    FORMAT  ('+',112,10 (13, 7X))
    180    FORMAT  ('+',T113,'TOTAL
          1 X , T 1 1 J , ' P 0 I N T       S 0 U R C L S '
    190    FORMAT  ( ' + ' , T 1 2 , 10 (I j , 7X) )
    200    FORMAT  (1X,'RF.CCP  if)
    210    FORMAT  (1X,T 1 , 1J, 1X, 6P 1 OF 1
    220    FORMAT  ( ' + ' , 1 1 0 () , 61' 2 F 1 0 . 3 )
    230    FORMAT  (IX,"SOURCE  << ' , T 1 2 ,
    240    FORMAT  ( ' 0 ' , T JO , ' COM1 ;U !1 U T
          1 E A  S 0 U R C E S ' , 5 X , I 2 , ' / ' , I 4 , '
    250    FORMAT  ('+',T113,'TOTAL
          1,T 113, 'AREA        SOURCES'/
    260    FORMAT  ( ' 0 ' , T 2 5 , ' S U'l MARY  C
          1,I2,'/',I4,'  :  HOUR  ' ,12 /I
    270    .FORMAT  ( 1 X , T 2 , ' HO UR     THET
          1 IX, T 9, ' (DEC)     (M/S )  HEIG
    280    FORMAT  (1X,73,I 2,4F9.2,6X,
    290    FORMAT  ('ORECCPTOR  110.    L
          1 , 'CONCENTRATION' /1X.T36, 'S
          2ALE  AREA       ALL  SOURCES',
    300    FORMAT  ('  ',T60,'AREA  UTS:
          1011  UTS :   ',F4.0,',',F4.0)
    310    FORMAT  ( 1 X,T 3,I 3, 1 A,A 1 ,I 3,
    C
    ION (MICROGRAMS/M** 3)  FROM
    , '  :  HOUR  ' , I2//1X,T5, 'RAJ
    
      TOTAL'/1X,T113, 'S IGNIF
    / IX, ' SOURCE ;.' ' )
    0 . 3 )
    
    10(I3,7X))
    ION OIICRGCHAMS/M**3)  FRO1'
     :  HOUR  ' , I2//1X.T5,'RANK'
       TOTAL'/ IX,Tl13, 'S IGNI!
    IX,'SOURCE  if)
    ONG ENTRAT 10!,' T A,i L E ( M I C kO O'l
    X)
    A     SPEED    MIXING    TEH?
    tlT(M)     (R)      CLASS'/1X)
    II )
    AST       NORTH     ',2X,5('T
    IGNIF  POINT  ALL POINT    S
    5X, 'RANK'/1X,T38,4 ( 'SOURCE
       ' , F 4 . 0 , ' , ' , F 4 . 0 , ' , ' , f 4 . u
    SIGNIFICANT PO
    R')
    
                I'/l
           GUBROIJTIl.L JiMIllON  (CPIDSP)
    C***TllIS  ROUTINE CEI.'ERATF. S RECEPTORS  IN A
    C       INPUT  VAP IAULE. . .
    C           GRIDSH- DISTANCE BCT\.'i:rj!  GENERATED
           COMMON  /SORC/  IA(25, 25 ) , SOURCE(9, 250 ) ,
          1EC ( 1 50 ) , SREC ( 1 50) ,MPS (2 5 ) ,:IAS (1 0) , 10 FT
          2MIN, SMAX, IRSIZE, ISSIZH, N PT , IIA S , !,' S I GP , K S IGA , PtiAME (
           COMMON  /METCOti/ ACH I ( 1 5 0 ) , PC ill ( 1 5 0 )
          1SIGS (100) , IPS ICS (250) ,THETA, U, RST, ill, , TEI1P, S I.IT , CO ST , 15 i'!! ( 2 )
          2TC(250) .AHC11I ( 150) , PHCHI (1 50) , AHSIGS ( 1 50, 1 1 ) ,PI!
           COMMON  /HCGRID/ HR1II N , II RMAX , I! SM I N , H SMAX
           COMMON  ITYPE (150) , I CODE (1 50) , IN, 10 , X I P , N II) , NA VG
           DIMENSION  :iCOMBR(250) ,  HCOMBS(250)
    C***THE  CHARACTER  'H' IDENTIFIES A  RECEPTOR WHICH  1'AS
    C***  ROUTINE.
           DATA  IGHAR / ' 11 ' /
    C
    C***I!IITIALIZE  SPACING  PARAMETER FOR  RECEPTOR  GENERATION
    C***THE  HORIZONTAL LOCATIONS  OF  ODD  AND EVEN  ROWS  ARE
    C***TUE  FIRST  HORIZONTAL  RECEPTOR (EVEN ROW)  IS  AT  A
    C***OF ,5  CRIDSP FROM THE  MINIMUM HORIZONTAL   DISTANCE
    C***TO A  DISTANCE OF  GRIDSP  FOR  ODD  ROWS.
           XINC=GRIDSP*0.5
           YINC=GRIDSP*0.866
           YCD=HSMIN+YINC/2.
           DUM=HRHAX-HRMIN
           NCOLS 1=DUM/CRIDSP
           NCOLS 2=(DUM+XINC)/GRIDSP
           NROWS=(HSMAX-HSHIN)/(2.*YINC)+l.
           NBEES=0
           DO  50  J=1,NROWS
    (US ER UNI ;;• •>
    0) , UNITS , CONTWO , '-' K
    NREC FP , RMT 'i , \M^'.\ S
    (2,250), PSnV(2 5;: ,
    ) , P S I 0 S ( 1 5 0 , 2 <-. ) , I A
    OST , !5i'H (2 ) , H.'j , PAT
    ICS (150,26) ,PL (6 )
    
    
    
    GENERATED BY THIS
    
    
    
    ON .
    STAGGERED .
    ISTANGE
    IN CONTRAST
    
    
    
    
    
    
    
    
    
    
    F:OJ', 0040
    I' ON 00 30
    NGN 00 JO
    HON0070
    not: oo ao
    110:10000
    H 0 U 0 1 0 0
    HON01 10
    HON0120
    H ON 01 30
    HON0140
    HON0150
    110110 160
    HOIiO 1 70
    110N0180
    110N0190
    110N0200
    HON0210
    HON0220
    HON0230
    IION0240
    HON0250
    1IOH0260
    11 0 N 0 2 7 0
    MONO 2 80
    H 0 N 0 2 9 0
    HON 0300
    HON03 10
                                                  107
    

    -------
    C***THli STARTING  LOCATION  FOR THC GENERATION  OF POSSIBLE HONEYCOMB
    C***RECEPTORS IS  THE SOUTH WEST  CORNER  OF THE DEFINED HONEYCOMB GRID
    C***AREA.
           XCDI-HRIIIK
           XCD2-URHIN-XIHC
    C
    C***GENERATION OT ODD ROWS.
    C***THE FIRST POINT (ODD  ROW) IS  LOCATED AT THE DISTANCE OF  GKIDSP
    C***EAST FROM THE SOUTH  WEST CORNER.
    C
           DO 10  I-1.1JCOLS1
           XCD1-XCD1+GRIDSP
           IF (XCD1.GT.HRMAX) GO TO  20
    C***NO MORE  THAN  250 POSSIBLE  RECEPTORS  ARE  ALLOWED.
           IF  (ilBEES.GT. 250)  CO TO  110
           HCOn3R(lIBEES)=XCDl
           HC011BS(!3BEES)=YCD
    10     CONTINUE
    C***ROWS  ARE LOCATED AT  A PERPEliD ICULAK  DISTANCE OF  .366 HUES CRIDSP
    C***AEOVE  THE PRECEEDIHG  ROW.
    20     YCD=YCD+YIHC
           IF  (YCU.GT.HSiiAX)  GO TO  60
    C
    C***GEKERATION OF  EVEN ROWS
    C
           DO  30  I = l,:iCOLS2
           XC1J2=XC1)24-GRIDSP
           IF  (XCD2.CT. iHUIAX)  GO TO  40
           r:J3EES=IIIJEES + l
           IF  (NBEES.GT. 250)  CO TO  110
           HC01li)R(t!BEES)=XCD2
           HCOilUS (11!3EES)=YCU
           COilTI.iUE
           YCD=YCD+YIl-iC
           II'  (YCD.GT. HSKAX)  GO TO  60
           CONTINUE
    30
    50
    C
    C***LLIMIMATE POSSIBLE  HONEYCOMB RECEPTORS  THAT ARE  CLOSE  TO OTHER
    C***P.LCEPTORS.
    C
    60
               90 ;; = I,NBEES
    c***ir t:o  PREVIOUS  RECEPTORS,  TJT.RI:  KILL BE  ::o COMPARISONS
           IT  (NRECEP.LE.O)  CO TO  CO
           DO  70  :: = ! ,1!ULI!!
    
           S=SRI:C(I.)
    
           IT  (DUM.CT.-\i:.C)  GO To  70
    
           IF  (;,u:<2.CT.;:i:;c)  cc T(  70
           'ur.( =i;u--i*'jj; i+;:j: 2*ou! 2
    
    c**-'ij;:r.YC')';:: n;;c: i'Tui-.  i:; i,r,:s TI;A.:  TALT TIL c\:i >rjv.f.I:;G,
    C--«**T;;C i'ossiF.L,:  HU:;;;YCO'I:, I.;C;:PTOI.  n; r I::CAI:^!:I;.
           ir  (lust.. L.T. :JLI\)  f,•-) I;-  "'i
    7C     CGI.7i:.LIE
    UON0320
    110110330
    HOH0340
    IIOH0350
    110110360
    ilON0370
    HOH0330
    UON0390
    HON0400
    110H0410
    HON0420
    IIOH0430
    H0i;0440
    I10H0450
    HON0460
    UON0470
    HON04SO
    IION0490
    110110500
    110110510
    UOK0520
    r.OII0530
    110110540
    .10N0550
    no;;o560
    IION0570
    ;iON0580
    not: os 90
    :iot:o60o
    i',01,0610
    HON0620
    :ioi:o6 jo
    '!0 1.01)40
    iioi:o6co
    i:o:;oo70
    ;:o;;o*oO
    not; co oo
    !! 01.0700
                                                                                        ':OuU720
                                                                                        ;:o::G730
                                                                                        ;:c:,o74C
                                                                                        i'O'J'J Jl 0
                                                108
    

    -------
    C***TiiC  TOTAL UUniiKK OF RECEPTORS CAt;  i;OT EXCEED  150.
           IF (I;RECEP. GT. 150) GO  TO 100
    0***ALD  1,EW RECEPTOR COORDINATES
           SREC(I.'RECEP)=S!i
           ITYPE (:IRECEP) = IC'.IAR
           ICOr>E(llRKCEP)=0
           CI=RREC OIRECEP) *U;IITS
           c 2=s REG ( I;REC EP ) *u n IT c
           '.'RITE  (10,120) 'JREGEP, IC1IA1L, Cl ,C2
           CO;iTIKUE
           R ETURii
           URITE  (10,130)
           IiREGEP = 150
           RETURN
           \;RITE  (io, 140)
           CALL EXIT
                                                                                    hO!!0940
                                                                                    i;o;!0(J50
                                                                                    '10110960
                                                                                    HOII097U
    'JO
    
    100
    
    
    1 10
    
    C
    120
    130
    
    UO
    
    C
           FO;MAT  (ix,T3,i3, IX.AI , ex,r6. 2, 3x, r?. 2)
           FORMAT  ('  T:K; HAXI:ILH  iio.  or  RECEPTORS HAS  ISEEI; GEiiciiArE
          1  OTIIEKb WILL 15 E ACCEPTED.')
           ro;u;AT  ('  TOO  :IA;;Y  POSSIBLE  noiiLYCoiic RECEPTOR LOCATION'S RAVE
          lIJEE.i GE:iERATED. PLEASE  ICDEFIiIli  SOUIIDAHIES  OR GRID SPACI1IG.')
    ;;o;;o990
    ;:o;:iooo
    •;oi, 101 :)
    no:il020
    "u:ii030
    ''OTJlOAO
    i;o:no50
    ;: or; 1060
    ;;o:;i070
    :ion 10 so
    I10J1090
    !;oiu 100
    roni 1 10
    h o n 1 1 2 o
    lion 1 130
    uo:a 140
    iiOlil 150
    H01I1100
    tlOtll 170
    !ioi;l 1GO
                    in;  URSZ (XK.KST.SZ)
    C        ilCLLKOY-POOLER URiiAH  SIGHA Z.
    C         XR IS  DISTANCE III  K1I.
    C         1CST IS  PASQUILL  STABILITY CLASS.
    G         SZ IS  Hi  tiKTEilS.
    C          CONVERT  X TO 11ETERS
           x=iooo.*:;i:
           GO TO (10,10,20,30,40,40), KST
    10     liZ = 0. 24*X*SQRT(1 .+0. 001*X)
           GO TO 50
    20     SZ=0.2*X
           GO TO 50
    30     SZ=0.14*X/SQRT(1.+0.0003*X)
           GO TO 50
    40     SZ = O.Oa*X/SO.RT(l .+0. 0015*X)
    50     IF (SZ.GT.5000.) SZ=5000.
           RETURN
           EUD
                                                                                    r.Rzooio
                                                                                    3RZ0020
                                                                                    15RZ 00 30
                                                                                    r>RZ0040
                                                                                    wUZOOSO
                                                                                    i; n z o o 6 o
                                                                                    BRZ0070
                                                                                    ERZOOSO
                                                                                    ERZ0090
                                                                                    DRZ0100
                                                                                    DRZ0110
                                                                                    BUZ 0120
                                                                                    CRZ013Q
                                                                                    BRZ0140
                                                                                    CRZ0150
                                                                                    BRZ0160
                                                                                    SRZ0170
                                                                                    DRZ01SO
                                                                                    BUZ 0190
           SUBUOUTIIiE  BRSYSZ  (XK, KST , SY , SZ )
    C      MCELROY-POOLER URBAK UISPERSIOH  PARAUETERS  FROM ST.
    C        EXPERIMENT  AS PUT  IN  EQUATION  FORM BY BRIGGS.
    C         XK IS DISTANCE  IN KM.
    C         KST IS  PASQUILL STABILITY CLASS.
    C         SY A1ID  SZ  ARE IN IIETERS.'
    C          CONVERT  X TO METERS
           X=1000.*XK
           GO TO (10,10,20,30,40,40),  KST
    10     SY-0.32*X/SQRT(1.+0.0004*X)
                                                                   LOUIS
    BRYZ010
    BRYZ020.
    BRYZ030"
    BRYZ040
    BRYZ050
    BRYZQ60-
    BRYZ070"
    BRYZ080
    BRYZ090
    BRYZ100
                                              109
    

    -------
    20
    
    
    30
    
    
    40
    
    50
    
    C
    SZ-0.24*X*SQRT(1
    GO TO 50
    SY-0.22*X/SQRT(1
    SZ-0.2*X
    GO TO 50
    SY"0.16*X/SQRT(1
    SZ-0.14*X/SQRT(1
    GO TO 50
    SY-0.11*X/SQRT(1
    SZ-0.08*X/SQRT(1
    IF (SZ.GT.5000.)
    RETURN
    
    END
               +0.001*X)
    
               +0.0004*X)
               +0.0004*X).
               +0.0003*X)
    
               +0.0004*X)
               +0.0015*X)
               SZ-5000.
                                                           BRYZ110
                                                           BRYZ120
                                                           BRYZ130
                                                           BRYZ140
                                                           BRYZ150
                                                           BRYZ160
                                                           BRYZ170
                                                           BRYZ180
                                                           BRYZ190
                                                           BRYZ200
                                                           BRYZ210
                                                           BRYZ220
                                                           BRYZ230
                                                           BRYZ240
          BLOCK DATA
    C***COEFFICIENTS GENERATED WITH URBAN SIGMAS USING BRSYSZ & BRSZ
    C***DISTANCE OF MAX. CONC. FROM FT SOURCE-PXCOF(KST,IH)*H**PXEXP(KST,IH)
    C***RELATIVE CONC. NORMALIZED FOR WIND SPEED FROM PT SOURCE, CHI*U/Q, -
    C***     PXUCOF(KST,IH)*H**PXOEXP(KST,IH)
    C***DISTANCE OF MAX. CONC. FROM DOWNWIND EDGE OF AREA SOURCE -
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
       AXCOF(KST,IH)*H**AXEXP(KST,IH)
     IH-1
     IH-2
     IH-3
     IH-4
     IH = 5
     IH-6
     IH-7
     IH-8
     IH-9
    FOR H
    FOR H
    FOR H
    FOR H
    FOR H
    FOR H
    FOR H
    FOR H
    LESS THAN 20 METERS.
    FROM 20 TO 30 METERS.
    FROM 30 TO 50 METERS.
    FROM 50 TO 70 METERS.
    FROM 70 TO 100 METERS.
    FROM 100 TO 200 METERS.
    FROM 200 TO 300 METERS.
    FROM 300 TO 500 METERS.
    FOR H GREATER THAN 500 METERS.
          COMMON /COEFFS/ PXCOF(6,9),PXEXP(6,9),PXUCOF(6,9),PXUEXP(6,9),
         *AXCOF(6,9),AXEXP(6,9),HC1(10)
     DATA   PXCOF/
    *  .76841E-02,
    *  .50285E-02,
    *  .36114E-02,
    *  .34513E-02,
    *  .36196E-02,
    *  .19672E-02,
    *  .63291E-03,
    *  .21446E-02,
    *  .30537E-02,
    *  .77521E-02,
     DATA   PXEXP/
    *  . 10829E4-01 ,
    *  .10080E+01,
    *  .99634E+00,
    *  .94836E+00,
    *  .93716E+00,
    *  .14421E+01,
    *  .16884E+01,
    *  .11920E+01,
    *  .10327E+01,
    *  .79879E+00,
     DATA  PXUCOF/
    *  .18861E+00,
    *  .20229E-I-00,
    *  .19871EfOO,
                         .29000E-02,
                         . 76841E-02,
                         .65931E-02,
                         .45861E-02,
                         .34298E-02,
                         .36196E-02,
                         .41677E-02,
                         .63291E-03,
                         .19145E-03,
                         .12214E-02,
                         .29817E-02,
                         .10000E+01 ,
                         .10829E+01,
                         .11340E+01,
                         .10350E+01,
                         .10095E+01,
                         .93716E+00,
                         .90654E+00,
                         .16884E+01 ,
                         .19141E+01,
                         .12907E+01,
                         .10365E+01,
                         .16808E+00,
                         . 18861E+00,
                         .21253E+00,
                         .20011E+00,
                                .29000E-02,
                                .31586E-02,
                                .65931E-02,
                                .51435E-02,
                                .43860E-02,
                                .33575E-02,
                                .41677E-02,
                                .50465E-02,
                                .19145E-03,
                                .12483E-03,
                                .39130E-03,
                                .10000E+01,
                                .97149E+00,
                                .11340E+01,
                                .12070E+01,
                                .10465E+01,
                                .10145E+01,
                                .90654E+00,
                                .87043E+00,
                                .19141E+01,
                                .19890E+01,
                                .14738E+01,
                                .16808E+00,
                                .15945E+00,
                                .21253E+00,
                                .24888E+00,
                                       .33389E-02,
                                       .31586E-02,
                                       .31977E-02,
                                       .51435E-02,
                                       .33140E-02,
                                       .39506E-02,
                                       .32748E-02,
                                       .50465E-02,
                                       .60289E-02,
                                       .12483E-03,
                                       .11337E-03,
                                       .10205E+01,
                                       .97149E+00,
                                       .96787E+00,
                                       .12070E+01 ,
                                       .13194E+01,
                                       . 10711E+01,
                                       .10200E+01,
                                       .87043E+00,
                                       .83924E+00,
                                       .19890E+01 ,
                                       .20045E+01,
                                       .20927E+00,
                                       .15945E+00,
                                       .14777E+00,
                                       .24888E+00,
                                              .49374E-02,
                                              .34293E-02,
                                              .31977E-02,
                                              .34513E-02,
                                              .33140E-02,
                                              .19672E-02,
                                              .32439E-02,
                                              .31556E-02,
                                              .60289E-02,
                                              .77521E-02,
                                              .11337E-03/
                                              . 10141E+01,
                                              . 10116E+01,
                                              .96787E+00,
                                              .94836E+00,
                                              .13194E+01,
                                              .14421E+01,
                                              .11139E+01,
                                              .10270E+01,
                                              .83924E+00,
                                              .79879E+00,
                                              .20045E+01/
                                              .20378E+00,
                                              .20527E+00,
                                              .14777E+00,
                                              .13262E+00,
    BLK0010
    BLK0020
    BLK0030
    BLK004.0
    BLK0050
    BLK0060
    BLK0070
    BLK0080
    BLK0090
    BLK0100
    BLK0110
    BLK0120
    BLK0130
    BLK0140
    BLK0150
    BLK0160
    BLK0170
    BLK0180
    BLK0190
    BLK0200
    BLK0210
    BLK0220
    BLK0230
    BLK0240
    BLK0250
    BLK0260
    BLK0270
    BLK0280
    BLK0290
    BLK0300
    BLK0310
    BLK0320
    BLK0330
    BLK0340
    BLK0350
    BLK0360
    BLK0370
    BLK0380
    BLK0390
    BLK0400
    BLK0410
    BLK0420
    BLK0430
    BLK0440
                                           110
    

    -------
    A
    *
    A
    *
    X
    A-
    A
    
    *
    :\-
    •ft
    A
    *
    A
    A
    A
    A
    *
    
    A
    A
    A
    A
    A
    A
    A
    A
    A
    A
    
    A
    A
    A
    A
    A
    A
    A
    A
    A
    A
    
    
    . 132G2L+00,
    . 11745E+00,
    . 34521E+QO,
    . 343GCE+00,
    . 17445E+00,
    . o 9 1, 2 1 :: - a ,
    .29'jy3;;-)i,
    DATA PXL'L Ci'/ -.
    -.20640;:+)!, -.
    -. 19940E+J1 , -.
    -. 19736E+01, -.
    -. 19045E+01, -.
    -. 1.3759L + 01, -.
    -.22320E+U1, -.
    -.22310E+01, -.
    -.19617L+01, -.
    -. 131 72::+oi, -.
    -. 1&234E+01, -.
    TATA /.::cor/
    . 1002GC-01,
    . G3253L-02,
    ,5JU'JOb-02,
    .5293 3 3 9 E - 0 2 ,
    39429L-U2,
    50000E-02,
    9 9 5 5 6 1; - 0 2 ,
    12206C-01 ,
    25533E-03/
    10199E+01 ,
    10000E+01 ,
    0427GE + OC),
    91&59E+00,
    14356E+01 ,
    161G3E+01 ,
    11523E+01,
    10000E+01,
    79036E+00,
    75G07E+00,
    19880E+01/
    
    
    I3L!;045U
    .JLU04GO
    BLi:04 7U
    :'.Li:o4SO
    uLi;o4';u
    ULi;0300
    LLi:C510
    ULK0520
    ^LI'.0530
    '3 L i . 0 3 4 0
    i;Li'.0550
    LL ICO 3 CM)
    EL:;o570
    2Li;0530
    iiLi:0590
    2 L K 0 6 0 0
    !;Lku61 0
    hL..;OG20
    :;LLOG30
    DLr.OG40
    uLKOGSO
    oL::OGGO
    liLi:OG70
    5LI.OG30
    oL;COG90
    r,L::o7oo
    !',Li:0710
    T;Ll',072C
    15LX0730
    ;iLi:074o
    VLr.0750
    I, LI". 0750
    CLr.0770
    ULK0730
    GLIC0790
    DLi:0300
    JLK0310
    r,L[;o82C
    ULKOS30
    ELI' 0340
    ':,Li:o850
    Ij L UO 8 & 0
                DESCRIPTION  OF PARTIAL  C OHC EriTRATIOH  FILE
    PARTC
          PARTC IS  AH  EXAMPLE PROGRAtl  WHICH READS THE  PARTIAL  CONCENTRATION
    FILE  PRODUCED  BY  RA1I OR  RAMR.    IT IS  GIVEN  HERE  ONLY  AS AN EXA11PLE  OF
    HOW  THE  PARTIAL.CONCENTRATION  FILE CAM BE READ.
    A
    A
    A*AAAPROCRAII  LISTING*****
                                                  111
    

    -------
    *
    *
    C***PROGRAM TO READ  PARTIAL CONCENTRATION  FILE PRODUCED  BY RAM OR  RAMR
          DIMENSION PARTC(250),IDATE(2),RREC(150),SREC(150)
    C***READ  NO.  OF HOURS  IN AVERAGING TIME AHD  NO. OF PERIODS TO OUTPUT
          READ(5,10) NAVG.NPER
    10    FORMATO
          DO  50 ND=1,HP£R
    C***READ  HEADER RECORD
          READ(10,END=99)  NRECEP , HAS , NPT , (RREC ( I ) , 1 = 1 , NRECEP ) ,
         * (SREC(I) ,1=1 .HRECEP)
          WRITE (6, 100) NRECEP,HAS,NPT,(I,RREC(I),SREC(I),I = 1,1IRECEP)
    100   FORMAT('1NO. OF  RECEPTORS  = ',13,'  HO. OF AREA  SOURCES = ',
         *I3,'  110. OF  POINT SOURCES=  ',I 3//I X,'RECEPTOR LOCATIOHS'/IX,
         *150(I2,2F10.2/1X))
          DO  40 IK=l,tlAVG
    C***READ  POINT CONTRIBUTIONS
          WRITE(6,112)
    112   FORMAT (' POINT SOURCE COHTRIBUT IONS (MICROGRAliS /M* *3 ) ' )
          DO  30 JK-1,NRECEP
          READ(10) IDATE.LH.K,(PARTC(J),J=l,HPT)
          WRITE (6, 110) IDATE,LH,K, (PARTC(J),J = l,NPT)
    30    CONTINUE
    C***READ  AREA  CONCENTRATIONS
          WRITE(6,111)
    111   FORMAT (' AREA  SOURCE CONTRIBUTIONS(MICROGRAMS/M**3)')
          DO  20 JK=1.NRECEP
          READ(10) IDATE.LH.K,(PARTC(J),J=1,HAS)
          WRITE (6 , 110) IDATE.LH.IC, (PARTC(J ) , J = 1,HAS)
    110   FORMAT(IX,'YEAR= 19',12,'  JULIAN  DAY=  ',13,' 110UR= ',12,
         *' RECEPTOR 110.-  ' ,I3/1X,250(&P10F10.2/1X))
    20     COIJTIIiUE
    40     CONTINUE
    50    CONTINUE
    99    CALL  EXIT
          E11D
              INPUT TO  PARTC
    *
    CARD  1  (TREE FORMAT)  KAVG.NPER
       1IAVC  IS THE NUMBER OF HOURS  It! THE AVERAGING TIME
       NPER  IS  THE NUMfiCR UF PERIODS TO READ.
     EXAMPLE:
    24,2
    *
    *
    *****   CXAUPLE RUN  STRLA1L   *****
    *
    ft
    GRUi.'.D/R  JO 13 NAME, ACCNT -I* 0 /U S ERI13 , PRO J-l 0 , 1 , 10
    GPASSWL)  PASSWORD
    k]A3G, A  PA ITC .
    >JASG,T/r.
    C'USL   10,
    GX<;T  ?AKT
    24,2
    
    *
    TGR..AT  ;;E3CRIPTIi)r  OF PARTIAL  COIIC ENT HAI'IOt:  FILL
               ARTCOt. . , 1 ')'.', , REEL-::0
               "ARTCUII
                                               112
    

    -------
    EACH  RECORD IS UNFORMATTED AND FORTRAN WRITTEN.
    T!1E HEADER RECORD  IS  WRITTEN AT THE  BEGINNING OF  EACH PERIOD.
    THEN  FOR  EACH HOUR  IN THE PERIOD  'HRECEP' POINT  SOURCE RECORDS ARE
    WRITTEN FOLLOWED BY  'NRECEP' AREA  RECORDS.
    
    HEADER RECORD AT START OF EACH PERIOD
    
      VARIABLE               DESCRIPTION
      KRECEP                  NUMBER OF  RECEPTORS FOR THIS  HOUR
      NAS                     NUMBER OF  AREA SOURCES
      ilPT                     NUIIBER OF  POINT SOURCES
      RREC (I) ,1 = 1 .I1RECEP     EAST COORDINATE OF ALL REGEPTORS(USER UNITS)
      SREC (I) ,I = 1,NRECEP     NORTH COORDINATE OF ALL RECEPTORS (U SER  UNITS)
    
    FOR  EACH  HOUR IN THE  PERIOD THE FOLLOWING RECORDS  ARE WRITTEN:
    
    POINT  SOURCE CONCENTRATION RECORDS (1  FOR EACH RECEPTOR)
    
      VARIABLE               DESCRIPTION
      IDATE(l)                2-DIGIT YEAR
      IDATE(2)                JULIAN DAY
      Lil                      HOUR
      K                       RECEPTOR NU1IBER
      PARTC(J) , J = l ,NPT       THE CONTRIDUT ION (IUCROGRAHS /!!* *3 ) FROM  POINT  SOURCE
                                J TO RECEPTOR K
    
    AREA CONCENTRATION RECORDS(1 FOR EACH  RECEPTOR)
    
    
      VARIABLE                DESCRIPTION
      IDATE(l)                2-DIGIT YEAR
      IDATE(2)                JULIAN DAY
      LH                      HOUR
      K                       RECEPTOR NUIiBER
      PARTC(J) , J-l.MAS       THE CONTRIB UTION (MIC ROGRAIIS/U* *3 ) FROli AREA  SOURCE
                                J TO RECEPTOR K
              EXAMPLE PUHCHCARD OUTPUT FROII  RAM
    PUHCHCARD
        PUNCHCARD CONTAINS  THE FORMAT OF  THE PUNCH CARD  OUTPUT FROM RA1I  OR  RAMR.
    
    COLUMN         FORMAT           DESCRIPTION
    1-4            A4      'CNTL'
    6-15           F10.3   EAST  RECEPTOR COORDINATE(USER UNITS)
    16-25          F10.3   NORTH RECEPTOR COORDINATE(USER  UNITS)
                                             113
    

    -------
    2 - - 3 5
    J&-45
    46-55
    56-59
    ilU.3   TOTAL  CONCENTRATION (I1IC ROGRA11 S/M* *3 )
    110.3   TOTAL  COt.C. FROM  AREA  S 0 URC E S (MI C R-QCRAIIS / :i* *3 )
    I'lO.j   TOTAL  CONG. FROM  POINT  S OUUCES (MIC ROGRAI1S /M* *3 )
    14      RECEPTOR  MJtlBER
    c-=**E/A:n>LE OUTPUT FKOJI  RAH TEST RUN
    CIITL
    CIITL
    CIITL
    CNTL
    c i; i L
    CiITL
    C11TT
    C:;TL
    c i>; T L
    C1ITL
    CIITL
    CNTL
    CIJTL
    CIITL
    C i, T L
    C.NTL
    c n T L
    CI.'TL
    CIITL
    CNTL
    CNTL
    CiNTL
    CNTL
    C::TL
    c n T L
    CIITL
    CIITL
    CIITL
    CUT i.
    CNTL
    CNTL
    C tl T L
    CNTL
    C H T L
    CTITL
    CilTL
    CIITL
    CIITL
    C N T L
    566.
    504.
    563.
    562.
    579.
    578.
    577.
    576.
    576.
    576.
    5 8 2 .
    582.
    577.
    575.
    5/7.
    577.
    573.
    579.
    573.
    569.
    581 .
    579.
    572 .
    530.
    5 /I .
    5 73.
    575.
    577.
    572.
    574.
    576.
    573.
    571 .
    575.
    572 .
    574.
    576.
    57S.
    580.
    000
    000
    563
    427
    229
    957
    0 70
    690
    395
    040
    702
    404
    896
    9 1 y
    934
    919
    934
    856
    934
    896
    856
    856
    UOO
    000
    000
    000
    0 0 0
    000
    G 0 0
    000
    000
    000
    000
    000
    000
    000
    000
    000
    000
    4 4 0 5 .
    4401.
    4406.
    4405.
    4403.
    4402.
    4401.
    4400.
    4400.
    4 400.
    4400.
    4400.
    4400.
    4400.
    4 4 0 2 .
    4406.
    4400.
    4406.
    4406.
    4404.
    4 4 0 4 .
    4404.
    4400.
    4400.
    4402.
    4402.
    4402.
    4402.
    4404.
    4404.
    4404.
    4404.
    4406.
    4406.
    4407.
    4407 .
    4407.
    4407.
    4407.
    000
    500
    353
    615
    0 2 5
    800
    035
    720
    406
    1 12
    653
    406
    085
    104
    1 17
    104
    1 17
    052
    1 17
    256
    052
    052
    866
    866
    598
    598
    598
    598
    330
    330
    330
    330
    062
    062
    794
    794
    794
    794
    794
    11.
    1 .
    3.
    1 .
    61 .
    19.
    44.
    19.
    80.
    32.
    31.
    8.
    8.
    26.
    5.
    53.
    26.
    2.
    7.
    1 .
    1 .
    1 .
    10.
    .
    25.
    20.
    5.
    5.
    8 .
    51 .
    1 .
    6.
    1 .
    13.
    10.
    1 .
    13.
    1 .
    .
    425
    379
    362
    795
    939
    872
    640
    401
    632
    471
    675
    834
    321
    434
    153
    255
    366
    565
    658
    924
    382
    637
    433
    417
    163
    314
    293
    082
    &92
    828
    231
    786
    575
    158
    620
    169
    959
    416
    640
    
    
    
    
    3
    3
    7
    8
    9
    9
    
    
    8
    9
    3
    3
    6
    2
    T
    1
    1
    1
    1
    
    1
    
    
    2
    1
    1
    
    
    1
    2
    
    1
    
    1
    
    .275
    .699
    . 000
    .000
    .012
    . 290
    . 869
    . 482
    . 043
    .333
    .010
    .015
    . 255
    .138
    . 833
    .550
    . 250
    .565
    .724
    .860
    . 382
    .637
    . 356
    .417
    . 331
    . 645
    . 724
    . 215
    .718
    .138
    .876
    . 809
    .560
    .550
    . 337
    .148
    .000
    . 281
    . 640
    1 1.
    ,
    3.
    1 .
    58.
    16.
    36.
    10.
    71 .
    23.
    31.
    3.
    .
    1 7.
    1.
    49.
    20.
    .
    4.
    .
    ,
    .
    9.
    .
    23.
    19.
    4.
    2 .
    6.
    50.
    ,
    5.
    .
    15.
    10.
    .
    1 3.
    .
    .
    150
    680
    362
    795
    926
    531
    771
    91 9
    589
    138
    665
    819
    066
    295
    320
    705
    116
    000
    934
    064
    000
    000
    077
    000
    332
    669
    569
    867
    974
    690
    404
    977
    015
    608
    282
    021
    959
    135
    000
    1
    2
    3
    4
    5
    6
    7
    3
    9
    10
    11
    1 2
    13
    14
    15
    16
    1 7
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
                                     114
    

    -------
                      6.
    RAMF - INPUT  FORMATS AND EXAMPLE RUNSTEAMS
    RAMFDOC
    
    C***RAMF IS  THE  LONG TERM VERSION  OF  RAM,
    C***AN EFFICIENT GAUSSIAN-PLUME MULTIPLE-SOURCE
    C***AIR QUALITY  ALGORITHM. RAM IS  DESCRIBED IN: NOVAK,J.H., AND
    C***TURNER,D.B., 1976: AIR POLLUTION  CONTROL ASSOC. J., VOL.  26,  NO.  6,
    C***PAGES  570-575(JUNE 1976). RAMF'S  PRINCIPAL USE IS TO DETERMINE
    C***FREQUENCY  DISTRIBUTIONS AND LONG  TERM(UP TO A YEAR) CONCENTRATIONS FROM
    C***POINT  AND  AREA SOURCES IN URBAN AREAS  BY CALCULATING AND  AVERAGING 1 HOUR
    C* ^CONCENTRATIONS.
    
    C***THREE  SYSTEMS OF LENGTH AND COORDINATES ARE USED IN RAMF:
    C*** THE FIRST SYSTEM, USER UNITS,  IS SELECTED BY THE USER AND
    C***  NORMALLY USES  THE COORDINATE  SYSTEM  OF THE EMISSION INVENTORY.
    C***  ALL  LOCATIONS  INPUT BY THE USER(SUCH AS SOURCES AND RECEPTORS)
    C***  ARE  IN THIS SYSTEM. ALSO AS  A CONVENIENCE TO THE USER ALL
    C***  LOCATIONS  ON OUTPUT ARE ALSO  IN THIS SYSTEM.
    C*** THE SECOND  SYSTEM, INTERNAL UNITS,  IS USED INTERNALLY IN RAMF
    C***  FOR  COORDINATE LOCATIONS AND  DISTANCES. ONE INTERNAL UNIT  IS THE
    C***  SIDE LENGTH OF THE SMALLEST  AREA SOURCE SQUARE. THIS LENGTH MUST
    C***  BE IDEMTIFIED  AND SPECIFIED  BY  THE USER. THE PURPOSE OF USING
    C***  INTERNAL UNITS IS TO HAVE A  CORRESPONDENCE BETWEEN LOCATION(GRID
    C***  COORDINATES) AND PARTICULAR  AREA SOURCE POSITIONS. THIS IS
    C***  ACCOMPLISHED THROUGH THE USE  OF THE  AREA SOURCE MAP ARRAY(IA ARRAY
    C***  ). THIS  ALLOWS DETERMINATION  AS TO WITHIN WHICH AREA SOURCE ANY
    C***  COORDINATE POINT RESIDES.
    C*** THE THIRD SYSTEM,X,Y, IS AN UPWIND, CROSSWIND COORDINATE SYSTEM
    C***  WITH REFERENCE TO EACH RECEPTOR.  THE X-AXIS IS DIRECTED UPWIND
    C***  (SAME  AS WIND  DIRECTION FOR  THE PERIOD). IN ORDER TO DETERMINE
    C***  DISPERSION PARAMETER VALUES  AND EVALUATE EQUATIONS FOR
    C***  CONCENTRATIONS, DISTANCES IN  THIS  SYSTEM MUST BE IN KILOMETERS.
    C***
             CARD  INPUT TO RAMF  (OR  RAMFR)
    
    CARD  1  (13A6.A2)    LINE1      80  CHARACTER TITLE
     EXAMPLE:
     RUN  BY: ED  KRENSHAW, AIR &  HAZARDOUS MATER.  DIV., REGION  XV,  EPA(1  JAN 78)
    CARD 2  (13A6.A2)    LINE2
     EXAMPLE:
     EMISSIONS:  TEST  CITY, 1973
         80 ALPHA CHARACTERS OF INFORMATION
    CARD  3  (13A6.A2)    LINE3      80 ALPHA  CHARACTERS OF INFORMATION
     EXAMPLE:
     SFC MET DATA:  TEST CITY,1973; UPPER AIR:  TEST CITY, 1973
    
    
    CARD  4  (FREE  FORMAT) IOPT,NPER,NAVG,Z,HAFL,HSIGP,NSIGA,IDATE,IHSTRT
      IOPT  - OPTIONS  (THIRTEEN DIFFERENT ONES) CODED:  1= USE OPTION,  0= DON'T USE.
      IOPT(1)   POIKT  SOURCE IKPUT?
                                            115
    

    -------
    IOPT(2)  AREA   SOURCE INPUT?
    IOPT(3)  ENTERING  PERMANENT RECEPTOR  COORDINATES?
    IOPT(4)  NOT AVAILABLE IN THIS VERSION
    IOPT(5)  NOT AVAILABLE IN THIS VERSION
    IOPT(6)  NOT AVAILABLE IN THIS VERSION
    IOPT(7)  NOT AVAILABLE IN THIS VERSION
    IOPT(8)  MOT AVAILABLE IN THIS VERSION
    IOPT(9)  HOT AVAILABLE IN THIS VERSION
    IOPT(10) NOT AVAILABLE IN THIS VERSION
    IOPT(11) INPUT  MET DATA OF, CARDS?
    IOPT(12) SPECIFY  SIGNIFICANT SOURCES?
           RAMQ  INTERNALLY DETERMINES  THE  ORDER OF SIGNIFICANCE  FOR  BOTH POINT AND
           AREA  SOURCES.  THE USER SHOULD  EMPLOY OPTION 12 ONLY IF  THERE IS A
           PARTICULAR  SOURCE OF INTEREST  WHICH WAS NOT CONSIDERED  TO BE
           SIGNIFICANT BY RAMQ. IF THE  USER  WISHES TO ADD A  SICNIF.  POIHT SOURCE
           BUT NOT  A  SIGNIFICANT AREA  SOURCE,  BOTH CARD TYPE  6 AND 9 MUST BE
           INCLUDED IF BOTH POINT AND  AREA  SOURCES ARE BEING  CONSIDERED AND IHAS
           SHOULD  BE  SET  TO 0.
    
    IOPT(13) READ  HOURLY  EMISSIONS?
    NPER     THE NUMBER OF PERIODS TO  BE  RUN
    NAVG     THE NUMBER OF HOURS IN THE AVERAGING TIME
           IF THE  AVERAGING TIME IS 24  HOURS,  NPER IS EQUIVALENT TO  THE NUMBER OF
           DAYS  TO  BE  RUN. HAVG=24 IS  THE  STANDARD RECOMMENDED AVERAGING TIME.
           IF ANOTHER  AVERAGING TIME IS USED 1) THE FINAL TABLE  LABELED
           'FIVE HIGHEST  24-HOUR CONCENTRATIONS'  GENERATED  BY RAMF  OR RAMFR
           WILL  BE  INCORRECT, 2) THE DAILY  OUTPUT WILL BE NAVG OUTPUT INSTEAD OF
           DAILY AND  WILL HAVE TO BE READ  IN A FORMAT DIFFERENT  THAN
           ILLUSTRATED IN RAMFDAY.
    Z        RECEPTOR  HEIGHT ABOVE GROUND  (METERS) (ALL MUST  BE  AT SAME HEIGHT).
    HAFL     POLLUTANT HALF-LIFE (SECONDS).
    NSIGP    NO. OF SIGNIFICANT POINT  SOURCES.
    NSIGA    NO. OF SIGNIFICANT AREA SOURCES.
          NOTE:ONLY THOSE SOURCES DESIGNATED AS SIGNIFICANT  APPEAR ON THE PRINTOUT
    IDATE(l) 2 DIGIT  YEAR
    IDATE(2) STARTING  JULIAN DAY FOR THIS  RUN
    IHSTRT   STARTING  HOUR
    
           RESTRICTIONS ON INPUT PARAMETERS  FOR RAMF
    
           1) IF METEOROLOGICAL DATA HAS  BEEN PREPROCESSED USING RAMMET OR THE
            CRSTER  PREPROCESSOR:
             (A) THE  STARTING HOUR(IHSTRT)  MUST EQUAL 1.
             (B) DAYS  MUST BE RUN IN ORDER  STARTING WITH DAY  l.BUT CAN BE BROKEN
                 INTO  SEPARATE RUNS IF CONVENIENT. SEE RUNSTREAM EXAMPLES FOR USE.
             (C) IF MULTIPLE DAYS ARE  TO  BE  RUN, THE AVERAGING TIME(NAVG) MAY BE
                  1,2,3,4,6,8,12, OR 24. FOR  OTHER AVERAGING  TIMES<=24, THE TOTAL
                 NUMBER OF HOURS RUN(NAVG*NPER) MUST NOT EXCEED  24.
                 NAVG  MUST BE 24 IF 1)CUMF  IS TO BE RUN, 2)  IF FINAL TABLES ARE TO
                 BE INTERPRETED CORRECTLY,  3) IF DAILY OUTPUT IS TO  BE READ AS
                 SHOWN IN EXAMPLE.
             (D) NON-CONSECUTIVE DAYS  OR  PERIODS MUST BE RUN  SEPARATELY.
    
           2) IF METEOROLOGICAL DATA IS TO  BE INPUT ON CARDS:
             (A) THE STARTING HOUR(IHSTRT)  MAY RANGE BETWEEN  1 AND 24 INCLUSIVELY.
             (B) THE STARTING JULIAN DAY(I DATE (2)) MUST AGREE WITH THE DATE ON THE
                 FIRST INPUT CARD. NO  FILE  MANIPULATION IS DONE.
             (C) THE AVERAGING TIME(NAVG)  SHOULD BE A MULTIPLE OF  24 IF MULTIPLE
                 CONSECUTIVE DAYS ARE  TO  BE  RUN.
              (D) NON-CONSECUTIVE DAYS  OR  PERIODS CAN BE PROCESSED  IN THE SAME RUN.
                 HOURS WITHIN A PERIOD MUST BE CONSECUTIVE AND EACH PERIOD MUST
                 HAVE THE SAME AVERAGING  TIME.
                                             116
    

    -------
     EXAMPLE:
    1,1,1,0,0,0,0,0,0,0,0,1,1, 1, 24,  0.0,  14400., 5, 10,  73,  uul.l
    
    
    CARD TYPE 5  (FREE FORMAT) I SFCD , I SFC YR , I11XD , IMXYR
       THIS CARD  IS  REQUIRED ONLY IF IOPT(11)=0
      ISFCD     SURFACE METEOROLOGICAL  STATION  IDENTIFICATION.
      ISFCYR    YEAR  OF SURFACE DATA  -  2 DIGITS.
      IHXD      IDENTIFICATION OF RADIOSONDE  STATION USED TO  DETERMINE
                MIXING HEIGHT.
      I11XYR     YEAR  OF MIXING HEIGHT DATA  -  2  DIGITS.
     EXAMPLE:
    93815, 73,  93815,  73
    
    CARD TYPE 6  (2613)  INPT.MPS
         THIS CARD  IS REQUIRED ONLY  IF  IOPT(1)=1  AND IOPT(12)=1
     IKPT       THE  NUMBER OF USER SPECIFIED  SIGNIFICANT POINT  SOURCES,  COUNT(MAX=25)
     MPS        POINT SOURCE NUMBERS  USER WANTS TO CONSIDER SIGNIF1CANT(I.E., COHC.
                CONTRIBUTIONS FROM  SICNIF.  SOURCES ARE PRINTED ON  OUTPUT)
    
    EXAMPLE:
      1  7
    CARD TYPE  7  (FREE FORMAT) FH,XLIM,NETS, (HINT(I),I=1 ,NUTS )
        THIS CARD  IS  REQUIRED ONLY  IF  IOPT(2)=1
      FH       FRACTION OF AREA SOURCE  HEIGHT  WHICH IS PHYSICAL  HEIGHT
      XLIM     DISTANCE LIMIT ON INTEGRATION  FOR AREA SOURCE(USER  UNITS).  IN ORDER
                 FOR  CALCULATED CONCENTRATIONS  FROM AREA SOURCES  TO BE DETERMINED
                 CORRECTLY, XLIM SHOULD  BE  EQUIVALENT  TO THE  GREATEST  DISTANCE FROM
                 AtiY  RECEPTORUNCLUDING  THOSE  GENERATED BY THE ALGORITHM)  TO ANY PART
                 OF AN AREA SOURCE.  IF  RECEPTORS ARE OUTSIDE  THE  AREA  SOURCE REGION,
                 XLIM  UILL BE THE DISTANCE  FROM THE RECEPTOR  FARTHEST  FROM THE AREA
                 SOURCE REGION ACROSS THE AREA  SOURCE  TO THE  CORNER FARTHEST AWAY
                 FROM  THE RECEPTOR.  IF  ALL  RECEPTORS ARE INSIDE THE AREA SOURCE
                 REGION, XLIM IS THE GREATEST  POSSIBLE DISTANCE FROM A RECEPTOR TO A
                 CORNER OF THE AREA  SOURCE  REGION.  XLIH IS ENTERED  IN  USER UNITS.
                 IF XLIM IS TOO SHORT THE CALCULATED CONCENTRATION  WILL BE TOO LOW.
                 IF XLIM IS TOO LARGE COMPUTATION TIME IS INCREASED. XLIM   CANNOT
                 EXCEED 116 KM.
      NUTS     NUMBER OF HEIGHTS TO BE  USED  FOR AREA  SOURCES(MIN=1,MAX=3)
      HINT     HEIGHT(S) (METERS) FOR  AREA  SOURCE  INTEGRATIONS.  THIS  IS AN ARRAY OF
                 FROM  ONE TO THREE ELEMENTS.
     EXAMPLE:
     .75, 25. , 3,  11. ,15. ,20.
    CARD TYPE 8  (FREE  FORMAT)  (BPH(I),I=1,NBP)
         THIS CARD  IS  REQUIRED ONLY WHEN  CARD  TYPE 7
    IS USED.
      BPH      BREAKPOINT HEIGHTS  (METERS)  BETWEEN AREA SOURCE  HEIGHTS.  THESE VALUES
                DEFINE  THE BOUNDS OF HEIGHT CLASSES.  ANY AREA SOURCE  FALLING WITHIN
                THE  HEIGHT CLASS WILL USE THE  SPECIFIED REPRESENTAVIE HEIGHT(HINT)
                FOR  THAT CLASS DURING THE INTEGRATION.
                ARRAY OF TWO ELEMENTS.  ONE  VALUE WILL BE READ IF  NUTS ON PREVIOUS
                CARD IS 1 OR 2. TWO VALUES  READ FOR NHTS - 3.   BPH  AND HINT CAN
                USUALLY BE CHOSEN BY EXAMINING THE QUANTITY OF  AREA SOURCE EMISSIONS
                WITH HEIGHT WHICH IS GIVEN  AS  PART'OF THE RAMQ  OUTPUT.  IT IS
                DESIRABLE TO CHOOSE AS  REPRESENTATIVE HEIGHTS FROM  AREA SOURCES AS
                POSSIBLE. IF NHTS IS 1,  THE VALUE OF  BPH MUST BE  LARGER THAN
                                            117
    

    -------
                 ANY AREA HEIGHT IN THE  DATA SET FOR  THE  RUN.
    EXAMPLE:
    13.,  17.
    CARD TYPE  9 (2613) INAS.MAS
         THIS  CARD IS REQUIRED ONLY IF  IOPT(2)=1 AND  IOPT(12)=1
     IHAS       THE NUMBER  OF USER SPECIFIED SIGNIFICANT AREA SOURCES,  COUNT(MAX=10)
     MAS        AREA SOURCE NUMBERS USER WANTS TO CONSIDER SIGNIFICANT(I.E.  CONC.
                 CONTRIBUTIONS FROM SIGNIF.  SOURCES  ARE PRINTED Oil  OUTPUT)
    
    EXAMPLE:
      0
    
    
    CARD TYPE  10  (2A4,IX,2F10.3) (RNAME(J,NRECEP),J=l,2),RREC(NRECEP),SREC(NRECEP)
          ONE  CARD FOR EACH RECEPTOR.  THESE CARDS  ARE REQUIRED FOR RAMF AND RAMFR
          VERSIONS.  LAST  RECEPTOR CARD MUST BE BLANK.
      RNAME    ALPHA-NUMERIC STATION IDENTIFIER  (8  CHARACTERS).
      RREC     EAST COORDINATE OF RECEPTOR (USER UNITS).
      SREC     NORTH COORDINATE OF RECEPTOR  (USER UNITS).
          NOTE THAT THE  SUM OF RREC AND SREC EQUAL  TO ZERO IS USED  TO  TRANSFER
           CONTROL SIGNALING THAT THE  LAST  RECEPTOR CARD HAS BEEN  READ.(I.E.  A  BLANK
           CARD). A COORDINATE SCHEME  SHOULD BE SELECTED PRIOR TO  RUNNING RAMQ  SO
           THAT SOURCES  AND RECEPTORS  HAVE  POSITIVE EAST(R) AND  HORTH(S) COORDINATES
     EXAMPLE:
    RECEP 1    575.25   4409.0
    CARD TYPC  11 (FREE  FORMAT) IDAY.LDRUH
       REQUIRED FOR ALL RUNS
     IDAY
     LDRUH
    
    EXAMPLE:
    0,1
                NUMBER OF DAYS  PREVIOUSLY  PROCESSED
                LAST JULIAN  DAY NUMBER TO  CE PROCESSED(JULIAN DAY OF  LAST HOUR
                 PROCESSED WHEN START HOUR 13 MOT EQUAL  TO 1).
                                                                 BE MODELED.
                                                                 RAftUET  OUTPU
    CARD  TYPE 12  (FREE  FORMAT) J YK , IMO , DAY 1 , IK.ST (Jllll) , QU (JHK ) .QTEMP (JHR ) ,
               QTHETA(JllR) ,QHL (JUT.)
          THESE CARDS  CONTAIN HOURLY  SURFACE OBSERVATIONS AND ARE  REQUIRED ONLY IF
                                        A CARD FOR  EACH HOUR TO
                                        IS  ASSUMED  TO  COME FROM
                    YEAR OF MET. DATA
                    JULIA1!  DAY OF ili'.T.  DATA
                    HOUR OF MET. DATA
                    STABILITY CLASS  FOR THE JHR-TH  HOUR
                    WIIID SPEED (M/SEC) FOR THE JHR-TH HOUR
                    AUBIENT AIR TEMPERATURE (D EG-KELVIM )  FOR THE  JIIR-Tfl HOUR
                    WIND Din I;CTION (DI;G) FOR JHR-TH  HOUR(FROM  WHICH WIND  is BLOTILH;)
       IOPT(11)=1. THERE  SHOULD BE
       IF(IOPT (1 1 ) = 0 TllC  MET.  DATA
    JYR
    DAY1
    J H R
    IKST(JUR)
    QU (JiliO
    QTEMP(JHR)
    QTHETA(JIIR)
                    MIXI'.IG HEIGHT (METLRS) FOR THE  JHR-TH HOUR
      QHL (J11R)
    EXAMPLE:
    73,1,1,4,6. 17,269.G2,33.0,429.11
    **ft******POSSIBLE  DISK OR TAPE  INPUT TO  RAMF  OR RAMFR*****
    
    1) ANNUAL Oil AVERAGE EMISSION DATA IS REQUIRED  FOR THE  EXECUTION OF  RAMF.
    THE  KODI.L EXPECTS  THESE EMISSIONS ON UNIT  ')  HI  THE FORMAT AS OUTPUT  FROM  THE
    EMISSION PREPROCESSOR, KAMQ.  SEC RAMODUC  FOR  A  DESCRIPTION  OF THE IliPUT  DATA.
                                              118
    

    -------
    FORMAT.
    
    2) HOURLY METEOROLOGICAL DATA  CAN  BE INPUT VIA CARDS AS  DESCRIBED ABOVE, OR
    CAN BE  INPUT  FROM DISK/TAPE ON UNIT  11  I ,V THE FORMAT AS  OUTPUT FROM THE MET.
    PREPROCESSOR  RA11MET. THIS OUTPUT FORMAT IS EXACTLY THE  SA11E AS THE OUTPUT FILE
    FROM THE MX24SP(  ALSO CRSTER)  PREPROCESSORS.  THE ONLY DIFFERENCE BETWEEN THE
    RAMMET  PREPROCESSOR AND THE CRSTER PREPROCESSOR IS THE  GENERATED RANDOM NUMBERS.
    SEE RAMMETDOC FOR A DESCRIPTION  OF THE  INPUT  DATA FORMAT.
    
    3) HOURLY POINT SOURCE EMISSION  DATA CAN BE INPUT FROM  DISK OR TAPE ON UNIT  15.
    RAM EXPECTS EMISSIONS, ONE RECORD  FOR EACH HOUR, AS FORTRAN WRITTEN UNFORMATTED
    RECORDS CONTAINING THE FOLLOWING DATA:
    VARIABLE
                             DESCRIPTION
    IDATP                    DATE(YYDDDHH)  WHERE YY=YEAR,DDD=JULIAN DAY, HH=HOUR
    SOURCE(IPOL,I),1=1,NPT  THE  HOUR'S  POINT SOURCE EHISSIONS(GRAMS/SECOND)
                             FOR  EACH  OF THE POINT SOURCES  IN THE  ORDER IN WHICH  THEY
                             WERE  INPUT  INTO RAMQ.(IPOL  HERE  IS THE POLLUTANT TYPE  AS
                             SPECIFIED AS INPUT TO RAMQ, 3=S02,  4=PARTICULATE)
    
    4) HOURLY  AREA SOURCE EMISSION  DATA CAN BE INPUT FROM  DISK OR TAPE OH UNIT  16.
    RAM EXPECTS  EMISSIONS, ONE RECORD FOR  EACH HOUR, AS FORTRAN  WRITTEN UNFORMATTED
    RECORDS CONTAINING THE FOLLOWING  DATA:
    VARIABLE
    
    IDATA
    ASORC(IPOL,I),1=1,NAS
    DESCRIPTION
    
    DATE (YYDDDHH)  WHERE YY=YEAR,ODD=JULIAN  DAY,  HH = HOUR
    THE  HOUR'S AREA  EMISSIONS (GRAMS/SECOND)
    FOR  EACH OF  THE  AREA SOURCES IN  THE  ORDER IN WHICH THEY
    WERE INPUT INTO  RAMQ.
    NOTE:  IT  IS  ASSUMED THAT THE  USER  WILL SUPPLY HIS OWN  SOFTWARE TO PRODUCE THE
    HOURLY EMISSION  FILES COMPATIBLE WITH THIS FORMAT.
    C
    
    
    C**********DISK  AND TAPE OUTPUT FROM RAMF OR RAMFR**********
    
    1) HOURLY CONCENTRATIONS(GRA1IS/M**3  ) AT EACH RECEPTOR ARE  WRITTEN TO TAPE
       EACH HOUR OF  THE ENTIRE MODELING  PERIOD. SEE RAMFHOUR  FOR  THE FORMAT OF THIS
       TAPE OUTPUT(UHIT 12).
    2) DAILY  CONCENTRATIONS(GRAMS/M**3)  AT EACH RECEPTOR ARE  WRITTEN TO DISK
       EACH AVERAGING PERIOD OF THE ENTIRE MODELING PERIOD.
       SEE RAMFDAY FOR THE FORMAT OF THIS DISK OUTPUT(UNIT 13).
    3) A RUNNING SUM OF THE CONCENTRATION AT EACH RECEPTOR IS  KEPT AND IF A LONG RUN
       IS  BROKEN INTO MULTIPLE RUNS, THE CURRENT CONCENTRATION  SUMS AREA WRITTEN
       TO  DISK(UNIT  14).
    
    
    C*****DESCRIPTION OF  FINAL OUTPUT  TABLES IN RAMF AND RAMFR*****
    
    
         TWO  SUMMARY TABLES ARE PRINTED  AT THE END OF EACH RUN  OR SEQUENCE OF
    RUNS OF RAMF AND RAMFR. THE FIRST  TABLE CONTAINS THE FIVE  HIGHEST 24-HOUR
    CONCENTRATIONS(MICROGRAHS/M**3) FOR  EACH RECEPTOR FOR  THE  ENTIRE PERIOD MODELED,
    , AND  IN  PARENTHESIS  THE JULIAN DAY  OH WHICH THESE CONCENTRATIONS OCCURRED.
    THE FINAL COLUMN IN THE TABLE CONTAINS THE MEAN CONCENTRATION FOR THE TOTAL
    NUMBER OF DAYS BEING  ANALYSED, EVEN  IF THEY ARE RUN AS SEPARATE JOBS.
    TECHNICALLY  THE  SUMMARY TABLES ARE ONLY PRINTED IF LDRUN-  THE DAY NUMBER OF THE
    LAST DAY  TO  BE PROCESSED DURING THIS SEQUENCE OF RUNS- IS  EQUAL TO NDAYS - THE
    TOTAL  NUMBER OF  DAYS  TO BE RUN. (SEE EXAMPLE 3 OF RUN  STREAMS FOR RAMF).
                                            119
    

    -------
         THE  SECOND TABLE CONTAINS  THE  FIVE HIGHEST  1-HOUR  CONCENTRATIONS AT  EACH
    RECEPTOR,  AND  THE JULIAN DAY AND  HOUR OH WHICH THESE  CONCENTRATIONS OCCURRED.
    C
    c
    
    C
    ECLSTREAM:   EXAMPLE 1.
    
         THE  FOLLOWING ECL IS NEEDED  TO EXECUTE RAMF  FOR  ONE 24-HOUR PERIOD USING
    THE URBAN  SIGMAS.  THE PREPROCESSED EMISSION FILE,  REFERRED TO AS
    RAMQOUT IN THE EXAMPLE , MUST  CONTAIN THE PREPROCESSOR
    OUTPUT FROM RAMQ WHICH SPECIFIED  THE USE OF URBAN  SIGMAS.
         THE  METEOROLOGICAL DATA CAN  BE INPUT EITHER  FROM DISK OR CARDS.
    THE EXAMPLE ECL DEMONSTRATES MET  DATA INPUT FROM  THE  DISK FILE,METDATA, CREATED
    BY THE MET.  PREPROCESSOR, RAHMET.
         THE  HOURLY EMISSION DATA  CAN  BE INPUT FROM  DISK  OR TAPE FILES.
    THE EXAMPLE ECL DEMONSTRATES HOURLY EMISSIONS INPUT FROM DISK FILES,  RAMHPOINT
    AND RAMHAREA.
         TO FACILITATE CHECKING TEST  RUNS AGAINST EXAMPLE OUTPUTS GIVEN IN THE
    USERS GUIDE,  THE HOURLY EMISSIONS  DATA USED WITH  THIS TEST RUN WAS
    THE SAME  AS THE AVERAGE EMISSION  RATE(INPUT TO RA11Q)  FOR EACH HOUR.
    
    *****EXAMPLE  ECL STREAM*****
    @RUN,D/R  JOBNAME/41,ACCNT-NO/USERID,PROJ-ID,1,50/60
    @PASSWD PASSWORD
    @ASG,A RAMQOUT.
    @USE 9.RAHQOUT.
    @ASG,T/W  RAHHOUR,16N,REEL-NO.
    @USE 12,RAHHOUR.
    @ASG,A METDATA.
    @USE 11,METDATA.
    @ASG,CP RAM24.
    @USE 13.RA1I24.
    @ASG,CP ANSUM.
    @USE 14,AN SUM.
    @ASG,A RAMHPOINT.
    @USE 15,RAMHPOINT.
    @ASG,A RAMHAREA.
    @USE 16,RAMHAREA
    @XQT A999*UHAMAP.RAMF
    RUN BY: ED  KRENSHAW,  AIR &  HAZARDOUS MATER.  DIV.,  REGION XV,EPA(1  JAN  78)
    EMISSIONS:  TEST CITY,   1973
                                       UPPER AIR
     EMISSION FILE  FROM  RAMQ
    
     HOURLY CONCENTRATION  OUTPUT TAPE
    
      MET. DATA  FILE  FROM  RAMMET
    
     DAILY CONCENTRATION OUTPUT FILE
    
     STORAGE OF  INTERMEDIATE ANNUAL -SUMS
    
     HOURLY POINT  EMISSIONS DATA
    
     HOURLY AREA EMISSIONS DATA
    TEST CITY  1973
       5, 10,  73,  001,1
    SFC MET.  DATA: TEST CITY  1973
    1,1,1,0,0,0,0,0,0,0,0,1,1,  1,  24,  0.0,  14400
    93815,73,93815,73
       1   7
      . 75,  25. ,  3,  11. ,15. ,20.
    13.,  17.
       0   0
                         4409 . 0
                         4404.0
                         4403. 1
                         4400.56
                         4399.95
                         4403. 16
    0,1
    C
    C***************** * ********* >'( * ********* * A *****************************
    C
    C  THE  PRECLEDIIIG RUU  STKCAI! HAD A RUM TIME  OF  16.61 SECONDS
    RECEP 1
    RECEP 2
    RECEP 3
    RECEP 4
    RECEP 5
    RECEP 6
    575. 25
    576.0
    579. 53
    576. 79
    577. 29
    579.53
                                             120
    

    -------
    C  01J THE  UNIVAC 1110 AND  REQUIRED 41-K WORDS  OF MEMORY
    C  (APPROXIMATELY 10,446 WORDS FOR INSTRUCTIONS  AND 29,721 WORDS  FOR DATA)
    
    
    
    ECLSTREAM:   EXAMPLE  2.
    
    THE FOLLOWING ECL IS NEEDED  TO EXECUTE RA1IF  FOR  AN ENTIRE YEAR  USING THE
    URBAN SIGHAS. ANNUAL EMISSIONS ARE USED.  FILE  DESCRIPTIONS ARE  SAME AS ABOVE.
    
    *****EXAMPLE ECL STREAM*****
    @RUH,D/R  JOBNAME/41,ACCNT-NO/USERID,PROJ-ID,30,2000
    0PASSHD PASSWORD
    OASG.A  RAMQOUT.
    @USE  9.RA11QOUT.
    @ASG, T/W  RAifHOUR, 1 611, RE EL-HO.
    @USE  12.RAHHOUR.
    0ASG.A  METDATA.
    (3USE  ll.METDATA.
    @ASG,CP RAM24.
    @USli  13.RAM24.
    tUSG.CP ANSUM.
    @USE  14,ANSUM.
    @XQT  A999*UNA11AP. RAMF
    RUN BY: ED  KRENSHAH, AIR &  HAZARDOUS MATER
    EMISSIONS:  TEST CITY,  1973
    SFC MET.  DATA:  TEST CITY 1973  ;   UPPER AIR:  TEST CITY 1973
    1,1,1,0,0,0,0,0,0,0,0,1,0,  365,  24, 0.0,  14400., 5, 10, 73,  001,1
    93815,73,93815,73
      1   7
                                                    EMISSION FILE FROM  RAL1Q
    
                                                    HOURLY CONCENTRATION  OUTPUT TAPE
    
                                                     MET.  DATA FILE FROM  RAMMET
    
                                                    DAILY  CONCENTRATION OUTPUT FILE
    
                                                    STORAGE OF INTERMEDIATE ANNUAL SUMS
    
    
                                                  DIV.,  REGION XV,EPA(1  JAN 78)
    .75,
    13. ,
    0
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    25.
    17.
    0
    1
    2
    3
    4
    5
    6
    , 3,
    
    
    575.
    576.
    579.
    576.
    577.
    579.
    11.
    
    
    25
    0
    53
    79
    29
    53
    , 15. ,20.
    
    
    4409. 0
    4404. 0
    4403. 1
    4400. 56
    4399.95
    4403. 16
                                                              :*************************
    0,365
    C
    C
    C'
    C
    C
    THE PRECEEDING  RUN STREAM  HAD  A RUN TIME OF  29  MINUTES AND 5  SECONDS  ON THE
    UMIVAC  1110  AND REQUIRED 41-K  WORDS OF MEMORY
    C
    C
    ECLSTREAM:   EXAMPLE 3.
    
    THE FOLLOWING  SEQUENCE OF  6  JOB STREAMS  CAN  BE USED TO EXECUTE  RAMF
    FOR AN ENTIRE YEAR USING URBAN SIG-MAS. THEY  ARE  PRESENTED HERE  TO ILLUSTRATE
    THE FACT  THAT RUNS OF RAMF  AND RAMFR CAN BE  BROKEN DOWN INTO  CONSECUTIVE JOBS
    OF MORE CONVENIENT PROCESSING TIMES. ALL FILE  MANIPULATION OF TAPE
    AND DISKS ARE DONE INTERNALLY .  ESPECIALLY NOTE  THE USE OF THE
    INPUT VARIABLES IDATE(2),NDAYS,IDAY, AND LDRUN.
                                             121
    

    -------
    *****EXAMPLE  ECL STREAMS*****
    
    0RUN.D/R RMF1/41,ACCNT-NO/USERID,PROJ-ID,10,400
    @PASSWD PASSWORD
    @ASC,A RAMQOUT.
    QUSE 9,RAMQOUT.
    @ASG,T/W RAMHOUR,16N,REEL-NO.
    0USE 12,RAMHOUR.
    @ASG,A HETDATA.
    @USE ll.METDATA.
    @ASG,CP RAH24.
    @USE 13.RAM24.
    (3ASG.CP ANSU1I.
    @USE 14.ANSUM.
    QXQT A999*UNAMAP.RAMF
    RUN BY: ED  KRENSHAW, AIR &  HAZARDOUS HATER.
    EMISSIONS:  TEST  CITY,  1973
    SFC MET. DATA:  TEST CITY 1973  ;   UPPER AIR:
                                                   EMISSION  FILE  FROM RAMQ
                                                   HOURLY CONCENTRATION OUTPUT  TAPE
                                                    MET. DATA  FILE FROM RAMMET
                                                   DAILY CONCENTRATION OUTPUT  FILE
                                                   STORAGE  OF  INTERMEDIATE ANNUAL  SUMS
                                                  DIV., REGION  XV,EPA(1 JAN  78)
                                                  TEST CITY  1973
    1,1,1,0,0,0,0,0,0,0,0,1,0,  365,  24,  0.0, 14400.,  5,  10,  73, 001,1
    93815,73,93815,73
      1  7
    .75,
    13. ,
    0
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    25.
    17.
    0
    1
    2
    3
    4
    5
    6
    , 3,
    
    
    575.
    576.
    579.
    576.
    577.
    579.
    11.
    
    
    25
    0
    53
    79
    29
    53
    ,15. ,20
    
    
    4409.
    4404.
    4403.
    4400.
    4399.
    4403.
    •
    
    
    0
    0
    1
    56
    95
    16
    0,57
    0START RAHTEST.RMF2
    £*********:
    THE PRECEEDING RUN STREAM  HAD  A  RUN TIME OF  4 MINUTES  AND 48 SECONDS
    OH THE  UHIVAC 1110 AND REQUIRED  41K WORDS OF MEMORY  .
                                                    EMISSION FILE FROM RAMQ
    
                                                    HOURLY CONCENTRATION  OUTPUT  TAPE
    
                                                    MET.  DATA FILE FROM RAMMET
    
                                                    DAILY CONCENTRATION OUTPUT FILE
    QRUH.D/R  RI1F2/4 1 , ACCNT-MO/USERID , PROJ-ID , 10, 400
    0PASSWD PASSWORD
    0ASG.A RAMQOUT.
    0USE 9,RAMQOUT.
    0ASG.T/W  RAMHOUR, 1 611, RE EL-NO.
    OUSE 12,RA11HOUR.
    (?Asc,A MI:TDATA.
    C'USE ll.METDATA.
    C'ASG.A  RAM24.
    @USE 13.RA1124.
    @ASG,A  ANSUM.                                .  STORAGE  OF INTERMEDIATE  ANNUAL SUMS
    C'USE 14, AN SUM.
    QXQT A999*UNAMAP.RAMF
    RUN BY: ED  KRENSHAW, AIR  &  HAZARDOUS MATER. DIV.,  REGION XV,EPA(1  JAN 78)
    EMISSIONS:  TEST  CITY,  1973
    SFC MET.  DATA:  TEST CITY  1973  ;   UPPER AIR: TEST  CITY 1973
    1,1,1,0,0,0,0,0,0,0,0,1,0,  365,  24,  0.0, 14400.,  5,  10, 73, 058,1
    93815,73,93815,73
       1  7
     .75,  25.,  3,  11.,15.,20.
                                             122
    

    -------
    13. ,
    0
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    17.
    0
    1
    2
    3
    4
    5
    6
    
    
    575.
    576.
    579.
    576.
    577.
    579.
    
    
    25
    0
    53
    79
    29
    53
    
    
    4409.
    4404.
    4403.
    4400.
    4399.
    4403.
    
    
    0
    0
    1
    56
    95
    16
    57,114
    3 START
            RA11TEST.RHF3
    C ********* **********************************************************************
    THE PRECEEDINC RUN STREAli  HAD A RUN TIME  OF 5 MINUTES  AMI) 5 SECONDS
    ON THE  UNIVAC 1110 AND  REQUIRED 41K UORDS OF MEMORY  .
    C*'
                                                    EMISSION  FILE FROM RALIQ
    
                                                    HOURLY  CONCENTRATION OUTPUT  TAPE
    
                                                    :iET. DATA TILE FRO" RAMMET
    
                                                    DAILY CONCENTRATION OUTPUT  FILE
    @RUN,D/R  RMF3/41,ACCNT-NO/USERID,PROJ-ID, 10,400
    0PASSWD PASSWORD
    CUSC.A RAMQOUT.
    UUSE 9.RAMQGUT.
    CJASG, T/W  KAMHOUK, 1 6N , RE EL-110.
    O'USE 12,RAMiIOUU.
    t>ASC,A I'ETDATA.
    ^USE 1 l,;iETL-ATA.
    f'ASG.A  1,Ail 24.
    QUSE 13,RA:i24.
    OAGG.A  AIJSUM.                                .  STORAGE  OF  INTERMEDIATE  ANNUAL suits
    (JUSE 14, ANSUli.
    QXQT A999*UNAMAP. RAMF
    RUH BY: ED  KRENSHAW, AIR  &  HAZARDOUS MATER.  DIV., REGION  XV,EPA(1 JAN  73)
    EMISSIONS:  TEST  CITY,  1973
    SFC MET.  DATA:  TEST  CITY  1973  ;   UPPER  AIR:  TEST CITY  1973
    1,1,1,0,0,0,0,0,0,0,0,1,0,  365,  24, 0.0,  14400., 5,  10,  73,  115,1
    93815,73,93315,73
      1  7
     .75,  25.,  3,  11.,15.,20.
    13., 17.
    0 0
    RECEP 1
    RECEP 2
    RECEP 3
    RECEP 4
    RECEP 5
    RECEP 6
    
    575.25
    576.0
    579.53
    576. 79
    577.29
    579.53
    
    4409.0
    4404. 0
    4403. 1
    4400.56
    4399. 95
    4403. 16
    114,169
    @START RAMTEST.RMF4
    THE PRECEEDING RUN STREAM  HAD A RUN TIME  OF 5 MINUTES  AND  0 SECONDS
    ON THE UNIVAC 1110 AND REQUIRED 41K WORDS OF MEMORY  .
    C*******************************************************************************
    @RUN,D/R  RMF4/41,ACCHT-NO/USERID,PROJ-ID,10,400
    @PASSWD PASSWORD
    @ASG,A RAMQOUT.
    @USE 9,RAMQOUT.
                                                    EMISSION FILE  FROM RAIIQ
                                             123
    

    -------
                                                   HOURLY CONCENTRATION OUTPUT TAPE
                                                   MET.  DATA FILE FROM RAMMET
                                                   DAILY  CONCENTRATION OUTPUT FILE
                                                   STORAGE  OF INTERMEDIATE ANNUAL  SUMS
    @ASG,T/W RAMHOUR,16N,REEL-NO.
    @USE 12,RAMHOUR.
    @ASG,A METDATA.
    @USE 11,METDATA.
    @ASG,A  RAM24.
    @USE 13.RAM24.
    @ASC,A  AHSUM.
    @USE 14.ANSUM.
    @XQT A999*UNAMAP.RAMF
    RUN BY: ED KRENSHAW,  AIR & HAZARDOUS MATER.  DIV.,  REGION XV,EPA(1 JAN  78)
    EMISSIONS: TEST  CITY,   1973
    SFC MET. DATA:  TEST CITY 1973 ;  UPPER AIR:  TEST CITY 1973
    1,1,1,0,0,0,0,0,0,0,0,1,0, 365, 24, 0.0,  14400., 5,  10,  73, 170,1
    93815,73,93815,73
      1  7
    .75,
    13.,
    0
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    25.
    17.
    0
    1
    2
    3
    4
    5
    6
    , 3,
    
    
    575.
    576.
    579.
    576.
    577.
    579.
    11.
    
    
    25
    0
    53
    79
    29
    53
    ,15. ,20
    
    
    4409.
    4404.
    4403.
    4400.
    4399.
    4403.
    .
    
    
    0
    0
    1
    56
    95
    16
    169,224
    @START RAMTEST.RMF5
    THE PRECEEDING  RUN  STREAM HAD A RUN TIME  OF  4  MINUTES AND 5 SECONDS
    ON THE UNIVAC  1110  AND REQUIRED 41K WORDS  OF MEMORY .
                                                     c********************************
    @RUN,D/R RMF5/41,ACCNT-MO/USERID,PROJ-ID,10,400
    @PASSWD PASSWORD
    (5ASG,A RAMQOUT.
    @USE 9,RAMQOUT.
    @ASG,T/W RAMHOUR, 1 611, REEL-NO .
    QUSE 12,RAMHOUR.
    @ASG,A METDATA.
    @USE 11,METDATA.
    QASG.A  RAM24.
    @USE 13.RAM24.
    @ASG,A  ANSUM.
    @USE 14,AN SUM.
    @XQT A999*UNAMAP.RAMF
    RUN BY: ED  KRE1ISHAW, AIR & HAZARDOUS MATER.
    EMISSIONS:  TEST  CITY,   1973
    SFC MET. DATA:  TEST CITY 1973  :  UPPER  AIR:
                                                   EMISSION FILE FROM RAMQ
                                                   HOURLY CONCENTRATION OUTPUT  TAPE
                                                   MET. DATA FILE FROM  RAMMET
                                                   DAILY CONCENTRATION  OUTPUT  FILE
                                                   STORAGE OF INTERMEDIATE  ANNUAL SUMS
                                                  DIV., REGION XV,EPA(1  JAN  78)
                                                  TEST CITY 1973
    1,1,1,0,0,0,0,0,0,0,0,1,0, 365, 24,  0.0,  14400.,  5, 10, 7J, 225,1
    93815,73,93815,73
      1  7
     .75, 25.,  3,  11. ,15. ,20.
    13. , 17.
      0  0
    RECEP 1    575.25   4409.0
    RECEP 2    576.0    4404.0
    RECEP 3    579.53   4403.1
    JIECLP 4    576. 79   4400.56
    RECEP 5    577.29   4399.95
                                            124
    

    -------
    RECEP  6
               579.53
                         4A03. 16
    224,274
    ('START RAMTEST. RMF6
    (j*******************************************************************************
    Till; PROCEEDING RU1I  STREA11 HAD A  RU1I TI11E OF  4  IlINUTES AND  53  SECONDS
    ON THE  UNIVAC 1110  AND REQUIRED  41K. WORDS OF MEMORY .
    C*:
    0RUN.D/R  RMF6/41,ACCNT-NO/USERID,PROJ-ID,10,400
    (JPASSUD  PASSWORD
                                                     EMISSION FILE  FROM RA11Q
    CJASG,A  RAMOOUT.
    QUSE  9.RAMQOUT.
    QASG , T/W  RAI1HOUR, 16M .REEL-NO.
    QUSE  12.RA11HOUR.
    QASG.A  METDATA.
    t'USE  11,METDATA.
    OASG.A  RAa24.
    3USE  13.KA1124.
    GASG.A  AN SUM.
    @USE  14,AHSU;i.
    QXQT  A999*U1IA:IAP.RA!IF
    RUN BY: ED  KHENSHAW, AIR & HAZARDOUS  HATER. DIV.,  REGION XV,EPA(1 JAN  78)
    EMISSIONS:  TEST CITY,   1973
    SFC MET.  DATA: TEST  CITY 1973  ;   UPPER
                                                     HOURLY CONCENTRATION OUTPUT  TAPE
                                                     MET.  DATA FILE  FROM RAMMET
                                                     DAILY CONCENTRATION OUTPUT  FILE
                                                     STORAGE OF  INTERMEDIATE ANNUAL  SUMS
    1,1,1,0,0,0,0,0,0
    93815,73,93815,73
      1   7
                           AIR:  TEST
    ,0,0,1,0,  365,  24,  0.0,  14400.,
    CITY  1973
    5, 10,  73,
                                                                     275,1
    .75,
    13. ,
    0
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    RECEP
    25.
    17.
    0
    1
    2
    3
    4
    5
    6
    , 3,
    
    
    575.
    576.
    579.
    576.
    577.
    579.
    1 1.
    
    
    25
    0
    53
    79
    29
    53
    ,15. ,20.
    
    
    4409. 0
    4404. 0
    4403. 1
    4400.56
    4399.95
    4403. 16
    274,365
    THE PRECEEDING RUN  STREAM HAD A  RUN  TIME OF 8 MINUTES AND  49  SECONDS
    ON THE  UNIVAC 1110  AND  REQUIRED  41K  WORDS OF MEMORY .
    C*'
                                             125
    

    -------
                                                                                                                        z
                                                                                                                        ac.
                                                                                                                z     u>
                                                                                                                tt     z
                                                                                                                UJ     UJ
                                                                                                                t-     -J
                                                                                                                z
                                                                                                                HH     UJ
                                                                                                                       K
                                                                                                                       <
                                                                                                                UJ     V>
                                                                                                                a
                                                                                                                PH     JJ i
                                                                                                                -
                          2
                          <
           a;
           u.
    *      i-
    «      •**
    *      «t
    «      a.
    «      UJ
    *       •
    *      >
    *      x
    *
           z
           o
           »H
           U>
           UJ
    >
    *-4
    0
       *  *   *  *
                                        >
                                        UJ
                                        a:
                                        o
                  r
                  o
                                        o
                                        *-*
                                        I-
                  a_
                  a.
                                        a
                                        o
                  a:
                  u.
                  o
                          a. o
                          O M
                             K
                          uj a.
                          a: O
                          O
            II  M
           O r-
                                                                                                                a:
                                                                                                                U
                                                                                                                o
                                                                                                                                                     II
                                                                                                                                                    a.
                                                                                                                                                    O
                                                                                                                                                    X
                                                                                                                                                    Kl
                                                                                                                                                    N-
                                                                                                                                                    O
                                                                                                                oc     o
                                                                                                                UJ     _J
                                                                                                                (1.  H- *-l
                                                                                   o
                                                                                   03
                                                                                   00
                                                      *-r-«r-OOOOOOOOt-r-
                                               a.
                                               o
                          <      OH     Ol
                              ••  O     
                          X O  UJ
                            "
                          UC UJ  «t
                             z   •
                          " O  t-
                          >• ^-t  LU
                          as   e
    -J
    
    £
    ,j£
    O
                          a.
                          o
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    *£
    lj— «(
    < l~
    O <
    a
    UJ
    O UJ
    tf u*
    Z> a
    O 3
    CO O
    GO
    h"
    jE «t
    M UJ
    O a:
    a. «r
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    QC
    o
    >—
    a.
    UJ
    w
    UJ
    a.
    
    H-
    2
    >— t
    O
    a.
    
    h"
    j£
    •C
    U
    t— 1
    U-
    »— I
    2£
    *J
    t^
    Vi
    
    
    
    
    
    
    
    CO
    cc
    o
    t-
    a.
    dJ
    O
    UJ
    oz
    
    •f.
    UJ
    ac
    i<
    
    h-
    Z
    «c
    u
    M
    Lk.
    ^-4
    ^£
    U?
    HH
    (/)
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    O")
    C£
    O
    h-
    a.
    UJ
    o
    UJ
    cc
    
    ill
    3E
    O
    U
    >•
    UJ
    3Z
    O
    X
    a.
    *t
    ^_
    "K*
    )K.
    1/5
    »-*
    o
    
    O
    H"
    
    ijti
    UJ
    h-
    H>
    «-^
    Q£
    ^,
    
    h- *
    3 t*
    a z
    t- o
    ^3 O
    O
    j
    >* «(
    «j ^*
    Q£ )»
    o a:
    O 
    o
    
    >•
    -i
    01
    Z)
    o
    X
    
    ^
    £ir,
    •t
    f^
    at
    ID
    !^
    
    >-
    «J
    2
    O
    
    H-
    2
    (««
    0£
    O.
    
    
    
    
    
    
    
    
    
    4O
    o:
    O
    O
    h-
    3T
    O
    <^j
    
    (^
    O
    u.
    
    V)
    a
    C£
    ^
    U
    
    X
    tj
    2:
    o
    CL
    
    
    
    
    
    
    
    
    
    c/1
    o
    uc
    <
    o
    
    f
    o
    C£
    u.
    
    «t
    H*
    «C
    O
    
    K
    UJ
    £
    
    O
    <[
    UJ
    uc
    cc
    uJ
    CD
    £:
    =>
    z
    
    UJ
    <->
    ac
    3
    O
    t/"<
    
    K
    Z
    <
    U
    t— i
    u.
    »-^
    Z
    ej
    M<
    V>
    
    V
    u.
    !•»«
    ^J
    UJ
    a.
    v>
    
    
    
    
    
    
    
    
    
    
    
    
    vi
    <£
    O
    H4
    t^l
    t/J
    H
    £
    UJ
    
    >•
    -J
    Cvt
    2
    O
    X
    
    Q
    «t
    UJ
    Or:
                                                                                                         X.
                                                                                                         O
                                                                                                         ct
                                                                                    i.
                                                                                    Qd
                                                                                    a
                                                                                    w*
                                                                                    Z
                                                                                                                3  Ot
                                                                                                                a.  uj
                                                                                                                z  a.
                                                                                                                    O
                                                                                                                Lt  _J Ul
                                                                                                                LU  *-l CC  fO
                                                                                                                Vj  ^ UJ
                                                                                                                3     X  II
                                                                                                                    O »-  J
                                                                                                                o  ~»     o
                                                                                                                i_i  •* H-  a.
                                                                                                                O  l»1 <  M
                                                                                                                O  O- X
                                                                                                                O  O t-  UJ
                                                                                                                O  -
           <  UJ  U) >-
    
           J      O  ••  IfS
           3  o  a u-i  t-
        « -I  C)   • «-  u •
        Z     O  O OO  K>
     II  ^  '•   •  O fi  l>
    <^  a «      -j- o-
    CE  O f-      >I
    uJ  t-i tr:      *-     *-*
    a.  or H  »•>     ^  o
    Z  UJ 
                                                                                                                X  »~ l-l  l-i
                                                                                           2" O  O  X
                                                                                           3 o  o  fr-
                                                                                                                               3
                                                                                                                               X. £T
                                                                                                                               »H O
                                                                                                                               CO U.
    
                                                                                                                               UJ (/>
                                                                                                                               01 OE  ,
    
                                                                                                                               O O
                                                                                                                               I- X
    
                                                                                                                               V) Ji
                                                                                                                               £J I—t
                                                                                                                               o
                                                                                                                               H-t LU
                                                                                                                               ue E
                                                                                                                               UJ t-l
                                                                                                                               O. r-
                                                                                                                «-  Q-  X Z  M
                                                                                                                UJ  UJ  ^ O  H
                                                                                                                        o y.
    
                                                                                                                        O; O
                                                                                                                        UJ 
           w      < O  '
           ui  a:  x ac.
           i-  O     u.
           <  u.  (—     t-
           a      z «  <
           "H  t-  «t I—  Q
           «-  X  t- <
           UJ  kJ3  3 O  H*
           I-  1-1  _J     X
           <  UJ  _J h-  U3
           O  X  O UJ  t~t
                   u» KL  UJ
           tD  tjt         X
           Z  O  O UJ
           t-i  r-  uj o  ^D
           t~  a,  sc «  z
           IX  UJ  3 u,  l-l
           <  «j  to ac  x
           H  UJ  tO 3  M
           t/j  o:  < w)  £
                                                                                 126
    

    -------
                         3
                         Z
                         QC
                         3
                         O
                         o
                         a.
                                                Goooo«-oiNjoo>roo
                                                h  u~, OO <» (^ 00 >O O CO in  (\j w.
                         X.
                         <
                         
    cu
    IX
    
    »
    -J^
    •-I
    t
    IX
    UJ
    H
    
    £
    
    CO
    o
    o
    (X
    ^
    rsi
    ^
    X
    Kl
    ** _
    OC -
    < «
    x o
    V)
    Z 1-
    Ul CO
    OC UJ
    X *-
    A II
    LU CO
    z
    ii o
    >- -1
    a> v>
    CO
    Z *••*
    3 r
    <£ uj
    f^
    T~
    
    *•
    K
    »-i
    (_i
    
    ^*
    t/i
    UJ
    H-
    cg:
    i^
    <
    
    cc
    UJ
    a.
    QL
    
    
    ««
    
    K>
    N-
    O
    *~
    >•
    M
    U
    k_
    CO
    LU
    H
    
    • 1
    <
    ^
    O
    
    •
    D-
    LU
    c
    
    u
    u.
    CO
    
    
    
    
    
    
    
    
    
    
    _,
    o
    l«4
    K
    ^
    I
    (r
    0
    z
    *•*
    
    UJ
    Cl
    a:
    3
    O
    CO
    1—
    M
    o
    a.
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    UJ K S 3
    ffl O O
    OC CO CO
    to O
     u.
    Z M
    ^^ CO >**
    Z CO
    CM >^ a.
    »- CO JC
    UJ M
    O w
    a: 3 u
    O O Z
    u
    Z »- l-l «-
    O Z u. •-
    I- 0 Z
    «t O. CD
    C MO
    CC ^" CO
    O Z
    u. < cu
    i-l 11 00
    u. at
    Z M UJ
    O Z 0
    H-i CO Q£
    CO M O u">
    CO CO
    M UJ
    e ^ x
    UJ K-
    
    «» O (•> O (M Ki r- C) O O O O C. O
    iS in K 1^ Ki ou IT,
    H" CO «~ lA f\J
    Q: M
    < *
    & Uj
    
    
    Ceo Of-«-'t>.*-OK)-J-OO»xO
    ui z to •* O o «- m ~» •« ,xj ji (^ (%j
    O V) 1*" • L" ^ v~ tt (\j Jv ' f* i )v i £jf. (^- (\j
    *-^ t/> f\j r- PU (\J
    ru IH
    o x.
    (/I LU
    
    ITi inOlAU^ChOl'^OOOO
    xcj--* f^fyooofMoomforv-ot^o
    
    O O M OOOOOOOOCJt-OO^
    Z O 3E •J'sj-sJ--J'-^-^j-^j-^-^-^-^'K»
    £j sJTi^''J'1*TSr'^'-«T*4'*4'^^ooo
    
    
    ujo i^.r-is.Ni^'0>or<~h-«)(X3N.
    in in in in in m
    
    
    
    
    
    
    
    O «- (M
    uj T- «*m-oKajO>>«-»-«-
    CC. (-^Kt-h-h-HKKHKh-
    2 ZZZZ2ZZZZZZZ
    O <<<«<<<<<<<<
    CO _J_J-J_J_I_I_I-J_J_IJ_I
    0.0.0.0.0.0.0.0.0.0.0.0.
    
    *— ojto>3j>*nofwooo«OT*<\j
    «~ «— «—
    
    
                                           127
    

    -------
                                     ac
                                     UJ
                                     01
                                     w
                                     l_)
                                     ct
                                     o
                                     V)
                                     <
                                     UJ
                                               o
                                               o
                                               o
                                               rsi
                                                             a
                                                             o
                                               O
                                               O
                                                                     oc
                                                                     o
    no
    (V.
    z     o
    o     «~
    10
    UJ
    a:
    h-
    PH
    U
           CiO
           LU
    tt     ac
    UJ     •->
                                     CO
                                    v>
                                     CD
                      z     u;
                      1-1     t-
                      X.     UJ
                      ac     a
                      UJ Z
                      »- 3  CO
                      UJ OC  UJ
                      Q     <->
    
    
                      UJ X  O
                      UJ t-  fcO
                      CD
                         ct  <
                      co o  uj
                                 o
                                 o
                                  •
                             ON.
                             O «-
                               •
                                                  O
                                                  O
                                                II  K)
                                               40  T-
                                               UJ
                                               t-
                                                  O
                                                  o
                                                  o
                                                    •
                                                  ITi
                                                  -
                                                                     CD
                                                             V)
                                                             LU
                                                             a
                                                              I
                                                         O (-
                                                         o u>
                                                         o <
                                                           • uj
                                                         OO
                                                         O iv
                                                                 II   fcO
                                                                 X  t-
                             K  UJ     Z         <
                             Z  E  II  IH         Z
                             1-1     /->             Of
                             X  Z X  *•»     O  UJ
    
    
                             to     w  M     O  Z
    
    
                             <  X X  X     O
                             -J  Q. tfl  v     O  Z
                             WJ  CO *-<  V>     ^4"  >-i
    in
    3
    O
    ct
    UJ
    a.
    a
               Z
               O
    QC
    O
               O
               (/>
    X      -1
    LU  CO  CO        M(/)«Ch-h-Z«-'
    O  O  CO        Lu  < U     1-1 i-,  >-
    ae      CUM     x_jwzzs:«
    ^  LU  _J »-         u CO  O D CO  CE
    o  CD            x.     >•  >-t         ac.
    
        O  O        «t  X O.  «t UJ
    «CH*     f"~     UJLO     £EbO     CL
    UJ     O            *-l OO  CJ3 3     <
    Ct  LU »-    M Ui  UJ 1-1  UJ     OK
    <  x            ox     i- z o
        «U     II  u,     X  Z 1-1 Cj  UJ
                                 COW     CO        M     CCXCt
                                 UJ  UJ     COCUZUJ        o i— o     <
                                 IO»"4     f— CO UJ Q£ tt  UJ     ^%
                             z      u-o>x     cc=>ca     LU
                             O  <  1-1     <£«    o "-  <     M
                                                                                   a:
                                                                                   j.
                                                                            Q.
                                                                            <
                                                                            e
    
                                                                            LU
    
                                                                            Ct
    
                                                                            o
                                                                                                                   UJ X  C
                                                                                                                   U. U)  w
                                                                                                        UJ  UJ
                                                                                                            X
                                                                                                                              X t-i
                                                                                                                          UJ  I- Z
                                                                                                                          O  U3 3
                                                                                                                          M  Z
                                                                                                                    I  I/J
                                                                                                                   U Z
                                                                                                                   LU O
                                                                                                                   CO ri
                                                                                                                   "•« 10
                                                                                                                   C9 CO
                                                                                                                          a:  LU
                                                                                                                          <
                                                                                                                          u.
                                                                                                                   t:  2
                                                                                                                    i   o
                                                                                                                   vU (/>
    
                                                                                                                   CO lO
                                                                                                                      ooooooooooooooo
    
                                                                                                                      OOrvjmo    tnoisioooooo
                                                                                                                                        ooooooooooooooa
                                                                                                                      ooooooooooooooo
                                                                                                                      ooooooooooooooo
                                                                                                                      oocicoooooooooocr
                                                                                                                      ooooooooooooooc
    
                                                                                                                      ooooooooooooooo
                                                                                                                                        & r- r^- i^-  iv.
                                                                                                                                        Ci O C) O  C.
                                                                                                                                         I   I    I   I   I
                                                                                                                                                      O O  C.i O  O O O C' O
                                                                                                                                                       I   I    I   I   I   I   I   I   I
                                                                                                                                                     * >c r^-  (*~i »-  >o ^. o ao >o
                                                                                                            LU
                                                                                                            U
                                                                                                            a:
                                                                                                            CO
    
                                                                                                            -i  co
     X U  UJ
     W     K
     Z K
     J/ 01  •>
     CE UJ  <
     *; K  i-
            <
     a i"  o
     aJ (/>
        Z   •
     <• O  I-
     >• n  uj
     m   £
        v>
     Z M  <->
     O X  u.
     CE UJ  M
                                            UJCt
                                                   LULUOCO
                                               X<*-
                      u.  <  o     ct  i-.         co
                      Z<_>         «t  t-  f- u.  M
                      OZCK         UJ  Q. O  O -JC  Z  at
                      I^LSO      CtCO     l"t     >--•
                                                                                                                   UJ  W
                                                                                                                   o
                                                                                                                   CO
                                                                                                                                 oooooooooooooao
                                                                                                                                 o a ca  o I'M CM ~t  o  o o  >o -a  ~i M IM
                                                                                                                                 O C- O  O O O O  C  O O  O O  O O O
                                                                                                                       O CJ  O O  O • J O t j O  O O  O O O O
    
                                                                                                                       0-**  OX'UO^O ^tuOOr\»Or\joru
                                                                                                                       iv.r^-r-r-r--i^.(>-N-|s-,x-uGiXJaO'JOo
    -------
                                                                   z
                                                                   3
                                                                   at
                                                                   0.
                                                                   K.
                                                                   O
                                                                   CD
    
                                                                   O
                                                                   o
                                                                   o
                                                                   t-l
                                                                   ae.
                                                                   UJ
                                                                   o.
                                                                             oo
    
    
                                                                             Z
                                                                             <
                                                                             a.
    o
    »-(
    CD
    o
    c>
    a.
                                                                   a
                                                                   z
           a.
           u-
                                       O  O O  -o in  -o
                                       O  O r-  tn O-  «-
    
                         I  o        i>  >* ro  O !>•  ro
                         t-Ol'^     OOOOO-O
                         CK  o 1/1     >i--*sj>^f"isa-
                                                i  o- O-
                                                  f^ (\j
                                                                                               -J
                                                                                               1-1 (/)
              «  <
              I-  -I
              CO  W
                                                                   a.
                                                                   a
                                                                   o
    cc
    
    <
    
    O-
    UJ
    a.
    0.
                                                                             O
                                                                             o
                                                                             CE
                                                                                                                                                                                                        II
                                                                                                                                                                                                        a in
                                                                                                                                                                                                       a.  cxJ
                                                                                                                                                                                                       to  .o  II
                                                                                                                                                                                                           (NJ  >•
                                                                                                                                                                                                       O      t-
                                                                                                                                                                                                       Z  II   M
                                                                                                                                                                                                       t-i  CL  _j
                                                                                                                                                                                                       Jt  t  M
                                                                                                                                                                                                           UJ  CD
                                                                                                                                                                                                       UJ  >  O
                                                                                                                                                                                                       a  <  *.
    x
    
    •Xl f
    <  *-*
    X  U
                                                                   O-
                                                                   Q.
                                       a.  i- a.  a. a.  0-
                                       LJ  U* UJ  tjj klj  UJ
                                       ct  CL a  az u:
                  3
                  a.
                                                                   o
    
                                                                   ct
                         o
                         t-
                         o.
                                       r-  INJ f^  *^
                                                                             i.  O t—
                                                                             >•  >H UJ
                                                                             01  « c
                                                                                 in
                                                                             .£  1-1 U>
                                                                             3  C vi.
                                                                             Oi:  UJ 1*0
                                                                                               Z  K
                                                                                               ft  X
                                                                                               X  ^i
                                                                                                         000000000000000000000000
                                                                                                         000000000000000000000000
                                                                                                                                                                                                in
                                                                                                                                                                                                z
                                                                                                                                                                                                o
                                                                                                                                                                                                o
                                                                                                                                                                                                *;
                                                                                                                                                                                                o
                                                                                                                                                                                                JL
    
                                                                                                                                                                                                (-
                                                                                           3 OC
                                                                                           a. 3
                                                                                           Z Q
                                                                                           I-. X
                                                                                                                                                                                                           o co
                                                                                                                                                                                                       CVl     X>
                                                                                                                                                                                                       INJ     fl
                                                                                                                       f<>  UJ  II
                                                                                                                           u. uj
                                                                                                                       ii   a. <_>
                                                                                                                       z  in z
                                                                                                                       O     UJ
                                                                                                                       >-<  a f-
                                                                                                                       t-  z 
                                                                                                                       O  M l-t
                                                                                                                       UJ  _* (/I
                                                                                                                                                                                                       o  a: a
                                                                                                                                                                                                       2  uj ^:
                                                                                                      129
    

    -------
             O uj
          -J O. <->
          «.    fle
                                                <• r- n o a,1
                                                o- oo o oo
                                                i- ft r- «-
    o
    X
                          13
                          O
                          X
                         Of i  «- N-  ir\ r-
                          a.
    O
    o
                                                                     I—  CD UJ
                                                                     O  *i a
                                                O u-> -* m -o o
                                                r^ ** u~> <\j cs LA
                                                r~ Ki O f- rv O
    
                                                      fvj K-r (\j (V
                                                                                                                                  o
                                                                                                                                  x
    
    
    
    
    
    
    t^
    «£
    LXJ
    •>
    >
    x:
    2:
    O
    tfl
    a
    »
    *
    >
    o
    •
    LLj
    h-
    
    »
    j: K
    X t-»
    d ti
    Ua iO
    aa t/>
    ar Lii
    
    
    
    
    
    
    
    
    r*.
    j»
    r-
    >-
    O
    t—
    00
    K
    *t
    a:
    UJ
    a,
    a.
    O
    '*
    N-
    h-
    O
    h-
    UJ
    t—
    <.
    O
    •
    t—
    E
    u.
    
    oo
    UJ
    w
    J£
    D
    O
    CO
    
    1— 1
    o
    CL
    t—
    
    o
    £t
    r*
    *
    fc.
    w
    £
    QC
    O
    ex.
    o
    Z i<"» t- OOOOOO
    t—
    at
    Q:
    t- o o r- 1 r\j KI (v-
    ,£ O O Oj r- CO Kl
    C, "J O i, !>_. t C S7 t
    rvj »*
    (\i
    ,\j ,-
    o
    00
    u> C_< i-J -J -J i - f^ i
    < 1*1 O O C. C f\* *J L ">
    •JJ .' >'\t
    >
    cc
    15
    O O O O OJ sj O
    X k_) O CO '-J iA 0
    t t -J *j « O ^ t\i >\J ut sj
    (M t- C'
    t-
    a., <- 0 -O M O
    CVJ O ^3 r- f»i O
    T- r- csj O O O O O
    -tt
    « +t
    O*J at
    
    
    
    
    
    
    &
    <
    «t
    Lu
    >
    X
    O
    0
    or
    •
    >
    o
    UJ
    h-
    *t
    ^
    CO
    O
    *t
    r*^
    
    a
    i3: r-
    »
    j£
    2- h-
    UJ OO
    Q£ UJ
    O .1
    UJ OO
    2
    <2J co
    00
    a: LLJ
    
    
    
    
    
    
    
    
    f>
    r~
    >-
    o
    h~
    00
    UJ
    •—
    «t
    .ir
    UJ
    a.
    CL
    JD
    • *
    
    >-
    t—
    0
    H-
    UJ
    <
    «l
    a
    *
    f-
    £
    ON »- C C' %»
    O O >O t™ ' f\J MJ
    C) r., o o c- o o c^
    
    (jr
    O O C> -O C> K <•
    CO a O Ki O O rO
    
    UJ
    cc
    •t
    K
    3*
    ^ j1 r* t o o c c c
    ~
    o
    to
    ac r~ a/ o Cj o o o c~!
    P
    •"x o o h i ro O sr
    t/> (^J f*") ^ (w-^ ^ ^J
    *. >c L.I r;f ui o c e.> o
    tr
    O
    «jt
    O
    >. c j r*- o N , o o
    Z IT. Pu Oc-OOJt-C
    t—
    o
    Oj
    HH
    at
    t— LJ CO O O T— CX
    o - t . i c . c • c.i i.
    C\J
    o
    v~>
    uj c i. t ij- r j rs. r'<
    tO O O >* «C O- ~*
    C..f\>
    > *"
    or
    O O O Uj ^1 •*> LA
    X O O 0 ro -0 «-
    1 '.1 fi O ' r- Kl -0 «-
    rvp t\j r-
    
    o o r* . -j-  oj •* ro
    *t
    ^ «c
    < 0 Q_
    13 (J
    O UJ
    00 CC
    
    
    
    
    
    
    r^
    2
    <
    *—
    w
    <
    UJ
    *
    >
    X.
    df
    0
    tf
    a
    »
    >
    r-H
    O
    O:
    UJ
    •a.
    sc
    WO
    J
    o
    o
    "U,
    1
    IX
    
    *
    C R t N S H /
    i*
    0)
    cc
    
    
    
    
    
    
    
    
    r*
    r-
    i>
    >•
    o
    t—
    O1)
    »-
    <
    a:
    u.
    Q.
    a
    U
    '*
    f i >•
    -Jh
    r- >-
    H-
    *• c->
    ^ (-
    t—
    (~
    oo *•
    UJ <
    " Q
    O f-
    00 C
    UJ CO
    ct
    <
    H
    -N»
    K-
    r*.
    
    (£**W/S
    i:
    C^I CROGR/
    U'
    -j
    a-
    <
    0
    N' C E N T R A
    w
    >-
    a:
    <:
    00
    ("•i
    m F A G £ so
    a
    o
    X
    I
    -T
    r\j
    
    
    
    
    
    UJ «r
    «-» ct
    2:
    u
    */>
    *- u,
    O (_>
    or ct
    ~*
    «r
    f— -i
    o .j
    t— <
    £
    O
    M. UJ LU
    _J < LL
    *f 13
    h- -J 0
    O _J i/i
    (— <
    cr a oo
    U. t in O O t- O
    O- O O O t- «—
    
    oi; fv. f-o f\j pr) >o
    
    Cu f*"i (\j (NJ
    f\i (\i O O (\j O-
    r- ro o *- r\j o
    f J fl (XI 00
    r^ sj sj M oo Ci
    •& •+} O O l^- Cj
    r^ <> o w • r- t-
    *~ flC/ OO OJ ••* «j
    ^ O ^J "«T *~ *J*
    > M L r- 1 r- i f v r- i
    O <\J (.O
    ;•_; :, ^' ^ ^ ^
    oo '.j r.i i> co
    
    1 "" C - IT* f*- f\J U'l
    L^ >u 0 o rv a
    
    i—! CJ L_J C . LJ O
    *— Od K"t 'J' LA -fj
                                                                             130
    

    -------
                            Z         r-  O
                                                                                                                                ru  •* o o ry -f>
                                                                                                                                    M •* u"> Ki -     ry  O
    t-         £K
                  UJ  £
           t-     X  '••
           vi     u>
           UJ     P-l
           I-     I
    
           • I     u^
                                   o o o o o o
                     o o o o o o
                     o o o o o o
                                                                                                 UJ
                                                                                                 ffi
                                                                                                 O Kl
                                                                                                 Z  «
                                                                                                 o  *
                                                                                                 (j  ;£
    
                                                                                          Kl     CC  V)
                                                                                          r-     ax
                                                                                          o-     o  <
                                                                                          r-     X  O-
                                                                                                  I   13
                                                                                          >-     r-  O
                                                                                          I-         ee
    
                                                                                          o       >-i
                                                                                                 uj  ft^
                                                                                          l_     x -"
                                                                                                                                    Kl K: f>
                                                                                                                                    Is- sj; r*
           UJ
    v>     a.
    3     a.
    o     =>
                                   O O O O O O
                                   o  o o o o o
                                   (_.  O O O O O
                                                                                                 cc     a:
                                                                                                 UJ     HI
                                                                                                 t-     <
                                                                                   n
                                                                                   o
                                                                                   a
                                                                                   cc
                                                                                          a.
                                                                                          a.
                                                                                                                  <.  *O u~>  <^ oo
                                                                                                                  O  O CNJ  O f\J r^l
                                                                                                                  <"  •»! T*  f\J IA Kl
                                                                                                                         >a  oo    f-
        Kt O*
        I"- «-
                                   •
                                                                                                 h~1      ^~
                                                                                                                  r\j  C- r^^i  *
                                                                                                                  ra  in fsj  i
    z  t-
    UJ  i/l  •*
    IX  UJ <
                                                                                                                                          O (J- O
                                                                                                                                          O    (v.
     M  C. t-
    >•  »-* t*J
    CD  1/5 £
        t/)
    Z  1-1 W
    a  X u-
    a:  uj co
                     o
                     f-
                     o.
                                                                                                 u-  bO
                                                                                                     Z
                                                                                                 "  O
                                                                                                            oc.
                                                                                                            o
                                                                                                            »-
                                                                                                            a.
                                                                                                            LU
                                                                                                            (J
                                                                          131
    

    -------
                                RAMF PROGRAM  LISTING
    C***   URBAN  BATCH VERSION(78124) OF  RAMF
    C***RAI1F  IS THE VERSION  OF RAM WHICH PRODUCES OUTPUT  TO
    C***FOR PLOTTING CUMULATIVE FREQUENCY  DISTRIBUTIONS FOR
    C***RAM IS  AH EFFICIENT  GAUS SIA1I-PLUME MULTIPLE-SOURCE
    C***AIR QUALITY ALGORITHM. RAM IS DESCRIBED IN: NOVAK,J,
    C***TURNER,D.B., 1976: AIR POLLUTION CONTROL ASSOC. J.,
    C***PAGES  570-575(JUHE  1976). RAM'S PRINCIPAL USE  IS  TO
    C***SHORT  TERU(ONE-HOUR  TO ONE-DAY) CONCENTRATIONS  FROM
    C***AREA  SOURCES IN URBAN AREAS.
    C***SEE RAM GLOSSARY  FOR DEFINITIONS OF VARIABLES.
    C***
    C***           POINT SOURCE INFORMATION
    C***
                                                   TAPE  AND/OR DISK
                                                   A  GIVEN YEAR.
                                                   H.,  AND
                                                   VOL.  26,  NO.
                                                   DETERMINE
                                                   POINT AND
                                                                        6,
    C***SOURCE(9,#PT
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***PNA1IE
    C***           AREA
          SOURCES)      1=EAST CO-ORD(USER UNITS)
                        2-HORTH CO-ORD(USER UNITS)
                        3=S02 EMISSION  RATE(C/SEC)
                        4=PART EMISSION RATE(G/SEC)
                        5=STACK HEICHT(M)
                        6=STACK T   ?(K)
                        7 = STACK DIAli(M)
                        8 = STACK VELOCITY (M/S)
                        9=PARTIAL  CALCULATION OF  BUOYANCY
             12 CHARACTER .PLANT IDENT IFICATI01I
            SOURCE  INFORMATION
    C***ASORC(6
    C***
    C***
    .//AREA SOURCES)
    c***
    c***
                             1=X  CO-ORD(UGER  UNITS), SOUTHWEST  CORNER
                             2=Y  CO-ORD(USER  UNITS), SOUTI1UEST  CORNER
                             3=S02 EMISSION RATE(G/SEC)
                             4=PART EMISSION  RATE(G/SEC)
                             5=SIDE LEttCTH(USEE. UNITS)
                             6=STACK HEIGHT(M)
     COMMON  /COEFFS/ PXCOF(6,9),PXEXP(6,9),PXUCOF(6,9),PXUEXP(6,9),AXCO~
    1F(6,9),AXEXP(6,9),HC1(10)
     COMMON  /RELC/ CIN(3,200)
     COMH01I  /SOPvC/ IA(25, 25) .SOURCE (9 , 250) ,ASOSC(6 , 100) .UNITS, COIITUO, UK
    1EC(150) , SREC( 1 50) ,11PS (25) ,MAS (10) , I OPT ( 1 3) , I POL , NRECEP , RMIIJ, RMAX, S
    2MIN.SMAX.IUSIZE, I SSIZE , HPT , HAS , H S IGP , IISIGA , PNA11E ( 2 , 250),PS A V (250)
     COMMON  /HETCON/ ACHI(150),PC HI(150),ASICS(150, 1 1 ) , PSICS(150,26 ) , IA
    1SIGS (100) , IPSIGS (250) , Til ETA, U , KST , HL , TEMP , S INT .COST, 3P;i(2) , tUD.PAR
    2TC(250) ,AHCHI(150) , PHCIlI(150),AHmCS(150,ll),PHSIGS(15U,26),PL(6)
     COMMON  /HEIGHT/ HINT ( 3 ) , HARE ( 3 ) , BPIIM ( 2 ) , FH
     COMMON  /METI)AT/ QTHCTA(24),QU(24),IKST(24),CHL(24),QTEMP(24),IUATE
    1(2)
     COMMON  /HCGRID/ IIRM IN , HRIIAX , H Sit III , IISMAX
     COMMON  /SUM/ A1I!!SU11(150) ,  DMAX ( 2 , 5 , 1 5 0 ) , UMAX (3 , 5 , 1 50 )
     COMMON  ITYPE(150),ICODE(150),ItI,IO,i:iP,IIID,UAVC
     DIMENSION  IFREQ(7),  DKG(3), HSAV(250),  UKAME(2,50),  DUMR(24), IILH(
    12,24),  Li:iEl(14),  LINE2(14), LINE3(14),  MODEL(2),  nSAV(250), IMPS(
    225),  IUAS(IO), UP.REC(150),  US KEC ( 1 50) ,  TITLE(2),  GRAMDS(150)
     DATA  IFREQ /7*0/ ,DEG  /9 0 . , 1 80 . , 2 70 . /  , ICILAE /'I'/
     DATA  PL  /O. 15,0. 15,0.20,0.25,0.40,0.60/
     DATA  MODEL /'RURAL  ','UllHAH '/ .TITLE  /' S02  ','  PART  '/
     nr,ECEP=0
     I;PREC = O
    RMF0010
    RMF0020
    RMF0030
    RMF0040
    RMF0050
    RMF0060
    RMF0070
    RMF0080
    RMF0090
    RMF0100
    RMF0110
    RMF0120
    RMF0130
    RMF0140
    RMF0150
    RMF0160
    RMF0170
    RMF0180
    RMF0190
    RMF0200
    RMF0210
    RMF0220
    RMF0230
    RIIF0240
    RMF0250
    RMF0260
    RMF0270
    RMF0280
    F.MF0290
    HMF0300
    RMF0310
    RMF0320
    RMF0330
    RMF0340
    R!IF0350
    RMF0360
    RMF0370
    RMF0380
    r.ItF0390
    PJ1F0400
    IIMF0410
    :ii:ro420
    r.;ir0430
    RMF0440
    RMF0450
    RM1'0460
    RMF0470
    RMF0430
    1.MF0490
    RMT0500
    RHF0510
    RMF0520
    K:iF0530
                                              132
    

    -------
          NP = 0
          1:1 = 5
          10 = 6
    C***IIID-0 ISK OR TAPE  INPUT  OF PSEPP OC ES S ED  EMISSION DATA.
    C***15U RECEPTORS,250  POINT SOURCES AND  100 ARLA SOURCES
    C***i;iT-DISU INPUT  OF  hET  DATA
    C***U1.'IT 12  TAPE/DISK  OUTPUT OF HOURLY  CO '1C ENTRAT IONS
    C***UNIT 13  TAPE/DISK  OUTPUT OF DAILY  CONCENTRATIONS
    C***UNIT 14  DISK OUTPUT  OF  SUMMARY TATA
    C***UNIT 15  - TAPE/DISK  INPUT UF HOURLY  POI'lT SOURCE  EMU
    C***UNIT 16  - TAPE/DISK  INPUT OF HOURLY  AREA
                                                                  LIU I TED TO:
                                         RMF0540
                                         RMF0550
                                         RMF0560
                                         RMF0570
                                         F.MF0580
                                         KMF0590
                                         RMF0600
                                         RHF0610
    C***
    C ft * *
    c***
    C*A*THREE  SYSTEMS OF LENGTH AND 'COORDINATES ARE USED  IN  RAM:
    C*** THE  FIRST SYSTEM,  USER UNITS, IS  SELECTED BY THE  USER AND
    C***  NORMALLY USE THE  COORDINATE SYSTEM  OF THE EMISSION INVENTORY.
    C***  ALL  LOCATIONS INPUT  P. Y T'.IE USER(SUCH  AS SOURCES  AND  RECEPTORS)
          ARE  IN THIS SYSTEM.  ALSO AS A CONVENIENCE TO THE  USER ALL
          LOCATIONS OH OUTPUT  ARE ALSO IN  THIS  SYSTEM.
         E;:E  SECOND SYSTEM,  INTERNAL UNITS,  is  USED INTERNALLY
          FOR  COORDINATE LOCATIONS AND DISTANCES. ONE INTERNAL
          SIDE  LENGTH OF THE  SMALLEST AREA  SOURCE SQUARE.  THIS
          EE  IDENTIFIED AND  SPECIFIED BY THE  USER. THE PURPOSE
          INTERNAL UNITS IS  TO HAVE A CORRESPONDENCE BETWEEN LOG AT ION (CRID
          COORDINATES) AND  PARTICULAR AREA  SOURCE POSITIONS. THIS IS
          ACCOMPLISHED THROUGH THE USE OF  THE AREA SOURCE  MAP  ARRAY(IA ARRAY
          ).  THIS ALLOWS DETERMINATION AS  TO  WITHIN WHICH  AREA SOURCE ANY
          COORDINATE POINT  RESIDES.
         THE  THIRD SYSTEM,X,Y, IS AN UPWIND
          WITH  REFERENCE TO  EACH RECEPTOR.
          (SAM.E AS WIND DIRECTION FOR THE
          DISPERSION PARAMETER VALUES AND
                          IN  PAH
                          UNIT  IS  THE
                          LENGTH  MUST
                          OF  USING
    c***
    c***
    c***
    c***
          CONCENTRATIONS, DISTANCES IN THIS  SYSTEM
       CROSSUIND  COORDINATE  SYSTEI!
     THE X-AXIS  IS  DIRECTED  UPWIND
    PEPvIOD).  IN  ORDER TO DETERMINE
    EVALUATE  EQUATIONS FOR
              MUST BE 111 KILOMETERS.
    C* A*
    c***
    C A 'A A
    (J * * *
    C***READ  CARDS 1-3,  IDENTIFICATION FOR  TITLES.
          READ  (IN,940)  L INE 1 , LINE2,LIHE3
          WRITE (10,950)  LINE1 ,LINE2,LINE3
    C***IiODL  IS INDICATOR  FOR  URBAN VERSION.
          MODL=2
          WRITE (10,960)
    C***READ  RAMQ OUTPUT  FROM  DISK OR TAPE;  DATA IN INTERNAL  UNITS.
          READ  (HID) UNITS ,COHTWO, CO NONE, I PO L ,NPT, IMPS, PNAME, IMOD
    C***VERSIO» COMPATIBLE  WITH RAMQ OUTPUT?
          IF  (IMOD.EQ.MODE) GO  TO 10
          WRITE (10,1000)  MODEL(IMOD),MODEL(MODL)
          CALL  EXIT
    C***CONTINUE  READING  DATA  TRANSFERRED FROM RAMQ.
    10    DO  20 1=1,9
    20    READ  (NID)  (SOURCE(I,J),J=l,KPT)
          READ  (NID) HAS, I1IAS , RMIN , R1IAX, SMIH , SHAX, IRSIZE , I S SIZ E
          DO  30 1=1,6
    30    READ  (NID)  (ASORC(I,J),J=l,NAS)
          DO  40 1=1,IRSIZE
    40    READ  (NID)  (IA(I,J),J=l.ISSIZE)
    C***
    C***READ  CARD 4.
    C***OPTION  LIST***(SEE  RUM  STREA11 EXAMPLES OF  RAM FOR  DETAILED
    C***DESCRIPTION OF INPUT  VARIABLES).
    C***NAVG  IS INTERMEDIATE AVERAGING TIME  IN HOURS
    C***HAFL  IS POLLUTANT  HALF-LIFE IN SECONDS -
          READ  (IN,970)  IOPT,NPER,NAVG,Z,HAFL,NSIGP,NSIGA,IDATE,IHSTRT
          WRITE (10,1030)  (I,IOPT(I),I=1,13)
    RMF0630
    RMF0640
    RMF0650
    RMF0660
    RMF0670
    RMF0680
    RMF0690
    RMF0700
    R11F0710
    RMF0720
    RMF0730
    RMF0740
    RMF0750
    RMF0760
    RMF0770
    RMF0780
    RMF0790
    RMF0800
    RMF0810
    RMF0320
    RMF0830
    RMF0340
    RUF0850
    RMF0860
    RM.F0870
    Rf IF 08 80
    RMF0890
    RMF0900
    RMF0910
    RMF0920
    RMF0930
    RMF0940
    RMF0950
    RMF0960
    RMF0970
    RUF0980
    RMF0990
    RMF100G
    RMF1010
    RMF1020
    RMF1030
    RMF1040
    RMF1050
    RMF1060
    RMF1070
    RMF1080
    RI1F1090
    RMFl 100
    RMF1 1 10
    RMF1120
    RMF1130
    RMF1140
    RMFl 150
                                             133
    

    -------
                                      TLOS  IN  METERS/KM-SEC.
                                                           DATA, AND
    50
    60
          NDAYS=NAVG*NPER/24
          TLOS=693./HAFL
    C***693.  •=  0.693*1000 METERS/KM,
          IF  (NAVG.EQ.O) CALL EXIT
    C***READ  SFC  MET.  STATION ID AND  2-DIGIT YEAR,
    C***HIXING  HEIGHT  STATION AND 2-DIGIT  YEAR
    C***ONLY  IF MET  DATA IS FROM RAMMET
          IF  (IOPT(11).EQ. 1) GO TO  60
    C***READ  CARD TYPE  5 UNLESS USING  OPTION 11.
          READ  (IN,970)  ISFCD,ISFCYR,IMXD,IMXYR
    C***THE ABOVE FORMAT IS UNIVACS  FREE  FIELD INPUT.
    C***VARIABLES MUST  BE SEPARATED  BY COMMAS.
    C***THIS  IS SIMILAR  TO IBM'S LIST  DIRECTED 10.
    C***CHECK TO  INSURE  CORRECT SURFACE DATA,  MIXING HT.
    C***PREPROCESSOR ARE BEING USED.
    C***READ  IDENTIFICATION RECORD  FROM PREPROCESSED MET DISK  OR  TAPE FILE
          READ  (NIT) ID.IYEAR,IDM.IYM
          IF  (ISFCD.EQ.ID.AND.ISFCYR.EQ.IYEAR) GO TO 50
          WRITE (10,980) ISFCD,ISFCYR,ID.IYEAR
          CALL  EXIT
          IF  (IMXD.EQ.IDM.AND.IMXYR.EQ.IYM)  GO TO 60
          WRITE (10,990) IMXD,IMXYR,IDM.IYM
          CALL  EXIT
          IP=IPOL-2
          WRITE (10,780) UNITS,COMONE,COHTWO,TITLE(IP) ,IPOL
    C***ECL10  INPUT PARAMETERS
          WRITE (10,790) NPER,NAVC,IDATE(2),IDAIE(1),IHSTRT, Z.HAFL
          IF  (IOPT(11).EQ.0) WRITE  (10,800)  ISFCD,ISFCYR,IMXD,IMXYR
          WRITE (10,810)
    C***IOPT(1) CONTROL  OPTION, POINT  SOURCE INPUT?  0=NO,  1=YES.
    C***IF NO POINT  SOURCES, SKIP DOWN TO  AREA SOURCE  CODE.
          IF  (IOPT(1).EQ.0) GO TO 150
    C***IOPT(12)  CONTROL OPTION, SPECIFY  SIGNIFICANT
    C***0=NO, 1=YES.
          IF  (IOPT(12).EQ.O) GO TO  80
    C***READ  CARD TYPE  6 IF USING OPTIONS  1  AND 12.
    C***READ  THE  NUMBER  OF SIGNIFICANT POINT SOURCES
    C***SPECIFY AND  THE  NUMBER DESIGNATIONS  OF THOSE
          READ  (IN.U70)  INPT, (MPS(I),1 = 1,INPT)
          IF  (INPT.EQ.O) GO TO 80
          IF  (MPS(INPT).EQ.O) WRITE (10,880)
          J-INPT+1
    
    C***ADD SIGNIFICANT  SOURCES DETERMINED FR011 SIGNIFICANT  SOURCE  LIST
    C***IF IJSICP  GREATER THAN INPT.
          IF  (J.GT.NSIGP) GO TO 100
          DO  70 I = J , 1! S I CP
          UPS (I )=IMPS (1C)
                                                       POINT  SOURCE NUMBERS
                                                       THAT USER
                                                       SOURCES.
                                                                  WANTS  TO
    70
    80
    90
    100
          CO  TO
          DO  90
          MPS (I )
          WRITE
          WHITE
          WRITE
                 100
                 I=1,NSIGP
                 = i;jPS (I)
                 (10,950) LIJIE1,LI1IE2,LII1E3
                 (10,820) NPT ,NSIGP, (KIPS (I) ,1 = 1 ,KSICP)
                 (10,1050)
          IF  (IOPT (13) .EQ. 0) CO TO  120
    C***SAVE  AVERAGE EMISSION MATE
          DO  110 1=1, HPT
    110   PSAV(I)=SOURCE(IPOL,I)
    C***URITE  OUT  POINT SOURCE LIST.
    120   DO  1 3 U I = 1 , II PT
    C***COi;VERT  TO  USER UiSITS FOR  PP.ItlT  OUT.
    RMF1160
    RMF1170
    RHF1180
    RMF1190
    RMF1200
    RMF1210
    RMF1220
    RMF1230
    RMF1240
    RMF1250
    RMF1260
    RMF1270
    RMF1280
    RMF1290
    RMF1300
    RMF1310
    RMF1320
    RMF1330
    RMF1340
    RMF1350
    RMF1360
    RMF1370
    RMF1380
    RMF1390
    RMF1400
    RMF1410
    RMF1420
    RMF1430
    RMF1440
    RMF1450
    RMF1460
    RMF1470
    RMF1480
    RMF1490
    RMF1500
    RMF1510
    RMF1520
    RMF1530
    RMF1540
    RMF1550
    RMF1560
    RMF1570
    RMF1580
    RMF1590
    RMT1600
    RMF1610
    RMF1620
    RMF1630
    R11F1640
    RMF1650
    UMF1660
    RMF1670
    RMF1680
    RMF1690
    UMF1700
    RMF1710
    R11F1720
    RMF1730
    RMF1740
    K11F1750
    RMF1760
    RMF1770
                                             134
    

    -------
          C1 = SOURCE(1 ,I)*UNITS
          C2=SOUUCE(2,I)*UNITS
          WRITE (10,1060)  I, (PUAME(L,I),L=1,2) ,C1,C2, (SOUUCE(K,I),K = 3,8)
          1PSIGS(I)=0
    130   CONTINUE
    C***FILL  IN SIGNIFICANT POINT SOURCE ARRAY
          JO  140 I=1,NSIGP
          J=:;PS (i)
    140   IPSIGS(J)=I
    C***IOPT(2) CONTROL  OPTION, AREA  SOURCE INPUT?  0=liO, 1=YEG.
    C*.**ir  NO  AREA SOURCES, SKIP DOUN  TO INPUTTING  tlEC Ei'TdRS.
    150   IF  (IOPT(2).EQ.0) CO TO 260
    C***READ  CARD TYPE  7  IF USING OPTION 2.
          REAiJ (IN,970)  rii, XLIII, NUTS, (HINT (I ) ,1 = 1 , NUTS)
          :IP>P=NI;TS-I
    
    C***KEAD  CARD TYPE  u  IF USING OPTION 2.
          REAJJ (IN, 970)  (l)Pll(I ) , 1 = 1 ,NBP)
    C***CONVERT TO USER  UNITS FOR PRINT  OUT. XLI1I  IS  CONVERTED  TO  Kit.
          CI=RMIN*UNITS
          C2 = PJIAA*UL:ITS
          c3=s:ii;;*uiiiTs
          C5=XLIIi
          URITE (10,950)  LINE1,LINE2,LINE3
          XLi:i = XLIM*CONOIIE
          IF  (XLIM.LT. 1 16.)  CO TO  160
          URITE (10,1040)  XL III
          CALL  EXIT
    C***IOPT(12) CONTROL  OPTION, SPECIFY SIGNIFICANT  POINT SOURCES? 0-iIO,
    C***  1=YES.
    160   IF  (IOPT(12).EQ.0) CO TO  1UO
    C***READ  THE NUMBER OF  SIGNIFICANT  AREA SOURCES THAT USER
    C***WAUTS TO SPECIFY  AND THE NUMBER DESIGNATIONS  OF THOSE  SOURCES.
    C***READ  CARD TYPE  9  IF USING OPTIONS 2 AND
          READ  (IN,870)  INAS,(HAS(I),I=1,IHAS)
          IF  (IHAS.EQ.O)  GO TO 180
          IF  (IIAS(INAS) .EQ. 0)  URITE  (10,890)
          J=INAS+1
          K=l
          IF  (J.GT.HSIGA)  GO TO 200
          DO  170 I=J,HSICA
          UAS(I)=IMAS(K)
    170   IC=K+1
          GO  TO  200
    C***ADD  SIGNIFICANT  SOURCES DETERMINED
                                                    12.
                                                    SIGNIFICANT  SOURCE LIST
                                              FROM
    C***IF  HSIGA GREATER  THAU INAS.
    ISO   DO  190 I-l.NSIGA
    190   MAS(I)=IMAS(I)
    200   WRITE (10,830)  HAS,HSIGA,(IMAS(I),1=1,NSIGA)
          URITE (10,840)  NUTS, (HINT (I) , 1 = 1 ,NIITS)
          URITE (10,850)  (BPH(I),1=1,NBP)
          WRITE (10,860)  FH,C5,C1,C2,C3,C4,IRSIZE,ISSIZE
    C***IF  IA  ARRAY TOO LARGE TO BE  PRINTED AS A MAP, PRINTING
          IF  (IRSIZE.GT.41)  GO TO  220
    C***PRIHT  OUT AREA  SOURCE MAP  ARRAY.
          WRITE (10,1010)
          JLIM=ISSIZE+1
          DO  210 JDUM^l.ISSIZE
          J-JLIII-JDUM
    210   WRITE (10,1020)  J,(IA(I,J),1=1,IRSIZE)
          WRITE (10,1190)  (I,1=1,IRSIZE)
                                                                    IS  SKIPPED.
                                                                                   RMF1 730
                                                                                   RMF1790
                                                                                   iinnsoo
                                                                                   r.aFloio
                                                                                   unriC20
                                                                                   R1IF1G30
                                                                                   .".I1F1840
                                                                                   KMF1850
                                                                                   U:1F 1060
                                                                                   il.iri870
    LMF1SUO
    Riir 1900
    RMF1910
    r.:iFi
    -------
          GO TO  230                                                             RMF2400
    220   WRITE  (10,930)                                                        RMF2410
    C***WRITE OUT  THE  AREA SOURCE LIST.                                        R11F2420
    230   WRITE  (10,1070)                                                       RMF2430
          DO 240  1=1,HAS                                                        RMF2440
    C***CONVERT  TO USER UNITS FOR PRINT OUT                                    RMF2450
          C1=ASORC(1,I)*UNITS                                                  R1IF2460
          C2=ASORC(2,I)*UNITS                                                  RMF2470
          C3=ASORC(5,I)*UNITS                                                  RMF2480
          WRITE  (10,1080)  I,C1,C2,(ASORC(K,I),K=3,4),C3,ASORC(6,I)            RMF2490
    C***SIDE LENGTH  IS MULTIPLIED BY  .5 TO SAVE  TIME  IN LATER COMPUTATIONS    R11F2500
          ASORC(5,I)=ASORC(5,I)*0.5                                            RMF2510
          IASIGS(I)=0                                                           RMF2520
    240   CONTINUE                                                             RMF2530
    C***FILL IN  SIGNIFICANT AREA SOURCE MARKER ARRAY                           R11F2540
          DO 250  I-l.NSIGA                                                     RHF2550
          J=MAS(I)                                                             RI1F2560
    250   IASIGS(J)=I                                                           R11F2570
    C***INPUT PERMANENT RECEPTORS                                              RMF2580
    C***IOPT(3)  CONTROL OPTION, SPECIFIED RECEPTORS?   0 = NO, 1 - YES.        RMF2590
    260   IF (IOPT(3).EQ.O) GO TO 300                                          RMF2600
    270   NRECEP=MRECEP+1                                                       RMF2610
          IF (NRECEP.GT. 150) GO TO 280                                         RMF2620
    C***READ COORDINATES  IN USER UNITS                                         RMF2630
    C***ATTENTION  USER: DON'T SPECIFY  A RECEPTOR AT ORIGIN AS A BLANK CARD    RMF2640
    C***IS USED  TO INDICATE ALL RECEPTORS HAVE BEEN READ.                     RMF2650
    C***READ CARD  TYPE 10  IF USING OPTION 3.                                   RMF7660
          READ  (IN,1090)  (RNAME(J,NRECEP),J=l,2),URREC(NRECEP),USREC(NRECEP)  RMF2'i70
    C***BLANK CARD OR  RECEPTOR AT ORIGIN SIGNALS ALL  PERMANENT RECEPTORS      RllF2o80
    C***HAVE BEEN  ENTERED.                                                     RMF2690
          IF (URREC(IIRECEP)+USREC(NRECEP) .LE. 0. 001) GO TO 280                 RMF2700
          CO TO  270                                                             RMF2710
    280   HRECEP-ilRECEP-1                                                       RMF2720
    C***SAVE NUMBER  OF PERMANENT RECEPTORS                                     RMF2730
          NPREOHRECEP                                                         RMF2740
    C***PRINT OUT  TABLE OF PERMANENT  RECEPTORS***                             RMF2750
          WRITE  (10,950)  LIHE1,LINE2,LINE3                                     RMF2760
          WRITE  (10,1100)                                                       RMF2770
    C***THE CHARACTER  "I"  INDICATES THAT THESE RECEPTORS WERE INPUT  INTO      R1IF2730
    C***THE MODEL.                                                             RMF2790
          DO 290  1C = 1,11RECEP                                                    RMF2300
          ITYPE(K)-ICHAR                                                       RMF2810
          WRITE  (10,1110)  K,ITYPE(K),(RNAME(J,K),J=l,2),URREC(K),USREC(K)     RMF2820
    C***COHVERT  TO INTERNAL UNITS                                              RMF2330
          RREC(K)=URREC(K)/UNITS                                               RMF2840
          SREC(K)=USREC(K)/UN ITS                                               RMF2850
    290   ICODE(K)=0                                                           RMF2860
    C***IF NEITHER POINT OR AREA SOURCES WERE  SPECIFIED,EXIT PROGRAM.         RMF2370
    300   IF ( (IOPT(1) + IOPT(2) ) .1IE.O)  CO TO  301                                RI1F23BO
          WRITE  (10,1120)                                                       KUF2390
          CALL EXIT                                                             PMF2900
    C***READ IN  THE  NUMBER OF DAYS ALREADY PROCESSED  AND LAST DAY TO BE       RI!F2910
    C***PROCESSED  THIS RUN                                                     HMF2920
    301   READ(  IN, 970) IDAY.LDRUN                                             R11F2930
          WRITE(IO, 1200)  IDAY.LDRUII                                            RMF2940
          IF(IDAY.LE.0) GO TO 310                                              RMF2950
    C***POSITION  OUTPUT FILLS PAST LAST DAY  PROCESSED                          RMF2960
          ISKIP=IDAY+2                                                         RMF2970
          DO 302  I = 1,ISUIP                                                     RIU'2980
    302   READ (13)                                                             R1IF2990
          ISi:iF = IDAY*24 + 2                                                       RUF3000
          DO 303 1 = 1 , I31UF                                                     RMF3010
                                             136
    

    -------
    303   READ(12)
    C***KKAO  SUnilARY IHFOKMATICIJ
          READ (14) IDAYS , A1IIISUI1 , DJ'AX, UMAX
          REWIND 14
          I?(IDAY.Eg.IDAYS)  GO TO 304
          WRITE( 1210) I KAY,I DAYS
          CALL  EXIT
    304   IF(IOPT(13).EQ.O)  GO TO 303
    C***POSITIOI) J10URLY  EMISSION FILES
          ISKIP = ISi;iP-2
          IF(IOPT (1 ).EQ.0)  CO TO 306
          DO  305 I=1,ISKIP
    305   HEAL) (15)
    306   IF(IU1'T (2) .EQ. 0)  GO TO 303
          DO  307 I=1,ISKIP
    307   KEAJ)(16)
    C***IOPT(11) CONTROL OPTION, READ MET.  DATA FROM  CARDS?  0=110,  1=YES.
    308   IF(IOPT(1 1).EQ. 1)  GO TO 360
    C***POSITIOil MET FILE TO CORRECT POSITION
          DO  309 I=1,IDAY
    309   RLAD(NIT)  JYR
          CO  TO 360
    C***IiJITIALIZATION
    C***UiUTE INITIAL IDENTIFICATION RECORDS ON OUTPUT  TAPE  & DISK
                                                                      :i;;r3020
                                                                      RuF3030
                                                                      R'!F3040
    310
    360
          WRITE
          WRITE
          WRITE
          WRITE
          IDAY =
     (13)
     (13)
     (12)
     (12)
    IDAY+1
    iiDAYS,LINEl,LINE2,LINE3
    KRECEP, (URREC(I ) ,1=1,NRECEP) , (USREC(J) , J=l .NRECEP)
    1IDAYS , LlilEl , LINE 2, LINE 3
    NRECEP,(URREC(I),1=1.NRECEP),(USREC(J),J=l.NRECEP)
          1IURS = 0
          IF  (IOPT(11).EQ. 1)  CO TO 400
    C***INPUT  UET DATA FOR  EACH DAY FROM  DISK CREATED  BY  RAMHET,IOPT(11)=0
          READ  (HIT) JYR, 1110, DAY 1 , IK.ST, QU , QT E11P , DU1IR, qTHETA, HLH
          IF  (JYR.NE.IDATE(1))  GO TO  370
          IDATE(2)=DAY1
          IF  (IDATE(2).EQ.IUAY) GO TO  330
    C***DATE  ON 11ET TAPE  DOES  NOT HATCH  INTERNAL DATE
    370   WRITE (10,740)  JYR,IDATE(2),IDATE(1),IDAY
          CALL  EXIT
    C***ltODIFY  WIND VECTOR  BY  180 DEGREES.  SINCE FLOW  VECTORS WERE OUTPUT
    C***FROU  RAMHET, THIS  CONVERTS BACK TO  WIND DIRECTIONS.
    380   DO  390 IQ-1,24
          IF  (IKST(IQ).EQ.7)  IKST(IQ)=6
          gTHETA(lg)=QTHETA(IQ)+180.
          IF  (QTHETA(IQ) .GT. 360. ) QTIIETA (IQ ) -QTHETA (IQ )-3 60 .
    C***URBAN  MIXING HEIGHTS  ARE USED  FOR THIS APPLICATION
    390   QHL(ig)=HLH(2,IQ)
    400   NB=IHSTRT
          llE-HB+NAVG-1
          IF  (NB.GT.O) GO  TO  410
          WRITE (10,750)  I11STRT
          CALL  EXIT
    410   WRITE (10,950)  LIHE1 , L INE2,LINE3
          U = 0.0
          TE!IP = 0. 0
          DELH-0.0
          DELM-0.0
          DO  420 1-1,7
    420   IFREQ(I)=0.0
          DO  440 I=tIB,NE
    r.;:r3060
    RI1F3070
    RIIF3080
    R1IF3090
    R!1F3100
    RIIF3110
    RHF3120
    ;'.i!F31-30
    IIMF3140
    RL1F3150
    R1IF3160
    RMF3170
    F.:iF3130
    R1IF3190
    RKF32UO
    r.;;r32io
    R;iF3220
    RKF3230
    RHF3240
    RMF3250
    R11F3260
    RIIF3270
    UMF3230
    RUF3290
    RMF3300
    RMF3310
    R1IF3320
    RUF3330
    R1IF3340
          JHR=I
          IF  (IOPT(11),
             EQ.O)  GO TO 430
                                                                RMF3360
                                                                .RI1F3370
                                                                RHF3330
                                                                RHF3390
                                                                RMF3400
                                                                RHF3410
                                                                RMF3420
                                                                R1IF3430
                                                                RMF3440
                                                                RUF3450
                                                                R11F3460
                                                                RMF3470
                                                                R1IF3480
                                                                RMF3490
                                                                RMF3500
                                                                RMF3510
                                                                RMF3520
                                                                R>1F3530
                                                                RMF3540
                                                                RMF3550
                                                                RMF3560
                                                                RMF3570
                                                                R11F3580
                                                                RHF3590
                                                                RllF360a
                                                                RMF3610
                                                                R11F3620
                                                                RMF3630
                                              137
    

    -------
    C***READ  MET DATA FROM CARDS  WITH FREE FORMAT
    C***READ  CARD TYPE 12 IF  USING OPTION  11  ;  JHR REDEFINED  FROM HETCARD.
          READ  (IN,970) JYR,DAY1,JHR,IKST(JHR),QU(JHR).QTEMP(JHR),QTHETA(JHR
          l).QHL(JHR)
          IF  (I.NE.NB) GO TO  430
          IDATE(1)-JYR
          IUSTRT-JHR
          ISTDAY-DAY1
          IDATE(2)=ISTDAY
    430   IF(I.EQ.NB) WRITE  (10,1130) IDATE
          TRAD=QTHETA(JHR)*0.01745329
          IF(IKST(JHR).EQ.7)  IKST(JHR)=6
                           JHR.QTHETA(JHR),QU(JHR),QHL(JHR).QTEMP(JHR),IKST(J
    (10,1140)
          WRITE
         1HR)
          SINT=SIN(TRAD)
          COST=COS(TRAD)
    C***CALCULATE WIND COMPONENTS
          URES=QU(JHR)
          UR-URES*SIHT
          VR=URES*COST
          DELM-DELM+UR
          DEL1I=DELN+VR
          TEMP«TEHP+qTEMP(JHR)
          U=U+URES
          KST-IKST(JHR)
    440   IFREQ(KST)=IFREQ(KST)+1
    C***R£DEFINE  MB  AND tIE  IN  CASE NON-CONSECUTIVE DAYS ARE BEING  RUN
          IF(IOPT(11).EQ.O) GO  TO 441
          NB=IHSTRT
          NE=IHSTRT+NAVG-1
    C***CALCULATE RESULTANT  WIND DIRECTION THETA
    441   DELN-DELN/IIAVG
          DELM=DELtI/NAVG
          TIIETA=AIIGARC(DELM,DELN)
    C***CALCULATE AVERAGE AND  RESULTANT SPEED
          U=U/1JAVG
          TEMP-TEMP/HAVG
          URES = SQRT(DELt!*DELtl+DEL!I*DELtl)
          PERSIS=URCS/U
    C***DETERMINE 1IODAL AND AVERAGE STABILITY
          LSMAX=0
          DO  450  1=1,7
          LST=IFREQ(I)
          IF  (LST.LE.LSMAX) GO  TO 450
          LSMAX=LST
          LSTAB=I
    450   CONTINUE
          IP1=LSTA3+1
          KST-LSTAB
          DO  460  I-IP1.7
          IF  (LSI'.AX.EQ. IFREQ(I ) )  GO TO 470
    460   CONTINUE
          GO  TO  490
    C***IF TIE  FOR MAX MODAL STABILITY CALCULATE AVERAGE STABILITY
    470   KSUM=0
          DO  480  J=l,7
    480   usu!i=i:su:(+iFRi:Q(j) *j
          KST=rLOAT  (KSUM) /FLOAT (liAVC )+0. 5
    C***OUTPUT  RESULTANT  MET CONDITIONS***
    490   l.'UITE  (10, 1150)
          '/RITE  (10,1160) THETA,URES,U,TE!1P,PERSIS,'/.ST
          T?.AD=THCTA*0 .01745329
    RMF3640
    RMF3650
    RMF3660
    RMF3670
    RMF3680
    RMF3690
    RMF3700
    RMF3710
    RMF3720
    RMF3730
    RMF3740
    RMF3750
    RMF3760
    RMF3770
    RMF3780
    RMF3790
    RMF3800
    RMF3810
    RMF3820
    RMF3830
    RMF3840
    RMF3850
    RMF3860
    RMF3870
    RMF3880
    RIIF3890
    RMF3900
    RMF3910
    RUF3920
    RMF3930
    R1IF3940
    R11F3950
    RMF3960
    RMF3970
    -RMF3930
    RHF3990
    RI1F4000
    R11F4010
    R1IF4020
    RUF4030
    RMF4040
    R11F4050
    P.11F4060
    RMF4070
    UMF4080
    RMF4090
    RMF4100
    r.MF4110
    r.:IF4120
    RUF4130
    R11F4140
    RUF4150
    R!!F4160
    u:;r4i70
    HHF4130
    RMF4190
    R1JF4200
    P.MF4210
    RIIF4220
    EMF4230
    R1IF4240
    RMF4250
                                             138
    

    -------
          SINT-SIN(TRAIJ)
          COST-COS(TRAD)
    C***INITIALIZE  CONCENTRATION  SUMS
    C***INITIALIZE  FOR AVERAGING  TIME
          DO  550  K-1,NRECEP
          ACHI(K)-0.0
          PCHI(K)-0.0
          DO  530  1=1,11
    530   ASIGS(K,I)»0.0
          DO  540  I=l,26
          PSIGS(K,I)=0.0
          CONTINUE
    540
    550
    C***
    C***LOOP ON
    C***
          DO
          LH
                 HOURS
    570
              700  ILH=NB,NE
             •ILH
          IF  (LH.LE.24) GO TO  580
          LH«=MOD(ILH, 24)
          IF  (LH.EQ.l) IDATE(2)=DAY1
    C***INITIALIZE  HOURLY ARRAYS
    580   DO  610  K-l.NRECEP
          AI1CHI (K)-0. 0
          PHCHI(K)=0.0
          DO  590  1=1,11
    590   AUSIGS (K,I)=0. 0
          DO  GOO  1=1,26
    600   PHSIGS (K,I)=0. 0
    610   CONTINUE
    C***SET MET  CONDITIONS
          THETA=QTHETA(LH)
          U=QU(LH)
                            FOR  THIS  HOUR***
          TEltP=QTEIlP(LH)
          KGT=IKST(LH)
    C***DETCR11INE WIND DIRECTION  CONTROL, IWD,  90  DEG.  QUADRANT OF WIND
    C***
          DO  620  1=1,3
          IF  (TlIETA.LE.DEGd ) )  GO TO 630
    620   CONTINUE
          1=4
    630   IUD=I
          TRAD=THETA*0. 01745329
          3IllT = SIi; (TRAD)
          C03T=C03(TRAD)
    C***C!IECK FOR POINT SOURCES
          IF  (IOPT (1 ) .1!E. 1 ) GO  TO 650
    C***IOPT(13)  CONTROL OPTION,  HOURLY EMISSIONS  I1IPUT? 0=I!0, 1=YES
          IF  (IOPT (13) .EQ. 0)  GO TO 640
          IDC K=I DATE (1 )*100000+IDATE(2)*100+LH
    C***KEAD  HOURLY POINT  SOURCE  RECORD
          READ  (15) IDATP, ( SOURCE ( IPOL , I ) , 1 = 1 ,NPT)
    C***C1IECK DATE
          IF  (IDCIC. EQ. IDATP)  GO TO 640
          '.JRITE  (10,910) IDCK, IDATP
          CALL  EXIT
    C***CALCULATL POINT SOURCE  CONTRIBUTIONS
    640   CALL  JiMiPTU  (I1SAV , DS AV, Z , TLOG , LH)
    C***CHECK I'OU AREA SOURCES
    650   If  (IOPT (2 ) . t;c. 1) CO  TO 630
    C***IOPT(13)  CONTROL OPTION,  HOURLY EillSSIOK INPUT?  0=110, 1=YES
          II"  (IOPT (13) . EQ. 0)  GO 70 675
    R11F4260
    RMF4270
    RMF4280
    RMF4290
    RMF4300
    RMF4310
    RMF4320
    RMF4330
    RMF4340
    RMF4350
    RMF4360
    RMF4370
    RMF4380
    RMF4330
    R11F4400
    RHF4410
    R11F4420
    RMF4430
    RMF4440
    R1IF4450
    RI1F4460
    RMF4470
    RMF4480
    RMF4490
    RMF4500
    RHF4510
    RHF4520
    RKF4530
    R11F4540
    RMF4550
    RMF4560
    RMF4570
    RI1F4580
    RIIF4590
    RHF4600
    RMF4610
    R11F4620
    RHF4630
    RHF4640
    R1IF4650
    RIIF4660
    RMF4670
    RUF4680
    RMF4690
    RIIF4700
    R1IF4710
    RHF4720
    RIIF4730
    RMF4740
    RMF47-50
    RHF4760
    RHF4770
    R!IF4780
    R1IF4790
    R:iF4COO
    RMF4810
    R11F4320
    Ii:iF4830
    RMF4C40
    I'.Iir4850
    RMF4S60
    R11F4C70
                                             139
    

    -------
                «IDATE (1 )*10'JOOO + II)ATi:(2 )*100+L11
    C***READ HOURLY AREA  SOURCE EMISSION RECORD
           RT.AD  (16) IDATA, (ASOUC (I POL , I) ,1=1 ,1IAS)
    C***ClICCi: DATE
           IF (IOCK.EQ.IDATA)  CO TO  660
           URITE  (10,920)  I DC 1C, I DAT A
           CALL  F.XIT
    C***C01«VERT hOURLY AREA  EMISSIONS  FROM G/SEC TO G/SQ.  11/SEC
    660    DO 670  1=1,HAS
    C***COt:VERT SIDE LENGTH  TO HETERS.
    C***i;OTE: SIDE  LENGTH  liAD iJEEK  MULTIPLIED  liY .5 ABOVE  FOR HUE
    c***coi;siDERATious
           GF=ASORC(5 , I ) *2000*COiITUO
    670    ASORC (li'OL, I ) =ASORC (I POL , I ) / (SF*GF)
    _C***SET UP  INTEGRATION  TABLES  FOR  AREA SOURCE CALCULATIOUS***
    675    CALL  JI1U54U  (H [ITS , Z , XL IM , TLOS )
    C***CALCULATE AREA SOURCE C 01JTRIB UTIOii S
           CALL  JtUlARE  (liiiTS, XLIM.LH)
    C***URITE IIOURLY CONCENTRATIONS  TO  TAPE
    680    DO 6ol  I = l,i:ilECEP
    681    GRANDS(I)=AHCHI(I)+PUCUI(I)
           './RITE (12) I DATE (2) ,L11, (GRAliDS (I) , 1 = 1 ,1-RECEP)
    C***SAVE HOURLY IlAXIMUliS
           DO 690  K=1,NRECEP
           IF(GRA1IDS (K) .LE.1U1AX(1 , 5,K) )  CO TO  690
    C***C011CEKTRATIor:  IS  OUE  OF THE TOP 5
           DO 682  J=l,5
           IF(CRAiJDS (K) .CT.IIHAXd , J,K) )  GO TO  683
    682    CONTINUE
           URITEdO, 1220)
           GO TO 690
    C***INSERT  IN PROPER  POSITION
    683    IF(J.EQ.S) CO TO  685
           DO 604  IJ=4,J,-1
           IJP1=IJ+1
           HltAX(l ,IJP1 ,K)=IltlAX(l , I J,K)
           UMAX (2 , IJP1 , K)=H11AX(£ , IJ.K)
           1111AX(3,IJP1,K)=11UAX(3,IJ,K)
           III!AX(1 , J,K)=GRAHDS (K)
           KMAX(2,J,K)=DAY1
           H1IAX(3, J,K.)=LH
           CONTINUE
           CONTINUE
           IF(HE.GT.24) IDATE (2)=1STDAY
    C***OUTPUT  FINAL RESULTS
           CALL  JMHFD (NB , LINE 1,LIHE2,LIHE3)
    684
    685
    690
    700
           NHRS-N11RS+HAVC
           IF(NP.GE.NPER) CO  TO 720
           IF(NKRS.LT.24) GO  TO 710
           IF(IDAY-LDRUH) 360,720,720
    710    NB=1!B+1IAVG
           NE-NE+NAVG
           IF(NB.LE.24) GO TO 410
           NB=1IOD(NB ,24)
           NE=NB+NAVG-1
           GO  TO 410
    720    END FILE.12
           END FILE  12
           END FILE  13
           END FILE  13
    C***WRITE SUMMARY  INFORMATION ON DISK
    UIF4G90
    RUF4900
    IU.F4910
    RUF4920
    RIIF4930
    P.11F4940
    RUF4950
    RiiF4960
    RMF4970
    P.:iF49SO
    R!iF4990
    RMF5000
    RKF5010
    RIIF5020
    RIIF5030
    P>:iF5040
    RHF5050
    R1IF5060
    R;iF5U70
    l'.r.F5080
    K1',F5090
    RUF5100
    RIIF51 10
    RIIF5120
    R1IF5130
    R;iF5140
    PUF5150
    RJIF5160
    RUF5170
    R11F51SO
    RUF5190
    RI1F5200
    R11F5210
    RMF5220
    RMF5230
    RI1F5240
    RIIF5250
    LUF5260
    RHF527-0
    PaiF5230
    RMF5290
    R11F5300
    R11F5310
    RUF5320
    RI1F5330
    RUF5340
    RI1F5350
    RHF5360
    R1IF5370
    R11F5380
    RI1F5390
    RIiF5400
    RUF5410
    R11F5420
    RMF5430
    R11F5440
    RI1F5450
    RMF5460
    RHF5470
    RMF5480
    R11F5490
                                               140
    

    -------
    830
    840
    850
    860
    870
    380
    C90
    900
                                                     ,J=l,5),ANMEAN
                                                                  ,J=1,5)
                           ,13,' IS HOT PERMITTED.  HOURS MUST BE DEFINED  BETW
          WRITE  (14)  IDAY,ANNSUM,DMAX,HI1AX
          IF  (LDRUH.NE.NDAYS) CALL EXIT
    C***PRINT SUMMARY TABLES
          WRITE(IO,950)  LINE1.LINE2.LINE3
          WRITE(IO,1230) (1,1-1,5)
          DO  725 K=1,NRECEP
          ANMEAN=ANNSUM(K)/NDAYS
          WRITE(10,1240) K,(DMAX(1,J,K),DMAX(2,J,K)
    725   CONTINUE
          WRITE(10,950)  LINE1.LIHE2.LINE3
          WRITE(IO,1250) (1,1=1,5)
          DO  730 K=1,NRECEP
          WRITE(IO,1260) K,(HHAX(1,J,K),HflAX(2,J,K),HMAX(3,J,K)
    730   CONTINUE
          CALL  EXIT
    740   FORUAT  ('  DATE ON HET. TAPE,  ',12,13,' .DOES NOT HATCH  INTERNAL  DA
         1TE, ',12,13)
    750   FORMAT  ('  HOUR
         1EEN 1 AND  24')
    780   FORMAT  (1X,T21,'GENERAL  INFORMATION FROM RAMQ'//2X,'UNITS  -  THERE
         1ARE',F14.7,' USER UNITS(INPUT UNITS)  PER SMALLEST AREA  SOURCE  SQUA
         2RE  SIDE  LENGTH (INTERNAL UNIT)' /2X,'CONONE - THERE ARE',F14.7,'  KI
         3LOMETERS  PER USER UNIT'/2X,'CONTWO  -  IT  IS CALCULATED THAT THERE A
         4RE',F14.7,'  KILOMETERS PER  SMALLEST AREA SOURCE SQUARE  SIDE  LENGTH
         5  (INTERNAL  UN IT)'/2X,'THIS  RUN  IS FOR ',A6,'SINCE IPOL = ',I 2//1X)
    790   FORMAT  (IX,T21,'GENERAL  INPUT DATA'//2X,'NUMBER OF PERIODS TO  BE S
         1IMULATED(NPER)=  ',13/2X,'AVERAGING  TIME  IN HOURS FOR EACH  PERIOD(U
         2AVG)=  ' ,I5/2X,'STARTING  DATE (IDATE ( 2 ) , IDATE (1 ) , IIISTRT ) :  JULIAN DAY
         3  ',14,',  YEAR  19',I2,' HOUR=  ',12/2X,'RECEPTOR HEIGHT FOR  ALL  RECE
         4PTORS(Z)  ',F6.3,' METERS'/2X,'ASSUMED POLLUTANT HALF-LIFC(HAFL)  ',
         5F10.2,'  SECONDS')
    800   FORMAT  (2X,'SURFACE MET  DATA  FROM STATION(ISFCD) ',16,', YEAR(ISFC
         1YR) 19',I2/2X,'MIXING HEIGHT  DATA FROM STAT1011 (IMXD) ',16,', YEAR(
         2IMXYR)  19',12)
    810   FORMAT  (//1X)
    820   FORMAT  ( ' 0 ' , T 2 1 , ' POINT SOURCE IIIFORMAT ION ' //2X, ' EMI SSION IHFORMATI
         ION  FOR  ',14,'  (NPT) POINT SOURCES HAS BEEN DETERMINED BY RAMO//2X,
         212,'  SIGNIFICANT  POINT SOURCES(HSIGP)  ARE  TO BE USED FOR THIS  RUN'
         3/2X,'THE  ORDER OF SIGNIF 1CANCE(IMPS)  FOR 25 OR LESS POINT  SOURCES
         4DETERMINED  BY  RAMQ IS LISTED  BY  POINT SOURCE NUMBER:'/2X,2515)
          FORMAT  (//1X.T21,'AREA SOURCE INFORMATION'//2X,'EMISSION INFORMATI
         ION  FOR  ',14,'  (HAS) AREA SOURCES  HAS  RE EN  DETERMINED BY  RAMQ'/2X,I
         22,' SIGNIFICANT  AREA SOURCES (NSICA) ARE  TO BE USED FOR  THIS  RUH'/2
         3X,' THE  ORDER  OF  SIGHIF 1CAHCE(IMAS) FOU  10 OR LESS  AREA SOURCES D
         4ETERMINED  BY RAMQ IS LISTED BY   AREA  SOURCE NUMBER:'/2X, 1 015)
          FORMAT  (2X, 'NUMBER OF AREA  HEIGHT CLASSES(NUTS) = ',I 2/2X,'REPRESENT
         1ATIVE AREA  SOURCE HEIGHTS FOR EACH-  HEIGHT  CLASS(HIt:T) IN !!ETERS = ',
         23F10.2)
          FORMAT  (2X,'BREAK POINT  HEIGHT  BETWEEN THE AREA HEIGHT  CLASSES (BPH
         1) IN  METERS=',2F10.2)
          FORMAT  (2X,'FRACTION OF  AREA  SOURCE HEIGHT WHICH lo
         IT(FH)=',F10.3/2X,'LII1IT  OF  DISTANCE FOU  AREA SOURCE
         2BLES(XLIM)  IN  USER UNITS = ',F 1 0. 3/2X,'BOUNDARIES OF
         3E GRID  III  USER UNITS : ' / 1 X, T 6 , ' RMIN = ' , F 1 0 . 3 , 5X, ' Ri;AX= ' , F 1 0. 3 , 3X, ' SU
         4IN=' , F10. 3, 5X, 'ShAX=' , F10. 3/2X, ' S IZ E (IRS 17, E X ISSl^E) OF AREA  SOUR
                               INTERNAL  UNITS  =',13 ' EAST-UES
                                                                PHYSICAL  HEIGH
                                                                INTEGRATION  TA
                                                                THE AREA  SOURC
    5CE MAP ARKAY(IA)  li
    6T1I-SOUTU' //!.")
     FORMAT (2613)
     FORMAT (' ***EUKOr
     FORMAT (' ***EXROR
     FORMAT (' ***PLEASi
                                                                  JY
    ,13,
                              III SPECIFYING  SIGNIF.  POINT SOURCES***')
                              IK SPECIFYING  G1GNIF.  AREA SOURCES*"*')
                               MOTE: THE  RECEPTOR  NUMBERS A.'ID LOCATIONS
                                                                          CEIIER
         1ATED FOU  THIS  AVERAGING TIME PERIOD  ARE  DIFFERENT FI!i
                                                                    HOSE  CEtlE
    RMF5500
    RMF5510
    RMF5520
    RMF5530
    RMF5540
    RMF5550
    RMF5560
    RMF5570
    RMF5580
    RMF5590
    RMF5600
    RMF5610
    RMF5620
    RMF5630
    RMF5640
    RMF5650
    RMF5660
    RMF5670
    RMF5680
    RMF5690
    RMF5700
    RHF5710
    RMF5720
    RMF5730
    RMF5740
    RtlF5750
    RMF5760
    RMF5770
    RHF57J50
    RMF5790
    RMF5000
    RMF5810
    RMF5820
    RMF5830
    RMF5340
    RMF5850
    RMF5360
    RMF5370
    RMF53SO
    RMF5390
    RMF5900
    RMF5910
    RMF5920
    RMF5930
    RMF5940
    RMF5950
    RMF5950
    F.MF5970
    K!lF59dO
    KMF5990
    R;:r6000
    KMF601 0
    RMF6020
    R:.F6030
      F 6 0 4 0
      r 6 0 5 U
      F6060
    RMF6070
    KMFGOSO
    11MF&090
    i;i:Fdl oo
    RMF61 10
                                            141
    

    -------
    910
    
    920
    
    930
    
    940
    950
    960
    
    970
    980
    
    
    990
    
    
    1000
    
    1010
    1020
    1030
         2ATED FOR'/18X,'  THE PI! F,C EE1) INC  AVERACI11C PERIOD.***')
          FORMAT  ('  DATE UEINC PROCESSED  IS = ' , 18 / IX, ' DATE  OF  HOURLY POINT E
         1UISSION  RECORD IS =',I 8/1X,'***FLEASE  CHECK EMISSION RECORDS***')
          FORMAT  ('  DATE fi EIHC PROCESSED  IS= ',18/1X,'DATE  OF  HOURLY AREA EM
         1ISSIOI,' RECORD  IS = ' , I 8 / 1 X, ' ***PLE ASC  CHECK EMISSION  RECORDS***')
          FORMAT  ('  AREA ARRAY IS TOO  WIDE  FOR  PAGE SIZE, THEREFORE HILL I.'OT
         1 "jL PRINTED. ' )
             (13A5,A2/13A6,A2/13A6,A2)
             ('1',13A6,A2/1X,13A5,A2/1X,13A6.A2)
             ('OTIIIS  IS  THE NORMAL URBAN  VE RS ION ( 7 31 24 )
             TO  ONE  OR  SEVERAL DAYS  DATA.'/IX)
                                                               OF  KAltF FOR APPL
          FORMAT
          FOR!! AT
          FORMAT
         lICATIOt:
          FORMAT  ()
          FORMAT  ('  SURFACE DATA IDENTIFERS READ INTO MODEL  (STATION-' , 15,'
         1,YEAR-',12,')  DO NOT AGREE WITH  THE PREPROCESSOR OUTPUT FILE',/1X,
         2'  (STATION-',15,' .YEAR-',12)
          FORMAT  ('  MIXING HEIGHT IDEHTIFERS READ INTO MODEL  (STATIOli-', 15,'
         1 ,YEAR-',12,')  DO NOT AGREE  WITH THE PREPROCESSOR  OUTPUT FILE',/1X
         2,'  (STATION-',15,' .YEAR-',12)
          FORMAT  ('  •***  THE ' , A6 , ' VERS ION  OF THE PREPROCESSOR  CAN HOT BE  USE
         ID  WITH  THE ',A6,'VERSION OF  THE  MODEL***')
          FORMAT  ('0', 13X, 'AREA SOURCE  MAP ARRAY(IA)'/IX)
          FORMAT  (IX,13,2X,4113/IX)
          FORMAT  (IX,T3,'OPTION  ',T16,'0PTION L1ST',T46,'OPT ION SPECIFICATI
         10i;  :  0-=  IGNORE  OPT ION ' / 1 X, T 6 8 , '  1= USE OPTION'/1X,T7,12,T16,'POINT
         2 SOURCE  DATA',T51.I1/1X,T7,12,T16,'AREA SOURCE  DATA',T51,11/I X,T7,
         3I2.T16,'PERMANENT RECEPTORS',T51,I1/1X,T7,I2,T16,'SIGNIFICANT POIN
         4T  RECEPTORS'.T51.I1/1X,T7,12,T16,'SIGNIFICANT AREA  RECEPTORS',T51,
         511/I X,T7,12,T16, 'HONEYCOMB RECEPTORS',T51,I1/1X,T7,12,T16,'HOURLY
         60UTPUT',T51,I1/1X.T7,12,T16,'PARTIAL CONC. WRITTEN  TO  DISK/TAPE',T
         751 , I1/1X.T7, 12, T16, 'PRINT ONLY  SUMMARY HOURLY OUTPUT ', ,-T5 1 , 11 / 1 X, T
         87,12,T16,'PUNCH CARDS FOR CONTOURS ' , T5 1,I 1/1X,T7,I 2,T16,'READ MET
         9DATA  FROM  CARDS ' , T 5 1 , 11 / 1 X, T 7 , I 2 , T 1 6 , ' SPECIFY SIGNIFICANT SOURCE  11
         AUMBERS',T51,I1/1X,T7,I2,T16,'READ HOURLY  EMISSIONS',T51,11/IX)
    1040  FORMAT  ('  THE  INPUT LIMIT OF  MAX DISTANCE FOR AREA  INTEGRATION  ','
         1 CONVERTS  TO  '.F10.3,' KM WHICH  EXCEEDS STORAGE '.'LIMITATIONS.  UP
         2  TO  116  KM  DISTANCES ARE ALLOWED.')
    1050  FORMAT  ('0',T50, 'POINT SOURCE  LISTING '//I X, T8, ' SOURCE',T25 ,'EAST',"
         1T33,'NORTH',T40,'S02(G/SEC)   PART(C/SEC)  STACK  STACK ' STACK
         2  STACK'/1X,T25, 'COORD' ,T33, 'COORD  EMISSIONS   EMISSIONS    HT(ll)
         3  TEMP(K)  ','DIAM(M) VEL(M/SEC)'/1X,T26,'(USER  UNITS)'/1X)
    1060  FORMAT  (1X.T3,13,IX,2A6,2X,2F9.2.F10.2.F11.2,2X,4F8.2)
    1070  FORMAT  (/1X,T20,'AREA SOURCE  LISTING'//I X,T2,'SOURCE',T10,'EAST',T
         118,'NORTH',T26,'S02(G/SEC-M**2)',T44,'PART(G/SEC-M**2).  SIDE
         2EFFECTIVE'/1X,T10,'COORD   COORD' ,T29,'EMISSIONS',T46,'EMISSIONS',
         3T61,'LENGTH     HEIGHT'/IX,Tl1,'(USER UNITS)',T58,'(USER UNITS)',T7
    1080
    1090
    1 100
         44,' (U)
          FORMAT
          FORMAT
          FORMAT
         1EAST
            •/ix)
             (lX,T3,I3,2X,2F9.1,3X,lPE11.4,7X,lPE11.4,3X,OPF7.1,3XiF7.1)
             (2A4,2F10.3)
             ('0',T9,'INPUT RECEPTORS'//1X,'RECEPTOR     IDENTIFICATION
               NORTH     '/1X.T30,'COORD',T39,'COORD'/I X,T31,' (USER UNITS
    1110
    1120
    1130
     FORMAT  (1X,T4,I2,1X,A1,8X,2A4,7X,F6.2,3X,F7.2)
     FORMAT  (IX,'NO  SOURCES SPECIFIED')
     FORMAT  ('OINPUT MET DATA   ',I 2,'/',14/IX,T2,'HOUR
                                                                 THETA
                                                                          SPEED
    1   MIXING    TEMP
    2DEC-K)  CLASS'/IX)
                                STABILITY'/1X,T9,'(DEC)
                                                             (M/S)  HEIGHT(M)  (
    1140  FORMAT  ( 1:X,T3,I 2,4F9.2,6X,11>
    1150  FORMAT  ('0','RESULTANT  MET  CONDITIONS'/1X)
    1160  FORMAT  (2X,'WIND DIRECTION-; , F7 . 2 , T36, "'RESULTANT  WIND SPEED-',F7.2
         1/2X,'AVERAGE  WIND SPEED-',F7.2,T36,'AVERAGE TEMP-',F7.2/2X,'WIND  P
         2ERSISTEHCE=',F6.3,T36,'MODAL  STABILITY-',12)
    1170  FORMAT  ('0',T20,'GENERATED  HONEYCOMB RECEPTORS'/IX,/IX,'THE AREA  T
    RMF6120
    RUF6130
    RUF6140
    RMF6150
    RMF6160
    RMF6170
    P.MF6180
    RUF6190
    RMF6200
    RMF6210
    RMF6220
    RMF6230
    RMF6240
    RMF6250
    RMF6260
    RMF6270
    RMF6280
    RMF6290
    RMF6300
    RMF6310
    RMF6320
    RMF6330
    RMF6340
    RMF6350
    RMF6360
    RMF6370
    RMF6380
    RMF6390
    RMF6400
    RMF6410
    RM F 6 4 2 0
    RMF6430
    RMF6440
    RMF6450
    R-MF6460
    RMF6470
    RMF6480
    RMF6490
    RMF6500
    RMF6510
    RMF6520
    RMF6530
    RMF6540
    RMF6550
    RMF6560
    RMF6570
    RMF6580
    RHF6590
    RMF6600
    RMF6610
    RMF6620
    RHF6630
    RMF6640
    RMF6650
    -RMF6660
    RHF6670
    RMF6680
    RMF6690
    RMF6700
    RMF6710
    RMF6720
    RMF6730
                                            142
    

    -------
          10  BE  COVERED HY HONEYCOMB RECEPTORS  is  HOUNDED SY:'/I:;,'  RMIN=',FI ;i:iF6740
          20.3,'  RMAX=',F10.3,'  S MIN = ' , F 1 0 . 3 , '  SMAX= ' , F 1 0 . 3 / / 1 X, ' I) I STAN C C BET RMF0750
          3UEEN  HONEYCOMB RECEPTORS (CRIDSP)  II!  USER  UN IT S = ' , T 1. 3 //I X , ' REC EFT 0 RMFG750
          4R     EAST     MOUTH')                                                 RMF6770
    1180  FORilAT (IX,'NO RECEPTORS  HAVE BEEN C1IOSC11')                          UI1F6730
    1190  FORilAT (/GX.41I3/1X)                                                  RHFG790
    C                                                                            RM'6300
    1200  FORMAT (//1X,' THE  NUMBER OF  PERIODS  PREVIOUSLY  COMPLETED EQUAL    RMFG810
          113,'  AIID THE LAST PERIOD  TO CE COMPLETED  II!  THIS RUII  IS  ',13)      RMF6820
    1210  FORilAT (' NUMBER OF  DAYS  PREVEIOUSLY  PROCESSED,  ',14,'  DOES  NOT AC RMF6330
          1REE WITH LAST DAY WRITTEN IN  SUMMARY  FILE,  ' , I 4 / 1 X , ' NON-CONS ECUT IV RMF6340
          2E  DAYS CANNOT i! E PROCESSED')                                          RMF6850
    1220  FORMAT (' ERROR IN  FINDING UMAX')                                    RMF6360
    1230  FORMAT ( / 1 X, T 4 1 , ' F IVC  HIGHEST 24-HOUR  CONC EilTRAT lOIiS ( (J UL IAN  DAY M RMF6870
          1AX OCCURS) ' /1X.T49, ' (MICROCRAUS / II* *3 ) ' / 12 X, ' REC EPTOR  NO . ' , 3X , 4 (I 1 , RMF6880
          216X) ,11 , 11X,'MEAN CONG EIJTRAT ION'/1 X)                                 RUF6o90
    1240  FORMAT (1X,T5,1 2,5X,5(4X,6PF7.2,' (',OPF4.0,')'),7X,6FF7.2}          RMF6900
    1250  FORMAT (/1X,T41,'FIVE  HIGHEST 1-HOUR  COUCENTRATIONS(JULIAN  DAY MAX UMF6910
          1 OCCURS, HOUR) '/1X.T49, ' (hlCROCRAMS/M**3) '//2X, 'RECEPTOR  NO.'.llX, RMF6920
          24(11,2 OX),I1/1X)                                                      RMF6930
    1260  FORMAT (IX,T5,I 2,5X,5(4X,6PF7.2,' (' ,OPF4.0,' ,' ,F3.0,')' ) )          RMF6940
          END                                                                    RMF6950
          SUBROUTINE JMHFD   (NB , LINE 1,LINK 2,LINE3)
    C***THIS  ROUTINE IS RESPONSIBLE FOR PRINTING  TABLES OF TOTAL  AND
    C***AVERAGE  CONCENTRATION  FROM SIGNIFICANT  POINT AND AREA SOURCES.
    C***A SUMMARY TABLE OF THE METEOROLOGICAL CONDITIONS FOR EACH HOUR
                 RESULTANT CONDITIONS FOR THE PERIOD(IF
                 PRINTED. CONCENTRATIONS ARE PRINTED  IN
    LESS THAN  24  HOURS)
    MICROCRAUS  PER CUBIC
    C***AHD THE
    C***IS ALSO
    C***METER.
    C         INPUT VARIABLES ARE:
    C         NB-  START HOUR OF  AVERAGING TIME
    C         LINE1- FIRST LINE  OF  TITLE
    C         LI1IE2- SECOND LINE OF TITLE
    C         LINE3- THIRD LINE  OF  TITLE
          COMMON  /SORC/ IA(25,25),SOURCE(9,250),ASORC(6, 100) , UN ITS,CONTUO,RR
          1EC(150),SREC(150),MPS(25),MAS(10),I OPT(13),I POL,NRECEP,RMIM.RMAX,S
          2MIH.SI1AX.IRSIZE, I SSIZ E , N PT , NAS , NS IGP , I1SIGA , PNAME (2,250),PSAV(250)
          COMMON  /HETCON/ ACHI(150),PCHI(150),ASIGS(150,11),PSIGS(150,26),IA
          1SIGS(100),IPSIGS(250),THETA,U,KST, 11L,TEMP,SINT,COST,CPU(2),IWD,PAR
          2TC(250) ,AHCUI(150) ,PUC 111(150), AIISIGS(150,11), P11SIGS(150,26),PL(6)
          COMMON  /METDAT/ QTHETA(24),QU(24),IKST(24),QHL(24),QTEIIP(24),IDATE
          1(2)
          COMMON  /SUM/ ANNSUM(150),DMAX(2,5,150),HMAX(3,5,150)
          COMMOI1  ITYPE(ISO) ,IGODE(150) , IN , 10 , N IP , H ID , NA VG
          DIMENSION GRANDT(ISO),  IRANi;(150), CRANDS(150), IPOLT(2),  LIHE1(14
          1),  LINE2(14), LINE3(14)
          DATA  IPOLT /'S02 ','PART'/
          IPOLU=IPOLT(1)
          IF  (IPOL.Eg.4) IPOLU=IPOLT(2)
    C***AVERAGE CONCENTRATIONS  OVER  SPECIFIED TIME  PERIOD
          DO  30 K-l.HRECEP
          ACHI(K)=ACHI(K)/NAVC
          PCHI(K)=PCHI(K)/NAVG
          GRAHDT(K)=ACHI(K.)+PCHI(K)
          GRANDS(K)-GRAND!(K)
          DO  10 1 = 1, 11
    10    ASIGS(K,I)=ASIGS(K,I)/HAVC
          DO  20 I»l,26
    FD00010
    FD00020
    FD00030
    F D 0 0 0 4 0
    FD00050
    FD00060
    FD00070
    FDOOOOO
    FD00090
    FD00100
    FDOOl 10
    FD00120
    FD00130
    FD00140
    FD00150
    FD00160
    FD00170
    FD00130
    FD00190
    FD00200
    FD00210
    FD00220
    FD00230
    FD00240
    FD00250
    FD00260
    FDD 0270
    FD00280
    FD00290
    FD00300
    FD00310
    FD00320
    FD00330
    FD00340
    FD00350
    FD00360
                                             143
    

    -------
    20    PSIGS(K,I)=PSIGS(K,I)/NAVG
    30    CONTINUE
    C***
    C***WRITE  POINT SOURCE TABLE
          IF  (lOPT(l).EQ.O) GO TO  110
          WRITE  (10,180) LItIEl,LINE2,LINE3
          WRITE  (10,190) NAVG,IPOLU,IDATE.NB
          IF  (NSIGP.GT.10) GO TO 50
    C***PRINT  FIRST PACE OF OUTPUT AND  TOTALS
          WRITE  (10,200)  (I,I-1,NSIGP)
                 (10,210)
                 (10,220)  (MPS(I),1=1.HSIGP)
                 (10,230)
                 K = l.NRECEP
                 (10, 240) K,(PSIGS(K,I),I = 1,IJSIGP)
                          PSIGS (K, 26) , PCI1I (K)
          WRITE
          WRITE
          WRITE
          1)0  40
          WRITE
    C***PRINT  TOTALS***
          WRITE  (10,250)
    40    CONTINUE
          GO  TO  110
    C***PRINT  FIRST PAGE
    50    WRITE  (10,200) (1,1=1,10)
          WRITE  (10,260) (HPS(I),1-1,10)
          WRITE  (10,230)
          DO  60  1C = 1,URECEP
    60    WHITE  (10,240) K,(PSIGS(K,I),1=1,10)
          IF  (IISIGP.CT. 20) GO  TO  80
    C***PRIIIT  SECOND PAGE AKD  TOTALS
          WRITE  (10,180) LIHE1,LIHE2,LIHE3
          WRITE  (10,190) NAVC,IPOLU,IDATE,LIB
          WRITE  (10,200) (I,1 = 1 l.NSIGP)
          WRITE  (10,210)
          WRITE  (10,220) (UPS(I),1=1l.NSIGP)
          WRITE  (10,230)
          DO  70  IC=l,;iRECEP
          WRITE  (10,240) K, (PSIGS (1C,I) ,1 = 1 l.NSIGP)
    70    WRITE  (10,250) PS ICS (1C, 2 6 ) , PC 111 (K )
          GO  TO  110
    C***l,'HITE  SECOIiD PAGE***
    30    WRITE
          WRITE
          WRITE
          '.'RITE
          WRITE
          DO  90
    90    WRITE
          WRITE
          WRITE
    C***UlCITE  LA
                          LIHE1,LIKE2,LI!1E3
                          liAVG , IPOLU , IDATE , 1IB
                          (1,1=11,20)
    WRITE
    WRITE
    WRITE
    WHITE
    DO 100
    WRITE
    WRITE
    (10,180)
    (10, 190)
    (10,200)
    (10, 260)
    (10,230)
    1C = 1 , IIRECEP
    (10,240)  K, (PSIGS(1C,I),I=11,20)
    (10, 180)  LIU El , Li;iE2,LIIiE3
    (10,190)  I! A VC , IPOLU, 11) ATE, 11 B
    ST  PACE AND  TOTALS***
    (10,200)  (I,1=2 l.NSICP)
    (10,210)
    (10,220)
    (10,230)
     IC = 1
    (10,
                           (I!PS
                                      1,:iSIGP)
    100
    C* **
    C***WF.ITL
                      IIRECEP
                      40) 1C, (PSIGS (1C, I ), 1=2 1 ,1.
                 (10,250) PSIGS (K, 26) .PCI1I (1C)
                                                ;ICP)
                    SOURCE TALLE
    lio    ir  (IOPT(2).EQ.0)
    
           W RITE  (I 0 ,' 2 7 0 )
           WRITL  (10,200)
           WRITE  (10,280)
                             CO  TO  130
                          Lii:i:i ,LiNE2,LinE3
                          1IAVC , IPOLU, IDATE.NB
                           (I , 1 = 1 , tlSIGA)
    FD00370
    FD00380
    FD00390
    FD00400
    FD00410
    FD00420
    FD00430
    FD00440
    FD00450
    FD00460
    FD00470
    FD00480
    FD00490
    FD00500
    FD00510
    FD00520
    FD00530
    FD00540
    FD00550
    FD00560
    FD00570
    FD00580
    FD00590'
    FD00600
    FD00610
    FD00620
    FD00630
    FD00640
    FD00650
    FD00660
    FD00670
    FD00680
    FD00690
    FD00700
    FD00710
    FD00720
    FD00730
    FD00740
    FD00750
    FD00760
    FD00770
    TD00780
    F D 0 0 7 9 0
    FD00800
    FD00310
    FD00820
    FD00830
    FD00840
    FD00350
    FD00860
    FD00370
    FD00880
    FD00890
    FD00900
    FD00910
    FD00920
    TD00930
    FD0094C
    FD00950
    FD00060
    I'D 00 9 70
    FD00980
                                             144
    

    -------
    120
    C * * *
    C***OUTPUT
    (J * >V A
    130   I'll IT E
          WRITE
          URITE
    C***CALCULAT
          DO  150
    I/KITE  (10,220)  (MAS (I ) ,1 = 1 .II
    '..'RITE  (10,230)
    PO 120 K = l,t:ilECEP
    URITE  (10,240)  K, (ASIGS (K, I) ,1 = 1 .1ISIGA)
    '/KITE  (10,250)  ASICS (K, 11) ,ACHI(IC)
         SUMMARY  TARLE
                    LINE1,LIHE2,LIHE3
                    NAVG,IPOLU,IDATE.HB
                 (10,ISO)
                 (10,290)
                 (10,300)
                 E  GRAND TOTALS AND  RANK CONCENTRATIONS
                  1 = 1 .IIKECEP
          CMAX=-1.0
          DO  140 K=1,NRECEP
          IF  (GRANDT(K).LE.CMAX) GO  TO  140
          CMAX=CRAI)DT (K)
          L;IAX=K
    140   CONTINUE
          IRAHI:(LTIAX) = I
          GRAND!(UIAX)=-1.0
    150   CONTINUE
          DO  160 K=1,HRECEP
          C l-RUEC(K)*UNITS
          C2=SREC(K)*UNITS
          WRITE  (10,310) K, ITYPE (K) , ICODE(K) ,C1,C2,PSIGS (1C, 26) ,PCHI(K) , ASIGS
         1 (K,11),ACHI(K).GRANDS (K),IRAHK(K)
    160   CONTINUE
    C***WRITE  DAILY CONG. TO DISK/TAPE
          URITE(13) I DATE(2),(CRAKDS(I).I-l.NRECEP)
    C***SAVE DAILY HAXIMUMS
          DO  169 IC.= 1 .11RECEP
          ANNSUM(K)=AHNSUM(K)+GRANDS(K)
          IF(GRAMDS(K).LE.DMAX(l,5,K))  GO TO  169
    C***COiiCEHTRATIOH IS ONE OF  THE  TOP 5
          DO  162 J=l,5
          IF(GRANDS (K) .CT.D11AX(1, J,K) )  GO TO  166
    162   CONTINUE
          URITE(10,163)
    163   FORMAT(' ERROR IN FINDING  DMAX')
          GO TO  169
    C***1NSERT  IN  PROPER POSITION
    166   IF(J.EQ.S)  GO TO  168
          DO  167 IJ-=4,J,-1
          IJP1=IJ+1
          DHAX(1,IJP1,K)-DMAX(1,IJ,K)
    167   DMAX(2,IJP1,K)-DMAX(2,IJ,K)
    168   DMAX(1,J,K)=GRANDS(K)
          DMAX(2,J,K)=IDATE(2)
    169   CONTINUE
          RETURN
    C
    180   FORMAT ('1 ',13A6,A2/IX,13A6,A2/1X,13A6,A2)
    190   FORMAT ('0',122,12,'-HOUR  AVERAGE  ',A4,' CONTRIBUTION(MICROGRAMS/M
         1**3)  FROM SIGNIFICANT  POINT SOURCES',5X,12,'/',13,'   START HOUR: '
         2,I2//1X,T5,'RANK')
    200   FORMAT ('+',112,10(13,7X))
    210   FORMAT (' + ',T113,'TOTAL     'TOTAL'/I X,T113,'SIGNIF     ALL POINT'/l
         IX,T113,'POINT     SOURCES'/IX,'SOURCE #')
    220   FORMAT ('+' ,T 12,10(I 3,7X) )
    230   FORMAT (IX.'RECEP #')
    240   FORMAT (IX,T3,13,IX-6P10F10.3)
    FD00990
    FD01000
    FD01010
    FD01020
    FD01030
    FD01040
    FD01050
    FD01060
    FD01070
    FD010SO
    FDD 10.90
    FDD 1100
    FD01 110
    FD01120
    FD01 130
    TD01140
    FD01150
    FD01160
    FD01170
    FD01130
    TOO 11 90
    FD01200
    FD01210
    FD01220
    FD01230
    FD01240
    FD01250
    FD01260
    FD01270
    FD01280
    FD01290
    FD01300
    FD01310
    FDJD1320
    FD01330
    FD01340
    FD01350
    FD01360
    FD01370
    FD01380
    FD01390
    FD01400
    FD01410
    FD01420
    FD01430
    FD01440
    FD01450
    FD01460
    FD01470
    FD01480
    FD01490
    FD01500
    FD01510
    FD01520
    FD01530
    FD'01540
    FD01550
    FDO 156,0
    FD0157'o
    FD01580
    FD01590
    FD01600
                                      146
    

    -------
    250   FORMAT  ('+',T109,6P2F10.3)                                          FD01610
    260   FORMAT  (IX,'SOURCE #',T12,10(I 3 , 7X))                                FD01620
    270   FORMAT  ('0',T22,12,'-HOUR AVERAGE  ',A4,'  CONTRIBUTION(MICROGRAMS/M FD01630
         1**3) FROM  SIGNIFICANT AREA SOURCES',5X,12,'/',13,'   START HOUR:  ', FD01640
         2I2//1X,T5,'RANK')                                                    FD01650
    280   FORMAT  ('+',T113,'TOTAL     TOTAL'/1X,T113,'SIGNIF     ALL AREA'/IX FD01660
         1,T113,'AREA       SOURCES'/IX,'SOURCE  #')                            FD01670
    290   FORMAT  ('0',T25,12,'-HOUR AVERAGE  ',A4,'  SUMMARY CONCENTRATION TAB FD01680
         1LE(MICROGRAMS/M**3)',5X,I2,'/',13,'   START  HOUR: '.I2//1X)         FD01690
    300   FORMAT  (IX,'RECEPTOR NO.    EAST      NORTH    ',2X,5('TOTAL FROM    FD01700
         1'),'CONCENTRATION'/1X.T36,'SIGNIF  POINT   ALL  POINT    SIGNIF AREA   FD01710
         2 ALL AREA      ALL  SOURCES', 5X,'RANK'/ IX, T38, 4 ('SOURCES', 6X)//1X)   FD0172-0
    310   FORMAT  (1X,T3,1 3,IX,Al,13,6X,F7.2,2X,F7.2,IX,6P5F13.4,6X,13)       FD017JO
    C                                                                          FD01740
          END                                                                  FD01750
              DESCRIPTION  OF HOURLY OUTPUT FILE
    RAMFHOUR
         RAMFHOUR  IS  AN EXAMPLE PROGRAM WHICH  READS  THE HOURLY
    CONCENTRATION  TAPE  PRODUCED BY RAMF OR RAMFR.   IT IS GIVEN HERE
    ONLY AS AN EXAMPLE  OF  HOW THE HOURLY CONCENTRATION TAPE MAY BE READ,
    *****  PROGRAM  LISTING  *****
    C***READ HOURLY  CONCENTRATION TAPE PRODUCED  BY  RAMF OR RAMFR
    C***ASG TAPE  TO  UNIT  12
          DIMENSION  GRANDS(150),RREC(150),SREC(150).LINE1(14),LINE2(14),
         *LINE3(14)
          READ(12) NDAYS,LINE1,LINE2,LINE3
          READ(12) NRECEP,(RREC(I),1=1,NRECEP),(SREC(J),J=l,NRECEP)
          WRITE(6,10)  LINE1.LINE2.LINE3
    10    FORMAT('1',13A6,A2/1X, 13A6,A2/1X, 1 3A6,A2)
          WRITE(6,11)  (I,RREC(I),SREC(I),!=!,NRECEP)
    11    FORI1AT(//1X,T5,'RECEPTOR LOCAT IONS ' / 1 X, 40 (I 2 , 2F 1 0. 2 / 1 X ) )
    C***READ NO.  OF  DAYS  TO PRINTOUT
          READ(5,12) IDAY
    12    FORMAT(13)
          WRITE(6,13)
    13    FORMAT('1',T30,'HOURLY CONCENTRATIONS(KICROCRAIIS/M**3)')
    C***READ HOURLY  CONCENTRATIONS
          DO 30  1=1,IDAY
          DO 20  J=l,24
          READ(12,END=99)  IDAY1.LH,(GRANDS(K),K-1,NRECEP)
          WRITE (6, 100) IDAY1 , LH , (GRAIIDS (K ) , K=l .NRECEP)
    100   FORI1AT(1X,'JULIAN DAY-',15,' HOUR-  ' , I 2 / 1 X, 4 (6P 1 OF 1 1 . 2 / 1 X) )
    20    CONTINUE
    30    CONTINUE
    99    CALL  EXIT
          EMI)
    ***** CARD  INPUT TO RAMFHOUR *****
                                            146
    

    -------
    CARD  1  (13)  IDAY
    C       IDAY  IS THE NUMBER  OF DAYS TO BE USED.
     EXAMPLE:
    365
     *****EXA11PLE RUN STKEAtl*****
    C'iu;r;,D/R   JOBMAHE,ACCNT-KO/USERID. , PROJ-ID,i,10
    GPASSUD  PASSWORD
    GASC.A RA11FHOUR.                       . PROGRA1I  FILE
    QASG.T/R  RA1IHOUR. , 1 6N , REEL-NO         . HOURLY OUTPUT FILE
    @USE  12,  RAMIIOUU
    0XQT  RA1IFHOUR.GO
    365
     *****  FORMAT DESCRIPTI011  OF  THE HOURLY CONCENTRATION FILE  *****
    
    
    
      EACH  OF  THE RECORDS IS  UNFORMATTED AND FORTRAN  WRITTEN.
    
    HEADER  RECORD
    
      VARIABLE              DESCRIPTION
      1IDAYS                   TOTAL  NUMBER OF DAYS  PROCESSED
      LINE1                   80  CHARACTER TITLE AS  INPUT TO RAI1F
      LINE2                   80  CHARACTER TITLE AS  INPUT TO RAMF
      LINES                   80  CHARACTER TITLE AS  INPUT TO RAMF
    
    RECEPTOR  LOCATION RECORD
    
      VARIABLE                DESCRIPTION
      NRECEP                 NUMBER OF RECEPTORS
      RREC(I),1=1,NRECEP    EAST  COORDINATE OF ALL  RECEPTORS (USER  UNITS)
      SREC(I),1-1,NRECEP    NORTH COORDINATE OF  ALL RECEPTORS(USER  UNITS)
    
    HOURLY  CONCENTRATION RECORDS (ONE FOR EACH HOUR)
    
      VARIABLE               DESCRIPTION
      IDAY1                  JULIAN DAY
      LH                     HOUR
      GRANDS(K),K=1.NRECEP  1-HOUR CONCENTRATION  OF  EACH RECEPTOR
                                (GRAMS/M**3)
    
    NOTE: SCALING  TO MICROGRAMS/M**3 IS DONE WITH  OUTPUT FORMAT.
               DESCRIPTION OF DAILY  OUTPUT FILE
                                             147
    

    -------
    RAHFDAY
         RAHFDAY  IS  AN EXAMPLE PROGRAM  WHICH READS THE DAILY CONCENTRATION
    DISK PRODUCED  BY RAMF OR RAMFR.   IT IS  GIVEN HERE ONLY  AS AN EXAMPLE
    OF HOW THE  DAILY CONCENTRATION DISK FILE CAN BE READ.  THIS WRITE-UP ASSUMES
    THE AVERAGING  TIME TO BE 24 HOURS.  IF A DIFFERENT AVERAGING TIME WERE
    USED ADJUSTMENTS TO THIS PROGRAM  WOULD  BE NECESSARY  SINCE THERE WOULD BE
    A CONCENTRATION  RECORD FOR EACH AVERAGING PERIOD INSTEAD OF FOR EACH
    24-HOUR PERIOD(DAY).
    
    
    *****  PROGRAM LISTING  *****
    
    
    C***READ DAILY CONCENTRATION DISK PRODUCED BY RAMF OR  RAMFR
    C***ASG TAPE  TO  UNIT 13
          DIMENSION  GRANDS(150),RREC(150),SREC(150),LINE1(14),LINE2(14),
         *LINE3(14)
          READ(13) NDAYS,LINE1,LINE2,LINE3
          READ (13) NRECEP,(RREC(I),I = 1,NRECEP),(SREC(J),J = 1,NRECEP)
          WRITE(6,10) LINE1.LINE2.LINE3
    10    FORMAT('1',13A6,A2/1X,13A6,A2/1X,13A6,A2)
          WRITE (6,11) (I,RREC(I),SREC(I),I=1,NRECEP)
    11    FORMAT(//1X,T5,"RECEPTOR LOCAT IONS'/1X,40(I 2,2F10.2/1X))
    C***READ NO.  OF  DAYS TO PRINTOUT
          READ(5,12) IDAY
    12    FORMAT(I 3)
          WRITE(6,13)
    13    FORMATC1" ,T30, "DAILY CONC ENTRAT IONS (11ICROGRAMS /M* *3 ) ' )
    C***R£AD DAILY CONCENTRATIONS
          DO 30 1=1,IDAY
          READ (13,END=99) IDAY1, (GRANDS(K),K = l,MRECEP)
          WRITE(6, 100)  IDAY1 , (GRANDS(K),K=l,NRECEP)
    100   FORMAT(IX,'JULIAN DAY-',15,/1X,4(6P10F11.2/IX))
    30    CONTINUE
    99    CALL  EXIT
          END
    
    
    *****CARD  INPUT TO  RAMFDAY  *****
    
    CARD  1  (13) IDAY
       IDAY  IS  THE NUMBER OF  DAYS  TO  BE READ
     EXAMPLE:
    365
    
    *****EXAMPLE  RUN STREAM*****
    
    QRUN.D/R JOBNA11E, ACCNT-HO/USERID . , PRO J-ID , 1 , 1 0
    0PASSWD  PASSWORD
    |3ASG,A  RAHFDAY,      . PROGRAM  FILE
    @ASC,A  RA1124.        . DAILY  OUTPUT FILE FROM RA11F  OR  RAMFR
    @USE  13.RAM24.
    QXQT  RAMFDAY. CO
    365
    
    
    ***** FORMAT  DESCRIPTION  OF  THE   DAILY CONCENTRATION FILE *****
    
    
      EACH  OF  THE RECORDS IS  UNFORMATTED AND FORTRAN  WRITTEN.
                                             148
    

    -------
    HEADER  RECORD
    
      VARIABLE
      NDAYS
      LINE!
      L IH E 2
      LINE3
    DESCRIPTION
    TOTAL NUMBER  OF  DAYS PROCESSED
    80 CHARACTER  TITLE AS INPUT TO  RAMF
    80 CHARACTER  TITLE AS INPUT TO  RAtlF
    80 CHARACTER  TITLE AS INPUT TO  RAMF
    RECEPTOR  LOCATION RECORD
    
      VARIABLE               DESCRIPTION
      NRECEP
      RREC(I),1=1,NRECEP
      SREC(I),1=1.NRECEP
    NUMBER OF  RECEPTORS
    EAST COORDINATE  OF ALL RECEPTORS(USER UNITS)
    NORTH COORDINATE OF ALL RECEPTORS(USER UNITS)
    DAILY CONCENTRATION RECORDS(ONE  FOR EACH AVERAGING  PERIOD, I.E. DAY)
    
      VARIABLE               DESCRIPTION
      IDAY1                  JULIAN  DAY
      GRANDS(K),K=1.NRECEP  24-HOUR CONCENTRATION AT EACH  RECEPTOR(GRAMS/
                               fl**3)
    
    NOTE: SCALING  TO MICROGRAMS/H**3 IS  DONE WITH OUTPUT FORMAT.
                                      149
    

    -------
                          1.
                                RAMR PROGRAM LISTING
    C***   RURAL BATCH VERSION(78124) OF RAMR
    C***RAM  IS  AN EFFICIENT  GAUSSIAN-PLUME MULTIPLE-SOURCE
    C***AIR  QUALITY ALGORITHM.  RAM  IS DESCRIBED  IN:  NOVAK, J.H.,  A11D
    C***TURNER,D.B.,  1976: AIR  POLLUTION CONTROL ASSOC. J..  VOL.  26.  NO.
    C***PAGES  570-575(JUNE 1976).  RAM'S PRINCIPAL USE IS TO  DEltKMINE
    C***SHORT  TERM(ONE-HOUR  TO  ONE-DAY) CONCENTRATIONS FROM  POINT AND
    C***AREA SOURCES  IN URBAN AREAS.
    C***SEE  RAM GLOSSARY FOR DEFINITIONS OF  VARIABLES.
    C***
    C***           POINT SOURCE  INFORMATION
    C***
                      SOURCES)      I'-EAST CO-ORD(USER UNITS)
                                    2=NORTH CO-ORD(USER UNITS)
                                    3=S02 EMISSION RATE(G/SEC)
                                    4=PART EMISSION RATE(G/SEC)
                                    5=STACK HEIGHT(M)
                                    6=STACK TEMP(K)
                                                                             6,
    C***SOURCE(9,#PT
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***PHAI1E
    C***           AREA
                                    7-STACK  DIAII(M)
                                    8=STACK  VELOCITY(II/S)
                                    9=PARTIAL  CALCULATION OF  BUOYANCY
                          12 CHARACTER PLANT IDENTIFICATION
                        SOURCE  INFORMATION
                                                                      CORKER
                                                                      CORNER
    C***
    c* **
    C***
           COLJiOlI
    C***ASORC(6,#AREA SOURCES)   1=X CO-ORD(USER UNITS), SOUTHWEST
                                  2=Y CO-ORD(USER UNITS), SOUTHWEST
                                  3=302 EMISSION  RATE(G/SEC)
                                  4=PART EMISSION RATE(G/SEC)
                                  5=SIDE LENGTH(USER UNITS)
                                  6=STACK HEICHT(M)
                  /COEFFS/  PXCOF(6,9),PXEXP(6,9),PXUCOF(6,9),PXUEXP(6,9),AXCO
          1F(6,0),AXE XP(6,9),HC 1 ( 1 0 )
          COllHOIJ  /KELC/  CIH(3,200)
          COMI1011  /SOKC/  IA(25,25),SOURCE(9,250),ASORC(6,100) , UNITS , CONTWO , RR
          1EC(150),SREC(150),MPS(25),MAS(10),IOPT(13),I POL,NRECEP,RUIN,RMAX,S
          2IIIH, SMA::, IRSIZn, ISSIZE,HPT,liAS,llSIGP,lISIGA,PIIAHE(2, 250) ,PSAV(250)
          COMMON  /(1ETCOH/  ACI1I(150),PCHI(150),ASIGS(150,11),PSIGS(150,26),IA
          IS ICG ( 1UO ) , IPSIGS (250) , TUKTA, U, KST , I1L, TEMP , SI N'T, COST, BPH(2 ) , IWD , PAR
          2TC(250) , AI1CI11 (150) ,PiICUI(150) .AHSICS (150, 11) , PI1SIGS (150, 26) ,PL(6)
          COMI1UI,  /HEIGHT/  Hi:iT(3) ,HARE(3) ,BPHil(2) ,FH
                  /METDAT/  QTHETA(24),QU(24),IKST(24),QHL(24),QTEMP(24),I DATE
           COMMON
          1(2)
           COMMON
                  /1IC C '.I I')/  !UUli:i,HRMAX,HSjIi:i,llSHAX
           COMilOr; ITYPC ( 1 50) , I CODE ( 150) , IN, 10, NIP, HID , J1AVG
           UinniSIOt; IFRE^(7),  DEC(3),  USAV(250), R1IA:!E(2, 50) ,  1)UMR(24)
          12,24), LII.E1(14),  LIi)E2(14),  LI11C3(14), !;03EL(2),  DSAV(250),
          225),  IMAS(IO),  UUREC(150), USREC(ISO), TITLC(2)
           DATA  IfliEQ /7*0/ ,DEG /90. , 1 80. , 2 70 . / , ICIIAR  /'I'/
           DATA  P L/C. 07, 0.07, 0.10, 0.15,0. 35, 0. 55/
           DATA  I10DEL /'RURAL  ', 'URBAN  '/  .TITLE /' S02   ','  PART '/
           NKECEP=0
           IN = 5
           10 = 6
                                                                            HL1!(
    RMR0010
    RMR0020
    RMR0030
    RMR0040
    RMR0050
    RMR0060
    RMR0070
    RMR0080
    RMR0090
    RMR0100
    RMR0110
    RMR0120
    RMR0130
    RHR0140
    RMR0150
    RMR0160
    RMR0170
    RMR0180
    RMR0190
    RMR0200
    R1IR0210
    RMR0220
    RMR0230
    RMR0240
    RMR0250
    RMR0260
    F.MR0270
    RMR0280
    RMR0290
    RMR0300
    RMR0310
    RMR0320
    RMR0330
    RMR0340
    RMR0350
    RMR0360
    RM1.0370
    RMR0380
    RHR0390
    RMR0400
    RMR0410
    RMR0420
    RMR0430
    RMR0440
    RMR0450
    F,!;U0460
    r.MR0470
    RMJ10480
    r.lll 0490
    P. MI'. 05 00
    iV.IR0510
    ililR0520
    T:ii:i0530
    

    -------
    C***ll ID-DISK OR  TAPE INPUT OF  PREPROCESSED  EMISSION  L/ATA.  LIMITED  TO:
    C**ftl50 RECEPTORS , 250 POH.'T SOURCES AND 100  AREA SOURCES
    C***NIP-i)ISK OUTPUT OF  PARTIAL  CONCENTRATIONS  AT EACH HECEPTOt!
    Cftftft;iiT-DISi; INPUT  OF MET  DATA
                                       OF HOURLY POINT  SOURCE  EMISSIONS
                                       OF I'OUl-.LY AREA SOURCE  EMISSIONS
    CftftftUNIT  15  - TAPE/DISK  INPUT
    Cftftft'JNIT  1 u  - TAPE/DISK  IflPUT
           NIP = I o
    CftftftTIM'.EE
    C ft * ft
    C ft ft ft
    C ft ft ft
    c * **
    C * ft ft
    C ft ft ft
    C ft ft ft
          ME FIRST
           NORMALLY
                     JMS  OF LENGTH AND  COOtll! INAT ES  ARE USED  I!.' RAM:
                     SYSTEM,  USER UNITS, IS  SELECTED I5Y THE USER  AND
                     USE THE  COORDINATE SYSTEM OF  T'lE EMISSION  II.VEtn
                                                                             ORY.
           ALL LOCATIONS  IIIPUT  GY THE USER(SUCH AS  SOURCES A.l'.li  RECEPTORS)
           ARL Hi  THIS  SYSTEM.  ALSO  AS A  CU.'I VE U IE!iC E TO  THE USER ALL
           LOCATIONS 01! OUTPUT  ARE ALSO li!  THIS SYSTEM.
           IE SECOIID SYSTEM,  INTERNAL UEITS, IS USED Ii!TERI!ALLY
           FOR COORD I HATE LOCATIONS  Al.'D DISTAi.'CES.  Ol.'K  IfiTERi'.AL
           SIDE  LE'lCTIl  OP THE  SMALLEST APEA SOURCE  SQUARE.  TiilS
           UE IDENTIFIED  AND  SPECIFIED BY TiiE USER. T'lE  PURPOSE
           IKTERil/.L UrIITS IS  TO HAVE A CORRCS POllDEliCE LETUEEK LOCATION (Cllli)
           COORDINATES) AND  PARTICULAR AREA SOURCE  POSITIONS. THIS IS
           ACCOMPLISHED THROUGH THE  USE OF  THE AREA SOURCE MAP  ARRAY (IA ARCAY
                                                TO ',,'ITHIH WHICH AREA SOURCE  Al.'Y
    r-i J. .'. A
    C ^ rt Jt
    C* ft ft
    C ft ft ft
    c ft ft ft
    C ft ft ft
    c***
    C ft ft ft
    C ft ft*
    C**ft
    C ft ft ft
    Cft ft ft
    Qftftft
    C***UEAI) CAi;l)S  1-3,  IDENTIFICATION FOR
           READ  (IN,940)  LItlEl ,LINE2,LINE3
           WRITE  (10,950) LINE1,LINE2,LINE3
    C***MODL IS  INDICATOR FOR  RURAL  VEKSIO
           MODL=1
           iJRITE  (10,960)
    C***READ RAI10, OUTPUT FROM  DISK  OR TAPE
                                                                        Ill RAM
                                                                        1/IiIT  IS THE
                                                                        LEIICTLi !IUST
                                                                        OF USING
           ). THIS ALLOWS DETERMINATION AS
           COORDINATE  POINT  RESIDES.
           ..E THIRD SYSTEM, X,Y, IS  All UPi.'I
           \;iTi!  REFERENCE TO  EACH RECEPTOR
           (SAME AS UIND DIRECTION  FOR TIIE  PERIOD).
           DISPERSION  PARAMETER VALUES Al.'D  EVALUATE
           CONCENTRATIONS, DISTANCES  IN THIS SYSTEM
                                               •ID,  CROSSVIND  COOFJJIilATE SYSTEM
                                               .  TKE X-AXIS IS  DIRECTED UPUIl-iD
                                                          IN ORDER TO  DETERMINE
                                                          EQUATIONS  FOR
                                                          MUST BE IN  KILOMETERS.
                                                 TITLES.
                                                  DATA IN INTERNAL  UNITS.
           READ  (HID)  UNITS,COMTWO,CONOHE,I POL,HPT,IMPS,PNAME,IMOO
    C***VERSIOtJ  COMPATIBLE  WITH RAtiO. OUTPUT?
           IF  (IMOD.EQ.MODL)  GO TO  10
           WRITE  (10,1000) MODEL (IMOD)^MODEL(MODL)
           CALL  EXIT
    C***CONTINUE READII1C DATA TRANSFERRED  FROM  RAMQ.
    10     DO  20  1=1,9
    20     READ  (NIB)  (SOURCE(I,J),J=l,HPX)
           READ  (KID)  t.'AS, IMAS , R1IIII, RMAX, SMI II, SMAX, IRSIZE.ISSIZE
           DO  30  1=1,6
    30     READ  (HID)  (ASORC(I,J),J=l,NAS)
           DO  40  I-l.IRSIZE
    40     READ  (HID)  (IA(I,J),J-l.ISSIZE)
    C*ft*
    C***READ  CARD 4.
    C*ft*oPTIOH  LIST***(SEE  RUM STREAM EXAIIPLES  OF RAM  FOR DETAILED
    C***DESCRIPTIOH  OF  INPUT VARIABLES).
    C***NAVG  IS  INTERMEDIATE AVERAGING TIME IN  HOURS
    C***HAFL  IS  POLLUTANT HALF-LIFE  IN SECONDS
           READ  (IN,970)  I OPT,MPER,NAVG,Z,HAFL,NSIGP,MSIGA,IDATE,IUSTRT
           WRITE  (10,1030)  (I,lOPT(I),1-1,13)
           TLOS = 6.93-./HAFL
    C***693.  =  0.693*1000 METERS/KM, TLOS  IN METERS/KM-SEC.
           IF  (UAVG.EQ.O) CALL EXIT
    C***READ  SFC MET.  STATION ID AND 2-DIGIT YEAR,
                                                                                        RMR0540
                                                                                        RMR0550
                                                                                        RMP.0560
                                                                                        IMU0570
                                                                                        (IMP 05 80
                                                                                        nrr. 0590
                                                                                        RMR0600
                                                                                        Ri:r 061 0
                                                                                        HMH0630
                                                                                        R-1R0640
                                                                                        RMP.0650
                                                                                        RMR0660
                                                                                        Rt'R0670
                                                                                        U;i]'.06:JO
                                                                                        ;'.MP.0690
                                                                                        RMR0700
                                                                                        P.MI10710
                                                                                        RMRG720
                                                                                        RMR0730
                                                                                        UMR0740
                                                                                        RMR0750
                                                                                        RMR0760
                                                                                        1.MR0770
                                                                                        RMR0780
                                                                                        RMR0790
                                                                                        RMROGOO
                                                                                        SIMR0310
                                                                                        11MR0820
                                                                                        RMROS30
                                                                                        RMP.0840
                                                                                        RMR0050
                                                                                        RMR0660
                                                                                        RIIP.0070
                                                                                        RlikOiJSO
                                                                                        P.MROS'JO
                                                                                        RMR0900
                                                                                        KMR0910
                                                                                        RMR0920
                                                                                        RMR0930
                                                                                        R!iR0940
                                                                                        R MHO 950
                                                                                        RMR0960
                                                                                        RMR0970
                                                                                        RIfROySO
                                                                                        RMR0990
                                                                                        RMR1000
                                                                                        RMR1010
                                                                                        RMR1020
                                                                                        RMR1030
                                                                                        RMR1040
                                                                                        RMK1050
                                                                                        RMR1060
                                                                                        RMR1070
                                                                                        RMR1080
                                                                                        RMR1090
                                                                                        RHR1100
                                                                                        RMR1110
                                                                                        RMR1 120
                                                                                        R11R1130
                                                                                        RMR11AO
                                                                                        RMR1150
                                                 151
    

    -------
    C***MIXING HEIGHT  STATION AND  2-DIGIT YEAR
    C***ONLY  IF MET DATA  IS FROM RAMMET
           IF  (lOPT(ll) .EQ. 1) GO TO  60
    C***READ  CARD TYPE  5  UNLESS USING OPTION  11.
           READ (IN.970)  ISFCD , ISFCYR , IHXD , IMXYR
    C***THE ABOVE FORMAT  IS UNIVACS  FREE FIELD  INPUT.
    C***VARIABLES MUST  BE SEPARATED  BY COMMAS.
    C***THIS  IS SIMILAR TO  IBM'S LIST DIRECTED  10.
    C***CHECK TO INSURE CORRECT SURFACE DATA, MIXING HT.  DATA, AND
    C***PREPROCESSOR ARE  BEING USED.
    C***READ  IDENTIFICATION RECORD  FROM PREPROCESSED MET  DISK OR TAPE  FILE
           READ (NIT) ID, IYEAR, IDM.IYM
           IF  (ISFCD. EQ. ID. AND. ISFCYR. EQ. IYEAR)  GO TO 50
           WRITE (10,980)  ISFCD.ISFCYR, ID, IYEAR
           CALL EXIT
    50     IF  (IMXD. EQ. ID11. AND. IMXYR. EQ. IYM) GO  TO 60
           WRITE (10,990)  IMXL), IMXYR, IDH, IYM
           CALL EXIT
    60     IP=IPOL-2
           WRITE (10,780)  UNITS, CONONE, CONTWO, TITLE (IP) ,IPOL
    C***ECHO  INPUT PARAMETERS
           WRITE (10,790)  1IPER,NAVG,IDATE(2 ) , IDATE(1 ) , IHSTRT , Z , HAFL
           IF  (IOPT (1 1 ) . EQ. 0) WRITE  (10,800)  I SFCD , ISFCYR , IMXD , IMXYR
           WRITE (10,810)
    C***IOPT(1) CONTROL OPTION, POINT SOURCE  INPUT?  0=NO,  1=YES.
    C***IF HO POINT SOURCES, SKIP  DOWN TO AREA  SOURCE  CODE.
           IF  (IOPT (1 ) .EQ. 0) GO TO  150
    C***IOPT(12) CONTROL OPTION,  SPECIFY SIGNIFICANT POINT  SOURCE NUMBERS
    C***0=NO, 1=YES.                 '
           IF  (IOPT (12) .EQ. 0) GO TO  80
    C***READ  CARD TYPE  6 IF USING  OPTIONS 1  AND 12.
    C***READ  THE NUIiBER OF  SIGNIFICANT POINT  SOURCES THAT USER WANTS  TO
    C***SPECIFY AND THE NUMBER DESIGNATIONS  OF  THOSE SOURCES.
           READ (II), 870) IIIPT, (UPS (I ) , I = 1,INPT)
           IF  (INPT.EQ.O)  CO TO 80
           IF  (UPS (IliPT) .EQ. 0) WRITE   (10,380)
           J = I1»PT + 1
    C***ADD  SIGNIFICANT  SOUilCES  DETERMINED FROI1
    C***IF NSIGP GREATER THAN  IIIPT.
           IF  (J.GI.NSICP)  GO TO  100
           DO  70 I=J,HSIGP
           ;iPS (I )=IMPS (K)
    70     K=K+1
           GO  TO 100
    80     DO  90 I=1,NSIGP
    90     ;;PS (i ) = I:IPS (i )
    100    WRITE (10,950) L1NE1 ,LINE2,LINE3
           WRITE (10,1320) ili'I , NSIGP, (HIPS (I ) ,1 = 1
           WRITE (10,1050)
           IF  (IOPT (13) .EQ. 0) GO  TO  120
    C***SAVE  AVERAGE  EUISSIOi'l  RATE
           DO  110 I = l,i;PT
    110    PSAV(i)=souKCE(iroL,i)
    C***W1UTE  OUT  POIiJT  SOURCE  LIST.
    120    DO  130 I = l,:iPT
    C***C01!VERT TO  USEii  UNITLJ  TOR PiUIlT
           C1=SC)URCE(1,I)*UKITS
           C2 = SOURCE(2,I)*UNITS
           WRITE (10,1060)  I , (Pi.'AJ'.i; (L, I )
                                                    SIGNIFICANT SOURCE  LIST
                                                    1,'SICP)
                                                2) ,C1 ,C2, (SOURCC(:C, I )
    130
          COi.'TII.'UE
                                                                                   RMR1160
                                                                                   RMR1170
                                                                                   RMR1180
                                                                                   RMR1190
                                                                                   RMR1200
                                                                                   RMR1210
                                                                                   RMR1220
                                                                                   RMR1230
                                                                                   RMR1240
                                                                                   R1IR1250
                                                                                   RMR1260
                                                                                   RMR1270
                                                                                   RMR1280
                                                                                   RMR1290
                                                                                   RMR1300
                                                                                   R11R1310
                                                                                   RMR1320
                                                                                   RMR1330
                                                                                   RMR1340
                                                                                   RMR1350
                                                                                   RMR1360
                                                                                   RMR1370
                                                                                   RMR1380
                                                                                   r.MIU390
                                                                                   RMR1400
                                                                                   RMR1410
                                                                                   RMR1420
                                                                                   RMR1430
                                                                                   RMR1440
                                                                                   RMR1450
                                                                                   RMR1460
                                                                                   RMR1470
                                                                                   RMR1480
                                                                                   RMR1490
                                                                                   RMR1500
                                                                                   RMR1510
                                                                                   RI1R1520
                                                                                   RIIR1530
                                                                                   RMU1540
                                                                                   RUR1550
                                                                                   R.1P.1560
                                                                                   R11R1570
                                                                                   RLR1580
                                                                                   RHR1590
                                                                                   RMR1600
                                                                                   RI1R1610
                                                                                   Ri,ui620
                                                                                   R1U11630
                                                                                   RIIR1640
                                                                                   RMRIGSO
                                                                                   ll.r.1660
                                                                                   LHR1670
                                                                                   IIII'.IGSO
                                                                                   ;;u'. I6yo
                                                                                   i;lR1700
                                                                                   RMIUIU
                                                                                   KHR1720
                                                                                   Ri:r. 1 730
                                                                                   R:!R 1 740
                                                                                   -U!R1750
                                                                                   lm:U760
                                                                                   r.::R1770
                                              1B2
    

    -------
    C***FILL III  SIGNIFICANT  POINT  SOURCE ARRAY
           DO 14U  I = l,i;SICP
    
    140    IPSIGS(J)=I
    C***IOPT(2)  CONTROL OPTION, AREA SOURCE  INPUT?  0=NO, 1=YES.
    C***IF  NO AREA  SOURCES,  SKIP DOWN TO INPUTTING  RECEPTORS.
    150    IF (IOPT (2) . EiO. U)  GO TO  260
    C***UEAD GAUD  TYPE 7  IF  USING  OPTION 2.
           iLEAO  (I,!, 970) FU, XLi:i,i!l!TS, (UltiT (I ) , 1 = 1 ,NHTS)
    
           IF (i::SP.LE. 0) NliP = l
    C***RLAU CA.ID  TYPE 3  IF  USING  OPTION 2.
           READ  (i;i,'J70) (i;PH(I) , 1 = 1 ,NIiP)
    C***CON VERT  TO  USER UNITS FOR  PRINT OUT.  XLIM  IS  CONVERTED TO KM.
           C l=R."'Ili*UNITS
           C2 = ii:iAX*UNITS
           c3=s;ii:;*u;!iTS
           C4 = S<:AX*U1,ITS
           c5=::Lin
           WRITE  (10,950)  LINK1 ,LINE 2,LINE 3
           XLin = :iLI'!*C01!ONE
           IF ULIll.LT. 1 16. )  CO TO  160
           WRITE  (10,1040)  XL III
           CALL EXIT
    C***IOPT(12)  CONTROL  OPTION, SPECIFY SIGNIFICANT  POINT  SOURCES?  0=110,
    C***  1=YES.
    160    IF (IOPT (12) .EQ.0) GO TO 130
    C***READ THE  IJUHBER OF  SIGNIFICANT AREA  SOURCES THAT USER
    C***i.'ANTS TO  SPECIFY  AND THE NUMBER DESIGNATIONS  OF THOSE  SOURCES.
    C***READ CARD  TYPE 9  IF  USING  OPTIONS  2  AND 12.
           REAR  (IN,870) INAS,(HAS(I),1=1,INAS)
           IF (INAS.EO..O)  CO  TO 180
           IF (HAS(INAS).FQ.0) WRITE  (10,890)
           J=INAS+1
           IF (J.CT.N3IGA)  CO TO  200
           DO 170  I=J,iiSICA
           HAS (I )=i;!AS (K)
    170    1C=IC+1
           GO TO  200
    C***ADD  SIGNIFICANT SOURCES  DETERMINED
    C***IF  NSIGA  GREATER THAN I11AS.
                                                FROM SIGNIFICANT  SOURCE LIST
    130
    190
    200
    
    
    
    DO 190 I=1,NSICA
    I:AS (i ) = niAS(i.)
    WRITE (10,330) N
    WRITE (10,340) N
    WRITE (10,850) (
    WRITE (10,060) F
                           NAS,HSIGA, (III AS (I) , 1 = 1 ,HSIGA)
                           NHTS, (HINT(I),1 = 1,NHTS)
                            (BPH(I ) ,1 = 1,NBP)
                           F11,C5,C1,C2,C3,C4,IR'SIZE,ISSIZE
    C***IF  IA ARRAY  TOO LARGE TO BE  PRINTED  AS A MAP,  PRINTING
           IF (IRSIZE.CT.41)  GO TO  220
    C***PRI11T OUT  AREA SOURCE MAP  ARRAY.
           WRITE  (10,1010)
           JLI11 = ISSIZE + 1
           DO 210 JDUM=1,ISSIZE
           J-JLI11-JDUM
           WRITE  (10,1020)  J,(IA(I,J),1=
                                                                      IS SKIPPED.
    210
                                           1 , IRSIZ E )
    220
           WRITE
           GO TO
           WRITE
                  (10, 1190)
                  230
                  (10,930)
                             (I,1=1.IRSIZE)
    C***WRITE OUT  THE AREA  SOURCE  LIST.
    230    WRITE  (10,1070)
           DO 240 1=1,NAS
                                                                                      KIIR1780
                                                                                      RMR1790
                                                                                      R;IK 1,300
                                                                                      ;i:iRi 8io
                                                                                      RiiRl 320
                                                                                      r.i'i;iS30
                                                                                      JIMR1340
                                                                                      R;:R1850
                                                                                      R1H11860
                                                                                      RHR1870
                                                                                      RliRl 880
                                                                                      R!iulG90
                                                                                      ?.::R-i900
                                                                                      :ii:R1910
                                                                                      1UIR1 920
                                                                                      RMR1940
                                                                                      RJK1950
                                                                                      R:!R1960
    r,!!R1990
    R1IR2000
    R1IR2010
    RtiK2020
    RI1R2030
    RI1R2040
    R11R2050
    R MR 20 60
    RI1R2070
    P.MR2030
    RMR2090
    RKR2100
    RMR2 1 10
    RMR2120
    &IR2130
    RMR2140
    RMR2150
    R1IR2160
    RMR2170
    RMR2130
    R MR 2 190
    RMR2200
    RMR2210
    RMR2220
    RMR2230
    RMR2240
    RMR2250
    RMR2260
    RMR2270
    RMR22SO
    RMR2290
    RMR2300
    RMR2310
    RMR2320
    RMR2330-
    RMR2340
    RMR2350
    RUR2360
    RMR237CT
    RMR2330
    RMR2390
                                               153
    

    -------
    C***CONVERT TO USER UNITS  FOR PRINT Olii
          C1=ASORC(1 , I)*UNITS
          C2=ASORC(2,I)*UNITS
          C3=ASORC(5,I)*UNITS
          WRITE (10,1030)  I,C1,C2,(ASORC(K,I),K-3,4),C3,ASORC(6,I)
    C***SIDE  LENGTH IS MULTIPLIED BY . 5 TO  SAVE TIME IN LATER COMPUTATIONS
          ASORC(5,I)=ASORC(5,I)*0.5
          IASIGS(I)-0
    240   COtiTINUE
    C***FILL  IN SIGNIFICANT  AREA SOURCE MARKER ARRAY
          DO  250 I=1,NSIGA
          J=11AS(I)
    250   IASIGS(J)-I
    C***INPUT  PERMANENT RECEPTORS
    C***IOPT(3) CONTROL OPTION,  SPECIFIED RECEPTORS?  0 = HO,  1  = YES.
    260   IF  (IOPT (3) .EQ. 0)  GO TO 300
    270   NRECEP=NRECEP+1
          IF  (NRCCEP.GT. 150) GO  TO 230
    C***READ  COORDINATES  IN  USER UNITS
    C***ATTEHTION USER: DON'T  SPECIFY A RECEPTOR AT ORIGIN  AS A  BLANK CARD
    C***IS USED TO INDICATE  ALL  RECEPTORS HAVE BEEN READ.
    C***READ  CARD TYPE  10  IF USING OPTION 3.
          READ  (IN, 1090)  (RNA11E ( J , HREC EP ) , J = l , 2 ) , RREC (II REG EP ) , SREC (HRECEP )
    C***BLA.HU CARD OR RECEPTOR AT ORIGIN  SIGNALS ALL PERMANENT  RECEPTORS
    C***HAVE  BECK ENTERED.
          IF  (RRi;C(HRECEP )+SREC (NRECEP ) .LE. 0. 001 )  GO TO 280
          GO  TO 270
    280   NKECEP=NRECEP-1
    C***GAVE  NUUDLR OF PERMANENT RECEPTORS
          1IPREC=URECEP
    C***PRH:T  OUT TABLE OF PF.RMANKNT RECEPTORS***
          I.'RITE (10,950)  LINE1 ,LINC2,LINE3
          URITE (10,1100)
    C***T1IE CHARACTER "I"  INDICATES THAT  THESE RECEPTORS 1,'ERE INPUT INTO
    C***THE MODEL.
          DO  290 )r. = l .1IRECEP
          ITYPE (::)=! CHAR
          I/l'.ITE (10,1110)  iC., ITYPn
    C***CO;IVI:RT TO INTERNAL  UNITS
          I.REC (r. )=u:ir.c(K) /UNITS
          SREC (i:)=SREC (II) /UNITS
    2'ju   icoi);: (r.)=o
    C***IF NEITHER roii.'T  on
    300   IF  ( (IOPT (1 ) + IOPT
          '..'RITE (10,1120)
          CALL  EXIT
    310   IDAY=IJATE (2 )-l
    C***IUPT(11) CONTROL  OPTION, INPUT  MET  DATA
          IF  ( I JAY. Li;. O.OR. IOPT ( 1 1 ) .i::j. 1 ) CU  TO
    c***PosiTiot: ::LT FILE  TO CORRECT POSITION
          DO  320 I =1,1 DAY
    320   READ  (HIT) JYK
    C***IOPT (0 ) CONTROL OPTION,  FILL IN HONLYCO
                                      , (K.NAML(J,r.) , J = l , 2) , RRL'C(K) , SRCC(U)
                             AREA  SOURCES WERE  SPECIFIED, EXI:
                             (2.) ) .NE. 0) CO TO  310
                                                                 PROGRAM.
                                          Ot! CARDS?
                                          330
                                                               0"=IiO,  1=YE[
                                                     RECEPTORS?  0=;iO, 1=YES.
    C'-»•'= OF
     ( luPT (6 ) . Lii. 0)  GO  TO 36U
     i:,  SPACING BETWEEN HONEYCOMB 11LCEPTORS AND VARIABLE HONEYCOMB
     DG'JNDAUICS IN  USER UNITS.
     CAN INPUT ZERO  HERE FOR 30UUDAUIES  IF KE WANTS  THE BOUNDARIES
    li: AREA SOURCE  RECIOii TO DEFINE  THE  AREA COVERED  LY HONEYCOMB
    
          :YPE 11
          ,970) G
          I  '   )  ]
          Oi-it j.Ul>.iJ«
          ,AD  CARD  TYPE 11  IF  USING OTTION  6.
          READ  (it., 97u) GRiDsr,UR;ii:i,i;;i;iAX, iisi:iN,us;[AX
          ir  (:;I.:;A;;.;:E. o.o) GO  TO 340
    RMR2400
    RMR2410
    RMR2420
    RHR2430
    RIIR2446
    RMR2450
    R1IR2460
    RMR2470
    RMR2480
    RMR2490
    RMR2500
    RMR2510-
    RMR2520"
    R11R2530
    RMR2540
    RMR2550
    RMR 2560
    RHR2570
    RMR2530
    RMR2590
    RMR2600
    RHR2610
    RMR262D
    RMR2630
    RHR2640
    RMR2650
    RMR2660
    RMR2670
    RMR2680
    RMR2690
    RUR2700
    RMR2710
    EMR2720
    RI.R2730
    RrR2740
    UMP2750
    RMR2700
    RMR2770
    RMR2730
    RMK2790
    RHU280U
    RMR2810
    RHR2820
    RMR2330
    R11R2840
    R:iR2850
    kill! 2860
    RLR2C70
    RMR2S80
    RMU2390
    RMR29UO
    RMR2910
    RMU2920
    ii:iR2930
    RilR2940
    RMR2950
    RIIR2960
    :;:;R2370
    !.,!?. 2 9 CO
    i'.ilK2'J9u
                                             154
    

    -------
    C***RMIN,RMAX,SMIN,SHAX ARE IN  INTERNAL  UNITS
           HRMIll-RMIN
           i!RMAX=RMAX
           HS1IIN = SHIN
           HSMAX=SHAX
           GO TO  350
    C***CONVERT  INPUT  GRID BOUNDARIES(USER UNITS) TO  INTERNAL UNITS
    340    HRHIN-HRHIN/UHITS
           URMAX=HR1IAX/U1IITS
           11 SMIN=H SHIN/UWITS
           HSMAX=HSMAX/UNITS
    C***CONVERT  GRIDSP  FR011 USER UHITS  TO INTERNAL  UNITS.
    350    GRIDSP=GRIDSP/UHITS
    C***INITIALIZATION
    360    IDAY=IDAY+1
           N1IRS = 0
           IF (lOPT(ll).EQ.1) GO TO  400
    C***INPUT NET DATA  FOR EACH DAY  FROII DISK CREATED BY  RAIIHET, IOPT (1 ! ) =0
           READ  (NIT)  JYR, 1110, DAY 1, IKST , QU , QTE11P , DU1IR, QTHETA , 1ILII
           IF (JYR.NE.IDATE(l))  GO TO 370
           IDATE(2)=DAY1
           IF (IDATE(2).EQ.IDAY) GO  TO  380
    C***DATE ON  11ET TAPE DOES  NOT HATCH INTERNAL DATE
    370    UUITE  (10,740) JYR,IDATE(2),IDATE(1),IDAY
           CALL EXIT
    C***1!ODIFY WIND VECTOR BY  180 DECREES.  SINCE FLOU VECTORS WERE OUTPUT
    C***FHOM RA11I1ET,  THIS CONVERTS  BACK TO WIND DIRECTIONS.
    380    DO 390  IQ=1,24
           IF (IKST(lq) . EQ. 7) IlCST(lg) = 6
           QTHETA(IQ)=QTHETA(IQ)+180.
           IF (QTUETA(IQ).CT.360.) QTHETA(IQ)=QTHETA(IQ)-360.
    C***RURAL lilXIlIC  HEIGHTS ARE USED  FOR THIS APPLICATIOi!
    390
    400
    
    
    
    
    410
    
    
    
    
    
    U,HL(IQ)=11LH(1 ,IQ)
    I;B=IHSTRT
    NE=tIB+NAVG
    IF (ilB.GT.
    WRITE (10,
    CALL EXIT
    WRITE (10,
    U=0. 0
    TE:IP=O. o
    DELI! = 0. 0
    DEL;I=O. o
    DO 420 1=1
    
    -i
    0) GO TO 410
    750) IliSTUT
    
    950) LINE1 .LIIJE2, LINES
    
    
    
    
    ,7
    420    IFIIE^(I)=0.0
    C***EACIl AVERAGING  PERIOD,  THE IIU1IBEK OF
    C***;iUlhiER  OF PERMANENT RECEPTORS.
           :iRECEP = HPREC
           DO 440 I=t,'B,HE
           JI:R = I
           IF (IOPT(11).EQ.0)  CO TO 430
    C***READ ;;ET DATA  FRUU CARDS '.:IT:.  FREL  FO
    C***RLAD GAUD TYPE  12 II"  USING OPTION 11
                                                   . EC EFT OPS IS  r. ESI',
                           JYR.DAYI , Jin., II:GT (Ji:;i)
    430
     READ  (IN,970)
    1 ) , JjiiL (JKK)
     IF   (I.liE.iiB)  GO
     IDATE (1)=JYR
     IilSTRT = Jl!R
     ISTDAY=tAY1
     IDATE (2 ) = IST'JAY
     ir (i. ::Q.I;S)  ;.rr,i'
     TIlAD=gTHLTA( JFR) *0. 0 174532V
                                                     ,AT
                                                     Jill,  ilEDEFIMCIj FFUjl
                                                     , gU ( JILR) ,UTE IT ( JHR) .
                                                                           MET
                                                                           OTII
    CAr.D .
    ETA( JIIK
                              0  430
                                (10,1130)  IDATE
    RI1R3020
    RMR3030
    RMR3040
    RMR3050
    RHR 3060
    RI1R3070
    R11R3080
    RUR3090
    R1IR3100
    RI1R3110
    RMR3120
    RMR3130
    R1IR3140
    R11R3150
    R11R3160
    R1IR3170
    RJIR3180
    RHR3190
    R11R3200
    RMR3210
    RI1R3220
    R;iR3230
    RMR3240
    RIIR3250
    R1IR3160
    R11R3270
    R11R3280
    EUR 3290
    RI1R3300
    R11R3310
    R11K3320
    RMR3330
    RI1R3340
    R11R3350
    li:iR3360
    R111133 70
        3300
        3390
        3400
    "•:. 11134 10
    i::1ii3420
    K.-iR3430
    RI1R3440
    R'!R3450
    
    i::i!l 3470
    ;>:iR3480
    RltR34'JO
    ::;iR3500
    ;.;n,35iu
    11I1R3520
    
    r,i,R3540
    R:iR3550
    li;'K3560
    P.I-R3570
                                                                                        I! ill
                                                155
    

    -------
           IF(Ii;ST(JiUl) .EC,. 7)  IKST(JilR)=fa
           './RITE  (10,1140)  JUR, qTIIETA(Jllll) , QU (JUR) ,y!!L(JHP, ) , OTEMP (JUR) , I;;
          111 II)
    
    
    C***CALCLLATE UINJ  C OMPOii !','!T S
    
           UP.=ULES*SI;:";
           Vll=UuEG*COGT
                             (JUR)
                                                                                         RHR3640
                                                                                   ST(J
           ;)EH:=D;:L:I+VR
           TE!;F=T!:rr+gT
           U=U+URES
    440    IFRL'Q (i'.ST) =IFREQ (KGT ) + l
    C***REI/EFIi:E !T,  /MID HE  IN CAGE  .'ION-CONGE
           IT(IOPT(11).LQ.O)  GO TO  441
           ;n; = ii!STr.T
           IIE = I!iSTRT+nAVG-l
    C***CALCULATE REGULTAHT   Wll'i)  DIRECTION TI1ETA
    441    DELII=DI:LI;/:IAVG
                                                      IVE IJAYG AKE  ECH;C  uui;
                                                                                         R11R3660
                                                                                         pi;r.3G70
                                                                                         R.1R3530
           T;iETA=ANCARC(DEL!l,DELiI)
    C***CALCULA.TE AVERAGE  AtU) RESULTAliT  SPEED
           U=U/NAVG
           TLl'.r=TEl!P/t;AVG
           UREE = S()RT (DELH*DELiI+DLLi;*])ELll)
           PERSIS=URES/U
    C***DETE.UiINE 'IODAL AND  AVERAGE GTAP.ILITY
           LS!1AX = 0
           DO  450 1=1,7
    
           IF  (LST.LE.LSJIAX)  GO TO  450
           LS!1AX=LST
           LGTAii = I
    450    CONTINUE
           IP1=LSTAB+1
           UST=LGTAE
           DO  460 I=IP1,7
           IF  (LGI1AX.EQ.IFREQ (I) ) CO TO  470
    460    CONTINUE
           GO  TO 490
    C***IF TIE  FOR 1IAX MODAL STABILITY  CALCULATE AVERAGE  STABILITY
    470    KSU!I = 0
           DO  480 J=l,7
    
           KST = FLOAT(KSU11) /FLOAT (HAVG) + 0. 5
    C***QUTPUT  RESULTANT MET CONDITIONS***
    490    WRITE (10,1150)
           WRITE (10,1160)  THETA,URES,U,TEMP,PERSIS,KST
           TRAD=THETA*0.01745329
           SINT = S III (TRAD)
           COST=COS(TRAD)
    C***DETERUIHE RECEPTORS  ACCORDING  TO SIGNIFICANT  SOURCES
    C***IQPT(4)  CONTROL OPTION,  SIGNIFICANT  POINT  RECEPTORS?    0=110,  1=YES.
    C***IOPT(5)  CONTROL OPTION,  SIGNIFICANT  AREA RECEPTORS?     0=HO,  1=YES.
           IF  ((IOPT (4)+IOPT(5)).EQ.0)  GO TO  500
           CALL  JtlllREC
    C***FILL  IN RECEPTORS  WITH HONEYCOMB ARRAY
    C***IOPT(6) C011TROL OPTION,  FILL IN HONEYCOMB RECEPTORS? 0  = HO,  1  = YES
    500    IF  (IOPT(6).EQ.0)  GO TO  510
           C1=HRHIN*UNITS
    !:;iR3720
    U'IK 3 7 30
    1*11,13740
    III.R3 7 50
    R:.R3760
    P.:il*.3770
    \..113730
    :,;;R3790
    Ri;R3300
    RHP, 3310
    R11R3820
    RIiR3o30
    RLR3340
    R'iR3350
    RMH3860
    R11R3370
    RHR3C30
    RHR3890
    RHR3900
    Rf;il3910
    RIIU3920
    R:iR3930
                                                                                        R1IR3950
                                                                                        R1IR3960
                                                                                        RF1R3970
                                                                                        RIIR3980
                                                                                        RHR3990
                                                                                        RIIR4000
                                                                                        P.MR4010
                                                                                        RHR4020
                                                                                        R1IR4030
                                                                                        RNR4040
                                                                                        R11R4050
                                                                                        R11R4060
                                                                                        RMR4070
                                                                                        R1IR4080
                                                                                        R1IR4090
                                                                                        [II1R4100
                                                                                        P.I1R4110
                                                                                        R1IR4120
                                                                                        P.:iR4130
                                                                                        RHR4140
                                                                                        RUR4150
                                                                                        R11K4160
                                                                                        R11R4170
                                                                                        R1IR4180
                                                                                        RMR4190
                                                                                        RUR4200
                                                                                        R11R4210
                                                                                        R1IR4220
                                                                                        RIIR4230
                                                                                        RIIR4240
                                                                                        RMR4250
                                                 156
    

    -------
    C1,C2,C3,C4,C5
           C2 = URtlAX*Ui:iTS
           C3=HS;iir;*'jniTS
           C4=HSltAX*UUITS
           C5=CRIDSP*U!1ITS
           WRITE  (10,1170)
           CALL JJIUHOLi (GRIDSP)
    510    IF GUinCEP.IIE. 0) GO  TO 520
           WRITE  (10,1180)
           CALL L;;IT
    C***IilITIALI2E COUCEHTRATI01I SUliS
    C***IF  SIGNIFICANT OR II01JE YCOMB RECEPTORS, UUITC CAUTIOUIliG STATEMENT.
    520    IF ((IUPT(4)+IUPT(5)+IOPT(6)).GT.O)  WRITE (10,900)
    C***IUITIALIZE FOR AVERAGING TItlE
           DO 550 R=1,NRECEP
           ACHI(K)=0.0
           PC III (K)=0 . 0
           DO 530 1=1,11
    530    ASICS(K,I)=0.0
           DO 540 1=1,26
    540    I'SIGS (1C, I )=0. 0
    550    COlITIliUE
    C***IF  SAVIliG  PARTIAL CONCENTRATIONS, WRITE  110S . OF  RECEPTORS    SOURCES.
           IF (IOPT(3).EQ.0)  GO  TO 570
           DO 560 I = 1,IJRECEP
           URREC (I ) =RREC (I ) *U1IITS
           USl'.EC (I )=SREC(I )*UtiITS
    560    CONTINUE
           V'RITE  (NIP) liRECEP.IJAS.UPT, (UUREC(I ) ,1=1 .NRECEP) , (USREC(I ) ,1 = 1 ,MRE
          1CEP)
    C* **
    C***LOOP ON  HOURS
    C***
    570    UO 700 ILH=NU,KE
           LH=1LH
           IF (LH.LE.24) GO TO  580
           LH=fiOD(ILH, 24)
           IF (Lll.EQ.l) IDATE(2)=DAY1
    C***INITIALI2E HOURLY ARRAYS
    580    DO 610 K = l,:iRECEP
           AHCUI(K)=0.0
           PHCHI(K)=0.0
           DO 590 1-1,11
    590    AUSIGS(K,I)=0.0
           DO 600 1=1,26
    600    PHSIGS(K,I)-0.0
    610    CONTINUE
    C***SET MET  CONDITIONS FOR  THIS HOUR***
           THETA=QTI1ETA(LH)
           U-QU(LH)
           HL-QHL(LH)
           TEMP-QTEIIP (L1I)
           KST=IKST(LH)
    C***DETERMINE  WIND DIRECTION CONTROL, IWD,  90 DEG. QUADRANT  Of  WIND
    C***
           DO 620 1=1,3
           IF (THETA.LE.DEG(I))  GO TO  630
    620    CONTINUE
           1=4
    630    IHD=I
           TRAD=THETA*0.01745329
           SINT=«SIH(TRAD)
           COST-COS(TRAD)
    R1IK4260
    RIIR4270
    R!1R4230
    RMR4290
    RI1R4300
    RHR4310
    RMR4320
    RMR4330
    RliR434Q
    R1IR4350
    RMR4360
    RMR4370
    RMR:4380
    R11R4390
    RI1R4400
    RHR4410
    R11R4420
    RUR4430
    RMR4440
    RI1R4450
    RMR4460
    RMP.4470
    RUR4480
    RIIU4490
    RMR4500
    RUR4510
    RIIR4520
    R1IR4530
    RIIR4540
    RMR4550
    RHR4560
    RI1R4570
    RMR4580
    RMR4590
    R^IIRACOO
    RMR4610
    RMR4620
    RMR4630
    RMR4640'
    R11R4650
    RMR4660
    RMR4670
    RMR4680
    R11R4690
    RMR4700
    RMR4710
    RMR4720
    RMR4730
    RMR4740
    RMR4750
    RMR4760
    RNR4770
    RMR4780
    RMR4790
    RHR4800
    RMR481CT
    RMR4820
    RMR4830
    RMR4840.
    RMR4ff5»-
    RMR4860
    RMR4870
                      157
    

    -------
    C***CKECR  FOR POINT  SOURCES
           ir  (IOPT(I ) .NE. i)  GO TO 650
    C***IOPT(13) COiiTROL  OPTION, HOURLY  EMISSIONS  INPUT?  0=110,  1=YES
           IF  (IOPT (13) .EQ. 0) GO TO 640
           IDCK=IDATE(1 ) *100000+IDATE(2) *100+Lli
    C***READ  HOURLY POINT  SOURCE RECORD
           KEAD  (15) IDATi', (SOURCE(IPOL, I) ,1 = 1 ,tlPT)
    C***CHhCK  DATE
           IF  (IDCK. EQ. IDATP ) CO TO 640
           WRITE (10,910)  IDCK, IDATP
           CALL  EXIT
    C***CALCULATE POIUT  SOURCE CONTRIBUTIONS
    640    CALL  JKIIPTR  (II SAV , D S AV , Z , TLO S , Lll )
    C***ChECK  FOR AREA  SOURCES
    650    IF  (IOPT(2).NE.l)  GO TO 690
    C***10PT (1 3) COiiTROL  OPTIOtJ, HOURLY  EMISSION INPUT?  0 = 110,  1=YES
           IF  (IOPT ( 13) .Eg. 0) CO TO 630
           IDCK=IDATE(1 ) *100000+IDATE(2 )*100+LH
    C***1(EAD  HOURLY AREA  SOURCE EMISSION  RECORD
           READ  (16) IDATA, (ASORC(IPOL, I) ,1=1 ,NAS)
    C***CHECK  DATE
           IF  ( IDCK. Lg. IDATA) GO TO 660
           WRITE (10,920)  IDCK, IDATA
           CALL  EXIT
    C***CONVERr HOURLY  AREA  CIIISS10NS  FROII G/SEC TO  G/SQ. tl/SEC
    660    DO  670 1=1, HAS
    C***CONVERT SIDE  LENGTH  TO HETERS.
    C***NOTE:  SIDE LENGTH  HAD BEEN MULTIPLIED BY .5  ABOVE FOR  TIME
    C* ** COM SI DERATIONS
           SF=ASORC(5,I) *2000*CONTUO
    670    ASORC(IPOL, I)=ASOUC (I POL, I ) / (SF*SF)
    C***SET UP  INTEGRATION  TABLES FOR  AREA SOURCE  CALCULATIONS***
    680    CALL  JM1154R  (tJ HT S , Z , XL IM , TLOS )
    C***CALCULATE AREA  SOURCE CONTRIBUTIONS
           CALL  JMUARE  (NUT S , XL 111 , L H )
    C***OUTPUT  RESULTS  EACH  HOUR
    C***IOPT(7) CONTROL  OPTION, HOURLY  OUTPUT? 0 = NO,  1  = YES.
    690    IF  (IOPT (7 ) .EQ. 0)  GO TO 700
           CALL  JilHOUR  (LH,LINE1,LINE2,LINE3)
    700    CONTINUE
           IF(NE.GT.24)  IDATE ( 2 ) =1 STDAY
    C***OUTPUT  FINAL  RESULTS
           CALL  JMHFIH  (NB , L INE 1 , L INE 2 , L INE 3 )
           NP=HP+1
    710
          IF(NP.GE.HPER)  GO  TO 720
          IF(NHRS.GE.24)  GO  TO 360
          HB=NB+NAVG
          NE=NE+HAVG
          IF(NB.LE.24) GO TO 410
          NB=MOD(NB,24)
          HE=NB+HAVG-1
          GO  TO 410
    C***IOPT(8) CONTROL OPTION, SOURCE  CONTRIBUTIONS  TO DISK? 0=NO,  1=YES.
    720   IF  (IOPT(8).EQ.O)  GO TO  730
          END FILE NIP
          END FILE NIP
          CALL-EXIT
    730
    C
    740
    
    750
           FORMAT (' DATE  ON MET. TAPE,  ',12,13,'  .DOES HOT MATCH  INTERNAL DA
          1TE,  ',12,13)
           FORMAT (' HOUR  ',13,' IS NOT  PERMITTED.  HOURS MUST BE DEFINED BETW
    RUR4030
    IUIR4890
    RMR4900
    l'.:;R4910
    RIIR4920
    RMR4930
    RMF.4940
    RMR4950
    R:iR4960
    RMR4970
    RUR^'930
    RUR4990
    RMR5000
    RMR5010
    RMR5020
    RMR5030
    RMR5040
    RMR5050
    RMR5060
    RMR5070
    RMR5030
    RHR5090
    RMU5-100
    KMR5110
    RMR5120
    RMR5130
    RMR5140
    RMR5150
    RMR5160
    RMR5170
    RMR5180
    RMR5190
    RMR5200
    RMR5210
    RUR5220
    RMR 5230
    RMR5240
    RMR5250
    RMR5260
    RMR5270
    RMR5280
    RMR5290
    RMR5300
    RMR5310
    RMR5320
    RMR5330
    RMR5340
    RMR5350
    RMR5360
    RMR5370
    RMR5380
    RMR5390
    RMR5400
    RMR5410
    RMR5420
    RMR5430
    RMR5440
    RMR5450
    RMR5460
    RMR5470
    RMR5480
    RMR5
                                              158
    

    -------
         1EEN  1 AND  24')                                                       RMR5500
    780   FORMAT  (IX,T21,'GENERAL INFORMATION FROM RAMQ'//2X,'UNITS - THERE  RHR5510
         1ARE',F14.7,'  USER UNITS(INPUT  UNITS) PER SMALLEST AREA  SOURCE SQUA RMR5520
         2RE SIDE  LENGTH (INTERNAL UNIT)'/2X,'CONONE - THERE  ARE',F14.7,' KI RMR5530
         3LOMETERS  PER  USER UNIT'/2X,'CONTWO - IT IS CALCULATED THAT THERE A RMR5540
         4RE',F14.7,' KILOMETERS  PER  SMALLEST AREA SOURCE SQUARE  SIDE LENGTH RMR5550
         5 (INTERNAL UNIT)'/2X,'THIS  RUN' IS  FOR ',A6,'SINCE IPOL-',I 2//1X)   RMR5560
    790   FORMAT  (IX,T21,'GENERAL INPUT  DATA'//2X,'NUMBER OF  PERIODS TO 'BE S RMR5570
         IIMULATED(NPER)-  ',I3/2X,'AVERAGING TIME IN HOURS FOR EACH PERIOD(N RMR55?H
         2AVG)» '.I5/2X,'STARTING DATE(IDATE(2),IDATE(1),IHSTRT):  JULIAN  DAY RMR5590
         3 ',14,',  YEAR 19',12,'  HOUR-  ',12/2X,'RECEPTOR HEIGHT FOR ALL RECE RMR5600
         4PTORS(Z)  '.F6.3,' METERS'/2X,'ASSUMED POLLUTANT HALF-LIFE(HAFL) ', RMR5610
         5F10.2,'  SECONDS')                                                    RMR5620
    800   FORMAT  (2X,'SURFACE MET DATA  FROM  STATION (ISFCD) ',16,',  YEAR(ISFC RMR5630
         1YR)  19'.I2/2X,'MIXING HEIGHT  DATA  FROM  STATION(IMXD) ',16,',  YEAR( RMR5640
         2IMXYR)  19',12)                                                       RMR5650
    810   FORMAT  (//1X)                                                        RMR5660
    820   FORMAT  ('0',T21,'POINT  SOURCE  INFORMATION'//2X,'EMISSION  IHFORMATI RMR5670
         ION FOR  ',14,' (HPT) POINT SOURCES  HAS BEEN DETERMINED BY  RAMQ'/2X, RMR5680
         212,' SIGNIFICANT  POINT  SOURCES (NSIGP) ARE TO BE USED FOR  THIS RUN' RMR569C
         3/2X,'TUE  ORDER OF SIGNIFICANCE(IMPS) FOR 25 OR LESS POINT SOURCES  RMR5700
         4DETERMINED BY RAMQ IS LISTED  BY  POINT SOURCE NUMBER:'/2X,2515)      RMR5710
    830   FORMAT  (//1X,T21,'AREA  SOURCE  INFORMATION'//2X,'EMISSIOH  IHFORMATI RMR5720
         ION FOR  ',14,' (MAS) AREA SOURCES  HAS BEEN DETERMINED BY  RAMQ.'/2X,I RMR5730
         22,'  SIGNIFICANT AREA SOURCES(NSIGA) ARE TO BE USED  FOR  THIS RUH'/2 RMR5740
         3X,'  TUE  ORDER OF  SICNIFICANCE(IMAS) FOR 10 OR LESS  AREA  SOURCES D RMR5750
         4ETERMIHED  BY  RAMQ IS LISTED  BY   AREA SOURCE NUMBER:'/2X,1015)      RMR5760
    840   FORMAT  (2X,'NUMBER OF AREA  HEIGHT  CLASSES(NUTS)-',12/2X,'REPRESENT RMR5770
         1ATIVE AREA SOURCE HEIGHTS FOR  EACH HEIGHT CLASS(HINT) IN  METERS=', RMR5780
         23F10.2)                                                               RMR5790
    850   FORMAT  (2X,'BREAK POINT HEIGHT  BETWEEN  THE AREA HEIGHT  CLASSES(BPU RMR5800
         1) IN METERS=',2F10.2)                                                RMR5810
    860   FORMAT  (2X,'FRACTION OF AREA  SOURCE HEIGHT WHICH IS PHYSICAL  HEIGH RMR5820
         IT(FH)=',F10.3/2X,'LIMIT OF  DISTANCE FOR AREA SOURCE I1ITLCRATION TA RMR5830
         2BLES(XLIM) IN USER UNITS =',F10.3/2X,'BOUNDARIES OF THE  AREA  SOURC RMR5840
         3E GRID  II)  USER UN ITS:'/1X,T6,'RMIN=',F10.3,5X,'RUAX=',F10.3,5X,'SM RMR5850
         4IN=',F]0.3,5X,'SMAX=',F10.3/2X,'SIZE(IRSIZE X ISSIZE) OF  AREA SOUR RMR5860
         5CE MAP ARRAY(IA)  IM INTERNAL  UNITS =',13,' EAST-WEST BY  ',13,'  NOR RMR5870
         6T11-SOUTH'//1X)                                                       RMR5800
    870   FORMAT  (2613)                                                        RMR5890
    880   FORMAT  ('  ***ERROR I1J SPECIFYING  SIGNIF. POINT SOURCES***')        RMR5900
    890   FORMAT  ('  ***ERROR IN SPECIFYING  SIGHIF. AREA SOURCES***')         RMR5910
    900   FORMAT  ('  ***PLEASE 1JOTE: THE  RECEPTOR  NUMBERS AND  LOCATIONS  GE1JER RMR5920
         1ATED FOR  THIS AVERAGING TIME  PERIOD ARE DIFFERENT FROM  THOSE  GEIJER RMR5930
         2ATED FOR'/18X,' TUE PRECEEDINC  AVERAGING PERIOD.***')               RMR5940
    910   FORMAT  ('  DATE BEItSG PROCESSED  IS= ' , 18 /1X, ' DATE OF HOURLY POINT E RMR5950
         1MISSI01I  RECORD IS =',18/1X,'***PLEASE CHECK EMISSION RECORDS***')  RMR5960
    920   FORMAT  ('  DATE BEING PROCESSED  15= ',I8/1X,'DATE OF HOURLY AREA EM RMR5970
         1ISSIOIJ RECORD IS  = ' , I 8 / 1 X, ' ***PLE ASE CHECK EMISSION RECORDS***')   RMR5-980
    930   FORMAT  ('  AREA ARRAY IS TOO  HIDE  FOR PAGE SIZE, THEREFORE WILL  HOT RMR5990
         1 BE  PRINTED.')                                                       RMR6000
    940   FORMAT  (13A6,A2/13A6,A2/13A6,A2)                                     RMU6010
    950   FORMAT  ('1',13A6,A2/1X,13A6,A2/IX,13A6,A2)                          1U1R6020
    960   FORMAT('OTHIS IS  THE NORMAL  RURAL  VERSION(78124) OF RAMR  FOR  APPLI RKR6030
         1CATI01I TU  ONE OR  SEVERAL DAYS  DATA.'/IX)                            I1MU6040
    970   FORMAT  ()                                                     .        RI1R6050
    980   FORMAT  ('  SURFACE DATA  IDLNTIFERS  READ  INTO MODEL (STATION=' ,I 5,'  RMR6060
         i,YEAR=',12,') DO  NOT AGREE  I/ITH  THE PREPROCESSOR OUTPUT  FILE',/IX, RHR6070
         2' (STATION'',15,' ,YEAR=',I2)                                        PMK60SO
    990   FORMAT <'  MIXING  HEIGHT IDENTIFERS READ IMTO MODEL  ( STATI01!= ' , I 5 , ' RIIR6090
         1 ,YCAR=',12,') DO HOT ACHEE  WITH  THE PREPROCESSOR OUTPUT  FILE',/1X RMK6100
         2,'  (STATION=',15,' ,YEAR=',I2)                                       r.l!R6110
                                            159
    

    -------
    1000
    
    ,1010
    1020
    1030
    1040
    1050
    1060
    1070
    1080
    1090
    1100
    1110
    1120
    1130
    1140
    1150
    1160
    1170
    1180
    1190
    C
     FORMAT  ('  ***  THE  ',A6,'VERSION OT THE PREPROCESSOR  CAN  NOT BE USE
    ID WITH  THE  ',A6,'VERSION OF THE MODEL***')
     FORMAT  ('0',13X,'AREA SOURCE MAP ARRAY(IA)'/1X)
     FORMAT  (1X,I3,2X,41I3/1X)
     FORMAT  (IX,T3,'OPTION  ',T16,'OPTION LIST',T46,'OPTION SPECIFICATI
    ION : 0- IGNORE OPTION'/1X,T68,' 1- USE OPTION'/IX,T7,12,T16,'POINT
    2 SOURCE DATA',T51.I1/1X,T7,12,T16,'AREA SOURCE  DATA',T51,I1/1X,T7,
    312,T16,'PERMANENT  RECEPTORS',T51,11/1X.T7,1 2,T16,'SIGNIFICANT  POIN
    4T RECEPTORS',T51,I1/1X,T7,12,T16,'SIGNIFICANT AREA RECEPTORS',T51,
    5I1/1X,T7,I2,T16,'HONEYCOMB  RECEPTORS',T51,I1/1X,T7,I2,T16,'HOURLY
    60UTPUT',T51.I1/1X,T7,12,T16,'PARTIAL CONC. WRITTEN TO  DISK/TAPE',T
    751,I1/1X.T7,12,T16,'PRINT ONLY SUMMARY HOURLY OUTPUT', ,T51,11/IX,T
    87,12,T16,'PUNCH CARDS FOR CONTOURS',T51,I1/1X.T7,12,T16,'READ  MET
    9DATA FROM  CARDS',T51,11/IX,T7,12,T16,'SPECIFY  SIGNIFICANT SOURCE N
    AUMBERS',T51,I1/1X,T7,I2,T16,'READ HOURLY  EMISSIONS'.T51.I1/1X)
     FORMAT  ('  THE  INPUT  LIMIT OF MAX DISTANCE  FOR AREA INTEGRATION ','
    1 CONVERTS  TO  '.F10.3,' KM WHICH EXCEEDS STORAGE  '.'LIMITATIONS. UP
    2  TO 116  KM DISTANCES ARE ALLOWED.')
     FORMAT  ('0',T50,'POINT SOURCE LISTING'//I X,T8,'SOURCE',T25,'EAST',
    1T33,'NORTH',T40,'S02 (G/SEC)  PART(G/SEC)   STACK  STACK   STACK
    2  STACK'/1X,T25,'COORD',T33,'COORD  EMISSIONS    EMISSIONS    HT(M)
    3  TEMP(K)  ','DIAM(M)  VEL(M/SEC)'/1X,T26,'(USER  UNITS)'/1X)
     FORMAT  (1X,T3,I3,1X,2A6,2X,2F9.2,F10.2,F11.2,2X,4F8.2)
     FORMAT  (/1X.T20,'AREA SOURCE LISTING'//IX,T2,'SOURCE',T10,'EAST',T
    118,'NORTH',T26,'S02(G/SEC-M**2)',T44,'PART(G/SEC-M**2)  SIDE
    2EFFECTIVE'/1X,T10,'COORD   COORD',T29,'EMISSIONS',T46,'EMISSIONS',
    3T61,'LENGTH    HEIGHT'/IX,T11,' (USER UN ITS)',T58,' (USER  UNITS)',T7
    44,'(M)'/1X)
     FORMAT  (1X,T3,I3,2X,2F9.1,3X,1PE11.4,7X,1PE11.4,3X,OPF7.1,3X,F7.1)
     FORMAT  (2A4.2F10.3)
     FORMAT  ('0',T9,'INPUT RECEPTORS'//1X,'RECEPTOR     IDENTIFICATION
    1EAST      NORTH    '/1X,T30,'COORD',T39,'COORD'/IX,T31,'(USER UNITS
     FORMAT  (1X,T4,I2,1X,A1,8X,2A4,7X,F6.2,3X,F7.2)
     FORMAT  (IX,'HO  SOURCES SPECIFIED')
     FORMAT  ('OINPUT  MET DATA  ',12,'/',I 4/IX,T2,'HOUR   THETA    SPEED
    1   MIXING    TEMP     STABILITY'/1X,T9,'(DEC)     (M/S)   HEIGHT(M)  (
    2DEG-K)   CLASS'/1X)
     FORMAT  (1X,T3,I2,4F9.2,6X,I1)
     FORMAT  ('0','RESULTANT MET CONDITIONS'/I X)
     FORMAT  (2X,'WIND DIRECTION-',F7.2,T36,'RESULTANT WIMD"SPEED-',F7.2
    1/2X,'AVERAGE WIND  SPEED-', F7 . 2 , T36 ,'AVERAGE  TEMP= ' , F 7 . 2/2X, ' l.'IND  P
    2ERSISTENCE=',F6.3,T36,'MODAL STABILITY=',12)
     FORMAT  ('0',T20,'GENERATED HONEYCOMB  RECEPTORS'/1X,/1X,'THE AREA  T
    10 BE COVERED BY  HONEYCOMB RECEPTORS IS  BOUNDED  BY:'/1X,'  RMI1) = ',F1
    20.3,' RMAX='.,F10. 3, ' SMIN-', F10. 3 , ' " SMAX= ' , Fl 0. 3//1 X,'D I3TA1ICE BKT
    3WEE1! HONEYCOMB  REC EPTORS (GR IDS P ) It! USER UN ITS-' , F 7 . 3 / / 1 X, ' REC EPTO
    4R    EAST      NORTH')
     FORMAT  (IX,'NO  RECEPTORS HAVE BEEN CHOSEN')
     FORMAT  (/6X.41I3/1X)
    
     END
    RMR6120
    RMR6130
    RMR6140
    RMR6150
    RMR6160
    RMR6170
    RMR6180
    RMR6190
    RMR6200
    RMR6210
    RMR6220
    RMR6230
    RMR6240
    RMR6250
    RMR6260
    RMR6270
    RMR6280
    RIIR6290
    RMR6300
    RMR6310
    RMR6320
    RMR6330
    RMR6340
    RMR6350
    RMR6360
    RMR6370
    RMR6380
    RIIR639Q
    RMR6400
    RMR6410
    RMR6420
    RHR6430
    RHR6440
    RI1R6450
    RMR6460
    R11R6470
    K11R6480
    R11R&490
    RMR6500
    RMR6510
    ii;iR6520
    UMR6530
    RMR6540
    RHR6550
    RMK6560
    RMR6570
    Rt'.R6530
    RMR6590
    R1IR6600
    RMR6610
    RMR6620
    IV.1R6630
           SUBROUTINE JMHPTR (HSAV,DSAV,Z,TLOS,LH)                              TTROOIO
    C       THE PURPOSE OF THIS ROUTINE  IS  TO  CALCULATE CO IIC ENTKAT IONS FROli    PTR0020
    C       POINT SOURCES.                                                      PTR0030
    C       INPUT VARIABLES ARE...                                              PTR0040
    C          USAV- AN ARRAY OF EFFECTIVC  HEIGHTS  FOR POINT SOURCES CiETERS)   PTR0050
    C          DSAV-AN ARRAY OF DISTANCES  TO  FINAL  RISE(KM)                    PTR0060
                                            160
    

    -------
    C          Z- RECEPTOR  HEIGHT.
    C          TLOS- PARTIIAL  COiirUTATIOIi RELATED  TO POLLUTANT  LOSS.
    C          IDATE- YEAR  AND  JULIAN DAY (IN  COilltON /11ETDAT/ )
    C          Lll- HOUR
          COMMOil /SOLC/ IA(25, 25) , SOURCE (9, 250) ,ASORC(6 , 100) , Uti IT S , CONTWO , RR
          1EC( 150) , SllEC ( 150) ,1IPS (25) ,UAS (10) , IOPT (13) , I POL , HREC EP , IUIIIJ, UMAX , S
          2111N, SIIAX.IRSIZE, ISSIZE,tirT,:jAS,NSIGP,l,SIGA,Pi;AliE(2, 250) ,PSAV(250)
          COK'.iOIi /UETCON/  ACI1I(15U),PCHI(150),ASIGS(150,11),PSICS(150,26),IA
          1SIGS (100) , IPSIGS (250) ,THETA,U,KST, HL.TEllP, 31^T,COST, BPiI(2) , IWD.PAR
          2TC(250) ,A;!CIU(150) , PHCHI (150) , AH SI OS (150, 11) , PltSIGS (150, 26) ,PL(6)
          COMMON /11ETDAT/  QTiiETA ( 2 4 ) , QU ( 2 4 ) , I KST (2 4 ) , QHL ( 2 4 ) , QT E1IP (2 4 ) , I DATE
          1(2)
          COimOlt ITYPE (150) ,ICODE (150) , IN , 1C), II IP , M ID , HAVG
          DIME11SIOH HSAV(NPT),  DSAV(250), UPH(250), 1IPU(250),  FP(250)
    C***
    C***
    C***ZKRO  EFFECTIVE STACK  HEIGHT FOR  EACH  SOURCE
    C***
          DO  10  J=1,NPT
    10    HSAV(J)=0.0
    C***LOOP  Oil  RECEPTORS***
          DO  120 K=l,NRECEP
    C * * *
    C***CALCULATE CONCENTRATIONS  FROM POINT  SOURCES***
    C * * *
    c * * *
    LOOP ON  POINT  SOURCES
          DO  110 J=1,NPT
          PARTC(J)=0.0
          RQ=SOURCE(1,J)
          SQ=SOURCE(2,J)
    C***DETERMINE UPWIND DISTANCE
    C***XDU11 , YDU11 IN INTERNAL  UNITS. X,Y IN  KII.
          XDUI1 = RQ-RREC(K)
          YDUM=SQ-SREC(K)
          X=(YDUH*COST+XDUU*SINT)*COHTWO
    C*** X  IS THE UPWIND DISTANCE  OF THE SOURCE  FROM THE RECEPTOR.
    C***IF  X  IS  NEGATIVE,  INDICATING THAT THE  SOURCE IS DOWNWIND  O'F
    C***THE RECEPTOR,  THE  CALCULATION IS TERtllNATED ASSUMING  NO
    C***CONTRIBUTION FR01I  THAT  SOURCE.
          IF  (X.LE.0.0) GO TO  110
    C***DETERMINE CROSSWIND  DISTANCE
    C * * *
          Y=(YDUM*SINT-XDUH*COST)*COHTWO
          HF=HSAV(J)
    C***SKIP  PLUME RISE CALCULATION IF EFFECTIVE  HEIGHT HAS ALREADY BEEN
    C***    CALCULATED FOR THIS  SOURCE
          IF  (HF.GT.0.0) GO  TO  80
    C*** MODIFY  WIND SPEED BY  POWER LAW PROFILE  IN ORDER TO TAKE  INXO
    C***ACCOUNT  THE INCREASE OF WIND SPEED WITH  HEIGHT.
    C***ASSUME WIND MEASUREMENTS ARE REPRESENTATIVE FOR A  10 METER HEIGHT-.
          THT=SOURCE(5,J)
    C***poiNT  SOURCE HEIGHT  NOT ALLOWED TO BE  LESS THAN 1 METER.
          IF  (THT.LT.l.) THT-1.
          UPL=U*(THT/10.)**PL(KST)
    C***WI1ID  SPEED NOT ALLOWED  TO BE LESS THAN 1  METER/SEC.
          IF  (UPL.LT.l.) UPL-1.
          UPH(J)=UPL
          VS=SOURCE(8,J)
          BUOY=SOURCE(9,J)
          TS=SOURCE(6,J)
          DELT=TS-TEMP
     PTR0070
     PTR0080
     PTR0090
     PTU0100
     PTR0110
     PTR0120
     PT 110 130
     PTR0140
     PTR0150
     PTR0160
     PTR13170
     PTR0130
     PTR0190
     PTR0200
     PTR0210
     PTR0220
     PTR0230
     PTR0240
     PTR0250
     PTR0260
     PTR0270
     PTR0280
     PTR0290
     PTR0300
     PTR0310
     PTR0320
     PTR0330
     PTR0340
     PTR0350
     PTR0360
     PTR0370
     PTR0380
     P1R0390
     P-TR0400
     PTR0410
     PTR0420
     PTR0430
     PTR0440
     PTR0450
     PTR0460
     PTR0470
     PTR0480
     PTR0490
     PTR0500
     PTR0510
     PTR0520
     PTR0530
    -PTR0540
     PTR0550
     PTR0560
     P.TR0570
     PTR0580
     PTR0590
     PTR0600
     PTR0610
     PTR0620
     PTR0630
     PTR0640
     PTR0650
     PTR0660
     PTR0670
     PTR0680
                                             16f
    

    -------
          F=BUOY*DELT/TS
    C*** IOPT(13)  HOURLY EMISSION  INPUT FROM
          IF  (IOPT(13).EQ.O) GO  TO  20
    C***MODIFY  EXIT VELOCITY AND BUOYANCY BY
    C***TO AVERAGE EMISSIONS
          SCALE-SOURCE(I POL,J)/PSAV(J)
          VS=VS*SCALE
          F=F*SCALE
    20    D=SOURCE(7,J)
    C***CALCULATE   H PRI1IE WHICH TAKES  INTO
                      PAGE 4
    TAPE/DISK?   0-NO,  1-YES.
    
    RATIO OF HOURLY EMISSIONS
            STACK DOWNWASH
                                              ACCOUNT
    C***BRIGGS(1973)
          HPRM-THT
          DUM=VS/UPL
          IF  (DUM.LT.1.5) HPRM=THT+2.*D*(DUM-1.5)
          IF  (HPRM.LT.O.) HPRM=0.
    C***
    C***CALCULATE PLUME RISE AND ADD  H PRIME TO OBTAIN  EFFECTIVE
    C***STACK  HEIGHT.
    C***
    C***PLUME  RISE CALCULATION
          IF  (KST.GT.4) CO TO  40
    C***PLUME  RISE FOR UNSTABLE CONDITIONS
          IF  (TS.LT.TEMP) GO TO 50
          IF  (F.GE.55.) GO TO  30
    C***DETERMINE DELTA-T FOR  BUOYANCY-MOMENTUM CROSSOVER(F<55)
    C***FOUND  BY  EQUATING BRIGGS(1969) EQ 5.2, PAGE  59  WITH COMBINATION  OF
    C***BRICGS(1971 )  EQUATIONS 6 AND  7,  PACE 1031 FOR  F<55.
          DT;;B = O.0297 *TS*VS**0.33333/D**0.66667
          IF  (DELT.LT.DTMB) GO TO  50
    C***DISTAHCE  OF  FINAL BUOYANT  RISE(0.049 IS 14*3.5/1000)
    C***3KIGGS(1971)  EQUATION  7,F<55,  AND DIST TO FINAL RISE IS 3.5 XSTAR
          PISTF=0.049*F**0.625
    C***CO:IBII;ATIOH  OF RRIGGS (1971)  EQUATIONS 6 AND  7,  PACE 1031 FOR  F<55.
          IIF = HPRll+21. 425*F**0.75/UPL
          GO  TO  70
    C***DETERMINE DELTA-T FOR  BUOYANCY-MOMENTUM CROSSOVER(F>55)
    C***roU!55.
    30    DTMB=0.00575*TS*VS**0.66667/D**0.33333
          IF  (DELT.LT.DTIIB) GO TO  50
    C***DISTAt;CE  OF  FINAL BUOYANT  RISE (0.119 IS  34*3.5/1000)
    C***E?.ICCS (1971 )  EQUATION  7, F>55, AND DIKT TO  FINAL RISE IS 3.5  XSTAR.
          DIGTF = 0. 1 19*F**0.4
    C***COMBINATIO::  OF BRIGCS(1971)
          '!F = IIPUlI + 38. 71*F**0. G/UPL
          CO  TO  70
    C***PLU;iE  RISE Foil STABLE  CONDITIONS.
    40    DT11L'Z=0. 02
          IF  (KST.GT.5) DT:iDZ = 0.035
          G = 9. ti061 6*DTliDZ/TEMP
          IF  (TS.LT.TEMP) CO  TO 60
    C***DETEIUIII:E DELTA-T FOR  BUOYAIICY-MOMENTUM
    C***FuUND  BY  E^UA
    C***P.IGE  Mill. BRIGCS(1969)
          DTIJ!i = 0 . 019532 *TElir*VS*SQUT (S )
          IF  (,)L'LT. LT. DTMH) GO TO  GO
    C***STA3LE  BUOYANT RISK FOR WIND  CONDITIONS
    C***CNOUG1I  IN UAM  TO REQUIRE  STABLE RISE IN
    C***BPIGCS(1975)  EQ 59, PAGE  96.
          Ill- =11 PUM + 2 . 6 * ( F / (U PL *S ) ) * *0 . 3 3 3 3 3 3
    C***CO;iBINATION  OF URICC S (1 9 7 5 )  EQ 48 AND EQ  59.  NOTE DI3TF
          r>ISTF = 0. 002071 5*UPL/5QRT (S )
                                      EQUATIONS  6 AND  7,  PAGE 1031 FOR  F>55.
                                                   CROSSOVER(STABLE)
                       IliG BRIGGS(1975) EQ 59,  PACE  96  FOR STABLE BUOYANCY
                                    4.23, PAGE  59  FOR STABLE HOHLNTUi:  RISE.
                                                   (WIND NOT ALLOWED
                                                   CAL;I  CONDITIONS.)
                                                                      LOW
    PTR0690
    PTR0700
    PTR0710
    PTR0720
    PTR0730
    PTR0740
    PTR0750
    PTR0760
    PTR0770
    PTR0780
    PTR0790
    PTR0800
    PTR0810
    PTR0820
    PTR0830
    PTR0840
    PTR0850
    PTR0860
    PTR0870
    PTR0880.
    PTR0890
    PTR0900
    PTR0910
    PTR0920
    PTR0930
    PTR0940
    PTR0950
    PTR0960
    PTR0970
    PTR0980
    PTR0990
    PTR1000
    PTR1010
    PTR1020
    PTR1030
    PTR1040
    PTR1050
    PTJV1060
    PTR1070
    PTR10SO
    PTR1090
    PTR1100
    PTR1110
    PTR1 120
    PTR1 130
    PTR1140
    PTR1150
    PTP.l 160
    PTR1.170
    PTR1180
    PTR1190
    PTR1200
    PTR1210
    PTR1220
    PTR1230
    PTR1240
    PTR1250
    PTR1260
    FTH1270
    PTR1280
    PTR1290
    PTR1300
                                             162
    

    -------
    GO TO 70
    C * * *U t: S TABL E -t, ELI T Jl AL ' ,' 0.':
    C***BRIGCS (1969) EQUATIO
    C***TENDS ro OVERKSTI:;AT
    C*ft* FIGURE 4.)
    50 HF = :tPI!:! + 3. *VS*D/UP
    niSTF=0.
    GO TU 70
    C***STAiiLE IiOnEiiTim RISE
    60 l)llA = 3.*VS*n /UPL
    C***GRIGGS (1969) EQUATIO
    DELHF = 1 . 5* (VS*VE *D
    IF (DUA.LT. DELED
    
    Ei!T
    N 5
    E R
    
    L
    
    
    
    
    N 4
    *u*
    
    u:i RISE
    . 2, PAGE 59 t.OTE :
    ISE JREf: VS/U<4 (
    
    
    
    
    
    
    .28, PAGE 59
    TE;[P/(4.*TS*UFL) )
    D EL ill' =1) HA
                                                               i'TJ
                                  5T ACCURATE UHF.i; VS/'J>4
                                   r.lICCS ( 1 975)  PACE 73,
                                                                                      F
           DISTF=0.
    C***STORE OFF  PLUI1E
    C***OIHER RECEPTORS.
    70
                                *0.333333/S**0. 156667
    HEIGHT (ETC .)  FOR TiilS  SOURCE FOR  USE ',/ITii
                                        TO DISTANCE TO FINAL
                                                               PT1
                                                                   1 J10
           hSAV(J)=HF
           DSAV(J)=OISTF
           UPK(J)=UPL
           IIPR (J)=HPR!1
           FP(J )=F
    C***IF SOURCE-RECEPTOR  DISTANCE  IS GREATER OR EQUAL
    C***SK.IP PLlJ'iE  RISE CALCULATION  AND USE  FINAL RISE.
    HO     IF (X.GE.I)SAV(J) )  GO TO  90
    C***PLUI!E RISL  FOR DISTANCE X(160 IS  1. 6 *1 QUO** . 6 7  BECAUSE  X IN
           11X = 11PR (J) + 1CO.*FP(J)**0.333333 *X**0.6666C7/UPH(J)                     PT1
           IF (i:::.LT.HF) UF=I;:;                                                      PTI
    C***SUP.ROUTIiiE  DBTRCR  I'.ETURNS  THE DISPERSIOH PARAI'.T ERS , S Y AND SZ(IlETERS)  PT1
    C***AIin RELATIVE CONCENTRATION  VALUE  C11I/Q (SEC/.'!**3)
    90     UPL=UPil(J)
           CALL DHTRCR  (UPL,2,HF,HL,X,Y,UST,SY,S2,PROD)
    C***CALCULATE TRAVEL TIflE IU Ul-SEC/11  TO  IliCLUUE  DECAY  RATE OF TOLLUTAN
           TT-X/UPL
    C***TLOS Itl IIETERS/KII-SEC, SO  TT*TLOS  IS  DIJENSIONLE S S
           PROD=PR01)*SOURCE (IPOL, J ) /EXP (TT*TLOS )
    C***INCRE{1EMT CONCENTRATION AT  K-T11 RECEPTOR (G /!i* *3 )
           PCHI (K)=PCHI (IO+PH.OD
           PUCHI (K)=PIICHI(K) + PROD
           KSIG=IPSICS(J)
           IF (KSIC.EQ.O) GO  TO 100
    C***STORE CONCENTRATIONS FROM  SIGNIFICANT  SOURCES.(G/It**3)
           PSICS(K,KSIG)=PSIGS(K,KSIG)+PROD
           PilSIGS (K,USIG)=P1ISIGS (K, KS IG )+PROD
           PSIGS (K,26)-PSICS(K,26)+PROD
           PHSIGS (K, 26)=PliSIGS (1C, 26)+PROU
    100    PARTC(J)=PROD
    110    CONTINUE
    C***END OF LOOP  FOR SOURCES
    C***UUITE PARTIAL CONCENTRATIONS ON D IS 1C (G/1I* *3 )
           IF (IOPT(8).EQ.0)  GO TO  120
    C***USER PLEASE  NOTE:  PARTIAL  COHC. IN  G/tI**3,  NOT  MICROGRA1I/H* *3
           WRITE  (NIP) 1DATE.LU,K,(PARTC(J),J=l,HPT)
    120    CONTIHUE
    C***END OF LOOP  FOR RECEPTORS
           RETURN
    C
           END
        1330
        1 3 4 0
        1350
        1360
        1370
        13GO
        1390
    P T K 1 4 0 0
    PTR141 0
    PTR1420
    PTR1430
    PTR1440
    PTR1450
    PTR1460
    PTR1470
    PTR14SO
    PTR1490
    PTR1500
    PTR1510
    PTR1520
    PTR1530
    PTR1540
                                                                   1550
                                                                   1560
                                                                   1570
                                                                   15GO
                                                                   1590
                                                               l'TIU6uO
                                                               PTR1 51 0
                                                               PTR1620
                                                               PTR1630
                                                               PTR1640
                                                               PTR1650
                                                               PTR166C
                                                               PTR1670
                                                               PTR16SO
                                                               PTR1690
                                                               PTR1700
                                                               PTR1 710
                                                               P T R 1 7 2 0
                                                               PTR1730
                                                               PTR1 740
                                                               PTR1750
                                                               PTR1 760
                                                               PTR1770
                                                               PTR17SO
                                                               PTR1 790
                                                               PTR1800
                                                               PTR181 0
                                                               PTR1320
                                                               PTK1830
                                                               PTR1340
                                                               PTR1850
                                                               PTR1860
                                                               PTR1870
                                                               PTR1830
                        163
    

    -------
          SUBROUTINE  JM1I54R (HHTS,Z,XLIM,TLOS)
    C***THE PURPOSE OF  THIS ROUTINE IS TO CALCULATE TABLES OF
    C***CONCENTRATION NORMALIZED FOR WIND SPEED  AND EMISSION RATE
    C***FROM AREA  SOURCES (CHI*U/Q). SUBROUTINE  JMHCZR IS CALLED FOR
    C***INTEGRATION OF  RELATIVE CONCENTRATION.
    C     INPUT  VARIABLES ARE...
    C         HINT- REPRESENTATIVE  HEIGHTS  FOR AREA SOURCES
    C         NHTS- NUMBER OF HEIGHT CLASSES
    C         Z- RECEPTOR HEIGHT(Il)
    C         XLIM- DISTANCE LIMIT  ON INTEGRATION OF AREA SOURCES (KM)
    C         TLOS- PARTIAL COMPUTATION  RELATED  TO POLLUTANT LOSS
          COMMON /METCON/ ACHI(150),PCHI(150),ASICS(150,11),PSIGS(150,26),IA
         1SIGS(100),IPSIGS(250),THETA,U,KST,HL,TEMP,SINT,COST,BPH(2),IWD,PAR
         2TC(250),AHCHI(150),PHCHI(150),AHSIGS(150,11),PHSIGS(150,26),PL(6)
          COMMON /HEIGHT/ HINT(3),HARE(3),BPHM(2),FH
          COMMON /RELC/ CIN(3,200)
    C***CONCENTRATION TABLES ARE GENERATED  FOR UP TO 3 HEIGHTS.
          DO 190 IH = l,iniTS
          H-HINT(IH)
          HARE(IH)=H
          IF (FH.EQ.1.) GO TO 10
          PUT=FH*H
          UPL=U*(PHT/10.)**PL(KST)
          IF (UPL.LT.l.) UPL-1.
          11= ( (H-PHT)*5. ) /UPL+PHT
          HARE(IH)=H
          GO TO  20
    C***110DIFY WIND  SPEED BY POWER  LAU  PROFILE.
    10    IF (H.LT.1.0) H-1.0
          UPL=U*(H/10.)**PL(KST)
          IF (UPL.LT.1.0) UPL=1.0
    C***ZERO CONCENTRATION ARRAY
    20    DO 30  J=l,200
    30    CIHdil, J)=0. 0
          11 = 0
          '•1C = 10
          CP=0.0
          CI=0.0
          JD = 1
    C***DISTA;ICE in  KM.
          x=o. o
          DELX=0.001
          ID = 1
    40    CL=CP
          X=X+DELX
    C***SUBROUTINE JM1ICZK DETERMINES THE RELATIVE C01IC E11TILAT I0t; AT
    C***VARYING  DOWNWIND DISTANCES.
          CALL JMHCZR  (Z , II, X, SZ , CP )
    C***CALCULATE  TRAVEL TIME IN  KM-SEC/M.
          TT-X/UPL
    C***ADJUST RELATIVE CONCENTRATION BY POLLUTANT DECAY RATE.
    C***TLOS IN  METERS/K.M-SEC, SO TT*TLOS  IS  D IllEilS IOULESS .
          CP=CP/EXP(TT*TLOS)
    C***I1ITEGRATED RELATIVE CONCENTRATION  IG  DIMENSIONLESS.
    C***MULTIPLICATIOI1  )>Y 500. CONVLRTS  TO  METERS AND DIVIDES
          CI=500.*DELX*(CL+CP)+CI
          CO TO  (50, 'JO, 120, 150, 130) , JD
    C***;iORUALIZED CONCENTRATIONS ARE STORED  I:.'  TALLES FOR
    C***DISTAUCES  AT  VARYING TIME  INTERVALS.  T:iE rOLLOUItlG
    C***TUE  TABLE'S  COt. STRUCTIOM .
    C***DISTAi:CE<100M;  CALCULATE  EVERY  1 (I,  STORE
    50    IF  (X-0.0993)  60,GO,00
            DY 2.
         VARYING
         COMilENTS  DETAIL
    KY 10 II, 0. OH'JI.
    54R0010
    54R0020
    54R0030
    54R0040
    54R0050
    54R0060
    54R0070
    54R0080
    54R0090
    54R0100
    54R0110
    54R0120
    54R0130
    54R0140
    54R0150
    54R0160
    54R0170
    54R0180
    54R0190
    54R0200
    54R0210
    54R0220
    54R0230
    54R0240
    54R0250
    54R0260
    54R0270
    54R0280
    54R0290
    54R0300
    54R0310
    54R0320
    54R0330
    54R0340
    54.R0350
    54R0360
    54R0370
    54R03SO
    54R0390
    54R0400
    54R0410
    54P.0420
    54110430
    54R0440
    54R0450
    54R0460
    54R0470
    54R0480
    54R0490
    54R0500
    54R0510
    54R0520
    54R0530
    54R0540
    54R0550
    54R0500
    54R0570
    54R0580
    54R0590
    5 41100 00
    54R0610
    54)10620
                                             164
    

    -------
    60    l!=t; + l                                                                  54110630
          IF  (N.LT.NC) GO TO  40                                                 54R0640
          !i = 0                                                                    54R0650
    70    !!)=( 100. *X)+0. 0008                                                    54R0660
    C***STOUAGE  LOCATIOHS 1-9  CONTAIN INTEGRATIONS  FOR  10-00 11.               54R0670
          CIfl(IIl,ID)=CI                                                         54R0630
          GO TO  40                                                               54R0690
    C***I>ISTANCE ioo-500ii: CHANGE  DEL;; TO 1011; STORE  EVERY 10 H, o.omi.      54R0700
    GO    JD=2                                                                   54R0710
          DELX=0.01                                                             54R0720
          GO TO  70                                                               54R0730
    C***STOKAGE  LOCATIOHS 10-49  CONTAIN II1TEGRAT IONS  FOR  100 I! TO 490 11.      54R07'40
    90    IF  (X-0.497) 70,100,100                                               54R0750
    C*** DISTANCE 500 -3000H;  CHAtJGE  DELX TO  100 11; 3TORE  EVERY 100 M,  0.1K11  54R0760
    100   JI) = 3                                                                   54R0770
          DELX=0.1                                                               54R0780
    110   ID=(10.*X)+45.08                                                      54R0790
    C***STORACE  LOCATIONS 50-74  CONTAIN INTEGRATIONS  FOR  500 It TO -2900  I!.     54R0800
          CIU(IH,ID)=CI                                                         54R0310
          GO TO  40                                                               54R0820
    120   IF  (X-2.95) 110,130,130                                               54R0830
    C*** DISTANCE 3000- 15, DOOM.  ;  CHANGE DELX TO  500 tl ;  STORE EVERY  500  II,   54R0840
    C*** 0.5KH.                                                                  54R0850
    130   JD=4                                                                   54R0860
          DELX=.5                                                               54R0870
    140   ID=(2. *>,) + 69. 08                                                       54R0880
    C***STORAGE  LOCATIONS 75-98  CONTAIN HITEGRATIONS  FOR  3000 11 TO  14.5 U11.   54R0890
          CI;UIH,ID)=CI                                                         54R0900
          GO TO  40                                                               54R0910
    150   IF  (X-14.95) 140,160,160                                              54R0920
    C*** DISTANCE >15,OOOH.;  CHANGE DELX TO I0001I;  STORE  EVERY 1000 II,  li'JI.   54R0930
    160   JD=5                                                                   54R0940
          DELX=1.                                                               54R0950
    170   ID=X + 84.08                                                            54$'0960
    C***STORAGE  LOCATIOHS 99-200  CONTAIN INTEGRATIONS FOR  15 KM TO A          54R0970
    C***11AXIIIUH  OF  116 KM.                                                      -54R0980
          CIN(I11,ID)=CI                                                         54R0990
          GO TO  40                                                               54R1000
    180   IF  (X-XLI1I) 170,190,190                                               54R1010
    190   CONTINUE                                                               54R1020
          RETURN                                                                54R1030
    C                                                                            54R1040
          END                                                                    54R1050
           SUBROUTINE JMHCZR  (Z , H , X, SZ , RCZ )                                      CZR0010
           COMMON /1IETCOH/ ACHI ( 1 50 ) , PCHI ( 1 5 0 ) , AS ZGS (1 50 , 1 1 ) , PS IGS ( 1 50 , 2 6 ) , IA  CZR0020
          1SIGS(100),IPSICS(250) ,THETA,U,KST,HL,TEMP, SIHT,COST,BPH(2) , IWD , PAR  CZR0030
          2TC(250),AHCHI(150),PHCHI(150),AHSIGS(150,11),PHSIGS(150,26),PL(6)   CZR0040
    C         SUBROUTINE JMHCZR  CALCULATES CHI*U/Q,  RELATIVE  CONCENTRATION     CZR0050
    C          NORMALIZED FOR WIND  SPEED AND EMISSION  RATE,  FOR A CROSSWIND    CZR0060
    C           INFINTE SOURCE UPWIND  OF A RECEPTOR  (IN UNITS  OF: PER METER    CZR0070
    C         JMHCZR CALLS SUBROUTINE.PGSZ                                      CZR0080
    C         THE INPUT VARIABLES  ARE....                                       CZR0090
    C          Z     RECEPTOR HEIGHT  (M)                                          CZR0100
    C          H     EFFECTIVE STACK  HEIGHT (M)                                  CZR0110
    C          HL   MIXING HEIGHT-  TOP OF NEUTRAL OR  UNSTABLE  LAYER(M)         CZR012o"
    C                (THROUGH COMMON/METCON/)                                   CZR0130
    C          X     DISTANCE  SOURCE  IS  UPWIND OF RECEPTOR  (KM)                CZR0140
    C          KST   STABILITY CLASS  (THROUGH COMMON  /METCON/)                   CZR0150
                                             165
    

    -------
    C        THE OUTPUT VARIABLES  ARE....                                     CZR0160
    C        SZ    VERTICAL DISPERSION  PARAMTER.   .                           CZR0170
    C        RCZ   RELATIVE CONCENTRATION  HAS UNITS  OF: PER METER.           CZR0180
    C     THE FOLLOWING EQUATION IS  SOLVED —                                CZR0190
    C        RC *  (1/2.5066 *SIGMA Z)  * ((EXP(-.05*((Z-H)/SIGMA Z)**2)       CZR0200
    C              +  (EXP(-0.5*((Z+H)/SIGMA Z)**2))                           CZR0210
    C              PLUS THE SUM  OF  THE  FOLLOWING 4 TERMS K TIMES (N-l.K) —   CZR0220
    C                FOR NEUTRAL OR UNSTABLE CASES:                     "      CZR0230
    C              TERM 1- EXP(-0.5*((Z-ff-2NL)/SIGMA Z)**2)                  CZR0240
    C              TERM 2- EXP(-0.5*((Z+H-2NL)/SIGMA Z)**2)                  CZR0250
    C              TERM 3- EXP(-0.5*((Z-H+2NL)/SIGMA Z)**2)                  CZR0260
    C              TERM 4- EXP(-0.5*((Z+H+2NL)/SIGMA Z)**2)                  CZR0270
    C        2.5066  IS THE SQUARE  ROOT  OF  2 * PI                              CZR0280
    C***NOTE THAT  MIXING HEIGHT- THE TOP OF THE NEUTRAL OR UNSTABLE LAYER-   CZR0290
    C***HAS A VALUE  ONLY FOR  STABILITIES 1-4, THAT IS,  MIXING HEIGHT         CZR0300
    C***DOES NOT EXIST FOR STABLE  LAYERS AT THE GROUND  SURFACE- STABILITY    CZR0310
    C***5 OR 6.                                                               CZR0320
    C        STATEMENTS 190 TO  330 CALCULATE RC,  THE RELATIVE CONCENTRATION, CZR0330
    C         USING  THE EQUATION DISCUSSED ABOVE.  SEVERAL INTERMEDIATE      CZR0340
    C         VARIABLES ARE USED TO  AVOID  REPEATING  CALCULATIONS.            CZR0350
    C         CHECKS ARE MADE TO BE  SURE THAT THE ARGUMENT OF THE            CZR0360
    C         EXPONENTIAL FUNCTION IS  NEVER GREATER  THAN 50 (OR LESS THAN    CZR0370
    C         -50).  IF 'AH'  BECOMES GREATER THAN 45,  A LINE OF OUTPUT IS    CZR0380
    C         PRINTED INFORMING OF THIS.                                     CZR0390
    C        CALCULATE MULTIPLE EDDY REFLECTIONS  FOR RECEPTOR HEIGHT Z.      CZR0400
    C        IWRI  IS CONTROL  CODE  FOR  OUTPUT                                 CZR0410
          IWRI=6                                                              CZR0420
    C***IF STABLE, SKIP CONSIDERATION  OF MIXING HEIGHT.                      CZR0430
          IF (KST.GE.5) GO TO 40                                              CZR0440
    C        IF THE  SOURCE IS ABOVE  THE LID, SET  RC  = 0., AND RETURN.        CZR0450
          IF (H-IIL)  10,10,20                                                  CZR-0460
    10    IF (2-HL)  40,40,180                                                CZR0470
    20    IF (Z-HL)  180,30,30                                                CZR0480
    30    WRITE  (IWRI,430)                                                    CZR0490
          RETURN                                                              CZR0500
    C        IF X  IS LESS THAN  1 METER, SET RC=0. AND RETURN.  THIS AVOIDS   CZR0510
    C         PROBLEMS OF INCORRECT  VALUES HEAR THE  SOURCE.                  CZR.0520
    40    IF (X-0.001) 180,50,50                                              CZR^OSSO
    50    CALL PCSZ  (X.KST.SZ)                                                CZR0540
    C         SZ = SIGMA Z, THE STANDARD DEVIATION OF CONCENTRATION IN THE   CZR0550
    C         Z-DIRECTION  (H)                                                CZR0560
          IF (KST-4) 60,60,70                                                CZR0570
    60    IF (HL-5000.) 150,70,70                                             CZR0580
    C        IF STABLE CONDITION OR  UNLIMITED MIXING HEIGtIT:                 CZR0590
    70    C2=2.*SZ*SZ                                                         CZR0600
          IF (Z) 180,80,100                                                   CZR0610
    C***FOK Z = ZERO:                                                         CZR0620
    80    C3 = I1*H/C2                                                           CZR0630
          IF (C3-50.) 90,'.80, 180                                              CZRO"640
    90    A2=2./EXP(C3)                                                       CZR0650
          RCZ«A2/(2.5066*SZ)                                                  CZR0660
          RETURN                                                              CZR0670
    C***FOR HOU-ZERO Z:                                                       CZR0680
    100   A2=0.                                                               CZK0690
          A3=0.                                                               CZR0700
          CA=Z-U                                                              CZR0710
          CU=Z+H                                                              CZR0720
          C3=CA*CA/C2                                                         CZR0730
          C4=CB*CD/C2                                                         CZR0740
          IF (C3-50.) 110,120,120                                             CZR0750
    110   A2=1./EXP(C3)                                                       CZR0760
    120   IF (C4-50.) 130,140,140                                             CZR0770
                                            166
    

    -------
    130   A3=1./EXP(C4)
    140   HCZ=(A2+A3)/(2.5066*SZ)
          RETURN
    C        IF SIG1IA-2  IS  GREATER THAU 1.6 TIHES  THE
    C          THE  DISTRIBUTION BELO'J THE IIIXIUG HEIGH:
    C          HEIGHT  REGARDLESS OF SOURCE HEIGIiT.
    150   IF (SZ/HL-1.6)  170,170,160
    160   RCZ = 1./1IL
          RETUIU)
             IUITIAL  VALUE  OF All SET = 0.
               All   THE NUMBER OF TItli:S THE
               AND ADDED  IK.
             0.
                  130,340, 190
                  ERRONEOUS  NEGATIVE Z WILL
                lilXIilG  HEIGHT,
                  IS  UNIFORM  WITH
    C
    C
    C
    170   A1I =
          IF  (Z)
    C***HOTE: All
    180   RCZ=0.
          RETURN
    C***CALCULATE
    190
     SUNIlATIOi; TERH  IS  EVALUATED
     RESULT III ZERO  COHC ENTRAT IONS .
                  MULTIPLE  EDDY REFLECTIONS FOR  ELEVATED  RECEPTOR HEIGHT.
          A1=1./(2.5066*SZ)
          C2=2.*SZ*SZ
          A2 = 0.
          A3 = 0.
          CA=Z-1I
          CB=Z+H
          C3=CA*CA/C2
          C4=CB*CB/C2
          IF (C3-50.)  200,210,210
    200   A2=l./EXP(C3)
    210   IF (C4-50.)  220,230,230
    220   A3=1./EXP(C4)
    230   SUM=0.
          TiiL = 2 . *1IL
    240   AN-AN+1.
          A4 = 0.
          A5=0.
          A6=0.
          A7=0.
          C5=AN*THL
          CC=CA-C5
          CD=CB-C5
          CE=CA+C5
          CF=CB+C5
          C6=CC*CC/C2
          C7=CD*CD/C2
          C8-CE*CE/C2
          C9=CF*CF/C2
          IF (C6-50.)  250,260,260
    250   A4-1./EXP(C6)
    260   IF (C7-50.)  270,280,230
    270   A5=1./EXP(C7)
    280   IF (C8-50.)  290,300,300
    290   A6-1./EXP(C8)
    300   IF (C9-50.)  310,320,320
    310   A7=1./EXP(C9)
    320   T=A4+A5+A6+A7
          SUM-SUM+T
          IF (T-0.01)  330,240,240
    330   RCZ=A1*(A2+A3+SUM)
          RETURN
    C CALCULATE MULTIPLE  EDDY REFLECTIONS
    340   Al-l./(2.5066*SZ)
          A2 = 0.
    FOR GROUND LEVEL RECEPTno  HEIGHT
    CZR0780
    CZR0790
    CZK0800
    CZR0810
    CZH0820
    CZR0330
    GZR0840
    CZR0050
    C Z R 0 8 6 0
    C2R0370
    CZR0830
    CZR0890
    C Z R 0 9 0 0
    CZR0910
    CZR0920
    CZR0930
    CZR0940
    CZR0950
    CZR0960
    CZR0970
    CZR0980
    CZR0990
    CZR1000
    CZR1010
    CZR1020
    CZR1030
    CZR1040
    CZR1050
    CZR1060
    CZR1070
    CZR1080
    CZR1090
    CZR1100
    CZR1110
    CZR1 120
    CZR1130
    CZR1140
    CZR1150
    CZR1160
    CZR1170
    CZR1180
    CZR1190
    CZR1200
    CZR1210
    CZR1220
    CZR1230
    CZR1240
    CZR1250
    CZR1260
    CZR1270
    CZR1280
    CZR1290
    CZR1300
    CZR1310
    CZR1320
    CZR1330
    CZR1340
    CZR1350
    CZR1360
    CZR1370
    CZR1380
    CZR1390
                                            167
    

    -------
    350
    360
    
    370
    380
    390
    400
    410
    420
    
    C
    430
          C2-2.*SZ*SZ
          C3-H*H/C2
          IF (C3-50.)  350,360,360
          A2-2./EXP(C3)
          SUM-0.
          THL-2.*HL
          AN-AN+1.
          A4-0.
          A6-0.
          C5=AN*THL
          CC-H-C5
          CE-H+C5
          C6=CC*CC/C2
          C8=CE*CE/C2
          IF (C6-50.)  380,390,390
          A4-2./EXP(C6)
          IF (C8-50.)  400,410,410
          A6=2./EXP(C8)
          T=A4+A6
          SUM=SUM+T
          IF (T-0.01)  420,370,370
          RCZ=A1*(A2+SUM)
          RETURN
    
          FORMAT  (IHO.'BOTH  H  AND Z- ARE ABOVE THE MIXING HEIGHT
         IE COMPUTATION  CAN  NOT BE MADE.')
    
          END
                                                                         CZR1400
                                                                         CZR1410
                                                                         CZR1420
                                                                         CZR1430
                                                                         CZR1440
                                                                         CZR1450
                                                                         CZR1460
                                                                         CZR1470
                                                                         CZR1480
                                                                         CZR1490
                                                                         CZR1500
                                                                         CZR1510
                                                                         CZR1520
                                                                         CZR1530
                                                                         CZR1540
                                                                         CZR1550
                                                                         CZR1560
                                                                         CZR1570
                                                                         CZR1580
                                                                         CZR1590
                                                                         CZR1600
                                                                         CZR1610
                                                                         CZR1620
                                                                         CZR1630
                                                            SO  A RELIABL CZR1640
                                                                         CZR1650
                                                                         CZR1660
                                                                         CZR1670
    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
                                                                        ADD
                                                     UNSTABLE  LAYCR(M)
                                                     SOURCE  (KM)
    SUBROUTINE DBTRCR  (U,Z,H,HL,X,Y,KST,SY,SZ,RC)
     DETERMINE RELATIVE  CONCENTRATION FROM POINT SOURCES.
       SUBROUTINE DBTRCR  CALCULATES CHI/q CONCENTRATION  VALUES;
        CALLS UPON   PGSYSZ  TO  OBTAIN  STANDARD DEVIATIONS.
       THE INPUT VARIABLES  ARE....
        U    HIND SPEED  (M/SEC)
        Z    RECEPTOR  HEIGHT (M)
        H    EFFECTIVE STACK HEIGHT (M)
        HL   MIXING  HEIGHT- TOP OF NEUTRAL OR
        X    DISTANCE  RECEPTOR IS DOWNWIND OF
        Y    DISTANCE  RECEPTOR IS CROSSWIND FROM SOURCE  (KM)
        KST  STABILITY CLASS
       THE OUTPUT VARIABLES ARE....
         SY HORIZONTAL DISPERSION PARAMETER
         SZ VERTICAL DISPERSION PARAMETER
        RC   RELATIVE  CONCENTRATION (SEC/M**3)  ,CHI/Q
       IWRI IS CONTROL CODE FOR WARNING OUTPUT.
    IWRI-6
       THE FOLLOWING EQUATION  IS  SOLVED --
         RC =  (1/(2*PI*U*SIGMA Y*SIGUA 2))* (EXP(-0.5*(Y/SIGMA Y)**2))
           (EXP(-0. 5*( (Z-H) /SIGMA Z)**2) + EXP (-0 . 5 * ( (Z+II )/S IGMA Z)**2)
            PLUS T!IE SUM  OF THE FOLLOWING 4 TERMS  K  TIMES  (N = 1,K) --
                 FOR NEUTRAL OR UNSTABLE CASES:
                     EXP(-0.5*((Z-11-2NL)/SIGMA
                             5*((Z+H-2NL)/SIGMA
                             5*( (Z-H + 21.L) /SIGMA
                   TERM  1-  EXP(-0.5*((Z-1!-2NL)/SIGMA  Z)**2)
                   TERM  2-  EXP(-0.5*((Z+H-2NL)/SIGMA  Z)**2)
                   7ERM  3-  EXP(-0. 5*( (Z-H + 21.L) /SIGMA  Z)**2)
                   TERM  4-  EXP(-0.5*((Z+H+2NL)/SIGMA  Z)**2)
      NOTE T!1AT MIXING HEIGHT- THE TOP OF THE  NEUTRAL  OR  UNSTABLE LAYER-
      HAS A VALUE  ONLY FOR  STABILITIES 1-4, THAT  IS,  MIXING  HEIGHT DOES
    C NOT EXIST FOR  STABLE  LAYERS AT THE GROUND SURFACE-  STABILITY 5 OR 6.
    RCR0010
    RCR0020
    RCR0030
    RCR0040
    RCR0050
    RCR0060
    RCR0070
    RCR0080
    RCR0090
    RCR0100
    RCR0110
    RCR0120
    RCR0130
    RCR0140
    RCR0150
    RCR0160
    RCR0170
    UCU0180
    RCR0190
    RCR0200
    RCR0210
    RCR0220
    RCR0230
    RCR0240
    RCR0250
    RCU0260
    RCR0270
    RCR0280
    RCR0290
    IlCil0300
                                            168
    

    -------
    C        TlIC ABOVE  EQUATION IS SIMILAR TO EQUATION  (5.8)  P  36 IN         RCR0310
    C         UOUKBOOK  OF  ATMOSPHERIC DISPEHSIOtl ESTIMATES  UITI1 TKE ADDITION KCI10320
    C         OF THE  EXPONENTIAL INVOLVING Y.                                 RCR0330
    C***IF STABLE,  SKIP CONSIDERATION OF MIXING HEIGHT.                       RCR0340
          IF (UST.CE.5)  GO  TO 50                                              RCR0350
    C        IF THE SOURCE  IS ABOVE THE LID, GET RC  = 0., AND RETURN.        RCR0360
          IT (H-hL) 10,10,20                                                  RCR0370
    10    IF (Z-HL) 50,50,40                                                  RCK0380
    20    IF (Z-HL) 40,30,30                                                  RCR0390
    30    WHITE  (IURI.4GO)                                                     RCR0400
    40    RC=0.                                                                RCR0.410
          RETURN                                                               RCR0420
    C        IF X  IS  LESS  THAN 1 METER, SET RC=0. AND RETURN.  THIS AVOIDS   RCR0430
    C         PROBLEMS  OF  INCORRECT VALUES NEAR THE  SOURCE.                   RCR0440
    50    IF (X-0.001)  40,60,60                                               RCK0450
    C        CALL  PGSYSZ TO OBTAIN VALUES FOR SY AND SZ                       RCR0460
    60    CALL PGSYSZ  (X,KST,SY , SZ)                                           RCU0470
    C         SY =  SIGMA Y,  THE STANDARD DEVIATION OF CONCENTRATION IN THE   RCR0480
    C         Y-DIRECTIOIi  (M)                                                 RCR0490
    C         SZ =  SIGMA Z,  THE STANDARD DEVIATION OF CONCENTRATION IN THE   RCR05UO
    C         Z-DIRECTIOH  (H)                                                 RCR0510
          Cl=l.                                                                RCR0520
          IF (Y) 70,90,70                                                      RCR0530
    70    YD=1UOO.*Y                                                           RCR0540
    C        YD IS  CROSSWIND DISTANCE III METERS.                              RCR0550
          DUM=YD/SY                                                            RCR0560
          TEMP=0.5*DUM*DUM                                                     RCR0570
          IF (TEMP-50.)  80,40,40                                              RCR0530
    30    Cl-EXP(TElIP)                                                         RCR0590
    90    IF (KST-4)  100,100,110                                              RCR0600
    100   IF (IIL-5000.)  190,110,110                                           RCR0610
    C        IF STABLE  CONDITION OR UNLIMITED MIXING HEIGHT,                  RCR0620
    C         USE  EQUATION  3.2 IF Z = 0, OR EQ 3.1 FOR  NON-ZERO Z.           RCR0630
    C         (EQUATION NUMBERS REFER TO WORKBOOK OF ATMOSPHERIC DISPERSION  RC&0640
    C         ESTIMATES.)                                                      RCR0650
    110   C2=2.*SZ*SZ                                                          RCR0660
          IF (Z) 40,120,140                                                   RCR0670
    C       NOTE: AN  ERRONEOUS NEGATIVE Z WILL RESULT IN  ZERO CONCENTRATIONS RCR0680
    120   C3 = 1I*11/C2                                                            RCR0690
          IF (C3-50.)  130,40,40                                               RCR0700
    130   A2=1./EXP(C3)                                                       RCR0710
    C        WADE  EQUATION  3.2.                                               RCR0720
          RC=A2/(3. 14159*U*SY*SZ*C1)                                          RCR0730
          RETURN                                                               RCR0740
    140   A2=0.                                                                RCR0750
          A3=0.                                                                RCR0760
          CA=Z-H                                                               RCR0770
          CB=Z+H                                                               RCR07SO
          C3=CA*CA/C2                                                          RCR0790
          C4=CB*CB/C2                                                          RCR0800
          IF (C3-50.)  150,160,160                                             R.CR0810
    150   A2-1./EXP(C3)                                                        RCR0820
    160   IF (C4-50.)  170,180,180                                             RCR0830
    170   A3»l./EXP(C4)                                                        RCR0840
    C        WADE  EQUATION  3.1.                                               RCR0850
    180   RC=(A2+A3)/(6.28318*U*SY*SZ*C1)                                     RCR0860
          RETURN                                                               RCR0870
    C        IF SICMA-Z IS  GREATER THAN 1.6 TIMES"THE MIXING  HEIGHT,         RCR0888
    C         THE DISTRIBUTION BELOW THE MIXING HEIGHT  IS UNIFORM WITH       RCR0890
    C         HEIGHT  REGARDLESS OF SOURCE HEIGHT BECAUSE  OF REPEATED EDDY    RCR0900
    C         REFLECTIONS  FROM THE GROUND AND THE MIXING  HEIGHT. '           RCR0910
    190   IF (SZ/HL-1.6)  210,210,200                      "                    RCR0920
    

    -------
    C        HADE EQUATION  3.5.                                                RCR0930
    200   RC-1./(2.5066*U*SY*HL*C1)                                            RCR0940
          RETURN                                                               RCR0950
    C        INITIAL VALUE  OF  AN  SET - 0.                                      RCR0960
    C         AH - THE NUMBER  OF  TIMES THE SUMMATION TERM IS EVALUATED        RCR0970
    C               AND ADDED  IN.                                              RCR0980
    210   AN=0.                                                                RCR0990
          IF (Z) 40,370,220                                                   RCR1000
    C       STATEMENTS 220-260 CALCULATE RC,  THE RELATIVE CONCENTRATION,      RCR1010
    C         USING THE EQUATION  DISCUSSED ABOVE.  SEVERAL INTERMEDIATE       RCR1020
    C         VARIABLES ARE USED  TO  AVOID  REPEATING CALCULATIONS.             RCR1030
    C         CHECKS ARE MADE  TO  BE  SURE THAT THE ARGUMENT OF THE             RCR1040
    C         EXPONENTIAL FUNCTION IS NEVER GREATER THAN 50  (OR LESS  THAN     RCR1050
    C         -50).  IF 'AN' BECOMES GREATER THAN 45, A LINE OF OUTPUT  IS     RCR1060
    C         PRINTED INFORMING OF THIS.                                      RCR1070
    C        CALCULATE MULTIPLE EDDY REFLECTIONS FOR RECEPTOR HEIGHT  Z.       RCR1080
    220   A1=1./(6.28318*U*SY*SZ*C1)             '                             RCR1090
          C2=2.*SZ*SZ                                                          RCR1100
          A2=0.                                                                RCR1110
          A3=0.                                                                RCR1120
          CA-Z-H                                                               RCR1130
          CB=Z+H                                                               RCR1140
          C3=CA*CA/C2                                                          RCR1150
          C4=CB*CB/C2                                                          RCR1160
          IF (C3-50.) 230,240,240                                             RCR1170
    230   A2=1./EXP(C3)                                                        RCR1180
    240   IF (C4-50.) 250,260,260                                             RCR1190
    250   A3=l./EXP(C4)                                                        RCR1200
    260   SUM-0.                                                               RCR1210
          TUL=2.*HL                                                            RCR1220
    270   AN=AH+1.                                                             RCR1230
          A4=0.                                                                RCR1240
          A5=0.                                                                RCR1250
          A6=0.                                                                RCR1260
          A7=0.                                                                RCR1270
          C5=At:*THL                                                            RCR1280
          CC=CA-C5                                                             RCK1290
          C1J=CB-C5                                                             RCR1300
          CK-CA+C5                                                             RCR1310
          CF=CB+C5                                                             RCR1320
          C6=CC*CC/C2                                                          RCR1330
          C7=CD*CD/C2                                                          RCR1340
          Co=CE*CE/C2                                                          UCR1350
          C9=CF*CF/C2                                                          RCR1360
          IF (C6-50.) 230,290,290                                             RCR1370
    280   A4=l./LXP(C6)                                                        RCR1380
    290   IF (C7-50.) 31)0,310,310                                             RCR1390
    300   A5=1./EXP(C7)                                                        RCR1400
    310   IF (C3-50.) 320,330,330                                             RCR1410
    320   A6 = l ./i:XF (C3)                                                        RCR1420
    330   If (C9-50.) 340,350,350                                             RCR1430
    340   A7 = l ./i:xr(C9)                                                        RCR1440
    350   T=A4+A5+A6+A7                                                        RCU1450
          SUi: = SU![+T                                                            RCR1460
          IF (T-0.01) 300,270,270                                             RCR1470
    360   RC=Al*(A2+A3+SUi!)                                                   RCR1480
          R;:TUR:I                                                               RCR1490
    C        CALCULATE MULTIPLE EDDY REFLECTIONS FOR GROUND  LEVEL  RECEPTOR   RCR1500
    C        HEIGHT.                                                           HCR1510
    370   Al=l./(6.28318*U*SY*SZ*C1)                                          RCR1520
          A2=0.                                                                RCK1530
          C2=2.*SZ*SZ                                                          RCU1540
                                            170
    

    -------
    3SO
    390
    
    400
          C3 = K*tl/C2
          IF (C3-50.)  330,3'JO,390
          A2 = 2./F,XP(C3)
    
    
    
    
    
    
    
    
    410
    420
    430
    440
    
    450
    
    C '
    460
    
    A 4=0 .
    A 0=0.
    C5=A;i*THL
    CC=H-C5
    CE=H+C5
    C6=CC»CC/C2
    CG=CE*CE/C2
    IF (C6-50.) 410,420,420
    A4=2 . /EXP (C6)
    IF (CC-50.) 430,440,440
    A6=2. /EXP (Ca)
    T=A4+A6
    IF (T-0.01) 450,400,400
    RC=A1* (A2+SIT1)
    RETURN
    
    FORMAT (lhO,'30TH 11 AND Z ARE ABOVE
    IE COMPUTATION CAN NOT BE HADE.')
                                               THE  lilXIUG  HEIGHT SO
                                                                       RELIAI5L
          EliD
    P.CK1550
    RCRl 560
    RCR1570
    RCRISSO
    LCI! 1590
    RCR1&00
    RCU1510
    RCK1620
    KCR1630
    RCR1G40
    RCR1G50
    RCR1G&0
    P C111 6 7 0
    RCR1680
    RCR1690
    ? C R 1 7 0 0
    RCRl 710
    RCR1720
    RCR1730
    RCRl740
    RCRl 750
    R C R 1 7 6 0
    UCK1770
    RCR1730
    RCRl790
    RCRloOO
    RCRl310
          GUBROUTItlE  PGSZ  (X.KST.SZ)                                          PGZ0010
    C        D.  a.  TURNER,  EH VIRON11EUTAL AP PL 1C AT 1011S  BRANCH                 PGZ0020
    C         METEOROLOGY  LABORATORY, ENVIRONMENTAL  PROTECTION AGENCY        TG:i0030
    C          RESEARCH  TRIANGLE PARK, N C 27711                              PGZ0040
    C              (919)  549 - 8411, EXTENSION  4565                            PCZ0050
    C        VERTICAL  DISPERSION PARAMETER VALUE,  SZ  DETERMINED BY           PCZ0060
    C         SZ  =  A  * X ** B UlIERE A AND D ARE FUNCTIONS  OF BOTH STABILITY  PCZ0070
    C         AND RANGE  OF  X.                         ,                        PGZ0080
    C        HORIZONTAL  DISPERSION PARAMETER VALUE,  SY DETERMINED BY         PGZ0090
    C         LOGARITHMIC  INTERPOLATION OF PLUME  HALF-ANGLE ACCORDING TO     PGZ0100
    C         DISTANCE AND  CALCULATION OF 1/2.15  TIMES HALF-ARC LENGTH.      PGZ0110
          DIMENSION XA(7),XB(2),XD(5),XE(8),XF(9),AA(3),DA(8),AB(3),BB(3),   PGZ0120
         1 AD(6),BD(6),AE(9),BE(9),AF(10),BF(10)                              PCZ0130
          DATA XA/.5,.4,.3,.25,.2, . 15, .!/                                     PCZ0140
          DATA XB/.4..2/                                                      PGZ0150
          DATA XD  /30.,10.,3.,1.,.3/                                          PGZ0160
          DATA XE  /40. ,20.,10. ,4. ,2.,1.,.3,.l/                                PGZ0170
          DATA XF  /60.,30. ,15. ,7. ,3. ,2.,1.,.7,.2/                             PGZ0180
          DATA AA  7453.85,346.75,258.89,217.41,179.52,170.22,153.08,122.8/   PGZ0190
          DATA BA  /2. 1166, 1.7283, 1.4094, 1.2644, 1. 1262,1.0932, 1.0542,.94477   PCZ0200
          DATA AB /109.30.98.483,90.673/                                      PGZ0210
          DATA BB 71.0971,0.93332,0.931987                                    PGZ0220
          DATA AD  744.053,36.650,33.504,32.093,32.093,34.4597                PCZ0230
          DATA BD  70.51179,0.56589,0.60486,0.64403,0.81066,0.869747          PGZ0240
          DATA AE  747.618,35.420,26.970,24.703,22.534,21.628,21.628,23.331,  PGZ0250
         1 24.26-7                                                              PGZ0260
          DATA BE 70.29592,0.37615,0.46713,0.50527,0.57154,0.63077,0.75660,  PGZ0270
         1 0.81956.0.8366/                                                     PGZ0280
          DATA AF 734.219,27.074,22.651,17.836,16.187,14.823,13.953,13.953,  PGZ0290
         1 14.457,15.2097                                                      PGZ0300
          DATA BF 70.21716,0.27436,0.32681,0.41507,0.46490,0.54503,0.63227,  PGZ0310
                                            171
    

    -------
         1 0.68465,0.78407,0.815587
          GO TO  (10,20,30,40,50,60),KST
    J        STABILITY  A  (10)
     10   IF (X.GT.3.11)  GO  TO  69
          DO 11  ID -  1,7
          IF(X.GE.XA(ID))  GO TO 12
       H CONTINUE
          ID - 8
       12 SZ - AA(ID) * X ** BA(ID)
          GO TO  71
    :        STABILITY  B  (20)
     20   IF(X.GT.35.)  GO TO 69
          DO 21  ID =  1,2
          IF (X.GE.XB(ID)) GO TO  22
       21 CONTINUE
          ID - 3
       22 SZ - AB(ID) * X ** BB(ID)
          GO TO  70
    :        STABILITY  C  (30)
     30   SZ - 61. 141 *X  **  0.91465
          GO TO  70
    ;        STABILITY  D  (40)
     40   DO 41  ID »  1,5
          IF (X.GE.XD(ID)) GO TO  42
          CONTINUE
          ID = 6
          SZ = AD(ID) * X ** BD(ID)
          GO TO  70
             STABILITY  E  (50)
          DO 51  ID =  1,8
          IF (X.GE.XE(ID)) GO TO  52
          CONTINUE
          ID = 9
          SZ = AE(ID) * X ** BE(ID)
          GO TO  70
             STABILITY  F  (60)
          DO 61  ID =  1,9
          IF (X.CE.XF(ID)) GO TO  62
          CONTINUE
          ID = 10
          SZ = AF(ID) * X ** BF(IB)
          GO TO  70
          SZ = 5000.
          GO TO  71
          IF (SZ.GT.5000.) SZ = 5000.
     71   RETURN
          END
    50
    60
     41
    
     42
    
    
    )
    
     51
    
     52
    
    
    )
    
     61
    
     62
    
     69
    
     70
    PGZ0320
    PGZ0330
    PGZ0340
    PGZ0350
    PGZ0360
    PGZ0370
    PGZ0380
    PGZ0390
    PGZ0400
    PGZ0410
    PGZ0420
    PGZ0430
    PGZ0440
    PGZ0450
    PGZ0460
    PGZ0470
    PGZ0480
    PGZ0490
    PGZ0500
    PCZ0510
    FCZ0520
    PGZ0530
    PGZ0540
    PCZ0550
    PGZ0560
    PGZ0570
    PGZ0580
    PCZ0590-
    PCZ0600
    PGZ0610
    PGZ0620
    PCZ0630
    PGZ0640
    PCZ0650
    PCZ06GO
    PCZ0670
    PGZ0680
    PGZ0690
    FCZ0700
    PGZ0710
    FGZ0720
    PGZ0730
    PGZ0740
    PGZ0750
    PGZ0760
    PGZ0770
    FGZ07SO
          SUBROUTINE  PCSYSZ  (X,KST,SY,SZ )                                      PGYZ010
    C        D. B. TURNER,  ENVIRONMENTAL APPLICATIONS BRANCH                  PGYZ020
    C         METEOROLOGY  LABORATORY, El. V IRONMEliTAL PROTECTION AGENCY         PCYZ030
    C          RESEARCH  TRIANGLE  PARK,  N C 27711                              PGY7.040
    C              (919)  549  -  8411,  EXTENSION 4565                            PCYZ050
    C        VERTICAL  DISPERSION  PARAMETER VALUE, SZ DETERMINED  BY            PCYZ060
    C         SZ  = A  * X **  3  WHERE  A AND  B ARE FUNCTIONS OF LOTH STABILITY   PGY2070
    C         AND  RANGE  OF X.                                                  PGYZ080
    C        HORIZONTAL  DISPERSION PAKAt'ETER VALUE, SY DETERMINED CY          PGYZ090
    C         LOGAHITalilC  INTERPOLATION OF PLU1IE HALF-ANCLE ACCORDING  TO      PGYZ100
    C         DISTANCE AND CALCULATION  OF  1/2.15 TI.iLS UALF-ARC  LENGTH.       PGYZ110
                                            172
    

    -------
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    10
    
    
    
    11
    
    12
    
    
    20
    
    
    
    21
    
    22
    
    
    30
    
    
    
    40
    
    
    41
    
    42
    
    
    50
    
    
    51
    
    52
    
    
    DIMENSION XA(7 ) , XB(2) , XI) (5) , XE (8) , XF ( 9 ) , AA(3) , BA(G) ,AB(3) ,BB<3) ,
    1 AD (6) , BD(6) , AE(9 ) , BE(9) ,AF(10) ,BF( 10)
    DATA XA/. 5, .4, .3, .25, .2, .15,. I/
    I'ATA XE/ .4, . 21
    DATA XD /30. , 10. ,3. , 1. , .37
    DATA XE /40. , 20. , 10. ,4. ,2. , 1. , . 3, . I/
    DATA XF /60., 30. ,15. ,7. ,3. ,2.,!., .7, . 2/
    DATA AA 7453. 35, 346. 75, 258. 89, 217. 41, 179. 52, 170. 22, 158. 03, 122. 8/
    DATA 13 A /2. 1166, 1. 7233, 1.40 9 4,1. 2644, 1. 1262, 1.0 932, 1.05 4 2,. 9 4 47/
    DATA AB 7109.30,92.483,90.6737
    DATA CB 71.0971,0.98332,0.931987
    DATA AD 744.053,36.650,33.504,32.093,32.093,34.4597
    DATA 13!) 70.51179,0.56589,0.60486,0.64403,0.81066,0.369747
    DATA A1-: 747. 618, 35. 420, 2 6. 970, 24. 703, 22. 534, 21. 628, 21. 628, 23. 331,
    1 24.267
    DATA BE /O. 295 92, 0.37615, 0.46713, 0.50527, 0.57154, 0.63077, 0.75660,
    1 0.81956,0.83667
    DATA AF 734. 219, 27. 074, 22. 651, 17. 336, 16. 187, 14. 823, 13. 953, 13. 953,
    1 14.457,15.2097
    DATA 13 F /O. 217 16, 0.27436,0. 32681, 0.41507, 0.46490, 0.54503, 0.63227,
    1 0.60465,0.78407,0.815537
    XY=X
    GO TO (10, 20, 30, 40, 50, 60) ,KST
    STABILITY A (10)
    TU = (24.167 - 2. 5334*ALOG(XY) )/57. 2958
    IF (X.CT. 3. 11) GO TO 69
    DO 11 ID = 1,7
    IF (X.GE. XA(ID) ) GO TO 12
    CONTINUE
    ID = a
    SZ = AA(ID) * X ** BA(ID)
    GO TO 71
    STABILITY B (20)
    TH = (18.333 - 1 . 8096*ALOG(XY) )/57. 2958
    IF(X.GT.35.) GO TO 69
    DO 21 ID = 1,2
    IF (X.GE.XB(ID) ) GO TO 22
    CONTINUE
    ID = 3
    SZ = AB(ID) * X ** BB(ID)
    GO TO 70
    STABILITY C (30)
    TH = (12.5 - 1.0857*ALOG(XY))/57.2958
    SZ = 61.141 *X ** 0. 91465
    CO TO 70
    STABILITY D (40)
    TU = (8. 3333-0. 72382 *ALOG (XY) ) 75 7. 2958
    DO 41 ID = 1,5
    IF (X.GE.XD(ID) ) GO TO 42
    CONTINUE
    ID = 6
    SZ = AD(ID) * X ** BD(ID)
    GO TO 70
    STABILITY E (50)
    TH - (6.25 - 0.54287*ALOG(XY))/57.2958
    DO 51 ID • 1,8
    IF (X.GE.XE(ID) ) GO TO 52
    CONTINUE
    ID - 9
    SZ - AE(ID) * X ** BE(ID)
    GO TO 70
    STABILITY F (60)
    PGYZ 120
    PGYZ 130
    PGYZ 140
    PGYZ 150
    PGYZ 160
    PGYZ 170
    PGYZ 130
    PGYZ 190
    PGYZ200
    PGYZ210
    PGYZ220
    PGYZ 2 30
    PGYZ240
    PCYZ250
    PGYZ 2 60
    PGYZ270
    PGYZ230
    PGYZ290
    PGYZ300
    PCYZ310
    PGYZ320
    PGYZ330
    PGYZ340
    PGYZ350
    PGYZ360
    PGYZ370
    PGYZ380
    PGYZ390
    PGYZ400
    PGYZ410
    PGYZ420
    PGYZ430
    PGYZ 440
    PGYZ'450
    PGY2460
    EGYZ470
    PGYZ480
    PCYZ490
    PGYZ500
    PGYZ510
    PGYZ520
    PGYZ530
    PGYZ540
    PGYZ550
    PGYZ560
    PGYZ570
    PGYZ580
    PGYZ590
    PGYZ 600
    PGYZ610
    PGYZ620
    PGYZ630
    PGYZ640
    PGYZ650
    PGYZ660
    PGYZ670
    PGYZ680
    PGYZ690
    PGYZ700
    PGYZ710
    PGYZ720
    PGYZ730
    173
    

    -------
    60 TH - (4.1667 - 0. 361 91 *ALOG (XYM /57. 2958
    DO 61 ID - 1,9
    IF (X.GE.XF(ID) ) GO TO 62
    61 CONTINUE
    ID - 10
    62 SZ - AF(ID) * X ** BF(ID)
    GO TO 70
    69 SZ = 5000.
    GO TO 71
    70 IF (SZ.GT.5000.) SZ - 5000.
    71 SY - 465.116 * XY * SIN(Ttt) / COS(TH)
    C 465.116 - 1000. (M/KM) / 2.15
    RETURN
    END
    BLOCK DATA
    C***COEFFICIENTS GENERATED WITH RURAL SIGMAS USING PGSYSZ & PGSZ
    C***DISTANCE OF tlAX. CONC. FROM FT SOURCE=PXCOF (KST, IH) *I1**PXEXP (KST , IH)
    C***RELATIVE CONC. NORMALIZED FOR WIND SPEED FROM PT SOURCE, CHI*U/Q, =
    C*** PXUCOF(KST, IH) *H**PXUEXP (KST , IH)
    C***DISTANCE OF MAX. CONC. FROM DOWNWIND EDGE OF AREA SOURCE =
    C*** AXCOF(KST, IH)*H**AXEXP(KST,IH)
    C*** IIi=l FOR 11 LESS THAN 20 METERS.
    C*** IH = 2 FOR H FR01I 20 TO 30 METERS.
    C*** IH = 3 FOR tl FROI1 30 TO 50 METERS.
    c*** IH = 4 FOR 11 FROM 50 TO 70 METERS.
    C*** IH = 5 FOR H FROM 70 TO 100 11ETERS.
    C*** 111 = 6 FOR U FROM 100 TO 200 METERS.
    C*** 111 = 7 FOR 11 FROM 200 TO 300 METERS.
    C*** IH = 3 FOR 11 FROU 300 TO 500 11ETERS.
    C*** IH=9 FOR H GREATER THAN 500 METERS.
    C011MON /COEFFS/ PXCOF(6, 9) ,PXEXP(6, 9 ) , PXUCOF ( 6 , 9 ) , PXUEXP ( 6 , 9 ) ,
    *AXCOF(6 , 9) ,AXEXP(6, 9) ,HCl (10)
    DATA rxcor/
    * .12743E-01,
    * .S7095E-02,
    * .76095C-02,
    * .67199E-02,
    * .14425E-U1,
    * . 79956E-03,
    * .15400E-02,
    * . 12670E-02,
    * .75225E-02,
    * .104011: -01,
    DATA P'T"P/
    * . 12469E+01,
    * . 12329E+01,
    * . 109 J7E+01 ,
    * . 10176E+01,
    * .7331SL+00,
    * . 21366E+01,
    * . 17G73E+01 ,
    * . 16753i: + 01 ,
    * .10966E+01,
    * . 91440E+00,
    DATA PXUCOF/
    * . 13355E+00,
    * .1C239E+00,
    * .13963L+00,
    . 3S9G4E-02,
    .21051E-01,
    . 10152E-01,
    . 14437E-01,
    .75237E-02,
    . 10509E-01 ,
    .37139E-01,
    . 14422E-03,
    . 13342E-03,
    .34390E-03,
    . 74961E-02,
    .109 95E + 0 1 ,
    . 12577E+01 ,
    . 13228E+01 ,
    . 10843E+01 ,
    . 10966E+01,
    . 91 238E+QO,
    . 53232E+00,
    .25085E+01,
    .22426E+01,
    . 1 7455E+01,
    . 10971E+01 ,
    . 10401E+00,
    . 1066SE + 00,
    . 20453E+00,
    . 1 91 62E+00,
    .54607E-02,
    .59088E-02,
    .10867E-01,
    .79376E-02,
    .22618E-02,
    .75283E-02,
    .10418E-01,
    .51107E-01,
    .43952E-09,
    . 10930E-06,
    . 19441E-03,
    . 10757E+0 1 ,
    .96054E+00,
    . 14784E+01,
    . 13951E+01,
    . 15582E+01,
    . 10965E+01,
    . 91427E+00,
    .47257E+00,
    .49057E+01,
    .34951E+01,
    . 19827E+01,
    . 12133E+00,
    .77533E-01,
    . 34326E+00,
    .38998E+00,
    .75278E-02,
    .50774E-02,
    .59366E-02,
    .10552E-01,
    .38170E-02,
    .22489E-02,
    . 75363E-02,
    . 10468E-01,
    .50921E-01,
    .13979E-02,
    . 10S59E-04,
    . 10965E+01 ,
    . 11000E+01 ,
    . 95916E+00,
    .14870E+01,
    . 15323E+01,
    .15595E+01,
    . 10963E+01,
    .91337E+00,
    .47321E+00,
    .22807E+01,
    .27551E+01,
    . 14273E+00,
    . 1 1728E+00,
    .G7223E-01 ,
    . 76271E+00,
    .11563E-01,
    .74442E-02,
    .67049E-02,
    .10739E-01,
    .13053E-02,
    .24006E-02,
    . 17287E-02,
    . 75324E-02,
    .10472E-01,
    .50996E-01,
    .20000E+04/
    . 1 1383E + 01 ,
    . 11002E+01,
    . 10132C+01,
    .80763E+00,
    .20212E+01,
    . 16914E+01,
    . 16166E+01,
    .10964E+01,
    .91331C-+00,
    .47297E+00,
    .OOOOOE+00/
    . 1535113 + 00,
    . 14120E+00,
    . 10013E + 00,
    .40434C-01 ,
    PGYZ740
    PGYZ750
    PGYZ760
    PCYZ770
    PGYZ780
    PGYZ790
    PGYZ800
    PGYZ810
    PGYZ820
    PGYZ830
    PGYZ840
    PGYZ850
    PGYZ860
    PGYZ870
    BLKR010
    BLKR020
    BLKR030
    BLKR040
    BLKR050
    BLKR060
    BLKR070
    BLKR080
    BLKR090
    BLKR100
    BLKR110
    BLKR120
    BLKR130
    BLKR140
    BLKR150
    BLKR160
    BLKR170
    BLKR180
    BLKRJ90
    BLKR200
    BLKR210
    BLK.R220
    BLKR230
    BLKR240
    BLKR250
    BLKR260
    BLK.R270
    B L KR 2 8 0
    BLKR290
    BLKR300
    BLKR3IO
    BLKR320
    BL1CR330
    BLKR340
    BLKR350
    ELKR360
    3L1U1370
    ELKR380
    BLKR390
    13LKR400
    BLKR410
    BHIR420
    CLICR430
    f,Li:R440
    174
    

    -------
    * .75308E-01,
    * .2S539E-01,
    * . 56943E+01,
    * . 2331SE + 01,
    * . 10826E + 01 ,
    * .12546E+00,
    * .00615E-01,
    DATA PXUEXP/ -.
    * -.21822E+01, -.
    * -. 21317E+01 , -.
    * -.20017E+01, -.
    * -. 13468K + 01, -.
    * -. 15940E+01, -.
    * -.3151 1E+01 , -.
    * -.28678E+01, -.
    * -.25514E+01, -.
    * -.197932+01, -.
    * -.1S012E+01, -.
    DATA AXCOF/
    * .17234E-01,
    * .13875E-01,
    * .1107912-01,
    * .I3824E-01,
    * .32619E-01,
    * .73510E-06,
    * .20868E-04,
    * .11204E-02,
    * .11153E-01,
    * .13881E-01,
    DATA AXF.XP/
    * .13211E+01,
    * .12332E+01,
    * .10949E+01,
    * .91206E+00,
    * .53703E+00,
    * .41392E+01,
    * .29494E+01,
    * .18483E+01,
    * .10932E+01,
    * .91129E+00,
    DATA HCl/10. ,20.
    END
    13784C+00,
    66936E-01,
    14792E-01,
    40940E+03,
    77020E+02,
    15530E+01,
    11952E+00,
    19460E+01, -.
    22176E+01, -.
    22094E+01, -.
    21462E+01, -.
    19984E+01, -.
    18191E+01, -.
    14513E+01, -.
    40795E+01, -.
    34879E+01, -.
    26152E+01, -.
    19721E+01, -.
    68365E-02,
    197U3E-01,
    91114E-02,
    53876E-02,
    11267E-01,
    13833E-01,
    53524E-01,
    23987E-05,
    21361E-05,
    61073E-03,
    11140E-01,
    10103E+01,
    14994E+01,
    15339E+01,
    15113E+01,
    10906E+01,
    91191E+00,
    47949E+00,
    33412E+01,
    33796E+01,
    19546E+01,
    10933E+01,
    ,30. ,50. ,70. ,
    
    54357E+00,
    13615E+00,
    65799E-01 ,
    12403E-01,
    2301 1E+05,
    68810i:+03,
    22517E+01,
    19774E+01 ,
    18479E+01,
    24209E+01,
    23991E+01,
    24120E+01 ,
    19955E+01 ,
    13153E+01,
    14131E+01 ,
    48399E+01 ,
    33719E+01,
    26744E+01 ,
    79134E-02,
    92054E-02,
    65416E-02,
    48999E-02,
    42195E-02,
    11119E-01,
    13321E-01 ,
    55881E-01,
    20000E+04,
    10114E-03,
    61554E-03,
    1074SE+01 ,
    91095E+00,
    18689E+01 ,
    17163E+01,
    15738E+01 ,
    10937E+01,
    91210E+00,
    47136E+00,
    OOOOOE+00,
    27033E+01,
    19534E+01,
    100. ,200. ,
    
    . 72550E+00,
    .52790E+00,
    .13315E+00,
    .64321E-01,
    .12340E-01,
    .46522E+06,
    .42342E+03,
    -.20086E+01, -.
    -.196C1E+01, -.
    -. 18060E+01 , -.
    -.26556E+01, -.
    -.25573E+01, -.
    -.24059E+01, -.
    -. 1990712 + 01 , -.
    -.18111E+01, -.
    -.14172E+01, -.
    -.53670E+01, -.
    -.37956E+01, -.
    .11062E-01,
    . 94211E-02,
    .12311E-01,
    ,170o7E-02,
    .17526E-02,
    .30122E-02,
    .11115E-01,
    .13920E-01,
    .55160E-01,
    .20000E+04,
    .20000E+04,
    .10960E+01,
    .10166E+01,
    .82547E+00,
    .22636E+01,
    .19791E+01,
    .16531E+01,
    .10938E+01,
    .91075E+00,
    .47363E+00,
    .OOOOOE+00,
    .OOOOOE+00,
    300. ,500. ,1000. /
    
    22936E+01,
    1290SE+01,
    74332E+00,
    12927E+00,
    62874E-01 ,
    12245E-01,
    OOOOOE+00/
    20742E+01 ,
    20050E+01,
    19196E+01 ,
    16763E+01 ,
    29371E+01 ,
    26934E+01,
    2421 7E+01 ,
    19851E+U1,
    13071E+01,
    14160E+01 ,
    17020E+02/
    14818E-01 ,
    11254E-01,
    11 151E-01 ,
    19297E-01,
    13715E-03,
    11144E-02,
    22334E-02,
    11152E-01,
    13833E-01,
    55799E-01,
    20000E+04/
    12112E+01*
    10903E+01,
    96699E+00,
    71059E+00,
    29084E+01 ,
    20356E+01 ,
    1 7131E+01 ,
    10932E+01,
    911 7SE+00,
    471 78E+00,
    OOOOOE+00/
    
    
    B L 1CR 450
    BLi:U460
    BLKR470
    BLUR 4 30
    B L RR 490
    RLKR500
    BLURS 10
    BL1CK520
    BLKR530
    B L KG 540
    BLKR550
    BLKR560
    15 L KR 570
    BLRR580
    BLKR590
    HLKRGOO
    1SLKR610
    BLKR620
    BLKR630
    B L RR 6 4 0
    BLUR650
    B L KR 660
    B L RR 670
    BLKR680
    BLKR690
    BLRR700
    BLKR710
    13LRR720
    BLRR730
    BLRR740
    BLKR750
    BLUR 760
    B L RR 7 7 0
    DLRR780
    ELKR790
    BLt'.RSOO
    BLKR810
    BLKK320
    ELKRS30
    DLKR840
    BLKR850
    BLKR860
    175
    

    -------
                               RAMFR  PROGRAM LISTING
                                                        .H., AMD
                                                         VOL. 26,  NO.
                                                         DETERMINE
                                                         POINT ANP
                                                                            6,
    C***   RURAL  BATCH VERSIOH ( 7 3 1 24 )  OF  RAMFR
    C***RAMFR  IS  THE RURAL VERSION OF  RAM WHICH PRODUCES  OUTPUT  TO TAPE
    C***OR DISK FOR PLOTTING CUMULATIVE  FREQUENCY DISTRIBUTIONS  FOR A YEAR.
    C***RAM  IS AN EFFICIENT GAUSSIAN-PLUME MULTIPLE-SOURCE
    C***AIR  QUALITY ALGORITHM. RAM IS  DESCRIBED IN: NOVAK, J
    C***TURHER,D.B. , 1976: AIR POLLUTION  CONTROL ASSOC. J . ,
    C***PAGES  570-575(JU1JE 1976).  RAM'S  PRINCIPAL USE  IS  TO
    C***SHORT  TERM(ONE-HOUR TO ONE-DAY)  CONCENTRATIONS FROM
    C.***AREA SOURCES IN URBAN AREAS.
    C***SEE  RAM GLOSSARY FOR DEFINITIONS  OF VARIABLES.
    C***
    C***           POINT SOURCE INFORMATION
    C***
                      SOURCES)      1=EAST  CO-ORD(USER UNITS)
                                    2-NORTH CO-ORD(USER  UNITS)
                                    3=S02  EMISSION RATE(C/SEC)
                                    4=PART  EMISSION RATE(G/SEC)
                                    5=STACK HEIGHT(M)
                                    6 -STACK
                                    7=STACK
                                    8=STACK
    C***SOURCE(9,#PT
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***PNAME
    C***           AREA
                                      TEMP(K)
                                      DIAM(M)
                                      VELOCITY(M/S)
                              9=PARTIAL CALCULATION OF BUOYANCY
                    12  CHARACTER PL'ANT IDENTIFICATION
                   SOURCE  INFORMATION
    C***ASORC(6 , //AREA
    C***
    c***
    c***
    c***
    c***
           COMMON
                 SOURCES)   1=X CO-ORD(USER  UNITS), SOUTHWEST  CORNER
                            2=Y CO-ORD(USER  UNITS), SOUTHWEST  CORNER
                            3=S02 EMISSION RATE(G/SEC)
                            4=PART EMISSION  RATE(C/SEC)
                            5=SIDE LENGTH(USER UNITS)
                            &=STACK HEIGHT(M)
            /COEFFS/  PXCOF(6,9),PXEXP(6,9),PXUCOF(6,9),PXUEXP(6,9),AXCO
    IF(6, 9) ,AXEXP(6,9) ,HC1(10)
     COMMON /RELC/  CIU(3,200)
     COMM01I /SOUC/  IA(25,25),SOURCE(9,250),ASORC(6,100),UNITS,COIJTUO.RR
    1EC(150),SREC(150),MPS(25),MAS(10),IOPT(13),I POL,URECEP,RMI1J,RMAX,S
    2MIIJ, SMAX.IRSIZE, I SSIZ E, HPT , HAS , IISIGP , I! SIGA , PNAME ( 2 , 250),PSAV(250)
     COMMOII /METCON/  ACH1(150),PCH1(150),ASICS(150,11),rSIGS(150,26),IA
    1SIGS(100),IPSIGS(250).THETA.U,KST.HL.TEMP,SINT,COST,BPH(2),IWD.PAK
    2TC (250) .AHCllI (150),PUC[1I(150),AI1SIGS(150,11),P11SIGS(150,26),PL(6)
     COMMON /HEIGHT/  HIUT ( 3)  , HARE ( 3 ) , BPHM ( 2 ) , Fll
                      QTHETA(24),QU(24),IKST(24),QHL(24),QTEMP(24),IDATE
                  /METDAT/
                  /11CGRID/
                  /SUM/ AN1
           COMMON
          1(2)
           COMMON
           COtlMON
           COMMON
           DIMENS
          12,24), Li:iEl(
          225),  IMAS(IO)
    1IRMIH,HRMAX,HSMIH,IISMAX
    SUM (150), DMAX(2,5, 150),
                                                UMAX ( 3 , 5 , 1 50 )
             ITYPE(150),ICODE(150),IN, 10 , N IP , HID , i:AVG
           ION  IFREQ(7), DEG(3), HSAV(250), RHAUE(2,50)
             Li:iEl(14),  LINE2(14), LIIJE3(14),  MODEL(2), USAV(250),
                     URilEC(150), USRLC(ISO), TITLE(2), GUA1!DS(150)
                                                                 DUMR(24),  HLH(
           DATA IFREQ /7*0/  ,DEG  /9 0 . , 1 SO . , 2 70 . /  ,IC,'1AR /'I'/
           DATA PL/0.07,0.07,0.10,0.15,0.35,0.55/
           DATA MODEL /'P.URAL  ",'URLAli  '/ ,TITLL  /'  £02  ','
           I1UECEP = 0
                                                               PART '/
    RFR0010
    RFR0020
    RFR0030
    RFR0040
    RFR0050
    RFR0060
    RFR0070
    RFR0080
    RFR0090
    RFR0100
    RFR0110
    RFR0120
    RFR0130
    RFR0140
    RFR0150
    RFR0160
    RFR0170
    RFR0180
    RFR0190
    RFR0200
    RFR0210
    RFR0220
    RFR0230
    RFR0240
    RFR0250
    RFR0260
    RFR0270
    RFR0230
    RFR0290
    R-FR0300
    RFR0310
    RFR0320
    RFR0330
    RFR0340
    RFR0350
    RFR0360
    UFR0370
    RFR0300
    RFR0390
    RFH0400
    RFR0410
    RFR0420
    RFR0430
    RFR0440
    RFR0450
    RFR0460
    RFR0470
    RFR0480
    RFR0490
    RFRU500
    RFR0510
    R?R0520
    RFR0530
                                             176
    

    -------
          111 = 5
          10 = 6
    C***NID-DISK  OR TAPE INPUT  OF  PREPROCEGSED ElIISSIOII  DATA.
    C***I50 RECEPTORS, 250 POIHT  SOURCES AND 100 AREA  SOURCES
    C***i: IT-DISK  INPUT  OF MET DATA
    C***UiIIT 12 TAPE/DISK OUTPUT OF  HOURLY CONCENTRATIONS
    C***U:iIT 13 TAPE/DISK OUTPUT OF  DAILY CONCENTRATIONS
    C***UIJIT 14 DISK OUTPUT OF  SUMMARY DATA
    C***UNIT 15 - TAPE/DISK I1IPUT  OF HOURLY POINT  SOURCE EMIS
    C***UHIT 16 - TAPE/DISK INPUT  OF HOURLY AREA SOURCE  EMISS
    C***
    C***
    C***
    C***
          t:iT = li
    C***T1IREE  SYSTEMS OF LENGTH  AND COORDINATES ARE  USED IN
    C*** THE FIRST SYSTEM, USER  UNITS,  IS SELECTED BY  THE USER
    C***  NORMALLY USE THE COORDINATE SYSTEM OF THE  EMISSION
          ALL  LOCATIONS INPUT BY THE USER(SUCH AS  SOURCES AND
          ARE  IN  THIS SYSTEM. ALSO  AS A CONVENIENCE  TO THE USER
          LOCATIONS ON OUTPUT ARE ALSO  IN THIS SYSTEM.
         THE SECOND SYSTEM, INTERNAL UNITS, IS USED  INTERNALLY
          FOR  COORDINATE LOCATIONS  AND  DISTANCES.  ONE  INTERNAL
          SIDE  LENGTH OF THE SMALLEST AREA SOURCE  SQUARE. THIS
          BE IDENTIFIED AND SPECIFIED BY THE USER. THE PURPOSE
          INTERNAL UNITS IS TO HAVE A CORRESPONDENCE BETWEEN
          COORDINATES) AND PARTICULAR AREA SOURCE  POSITIONS.
          ACCOMPLISHED THROUGH THE  USE  OF THE AREA SOURCE MAP
          ). THIS ALLOWS DETERMINATION  AS TO WITHIN  WHICH AREA
          COORDINATE POINT RESIDES.
         THE THIRD SYSTEM, X,Y, IS AN UPWIND, CROSSWIND COOR
          WITH  REFERENCE TO EACH RECEPTOR. THE X-AXIS  IS DI
          (SAME AS WIND DIRECTION FOR THE PERIOD). Ill  ORDER TO
          DISPERSION PARAMETER VALUES AND EVALUATE EQUATIONS
          CONCENTRATIONS, DISTANCES IN  THIS SYSTEM MUST BE IN
    c***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***
    C***READ CARDS  1-3, IDENTIFICATION FOR TITLES.
          READ  (IN, 940) LINEl,LIt!E2,LINE3
          WRITE  (10,950) LIHE1.LINE2.LIHE3
    C***MODL IS  INDICATOR FOR RURAL VERSION
          MODL-1
          WRITE  (10,960)
    C***READ RAMQ OUTPUT FROM DISK OR TAPE; DATA  IN  INTERNAL UNITS
          READ  (HID)  UNITS, CONTWO , CONOHE , I POL , N PT , IMPS, PNAME , IMOD
    C***VERSIOH  COMPATIBLE WITH  RAMQ OUTPUT?
          IF (IMOD.EQ.MODL) GO TO  10
          WRITE  (10,1000) MODEL(IMOD) .MODEL(MODL)
          CALL EXIT
    C***CONTINUE  READING DATA TRANSFERRED FROM RAMQ.
    10    DO 20  1=1 , 9
    20    READ  (NID)  (SOURCE ( I , J ), J = l , HPT )
          READ  (NID)  HAS, IMAS , RMIN, RHAX, SHIN , SMAX, IRSIZE, ISSIZE
          DO 30  1=1,6
    30    READ  (HID)  ( ASORC ( I , J ) , J-l , NAS )'
          DO 40  1=1, IRSIZE
    40    READ  (NID)  (I A ( I , J ) , J-l , ISSIZ E )
    C***
    C***READ CARD 4.
    C***OPTION LIST***(SEE RUN STREAM EXAMPLES .OF  RAM  FOR  DETAILED
    C***DESCRIPTIOH  OF INPUT VARIABLES).
    C***HAVG IS  INTERMEDIATE AVERAGING TIME IN HOURS'
    C***HAFL IS  POLLUTANT HALF-LIFE IN SECONDS
          READ  (IN, 970) IOPT , NPER.NAVG , Z ,HAFL .NSIGP.NSICA , IDATE, IHS-TRT
          WRITE  (10,1030) (I, IOPT(I), 1-1,13)
    
    
    
    LIMITED TO:
    
    
    
    
    
    IONS
    ONS
    
    
    ,M: „
    . AND
    NVENTORY.
    RECEPTORS )
    R ALL
    
    IN RAM
    UNIT IS THE
    LENGTH MUST
    ; or USING
    ,OCATION (GRID
    'HIS IS
    ARRAY (IA ARRAY
    SOURCE ANY
    
    ATE SYSTEM
    TED UPWIND
    DETERMINE
    OR
    KILOMETERS.
    
    
    
    
    
    
    HITS.
    MOD
    
    
    
    
    
    
    
    E
    
    
    
    
    
    
    ILED
    
    
    
    E.IHS-TRT
    
    RFR0540
    RFR0550
    RFR0560
    RFR0570
    RFR0580
    RFR0590
    RFR0600
    RFR0610
    RFR0620
    RFR0630
    RFR0640
    RFR0650
    RFR0630
    RFR0670
    RFR0680
    RFR0690
    RFR0700
    RFR071 0
    RFR0720
    RFR0730
    RFR0740
    RFR0750
    RFR0760
    RFR0770
    RFR0780
    RFR0790
    RFR0800
    RFR0810
    RFR0820
    RFR0830
    RFR0840
    RFR0850
    RFR0860
    RFR0870
    RFR,0880
    RFff0890
    RFR0900
    RFR0910
    RFR0920
    RFR0930
    RFR0940
    RFR0950
    RFR0960
    RFR0970
    RFR0980
    RFR0990
    RFR1000
    RFR1010
    RFR1020
    RFR1030
    RFR1040
    RFR1050
    RER1060
    RFR1070
    RFR1080
    RFR1090
    RFR-1 100
    RFR11 10
    RFR1120
    RFR1130'
    RFR1140
    RFR1150
                                             177
    

    -------
           NDAYS=NAVG*NPER/24
           TLOS=693. /HAFL
     C***693.  - 0.693*1000 METERS/KM, TLOS IN METERS/KM-SEC .
           IF  (NAVG.EQ.O) CALL  EXIT
     C***READ  SFC MET. STATION  ID AND 2-DIGIT YEAR,
     C***MIXING HEIGHT STATION  AND 2-DIGIT YEAR
     C***ONLY  IF MET DATA IS FROM RAMMET
           IF  (lOPT(ll).EQ. 1) GO TO 60 .
     C***READ  CARD TYPE  5 UNLESS USING OPTION 11.
           READ (IN, 970) ISFCD,ISFCYR,IMXD,IMXYR
     C***T11E ABOVE FORMAT IS UNIVACS FRE£--FI£tD IUPUT.
     C***VARIABLES MUST  BE  SEPARATED BY COMMAS.
     C***THIS  IS SIMILAR TO  IBM'S LIST DIRECTED 10.
     C***CHECK TO INSURE CORRECT SURFACE DATA, MIXING  HT.  DATA, AND
    -C**-*PREPROCESSOR ARE -BE ING USED.
     C***READ  IDENTIFICATION RECORD FROM PREPROCESSED  MET  DISK OR TAPE  FILE
           READ (NIT) ID, IYEAR, IDM , IYM
           IF  (ISFCD.EQ. ID. AND. ISFCYR.EQ. IYEAR) GO  TO  50
           WRITE (10,980) ISFCD.ISFCYR, ID, IYEAR
           CALL EXIT
     50     IF  (IMXD. EQ. IDM. AND. IMXYR.EQ. IYM) GO TO  60
           WRITE (10,990) IMXD, IHXYR , IDM, IYM
           CALL EXIT
     60     IP=IPOL-2
           WRITE (10,780) UHITS, CONONE , COHTWO , T ITLE (IP ) ,IPOL
     C***ECUO  INPUT PARAMETERS
           WRITE (10,790) NPER,NAVG,IDATE(2) ,IDATE(1 ) , IUSTRT , Z , 11AFL
           IF  (IOPT(11) .EQ. 0)  WRITE (10,300) I SFCD , ISFC YR , IMXD , IMXYR
           WRITE (10,810)
     C***IOPT(1) CONTROL OPTIOII, POINT SOURCE INPUT?  0=NO,  1-YES.
     C***IF NO POINT SOURCES,  SKIP DOWN TO AREA SOURCE CODE.
           IF  (IOPT(1) .EQ. 0) GO TO 150
     C***IOPT(12) CONTROL OPTION, SPECIFY SIGNIFICANT  POINT SOURCE NUMBERS
     C***Q=tJO, 1=YES.
           IF  (IOPT (12) .EQ. 0)  GO TO 80
     C***RLAD  CARD TYPE  6 IF  USING OPTIONS 1 AND  12.
     C***READ  THE NUMBER OF  SIGNIFICANT POINT SOURCES  THAT USER WANTS TO
     C***SPF.CIFY AND THE NUMBER DESIGNATIONS OF THOSE  SOURCES.
           READ (111,870) I1IPT, (!1PS (I) , 1 = 1 ,IKPT)
           IF  (INPT.EQ.O) CO  TO 80
           IF  (HPS (INPT) .EQ. 0)  WRITE (10,880)
           J = II1PT + 1
           K = l
     C***ADD SIGNIFICANT SOURCES DETERMINED  FROM  SIGNIFICANT SOURCE LIST
     C***IF NSIG11 GREATER THAU  11IPT.
          IF  (J.CT.NSICP)
          DO  70  I=J,NSIGP
          riPS (I )=IMPS (K)
                            GO TO 100
    70    K = K+1
          GO TO  100
    SO    JO 90  I=1,HSIGP
    90    TIPS (I )=I1!PS (I )
    100   WHITE  (10,950)  LIN
          WHITE  (10,820)  t!PT
          WRITE  (10,1050)
          IF (IOPT (13) . EQ. 0) GO To'l20
    C***SAVE AVERAGE  EMISSION RATE
          DO 110 I=l,:iPT
    110   PSAV(I)=SOURCE(irOL,I)
    C***WKITE  OUT  POINT SOURCE LIST.
    120   DO 130 1=1, NPT
    C***COHVERT  TO  USER UNITS FOR PRINT
                               1,LINE2,LINE3
                               NSIGP, ( IM P S ( I ) , I = 1 , IJ 3 IG P )
                                           OUT
    RFR1160
    RFR1170
    RFR1180
    RFR1190
    RFR1200
    RFR1210
    RFR1220
    RFR1230
    RFR1240
    RFR1250
    RFR1260
    RFR1270
    RFR1280
    RFR1290
    RFR1300
    RFR1310
    RFR1320
    RFR1330
    RFR1340
    RFR1350
    RFR1360
    RFR1370
    RFR1380"
    RFR1390
    RFR1400'
    RFR1410
    RFR1420
    RFR1430
    RFR1440
    RFR1450
    RFR1460
    RFR1470
    RFR1480
    RFR1490
    RFR1500
    RFR1510
    RFR1520
    RFR1530
    RFR1540
    RFR1550
    RFR1560
    RFR1570
    RFR1580
    RFR1590
    RFR1600
    RFR1610
    RFR1620
    RFR1630
    It FR 16 40
    RFR1650
    UFR1660
    RFR1670
    F.FR16SO
    RFR1600
    RFR1700
    RFR1710
    RFR1720
    P.FIU730
    RFR1740
    RFR1750
    KFR1760
    RFR1770
                                              178
    

    -------
           C 1 = SOURCE(1 , I ) *Ui;iTS
           C2=SOURCE(2,I)*UNITS
           I'RITE (10, 1060)  I, (PNA;iE(L,I),L = l,2) , C 1 , C 2 , ( SOURCE (K, I ) , K=3 , J )
           IPSICS(I)=0
    130    CONTINUE
    C***FILL  IK SIGNIFICANT POINT  SOURCE ARRAY
           DO  140 I=1,NSIGP
                              SKIP  DOWN
                              GO  TO 260
                              USING
                              LIh  'I!
     140   IPSIGS(J)=I
     C***IOPT(2)  CO.'ITROL  OPTION,
    .C***IF HO  AREA SOURCES,
     150   IF  (IOPT(2).EQ.0)
     C***READ  CARD TYPE  7 IF
           READ (111,970)  FH,
           NTSP=NIlTS-l
           IF  (HDP.LE.O)  NBP=1
     C***RKAD  CARD TYPE  8 IF  USING
           KEAD (IN, 970)
     C***CONVERT  TO USER
           C l=RHIi;*UNITS
           C2 = RMAX*Ui;iTS
           C3=SHIN*UNITS
                                   AREA SOURCE  11! PUT?
                                            INPUTTING
                                                       0=1,0,  1=YES.
                                                       RECEPTORS.
                                     OPTION
                                     T S , (i! 11
    = 1 .IiHTS)
                                     OPTION  2.
                          (BPIl(I) ,1 = 1 ,1IBP)
                          UNITS FOR  PRINT OUT.  XL IK IS  CONVERTED TO  Kit,
           C5 = XLI»i
           './RITE (10,950)  LINE1,LINE2,LINE3
           XLI!! = XLIii*COi;ONE
           IF  (XLIK.LT. 116. ) CO  TO  160
           '..'RITE (10,1040) XL II!
           CALL EXIT
    C***IOPT(12) CONTROL  OPTION,  SPECIFY  SIGNIFICANT  POINT SOURCES?  0=NO,
    C***  1=YES.
    160    IF  (IOPT(12).EQ.0) CO  TO 180
    C***RCAD  THE HUHBER  OF SIGNIFICANT AREA  SOURCES THAT  USER
    C***WANTS TO SPECIFY  AND TilE  NU1IKER DESIGNATIONS  OF  THOSE SOURCES.
    C***READ  CARD TYPE  9  IF USING  OPTIONS  2  AND 12.
           READ (IN,870)  INAS,(HAS(I),I=1,INAS)
           IF  (INAS.EQ.O)  CO TO  180
           IF  (HAS(INAS).EQ.0) WRITE (10,890)
           J = II!AS + 1
           K=l
           IF  (J.GT.HSIGA) GO TO  200
           DO  170 I=J,HSIGA
           HAS(I)=IHAS(K.)
    170    K=K+1
           CO  TO 200
    C***ADD  SIGNIFICAIIT  SOURCES  DETERMINED FROH
    C***IF HSIGA GREATER  THAN IHAS.
                                                     SIGNIFICANT SOURCE  LIST
    180    DO  190 1=1,HSIGA
    190    HAS(I)=IHAS(I)
    200    WRITE (10,830)
           WRITE (10,840)
           WRITE (10,850)
           WRITE (10,860)
    C***IF  IA ARRAY TOO
                           N AS, N SIC A, (II1AS (I) ,1 = 1 , HSIGA)
                           K11TS, (HINT (I ) , 1 = 1 , IJHTS)
                           (BPH(I),1=1,NBP)
                           FI1,C5,C1,C2,C3,C4,IRSIZE,ISSIZE
                          LARGE  TO  BE  PRINTED  AS A  HAP,  PRINTING
                                                                     IS  SKIPPED.
           IF  (IRSIZE.GT.41) GO  TO  220
    C***PRIHT  OUT AREA  SOURCE HAP  ARRAY.
           WRITE (10,1010)
           JLIM=ISSIZE+1
           DO  210 -JDU11 = 1 ,ISSIZE
           J=JLIH-JI)UII
    210    WRITE (10,1020) J,(IA(I,J),1-1,IRSIZE)
           >;RITE (10,1190) (i, 1 = 1,IRSIZE)
    RFP.1780
    PFR1790
    RFR1800
    IU-R1810
    KFR1820
    IIFR1830
    ".FR1840
    !'.FR1850
    RFR1860
    .1FR1870
    RFR1300
    RFR1890
    RF111900
    r.r'iigio
    P.FR1920
    I-.FR1930
    UFR1940
    RFR1 950
    RFR1960
    R F R 1 9 7 0
    RFR1980
    RFR1990
    RFR2000
    P.Fr.20 10
    RFR2020
    UFR2030
    RFR2040
    P. F R 2 0 5 0
    RFP.2060
    R F R 2 0 7 0
    UFR2030
    RFR2090
    RFR2100
    RFR2110
    UFR2120
    RFR2130
    RFR2140
    RFR2150
    RFR2160
    RFR2170
    RFR2180
    RFR2190
    RFR2200
    P.FR2210
    RFR2220
    RFR2230
    RFR2240
    RFR2250
    RFR2260
    RFR2270
    RFR228
    RFR229U
    RFR2300
    RFR2310
    RFR232C
    RFR2330
    RFR2340
    RFR2350
    RFR2360
    RFR2370
    RFR2380
    RFR2390
                                              179
    

    -------
          GO TO  230
    220   WRITE  (10,930)
    C***WRITE OUT  THE  AREA SOURCE LIST.
    230   WRITE  (10,1070)
          DO 240 I-l.NAS
    C***CONVERT  TO USER UNITS FOR PRINT OUT
          C1=ASORC(1,I)*UNITS
          C2=ASORC(2,I)*UNITS
          C3=ASORC(5,I)*UNITS
          WRITE  (10,1080)  I.C1.C2, (ASORC(K, I) ,K=3,4) , C3, ASORC ( 6 , I )
    C***SIDE LENGTH  IS MULTIPLIED BY .5 TO SAVE  TIME  IN  LATER COMPUTATIONS
          ASORC(5,I)=ASORC(5,I)*0.5
          IASIGS(I)=0
    240   GONII-NUE
    C***FILL IN  SIGNIFICANT AREA SOURCE MARKER ARRAY
          DO 250 I=1,HSICA
          J=MAS(I)
    250   IASIGS(J)=I
    C***INPUT PERMANENT RECEPTORS
    C***ioPT(3)  CONTROL OPTION, SPECIFIED RECEPTORS?   0  = NO, 1 = YES.
    260   IF (IOPT(3).EQ.O) GO TO 300
    270   NRECEP-NRECEP+1
          IF (NRECEP.GT. 150) CO TO 280
    C***READ COORDINATES  IN USER UNITS
    C***ATTEHTION  USER: DON'T SPECIFY A RECEPTOR AT  ORIGIN AS A BLANK CARD
    C***IS USED  TO INDICATE ALL RECEPTORS HAVE BEEN  READ.
    C***READ CARD  TYPE 10  IF USING OPTION 3.
          READ  (111,1090)  (RNAME(J,'NRECEP) , J = l , 2) , URREC (NRECEP ) , USREC (NREC EP )
    C***BLANK CARD OR  RECEPTOR AT ORIGIN  SIGNALS  ALL  PERMANENT RECEPTORS
    C***HAVE BEEN  ENTERED.
          IF (URREC(NRECEP)+USREC(NRECEP) .LE. 0. 001 )  GO TO 280
          CO TO  270
    280   HRECEP-NRECEP-1
    C***SAVE NUMBER  OF PERMANENT RECEPTORS
          NPREOMRECEP
    C***PRIHT OUT  TABLE OF PERMANENT RECEPTORS***
          WRITE  (10,950)  LINE1,LINE2,LIHE3
          WRITE  (10,1100)
    C***THE CHARACTER  "I"  INDICATES THAT  THESE RECEPTORS WERE INPUT INTO
    C***THE MODEL.
          DO 290 U-l, NRECEP
          ITYPE (K)-ICHAR
          WRITE  (10,1110)  K, ITYPE (K) , (RHAME(J.K) , J-l , 2) ,URREC(K) ,USREC(K)
    C***COHVERT  TO INTERNAL UNITS
          RREC (K)=URREC (K) /UNITS
          SREC(K)=USREC(K.) /UNITS
    290   ICODE(K)=0
    C***IF NEITHER POINT  OR AREA  SOURCES  WERE S PECIFI ED , EXIT PROGRAM.
    300   IF ( (IOPT(1 ) + IOPT(2) ) .HE. 0) GO  TO 301
          WRITE  (10,1120)
          CALL  EXIT
    C***READ It!  THE  NUMBER OF DAYS ALREADY PROCESSED AND LAST DAY TO  EC
    C***PROCESSED  THIS RUN
    301   READ(  IN, 970) IDAY.LDRUI!
          WRITE (10, 1200)  IDAY.LDRUN
          IF(IDAY.LE. 0) CO TO  310
    C***POSITION OUTPUT FILES  PAST LAST  DAY PROCESSED
           DO  302 I = 1,IS1CIP
    302    READ (13)
    DO .03 I = l,ISi:iP
                                                                         RFR2400
                                                                         RFR2410
                                                                         RFR2420
                                                                         RFR2430
                                                                         RFR2440
                                                                         RFR2450
                                                                         RFR2460
                                                                         RFR2470
                                                                         RFR2480
                                                                         RFR2490
                                                                         RFR2500
                                                                         RFR2510
                                                                         RFR2520
                                                                         RIVR2530
                                                                         RFR2540
                                                                         RFR2550
                                                                         RFR2560
                                                                         RFR2570
                                                                         RFR2580
                                                                         RFR2590
                                                                         RFR2600
                                                                         RFR2610
                                                                         RFR2620
                                                                         RFR2630
                                                                         RFR2640
                                                                         RFR2650
                                                                         RFR2660
                                                                         RFR2670
                                                                         RFR2680
                                                                         RFR2690-
                                                                         RFR2700
                                                                         RFR2710
                                                                         RFR2720
                                                                         RFR2730
                                                                         RFR2740
                                                                         RFR2750
                                                                         KFR2760
                                                                         KFR2770
                                                                         RFR2780
                                                                         RFR2790
                                                                         RFR2800
                                                                         RFR2310
                                                                         RFR2820
                                                                         RFR2830
                                                                         RFR2840
                                                                         RFR2850
                                                                         RFR2360
                                                                         RFR2870
                                                                         F.FR2830
                                                                         RFR2C90
                                                                         RFR2900
                                                                         RFR2910
                                                                         HFR2920
                                                                         RFR2930
                                                                         RFR2'J40
                                                                         RFR2950
                                                                         RFR2960
                                                                         RFR2970
                                                                         RTR2980
                                                                         Itrr.2990
                                                                         RFr.3000
                                                                         RFR3010
                                      180
    

    -------
    303   READ(12)
    C***UEA1)  SUMMARY INFORMATION
          READ (14)  I DAYS , ANN SUM , DMAX,H1IAX
          REWIND  14
          IF(IDAY.EQ.IDAYS) GO  TO 304
          WRITE(1210) IDAY.IDAYS
          CALL  EXIT
    304   IF(IOPT(13).EQ.O) GO  TO 308
    C***POSITIOM  HOURLY  EMISSION FILES
          ISKIP=ISKIP-2
          IF(IOPT (1).EQ.0) GO TO 306
          DO  305  I=1,ISKIP
    305   READ(15)
    306   IF(IOPT(2).EQ.0) GO TO 303
          DO  307  I = 1,1 SKIP
    307   READ(16)
    C***IOPT(11)  CONTROL OPTION, READ
    303   IF(IOPT(1 1 ).EQ. 1) GO  TO 360
    C***POSITIOIi  MET FILE TO CORRECT POSITION
          DO  309  1=1,IDAY
    309   READ(NIT) JYR
          GO  TO 360
    C * * * I N IT IA L IZ A T10 N
    G'***1,'RITE  INITIAL IDENTIFICATION RECORDS ON  OUTPUT TAPE  &  DISK
    310   WRITE (13) NDAYS,LINE 1,LIHE2,LINE 3
                      NRECEP,(URREC(I),1=1.NRECEP),(USREC(J),J=1,NRECEP)
                      11DAYS,LINE1,LINE2,LI1IE3
                      MRECEP, (URREC(I) ,1 = 1,NRECEP), (USREC(J),J-l.NRECEP)
                                        MET.  DATA FROII CARDS?  U=NO,  1=YES.
          \;RITE
          WRITE
          WRITE
    360
           (13)
           (12)
           (12)
    IDAY=IDAY+1
          N11RS = 0
          IF  (IUPT(11).EQ.1)  CO  TO 400
    C***II
    -------
    C***READ MET  DATA FROM CARDS  WITH FREE FORMAT                              RFR3640
    C***READ CARD TYPE 12 IF USING  OPTION 11  ; JHR  REDEFINED FROM METCARD.    RFR3650
          READ  (IN,970) JYR.DAY1,JHR,IKST(JHR),QU(JHR),QTEMP(JHR),QTHETA(JHR RFR3660
         l).QHL(JHR)                                                            RFR3670
          IF  (I.NE.NB) GO TO 430                                                RFR3680
          IDATE(1)-JYR                                                          RFR3690
          IHSTRT=JHR                                                            RFR3700
          ISTDAY=DAY1                                                           RFR3710
          IDATE(2)-ISTDAY                                                       RFR3720
    430   IF(I.EQ.NB) WRITE  (10,1130) IDA.TE                                    RFR3730
          TRAD°QTHETA(JHR)*0.01745329                                          RFR3740
          IF(IKST(JHR) .EQ. 7) IKST(J1IR)=6                                       RFR3750
          WRITE  (10,1140) JHR,QTHETA(JHR),QU(JHR),QHL(JHR),QTEMP(JHR),IKST(J RFR3760
         1HR)                                                                    RFR3770
          SINT=SIN(TRAD)                                                        RFR3780
          COST=COS(TRAD)                                                        RFR3790
    C***CALCULATE WIND COMPONENTS                                               RFR3800
          URES=QU(J11R)                                                          RFR3810
          UR=URES*SINT                                                          RFR3820
          VR=URES*COST                                                          RFR3830
          DELM=DEL1I+UR                                                          RFR384Q.
          DELt]=DELN+VR                                                          RFR3856
          TEUP=TEMP+QTEMP(JHR)                                                  RFR3860
          U=U+URES                                                              RFR3870
          KST=IKST(JHR)                                                         RFR3830
    440   IFKEQO'ST)=IFREQ(KST) + 1                                               RFR3890
    C***REDETINE  HB  AND HE IN  CASE  NON-CONSECUTIVE  DAYS ARE BEING RUN         RFR3900
          IF(IOPT(11).EQ.O) GO  TO  441                                          RFR3910
          NB = IIISTRT                                                              RER3920
          IIE = IHSTItT+NAVG-l                                                      RFR3930
    C***CALCULATE RESULTANT  WIND  DIRECTION TUETA                              RFR3940
    441   DELli=DELN/NAVG                                                        RFR3950
          DELil=DELU/NAVG                                                        RFR3960
          THETA=AliGARC(DELH,DELM)                                               RFR3970
    C***CALCULATE AVERAGE AND  RESULTANT SPEED                                  RFR3980
          U=U/11AVG                                                              RFR3990
          TEIlP=TEUP/f]AVG                                                        RFR4000
          URES = SQRT(DELt!*DELH+DELll*DELII)                                       RFR4010
          PERSIS=URES/U                                                         RFR4020
    C***DETERUIHC 1IODAL A1ID AVERAGE STABILITY                                  RFR4030
          LS1IAX=0                                                               RFR4040
          DO  450  1=1,7                                                          RFR4050
          LST = iniEQ(I)                                                          RFR4060
          IF  (LST.LE.LSMAX) GO  TO  450                                          RFR4070
          LSMAX-LST                                                              RFR4080
          LSTAB=I                                                               RFR4090
    456   CONTINUE                                                              RFR4100
          IP1=LSTAB+1                                                           HFR4110
          KST=LSTA3                                                              RFU4120
          DO  460  I=IP1,7                                                        RFR4130
          IF  (LSMAX.EQ.IFREQ(1))  CO TO 470                                     RFR4140
    460   COUTItiUE                                                              RFR4150
          CO  TO  490                                                              RFR4160
    C***ir  TIE  FOR 11AX MODAL STABILITY CALCULATE  AVERAGE STABILITY            RFR4170
    470   KGUH=0                                                                 RFR41CO
          DO  480  J = l , 7                                                          RFR4190
    4SO   KSUh=KSUlI+IFRIiq(J) *J                                                  RFR4200
          KST = FLOAT(KSU1I) /FLOAT (NAVG) + 0 . 5                                      RFR4210
    C***OUTPUT  REGULTAl.'T  !I£T CONDITIONS***                                     RFK4220
    490   I/RITE  (10,1150)                                                       RFR4230
          WRITE  (10,1160) THETA,URES,U,TElir,PERSIS,KST                         RFR4240
          TRAD=T11ETA*0 . 01745329                                                 RFR4250
                                             182
    

    -------
           S I1(T = S l;j (TRAD )
           COST=COS (TuAD )
    c'••-*"-i;;ITiALir.i:  coi.ci:i;rr.AT 10;,
    c*f>*i;iiTiALiZL  ro;;  AVLHAGIIIC
           DO 550  r. = l , l.KLCEP
           ACL; i (:: )=o . o
           re;;i (;:)=o . u
           DO 530  1=1,11
    530    A:;IGS (:;, i )=o . o
           DO 540  I=1,2G
    540    p s i c s (;;, i) = o. o
    550    CO:;TI:,UE
    c * * *
    C***LOGP o:;  :
              7uO  ILI:=;::$
                                           n;-R4260
                                           HFR4270
                                           !i rr. 42oG
                                           i.rr.4290
                                           P.I R4300
           IF (Lil. LE. 24) GO  TO 580
           LU=:;OJ(ILH, 24)
           IF (Lil.EQ.l)  IDATE (2 ) =JAV1
    C***Ii
    -------
           IDCK = IDATE(1 )*100000 + IDATE(2)*10u-rbH
    C***READ  HOURLY AREA  SOURCE EMISSION RECORD
           READ (16) IDATA,(ASORC(IPOL,I),1=1,HAS)
    C***CHECK DATE
           IF  (IDCK.EQ.IDATA) CO TO  660
           './RITE (10,920)  IDCK,IDATA
           CALL EXIT
    C***CONVERT HOURLY  AREA EMISSIONS  FROM G/SEC  TO G/SQ. 1I/SEC
    660    DO  6 70 1 = 1,NAS
    C***CONVERT SIDE LENGTH TO METERS.
    C***NOTE:  SIDE LENGTH HAD BEEN  MULTIPLIED BY  .5 ABOVE FOR TIME
    C***CONSIDERATIOtIS
           SF=ASORC(5, I)*2000*CONTWO
    670    ASORC(IPOL,I)=ASORC(IPOL,I)/(SF*SF)
    C***SET UP INTEGRATION TABLES FOR  AREA SOURCE  CALCULATIONS***
    675    CALL JMI154R  (NUT S , Z , XL IM , TLOS )
    C***CALCULATE AREA  SOURCE CONTRIBUTIONS
           CALL JiiHARE  (HUTS , XL IM ,LH)
    C***WRITE HOURLY CONCENTRATIOHS TO  TAPE
    680    DO  631 I=1,NRECEP
    681    GRANDS (I )=A11CHI (I )+PHCHI (I)
           WRITE (12) I DATE (2),LH, (GRANDS(I),1 = 1,NRECEP)
    C***SAVE  HOURLY MAXIMUMS
           DO  690 K=l.MRECEP
           IF(GRANDS (K) .LE. iiMAX(i, 5,K))  GO  TO  690
    C***C01ICENTRATTON  IS  ONE OF THE TOP 5
           DO  6S2 J=l,5
           IF(CRANDS(K).GT.HMAX(1,J.K))  GO  TO  683
    682    CONTINUE
           WRITE (10,1220)
           CO  TO 690
    C***INSERT IK PROPER  POSITION
    683
    684
    635
                       GO  TO
                       ,J,-1
                             685
          IF (J. Eg. 5)
          DO  684  IJ=
          IJP1=IJ+1
          H!1AX( I , IJPl, K)=HMAX(1 , IJ,K)
          UMAX (2 , IJP1 , K)=HMAX(2 , I J,K)
          UMAX (3 , IJPl,K)=imAX(3 , IJ,K)
          :IUAX(1
                  , J , i;)=GRANDS (K)
          HI! AX (2 , J , K) = DAY1
          UMAX(3,J,U)=LH
    690   CONTIiiUE
    700   CONTINUE
          IF(WE.GT.24)  I DATE (2 ) =
    C***OUTPUT FINAL RESULTS
          CALL JMiFD  (II13 , L INE 1 , L I il E 2 , L INL 3 )
          NP=i; P+l
          ;:iIRS=!iliRS+riAVG
          IF(MJ.GE.i:PER)
          IF (:; HUS. LT. 24)
          IF (IDAY-LDRUN)
    710   m=;;n,-H;AVC
          ;JE = [, E+11AVC
          IF ('.IB . LL. 24 )  ClJ
          :;E=::OU (:;i:, 24)
                                  •ISTDAY
                           CO TO  720
                           GO TO  710
                           360,720,720
                            10  410
    720
    C*
          END
          ;;;;D
       *I;RITI:
           GO i 0 4 1 U
           E:;D TILL  12
           El.D FILE  12
               FILL  13
               FILE  13
               SUI|.IAI.Y
                                     on
    RFR4880
    RFR4890
    RFR4900
    RFR4910
    RFR4920
    RFR4930
    RFR4940
    RFR4950
    RFR4960
    RFR4970
    RFR4980
    RFR4990
    RFR5000
    RFR5010
    RFR5020
    RFR5030
    RFR5040
    RFR5050
    RFR5060
    RFR5070
    RFR5080
    RFR5090
    RFR5100
    RFR5110
    RFR5120
    RFR5130
    RFR5140
    RFR5150
    RFR5 160
    RFR5170
    RFR5180
    RFR5190
    RFR5200
    RFR5210
    RFR5220
    RFR5230
    RFR5240
    RFR5250
    RFR5260
    RFR5270
    R F R 5 2 8 0
    RFR5290
    RFR53CO
    RFR5310
    HFL5320
    RFR5330
    RFR5340
    RFU5350
    RFR5360
    P.FR5370
    P.FR5320
    RFR5390
    RFU54CO
    F. F P. 5 4 1 0
    KFR5420
    RFR5430
    RFR5440
    ILFR5450
    ILFH5460
    P.1T.5470
    RFR5430
    RFR5490
                                              184
    

    -------
          WRITE (14) IDAY,ANNSUM,DMAX,HMAX
          IF  (LDRUN.NE.NDAYS)  CALL EXIT
    C***PRINT  SUMMARY TABLES
          WRITE(IO,950) LINE1.LINE2.LINE3
          WRITE(IO,1230)  (1,1=1,5)
          DO  725 K=1,NRECEP
          ANMEAN=ANNSUM(K)/NDAYS
          WRITE(10,1240)  K,(DtlAX(l,J,K),DMAX(2,J.K),J=l,5),ANMEAN
    725   CONTINUE
          WRITE(IO,950) LINE1.LINE2.LINE3
          WRITE(IO,1250)  (1,1=1,5)
          DO  730 K=1,NRECEP
          WRITE(IO,1260)  K,(HMAX(1,J,K),HMAX(2,J,K).UMAX(3,J,K),J=l,5)
    730   CONTINUE
          CALL EXIT
    740   FORMAT (' DATE  ON MET. TAPE,  ',12,13,' ,DOES  HOT  MATCH INTERNAL  DA
          1TE,. ' ,12,13)
    750   FORMAT (' HOUR  ',13,'  IS NOT  PERMITTED.  HOURS MUST BE DEFINED  BETW
          1EEN  1 AND 24')
    780   FORMAT (1X,T21,'GENERAL INFORMATION FROM RAMQ'//2X,'UNITS  - THERE
          1ARE',F14.7,'  USER UNITS(INPUT  UNITS) PER SMALLEST  AREA SOURCE  SQUA
          2RE  SIDE LENGTH  (INTERNAL UN IT)'/2X,'CONONE -  THERE ARE',F14.7,'  KI
          3LOMETERS PER  USER UN IT'/2X,'CONTWO - IT IS CALCULATED THAT THERE A
          4RE',F14.7,' KILOMETERS PER SMALLEST AREA SOURCE  SQUARE SIDE LENGTH
          5  (INTERNAL UN IT)'/2X,'THIS RUN  IS  FOR ',A6,'SINCE  IPOL=',I 2//1X)
    790   FORMAT (1X,T21,'GENERAL INPUT  DATA'//2X,'NUMBER  OF PERIODS TO  BE. S
          1IMULATED(NPER)=  ',13/2X,'AVERAGING TIME IN HOURS  FOR EACH  PERIOD(N
          2AVC)= ',I5/2X,'STARTING DATE (IDATE ( 2), IDATE(1),IIISTRT):  JULIAN DAY
          3  ',14,', YEAR 19',12,' HOUR=  ',12/2X,'RECEPTOR  HEIGHT FOR  ALL  RECE
          4PTORS(Z) ',F6.3,' METERS'/2X,'ASSUMED POLLUTANT  HALF-LIFE(IIAFL)  ',
          5F10.2,' SECONDS')
    800   FORMAT (2X,'SURFACE  MET DATA  FROM  STATION(ISFCD)  ',16,',  YEAR(ISFC
          1YR)  19',I2/2X,'MIXING  HEIGHT  DATA  FROM STATION(IMXD)  ',16,',  YEAR(
          2IMXYR) 19',12)
    810   FORMAT (//1X)
    820   FORMAT ( ' 0 ' , T2 1 ,'POINT SOURCE  INFORMATION'//2X,'EMISSION  INFORMATI
          ION  FOR ',14,' (KPT)  POINT SOURCES  HAS BEEN DETERMINED BY  RAMQ'/2X,
          212,' SIGNIFICANT  POINT SOURCES(USIGP) ARE TO  BE  USED  FOR  THIS  RUN'
          3/2X,'THE ORDER  OF S ICtl IF 1C AN CE (IMPS ) FOR 25  OR  LESS  POINT  SOURCES
          4DETERMINEU BY RAMQ  IS  LISTED  BY  POINT SOURCE  t.UMBER: '/2X, 2515)
    830   FORMAT ( / / 1 X, T 2 1 , ' AREA SOURCE  IUFORMAT ION ' //2X, ' EMI SSION  IIJFORMATI
          ION  FOR ',14,' (NAS)  AREA SOURCES  HAS BEEN DETERMINED  BY  RAMQ'/2X,I
          22,'  SIGNIFICANT  AREA SOURCES (IISIGA ) ARE TO BE USED FOR THIS RUN'/2
          3X,'  THE ORDER OF  S ICtl IFICANCE (1'IAS ) FOR 10 OR LESS  AREA  SOURCES D
          4ETERMIUED BY  RAMQ IS LISTED BY   AREA SOURCE  NUMF.E R : ' /2X, 1015 )
    040   FORMAT (2X,'NUMBER.  OF  AREA HEIGHT  CLASSES (1,'IITS ) = ', I 2/2X, ' REPRESENT
          1ATIVE AREA SOURCE HEIGHTS FOR  EACH HEIGHT CLASS (HINT) IN  METERS = ',
          23F10.2)
    G50   FORMAT (2X,'3Rr.AK POINT HEIGHT  BETWEEN THE AREA  HEIGHT CLASSES(BFiI
          1)  IN METCRG=',2F10.2)
    G50   FORMAT (2X,'FRACTION OF AREA  SOURCE
          IT(FH)=',F10.3/2X,'LIMIT OF DISTANCE
          2ELES(XLPl) IN USER  UNITS =',F10.3/2
          3E  CRIJ IN USER  U11ITC
          4111=' ,F10. 3, 5X, 'SMAX =
          5CE  MAP ARRAY (IA)  II.
          6TII-SOUT1I'//1X)
    G70   FORMAT (2GI3)
    GGU   FORMAT (' ***EKROR  Hi  SPECIFYING  SIGIIIF
    G90   FORMAT (' ***ERROR  IN  SPECIFYING  SICIIIF. AREA SOURCES***')
    900   FORMAT (' ***i'LCASL  IIOTE: THE  RECEPTOR NUMBERS  AND LOCATIONS  CLiiER
          1ATED FOR TV. IS AVERAGING TIME  PLRIuD ARE 1)1FFCRF:,'T  FROM THOSE  (,Ei;ER
     HEIGHT WHICH  IS
     FOR AREA SOURCE
    i, 'BOUNDARIES  OF
                                      PHYSICAL HEIGH
                                      INTEGRATION TA
                                      THE  AREA SOURC
     ' /1X.TG, 'RMi:i = ' , F10. 3, 5X, 'PMAX=' ,F10. 3, 5X,.' GM
    ' , F10. 3/2X, 'SIZE (IRSIZE  X ISSIZE)  OF AREA SOUR
    :;.TERI;AL UNITS  =',i3,'  EAST-WEST  BY  ',13-,' i;ou
                          POINT SOURCES***')
    RFR5500
    RFR5510
    RFR5520
    RFR5530
    RFR5540
    RFR5550
    RFR5560
    RFR5570
    RFR5580
    RFR5590
    RFR5600
    RFR5610
    RFR5620
    RFR5630
    RFR5640
    RFR5650
    RFR5660
    RFP.5670
    RFR5680
    RFR5690
    RFR5700
    RFR5710
    RFR5720
    RFR5730
    RFR5740
    RFR5750
    RFR5760
    RFR5770
    RFR5780
    RFR5790
    RFR5800
    RFR5810
    RFR5320
    RFR5830
    RFU5840
    RFR5850
    RFR5860
    RFR5870
    RFR5830
    RFR5390
    RFR5900
    RFR5910
    RFR5920
    RFR5930
    P.FR5940
    RFR5950
    RFR5960
    RFR5970
    RFR5980
    KFR5990
    RFU6000
    RFR6010
    RFR6020
    RFR6030
    RFLG040
    RFRG050
    RFR6060
    RFRGC70
    RrriOOGO
    P.FR6090
    R F R G 1 0 0
    RFRG110
                 185
    

    -------
    
    -------
         10 BE COVERED  BY HONEYCOMB RECEPTORS  IS  BOUNDED BY:'/1X,' RMIN=',F1 RFR6740
         20.3,' RMAX=',F10.3,' SMIN-',F10.3,'  SMAX=',F10.3//1X,'DISTANCE  BET RFR6750
         3WEEN HONEYCOMB RECEPTORS(GRIDSP)  IN  USER UNITS = ',F7.3//I X,'RECEPTO RFR6760
         4R    EAST      NORTH')                                                RFR6770
    1180  FORMAT  (IX,'NO RECEPTORS HAVE BEEN CHOSEN')                          RFR6780
    1190  FORMAT  (/6X,4II3/IX)                                                 RFR6790
    1200  FORMAT  (//1X,' THE NUMBER OF  PERIODS  PREVIOUSLY COMPLETED  EQUAL ', RFR6800
         113,' AND  THE  LAST  PERIOD TO BE  COMPLETED IN  THIS RUN IS ',13)       RFR6810
    1210  FORMAT  ('  NUMBER OF DAYS PREVEIOUSLY  PROCESSED, ',14,' DOES  NOT AG RFR6820
         1REE WITH  LAST DAY  WRITTEN IN  SUMMARY  FILE,  ',14/IX,'NON-CONSECUTIV RFR6830
         2E DAYS  CANNOT BE PROCESSED')                                     •    RFR6840
    1220  FORMAT  ('  ERROR IN FINDING HMAX')                                    RFR6850
    1230  FORMAT  (/1X,T41,'FIVE HIGHEST 24-HOUR CONCENTRATIONS((JULIAN  DAY M RFR6860
         1AX OCCURS)'/1X.T49,' (HICROGRAMS/M**3)'//2X,'RECEPTOR NO.' ,8X,4(I 1, RFR6870
         216X),11,11X,'MEAN  CONCENTRATION'/1X)                                 RFR6880
    1240  FORMAT  (1X,T5,I 2,5X,5(4X,6PF7.2,' (',OPF4.0,' )'),7X,6PF7.2)          RFR6890
    1250  FORMAT  (/1X,T41,'FIVE HIGHEST 1-HOUR  CONCENTRATIONS (JULIAN DAY  MAX RFR6900
         1 OCCURS,  HOUR)'/1X.T49,'(MICROGRAMS/M**3)'//2X,'RECEPTOR NO.',MX, RFR6910
         24(11,20X),I1/1X)                                                     RFR6920
    1260  FORMAT  (1X,T5,I 2,5X,5(4X,6PF7.2,' (' ,OPF4.0,' ,' ,F3.0,' ) '))           RFR6930
    C                                                                           RFR6940
          END                                                                   RFR6950
                                            187
    

    -------
                       9.
                               CUMF - INPUT  FORMATS  AND EXAMPLE  RUNSTEAI1S
    CUHF
          CUMF PROCESSES 24-HOUR AVERAGE  CONCENTRATION DATA(UHIT 8) CALCULATED BY
    RAMF  OR  RAMFR TO  PRODUCE  CONCENTRATION FREQUENCY DISTRIBUTIONS
    AT EACH  RECEPTOR.   BOTH PRINTER AND  PLOTTER  OUTPUT ARE  PROVIDED.
    THE PLOTTER OUTPUT FILE,  REFERRED TO  IN THE  EXAMPLE AS  PLOTl,
    MUST  BE  SYMMED  TO  A CALCOMP PLOT FILE ,  ACTUALLY CALLED  PLOT AT  NCC .
    
    
    ***** CARD INPUT  TO CUMF  *****
    
    CARD  1  (13A6.A2)   TITLE    80 CHARACTER TITLE.
     EXAMPLE:
    CUMULATIVE FREQUENCY DISTRIBUTION OF  ESTIMATED  24-HOUR  SULFUR DIOXIDE.
    CARD  2  (I3.3F5.0)  M LOG , XD III, YD IM , YB ASE
    C      IJLOG
    C      XDIM
    C      YDIM
    C      YBASE
     EXAMPLE:
      4   10.   8.
    THE NUMBER OF LOG  CYCLES  ON  THE CONCENTRATION  SCALE.
    THE HORIZONTAL  DIMENSION  OF  THE PLOT  IN INCHES.
    THE VERTICAL DIMENSION OF  THE PLOT  IN  INCHES.
    THE MINIMUM VALUE  ON THE  CONCENTRATION SCALE.
    
     1 .
    *****EXAMPLE  ECL  STREAM*****
    
    QRUK.D/R JOBNAME , ACCIiT-ISO/U SERID .PROJ-ID , 1 , 100 .  JOBNAME IS RESTRICTED TO  6  CHAR
    QPASSUD PASSWORD
    QASG.A RAM24  .                            .  DISK FILE OF  DAILY CONCENTRATIONS
    QUSE  8.RA1124.
    QPLOT  PLOTl.
    (JUSE  14,PLOTl.
    QXQT  A999*UNAMAP. CUMF
    CUMULATIVE FREQUENCY DISTRIBUTIOM  OF ESTIMATED 24-HOUR  SULFUR DIOXIDE.
       4   10.   8.    1.
    0FREE  PLOTl.
    OSYtl  PLOTl,,PLOT                          .  PLOT MUST EE  SENT TO A  CALCOMP  PLOTTER
    C'SYM  PRIHT$ ,, PRINTER-ID                  .  SEND PRINTOUT  TO YOUR  PRINTER
    C*********************************************************************
    C
    C   THE  PRECEEDING RUN  STREAM HAD  A  RUN TIME  OF 12.64  SECONDS
    C   ON  THE UNIVAC 1110  AND REQUIRED  30-K WORDS OF MEMORY
    C   (APPROXIMATELY 8,487  WORDS  FOR INSTRUCTIONS Ai.D  20,076 WORDS  FOR DATA)
                                               188
    

    -------
                                       r-  f\j CM  <\J     f- (NJ  r~ (M     r~  fi r-  OJ K)  f\J    K> *» T-
                                                                                                                      jOT-f\irMK'>fXi
                                                                                                                                         cc o  o  T-- i
                                £0     v— w~ rvj     f*"i  ^~        rvj         (\f ^~"  fo     r*~i    t— f\i T™ <— »— J-t>O(>l>Cr'O-ChOO*O''OOOOOOOOOOOOC'JOO("3O r- t~ -
                                                                                                                                                                                rvj i~vj  -\j r\J  f\J CJ  rO f
                                O     oO  uO a>  tx) TO 'X* ao
                                oc     (Ni  ru f\j  t\j r\j r\j no
                                                                          r\j  oj f\J  f\i r\j  r\j
                                                                                                  O O O O O O O  O O O t~- rjrvJX3^rOr-in^t>r-
                                       Oaf"     (\j t— f i «—  T-     T~r-r-f\J«r~fSJ     Ki
                                                                                             i  r\, (\i  r\j r\i r\i rvi r\, f
                                                                                                                                                           o-  o T- r^j  K* ^  IA sc> f^-  cd o  o  «~ (\j
                                                                                                                                                           <>^r^
    x.
    o
                  00
                  N-
                                2!
                                3*
                                o
                                o
                                a
                                   fx)Ki.OT-rMKxsjiri'^:  r-oco-or-r\jfi»j-i/-  sQfv-o,  o cr^r-  rxif.xj  i/.^r-  DC  o o r*  ro f
                                   OOCX  ChOOOOOaOOOOOOOOt-t-T-v-t-T-  v-r-t—  *— rurvi  i\tf\jpvj  r-)ojfxjr\jf\jf> ftfi
                                                                             r* ,  r- r\j  o r-  o o  IA o  o o >
                                                                                                                                         f i u~\ t—
                                                                                                                                                                            <<,  -o u  ^~  c.i N-  r*.
    o
    t—
    z
    >
    X     f*l
                  2     O
                  O     *-
                                                                                                  f\j  CJ* O*  AJ ^'  0s
                                                                                                                                          ^
                  to     a.     o
                                                                                                                                                 r, -O N uC O  o
    
                  <     "*     HH
                  X    N-     UQ
                                       O •»  :
    
                                       ru M
                                                                                                                                                                               *-«-     f!f-
                     O-
                  oc T-  >-
                                at.
    
                                a
                                                                                                                                                                        fiO-  *-  Po in  rNy^j-Nr     <
                                                                                                      189
    

    -------
                                                                                                     r^
    
                   •
                 a     Or-(Sj(^^u^O^O'<>^^O*OOOOC3OOOOO*-r-r-r-^f-r-r-r-t-OjryO^
                  C^     OJOJOjo^ojojoJOjOjryojojojojojo^JOj^torororororororop**'. rorororop'^roKirofO fOfOro KifOMforOfororo
    
    
    
                                                                                         •t- •^rr-roOsfsOKirofooj'jra. 0-Oj**inr-«-r-^^^sfs4-^^s*u^»A^4Ainu^u^inu^u^'OO<)^<>so^^<><>K^
    
                  CJ
                  z
    
                  o     G^Gsor^                            r-r-otoor''". >C'sOroK)t—
    
                  «J     r-           r-rOrO           ro        »-OJt— OJr-r^t—  rOt—     r-ro^-     «— OJOJOjrOt— r-OJr-Ki    Ou    *—           r^OJr-
    
    
                  5E     QQ OO  iX) ^- (J-  O1 O* sT*  0^ O* O1*  O* ff- Q*  &• 0^ O*  C^1 O*1 C?*  O* O* O*  O^ O- O* O O O O  O CD C3 O O O  O O O O C5 O O T~ f~  *™ t^
    CNC>v>O^CK<>O^OOOOOOOOOOt-r-»-T-r-T-T-T-r-r-OJOjr^JOJ(%JnJ(%JOJOJOJ'fO
    —l             •     «— r-r-«— tr-r-»—T— r-«— f^fviOJOJrvJOJOJOJOJOJOjOjOJOjOJAjOJrMPJOJOJruOJOJOuO^jr^
    
    t-           O
    
    t f\j  >sT »o     ^ *~* ^  fO *~ -«y o sx> *^ *~ ^< Jc> r\j >T    -^  IA ^j *^ T~ <*•     (71 IA
    uj             »•     OJ CM  ir~ Oj ^"  oj t~ r\j *"• *~ OJ  f\j f\i t—        KI  f\j    ro  »~ f^J           ^~  ro «r~ t™* tNj t™* v~ oj t~    ro r\>    OJ        *"••    fNj     r\j f\j
    
    >           O      •«•••••••••••••••••••••••••••	.....*..•....
    x     r* i      J5     r~- r*-  p1— f*" r*-  f*^ r*»- P1- r*- r** o-  o- r1*- r*-  JQ &> yxj oo JG  no co uc  Jo wj co  uj JG 'XJ jo «o Xj JD >jo ou uo 1,0 JLI cc  oo co «c uo uo uu ut> iJO
           o~       •
    
    o     *-     r«-
    
    
    
    
           CJ     <£
    
    
    
    
    O     h—     5E        OJ  r— Ou OJ     r-     OJ.r*Oj     ro r"  OJ rO (*"i  T-    OjfO    «—  fO |sr j r* I  Ou    r*"irOv— OJKif~«~OufOrj        r-     rvj        OJ
    
    
    
    UJ     t—<     «t
    r-     <     i—
    «.           to
           CL    O     ^ iJ^  ^> J^ i> O O O O O O C. O O
    «i     r*"    ^D            r-    «— OJ OJ     r-r-«r—  OjOu     f*i    ropjt^r-    fO  K1. t- r~ *—              *— ro     f.Oo     f\jOjr*-t~OJO>JOJOJr<"'r-Oj
    
       ro  O    M      •*•	»•••	*	•	.............*•
    jt  f~  h—     cj
    
    
    X  O  UJ     UJ
    
    
    
    
    C£u_i<     a:                      (O    p.,Klr-tOfOr-«-r-OJr-     OJCJNi        (NJ    ro*-              f i  <*~i    M^lr-        t-     r-           --MI—     h-
                                                                OvJ  fSJ :"\J fNJ f\J csj ,AJ  Og i \j
                                                                                                                                                                                        X  -2
                                                                                                                                                                                        CLKH
                                                                                              190
    

    -------
                        O-  O O O  O O
                                                                                                                            in^'Ch CO 00
                                                                                                                            OJ <\J «- r- *-
                                                                                                                               O  G O O  -G
                                                        s.  Ki I*"! Kl  K  Kl K1  K  Kl K" Kl ^
    
                                                f\l OC -»  T- -o **  O- N- O  Kl t- Kl O  « O OO  Kl N- N"> O «, O  O «- h-  a1 N r-  r-- O u^.  O O T-  CO Ki Ki  O-  »- O
                                                U^Nroru^OO^^<^^f^|r~OCw^r~rOKl(<)(Nl<\J*<>^>fO    %I-*J1K1OL-fOls-^"r-O>O'«a'f^i/"isJ1(J1*Ki
    
                                                                                                                               ^in<)^ccao»^fNj^>ju^
                                                                                                                               r*»*r-«*<~v~r\ir\ji%(f^
                            «— o P— u^ *-*
    
                                                                                                          ^
    
                 <
    
                 O
    
                                                      OJ O-- O r-
                                                                                                                            O O r-  f\t KI  -4"  IT> *C (V-  Ot, O O *- f\l K\  -41 IA
                                                                                                                            T-rof>jrjrN4rorjfMOJrsjf\JK^K>f*lKirorO
    
    
    
                        Kir-roro
                                                                                                                  r^
                                                                                          T-coixrvjoo^^i^ciKii%jr-tno^r-c^in(,)^sr^rNjo
                                                                                          *-r\j    i^r-ro     Mt-fOK>    rg^jryoj     r\j        rororjKvr-     rsj
    <
    C
    O
    a
           a.    o     i>ChOOChOooooaaOoo*-r-r-r-»— r-t^T-r-r-
                             -  ^- CO O  xJ oO IA (\J
    
    
    
                                                                                                                                                                                        II  M
                                                                                                                                                                                       t—
    uj «        >
       Z   •    i-t
    • • o  r-    f-
    >• ^  -u    <
    
                                                                                                                                                   CO^ar-^
                                                                                                                                                 ^
       UJ      U
                                                                                           191
    

    -------
                        oo*-^r-or*>«-^-ON-mi O    u^MrnchK>c>^Ch(>oovr-r-'*pO'»rr--(>aoK»tn-*(Nj
                            O  **• *o aoooojKisjoaur-fv r^r-oh-O^Kir^i^^ry|^^o^o^oo«orvjt-ook^«fOQ''Ki
                 *-»     l^iA^OcO-^OOOoO^OW^f^O    P-  O f-O N-  Kl O     aOr-«4'fiOmOO»-Or-OjN.'r-'Ooj»-OO**»OO'O-Om
                 CD     r- r\j c- <-     ^OJK     tO %T -O OO O O *-  r\J >T ^iriWtOOOOOfVf^r^iJOO^-Ki ^f^fs"-N-ril>-LOi>^-^r--OOO*1"v-KlfO-<)<>'OC>O»-r-
                                                                                                                                                              O
                 O     oocoooooaOaoooooo-o^O-O^oo-o-oooo  oooooot-r-*— T-T-«r-r-»-»-r-pjrsjfur\jr«Jojr>jr\ir\j(\j
                 ae     rvjrurvjr\jryrvjrvjf\j(Njrvj(\jf\jrvjrurvJfsjtNir^rOh^r^Kiiof"TKifnro^
    
                 CO     t/Ntnfs- •OOr-OOiAI^"rO>J"l-Ori*'N-f\Jr->j Kir- T— -
                  •     r-f\j     K>f\jKrroro    fgr-    t-(Nir>Jf\Jr-f\(fSJKir-
                                                                                                                      •*? -4 moo oP'-oaoo
                                                                                                                         (^^t~o^^'-^«~^l
                                                                                                                         I^r-f\jr^
                                                                                                                         r- K1! r-           i*'if-rjf\iOJC>j«-r-r-    jrNjf\jr\jruraroMrn^i^>TNT^^uTu^i^o<)<)O<>oo^^^
    »«s           3£     T— «—«— *~r-ir-t—  r-»— r-f— r»»—  «— t— t—  r~»— r-f-t— t—  t— r-r-**-r- t— *-r-«— f— t—  t— T~*—r-r-fVj{\jf\jf\Jf\j(\iryi(\j<\j
    CX3           <
    fv.
                 O
    2"           O     ^o«^^ur^Mrl/^<)^^ofJOCt-f^ro^l^•^^^^o-o*-rsJ^^>Tl/^<^Neoo-Or-ru
    <           tA     -OOOO^OO'OOOt>OOOOOOOOOOr'-r-r-'r-r-*— ^.^-t— ^r-r^r^jfururvlfNjOJf\jrNj(\jKlKlfOfOfOfO
    — j             *     (T~r"^*t— r-r-r-t—r-t—  *"r^irvjf\jfvjrvjrurijrNjr^jrvjrvjf\jryrvjpvjrvjr\jr^
                 O
    r-           O
    
    «i           *j     H>X'^o^iu^c?cCtt;r\ju^rvji/^oj«r^r~i/^NsifOor'>^^»~ruC''^                         o_m <;  o f\j
    
                                                                                                                      -o -o  ^j o  -o  -o o
    O     O
    cc
    
    
    
    
        f^ &*     f-t      •   ..««••..•.«••••••••••••••••...••.••.*••«•*«.••
    
    
        o-        K
    u:  r- >•     i/>                                                                                                                                                                      -r -o
    
    <     >-"     O
    
    
    Ji  t- t-     l_l
    «  .-t CO     JI
    X  U UJ     Ul
    
    
    
    
    
    
           a	•	•     _jl~
    
    li,  (/3        >                                                                                                                                                                      ^ ^
    
    
    
    nj  i/i ]L     ^     ^"  < *J r^l  -^  in -C  f^- iXj O-  O ^ '^J  f^ -»J u^i  O ^- (JO  t>- O r~ (Vj Kl  ^ i/^ -O ^~  OO t^ O t" (NJ  r*1 »J u i  »O r*- lO O  O i~  OJ f~* -4  UT xJ f^-     d. ^
     2  1-1
                                                                                                                                                                                             f-
           «*•     J
                                                                                              192
    

    -------
                                                                                                             j^^
                                                                                                               aoccoo(X oo ou O1 O O K;
                  K~     K  f*  Kl  Kl K1 Kl K  K K  Kt K1 K.  K Ki Kl  K1 M Kl K, K  f"  K1  K1 K1 Kt f  K" Kl  KI K* K  K5 K K  f < Kl
                  UJ
    
    
    
    
    
    
    
    
    
                  (/)    r*>i f\  f\j  fvi f\i r^i f^i t\' r\*  t\> f\j fvj  rvi t\i (\j  fvi t\i r\j (Vt f\j t\i  r\i  rvi f\> K K' K K>  K KI K'  K* K K  K KI Ki f. K  K"< K1 KI K- r"v K< K  KI
    
    
                  ZJ
                                                                                         , oc'D»"f^JfOsJu-l»o^•ooo•o«~•(\^Ks•j(NjrvjrNjrvjr\j^
                                                                                                                                             (\J Kl  O Ok
     >            cr       ••••••••••••••••••••  ......  .......i.....   .....  .   *   *
    
     —4     LU           f*-  o O- xj  rvj sr KI  xi Kt .o o «—  r^ t> ^')  fu  oo T-  -^r o KI  Is-  o «~-  MJ Is- i>-  r- ru ^  r-^i *— ro  f-^  ~j o  -*NJ r- --O  -»-*-r-        t-        fvj     *-Ki    r--r-^-     KiOJiMCMOJ     K1f\Jr-Kir-        fvjKif-r-rN;     jf>j(^rijf\jrvjrNjrursj(\j^pjr*jrvryr\j
     UJ     KH     <;
     h-     <     t-
     <            00
     JL     CC
           UJ     (r    w>Or^oOO''Or-(l\JKl«»TU^ork-ajOvCj*— roKlvU^'Of^CCOOt— OJKi^jw^^jr-OOO^C- r-fMK'-'a'i'.'Cr'^ajO-Cjr-
     i/l     O.     O    ^i^C^O-O^OOOOOOOGQQr-t-^r-f-r-r-r-r-ir-rsjrsj^rSjrNjr^
     3     Q.     u.                     ^-r-«-r-t-T^T-r-T-*~r-t-r-r-r-f-t-r-T-t-T-r-r-T-»-r-r-r-r"r-r-r*^r-r-«-«-f-
     O     13
     o            x
    
     <     •»     M    o^f^rOL^r-Ki*"^T-aautfi^unvr->X
     »•>-        >•     ^>*u^u^U^u^lrtu^>^lAlAiA<)^^'O^<>^iO^^^^N-h*N-(^f^f^l^l^
    3  H- H-     O
    <  M t/>     2
    I  O ib     UJ
    
    Zh-        O     <>f\JN-!XJ<>K>^r\jOtChOt^OOKi^^(>^r-in^fVJ<\JCh^^<)f^^oOoO^
    UJ(/>*>     OJ     ri-fNJr~fNJKl^'>a'iN'«O>OiAsf     'O'O     KlOJ^O'OiAO     T-i-Kl*— ^--ONJT'T*r\JfcOOCf*JO-J'(\JJ^Oi/%t-*rMOt~Ou^     II   II
    a:uj<     a:            r-MrorOKi     r»fMKi         Kioa     rut-        rot-     rotorvjf-t-fu            Kir-        f^ror-    K»     r-rOKtr~ru     K
    
           <            ••«.•••.........*•.....••*   ..........  •••«*•****•     JH-
    o  M o     uj     ooooaoooocJooooooaaooooaooaoooocJoooooooooooooaao     a.z
    UJ  W        >                                                                                                                                                                     Z ^
        Z  •     *-l
    ,.  O H-     I-                                                                                                                                                                      »   »
    >•  HH UJ     <                                                                                                                                                                     X Z
    cu  v) C     -J     «-f\j»>ON*mor>.ooOi'Ot-f>jrO'*irt^>N-ooi>o»- rjKi^*n^^oo<>o^ryKi'4iiA'Of*.joi>a«f-(\jKi-*»'kn'ON-     (L»-»
        (/>        3                                   t*f*f-r*r-r*T"r"^r*ryr\jirNJrsicNj(N(f\jf\jrsi(NjrOK>rororoKiK)KtK^                                   <<
    Z  M U     C                                                                                                                                                                     QC C
    3  1C M-     3                                                                                                                                                                     09
    QC  UJ V3     W
                                                                                            193
    

    -------
                                                                                                                f\i r- r-    fuco
    
                                                                                               ao^f^c^^^^r-f-oGsooo
                                                                                         'OO»^    N.^or--of\jOKmioN.goom     'O«-rMO*o>ooa
                                                                                         t- «~  rg      t- rvj       «-Ki        r- f\j rw    ru  rvj rvj OJ
                u     •  »•*•»*•*•••**••*••**•••••••••••***•••••*•«•••.•
                x.    r-intn^or^ao(>r-ry<>r-rjr\j^^NO^^orNjro^H»^>oaQO^Or-r-M<>^^
                CK:
                w    K*^t^^K«aOr-r\*i^^ins3l^«c^or-^jro^in,or^MQ*Or-<\*M*»^
                O    tOOOeo«OOoOOOC^(>CK<>C>1OsOOOOOOOOOOr-r-T-T-T-r-'r»r»f-t-fgf>afurgryryr^
    
    
    
                                                                                                                             <>CiOor-^
                o    o^«-u^r-ootAo^r-o-ry^rN-fOryrou^oa^P^oo^u^M^roN-ao                                   sro
                 •    rOf^r^fOf^K>*^^^u^i/^u^u^<)^^r^
    ^s          2C    <— T-»— t-r-T-r-*— i—T-r"«~*-t~r"t— *—^-t— *— r-r"t~-r-frin<>f^ouo^or~rvj^^in<)r^ou<>o<^r^Ki>ri^
                                                                                                  f^r\jr\jfM
                ro
                o
    
                »*    rvjKiOoo<>>oryr\jN^NOruN»-u-iiAuT
                      PTr-r^aoi^^Sf^J^^r-Ou^iA^OfisO^vro^r-O^^Ln^^JKit-Kirsjf^^-xji^
                 *    r-OJr-       r-(Sj(NJOjr-    (<^r-t-rvjrvi    r-(\jr-KlKtf\-r-     Kir-Kir-     r\Jr\jr-r-r-<\jr-fOv-     Kir\jr-    r-    r-
    
                ro     •••••••••*•••••••••••••»•  •••.•*••.*•••.••••*•..
                u^    r^r^r-f^h-f^r^r^^N.f^r^r^r^*>^Jo^o^^ajix>xiiX'Ocj^
                                                                                                             t-r\^
    UJ
    •>
    •
    0
    *
    <
    «.
    o
    en
    <
    <
    
    *d r-
    oc r-
    Jl K
    X W
    * 1-
    X. 1—
    >" —1
    Of UJ
    (_ ^>xsrsT^>r^N**r\Ln^u-iini^inir»u-iinsO<>>o<>
    o *n
    t— Z1 *- Kl K1 f-O m po *- r- r- r\JKl t- fM fO *~
    t-« 0 -0 fl i/i - o^
    H— *-H
    K- O
    o fM^,o(-.incrMini^Nou»TJr^orJo^ruln
     -O -O O -O 'O ^O *(.• -O "O 'O -+.1 *4j -O O -O -O ^j '•O "fj -O P*1" f*^
    
    •n o r-i J- t. ^ r- ro « < -J i> r«, I*, o- en m M j-i -j o- r- f.  M «-r- (VJ
    
    (s^t^r^r^f^N-^-r»N-f^oO3Ojouo3O30'Xjix?txiwOOt>^oCfs
    rMM^-XVJO^T-OJ^Of l/,^^^* K» FO rO r* 1 r-o ^o fO KI *o KI
    po^ijA-or— ooo-Ot— rvjK* •sj-4Aor**ouo1' o^~roKi-«4-tr\'Ofs-
    
                                                                                    194
    

    -------
    rj
    
    "3
    
    
    
    O
    CJ
    >j
    ,
    ~)
    "1
    3
    J
    J
    -C
    -3
    3
    ^1
    m
    "o
    T)
    jj
    7)
    71
    =0
    7)
    7)
    16
    !
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    8^9 <
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    i
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ' f S 3 EQI
    (y313W 319
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    68^.9 5 t
    13/SWt
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    £ 3 ,01
    yooyoiw)
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    *
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    *
    X
    X
    V
    X
    X
    >
    
    
    
    
    
    
    
    
    
    
    
    
    68^9 S fr £ 3 £16
    zos jo NQiitjyu
    
    
    
    
    
    
    
    
    ^
    ''
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ^
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ^
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    sc
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    
    
    
    
    
    
    8/,9 9 V e 3 0Ql
    33N03
    X
    o
    Q
    LL
    _!
    CO
    o;
    ZD
    0
    1
    ^]-
    (XI
    Q
    UJ
    1 —
    CE
    — '
    1 —
    00
    LU
    [ 1
    o
    
    ^
    o
    1 — 1
    1 —
    HD
    CD
    1 '
    fy
    \—
    CO
    
    Q
    
    >—
    (_)
    ~^"
    UJ
    0
    UJ
    u_
    
    UJ
    ->
    1 — '
    1—
    cr
    	 i
    — ^
    >
    5Z
    ZJ
    o
    
    
    
    
    
    
    
    
    
    
    
    ^,
    o
    0
    •
    CD
    O
    •^J-
    •sj
    «
    LD
    OxJ
    »
    LD
    [^
    LD
    - —
    Bt
    1 —
    CC
    
    Q
    LU
    1 —
    CC
    CJ
    0
    
    "-<
    o
    ~^
    
    oc
    o
    1 —
    CL
    LU
    CJ
    LU
    or
    oo
    r-
    cr
    cr
    0.
    UJ
    X
    
    z
    o
    o
    LU
    or
    P
    >
    t— (
    Q
    
    CC
    UJ
    1 —
    cr
    21
    
    CO
    ?
    0
    o
    cc
    cr
    M
    cr
    ~r
    
    **
    CC
    1 — 1
    cr
    
    ^
    cr
    CO
    LU
    cc
    ^
    Q
    LU
    
    ••
    >—
    CD
    
    •z.
    )
    ce
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    en
    r--
    co
    ^H
    
    
    *
    | 	
    O
    
    CO
    LU
    *—
    »»
    CO
    •z.
    o
    1 — 1
    CD
    CO
    i — i
    s:
    LU
    CO
    r-
    cn
    j_
    i—
    i — i
    u
    t—
    CO
    LU
    1—
    
    CC
    cr
    
    cc
    LU
    CL
    Q_
    —3
    
    '*
    
    CO
    c^
    O)
    r~>
    >_
    1 —
    i — i
    CJ
    1 —
    CO
    LU
    1—
    ..
    cr
    i—
    cr
    o
    
    •
    i—
    UJ
    2;
    
    0
    Lu
    CO
    195
    

    -------
    o
    o
    o
    o
    0
    CJ
    o
    in
    o
    o
    o
    o '
    CJ
    o
    o
    f>
    0
    C3
    O
    LJi
    O
    O
    O
    D
    0
    0 |
    1
    o
    £
    on i
    ~T>
    O)
    (7)
    ^
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    58M
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    "(
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ? £ Z 0 '
    
    
    
    
    
    
    
    
    
    
    1
    
    
    
    
    
    
    i
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    J8/, 9 9 fr £ Z ,Q 1 £
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    '
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    X
    X
    X
    xx
    \.
    x
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ^
    •i
    *
    
    
    
    
    
    
    
    
    5S/.9 9 £ £ Z 0 l'68.
    ZOS JO NQIibyiNi
    
    
    
    
    
    
    
    
    
    
    
    \
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    V
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    *
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    
    
    
    . 9 9 v £ Z C0 1
    en
    CJ
    03 •>
    S uj
    Q
    l/l ' '
    ci X
    01 O
    o ' '
    "« Q —
    00
    o *: ^
    03 	 ' — ?•
    mil -£—
    ^ T
    o CO — i
    to ~
    m ce ^
    Z) Q-
    0 0 ^
    ro 1 X CO
    c\j g w
    -° r-> l~<
    0 Q 0 >-
    <" LU UJ h-
    o cc o
    a 7~
    ^ i— , " >—
    ^ £
    a CO Q K
    10 LU
    a o n«
    "a LL. •"• cz &•
    "i /•-, O UJ 1—1
    w o H- cr
    -° • cr
    5 ^ •** si a:
    do uj
    |o >— < •* CO Q_
    a h- -3 3 CL.
    " — ) - O O
    m § g
    -° i— i . a:
    g CC CD M
    i— r- or. en
    oo LO x r-
    _ _ co en
    — Q •• ^ Si "
    C3 | 	 ~~ 	 t y__
    >- cr — i i—
    cj cr ^
    a ^ a o
    m LLJ LLJ 3-
    =; i- 2 i— h-
    —^ cr cr ^ co
    O CJ 3= CJ uJ
    LU o CO I—
    .". CC -I Z 1-
    " LL_ UJ CO
    CM cr: uj cr
    0 1 i 1 * ^ ' '
    - • O CL
    ~ > z. d a
    1 — < LLJ co
    -5 h- ce z
    " cr o o h-
    , H- >- I-H UJ
    =: CL en co xi
    " =! LLJ CO
    0 ^- CJ Z i—i CJ
    3 LLJ ZJ SI LL-
    Cj nr cc LU co
    
    196
    

    -------
                                                     a
                                                            a:
                                                            CL
                                                     h-
                                                     cr
                                                     00
                                                     UJ
                                                            O
                                                            LiJ
                                                            or
                                                     Cr:
                                                     1 —
                                                     CO
    
                                                     a
                                                    LU
                                                    rj
                                                    a
                                                    ar
                                                    U-
                                                    LU
                                                    I—
                                                    cz
                                                    21
                                                    r3
                                                    o
               en
               t-
               LD
    (X
    
    o
    	1
    
    CO
    
    o
               cc
               o
               I—
               CL
               LU
               O
               LU
               or
                                                            CC
                                                            z:
    o
    a
    Q:
    cr
    M
    en
                                                            o:
    
                                                            or
                   cr
                   31
                   en
        01
        LU
        i-
    
    
        cn
        z
        o
    
        CD
        CO
                                                                    CO
                                                                    r-
                                                                    CD
                                                                    cj
    
                                                                    i—
                                                                    CO
                                                                    a:
                                                                    LU
                                                                    Cu
                                                                    a_
            ro
    
            en
                                                                    cc
                                                                    a
            CJ>
            LU
            CO
    I 68i,9 9 t>  £    3   ^ I 68/. 9 S t  £
    
      ZOS  JO  NOIltiyiN33N03
    nOI
           197
    

    -------
    3
    3
    J3
    3
    3
    D
    M
    3
    Jl
    D
    D
    K
    J
    D
    3
    •n
    3
    3
    D
    Jj
    fl
    3
    ")
    J3
    3
    ID
    [
    a
    0)
    O
    CO
    cn
    a
    S
    01
    0)
    CO
    o>
    O)
    IE
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    38Z.9 S fr £ Z eOI 6
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    *
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    >
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    V
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    8 1 9 9 t> £ Z ,0 I f
    
    
    
    
    
    
    K
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    K
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    58^9 G
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    V
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    \
    
    
    
    
    
    
    
    
    
    
    7 £ Z QI6
    
    
    
    
    
    
    
    
    
    
    V
    %
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ^
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    k
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    X
    X
    X
    X
    
    kg G v £ z Ooi
    LU
    a
    X
    O
    t— 1
    Q
    CK
    ID
    U_
    ID
    CO
    CC
    O
    X
    1
    a
    LU
    i —
    cn
    2;
    
    CO
    LU
    Lu
    O
    
    ^
    O
    1 — 1
    h-
    
    CO
    1 '
    ce
    i —
    CO
    
    a
    
    ^
    CJ
    z
    LU
    O
    LU
    ct
    JJ^
    
    LU
    ^-*
    I 	
    cr
    	 i
    —
    ^~
    ij
    Cj
    
    
    
    
    r-.
    CD
    LD
    »
    O
    0
    T^-
    -st
    ••
    r?
    »
    OD
    r~-
    LO
    ^>
    oc
    1 —
    a:
    
    o
    LU
    i—
    cc
    CJ
    O
    — 1
    
    •^
    O
    ^
    
    0
    ] —
    Q_
    UJ
    O
    LU
    cr
    CD
    r-
    "Z.
    cr
    — >
    CE
    Q_
    LU
    X
    O
    0
    LU
    <¥
    >
    a
    
    cn
    LU
    I—
    a:
    2:
    
    cn
    ID
    o
    a
    or
    cr
    K4
    or
    X
    
    •4
    C£
    i — i
    or
    
    _^
    or
    cn
    :z:
    LU
    cr
    *"
    C3
    LU
    „
    CD
    
    ^r
    )
    cr.
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    CO
    CD
    , — i
    
    
    ••
    i —
    CJ
    
    i —
    cn
    uJ
    *"
    3«
    cn
    o
    cn
    cn
    i — i
    5~
    UJ
    CO
    CD
    1—
    CJ
    1—
    cn
    LU
    i—
    
    cr.
    cr
    
    cc
    LU
    a.
    Q_
    ~3
    
    i»
    
    CO
    L^
    cn
    ^-<
    >—
    i —
    i — i
    O
    1 —
    cn
    LU
    1—
    
    !•«
    cr
    cr
    a
    
    i —
    UJ
    SI
    
    CJ
    u_
    cn
    ZOS JO
        198
    

    -------
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    \68L9 s t- e T" eo ie
    (y3i3w oiar
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    8/.
    3
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    c
    /
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    c
    3
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    """* £ z ,0 1 e
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    <
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    '>£,
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ^
    \
    'X
    
    
    
    
    
    
    
    
    
    
    8A9 S fr £ 2 £ J
    ZOS JO NOIiHyi
    
    
    
    
    
    
    
    
    
    s
    
    
    
    
    
    
    1
    
    1
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    *,
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    S
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    x
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    xx
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    
    
    
    
    
    
    
    1 1 1
    68^.9 S f £ 2 Q0l
    N33N03
    en
    CD
    00 c
    S LU
    J-> ' H
    '» x
    03 O
    CT L-J - •
    01 CO
    o L"--
    m ~Z-
    ™ U_ Q.
    a CO —
    uT "-•
    CT ry- CT
    — -j Q_
    o 0 ^
    "^ ~£- ->
    0 1 X CO
    (\j ^ en
    O — '
    o i — i
    CD Q CD >-
    10 LU LLJ H-
    1- Cf i—
    o CT CJ
    ° S :
    > s
    n CO Q |_
    ^ LU
    CD * ""
    o LL ~ o: cc
    m Q uO LU ^-c
    cn i~ cr
    -^ • cr
    5 ^- cn s: or
    O en LU
    0 1—1 ro en Q_
    "s ^ t g %
    m OT °
    - S ^ ^
    ° Ct: r~- M
    i— r~ cr oo
    CO LO x r^-
    , 	 — CO CD
    ° Q „ ^ m ^
    2 i- ce ^ >-
    >- cr i— • t—
    O or >—
    o ^ Cl - CJ
    — i— 3i—i—
    -J cr or i— cn
    '—' O X CJ LLi
    LU o cn i—
    °. C£ -i ^ t~
    PJ LL LU CO
    LO ce LU cr
    o LU • ^ \~ \-
    •-" z a ca
    1 ' LU cn
    ."- i- a: ^ •
    " CT o o H-
    i 1— >- i— i LL!
    — . CL CQ en s:
    rj -^. LU en
    0 -^— CJ ~2L > — i CJ
    ^J LU 3 s: LL
    cj or ce LU cn
    
    199
    

    -------
    o
    n
    ^4-
    "
    n
    o
    CJ
    o
    in
    o
    a
    o
    s
    o
    o
    §
    a
    a
    CD
    a
    01
    0
    CT
    O
    co
    01
    o
    o
    o
    Cl
    CT
    cn
    O)
    CT
    on
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    58^9 S V £ 2 £0l
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    V
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    X
    
    
    
    
    
    
    
    I
    
    
    
    
    
    68^9 5 fr £ 2 ,01
    
    
    i
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    6
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    1L
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    „
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    'S
    
    
    
    
    
    
    
    
    
    
    
    3 s f e
    
    
    
    
    
    
    
    
    ><
    X
    '
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    ^
    ,
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    *
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    y
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    k
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    X
    X
    X
    X
    X
    X
    X
    
    
    I TQ I 68L9 9 fr £ 2 0Q '
    en
    en
    CO o
    S LU
    Q
    uT ' '
    "ra X
    en Cj
    o ' '
    a, d "
    CD
    o ce: r-
    CD — ' ~r
    » u. g
    a CO —
    " 5r ^
    o 0 ^
    05 1 X OO
    ^t- r-
    CM z en
    o «-<
    0 i—, •"•
    a Q CD >-
    50 LU LU (_
    a cr o
    ° S :
    h° i- ^ ^
    s £
    a ™ "*
    "o Lu ^ ce o±
    « r-, CD LU >— i
    o " "- ^
    t-° • cr
    5 ^ eo sr o±
    O CD UJ
    0 H— ( -*• CO Q_
    ho |— •* ^ 0-
    " — , • O ^3
    m m a
    U " U? er
    ° or en M
    i — o en oo
    CO LD 31 r-
    ,__ ^ co en
    .° a „ ^ £i *"
    2 h- a: - >-
    >- cr !-< i—
    o cr !-•
    o -z: Q • o
    . ^ LU ^ >- ^
    r£ en en •— oo
    c-5 CJ 3Z CJ LU
    LU o en t—
    _"? Ct _J Z t-
    CJ 1_L_ LU CO
    CD Q: LU cr
    0|,| • ^ 1- 1—
    - • o en
    > z a en
    „-, 1—l LU co
    0 cr o a i—
    	 1 h- >- i— i LU
    — , Q- CD CO ST
    ^ _ LU CO
    a f- CJ Z 1-1 0
    CJ or o; uj co
    
    ZOS dO NOIibyiN33N03
        200
    

    -------
                               CUMF PROGRAM LISTING
    C        PROGRAM  TO  PRODUCE CUMULATIVE FREQUENCY  DISTRIBUTIONS AND      CUMF0010
    C         PLOT DIAGRAMS.  INPUT DATA IS FROM A  RUN  OF  THE FREQUENCY      CUMF0020
    C          VERSION OF  RAM(EITHER RAMF OR RAMFR)   -  VERSION 78124        CUMF0030
    C***THE PLOT OUTPUT  IS  INTENDED FOR A CALCOHP  PLOTTER                   CUMF0040
    C   TWO SUBROUTINES  ARE REQUIRED:                                        CUMFOQ50
    c      DGRAPH                                                            CUMFOO&O
    C      2)PROB                                                             CUMF0070
          DIMENSION CON(370),  F(83), ND(370), XE(40),  YN(40)                CUHF0080
          DIMENSION FA(370),  CONC(IOO), FREQ(IOO),  CJI(3gg5mjk              CUMF0090
          DIMENSION FQ(400),  CHK400), TITLE(14)                             CUMF0100
          DIMENSION TLNK14),  TLN2(14), TLM3(14)                             CUMFOUO
          DIMENSION HD1(2), HD2(3)                                           CUMF0120
          DATA F /O.0001,0.0002,0.0003,0.0005,0.0007,0.001,0.002,0.003,0.004CUMF01 30
         1,0.005,0.007,0.01,0.015,0.02,0.03,0.04,0.05,0.06,0.07,0.08,0.09,0.CUMFOUO
         210, 0. 1 2,0.14,0.16,0.18,0.20,0.22,0.24,0.26,0.28,0.30,0.32,0.34,0.3CUMFO150
         36,0.38,0.40,0.42,0.44,0.46,0.48,0.50,0.52,0.54,0.56,0.58,0.60,0.62 CUMFO160
         4,0.64,0.66,0.68,0.70,0.72,0.74,0.76,0.78,0.80,0.82,0.84,0.86,0.88,CUMFO170
         50.90,0.91,0.92,0.93,0.94,0.95,0.96,0.97,0.98,0.985,0.99,0.993,0.99CUMFO180
         65,0.996,0.997,0.998,0.999,0.9993,0.9995,0.9997,0.9998,0.99997     CUMFO190
          DATA HD1,HD2,HD3,HD4  /'RECEPT','OR NO.','  LOCAT'.'ED AT:',' ( ',',CUMF0200
         I',')'/                                                              CUMF0210
          DATA FQ.CHI, /800*1.0/                                              CUMF0220
    C***INITIATE THE  PLOT  FILE                                                CUMF0230
          CALL PLOTS  (ADUM.1,14)                                              CUMF0240
          SCALE=1.0E06                                                        CUI1F0250
          IRD=5                                                               CUMFO260
          IURI=6                                                              CUMF0270
             READ OUTPUT  FROM  RAMF, NUMBER OF DAYS  IN  YEAR AMD THREE LINES  CUMF0280
             OF TITLES FOR  BOTTOM  OF PAGE.                                   CUMF0290
          READ (8) JDYR , TLN1 ,TLtJ2 , TLN3                                       CUMFO 3 00
             READ STATION  COORDINATES.                                       CUMF0310
             READ NUMBER  OF RECEPTORS, EAST COORDINATE  FOR  FOR ALL RECEPTORSCUtlFO320
             AND NORTH COORDINATES FOR ALL RECEPTORS.                        CUMF0330
          READ (8) IMAX,(XE(J) ,J = l,IMAX) , (YN(J) ,J = 1 , IMAX)                   CUMF0340
          IF (IMAX.LT.40)  GO  TO 10                                           CUMFO350
          IMAX=40                                                             CUMF0360
                                                                              CUMF0370
                                                                              CUMF0380
                                                                              CUMF0390
                   LE.365)  GO  TO  20                                          CUMFO400
                                                                              CUMF0410
                                                                              CUMF0420
                                                                              CUMF0430
                                                                              CUMF0440
                                                                              CUMF0450
    10
    >0
    WRITE (IURI,170)
    NEND=36
    NBEG=37
    IF (JDYR.
    NEN1> = 3 7
    NBEG=38
    CONTINUE
             RF.AD CARD WITH  TITLE FOR GRAPH.
          READ (IRD.180)  TITLE
    C        DETERMINE  PLOTTING FREQUENCY FOR  EACH  DAY.
          DENOM=JDYR+1
          DO 30 M=l,JDYR
          D = M
    30    FA(M)=D/DEMOM
    C        READ CARD  WITH  INFORMATION ABOUT  PLOT.
          READ (IRD.190)  NLOC ,XDIM ,YDIM, YBASi:
    C        NLOC IS  THE  NUMBER OF LOG CYCLES.
                                                                              CUMF0460
                                                                              CUMFQ470
                                                                              CUMF0480
                                                                              CUMF0490
                                                                              CUMFO500
                                                                              CUMF0510
                                                                              CUMFO520
                                                                              CUMF0530
                                            201
    

    -------
    C         XDIM, YDI'l  ARE X,Y  DIMENSIONS  OF  PLOT IN'  INCHES.                CUMF0540
    C         YBASE IS  THE. LOWEST  VALUE ON THE  LOG SCALE.                      CUMF0550
           :;PLOT = 1                                                                CUMF0560
    C         READ DAILY  DISK FILES,  JULIAN  D<\Y  NUMKER, AN')  CONG. FOR  EACH   CUMF0570
    C         RECEPTOR.                                                           CUMF0580
           DO  40 J=1,JDYR                                                        CUMF0590
           READ (8) JDAY, (CJ I (J ,K) ,K = 1 ,I 1AX)                                    CUMF0600
    C***CHECK DATE                                                               CUMF0610
           IF(JDAY. ;iE. J)  GO TO  150                                               CUM FO 620
    40     CONTINUE                                                               CUMF0630
           JM1=JDYR-1                                                             CUMF0640
    C          DO FOR EACH RECEPTOR                                              CUMF0650
           DO  140 1 = 1, IMAX                                                       CUMF0660
           SUM=0.0                                                                CUMFO670
           DO  50 J=l,JDYR                                                        CUMF0680
           :;i)(J)=J                                                                CUMF0690
    C      COUVERT THIS  RECEPTOR'S  CONCENTRATIONS TO MICKOCRAMS PER  CUBIC    GUMF0700
    C       METER AND STORE IN  CO!!.                                              CUMF0710
           COi: (J)=SCALE*CJI (J , I)                                                 CUM FO 7 20
    50     SU!l = SUri+CON (J )                                                        CUMF0730
    C         ORDER CONCENTRATIONS  FROM LOW  TO  HIGH.                           CUMF0740
    C       DO FOR ALL  THE HUMMER  OF  DAYS IN  THE YEAH HINUS  ONE.              CUMF0750
           DO  70 M=l,JM1                                                          CUMF0760
    C        SET UP A CANDIDATE MINIMUM                                         CUHF0770
           AMI\' = CON (M)                                                            CUMF0780
    C        L IS TilE POSITION  IN  THE ARRAY  OF  THE CANDIDATE                  CUMF0790
           L=M                                                                    CUMF0800
           K!!EC = !1 + 1                                                               CUMF0810
    C        DO FOR TilE  REST OF THE  DAYS.                                       CUMF0820
           DO  60 K=KBEO,JDYR                                                     CUMF0830
           IF  (CONCO ,GE. AMI^I)  GO  TO  60                                         CUMF0840
    C        IF KTH CONCEN. IS  LESS  THAN AMIN,  REPLACE  AMIM.                  CUMF0850
           AMIN=CON(K)                                                            CUMF0860
    C        L IS NEW CANDIDATE                                                  CUMF0870
           L=K                                                                    CUMF0880
    60     CONTINUE                                                               CUMF0890
    C        THE LTH CONCEN. IS THE  MINIMUM  OF  THOSE TESTED.                  CUMF0900
           IF  (L.EQ.M)  GO TO 70                                                  CUMF0910
    C        L=M, NO NEED FOR EXCHANGE                                           CUMF0920
    C        EXCHANGE LTH AND MT11  CON'S AND  NOS.                               CUMF0930
           CON (L) = CON(M)                                                          CUMF0940
           CON(M)=AMIN                                                            CUMF0950
           N = ND(L)                                                                CU1IF0960
           HD(L)=ND(M)                                                            CUMF0970
           ND(M)=N                                                                CUMF0980
    70     CONTINUE                                                               CUMF0990
    C         HAVE DAILY  CONCENTRATIONS RANKED  FROM LOWEST  TO HIGHEST  IN     CUMFl000
    C         ARRAY CON.   HAVE  ORIGINAL DAY  NUMBERS IN  ARRAY: N I).             CUMFiOlO
    C    DETERMINE ANNUAL AVERAGE  CONCENTRATION                               CUMF1020
           SUM=SUM/JDYR                                                           CUMF1030
    C         PRINT PAGE  OF CUMULATIVE  FREQUENCY DISTRIBUTION.                CUMF1040
           WRITE (IWRI.200) TEN 1,TEN 2,TLN3                                      CUMF1050
           WRITE (IWRI.210) I ,XE(I) ,YN(I) , SUM                                   CUMF1060
           DO  80 NA=1,NEND                                                       CUMF1070
           N2=NA+47                                                               CUMFl080
           N3=NA+94                                                               CUMF1090
           N4=MA+141                                                              CUMFl100
           N5=NA+188                                                              CUMF1110
           N6=NA+235                                                              CUMF1120
           N7=HA+282                                                              CUMFl130
           N8=NA+329                                                              CUMF1140
    80     WRITE (IWRI.220) NA,CON(NA) ,ND(NA) , N2,CON(N2) ,ND(N2) , N3 , CON(N3) , NDCUMF1150
                                              202
    

    -------
    90
    100
    110
    C
    C
    C
    C
         1(N3) , N4 , CON(N4) ,ND(N4) ,N5,CON(N5) ,IID(N5)
         2N7),ND(N7),N8,CON(N8),ND(N8)
          DO  90  NA=NBEG,47
          N2=NA+47
          N3=NA+94
          N4=NA+141
          N5=NA+188
          N6=NA+235
          N7=NA+282
                                                N6,CON(N6) ,ND(N6) ,N7,
                                                CON(CUMF1160
                                                    CUMF1170
                                                    COMF1 180
                                                    CUMF1190
                                                    CUMF1200
                                                    CUMF1210
                                                    CUHF1220
                                                    CUMF1230
                                                    CUMF1240
     WRITE  (IWRI,220)  NA,CON(NA),ND(NA),N2,CON(N2),ND(N2),N3,CON(N3),NDCUMF1250
    1(N3),N4,CON(N4),ND(N4),N5,CON(N5),ND(N5),N6,CON(N6),ND(N6),N7,CON(CU1I Fl260
    2N7) ,ND (N7)
        LN  IS  COUNT  OF CONCENTRATIONS STORED.
     LF = 1
     LN = 0
        STORE  ENOUGH CONCENTRATIONS  AND FREQUENCIES  TO
        PLOT A  REPRESENTATIVE  CUMULATIVE FREQUENCY
        WITHOUT  PLOTTING EVERY  DAY  OF THE YEAR.
     DO 110 M=l,JDYR
     IF (FA(M) .LT.F(LF) ) CO TO  110
     LF=LF+1
     IF (FA(M) .GE.F(LF) ) CO TO  100
     LN=LN+1
     CONC(LN)=CON(M)
     FREQ(LN)=FA(M)
     CONTINUE
        HAVE Ltl  CONCENTRATIONS  AND
        PLOTTER  PROGRAM TO PRODUCE
        HPLOT  IS  THE NUMBER OF  SIDE  BY SIDE PLOTS ON THE
        SUBROUTINE  GRAPH DRAWS  THE  LOG-PROBABILITY  CHART.
     CALL GRAPH  (XDIM,YDIM,NLOC,YBASE,NPLOT)
        TEST IS  THE  HIGHEST Y-VALUE  THAT CAN BE  PLOTTED.
     TEST=ALOC10(YBASE)+SLOG*1.0
     TEST=10.0**TEST
     STA = I
     R=XE (I )
     S = YN (I )
      WRITE LEGENDS  AT BOTTOM  INCLUDING RECEPTOR NUMBER AND
     CALL  SYMBOL  (0.0,-0.5,0 . 1 4 , TITLE,0
     CALL  SYMBOL  (0.0,-.85,0.12,1101,0.0
                  (999.0,
              FREQUENCIES  STORED FOR  PLOTTING
              LOG-PROBABILITY PLOTS.
                                     PLOTTING
                            . 0 ,-
                            , 0 ,-
                            .0,-
                            . o,-
                            .0,-
    .85,
    ,85,
    , 85 .
    ,85 ,
    ,85 ,
    ,85,
                               ,2,0
    CALL NUMBER
    CALL SYMBOL
    CALL NUMBER
    CALL SYMBOL
    CALL NUMBER
    CALL SYMBOL
    CALL SYMBOL
    CALL SYMBOL
    CALL SYMBOL
       IMT1  IS
    I NT 1=4
    K N T R = 0
        DETERMINE
    DO 120 K = 1 , LM
    A=FREQ(K)
    H = C 0 fl C ( K )
       CONC.  WITHIN LIMITS
    IT (K . LT . YBASE. OR. 15 .GT
       INCREMENT  COUNT AND
    KNTR=KNTR+1
       FUNCTION  PKOB DETERMI
    ro(KMTK)=PROR(A)
     12,
     12,
     12,
     12,
    ,12,
     12,
    STA,
    H»2 ,
    R,0 ,
    HO3 ,
    S , 0 ,
    H n 4.
    RECEPTOR
    0,80)
    12)
    O.-l)
    0,14)
    2)
    0,1)
    2)
    0,1)
                  (999
                  (9 9 9
                  (9 9 9
                  (9 9 9
                  (999
                  (0 . 0 , - 1
                  (0.0 ,-1 . 55,0 . 1 2,TLN2,0.0,80)
                  ( 0 . 0 , - 1 . 9 , 0 . 1 2 , T L M 3 , 0 . 0 , 8 0 )
                 SYMBOL  CODE  FOR  X.
                         PLOTTING  POSITION FO, CHI  FOP,  EACH POINT,
          , T L N 1 , 0 . 0 , 8 0 )
                                               120
                                               AIM)
                                                    Y  PLOTTING POSITIONS.
                                    iF.S PROBABILITY  PLOTTING POSITION
                CUMF1270
                CUMF1280
                CUMF1290
                CUMF1300
                CUMF1310
                CUMF1320
                CUMF1330
                CUMF1340
                CUMF1350
                CUMF1360
                CUMF1370
                CUMF1380
                CUMF1390
                CUMF1400
                CUMF'410
                CUMF1420
                CUMF1430
          PAPERCUMF1440"
                CUMF1450
                CUMF1460
                CUMF1470
                CUMFl480
                CUMF1490
                CUMF1500
                CUMF1510
                CUMF1520
    COORD I NATES CUMFl530
                CUMF1540
                CUMF1550
                CUMF1560
                CUMF1570
                CUMF1580
                CUMF1590
                CUMF1600
                CUMF1610
                CUMF1620
                CUMF1630
                CUMF1 640
                CUMFl650
                CUMF1660
                CUMF1670
                CUMFl680
                CUMFl690
                CUMF1700
                CUMF1710
                CUMF1720
                CUMF1730
                CUfl Fl 740
                CUMF1750
                CUMF1760
                CUMF1770
                                             203
    

    -------
    120
    130
    
    140
    C
    150
    160
    C
    170
    180
    190
    200
    210
    220
    230
    240
    C
     CHI(KMTR)=ALOG10(B)
     CONTINUE
     FQU-.MTR+l )=PROB( 0.001)
     FQ (KKTR + 2 ) = (PROB(0 . 9'J 9 ) - I1 RO [5 ( 0 . 001 ) ) /XDIM
     J'RIHT  230,  KflTR
     CHI (KNTR+1 )=ALOC1 0 (YBASE)
     CHI (K.NTR+2 )=NLOG/YDIM
         PLOT POINTS.
     CALL PLOT  (0.,0.,-3)
     CALL LItlE  (rq.CHl.KNTR,I ,-1 ,IHT1)
     DO  130 J=l,400
     CHI (J) = l .0
     FQ(J)=1 .0
     SPLOT=«PLOT+1
     CO NT INUC
         END OF  RECEPTOR  LOOP.
     CALL PLOT  ((XDIH/2.+12.),0.,099)
     GO  TO  160
     WRITE  (IiJRI,240) JDAY.J
     CALL EXIT
     FORMAT
     FORMAT
     FORMAT
     FORMAT
     FORMAT
    IT', E9 .
    27)
     FORMAT
     FORMAT
     FORMAT
    
     E N D
     ('1 IMAX  EXCEEDS 40. RESET  TO 40.')
     (13A6.A2)
     (I3.3F5.0)
     (1H1,13A6,A2/1X,13A6,A2/1X,13A6,A2)
     (1HO,'CUMULATIVE FREQUENCY  DISTRIBUTION  FOR STATION'
    3,',',F9.3,'  ANNUAL CONC.  =',F9.1,' MICROCRAMS/CUB IC
    
     (111 , 8(I5,F6.0,' (' ,13,' )') )
     (2X,' MAIN,  KNTR =',110)
     (2110)
    ,13,'
    METER
      CUMF1780
      CUMF1790
      CUMFl300
      CUMF1810
      CUMF1S20
      CUM F1C30
      CUMF1840
      CUMTl350
      CUMFl860
      CUMF1870
      CUMFl8 SO
      CUM F1S90
      CUMFl900
      CUMF191 0
      r"-;ri92o
      CUMF1930
      CUMFl940
      CUMF1950
      CUMFl960
      CUMF1970
      CUMFl980
      CUMF1990
      CUMF2000
      CUUF2010
      CU11F2020
     ACUMF2030
    . 'CUMF2040
      CUMF2050
      CUMF2060
      CUMF2070
      CUMF2080
      CUMF2090
      COMF2100
          SUBROUTINE GU API1 (XD IM , YD IM , NLOC , YB AS E , NP LOT )                        CRAP 110 10
    C         GRAPH DRAWS THE  BASE CHART WITH  PROBABILITY  SCALE ON THE        CRAPH020
    C         ABSCISSA AN!)  LOG  SCALE ON THE  ORDINATE. THIS  ROUTINE UAS        GRAPU030
    C         DEVELOPED BY  DALE COVENTRY.                                       GRAPH040
          DIMENSION XVAL(21) .TEXT (8)                                           GRAPH050
          DATA  XVAL/0.1,0.2,0.5,1.0,2.0,5.0,10.0,20.0,30.0,40.0,50.0,60.0,   GRAPH060
         U  70.0,80.0,90.0,95.0,98.0,99.0,99.5,99.8,99.97                      GRAPH070
          DATA  TEXT/'CONCEN','TRATIO','N  OF  S','02 (HI',                      GRAPH080
         *'CROGRA' ,'tlS/CUB' ,' 1C MET'.'ER)    '/                                 GRAPH090
    200   FORMATdHO,' GRAPH,  NPLOT=',I10)                                     GRAPH100
          IF(NPLOT.CT. 1 )GO  TO  17                                                CRAPH110
    C         SET TO BASE PLOTTER  POSITION AT  BOTTOM OF PAGE.                  GRAPII120
          CALL  PLOT(12.0,-36.0,3)                                              GRAPH 130
          CALL  PLOT( (XDIM/2.) ,-33.0,-3)                                        GRAP11140
          FCTR=ABS ((XDIH/2.)/PROB(O.OOD)                                      GRAPH 150
          GO  TO  18                                                              GRAPH160
    17    ICHECK=MOD(NPLOT,3)                                                   GRAPH170
    C         GO  TO CORRECT  POSITION FOR MODULUS 3  OF PLOT  NUMBER             GRAPH180
    C         (THREE PLOTS  ARE  MADE ACROSS WIDTH OF PAPER.)                    GRAPH190
          IF(ICHECK.EQ.O)CALL  PLOT (5. ,11. ,-3)                                  GRAPH200
          IF(ICHECK.EQ.1)CALL  PLOT(17. ,-22 . ,-3)                               GRAPH210
          IF(IC!IECK.EQ.2)CALL  PLOT (5 . , 1 1 . ,-3 )                                  GRAPH220
    18    M=-l                                                                   GRAPH230
    C         INDICATE ON PRINTER  THAT  PLOT  IS  BEING ATTEMPTED.               GRAPH240
          WRITE(6,200) NPLOT                                                    GRAPH250
                                             204
    

    -------
    C          POSITION  AT CENTER  OF PLOT
           CALL SYMBOL((-XDIM/2.) ,0 .0 , o . i, 13, G . o ,-i)
    C          :>KAU  CKNTEH LINT,
           CALL PLOT( (-XPIM/2 . ) ,0.0,3)
           CALL i'LOT ( (-XI)IM 12 . ) , YDIM ,2)
           CALL SYM ",OL ( (-XI)IM/ 2 . ) , YMIM ,0 . 1 , 1 3 , U .0 ,-1 )
    C          LOOP  I'O  i)'!AU  LINES  AND  PLOT TOP  AND  BOTTOM NUMBERS  FOR
    C          PROP, ABILITY PART OF  GRAPH.
           •)0  2 1=2,21
           n = '-»(-i )
    C          M IS  A  'FLIP-FLOP'  SUIICil  TO  CO  FROM  TOP  TO BOTTOM ,  THEN
    C          T 0  TOP ,  E T C.
           AMK!=/VAL (I )
           B;:UM = I oo . O-XVAL (i)
           CNUM=XVAL (I ) *(J .01
    G          DLTT, RlI'lE  L I 'I E  POSITION
           KP = P 140 R ( C'xUM) * FCl'R
           1F(M.LT.O)GO  TO  I
           IF( Ai.TM.LT. 10. )GO  TO 1 1
           GALL NUMBER ( (XP-0 . 1 7 ) ,-0 . 1  -T , 0 . 07 , ANUM , 0 . 0 , 1 )
           GO  I'O  12
    1 1     CAM, NUMBER ( (X P-!) . 0 7 ) , -0 . 1  5 , 0 . 0 7 , A NUM , 0 . 0 , 1)
    12     GAM, SYMBOL(XP,0.0,0 . 1 , 1 3 ,  0 . 0,-1)
           CALL PLOT(XP,o.u,3)
           CALL PLOT(XP,YDIM,2)
           CALL SYMBOL (XP , Y')I.M , 0 . 1 , 1 3 , 0 .0 ,-1 )
           I F( BNUM . LT. 10. )GO  TO 13
           CALL MJM 15 E R ( ( \ P - 0 . 1 7 ) , ( Y I) IM + 0 . 0 5 ) , 0 . 0 7 , Btl UM , 0 . 0 , 1 )
           G, 0  TO  2
    1 3     CALL HUM BER ( (XP-0.07) , (YDIM + 0.03) ,0.07,BNUM ,0.0,1)
           G 0  T 0  2
    1      I F( lit; IK! . LT . 1 0 . )GO  TO 14
           CALL NUM BE, R( (XP-0 . 1 7 ) , ( Y D IM + U . 0 5 ) , 0 . 0 7 , Bll UH , 0 . 0 , 1 )
           GO  TO  15
    14     GALL NUM BER ( (XP-0.07) , (YDIM + 0.05) ,0 . 07 , BNUM,0.0, 1)
    15     CALL SYMIU)L(XP , YDIM ,0 . 1 , 1 3,0.0,-1 )
           CALL P L 0 T(X P,Y 'H i' ,3)
           CAM, PLOT(XP,0.0,2)
           CAM, SYMBOL(XP ,() . 0 ,0 . 1 , 1 3 ,  0 . 0 ,-1 )
           IF(ANUM.LT.10.)CO  TO 16
           CALL NUMBER( (XP-0 . 17) ,-0.15,0.07,ANUM,0.0,1)
           G 0  TO  2
    16     GALL NUM:5ER( (XP-0. 07) ,-0. 1  5, 0.07 , A Ml 1,0.0,1)
    2      CONTINUE
    C          URITE  ORDINATE  L EG F, ND . (  T E XT AND  NUMBERS)
           CALL LGAXS ( (XI) IM/ (-2 . ) ) , 0 .  0 , T EXT , 4 8 , YD IM , 90 . , YBASE, (N LOG/YD I.
           X P L 0 T = X D 1M / 2 . ()
           7,PLOT = -1 .0-;XPI,OT
           .! = -!
    C          LOOP  TO  DRAW  LIMES  OF LOG  PART  OF  GRAPH
           DO  4 1 = 1 , I! LOG
           I) 0  4 .1 = 1, 9
           AJ = J
    C          'FLIP-FLOP' TO  GO FROM   LEFT TO  RIGHT,  T11E N RIGHT  TO  LEFT,
    
           YPLOT= (1-1 ) * (YDIM/MLOC) + ALOCH)(AJ ) * (Y DIM/N LOG)
           IF(M.LT.O)GO  TO  3
           CAM, PLOT(XPLOT,YPLOT,3)
           CALL PLOT (7, PLOT,  YPLOT, 2)
           G 0  T 0  4
    3      CALL PLOT(ZPLOT,YPLOT,3)
           CALL PLOT(XPLOT,YPLOT,2)
                                            GRAPH 260
                                            CRAP 4270
                                            CRAPH2(;o
                                            GRAPH 290
                                            CRAP1! 3 00
                                            GRM'1131 0
                                            GRAPH32C
                                            GRAP'1330
                                            CRAPM340
                                            GRAPH350
                                     BOTTOMGRAPH 360
                                            CRAPH370
                                            CRAP11380
                                            GRAPH390
                                            GRAP1I400
                                            GRAPH410
                                            CRAPH420
                                            GRAP11430
                                            CRAPH440
                                            G R A P1! 4 5 0
                                            GRAPH460
                                            CRAPH470
                                            GRAPH 480
                                            G R A PII4 9 0
                                            CRAPH500
                                            CRAP 115 1 U
                                            GRAPH520
                                            GRAPH530
                                            G R A P H 5 4 0
                                            C R A P H 5 5 0
                                            C R A P H 5 6 0
                                            GRAPH 5 70
                                            GRAPI15RO
                                            GKAPH590
                                            GRAPI1600
                                            CKAP11610
                                            CRAPH620
                                            GRAPH630
                                            GRAP11640
                                            GRAPH65U
                                            CRAPH660
                                            G RAP IK) 70
                                            GRAPH680
                                            GRAPH690
                                            GRAPH 700
                                      ) )    G RAP 117 10
                                            GRAPH720
                                            GRAPI1730
                                            GRAPH740
                                            GRAPH 750
                                            GRAPH 760
                                            GRAPH 7 70
                                            GRAPH780
                                      ETC.  GRAPH790
                                            GRAPH800
                                            GRAPHS 10
                                            GRAP11820
                                            GRAPH830
                                            GRAPH840
                                            GRAP'1850
                                            CRAPH860
                                            GRAPHS 70
    205
    

    -------
    4     CONTINUE
    C        DRAW TOP  LINE
          IF(M.LT.O)GO TO 30
          CALL  PLOT(XPLOT,YDIM,3)
          CALL  PLOT(ZPLOT,YDIM,2)
          GO TO  31
    30    CALL  PLOT(ZPLOT,YDIM.3)
          CALL  PLOT(XPLOT,YDIM,2)
    31    CALL  PLOT(ZPLOT,0.0,-3)
          RETURN
          END
                                                                               GRAPH880
                                                                               GRAPH890
                                                                               GRAPH900
                                                                               GRAPH910
                                                                               GRAPH920
                                                                               GRAPH930
                                                                               GRAPH940
                                                                               GRAPH950
                                                                               GRAPH960
                                                                               GRAPH970
                                                                               GRAPH980
                                           NORMAL CURVE OF
                                           POSITION FOR GRAPHING
    
                                           JOE SANTNER AND OBTAINED
          FUNCTION  PROB(Z)
    C***TIIE FUNCTION  PROB(Z) TAKES  THE  INPUT Z IN FREQUENCY
    C***FROH 0  TO  1.0 AND DETERMINES  THE  PLUS OR MINUS
    C***STANDARD  DEVIATIONS(PROB) ON  THE
    C***FREQUENCY  THUS GIVING A PLOTTING
    C***ON THE  PROBABILITY SCALE.
    C***THIS SUBROUTINE WAS DEVELOPED  BY
    C***FROM RALPH  LARSEN.
          U(A)=SQRT(ALOG(1./(A*A)))
          X(A)=W(A)-((2.515517+0.802853*W(A) + 0.010328*(W (A) *W(A)))/(1.+
         1 1.432788*W(A)+0.189269*(W(A)*W(A))+0.001308*(W(A)*H(A)*U(A))))
          IF(Z-0.5)1,7,8
    1     IF(Z-O.O)2,4,6
    2     WRITE(6,3)Z
    3     FORMAT(2X,'INPUT ERROR  PROB  =',E20.10)
          GO TO  10
    4     URITE(6,5)Z
    5     FORMAT(2X,'AHS
          CO TO  10
    6     PROB=-X(Z)
          GO TO  10
    7     PROR=0.0
          GO TO  10
    8     IF(Z-1 .0)9,4 ,2
    ')     PROB = X(1 . 0-Z)
    10    RETURN
          END
                          DEVIA EQUAL  MINUS  OR PLUS INFINITY  PROB
    ,E17 ,
    PROB0010
    PROB0020
    PROB0030
    PROB0040
    PROB0050
    PROB0060
    PROB0070
    PROB0080
    PROB0090
    P R 0 B 0 1 0 0
    PROB0110
    P R 0 B 0 1 2 0
    P R 0 B 0 1 3 0
    PROB0140
    PROB0150
    PROB0160
    PROB0170
    P R 0 B 0 1 8 0
    PROB0190
    P R 015 0 2 0 0
    PROB02 1 0
    P R 0 B 0 2 2 0
    P R 0 B 0 2 3 0
    PROB0240
    P R 0 B 0 2 5 0
    P R 0 B 0 2 6 0
    P R 0 B 0 2 7 0
                                             206
    

    -------
                      10.
                               RAMBLK - INPUT  FORMATS AND  EXAMPLE RUNSTEAMS
    RAMBLK
         RAI1BLK WAS EXECUTED  TO PRODUCE THE  BLOCK DATA  SUBROUTINES FOR
    BOTH THE  RURAL ADD URBAN  VERSIONS OF  RAM.   IF THE USER  WISHES TO USE
    AW ALTERNATE UETHOD OF  CALCULATING THE DISPERSION PARAMETERS, HE SHOULD
    REPLACE  EITHER THE RURAL  DISPERSION ROUTINES, PGSYSZ  AND PGSZ, OR
    THE URBAN DISPERSION  ROUTINES, BRSYSZ AND BRSZ, WITH HIS OUN SUBROUTINES
    WHICH HILL CALCULATE  THE  APPROPRIATE  DISPERSION PARAMETERS.  THE BLOCK DATA
    SUBROUTINE PRODUCED BY  RAMBLK MUST THEN  REPLACE THE CURRENT BLOCK DATA
    SUBROUTINES IN THE APPROPRIATE RAM VERSIONS.  RAMl) REQUIRES BLOCK DATA
    ROUTINES  FOR BOTH RURAL AND URBAN DISPERSION  PARAMETERS, THEREFORE
    SOME MODIFICATION OF  THE  ARRAY NAMES  IN  THE RURAL BLOCK DATA SUBROUTINE  ARE
    NECESSARY.( SPECIFICALLY,  CHANGE THE  LAST  LETTER OF EACH ARRAY NAME AND  THE
    COMMON AREA NAME TO AN  'R'. ALSO CHARGE  THE LAST LETTER OF THE URBAN
    COMMON AREA NAME TO A 'U'). ALSO ANY  CALLS TO THE SIGMA ROUTINES IN THE
    MODEL MUST BE CHANGED IF  DIFFERENT SUBROUTINE NAMES ARE USED.
    SEE THE  CURRENT RAMQDOC FOR EXAMPLES.
    ***** CARD  INPUT TO RAMBLK *****
    CARD  1   (II)
           IMOD=1
           IMOD=2
      EXAMPLE :
    2
     I MOD
    TO USE
    TO US E
    RURAL
    URBAN
    SIGMA
    SIGMA
    SUBROUTINES
    SUBROUTINES
         THE  FOLLOWING ECL  STREAM IS NEEDED  TO EXECUTE  RAMBLK USING URBAN
    DISPERSION  SUBROUTINES.  A CARD DECK OF THE URBAN BLOCK DATA SUBROUTINE
    IS GENERATED.
    
    ******EXAMPLE  ECL STREAM******
    GRUN.D/R  JOB NAME/13, ACCNT-NO/U SERID , PRO J-ID, 1, 25/100
    0PASSWD PASSWORD
    @XQT A999*UNAMAP. RAMBLK
    2
    C************i
    
    THE PRECEEDING  RUN STREAM HAD A RUN TIME  OF 11.89 SECONDS  ON THE
    UNIVAC  1110 AND REQUIRED  11K WORDS OF  MEMORY(APPROXIMATELY 7,038 WORDS  OF
    INSTRUCTION AND 3,957 WORDS  FOR DATA)
                                          1207
    

    -------
                    OOOO OOOOOOOOOOOOO  OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOCJOOO
                    t\i tr\  UQ  *f &•  F+- o  t\i  r~ t*)  t\i  if\ OQ •&  Q*  ^~ o  fNj^"Kiror"Or*«-iAu^f\jot|-rotAOi/ior*« •*? CQ  r\j *~  ry  t>  c*  ^  r^- o o  u"* u~*  *A  p«-  t> o*  *-  rvoou^u^i/^N-
    
    
    
                     II   II   II   ll   II    II   II   II   II   II   II    II   II   II    II   II   II   II   II   II   II   II   II   II    II   II   II   II   II   II    II   II   11   II   II   II   II    ll   II   ll   II   II   ||    II   II   II   II   II   II   II   ||   II   II   II   U   ll    II   II   ||   I)
                    xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    
    
                    ooooooooooooooooooooooooooooooocoooooooooooooooooooooooooooo
    
    
    
                    oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
                     I   I    I   I   I    I   I    I   I   I   I    I   I    I    I   I   I    I   I   I    I   I   I    I    t   t    I   I   I    I    I   I    I    I   I   I    I    I    I    I   I    I    I    t   I    I    f   I    I    I   t    I    f   I    I    I    I    I    I   I
    
    
    
    
    m
    
                     II   II   II   ll   ll    II   II   II   II   II   If    II   II   H    II   II   II   II   II   II   II   II   II   ll    II   II   II   II   II   II    II   II   II   |l   II   II   II    It   II   II   II   |l   ||    II   II   II   ll   I)   II   II   ll   II   II   II   II   II    II   II   II   II
    °             ^ODOOOOOOOIDO^ID^OOOODIDOrDOOOrJOrDOOOD
    
                    oo  oooooooooooooooooooooooooooooo  oooooooooooooooooooooooooooo
    
    
    
                    t *   *   £ t  fc  i  t   t  3   *   i.   t  i  t  ;t  a_  t t  S^  i  £  *   J    J   i  i   >   f   I   t  t   1   1   1  ?  1    E.ETZ   £  X   *    £%   1   *   *   £¥   ft*   ill    S   £   *   *
                    ooooooooooooooooo  oooooooooooooooooooooooooooooo  ooooooooo  oooo
    
    
                    GOOOOOOOOOGOOOGOOOOOOGOOOOOOOOOOOOOOOOOGOOOOGOOOOOQOOOOCOGOO
    
    
    
    
    
    
    
    
    
    
                     II   II   II   II   II    II   ll   II   II   II   II    II   ll   II    II   II   II   II   II   II   II   II   II   II   II   II   41   II   ll   II    II   II   II   II   II   II  II    II   II   II   II    II    II   U   II    II   II   II   II   ll   II    II   II   II    II    H   II   II   U   II
    
    
             tj    xxxxxxxa-xxixxxxxxxxxxxxxxxxxxxxixxxxxxar-EXxxxxxxxxxxxxxxxxxxx
             CC.
    
             *-    oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
             2.    w(/Jdrt*/)tf)v>trtv>c/j*rtwj(/)trttfiwwiv>*rtv)(/*w>(/>t/>(/jt/>v)  (/jtocrtV)(/it/iu)to(/)V)vit/>c/j(rttrtVi(/>vit/j
             o      »*.»».»«.»»»»»»»*.»»»•.»«.*.»  »..»..»»....»»*...»».>..»   i>   ,.........»•-»..»»»....*-»•.*.*
                     II   II    l|   II   II   II   ||    i|   II   II    II   ll   ll    II   11   II
                                                                                                       ll   II   II   II   II   II   II    II   ll   ll    II
                                                                                                                                                                    II   II   II   II   II    II   II   II    ll   II   ll   II   II   II   II   II   H   H   II   II   >!   II   II   ll   H   H    i|
    
                                                                                                                                    208
    

    -------
                                  OOOOOOOOO                   «"T"«~v*t~'f~T"f~*"                  OJOJ^JOJOJfOKlKIKt                   «>*'r"t™'T-vt-f™>^-«'-i'*
                                 1000000000               ^ooooooooo               oooooooooo                "i*  OO Kl                  Or-^OfyOlAKiN-                   OOOOK>^*K1OO*A
    
    
    Qc                             OO fXI Otj O IA  K^ ^  IA O                   *O O Wv Q* Kl K> 'O  CC Kk                  i
    ££j                             OO T— ^ O "fl*  "nf Kl  i/"i T™                   O *~ <™ *** PJ (\l <••  O O
                                                                                    I   I   I   I   I   I   I   t   I
                                   OOOOOOOOO                   T— r-f^T-r-f^f"^**"                   rUf\Jf\J{\jf\l(M(\lfMK)                   *— r-  «"• *~ »•-  r~ <— r~t~
    
                                   OOOC'GOOOQ                   OOOOOOOOO                   OOOOOOOOO                   OOOOOOOOO
                                   .». +  +  +  +  + +  +  +                   •*«••*•  +  +  *  +  **«•                   I   I  I   I   I   I   I   I   I                    + ++4-+-f  +  +  +
    
    
                                                                                                                                   CO OJ 00 00 t™* O 'O  t*\ N»                   N- "O  ""^ fc^ iA  iA ^3 tf> <\l
    
    
                                                                                                                                   r*- 03 ^O IA O Kl "J1  T~ (^                   *t P»  u"l ^ i™  Kl -»"* CD K)
                                                                                                                                                                                   f— c>  K*i ^ f^-  ^* O* O* P*
                                                                                                                                                                                   OOOOOT-T-rvj^
    2
    <
    CD
    Q£
    X
    H-
    U>
    Z
    (/)
    2
    
    
    O
    OJ
    H-
    <
    o;
    LLJ
    if
    O
    
    UJ
    LLt
    Jt
    
    C/l
    h-
    Z
    u.
    •£
    O
    X
    LVl
    J£
    <
    
    (/>
    t-
    Z
    LLJ
    I— <
    O
    u.
    kk.
    UJ
    O
    <_»
    LU
    UJ
    2 oooS^'S"^* S
    « M 1
    i- a
    ^,
    h- <
    Z t
    >-i OOOOOOOOO f- O
    OI-H f— r-KiNOI^-inNjOfN-NO UJ 1— CJ
    QC l/» ^^ rO t)f3 N! in INJ -O (NJ i^l O^ C^ Z i"H Kl JO
    3u. _j -ofN-ooosolN-Ntoo- o -J in
    O UJ *H TN| fxj ^- O -
    K h- l\jCviT--«*"«~«— ^-OCjln H* *-
    w O O 1
    O 1-1 M
    O- H- 1-
    •a <
    0 X
    HL OOOC.OOOOO ^ O
    UJ * * * * * 1 1 1 1 UJ +
    bj l/^Ny'Ol/'lNt>OKlOO *-» CN.
    O (VI|N-Nj-NO«-NjKiruN»Kl O CM «-
    o O'NTrN-^ijNjNj-KiNro^ N-I c\j
    oj NA r- cv IN. o* m KI o (^
    ONnNiKir-<-inrN.,> t>-
    1
    
    
    
    CJ O CJ O CJ O C~J O O O
    m NT •<. u i  t— r\j
    OOC>N'CxJls-C>inKlON IN-
    ^^^^H^IC^* ^
    1
    
    
    ooooooooo o
    I
    1
    
    
    o
    CC
    -NT
    *—
    Kl
    00
    a-
    1
    
    
    
    
    o
    *
    NO
    in
    ^J
    if'
    o-
    1
    
    
    
    o
    •o
    in
    in
    -J
    tn
    N>
    1
    
    
    t'l
    I
    1
    
    
    o
    <.
    oo
    in
    fO
    N-
    i>
    1
    
    
    
    
    o
    •f
    «-
    r-
    OJ
    f !
    o-
    1
    
    
    
    o
    r-
    kj-
    r-
    ro
    Kl
    v>
    1
    
    
    o
    "S
    1 t
    
    
    a o
    O uo
    O1 Kl
    00 OJ
    o ^
    •*J •*$
    O* O1
    1 1
    
    
    
    
    <-> o
    * *
    NO IN-
    Ul O
    sr in
    C-i IN.
    O i»
    1 1
    
    
    
    o o
    •C 1^
    r»1 vj"
    in o
    -jr in
    O |N-
    l> 3U
    1 1
    
    
    l_l O
    52£
    1 I 1
    
    
    0 O 0
    r^ T- N»
    •O Kl N.
    r- N- T-
    -^ r^» N-
    r- *O |r-
    t> tC -X>
    1 1 1
    
    
    
    
    000
    * * *
    ^» Ki 00
    N- 00 00
    f\j UO *-
    r-j Wi c.~
    cso N- N-
    1 1 1
    
    
    
    o o o
    "T Kl i.'-
    uu r» r»~
    1^ OC OU
    OJ JO t—
    rw ir\ LJ
    sw fv. r-
    t 1 1
    
    
    o o o
    £
    1
    X
    ac
    *~
    o c.
    NO K
    Kl Z
    N^ LU
    «— *-l
    Nf U
    
    r tt
    o
    Nj
    
    Ul
    o ac
    * <
    in h~
    Nj 1-1
    ijO O
    CJ
    •o
    1
    
    
    
    o
    1/1
    J
    Nf
    -*J
    r\i
    -o
    1
    
    
    o
    0
    
    
    
    o
    NH 1
    t- r-
    -i Kl Kt
    -t o-
    l-l 00
    £U K>
    < Kl
    t- K,
    
    
    
    
    
    o
    1
    IN-
    CVJ O
    o
    Cj
    X
    
    
    
    
    o
    ^
    fNl
    o
    «— o
    o
    1C
    
    
    
    o
    °?2
    
    
    
    o o o
    1 1 1
    r- o o
    -O 00 i>
    ru KI N-
    O r- O
    rvi f- (\j
    -* -o ^»
    K> Kl Kl
    
    
    
    
    
    o o o
    1 1 1
    ru Ki fo
    •o h- r\j
    uO f^ r-
    U • & ti%
    v r- •#
    Kl Kt Ki
    
    
    
    
    o o o
    ro r"» >>i
    t— T— -O
    o r*- CM
    uO f1- r-
    IA O tn
    "~ *~ •*
    
    
    
    o o o
    £5s
    
    
    
    000
    1 1 1
    IN- IN- CM
    IN- O CO
    NT 10 in
    IN- Nt in
    in N in
    Kl - O
    Kl NJ u-i
    
    
    
    
    C. O O
    1 1 1
    in o ^~
    in ,"Nj m
    in 1*- sr
    ON fN- *>
    r- O NT
    Kl ,» In
    
    
    
    o o o
    CM C>
    
    
    
    o o
    1 1
    -O h-
    r- Kl
    r- r«-
    K> r-
    IA 00
    o ^
    KI f^
    
    
    
    
    
    o o
    I 1
    -j r»
    00 O
    jc ru
    C^i u .
    rj i^
    •^t t*-
    
    
    
    
    Ct O
    %* r-
    •O J~i
    oc o
    ;C "J
    r\j u^i
    i! £
    
    
    
    0 0
    
    
    
    X
    QC
    «t
    XI
    
    h-
    z
    yj
    z
    o
    a
    X
    UJ
    
    UJ
    2:
    <
    H-
    t-t
    o
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
                                                                                                                                                                                   ooooooooo
                                                                                                                                                                                   *********
                                                                                                                                                                                   OOU-CJOOOOO
                                                                                                                                                                                   «-r-l»«-«-r-r-«-«-
                                                                                                                                                                                   (1OOOOOOOO
                                                                                                                                                                                   o o  c. o o c» o o o
                                                                                                                                                                                          N- u. f
                                                                                                                                                                                          o s? r
                                                                                                                                                                                   ooooooooo
                                                                                                                                                                                   C-- O  O C  O  O O O O
                                                                                                                                                                                                    ooooo
                                                                                                                                                                                                    O r>* r*i «>
                                                                                                                                                                                  OOOOUjOOOO
    
                                                <—  r\i r*!  LA o                                t—  (\J KI  IA o                                T- {X Ki  in o                                r-  rvj r*~i  LA o
                                                              t—                                              «—                                              t—                                              T—
                            ^      111111111             —^      111111111             -^     i   i   i   i   i   i   t    r  i             ^     111111111
                            i                                              4.                                              JL                                              i.
                            I—     L J O «..,) O O  O O  O O            t-     O '^j  UJ O -J  O O  O O            t—    ,-) O t-J  O O O O  O O            H-    O O --J O O  O O  v.J O
                            X     t— f\jflU"\N-OOOO            X     ^rvJKli/Af^-OOOO            X    t— f\JKliAf*«-OCjOO            X    r-OJ^lu^f^-OOOO
                                                                                                         209
    

    -------
    o ooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    
    *4" OO  *•" £^ >O *A  'J' O Vl  O*  ^ 00 *""  Ch  O iA ••J1 O iA ^  *A  O *A lA  in O O  O O O  (^ »tf (\i T**  (O Cf*  ^  ^r *& r\J  PO  O 0**  OO  f^ 00 O*  1^1 "^T O*1  HI O O*  00  (^ ^^O O1*1  fO  ^J" O1*
    
    
                                  ^~  ^J                               T" f\J                        *^  T1" f\ I U">                        *~  fVj U^ CO                 f CM &  «~ O1 ^                 <^ 1\) O1  T*"  O* ^1
                                                                                                                                                     T~                            f\j tA I*O                            *^  u^ rO
                                                                                                                                                                                          (M                                   fM
    
    
     II  I'  II   tt  II   II  It   II   M  II   II   M   II  II   II   II  II   II   li   II  II   II   II  If  II   II   II  II   II   II  If   II   It  M   II   II  II  II   II   II  II   tl   ||  M   II   II  ||  tl   II   II  II   II   II  II   II   M   II  H   M   II
    
    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    
    
    
    
    oooooooooooooooooooooooooooooooooooooooooooooooooooooocooooo
    
    T-t-r-rv(Vjr\j(vrviKrKi^r-»-rur>urvjoOOiA(iO«r--rOrUOir*  ^ t— O
    r^«~ou^^r-^^oocL.Kir*Ou^s»«-^ina:i«o^^ajNo^*oco-Kt*»K»^
    C>rsju^Mr\j^Kiu^ro<5^ryu^Kirsj^row^^^<>roinror^<3roir\Ki^r^p^
    Ki^r— O-b~>ir^*— ^^K'^^Q-U^sff^r-^^^r^r-^u^-^r^t—C^^sj-^^O*^^!^
    <>Q^*Oooroc>a-rox}C^a^^^cQi^crc>^oQChCh<>r*TaQhO
    fOr-T-l^t-Krt-t-r^K.Kit-t-r^f-r^T-r-^K^fOt-^r-r-^r-r-f^fOKif-r-^^r^
    OU*T  <; o :>  oo •-*• ^c ^ooooo-j-o-oO'OOsi- •o^3(xiuo-srMjH3choO'*'OOoaa;NjrO'OC>co*»  -o •ocoao-^o-oooo-r  •o-oeooOsro-oooo-^O'OOo
    ccQiccccaiccttcccececccrctctccccti:  ct Q:  cc  LtctctacctaiQCQccc  cc  u.  ct. az  oc  CK.  ctteteac.Q£Ozocac.tx.tx.azQiacsi{LaL(x:ac.cx.crQcacac.a£CECc.
    oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    
    
    aoooaooooooooooaoooooooooooaooaooooooaciooaooooooooaaaoooaooa
    UJ UJ  uJ  UJ >JJ  aJ  UJ  UJ UJ  >-U  uJ  iJJ .tJ  Uj  LjjLiJuJuJuJuJJulajUJUJajiJJ^UUJUJ  LiJUJUJuJlJjUJUJUJJJUJuJLU^UJLULULUUJLiJUJbiJuJUJUJ m  tvf  LU 11^ \u  .jj jfj
    r^hsihwh*MKirsjNjfvth^Ki^h«rxj^M^r^i^h*^NjrsjM
    
    ^J^^^JU^^-J_J_J_J_l_3-l_J_l^_J_J-l_l«J_l_i-J_J_)-J-l_)_l_J_l-IJ_l_J_J_J_J^-J_/-(-J_l_l_(-JJ-J_J-J-l_l_i_l-l
    <<<<<<<<<:-<<<£<<:<   X t  2   t   t i   >   >  fc  i.  ^ *  »  i   i   >.  t   A:   s  t  *  t  t  i   >:  i  k  ^  *:  ^  s   4  s   -   *  i-  i  *   s  £  ^  i  >  i  »  *:  s   t  *  i  i  i_ *
    &o:a:Q^a:uLa:jtLXQi:£a:uta£ixjct±Qti^QCQ£3:&Q:&u:&bCU£&
    oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    2^2^^z^zzz^^±£^2:2:£:2:zz2;2:2£zzzzzzzzz;zzzzzz2:z2!:zzz2Z2:zzz^zzzzzzzzz
    
    
    
    zzzzzzzzz^zzz^^z^zzzzzzzzzzzzzzzzzzzzzzzzzz^rzzzzzzzzzzz^zzz^:
    ooooooooooooooooooooooooooooooooooooooocoooooooooooooooooooo
    
    
    
    
    
    ctQic^ceOiCtcti^aia-OiCta^ttiiCrQiQiaaLaiactttQrGittQ^aia^
    
    
    U^(/3y)^(/7^UlWlCf>V/trtOOu^Wli/V^^^^(/)Wt/)y^COt/JV5ciO^OOtO(/DV>W
    Qia:Q;£ta:acQ.ctccOLC^a.ctQ;ctQ:QiQ^Q:a:QiQ;^a:cta.ctQ;a:Q:Q-Q:ttQ:oi^
    
    
    _^u.;ujyJuJuJujujUJb^i^i^ujuJuJuJi^ujujujaJiUUJaju^uJuJuju^uJ
    %  >^  i.  >-  fc  >  *   >  i  x   t-  t  i   i   >. k_  t.  »- i.  i  j   ^  it  *.  &_  £  ^  *  t  t  *   k  iL  i_  t  t  t  2   &L. ^  i-  ku i  x  c.  z:  i  s:  ^ ^  t  £: L £  £  L >L  x:  k. *_
    
    
    O O  O  O v^i  '— >  O  O O  O  O  O O  O  O ^  O  O O  O  O  O O O  O O  O  O O  O  O  '3 O  O  CJ O  O  O  O O  O  O O  O  O  O O  O  O O  O  O O O  O  O O O  O O
    T- r\»K»iriN-OOOOOi_J                    t—  f\*  ro  LT\ o                     r-
    XXXXXXXIXXIXXXXXXXXXXXXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXXX
    OOi£>C><^U}C]U/CI0iJP^U)U^(^U^U>U'OOU'C'<^C&U'OlO»£U)U>O^^U>(£V£^
    
    m 'k1  UJ  U' it'  ljj  Ltr  *rH Ul  U;  W  UJ U-J  ti^  UJ U,'  kt_f  m 'J.i •"  Lit  U1 »'.-' Uj  W  tj'  Lt'  L"  "' 1A1 '-U  •-*/  ^ t_iJ  IJ.)  U' U^  M.I*  U-> 'AJ if-1  U^ t,i' ^-*  ^1J  LU ,^j  Ui  Li^ y^i m  l^J ^ (A1  Lj-J  ^V W UJ  t-tJ  *^-i
    XXXXX-LXXXXXXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    
    UJUJUJUJUJuJUJUjUJ  ".'  UJuJLUUJLJJUJUJUJUJ UJ  UJUJUJUJuJUJUJuJ  LlJ m *-*J  UJ  UJ *-"  L"-1  L1J ifc*  liA^  *-*-* '" UJ  UJ "J n,1  ui  m tjj  u i  \±j nf (ji  m Lff i|j  IAJ  Lii i^f iy  LU  14^
    
    ^£E^oro£^Ccu;cta:ct:uc;ij:ttk£QtLti£ccixu;a:ceQiQ:Q:a:^QC(j:a^c^
    r3O^r>I300rJOa^ZJU3D3I3Z>3^00^r>ai>Z333OI303^3r3r3^I3I3Z30^OI>OI333O^>^3ODIi3Z)I33
    oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
    {rtCrti/>wt/)(/j(/3w^wtoi/j(rtww(/i»«.»Fi>**»r».»«.*«*.»»».r^*.*-«>».«-*.«>f-«^^»«.«.«-*»»»*.«.^*>^
    T-^-t-»-t-*-«-*-»-i—  r\jrvjouojojrvji^Jf>urynjK)pOfOKifO(v-tKifOrn r^>4>^-j-^T^r>*'-4'-c->r^>inu^iAiniAu-*ini/^u^in<)'O'O o  ^o  O O -O  O  O
    
     11   N  f|   ||  U  II   If   M   if  If   II   II  II  II   II  II  tl  |l   U   M  tl  II   11   II  II   II   II  If   II   tl  II  (I   II   II  tl   II   M  II   tl   I)  H  11   II  II  It   II   II  II   I)   II   II  II   II   M  It  II   II   II  II  II
    
    aj^ffiajfflLDOjaiCLjaJajtLfCLtfiiBaiUDiiiiiJfflfflCDJQUQQ^
    «<<*t-««<<<«r«c«c<<£*c<t-.^-t-t~
    t/ji/>(/jt/)wtotrttrttoc«oow
                                                                                                           210
    

    -------
                             •cooooooooo              oooooooooo
                                  I   I   I   I  I  I  I   I   I                  +»**  +  + •»•*»
                                 fNJh-OOOOO'O'OOrO
                                 COOOOOOOO                 OOCJOOOOOO
                             IAIIIIIIIII               ITV+ +  +  +  +  +  + +  +
    o
    a:
    OQ
    3
    V)
    
    Z
    O
                                 ooooooooo                 ooooocooo
                                 I   I   I   I   I   I  I  I   I                  +  +  +  +  +  +  + + +
    m
    a.
                    £          OOOOOOOOO    C£           OOOOOOOOO
                          >"     I   I   I   I   I   I  I  I   I     t-     >•     »  + *»4.  +  + + +
    
    
    
                 CD H    M    CJ O O G O O CJ  t^  ^»    h~     ^*     GN  ^ 0s O* O*  3*  0s CU O
                 OO    OCjO
                    <           (   I   1   I   I   I  1  I   I     <           *  + + + +  ++ + +
    2
    O
    a.
                                oooooooc-o
                                 I  I  I   I   I   I   I   I   I
                                                -OUO4AO
                                ooooooooo                ooooooooo
    
                                             r"OJKllAO                             r- CJ r'l  ijTi C_
    
                          ^     I   I   I  I  I   I   I   I   I           ^     I   I   I   I   t   I   I  I   I
                          C                                          £
                          (—    OOOOOOOOO           t—
    
    
                          iS                    r- OJ rO iO           U)
                          M                                          *^
                          UJ                                          LU
                          X                                          X
                                                       211
    

    -------
                               RAMBLK PROGRAM LISTING
    C*** PROGRAM RAMBLK  -  VERSION 78124                                     BLK0010
    C***THIS ROUTINE  DETERMINES THE MAX. CONCENTRATION  AND                    BLK0020
    C***THE DISTANCE  OF THE MAX .                                              BLK0030
    C***FOR POINT  SOURCES, COEFFICIENTS   EXPONENTS  ARE FOUND FOR BOTH       BLK0040
    C***THE EQUATION  FOR MAX.  CONCENTRATION AND  THE  EQUATION FOR             BLK0050
    C***DISTANCE TO THE MAX. CONG.                                            BLK0060
    C***  X(MAX)=A*H**B                      CONC(MAX)-C*H**D                BLK0070
    C***FOR AREA SOURCES, COEFFICIENTS   EXPONENTS ARE  FOUND ONLY FOR THE    BLK0080
    C***EQUATION FOR  DISTANCE TO THE MAX. CONC.                               BLK0090
    C***IN BOTH CASES THE COEFFICIENTS   EXPONENTS ARE  FUNCTIONS OF          BLK0100
    C***HEIGHT CLASS  AND STABILITY                                            BLK0110
          COMMON IMOD                                                         BLK0120
          DIMENSION H(10), XMAX(IO), XUMAX(IO),  AXCOF(6,9),  AXEXP(6,9), PXUC BLK0130
         10F(6,9), PXUEXP(6,9), PXCOF(6,9), PXEXP(6,9), TITLE(4,2), TYPE(2), BLK0140
         2 SOURCE(2)                                                           BLK0150
          DATA TITLE  /' PXCOF',' PXEXP','PXUCOF','PXUEXP','  AXCOF',' AXEXP', BLK0160
         1'      ','       '/ .SOURCE /'  POINT','  AREA'/ .TYPE /' RURAL',' U BLK0170
         2RBAN'/                                                               BLK0180
          DATA 11 /10.,20.,30.,50.,70.,100.,?  J. , 300. ,500. , 1000. /             BLK0190
          DATA ZERO  /'.OOOOO'/ ,FIX /'+00'/                                   BLK0200
    C***PUHCH HEADI1IG AND COMMON                                              BLK0210
          WRITE  (1,270)                                                       BLK0220
    C*^INITIALIZATIONS***                                                    BLK0230
    C                                                                          BLK02.40
          10=6                                                                 BLK0250
    C***IMOD =  1 FOR  RURAL SIGtIAS, IMOD  =2 FOR  URBAN SIGMAS                   BLK0260
          READ  (5,390) IMOD                                                   BLK0270
    C***WHEi; ITYPE =  1 POINT SOURCE COEFFICIENTS   EXPONENTS ARE CALCULATED  BLIC0280
    C*** WHEN ITYPE  = 2 AREA SOURCE COEFFICIENTS   EXPONENTS ARE CALCULATED  BLK0290
          DO 260 ITYPE=1,2                                                    BLK0300
          WRITE  (10,280) TYPE (IMOD).SOURCE (ITYPE)                             BLK0310
          Z=0.0                                                                3LK0320
          IIL = 5000.                                                             BLKU330
    C                                                                          BLK0340
    C***CALCULATIOliS  ARE PERFORMED FOR  VARYING  HEIGHTS  AMD  STABILITY CLASSES BLK0350
    C                                                                          BLK0360
    C***START LOOP FOR STABILITY.                                              BLK0370
          DO 130 KST=1,6                                                      KLK0380
    C***GTART LOOP FOR EFFECTIVE HEIGHTS.                                     BLK0390
          DO 140 III-l , 10                                                      BLK0400
          HT-U(IH)                                                             BLK0410
          ICON"!                                                               BLKC420
          XL = 1.                                                                ;JLK0430
    C***START SEARCH  FOR MAXIMUM AT  1 KILOMETER.                              BLK0440
          X = XL                                                                 IJLIC0450
          XLIU=10.                                                             i'iLK04CO
          DELT=1.                                                              BLK0470
    C                                                                          j! L u 0 4 3 0
    C***TUL;N DETERMINE couc^nTR^vion^**                                       r.i,r.0490
    C                                                                          CLK0500
          IF (ITYPE. EQ. 2) GO TO 10                                            DL:::0510
          CALL  DBTRC;1. ( 1 . , Z , HT , 11L , A, 0 . 0 , KS T , S Y , S IGZ , CL  )                      LLK0520
          CO TO  20                       •                                     i;LK0530
                                            212
    

    -------
    10     GALL JullCZ!;  (Z ,'IT, ilL.X.ilGT, GICZ ,CL)
    C***START ur  FORWARD  ruocE Eiu'ic LOOP.
    20     GO TO  (30,50),  ICOli
    c
    C**-*IF DISTANCE LIMT  HAS  ECL'1 EXCEEDED INCREASE LIKIT AilD  UE ETA*
    C
    30     IT (XL-XLi:1)  50,40,40
    C<'"-*r.ECET ilCV LI.IITIliC DISTANCE AND  UISTA.iCF.  I iiCHE'J: NT .
    40     :;L 1:^ = 1 o. *:CLI;I
           DELT=I o. *DELT
    C
    c***i;;c.ir,iiE:ir DISTANCE A;;D CALCULATE I,EU coucci;r;iATio;.-<**
    C
    50     X = X+nr.LT
           IT (ITVPL . C(j. 2)  GO TO  60
           CALL DKTRGB  ( 1 . , Z , UT , 11L , X , 0 . 0 , UJT , 3 Y , S IGZ , G )
           CO TO  70
    60     CALL JMlCZli  (Z ,!!T, HL,;,, kST, GICZ ,G)
    C
    c***ci'i:cK TO  SEE ir  :IAX coi:c. HAG  BEEIJ I'Assui;***
    C
    70     IF (CL.CT.C)  CO  TO 30
           CL=C
                                           BLK0540
                                           i;L::j550
                                           i;m05&0
    A I.LASU;;AI.L}:  UISTAIICE
           II" (X. LC. 1000. 0)  GO  TO  20
    C***ITUI:ATIO:I  DID HOT  coiivr.iici: UIT
           WHITE  (iu,330)  JIT, T.ST, CL,:;L
           CO TO  130
    C
    C»**UAX CONG.  ilAS KLLH  PASSED, pr.OCEED OACf.  TO ISOLATE VAX***
    C
    30     IF (OCLT.Li:. 0. 001 ) GO  TO 120
           JELT=. I'-'DELT
    'JO     CL=C
           XL=X
           X=X-DELT
           IF (ITYPE.CQ.2)  GO TO  100
           CALL DBTKCB ( 1 . , Z , HT , 11 L , X , 0 . 0 , I'.ST , G Y , S IGZ , C )
           GO TO  110
    100    CALL JtlHCZB ( Z , KT , HL , X , US T , S IGZ , C )
    110    IF (C.GT.CL)  GO  TO 90
    C
    C***MAX CONG.  HAS BEEN  PASSED AGAIii;  PROCEED FORWARD  IF DELT>1*"*
    C
           IF (DCLT.LE. 0.001 ) GO  TO 120
           CL=C
           XL=X
           DELT=.1*DELT
    C***ICOU = 2  PREVENTS  INCREASIHG  DELT  ADD  XL 111.
           ICON=2
           GO TO  50
    C
    C***UAX COHC.  HAS BEEN  FOUND; PRINT  AND PUNCH RESULTS
    C***AHD CONTINUE CALCULATIONS FOR  VARYING  HEIGHT AND  STABILITY***
    C
    120    I/RITE  (10,290)  KST,HT,CL,XL
    130    XU11AX(IH)=GL
           XII AX (I H) »XL
    140    CO.HTINUE
    C***E1ID OF EFFECTIVE  HEIGHT  LOOP
    C***CALCULATE  COEFFICIENTS    EXPONENTS FOR tlAX. COHC .
    C***AND DISTANCE TO  tlAX. EQUATIONS
                                           CLKOSIJO
                                           HLK0590
                                           TLKOGOO
                                           r,Li',Cf>l(J
                                           i'LK062u
                                           L'LICOGAO
                                           I,Li;0670
                                           LLUOuGO
                                           ELK0690
                                           oLU0700
                                           15LK0710
                                           I1LKU720
                                           BLK0740
                                           15LK0750
                                           3LU0760
                                           SLK0730
                                           ULK0790
                                           BLICOSOO
                                           BLU0010
                                           HL110820
                                           £L::0!!30
                                           Ii L 11034 0-
                                           BLK0350
                                           fiLl',0860
                                           '5LLO-370
                                           GL ICO 880
                                           I5Ll;Of390
                                           HLt;0900
                                           BLK0010
                                           iiLK0920
                                           BLX0930
                                           DLK0940
                                           BLK0950
                                           BLIC0960
                                           BLK0970
                                           ULK0980
                                           1ILK0990
                                           BLK1000
                                           ELK1010
                                           BLK1020
                                           BLK1030
                                           BLK1040
                                           B L K 1 0 5 0
                                           BLK1060
                                           BLK1070
                                           RLK1080
                                           BLK1090
                                           BLK1100
                                           !'LU1110
                                           BLK1120
                                           BLK1130
                                           BLK1140
                                           BLK1150
    213
    

    -------
           U = (ALOC (XUUAX(IPl) )-ALOG(XLIllAX(I) ) )/DEi!0't
           PXUEXP(i',ST, I)=D
           PXUCOr (KST, I)=XU:iAX(I ) /H(I) **D
           GO TO  130
    C***AREA SOURCE  COEFFICIENTS  AUU  EXPOUEIITS  FOR ALL HEIGHT RAfiGKS.
    100    CO 170  1=1, 'J
           IT (ITYPE.L'J. 2) CO  TO 160
    C***pUIiiT SOURCE  COLl'l'ICIiUiTS Ai<0  EXPO liL'IlT S  F0i; ALL  HEIGHT RAIiCKG,
           DO 1 5 U  1 = 1 ,'j
           11' 1 = 1 + 1
           UiUiLM=ALOG (II (I?l ) )-ALOG (il (I ) )
           -',= (ALOG(XiiAX(IPl ) )-ALOC(XiiAX(I) ) ) /D Eli UK
    150
           DEi:Oi.=ALOG (U (IP1 ) )-ALOG ( tl ( I ) )
           3=(ALOC (X:; AX (I PI ) )-ALOG(XIIAX(I) ) ) /UENOli
           A;:r.;:p(KST,i )=r,
    170    AXCOF(K3T,I )=;C11AX(I) /I1(I )**3
    C***E1I1)  STABILITY  LOOP.
    130    CONTINUE
           WHITE  (10,400) TYPE(IIIOD)
           IF (ITYPE.EQ.2)  GO  TO 230
    C***PUIi;T COEFFICIE1.TS  AND  EXPOtlEUTS FOP,  POIIIT SOURCES
           WRITE  (10,300) (1,1=1,6)
           DO 190  1=1,9
    190
    200
    210
           WRITE  (10,310) II (I) ,I1(IP1 ) , (PXEXP(J.I) , J=l , 6)
    220    COKTItlUE
    C
    C***puiICH BLOCK  DATA ROUTIHE
    C
           CALL PUUCH (l.PXCOF)
           CALL PUHCH (2.PXEXP)
           CALL PUNCH (3.PXUCOF)
           CALL PUHCH (4.PXUEXP)
           GO TO  260
    C***PRINT COEFFICIENTS   AND EXPONENTS FOR  AREA SOURCES
    230    URITE  (10,350) (1,1=1,6)
           DO 240  1=1,9
           IP1-I+1
           WRITE  (10,310) U(I),H(IPl),(AXCOF(J,I),J-i,6)
    240    CONTINUE
           WRITE  (10,360.) (1,1-1,6)
           DO 250  1-1,9
           URITE  (10,310) 11(1) ,:i(IPl), (PXUCOF(J.I) ,J = 1,6)
           COKTINUE
           WRITE  (10,320) (1,1=1,6)
           1)0 200  1=1,0
           WRITE  (10,310) II (I) ,I1(IP1 ) , (PXUEXP(J, I) , J = l ,6)
           COliTIIJUE
           WRITE  (10,330) (1,1=1,6)
           L/0 210  1=1,0
           WRITE  (10,310) 11(1) ,U(IP1) , (PXCOF(J.I) , J = l , 6)
           COiITIlIUE
           URITE  (10,340) (1,1=1,6)
           DO 220  1=1,9
    CLKl 160
    BLK1170
    D L K 1 1 U 0
    JLK1190
    SL1U200
    LLK1210
    LiLr.1220
    BLi:i230
    BL1U240
    ULK1250
    3LK1270
    BLK1200
    CLIC1290
    ULU1300
    ELK1310
    BLK1320
    ELK1330
    BLK1340
    BLK1350
    BLK1360
    BLK1370
    BLK1380
    BLK1390
    3L1U400
    ELI11410
    BLK1420
    SLIC1430
    BLK1440
    BLK1450
    BLK1460
    BLK1470
    BLIC1480
           WRITE  (10,310) H(I),H(IP1).(AXEXP(J,I),J-1,6)
    BLK1500
    BLK1510
    BLK1520
    BLK.1530
    BLK1540
    BLK1550
    BLK1560
    BLK1570
    BLK1580
    BLK1590
    BLK1600
    BLK1610
    BLK1620
    BLK1630
    BLK1640
    BLIU650
    BLK1660
    BLK1670
    BLK1680
    BLK1690
    BLK1700
    BLK1710
    BLK1720
    BLK1730
    BLK1740
    BLK1750
    BLK1760
    BLK1770
                                               214
    

    -------
    250   CONTINUE
          CALL  PUNCH (l.AXCOF)
          CALL  PUNCH (2.AXEXP)
    260   CONTINUE
    C***END OF  SOURCE TYPE LOOP.
          WRITE (1,370) H
          CALL  EXIT
          FORMAT  (6X, 'BLOCK DATA' /6X, 'COMMON /COEFFS/ PXCOF(6 , 9) , PXEXP (6 , 9 ) ,
         l','PXUCOF(6,9) ,PXUEXP(6,9),'/5X,'*AXCOF(6,9),AXEXP(6,9),HCl(10)')
          FORMAT  ('l',2A6,' SOURCES.'//)
          FORMAT  ('  STAB -',12,',  SOURCE  HEIGHT =',F6.0,'  METERS,  REL. CONG .
         1 NORMALIZED  FOR U - ' , E 1 6. 8 , ' ,DIST . OF MAX -'.F10.4,'  KM.')
          FORMAT  ('  ',T54, 'POINT  SOURCE' /1X, T45, 'CONCENTRATION  COEFFICIENT M
         1ATRIX'//1X,' HEIGHT (M) ' ,T57 ,' STABILITY ' /1X, T29, 6 (II , 16X))
          FORMAT  (4X.F4.0,' -' , F5 . 0, 4X, 6E 16. 7)
          FORMAT  ( '0' ,T45, 'CONCENTRATION  EXPONENT MATRIX' / /1X, ' HEIGHT (U) ' ,T5
         17, '~STABILITY'/1X,T29,6(I1, 16X))
          FORMAT  ( ' 0 ' ,T45 , ' D ISTANCE  COEFFICIENT MATRIX' / /I X, ' HEIGHT (M) ' , T 5 7 ,
         1'STABILITY'/1X,T29,6(I1,16X))
          FORMAT  ('0' ,T45, 'DISTAHCE  EXPONENT MATRIX' //1X, 'HEIGHT (M) ' ,T57, ' ST
         !ABILITY'/lX,T29,6ai, 16X))
          FORMAT  ('  ',T54,'AREA  SOURCE '/ IX, T 45 , 'D ISTANCE  COEFFICIENT MATRIX'
         1//1X,' HEIGHT (II) ' ,T5 7, 'STABILITY'/ IX, 129, 6 (II, 16X»
          FORMAT  ( '0' ,T45, 'DISTANCE  EXPONENT MATRIX '// 1 X, ' HEIGHT (M) ', T5 7 ,' ST
         1ABILITY'/1X,T29,6(I1,16X))
          FORMAT  (6X,'DATA HC 1 /', 5 (F3 . 0 ,','), 4 ( F4 . 0 ,','), F5 . 0 ,'/' /6X, ' El-ID ')
          FORMAT  ('   ITERATION DID  NOT  CONVERGE BEFORE  A  DISTANCE  OF  1000KM.
         1 THE  NEXT  CONCENTRATION  BEYOND  1000. KM IS SUBSTITUTED  FOR THE   1IA
         2::.'/22X,'HEIGHT=',F6.0,2X,'STAB=',I2,2X,'CL=',E16.8,2X,'XL=',F10.4
    C
    270
    
    280
    290
    
    300
    
    310
    320
    
    330
    
    340
    
    350
    
    360
    
    370
    380
    390   FORMAT  (II)
    400   FORMAT  ('1',10X,'THESE  COEFFICIENTS AND EXPONENTS  \JERE GENERATED
         1 USING  THE',A6,' DISPERSION  SUBROUT HIES.'///1X)
    C
          SUBROUTINE  PUNCH (IQ.LiATA)
    C***T11E SOLE  I'UKPOSC OF THIS  SULROUTIKE IS TO PUNCH A  DATA CARD UHICll
    C***CA'.l KE  'IEAD  I'.ACK RY THE MACHINE.  0:1 MOST MACHINES  THIS SUBROUTINE
    C***CAK BE  REPLACED BY A SERIES  OF  PUNCH OR WRITE STATEMENTS.
          DIMENSION  DATA(54), VAL(12),  CARD(12)
          ENCODE  (69,50,VAL,IT) TITLE(IQ,ITYPE),(DATA(I),I=1,4)
          DECODE  (69,60,VAL,IT) CARD
          DO  10 1 = 5, 11,2
          IF  (CARD(I).EQ.ZEUO) FLD(0,1U,CARD(1+1)
    10    COJlTItiUE
          URITL  (1,70)  CARD
          DO  30 IJ'. = 5,49,5
          IE=IB+4
          ENCODE  (68,80,VAL,IT) (DATA(I),I=IB , IE )
          DECODE  (63,90,VAL, IT) CAUD
          DO  20 1=3,11,2
          IF  (CARU(I) .nQ.ZHRO) FLD (0 , 1 G, CA.UD (I-t-1 ) ;
    20    CONTINUE
          l.'ilITE  (1,100) GAUD
    30    CONTINUE
          E;:CCDE  (68,110, VAL, IT)  (DATA(I) ,i=5o,54)
          DECODE  (6iJ, 90, VAL, IT) CARD
          DO  40 1=3,11,2
          IF  (CARD (I) . E(>. ZERO) FLD(0, 13, CARD (1 + 1 ) ) =FLD (0 , 1 8 , FIX )
    40    CONTINUE
          URITE  (1,100) CAilI)
          RETUliN
                                                     TLD (0 , 1 3, FIX)
                                                     FLD (0 , 1 3 , FIX)
    BLK1780
    BLK1790
    BLK1800
    BLK1810
    BLK1820
    BLK1830
    BLK1840
    BLK1850
    BLK1860
    BLK1870
    BLK1880
    BLK1890
    BLK1900
    BLK1910
    BLK1920
    BLK1930
    BLK1940
    BLK1950
    BLK1960
    BLK1970
    BLK1980
    BLK1990
    BLK2000
    BLK2010
    BLK2020
    BLK2030
    BLK2040
    BLK2050
    BLK2060
    BLK1070
    BLK2080
    BLK2090
    ELK2100
    BLK2110
    BLK2120
    BLK2130
    BLK2131
    BLK2132
    BLK2132
    CLK2140
    BLK2150
    BLK2160
    BLK2170
    BLK2180
    BLK2190
    ELK2200
    BLK2210
    BLi;2220
    BLK2230
    BLK2240
    BLK2250
    BLU2260
    BLK2270
    ULK22GO
    (1LK2290
    BLK2300
    3LK2310
    3LK2320
    3LK2330
    ELIC2340
    BLIC2350
    •',L!C2360
                                            215
    

    -------
    c
    50
    60
    70
    80
    90
    100
    110
    C
          FORMAT (12H      DATA   ,A6,1H/,4(E11.5,1H,),2H  )
          FORMAT (3A6,A3,8A6)
          FORMAT (3A6,A3,4(A6,1HE,A6))
          FORMAT (6H     *,5(El 1.5,1H,),2H   )
          FORMAT (A6.A2.10A6)
          FORMAT (A6,A2,5(A6,1HE,A6))
          FORMAT (6H     *,4(El 1.5,1H,),El 1.5,3H/   )
    
          END
    BLK2370
    BLK2380
    BLK2390
    BLK2400
    BLK2410
    BLK2420
    BLK2430
    BLK2440
    BLK2450
    BLK2460
                                           IMOD-2  CALLS  BRSZ
                                           (M)
          SUBROUTINE JMHCZB  (Z,H , HL,X,KST,SZ,RCZ)
    C        SUBROUTINE JMHCZB CALCULATES  CHI*U/Q,  RELATIVE CONCENTRATION
          COMMON IMOD
    C         NORMALIZED FOR WIND  SPEED AND  EMISSION  RATE,  FOR A CROSSWIND
    C         INFINTE SOURCE UPWIND OF A  RECEPTOR  (IN UNITS OF:  PER METER)
    C        JMHCZB CALLS SUBROUTINE  PGSZ  OR  BRSZ,  DEPENDING ON THE VALUES
    C        OF IMOD. IMOD-1 CALLS  PGSZ,
    C        THE INPUT VARIABLES ARE	
    C         Z    RECEPTOR  HEIGHT  (M)
    C         H    EFFECTIVE STACK  HEIGHT
    C         HL   MIXING HEIGHT-  TOP OF  NEUTRAL OR UNSTABLE LAYER(M)
    C         X    DISTANCE  SOURCE IS UPWIND  OF RECEPTOR  (KM)
    C         KST  STABILITY CLASS
    C        THE OUTPUT VARIABLES  ARE	
    C        SZ    VERTICAL  DISPERSION PARAMTER.
    C        RCZ   RELATIVE  CONCENTRATION  HAS  UNITS OF:  PER METER.
    C     THE FOLLOWING EQUATION IS SOLVED —
    C        RC = (1/2.5066  *SIGMA  Z) * ((EXP (-.05*((Z-H)/SIGMA Z)**2)
    C             + (EXP(-0.5*((Z+H)/SIGMA Z)**2))
    C             PLUS THE SUM OF  THE FOLLOWING  4  TERMS  K  TIMES (N»1,K)  —
    C               FOR NEUTRAL OR  UNSTABLE  CASES:
    C              TERM 1- EXP(-0.5*((Z-H-2NL)/SIGMA  Z)**2)
    C              TERM 2- EXP(-0.5*((Z+H-2NL)/SIGMA  Z)**2)
    C              TERM 3- EXP(-0.5*((Z-H+2NL)/SIGMA  Z)**2)
    C              TERM 4- EXP(-0.5*((Z+H+2NL)/SIGMA  Z)**2)
    C        2.5066 IS THE SQUARE  ROOT OF  2  *  PI
    C***NOTE THAT MIXING HEIGHT- THE  TOP  OF  THE  NEUTRAL  OR  UNSTABLE LAYER-
    C***HAS A VALUE ONLY FOR STABILITIES  1-4,  THAT  IS, MIXING HEIGHT
    C***DOES NOT EXIST FOR STABLE  LAYERS  AT  THE  GROUND SURFACE- STABILITY
    C***5 OR 6.
    C        STATEMENTS 190  TO 330  CALCULATE  RC, THE  RELATIVE CONCENTRATION,
    C         USING THE EQUATION DISCUSSED ABOVE.   SEVERAL  INTERMEDIATE
    C         VARIABLES ARE  USED TO AVOID  REPEATING CALCULATIONS.
    C         CHECKS ARE MADE  TO BE SURE  THAT  THE  ARGUMENT  OF THE
    C         EXPONENTIAL FUNCTION  IS NEVER  GREATER THAN 50 (OR LESS THAN
    C         -50).  IF 'AN' BECOMES  GREATER  THAN  45, A  LINE OF OUTPUT  IS
    C         PRINTED INFORMING OF  THIS.
    C        CALCULATE MULTIPLE EDDY  REFLECTIONS FOR  RECEPTOR HEIGHT Z.
    C        IWRI IS CONTROL CODE  FOR OUTPUT
          IWRI=6
    C***IF STABLE, SKIP CONSIDERATION OF  MIXING  HEIGHT.
          IF (KST.GE.5) GO TO  40
    C        IF THE SOURCE IS  ABOVE THE LID,  SET RC - 0.,  AND RETURN.
          IF (H-HL) 10,10,20
    10    IF (Z-HL) 40,40,180
    20    IF (Z-HL) 180,30,30
    30    WRITE (IWRI,430)
          RETURN
    CZB0010
    CZB0020
    CZB0030
    CZB0040
    CZB0050
    CZB0060
    CZB0070
    CZB0080*
    CZB0090
    CZB0100
    CZB01 10
    CZB0120
    CZB0130
    CZB0140
    CZB0150
    CZB0160
    CZB0170
    CZB0180
    CZB0190
    CZB0200
    CZB0210
    CZB0220
    CZB0230
    CZB0240
    CZB0250
    CZB0260
    CZB0270
    CZB0280
    CZB0290
    CZB0300
    CZB0310
    CZB0320
    CZB0330
    CZB0340
    CZB0350
    CZB0360
    CZB0370
    CZB0380
    CZB0390
    CZB0400
    CZB0410
    CZB0420
    CZB0430
    CZB0440
    CZB0450
    CZB0460
    CZB0470
    CZB0480
                                           216
    

    -------
    c        ir  ::  is  LEGS THAI; i UTTER,  SET  r.c=o.  AND RETURN.  THIS  AVOIDS    czr,04QO
    C         PROBLEMS  OF It.'COllP.ECT VALUES 11T.AR THE SOU'lCi;.                   CZuOSOO
    40    IF (X-0.001)  1140,50,50                                               CZK0510
    50    IF (li'.on. d!. 1)  CALL PGSZ  (X , I'.CT, 32)                                  CZB0520
          IT (ItlOD.Ei;. 2)  CALL 15RG2  (X,K5T,SZ)                                  C2!i0530
    C         GZ  = GIC;iA  Z, THE STANDARD  TJ|; viATIOi; OF COuC E.'ITRATION  IN  THE    C230540
    c         ;:-oir,LCTio:i (;i)                                                  c/^0550
          IF (K.ST-4)  60,60,70                                                  C2ri0560
    60    IK (IIL-5000.)  150,70,70                                              CZ<;0570
    C        IT  STABLE  COiliJlTIOll OR UKLI11ITEU  .'ilXIiJC tlEKJHT:                  C230530
    70    C2«2.*S2*S2                                                          CZB0590
          IF (Z)  180,30,100                                                    C2B0600
    C***FOR 2 =  ZERO:                                                          C2U0610
    SO    C3 = H*!I/C2                                                             CZJ50620
          IF (C3-50.) 90,180,180                                               CZ30630
    90    A2 = 2./i:XP(C3)                                                         CZB0640
          RC2-A2/(2.5066*52)                                                   CZ30650
          RETURN                                                                CZE0660
    c***roR nou-ZEUo  2:                                                         C7.;:o670
    100   A2-0.                                                                 CZB0680
          A3=0.                                                                 CZB0690
          CA=2-U                                                                C2B0700
          CB=2+H                                                                CZB0710
          C3=CA*CA/C2                                                          CZB0720
          C4=C3*CIi/C2                                                          CZ30730
          IF (C3-50.) 110,120,120                                              CZ30740
    110   A2-1./EXP(C3)                                                         CZB0750
    120   IF (C4-50.) 130,140,140                                              CZ30760
    130   A3=1./EXP(C4)                                                         CZB0770
    140   KG2"(A2+A3)/(2.5066*32)                                              CZB0700
          '.lETUP.:i                                                                CZB0790
    C        IF  SICMA-Z  IS GREATER  THAN  1.6  TI1IES  THE MIXING HEIGHT,          CZB0800
    C         THE  DISTRIBUTION BELOW  THE  MIXING HEIGHT IS UUIFORIt  WITH        CZB0810
    C         HEIGHT  REGARDLESS OF  SOURCE HEIGHT.                              C2B0820
    150   IF (SZ/UL-1.6)  170,170,160                                           C2B0830
    160   RCZ = 1./!1L                                                             CZ30G40
          RETURN                                                                CZD0850
    C        INITIAL  VALUE OF AN SET  - 0.                                      CZD0860
    C         AN    THE  NUMBER OF TIMES THE SUMMATION TERM IS EVALUATED        CZB0870
    C           AND ADDED  IN.                                                   CZ30880
    170   AW-0.                                                                 CZB0890
          IF (Z)  180,340,190                                                   CZB0900
    C***HOTE: AN  ERRONEOUS NEGATIVE Z  WILL RESULT  IN ZERO CONCENTRATIONS.     CZB0910
    180   RCZ=0.                                                                CZB0920
          RETURN                                                                CZ30930
    C***CALCULATE  MULTIPLE EDDY REFLECTIONS  FOR ELEVATED RECEPTOR  HEIGHT.     CZB0940
    190   Al-1./(2.5066*32)                                                    C2B0950
          C2-2.*S2*SZ                                                          C2B0960
          A2-0.                                                                 C2B0970
          A3=0.                                                                 CZB0980
          CA=Z-H                                                                CZB0990
          CB-Z+H                                                                CZB1000
          C3-CA*CA/C2                                                          C2B1010
          C4=CB*CB/C2                                                          C2B1020
          IF (C3-50.) 200,210,210                                              C2B1030
    200   A2-1./EXP(C3)                                                         C2B1040
    210   IF (C4-50.) 220,230,230                                              CZB1050
    220   A3=l./EXP(C4)                                                         C2B1060
    230   SUH-O:                                                                C2B1070
          THL=2.*HL                                                             C2B1080
    240   AN-AN+1.                                                              CZB1090
          A4=0.                                                                 CZB1100
                                            217
    

    -------
          A5=0.
          A6-0.
          A7-0.
          C5=AN*THL
          CC-CA-C5
          CD=CB-C5
          CE-CA+C5
          CF=CB+C5
          C6=CC*CC/C2
          C7=CD*CD/C2
          C8=CE*CE/C2
          C9=CF*CF/C2
          IF (C6-50.)  250,260,260
    250   A4=1./EXP(C6)
    260   IF (C7-50.)  270,280,280
    270   A5-1./EXP(C7)
    280   IF (C8-50.)  290,300,300
    290   A6«1./EXP(C8)
    300   IF (C9-50.)  310,320,320
    310   A7=1./EXP(C9)
    320   T=A4+A5+A6+A7
          SUll-SUli+T
          IF (T-0.01)  330,240,240
    330   RCZ=A1*(A2+A3+SU1I)
          RETURN
    C CALCULATE MULTIPLE  EDDY REFLECTIONS
                                           FOR GROUND  LEVEL RECEPTOR HEIGHT
    340
    350
    360
    
    370
    3SO
    390
    400
    410
    420
    
    C
    430
     A1-1./(2.5066*SZ)
     A2 = 0.
     C2=2.*SZ*SZ
     C3=H*U/C2
     IF (C3-50.) 350,360,360
     A2=2./EXP(C3)
     SUM=0.
     THL=2.*HL
     All=At! + l.
     A4 = 0.
     A6 = 0.
     C5=AN*THL
     CC=H-C5
     CE = II+C5
     C6=CC*CC/C2
     C3=CE*CE/C2
     IF (C6-50.) 320,390,390
     A4=2./EX?(CO)
     IF (C8-50.) 400,410,410
     A6-2./EXP(C8)
     T =A 4 +A 6
     GUK-SUM+T
     IF (T-0.01) 420,370,370
     UCZ=A1* (A2+SU1!)
     RETURN
                                               CZB1110
                                               CZB1120
                                               CZB1130
                                               CZB1140
                                               CZB1150
                                               CZB1160
                                               CZB1170
                                               CZB1180
                                               CZB1190
                                               CZ31200
                                               CZB1210
                                               CZB1220
                                               CZB1230
                                               CZB1240
                                               CZB1250
                                               CZB1260
                                               CZB1270
                                               CZB1280
                                               CZB1290
                                               CZB1300
                                               CZB1310
                                               CZB1320
                                               C Z B 1 3 3 0
                                               CZB1340
                                               CZB1350
                                               CZB1360
                                               CZB1370
                                               CZB1380
                                               CZB1390
                                               CZB1400
                                               CZB1410
                                               CZB1420
                                               CZB1430
                                               CZIU440
                                               CZ151450
                                               CZB14GO
                                               CZIU470
                                               C Z !5 1 4 G 0
                                               C Z B 1 4 9 0
                                               CZB1500
                                               CZS1510
                                               C Z C 1 5 2 0
                                               C Z B 1 5 3 0
                                               CZK1540
                                               CZB1550
                                               C Z B 1 5 6 0
                                               CZB1570
     FOUUAT (1110, 'EOT
    IE COKPUTATIOt, CA!
    
     El! I)
                             ii A ill) I
                             MOT \'K
     ART,
    MADE,
    ABOVE
    ')
               THE :;IXII;G  HEIGHT GO A IELIABL
    CZ/U590
    C Z 15 1600
    C Z LU 6 1 0
    CZIJ1620
    C 2 ?, 1630
    CZ;H640
    CZ1H550
    c ;: ;; 1 6 r, o
                             (u ,;;,", ii L ,::, Y , KG T , s Y , r,::, r.c)
                                                                          RC1J0010
                                                                          TICBU020
                                            218
    

    -------
    c
    c
    c
    c
    c
    c
    
    -------
    90
    100
    C
    C
    C
    C
    110
    
    C
    120
    
    130
    C
    140
    150
    160
    170
    C
    iao
    
    c
    c
    c
    c
    190
    c
    2UO
    
    C
    C
    c
    210
    
    C
    C
    ^j
    C
    c
    r
    C
    C
    220
          IF  (KST-4)  100,100,110
          IF  (HL-5000.)  190,110,110
              IF STABLE CONDITION OR UNLIMITED MIXING  HEIGHT,
              USE  EQUATION  3.2 IF Z - 0, OR EQ  3.1  FOR  NON-ZERO Z.
              (EQUATION  NUMBERS REFER TO WORKBOOK OF  ATMOSPHERIC DISPERSION
              ESTIMATES.)
          C2=2.*SZ*SZ
          IF  (Z) 40,120,140
            1JOTE:  AN ERRONEOUS NEGATIVE Z WILL  RESULT IN  ZERO CONCENTRATIONS
          C3 = H*1I/C2
          IF  (C3-50.)  130,40,40
          A2=l. /EXP(C3)
              WADE  EQUATION  3.2.
          RC=A2/(3. 14159*U*SY*SZ*C1)
          RETURN
          A2=0.
          A3 = 0.
          CA=Z-H
          CB-Z+H
          C3=CA*CA/C2
          C4=C£*CB/C2
          IF  (C3-50.)  150,160,160
          A2-1 ./EXP(C3)
          IT  (C4-50.)  170,130,180
          A3=l . /EXP(C4)
              UADH  EQUATION  3.1.
          RC=(A2+A3)/(6. 23318 *U*SY*SZ*C1)
          RETURN
              IF SIG11A-Z  IS  GREATER THAN 1.6 TIMES THE MIXING  HEIGHT,
              THE  DISTRIBUTION BELOW THE MIXING HEIGHT  IS  UNIFORM WITH
              HEIGHT REGARDLESS OF SOURCE HEIGHT BECAUSE  OF  REPEATED EDDY
              REFLECTIONS FROM THE GROUND AUD THE MIXING
          IT  (SZ/HL-1.6)  210,210,200
              WADL  EQUATION  3.5.
          RC = 1. / (2. 5066*U*GY*HL*C1)
          R L T J 11 i i
              INITIAL VALUE  OF Ail SET = 0.
              All -  THE NUMBER OF TIMES THE SUlillATIOK  TER
                    AND  ADDED III.
                                                     HEIGHT.
                                                      IS  EVALUATED
    25U
    260
    IF (Z) 40,370,220
      STATEMENTS  220-200 CALCULATE RC, THE RELATIVE  CONCENTRATION,
        USING THL  EQUATION DISCUSSED ADOVE.   SEVERAL INTERMEDIATE
        VARIABLES  ARE  USED TO AVOID REPEATING  CALCULATIONS.
        C.I ECUS ARC  MADE TO BE SURE THAT THE ARGUMENT OF THE
        EXPONENTIAL FUNCTION IS N'LVCR GREATER  THAN  50 (OR LESS THAN
        -50).  IF  'AN'  BECOMES GREATER THAN 45,  A LINE 01' OUTPUT IS
        PRINTED  INFORMING OF THIS.
       CALCULATE MULTIPLE LDDY REFLECTIONS FOR RECEPTOR HEIGHT Z.
    Al=l./(b.28318*U*SY*SZ*Cl)
    C2=2.*SZ*SZ
    A2 = 0.
    A3 = 0.
    c A=;:-n
    
    C3=CA*CA/C2
    
    IF (C3-50.)  230,240,240
    A2=l./EXP(C3)
    IF (C4-50.)  250,260,250
    A3=l./EXr(C4)
    RCB0650
    RCB0660
    RCB0670
    RCB0680
    RCB0690
    RCB0700
    RCB0710
    RCB0720
    RCB0730
    RCB0740
    RCB0750
    RCB0760
    RCB0770
    RCB0780
    RCB0790
    RCB0800
    RCB0810
    RCB0820
    RCB0830
    RCB0340
    RCB0850
    RCB0860
    RCB0870
    RCB0380
    RCB0390
    RCB0900
    RCB0910
    RCB0920
    RC130930
    RCB0940
    RCB0950
    RCB0960
    RCB0970
    RC209GO
    RCJJ0990
    RCB1000
    RCB1010
    RCB1020
    RCB1030
    RCB1040
    RCI51050
    RCB1060
    RCB1070
    RCBIOSO
    RCB1090
    R C B 11 0 0
    RCB1110
    RCU1 120
    RCB1130
    RCB1I40
    RCBl 150
    RCR1160
    RCB1170
    R C131 1 C 0
    RC^l 190
    P. C131 2 0 0
    RGB 12 10
    :xcni22r>
    RCr,1230
    ?CIU240
    i:C,U250
    !'.Ci3l260
                                            220
    

    -------
     !70
    280
    290
    300
    310
    320
    330
    340
    350
    360
    
    C
    C
    370
    410
    420
    430
    440
    450
    
    C
    460
    TI!L=2 . *1IL
    AN=AM+1 .
    A4 = 0 .
    A5 = 0 .
    A6 = 0 .
    A 7 = 0 .
    C5=AII*THL
    CC=CA-C5
    CD=CB-C5
    CE=CA+C5
    CF=CB+C5
    C6=CC*CC/C2
    C 7 = C !) * C !) / C 2
    CS=CE*CE/C2
    C9=CF*CF/C2
    IF (C6-50.)  280,290,290
    A4=l ./EXP (C6)
    IF (C7-50.)  300,310,310
    A5=l ./EXP(C7)
    IF (C8-50.)  320,330,330
    A6=l ./ EXP (C8)
    IF (C9-50.)  340,350,350
    A7=l ./EXP (C9)
    T=A4+A5+A6+A7
    SUM=SUM+T
    IF (T-0.01)  360,270,270
    RC=A1 * (A2+A3+SUM)
    RETURN
       CALCULATE MULTIPLE EDDY
       HEIGHT.
    Al=l./(6. 23318 *U*SY*SZ*C1)
    A2 = 0 .
                                 REFLECTIONS  FOR  GROUNll  LHVEL RECEPTOR
    
    
    380
    3 9 0
    
    400
    
    
    
    
    C 3 = H * H / C 2
    IF (C3-50.) 330,
    A2=2 . /EXP (C3)
    SUI1 = 0 .
    T!IL = 2 . *HL
    AH = AN+1 .
    A4 = 0 .
    A6 = 0 .
    C5=AN*THL
    CC=H-C5
    
    390,390
    
    
    
    
    
    
    
    
     C6=CC*CC/C2
     C8=CE*CE/C2
     IF (C6-50.) 410,420,420
     A4=2 ./EXP (C6)
     IF (C8-50.) 430,440,440
     A6=2 ./ EXP(C8)
     T=A4+A6
     SU11 = SUM+T
     IF (T-0.01) 450,400,400
     RC=A1* (A2+SUH)
     RETURN
    
     FORMAT (1HO,' BOTH  H  AND Z AR,E ABOVE THE MIXING  HEIGHT SO A RELIABL
    IE COMPUTATION CAN  NOT  BE MADE.')
    
     END
    R C B 1 2 7 0
    R C B 1 2 8 0
    RGB 1290
    R C B 1 3 0 0
    RCR1310
    UCB1320
    R C R 1 3 3 0
    R C R 1 3 4 0
    R C131 3 5 0
    R C 3 1 3 6 0
    R C B 1 3 7 0
    R C B 1 3 S 0
    RCB1390
    R CB 1 4 0 0
    RCB1410
    RCR1420
    RCB1430
    RCB1440
    RCB1450
    RCB1460
    RGB 1470
    R C B 1 4 8 0
    R C B 1 4 9 0
    RCB1500
    RGU1510
    R C B 1 5 2 0
    R C B 1 5 3 0
    R C B 1 5 4 0
    R C B 1 5 5 0
    IIC B 1 5 6 0
    R C B 1 5 7 0
    RCB1580
    R C R 1 5 9 0
    RCB16QO
    RCB1610
    RCB1620
    RCB1630
    R C B 1 6 4 0
    RCB1650
    RCB1660
    RGB1670
    R C B 1 6 8 0
    RCB1690
    R C B 1 7 0 0
    RCB1710
    RCB1720
    RCB1730
    R C B 1 7 4 0
    RCB1750
    RCB1760
    RCBl770
    RCB1780
    R C B 1 7 9 0
    RCB1800
    RCB1810
    RCB1820
    R C B 1 8 3 0
    R C B 1 8 4 0
    RCB1850
    RCB1860
                                            221
    

    -------
                                      TECHNICAL REPORT DATA
                               (Please read Inslructions on the reverse before completing)
    1  REPORT NO.
     EPA-600/8-78-016b
                                 2.
                                                              3. RECIPIENT'S ACCESSI Oh* NO.
    4 TITLE AND SUBTITLE
    USER'S GUIDE  FOR  RAM
    Vol. II.  Data  Preparation and Listings
                                                              5. REPORT DATE
                                                                November 1978
                 6. PERFORMING ORGANIZATION CODE
    7 AUTHOR(S)
    
    D. Bruce Turner  and  Joan Hrenko Novak
                                                              8. PERFORMING ORGANIZATION REPORT NO.
    9. PERFORMING ORGANIZATION NAME AND ADDRESS
    Environmental  Sciences Research Laboratory
    Office of  Research  and Development
    U.S. Environmental  Protection Agency
    Research Triangle  Park,  N.C.   27711	
                 10. PROGRAM ELEMENT NO.
    
                   1AA603  AB-25   (FY-78)
                 11. CONTRACT/GRANT NO.
    12. SPONSORING AGENCY NAME AND ADDRESS
    Environmental  Sciences Research Laboratory  -  RTP,  NC
    Office  of Research and Development
    U.S.  Environmental  Protection Agency
    Research  Triangle Park, N.C.  27711
                 13. TYPE OF REPORT AND PERIOD COVERED
                 	In-house	
                 14. SPONSORING AGENCY CODE
    
                   EPA/600/09
    15. SUPPLEMENTARY NOTES
    16.ABSTRACT |he  information presented in this user s guide  is  orrected to air pollution
    scientists having  an  interest in applying air quality simulation  models.   RAM is the
    three letter designation for this system of efficient Gaussian-plume multiple-source
    air quality algorithms  and also the primary algorithm for urban areas.   These  algo-
    rithms can be  used for  estimating air quality concentrations of relatively nonreac-
    tive pollutants  for averaging times from an hour to a day from point and area sources.
    The algorithms are applicable for locations with level or gently  rolling terrain where
    a single wind  vector  for each hour is a good approximation to the flow over the source
    area considered.   Calculations are performed for each hour.   Computation time is kept
    to a minimum by  the manner in which concentrations from area sources are estimated
    using a narrow plume  hypothesis and using the area source squares as given rather than
    breaking down  all  sources into an area of uniform elements.   Options are available to
    the user to allow  use of three different types of receptor locations:   (1) those whose
    coordinates are  input by the user, (2) those whose coordinates are determined by the
    model and, are  downwind  of significant point and area sources where maxima are likely
    to occur, and  (3)  those whose coordinates are determined  by  the model  to give good area
    coverage of a  specific  portion of the region.  Computation time  is also decreased by
    keeping the number of receptors to a minimum. Volume II presents  RAM example outputs,
    typical run streams,  variable glossaries, and Fortran source codes.
    17.
                                   KEY WORDS AND DOCUMENT ANALYSIS
                      DESCRIPTORS
    b.IDENTIFIERS/OPEN ENDED TERMS  C.  COS AT I Field/Group
     *Air pollution
     *Atmospheric models
      Algorithms
     *Dispersion
                                   13
                                   14
                                   12
    13 DISTRIBUTION STATEMENT
    
      RELEASE TO  PUBLIC
    19. SECURITY CLASS (This Report)
        UNCLASSIFIED
    21. NO. OF PAGES
    232
                                                 20. SECURITY CLASS (This page)
                                                     UNCLASSIFIED
                                                                            22. PRICE
    EPA Form 2220-1 (9-73)
                                                222
    

    -------
                               Date	
    
    Chief,  Environmental Applications Branch
    Meteorology and Assessment  Division (MD-80)
    U.S.  Environmental  Protection Agency
    RESRCH  TRI  PK, NC   27711
          I would like to receive future revisions  to the
    User's Guide For RAM, Vol.  II.
    Name	
    Organization   	
    Address
    City	State	Zip_
    
    Phone  (Optional) (	)  	- 	
                                     * U.S. GOVERNMENT PRINTING OFFICE: 1978—740-261/4162 Region No. 4
    

    -------