RAM Volume Ii Data Preparation And Listing User's Guide

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