EPA-600/3-75-003-b
ADAPTATION
OF GAUSSIAN PLUME MODEL
TO INCORPORATE
MULTIPLE STATION
DATA INPUT
VOLUME II - APPENDICES
by
Harvey S. Rosenblum, Bruce A. Egan,
Claire S. Ingersoll, and Michael J. Keefe
Environmental Research and Technology, Inc.
696 Virginia Road
Concord, Massachusetts 01742
Contract No. 68-02-1753
ROAP No. 21ADO-36
Program Element No. 1AA009
EPA Project Officer: D. Bruce Turner
Chemistry and Physics Laboratory
Office of Research and Development
Research Triangle Park, N. C. 27711
Prepared for
U.S. ENVIRONMENTAL PROTECTION AGENCY
Office of Research and Development
Washington, D. C. 20460
June 1975
-------
EPA REVIEW NOTICE
This report has been reviewed by the National Environmental Research
Center - Research Triangle Park, Office of Research and Development,
EPA, and approved for publication. Approval does not ignify that the
contents necessarily reflect the views and policies of the Environmental
Protection Agency, nor does mention of trade names or commercial
products constitute endorsement or recommendation for use.
RESEARCH REPORTING SERIES
Research reports of the Office of Research and Development, U.S. Environ-
mental Protection Agency, have been grouped into series. These broad
categories were established to facilitate further development and applica-
tion of environmental technology. Elimination of traditional grouping was
consciously planned to foster technology transfer and maximum interface
in related fields. These 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
9. MISCELLANEOUS
This report has been assigned to the ECOLOGICAL RESEARCH series.
This series describes research on the effects of pollution on humans,
plant and animal species, and materials. Problems are assessed for
their long- and short-term influences. Investigations include formation,
transport, and pathway studies to determine the fate of pollutants and
their effects. This work provides the technical basis for setting standards
to minimize undesirable changes in living organisms in the aquatic,
terrestrial, and atmospheric environments.
This document is available to the public for sale through the National
Technical Information Service, Springfield, Virginia 22161.
Publication No. EPA-600/3-75-003-b
11
-------
APPENDIX A
USER'S GUIDE TO RAM MODIFICATIONS
A.I DESCRIPTION OF INPUT TO RAM
A.2 FORTRAN IV PROGRAM LISTING
A.3 TEST CASE
(TO BE USED AS APPENDIX C IN RAM USER'S MANUAL)
-------
A.I DESCRIPTION OF INPUT TO RAM
A.1.1 Disk File Input
RAM requires that the source data be preprocessed using RAMP and,
thus, the source data may be read from unit 9 in the same unformatted
sequence as it was written by RAMP.
A.1.2 Card Input
The various input routines required by the multi meteorological
station capability and the usual RAM processing are initiated by means
of "keyword package" cards. These include the following:
A.1.2.1 PARAMETERS
Allows the modification of program parameters or run options.
Parameters or option variables are set to default values at compile time
and, hence, only those which are to be modified need be entered. The
format of the data package itself is a Fortran IV namelist with the name
SINGRID.
The specific method used is selected through combinations of the
parameters LTHETA, THETA, FACT, NOFACT, POWER and RADIUS.
1) Inverse distance power law: Set THETA to 360. and POWER to
desired value. All other parameters are allowed to assume
default values.
2) Selective Angle Method: Set THETA and POWER to default or
desired values. Other parameters assume default values.
3) Selective Radius Method: Select non-zero RADIUS value, THETA =
.FALSE., and POWER. The other parameters may assume default
values.
4) Weighting Factor Matrix: Set NOFACT = .FALSE, and specify
weighting factor array, FACT, according to format below. This
method must be used in conjunction with one of the three
methods above.
A-l
-------
The format of a 'PARAMETERS' package is
Contents Format
'PARAMETERS'
TITLE 12A4, A2
Contents
'SINGRID'
Format
FIRST CARD
Columns
1-10
21-70
SECOND CARD
Columns
2-8
FOLLOWING CARDS
Columns Contents Format
2-80
Name Type Dimension Default
ORIGIN R*4 2 (O.,0.)
NX
NY
GX
GY
THETA
1*4
1*4
R*4
R*4-
R*4
1.0
1.0
45.0
Description
Run heading for printing
Description
Description
Parameters to be initialized
by FORTRAN Namelist SINGRID;
these parameters are:
Description
Origin of the weighting
grid system
Number of cells of the
weighting grid system
(X direction)
Number of cells of the
weighting grid system
(Y direction)
The east-west dimension
of each cell of the
weighting grid
The north-south dimension
of each cell of the
weighting grid
The search angle used
in determining the wind
direction and wind speed
at a location
A-2
-------
FACT
R*4
50,10,10
5000*1.0
N0FACT
L*4
LTHETA
POWER
RADIUS
L*4
R*4
R*4
.TRUE.
.TRUE.
2.0
1.0
The weighting factors
utilized in determining
the wind direction and
wind speed at a location
.TRUE, if no weighting
factors are specified
.TRUE, if search angle
used
Power law for inverse
distance weighting
Radius for selective
radius method.
LAST CARD
Columns
2-5
Contents
1 SEND'
Format
Description
A. 1.2.2 STATIONS
This "keyword card" initiates the reading of the station locations
(user units) and heights (meters). Up to 50 station locations are
allowed. If either more than 50 station locations are specified or the
station locations are out of sequence, an error message is issued and
the job is terminated.
FIRST CARD
Columns
Contents
1-8 'STATIONS'
21-70 TITLE
FOLLOWING CARDS
Columns
6-10
11-20
Variable
NO
Format
12A4,A2
Format
15
E10.0
Description
Run heading for printing
Description
Station identification
number
Station east-west
coordinate (user units)
A-3
-------
21-30
31-40
41-70
LAST CARD
Columns
1-5
Z
STAID
E10.0
E10.0
7A4,A2
Contents
'99999'
Format
Station north-south
coordinate (user units)
Station height (meters)
Optional 30 character
station name which is
used for printing only
Description
Delimiter card
Multi-station mode (internal variable MULTI=.TRUE.) is indicated if
more than one station location is specified.
A.1.2.3 WEIGHTS
This "keyword card" initiates the reading of the weighting factors
which are subsequently used in computing the wind direction and wind
speed at a specific location. These factors are specified on a grid
cell by grid cell basis, i.e., from each of the -up to 50-previously
specified stations to each of the -up to 100 (10 x 10) - grid cells.
Only those factors which are not 1.0 should be specified since 1.0 is
the default value of all of the weighting factors.
FIRST CARD
Columns
Contents
1-7 'WEIGHTS'
21-70 TITLE
Format
12A4.A2
Description
Run heading for printing
FOLLOWING CARDS
Columns
6-10
Variable
NO
Format
15
Description
Station identification
number
A-4
-------
11-15
16-20
21-30
IX
IY
FIELD
15
15
E10.0
Horizontal (row) grid
cell number
Vertical (column) grid
cell number
Station-to-grid cell
weight (normally between
0. and 1.)
LAST CARD
Columns
1-5
Contents
'99999'
Format
Description
Delimiter card
Non-unity weighting factors would normally be used to incorporate
the knowledge of the representativeness of data as affected by topo-
graphic features such as hills and valleys. Moreover, they may also be
used to express the confidence one has in the validity of a station's
measurements. For example, if in a group of stations there existed only
one National Weather Service station, this station would, on a grid cell
basis, be assigned a value of, perhaps, 2.0, whereas the remainder of
the stations would be assigned a value of 0.5.
A.1.2.4 RAM
This "keyword card" initiates the calling of subroutine RAM (formerly,
the main program) and, therefore, from this point, the program flow and
related input proceed as before.
FIRST CARD
Columns
13
18-20
21-70
Contents
•RAM'
NMAX
TITLE
Format Description
13 Number of iterations used in
computing travel distance
12A4,A2 Run heading for printing
A-5
-------
Any changes to the input are directly related to the meteorology which
must be specified for the multi-station cases; for clarity, all of the
input requirements will be restated and the modifications will be shown
wherever needed:
Columns Format Variable
Card Type 1: Program Options and Parameters
1
2
3
4
6
7
8'
9
10
11-20
21-30
31-40
41
II
II
II
II
II
II
II
II
II
II
F10.2
F10.2
F10.3
II
IOPT(1)
IOPT(2)
IOPT(3)
IOPT(4)
IOPT(5)
IOPT(6)
IOPT(7)
IOPT(8)
IOPT(9)
IOPT(10)
Z
TLIM
FH
NHTS
Comments
Point Source Data
Area Source Data
Permanent Receptors
Significant Point
Receptors
Significant Area
Receptors
Honeycomb Receptors
Hourly Output
Partial Concentration
Written Disk
Print Only Summary
Hourly Output
Punch Cards for
Contours
Receptor Height (m)
Time Limit on Integration
Fraction of Area Source
Height Which is Physical
Height
Number of Height Classes
(Max 3)
Note:
Options should be codes as follows:
0 - option will not be used
1 - option will be used
The time limit on the integration, TLIM, is calculated by dividing
the farthest possible distance (in meters) from any receptor to a
border of the area source grid by the minimum wind speed (m sec ) which
will be encountered.
A-6
-------
Columns
Card Type 2:
1-5
6-10
Format Variable
Program Parameters.
15 NHOURS
15
NSIGP
11-15
21-30
15
F10.3
NSIGA
GRIDSP
31-40
41-50
51-60
61-70
71-80
F10.3
F10.3
F10.3
F10.3
F10.3
BPH(l)
BPH(NHTS-l)
HINT(l)
HINT(NHTS)
Comments
Number of Hours for Simulation
Number of Significant Point
Sources (Max. 25)
Number of Significant Area
Sources (Max. 10)
Spacing for Honeycomb
Receptor (user units)
Break Point Heights (NHTS-1)
(Not more than 2)
Followed by Representative
Area Heights (NHT) (Not
More Than 3)
If NHTS = 1, then
HINT(l) goes in
columns 41-50
Card Type 3: Meteorological Parameters (for each hour) -
Columns
Format
(1) Card Type 3.1
1-5
6-10
11-20
21-30
15
F10.1
F10.1
Variable
IKST
QHL
QTEMP
Comments
Optional Hour Number
(i.e., 1-24)
Stability Class
(dimensionless)
Mixing Height (m)
Ambient Temperature (°K)
A-7
-------
Columns
Format
Variable
Comments
(2) Card Type 3.2: For each station
6-10 15 JSTA
11-20
21-30
Columns
F10.1
F10.1
Format
QTHETA
QU
Variable
Station number (1-50);
must be in ascending order
Wind direction (degrees)
Wind speed (m/sec)
Comments
Card Type 4: Specific Receptor Locations - One for each receptor.
(Read only if IOPT (3) = 1)
1-8
10-19
20-29
2A4
F10.3
F10.3
RNAME
RREC
SREC
Receptor Identification
East Coordinate (user units)
North Coordinate (user units)
A blank card must follow the last receptor card.
Columns Format Variable Comments
Card Type 5: Limits of Honeycomb Receptors (Read only if IOPT(6) = 1)
East Minimum coordinate
(user units)
East Maximum coordinate
(user units)
North Minimum coordinate
(user units)
North Maximum coordinate
(user units)
1-10
11-20
21-30
F10.2
F10.2
F10.2
HRMIN
HRMAX
HSMIN
31-40
F10.2
HSMAX
Appendix A of original user's guide contains a glossary of the
variable names if more description of these variables is necessary.
A-8
-------
A.2 FORTRAN IV PROGRAM LISTING
C
C M»JN
C
INttliER KEY»U)/'PA»A','8TAT1,l'ltIG1,' RAH'/, »,K
IF CKEY[l>.f.H,KLY«U)> tu TO 30
?0 CONTINUE
«RI1E16,602'U KEYU)
60?0 fORHAtCO'.TU, 'INVALID HfVdUHOI i , A4/T 1 1 , ' EXECUTION TERMINATED, ' )
STOP 1
30 WRMt(6,60J'» KEY.TITLt
6030 H1RHA1 ('l',Tll,.SA, 5010) tHC,HQ,!t,1,l, STAID
5010 fORHAI [?I5,3tlO. 0,7*1, A2)
IKtNO.HJ.'*'*1)1*')) GO H) 200
JF(nSIA,tO,51) CO TO 105
It ("lO.NL.NSTAi [•() 1u 500
111 00 KDHHAt(r<'6,I3,TUI,fi>.2,T61/FB,2,Tli6lF6.1,T101,7Al,A2)
PX(NniA):X
CY fN3I»)"Y
100 M|(N3IA1«Z
10') KrfIU(6,blflS)
lilOS FURnAI ( '-' ,!<.'!, ' MUHt IHAN 50 STATlOilS HAVE bEE^ SPECIHED . '
X 'tXECUrlDN TtHnlNATfcU, • )
SILP 1
SOO *iPl 1 1 16, 65RO) NU
6500 FURfA I ( ' - ' , T21 , ' bT ATION NU.'.Iif1 13 UUT OF SEOUt NCE . ' /T2l ,
X 'tXECUriClN TFHMlNATtLJ. ' )
SKIP 1
200 NSTAs^SIA-1
MULl I*NST A,tT . 1
IUBROUTINC
COMMON /GRID/ ORI6IN H ) , NX, Ny , 6X, By , Jt'MA, LTH(T A , RAOIUI, PONER
LOGICAL NOPtCT.LTHETA
COMMON /FACTOR/ fiCT HO, 1», 10) iNOUCT
NAMELUT /INORID/ 0»lelN,NX,NY,6X ,C»,TMCTA,r ACT,NOFACT,
X LTHETA,RADIU»,POH!«
REAL THIT*/«5,0/
LTHETA«.TRUE,
RAOIUS.1,0
READ(5, INORID)
IF(NX,LT.l,0».NX,ST,10.0»,Ny,LT,t.OR,Ny.OT,10) BO TO 100
HRITE(»,60IO) ORI5IN,NX,NY,4X,«Y, NOF»CT,POHIR
6010 PORHAT(TJ1,'ORISINI ('.FT. I, I, ' ,F7,l, I ) ' / I « ' , TJ1 ,
X IHCI8HTING GRID NX. 1 , 12, T51 , 1 »EJOHTINS SKID NY. I,
X 12/10', Til, IKII»MTIN» 0»JD «»»! ,F5,I,T11, IKEIGHTINt GRID 6Y.I,
X F5,Z/'0',T2l,INO NrUMTlNS FACTOR) ( 1 ,11 , I ) > ,TS1,
X IPO«£R»l,F«,l)
IFILTHfTAJ HRJTEU, *•»)!} THfTA
IF(.NOT.LTMtTA) MIM[(4,4t|I) RADIUS
6011 FORMAT('0',TJt,'HA«H ANitl»l,FI,U
»OU FO«MAT(tOI,T2l,l||»RCH KAOIUli' |F7,1)
ALPHA. TMETA«O.OOIT8»»a»
RETURN
SOO «RITE(6,6500)
6300 FORMATS', T2l,IC»ID OIHIMIJONI AMI OUT OF RANOI.'/TJl,
X (EXECUTION TESMINATID.I)
•TOP 1
END
-------
SUBROUTINE HEIGHT
INTEGER END
LOGICAL MULTI
COMMON /PT3/ PX(50)(PY(50),HT(50),N3TA,MULTI
LOGICAL NOFACT,LTHETA
COMMON /FACTOR/ FACTt50,10,10),NOFACT
COMMON /GRID/ ORIGlN(2),NX»NY,GXrSY,THETA,LTHETA(RADIUI,PO*tR
NOFAC1-, FALSE.
HR1TE(6,6010)
6010 FORMATt'O'.TZl, 'STATION NO, ' »T«1 , »CELL NO, (X) ' , T61, 'CELL NO, (Y)1
X ,T»1, 'WEIGHTING FACTOR'/)
DO 10 IY*1,NY
DO 10 IX»1,NX
DO 10 13TA»1,N3TA
10 FACTUSTA,IX,lY)»t,0
20 READ(5,5020) END, NO, IX, I Y, FIELD
9020 FQRMAT(,PY(50>,MTC50>,NSTA,MUI TI
COMMON /GRID/ ORIUIN(2>, NX, NY, GXrGY, ALPHA, LTHETA, RADIUS, POHER
LOGICAL NOFACT.LTHETA
COMMON /FACTOR/ FACT(50, 1 0, 1 0) , NOFACT
COMMON /MFTCON/ACHl(150),PCNlfl50),AslGS( 150, H),PSIGS( 150,26),
»IASIG3(16),IPSIGS(177),KST,ML,TEMP,SINT,COST,
• ND(50),>lS(50),BPH(2),lND,NMAX,
*PARtC(177),AHCHIC150),PHCMI(i;0),AMSIG3(150,m,PH3IG3(lSOi26)
REAL R»I3T(50),UC50),V(50)
INTEGER 3TANOC50)
LOGICAL «KtY
00 20 I3T*«1,NST»
TRAI5«»»(I3TA)»0,017t53a9
U(ISTA)»»3(ISTA)«3IN(TRAD)
20 V(I3TA)=»3(I3TA)»C03(TRAO)
RETURN
C
C .................................
C
ENTRY «FIELOUX,HY,THFTA,UR)
NFACTM.
NEXT«1
C
C DETERMINE THE WEIGHTING GRID CELL LOCATION OF TM{ RECEPTOR POINT
C
IY«INTt(RY-ORIGINI2))/GY)*l
IF(IX,LE.O.OR.IX.GT.NX.nR,IY.LE,O.OH.IY.GT,NY) GO Tn 25
»KEY«,NOT.NOMCT
GO TO 50
25 »KFY«, FALSE,
30 SIGU»0,
SIGV«0,
3IGR»0,
00 10 I3TA>1,NSTA
10 3TANO(ISTA)«ISTA
C
C ORDER STATIONS BASED UPON MINIMUM RADIUS
C
BO 90 13TA»1,N3TA
50 RDI3TU3TA)«SaRTC(RX-PX(ISTA))"2t(RY-PY(ISTA))««2)
CALL 30RTCRD1ST, STAND, N3TA)
60 DO 70 JSTA»NEXT,N3TA
ISTA»3TANO(J3TA)
IFdSTA.EO.O) GO TO 70
C
C 3ELEC1 FIRST STATION BASED UPON MINIMUM (AT THAT TIME) DISTANCE
C
IFdnKEf) vtFACT»FACTU3T»,IX,lY)
»E!GH1««FACT/(RDI3T(I3TA)«*POWER»1,OE«06)
SIGU«3IGU»U(ISTA)*«EIGHT
SIGV«3IGV»V(ISTA)«HFIGMT
SII9R»SIGR«MEIGMT
-------
STAND(J3TA)>0
!F(J3TA.LT,N3TA> GO TO 80
70 CONTINUE
50 10 150
90 DXI«PX (I3TM-RX
OY1«PY(I3TA)-RY
IF(OXl,Ea.O..AND,OYl.E«.0.) GO TO 190
ALPHl«A7AN2(Dn,DXl)
TX«PX(13TA)
TY»PY(I3TA)
NCX1«JSTA«1
DO 100 J31A.NEXT.NSTA
ISTA'STANOUSTA)
IF(tSTA,Ea,0> tO TO 100
C
C REJECT ANY STATION WITHIN A SECTOR OP
C ALPHA DEGREES OF THE SELECTED STATION
C
IF(,NC1T.LTHETA) 00 TO 90
C
DX2«PXCISTA)-RX
OY2«PY(I31A)-RY
AIP«2«A7AJ»2'PY(ISTA))**2),LEi»AOIU»)
X STANO(JSTA)«0
C
100 CONTINUE
GO TO 60
ISO UN«3IUU/3IGR
VN«SIGV/3IGR
THETA*ANGARC(UN,VN)
UR»SORT!UNoo2*VN*«2)
RETURN
END
BLOCK DATA
LOGICAL NQFACT.LTHETA
COMMON /FACTOR/ FACT (50, 10 , 10 ) , NOFACT
UATA F AC T/-5000»l,/( NOFACT/, TRU£,/
COMMON /GRID/ ORISINC3),NX,NY,GX/GY,TMETA,LTHET»,RADIUS,POWER
DATA ClRI5lN/0.,0,/,CX,CV/i*1.0/,NX,NY/2*l/
END
SUBKUuTIM: JftHPUL(TrIH,HJ/vC) 00010760
C««» IHI3 SUBROUTINE INTERPOLATtS A TAbLE UF INTEGRATION VALUES 00010770
C»«« TO DETERMINE THE LUNCINTHATIUN AT A GIVEN TIME AND HtlBHT 00010760
CUMMON /SIGMA/CIN(3,2UO),AY(6,7),BY(6i7),Ai(t,7),bZ(6,7),tlMt(i) 00010790
IFtl.LT.10.) CU TU 7b3 00010800
n C1.GE,100,0) 60 TU 7SO 00010610
IT1»T/10. 00010820
rL«10«ITl 00010610
tja|L+lO, 50010810
Gn TO Tii 00010650
750 IKT.liE,1000,1 SO TO 751 00010660
IM«IMXIT/100.)«9 00010870
rL«l»0«(lTl"9) 00010860
TU»1L*100, 00010890
GO 10 75? 00010900
751 ITI'IFIX t/1000,)*!8 00010910
rL«1000*CITl»18) 00010920
TU»1L*10"0, 00010930
752 IT2»I11*1 000109UO
C1>CIN(IH,1T1) 00010950
CONC«Clt((T-TL)/(TU"TU))»(CIN(IHiM2)-CI) 00010960
RETURN 00010970
753 CONC»0,1*T«CIN(IM,1) 00010980
KtrUHlv 00010990
im 00011000
-------
SUBROUTINE JMHPNZIMSAVJ 00011010
C«"OI3PER3IUN CHANGES IN POINT SOURCES «ITM Z»0, 00011020
COMMON /'3IGMA/ClN,BZ(6,7i,TI«tl5) 00011030
COMMON /3QHC/IA125,25),SOURCE<6,177),A30RC(6,,SREC(150>,MP3C25),MASC10),IOPTIIO),IPOL> 00011050
•NRECEP,RMIN,HMAX,3»IN,3MAX,IR311E,ISSnE,NPT,NAS,NSIGP,NSIGA,CUNUM
CONMUN /METCUN/ACHI(l50),PCHltl50),A81(;S(l!0,il>,PSl(,S(t50,26), 00011070
•JA8IG3(H6),IPSK.S(177),KST, ML, TEMP, SINT, COST,
»ALl'HA(50),JA(50),a°H(2),l«lD,NMAX,
• PARlCU77),A1CHlll50),PHCHIC150),AH3Ii;3(150,lI !,PHS1G3(I50,26)
LOGICAL MULTI
COMMON /PTS/ PX(50),PY150),-1T150),NSTA,MU|_T1
COMMON ITYPECI50),ICUUE<150),lN,IU,NIi',MO,NHUUR3,FH 00011100
DIMENSION UAYC«,OAYUn,lBYll),OBYU)),
X <»£(! >,UAZ(l»,(»ZU),U8lll ))
DATA PL/0,1,0, 15.0, 20,0. 25,0, 25,0, 30, .SO/ 00011130
EQUIVALENCE (u»< 1 )»U), ( ALPHA 11), THE TA)
C*«*3tT VALUE UF THRESHOLD CONCENTRATION OOOI1UO
fMOLD«10,Ott.2D 00011150
C««*ZERO EFFECTIVE STACK HEIGHT f'M tALH 30yHCE 00011160
DO 709 J»I,NPT 00011170
709 HSAV(J>«0.0 00011180
C*««LOUP ON RECEPTO«3»«« 00011190
DO 50S K"l,^RECtP 00011200
00 7H !»1,NP1 OOOUJIO
71SU-SRtClK)
Pt'ACI'l,
IKSOUSLEIS.JJ.I-T.IO,) PF»CTi(SUUHCtC>,J)/'10,)««PLCKaT)
IF(,NUT,MULT1) IiU TU 71lt»l) 01blA>^l.^
JKX.Lt.D.O) (.11 TU '/On
C««»Ut Tt^
C**»
CRUbSHlNU IU3IANC1 > SIuMA y
00011320
00011160
00011370
00011360
00011390
It- IMULTI ) UT*UHLM
f«X/UI
THt- T1MF. LATfcl.U^r 4 >IL> CALLcJLATfc SIGMA y
701
70?
On 7u 1 1 r = i , r>
IM1 ,GE. I I' t (IV )) (.1 !'
L(^41TNUf
I YSb
00011120
OOUI1130
00011110
0 0 0 11 '15 0
00011160
OU01U70
00011180
00011190
00011500
00011510
00011520
00011530
00011510
00011550
00011560
00011570
00011560
00011590
00011600
00011610
c,,. 00011620
C**«CALI-IJLA1E PLUML lilSf AND ADI) PHYSICAL HEIGHT TO OBTAIN EFFECTIVE STAOOOH630
C**« 00011610
CALL JMHPR3(HF,MJ,SOU«Ctl5,J),SUU«CfCb,J ), SUUHCE (», J ), SOURCE (7, J) > 000 1 1650
^uar.iiui y.TLMD* 00011660
80011670
00011680
00011690
00011700
00011710
00011720
00011730
00011710
00011750
HTF-MP»H,l»HJ/i3Z»3Z) 00011760
IF CHTMP.GE.tOO.) GO TU 700 00011770
IKHTtMP.GT.HL) GO Til 700 00011760
C«««IF STABLE CUNOIT1UNS OK UNLINKED «IX1N8 HEIGHT,
C««»USE EQUATION 3,2 FOR Z«0,
IF(K3T»1) 101,101,707
101 IFCHL-5000,1 102,707,707
C««*IF 3IGMA-Z 13 l.REATER THAN l.b TIME3 THE MIXING HEIGHT,
C»«»THE OI3IRIBUTION BELOH THE MIXING HEIGHT IS UNIFORM HITH
C««»HEIGHT REGARDLESS OF SOURCE HEIGHT.
102 IFtSZ/HL'I.IO aO«,10U,/l03
U03 PKOD«COuM/(2.5066*U('L«8Y*HL)
GO 10 105
40't ANBO,
Al«COUM/(6,2831B«UPL*3y«3^)
A2>0,0
C«*»PRELIMlN»HY CALCULATIONS MJH CUNCtNI HAT ION
It- (t y*y/lsr*3Y) 3 ,r,t. loo.) Gu TO 700
Oi)llM«3UU«CttIPill.'l .5«(Y«Y/lSY*Sni)
1F!CDOM.LE,THOLO) till TIJ 700
HJBHUAVIJ)
C«««3KIP PLUMt HI3E CALCULATION IF F.FFEtTiVE HEIGHT HAS ALREADY UEEN
C*»* CALCULATED FUR THIS SnuKCt
IHJ,G[.0,0) UU 1U 710
*K3T,UPL.X,TEMPI
H3AV(J)«HJ
C**«CALCULAIE 3IGMA Z
IF 132, GT. 0000.) 3Z»'>000,
C*t>
C«*«CALCULAfE CONTRIBUTION K
-------
3Uh«0,0
THL«2tO*HL
AN«AN*1,
AllO ,
A6«0,
C5«AN*THL
U«HJ.C5
ct«Mj»c5
C6«CC*CC/C2
C8«C.E«CE/t.2
IKC6«50,) 1409, 110,1110
A1.2,/E«P(C6>
IKL8.50,)
KSli."IPStGS(J)
IF CKSIB.EO,')) 1.0 TO 714
109
110
mi
118
707
715 PAR1C(J)«HH()D
7011 CUM1INUE
C«*»H«ITE PARTIAL CONCf N1RA11UNS UN U13K
IFdOfTdll.EO.O) GO TU 50i
«R!TL(NIP,7lb) K,PARTC
503
CUNITNUt
HFTUKN
END
00011950
00011960
00011970
00011980
00011990
00012000
00012010
00012020
00012030
00012010
00012050
00012060
00012070
00012060
00012090
00012100
00011110
00012120
00012130
00012110
00012150
00012160
00012170
00012160
00012190
OllOlifOO
00012210
00012220
00012230
00012210
00012250
0(l(IU2bO
OU012270
00012280
00012290
00012300
00012310
OOOU320
COMMON /3IGMA/CIN(3,2lO),Ar(6,/>,BY(6,7>,AZ<6,7),BZ(6,7),TIME(5)
COMMON /3UHC/IA[2i,25>,3UURCE(8,177),ASURC(6,1N3 FHUM POINI SOURCES***
LOUP UN POINT SOURCES
C«**
c«*«
UU 7UO J'l.Nl'T
C**« rtOUtFY UNO SPtLL> BY PU»ER LAN PRUULt
Hu«3QuRCt( 1 , J)
Saa3UURCt{2,J)
XQUn*RI3>RREC(K)
Yt)UH«SU-S«EC(K)
PF»C1«1,
IF(8UUHCt(5,J),uT.10,) PFACT»lSUURCt(5,J)/lo,)»«PLlHST)
JFt.MOT.HULTI) tU TO 712
CALL »f IELO(KU,S(J,*D,U)
CALL "FIELD [,5»(RNEC(N)>P.U),1S*(S«tC(IO*Sil!,THtTA/UMJO)
TR »D*1 HE TA*i>, 01 715329
3!Nl«alNtTRAtl)
C031«C03(TRAD)
UPL"»UM10*PFACT
712 UPL»U*PFACT
C***OtrERMTNt UPNINO DI3TANLE
X«tYDUM«COST»XDUH»SINT)*CUNun
IF(X,LE,0,0) CO TO 700
O*.
C«««DtrEP,«lNt CRUSSHIMD DISTANCE I SIGMA Y
C***
Y«(YDUM«3INT.KDUM«COST)«CONUN
UT»UPL
IFMULTI) UT«gPLM
00012'I10
00012K20
00012110
00012150
00012160
00012170
00012180
00012190
00012500
00012510
00012520
00012530
00012510
000)2550
00012560
00012570
00012580
00012590
00012610
000)2620
00012630
00012670
00012680
00012690
00012700
-------
T«X/ul
C«««
C***OE TCHMTNE THE TI*E CATEGORY ANU CALCULATE SIGMA ¥
c«««
UO 701 IY«1,5
IF(1,Gt,TIMf 1 CO fU 702
701 CONTINUt
IY«<>
702 IT«7-IY
I3Ub«IT»6«(KST-l)
0001S730
00013710
00015750
00012760
00012770
0001J780
c*«»
C«*»PHtLI1INAHY CALCULATI'INS FOR CONC t NTRAT1UN
c«*«
3Y3Q«Y«Y/(3Y*SY)
IF(3Y30,GE,100.) GO TU /OO
CDUM-3UUHCEIIPUL,J)/'EXP(,5*SYS'I)
IF(Cl>UM,L£,THULD) SO TU 700
HJ»H3AV(J)
c« "SKIP PLUME RISE CALCULAIION IF EFFECTIVE HEIGHT HAS ALREADY BEEN
Co • CALCULATED FOR THIS SOURCE
IF(MJ.6f,0,0) GO TO 710
c* • . ..
C« "CALCULATE PLUNE RISE AMD ADU PHYSICAL HEIGHT TO OBTAIN EFFECTIVE STA00012950
C« • 00012960
CALL JMHPRS(HF,HJ,SOURCE(5,J ), SUURC.EU, J ), SOURCE <«, 4 I i SUURCt(7 ,J) , 000 12970
00012600
00012D10
00012620
00012030
00012B10
00012850
00012B60
00012670
00012680
0001289(1
00012900
00012910
00012920
00012930
00012910
»KST,UPL,X,UMP)
HSAVUI'HJ
C«*»
CtO'CALCULAie SIGMA Z
C**o
710 S2'QAZ(I3UR)*T**Ut!Z(I3Ub]
IF (iZ.GT.bOOO,) SZ»rjl)00,
C««.
C««*CALCULAI£ CONTRIBUTION FKIJH THE J-IH SOURCE AT THE n-l" RECEPTOR
RK«1
IF(Z,GT,HL) ICKSICK+1
IF(HJ,UT,HL) ICK»JC«+1
13U »RI It ilU.USI )
«3l FllHMAl t 1 X, 'CALCULAT 1UN CAN NUT at PtKrUWMFD
•ABUVt THE MIXING HEIbHT'J
GO TiJ ">0
13? IF (X.LT. 0.01)1) W TU /OO
IF(KSI«1) 1')1, 1101,70 7
101 IF CHL^SOOO, ) 'tO<;,707,70/
C«««IF 3ICMA-Z IS GREATER THAN 1.6 IIMES THF MIXING HEIGHT,
C«««THE DISlRIbUTION tiELO" THE MIXING HflbHT IS UNIFORM «1TH
C***HEIUH1 rttGAHOLtSS UF SOURCE HFIuHT.
10? IF(3Z/HL-1,0) 101,101,103
103 PflOU»LOuM/(2,5060*liPL*JiY*HL )
GO 10 105
101 A N a 0.
00012980
00012990
00013000
0001 Join
00013020
00013030
00013010
00013050
00013060
00013070
00013080
00013090
00013100
00013110
BOTH Z AND H ARE 00013120
00013130
00013111)
00013150
00013160
00013170
OOOlildO
00013190
00013200
00013210
0001 3220
00013230
00013210
0001 3250
0001 3260
IF (C3,Lr.bO.) A?=l ./ExP(Ll)
H (C'J.Lt.bO, 1 Ai=l ,/E«P(L1)
3uMB0,()
THL*2, D*HL
N=AN+1.
'1 = 0,
5 = 0,
h«n,
7«0,
CB«Lt«CF/C2
C9.CF ICF/C2
IF(C6,LT.50,) A<4«1,/EXP(C6)
IF (C7.L,r,50,) »5«1,/EXP(C7)
IF CCfl.LT.'iO,) »6«1 ,/Exp(C»)
II (C9.LT,SO.) »7«l./tXi'(C9)
112 TDTAL»AK»A5»A6*A7
SuM=3UMtTUTAL
IF ( IU1 AL.LT.O.U1 ) CU TU HO 9
GO TO 106
109 PROt;>Al* ( A2t A i + SU'1)
'".0 TO 105
707 C?»2,«SZ«SZ
»2«0.
AJiO,
CAI2-HJ
CB'ltHJ
C3«CAL»31»3i)
C«««INCREMfcNT CONCENTRATION AT K-1H RECtPTUR
105 PLH1CM«PCHI(K)»PROD
PHCHIIK)«PHCH1(K)»PRUI>
KSTG«1PSK,3(J)
IF (Klild.tO.O) (.0 10 713
P3IG3(K,K3IG)«PSH,3(K,K31G)*PROO
Pn3Ili3(K,K3IGJ>PH3IGS(l'.>KSIG)tPRUU
PSIG3IK,26)>PSIG3rK,26)«PRO[)
PH3IG9(K,26)>PH8IGS(K,26J«PROD
713 PARIC(J)"P»OU
700 CONTINUE
A-11
000132/0
00013280
0001 ie*90
0 0 U 1 3 3 0 0
00013110
0001H20
OPO13330
00013310
00013350
00013460
0(101 3370
00013380
00013390
00013100
00013110
00013120
00013430
00013110
00013150
00013160
00013170
00013160
00013190
00013500
00013510
00013520
00013530
00013510
0001SSbO
00013560
00013570
00013580
00013590
00013600
00013610
00013620
00013630
00013610
00013650
00013660
00013670
00013680
00013690
(10013700
00013710
00013720
00013730
00013710
00013750
00013760
00013770
00013780
00013790
00013600
00013810
-------
C««««HITt PARTIAL CONCENTRATIONS ON IH3K 00013820
IFUOPKBl.ta.o) SO TU 503 00013830
HRITtlNIP.nS) K.PARTC 00013840
715 FORM»TU4>180tli,4) 00015850
SOJ CONTINUE 00013860
RETURN 00013870
EMU 00013880
SUSKIJUTINE JMNUUR(LH) 00013840
COMMON /MlTLON/'ACMrCi50),PCHIU50),ASIGS(l50(U),PaiSS,2<>), 00013900
•IASISSC46),1P3IG3<177),«ST(ML,TEMP,3INT,CQST,
• PAR 1C (177>,AHCHlC150),PHCm (150), Ah3IG8U50,U>.PMSlG8< 150,26)
CUMMQN /80RC/U(a5,2S),30URCtfB,177),»8clRCt6,46), 00013930
• UNn3.CONuKM,KREC.USO),3RiC(l50),MPS(J5),MA8(10),JOPT(lo),IPOL, 00013940
*NRECEP,KMIN,HMAX,SMIN,3M4X,II»8JZt,lSSm,NPT,NAS,NSieP|NSl6A,CONUM
COMMON /METDAT/ QTHETA(50,Z4),QU(50,2,8TEMP<24)
LOGICAL NULTI
COiMQN /CT3/ P«(50),P»(50)/KT(SO),NST»iMUuTI
COMMON ITVPt (150),ICljOt(lbO) ,1N, Iu,NlP,NlD/NHUURS,FM 00013970
UIMtNSIUN KR*NPTU50)>IHANK!1&0)/I>RAND3(1SO)>1POLT(2) 00013980
DATA IPULI/'30J ','PAHT'/ 00013990
IPOLU«IPOLT(1) OOOUOOO
IFtll»UL.EO,4) IPULU«1HOLT(2) OOOH011)
IM IUPT(V i ,tj, V) GO TU 810 00011020
C*** 00014030
c*«»»Hiii. PUINT auuHCt TAuut 00014040
"JO IKIUHTCn.f Q.O) dU TU 200 00014050
»H11EUU,10) IPUUUiLH 00011060
10 FQRMAH'l', I30,A'I,' CUNTHIBUT UlN 11,/tU, B) FHQH 8IUNJHCANT HOINT 300014070
•UJNLtS I HOOK' ,12//1X. '»AMK' ) 00014080
IFtNSI(.P.CiT.10! (in TU 100 00014090
C»«*PRINT FIRST PAGt b> OUTPUT AND TOTALS 0(1011100
»HML(IU,11> (1,1'liNSICP) 00014110
11 l-JHMAI C«i,TU,10CI3,;«)) 00014120
• •UlEUu.ltM 00014130
12 KORil*lt't',ril3i 'TOTAL TUT AL ' /I X , T 1 1 3, ' SIUNIF ALL POINT ' /1X00014140
1>T113> 'POI iT SOURCiS'/lX. 'SOURCt •') 00014150
URIUUO.U) (MPS(I).l«l,«lSI6P) 00014160
13 FUDM«|('»i,T12ilO(I3iTXJ) 00014170
NRIUUU.14) OUOI4180
14 fOrtHAI (IX, 'RtCtP •') OOOIS190
00 15 K«l,N«ECtP 00014200
"KUtl l'J,lti 1 <, (F-SJC3(«,I), J»l ,NSII,P) 01014210
16 FORMA I (IX, r5,I3,5x,lP10tlO,3) 00014220
C***PRINf TUTAUS*** 00014230
XtttlMIOtlS) Ph3II!3(K,26).PNl,HIIK) 00014240
IB FOR«A|('t',lll2,IP2tlO,J) 00014250
IS LONIlNUt 00014260
GO TU 200 00014270
C*«*HfUNr F1KS1 PAGt 00014280
100 WNIItdU,!!) U,l»l,10) 00014290
«KI IE II J, 17) IMP3<1 ), I«l, 10) 00014100
17 FO»M»| (IX, 'SOURCE •',T12,10(i)l7Xl ) 00014110
"HIUUO.IU) 00014320
00 31 K«l,NRELtP 00014330
31 MRITECIO.lb) K, (PHSIGSIK,!) , I«l , 10) 00014340
IF(N3IGP.GT,20) GO TU 150 00014350
C«««PRINT 3tCOND PASt AND TOTALS 00014360
NRlTtdOflO) LH 0001US70
"RI1EIIO, 11] (I,I«H>N3IGP) 00014380
*«Ilt(JO,12) 00014390
»«I1E(IU,IJ) (MH3(I), Ul 1.NS1GP) 00014400
-------
HRIIEdO.H)
UO 19 K«l,NRECtH
URITK 10,16) K, (HH8iqS(K,l),l»lliN8IGP)
19 KHIHdO.U) PMSIGS(K,26),PHCM11K>
UO 10 200
C>*»»IRin SECOND P«Gt
ISO HRIUdO.lO) LH
WRIUdU.H) d. I'll, 20)
«HtTEdU,l7) t«P3d),l»ll,20)
HRTHdOdl)
NRJTtdOd*) *, (PHSIGS («,!>, I»l 1,20)
"KIUdO,10) LH
C«««*RITE LAST PAGE AND TOTALS
•fftHEdUfll) d.I«21,NSIGP)
K»ITEdO,l2)
«RIUdO,13) -1.0 00015010
CUNllNOt 00015050
00 29 K«l,NRECtP 00015060
Cl»R«tC(K)*UNITS 00015070
C2«S«tCCK)«UNIT3 00015060
HNMtdUflO) K,ItrPE(M,JCODtCK),CI»C2,PM3IG3lK,26), 00015090
• PHCH!U),AMSlGS(K,ll),AHCHI(K),i;RANUSCK),IRANK(K) 00015100
FOR«A1(1X,T1,11,1X,A1,I3,6X,F7,2,2X,F7,2,1X,1P5E13,1,6X,I3) 00015110
CONTINUE 00015120
HETURN OOOI51JO
END 00015110
30
29
-------
SUBROUTINE 30r*r(«iH)C,N)
INTEGER X(l).LOUl)
M>N
I M*M/2
IF(M,tU,0) RETURN
K«N-M
UO 10 t«I,K
J*I
5 t.tJtH
JJ.LOLIJ)
IL*LOCIL)
IF(X(1L),GE.XUJ!) GO TO 10
LOC(J)«IL
UOC(L)»IJ
JuJ-M
IFIJtCT,0) 1.0 TO 5
10 CONTINUE
00 1U 1
END
SUBROUTINE StCTUHCTHtT»,J"0)
REAL OES(i)/»0.,I80,,270,/
on too 1110*1,3
IF (TMETA.LE,DEGII«IO)) GO TO 200
100 CONTINUE
I«D«a
200 RETURN
END
SUBROUTINE CUOROS,RSfSB)
IF<|«0,GT.l) lF(I«D-3) IO,20.iO
C*** JWD«l ***
3H»SC*U
(-0 TU 15
C*** lMl»2 ***
10 SB«3C"0
15 Hb«RC»U
GO 111 10
C*** Iwu»$ ***
3V sa«sc-o
bU TU 55
ct** inuva **t
311 5d«3L«U
C«.« \nvF.«bt« 1973 UATCH VEH3IUN OF «»M (1 31GMJ VERS1UNJ 00000010
C««N*M*>* HtAL-TIft AlK-yUALITY-SIMULAIIUN MnOEL 00000020
C H»M 15 A (.AUSSIAN STt Al) V-3TATE SHUWt-rEHW OJ3PFR8ION MOUtL "MICH CAN HE
C USEO FOB t8TIHATI"G AIR 0'IALIT" CUNCNE1RATION3 Uf RtLATlVtLY STABLE
C POLL'HiNTS FUR AVERAGING TI1E9 FRUM AN HOUR TU A DAV IN URBAN AREAS
C FH1M POINT AND AHEA SOURCES,
COMrlON /t,OEff3/CCUtK7,B),CtXP(7,l)),TCOlF(7,e),TEXPl7,B),
•ATCOF17, S),ATEXP(7,3)
COMMON /3IG«A/ClN{3,ii40),AY(6,7),BY(6,7),AZ(l1>']ittZC6,7)« UHE(5)
COHMUN /SOHC/ IA(?5,2b)(SUUKCE(8r 177 ) , ASORC It. 16) ,
00000010
OOOOOOKO
00000050
00010060
00000070
COMMON /MET(,UN/ACHni'iO),PCHlClSO),ASIGS(15n,11),PaiGS(15ll,J6),
«IA3IG3C'I6),IP3IG8C1 Hi , KS f , HL, Tt ff , Sltl, COST,
71
00000090
• PAN-|CU77),AHCHIU50),PHCHI(l*OJ,AH3IG3U;>0,ll>>PHSIG3Cll>n,?(,)
COMMON /Md,R:D/HRM!'J,hHM»x,H3MI\,M3"AX 00000130
COMMON ITYPl(150),lCODE (150),lN,lU,NIP,Nll).NHUURSiFH 011000140
LOGICAL MULTI
COMMON /PrS/ CX(bO),PY(iO).MT(50),N3TA,«ULrI
COMMON /METOAT/ OTNtTA(50«;,BUl50/2in,l
','41
I/
5', '
l,'l»
','30
>,'42
6',' 7
','19',
','11',
','43'.
'.' 8','
'JO1,'?!
'32', '33
'44', '45
C«**NIl) DISK INPUT OF PREPRuCtSSEO Mtl DATA
C«*ANIP UI3K OUTPUT OF PARTIAL CDNCENTRATIONS AT EACH RECEPTOR
NID»9
NIP*10
REAOtNlO) UNITS,C()NUKM,IPOL,NPT,MP8
L"QNUM*CUNUKM*1000,
UO 71 1*1,B
(SUU«CE(I,J),J«1,NPT)
M3, MAS, RMIN.RHAX, SMIN, 8MAX, ISSIIl, ISSUE
READINIO)
READ(NIO)
DO 73 1*1
73 REAIMNID) 1ASORC(I,J),J*1,NA8)
00 74 I«!,IRSm
74 READCNID) ClA(I,J),J*l,ISSIZE)
CUNFKH*CONUKH/UNITS
C***HEAD IN OPTION LIST***
REAO!IN,7>)1) IOPT,I,TLIM,FH,NHTS
791 FORMA1(10II,2FIO,2,F10,3,I1>
NBP>NHr3*l
IF(NHP,LE,0) NBP-1
C***!NPUT CONTROL PARAMETERS
-------
NHUUK3l'|N3l6A, 00300110
• (HINTU), J«1,NHTS) 00000100
10? FORMAT(315,5x,6Fio,3) OHOOOIIO
•RITE(10,500) UNITS,CONFKM,IRSI{E,I33I2L,HMIN,HrtAX,3MIN,SMAX O0000'l20
500 FORMAIO THE NunbER UF USER UNITS PER MINIMUM GRID SBUAREX, 00000130
• til.1/1X,'CONVERSION FACTURlUStR UNITS TO KILOMETERS'',El 1,1/1X, 00000110
• 'THE SHE OF THE AREA SOURCE ARRAYIIA) JN INTERNAL UNIT3 C',1'4, 00000150
*',1,11,')'/1X,'BUUNUARltS OE AREA 3UURLE GRID IN USER UNITSl'/lX, 00000160
«r6,'RMIN«',FB,3,T21,'RlA*p|,Etl,3,TJ6,'SMIN«',FB,3,T51i'3MAX«', 00000170
*F8,3) 00000180
MKIIEdUiSOl) Z,TLlM,NHT3,FH,((5PH(I),I = l,NBP) 00000190
501 FORMATC HEIGHT OF HECEPTOR3«',F8.3,T33,'LIMIT OF TRAVEL TIME FUR 00000500
•AREA INTEGRATION
»F|0(0,' SECONDS'/1 NUMbFR OE AHEA HEIGHT I.LASSE S»
«W STACK htlKHI «HILH IS PHYSICAL HtIGHT«'IFStJ/l
*i HEIGHTS SEPARATING hcliiHl CLASSES',i(3X,F7,3) )
WHITE IIO.SOS) f«hUU«3,i,HID3P,N31SP,NSIG»
,13,'I
OOOOOS10
PERCENT 00000520
00000530
00000510
00000550
SOS KJRMA|(i NUMbER UF HUUKS »I«ULATtU«',12,Tl'i'RtCEPTUR SPACING FOR 00000560
•HONtYCUMB ARRAY1USER UJUS)"',F7,i/lX,' * UF SIGNIFICANT POINT SQU00000570
*RCE9*',n,ex, > » nf SIGNIFICANT AREA SOURCES*', I3///1X) 00000580
BRnE(lO,503) 000005^0
FORMAT (IX,Tl»'OPTION • ' ,T16, 'URTIuN LIST ', T16,'CJPTIIIN 8PECIHCATI000000600
503
»N| 0«IGNURE OPT10N'/lX,T6B,'t»USE OPTION')
501 FOR«ATtlX,T7,12,T16,'POINT SOURCE UATA'
• T7,I2,T16,'AREA SOURCE UATA'
• 77,12,116,'PERMANENT RECEPTORS'
• T7, IJ,T16, 'S!l>NJf ILAN1 POINT RECEPTORS'
* T7iIi|TI6,'Sll>MUC«M »RU RLCLPTORSI
» T7,I2,T10i 'MllNt YCOMB RICEPTfiRb'
• T7,IJ,T16,'HOURLY OUTPUT' ,
» T7,12,TI6,'PARTIAL CUNt. WRITTEN To DISK" ,
• TT|lZ|TH>i'PHlNT UMY 30MK(.HY HUuHLY OUTPUT ', TM , II / 1 X
• T7,12,T16,'PUNCH CARU3 FOR CONTOURS' ,1S1,I1/1X)
IE(NHUUR8.tQ.fO CALL EXIT
JFdPPTdl.EQ.O) SCI 10 710
itRTTEdQ.IS.)
FOSMAIC'I',T20,'POIN1 30URU INFORMATION ' //1X, T2, 'SOURCE ',
•rlli'EAST',119,'NORIH',
• f26>'3l)2((;/S£I.) PARTCG/3EO) STACK STACK STACK STACK'/IX,
• no, 'Cn-URD'.TIB, 'tP«URD EMISSIONS EMISSIONS
«5
MAXCN|atR5IZE»ISSI7l.
UO 17 I»l,NPT
C|aSQURCE(l,l)«UNIT8
C2«3UURCE(S,l)«u«IT3
*RI 1C dUiOft) I,C1,C2, !ScluRCt(K,l),K«3
•I30URCE(K,I),KB7,6)
JPS!G3(I)«0
16 FORM A I(1X,T3,I3,1X,2F9,2,E10,2,F11.2,
If CONllNUt.
C«**FILL I" SIGNIFILANT POINT SOURCE ARRAY
UO 123 l3i,NSIt.H
J«MP3(!)
00000610
011000620
,T51,I1/IX, 00000630
,Till,Il/lX, 00000610
,T5l,ll/lX, 00000650
,TM,H/1X, 00000660
,TSl,Il/IX, 00000670
T51,I1/1X, 00000680
T5l,Il/lx, 00000690
T51.I1/IX, 00000700
000110710
00000720
00000730
00000710
00000750
00000760
00000770
00000780
HTCM) TEMP(K) 00000790
00000800
00000810
00000820
00000630
00000810
00000850
00000860
00000870
00000890
00000900
00000910
1)00111)920
710
16
IFnuPTUj.EQ.O) GO TO UO
FdHhAI (' I ' , T20, 'ARE* MIUKU 1NFUR"AIIUN'//1X,
«T?, 'SOURCE ',TIO,'fAST.ll«, 'NORTH' ,T?6, ' SOS (G/SEC-H* «2) 1,111,
• 'PART (S/3EC^«*«^) Sli't tfl-tLTIUE V1X.T9, 'CU-ORD CO-ORD',
• T29, 'EMIS3 IONS' , TU6, ' LM b.l IbNi ' , T6 1 , ' LEI. GTH HEIGMT'//IX)
UO 50 Ial,NAS
C1«ASORC,(1,1)*UM |S
C?«ASORC(?,I!*UNITS
Ci«A!HIRCt5,I>«UMTS
00000930
000(10910
00000950
00000960
00000970
000009
00000990
00001000
00001010
OOOU1020
00001030
00001010
00001050
00001060
00001070
ooooioao
00001090
OOU01100
00001110
00001120
00001130
00001110
00001150
19 EOR«A|{lX,T3,I3,2E'»,l,i>,lPEU,'(./x,lPE11.1,3X,OPF7.l,3X,F7Il)
1A9IG3C1XO
50 CONTINUfc
C«**FILL I" SIGNIFH.AM AREA SQURLE MARKER ARRAY
uo 121 I>I,NSIGA
JaMASU)
121 IA3I(.3(.J)«!
720 If (dUPTCl)tIOPTC?)),NE,OJ l"U TO tit
NRtlEdO>721)
721 FORMATUx, 'NO SL'ORCtS SPECIFIED')
CALL EXIT
C***INITIALIZAT10N
730 UO 2730 IsTAal,N3TA
UUSTAlaO.
UELNdSTAjaO,
2730 UEL"(I3TA)ao,
TEMPaO.O 00001170
WRI1E(10,117! 00001200
117 FOHMAH'IINPUT i-f DdU'/ld,'HOuR r.IxlMG TtuP STABILITY'/
X IB,'HEIUHT(M) (K) i.L»33'/l
C*»«INPUT METDATA f ClR E*fM >'UuR UK AVERAGING PiRIUD 00001210
UO Hi5 I*i,NHUI'RS OC001250
RSAO(tN,101) lURes(I9TA)*C03T
l)ELHdST»J«DLUH{I»lA)*UR
-------
»1NO DIRECTION ', T61 ,
DtLN(IsrA)«DELNUSTA)tVR
240* UEG)',T63,1CH/3)'/>
C«»»CALCULAIE RESULTANT «JNf> DIRECTION THttA
OU 2417 I9TA»l,NSTA
OELNtl3TA)«DELN(lSTA)/NHOURS
DELM(I3TA>»DEL"(18TA)/NHnijRS
rHETA(I3TA)»ANGARC(DELM(I3TA),DELN(13TA))
C««*CALLULAIE AVERAGE AND RESULTANT SPEED
l)USTAl«UUSTA)/NHOURS
URI!3[I3TA)«3URT
PERSISUSTA)«URE3USTA)/IJ(J81A)
I«l
«RIHUO.?4l») CHAR8} , 'MOL'AL STAblLJT*"! li/'-'i1\ 1» 'STATION Nlj,l,T26,
X 'UNO l>IRECTinn',Ti)0, '«IHO SPEED1. T61. 'AVS, HIND SPEFD'iTBl,
X '«INU PERSISTANCfc '/)
all 2440 lSTAul,f,SfA
RESd )«rHETA(13TA)
RE3(2)*uRE!>CIsrAJ
RES(JUUCISTA)
RES(4)«PERSIS(ISTA)
UU i'U1* K»l ,1
2419 HES?CH,ISrAlaHES(K)
«HUE(IU,4iO) ISTA.KES
00001490
00001520
00001530
00001510
000015SO
00001560
00001570
00001580
00001590
00001600
00001610
00001620
00(101630
00001640
01)001650
00001660
00001670
OOOOlbbO
00001690
0(101)1700
00001710
IF(MUCTI) GO TU 2420
fRAD*lHfrA( !)•!).01 745J?9
3I^t«S]^(tfcAG)
COS1=CU3(THAU)
24?0 CONTINUE
KRESehSI 00001790
C»»«INPur PESMANtM RiCEPlUHS 00001870
IKIUPT(S).EO.O) r.CJ Tlj ?40 00001880
415 NRECeP»NRtCEP*l 00001890
REAO(IN,40J) CRNABt ^J,^^Rt(.^P) , Jel, d ) , RREC (NRECEP) , SREC ( NUECEP) 00001900
403 K1RMA1(2A4,1X,2FIO,3) 00001910
RREC(NHtCtP)«RREC(N«ECtP)/UMT3 00001920
SREC(NKECEP)»3REC(NRECFP)/UMT8 00001930
IF (RREC(NRECEP),EU,0) C,u TU 416 00001940
GO 10 415 00001950
416 NRECEP«N«ECEP"1 00001960
C***PHINf dUT TAbLE Vt PERMANENT RECEPTUHti*** 00001970
«RITE(I(J.4S4) 00001980
454 FORMA I (1X////K.T9,'INPUT RECEPTORS '//I X, 00001990
•'RECEPTOR * IDENTIFICATION tAST NQKTH'/IX) 00002000
DO 45b K«1,KRECEP 00002010
ITYPt(K)»ICHAR 00002020
C1«RREC (K ) *UMT3 00002040
C2'SREC(K)*UNITS 00002050
«F)ITE(IU,4'i6) K,iTYPEtK),CRwAMt(J(n),J«l,a).Cl/C2 00002030
456 FORMA I !lX>T4>I2,lX,Al,8Xl2A4>7X,F6,2l3XlF7t2) 00002060
455 ICUI;EU TO 750 00002090
IKMULTI) CALL UVCALC
CALL JMHREC 00002100
C«»»FILL IN RECEPTURS »ITH HONEYCOMb ARRAY 00002110
750 IF(IQPTt6),EO,0) GU TO 760 OOU02120
C«*HEAD IN VARIABLE HONEYCOMB (.KID DIMENDIUNS 00002130
READ(IN,1054>END>3H) HKnlN,HRHAXiH3hIN,H3MAX 00002140
1054 FORMATI4F10,2) 00002150
IF(HRMAX.NE,0,0) GU TO 1056 00002160
311 HRMJN>RHIN 00002170
nRHAX*RnAX 00002180
HS«IN«3HIN 00002190
H3MAX*ShAX 00002200
1056 CALL JMHHUN(GRIDSP) 00002210
760 IF(NRECEP,NE,0) GU TO 762 00002220
«RIU(IOi761) 00002230
761 FQRM»I (IX,'NO RECEPTORS HAVE BEEN CHOSir,') 00002240
CALL EXIT 00002250
C«**INITIALI2E CONCENTRATION SUMS 00002260
76! DO 441 K«1,NRECEP 00002270
ACHI(K)»0,0 00002280
PCHI(K)«0,0 00002290
DO 442 1M.11 00002300
442 «3IC.30,0 00002330
-------
441 CONTINUE
C«*«L00P UN HOURS
OU 440 LH»1,NHUURS
C*««!NITIAL1ZE HOUKLY ARRAYS
DO 451 K«1,NRECEP
AHChKK>«0,0
PHCMI(K)»0,0
1)0 151 1*1, !1
AMSIG8IK, I)"0.0
DO 452 1*1, lt>
451
453 CONTINUE
c«»»str MET CONDITIONS ^R THIS HOU««*«
00 2413 I3T«»1,N3T»
ni£lA
U(ISlA)«OUtISTA,LH!
C**»OtrtRMINE KIND DIRECTION CUNTHUL, IHD
IF(NULTl) GU TO i43i
OU 432 1*1,3
IF(1HtT»M).LE.»eG(I)) SU TO 433
433 CONlINUt
I>4
431 !»D«I
f«AO«!H8TA(l)*0. 01745J29
3!N1.3]N(TBAD)
l,'JST«CnS!THAD)
2433 COMINUE
HL««HU((,H)
IKMULTJ,ANO,10PT(l)*JUPT(2),Nt,0) CAUL UVCAI.C
C***CAUl.UI.AIt AHEA BOUHCL CPNTRISuTIUNi
IKIOPTIil.tQ.D) (.u TU 7/Q
C***3Er UP Ii-JTEUHAT iUN TAtiL-tS***
IFU.tq.O.ll) (it) TU 7S3
(.ALL J«HAZ(Nl«T,/,TUln»'i>) SO TU 780
IF(J,FO,0.0) (pll TO 75?
CALL J«HPZ(H3AV,Z>
GLj 10 7»0
752 CALL JMHPNZlHiA*)
C«**L)urPU1 HtSULTS EACH w'jun
7SO JKIUPT[7),tQ.O) 1,1) TO
CALL JMHUUKCU")
440 CUNIINUt
C«*»ayfPUT fINAL KESULT3
79(1 CALL JMnFINCKESi.K«t3)
3TLIP
EM)
'140
00002340
000023!>0
00002360
0(101)2370
00002380
00002390
00002400
00002410
00002420
00002430
00002440
00002450
00002460
00002520
00002530
00002550
00002560
00002490
00002500
00002510
00002t>10
00002620
00002630
00002640
00002650
00002660
00002670
00002690
00002700
00002710
O')002720
00002730
00002740
0000275!)
00002760
000n2770
00002780
00002790
^UNCTION ANtAKC[DtL*f >Jt"L N J
C 0. B. TUHNtB (ARFRU, CINCINNATI)
C UtlERMINtS APPROPHIATf ANliLE Uh TANtANO) « M/N,
C NO CUMMON KCUUIHfMENT, NO ARRAYS, USE9 LIBRARY FUNCTION ATANF
1 1KUEL«)4,'>'4
4 ANSAHC « 57,?9S76«ATAi« (DtLI/Jt LN ) + 180 .
HITURN
•5 ANOARCalBO,
RflURN
i 1F(UELM)6, /,&
6 AMiARC»270,
RETURN
7 ANGARL * Qt
RETURN
8 ANGARC«090,
RETURN
3 IF(DtLX)<>, 10,11
9 ANOARC = 1>7.29S/a«ATAN COfcL«/UELN) + S60 ,
RETURN
10 ANGARC • 3&o,
RETURN
U ANGAHC a S7 , 2>>57»«Al A1-! (ULLH/UfcLN)
RETURN
ANGARO360 INDICATES INOE Tt HMI NATE ANGLE
(_HD
00002820
00002830
00002840
00002850
00002B60
00002B70
00002880
00002890
00002900
00002910
00002920
00002930
00002940
00002950
00002960
00002970
00002980
00002990
00003000
00003010
00003020
00003030
00003040
OOU03050
00003060
00003070
-------
SUBROUTINE JHHANZCH1N1 ,TtIH,NHTS) 00006050
C01MUM /31GMA/C.IN(),2«0),AY<6, 7),BrC6,7),AZ(6,7)rBZC6,7)lTIME(5) 00006060
DIMENSION l)AY<12),flBrci2),OAZC42),081(C42),HINT(3) 00006070
EQUIVALENCE tAY(l),OAY(l)),(BY(l).QIiVO)),
00006120
00006110
00006|UO
00006150
00006160
00006170
00006160
00006190
00006200
00006210
00006220
00006230
00006210
000062SO
00006260
00006270
00006260
00006290
00006300
00006310
00006320
0(1006530
00006310
00006350
00006360
00006370
00006360
00006)90
00006100
00006110
00006120
000061)0
00006110
00006150
00006160
00006170
00006180
00006190
00006500
00006blO
OOOD6520
00006530
00006510
00006550
00006560
COMMON /METCC)N/ACMI(150),PCHI1150),A31G8C ISO, I 1),P3IGS( 150,26) ,
*lA31G3<46>,IPSIG3CI77),0,0
CP«0,
CI>0,
T«0,
NC«10
N«0
Jl»l
IT»I
OtUT'l,
JtD«l
312 CL«CP
r«T*DELT
c
C«*»CAtl,UtA1E S!G«A3«»«
c
OB inC2,503),JtD
503 DI«OEUT«CP
GO HI 50«
2 IS'IB«JT»l>»(KSr-l)
3i»U»/ ( IailB)«I«"UBZ(ISuB)
IK3Z.l-T.SOOO.) SZ'bOOO,
IFIH.UE.HL) «U TU 50
CP»0,0
CO 1 u 500
c»»*ie STABU (.iiNninuNs UH UNUIMITED MIXING HEIGHT U3E tu, 3,2
50 1MKSI-1) 101,101,103
101 IKML.l f.SIOO.) 00 TO 102
103A2»0,
C2»2,»3Z«SZ
CJ«n«W/C2
IFfC3,U,50.) A2=2./tXP(C3)
CP»A2/C2,5066»3Z)
GO 1U 500
C««»IF S11.HA-I IS GREATf.H THAN 1,0 TlMtS THE NIXING HtlSHT
C**«1Ht !5I5IHlauTIUN5 BtLtlh THE HIXIM, HEIGHT IS UNIFURH nlTH
C««*htIl,Hl HEGAHOLESS OF SQUHCE HtlbHT,
10? IKSZ/HL-1.6) 105,105,101
101 CP»1,/ML
bQ ID 500
105 AN«0,
A2ao,
C2»J,»SZ*SZ
C3»H»M/C2
IKl. J,LI.50.)
3U>4>U,
tHL*2.*HL
AN»»N»1.
C5«AX«THU
CLaH.L5
Ct»H»05
C6»CC«Cl/C2
C»«CE*Ct/C£
IFCC6.tr, SO.) A1«2./EXP(C6)
IKC.S.Lr.50.) A6«2,/EXPCt»)
rOrAL«A1+A6
3U««3UH*TUTAL
IF C1UI AL.tT. 0.011 GU TU 112
liO TU 120
113 l,P»Al«CA2 + SUM)
500 NAN«AN
DI« 0,5 • OELT * (CU • OP)
501 CI « CI * 1)1
'•.0 10(311, 321, 331, 311, 551,361, 371, 361), JD
C«««5TllRE CUNC EVERf 10 SEC
315 ITT«1/10,»0,0006
CIN(I«rlm»Cl
N«0
GO ID 5U
3)1 IM1,SE,99.3) Gl) TO 311
C««»T<100| 3TURE CONC EVER* 10, SECONDS
NiNtl
IFCN.1D) 312,315,315
C*««T>100| JNCHEASt OELTl STURE CLINC EVERY 100 SECONDS
311 JU»2
OEL.TSIO,
313 ITT«T/100,» 9,08
CINUH,ITT)«CI
Nio
GO TO 312
321 IFCT.LT.29/,9) SO TO iJ2
C«««T>«300| CHANGS SIGMA RANGE AND BELT
n«a
JD«5
OEL1«50.
NC>2
GO TO 31i
322 N>N«1
IF(N.NC) 312,313,31}
3)1 IFCt.tT.993,) GO TO )22
C«««T>«1000, CHANGE SIGMA RANGE, DELT AND STORE CONC EVERY 1000 SECONDS
jD.i)
JT.l
OEtT»500,
00006580
00006490
00006600
00006610
00006620
OOOD6630
00006610
00006650
00006660
00006670
00006680
00006690
00006700
00006710
00006720
00006730
00006710
00006750
00006760
00006770
00006780
00006790
00006800
00006610
00006620
00006630
00006840
00006850
00006860
00006670
00006680
00006890
00006900
00006910
00006920
00006930
00006910
00006950
00006960
00006970
00006980
00006990
00007000
00007010
00007020
000070JO
00007040
00007050
00007060
00007070
00007080
00007090
00007100
00007110
00007120
-------
342 ITf'T/1000, * 16,08
CIN(lH,im«CI
N»0
313 GO 10(3«4,M2),JLO
jnn iFHAbstci>-cu/c>>), 01. o.ooon so TQ 312
G**»NO LONGER NEED TO CALCULATE 01, U31 » CONSTANT VALUt
JtO'J
CO TO 312
3ui iFn,LT,2979,) sn TO 352
C«*»T>PSOOO> CHANGE S1I>MA RANGE
J0«5
IT"4
352 NPN*I
IF(N>2)312.J42,34?
351 JF(T,LT.«979,) GU TO 352
O*«T»5000| CHANSl OtLT
J0>6
DEUl'IOOO,
GO 1U 312
5dl JKlT-'OkO.J.LT.Cl.n) GU TO 1»?
Ct«il>»10,001l| CHANGE SIGMA RANGE
J0«7
IT«5
CO 1U 342
371 IF(1,LT.2«BbO,) GO TO 312
C«««T>«30,00(1| CHANGE 9IGMA RANGE
J0»8
IT'*"
GO TO 3UJ
381 1K1.UT.TU") SO tn i'12
C««»T»11.1MI STORt LA3T CAUCULATEO CUNC
C1N(IH,ITD»CI
CONTINUt
REtUBN
fNB
00017130
00007110
00007150
000071tiO
00007170
000071BO
00007190
00007200
00007210
00007220
00007230
00007210
00007250
00007260
00007270
00007280
000072^0
00007300
00007310
00007320
00007330
00007310
00007350
OOOH7360
00007370
00007380
00007390
00007400
00007110
00007120
00007130
00007110
00007450
00007160
U0007470
00007'ltO
SUBHQUTINE JMHAZ(HINT.2,TLJH>NN1S)
C
C»««UI3PtR3ION CHAN1.CS ^UH AHtA St'WKCtS AND NON-ZtKU I
IUMMON /SIGt'A/CIN(J,2no),AY(6,7),S»l(,,7),AZ(6»7J,BZ(6(7),TI»E(5)
CUHnlJN /HETCUN/AOhl (IbO) ,PLMI (IbO) ,«3JGS(15D, I 1 ),P3IGS( |SO,i6),
»I*3IG3(10),IPSll,S(177),UELT«CP
GO 10 504
2 IStJ6«IT»6«(KSr-l)
32*8A2(ISUb)*l**Q6Z(13ub)
(FOZ.Gf.5000.) 3Z>bOOO,
AN>0,
ICK»1
IF(ZiGT.HL) KK»ICK»1
IF(M,GT,ML) lr.K«ICK+l
ttO 10(50,400,402), 1CK
40? BHnE(IU,403)
403 FORKAI iix, ICALCULATIUN CAN NOT ut
*ABOVE IME MIXING HEIGHT'}
GO 1U 100
50 Ai«0,
A3«0.
C2*2,*SZ«3Z
C3«ZHH»Z«H/t2
C4»ZPH«IPH/C2
IMCJ.LF, SO.) A2xl./E*P(C3)
IF(C«.Lr.50,) A3«l,/tXP(C4)
00007510
00007490
00007500
0()00?520
00007530
oo on 7560
00007570
00007590
00007600
000^7610
00007620
0000/630
00007640
000076bO
00007660
00007670
000076BO
0000/690
0000/700
0000/710
00007720
00007730
OOOH7710
00007750
00007760
00007770
00007/80
00007790
00007800
00007610
00(107020
00007830
00007840
000117350
0000/860
00007870
00007880
00007890
0000/900
00007910
PEHFUHMED HHLN BOTH z AND H ARE 00007920
oooo793o
00007940
00007950
00007960
00007970
00007980
00007990
00008000
00008010
-------
C«««1F STAbLE CONDITIONS OR UNLIMITED MIXING HEIGHT USl EU, 3,1
1F(K31«4) 1104,1104,405
404 1CCHL-5000,) 406,405,405
405 C.P«tA2»A3)/(2,5066«8Z>
GO TO 501)
C«*«If SIGMA.Z 18 GRtATE* THAN 1,6 TIMES THE MIXING HEIGHT,
C««*THE DISTRIBUTION atLO* THE MIXING MtlBHT 13 UNIFORM KITH
C**«HEIGHT REGARDLESS OF SOURCE HEIGHT,
406 IFC32/HL"1,6) 407,407,406
408 CP»1,/HL
1)0 TO SOO
407 Al«0,19894/32
3UM"U,0
120 AN»AN«1,
«1«0,
A5«0,
A6«0,
A7«1,
C5«2,«AN*HL
C6«(ZMH.C51»(ZMH^L5)/C2
C7«(ZPH«C5)*(ZHH.l,5)/C2
C8« I),1) * OLLT * (CL • CP)
504 CI « CI » DI
KO TO ( 5 It, '521,131,541,151,361,171,301 ),JD
C*«»STUKE LUNC fcVtHT 10 SKIIN03
315 IIT«T/10,*,OOS
CfNaH.ITD'CI
N>0
(.1) H) 312
511 IF(l,lit,«IOO| INCKE»3t DtLTI STOKE CONC EVkRV 100 StLBNUS
31" Jimj
UtLl'10.
311 JTT«T/lIJOO, CHANUE U1GHA H»\Gt AKiO DELt
00003020
00006030
000n8040
00001050
OOOOB060
00003070
00008060
00008090
00008)00
00008110
00008120
00008130
00008140
00008150
00008160
0000(170
ooooeieo
00088190
00008200
00008210
00008220
0000(230
00008240
00008250
000(18260
00006270
00008280
000(16290
00008300
00006310
00000320
00008330
001101)340
00008750
00009360
00008370
00008360
00006390
00006400
00008410
00008420
000084 JO
00008440
OU006450
00008460
00008/170
00008460
00000490
00008500
OOU06MO
00006520
00008530
00008540
00008550
00016560
331
JD»3
UtLl«50,
N(.«2
GO TO 313
N"N»1
IF(N.NU) 312,313,313
IF{l,LT.»iJ,J Go TO 322
C..«T»10ni)| CHANGE SIGMA HANGEiUELT ANO STORE (.ONC tVFKV 1000 SECONDS
JUmn
IT*3
UELT«500,
342 IlfST/1000, t lb,08
CINCIH,lrT)«Cl
N»0
343 GO 10f34a,512),JLD
344 IF (IAUS(CP-(.L)/CP),CT, 0.0001) GU TO 312
C**«NO UOXGEK NEtC 10 CAUCULATE CI, USE A CONSTANT VAUUi
JLO«2
GO TU 31?
341 IF(T,LT,2979.) GO TO 352
C***T>*3000| CHANGE 3IGMA RANGt
JDiS
1T»4
352 N>N+1
IF I~. 2)312, 14?, 342
351 IFCI.LT, "979,1 GO TO 352
C««*r>»5000) CHANGE OELT
JD*6
OELT«1000,
GO 10 342
361 1F(T,LT,9960.) GO TO 34i
C***T>"1 0,OOQ| CHANGE SIGMA RANGE
J[)»7
IT'S
GO TO 342
371 If tl, IT. 29860,) GO TO 342
C«*M>«JO,UOO, CHANGE 8IGHA RANGE
JD"8
IT*6
GO TU 342
3«1 IFIT.tT.TLIH) GU 1C! 142
C*««T»TU«| STORE LAST CALCULATED CONC
ITT*T/1000,«16,09
CIN(IH,ITT)«CI
400 CONTINUE
RETURN
END
00006570
(10008560
(10009590
00008600
OOOOB610
00006o20
00008630
OU008640
00006650
OOOC8660
00006670
UOOflBbBO
00018690
0(1008700
00006710
00008720
00008730
00008740
00016750
000(16760
OOC08770
00016780
00018790
00006800
00018610
OH006620
0(10(18630
00006840
000(16650
00008860
OOOOB670
00016680
00008890
00008900
00008910
00018920
00008930
00006950
00006960
00008970
00006980
OP008990
00009000
00009010
00009020
00009030
-------
SUBROUTINE JMHREC 00003080
C«"l)£TERMINE RECEPTORS FROM SIGNIFICANT 3QURCE3 00003090
COMMON /CO£FFS/CCOEF(7,U),CEXPt7,6),TCOEFC7,e),TEXP(7i8), 00003100
•ATCOF(7,1),ATEXP(7,3) 00001110
COMMON /METCON/ACHI(1bO),PCHI<150),AS16S(150,11),P3168(150,26), 00003120
«IA3IGS(46),IPSIGS(177),KST,ML,T£MP,3INT,C03T,
• ALPMA(50),U«(50),BPH(2),I,IO,NMAX,
•PARTC(177),AHCHK150),PMCMI(140J.AHSIGSt150,11),PHSIG8(150,26)
COMMON /SORC/lA(25,2b),30URCE(B,177),A30RC0>,SRE,CU50),MPS(25>,MA8(10.),IOPT,ICOI)EU»0>.IN,IO.NIP,NID.NHOURS,FH 00001(80
DIMENSION HC1(9),HC2(4) 00003190
DATA HCU10,,21).,50,,70,,100,,200,,100,,500,, 1000,/, 00003200
•HC2/10,, 30,, 50,, iOO,/,KHAR/iP'/,JCHAB/'Al/ 00003210
eguivALENCE tuA(i),u)
IFUOPTUl.EQ.O) GO TO 700 00003220
C»**LUQP QN SIGNIFICANT POINT SOURCES 00003230
tUmEClU.SU) 00003240
310 FURMAT11X////1X.T9,'SIGNIFICANT POINT RECEPTORS'//|x. 00003250
•'RECEPTOR * LAST NORTH PREDICTED MAX CONC,'/IX) 00003260
DO 300 IP.l.NSIGP 00001270
X'0,0 00001280
I>MP3IIP) 00003290
HS>SUURCeU,I) 00003100
SS*SOURCE(2,I) 00003310
U'SOUHCE(IPOL,n 00003120
CotCALCULAlE PLUME RISE 00001330
If(.NUT.MULTI) GO TU 9
CALL «FHLD(BS,33,«ll,U)
J3«u
9 CALL JMHPRS(H,HJ,SOURCE(5,1).SOURCE 16,1),SOURCE(8,1),9UURCE(7,1),
«KST,U,X,TEMP)
C«**UErERMlNE HEIGHT C.LASS *•
DO ID IH>2,6
IF(H,LT,(HC1(IH)-,01)) GO TO 11
10 CO'iIliVJf
IH<9
11 IS'IH.l
C***CALLULAIE ri"t 1 UI3TANCE TU MAX AND MAX CONCENTRATION
If (,NU!,lKST,tU.7.ANU,IS,EO,8)) Uu TO 306
KRntlJU.107)
507 FORMAIC T AND XUQ ARE NOT VALID IN THIS HEIGHT CLASS WHEN
•ITY 13 7')
CALL txir
306 A«CCUtF(KST,I3)
b«CEXH(KST,IS)
CONH«A*H**B
C»TCUtFCKST,IS)
ui It XP(K3T,13)
T«C«H««U
K«NhtClP
RB«H3
00003350
00003360
00003370
00003380
00003390
00001100
00001410
00003420
00003430
00003110
STABIL00003150
00003460
00003470
00003180
00003490
00003500
00003510
00003520
00003530
SQISS
IK.NUT.MIJLTU GO TO iOl
THtlA=»0
U'U3
C«»*UErERHINfc RECEPTOR CO-OHDINATES AT X AND 2X OOOH3580
301 UO 360 Jit,2
HiK + 1
IT YHt (M»ICHAK 00001600
ILOUKK1BT 00001610
l^(,NUT.1ULTI) tU TU iOS
DO 30'l ITfcR»l,NBAX
X»0 ,5*U*T/CL1NUM
r«AU«IHtfA«0.017HS329
304 CALL »Fltl!Al,I3,3X,F7,2,2X,FB,J,1XfE12,1) 00003670
C>**INCREMENT NUMBER OF RECEPTORS 00003690
NRECEP»NRECt'P«2 00003700
300 CONTINUE 00003710
C*«*LOOP ON SIGNIFICANT AREA SOURCES 00003720
700 IF(IOPT(2),Efl,0) GO Til 710 00003730
»RI1E(IO,412) 00003710
312 FORMAI(1X////1X,T9,'SIGNIFICANT AREA SOURCE RECEPTORS'//Ix, 00003750
tlRECEPTOR » EAST NORTH '//IX) 00003760
DO 102 IP>1,NS1GA 00003770
UMASUP) 000037)0
»A«»30RC(5,I)«0.5
R3»A30RC( 1, D+WA 00003800
33«AS!IHC(2,I)tt.A 00003810
H»ASURC(6,I) 00001820
C*«*DETEHMINt HEIGHT CLASS 00001850
DO 30B IH>2,3 00001810
UtH,LT,HC2(IH).0,Ol> GO TO 309 000016SO
308 CONTINUE 00001860
IH>4 00003870
109 IS>IH-1 00003880
C««'CAL(.UL«U TIME TO MAX 00001890
OATCOF (KST>I9) 00001900
D»A1EXP(K3T,13) 00003910
T«C*H«nD 00001920
IF(,NOT,MULTI) GO TO 314
THETA'HD
U'US
-------
DO 313 1TER«1,NMAX
TRAD"I HETA*0,0)745329
SINT«8IN(TRAD)
C03T«COS(TRAD)
X«0,5«b6<>67/u
If (QELHX.Gr.DELHf )0ELHX»Ott.Hf
GO 10 30
GO TU (7, l,t, 7, 22,24, ?1), K8T
DTnOZ » 0.02
GO TO 24
DTHDZ • 0,035
00004130
00004140
00004150
00004160
00004170
000041BO
00004190
00004200
00004210
00004220
00004230
00004240
00004250
00004260
00004270
00004280
00004290
00004SOO
00004310
00004320
00004330
00004340
00004350
00004360
000043'0
00004380
00004390
00004400
00004410
00004420
00004430
00004440
00004450
AT 00004460
NDS00004470
00004480
OOOQ449Q
00004500
00004510
00004520
00004530
00004540
00004550
00004560
00004570
00004580
00004590
00004600
00004610
00004620
00004630
00004640
00004650
00004660
00004670
-------
34 S • 9,80616*DTHDJ/T 00001680
THE CONSTANT 9,80616 IS THE ACCELERATION DUE TO GRAVITY, 00001HO
9 IS A STABILITY PARAMETER, 00001700
CALCULATE PLUHC RISE ACCORDING TO EUUATIQN U>, REFERENCE 1, 00001710
DMA « 2, 1,1il)00,«X 00001B50
XM 13 X IN METERS, 00001660
IF XM 13 SWEATER THAN THE DISTANCE TO THt POINT OF FINAL PLUME 00001670
RISE, SET PLUME RISE EQUAL TO FINAL PLUME RISE, OTHERWISE, 000018BO
CALCULATE PLUME RISE FROM EQUATION (t).REFERENCE 1, 00001B90
IFtX«-l)ISrF)l«AX»HSMAX/"JN1 r3
GR!03P«(,HIDSP/UNITS
XINC,»G»IU3H*0.5
YINC.*bSIUSP*0.e66
YLO»H3MIN
UU ^»HKMAX"HHMIN
NCOL31«UUM/[>HlL)SP '
SimHUUUNt JHHHaN(G«IDSP) 00005030
C»«»GENf-«AHON OF HUNtYCOHB HECtPTO«S*«« 00005010
IUHMUN /StlKC/IA(25,25),SOURCL(e,177},AS!)RC(6,16), 000050SO
• UNII3,CUNUNH,RKEIC150),SREC(I50],MPS(2S),MAS(1U),IUPTC10),IPOL, OOOOiOtO
*NRECEP,RMIN,HnAX,S«IN,SnAX,IRSUE,I3SIZF:,NPT,NAS,N3IGP,N3)GA,CONUM
COMMON /HF.TCON/ACHI(lbO),PCHl(liO),ASIr.3(l50,ll),PSIGS(lSO,26), 00005080
*;A3)G3I«bl,lHSIB8H M ) ,K3 1 , «L,Tt»P. 81 NT ,CUST ,
00005110
00005120
00005UO
00005110
00005150
00005160
00005170
00005160
00005190
00005JOO
00005210
00005210
00005250
00005260
00005270
00005280
00005290
00005100
OOOOS310
00005120
00005330
00005310
00005550
00005360
00005370
00005J80
00005390
00005)100
OOOOS110
00005120
OOOHS130
00005010
00005150
00005160
00005170
00005180
00005190
00005500
00005510
00005520
00005530
00005540
00005550
00005560
651
i>67
C««*EL
656
C««I3
NROwS«(HSMAX-HSMlN)/YlNC+l,
NBLtScl)
00 652 J«l,NHO»i>
KLUl'HRMIN
XCIJ2»HRM1N-XINC
DU 650 I=1,NCUL3I
XCOlBXCDltC^lUSH
IF CXCDl.br.HRMAXJ GU TO 666
NSEE3»NBtE3tl
HCOMBH(Nl)CES)«XC01
HCQM8S(NBttS)«YCD
CONTINUE.
YCO»YCI)*YINl,
DO 651 1«1,NCOLS2
XC02»XCU2«i>RIDSP
IF(XCD2.l,r,HKMAX) GU TO 667
NoEES«NBEt3«l
Hl.QHBH(NBEfcS)«XCD2
HCOM83(NBttS)«YC:0
CONTINUE
YLD'YCD + YINL
IF(YCO,GT,HSMAX) 1.0 TU 656
CONTINUE
IMINA1E HONEYCOMB RtCtPTORS THAT ARE CL03E TO OTHER RECEPTORS
On 660 I»l,NRECtP
R'RRECm
3«3REC(I1
RECEPTOR KITHIN AREA SOURCE LIMITS
IF (U.Lr.HRnlN) .UR, (R,GT,HHMAX)> GO TO 660
IF((8,LT,HSHIN).OR,tS,GT,HSMAX)] GU TO 660
-------
OLIM » *^C * XIM 00005570
KDUH » (S - HSMINJ/TlMC » 1. 00005580
IMOO « "UD IKDUN.2) 00005590
KOUMA c KOUH/2 00005600
MMUI) = I*UO + 1 00005610
fin TU (bio,520), MMOD OOOOS620
510 KDUMB « (R-HR«IN)/GR1USH 00005630
GO 10 510 00005610
520 KDU«b « (R - nHMlN t XlNO/'iRIDSP 00005650
530 ISUU = KDuM* * (NCULS1 t NTDLSJl t IMUO • r.COtSl « KOJMB 00005660
KCjrC(l) 2 I3UB 00005670
KUUHC(2> • i3UM t 1 00005660
CO TU (550,5601,H»CJO 00005690
5bO KOUXC(S) » 13UU - NCQLSiitl 00005700
GU 10 570 00005710
560 KQUMC(S) ' I3UB - NLOL31 00005720
570 UO 65i K • 1,3 00005730
13UB « KlH;1C(K) 00005710
l)ISl«CK-HCQMUR(ISUH))**i;*tS-HCOHB3(I8UB))**i 00005750
C«*«U OISlANCt BtT«[.tN NECtPTOH AND NOrftYCOMB POINT IS LESS THAN 00005760
C««« 0,5n(iRIUSf THEM JGNOHt HUNtyCOKB HOINT 00005770
IK01ST.6t1OHN) OM TU 653 00005780
MCD"BHU3UB)«-1 .1) 0000&790
OS3 CUNTINUt 00005800
660 CON1TNU& 00005610
C*»*ADO HEHAINING MONt"'(CU'5S,654,654 00005870
r>5« NHtCEP«NREl.tPtl 00005880
RREC
-------
SUUHUUTIMfc JMHFlN(RE3,KkE3> 000)5)50
COMMON /MF. TCUN/A(.HI(150),PC.HH150),A51GS(I50,I1),PS1SSU50,26), 000)4160
• USIGS(46),lP3Ii;S,U<50),Bf>H(2),l.lO,NMAX,
•PARir(177),AHCHl(t50),PHCHl(lbO),An31 GS (150,1 )),PH31(iSd 50,26)
COMMON /30Rl./IA(25,25),SOURCfc(6,177),ASORC(6,46), 00015190
«UNn3,CUNUKh,kHtCnSO),3REC(150),«PS(25),MAS(10),IUPTUO),IPOL, 00015200
«NREttP,RMIN,RMAX,SMlN,3MAX,I«SIZt,IS3IZE,NPT,NA8,N31GP,NSIGA,CUNUM
COMMON /HtTDAT/ QTHETA(50,24),UU(50,24),IKS 1(it),DHL(24),QTtMP(24)
LOGICAL i"ULTI
COMMOM /Mrs/ Px(5o),p<(50),Hr(50),NSTA,>«ui TI
COMMON ITYPt(150),ICoUfc(150),IN,10, NIP,NID,NHOUR3,fH 00015230
DIMENSION CRAM)T,IHANK<150),l.RANl)3(150>,RE3(4,50),IPllLT(2I
C««*AyERAUfc CONCENTRATIONS LWER SPECIFIED TIME PERIOD 00015250
DATA IPULT/'30? ','PART'/ 00015260
INTEGER«2 CMARS(50)/' I',' 2',i 31,' 41,i 51,1 41,1 71,1 91,1 9C,
X MOI, Ml', '12', 'li', '11', Mb'i '16', M7l, '18', '!»', '20', '21',
X '22','2J','21'i"25",'26',"?7'i'SB','?"»','30','11','32','131,
X ' Jl','151, i 26', l 37 >,< IB i, i 44 i,'HO I, ' ' 42 < ,'43 ' >'14 ' , ")5'(
X '<(6', '1)7', 'UO1, '19', '50'/,aLAN«/' i/
IPQUU»1POLT<1) 00015270
If(JPOL.EO.U) IPULU«IPOUT(2) 00015260
UO S K»l,NHECtP 00015290
ALHllKHACNKKJ/NHDUKa 00015300
PCHl(M=PCr 00015)10
C.KANDI (K)»ACMI(R)tHCHJ(K) 00015S20
GRANOStKlabRANUrdO 00015330
UU 3 1=1/11 00015340
3 *SII>:;(K, i )=«sn,M«, n/viiuKi 00015350
UO 1 J'1,26 - 00015160
<4 PSICSIK, I)«P$1GS(K,I)/NHUUP,S 00014370
2 CONlI'.Jt 000153BO
C««» 00015390
C««»«HITe; PUINI SOUHCt TABLt OOOlblOO
IFdOPTIl l.tu.O) r,0 10 iOO 000151)0
»'RIHUU,10) IPULU 000151420
10 m««A| ( >) ',T30, 'AVfchAGt ',A«,' COiXTHIeuTIUNlG/CU, «) fRUN SIGNIUCOOO15«30
*ANT PllINT 3UUWCJ b '//1X, 15, ' KANK ' ) 00015440
IKNSlGP.l.r.lO) BO TU 100 00015450
C"*PHNr HHSF PAGE UK OUTPUT AND TOTALS 00015460
«Kl!t(I(!,ll) (I , 1 = 1 ,f,oJGP) 00015470
11 KIUHAI('«i,Tl2,10(13, /Xl) 00015460
hHJTKIU,l2) 00015490
12 fU«HA| ('t',T113,'TOTAL TUIAL'/IX.THJ,'3I1.NU ALL PUINI'/1X00015500
i,TH3i'poiM s^^JRc^^'/lx,'SuuKCe «M oool55lo
»«ITt(IO, 13) inpSd ), 1 = 1 ,\bl(,P) 00015520
13 FUHNAK >ti,tl2, 10(13,7X)} 00015530
•HlTt(IU,14) 00015540
11 K>«HA|(lx,'RECff «') 00015550
IJO 15 Kcl,NHECLH 000)5560
«NIU(IU,U) K, (H31GSCK,U,I = 1,N3IGP) 00015570
ll> Fn«HAHlX,T3,13,'jX, IPlOt 10.3) 01)015560
C»««p(I1,2I» 00015640
«xntlIU,17) (MPSdl, 1 = 11,20) 00015650
«RIltda,14) 00015660
«RITtdO,l6) K,(P3IG3(K,I),I»11,20) 00015670
NRIltdO.10) 00015660
C*«««RITE LA3T PAGt AND TUTALS»«« 00015690
VRIltd(l,ll) d,I"21,NSIGP) 00015900
«l 00015910
HRIlldO,!!) (rtPS(l),I»21,IJSIfcP) 00015920
«atHtIO,l») 00015930
Oti 20 K»l,.v«t(.eP 00015940
*Hn£(IO.I6) <,(P6lG3(R,I),l = 21,N3IGP) 00015950
20 «RIltdU,lb) PSIG3(s,2o),Pl.'aih) 00015960
tttt 00015970
C**««RITt AREA 30UHCC TABLL 00015960
200 JF(IOPTt2).lQ.O> GO 1U 010 00015990
«HI1E(IO,J1! IPOLU 00016000
21 FuRMATCI',T30,'AvtRAGf '(A4,1 CUNTRIBUTION(G/CU, H) FROM 3J6NIFIC00016010
«ANT AHtA S(jURCtS'//lX,T5,'RANK') 00016020
WRITEdU.ll) (I,I»1,N9IGA) 00016030
»RntdU,22) 000)6010
22 FURHAICt', T113, 'TOTAL TOTAL' XIX, Tl 13, ' 3IGNIF ALL AREA'/IX,00016050
iril3,'AF!tA Sr)URCL3'/lX,'SUUHCE »') 00016060
^rlITtdO,H) (HA3(I),1«1,N3IGA) 00016070
»fUUdIJ,14) 000)6060
00 23 K«I,NRtCfP 00016090
nRITt(IO,16) K,(A3IG3(K,I),J=1,N3ISA) 00016100
?3 ««IUdO,ia) A3IG3(H,11),ACM1(K) 00016110
C«*»UurPUT SUMMARY TAbUt 000161*0
»10 *«ITt(IU,2'l) NHUURS, IPULU OOOUUO
24 FORMA|('11,T25,I2,'-HUUR AVtRAGt ',A4,' SUMMAHT CUNCtNTHATIQN TABLOOO16140
•E'/lXl
HRITt(IU,'ia)
-------
ICfURMAIC HOUR MIXING TEMP 3TABIUT\"/T8, >HtJGHT<«t)
13 FURNAI(T3.12«!F9,2,6X(11)
11 FORMAI('-',Til,'STATION NO,',F26,'HOUR',TU,'«INO DIRECTION',T6I,
X 'BIND SPEEOVT15,'(OEG)',T63,'CVS)'/>
OU 15 ISrA*l»N3TA
HI
»Rn£(IO,16l CHARSU3TA),I,OlHMA(ISlA,l>,OU(I3TA,l>
15 IKNMUUR3,Gt.l) *«ITE(IU,46) (BLANK, l,8THETA(I3TA, I) ,UU( I3T», I),
X I>2,NHUUXS)
16 f-OR1AI(T16,A2,T27,I2,T12,F9,2,T60,F9,2)
KRIUUO>17) TEMP.K3T
17 FORMAT (MRE3ULTANT MET CONDITIONS...'/'0 ' ,T21,'AVERAGE TEMP,*',
X F7,2,r5|, "tOBAL STAdILITY«',I2/'-',Tll,'3T«'JON *},',T26,
X 'MIND DIRECTION', T'I6, 'rfIND 3PEED', T61, 'AVG, KIND SPEED',181,
X '«INO PEHS1STANCE'/)
DD 18 I3TA»l,M3tA
1« «RITE(IO,19J I3TA,(RES(K,I3TA),K«1,1)
25
hRIUIIU,25)
FORMA|(1X,//1X, 'RECEPTOR NO, EAST NORTH ',2X,
• 5C101AL fROM '), 'CUNCENTRATIUN'/IX,
1TI6,'3IGNIF PUIUT ALL POINT 3I6NIT ARtA ALL AREA
23>,6X, IRANK'/lX,T3B,1('3aURCt!l> ,6X)/1X)
c«»«CALi.uL»iE GRAND TOTALS AND KANH CUNLENTRATIONS
27
Zfl
30
29
«lfi
32
00 26 I«l,t«REC6P
CHAXCfil .0
OU 27 K»l,tJKECEP
IF (^,RA^DT(^) .LE.CMAX) GU TU dt
CMAX«GRANDT (K)
L"AX«K
CUNTtSUt
IRA\K(LHAX)«I
GRANul IL«AX)«-1.0
CUNTINUt
OU 29 K«l .NHLC.EP
Cl>HHEirKl>uNtT3
t2«SRtC (KXuNITS
»HIlt(IU,S1) K,1TYPE(*),ICDOL(K),C1,C2,PSIGS(K,26),
»PCHI(K) , «SU3lf,, 1 1 ) ,ALMJ (M .GHANU31M ,]HAN««)
FORHAUlx,T3,13,tx,Al,I3,uX,F /,2,2X,F7.2, IX, 1P5EU,1,OX
COMINUt
IKIDPT(IO).EO.O) RETURN
DU 32 K»1 ,NRECEP
CllRHEC IK)*UMI iS
C2«S«EC.!K)«UNITS
GJHM-tu«GP.ANDS(K)*1.0E + 06
AJMHwU»ACMl(K)*l,OE+Oft
PJ*H«U»PCHI(K)«!,0£tOo
WRIlE(7,dl8) LI ,C2,bJ'I1M'*U,AJHHWU,PJ'IlH"tU,K
FURMA1 ( 'CNTL' , IX,SHO,J,IH)
CON1I1UE
Ht TURN
END
00016290
000
00016310
ALL 30UXCEOOOI6320
00016330
00016310
00016150
00016360
00016170
00016360
00016390
00016100
00016110
OG016420
00016130
00016110
00016150
00016160
00016170
00016160
00016190
,13) 00016500
000)6510
00016520
00016530
00016510
000)6550
00016560
00016570
00016580
00016590
00016600
00016610
00016620
SUBKOUTINt JHHt*tl/tml3/l/tHlll.ll1/)
C**"Cn«PDIt3 CUNTRIUUTSUn frtOrt AKtA 3JUHtt3*«* 00009050
CUMHUN /30HC/IAC2b,2b),3UURCE(8,177),ASOl,SREC(lbOJ,MP8(25),M*!l(ll)),IUPTllO),IPOL, 00009070
*^^LCEH,HMlN,HfiAX,3MIN,3rtAX,IH3IZt,ISSIZt,'VPT,NAS,NSICP, ^SIGA,CONUW
CillnDN /»trcUN/ALMIC1^0),PCHI(lbO),ASIG3(15o,ll),PSI(,SC150,26!, 00009090
*JA3Ili3(1oj,lP3Il.3(177),Ksr,HL,TE»P,aiNT,COST,
• ALPHA(50),UU50),BPM(2),1«0,N»AX,
*PARTC(17n,AHLHI!151»,PHCnI(150),AHSIG3(15(l, 11) ,PH3IS3C150,26)
LOlilCAL 1ULTI
LO^MON /P1S/ PX(50),PY150),HT(50),N5TA,MUUT1
Ln-IR>IRM1N
li*ia-lSHl*
IF((IR,LF.,0),OR.(IR,GT,IR3IZfc)) GU TO 505
IF((I3,LE,0).d«.(I3.GT.IS312t)) GU TU 505
IGCNT«IGCNTtl
N3'IA(IR,I3)
IF(N3,EO.O) GO TO 618
HA»A3QRC(5,N3)
DIO,5>HA
PC»A30KC(1,N3)«0
00009210
00009220
00009230
00009210
00009250
00009260
01)1)09270
00009280
00009290
00009300
000119310
00009320
00009530
00009310
00009350
00009360
00009370
00009380
00009390
00009100
00009110
00009120
00009130
0(1009110
00009150
00009160
00009170
00009180
00009190
-------
SC»A3LlKC.UiN8!H>
tlA«SURC(IPl)L,Ni)
HAlASOKC(6,NS)
C«»* VAHV HHGHT ACCORDING T(J HIND SPttD
IFCKH.UE. 0.001) GO TU 510
JF(MULTI) CALL HF If- LIH RC , 3C, , THt I A , u)
PHT'f-HOHA
HA:i((HA-PHT)*S.)/U + PMT
C«l«Ut ItBKINl HEIGHT LLAS3
510 IHaNHTS
GIJ 10 (60b,70 G«IU**«
BOO UXMlN»t.i+lO
II.NT«O
RMlRMIN
C*** FIND LUCU9 f-'QR HMIN, TMfN RMAX
DU »»« CALL «Mti_iM.s*tx«R),Y»/«i» ,«
f WAUS'UJl*" .'* 1 Mb3,>9
SI N I *31N( IKAU)
C:)31«CI)S( r«AU)
«U9 K»SM5*3I\T/C"ST+X
IF(R,(,I.K">X) '-U r.J UD6
If- (M.L T .HM tN) i,i> Tt3 t'Oti
'
if (.NJT.MULTD su Tu »io
fHETA=»ul
UIXSI
«10 ICNKKNltl
MUh Slas^Ax
807 CONHNUf
C««» U ICV1=0 v'j L'JLl «E«t ftlJHD
II (ICNT.tu.O) r,n TO 501)
«20 OISliUXMl.V
C**»HM) IHt (lit IU Tut NtAHEST SUUHCt IN KH
C**»t-INU LU-URtilNATtS In LUCATE SUURCt
rL = UI3T*CU.IJH/0
T=IL
IF(.MllT.auLTI) l.J TO B21
CALL KHfLD(«LlJCiSLUC,«D,2«3Ir(T
3130^=38
liU TU 601
00009870
00009880
OOOH9890
00009900
00009911)
00019920
00009930
00009940
00009960
00009970
00009980
00009990
00010000
00010010
00010020
00010070
oooiooeo
00010090
00010100
00010250
-------
600 RDUM'Hi)
601 CALL »FIELOC,5»(XX»HOUN),.5«Sl«tRB-XA)/Si,
-------
BL'ICK UATA
CUf1«UN_/CUF.FF3/CCU6K7,B),lX6XPl7,S),rCaEF<7,B),TEXP(7,a>,
UATA CCOtf/
• 1.9552E-01,
* 1,08366-01,
i 2I9166E-02,
• 2,?065E-01,
• 1.8792E.01,
• 6.19316-02,
• 3,57916 00,
» 1.S5426 00,
* 8,01206-02,
* 2,04386.02,
* 3,04746 05,
DATA CC6XP/
»-ljH9696 00
• .2,l99(lf 00,
»-2,1224E 00,
••?,10146 no
• -U7324F 00
•-2,49036 00
•-2.1399F 00,
•-1,87766 00,
•-5,tlllt 00,
•-2,77656 00,
DATA ICU6F/
1,44956
1,79786
S,39336
• 1.6919E 00,
• 1.53526 00,
• 1,96006 00,
» l.TiSIH-.i)!,
• l^'j/Vt'Ol,
• l.''4l/90t 01),
* o]«Mi9t-04!
UAM I6XP/
* 1 ,2130F_ 00,
• 1,'IU'>61 03,
• t,2S75E 00,
« 1.21916 00,
• 1,03366 00,
• 8,'4282f-01,
• l,5348f 00,
• I.301BF 00,
• 9;?839f-01,
« 2,151)71 00,
* 1 ,M65t 00,
UAI A ATCUF/3,
• S'OH07E 00,
* 1.99686 00,
2.90676-02, 6,
1.70366-01, 1
1.85626-nl, 1
6.4147t-02, 1
(1,65796-01, 2
2,7542E-01, 2
1.1349F-01, 1
2,20016-02, 5
S.1609E 00, 5
3.57476.-01, 2
3.5373E-02, 8
5,41416 -17/
-1
.2,12136 00,.2
-2,00146 00,.2
-1.7323F 00,.1
.2.2557F 00,-2
-2,08236 00,.2
-l,8b94C 00,-2
.2,942'16 C0,.l
•Z.4952E 00,.2
.1,96726 00,-2
-1.6662P 00,-1
-4,63936 00,-1
J.0195E 00, 2,
1,67I3F 00, 2
1,46676 00, 1
1
3
39686.02,
,?6(|36>01,
,95656-01,
,06371.01,
,91806.02,
,98286-01,
,93666*01,
,81696-02,
,0729t 01,
,23896 00,
,08446-02,
00,
00,
00,
00,
00,
11,65856-01,
1.03176 00, 8
1,72551". 00, 1
,i,99!lV 00.
3,0'UJL 2,0795E 00,
'1.B970E 00,
2,5329k (10,
•2.2559E 00,
'2,01366 00,
1,66626 00,
3,07276 00,
2,29076 00,
1.89806
3.1533E
l,6005t
1,46296
1,92546
1,66966
I,29996
I,65826
'1,89506
1,35466
00, 1,34726 00,
00, 1,91776 00,
00, 2,75106. 00,
00, 1.6835E 00,
1,78136 00,
3,19676 00,
S.98IIF-01,
1,342/16 00,
ill), 2,1983t 00,
.01, 4,70466*02,
.01, 5.8257F..02,
oo,
00,
00,
00,
1,J8<.VL ')•>,
8,293jl.-OI,
l,H?lf 'ID,
l,17J?t 00,
l.OOOOE 00,
1,68321. ')0,
1.0980L 00,
1.1194F 00,
7.65831-01,
P.6247L 00,
9329E 00, 2
2,5904t CO,
2.9II6F 00,
8.G2506.01, 9,63476.01
oo
00
00
1,1846E 00,
9,9i60i.-01 ,
I,fa923t 00,
1,33526 00,
1.0907E 00,
8,22236-01,
1.65566" 00,
1.3920L 00,
9.2845t-01,
•2,01296 02/
,7000t 00, 2
4,10401 00,
3.87306 00,
1.0641E 00,
8,4602E-01,
1,30996 00,
1.16536' 00,
1.2727E
1.0744F
».3b88F.-Ot, 1,00416 00,
I,46706 00, 1,3909£ 00,
1,19326 00, 1.2650E 00,
9,76946-01, 1,09626 00,
2,44016 00, 7.6665E-01,
1.7089E 00, 1.B037E 00,
1.08666 00, 1,44316 00,
93766 00, 2,23706 00,
3,64666 00, 2.119JE 00,
2.6360E 00, 6.72266-01,
00016640
00016650
00016660
00016670
00016680
00016690
00016700
00016710
00016720
00016730
00016T40
00016750
00016760
00016770
00016780
00016790
00016800
00016810
00016620
00016830
00016840
00016850
00016860
00016870
00016860
00016690
00016900
00016910
00016920
00016930
00016940
00016950
00016960
00016970
00016980
00016990
OH017000
00017010
00017020
00017040
00017050
03017060
00017070
00017080
00017090
00017100
00017110
00017120
00017130
00017140
00017150
00017160
00017170
00017160
3,7674t 00
5.03696-ni
HAT* AT6XP/
i;i9(146 00, 1.29466 00
3.4380t 00, I,9ti64t 00,
i.OOOOF-01/
1.6779E 00, 8,40276-01,
l.DOOOE 00, 1.0372E 00,
8,46906-Ul
1,31906 00, 1,26196 00, 8.5705E-01
1,15076 00, 1,11696 00, V,1119t 00, 1.3139E 00
* i;c71?t '10, . . .
» 1,79376" 00, B,6251)6-01, 9,47536-0), 1.1520E 00, 1.2578E 00,
• l,c'0256 00, 1.7370F I/O, 2.00006 OO/
DATA 1T*E/30000», 10000,, 3000., 1000,, 300,/,
1 AY/2,18151, 2.1815/4, 1.90991, 1.90991, 2.50245, 2,50245,
2 1.41,61(1, 1,4/1614, 1.52737, 1,52737, 1,96595, 1,96595,
3 0>9016, 0,89016, l,/3?89, 1,23289, 1,26420, 1,26420,
'1 0,61413, 0,61(113, 0.65641, 0,85641, 0,67735, 0,67735,
5 O.M69/I, 0,61694, 0.61755, 0,61755, 0,48899, 0,48899,
6 0,M69/1, 0,01694, 0,61755. 0.61755, 0,48899, 0,48899,
7 1),(i!694, 0,6169/1, 0,61755, 0,61'55, 0,48899, 0.48899/
DATA BY/ 0,87021, 0.87021, 0,88946, u.88946, u,86012, 0,86012,
2 0,89702, O.B9702, 0.88910, 0,88910, 0.86170, 0,86170,
3 0,92494, 0,92494, 0.8777B, 0,87778, 0,87506, 0,87506,
1 0,91226, 0.91220, 0,80412, 0,86412, 0.88959, 0,66959,
5 0,-18303, 0,88305, O.J8289, 0,88289, (.,90823, 0,90823,
6 0,88303, 0,88303, 0,88289, 0,88289, D,90623, 0.90B23,
7 (1.H6303, 0,88303, 0,88289, 0,88289, 0.90823, 0,90623/
OAfA AZ/ 0.18919, 0,09049, 0,01'lii, 0^01433, 5000,0, 5000,00,
2 0,'37, 0,32609, 0.166/10, 0,10669, 9434.0, 5000,0,
3 0.'41219, 0,43928, 0,41478, 0,41465, 0,48377, 5000,0,
4 0, '49995, 0,52133, 1.17518, 1.90320, 2,61432, 6,50012,
rj 0,53250, 0,72025, 1,94668, 2,98495, 5,14884, 15,47356,
6 0,47639, 0,76084, 1,95590, 4,50118, 16,98729, 53,27356,
7 0,36716, 1,00255, 2,13814, 5,423/6, 22,61835, 69.41679/
OA1A Kir 1,18816, 1,30020, 1,58224, 1.58224, 0,0, 0,0,
2 l,i), 1,02215, 1,11955, 1,17505, -0,06158, 0,0,
3 0,92365, 0,91,149, 0,92060, 0,92083, 0,90410, 0,0,
4 0,8'4512, 0,83778, 0,72012, 0,65990, 0,62543, 0,53706,
1 0,76735, 0,73i/40, 0,59047, 0,53706, 0,47788, 0,37114,
6 0,76308, 0,68099, 0,54580, 0,4/1041, 0.29621, 0,18534,
7 0,76603, 0,56992, O.'l802/, 0,3o(!01, 0,20897, 0.10019/
6NO
00017190
00017200
0001/210
00017220
00017230
00017240
00017250
00017260
00017270
00017280
00017290
00017300
00017310
00017320
00017330
0001/340
00017350
00017360
00017170
00017360
00017390
00017400
00017410
00017420
00017430
00017440
00017450
00017460
00017470
00017460
00017490
00017500
00017510
00017520
00017530
00017S40
00017550
-------
A.3 TEST CASE
HEIGHT ABOVE 100M FOX POINT SOURCE • I
TEST CASE URBAN AREAI 9 POINT louncga, 7 AREA MURCE*
POINT *OURCE INFORMATION
SOURCE
EAIT NORTH I02CG/IEC) PARTCG/SEC) (TACK
CO-ORO CQ.ORO EMISSION! EHJSSION* H7(H)
STACK
TEHPO
(UIER UNIT*)
1
2
3
4
5
12,50
7,50
7,10
7, SO
2,50
7,50
12,50
2,50
7,50
7,50
49*7,50
997,50
9*7,50
997,50
1*9,50
0,0
0,0
0,0
0,0
0,0
200,0
100,0
100,0
100,0
50,0
400,0
400.0
400,0
400,0
400,0
5
5
5
5
10,0
15,0
u.o
1«,0
10,0
SIGNIFICANCE
VALUE
0.7421E-03
O.J5T1I-03
0,2571E«03
0.8865E.O*
AREA SOURCf INFORMATION
SOURCE EAIT
CO-ORO
1
}
II
5
6
7
a
9
to
u
12
u
11
0,0
5,0
,0
,0
,0
,0
10,0
10,0
10,0
RTH
•ODD
TS)
11,0
8,0
s!o
5.0
7.0
0,0
4,0
4,0
10,0
0.0
10,0
5,0
0.0
S02 PART
EMISSIONS EMJSSI
(GRAMS/88, M/OEC)
3.917IE.07
3.9375E.06
3,937SE>06
3,9375E>06
3,93711.06
3.9900E-05
3.9J7BE*07
0.0
0,0
0,0
0,0
0,0
0,0
0,0
o
0
0
0
0
tin EFFECTIVE SIGNIFICANCE
N* UN8TM MIJ6MT VALUE
(USER UNJTI) (METER*)
THe OKZSZN JN 1NURN11 UNJT» 1*1
THE SIZE OF THE AREA SOURCE ARRAY
RMIN« o.o RHAXI 15,00 IHINI
0,0 0,0
a.o 15,0
2,0 20,0
2.0 15.0
J.O 20.0
1,0 25,0
4,0 0,0
2,0 0,0
J.O 0,0
5,0 0,0
$.0 0.0
5,0 0,0
5,0 0,0
5,0 0,0
0, 0)
I* ( IS, 15)
0.0 S«AX« 11,00
|,5750E>0)
7,*750E>03
7,I750E«05
7,«750E>01
7,«7*OE*03
.9900E-OJ
,575«e«01
TOTAL EMISSION AND CUMULATIVE FRACTION ACCORDING TO HEIGHT
TOTAL POIN7 CUHULA7JVE
HE]GHT(H) EMJSSIONSIO/S) FRACTION
0,0
0,0
0,0
0,0
0,0
0,0
6,0
0,0
0,0
0,015
0,015
0,015
0,015
0,015
0,015
0,015
0,015
0,015
0,015
0,212
0
6
11
t<>
21
It-
11
36
m
46
51
56
61
66
71
76
81
S6
91
96
5
10
15
20
25
30
35
40
45
50
55
60
65
70
75
80
65
90
95
100
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
199,50
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
2992.50
TOTAL AREA CUMULATIVE
EMISSIONKG/I) FRACTION
131*7,00
12,60
0.0
31,50
31.50
39,90
0,0
0,0
0,0
0,0
o.o
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0.0
115,50
.109
.109
,312
,»5S
,000
,000
,000
,000
,000
,000
,000
,0«0
,000
,000
,000
,000
,000
.000
,000
,000
SICNIFICANT 802 POIN7 «OURCES
RANK OMAX/U (OURCE NO,
7,»J13I-0«
2,5705E>004
J,57051-04
8,8455I-0?
SIGNIFICANT 102 AREA SOURCES
RANK Q*LENGTH SOURCE NO,
3.9900E-02
7.«750e.01
7,«750e.01
7.S7JOI.OJ
7.I750E.01
I.J730E.01
1,5750E>03
-------
PARAMETERS
MULTI-STATION TEST CUE
ORIGINl ( 0,0 i 0,0 )
H11SHTJNO OHIO NX* 1
WEIGHTING GRID GX« 1,00
NO WEIGHTING FACTOR! (T)
SEARCH ANGLE" 41,0
*11»HT1NG OHIO Htm 1
WEIGHTING GRID GY* 1.00
POWER* 2,0
STATIONS
RAPI NETWORK • IT, LOUIS
ITATION NO,
10
II
12
II
17
It
M
JO
21
22
23
la
35
7.11
7.17
7,9«
7.91
,12
,51
,78
,1*
.51
,7»
.47
7. SI
10,47
10,02
7,1*
5,01
4.04
5.65
7.11
12,77
8,07
0.0
T.95
7,35
• .51
6.3»
«.»0
T.41
• ,75
..89
5,7»
S.78
7,1*
8,58
•.60
«.«
a,5i
J.72
11.26
5, SI
(,01
10.65
15,00
7,1}
0,0
7.55
HEIGHT
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
IDENTIFICATION
'RAH' INPUT
NUMBER HF ITERATIONS USED IN COMPUTING TRAVEL DISTANCE IS
THf NUMBER (IF USER UNITS PER MINIMUM GRID SOIMR!« 0.10HOE 01
CONVERSION FACTORlUSEH UNITS TO KILOMFTFRSs Q.tOOOp 01
THE SIZF nf THE ARFA SOURCE ARRAYUA) IN INTERNAL UNITS ( I1!, 1?)
BOUNDARIES OF ARFA SOURCE GRID IN USER UNITSl
RMINB 0,0 RMAX* 15.000 SMIN> 0.0 3MAX> 15,000
HEIGHT OF RECEPTORS" O.'o LIMIT OF TRAVEL TIME FOR AREA INTEGRATION ??000, SECONDS
NUUBFa OF AHF* HE10HT CLASSES* Si PERCENT OF STACK HEIGHT WHICH IS PHYSICAL HEIGHT*0,500
HFIGHT3 SEPARATING HEIGHT CLASSES 21,100 Jl.'OOO
NUMBFR OF HOURS SIMULATED* 3 RECEPTOR SPACING FOR HONEYCOMB ARRAV(USER UNITS1* 1,000
* OF SIGNIFICANT POINT SOURCES* 5 « OF SIGNIFICANT AREA SOURCES* 7
OPTION LIST
t POIUT SQURCf DATA
? AREA SOURCE DATA
J PERMANENT RECEPTORS
'1 SIGNIFICANT POINT RFCFPTOR3
5 SIGNIFICANT AREA RECEPTORS
b HONtYCOMB RFCEPTORS
7 HOURLY OUTPUT
fl PARTIAL CONC, HRITTEN TO DISK
9 PRINT ONLY SUMMARY HOURLY OUTPUT
10 PUNCH CARDS FOR CONTOURS
OPTION SPECIFICATIOWl 0.IGNORE OPTION
l.USE OPTION
POINT SOURCE INFORMATION
SOURCE.
EAST
COORD
12,50
7,80
7.50
7,90
2,50
NORTH
CO*ORP
7,50
12,50
2,50
7, SO
7.50
>02(G/»EC)
EMISSIONS
11987.50
«»7,50
»97,90
997,80
199,50
PARUG/IEC)
SMI8SIQNS
0,0
0,0
0.0
0.0
0,0
ITACK
HT(M)
200,0
100,0
100,0
100,0
50,0
STACK
TEMP(K)
400,0
400,0
400,0
400,0
400,0
•TACK STACK
DIAM(M) VEHM/SEC)
20,0
15,0
11,0
15,0
10,0
-------
AREA SOURCE INFORMATION
SOURCE
CAST
NORTH
CO-OKI) COORD
1
2
3
II
5
6
7
8
9
10
11
12
13
11
0.
5,
s,
5,
8,
7.
0,
t,
3.
5,
5.
10,
10,
10.
S02(G/8EC-M««2)
EMISSIONS
0 11,0 3.9375E«07
0 e.O 3.9375E-06
0 8.
0 5,
0 5.
0 I,
0 0.
o «,
S.9375E-06
3.9375E.06
J.9375E.06
J.9900E.05
3.93756^07
0.0
0 1.0 0.0
0 10.0 0.0
0 0,0 0,0
0 10,
> 0.0
0 5,0 0.0
0 0,0 0,0
PABT(G/8EC-M««2) SIDE EFFECTIVE
EMISSIONS LENGTH HEIGHT
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
o.o
0,0
0.0
0.0
0,0
0,0
2,0
2,0
2,0
2,0
1,0
1.0
2,0
2,0
5,0
5.0
5,0
5,0
5,0
0,0
15,0
20,0
15,0
20,0
25,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
INPlll Mtr UATA
UH MIXING TEMP
HtlGHI(N) (K)
1 600,00 279.00
2 600.00 260.00
3 600,00 260,00
S1AT1GN NO.
1
i
i
4
5
6
7
a
9
10
11
!•>
1 (
14
1°)
16
17
18
19
20
21
22
23
24
25
ST»blLl!Y
CLASS
i
2
2
huu*
1
3
1
1
i
3
1
1
I
3
1
2
3
1
c1
1
3
1
3
1
3
1
3
1
3
1
2
3
1
2
3
1
2
3
1
2
3
1
3
1
2
3
1
2
3
1
2
3
1
2
3
1
2
3
KIND PIRtCIIUN
(PEC,)
200,00
210.00
90.00
200,00
200,00
90.00
200,00
90,00
90,00
200,00
90,00
90,00
200,00
210,00
90,00
210,00
200,00
90,00
200,00
210,00
90,00
200,00
90,00
90,00
90,00
90.00
90.00
200,00
90,00
90,00
200.00
21II , 0 0
90,00
200,00
200,00
200,00
200.00
20",00
200.00
200,00
200,00
SO.00
30,00
90.00
90,00
90,00
90,00
90.00
90,00
90,00
90,00
200,00
200,00
90,00
200,00
200,00
190,00
200,00
200,00
200,00
200,00
200,00
200,00
200,00
200,00
90,00
90,06
90,00
90,00
200,00
90,00
90,00
220,00
200,00
200,00
KIND SPEED
4,01)
1,00
'1,00
3,00
4,00
5,00
3,00
«,00
s.oo
3,00
3,00
5,00
1,00
5,00
5,00
«,00
4,00
4,00
3,00
11,00
3,00
4,00
5,00
5,00
3,00
4,00
6,00
4,00
3,00
5.00
4,00
5,00
5,00
3,00
4,00
4,00
3,00
4.00
4,00
3.00
4.00
5,00
3,00
4,00
5,00
5,00
5,00
6,00
4,00
5,00
6,00
4,00
3,00
5,00
3,00
4.00
5,00
3,00
4,00
4,00
3,00
4,00
4,01)
3,00
4,00
4,00
6,00
6,00
6,00
4,00
3,00
5,00
4,00
4,00
4,00
-------
RESUlTANt HH
AVtHAGl TEMP.S £79,07
STABILITY" 2
S1ATIQN NCJ,
I
2
5
1
5
6
7
10
11
12
li
11
15
ID
1 f
ia
19
20
21
22
25
175,00
158.39
109,17
114,01
17i,0i
175,00
160,<"4
llJ.bi
90,00
119. Si
17i,03
aoo.oo
(^00 ,UU
150,19
7b,10
90.00
90,00
lie, 39
l9b.SH
-------
HOMtYLUNB HtCLPTOaa
HECtPTDH
2J M
23 h
24 H
25 H
26 H
27 H
28 H
29 H
10 H
11 H
ia H
11 H
34 H
15 H
16 H
17 H
11 H
19 H
40 H
41 H
4! H
43 n
«« H
45 H
46 N
47 H
48 H
49 H
50 H
51 H
5? H
51 H
54 H
55 H
56 H
57 H
58 M
59 h
60 h
61 H
62 H
61 H
64 n
65 M
66 H
67 H
68 H
69 h
70 H
71 n
72 H
73 M
74 h
75 rt
76 f
77 h
rn H
79 H
BO H
81 M
82 n
83 n
64 H
85 n
86 M
87 H
88 M
89 rt
90 H
91 M
92 1
95 H
94 H
95 H
96 M
97 H
96 H
99 M
100 H
(01 M
loa H
103 M
104 M
105 H
1 Ob H
107 H
108 H
109 H
110 H
111 M
m H
113 M
114 B
115 H
116 H
117 H
US H
119 H
120 H
121 H
122 M
123 H
1?4 H
125 H
1J6 H
127 h
128 H
« t»S[
3,00
6,00
9,00
12,00
15,00
la, 00
21,00
24,00
27,00
30,00
1,50
4,50
7. SO
10,50
13, So
16,50
19, SO
22, SO
25, SO
20.50
9,00
12,00
15, DO
18,00
21,00
24,00
27,00
30,00
1,50
4.50
10,50
15,50
16.50
19.50
22,50
25.50
20,5')
12,00
15.01)
10,00
21.00
24.00
2 7 . 0 0
50.00
1.50
4.50
10.50
15.50
16.50
19,50
22.50
25,50
20,50
•<.oo
21 ,00
2 4 . U 0
27.00
311.0')
I .5')
4,50
10.50
IS, 51)
16.50
11. SO
22. SO
25.50
20.50
J.O'J
6.00
9,00
12.00
15,00
18,00
21,00
24,110
27,00
50.00
1,50
4,50
7,50
10,50
13,50
16,50
19,50
22,50
25,50
20,50
3,00
6.00
9.00
12,00
15,00
18,0')
21,00
24,00
27,00
30,00
1,50
4.50
7.50
10.50
15,50
16,50
19,50
22,50
25,50
28,50
NORTH
0.0
0.0
0.0
0,0
o.o
0,0
0.0
0.0
0,0
0,0
2,60
2,60
2.60
2,60
2,60
2,60
2,60
2,60
2.60
2,60
5,20
5,20
5,20
5,20
5,20
5.20
5.20
5.20
7.79
7.79
7.79
7,79
7,79
7,79
7.79
7.79
7. 79
10.39
10.39
10.3V
10.39
10.39
10.39
10,39
12.99
12,99
12.99
12.99
12.99
12.99
12,99
12.99
12.99
15,59
15.59
1 3.39
15,59
15,59
18.19
18,19
10.19
16.19
18.19
18,19
18.19
18.19
16.19
20. 78
20,78
20.78
20.70
ill. 70
20.70
20.76
20. 70
20,78
20.78
23.30
23.38
2J.38
23,38
23,38
23,38
23,30
25,30
23.30
23.30
25.98
25.90
25.90
25,98
25.96
25,90
25.98
25.98
25.98
25.98
26.50
28.58
28.50
28.50
28.58
28.58
28.50
28,58
26,50
26.56
-------
SU2 CuNIHISgUU»i(S/Cu. «) fKUK SJIiNIUCANT PUlMT SQUHttS I Hull* I
3 1 i
SUUKCt »
HECtH «
1 11,1
3 0.'
3 il,i
'1 (l.i
)6 i.25if-ll
9 1.1296-08 0.0
ID 4.1
67t-'H 0,0
U 3, 5506-23 0.0
1? U.O 0.0
13 i).
1 '1 I) . 1
U. 0
0.0
0
0
0
0
1
1
1
3
2
2
2
2
0
2
3
,0
,0
.0
,0
.9436-04
.2166-07
.6266-08
.828E-08
.590F.-21
,7486-12
.(J01E-06
,3026-07
.0
.9046-22
11 'l.loufc-'H 0.0 4,8956-10
16 7.20/fe-'l5 0.0
17 1.22iF,-'>6 O.u
1« 1).
19 li.t
2D i). '
24k -06 '),(!
74F-08 •) . 0
0, 0
21 1) . '1 O.U
2? n. i
23 0,
24 u.
21 u.
26 I) .
27 u.
2H u.
29 I).
30 II.
31 0.
3? u .
31 u.
31 u.
31 i).
36 u .
37 u.
3H ') .
3') u .
4 U u .
41 '<.
lj? c ,
43 I) ,
4-J ') .
'15 '1 ,
46 II .
a 7 o.
4« U.
49 II.
S II U .
11 u ,
B? c.
13 u .
VI i'.
11 I. .
16 I) .
O.'J
1) . 0
0 . U
0. J
0.0
0,0
'). J
0.0
0.0
0.0
0.0
0.0
0.0
0.0
O.U
U. J
U. ,1
U.U
U.U
u . •'
7bF-2i O.i)
1), u
U.U
O.'J
0.0
U. 1)
0 • 'J
O.U
y . u
0 . 0
ii 4 1: - 0 9 u.u
0.0
U . u
U . 0
O.u
',7 11,11 O.u
c, H I/ .
'j'l I'.
1,11 1' , 1
6 ! U.I
faj I),
(.3 U.
64 U ,
61 Ii ,
U . 0
U, II
ii. 0
U , 0
U.o
0.0
U . 0
U . 0
Ijb u , (1 U , u
b7 1,*
bbt-li O.U
61 11,11 Ij . 0
li'r I}.
7ii |, p
7 ! D.I
7? u,.
u . u
o.c
O.u
0.0
71 11,11 O.u
7 II U.I
71 ll.i
76 1) ,
77 0 .
7B 1'.
79 1) ,
Hi) U ,
O.I)
6.1 /6E-05
I), u
U.U
0.0
O.U
U.U
HI 3.747F-12 4.u2Mfc-23
H .' 1) .
fli u ,
Ha (I .
B'j 0 ,
86 II ,
«7 u.
KM U ,
P9 r ,
3,
.7ICI--OB
.714t-05
,0
.0
.0
.0
,0
.0
.0
.0616-15
,6bbt-10
0
0
0
0
0
a
4
.0
.0
,0
,0
,0
.7HOE-06
6.454F--07
3
0
0
4
2
0
0
0
3
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
u
0
0
0
0
0
0
0
0
0
u
0
0
0
0
0
0
u
0
0
0
0
0
0
0
0
u
0
I)
0
0
0
0
0
2
0
0
0
0
(1
II
0
b
0
0
c
0
1
7
i;
0
u
1*
0
0
Cl
2
3
1
6
0
0
0
0
0
0
1
6
.4/4E-08
.0
.0
.221E-05
,947t-0t
,0
.0
.0
,8'J3t-25
.SdlE-07
.0
.0
.0
.0
.0
.0
.0
,0
.0
.0
.0
.0
.0
.0
.0
.1)
.0
,0
.0
.0
.0
,0
,0
, 0
,u
.0
.0
,0
.0
• 0
.0
. 0
, y
.0
.0
.0
.0
.0
.0
.0
. c
.0
.0
.0
.0
,0
.0
.0
.u
.164F-25
,0
.0
. 0
.0
,0
.0
.0
.95H-05
.0
.c
,0
• 0
.115E-25
,7>OE-13
. 146L -05
.0
.0
.0
.0
.0
,0
,826t-15
.2BSE-09
.032E-05
.970F-06
,0
.0
.0
.0
,0
,0
,2i2E-17
.B67E-12
0
u
1
1
U
1
1
1
0
0
1
5
4
6
0
2
0
0
0
1
0
0
0
0
0
0
0
u
0
0
u
0
0
0
0
0
u
0
0
0
u
(I
0
0
0
0
0
u
u
1
u
u
u
0
0
0
u
u
u
u
u
u
u
0
0
1
4
4
5
0
0
0
0
u
3
u
^
.0
,0
,(>B6E-10
,2376-12
,0
.219E-13
.767E-05
.799E-05
.0
,0
.078E-16
.889E-08
,9046-05
.223E-05
,0
.597E-IQ
.0
,0
,0
,1996-08
.0
,0
.0
,0
,0
.0
,0
.0
.0
,0
,0
,0
,0
,0
,0
.0
,0
,0
,0
,0
,0
, 0
.0
,0
,0
.0
,0
, o
,0
,1)
.u
,0
,0
.0
.0
.0
.0
,0
.0
.0
,0
.0
,0
.0
.0
, 9986-13
.b&0t-u5
.0956-13
,1046-16
.0
,0
,0
.0
,0
.9976-07
.0
o, o
0
0
2
3
J
4
1
0
0
0
0
3
1
8
4
3
2
0
0
0
0
3
5
.0
,0
,450t-l 1
,9356-06
,2606-00
,3336-08
,2fa£E-lb
.0
,0
• 0
.0
.3966-118
,1906-05
,472E-06
,2766-07
.317E-09
•OOOE-19
,0
,0
,u
,0
,9886-11
,9346-06
TOTAL
SJbNIF
PU1NI
TOTAL
ALL PUINT
3UUKCES
0,0
0,0
1.686E
1.237E
4.172E
8,B22t
1.833E
4,4676-
4,5016-
3.236E-
4,904E>
6.223E-
4,1606-
l|751t-
8.724E-
4,404E-
1.199E-
0,0
0,0
U ,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0.0
0,0
0,0
0.0
6,0766-
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
2.7446'
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
1.99BE'
4,5B06<
4.121E'
5,104E<
0,0
0,0
0,0
0,0
0.0
1,4096<
0,0
0,0
0,0
0,0
319356'
5,489t<
4.3J3E.
1,262E<
0,0
0,0
o.o
0,0
l,196Ei
1,1966'
2.315E'
7,1B6E<
3.3176'
2,0006'
0,0
0,0
0,0
0,0
3,9B9Ei
5.9346'
0,0
0,0
•10 1,0866-10
• 12 1,2376-U
•04 4,1726-04
•06 8,822t-0»
•05 1.83JE-OS
•05 1,950E«OS
•08 1,1296-0*
>04 u.4676-04
•05 4,5016-05
•06 3.236E-06
•05 4.90UE-05
•05 6,2236-OS
•04 4.160E-04
•05 7.207E-05
•06 1,7516-06
•06 B,724E-06
•06 4.4046-06
•08 1.1V9E-08
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
O.U
0,0
0,0
0,0
•07 6,0766-07
0,0
0,0
0,0
0,0
0,0
0.0
0, 0
0,0
0,0
•09 2,7446-09
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
•13 1.99B6-13
•05 4,5806-05
-13 4,1216-13
•16 5,1046-16
0,0
0,0
0,0
0,0
0,0
•04 1,4096-04
0,0
0,0
0,0
0,0
•11 2,4506-11
•06 3,9156-06
•05 5,4896-05
•08 4,3316.08
•16 1.262E-16
0,0
0,0
0,6
0,0
-08 i,3966-08
•04 i!il56-04
-05 7,1666-05
.09 3,3176-09
-19 2,0006-19
0,0
0,0
0,0
0,0
•11 i,989t-ll
-06 5,9146-06
-------
101
IOS
101
104
1 05
100
107
10 B
109
110
111
112
113
111
1 1'j
lib
117
118
119
120
121
122
123
12"
1 25
126
127
128
1
£
1
U
0
0
t)
1)
0
9
B
1
0
0
0
0
0
0
9
1
2
b
5
4
0
0
0
0
.5Ob
.776E-05
.liUE-05
,0
,0
.0
,1)
1.1/61: -05
1 .27&E-04
4.0Slt-ob
4.496E-06
7.B78t-o7
l,350t-07
0,0
0.0
3.960E -21
2.boOt-ll
1,2101- -OH
9,lS2t-Ob
2.79bE-Ob
5.bObf -Ob
l.SOSl-Ob
2.V82E-07
0,0
0.0
B.302E-21
l,/60t-lb
6.166E-05
1.778E-05
5,88bt-0b
2.04UE-05
•>.7I7t"'i6
l,7olt-0b
4.7lbE-07
0.0
1
2
B
0
0
0
0
0
7
5
1
1
1
0
0
0
0
0
2
1
2
1
5
/
0
0
0
0
.444E-06
,76Jt-Ob
.B42E-25
.0
,0
.0
,0
.0
,3l9t-12
.054E-09
,2096-Ob
, 79bE-o5
,ObbE-lS
,0
.0
,0
.0
.0
.093E-13
,08bt-l 0
,560t"08
.41SE-05
,Bb9t-Ob
,31 4E-1 5
,0
,0
.0
.0
1.07BE-07
5,569t-(i5
1.2B2E-06
2.115E-25
0,0
0.0
0,0
0,0
1,5996-16
3.679E-10
3.601E-06
4.4B4E-05
2,809t-08
0.0
0,0
0,0
0,0
0,0
2.6SBE-20
b,146E-13
2.906E-06
1.B59E-05
3.934E-05
2.004E-05
7.282E-06
2.733E-06
0,0
0,0
1,354E-05
B,B03E-06
7,»11E-07
1.956E-09
5.988E-20
0,0
0,0
0,0
6.433E-09
4,4B4t-Ob
1.423E-05
4.097E-06
9,116t-08
5,20be-ll
2.958E-26
0,0
0,0
0,0
5.840E-11
1.1BBE-07
4,594E-Ob
1.282E-OS
7.963E-07
1 ,230t-0b
3.736E-07
l,7b2E-07
1.021E-07
4,llbt-08
2.790E-05 2.7901-05
2.439E-04 2.439E-04
4.500E-06 4.500E-06
7.878E-07 7.87BE-07
1.3SOE-07 1,350E-07
0,0
0,0
0,0
0,0
8.441E-09 B.4U1E-09
4.490E-06
2.B06E
5,50bt
l,305t
2.982E
0,0
0,0
5.861E
l,189t
6,»19t«
7,003t
l.bibt
6,9B2E<
I,i37t
5l'37E
«.316t
•04 1.S99E-04
•05 2.808E-05
•Ob l,30bE-06
•07 2.982E-07
0.0
0,0
•11 5,B61E-11
•07 1.189E-07
•05 7|003E-05
•05 8.9B2E-05
•05 1.J37E-05
•Ob 4.610E-06
•07 5,7371-07
• 08 4.3UE-OB
CUH7NJ|)UTJUM(G/CU,M) F»OB SJSNJPJCAKT «Rt« 3UUHCES I HQUH 1
3 « b b 7
KECLk *
1
2
3
'1
S
tt
7
ft
9
10
11
1?
13
14
15
lb
17
IS
1 9
20
21
2?
23
24
2'j
26
27
?H
29
30
31
3?
33
34
35
36
17
38
19
40
41
42
43
44
45
Mb
47
'48
49
50
51
52
53
54
55
5b
0,
11 .1
(J . (
0,0
1) , (
1) .
u ,
0.
0,
1),
3, Dot-OS
0.
1) . i)
'). )
I) , )
0,0
9 ,bOSt-Ob*
0 ,0
1) , )
0 ,0
0,0
0 , 0
», )
0,0
U, 0
(1 , '
0.0
0, 0
1) , 1)
0,0
0 .0
0,0
1), 1
,) , ()
1) , 1,
0 , 0
0, 0
0,0
0,0
I), >
0,1)
0,1.
0,1)
U , 1)
0,1)
0,1)
0,0
0,0
0,1)
0.0
0,0
0,0
0,0
11,0
0,0
0,1)
0,0
o.o
O.i)
0.0
0.0
3.9^7t -Ob
0.0
0 . J
0.0
I.fbSt-05
0.0
o , /2bt -')6
11,0
o.c
8,6481' -Ob
3.030E-05
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
o.o
0.0
0.0
0.0
0.0
0.0
o.o
0,0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0.0
0,0
0,0
o.o
0,0
0.0
0,0
0.0
o.o
0,0
o.o
0,0
0.0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
o.o
0,0
0,0
0,0
o.o
0,0
0,0
0,0
0,0
0.0 0,0
0,0 0,0
0.0 0,0
0,0 0.0
') , 0 0,0
5 *b3bt -Ob 0,0
0,0 0.0
0.0 0,0
1.709C-05 0,0
9,6j0t-0b 0,0
5.217E-06 0,0
3.117E-06 0,0
0.0 0,0
0,0 0,0
1.076E-05 0,0
0.0 0,0
5,52«E-06 0,0
2.789E-05 0,0
0,0 0.0
0,0 0,0
0.0 0.0
0.0 0,0
0,0 0.0
0,0 0,0
0.0 0,0
0.0 0,0
o.o o.o
o.o o.o
o.o o.o
0.0 0,0
o.o o.o
0.0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0.0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 1.972E-06
0.0 0,0
0.0 0,0
o.o 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0.0
0.0 0.0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
o|o
0,0
0,0
0,0
0,0
1.457E-06
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0.0
1.797E-07
6.038E-07
0,0
0,0
2,69'>t-07
0.0
5.800E-07
1.630E-07
2.792E-08
B,735E-OB
B.210E-07
0,0
5,5bBfc.o7
0,0
0,0
4,253b-06
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
l,72Vt»06
»,104E-07
0.0
0.0
0,0
0,0
o.o
0,0
O.I)
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
1.032E-06
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
9.742t
B.OlSt
4,t>o2e
1.709E
2.7b5t
3,b6bt
1.045E
l,630t
1,4851
I,9b9t
3,ll?t
l.OOSt
2.845E
0,0
0,0
4.253t
0,0
0.0
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
3.729E
v.lOot
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
1.972E.
0,0
0,0
o.o
o.o
0,0
0,0
0.0
0.0
l,032E<
0,0
0,0
0,0
0,0
0,0
TUTAL
ALL AREA
iUuHCtS
0,0
0,0
0,0
0,0
0.0
-Ob 9,)4
-------
57
5R
59
bO
bl
b?
bi
bt
bS
bb
67
b«
b9
70
71
I?
73
7"
7b
70
n
7ft
79
DO
It
H?
BJ
flu
fls
HO
n?
nn
ft9
90
91
4?
91
9'l
9rj
9fi
97
9M
99
100
101
10?
10J
104
lOb
00
U7
0«
1)9
to
11
1?
13
11
1 1 'l
110
117
1 1 H
119
120
1 21
1 2"1
12J
1 24
l«;s
120
127
12"
0 .0
0,0
0.11
ll.ll
11,0
0,11
0 .0
0 ,0
0 ,0
11,0
0,0
0,')
0.0
0.11
0 . 0
0,0
0,0
0,0
0 ,0
0 ,0
11,1)
0, 11
0,1)
0,0
0, 11
{' ,1)
11,0
0, 11
0. 1)
0,0
0 ,11
U , 0
0, 1)
0 . 0
0 . <>
0 . 1)
0 ,0
l>,0
0 , u
1) , U
u , u
1) . I)
[J . 1)
U . u
0 , 1)
0 .0
11 . Ij
0,0
0. 0
I) . 0
0, n
I) , 0
0. i)
0 . 0
0 .1)
0 , 0
11 ,1}
I) . 0
11. 0
0 , 1)
0 . 11
0 . (i
0 . 1}
I) ,11
0,0
11.11
I) ,0
0,0
0, ')
O.I)
0,0
0 ,0
0.0
0.0
0.0
0,0
0.0
0,0
0.0
o.u
0,0
0.0
0.0
0,0
0,0
0.0
U.O
0,0
0.0
0.0
i, 3i7t-QO
0.0
0.0
0,0
o.t>
0.0
0.0
0.0
0.0
0,0
0.0
0.0
D.O
u.o
0.0
ll.ll
i. ijac-oo
0.0
0.0
0.0
U.i1
J . U
0.0
0.0
0 .U
0. u
0.0
ll.'jhif -00
U.O
0.0
I'.u
0.0
0.0
0.0
L',0
u.u
O.I)
0.0
0.0
0 . u
0.0
0 . U
O.u
0.0
0.0
0.0
0.0
0.0
U.O
0.0
0.0
o.u
o.o
0.0
0,0
0,0
0,0
0.0
o.o
0.0
0,0
0.0
0.0
0,0
0.0
0.0
0,0
o.o
0.0
0.0
0.0
o.o
0,0
0.0
0.0
0.0
0.0
0.0
o.o
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0.0
o.o
o.o
U.U
U.O
0,0
0,0
0,0
0.0
0.0
0.0
0.0
0,0
0.0
0,0
0.0
0 .0
o.o
0,0
0,0
u,o
0,0
0,0
0,0
0,0
0.0
U.U
0.0
0,0
0,0
0,0
0,0
0.0
o.o
0,0
0.0
o.o
0,0
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0,0
0,0
0,0
i. 9176-00
0.0
0,0
0.0
u.O
0,0
0,0
0,0
o.o
0.0
0.0
o.o
0.0
0.0
0.0
0.0
0,0
0,0
0.0
0.0
0,0
0.0
0,0
0,0
0,0
0.0
0.0
il ,203t-06
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0.0
0,0
0.0
0,0
0.0
0,0
o.o
0,0
0,0
o.o
0.0
0,0
0,0
o.o
0.0
0.0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
o.o
o.o
0,0
0.0
0,0
o.o
0,0
0,0
0.0
U.O
0,0
0,0
0,0
0.0
0.0
0.0
0,0
0,0
U.O
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
3,»195fct»06
4.991E-07
0,0
0,0
0,0
0«0
0,0
0,0
0,0
0,0
0.0
o.o
0.0
0.0
0,0
1 , 1 /9f -00
0.0
0,0
0,0
0.0
0,0
0,0
0.0
l.etilt-07
9,U»2t"07
0, 0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
3,b27t-07
b,558t-07
0,0
0.0
o.o
o.o
0.0
0,0
0,0
0,0
5,309t-07
7,JH9t-07
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
9, i Jbfc-Q7
o.o
o.o
0,0
o.o
0.0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
o.o
0,0
6.177E-09
0.0
0,0
0,0
0,0
0,0
0,0
0,0
2,JJbt-07
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0.0
7,989t-o7
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
U,7J6t"07
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
o.o
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
i,<49it-06
5,05flt<*07
0,0
0,0
0,0
0,0
o.o
0,0
o.o
c,08Bt-06
0,0
0,0
0,0
0,0
0,0
1. 1796-00
0.0
0,0
0,0
0,0
0,0
0,0
o.o
1.813E.-07
9.192E-07
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
9.2i9t-0b
0,0
0,0
o.o
0.0
0.0
0.0
0,0
5,309t-07
7,1196-07
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
o.o
0,6
0,0
0,0
0,0
0,0
0,0
0,0
1.K95E.06
5,058t-07
0,0
0.0
0,0
0,0
0,0
0,0
0,0
6,«68t-06
0,0
0,0
0,0
o.o
0,0
l,179t-06
0,0
0,0
0,0
0,0
0,0
0,0
0,0
i,eiu-o7
SI, M9.Hi.07
4, t J7E*06
0,0
0,0
0,0
0.0
0,0
0,0
o.o
0,0
S,2S»Uob
o|o
0,0
o.o
0,0
0,0
0,0
0,0
b, i09£-07
7,i49E*07
0,0
o.o
0,0
o.o
0.0
0,0
0,0
0,0
0,0
o!o
0,0
0,0
0,0
0,0
0,6
0,0
-------
SU2 CUNLtNTRATION T»8LE I HUUR 1
HOUR MIX1NI. TtnP
HJIBMl(N) CK)
STABILITY
CLA3S
I 600,00
S1ATIUN Nil.
I
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
24
25
9.00 3
«IM) DIRECTION
200,00
200,00
200,00
200,00
200,00
210,00
200.011
200,00
90.00
200,00
200,00
200,00
200,00
200,00
30,00
90,00
90.00
200,00
200,00
200,00
200.00
200,00
90,00
200,00
220,00
*IND SPEED
CN/S)
4,00
3,00
3,00
3,00
4,00
4,00
3,00
4,00
3,00
4.00
4,00
3,00
3.00
3,00
3,00
5,00
4,00
4,00
3,00
3,00
3,00
3,00
6,00
4,00
4,00
fCtPH
1 1
2 I
3 1
'i 1
5 P
6 p
7 p
8 P
9 y
11) P
11 P
1? P
13 f
14 P
IS A
16 A
17 A
18 k
19 A
21) A
21 A
2? P
23 H
?4 C
25 h
26 H
27 n
26 M
29 H
30 h
31 H
S? h
33 H
VI "
35 H
36 H
17 H
SB n
39 M
40 H
41 H
4J n
43 n
44 M
45 H
40 H
47 H
4B M
49 H
50 H
51 H
5? H
53 H
54 H
55 ri
56 H
57 H
58 M
)M MJ,
0
0
0
p
1
1
2
c1
3
3
4
u
5
5
o
2
3
4
5
1
7
p
0
0
0
0
0
0
0
0
0
0
0
[)
0
0
n
0
0
0
0
0
0
0
0
0
0
0
0
0
o
0
0
0
0
0
0
0
tAST
17,00
15. iiO
13,00
1 5 . f 0
6.73
7 .06
6.76
6.26
6.49
6,/9
8,05
7.61
3.22
3.69
7.01
6.03
7.79
5.90
7,78
2.40
2.U
3.00
6.00
9.UO
12.00
15. OC
16. OU
21.00
24.00
27.00
30.00
1.50
4.50
7.50
10.50
13.50
16, br
19.50
22,50
25,50
28.50
9.00
1 2 . 0 (I
15,00
18,00
21.00
24.00
27.00
50.00
1.50
4.50
10. bO
13.50
16.50
19.50
22.50
25.50
28.50
NC* 1 H
15,00
13.00
lb.00
17.00
7.74
10.62
15.68
1 rt .94
5.56
a, 48
in. 34
12,83
9,43
11.35
B.19
10.13
6,75
7,16
0.13
15,00
2h-10
1.2374E-12
4,17<>5E-04
l,6564E-db
1.91J2E-05
1.99626-05
1,71006-05
4,74256-04
8.16936-05
1,36906-05
4,92036-05
6,37176-05
4.3i726-04
1.0319E-04
1,02306-04
3,71716-05
4,40396-06
1. 19866-06
4.25296-06
0,0
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
3.7291E-06
9.10396-07
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
2,58016-06
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1.0321E-06
2,74386-09
0,0
0,0
0,0
0,0
0,0
0,0
CUNCtNTHAT
HANK
67
68
56
62
3
27
20
25
28
1
13
29
19
17
2
1C
11
22
36
54
39
69
70
71
72
73
74
75
76
77
78
40
45
79
80
61
82
63
84
65
66
42
87
86
89
90
91
92
93
94
44
57
95
96
97
96
99
100
-------
S9 h
60 rt
61 M
63 H
63 H
64 H
65 1
66 H
67 M
6H h
69 H
70 H
M h
If. '1
73 H
/4 H
/5 M
76 H
77 i
78 H
79 M
SO 1
81 M
H? H
83 H
84 H
85 n
86 h
87 n
88 «
B9 h
90 n
91 H
9? H
93 M
9't h
9'j h
96 h
97 f
9M H
99 f
1 00 h
101 h
10? H
103 H
1 0 '» H
105 n
1 06 n
107 H
10« n
10r- h
110 <•
111 n
11? H
113 H
1 14 rt
1 1'j M
116 h
117 n
1 IB H
119 ft
1 20
121
122
123
124
125 M
126 i
127 H
I2H H
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1}
0
1)
0
0
0
0
0
1)
0
(>
0
0
0
0
ft
0
0
0
0
1)
0
0
0
0
0
0
0
0
(1
0
0
0
0
0
0
0
1)
0
0
0
(1
0
0
0
11
()
0
0
0
0
0
0
0
0
12.00
15.00
18.00
21,00
2'4,OU
?7.00
JO. 00
USO
4.50
10.50
13. SO
16.50
19,50
22.50
25.50
28.50
9.00
21 ,0'1
24.00
27.011
10.00
1 .50
4.50
10.53
13.50
lo.50
19.50
22.50
25.50
28.50
3.00
6.00
9.00
12.00
15.00
18.00
2 1 . 1) 0
24.00
27.00
10.00
1.50
'4. SO
C.50
10.50
13.50
36.50
19.50
22.50
25.50
26.50
3,00
6.00
9.00
12.00
15.00
IB. 00
? 1 . 0 0
24.00
?/.oo
30.00
1.50
4.50
7.50
10,50
13.50
16.50
19. SO
22.50
25.50
2B.50
10.39
10.39
10,39
10,39
10.39
10,39
10.39
12,99
12,99
12,99
12,99
12,99
12,99
12,99
12,99
12,99
15.59
15,59
15.59
15,59
15,59
16.19
18.19
18.19
16,19
18,19
IB. 19
18.19
IB. 19
16.19
20.78
20. /B
21) . 7b
20. /B
20.78
20.78
20.78
20.78
21.78
20.78
23.36
23,36
25.38
2S.38
25.36
25. 3B
25.56
25.38
23,38
23.36
25.98
25.98
25,98
25.98
25.96
25.98
25.98
25. 9B
25.96
25,96
28.58
26.58
20. SB
26.56
28.58
28.58
H».58
26.58
28,58
26.58
0.0
0.0
0,0
0,0
0,0
0.0
0,0
1.9980t-13
4.5801t-05
4. 12126-13
5,1043t-16
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0.0
2,'449Bt-ll
3.9346t-06
5.4686E-05
4.i327t-08
1.2624t-16
0.0
0.0
0,0
O.il
3.3960t-08
1.1955E-05
2 , 3 1 4ot-04
7.18621-05
3.5l69t-09
1.9995t-19
(1,0
0.0
0.0
0,0
3. 9BB 7t -1 1
5.9541t-0(j
2,/902t-05
2,4394t-04
4.2564*- -05
«.'!996t-06
7.67B3L-07
1 ,3496t-0 I
0,0
0.0
B.4406t-09
4.'4697t-00
2.30551-04
l,59;6t-04
2.BO/6L-05
5.50636.-06
1.50541-06
2.V616L-07
0,0
0.0
5.8610t-ll
1 ,1892fc-i17
6,9 Wlt-05
/ .0034C-05
1.6263t-04
6.9621E-05
1 .3372E.-OS
4.e)o
-------
C MAIN
C
COMMON /C2/ UE(6),YD,YN,TMN,MHJN>DJNT,YCON,TA(4),JPG,XG,YG,JI)D
COMMON /C«/ DECAY(2),IC»(6),ICP(6),H(t),HXC6),G8(2),Na,IVeR,II,XGG,»GG,IAa,TDA,TD8,TOC.lPU
INTEGER KFYwu>/'pARA','STAT'r'*eic',>CDH'/,*) SO TO 30
20 CONTINUE
NRIU<6,6020) KEY(I)
6020 FORMATCO', Til, 'INVALID KEYKURDl ',A«/T11.'EXECUTION TERMINATED,1)
STOP 1
50 »RITE(6,6030) KEY,TITLE
6030 FORM AT ( ' I i , T11,3A<1/T21,12A4,A2//)
IF(SECnNO) CO TO 40
IRO»UNITS(1)
!F(IRD,EO.O) I9D«5
lwR«UNIT3(2)
IFtlwR.EQ.O) I.H.b
IPU'UNITSCS)
IFUPU.EO.O) !PU*7
SECONI5«,TRUE,
10 so in (loo,200,300,uoo),i
11)0 CALL INPAR
GO Tfl 10
200 CALL INSTA
GO TO 10
300 CALL nFIGHT
GO 10 10
100 CALL COM
900 »RITF-(6,6<»00)
6900 FORHAK'OFND OF PROGRAM,1)
STOP
tun
suunnuriNF INPAR
COMMON /(.RID/ ORIG1N(2),NX,NV,SX,CY,ALPHA,LTHETA/RAD1US,POKER
LOGICAL NOFACT.LTHETA
COMMON /FACTOR/ FACT(10,10,10),NOFACT
LOGICAL PRINT
COMMON /CNTRL/ PRINT
COMMON /C?/ Ut(6),YD,YN,TMN,HMIN,DINT,YCON,TA(«),IPS,XC,YG,IRO
COMMON /C4/ DtCAY(2),ICA(6),ICP16),H(6),MX«>),GB(2),NO,IVER,Il<,
X I2/'0',T21,'WEIGHTING GRID GX*',F5,2,TS1,'WEIGHTING GRID GY«',
X F%2/'0',T21,
x 'PRINT INPUT «INO ROSES <',L1,')',TS1,
X 'NO WEIGHTING FACTORS C.Ll,')1
X /'0',T21,IPO*ER«',F1.1)
IF(I.THETA) HRITC(IWR,6011) THETA
JF(,NOT.LTH£TA) »RITE(I»S,6012J RADIUS
6011 FORMAT!'1',T21,'SEARCH ANGLE'',F5,I)
6012 FORMAH '0' ,T21, 'SEARCH RADIUM',FT,2)
IFCNX.LE.O.OR.NX.GT.IO.CIR.NY.LE.O.OR.NY.GT.IO) GO TO 500
ALPHA* T HE TA»0, 008726616
RETURN
500 KRITE!IHR,6SOO)
6500 FORMA!('-',T21,'GRID OIMENSIONS ARE OUT OF RANGt,'/T21,
X 'EXECUTION TERMINATED,')
STOP I
END
BLOCK DATA
LOGICAL NOFACT.LTHETA
COMMON /FACTOR/ FACT(10,10,10),NOFACT
DATA FACT/1000*1,/,NOFACT/,TRUE,/
LOGICAL PRINT
COMMON /CNTRL/ PRINT
DATA PRINT/,TRUE,/
COMMON /GRID/ ORIGINC2),NX,NV,SX,Sr,THErA,LTHETA,RADIUS,POKER
DATA OR!GIN/0.,0,/,GX,GY/2M,0/,NXtNY/2*l/
END
-------
su2 cuN[muuriiM(S/cu, M) mo« SIGNIFICANT POINT SUUHCES i MUUK 2
R6CLI' »
1
?
3
'1
5
6
7
rt
9
10
11
15
13
1"
Ib
16
17
IB
19
20
21
2?
2!
if'i
?b
?fc
27
28
?9
30
41
3?
31
3'.
i',
31'
37
ih
39
Ho
0
^ 1
'j?
Ii4
'jtl
bS
bo
•i t
Srt
>iq
liij
1)1
6?
63
b<4
6b
66
67
68
69
7')
n
7 f
73
74
7
0 . II
II . 0
o.n
0 . (I
i.^ 1 ifc - 1 i
o.o
0 . il
II . 1'
0.0
0 .0
0 . 0
0 ,0
0 . 0
i.oim-u>i
O.Voot-'lo
0. o
O.o
0 . 0
0 . 0
II . '>
0 .
0.0
0.0
0.0
0.0
0.0
1 .90H-22
1. Bill-Ill
6.7l7t-05
9. 4 1 9t -06
1 .411 k -1 7
0.0
U.O
U.O
o.o
0.0
i.^bSt-^t
2.4o5k-U
0.0
0.0
0.0
O.U
O.U
1 .445E-04
l,153k-04
1,5696-06
4.8296-09
5,215t-05
0,0
6.436-1C
1 .bSut-10
4.6351-00
0.0
0,0
0,0
0.0
0,0
0,0
1,6096-10
5 ,P206-Ott
4,464^-05
2,1146-06
2.080E-24
0,0
0,0
0.0
0.0
0.0
Z.Ult-U
3.1016-09
0,0
0,0
9,40Bk-17
0,0
0,0
8,9796-12
1.306E-05
1.366E-05
o.o
0,0
7.3536-14
1,4236-07
8,3226-05
5,3986-Ob
0,0
1,9166-09
0,0
0,0
0.0
5.347t-07
0,0
0,0
0.0
U.U
0.0
0.0
U.U
0,0
0.0
U.U
11. 0
0,0
0,0
0,0
0.0
0,0
0,0
o.u
0,0
0.0
0.0
o.o
0.0
0.0
0,0
o.o
0.0
0,0
0,0
0.0
I - ^
o.u
U.O
o.u
o.o
0.0
0.0
0.0
0,0
0.0
0,0
0,0
0,0
o.o
0,0
7, 2866-09
3,4186-Ob
5.2286-12
0,0
u.o
o.u
o.o
0,0
0,0
6,5366-07
U.O
0,0
0.0
0.0
2 ,OS7t-08
&,219t-0t>
1.783E-07
8,1766-M
0,0
0,0
0,0
o.o
0,0
6 ,2596-0 1
1 ,3566-05
7,5096-06
7.76BE-0?
6.837E-10
0,0
0,0
U.O
U.O
o.o
2,9186-08
7,1476-06
TOTAL
S1GNIF
POINT
0.0
0,0
9.408EM7
0,0
3.619E-04
1.435E-04
1,5651-04
2,41 IE-OS
6,440E-06
2.02JE-04
7,4021-13
1,2206-01
U4816-04
5,70)6-04
5.95HE-06
1,3966-05
3.473E-04
2,198E-0«
5.347E-07
o.o
0,0
0,0
c.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
3,0286-15
0,0
o.o
U.O
0,0
0,0
0,0
0,0
0,0
1,0926-08
0,0
0,0
0,0
0,0
0.0
o.o
0,0
0,0
3, 0896-04
4,96bE-06
C.O
0,0
0,0
0,0
u , 0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
7.266E-09
512286-12
0,0
0,0
0,0
0,0
0,0
0,0
1,5356-01
0,0
0,0
0,0
o.o
i,657E-08
8,2416-06
5,6726-05
8,1766-11
0,0
0,0
0,0
0,0
0,0
6,2616-07
l,602t-OS
3,03116-04
1.2J1E-05
6,8376-10
0,0
0,0
0,0
0,0
o.o
3,0076-08
7.166E-06
TOTAL
ALL POINT
SOURCES
o.o
0,0
9.408E.17
o.o
3.619E-04
1 ,435E«04
1.S65E-04
2,411E-05
6,440E»0»
i,023E-0«
U220E-04
l!«BU«04
5,7036-04
i!3»6E-05
3»S73E»04
2 , 196E-04
5,3476-07
0,0
0,0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
o.o
3,028,1-15
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
1 ,0926-08
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
3,0896-04
4,9666-06
0,0
0,0
0,0
0,0
u , u
0,0
0,0
0,0
0,6
0,0
o.o
0,0
o.o
7.266E-09
UUgU|2
0.0
0,0
0,0
0,0
0,0
0,0
1.535E-04
0,0
0,0
0.0
0,0
2.657E-08
8,241 E-06
5.672E-05
8, 1766-1 1
0,0
0,0
0,0
0,0
0,0
6,2616-07
1 .602E-OS
i,034E»04
1.23IE-05
6,8376-10
0,0
0,0
0.0
0.0
6,0
3.007E-0*
7.166E.06
-------
101
10?
103
101
105
106
107
10»
109
110
111
113
113
111
115
116
117
lit
119
120
121
12?
123
124
1J5
126
127
12«
a
4
2
0
0
0
0
0
1
t
1
5
0
0
1
0
0
0
2
b
t
1
4
't
1
1
0
0
.II1H-06
,6JOe-05
.622E-11
,0
,0
1 1)
,1)
,0
.324E-21
,471t-lO
,169i-'J4
,694fc«06
,0
.0
,7141-22
,0
, ')
.0
.Jl't-l'
.965E-H
.965E-06
.039F.-04
.332E-05
,9606-07
.5HIE-I1
.246E-20
• <)
,0
1
7
1
1
t
0
0
0
9
1
7
1
1
2
2
0
0
0
a
1
4
4
3
1
3
1
0
0
,297t.0b
,868E-'!5
.0211-06
,3o7fc-H
.037E-23
.0
.0
.u
,42bt-lb
.051E-08
.iiet-05
.9816-05
.12BE-07
.J89E-12
.S74E-22
.0
.0
.0
,765t-17
.S24E-10
.ioet-ob
.J30E-05
.5195.06
,lbl6-')8
,libE-13
,a71E-22
.0
.t
2,615t-Qb
1.938E-OS
9.697E-17
0,0
0.0
0.0
0,0
0,0
2.22it-oa
a,072t»06
l,092E-Ob
l,«Ut.05
1,0251-il
0,0
0,0
0,0
0.0
0,0
6,21^1- 0.9
c,39<:t.0«
l,9D6t-07
2,626t»05
4,a3U-06
6,009a»13
0.0
0,0
0,0
0.0
a
y
b
2
0
0
0
0
2
2
2
7
t
1
0
0
0
0
5
7
7
7
2
3
6
4
0
0
,133t-07
,6711-05
.056E-07
.378E-JO
.0
,0
,0
.0
.umt-n
.247E.08
,3m-05
.273E-05
,3iet-08
.333S.21
.0
.0
.0
,0
.444E-11
, 56SE-10
.963E-06
,075t«05
.450E-05
.455E-07
,5836-11
.148E-1B
,0
.0
I.IJIE-OS
b,502t-06
B.49jt.07
2.B7BI.IO
6.135E-25
0,0
0.0
0,0
2,«27E-07
9.418E-06
1.103E-05
4.184E-06
3.503E-07
1.156E-12
0,0
0,0
0,0
0,0
2,5761-06
.951E-07
.291E-06
,709E«Ob
,363t-06
.769E-06
,15bt>lO
.IS&E-lb
2.059E-26
0,0
5.929E-05
2,27kE-0«
2,376E»06
3.009E-10
l,09Bt-23
0,0
0,0
0,0
3,0b0t-07
9,SJ9t-0»
2.J60E-OH
l,i*5E-0«
H.766E-07
j.saiE-ii
1.0a8t-22
0,0
0,0
0,0
3,1981-08
l,020E-Ob
5.769E-05
2,5391-01
7.73H-05
9.007E-07
J.976E.-10
1.19U-15
2,059t-26
0,0
5.929E.05
2.276i«0<4
2.J76E-0*
3.009E-10
1,09BE.2J
0,0
0,0
0,1)
3,0501-07
9.531E-06
J,360t-01
1,1 656-01
1,»66E«07
3.b«5E-l2
4,oees-22
0,0
0,0
0,0
J,i9B£"0«
1.020E-06
5.769E.05
2,539t«0»
7,me-oi>
9,007t.07
1.976C-10
1.19U-15
2,0591*26
0,0
CUNTmbbHUNlG/CU.") MOM JUKNIF IC«NT ARE* 80UHC.t3 I HOUN 2
3 i| 5 0 7
IUT«L
31GNIF
AKtA
SDUHLt t
HECtP *
1
?
3
4
5
6
7
rt
')
1 0
11
13
13
11
1'j
11
17
1»
19
25
2!
22
23
24
2'>
26
27
?»
21
30
31
32
35
34
35
3r>
37
3B
39
40
11
43
41
41
15
46
47
4«
49
50
51
52
55
54
55
56
b
0, 0
0,0
O.I)
0.0
0,0
b,6ft Vf
D,H
0. 0
<) . b
0,1)
0 . ii
u . u
0 . 0
II . 0
U . (1
II , II
O.U
1). 1)
1), 0
II . ft
II. 1)
II . 1)
0. 0
0 , II
Ij. 1)
0 , 1)
1) , 1)
0, I)
1). f)
O.I)
1). I)
II. ')
0. I)
D.I)
0 , 0
0 . 0
!),!>
0.0
0. I]
0 , II
U , 1)
0 . 1
It. 1
II , 1
II. I
0 • 1
0 .1
11,11
11,1)
0,0
0,0
(1,11
1). 1)
0,0
0 .<)
0.0
2
0,0
0.0
0.0
0,0
0.0
.1/6 0.0
0.0
0.0
0.0
1.36»t-»5
0.0
J.0ti4fc-00
0.0
0,0
0.714fc-i>6
2.2(<4f-ob
0.0
0.0
0.0
O.U
0 .
0.
0 . C
0 , 1
0 .
0.
0.0
0.0
0.0
0.0
0.0
0.0
o.o
0,0
0.0
O.U
0.0
0.0
0.0
0.0
0.0
0.0
(1.0
0.0
0.0
0.0
0.0
0,0
0,0
0,0
0.0
U.v'
0.0
0.0
0.0
0,0
3
0,0
o.o
0.0
0.0
0,0
0,0
o.o
0,0
0.0
0.0
l.i'Mt-O'i
0,0
0.0
il.O
0.0
0.0
1.775t-l)b
0.0
0.0
o.o
0.0
0,0
0.0
0.0
0.0
0.0
0,0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0,0
0.0
o.o
0.0
4
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
1.477E-05
1.769t-0b
I..C
3.52Bt-00
0.0
0.0
7.b2bE-Ob
0.0
0.0
2,ll)4fc-05
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0.0
0.0
0.0
0,0
0.0
0.0
o.o
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
0,0
b
o.o
0,0
0,0
0,0
0,0
l),0
0,0
o.o
0.0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
o.o
0,0
l,4J2E-Ob
0,0
0,0
0,0
0.0
0,0
0.0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
l,120t-05
0,0
0.0
0,0
0,0
0,0
0.0
0.0
0.0
0,0
o.o
0,0
o.o
0.0
o.o
1
0.0
0.0
0,0
0,0
0,0
0,0
0,0
1 .442E-07
0,0
0.0
o.o
0.0
0.0
l,l23E-Ob
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
o.o
0,0
0,0
o.o
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
7
0,0
0,0
0,0
0,0
0.0
o.o
9.350E-07
B,736t-07
0,0
0,0
0,0
0,0
9, 0076-07
8.748E-07
0,0
9,9'I3E»07
0,0
0,0
0,0
0,0
3,}83t-06
0,0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
3,0b7t-0*
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
l,5T3t«07
9, 9251-07
0,0
0,0
0,0
0,0
0,0
rui»L
ALL AHtA
SUUKCIS
0,0
0,0
0,0
0,0
0,0
b.bb9t
9.350E
i.oiet
1.177t
2,0<45t
I.27H
7.21H
9,007t
1.997E
1,4311
2,3S/lt
l,775t
2,101t
1.152E
0,0
3.39JE
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
i,0b7t<
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
l.ldOt'
0,0
0,0
0.0
0,0
0,0
0,0
0,0
1.573E'
9.925E'
0,0
0,0
0,0
0,0
0,0
-05
0.0
0,0
0,0
0,0
0,0
-06 b,bb9t-06
-07 9,.i5oe-07
-06 l,0iet-0b
-05 1,1776-05
-05 a,045E-05
-05 i,27iE-os
Ob 7,211C-06
07 9,007t-07
06 1.997E-06
05 1.434E-05
•Ob 2.3B4E-05
1.775t-0b
•Ob J.I01E-05
•Ob l,152E-Ob
0,0
• 06 3,58JtiOt,
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
•06 3,05ft-06
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
Ob l,120t-0b
0,0
0,0
0,0
0,0
0,0
0,0
0,0
07 1.57JE-07
07 9,92bEi-07
0,0
0,0
0,0
0,0
0,0
-------
b7 .1, )
5B U. )
51 11,1
60 0, i
61 0,1
6? I). 1
63 0.1
64 0,1
6S 0,1
66 II, 1
67 0,U
bH 11,0
61 0,1)
7(1 0.0
71 0,,,
7? o.i,
73 0,0
74 o.il
7b 0,11
76 o,fl
77 o.i
7« 0,1
71 0,1
HO o , '
81 0.1
Hi 0,1
«3 o.o
84 0,0
rtS 0,0
86 0 , 0
«7 0.0
dB 1,0
B1 1 , )
10 1, )
11 ), I
9? ,, I
13 1, 1
14 0,0
1b 0,0
16 0,0
17 0.0
IB i.i.
11 ),o
100 1.0
101 l.'i
10? '.n
103 1.0
lO'l 1.0
105 I.I)
106 ),!>
107 i.ii
10H >.»
101 1,11
llo i) . o
ill u.o
11? U, U
113 u. i.
1 1 (| 0 . )
lib II. U
lid u. u
117 II.. 1
11B 11. 1
111 0.0
12D 0.0
121 i,..
12?. I.ii
123 i."
124 1.0
125 i.u
120 «...
1?7 o.o
12H o.il
U. 0
') .0
0.0
0.0
0.0
U.O
U.O
u.o
0.0
U.O
0.0
0.0
0.0
u.o
u.o
u.o
u.o
0,0
u.o
«.o
u.o
u,o
u.o
0.0
u.o
u.o
'! ,0
U .0
u.o
u.o
u.o
U.I)
0.0
0.0
3,06«t-i)0
0.0
0.0
0.0
o.o
u . u
J.O
U . u
U.I)
0.0
0.0
0.0
u.o
n.O
U.U
0.0
u.o
t; , D
0.0
0.0
U.o
I'.O
1. . 0
0.0
o. J
U.o
0.0
0 . 0
.' . U
u , u
0 ,u
0 .0
0.0
1). 0
0. o
'0 , ll
0.0
u. 0
0.0
u.o
0,0
0,0
0.0
0,0
0.0
0,0
0.0
0.0
0.0
0.0
0,0
0.0
0,0
0,0
0,0
o.o
2 , 790t-0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
o.o
0,0
0.0
0,0
o.o
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0 .0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
U.O
0,0
0 ,0
ti.O
0,0
0,0
0 .0
1 .0
0,0
U.O
u.O
0,0
'J.O
o.O
0.0
3,0
0,0
n.O
«' ,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0.0
0.0
0.0
0,0
0,0
0.0
o.o
0,0
' 0,0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
3. ia
0,0
0.0
0.0
0,0
0.0
0,0
0.0
11,0
0,0
0,0
0,0
0,0
0,0
0.0
o.c
0.0
o.c
0.0
0.0
0,0
P.O
0,0
0.0
0,0
0,0
0.0
0,0
0.0
0.0
0.0
0,0
0,0
0,0
0.0
0 ,0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
o.o
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
't-Ok 0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0.0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
o.u
0,0
0.0
0,0
0.0
0.0
0.0
o.o
0.0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
2.S72E-06
1,7«1E-07
0.0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0,0
2, 0711-07
7,056t-07
0.0
0,0
0.0
0.0
0,0
0,0
0,0
4,i24E-07
7,216t-07
0.0
0,0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
6.152E-07
3,Ob2E-o7
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
6.184E-07
7,bB4E-UB
0.0
0.0
0,0
0.0
0,0
0.0
0.0
0 ,0
0.0
0.164t-07
0,0
0,0
0.0
0.0
0,0
0.0
0.0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
6,7711-07
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
4.401E-OB
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
6.b17t-07
0.0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0.0
B.7oSt«07
0.0
0.0
0.0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
2,5/2E«06
l.OiHE-OC
0,0
0,0
0,0
0,0
0,0
0,0
o.o
2,7906-06
0,0
0,0
0,0
0,0
2.074E-07
7,656fc-07
0,0
0,0
0,0
0,0
0,0
0,0
0,0
4,i24t-07
7,6b6k-07
7,0i0t-06
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
6,>(52t-07
l,0»bE-06
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
6,16«t-07
1,i.S3t-07
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
6.184E-07
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
2,S72E"06
l.OSZE-O*
0,0
0,0
0,6
0,0
0,0
0,0
0,0
i,7«oE.ot
0,0
0,0
0,0
0,0
J.074E-07
;,oboE.07
0,0
0.0
0.0
0,0
0,0
0,0
0,0
4,b24E-o?
7.6!>6E-07
/.ObOt-00
0,0
0,0
0,0
0.0
0.0
0.0
0,0
0,0
t>,V«fo7
l,01bE-06
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
6,?61|E»07
-------
REC6PTUR NO,
1 1
Z 1
3 1
4 I
5 P
6 P
7 P
» P
9 P
10 P
it P
12 P
is
11
15
16
17
18
19
JO
21
22
23
24
25 H
26 H
27 H
20 H
29 H
30 H
31 n
J? n
35 M
31 H
35 H
36 n
37 H
3« h
39 n
4 .iU
I9.5D
22. SO
25.50
28.50
12,00
15.00
18.1)0
21.00
2 '4 . 0 0
27.00
30.00
1.50
'4 . 5 ()
10,riO
li.50
16.50
19.50
22.50
25.50
26.50
9.00
21,00
24,00
27,00
30,00
1.50
4,50
10.50
13.50
16.50
19.50
22.50
25. SO
28.50
3.00
6,00
9.00
12,00
15.0(1
18,00
21.00
24.00
27.00
30.00
1.50
4.50
'.50
JO. 50
13.50
NURTh
15,00
13,00
15,00
17,00
7,74
10,62
15,68
1»,9U
5,58
8,48
10,34
12,83
9,43
11,35
0.19
10,15
8,75
7,16
6,13
15,00
4,00
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
2,60
2,60
2.6D
2,60
2,60
2,60
2,60
2,bO
2,60
2,00
b,20
5.20
5.20
b,20
b,20
5,20
5.20
5,20
7.79
1 . 79
/ 79
7.79
7.79
7.74
7,79
7,79
7, 79
10,39
10,39
10. -IV
l'),39
10,39
10,39
10,39
1?,99
12.99
12.99
12,99
12,99
12.99
12.99
12,99
12,99
15.59
15.59
15,59
15.59
lb.59
18.19
18,19
18,19
18.19
1«.19
10,19
18.19
18,19
18,19
20,76
20,78
20, 76
20,76
20.78
20.78
20,78
20,78
20,78
20,78
23,38
23,36
23.36
23,38
23,38
TUT»L FRO«
SlUuIf PUIKIf
SOURCES
0,0
0,0
9,40791.17
0.0
3,6189C>04
1,43521.04
1.5647E«0«
2.4106E-05
6,''l403t.OG
2,02i6E.O«
7,401»t-13
l,219Bt-04
2,40UE«04
l,4»06E«04
5.7029E.04
5.9S45E.06
1.3962E.05
3,47i«t»04
2,19816.04
5,347|E-»7
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
3,U276E-15
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
1.09I5L.-08
0,0
0,0
0.0
0.0
0,0
0.0
0,0
o.u
3,0892t"04
0.0
0, 0
0, 0
0,0
o.u
0. 0
(1.0
0.0
(1,0
0,0
0.0
0,0
0,0
7 ,2B5bE.Q9
1 ,tj409t.04
5.22B4E-I2
0.0
(1,0
0,0
11.0
o,y
0.0
l,5i45E-(l«
0,0
0.0
0,0
0.0
2.656BE-11H
ti.2405E.06
5.6716E-05
ti. 1 761E.1 1
0.0
0.0
o.o
0.0
0.0
b,2605E-07
1,60186-05
3.0340k* 04
l,2309t-05
6.B374E-IO
0.0
0.0
0,0
0,0
0,0
3.0074E.OB
7.1662E-06
5.9295E-05
2,27576-04
2,S760E-Ob
1UTAL F»OM
ALL POINT
SOURCES
o.o
0.0
9,n079t"l7
0,0
3,6189t-04
1.43526-04
1.5647E-04
2.4106E-05
t>,i|403E-06
2.D226E-04
7, 00196. 13
1,21981-01
2.J4012E-OU
!,4806E.04
5.7029E-04
5,9545E.06
1.3962E-OS
3.0720E-04
2.198U.04
5.3471E-07
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
3, O27ot.lt,
0,0
0,0
0.0
O.u
0,0
0,0
0,0
O.U
1.0915E-OB
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
3,u892t-04
0.0
0.0
0,0
o.o
0.0
o.o
o.o
o.o
D.O
o.o
o.o
o.o
0,0
7,5856t-09
1.«409E'04
5.2284E-12
0.0
o.o
0,0
0,0
0,0
0,0
l,S3«5t-0«
o.o
0.0
o.o
o.o
2.6566E.OB
B.2405E-06
5.6718E'05
6.1761E-11
0.0
0.0
0.0
0.0
0.0
6.260SE.07
1.6018t-05
3.0340E-04
1.2309E-05
6.8374E.1D
0.0
O.o
0,0
0,0
0.0
3.0074E.08
7.1662C.06
5.929SE-05
2.2757E-04
2.37bOE*06
TOTAL FBUK
3I(fMF »HtA
SHURCES
0,0
0.0
0.0
0.0
0,0
5,0692t-06
9.3495E-07
1, 01786-06
1.U767E-05
2.0451E-05
1,27116-05
7.2111E-06
9,00701-07
l,997aE-06
1.U339E-05
2.3838E-05
1,77476-05
2.1043E-OS
1.4523E-05
0.0
3.3B13t>06
0.0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
3.057U.06
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
1.1202E-05
0,0
0,0
0.0
0,0
0.0
0,0
0,0
1.5733E-07
9,9249E"07
0 0
0,0
0,0
0,0
0.0
0.0
0.0
0,0
0.0
0,0
0.0
0,0
0.0
0,0
2.5716E-06
1.0520E-06
0,0
0.0
0,0
0,0
0.0
0,0
0,0
2,78996-04
0,0
0,0
0,0
0,0
2.0736E-07
7.6561E-07
0,0
0,0
0,i>
0,0
0,0
0,0
O.P
4.5240E.07
7.655BE.07
7,05031.06
0,0
0,0
0,0
0,0
O.u
0.0
0,0
0,0
6,95191.07
1.0449E-06
0,0
0,0
TOTAL FROM
ALL AREA
SOURCES
0,0
0,0
0.0
0,0
0,0
5.6692E-IJ6
»,3««S£.07
1.017BE-06
1.47671-05
2.0451E-05
1.2711E-05
7.2111C.06
9.0070E-07
1,997«E-IJ6
1, 43396" OS
2.38J8E-05
l,77«7t«05
2.1043E.OS
1.4523E-05
o.o
3.3833E-06
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
3,0571E-Ot>
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1.1202E-05
0.0
0,0
0,0
0.0
0,0
0,0
0.0
1.5733E-07
9.9249E-07
0 0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
o.o
0,0
o.o
0,0
2.5716E-06
t,0520t-06
0,0
0,0
0,0
0,0
0,0
0,0
0,0
2. 7899E-06
0,0
0,0
0.0
0,0
2.0736E.07
7.6561E.07
0,0
0,0
0,0
0,0
0,0
0,0
0,0
4.5240E.07
7.6558E.07
7,0503E»06
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
6.9519E.07
l,OU49t-Ot>
0,0
0,0
TOTAL FRO"
ALL JOUNCES
0.0
0,0
9,40m-17
0,0
3.6189E-04
1. 49191.04
I.i7«0e-0<
2,5126t-05
2.1207L-05
2.2271E-OU
1.2711E-05
1,2»19E"0«
2.4102C-04
1.5005E-OI4
5,94»3t.OU
2.9792E-05
3,17096-05
3,6631E.04
2.3433E.04
5.3471E-07
3.3933E-06
0,0
0.0
0.0
0,0
0.0
0.0
0,0
o.o
0,0
0,0
3,U571E-06
3.0276E-15
0.0
0.0
0.0
0,0
0.0
0,0
0,0
0,0
1.1213E-05
0.0
o.o
0,0
o.o
o.o
0.0
0,0
1.5733E-07
3.0991E-04
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0,0
0.0
0,0
0.0
0.0
2.57896-06
1.8514t-0
-------
104 H
lOb H
106 h
107 h
I0« M
lUf M
1 1 U t1
111 n
11? h
1 13 h
1 14 n
11 'l M
110 M
117 H
11« M
119 M
1 2'J M
121 M
1?2 n
Ui n
12
0. r
0
i.v,*.''.L-lf
<.-.
l^bb/t-O?
3.!)446t-12
4.0881 t-22
0.0
O.U
0,11
3.1977t-08
b.7692t-0b
2.Si8Ht-04
7.7328t-05
9,ouo7f-0(
1.97S96-10
1 * 1906E-) b
2.0"b90t-26
0,0
0,0
1. 0
si , n
r, , '
Of'1
9.S5346-07
O.I)
0 , 0
0.0
0.0
0.0
0,0
0,0
0.0
6.983bt-07
0.0
0.0
0,0
0,0
0,1)
o.n
0,0
0,0
0,0
0,0
1 . 'l
i' , U
(•.o
'i.bWt-O?
Oil
. u
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
6.9IJ35E-07
0,0
0,0
0.0
0.0
0,0
0,0
0,0
}.0090b-l 0
1.0980t-23
0.3
I'.O
0,U
i.049bt-07
1 *0236t*05
2,369bt-04
1 16b4t*0tt
4.7657t-07
3,544Bt-12
4,0«8H-22
0,0
0,0
0,0
3,l977t-08
slej9ot-ob
2,536bt-04
7,7J26E-05
9,0067t-07
1.975
•/
tl
M
1 '1
11
1,'
11
11
I'l
10
17
IN
19
20
21
??
2.1
24
2'j
2fc
27
2"
29
3D
31
3?
33
3 . '> b $ t
2,24bt
9.US4F.
.. .'-(bit
L . i;
s, / w.
o.o
0.0
o.o
-I J
.n^
-IV
-Ott
-Ob
-Ob
-la
't . b J b L - U (J
n . U
0 .
t1 . '
0 . U
U.O
0. U
U.O
0.0
0.0
0.0
»,Q
u . fl
, J
0 . J
' i 0
0 , u
0.0
0.0
1), u
U ,0
1.1,0
U , 0
U.O
0.0
0,0
0.0
0,0
o.o
II , 0
[J . li
0,0
0,0
0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
2,150t-OU 2.1bOt-0«
2,634t-lb 2,a34t-15
6,719t'06 6.M9E.06
I.l55t»08 l,lbbE-OB
2.U6E-07 2.1766-07
«,22bt-05 D,225t't>5
l,V«Bt-16 l,14»t-16
2,24bt-06 2,24bE-08
1.956E-04 l.Vbot.04
4,95Bt-Ob 4,95at.OS
1.716t-04 1.7UE-04
2,1.9t»0b 2,119t-05
2,692t-06 2.092E-06
4.452E-04 4,«52E>04
l,052t«06 1.052E-06
2,243t-04 2,243t-0«
3.966t'06 3,966E.Ob
7.371E-19 7,371t-19
0,0 0,0
0,0 0,0
0.0 0,0
0,0 0,0
0,0 0.0
0,0 0,0
0.0 0,0
0,0 0,0
0,0 0,0
1,043E«09 l,0«3t»09
4.684E-05 4,»64E-Ob
1,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 o.o
0,0 0,0
0,0 0,0
o.o 0,0
l,611t-17 1.011E-17
o.o o.o
0,0 0,0
0,0 O.U
o.u o.o
0,0 0,0
0,0 0.0
0,0 o.o
2,5b2E'04 2,bB2E.04
04 U,446Er04
• 07
0,0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
-------
57
SM
59
6(J
61
62
63
6'l
6'j
66
67
6rt
69
7';
71
7?
71
71
75
76
n
7"
79
80
HI
If
S3
H<(
H'j
fjb
H7
fl'l
H9
90
9 1
9?
9 5
9(1
9S
9ti
97
9H
99
1 00
101
102
lu'.
lO'l
10'.
1 06
107
1 0«
1 09
110
11 1
11?
113
I I'l
1 1 ')
tl , 11
0,0
0.0
0,0
0 .0
0 . 0
{) , <
0.0
o.o
0.3
0.0
0,0
0,0
0.0
0.0
0.0
0.0
i ,a9it-o 1
0,0
0.0
O.t)
o.o
0.0
0,0
0.0
0.3
0.0
0.0
0.0
0.0
f ,'3^'tl' f/lfj
0.0
0.0
0.0
0. 0
0. 0
0.0
'J.O
') . 0
i. 5581- -1 '4
0.0
'1.0
0.0
0.0
0,0
0 .0
0, <)
0.0
0.0
1 . 3261 -<)H
0.0
0.0
0.0
0.0
0.0
0. 0
0.0
0. 0
0.0
1.2IW-12
0.0
0.0
0. 0
0. 0
0.0
0.0
0.0
0.0
0.0
l,19Jt-2fct-25
0,0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
o.o
0,0
0,0
0.0
0,0
0,0
1.9l8t-ll
0,0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
6.flfl9E-06
i.noai-o?
0,0
o.o
0.0
0.0
0.0
0,0
0,0
3.6t>0k-11
0,0
0,0
0,0
0,0
0,0
0,0
0.0
o.o
0.0
2.307E-I5
0,0
0.0
0,0
o.o
0.0
o.o
0.0
0,0
0,0
0.0
0,0
0,0
0.0
o.o
0.0
o.o
0.0
o.o
o.o
3.U5Jt-l5
0,0
0,0
0.0
0,0
o.o
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
i.ioifc
•07
2.986E-05
0,0
0,0
0,0
0,0
0,0
o.o
0,0
o!o
0,0
0,0
0,0
7, J«0fc
9.827E
0,0
0,0
0,0
0,0
0,0
0,0
0,0
-09
• 06
• 06
• 1)6
1.492E-I4
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
8 ,360t
3.80«E
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1 , 7o?t
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
2,2J7t
0,0
0,0
o.o
0,0
o.o
0,0
0,0
0,0
-07
•21
• 1 1
• 09
»2Z
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
9,7506-05
a,035t-0b
0,0
0,0
0,0
0,0
o.o
0,0
0,0
2,5966-09
0,0
0,0
0.0
o.o
2,256t-05
l,029t-05
0,0
0,0
0,0
0,0
0,0
0,0
0,0
6.466E-06
J,0t«E-07
0,0
0,0
0,0
0,0
0.0
0,0
0,0
o.o
2,855t-05
U.902E-11
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
l.8iOE-ll
o.o
0,0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
11,4
0,0
0.0
9,?50t-05
8.01SC-0*
0,0
0,0
0.0
0,0
0,0
0,0
o.o
2,S«»t-09
0,0
0.0
0,0
0,0
2.2S6E-05
l,02»e-05
0,0
0,0
0,0
0,0
0,0
0,0
0,0
t>,46»t-06
,},dl4t-G7
0,0
0.0
0,0
0,3
0,0
0,0
0,0
0,0
2, 8556-05
«,902E-11
0,5
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1, »10t. 11
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
-09 H.7H9E-Q9
2.217t-22 2,23
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
0,0 0,0
i), 0 0,0
-------
SUS CUMmilUlIl)X(5/CJ,M)
HECtP
1
It,
17
1')
23
5 'I
3?
.55
3 'I
3cj
31
i7
J"
'II
'I?
'13
67
68
I.1)
70
n
7'
73
7')
7S
76
77
M
fl?
lii
81
H5
rtft
«7
91
92
1 00
101
10?
103
1 O'l
I0r>
I
I
0.0
0.0
(J .0
o.u
o.o
0.0
0.0
0.0
0.0
l.077L»liS
0.0
0.0
0.0
0. 0
0.0
t.iil* -Db
0.0
0.0
0.0
0.0
0.0
o.)
O.D
0.0
0.0
0.0
o.c
U . 0
n.o
11,1
" . V
0.0
0 . 0
0 . '-
0.0
0.0
0 . 0
- . V
0.0
0.0
0.0
0.0
0. 0
J. 0
0.0
0.0
y , y
0.0
0. J
o.o
11,0
J . 0
0 . 0
0."
J . u
't.O
,l.g
0,0
0. u
i; . o
(' . "
0. J
0,0
0 . 0
0, 0
0.0
0.0
0.0
0.0
0 . 'J
0.0
0 .0
0.0
0.0
0.0
0.1)
0,0
0, 0
J.O
0.0
0.0
0 . J
0.0
0.0
0.0
0,0
0,0
0 . 0
0 , J
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0. 0
0.0
0.0
0.0
n.3
0.0
0.0
0.0
u.o
0.0
3
3
0,0
0.0
0,0
0 .0
n.o
0.0
0,0
0,0
0,0
l.,911E-Ob
0.0
0,0
0.0
0,0
6, 7(4bt-Ub
0,0
t.OoKK-OS
0,0
0,0
o.o
0.0
o.O
0,0
0,0
0,0
0.0
0.0
0.0
0.0
0,0
0.0
0,0
0,0
t/.O
0,0
0,0
0,0
0.0
0.0
0,0
o.o
0.0
0.0
0.0
0,0
0 . 0
0,0
0,0
0.0
0 .0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0,0
0.0
0,11
0,0
0.0
o.o
0.0
0.0
0.0
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0.0
3,0
0,0
0.0
0.0
0.0
0.0
0.0
0,0
0,0
0,0
0,0
0.0
0,0
4
14
0.0
o.c
0,0
O.I)
0,0
o.o
0.0
o.c
1.209E-OS
0,0
0,0
0.0
0,0
0.0
0.0
t.236t-06
0,0
l.&SOt-OS
0.0
0.0
0,0
0.0
0 .0
0,0
u.o
0.0
o.c
0.0
0,0
0,0
o.o
0,0
0,0
0.0
0 . 0
0.0
0.0
0.0
0 . 0
0 . 0
o . ;)
0 , 0
0.0
0.0
0,0
0.0
O.il
0 .0
0,0
0.0
0.0
0 .0
(1,0
0.0
0 . 0
0.0
0.0
0,0
0.0
0 ,0
0.0
0.0
0.0
0.0
O.o
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0,0
0,0
0.0
0.0
U. 0
0.0
0.0
0,0
O.I)
0.0
0,0
IJ.O
0,0
0,0
o.o
0,0
0,0
0.0
o.o
o.o
0.0
0,0
0.0
0,0
0,0
0.0
0,0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
o.o
i
|3
0.0
0,0
o.o
0,0
0.0
b.O
0.0
0,1-
6, 661 t-06
o.o
0,0
0,0
0,0
o.o
0,0
0.0
0,0
3,b22S-Ob
l,79»t-0'J
o.o
0,0
0. 0
u.o
0,"
o.o
0,0
0,0
o.o
o.o
0,0
0.0
o.o
o.o
0.0
o.o
0,0
0,0
0.0
0.0
o.o
0.0
1 ,b99t-0i)
o.o
0.0
o.o
0,0
0,0
0,0
0,0
0 .0
o.o
o.o
0."
l/.o
,f , '
0.0
ii . ;
0.0
0 , 0
o.o
0.0
0,0
0.0
0.0
0,0
0.0
0,0
a.o
0.0
0,0
0,0
0,0
o.o
0,0
0,0
0 ,0
0,0
o.o
0,0
0,0
J.O
J.O
0.0
II. J
o.o
J I ')
o.o
0,0
o.o
o.o
0,0
0,0
0,0
0.0
o.o
0,0
0,0
0,0
0.0
0.0
0,0
0,0
0.0
o.o
0,0
0,0
l>
1
0.0
0,0
0,0
C.o
0.0
0,0
0.0
0.0
0.0
0,0
0,0
0.0
0,0
l.lBlt-Ou
0,0
0,0
0.0
0.0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
o.c
0.0
0.0
0,0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
0,0
0,0
0.0
0.0
0.0
o.O
0 .0
0.0
(1,0
0, 0
0.0
0.0
0 .0
0.0
o.c
*) .0
0 . |l
u.o
( , ',
- . s.
O.I:
0 . "
0,u
o.o
o.o
0 . v
O.I)
i,o99fc-01i
0,0
0,0
0 ,0
0 ,0
0 ,0
0,0
0,0
0.0
0,0
0, 0
0, 0
0,0
o.o
0,0
0.0
0,0
0 .0
0.0
0 ,0
o.o
0.0
0.0
0.0
0,0
0.0
0,0
0.0
o.o
0,0
0.0
0,0
0.0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
o.o
7
7
0,0
0.0
0.0
0,0
0 .0
I, I
",o
0 ,0
0,0
0,0
0,0
0.0
(i. 006t*o7
l.OOit-Od
0,0
0.0
0.0
0 .0
0,0
n.o
3,21SE*Ob
0.0
0,0
0.0
0.0
0,0
0,0
0. 0
0.0
0.0
0.0
3.1b7E-06
0,0
0,0
0,0
0.0
0.0
O.ll
0,0
0.0
0. 0
0.0
o.o
0.0
0.0
0.0
0.0
0.0
0 .0
fc. Utifct-0 7
<4, 7bbfe-08
0.0
0. 0
0,0
0. '
0,0
'1 . 0
0 . U
0.0
0 ,'\
0,0
0,0
0,0
0 i •'
0 . 0
0.0
b.3b«t-07
0 . 0
0.0
0,0
0.0
0.0
0,0
0 ,0
0,0
0.0
0 .0
0,0
0 .0
0 ,0
0.0
0..)
') ,0
0, 0
0 , 11
0.0
0 ,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
0.0
0.0
TU1AL
SII.NIF
ARM
0,0
0,0
0,0
0,0
0,0
0,0
0.0
u,0
l,875t-0b
l,771E-Oi
0,0
0,0
o,ooat-o7
&J7161-06
2.6Blt-05
212031-OS
1.798E-05
0,0
3,
-------
10«
101
110
111
iia
113
11 '(
115
lib
117
118
lit
IS')
121
12?
123
!?1
l?5
12b
127
12«
0,11
0 ,0
11.11
0.0
0 ,il
U,l)
0,0
0.0
0.11
O.I)
U.I)
U.I)
.1.0
0,0
0,11
0,1)
0,1)
0,0
0,1)
0,1)
0.0
0.0
o.o
U.Q
0.0
0,0
0.0
0,0
0.0
0.0
0,0
0.0
o.o
0.0
0.0
0.0
0,0
0,0
0,0
0,0
0.0
0,0
o.o
0,0
0,0
0.0
0.0
0,0
o.o
o.o
0.0
0,0
0,0
0.0
0.0
0.0
0,0
0,0
0.0
0.0
0.0
0,0
0,0
0,0
o.o
o.o
0.0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
0,0
0.0
0.0
0.0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
o.o
0,0
0,0
0,0
0.0
0,0
0,0
0,0
o.o
u,o
0,0
0,0
0,0
0,0
0.0
0,0
0,0
o.o
0,0
o.o
0,0
0.0
9.U9E-07
0.0
0,0
O.I)
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
o.o
0.0
o.o
0,0
0,0
0,0
0,0
5,167t-07
0,0
0.0
0,0
0,0
0,0
0,0
o.o
11,0
0.0
0.0
0.0
0,0
0.0
0,0
0,0
o.o
0,0
0,0
0,0
o.o
0,0
o,u
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0 0,0
1.16lE-Ob l,«b1E-Ob
0,0 0,0
0,0 0,U
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
•JUMARY 3U2 CONCENTRATION T»BLt I HUUN 3
HUUM M[xlN(f TErtP STAblLlfY
HEIuHKM) (K) CLAoS
3 600.00 28D.OO 2
OlATIOn NU. HINO 31rttCTIUM »INO SPEED
(DEI;) in/a)
1 90,00 1,00
2 90,00 5,00
3 90.00 5,00
1 90,00 5,00
5 90,01) 5,00
b 90,00 1,00
7 90,00 J,00
a 90,00 5,00
9 90,00 6,00
10 9 u , I) 0 5.00
11 90.00 5,00
12 200,00 1,00
13 200, ') 0 1,00
11 90,1)1) 5,00
Ib 90,00 5.00
lu 90.00 6,00
17 90.00 b.OO
ID 90,00 5,00
19 190,00 5,00
20 200.00 1,00
21 200, '10 1,00
22 90.00 1,00
23 90,00 b.OO
21 90,00 5.00
25 200,00 1,00
KECtPtUH I.U. KAST NUHlrt TUML fROM TOTAL KHUM
SJGNU PUINT Al I PUINT
1 I
:> J
3 I
1 I
5 P
b P
7 I'
h p
9 P
10 P
n P
I? P
13 H
11 P
15 A
16 »
17 A
1« A
19 A
20 A
21 A
t? H
23 11
21 ti
25 H
20 H
27 H
2« h
29 h
30 h
31 H
3? M
33 N
31 n
35 M
3D H
37 M
3« H
39 B
10 H
11 N
1? h
13 P
0
0
u
0
1
1
2
2
3
3
4
'I
5
5
&
r!
3
4
5
1
7
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
17.00
15.01)
13.00
15.00
8.73
7.o«
0.76
6.26
6.19
6.79
8.05
7.01
3.22
3.B9
7,01
6.03
7.79
5.96
7.7b
2.40
2.13
3.00
b.OO
9,00
12,00
15.00
18.00
21.00
21,00
27.00
30,00
1.50
1,50
7,50
10.50
13.50
lb.50
19.50
22,50
25,50
28,50
9.00
12,00
15,00
li.OO
15,00
17,00
7,71
10,62
15,68
16,91
5,58
H,18
1 0, SI
12.62
9,13
11,35
6.19
10.13
8,75
7.16
o,li
15.00
1.00
n,0
0,0
() , 0
0.0
0,0
0,0
0,0
') , 0
0,0
0,0
2,60
2,60
2,00
2,60
2,bO
2,bO
2,60
2,60
2,bO
2,bO
5,20
5,20
SUUHCtS
o.u
0,0
u.u
0,0
2 , J196E-01
2.633BE.-15
6 ,71Bt)E-06
1 ,15501-06
2.1761E-07
6,?2lVE-05
1 .1177E-16
2,2155f-oe
1,95611-04
4.9577E-05
1 .7164E-01
2.1191E-05
2.6921E-06
1.1522E-01
1.0521E-00
2 «2l2bE-04
3,9677t-06
7,3711t-19
0,6
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
l,0131t-09
1,b83bt-05
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1 ,6106E-17
0,0
SOURCES
0,0
0.0
0,0
0,0
2.1496E-01
2.8336E-15
0,7188t-00
1.1550E-08
2.1761E-07
8.2217E-05
1.1177E-16
2.2155E-08
1 ,95blE*04
4, 95771-05
1.7U1E-OU
2.1194E-05
2,692U-Ob
1.1522E-01
1.U521E-06
2,2126E>04
3.9677E-06
7.3711E-19
o.o
0,0
o.o
0.0
0.0
0.0
0.0
0,0
0,0
i,oi3ie-o9
1,b83bE-05
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1.6106E-17
0,0
TOTAL FROM
SIGnllF AREA
SOUHCES
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1.B747E-05
1.7715E-05
0,0
0,0
6.0080E-07
2. 1B26E-06
8.7162E-06
2.6610E-05
I,8614tr05
2.2026E-05
1.7976S-05
0,0
3.2150E-06
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
3.1669E-06
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
1.5993E-05
0.0
TOTAL FHU«
ALL AREA
SUUSCES
0,0
0.0
0.0
0.0
0,0
0,0
0,0
0.0
1.6717E-05
I.7715E-05
0.0
0,0
b,ooeot-o7
2,1626t-06
8.7462E-06
2.6810E-05
1.8614E-05
2.2026E-Ob
1.7976E-05
0,0
3.2150E-06
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
3,16691-06
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1.5993E-05
0,0
TOTAL KHOM
ALL SOURCES
0.0
0.0
0,0
0,0
2, 1196E-04
2,8343E-1 5
6,7188t-0b
l,1550E-Ott
1 ,t)964E-Oj
9.9962E-05
1.1177E-16
2.2155E-06
1.9611E-04
5.1759E-05
1.603BE-04
1.8001E»OS
2.1336E-05
1.6724E-01
1.90J9E-05
i, 2126E-01
7,18J7E-0()
7.37HE-19
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
3.1679E-06
1,h616£"05
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
l,b993E"05
0,0
LUHLbNTUA TlUN
RANK
36
39
10
11
5
31
22
29
1H
9
35
28
b
11
7
U
16
1
17
1
21
36
12
11
44
45
16
47
4H
49
50
24
13
51
52
5}
54
55
56
57
58
19
59
-------
'15 H
46 t
'17 ti
4H M
49 h
50 t-
s? H
53 H
Vi r
55 M
56 H
57 h
Sh i
59 ,|
60 M
61 ,1
6? |H
6 J M
fall '1
6'j n
46 H
67 »
6H H
69 n
/O M
71 n
1? H
f S "
7 'i f
/', H
/t> H
77 M
/H |,
7'l H
Hi) M
HI 1
H? M
H3 1-
H'l r,
H'j r>
HI- M
H7 .1
rtH M
HI H
91 H
'1 . 0 0
fl . 0 0
30.00
1.5C
'I.'JII
/.So
10.50
li.So
16.51
19. bO
ii, bO
25.50
26.50
S.iO
S,iO
siio
S.iO
7./'
7, /9
', 11
7.79
/ . 79
/ , / 9
' , / 9
10,39
1".39
10,49
I 0.39
10. 39
ID. 39
10,39
ii,99
li,99
1 i , 9 9
Ii , 99
li, 99
Ii .99
1 2 , 99
1 1^ .99
12,99
15.59
1 S.S9
15.59 -
Is, 59
15.59
in. 19
In, 1 9
1«. 14
in.i v
in, 19
Iti. I y
l".|>)
1 h . 1 v
in. 19
21'. 76
?.-)',7«
io,';«
i I . 1 •,'
. 0
0.1
0.0
0,0
t> , t>
0,0
i.5961t-09
0,0
0 .0
0.0
0.0
i.iS64L-OS
1 .029it-IIS
0 .U
c. o
0. C
0 , 1'
O.o
0.0
0.0
6. '16 /6t-06
0,0
P.I'
t' . '
C . 0
(>, 0
0.0
0 .0
? . tt552t -05
u . ^Ci5t -1 1
0 . 1'
0.0
0,0
1' . 0
0,0
0, 'J
1'. U
C .0
J ,6i04t-1 1
0. 0
l> . 0
0.0
0,0
0 ,0
0, 0
0.0
0 . 0
0 , 0
4 , 7 '< 9 1 1 - 0 9
i.?3Mt-ii
( ,0
0.0
0. i1
0,0
0,0
0,0
0, 0
0.0
0.0
0,0
U.t)
0,0
0,0
0.0
2,5537t-07
0,0
0,0
0.0
0,0
0.0
0.0
0.0
0.0
0.0
o.o
0 .0
0,0
0.0
9. 75051- -05
a,o34t)t-05
0.0
0.0
0,0
0.0
0.0
o.o
0.0
i . 596 1 1-09
0,0
0.0
0.0
0,0
2,256141-05
1 ,0293fc-05
0.0
0,0
0.0
0 .0
0.0
II. 0
0.0
t.,4676t-06
o.u
0.0
f) . >
0 . II
0.0
0.0
0.0
0.0
2,H5S,^-Ol)
'4 , CH) i S t - 1 1
0,0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
1 ,6304t-ll
o.o
0.0
0,0
0.0
0.0
0.0
0 , 0
0 ,0
0.0
4.7U9U-1.9
i.2371t-2i
0.0
0 . 0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0 .0
0.0
6,4839t-07
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0.0
2 , 6986k-06
6.35J5E-07
0.0
0,0
0,0
0.0
0.0
y . 0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0.0
0,0
0.0
0 . 0
(1 . 0
0.0
0.0
0,0
0.0
0,0
0, 0
0, D
0.0
0,0
0.0
0. 0
0. II
i . 0
0 . 0
(i.O
0,0
0.0
0.0
o.c
0.0
0.0
0. 0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0, 0
0.0
C'.O
0,0
l,4636t"06
0,0
0.0
0.0
0.0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
2.6986L-06
6.3S35E-07
0,0
0.0
0.0
0,0
0,0
0.0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0.0
0. 0
0. 0
0.0
0. 0
0,0
"".0
0. 0
0 ,0
0.0
0,0
0.0
0.0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0 ,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
o.c
0,0
0,0
0,0
0,0
0,0
1 ,4636b-06
0.0
0.0
0,0
o.o
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
2,5881t-04
2,55371-07
0,0
0,0
0,0
0,0
o.o
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0,0
I,00i0fc-04
6,098Ut-05
0,0
0,0
0,0
'1.0
0,0
0,0
0,0
2.5961E-09
0,9
0,0
0,0
0,0
8.2564E-05
l,0293fc-OS
0,0
0,0
0,0
0,0
0,0
0,0
0,0
6.46 76t-06
0.0
0.0
0 , 0
0,0
0.0
0,0
0.0
0,0
i.nssit-os
4 .90t!5t-l V
0.0
0,0
0.0
0 ,0
0.0
0,0
0,0
o.O
1 ,8S04t-U
0.0
0.0
0,0
0,0
0,0
0,0
0.0
0.0
0.0
4 . /491 1 -09
i,2371t-22
1 ,4636i-06
0,0
0.0
0,0
0,0
0,0
0,0
0,0
60
61
62
63
64
65
3
2
27
66
67
6h
69
70
71
72
73
74
75
It,
11
76
6
10
79
80
B!
Si
83
B4
85
31
86
87
BB
89
15
20
90
91
92
93
94
95
96
23
97
96
99
100
101
lOi
103
1 04
14
32
105
106
107
108
109
110
1 11
112
33
113
1 14
115
1 16
117
MB
119
120
121
30
37
25
122
123
124
125
1 i6
127
128
-------
HVERASt SOi CUNTRIBUHUNIG/CU, I*) FRUM SIGNIFICANT PUI»T SOURCES
3 4 b
TUT*L TOTAL
SJGN1F AI_L POINT
PCJINT SOURCES
SUUHLt «
HECLP »
1
2
3
H
5
h
7
ft
9
10
11
13
13
I'l
15
16
17
t«
19
20
21
2?
23
?'l
?5
26
27
?H
?9
3u
3!
32
33
3't
3'j
Jh
37
JH
30
411
81
02
4 ^
8'l
45
46
47
4H
4"
5i'
51
S?
SI
5"
55
50
7
H
'»
0
1
?
3
'i
S5E-'>5
3.1376-05
S.22bE-04
2.0l)IE-')5
5 ,9 1 4E-')6
2.4*>Ot-')'4
4.D2/E-00
4 , 91bt -lib
4.S84F--08
B , 1 I 1 1- -22
I) .0
0, 0
11. 1)
D.I)
D.I)
0 ,n
0,0
i) .0
D. i)
l.H79t-ll
3.23) ,0
0. I
II . )
I). 1)
1.404t-l3
ll.fi
D , )
0,1)
0 ,0
0 . 1)
0,0
0 ,0
o,605f -Ob
2.51 1E-04
1,7411-1)0
0, 0
0.0
II , 0
I). 0
D , O
0,0
D. )
D. )
D , 1
I) , I
I), )
D . 1
0 . 1
i.2406-')b
H, •iV7t.lt'}
0.0
0.0
O.I
U, 0
1) ,0
II. (1
D.O
3. 40 ifc-?0
11,1)
0,0
D, 0
D, 0
3.636E-U7
4.253E-10
6.79IE-14
u.n
0,0
0,1)
0.0
D.O
0. 0
0,1)
1 , 294E-09
5.675E-05
1. 1601-11
0,0
0,0
U ,0
0.0
0,0
0,0
0,0
7.146E-22
t
0,0
0.0
0.0
0.0
0,0
0.0
2,443t-09
9.319E-10
0. 0
O.U
U.U
O.U
0,0
0.0
0.0
0.0
U.O
0.0
0.0
2.409C--05
D.O
0.0
0.0
0.0
0.
0 . t
U .
0 .
(J f
U.U
U.U
0.0
U.O
U .0
U.O
U.U
0, J
0 .0
O.U
n,
II. 0
1'. U
0. U
0. 0
0.0
0.0
O.i)
U.O
U.O
U .0
6. ii>3t -08
0.0
0.0
0. 0
u.c
0,0
0,0
0.0
5. 533C-05
U.O
U.O
U.O
0,0
2.50B6-06
1.514E-17
2.8026-05
1 .1V31-1J
0.0
0.0
U.O
0.0
U.O
1.119E-14
b.lJ6E-10
/ , 04 IE-OS
2.4bSt-05
9.292k-0 1
0.0
0.0
0.0
0,0
0.0
O.U
0.0
o.o
2.6B3E-OB
0.0
0.0
0.0
0,0
0.0
o.o
0.0
0.0
0.0
0.0
0.0
O.U
0,0
0,0
b.919t-24
I,b77fc-05
B.b54F-lb
0,0
0,0
0.0
0.0
11,11
0,0
3,079E-Ob
0.0
0,0
0,0
0,0
7.302E-11
3.997h»OB
0,0
0.0
0,0
0,0
0,0
0,0
0,0
£,0b5t-07
9,400fc-07
2, 74Bt-6b"
0,0
0,0
0,0
0,0
0.0
0,0
0,0
9.235E«Ob
5.542E-09
4
0,0
0.0
0,0
0,0
0.0
2.914E-00
5,4501-06
8.479E-07
0,0
0.0
1.407E-05
2.015E-05
0,0
4. 3726-13
0,0
/.ObOC-Ob
'.07ZE-OB
S-JObE-O1!
0.0
b.OObE-21>
0.0
o.o
0.0
0.0
0.0
0. 0
0.0
0,0
0,0
0,0
0.0
0.0
0.0
0.0
0,0
0.0
0.0
0.0
0.0
o.o
0,0
0.0
0.0
0,0
0,0
0,0
0.0
0.0
0.0
0,0
0.0
0,0
0,0
0.0
0.0
0,0
0.0
o.o
0,0
0,0
0,0
0.0
0.0
0,0
U.O
0,0
6. 394E-12
0.0
0.0
0.0
0,0
0.0
0,11
0,0
3,9ibE-05
0,0
0,0
0,0
0,0
2.270E-06
1.155E-07
B.700E-OU
0,0
0.0
0,0
0,0
0.0
0,0
O.OiJE-11
2, 050E-0&
1 ,832t-05
3.028E-06
6.933E-25
0,0
0,0
0.0
0,0
0,0
7.039E-12
1.037E-09
5
0,0
0,0
5,6216-11
4.125E-13
0.0
3,0346-12
1,2496-05
1.056E-05
U.O
0.0
2,4546-14
7,451)6-08
7,0936-05
5,5i5E-Ob
0,0
8,4976-10
0,0
0,0
0,0
1,0876-06
0,0
0,0
0.0
0.0
0,0
0,0
0,0
U.O
0,0
0,0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
o.o
0,0
O.U
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
U.O
U.O
0,0
0,0
U.O
0,0
0,0
0.0
0.0
0.0
0,0
0.0
0.0
0,0
4.245E-I1B
3, bbl E-05
1.B79E-12
1.701E-10
0.0
0,0
0,0
5,0
o.o
3.520E-07
0,0
0,0
0.0
o.o
2.389E-Ob
7,3J3t-06
4,7946-07
1,4476-08
4.20BE-17
0.0
0.0
0,0
0,0
2,1696-06
e,489E"06
5.387t»l)b
4,0156.07
1.3346-09
6.66SE-20
0,0
O.C
0.0
0.0
2,6646-07
4,3606-06
0,0
0.0
S.oilt
5.07BE-
2,4i7E-
«Il75E
1,6166
t),bb2E
3,8bOE
3.307E
b,135E
2,b716
/,509E
7.49UE
1.323E
2,«b7E
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
3.87BE
1,5616
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0,0
U.O
o,u
0,0
0,0
0,0
0,0
8,605t
0,0
0,0
0,0
0,0
0,0
U.O
0,0
0,0
0,0
0,0
0,0
0.0
u,o
3,2b
l,U3<4b
l.OBut
1.701E
0,0
o.u
0.0
0,0
0,0
9.812E
0,0
J,0
0,0
0,0
/.S30E
7.44B9E
i.720t
1,44"47E
H.208E
0,0
0,0
0,0
0,0
2,37bE
9.US1E
1.7BJE
2.B06E
0,0
0,0
0,0
0,0
9,52
4,367k-
0,0
0,0
11 5.621E-11
13 u,12bt-13
0<4 3,-ilUE-OI
05 b.07Bfc-05
OS b,OblE-05
Ob 1.454E-05
Ob 2,223E'<06
04 2.137E-OI4
Oi 1,500£-05
•05 X.175E-OS
•01 1,61<,E-0»
•05 B.bbJE-OS
•04 3,8bOE-04
•05 3,30/t"OS
• Ob 6,UbE-Ob
• 04 2,»7U-04
•Ob 7,bd«E>05
•05 (,<49ut-05
•Ob 1.323E-06
• 19 2,4b7E-H
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
•10 3,47BE>10
•05 l,5blE«OS
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
07 05 3,2b0t-0b
-04 l,034t-04
•12 1.880E-12
•Ib 1.701E-U
0,0
0.0
0,0
0,0
0,0
<0b V,8UE*05
0,0
0,0
0,0
0,0
'Ob 7,530t'06
Ob 7,4B9E-Ob
05 3.720E-05
OB 1,«47E>OB
>17 4.20BE-17
0.0
0.0
0,0
0,0
Ob 2.376E-06
06 9,«51E.Ob
04 1.7BJE-04
05 i,806t-05
09 1,334E>09
20 6,6bbE-2l)
0,0
0,0
0,0
0,0
Ob 9,b27E-Ot
06 4,367E»Ob
-------
101
10?
103
lO'l
105
106
107
ion
109
110
111
11?
113
1 11
M'j
lib
117
1 1«
1 19
120
121
122
123
12"
1 2'j
!2b
127
1?R
i.lt-bf-Dt,
2.3531-Ob
a,7t-06
1 . ' 4QI -06
2.22'it-Ol,
0.0
0.0
6.127E-06
1 . 1 1 2b-0(j
1 .81 1 p -DL)
2.?1«E-05
0.0
0.0
0,0
0.0
0 . 0
0.0
0.0
0,0
0.0
0 . 0
0.0
0 .0
0,0
o.o
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0.0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0.0
o.o
0,0
b
0.0
0,0
0.0
0 .0
', , C
0 . 0
0,0
II .0
0.0
0.0
u .0
1 . 1 f 'U_-l)«
1,08 it-Ob
0 , t)
0,0
0 . 0
0 .0
0 , v>
0 , 0
0 ,"
0.0
0,0
0.0
0, 0
0.0
0,0
0,0
0,0
0 , 0
0,0
0,0
0,0
0,0
0.0
0,0
9, 7221-06
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
b
1
0.0
o.o
0,0
0,0
0,0
0.0
0,0
2.081b-07
0,0
0.0
0 , IJ
0.0
0,0
1.2S31-00
0.0
0.0
0. 0
U , o
0.0
0.0
0,0
0.0
0.0
0 . i'
0,0
0,0
0,0
0.0
0.0
0,0
0.0
0,0
0.0
0.0
0,0
J t u
O.u
0,0
0.0
0,0
0.0
0,0
0.0
0,0
O.I/
0,0
o.o
0.0
0.0
0,0
0.0
0.0
0,0
0.0
O.o
0,0
7
7
0.0
0.0
0.0
0,0
0,0
5,9911-08
5,7961-07
2 , (M 2f -07
0.0
tt ,99bt -08
U . 0
1 .9331-117
6.215E-07
b. 3 181-07
2.9 | 21-08
k.Oblt-O?
L) . 11
1 ,0bbb-07
0 ,0
0.0
3, 6171-06
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
3,3181-06
J.035E-07
0,0
0.0
0,0
0,0
0.0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
2,6861-07
6.908E-07
0,0
0,0
0,0
0,0
0.0
1IJTAL
SluNlF
AK1A
0,0
0.0
0,0
0,0
0,0
b,l37E-Ob
5,7961-07
1,9931-07
1,6871. Ob
2,191t-0b
1,6161-05
5,8881-06
6,2l5t-07
1,8861-06
1,1261-05
2.7261-05
1,b6bt-0b
1,0831-05
0,0
3,61 71-06
0,0
0,0
0, 0
0,0
0,0
0,0
0,0
0,0
0, 0
0,0
3,3186-06
3, 03i>fc-0 /
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
9,722t-06
0,0
0,0
ll.li
0,0
0,0
0,0
0.0
2,6861-07
6,9081-07
0 ,0
0,0
0,0
0,0
0,0
TUTAI.
ALL »Ht»
3UUKCES
0,0
0,0
0,0
0,0
0,0
5,1371-06
5,79et-07
1.9931.07
1.0B7E-05
2,1911.05
1 , 646t-0b
5,8881*06
6,J15t«07
1,0881-06
l,12bt-0b
2,7261-05
1.5651.05
l,083t«05
0,0
3,6171-06
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
3.11B1-06
3,0i5t"07
0,0
0,0
(1,0
0,0
0.0
0,0
0,0
o.o
9.722E-06
0,0
0,0
0.0
0,0
0,0
0,0
0,0
2.686E-07
6,9081.07
0,0
0,0
0,0
0,0
0.0
-------
57
58
59
60
bl
63
63
6
O.I)
0,1)
0.0
11,1)
0,0
11,0
O.I)
0,1)
1) .1)
U.I)
0.0
O.I)
0. 1)
O.I)
1). I)
0,1)
0.0
0.0
0. I)
I). 1)
0 .0
0.0
I),'!
0.0
o,n
0, 1)
0,1)
0,0
0,0
0, 0
0,0
I), 0
0,0
0. 0
0.0
I) .0
0 .11
0.0
0. »l
<),i)
1), II
I). 1)
1) , 1)
0 ,0
!t. II
0. 0
0. • )
I) .0
1) . ')
1). 0
1) , 0
0,0
I) ,0
0 , )
ll.t)
0.0
1) , 1)
0 , 0
0,0
I), 0
0, 0
0,0
0,0
0,0
0,0
0.0
u.o
0.0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
7.7916-01
0,0
0,0
0.0
0.0
0.0
0.0
0.0
0 . 0
l>,0
0.0
0,0
0.0
0.0
0.0
0.0
2.335E-01)
0,0
o.n
0.0
0,0
0, 0
0,0
0,0
0.0
0,0
0.0
l.l>26t"-06
1) . l)
0.0
0,0
0.0
0,0
0.0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
0,0
c.u
0,0
0. U
0 ,0
0,0
0 ,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
0,0
0.0
9,SOOt-07
0,0
0.0
0.0
0.0
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
u,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
l,306t-01>
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
l,127t-00
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0.0
o.o
0,0
l.OOlt-00
u.o
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
o.o
0,0
o.o
0.0
0.0
0,0
0.0
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0.0
0.0
0.0
0,0
0,0
o.o
0,0
0,0
o.o
0.0
o.o
0,0
0,0
o.o
0,0
o.o
o.o
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0.0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0.0
o.o
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0.0
0.0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
2.122E-06
2,2476-07
0,0
0.0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
0,0
0.0
6,a
2.663E-07
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
2.199E-07
l,57Sfc-07
0.0
0.0
0.0
0,0
0.0
0,0
o.o
0,0
2.922E-07
0,0
0.0
0.0
0,0
0,0
0,0
0,0
0,0
0.0
1.B22E-07
0.0
0.0
0,0
0,0
0,0
0,0
0.0
o.o
0,0
0,0
0.0
0,0
0,0
o.o
0.0
0,0
2.922E
7,310f.
0,0
0,0
0.0
0,0
0,0
0,0
0,0
3.092E
0,0
0,0
o.o
0,0
6.912E
O.UBIE
0,0
o.o
o.o
o.o
0,0
o.o
0,0
2.112E
b./lbt
3.729fc
0,0
o.o
0,0
0,0
0,0
0.0
0,0
0,0
3.493E
b,669F
i.OCht'
0,0
0,0
0,0
o.o
0.0
0,0
0,0
1.098E'
5.6i!7fc'
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0.0
0,0
0.0
0,0
0,0
0,6
0.0
0,0
o.o
o.o
-06 2,»22l-0»
•07 7,ilOt"07
0,0
0,0
0.0
0.0
0.0
0,1)
0,0
•06 J,0921-06
0,0
0.0
0,0
0,0
•OB 6.91JE-08
•07 6,4«lE.07
0.0
0,0
0.0
0,0
0,0
0,0
0,0
•07 2,1126-07
•07 S.716E-07
'06 i.lllt'Ot
0,0
0,1)
0,0
0,0
0,0
0.0
0,0
0,0
•07 i,U93E-0;
'07 i,6691-07
06 3,0661-06
0,0
0,0
0,0
0,0
0,0
o.o
0,0
07
-------
UK
1
i
3
MIXJM* TfcMP STABILITY
Mt It»n MM) (r\ ) CLASH
600,11(1 27', 00 4
600,01) 2R'),00 i
600,00 £60, OU i
SIATION NU, MUUH
1
i
i
i 1
i
4
3 1
2
3
4 I
i;
4
5 1
2
3
6 1
i
3
7
i
3
e
i
4
9 i
i
4
in 1
i
3
1 1 I
i
4
1? 1
i
3
n i
i
4
14 1
i
15
16
!7
i
i
i i
i
4
19 1
i
3
iO 1
i
4
-------
RESULTANT HfcT LUNDITJUN3..,
AVtRAt»fc TtlP,» 280,00
10UAL 3TABU 1TY» 2
1AT1DN Nil.
HIM) IMKECUUN
NINO SPEED
AVGt NINO SPfcEU
•1NU PIRSlSTANCt
I 1
2 1
3 1
4 I
5 P
6 P
7 P
47 H
48 h
SI M
52 M
53 M
5« H
55 H
56 H
57 n
56 M
5V H
60 M
61 M
63 M
64 rt
65 H
60 M
67 H
6« n
6V H
70 n
71 M
7? n
73 M
74 M
75 H
V H
10 >
11 P
1? P
13 P
14 P
IS A
10 A
17 4
1" A
IV A
2),0
'J.O
-1 . 0
fl. 0
0 , 0
2.00
2.00
2.00
2,00
2, on
2,00
2.00
2,00
2.0C
2.00
5.20
5.20
5,20
5,20
5,20
5,20
5,20
5,20
7. 7V
7, 79
'.79
7. 7V
7,7V
7,79
7,7V
7,79
7,79
10,59
10.19
10,39
10,19
10,19
10,59
10,39
12, V9
12,99
12,99
12,99
I2.V9
12, V9
12.99
12,99
12,99
15,59
,00
.59
,1'
,01
.03
,00
.24
.''3
.00
.il
.03
.00
,00
.39
,10
,00
,00
.i1*
loo
.00
.2"
.00
.51
,64
IOTAL fRDH
aUNie PUINT
JUOKU3
0,0
0,0
5.6200t»l 1
4 , 1 246E- 1 3
5,U57t-04
5,0760t.-l>S
o,0506f-05
1.4540E-05
2.2251F-06
2,'l374fc-ni
1 ,5005t-OS
4. 1 745E-05
l,oi5Vt-ni
8,oo22t-il5
5, O5vvt-oi
5, 5072E-H5
u,l548E-Ob
2.6707t-n4
7,5(1B7t--05
7fl957b-05
1,3220L-OI>
2,l570t-lV
0,0
0,0
0,0
11 * '•>
0,0
0.0
0,0
O.u
0,0
S.l780t-10
1 .5612L-05
0,0
A » 0
0,0
0,0
0,0
0,0
0,0
0,0
2,001 71 -07
0.0
0,0
11,0
0,0
0,0
0,0
n,o
8.0054E-05
2,51 1 7fc-C14
1,74151-06
0.0
0,0
n.o
0,0
0,0
0,0
0,0
P .0
0,0
0,0
o.o
0,0
0,0
3.2504E-05
1.0311E.-01
1 ,8602t-l2
1,701 ltt-1 6
0,0
0,0
0,0
0,0
0,0
9,8124t-05
2,42
2,36
2,«2
2.51
2.72
2.42
2,0V
3,11
1,33
2,54
2.72
3,07
1,67
2,56
3,01
5,33
5,00
2,10
3,99
3,67
3.67
2,26
6,00
2,51
5.95
TOTAL mu»-
ALL POINT
SOURCES
0.0
0, 0
5.6206E-11
4,l246t-13
3.3137E-04
5,o7Bof-05
G , 0506E-05
1.4540E-05
2.J231E-06
2.H371E-04
1 .SOOSt-O1)
1.1 745E-05
1 .OI59E-04
6.6622E-05
3.65V
-------
7b M 0
77 M 0
I* » 0
T> H a
rt o H o
fll M 0
82 H 0
H3 M 0
8 'I H i)
45 M 0
6b H f.
i»7 n 0
86 H ([
89 M n
90 n 0
91 H (1
9? H a
93 n i)
'I n 0
15 H 0
9b H 1)
97 M 0
98 H 0
99 II 0
100 M fj
loin 0
loa H o
1 0 3 H 0
10U n I)
1 OS H 0
1 ob H o
107 H 0
1 (M H 0
1"9 n ,)
1 1 0 M ,1
Mi" n
1 1' H 0
113 H 0
1 1 '1 M 0
us H n
lib H 0
117 H 0
1I« M 0
119 n 0
120 « 0
1S1 h 0
11? h 0
1Z3 H c
121 H 0
\l'j h 0
12b n 0
127 H 0
1 2 M r! ()
21.00
2'(.00
27,00
30.00
1,50
4.50
10. bO
13. 'in
tb.50
19.50
2^.50
25.50
26.50
3.00
0.00
9.00
12.00
15.00
16,1)0
?t,oo
24,00
27.00
SO. 00
'l.bO
7.50
ID.'jll
1 3.50
lb.5o
J9.50
2,i«
2S.30
ljr 36
2S.3S
?S,36
25.9H
2S.9H
25.96
25,9rt
25. 6
25. It
25, 6
2J. »
25. S
25, 6
2f .5«
in, 58
2t,56
20.56
26. 51!
26,58
2". 58
<>l>,50
26,56
26.58
0,0
0,0
0,0
0,0
;,53o3t-OG
/,'ld93r-0(>
3,7<:oU-05
I.nuro(--n8
«,2061t-17
n.o
0,0
0,0
0,0
2.3/59L-1IO
9.1513I---06
l,7«29t-0»
2,0057t-05
l,333bt-09
6,b052t-20
P.O
0,0
0,0
0.0
2.90fc6t»05
1.57l?t-0<<
l.>)9«7e-05
1 .50UOb«Mb
2,b«!blt-07
"4,41/t-07
M,67»'Jh-H6
I,5552e-0i4
9,21 O2t-05
9,517'4t-OI)
1 ,«35-JE-n6
4, i515t-o7
9,9395t-08
0,0
0,0
1 ,(?2t)2t-0ti
3./9B2E-07
4.<>29/6«t-OS
1.5552t-0,b<>b£t*2a
0.0
0.0
0,0
0,0
,527«t-0b
.M61L-Ob
,9632L-05
,6025(-0a
.1987E-05
,5000E-Ob
2,b2blt-07
a,«968t-08
0.0
0,0
,0«'47t-07
5.06blE-06
),5b08E'0«
9.2102E-05
9.51 7UE*ob
1 ,»35«E-06
U.3515E-07
9.9J95E-08
o.o
0,0
l,22b2E-l>6
3,79b2t-07
K.3320E-05
l,0797t-OU
7,9985t-05
3.02UOE-05
u,»573t-0b
l,53b8E-Ob
1.912HE-07
1,4367E-08
113
111
115
116
«0
39
25
58
bb
117
118
119
120
Kb
35
b
30
bl
t>b
121
122
123
lit
37
43
29
8
3u
50
53
57
125
12b
55
41
9
13
38
47
51
56
127
128
bo
52
24
10
1 7
26
44
49
54
59
-------
APPENDIX B
USER'S GUIDE TO SCIM MODIFICATIONS
B.I DESCRIPTION OF INPUT TO SCIM
B.2 FORTRAN IV PROGRAM LISTING
B.3 TEST CASE
(TO BE USED AS APPENDIX A IN SCIM USER'S MANUAL)
-------
B.I Description of Input to SCIM
Card Input Sequence
The card input sequence is, essentially, a superset of that of the
pre-modification program; the modifications and the additional "keyword
packages" required by the new version of SCIM, along with a restatement of
the familiar control parameters, will be given as follows:
B.I.I PARAMETERS
Allows the modification of program parameters or run options.
Parameters or option variables are set to default values at compile time
and, hence, only those which are to be modified need be entered. The
format of the data package itself is FORTRAN IV namelist input with the
name &INGRID.
The specific method used is selected through combinations of the
parameters LTHETA, THETA, FACT, NOFACT, POWER and RADIUS.
1) Inverse distance power law: Set THETA to 360. and POWER to the
desired value. All other parameters are allowed to assume
default values.
2) Selective Angle Method: Set THETA and POWER to default or
desired values. Other parameters assume default values.
3) Selective Radius Method: Select non-zero RADIUS value, THETA =
.FALSE., and POWER. The other parameters may assume default
values.
4) Weighting Factor Matrix: Set NOFACT = .FALSE, and specify
weighting factor array, FACT, according to format below. This
method must be used in conjunction with one of the three
methods above.
The format of a 'PARAMETERS' package is
FIRST CARD
Columns Contents Format Description
1-10 'PARAMETERS'
21-70 TITLE 12A4,A2 Run heading for printing
B-l
-------
SECOND CARD
Columns
2-8
Contents
'SINGRID'
Format
Description
FOLLOWING CARDS
Columns
Contents
Format Description
Parameters to be initiali-
zed by FORTRAN. Namelist
5INGRID; these parameters
are:
Name
ORIGIN
NX
NY
GX
GY
THETA
FACT
Type Dimension
R*4 2
1*4
1*4
R*4
R*4
R*4
R*4 10,10,10
NOFACT
L*4
Default Description
(O.,0.) Origin of weighting grid
system
1 Number of cells of the
weighting grid system
(X direction)
1 Number of cells of the
weighting grid system
(Y direction)
1.0 The east-west dimension
each cell of the weighting
grid
1.0 The north-south dimension
of each cell of the weighting
grid
45.0 The search angle used in
determining the wind
direction and wind speed
at a location
1000*1.0 The weighting factors
utilized in determining
the wind direction and
wind speed at a location
.TRUE. .TRUE, if no weighting
factors are specified
B-2
-------
Name
LTHETA
POWER
RADIUS
Type
L*4
R*4
R*4
Dimension
Default
.TRUE.
2.
1.
Description
.TRUE, if search angle
used.
Power law for inverse
distance weighting
Radius for selective
radius method.
LAST CARD
B.I. 2
Columns
2-5
STATIONS
Contents
'SEND'
Format
Description
This "keyword card" initiates the reading of the station locations,
in kilometers, and station heights, in meters.
If either more than 10 stations have been specified or the stations
are out of sequence, an appropriate error message is issued and the job
is terminated. Finally, multi-station mode is indicated if the number
of stations is greater than 1.
FIRST CARD
Columns
21-30
31-40
41-70
Contents
Y
Z
STAID
Format
Description
18
21-70
FOLLOWING CARDS
Columns
6-10
11-20
'STATIONS'
TITLE
Variable
NO
X
12A4,A
Format
15
E10.0
12A4,A2 Run heading for printing
Description
Station identification number
Station east-west coordinate
(kilometers)
Station north-south coordinate
(kilometers)
Station height (meters)
Optional 30 character station
identification
E10.0
E10.0
7A4,A2
B-3
-------
LAST CARD
Columns
1-5
Contents
'99999'
Format Description
Delimiter card
Note that the location of the NOAA station, i.e., the one with the WBAN
observations, must appear first.
B.I.3
WEIGHTS
This "keyword card" initiates the reading of the weighting factors
which are subsequently used in computing the wind direction and wind
speed at a specific location. These factors are specified on a grid
cell by grid cell basis, i.e., from each of the - up to 10 - previously
specified stations to each of the - up to 100 (10 x 10) - grid cells.
Only those factors which are not 1.0 should be specified since 1.0 is
the default value of all of the weighting factors.
FIRST CARD
Description
12A4,A2 Run heading for printing
Description
Station identification number
Horizontal (row) grid cell
number
Vertical (column) grid cell
number
Station-to-grid cell weight
(normally between 0.0 and 1.)
Columns
1-7
21-70
FOLLOWING CARDS
Columns
6-10
11-15
Contents
'WEIGHTS'
TITLE
Variable
NO
IX
Format
12A4,A
Format
15
15
16-20
21-30
IY
FIELD
15
E10.0
LAST CARD
Columns
1-5
Contents
•99999'
Format
Description
Delimiter card
B-4
-------
Non-unity weighting factors would normally be used to incorporate the
knowledge of the representativeness of data as affected by topographic
features such as hills and valleys. Moreover, they may also be used to
express the confidence one has in the validity of a station's measure-
ments. For example, if in a group of stations there existed only one
National Weather Service station, this station would, on a grid cell
basis, be assigned a value of, perhaps 2.0, whereas the remainder of the
stations would be assigned a value of 0.5.
B.I.4
SCIM
This "keyword card" initiates the calling of subroutine SCIM
(formerly the main program) and, therefore, from this point, the program
flow and related input proceed essentially as before.
FIRST CARD
Columns
1-4
18-20
21-70
Contents
'SCIM1
NMAX
TITLE
Format
13
Description
Number of iterations used
in computing travel distance
12A4,A2 Optional run heading for
printing
For clarity, all of the input requirements will be restated and any
additions will be shown where needed.
B.I.4.1 Model Inputs
The normal model input data includes the following:
• Control parameters specified on punched cards,
• Average pollutant emission rates for all point and area
sources in a binary data file,
• The locations for which pollutant concentration estimates are
desired on punched cards,
B-5
-------
• WBAN hourly surface observations in National Weather Records
Center (NOAA) Deck 144 format, as a card image file,
• Hourly wind direction and wind speed surface observations
which supplement the WBAN hourly surface observations (only
required for multi-station cases), as a card image file, and
• OOZ and 12Z estimates of the height of the mixing layer in
a binary data file.
The formats for these data are shown in Table B-l (A-F).
B.I.4.1.1 Control Parameters
The SCIM program estimates the air quality characteristics of a
specified location by calculating hourly concentrations for a selected
sample of hours. The user specifies how this sample is drawn by selecting
the first hour, the last hour, and the time increment between other
selected hours, as indicated in Table B-l(A). The sampling increment
should be an odd number so that the selected hours will be rotated
around the clock and all hours of the day will be nearly equally repre-
sented in the selected sample. If three-hourly meteorological data is
being used, the sampling increments should be an odd number multiple of
three. The sampling increments should be small enough that a sample of
significant size is drawn.
The day of the week of the first hour to be selected is specified
using 1 for Monday, 2 for Tuesday, etc. The day of the week for other
selected hours is computed by the program.
A pollutant decay constant may be specified to indicate the rate at
which the pollutant is depleted from the air by one or more physical or
chemical processes. If the decay constant is specified to be zero or
left blank, the program assumes no decay occurs. The decay constant (K)
is related to pollutant half-life (i.e., T, the time required for 50
percent of the released pollutant to be depleted) by
_ 0.695
K " ~f~~
The remaining control parameters (listed in Table B-l(A)) refer to
characteristics of the city or other areas being represented. If the
B-6
-------
area is built up and primarily urban in nature, the McElroy-Pooler
diffusion functions should be specified (i.e., ISIGD=1). Otherwise, the
Pasquill-Gifford diffusion functions are appropriate (i.e., ISIGD=2).
The latitude is needed to estimate the effect of the sun's elevation on
atmospheric stability (i.e., Pasqui11-Turner stability class). The
height of the anemometer from which the reported wind speeds are measured
is used in estimating vertical wind speed profiles. The relative rough-
ness of the area should be used to determine the three wind profile
power law exponents. For unstable conditions (i.e., Pasqui11-Turner
stability classes 1, 2 and 3) a value of 0.1 is appropriate. For neutral
and stable conditions appropriate values will depend on how built up the
city structures are. For very built up cities (e.g., New York City and
Chicago) values of 0.15 and 0.2 are appropriate for neutral and stable
conditions, respectively (e.g., Singer, et.al., 1972). For less built
up cities (e.g., St. Louis) a comparison of Pasqui11-Turner stability
classes and profile power law exponents determined from three measuring
heights on a 500 foot tower showed that 0.2 and 0.3 are appropriate
for neutral and stable conditions. For more rural sites, higher values
may be appropriate (e.g., DeMarrais 1959). The annual mean mixing layer
heights are default values which are used if the mixing layer heights
•.(-i.-j( Jt>c,ii<_Liif, to the day of the first selected hour are missing. After
the first day, the last preceding OOZ (Greenwich time) or 12Z mixing
layer height is used for a missing value. A background concentration
may be specified which will be added to the concentration calculated for
each receptor location. The practice of adding a constant background
level seems to be particularly appropriate in treating concentrations of
particulates,
B.I.4.1.2 Average Pollutant Emission Data File
The emission data file consists of five records as indicated in
Table B-l(B). The emissions are represented by an area source and a
number of point sources. The first four records are used to describe
the area source emissions. The fifth record is used to describe the
point sources.
B-7
-------
The area source emissions are estimated at points within one to
three gridworks. The use of three gridworks allows a fine mesh to be
used for central city areas and two less fine mesh grids to be used for
surrounding urban and suburban areas. Emissions may be defined for 1 to
5 heights at each point within each gridwork. The number of heights
used is fixed for each gridwork. Emission rates for points other than
grid points are estimated within the program by interpolation.
The first record of the emission data file describes the area
source heights (1 to 5 may be specified), the location, dimensions and
number of heights used for each gridwork. The location of each gridwork
is defined by the lower left corner. Since each grid point is the
center of a grid square, the lower left corner of the gridwork is one
half grid distance less in both x and y than the lower left grid point.
The area source heights must be listed from lowest to highest. The
number of heights indicated for each gridwork should correspond to the
highest height used. If the listed heights are 20, 40, 60, 80 and 100,
and for the outer gridwork the highest height used for a grid point is
40, then the number of heights for the outer gridwork is 2. If only two
gridworks are used, the parameters for the outer gridwork should be
equal to the parameters for the middle gridwork, and record 4 should
contain two zero values. If only one gridwork is used, the parameters
for the outer and middle gridworks should be equal to the parameters for
the inner gridwork, and records 3 and 4 will each consist of two zeros.
The emission rates for each grid must be ordered in such a way that they
change first with x, next with y, and last with source height.
The information required for each point source includes location
(i.e., x and y coordinates in meters), stack height, emission rate,
stack exit diameter, stack gas exit speed, and stack gas exit tempera-
ture. In addition, parameters which specify standard industrial code
(SIC), location and political jurisdiction are carried to permit inter-
face with the IPP package.
B.I.4.1.3 Receptor Locations, Mixing Height Data File and
Hourly Weather Observations Data File
The receptor locations are specified on punched cards in the format
indicated in Table B-l(C). The present version of the program will
B-8
-------
accept up to 130 locations. The program would have to be modified
slightly to accept a greater number of receptors.
A binary data file which gives the mixing height at OOZ (Greenwich
Time) and 12Z for all available days in the chronological data period
must be established. The format for this data is given in Table B-l(D).
A chronological data file of hourly (or 3-hourly) surface weather
observations must be established. This is to be a card image file in
the NOAA National Weather Records Center Deck 144 Format for WBAN hourly
surface observations (defined in Table B-l(E)). A standard utility
program may be used to transpose the information from the punched card
deck to the card image data file.
B.I.4.1.4 Supplementary Hourly Wind Direction and Wind
Speed Data File (Required for Multi-Station Cases)
A chronological data file of hourly (or 3-hourly) surface wind
direction and wind speed observations must be established for each of
the supplemental stations (i.e., those over and above the station
having the WBAN surface observations) required by multi-station SCIM
runs. This card image file is defined in Table B-l(F).
It should be noted that the wind direction and wind speed data for
the supplemental stations must be specified in the same order as the
station locations appear; also, that this card image file is unit 11.
It should also be stated that, in multi-station mode (internal variable
MULTI=.TRUE., i.e., more than one station's locations have been specified),
if any of the stations (including the NOAA station) for a given hour
have zero wind speeds, an error message stating that - REQUESTED INPUT
DATA NOT FOUND for the specified year, month, day and hour is issued and
the hour's data is ignored.
B-9
-------
TABLE B-l
FORMATS FOR SCIM INPUT DATA
A. Control Parameters on Punched Card
Column Format Description
1-8 412 Year, month, day and hour of first input
record
9-16 412 Year, month, day and hour of last input
record
17-19 13 Sampling increment (hours)
20 II Day of week index of first input hour
21-28 E8.3 Pollutant decay constant (per sec)
29 II Diffusion function option*
l=McElroy-Pooler functions based on
Pasqui11-Turner stability classes
2=Pasquill-Gifford functions based
on Pasqui11-Turner stability classes
30-34 F5.2 Latitude (degrees)
35-38 F4.1 Anenometer height (m)
39-41 F3.2 Wind profile power law exponent for
unstable atmosphere
42-44 F3.2 Wind profile power law exponent for
neutral atmosphere
45-47 F3.2 Wind profile power law exponent for
stable atmosphere
48-52 15 Annual mean mixing layer height for 12Z
53-57 15 Annual mean mixing layer height for OOZ
3
58-62 F5.1 Background concentration, yg/m
*
Other functions may be added with appropriate program modifications.
B-10
-------
TABLE B-l
B. Average Pollutant Emission Rates (Binary Data File)
Position Format
Record
Description
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
1
2 to NH+1
NH+2
NH+3
NH+4
NH+5
NH+6
NH+7
NH+8 to NH+13
NH+14 to NH+19
NH+20
NH+21
NH+2 2
NH+2 3
NH+24
NH+2 5
NH-126 to
NH+23+3xNSPAR
NH+3xNSPAR+23
NH+3xNSPAR+24
NH+3xNSPAR+25
NH+3NSPAR+26 to
NH+23+3xNSPAR+2xNAS
1
2 to NQI+1
NQI+2
NQI+3 to
NQI+1+GXI+GYI
Integer
FP*
FP
FP
FP
FP
FP
Integer
Mixed
Mixed
Integer
Integer
Integer
Integer**
FP
Integer**
Mixed
Integer
Integer
Integer**
Integer
Integer
FP*
Integer**
Integer**
1 to Mixed
!+(NHM+l)xGXMxGYM
1 to Mixed
!+(NHO+l)xGXOxGYO
5 1
5 2
3
4
5
6
7
8
9
10
11
12 to 10xNPS+l
Integer
Integer**
Integer
FP
FP
FP
FP
FP
FP
FP
Integer**
Mixed
Inner Area
Source Grid
Number of area source heights (NH)
Effective area source heights (meters)
Smallest x coordinate (m)
Smallest y coordinate (m)
Number of grid squares in x direction (GXI)
Number of grid squares in y direction (GYI)
Length of grid square side (m)
Number of heights (NHI)
Same as NH+2 to NH+7 for Middle Area Source Grid
Same as NH+2 to NH+7 for Outer Area Source Grid
Air Quality Control Region Number
Type of pollutant (1=50,, 2=Particulate)
Number of area source transformations (NSPAR)
Index designating location in IPP Source File
Fraction of an area source grid square which overlaps an IPP area source
Index designating location in area source gridwork
Same as NH+23 to NH+25, repeated for NSPAR-1 area source
transformations
Number of IPP area sources (NAS)
Location parameter for first IPP area source
Political jurisdication of first IPP area source
Location parameter and political jurisdiction for remaining
NAS-1 IPP area sources
Number of emission rates in inner grid (i.e., NQI=NHIxGXIxGYI)
2
Emission rates for inner grid (vg/m /sec)
Index designating IPP area source which overlaps first grid square
Same as NQI+2 for remaining GXIxGYI inner grid squares
Same as record 2 except representing middle grid
Same as record 2 except representing outer grid
Number of point sources (NPS)
Standard Industrial Code (SIC)
IPP location parameter
x coordinate (m)
y coordinate (m)
Stack height (m)
Emission rate (yg/sec)
Stack exit diameter (m)
Stack gas exit speed (m/sec)
Stack gas exit temperature (°K)
Political jurisdiction
Same as 2 to 11 for remaining NPS-1 point source
First Point
Source
*FP means floating point.
**Designates a 2-byte integer, instead of a standard 4-byte integer.
3-11
-------
TABLE B-l
FORMATS FOR SCIM INPUT DATA
C. Coordinates of Desired Concentration Estimates on Punched Cards
(1 Card Per Receptor)
Column
1-8
9-16
Format
F8.2
F8.2
Description
x coordinate (km)
y coordinate (km)
D. Depth of Mixing Layer (Binary Data File, 1 Record for Each 12 Hours)
Position
Format
1
2
3
4
FP*
FP
FP
FP
Description
Month
Day
Hour
Depth of mixing layer (m)
Floating point.
B-12
-------
TABLE B-l
FORMATS FOR SCIM INPUT DATA
E. Hourly Surface Weather Observations (National Weather Records
Center Deck 144 Format, 1 Card Per Hour)
Column
1-5
6-13
14-16
17-20
21-38
39-40
41-42
43-46
47-49
53-55
56
57-78
79
Format*
15
412
A3
4A1
13,811,14,13
12
12
14
A3
13
Al
Al
Description
Station number
Year, month, day and hour
Ceiling heights (hundreds of feet;
XXX=unlimited; 888=cirriform ceiling of unknown
heights)
Sky condition for layers 1 to 4
0 = clear
1 = thin scattered
2 = scattered
4 = thin broken
5 = broken
7 = thin overcast
8 = overcast
Blank = partial obscuration
X = obscuration
Visibility, weather elements, sea level pressure
and dew point (these codes not used by SCIM)
Wind direction (tens of degrees)
Wind speed (knots, X overpunch in column 41
indicates 100 or more knots)
Station pressure (hundreths of in. of Hg.)
Temperature (°F, X in column 47 indicates
negative temperature)
Relative humidity (percent)
Total sky cover (tenths, X=10)
Cloud layer data (not used by SCIM)
Total opaque sky cover (tenths, X=10)
I designates integers only; A designates either or both numeric and
alphabetic characters are used.
B-13
-------
TABLE B-l
FORMATS FOR SCIM INPUT DATA
F. Hourly Surface Wind Direction and Wind Speed for Each Supplemental
Station
Column
Format*
6-13
20-21
22-23
25-26
27-28
30-31
32-33
35-36
37-38
40-41
42-43
45-46
47-48
50-51
52-53
55-56
57-58
60-61
62-63
412
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
12
Description
Year, month, day and hour
Wind direction, station 2 (tens of degrees)
Wind speed, station 2 (knots)
Wind direction, station 3 (tens of degrees)
Wind speed, station 3 (knots)
Wind direction, station 4 (tens of degrees)
Wind speed, station 4 (knots)
Wind direction, station 5 (tens of degrees)
Wind speed, station 5 (knots)
Wind direction, station 6 (tens of degrees)
Wind speed, station 6 (knots)
Wind direction, station 7 (tens of degrees)
Wind speed, station 7 (knots)
Wind direction, station 8 (tens of degrees)
Wind speed, station 8 (knots)
Wind direction, station 9 (tens of degrees)
Wind speed, station 9 (knots)
Wind direction, station 10 (tens of degrees)
Wind speed, station 10 (knots)
I designates integers only.
B-14
-------
B.2 FORTRAN IV PROGRAM LISTING
C JUNE'75
C MATN JUHC'TS
C JUNE'75
INTEGFR KEY»(00> KFY.NMAX, TITLE JUNf'75
5010 FOKMAT(3A4,T18,I3,I2A«,A2> JUNf'75
DO 20 I«1,N JUNEi75
IF(KEY(l).EOiKEYH(I)> GO TO 30 JUNE'T5
*0 CONTINUE JUNE'75
«RITE(6,6020) KEY(l) JUNE'75
6020 FORMATCO',Til,'INVALID KEYBORDl ' ,A«/T11, 'EXECUTION TERMINATED,') JUNE'75
3THP 1 JUNE 1,0
POHEH»2,0
IF(NX.LT,1.0K,NX,GT.10.0R,NY,LT,l,OK.NY,6T,tO) GO TO 500
NRITt (6,6010) ORIGIN, NX.NYiGXrGYi NOFACT,PO«EH
6010 FORMAT(T21,'ORIGINI (',F7,2,', ' ,F7.2i ' ) ' /' 0 ' ,T21 .
x IHUGHTING GRID NX«',ij,T5ii IHEJGHTING GRID N»««,
x iz/'o', rzii INEIGNTING SRID GX.I.FS.J.TSI, 'ntisHTinc G«ID GY.I,
X F5,2/'0',Til,'NQ BtlGHTING FACTOH8 ( I ,11, < ) ' ,T51,
X iPUUERi'iFD,!)
IF(LTMETA) »RITt(6,6011) THETA
IF(.NUT.LTHETA) HRITE<6,6012) RADIUS
6011 FORMAT! '0',T21, 'SEARCH ANGLE" i P5, 1)
6012 FORHAT('Oi,T21, 'SEARCH RADIUS*' ,F 7,2)
ALPHA'THETA*0, 0087266146
RETURN
500 NRITE(6,6500)
6500 FORMAT('-',T21>'GRJD DIMENSIONS ARE OUT Of RANGE, '/T21,
X 'EXECUTION TERMINATED,')
STOP 1
END
JUNE'75
JUNf'Tb
JUNE'75
JUNE'7!>
jUNt'75
JUNE'75
JUNE'IS
JUNE'75
JUNE'75
JUNE'7
JUNEI75
JUNt'75
JUNE'75
JUNt'75
juNe'75
juNE'75
JUNE'T5
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNEUS
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'"5
SUBROUTINE INSTA
INTEGFR END,9T»ID(e)
LOGICAL MULTl
COMMON /PT8/ PX(10),PY(10) , HT( 1 0) ,NSTA, MUl TI
6010 FO(tMATr'0',T2l, "STATION NO.',T«3,'X (KM)',T6J,'Y (KM)',T8«,
X IHFIGHT (M)',T10I, 'IDENTIFICATION'/)
DO 100 NSTA*1,11
READ(5,?OIO) END, NO, X,Y, 2, STAID
50)0 FO»»A!(2I5,SE10, 0,7*1, A2>
IFtEND.EO.I1)")?) GO TO 200
IFtNSU.fG.ll) GD TO 105
IF(NO.NE.NSTA) 50 TO 500
»RrTE(6,6tOO) NO, X,Y,Z, STAID
6100 FORMAT(T26,I3,T11,F8.2,T61 ,F8.2,T66,F6.!,Tloi,TA,610?>
6105 FnBMAT('«',T2l, 'MORE THAN 10 STATIONS HAVE BFEN SPECIFIED. '/T?l ,
X 'EXECUTION TERMINATED.')
STOP 1
500 WRITEt<>,6500) NO
6!00 FORMATC-', Til, 'STATION NO, '.13,' IS OUT OF SEQUENCE, ' /T21 ,
X "EXECUTION TERMINATED.')
STOP 1
200 N3TA>N3TA-1
MULTT«NSTA,GT.I
UtTURN
END
JUNI'75
JUNJ'TS
JUNE'75
JUNE'75
JUNE'7S
JUNE'?1?
JUNt'75
JUNE'7?
JUNE'75
JUNt'75
JUNE'75
JUNE'75
JUNt'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNt'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'7S
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'TS
-------
SUBROUTINE "EIGHT
INTEGER END
LOGICAL MULTI
COMMON /PTS/ PX(iO),PYC10),HT(IU).NSTA,MUI TI
LOGICAL NOFACT.I THETA
COMMON /FACTOR/ EACTUO, 10,10), NOFACT
COMMON /IGRID/ ORIGINC2), NX, NY, (.X.GY, THETA, {. THETA, RADIUS. POHER
NOFACT«. FALSE.
«RITE(6,60IO)
6010 FORMAH'0',T21, 'STATION NO. ' , T« 1 » 'CELL NO, (X) ' , T6I , 'CELL NO, (T)1
x ,THI, 'WEIGHTING FACTOR'/)
1)0 10 IY«1,NY
DO 10 IX«I,NX
DO 10 ISTA«I,NSTA
10 FACT(I3TA,IX,IY)«I.O
jo REAO(5,503oi END, NO, ix, IY, FIELD
5080 FOR>«Al|tt5,C10.0)
IF(ENI).EO.')99<(9) GO TO 100
IP(NO,LT.1.0R.NO,GT,NSTA.OH.IX,LT,1,OR,IX,GT,NX.OR,IY,LT,1
X .OR.IY.GT.NY) GO TO 500
FACTIND, IX,IY)«FIELO
HRITE(6,6020) NO, IX, I Y,F IELD
6020 FORMAT ( T26,IJ,T«6,I2,T66,12,T86,F<>,«0,17«5J29
IF(«l)(ISTAl,Ll.-1.5T079b.UR.>lD(I3TA).BT.7.>55'>B2) GO TO 10
c RESOLVE ALL »IND SPEEDS AT ALL STATIONS TO 10 METERS
IF(HTU3TA),GT.O.) »3(I3TA)»>,S(ISTA).(10./HT(ISTA))««P.INO
U(ISTA)»»S(I3TA)«SIN(«0(ISTA))
V(JS1A)««3I13TA)«COS(»D(1STA))
GO TO 20
10 UIISTAl'l.EtlO
V(ISTA)«l.Etlt>
KCT'KCT-1
20 CONTINUE
IF(KCT.tO.O) HFTURN 1
GT1»KCT,GT,1
RETURN
C
C
ENTRY «F IFL.D(RX,»Y, THETA, uR)
w> AC I • 1
NExm
c
C DETERMINE THE »EIGHTING GRID CELL LOCATION (If THE RECEPTOR POINT
C
IY«INl((RY-ORIGJN(2))/GY)»l
IFtIX,LE,O.QR,IX,GT,NX.nRtIY,Lt.O.OR.IY.ST,NV) SO TO 25
•KEY'.NOT.NOFACT
GO TO 50
25 KKEY", FALSE,
SO 9ir.U>0,
3IGVO,
3IGR»0,
DO 40 ISTAil.NSTA
10 STANO(I3TA)«ISTA
C
C ORDER STATIONS BASED UPON MINIMUM RADIUS
C
DO 50 I3TA>1,NSTA
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNC'75
JUNE'75
JUNE'75
JUNE'7S
JUNE "75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE '75
JUNE'75
JUNl'75
JUNE'75
JUNE'75
JUNE'75
JUNt>75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE1?!
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE ' 75
JUNE'75
JUNE'75
JUNt'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE "75
JUNE'75
JUNE'75
JUNE>75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE "75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE '75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
-------
»0 RDU1(ISTA)«3QRT((RX-PXCISTA))««2KRY-PY
60 DO TO JSTA'NEXTiNSTA
ISTA«3TANO(JSTA)
IF*«2),LE,HADIU8)
X STANOUSTAJiO
too CONTINUE
CO TO 60
150 UN1SIUU/3IGR
VNiSIGV/SIGR
THEIA'ANGARCCUN.VS)
UH«3URT
RETURN
END
JUNE'75
JUNE'75
JUNE'75
JUNE'7S
JUNE'75
JUNE'75
JUNE'75
JUN£'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNf'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'71)
JUNE"7!
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNt'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNt'75
JUNt'75
JUNE'75
SUBROUTINE 30RTX ( X , LOC , N)
INTEGER xm.LOCtl!
M*N
1 M1M/J
IF(M.FIJ.D) RFTURN
K>N»M
DO 10 I«1,K
J«T
5 L«J*«
IJ-LHCM)
IL'LnCfl)
TF(X(IL).EE.X(U)) 60 Tn 10
LOCIJUIL
J«J.M
IFfJ.GT.O) GO TO 5
10 CONTINUE
GO TO 1
END
JUNE'75
JUNE'75
JUNF'7b
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'7S
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JUNE'75
JLIN8'75
JUNE'75
JUNF'75
JUNE'75
FUNCTION ANGARC(OELH090.
RFTURN
! IF(OEL»)9,10,11
1 ANGARC « 57,29578«ATAN ( DELH /OELN ) +560 .
RETURN
10 ANGARC • 560,
RETURN
II ANGARC • 5T,295TB*ATAN (OELM/DfLN)
RFTURN
ANGARC'360 INDICATES INDFTERMINATE ANGLE
END
0000?820
OOOI>2B}1
Onon?840
0000?850
OOOOJ660
OOOOJ870
010028611
OOOOJ890
00002900
00002910
00002920
00002930
00002950
00002960
00002970
000029BO
00002990
00001000
00003010
00003020
00003030
QOOOSOOO
00003050
00003060
00003070
-------
SUBROUTINE PRAM
DIMENSION DISTX(2aO),XDCAY( 8«0),3SlC2t?80),tXPDZ( 810) AREAS
l.HA(M,UHAC5),0< 20005,01 (600>,aO(100(»,DC< 17,1515, SUM (6,131) AREAS
EQUIVALENT (DISTXU >,OCU,1)), (5UH(I,1 ),QO())> ARfAS
COMMON/AHFAS/NXI,NX,DI3TX,XOCAY,SSIGZ,FXPOZ,NM,HA,UHA,0,OI,gn,CONC
LOGICAL LDCAY JUNt'75
COMMON/BASIC/IPRTR,ISTAR,IERR,I3IGO,NXLIM,NXZLM,N|.I,XONe
I,XMAX,CONX,DE[.AY,INOEX,THTA,C1GMX,SIGY(3IGZ,XR,YR,IR.XS,YS,XK,Y»4 BASIC
2,IND,DLTA,XMNI,YMNI,GXI,GY!,DLTAI,NHI,XMNM,YMNM,GXM,GYM,DLTAM,NHM BASIC
3,XMNO,YMNO,GXQ,GYO.DLTAn,NHO,FTTF,ICARD,NAI,NAO,NA,NNH,NN.PS,NR BASIC
«,13TRT,NFIRST,NMRECP,IHDF,NGP.DOT,*GRTMP,L!>CAY JUNE'71
DIMENSION YEARR(2),AMONN(2),DAYY(i>),HnURR(2)
COMMON/DATTHE /DH,STOP,YFARR,AMDNN,,OAYY,HOURR
DIMENSION CPOINdJO ),CNCT( 1JO), XRR( 130), YRR( ISO), ZRR( 130) OUTPUT
COMMON/OUTPUT/YEAR.AMON,DAY,HOUR,NRECP,CNCT,C*OIN,XRR.YR»,ZRR,I DO*
I,TeMP,ALAT,PU,PN,PS,CIGMl,CJGM2,lREGN,BACKGR,INOP,ILlNE,PMnDA OUTPUT
DIMENSION XP(680),YP(6aO),ZP(690J,HP(6SO),aP(6tO),DP(6BO),VP(6BO) POINTS
l,TP(6«(ll,SSlGY(S,2eO),NLQC(fc801,CONPT,CNCA(I3nnO>,HPEP4(680) POINTS
INTEGFR«2 N3IC(680),IPJ(6BO) POINTS
EQUIVALENCE (CNCA(I),XP(1)) POINTS
CnMMON/POINTS/NPS,XP,YP,ZP,HP,OP,DP,VP,TP,NP3S,CONPS.IXCHG,S3IGY
I,N3IC,NLOC,CONPT,IPJ,HPFPU POINTS
CnMMON/WNDSP/WSPD,KHGT,PWIND
Lnr.icAL MULTI jUNt'75
COMMON /PTS/ PX(IO),PY(IO),HT(IO),NSTA,MU| Tl JUNE'75
GET RFFERFNCF INPUTS (UNCHANGED FOR RUN)
NA DCMNFS DIMENSION LIMIT OF Q ARBAY.
NAT * 600
NA « ?DOO
NAH • 1000
NNH DEFINES DIMENSION LI"IT OF UHA AMD HA ARRAYS
NNM « ^
NNPS IJEHNFS DIMENSION LIMIT OF XP , YP , 7P AND UP ARRAYS.
NNPS • 680
HARD « 5
IP01R « 6
I«rlF « IS
XONF • 50.
CIGMX • SD10.
NLT « JO
RN « I ,/FLIlATt'll I - 1 )
RFADtlCARD.IOOO) ( YF ARH ( I ) , AMONN (I ) , DA YY ( 11, MflURH ( I) , I»l ,2 ) ,OH, I0(1«
I , DECAY, I8IGD,ALAT,NH[.T,PU,PN,PS,CIGM|,CIGMJ,BACKGR
1000 F[l»MAT(NF?.o,F1.0,n,F8.3,II,F5,2,F«.l,JFl.>,?FS.O,FS,l)
TF("ULTtl -H(,T«HTM)
LOC*Y«MULTI. AND. DECAY. GT.O.
IF(ISlGD.r.T.O) GO TO 3
? CONTINUE
KRITE riPRTR,!007) ISIGD
1007 FOKMA1 (' ISI(,D OUT OF RANGF «',I5)
CALL fXIT
JUNE'TS
JUNE'71!
JUNE'7?
3 COWIINUF
IF U3IGD -
4,4,2
PE»D(1?I NH,(MA(I],I"I,NH),X»NI,YMNI,GXI,GYI,DLTAI,NHI,XMVM,YMN(I
t,GXW,GYM,DLTAMfNHM,XMNO,YMNO»GX(J,GYO,DLTAO,NHO,IREGN,INDP
IF (MM . NNH) ??,??,?!
21 COWTTNUF
«RITF(IPRTR,100(>) NQ I , NO, NOO, NH, NP3, NRECP
1006 FDBMATCOPRBGRAM DIMENSION LIMITS t XCEF.OED ' , 5X ' NOI ' , 6X ' NO I , 5X ' NOO"
l,6»'NM',Sx'MPS',3XlNRfCP'/S«X6I»/)
CALL EXIT
C
23 CONTINUE
DLT» « Dl.TAI
XMAX ' .1QRT(GXn*GXO » GYO*GYO) *OLTAO
CONX « (XMAX/XONE)**RN
READ 112) NOI, (OKI), I«l, HOI)
IF (NJI - NAI) 23,2J,J1
23 CONTINUE
READ (12) HO, (13(1), 1st ,NO>
IF (NQ - NA) ?001 FORMAT (2F». t)
NRECP » NRECP » I
IF (NRFCP.LE.NR) GO TO 40
NRTTEUPRTR.1003) MR
1003 FORMAK'ONUMBER OF RECEPTORS F.XC£EDS DIMENSION LIMIT OF1, 15)
CALL FXIT
40 XRR(NRCCP) • XRolOOO.
YRRtNRFCPI « YP,«100<1.
GO TO 30
50 IF (NRECP. GT.'O.'J GO TO 60
HRITE(TPRTR,I001)
1004 FORMATt'ONO RECEPTORS
CALL EXIT
60 CONTINUE
B-18
-------
00 100 I«I,NRECP
ZRRtl) • 0,
100 CONTINUE
RETURN
(in
SUBROUTINE DISTB
C ROUTINE TO SET DISTANCE DEPENDENT ARRAYS.
C
DIMENSION OI3TX(280),XDCAY( 8«0) ,3SIGZ (280) , ITXPOZ ( tlO)
1, H A (5 ), UNA (?), 0(2000) ,01(600), Q0(l 000)
C
AREAS
JUNE '75
COMMnN/flASIC/IPRTR,ISTAR>lERR,ISIGD,N!CLII|'fNXZL«,NLI,XONE
1,XMAX,CONX, DECAY rINOFX,THTA,CISMX,SIGY,lIGZ,xR,OP(6eO>,VPC680) POINTS
1 > TP «>«n )» S3IOY(5> 280>,NLOC (680 ),CONPT<6»0) fCNCA ( I SOOO ),HPEP'I (680) POINTS
INTEGER*? NSlnt680),IPJ<6aO) POINTS
EQUIVALENCE (CNCAC I ) , XP( I ) ) POINTS
COM»nN/POINT3/NPS(XP,YP>ZP,HP,GP/DP.VP,TP»NPS8,CONPS.IXCHG,SSIGr POINTS
l.NSic.Nuac.coNpT^iPj.Hpppa POINTS
LOGICAL MULTI JUNf'75
COMHON /PTS/ PX(tO),PY(10),HT(IO),NSTA, MULTI JUHt ' Ti
IF(IS1RT>E,0) GO TO 30 JUNE'75
IXCHG > 0
C SET OIS1X AHRAY
DISTXf l)«xnNE
DO JO I«?,NXLI«
J « I - I
IF (IXCHG.NE.'d GO TO 15
o;sixrr> = CONX» oisTxtj)
IFtDI3TX(I),LE.niSTX(J)«DLTA) GO TO 16 JUNE'7S
IXCHG « J
1^ COHIIWUE
DISTX(T) * DISTX(J) * OLTA
16 COMTINUF
IF(OISTX(I),Glt.xMAX) GO TO 2S JIINE'75
20 COMTINtlE
NHTS5 * fX«AX . DISTXCNXLI"))/DLTA * 1.
"RITE riPRTRilOOl) NMI3SiXMAX,DI5TX(NXLI»)
1001 FORMATUXI8, ' "ORE LOCATIONS REdUESTED FOR DISTX ARRAY, XMAX mi,
1 F10.5,', DISTX(LAST)»',F10,J)
CALL FXIT
J'l CONTtMIF
NX! « T
C SET ARRAYS HHICH DEPEND ON DISTANCE AND METEOROLOGICAL CONDITIONS ONLY.
C CHECK THAT DIMENSION LIMIT NXZLM IS NOT EXCEEDED
NHL T«NH*NXT
IFtNHLI.I.E.NXZI.M) GO TO 26 JUNF ' 75
NfiTTE f IPRTR, 100«)NXZLM,NH,NXI
1001 POHMAU' NM » NXI EXCEEDS DIMENSION llMIT OF',16.', NH,«',I
16,', NXI«',I6)
-------
C»U FXIT
?6 CCINTINUF
C GfT IRAVEL DISTANCE DECAY FACTORS
30 CONTINUE
IF(OE.CA.Y,GT.0.1 SO TO U«
IFdSlRT.NE.O.OR.KULTI) SO TO 61
DO 4] IK»I.NHLI
XDCAY(IK) • 1.
1! CONTINUt
GO 10 61
14 CONTINUE
IK • 0
00 55 T«i,NXT
XI • I>ISTX(I)«DFCAY
on 50 IM«I,NH
!K • !K » 1
XDCAY(IK)«.XI
50 IFf.NOT.MULTI) XOCAYtIK)«EXP(XDCAY(IK)/UHAUM))
IF(HULTI) GO Tn 55
IF S)
I)I"FN3TON I5I3TX(3»0),XOCAYI 8«0 ) , 33IGZ ( ?«0 ) , EXPO? ( »"0)
, aiifcOoj.Qouonn)
JUNt'TS
LOGICAL UOCAY
Ca«»ON/BA3IC/IPRTR,I3TAR,IERR(ISIGD,NXLI«fNXZL»iN(.ItXQNE
1 ,X««x,CJ'.x, Dfr*r, INOEX.TMTi.CIGNX.aiSY.SIGZjXBfYR.ZR.Xa.YJ.xi,, Y«
2, T-JO.OLrA, XMN] , YHM!,GXI,GU,OlT«I,NHl,»M«jM,r>«,OLT»H,»jHM
3 i X1Nn,YHNO,GXO,GYn.DLTAO,NMO.FTTF, I CARD, NAI , NAU, NA, NNM, NNPS,NR
1l,I3TRl,NFIi»ST,><>iRecl'.mOF,NGROnT.NGRT«»(l OCA»
en«xnN/GRTG/X«XItY«XI.X«Xl,Yi«X«,X'«xo,Y>«»0,XICC'R.YJCOR.XHCOR(YMCOR
1/xnCOR, YnCnR,C03A,9INA
CONST • 1/(?*SORT(?«PI))
DATA CONST / 0.1994711 /
LOGICAL XULT1
CO«"ON /PIS/ PX(10).PY(10),MT(IO),N8TA,MUI TI
RF»I •« OFLXpXL.YL
RFAL UMAPt5),UHAP3(5)
LOGICAL SFCOND
SECOND., FALSE.
NCOI.»NM«(NX-1)
on 10 IH>I,NH
SXKTHHO.
rER"A(IM)«0.
SK(IH)«?.«DLTA*EXPnZ(NCnL«IH)
10 CUtJIINUE
AREAS
JUNE '75
JUNE'75
BA3IC
BASIC
BASIC
JUNE'75
JUNE'75
JUNE'75
JUNt'75
JUNEI75
JUNE'75
JUNf'75
JUNf'75
XwL'O.
XL'XH
YL«YR
DO 210 I«!,NXI
X. • DISTXIIJ
DELX»XB.XNI.
DO 10 IH«I,HH
?0 OXYUH) • 0.
HIND ORIENTF.O COORDINATES TO G»JD ORItNTtD COORDINATED
IF(.NOT.HULTI) GO TO 40
XLI«XL
YL4«YL
CALL »FIELD(XL4,YLO.THFTA,U)
DO 25 ITFRlliNMAX
ALPH«1.570796.fHFTA*0.01745329
JUNf'75
JUNF.'75
JUNf'75
JUNE'75
JUNS'75
JUNE'75
JUNt'75
JUNf>75
JUNf'75
JUNf'75
-------
COSA«C03(ALPH! JUNE'75
SINA«8IN(ALPH) JUNE'75
X3»XL»DE1.X*COSA JUNE '75
Y3«YL*DELX«SINA JUNt'75
25 CALL HFIELD(.'5«(XL»»XS),.5*(YL«»ra),TH«T»,U) JUNE'75
ALPH«t,!7079<>»THETA«Ot017«5529 JUNE" 7?
COSA«C03(ALPH> JUNE'75
3!NA«3IN(ALPH) JUNl'7S
to XL»XL*BELX*COSA juNE'7»
YL«Yl*DELX«SINA JUNB'7»
X3«XL JUNE I7S
Y3»YL JUNE'7»
C
CALL GCHEK
GO TO (50,51,52,210), IND JUNE'75
C
50 CONTINUE
CALL RATeNPOINT.N«)
NHTGH • NHM
SO TO ?U
52 CONTINUE
CALL RATrtGXO,GYO,t>LTAO,00»X8,Y«,NHO,OXV,SAVEOtNPOINT,NAO)
NHtGH » NHO
51 CONTINUE
C
lFf,N07.HULTI) CD TO 60 JUNt'75
DO 51! IH«1,NH JUNf'75
55 UHAP f IH)"II*UHA(IH) JUNE'TS
60 JFU.ST.I) GO TO 80 JUNE'7»
C
DO 70 IH « 1,NH
IF(LOCAY) ZVAL«ZVAL*EXP(XDCAY(IM)/UHAP(JH)) JUNE > 75
TEBHA(IH) « OXY(IH1*ZVAL
70 CONTINUE
GO TO J10 JUNt'75
C
»0 CONTINUE
IFU.UE.NX) GO TO I1B JUNE'7S
IF(,NC]T.MULTI. OR. SECOND) GO TO 90 JUNE'75
SECOND«,TRUE. JUNE'??
DO «5 IH»1,NH JUNE'75
«5 UH»PS(IH)«UHAPUH) JUNF'75
10 00 115 IH«1,NH JUNE'75
ZVAL • SKtIH)
IF{LDCAY) ZVAL»ZVAL«EXP(XDCAY(NCOL»1H)/UHAPCIH>> JUNE'75
IFR«»ZVAL«(1XY(IH) JUNF ' 75
IF(HULTI) TFRH'TERH/UHAPdH) JUNE'75
3XIfIH)«3XI(IH)»TERH JUNE'75
115 CONTINUE
C
GO TO Zld JUVJI75
C
11« CONTINUE
00 150 IH * 1,NH
K«(I»n»NH*IH
ZVAL • EXPOZ(K)
IFtlDCAY) ZVAL«ZVAL»EXP(XOCAY(K)/UHAP(1H)1 JUNE'75
TERMB • OXY(IH)«ZVAL
TER««(TER>1A(IH)»TERMB)«DfLX JUNE ' 75
IF(NULTI) TERM«TERM/UHAP(IH) JUNE'7S
SXI(IH)«SXI(IH)*TEPH JUNE'75
TEflMA(IH) « TERMB
150 CONTINUE
C
210 XKL«X» JUNE'75
C
C END OF THE I « l.NXI SOURCE POINT LOOP STARTING AT »IO « S.
C
IF(SECOND) GO TO 230 JUNE'75
DO 220 IH.l.NH JUNE'75
220 UHAP3(IH)«UHAP(IH) JUNE'75
250 DO 275 1H«1,NH JUNE'75
TERM«TmNA(IH)*DLTA JUNE'75
IFfMULTI) TERM«TFRM/UHAP»(IH) JUNE'??
SXKIHl'SXKIHltTERM JUNE'75
275 CONTINUE
C
CONOO,
DO 250 IH • 1,NM
IF(HULTI) GO TO 215 JUNt'TS
CONC « CONC » 3XKIH) / UMA(IM)
GO TO 250 JUNE'75
815 CONC'CONCtSXKIH) JUNE'75
250 CONTINUE
CONC • CON3T » CDNC
RETURN
END
-------
SUBROUTINE 3CI«(NMAX> JUNE ' 75
$CI», STANDARD VERSION
DIMENSION DISTX(280),XOCAY( »,ao>,oc(i7,i3t),su>'<6,iji) AREAS
EQUIVALENCE (oiSTx,80tm AREAS
COMMnN/*RPAS/Nl(I»NX,D13TX,XDCAV,S3IGZ,EXPDZ»NH,HA,UHA,G,OI,GO,CONC
COMMON/BASIC /IPRTR, ISTAR,HRR,ISI GO , NXL IM.NXZI M,NLI»XONE
l.XMAX.CONX, DECAY, INDEX, THTA.CIGMX.SIGY.SIGZ.XR.YR.ZR.XS.VSiXti.YW BASIC
S,IND,f)LTA,XMNI,YMNI,GXI,GYI,DLTAI,NHI,XM:NM,YMNM,GXH,GVM,DLTAM,NHN BASIC
J(XMNO,YMNO,GXa,GYO(DLTAO,NHO,FTTF,ICARO(NAI,N«0,NA.NNH,NNPS,NR BASIC
COMMON/OAT I ME /OH,STOP,YFARR,AMONN,DAYY,HOURR
COMMON/OR ID/XMX I .YMX I, XMXM,YMXM,XMXU,YMXO,XICOR,YICQR»XMCOR,»MCQR
i,xocoR,rocnR,cosA,siNA GRID
DIMENSION CPOIN(!30),CNCT<130),XRR(130),YRR(lJO)(ZRRn!0) OUTPUT
COMMON /DUTPUT/YP AR,AMaN,0AY,HOUR,NReCP,CNCT,qPOIN,XRII,VRR,ZRR,IOn«
t , IC«P,»LAT,PU,PN,P3,CIGM| ,CIGM?, iRf Gig,8ACKGH,INOP, ILINf ,PyODA OUTPUT
LOGICAL MUUTI JUNt'71
COMMON /PT3/ PX(10),PY(IO),HT(10),N3TA,»U| TI JUNE'75
DIMENSION XP(6BO),YP(t,80),ZP(b«0),HP(6»(l),OPf68(l),DP(680),VP(680) POINTS
I , TP(6«0) ,33IGYr5,?80),N|,OC(680) ,CQNPY(680),CNCA(HOOO) ,HPFP«(6S1) POINT]
INTEGFR*? NSK (66cl),IPJ(680) POINTS
FOHIVALfNCF (TNCAdl.XPd)) POINTS
CDHMON/POINTS/NPS,XP,YP,ZP,HP,QP(OP.VP,TPiNPSS,CnNPS«IXCMG.SSIGY
t.NSIC,-JLOC,CDNPT,IPJ,HPFP« POINTS
DIMENSION CONPNTM600), GRDVAL(J600)
FOMIVALfNCf (nfll.CONPNTd)). (XP(I), GROVAI(D)
NXLIM GIVFS
nN U»IT nr OISTX AND ssinz ARRAYS.
." ntriNfs ninENSlon i IMJT or FXPOZ AND xoc»r ARRAYS
NXZI.M
NR
130
DlMENSlns LIMIT UF XRR, YRH, ZRR, CNCT AND CPDIN ARRAYS.
ISTKT • 0
HINF • 0
PMfJDA • 0.
MRCNTR » 0,
NGRDHI • 111
NGR1MP I 16
I GET CONTROL PAWAMErFWS
CALI PR*M
CALL PRNTT
ISTAP » 1
CALI r.fHFx
ISTAR « 1
ZR « 0,
?0 CONIINHF
: GET DAI* FOR n\E STUDY STATF PERIHO
YEAR • YTARHd )
AMON » AMQN^j f 1 >
OAY » OAYYd )
HOUR « HOURRd)
CALI. INPUT
IF(IERR.FQ.O) GP TO ?S
«RITE(IPRTR,IOOZ) YFAH,AMC]N,DAY,HaUR
IOOJ FORMA1 f'OHFOUt 3TEO INPUT DATA NOT FOUND'. »'«.'7'>(>.OR.TNTA.GT.7.B1n')8?) GO TO 150
: sfT ens AND SIN FACERS FOR KIND/SOJRCE COOROINATC CONVERSIONS
ALPH • 1,^707P6« - THTA
cnsA « cas(ALPM)
SINA > SIN(ALPH)
i GET AREA SOURCE KIND SPFFD3 FOR EACH EMISSION HEIGHT
01 00 IS IH«I,NH
UHA(IH)»1.
IFfHAdHl.GT.'lO.) UHA(IH)«(H«(lH)/|n.)«»PKINn
15 IM,NOT.»U1.T1> UrtAtlH)»UHA(IH)«»SpD
CALI PLUMZ
CALI DI3TU
IP(IERR.tO.O) GO TO 60
NRITE riPRTR.lOOl) YFAR,»MDN,OAY,MOuR
1001 FORMAT (' INPuT CRROR> GO TO NEXT DAT* SET',«M.O)
GO in 160
60 CONTINUE
; GET CONCENTRATION FOR EACH RECEPTOR LOCATION
ZR • -1
00 110 I*1,NRFCP
NMRECP • I
XRiXRRdl
YR«»RRfI>
7RL • 7R
ZR • ZRR(I)
IFTZR.EQ.ZRL) GO TO 80
JUNt'75
JIJNf "7S
JUNE'71
JUNE'75
JUNE'75
JUNE'7?
JUNt'TS
-------
CALL EXPZB
80 CONTINUE
CALL POINT
CALL CONTR(NMAX)
IFUERR.EQ.O) CO TO 100
NRITC UPRTR.IOO!) YE AR, AMON.DAY i HOUR
60 10 160
100 CONTINUE
CARCA > CONC • ETTr
CPOIN(I) • CONPJ
CNCTU) • CAREA * CPOIN(I) » BACKSR
IHO CONTINUE
HRCNTR • HRCNTR * I,
CALL OUTPT
SO TO 160
150 CONTINUE
NRTTE(TPRTR,I005) «3PD,THTA
1001 FORMAT (' HIND INPUT IS UNACCEPTABLE,»8PD«
|,i, 1HTA «',F7.3)
C
J60 CONTINUE
CALL INCRT
IF(STOP.NE.l.) 00 TO 20
C
CALL 3TASUMIHRCNTR)
CALL EXIT
END
JUNE'79
JUNE'75
,F6,1
JUNE'?1!
SUBROUTINE EXPZB
ROUTINE TO COMPUTE VERTICAL DIFFUSION FACTOR INCLUDING EFFECTS OF
DECAY AND GROUND REFLECTIONS FOR EACH OF NH SOURCE HEIGHTS,
BASIC EQUATION IS
EXPOZ • ( XOCAV
SISZ >«(EXP(»0,5*«HA»ZH)/S1GZ)*«2> »
EXP(.0.!«((HA»ZR>/SIGZ)*«S»
DIMENSION niSTXt280),XDCAr( 8«0),S3IGZ(2BO) ,E«POZ( 810) »RtAS
I,Hir-51,UHA(5),0(20001,OI(600)/OD(10llO),DC(1T,l!l ),8UM(6,151) AREAS
EOUIVALfNCE (DISTxm»DC(l,l»,CaUH(l,l),UO(l)) AREAS
CnM»ON/»REA8/NXI,NX,DI3TX,XOC»»,33I(;Z,fXPDZ/NH|H»,UH»,0,OI,00,COMC
CnMMf)N/BASIC/IPRTP.,ISTAH,IERR,ISIGD,NXLI»,NXZL»,NLI,XONE
i ,xH»KiCaNx,oFc»r,inof x,rHr*,cis«x,sjci',8isZi«R,rR,ZR,xs, vs.xi«, f- BASIC
2, IMI),riLT»,XMNI, VUM.GXI^YUDLTAI.NHIjXHNH.rHUK.GXM.CfM^LTAM.NHM BASIC
3>XMNOlVMNO,GXa,CVO>DLTAOlNHO,F.TTF,ICARO,NAI,UAO,NA,NNH,NNPS,NR BASIC
«,IS1R1,NFIRST,HMRECP,IBOF,NGRDGT,NSRTMP BASIC
LOGICAL MULTI
COUMOM /PIS/ PX(10),PY(10),HT(10),NSTA,MUI.TI
INPUTS
JUNE'75
JUNE'7?
HA
CTGMX
3SIGZ
RECEPTOR HEIGHT
NUMBER UF SUURCF HtlCHTS
ARRAY OF SOURCE HEIGHTS
MIXING CEILING
VERTICAL DIFFUSION PARAMETER
OUTPUT
EXPO? * VERTICAL DIFFUSION FACTOR
X • 0
DO 60 ,1'1,-JXI
DO 50 I«I,NH
f m (HA(I) - ZR) /SSIGZC J)
IFfF*F,LE.50.') SO TO 12
El « 0
11 CONTINUE
E2 » 0
GO TO 15
12 CONTINUE
El « fXP(-0.! • F » F)
F « (HA(I) » ZR) /SSIGZ(J)
IFtF.ST.7.) GO TO 11
E2 « EXP(-1,5 * F » F)
15 CONTINUE
K « K » 1
EXPOZ(K)«(El»e2)/SBIGZ(J)
IF(.NOT.HULTI) FXPOZ(K)«FXPOZ(K)«XOCAY(K)
?0 CONTINUE
IF(K.LF.NH) GO TO 60
IF(OI3TX(J).LT.DI3TX(J-l)tDLTA) GO TO 60
DO 54 !•!»NH
IF(EXPnZ(K-I»l),LE.'0,'"'><»*EXPOZ(K.It1-NH)) GO TO 60
JUNF'75
JUNF'7S
JUNE'75
JUNE'75
JUNE'7S
JUNE'7S
54 CONTINUE
NX « J
RETURN
60 CONTINUE
NX • NXI
RETURN
END
-------
SUBROUTINE POINT
DUE 10 FMIS3IONS FROM SPECIFIED POINT SOURfES
IASIC EQUATION IS
CDNPI «(0/(?«PI*U.5IG»«3lr,Z))«tXP(.0.5*(Y/3IGY)««?-DECAY*X/U)
• LTA,XMNI,YMNI,GXI,GYI,DLTAI,NHI,XMNM,YMNM,GXM,SY«,DLTAM,NHM
5,XMNO,YMNO,GXO,GYO,nLTAr>,NHO,ETTF,lCARD,NAI,NAO,NA,NNH,NNpS,NR
4,ISTRl,NFIR3T,NMRECP,I*t)F,NGRDOT»NGRTMP
COMMON/GRID/XMXI,YMXI,XMXM,YMXM,XMXO,YMXO,X1COR,Y1CQR,XMCOR.YMCOI1
I.XOCOR,YOCnR,CnSA,SINA
DIMENSION XP(6eO),YP(t>80),ZP(b80),Hp(68M,QP(680),OP«>flO),VP<6e(»
l,TP(b8o),SSIGY(;,28l»,NLOC(«>HO),CONPT(6nO),CNCA(l50'>0),HPEP4(6BO)
INTEGER*? NSIC(*80),lPJ(i80)
EQUIVALENCE (CNCAd ),XP(1 ))
COMMON/POINTS/NP3,XP,YP,ZP,MP,IJP,DP,VP,TP,NPS9,CONP9,1XCMG,SS!GY
AREAS
ARFA9
AREAS
8ASIC
BASIC
BASIC
BASIC
GRID
POINTS
POINT9
POINTS
POINTS
POINTS
POINTS
LOGICAL MULT!
COMMON /PT3/ PXCtO),PY(!0),HT(10),NSTA,MU|.TI
c INPUTS
C XR.YR.ZR « RFCFPTOR LOCATION IN SOURCE GRID COORDINATES
C NPS NUMBER OF POINT SOURCES
C XP,YP,ZP ARRAYS OF POINT SOURCE LOCATIONS IN SOURCE GRIDS
C OP POINT SOURCE EMISSION RATE
C XONE CLOSEST DISTANCE TO RECEPTOR
C ISIGD DIFFUSION PARAMETER OPTION
C DFCAY DECAY CONSTANT
C THTA «IND DIRECTION
C «SPO « JIND 3PFFO AT HEIGHT <15')?7_ /
DATA A/1.42,I.12,l."26,I,11,0,947, . 36";8, . ?7) - CIGMX) 22,10,00
?2 CONTINUf
IF (MM « I.) ?8,29,29
If CONTIMJE
HM » 1 ,
?9 CONTINUf
IF (XH.LT.DISTXdxrMG)) GO TO 50
J « (X* - OISTX(IXCHG))/OLTA « 1
IF (J.GT.NXI) GO TO 50
SIGY . 33IGY(INOEX,J) » «X» - DI3TX ( J )) /DLT A ) •(S9IG* ( INDEX , J»l )
I .SSISYdNDEX.J))
r.O TO 11
50 J • 0
SIGY > A(INDEX,ISIGD)«X»»«P(INDEX,ISIGO)
SI CONTINUE
FY « YW/SIGY
FY? • PY • FY
IF (FY? -!6.) 12,40,00
-------
32 CONTINUE
CHNPJ « EXP(-0."5«PYJ>
IF (J.LF.Ot 00 TO IS
J • J • I » IXCHG
3IGZ • 3SIGZC J) » ((XN • Ot8TX(J))/OLTA)«(8SIGZC J»l)
1 . SSIGZ(J))
SO TO 1?
33 CONTINUE
IERR • 0
00 TO (51,37) , ISIOO
31 CALL SISZ1
SO TH HI
ST CALL SIOZ?
11 IF tl(RH) 55,12,55
IS CONTINUE
fZI « rZR.HM)/SIGZ
IFtPZl • rzi -36.) 55,10,1(0
35 CONTINUE
CONP3 • EXP(-0.'5«FZ1*FZ1)
IF (ZR.GT.O.) GO TO 36
CONPT « CONP3 « CONP3
CO TO »T
36 CONTINUE
PZ2 • (ZR » HH1/SIOZ
COHf 14 * 0.
IP (PZJ.UT.6.") CONP1«EXP(-0,5*FZ2*PZ2)
CONPT • COXPS » CONP1
IT U«H3PD JUNE'75
IF(ZP(I).GT.IO.") U»U*(IP(I)/10,)**PKINO JUNE'7!
CONP1 »OP(I)/(?«PI«U*SIGV»8IGZ)
IF fDfCAY) 80) POINTS
INTEGFR«3 NSIC{680),IPJ(680) POINTS
EQUIVALENCE (CNCAd),XP(1)) POINTS
C
COMMnN/POINT3/NPS,XP,YP,ZP,HP,OP,OP,«P,TP,NP3S,CONPS,IXCHG,SSIGY
\ ,N3ic,Nuac,cnNPT,IPJ,MPFP« POINTS
c
COMttON/KNDSP/»SPD,«HGT,P»IND
C
LOGICAL MULTI JUNE'75
COMMON /PT3/ PX(10),PYC10),HT(10),NSTA,MULTI JUNE'7S
IF (T3TRT.NE.O) GO TO J
00 1 I«1,NPS
1 NPCPI(I) " HP(I)**I),1
Z CONTINUE
TBAR » (TFMP . 3J.)/l.fl t Z7S,
3 * 9,8*0,0033/TBAR
00 70 I»1,NPS
IF (TBAR^LT.TPd)) GO TO 5
DM » 0,
80 TO 60
5 CONTINUE
F • 2,15*(1. -TBAR/TP(I))»VP(I)*DPU)*DP!I)
IF(MULTI) CALL »FIELDCXP(I),YPU),THeTA,N3PD) JUNE'75
»3«HSPD JUNE'75
IFIHPdl^GT.lO.) H8>N8*(HP(I)/IOt>**PNIHID JUNE'75
IF riNOFX - 1) 20,20,10
10 OH • 2,'»»(F/*0.6VH3
GO TO 60
10 DH « 62.'?S5 * (F**0,6)/H3
60 ZPfl) » HP(I) t DM
70 CONTINUE
RETURN
END
m
-------
SUBROUTINE GCHEK
DETERMINE IF POINT XS.YS IS H1THIN INNER GRID (lND>fl), MITHJN nuTFR
GRID (IND«1) OR OUT3IDE OJTPR GRID (IND*2)
CORRECT X3,YS TO APPROPRIATE GRID COORDINATES
COMMON/BASIC/1PRTR, 13TAH.IERR, 13IGD.NXLIH.NXZLN.NU.XONE
I.XMAX,CONX,OECAY,INOEX,THTA,CIG>IX,SIGY,3I6Z.XR.YR,ZR,XS,Y3.X»,YN
2, IND,nLTA,XMNi, YHNI,CXI,(;YI,OI.TAI,NHI,XMNM, YKNM.SXM.CYM.OLTAM.NHH
?,X"Nn,YMNO,GXn,GYn,DLTAO,NMU,FTTF,ICA«0,NAI,NAO,NA,NNH,NNPS,NI)
«,I3TR1,NriR3T,NMRECP,IHQF,NGRDQT,NCRTN.P
COMMON/GRID/XMXI,YMXI,XMXM,YMXM.XMXO,Y«XO,XICOR,YICQR»)
-------
SUBROUTINP RATE(GX,GY,DLTA,0,XS,Y3,NHI,OXY,SAVEQ,NPOINT,NUMBR)
C
t A SUBROUTINE TO INTERPOLATE EMISSION RATE Or « POINT INTERMEDIATE TO
C POINTS ON A STANDARD GRID SYSTEM
C
DIMENSION QfNUMBR). QXY(S), SAVEQ(3), NPOINT(3,S)
C
DO 1000 I • 1,3
SAVEO(I) • 0."
1000 CONTINUE
C
C INITIALIZE INTEGER CONSTANTS
IGRD • GX
JGRD • GY
NG > IBRD * JGRD
x • xs/ DLTA
IX * X
Y « YS/ DLTA
IY « Y
C CHECK IP POINT IS ON OUTSIDE FRINEE OF GRID, I.'C.' NITHIN 0.? GRIDS OP
C EOCE, IF POINT IS IN PRINGF CORNER, USE CORNER GRID VALUES, OTHER
C POINTS, LINEARLY INTERPOLATE 8ETDEEN EDGE GRID POINTS,
IF (X - IGRO) 10,1,1
I CONTINUE
IF (Y » JGRO) 5,3,2
I CONTINUE
K • 0
5 CONTINUE
C
C USE CORNER VALUE,
SAVEO(I) « 1.
DO B
10 CONTINUE
Kl • IX * (IY - 1) » IGRD - NG
C
C DETERMINE "MICH TRIANGLE UF GRID POINTS WILL SE U8EO FOR INTERPOLATION
BX » X - IX
ST • Y . IY
IF OX • BY) 200,100,100
C
100 CONTINUE
SAVEQri) • 1.' - BX
8AVEGC2) • BX - BY
SAVEQC3) > BY
DO 150 I>1,NH1
K! • Kl » NG
KS • Kit 1
M • K! * IGRD
OXYm.O(Kl) t BX • t Q(KS )>Q(K1 »«8
NPOINTU.t) • Kl
-------
NPOIN1(?,I) » X?
NPDINTt5.il « Kl
150 CONTINUE
RETURN
C
tea CONTINUF
SAVEO(t) « 1. ' BY
SAVEQ(2) « BY - BX
SAVE9(3) • BX
DO JOO I«1,NM1
Kl • Kl * NG
KJ « Kl * IBRD
HI « « t 1
QXVU)'O(KI) * BY • (0(K5 )»Q(KI ))»»»*(0(Ka) • 0(K5))
NPOINIrl.T) • Kl
NPDINH2.1) « KJ
NPOINHJ.I) • M
100 CONTINUE
RETURN
END
SUBROUTINE EMFACTIHOUR, TFMP.FTTF)
C
C CALCULATE EMISSION FACTOR (ACTUAL OVER ANNUAL MEAN EMISSION R»TI)
C FOR SPECIFIED DATE, TIME AND TEMPKRATuRE
C
DIMENSION ITT(?in,XI(24),XJ(24)
C
DATA ITT/56,'i5,55,55,56,58,li9,<,l ,05,61, 1 1 «65, 64,62, 60 /
C
DATA XI/ 0161,,OUT,.OI3T,.OI43,,OI»t,,OS!0, '0590..0T02
I •, nS»S,, 0 177,, 01 56,. 01 II,. 04 11,, 01 1 6,. Ofl 1 8,. M«
! , ,nlHO,.051»,.05il7,.0558,.IHu4,.OSOO,.OJ40,.0203/
C
DATA XJ/ 'OS2«,,0«17,,0199,,0399,,0«3I,,049I, "OS4J,,OS50
I ,,OS?6, Of)
?S Y«.lt«XI(I)*O.OOOS33T
SPACE > 3PASEN * Y
Ti BACK • (1. - SPASEN) • XJCI) / 365,
fITF « «TSO. « (HACK « SPACE)
RFTURN
EMI
SURBOUTINF INCUT
C THIS SUBROUTINE INCRt»FNTS THE TIMS AT CONCENTRATIONS ARE CALC. BY THE
C DIFFUSION PStlKPAM, IN ADDITION TO THIS IT GENERATES THE MM[ INOFx
C WHICH IS USFO ro GENFRATF THf SOURCE MATRIX AND «Tf0«m.OSICAl. INPUTS
C CORRESPONDING TO THF IIMF AT *HICH THE CONCENTRATION IS REQUIRED,
C
DIMENSION YFARU(a).AMOMN(?),DAYY(J),HOURR(?) OATIME
C
COMMON/DA TIME /[)H,STOP,YFARR,AMUNN,DAYY,MOURR
C
DIMENSION CPOIN(nO),CNCTH3H),XHR!l!(M, YRR( 130 ), ZRR (110) OUTPUT
C
COMMON/DtllPUT/YFAP, AMUN, DAY,MOUH,NRECP,CNCT,CPOIN, XRR,YAR,ZRR,IDOlN
I.TFMP.ALAT.PU.PN.PS.CICMl.CICMa.IRECN.BACKCR.INOP.ILINE.PMODA OUTPUT
C
OIHFN3ION OIM(1?)
C DIM is »1 ARRAY RFPRESENTING THE NUMBER OF DAYS IN fACH MONTH
C
DATA "IM / %1.,?8.,31.,30.,31.,30.,51.,31.,So,,3!,,JO,,Jl. /
HOIIHL • 75.
C
C THE ARRAYS YflRR, AMDNN, DAYY, HOURR CONTAIN THF YEAR (T«0 DIGITS),MO,
C DAY, AND HHUR OF T"E FIRST ANO LAST CALCULATION (INDEX'l AND I»-DEX«?
C RESPECTIVFLY)
C
C CHECK FUR LEAP YEAR
TEST YEARR(l) / «.'
ITEST«TFST
IF(TEST.ITEST) JOO,100,^00
100 CONTINUF
C YEARtl) IS » LEAP YMR
DIM(J)i?9.
BO TO J?0
200 CONTINUE
01M(E) « JB,
220 CONTINUE
C INCREMENT HOUR
HOURR(l) « HOURR(l) » DH
C CHECK TO SEE IF HnilRM) IS IN THE SAME DAY
230 IFfHOURRd1-HOUHL) 600,600,300
500 CONTINUE
C HOUR(I) IS NOT IN THt SAME DAY
HOURRC1) » HOURR(l) - 21,
C SET BAY OF »EEK INBEX
2«0 IOOH « IDD« » 1
IF (IDOK . 7) 270,270,2(iO
260 IDD* • \
2TO CONTINUE
DAYY(l) * DAYY(l) « 1,
C CHECK TO SEE If DAY(l) IS IN THE SAME MONTH
HnNTHIAMONNCl)
IF (DAYYU) » OIM(MQNTH)) 250,210,400
400 CONTINUE
C BAY(l) IS NOT IN THE SAME MONTH
AMONN(I) • AMONN(l) • 1,
-------
i,
C CHECK TO SEE IF MONTH(I) IS IN S»HE YEAR
IFfAMONNm-IZ,) ?JO,2JO,500
!00 CONTINUE
C MONTH!!) IS NOT IN THE SAME YEAR
AMONN(I) • I.
YtARR(l) " YEARR(l) » 1.
GO TO fSO
*>00 CONTINUE
C CHECK TO SEE IF THIS IS LAST INCREMENT
IF (YEARR(l) - YEARR(21) 1100,TOO,1HOO
700 CONTINUE
C YEARS ARE THE SAME
IF(AMONN(1)«AMQNN(2)> 1100,800,1000
800 CONTINUE
C MONTHS ARF THF SAME
IF fOAYYU) - OAYY(J)) 1100,900,1000
900 CONTINUE
C DAYS ARE THE SAME
IF (HOURR(l) - HOURR(Z)) 1100,1100,1000
1000 CONTINUE
C STOP INCREMENTING
STnP«l,
RFTURN
1100 CONTINUE
STOP"0,
RFTURN
END
SUBROUTINF MIXI.EV
OTMFNSTON CPOINCHO) ,C»,XRR(13(M
COMMON/OUTPUT/YFAR.AMON,DAY,HOUR»NRECP,CNCT,rPOIN,XRR,YRR,ZRR,IDOX
l,TtMP,ALAT,PU,PN,PS,CIGMl,CIGMS,IREGN,BACKGR,INDP.ILINE,PMODA
PMOOA • 100t*AMON + DAY
10 REAOM5/F1D-100) AMFI, DAFI, HRFI ,CIGMX
IF (AMFI - AMHN) 10,50,60
30 IF (OAFI . DAY) 10,40,20
«0 IF fHRFI . 1?,) 10,50,50
50 CIGM1 • Cir.MX
SEA0(H,M0«100> AMFI, OAFI, MBFI,CISMX
SO IF (OAFI - DAY . I.") 60,BO,90
60 IF (OAFI - 1.') 70,70,90
TO IF (HRFT) 80,80,90
80 CIGM2 » CIGMX
RETURN
90 BACKSPACF IJ
100 RETURN
FNfl
SUBRnUTINT OUTPT
C
COM«ON/BASIC/IPRTR,ISTAR,IFRR,ISIGD,NXLIM,NXZLM,NLI,XONE
1,XMAX,CONX, DEC AY, INDEX, THTA,CIGMX,31GY,SIGZ,XR,YR,ZR,XS,YS,XI»,YI*
2,INO,OLTA,XMNI,YMNI,GXI,GYI,DLTAI,NHI,XMNM(YMNM,GXM,GYM,DLTAM,NHM BASIC
J,XMNn,YMNO,GXO,GYO,DLTAO,NHO,ETTF,ICARD,NAl,«AO,NA,NNH,NNPS,NR BASIC
<<,ISTRl«NFIRST,NMRECP,HnF,NGRDOT,NGRTMP BASIC
C
DIMENSION CPOIN(HO),CNCT OUTPUT
C
1,TCMP,ALAT,PU,PN,PS,CIGMI,CIGM2,IREGN,BACKSR,INOP,ILINe,PMHDA OUTPUT
C
COMMON/WNDSP/wSPD,WHGT,PWIND
C
REAL*8 POLI.U[2)/'SOZ','PARTICLE'/
CCOHPUTE RECORD INDEX NUMBER
Y « HOUR * 100 * DAY « l.EO * AMON
C URITE DATA INTO FILE
URITEU«OF) Y, YEAR, I DON, WSPD.THT A, INDEX, TEMP, CIGMX, NRECP
1,( CNCT(I),1=1,NRECP)
IF (ILTNE.GT.O) GO TO 100
KRITEItPRTR.lOT) POLLU(INDP)
107 FORMATC1 '//2x'MD/DA/HR',20XA8, ' RECEPTOR CONCENTRATIONS, UG/CII.M'
I//)
100 ILTNE • TLINE » (NRECP - 1J/10 » 2
IF (ILTNE,GT.'50) UINF»0
NRITF(IPRTR,108) Y,( CNCT(I),!•!,NRECP)
108 FORMAT('0',F9.0,10F10,1/(10X,10F10,1))
RETURN
END
BASIC
-------
SUBROUTINE PRNTI
C
C PRINT BA31C INPUT VALUES UNCHANGED FOR RUN
C
DIMENSION DISTX(2BO),XDCAY( BUD),3SICZ(?80),FXP07( 8U1)
I,MA(S),UHA(S),Q(2000),81(600),00(IOOO),DC(17,1S1),8UM<6,I5I)
EQUIVALENCE l.T»,X»Nl,YMNl,GXI,GYl,DLTAI,NHI,XMNN,YMNM,GXM,GYM(OL.TAM8,NR
4,I3TRT,NPIRST,NMRECP.I«OF,NGRDOT,NGRTMP
DIMENSION YEARR(2),AMONN(2),DAYY(2),HOURR(2)
COMMON/DA TIME /DH,3TOP,YFARR,AMONN,OAYY,MOURR
DIMENSION ePOIN(110),CNCT<130),XRR(l}0),Y*R(1>0),ZRR(l]0)
COMMON/OUTPUT/YFAR,ANON,DAY,HOUR,NRECP,CNCT,CPOIN,XRR,YRR,ZRR,I00«
1, IEHP,*LAT,PU,PN,P9,CIG«I ,CIC«?( IRESN.BACKCR, INOP, II.INE,PMDOA
DIMENSION XP(680),YP(680),ZP«>80),HP(680),aP(680),D»(6»0),VP(6SO)
!,TP«>«0),SSlGYr;>,?«0>,NLaC(680),CON.PT(6flO),CNC»(llOI)0),HPEP,ALAT,»MGT,CIGM1,CIGM?,BACKOR
I,PU,PN,PS
I00« FORMATnix'DErAY CONSTANT',EU,J> ' PER SECOND '/I I X ' TYPE OF DIFFUSI
irm'.nxAS/iox'UATITUDE OF HtoiunSFi 5.2, > DFG.'/TX'KIND MEASURING M
SFIGHTSFIl.l ,' METERS^IX'MEAN MORNING MIXING DEPTH •, f 1 J,o ,' MFTER
JS'/IX^EAN AFTFRNOON MIXING DFPTH ' , Fl J. 0 , I "FTERS '/I|X ' BACKGROUND C
inNCENIRATIONSFU.O. ' UG/CU .M ' //SI X ' UNSTABLE NEUTRAL STABLE'/TX
VKTND PHHFILE FxpnNFNT',3F9.2)
C
IPOU • INt)f>
C PRINT PUINT SOURCE DATA
I? I 0
IPS « (NPS - 1 )/50 > I
ARSAS
AREAS
AREAS
BASIC
BASIC
BASIC
BASIC
OUTPUT
POINTS
POINTS
POINTS
POINTS
POINTS
On 910 IP.|,IP3
11
IF
901 I?
GO
902 I?
905 cnw
I? •
NP3 -
NP3
0 903
IS •
IMIf
1
I? - SO)
in
901 ,901,90?
I, I J F-t 1 "• U (
W»TTF(IPRTH,1006> IP* POLLUdPODf (I » "P fl ) ( YP f 1) , HP [ J ) , OP ( Jl »
1006 FORMAlf'1POINT SOURCE EMISSION DATA',»7X'PAGE',I5//36XAH/JBX(STACK
I'.SX'FMISSION', SX^TACK'.bX'FXIT'.^X'EXIT'/PTx'MFIGMT'.SX'RATE'
I, SX'DIAMETFR',3X'VELOCITY1,IX'TEMPERATURE'/' NUMBER',6X'X'
5,BX'Y',(>X'(«)' ,5X'(G/3EC)',6X'(M)',6X1(M/3EC)',5X'(OEG.
HKl'//(IXl6,-5P?F9.),OPFB.l,.bP1FlI.l,nPJFll,|,Flll.l))
«IO CONTINUF
C
C PRINT AREA SOURCE DATA
m « GYI
I? • n
DO 9JO IP.I.NHI
USITEdPRTR.IOOl) MA(IP),pnLLU(IPOL),XMNl,Ol.TAI
1001 FORMAK ' IAREA SOURCF EMISSION DATA ' /I X ' INNER GRID, HE IGHT» ' , F6.'l , '
IM.'.AIJ,' EMISSION RATE IN uC/SO.M/SEC'//8X'Y',5X'XI«',-1PFT,1,5X
J,'OX«',F5.I/)
00 911 TT«1,II?
II • I? » I
!?•!?• GXI
JJ • (YMNI « (II - 1)«OLTAI)/1000,
«RITE(IPRTR,1005) JJ, (OKI),I'll,13)
1005 FORMAK I X,I9,|OF10.5/(IOXIOF10,!)1
911 CONTINUE
9?0 CONTINUF
I? » 1
ILY « fUXM . i.)/io.
ILY • II.Y » I
DO ">SO IM«1,NMM
NYP • 50/ILY
NP • (GYM . l.)/NYP
NP » NP » I
JJ XVMNM , DLrAM)/1000.
DO 9JO IP«|,NP
XRI1E(IPRTR,1010) MA(1M),POLLU(IPOL),IP,XMNM,OLTAM
1010 FOP-MATt M AREA SOURCE EMISSION OAT A ' /I x' MIDDLE GRID. HEIGMT*' p F6,1
X,'M,',A1?,I EMISSION ',
1 IRATE IN UG/SO.M/SEC1,MX'PAGF',I1//8X'Y',5X'XI»',.JPFT.1,5X'OXI'
5,F!,1/)
IF (IP - NP) 9SZ,9JI,921
921 NYP > GYM . (NP - 1)*NYP
«2J CONTINUE
00 9JJ II«1,NYP
II • I! » 1
12 « 12 » GXM
JJ • JJ » DLTAM/IOOO,
HRITEUPRTR,1005) JJ, (0(1), I'M, 12)
9JJ CONTINUE
B-30
-------
4JO CONTINUE
II • 0
ILY « (GXO • l.J/IO.
ILY • TLY » 1
DO '10 IH«1,NMO
NYP « 50/1LY
NP • (SYO - l.J/NYP
NP • NP * 1
JJ I (YMNO " DLTAO)/1000.
oo »«o rp«i«Np
HRITE(IPRTR.IOIl) HA(IM),PnLlU(IPOL>,IP,XMNO,OLTAO
1011 FORMAH'IAREA SOURCF EMISSION DATA'/IX'OUTER GRID, HEIOHT«" ,F6.'l
I,IM,',A12,' EMISSION RATE IN UG/SO.N/8EC',3'JX'PABE',H//BX>Y',5X
Z
IP (IP . NP) «3?,951.931
4SJ MVP • GYD » (NP • l)«NYP
nt CDNTINUF
DO '55 IIll.NVP
II • tl « I
I? » It « GXO
JJ « JJ » OLT«n/1000,
»RlTE!iPRTR,ioo5) jj, (onti), i«li,I.?)
95J CONTINUf
440 CONTINUE
C P«INT BECEPTOR LOCATION
I! « 0
IPS » (NRFCP - 1)/50 » 1
00 »?0 IP»I,IPS
II « If » 1
IF ruRFCP - I? - 50) 44i.9al.4il2
4Q1 IJ • NRECP
GO TO 9HJ
4«S I? • IZ * SI)
41J CONTINUE
• RITE(!P»TU,10U! IP.(I,XRR(I).YRR(I),ZRR(I).I>I1.I?)
1018 FQR»*Tr'lRtCEPTOR LOCATIONal,24XlP*Sel,lS//lX'NuHBIRl,6XlX',l'«lY1
1,1XIHFIGHT'/(5XIISIGD,NILIN>NXtLH,NLI,XONE
I.XMAX,CONX,OECAY,INDEx,THTA,CIGHX,SIGY,SIGZ.XR>YII,ZR,X9.Y3,XH,Yil
!.IND,DLTA,XHNI,YMNI,GXI,GYIiDLTAI,NHI,XHNN,VHNH,«>M,GYM,DLTAM,NNM
].XMNO,YNNO,GXU,GVn,DLTAn,NHa,FTTF,ICARO,NAI,NAO,NA,NNH,NNPS,NR
H.I3TR1 ,NFIR3T,NMRECP,lNnF,NGRDOT,NGRTNP
DIMENSION A(?,!),P(5,Z)
C
DATA A/0,0026, 0.0926, 0. 0B9] , 0.0855, 0.0777,0.072/0. 072,0, U9,! .07,
I 1, 01 /
DATA P /I .!«, 1.18,1, 11, 1.08,0. 955,1, ??, 1.22,1, 01,0. 6B2.0.SS'! /
C
IF (1STAR) 90,5,90
5 CONTINUE
C TEST FOR RFSTRICTION
tO CONTINUE
IF (5»INDFX) 10,50,50
10 CONTINUE
*RITE(IPRTR,15) INOFX
)5 FORHAK1M , 'SUBROUTINE 3IGZ1 - BAD INPUT-—'- INDEX «',lu)
IERR » 1
RETURN
50 CONTINUE
IFUNOFX.l) 10,60,60
60 CONTINUE
IF(CtGMX)TO,70,BO
TO CONTINUE
HRITE (IPRTR.1000) CIGMX
1000 FORMAT C PARAMETER OUT OF RANGt .CIBHXC ,F8, j )
IERR • 1
RETURN
10 CONTINUE
C XI DEFINES DISTANCE FOR kHICH SIGMAZ > 0,5««I X INC CEILING
DO B2 J«1,2
B • A(TNDEX,J)
0 « P(fNDCX,J)
XI • (CIGMX / (2. • B)).«(l. / Q)
IF (XI > (.00.) I3.BI.B2
St CONTINUE
BS CONTINUE
C Xt DEFINES DISTANCE FOR "MICH SIGMAZ • MIXING CIUING
DO »5 J«1,J
B > A(INDEX.J)
0 • P(TNDEX.J)
X? • (CIGMX/B)**(1.'/0)
IF (X2 • 600.) 8!, 85, en
•1 CONTINUE
HA3IC
BASIC
BASIC
BA3IC
-------
8? CONTINUE
RETURN
»0 CONTINUF
iFtxM.xmon,200,200
C X LESS THAN XI, NO MODIFICATION
100 CONTINUE
C DETERMINE WHICH RANGE «» IS IN
IF (XK • 600.) 110,110,120
110 CONTINUE
c rim RANGF
J • t
00 TO 150
1*0 CONTINUE
C SECOND RANGE
J • t
ISO CONTINUE
B > *(TNDFX,J)
0 • P(INHEX,J)
SIS2 > B «XN««n
RETURN
200 CON1TNUE
IF (Xil - X2) 300,100,1100
C X BE f«FEN XI AND X2
500 CONTINUE
SIGZ * 0,; • CIGMX • (X« » X2 - 2,«XI)/(X? • XI)
RETURN
C X GREATER THAN X2
•00 CONTINUE
SIGZ" CIGMX
RETURN
fun
SUBRHUTINF SIGZ?
C PASOUILL-CIFFORO CALCULATION FOR SIGZ
C
t THIS CALCULATION USES A PUxER LA* • A«X««R
C
C TNPUTS-X" IS DISTANCE FROM SOURCE, INDEX IS STABILITY CLASS NijuflFR
C RESTRICTION INOFX MUST BF BETKFEN 1 AND ?
C
COMMON/BASIC/IPRTR,I3TAR,IFHR,I31GD,NXLIM,NXHM,NLI.XONe
I.XHAX,CONX,OECAV,INDEX,THTA,CIG>XS>VS,Xli,V« 9 ASIC
2>IND,nLTA>XMNI,VHNl,GXI,GyI,OLTAI,NHI,XHNH,ri|Nll,GXH>GrH,OLTAI',l4HH BASIC
S.XMNO, y"iO,GXn,Gro,OLTAn,NMO,ETTF,ICARD,NAI,>iAO,NA,NNH,N»»,XR BASIC
1, ISTR1,NF1RST,NMRECP,IHOF,NGRDOT>NGRTHP BASIC
C
OI»ENSTUN Ar^,;),p(S,S),C(5,2)
C
DATA A/n.]i5,0.11«,0.Ill,0.105,0.10,0.00883,0i03?*,0.111,ft.)42,
• 0. JT^.O.OOOJ26,0,0579,0.11 1,0.9«»,I,B6 /
C
DATA P /t.05,0.986,0.911,0.827,0.776,1.51,1,0»,0.91 I,n.6)f»0.!«T,
• E,10,I.O«,0.91I,0.;ao,O.J66 /
C
DATA C / ?10. ,1000.', 1000. ,1000,, 1000. ,!00,, K.10000. /
C
IF( I3TAR ) ««,5,B«
•i CONTINUE
e TEST FOR RESTRICTION
IF(I-INDEX) 10,50,50
JO CONTINUE
»RITE(IPRTR,S5) INDEX
j! FORMAT MH , "SUBROUTINE siszi - HAD INPUT*--— INDEX >',li)
IERR • t
»0 RETURN
»0 CONTINUE
IFMNRFX-n 10,bO,bO
60 CONTINUE
IF(CIGM«)TO,70,«0
TO CONTINUE
NRITE riRRTR.1000) CIS«X
1000 FORMA1 (> PARAMETER OUT nF RANGE.CI6MX«",Ffl.1)
IfRR • 1
RETURN
(10 CONTINUE
C XI DEFINES DISTANCE FOR NHICH 3IGMAZ • 0.5.MIKING CEILING
DO "t J«l,'
BiAdNDf X,J)
OiPtlNDFX,J)
XI • (CIGMK/(?.,8))»«U,/a)
IF ( J - 5) 81,81,«J
«i CONTINUE
IF (XI . CdNDFX.J)) 85,8^,6?
Bg CONTINUE
85 CONTINUF
C II DEFINES DISTANCE FUR KHICH SIGMAZ • MIXING CIILING
DO 42 J«I>!
-------
8«AUNDEX,J)
Q«P(INI5EX,J>
X2 • (C!GMX/B)**(1.'/Q)
JF (J • 5) 91,91,93
91 CONTINUE
IF (X2 . CdNOEX.J)) 93,91,92
»! CONTINUE
93 CONTINUE
RETURN
81 CONTINUE
IF (X» - XI) 86,200,200
C X« LESS TH«N XI, NO MODIFICATION
C DETERMINE NHICH RANGE X IS IN
86 CONTINUE
IF (XN . C(IND£X,J)) 85,85,90
«5 CONTINUE
c J«i INDICATES THAT x is IN THE FIRST RANGE
J«t
GO TO 120
90 IF (X» - CUNDFX.J)) 100,110,110
100 CONTINUE
c j>2 INDICATES THAT x is IN THE SECOND RANGE
J«H
SO TO 120
110 CONTINUE
C J»5 INDICATES THAT X IS IN THE THIRD RANGE
J'l
lit CONTINUE
SIGZ« A(iNHEx,.n*xK**p(iNOEx,j>
RETURN
200 CONTINUE
IF (XW - X2) 300, CIGMX
RETURN
END
SU8ROUTINF STASUMtHRCNTR)
DIMENSION DISTX(280),XDCAY( 8«0),SSIG2(2BO),EXPaZ( 810) AREAS
t,HAfS1,UHA(5),OC2000),QI(bOO),aO(1000),DCU7,131),9U»«6,l31) AREAS
FOUIVAUENCF (0!STX(l),OC(l,l)),(3U«(l,n,00(D) ARFAS
COMMnN/A»EAS/NXI,NX,DISTX,XDCAY,3SIGZ,EXPOZ,NH,HA,UHA,0,QI,aO,CONC
COMM()N/BASIC/IPRTR,ISTAR,IERR,ISIGD,NXLtM,NXZl.M,NLI,XONe
I,XM«X,CONX,DECAY,INDEX,THTA,CIGMX,3IGY,3IGZ,XRio,r,xr,GVn,DlT»n,'JHO,ETTF,!C»RO,>J»I,M*0,N»,NNH,KjN»S,NR BASIC
1,ISTRl,NFIRST,NMRECP,I«nF,NGRDOT,NGRT«P BASIC
DIMENSION CPOIM(1301,CNCT(130),XRR(150),YRR(130),ZRRdJO) OUTPUT
COMMnN/DUTPUT/yFAR/AMON,DAY,HOUR,NRECP,CNCT,CpOIN,XRR,YRR,ZRR,100rt
l,TEMP,ALAT,PU,PN,PS,CIGMl,CIGM2,IREGN,BACKGR,INDP,ILINe,PMr)OA OUTPUT
DIMENSION xpc&aoi,vp<6BO>,ZPCt8">,Hp(68n),Qp(68o),DM6So),VP((,BO) POINTS
1, TP(6»0),SSIGY ("1,380 ),NLOC (680 ),CONPT(680),CNCA(1 JOOO ),HPEP'I (660) POINTS
INTEGfR*? N3IC(6«0),IPJ(680) POINTS
EQUIVALENCE (CNCA(l),XP(tl> POINTS
COMMnN/PQINTS/NPS,XP,YP,ZP,HP,QP,DP,VP,TP,NPSS,CONPS,IXCHG,SSIGY
1 ,N3IC,NI.I]C,CnNPT,IPJ,HPFP« POINTS
DIMENSION P(15),PC(17),GSO(13I) ,AV(131),30(I 31),3MOM(131)
1 ,TMr>M(131),FHOM(131),GAV(l31>
REAL*8 POLLU(?)/'Sn2','PARTICLE'/
DATA 3D/131»0./
DATA GSD/13100.
DATA PC/
1 'HIGH
2 , "10,0
DATA P/
' , ' 99
','30
.995,
5 '
«°'
,99
SMOM/1 31*0,/,TMOM/131*0,
,AV/131«0,/
"99
'20
.95
,0'
,0'
,.'
,'95.0',
,'10.0',
,.s, ,7,.
90,0'
5,0'
».5>.
, '80
,' 1
«..!
/,FMnM/131«0,/,GAV/131*o./
.0'
.»'
,.2
,'70
, ' 0
,.'!>
.0'
,5'
,05
, '60,0' , '50,0'
, ' LOW ' /
,,01,,005/
DO 2 I'l,6
DO Z J«l,131
2 SUM(!,.!> » 0,'
NHRT a HRCNTR
NT a NHRT*NRECP
IF (N1.GT,13000) GO TO J20
DO 5 lit,NT
5 CNCAU) • 999999,
HC • 0
NHR • 0
REWIND IWOF
10 NHR • NHR » 1
REAOUwOP,END«!0) Y, Y, I, Y, Y, I, Y, Y,NRECP, (CNCA (I), I«NHR,NT,NHRT)
DO 20 I«1,NRCCP
J • NHR • (I-1XNHRT
X • CNCA(J)
X? • X*X
lUNMiI) " SUMfl,!) t X
3UM(2,I) • 3UM(2,I) » X2
-------
3UM(J,I) • SUM(J,I)
3UMU,I) > SUM((|,I)
Y • ALnem
SUM(5,I>
3UM(6.n
X*X2
X2«X2
3UM(6,I)
20 CONTINUE
NC P NC * NRECP
GO TO 10
10 NHR • NHR - 1
NOF • NHR • 1
L • .NMRT • 1
FN3 I NHR
00 40 HI,NRECP
AV(I) > 3UM(1,I)/NHR
SI > (SUM(J,I) . NHR»AV(I)*AV(I))/NOP
•Ofl) • 3QRTI32)
SMQMri) • 8UM!2,I)/NHR
TMOHd) I 3UM(J,I)/NHR
FMOM(I) • 8UM(4,I)/NHR
A I SUM!!,I)/NHR
GAVdl • EXP(A)
tt • (8UH(*,I) * NHR«A»
G3D(I) • EXP(80RT(82»
U • L » NMRT
CALL 3nRT(CNCA(L),NHR)
DCM.I) « CNCACL«NHR.l)
OCtlT.I) * CNCA(L)
DO 10 J«l,l?
A • FNS.KJ)
IA « A * L
JB • IA • 1
IF (IB.LT.L) IB'L
• 0 DUfJU.I) • CNCAdB)
SUX(J.I51)
3UHm.ui)
3UM(6,131)
10 CONTINUE
« D
!UH(5,I51)
3UH(6,1S1)
SUM(I,I)
SUM(S,I)
3UM(«,I)
3UM(6,I)
3? • C3UM(2,1!1) - NC**V(1]|)*«V(1)1))/(NC-1)
3D(M1) • SQDTIS2)
3»o»tmi • sg><(?,iJi)/NC
TMnMtUll • 8U»(S.lil)/NC
3u«(«,l JD/NC
GtV(lSt) • FXPtM
SI * (SU«(6,15I) - NC«»«»)/(NC-I)
'
CALL 30»T(CNCA(l)iNT)
IRL • NRfCP « 1
DC(I,I»L> • CNCt(NC)
DC(IT,!HL) • CNCAd )
FNS«P(J)
A . AINT(A)
IB « !A - I
IF (TS.LT.l) IB«1
SS OC(J»I ,IRL)»CNCA(ie) » 0«(CNCA(IA)-CNCA(IB))
KI1E • 0
*0 NRITC(tPRTR.lOOO) IREGN,l>OLLU(lNOf)
1000 FOR»A1('I '.SIX'REeinh'.IOr ' STATISTICAL SU*MARY FHR'.Aq,
> //Xll'SX'STANDARDi.lTX'KOHENTa'.lfcX'CCOHETRIC'/1 RFCEPTOR1
l.kX'K'.ftX'V CASES MEAN Oe».',*X'ZND'.»X'JRB',»ll"ITH
a»t»>* s.DEv.1/)
DO TO J«1,SO
IUINE • ILINE • i
I " ILINF
fcPITK 1PRTR, 1001 ) RINF,»RR(I ),YRH(I),NNR,*V(I),»D(I ) ,S«n"(I)
l,TMn>-( T),f»nM(I),CAV(I),CSD(I)
loot FORMAT n»ia,-ippB.i,Fv.it ii, oprv.i.ri.i.sei?. '!>'«, i,ri,!)
IF flLINE.GC.NRECP) GO TO «0
TO CONTINUE
BO TO fcO
*0 IPS • 0
KRTTCMPRTR, 100*1 «t, AVdSl ) , 30(1 SI) ,»MO«MSJ > »TMO«< Ul» .FKOWU^l )
I ,CAV( !!! 1 ,0«D( I 31)
1006 FORMAT (fcX1 ALL ' , 1 TxI«,F9. 1 ,FB, 1 , ICI2. J,F». I >F«,J)
90 IRI • TR2 « 1
IRi » IK! » 10
IF (IR2.GT.IRU) IR2«IRL
«RITE(IPRTR>1002) POLLU( INDP) , ( I i MIR1 , IRS)
1002 FORKATr'l>/////l5X'CUMULATIVC FREOUENCY DISTRIBUTION OF CALCULATED
X',A*,IX
I 'CONCENTRATIONS (UG/CU.M) ' /// ' PERCENTH.E ', »?« ' RECEPTOR ' /I I I10I9)
HRITF (IPRTR, 100J)
100] FORNAK1X)
00 100 1*1,17
100 NRITE(IPRTR,iOO«) PC ( I ) , (DC ( I , J ) , J'IRl , IRt)
1004 POPNATfTXA«,10F9.l)
IP tlRJ.LT.IRL> 00 TO 10
HPITt(IPPTR,100T)
IOOT FORMAT (IOLAST RECEPTOR SHOHS DISTRIBUTION FOR ALL RECEPTOR* COHBIN
IED'1
RETURN
1(0 »RITE(IPRTR,100!)
1004 FORMAT ("OOIMINtlON LIPITS EXCEEDED, NO ITATIIT1CAL lUMMAKY,')
CALL EXIT
END
-------
SUBROUTINE SORT1CP, ITEMS)
DIMENSION CP(IOO)
NP " ITEMS
1 NP • NP/2
IF(NP) 7,7,2
2 K • rJFMS - NP
J • 1
3 I • J
M • I t NP
4 IF (CP(I) • CP(M)> 6,6,5
•i SAVE • CPCI)
CPCM)
SAVE
CP(I)
CP(N)
X m I
J • 7
IF (I
6 J » J
IF (J
T RETURN
END
NP
I) 6,4,4
1
K) 5,5,1
SUBROUTINE STBTUIHtlUB,«HNTH,DAY,COVL,CIGL,"8t , INDEX,ALAT)
C
C COMPUTE PASOUILL-TURNER STABILITY CATEGORY
C INPUTS
C
HOUR HOUR OF DAY (0 Tf 24)
AMNTH MONTH OF YEAR (I TO 12
DAY DAY OF MONTH (1 TO 31)
COVL TOTAL CLOUD COVER (TENTHS, 0 TO 10)
CIGL CLOUD CEILING HF.IGHT (100,8 OF PT)
»SL HIND SPEED (KNOTS)
ALAT LATITUDE (RADIANS, -PI/2 TO PI/2)
OUTPUT
INDFX
TURNER-PASQUILL DIFFUSION STABILITY CATEGORY (I TO 5)
SUNHR
OAYR
: (HOUR
(AHNTH
- 12.)
- 1,1
I.14159 /
30. » DAY
12.
SUNDC • 23.5 * SINHDAYR - BO.) « 3.U159 / 180,1 * J,14159 / 180,
StNSH « SIN(AUAT) 0 SlN(SUNDC) t COS(ALAT) * CDS(SUNOC)«COS(SUNHR)
SUNHT > ATAN(SIN3H / SORTd, - SINSH*SINSH))
IF (COVL - 10.) 20,19,20
19 IF (CIGL • TO,) 54,20,20
20 IF (SUNHT - 3.11159 / 12.) 21,21,22
21 IF (SUNHT) 24,43,43
?S IF (3UNHT - 3.14159 / 5,1429) 25,25,23
23 IF (SUNMT - 3,14159 / 3.) 28,?8,31
24 IF (COVL - 4^1 41,41,42
25 IF (CtlVL • 5,1 44,44,26
26 IF (CIGL- 70.) 43,27,27
27 IF (CIGL - 160.') 41,35,35
21 IF (COVL - 5^) 46,46,29
29 If fCIOL - 70.) 43,30,30
30 IF (CIGL - 160.') 35,36,36
31 IF (CDVL - 5.) 49,32,32
35 IF (CIGL - 70.) 44,33,33
33 IF (CIGL - 160.) 36,37,37
10,1 44,43,13
10,) 46,44,44
10.) 49,46,46
10,5) 55,55,54
6.5) 55,55,54
3,5) 53,53,54
3,5) 52,52,45
9,5) 53,53,54
SS IF(COVL
36 IF(CDVL
37 IF(CnvL
41 IF («3L
4S IF ("3L
43 IF («SL
44 IF (»3L
4S IF («SL
46 IF ("3L - 7,5) 47,47,48
47 IF IHSl « 1,5) 51,51,52
48 IF (WSC - ll.'S) 53,51,54
49 IF (H3L - 5.5) 51,51,50
50 IF (»3L • 9,!) 52,52,53
51 INDEX > 1
GO 10 56
52 INDEX • 2
GO TO 56
53 INDEX • 3
GO TO S6
34 INDEX > 4
GO TO 56
55 INDEX « 5
96 CONTINUE
RETURN
END
-------
INPUT
e nrr Mau«.L,y INPUT DATA
e
COMMON/BA8T.C/IRRTR,'l§TA»,irRR,I8IOD.NIILm,NI,"vv,iTiCnvT,cnvo
looo pnBwATf«X4F?.o,ri.'o,4P!.»,t»»»»».ii,'4x»i,i».'*»pi;>,*z»Fi,'ot
IP (YRPI . yfAR) 1,1,!
P IFBR « -I
RFTURN
3 Jit tAPT « »»nni !,o,
4 IP (DAP! . n»yi I.;,
9 IP (KRFJ . MQU»)I,».
6 IPOHIRO.I.T.O,) so TO
IP (YY, flj.ro) SO 7n
IP fYY.Nf.in on T"
It • IT « I0»
Sn in a
T IP (yy.Nf.7x) sp Tn
TT • -IT
« TP«P • IT
C PHCCK Cl "LJR AMOUNT
IF fcnvcn Tn,io,6o
10 IP (CtlVTl To, JO. 40
PO IP tcnvl) TO. 50, 80
jo IP rcnvf) 71,10,100
oo IP (cnvS) 7o,?o,t?i>
*0 IP (COual TO, 60, ion
60 Cnvl • COvn
RO TO l*fl
To CPVI • I".
So TO i«i
»o ir (C0v?i T^,«o,to(\
90 cnv • cnvi
on TO 111
ino IP tcovji Tn.iio.ipo
JIINf'
JIINP'TS
iio cnv p cov?
Br in ii"
l»o IF icnvni T
. no, mo
t t 0 f ! v fl r '. y 4
tin I«(frv GT.?,! r,o Tn no
Cnvi«5.
(!n TT !«'
1?0 lPfcnvjsr.7.) en TP Tn
rnvl •*.
jnxf'71
Jl'NP ' TS
n, txf>r»,»i.»T)
C CPT HpnBlY P"I89InM PATTOR
CAI I FMPATT (Hnnp, TPMP,PTTPS
C SFT »*TM5 PQOPTI.f PnwPR LAW
iio IP n>jnp< . i) j?o,^Jo,soo
S?0 Pi.TK'J « °U
sn in ^«
HO PhTNH • PN
On TO 110
500 PxtkO • PS
c
C OFT MJXING CPU INC
«0 iPl.NflT.HULTI) Gn TO J«
KDfD'TMTA
«S(ll«uSPn
en Tn •»si
c niANr.p npn Pprm KNOTS TO M/sec
^•i? »SPD « 0>|ll7« • »SRn
e CHANBP TMTA PBHN TPNS nr OFMfPS Tn Runi/iNs
TMTA • TMT»«0,i7«15i!«S
IptNMCT.BTjo.) KSPO«SPO«(IO./NHGT)*«PHtNCl
T60 IPf|0(l.'«AMnN«|)«Y.'6T.»MnD») CALL NtKLfV
IP (HniiRroT.*^ nn to wo
170 CIfJ»« • CIO»1
sn Tn 010
J»0 IP (HOUR. 8*. 10.) 80 70 400
CIOMX • CIBM1 « (CT8«» . CIS»I)«(MOUR . *.)/*.
so Tn 010
eno MC.XI m CTO«?
«io ipr, NOT. MIII TI) on 70 soo
«80 R[ADni,?OnO,eNB«Zi VRFI.»ri,DAPI,HRFI,(MB(l(,l(
tOOO rnBMATHX,«P?.'o,T?0. «(!»*. I). l«i)
IpfYRPT.YPAR) /l?0,OJO,f
«30 IPrAPI.AMON) /I?0,«10,J
• 00 IP(DAPI.DAY) 'I?0,4HO,»
410 TFrHRPT'HOtm) 420,460,!
460 C1LI UVCALP(NO,H8,«»)
^00 IfRR«0
RPTURN
JUNFIT!
JIINF'T*
JiiNf'71
Jimf'71
JllNr'71
JllNF'Tl
JliNt'71
june'71
JIINfl71
JUHl'T*
JMNf'71
JIINF'71
JHNf'75
JUNf'T'
JIINf'71
-------
B.3 TEST CASE
PARAMETER!
NULTl-BTATION TCIT CASE
ORIBINl ( 0,0 , 0,0 )
MEIBHTIN8 ORtD NX« 1
«I8HTINB GRID OX« 1,00
NO KEIBMTINS FACTOR* (T)
ttARCH »N6LI« 01,0
HEXBMTINS HID N»» |
KEIBHTJN6 SRID «»• 1,00
POKER* t,0
•TATION*
ACTUAL LOCATION*
STATION NO,
1
2
X (KMJ
3,00
B.OO
I,SO
y CRN)
i.oo
»,00
«,00
HIIOHT (H)
10,0
10,0
10,0
IDENTIFICATION
*CIH
'*CIMI INPUT
NUMBER OP ITERATION* USED IN COMPUTING TRAVEL OIITANCE I* I
PARAMETER* FOR TMU «C
-------
AREA IOURCE EMIIION OAT*
INNER GRID, HEIONT* 10,CM, 101 ENIIIION RATE IN U«/IQ,N/IEC
V XI. 0,0 0»« f,0
0 1,000 0,0
I 0,0 8.000
ARIA SOURCE ENIMION DATA
IHNSR »»10( HtltMT* 10,OH, 101 EN1MION RATE IN U«/I».M/»EC
V XI* 0,0 OKI 1,0
0 0,0 (,000
» 1,000 0,0
ARE* IOURCE ENIIIION DATA
8RID» NEllMTl 10,ON, 102 ENIIIION RATE IN UI/»«,N/IEC
r xti o.o ox» s,o
0 1.000 0,0
1 0,0 (,000
AREA IOURCE ENIIIION DATA
MIDDLE GRID, HIJSHT. IO,OM, 101 ENIIIION RATE IN UI/IQ.M/IEC
v »i« 0,0 DX« 1,0
o 0,0 1,000
« 2,000 0,0
AREA IOURCE ENIHION DATA
OUTER IRID, HtlOMT- 10,ON, 102 ENIIIION RATE IN UB/IB.N/IEC
V Xll 0,0 DXl 5,0
0 1,000 0,0
J 0,0 «,000
AREA IOURCE ENIIIION DATA
OUTER BRIO. NEIINT* 10.OH. 102 ENIIIION RATE IN UG/IB.N/IEC
Y Xl« 0,0 DXl 5,0
0 0,0 1,000
I 1,000 0,0
RECEPTOR LOCATION!
NUNIER X V HtlOHT
I 1.$ 2,S 0,0
2 2.S 7.5 0,0
) 7.S 1,5 0,1
« 7,1 T,» 0,0
-------
MO/DA/HR
S02
RECEPTOR CONCENTRATIONS, U8/CU.M
10102,
10105,
10106,
30111,
30114,
10117,
10120,
30123,
10202,
30205,
30206,
30211,
10214,
30217,
30220,
30223,
30102,
30305,
REQUESTED
10111,
REQUESTED
10117,
10120,
10323,
REQUESTED
10405,
30406,
45,8
78,0
55,1
16.4
8.2
5.1
21.1
14,7
7.5
17.1
22.3
1«,T
23.5
60,6
117,1
110,0
192,1
119.1
INPUT DATA
26.4
INPUT DATA
20.7
19.7
190,9
INPUT DATA
310,6
100,8
11.1
202,7
90,4
26,1
11,4
27,0
22,0
19.9
14.9
14,3
48.4
20.2
18.0
S6.0
66,9
112.0
189,1
331,9
NOT POUND
11,5
NOT POUND
41,2
79, S
94,2
NOT POUND
196,0
61,5
180,7
228,1
262,1
56, t
11.7
19.6
90,8
61,9
31.1
75.1
91,3
118,4
61.0
148.4
279,0
140.6
211.9
174,1
71, 1. 3,
121.6
71, 1. 1.
66.2
169.6
273.9
71. 1. 4.
101,1
347.8
111,6
224,1
182.6
SI, 6
28,4
11.7
71. T
98. 4
29.3
72.4
93,6
87,4
49. J
»»,«
168,4
97.2
143.6
291.4
6.
88,0
1".
64,7
126,9
202,2
2.
lSi.6
241,4
301111,
JU.O
11,11
75.1
REGION 1 STtTIITKtL SUMMARY PQR $02
ITANDARD
RECEPTOR
1
2
1
it
«LL
X
2,5
Z.5
7.5
7.S
r
2.5
7,5
2.5
?.»
CASES
25
25
15
It
100
MEAN
76.1
«.l
151,6
112,7
10«,0
DEV.
9H.II
79,0
104,1
69,0
92, a
2ND
0,1««E 09
0.111E 09
O.JUOE 05
0,1711 »S
0.191E OS
MOMENT]
1RD
o.nie
0.2<*E
0.909C
0.119E
0.467E
07
07
07
C7
07
«TH
o.iut to
0.69IIE 09
0.26IE 10
0,6S«r 09
0.129E 10
GEOMETRIC
MEAN
10,1
as, 3
111.2
92,9
67,9
S.DEV
3.199
2,406
2,214
1,926
2,6B1
CUMULATIVE PREOUENCr DISTRIBUTION Of CALCULATED *02
CONCENTRATIONS (UG/CU.M)
TUE
HIGH
99, S
99,0
95,0
90,0
60,0
70,0
60,0
50,0
40,0
10,0
20,0
10,0
5.0
1.0
0,5
L0«
119,
336,
337,
296,
191,
110,
69,
49,
25.
21,
20.
16,
7,
S,
9,
9,
9,
RECEPTOR
2145
133,
) 31T.
) 301.
) 201,
i 192.
) 94.
64,
46.
39.
31.
26,
20.
16,
r is.
14,
14,
14.
374,
170,
J67,
116.
290.
262,
196.
14*.
HI.
90.
rs.
61,
12.
22.
19.
19.
19,
253,
292,
290,
356,
213,
182,
119,
97.
90,
Tl.
61,
91,
31,
3ft •
1*.
26,
2*.
>7>.l
161,0
Ml.
301.
\n\
126,
91.
94j
26!
19.
1*1
S.
5,1
LAST RECEPTOR IHOxi DISTKIIUTIO* POD ALL «CfPTOM CONIINtD
-------
APPENDIX C
USER'S GUIDE TO COM MODIFICATIONS
C.I DESCRIPTION OF INPUT TO COM
C.2 FORTRAN IV PROGRAM LISTING
C.3 TEST CASE
(TO BE USED AS APPENDIX F IN COM USER'S MANUAL)
-------
C.I DESCRIPTION OF INPUT TO CDM
Card Input Sequence
The card input sequence is, essentially, a superset of that of the
pre-modification program; the modifications and the additional "keyword
packages" required by the new version of CDM, along with a restatement
of the familar card input sequence, will be given as follows:
C.1.1 PARAMETERS
Allows the modification of the program parameters or run options.
Parameters or option variables are set to default values at compile time
and, hence, only those which are to be modified need be entered. The
format of the data package itself is a Fortran IV namelist with the name
SINGRID.
The specific method used is selected through combinations of the
parameters LTHETA, THETA, FACT, NOFACT, POWER and RADIUS.
1) Inverse distance power law: Set THETA to 360. and POWER to the
desired value. All other parameters are allowed to assume
default values.
2) Selective Angle Method: Set THETA and POWER to default or
desired values. Other parameters assume default values.
3) Selective Radius Method: Select non-zero RADIUS value, THETA =
.FALSE., and POWER. The other parameters may assume default
values.
4) Weighting Factor Matrix: Set NOFACT = .FALSE, and specify
weighting factor arrya, FACT, according to format below. This
method must be used in conjunction with one of the three
methods above.
FIRST CARD
Columns Contents Format Description
1-10 'PARAMETERS'
21-70 TITLE 12A4, A2 Run heading for printing
C-l
-------
SECOND CARD
Columns
2-8
Contents
'SINGRID'
Format
Description
FOLLOWING CARDS
Columns
2-80
Contents
Format
Name Type Dimension Default
Description
Parameters to be initialized
by FORTRAN Namelist £INGRID;
these parameters are:
Description
ORIGIN
NX
NY
GX
R*4
1*4
1*4
R*4
1.0
GY
THETA
FACT
NOFACT
PRINT
LTHETA
POWER
RADIUS
R*4
R*4
R*4
L*4
L*4
L*4
R*4
R*4
1.0
45.0
10,10,10 1000*1.0
.TRUE.
.TRUE.
.TRUE.
2.
1.
Origin of weighting grid
system
Number of cells of the
weighting grid system
(X direction)
Number of cells of the
weighting grid system
(Y direction)
The east-west dimension of
each cell of the weighting
grid
The north-south dimension of
each cell of the weighting grid
The search angle used in
determining the wind direction
and wind speed at a location
The weighting factors utilized
in determining the wind direction
and wind speed at a location
.TRUE, if no weighting factors
are specified
.TRUE, to print input wind
roses
.TRUE, if search angle
used
Power law for inverse
distance
Radius for selective
radius method
C-2
-------
LAST CARD
Columns
2-5
Contents
'SEND'
Format
Description
C.I.2
STATIONS
This "keyword card" initiates the reading of the station locations -
in units consistent with the receptor locations - and the associated
meteorological data (day-night star wind rose format). It should be noted
that all of the meteorological data must be presented in the 'STATIONS'
package; the sections of code in subroutine CLINT which read and printed
the input wind rose have been removed.
If either more than 10 stations have been specified or the stations
are out of sequence, an error message is issued and the job is terminated.
Finally, if PRINT = .TRUE, (see Section 1), each of the input wind roses
is printed in a concise tabular format.
FIRST CARD
Columns
1-8
21-70
Contents
'STATIONS'
TITLE
Format
12A4,A2
FOLLOWING CARDS: For each station
C.I. 2.1 Station Location
Columns
Variable
6-10 NO
11-20 X
21-30 Y
31-60
STAID
Format
15
E10.0
E10.0
7A4, A2
Description
Run heading for printing
Description
Station identification number
Station east-west coordinate
(receptor compatible units)
Station north-south coordinate
(receptor compatible units)
Optional 30 character station
identification
C-3
-------
C.I.2.2 Station Wind Rose Data
C.I.2.2.1 Card #1, Frequencies (F) For Wind Direction Class 1,
Stability Class 1
Columns Variable Format Description
10-18 F(1,1,1) F9.0 Wind speed class 1
19-27 F(2,l,l) F9.0 Wind speed class 2
28-36 F(3,l,l) F9.0 Wind speed class 3
37-45 F(4,l,l) F9.0 Wind speed class 4
46-54 F(5,l,l) F9.0 Wind speed class 5
55-63 F(6,l,l) F9.0 Wind speed class 6
The formats for card #2 - card #96 are identical to that of card #1,
with wind direction class varying firstly and stability class secondly.
LAST CARD
Columns Contents Format Description
1-5 '99999' Delimiter card
Multi-station mode (internal variable MULTI=.TRUE.) is indicated if
more than one station's data is specified.
C.I.3 WEIGHTS
This "keyword card" initiates the reading of the weighting factors
which are subsequently used in computing the wind direction and wind
speed at a specific location. These factors are specified on a grid
cell by grid cell basis, i.e., from each of the - up to 10 - previously
specified stations to each of the - up to 100 (10 x 10) - grid cells.
Only those factors which are not 1.0 should be specified since 1.0 is
the default value of all of the weighting factors.
C-4
-------
FIRST CARD
Columns
1-7
21-70
FOLLOWING CARDS
Columns
6-10
11-15
16-20
21-30
LAST CARD
Columns
1-5
Contents
•WEIGHTS'
TITLE
Variable
NO
IX
IY
FIELD
Contents
'999991
Format
12A4, A2
Format
15
15
15
E10.0
Format
Description
Run heading for printing
Description
Station identification
number
Horizontal (row) grid
cell number
Vertical (column) grid
cell number
Station-to-grid cell weight
(normally between 0. and
1.)
Description
Delimiter card
Non-unity weighting factors would normally be used to incorporate
the knowledge of the representativeness of data as affected by topo-
graphic features such as hills and valleys. Moreover, they may also be
used to express the confidence one has in the validity of a station's
measurements. For example, if in a group of stations there existed only
one National Weather Service station, this station would, on a grid cell
basis, be assigned a value of, perhaps, 2.0, whereas the remainder of
the stations would be assigned a value of 0.5.
C.I.4
COM
This "keyword card" initiates the calling of subroutine COM (formerly
the main program) and, therefore, from this point, the program flow and
related input proceed as before.
C-5
-------
FIRST CARD
Columns Contents Format Description
1-3 'COM'
21-70 TITLE 12A4.A2 Run heading for printing
The changes to the input (the modifications were made to subroutine
CLINT) are as follows:
C.I.4.1 The removal of the statements which read the input wind
rose; all windrose data is now processed by subroutine INSTA ('STATIONS'
package).
C.I.4.2 IRD (card input unit number), IWR (print unit number) and
IPU (punch unit number) are no longer specified as before; they appear,
in the following way, on the first keyword card to be encountered in the
input stream (default values are IRD=5, IWR=6 and IPU=7):
Columns Contents Format Description
1-10 'PARAMETERS',
'STATIONS',
'WEIGHTS', or
'COM'
15-16 IRD 12 Card input unit number
17-18 IWR 12 Print unit number
19-20 IPU 12 Punch unit number
21-70 TITLE 12A4,A2 Run heading for printing
For clarity, all of the input requirements will be restated and the
modifications will be shown wherever needed:
C-6
-------
The arrangement of input data on the cards that follow the program
deck is given in Table C-l. Certain data that are permanent features of
the model, such as the wind by class and wind direction by class, are a
part of the program and not read in as separate entities. Interactive
operation, requires an input data set somewhat different from that given
in Tatle C-l.
C-7
-------
TABLE C-l
CARD INPUT SEQUENCE
Card Number Column Format Contents
1 1 to 18 2A4 AROS(1)-AROS(2) (Identification for
punched output of the computed area
source concentrations of the two
pollutants. See sample punched
output.)
9 to 16 2A4 PROS(1)-PROS(2) (Identification for
punched output of the computed point
source concentrations of the two
pollutants)
17 to 21 IS IRUN (Computer run identification
number)
22 to 26 15 NLIST (Index which indicates whether
input data should be listed. If
NLIST <_ 0, input data is printed.)
42 to 59 2F9.0 CA(1)-CA(2) (Constants of the linear
equation Y=CA + CB x X, used to
calibrate the calculated concentra-
tions of the two pollutants considered
in the model)
60 to 77 2F9.0 CB(1)-CB(2) (Slope of the linear
equation, Y = CA + CB x X, used to
calibrate the calculated concentra-
tions of the two pollutants considered
in the model)
2 1 to 6 F6.0 DELR (Initial integration increment of
radial distance from receptor, meters)
7 to 12 F6.0 RAT (Ratio of length of a basic emission
grid square and the length of a map grid
square)
13 to 18 F6.0 CV (Conversion factor which upon multi-
plication by RAT expresses the distance
of the side of an emission grid square
in meters. For example, if the map
units are in kilometers, CV=1000.)
19 to 24 F6.0 HT (Average afternoon mixing height
in meters)
1'5 to 30 F6.0 HMIN (Average nocturnal mixing height
in meters)
31 to 36 F6.0 XG (X map coordinate of the southwest
corner of the emission grid array)
37 to 42 F6.0 YG (Y map coordinate of the southwest
corner of the emission grid array)
43 to 48 F6.0 XGG (X map coordinate of the southwest
corner of the plotting grid)
-------
TABLE C-l (Cont.)
CARD INPUT SEQUENCE
Card Number Column
2 49 to 54
Format
F6.0
Contents
YGG (Y map coordinate of the southwest
corner of the plotting grid)
55 to 60
F6.0 RATG (Ratio of the length of the grid
square used for plotting and the length
of a map grid square)
61 to 66
F6.0 TOA (Mean atmospheric temperature in
degrees centigrade)
67 to 72
F6.0 TXX (Width of basic emission square
in meters)
1 to 6
F6.0 DINT (Number of intervals used to
integrate over a 22.5° sector.
Maximum value is 20, typical value
is 4.)
7 to 12
F6.0 YD (Ratio of average daytime emission
rate to the 24-hour emission rate
average)
13 to 18
F6.0 YN (Ratio of the average nighttime
emission rate to the 24-hour emission
rate average)
19 to 54 6F6.0 SZA(1)-SZA(6) (Initial a in meters
for each stability class^ Six different
values can be used, but normally only
one value is used.)
55 to 66 2F6.0 GB(1)-GB(2) (Decay half life in hours
for the two pollutants)
4-99
1 to 63 [9X, 6(1X, F(i,j,k) (Joint frequency function,
F8.6)] identical to $ (k, I, m); i = index
for stability class, j = index for
wind speed, k = index for wind
direction. See input data of sample
problem for proper ordering of this
parameter by stability class, wind
direction, and wind speed.)
[Source Cards
Follow]
100a
1 to 6
7 to 13
F6.0 X(X map coordinate of the southwest
corner of the area emission grid, or
if appropriate, the X map coordinate
of a point source)
F7.0 Y (Y map coordinate of the southwest
corner of the area emission grid, or
if appropriate, the Y map coordinate
of a point source)
C-9
-------
[Receptor cards
follow]
TABLE C-l (Cont.)
CARD INPUT SEQUENCE
Card Number
Column Format Contents
14 to 20 F7.0 TX (Width of an area grid square in
meters. It is important that no entry
be made in the case of a point source.)
21 to 36 2F8.0 S1-S2 (Source emission rate in grams
per second for the two pollutants)
37 to 43 F7.0 SH (stack height in meters)
44 to 49 F5.0 D (Diameter of stack in meters)
50 to 56 F7.0 VS (Exit speed of pollutants from
stack in meters per second)
57 to 63 F7.0 T (Gas temperature of stack gases
in degrees centigrade)
64 to 68b F5.0 SA (If this field is blank, Briggs1
formula is used to compute stack height.
Otherwise, the product of plume rise
and wind speed is entered in square
meters per second.)
1000
This is a blank card which follows
information on the emission sources.
It is used to test the end of sources
and must not be left out.
1001
1 to 8 F8.2 RX (X map coordinate of the receptor)
9 to 16 F8.2 RY (Y map coordinate of the receptor)
31 to 34 14 KPX(9) (Observed concentration at the
receptor of the first pollutant)
38 to 41 14 KPX(IO) (Observed concentration at the
receptor of the second pollutant)
42 to 46 15 NROSE (A control that, if greater than
zero, will print out histogram concen-
tration data. If left blank, no
histogram data will be printed.)
aThere will be as many cards of this type as there are area and point
sources. The next card type will arbitrarily be numbered 1000.
Needed for point sources only. Leave blank on area source cards.
cThere will be as many cards of this type as there are receptors.
C-10
-------
C.2 FORTRAN IV PROGRAM LISTING
SUBROUTINE HEIGHT
INTEGER END
LOGICAL MULTI
COMMON /PT3/ PX(10),PY(IO),FSEG(6,16,6,10>,NSTA,MULTI
LOGICAL NOFACT.LTHETA
COMMON /FACTOR/ FACT(IO,10,10),NCFACT
COMMON /GRID/ ORI5IN(2>,NX,NT,S*,5Y,THETA,LTHET»,RADIUS,POKER
COMMON /C2/ UE(6),yD,YN,TMN,HMIN,DINT,ycON,TAla),IPO,XS,ri;,IRO
COMMON /C«/ DtC»Y(2),IC«(6),ICP(6),H(6),HX(6),C8(?),NO,IVeR,I»B
NOFACT.FALSE,
»RITE(I*R,6010)
6010 FORMAT('OI,T21,'STATION NO,',T«1('CtLL NO, (X) ' ,T6I»"CELL NO, (Y)'
X ,T81,WEIGHTING FACTOR'/)
DO 10 IY«1,NY
DO 10 IX«I,NX
00 10 I3TA«1,NSTA
10 FACTUSTA,IX,IY)«1,0
20 READ(IRD,50ZO> END,NO,IX,1V,FIELD
5080 FORMA7(1I5,tlO,0>
IF(END,EO.99999) GO TO 100
IF(NO,LT.1,UR.NO,GT,NSTA,OR,IX,LT.1,OR,IX,GT,NX,QR,IY,LT,1
X .OR.IY.OT.NY) GO TO 500
FACT(Nd,IX.IY>«FIELD
»RITE(I*R,6020) NO,IX,IY,FIELD
6020 FORMAT(T26,IJ,T«6,12,T66,I2,T«6,F6,H)
GO TO 20
100 RETURN
500 HRITEU»R,6500)
6500 PoRMATf'-',T21,'INVALID INDEX (OR INDICES)'/T21,
X 'EXECUTION TERMINATED,')
STOP 1
END
SUBROUTINE RFREQ(RX,RY,F>
LOGICAL MULTI
LOMMON /PTS/ PX(10),PYUO),FRED(6,16,6,10),NSTA,MULTI
COMMON /GRID/ ORIGIH(J),NX,NT,GX,liY,THETA,LTHET»,RADIUS,PO»ER
LOGICAL NOFACT.LTHETA
COMMON /MCTUR/ FACT(10,IO,10),NOFACT
REAL RDIST(10),F(1)
INTFOtR STANO(IO)
LOGICAL 1KEY
HFACI^l,
NEXT'l
C
C DETERMINE THC ntlCHTING GRID CtLL LOCATION OF THE RECEPTOR POINT
C
IX*INI((RX-ORIGIM(1))/GX)»1
IY*IN1C(RY-ORIGIN(2))/GY)tl
IF(IX,LE.O.OR.IX.GT,|gX.nR,IY.LE,0,OR.IY,GT,NY) GO TO 25
wKEY*tNOT.NOFACT
GO TO 30
25 HKEY«.FALSE,
50 DO 35 I»l,57b
35 Ftl)»0,
SIOR'O,
00 10 I3TA«1,NSTA
10 STANO(ISTA)»ISTA
C
C ORDER STATIONS BASED UPON MINIMUM RADIUS
C
DO 50 ISTA»1,NSTA
50 RDISTCISTA)«SQRT<(RX-PX(ISTA))««2t(RY-PY(I3TA))*«?)
CALL 3()RT(RDISr,STANO,NSTA)
60 DO TO J3TA=NEXT,N3TA
I3TA«3TANO(JSTA)
IFU31A.EO.O) GO TO 70
C
C 3ELSCT FIRST STATION BASED UPON MINIMUM (AT THAT TIME) DISTANCE
C
IF(xKEV) hFACT*FACT(ISTA,IXrIY)
»EIGHT«HFACT/(RDIST(I3TA)«»PO'«tR«l,E.06)
I«0
00 65 L«l,16
DO 65 K*l,6
DO 65 ,1 = 1,6
I«I+1
65 F(n»KI)»FREO(K,L,J,ISTA)«hEIGMT
3IGR'3IGR»HEIGHT
STANO(J3TA)«0
IF(J31A.LT,N3TA) GO TO 80
70 CONTINUE
GO TO 150
80 DX1*PX(ISTA)-RX
DY1«PY(I3TA)-RY
IF(DXl,EO.O..»ND,OYl.tQ.O.) GO TO 150
ALPH1'ATAN2(DY1,DX1)
TX«PX(I3TA)
-------
TY«PYCI3TA)
NEXT'JSTAtl
DO 100 JSTA»NEXT,N3TA
Z3TA«3TANO(JSTA)
IFUSU.EQ.O) SO TO 100
c
C REJECT ANY STATION WITHIN A SECTOR OF
C TMETA DECREES OF THE SELECTED STATION
C
IF(.NOT.LTMETA) GO TO 90
C
DX2«PX(ISTA)-HX
OYB'PYUSTAj-RY
ALPHi»ATANa,LT,TMETA) STAND(JSTA)»0
GO TO 100
C
C REJECT ANY STATION KITH A MINIMUM SEARCH DISTANCE (RADIUS)
C OF THE SELECTED STATION
C
90 IF(3SRT((TX-PX(ISTA))««2»0
C
100 CONTINUE
SO Id 60
ISO DO 200 I>l,576
200 F(I)«F(I)/3ICR
RETURN
END
SUBROUTINE INSTA
HEAL FftfQ(576,10)
INTEGER END,STAND,STA1DO)
LOGICAL HULTI
COMMON /PT3/ PX(IO),PY(10),PROB<*,l6,6,tO),NlTA,MULTI
LOGICAL PRINT
COMMON /CNTRL/ PRINT
COMMON /Cl/ K,MXiMN,MT,F(57t),G(6,5),u(6),RJ,RJ,INC<«),OtLR
COMMON /C?/ UE(6),YDlYN,TMN>HMlN,DlNT>rCON,TA(ll)>irSiXCiY6llRD
COMMON /C«/ OECAY(J),ICA(6),ICP((>),H(»),HX(t).6B(J),NQ,IVlS,Illii
EQUIVALENCE (PBOSII),FRFO(I))
IF(,NOT,PRINT) «RITF(INR,60IO)
6010 FORM AH' I ',TZ>.' STATION NO, ' iT«6t'X', T6».'T'|T«»| ' lOtNTlFICATtON'
X /)
00 200 NSTA>1,11
BEAO!100,5010) END.STANO.X.YiSTAID
5010 FORHAT(ai5,?EIO,0,TA«,A2)
IF(END,EQ,99999) GO TO 900
IF[t,3TA,EO.il) GO TO «00
IFISTANO.NE.NSTA) GO TO SOO
IF(FRINT) NRITE(I«R,6010)
»PITE(I»R,6100) STAND,X,Y,3TAIO
6100 FOP.MAT(T26,I},TUl>F«,2,T61|Fe,2>TSI,TAll,A2)
PXCNSTAXX
PY(NSTA)»Y
C
C READ THE APPROPRIATE «IND ROSE
C
REAO(IRD,51SO) F
9110 FORMAT(9X,6F9,0)
DO ISO 1*1,576
HO FREO(I,N8TA)«F(I)
200 IF(PRINT) CALL FRGTAB(F)
400 »RnE(I»R,6«00)
6400 FORMAT('»I,T21,'MORE TMAT 10 STATIONS HAVE BEIN SPECIFIED,'/Til,
X 'EXECUTION TERMINATED,')
STOP I
SOO «RITC(I»R,6SOO) STAND
6SOO FORMAT!'-1,Til,'STATION NO.'.U,' II OUT OF SCRUENCE.'/T21,
X 'EXECUTION TERMINATED.1)
STOP I
900 NSTAlNSTA-l
MULTI'NSTA.GT.l
IF(MULTI) CO TO 1000
I»0
DO 9SO L"l,16
00 950 K»l,b
00 950 J«l,6
I«I»1
9SO F(IHPROB(K,L,J,I)
1000 RETURN
END
-------
SUBROUTINE TABLE(X,NR(NC«KRrKC»FH,KH,PCfKO)
C IBM 160 E.REIPENSTtlN FORTRAN IV
c ENVIRONMENTAL RESEARCH AND TECHMOLOOY,INC,.NALTHAM,MASS
C
C VERSION 23 LEVEL T107S (SPECIAL CHARACTERS)
C INPUTS"
C MARRAt TO BE TABULATED(NR(NCJ
C NRIMAX NUMBER OF ROWS(ROH"DIMEN3ION OF X IN MAIN)
C NOMAX NUMBER OF COLUMNS(COL'DIMENSION IN MAIN)
C KR'NUMBER OF ROWS TO BE PRINTED
C KC'NUMBER OF COLUMNS TO BE PRINTED
C FH'ARRAV OF 6.BYTE HEADING PORMATS(DIMENSIONEO (KCiKH))
C KH'NUMBER OF RONS OF COLUHN HEADINGS
C FD'ARRAY OF S-BYTE DATA FURMATS(DIMENSIONED(NC))
C KD«NUMBER OF ROWS BETWEEN HORIZONTAL LINES
C METHOO--COMPUTE9 OBJECT-TIME FORMATS FOR COLUMN HEADINGS,VERTICAL
C AND HORIZONTAL LINES,AND TABULATED DATA,
COMMON /CO/ DECAY(Z),ICA(6),ICPC6),H(6),HX(t),GBKH)(FDCNC)
REAL«» TAb(ll)/'T?,Al,','T15,A1,','T2B,A1,'.'TAl.Al,',
X 'T5«,A1,','T67,At,','T»0,A1(','T9J,Al,','T(06,Al,',
X 'T1I<>,A1,VM32,A1,'/,TT
REAL«8 FMT(J3)/"(',21«' 'i'IX)'/.GNT(JS)/'('.?>*' ','IX)1/.
X HMt(Z3)/>(l,zl*> ',MX) V,FF/'2K,AS,'/,G6/' '/, I-H/' 3A«, Ai,' /
INTEOER VLINE/'l'/,TLINF/'«'/,CR08S/'»'/,H«AR(3)/5«'—.'/»
X TBAR(1)/4*l>i»'S
IFIKC.CT.IO) KC'10
e BLANK nor OLD FORMATS
PD 5 1*2,11
FMT'I)*GU
GMr(i)«6(,
5 HMT(I)«B6
C COMPUTF NEK fORHATS
K >!10-KC)/2»t
TT»1AB(K)
HHT(2)«TT
J*2
DO to I>1,KC
FMTIJITT
GHT(J)«TT
FMT(J»I)'FF
CM](J.I).fO(Il
HMT(I*Z)"HH
J«J»2
K«K«1
10 TT«TAb(K!
ZO FMTfJl'TT
SMT(J)«TT
I"0
C WRITE COLUMN HEADINGS
30 CONTINUE
35 WHITEU»R,HMT) TLINE, (TSAR, J«1,KC )
DO 10 K*1,KH
10 NRITE(IHR,FMT) VLINF,(FH(J,K),VLINE,J«1,KC)
!0 HRITCdHRfHMT) CROSS, (HBAR, CROSS, J« 1, KC)
DO 60 K*1,KD
I«I»I
MRITE(I»R,GMT) VLINE, (X(I, J), VI.INE, J*l,KC)
IP(I.BE.KR) GU TO 70
60 CONTINUE
GO TO 50
TO CONTINUE
T5 HRtTEUMR.HMT) CROSS, (HBAR,CROSS, J«l ,KC>
RETURN
END
-------
SUBROUTINE FROTAB(FREQ)
COMMON /CO/ DECA»<2),ICA(6),ICP(6),M<6),HX{6)»eB(2).NQrmR,IHR
REAL*' FH(B,2)/' HIND',1 «'•' *'»' 31,1 «',' 5',' 6'
X ' SUM',' D!R.°',T>> '/,FD<»>/'«X,A«,',7.'F10,6.'/
REAL FREQ(6,l6,6),Q(l7,B>/'N','NNe'< ' NE','ENC','E','E«E','»E',
X '3SE','S'.'SS«','«»','NS«',I«I,I«NN','NNI>''»NNI»I»UMI,11»«0,/
FTOT«0,
00 700 L»l,6
SUML'O,
DO 970 J«l,6
SUH»«0,
DO 160 K«1,U
TESM«PRFUCJ,K,L)
B(«,J»U«TEOM
560 SUMKlSUMlltrERM
3U«L«3UMl.*aUM»
STO Q(17,J*1)«SUMN
FTOT«FTOT»SUMU
DO '"> KM,16
SUMKlO,
DO "10 J*l,6
560 SU"»"3UH»»FBEO(J,R,L)
540 0(K,8)»3UHh
Q(17|A)«SUNL
TABUIATF FOR STABILITY CLASS I IF SUHL.NE.O,
IFOUML.EO.O.l GO TO 620
6590 FORHAT('l')
»RITE(I»R,6600> L
6600 FORMAH'O'.TZI,'STABILITY CLASS',1J/'0',T50,'"INOSPEIO CLASS')
CALL IABLE(0,!7,8,17,8,FH,2,FO,«)
620 NRITE(l»R,6620) L>SUHL
6620 FQRNAT('0',T21,'TOTAL FREQUENCV OF OCCURRENCE, CLASS ',12,
X ' « ',F10.5)
700 CONTINUE
»RITE(I»R,6700) FTOT
6700 PORHATCO',Til,'TOTAL FREQUENCY OF OCCURRENCE, CLASSES 1 TO 6 •',
X F10.5)
RETURN
END
SUBROUTINE SORT(X,LOC,N)
INTEGER XUI.LOCUI
H«N
I M«M/Z
IF(M.EU.O) RETURN
K>N-*
DO 10 I«1,K
J«I
S L»J«"
IJ«LOC(J)
U'LOCIL)
IF(K(IL),CE.X(IJ)) GO TO 10
LOC(J)«IL
LOC(L)«IJ
J.J.M
IF(J.GT.O) GO TO 5
10 CONTINUE
GO TO I
END
-------
SUBROUTINE CUM
DIMENSION DX(4),DY(4)»A(4),KPX,OY(10),FRFQ<6,16,6,10),NSTA,MULTI
LOGICAL PRINT
CUMMON /CNTRL/ PRINT
COMMON /Cl/ KiMX,MN»HT,F(6,6,16),6(6,51,0(6),RI,RJ,INC(4),DELR
COMMON /C2/ UE(6),YO,rN,T«N,HMIN,DINT,CB<2),TK(16),AR03(2),PR03C2>,TANG
CDMMDN /Cl/ DECAY(2>,ICA<6>,ICP(6),H(6),HXC6),68(2>fNO,IVERilHR
CnMMON /C5/ OC100,4),GA<2>,IAD<4,5),XGG,YGG,IAS,TO»,TDB,TDC,IPU
CUMMUN /OCOM/ N,OR,IX,lY,TT(16,21),KTC,IXX,IY¥,BAO,Z(50,4n,3),TD
COMMON /ACOM/ PI,3ZA(6),ABAR<2),ARU3EU6,2),X3C6>
COMMON /PCDM/ PH(200),PR(200),PS(200,1),PX(200),PYC200),PBC200),
•XXt200),OHK200),HA(16),NB(l6>,PR08e(16,2),CV.lPS»RATrTOA,PBAR<2)
NQ«0
CLEAR AND INITIALIZE
CALL CLINT
c HEAD RECEPTOR COORDINATES
101 REAOURD,402,ENO«40S)RX,RY,KPXC9),KPX
IF(MUUTI) CALL RFREQ(RX»RY,F>
C CONVERT COORDINATES TO EMISSION GRID UNITS
RI*(RX-XI>)/RAT«0,5
RJ«(RY-YG)/RAT»0.5
IF(NRf]3E,GE,n IPG»IP5«6
IPO'IPGtl
C START NEW PAGE If LINE COUNT GF 50
IF(IPG,LT.50) GOT0499
IPG'O
MRI7E(I»iR,UaiIIVER(IRUN
aill FORMAH'I'.IOX, 'CDM VERSION1, 16, ', RUN', 16)
««5 FORMATC >,iiox, ' (MICROGRAMS PER CUBIC NETERJM
HID FORMA1C '.SOX, 'AREA1, 15X, 'POINT1, 15X,'TUTA| ', 1JX, > CALIBRATED' ,
*11X, OBSERVED1)
HRITFM«R,409)
«09 FORMAK1 S5X, 'COORDINATES1, 3X,5(7X,'P I'.tX,' P 21))
ttl K«l
C Ki PROGRESSES I THRU 16 CONTROLLING SECTOR (DIRECTION)
UOSOOI=1,2
ABARC I )SO.
PBAHIIl'O,
ARnSE(K,I)IO,
500 PROStCK,I)»0.
IFtlAU.Lr.I) GOT0666
C DETERMINE MAX. DISTANCE FROM RECEPTOR ACROSS AREA GRID IMX)
UX(2)«(IXX»0.5)-HI
00000020
00000030
00000040
00000050
00000060
00000070
00000060
00000090
00000100
00000110
00000120
00000130
ooooouo
00000150
00000160
00000170
00000160
00000191)
00000200
00000210
00000230
00000240
OOOOOP50
00000260
00000270
00000280
00000290
00000300
00000310
00000320
00000330
00000310
00000350
00000360
00000370
00000300
00000390
00000400
OOOOO'llO
00000420
00000430
00000440
00000450
00000(160
00000470
00000480
4
5
9
6
10
11
12
T
13
14
15
16
17
70
96
OX(3)»(3X(J)
DXdl'DXd)
DY(l)»nY-0.5)-RJ
DY(2)»DY(1)
DYf3)»(IYY»0,5)-RJ
l)Y(«)«OY(3)
TX>(DXd)*DX(l)*DY(l)*DY(l) )*»0,5
TN*1X
TM«»>«0,5
IF!TM.GT,TX) TX»TM
IF(TM.LT.TN) TN»TM
TM«»OY(S)*DY(i>)»*0,5
IFOM.GT.TX) TX«TM
IF(TM.LT,TN) TN«T"
TM»(DXd)«DX{l)*OY(3>*DY(3))*«0,S
IF(7M,Gr.TX) TX«TM
IFHM.LT.TN) TN«T«
MX'T X/DR
TE31 If RECEPTOR »ITHIN AREA SOURCE
IF(RI»0,5.LT.IX.OR.RI-0.5.GT.IXX) GOT04
IF(RJ»0,5.LT.IY,OR.RJ-0.5.GT,IYY) GOT04
IB'l
MN*1
GOT061
IB»2
DETERMINE MINIMUM DISTANCE FROM RECEPTOR TO AREA SOURCES
TMN«TN/DR
TXI'O,
TNI'400,
D017I«1(4
IF(DX(I))5,b,7
IF(DYCI),EG.O,) GCT09
TArI)*ATAN([mi)/DX1,4
A(I)>TA!I)
00000190
00000500
00000510
00000520
00000530
00000540
00000550
00000560
00000570
00000580
00000590
00000600
00000610
00000620
00000630
00000640
00000650
00000660
00000670
00000680
00000690
00000700
00000710
00000720
00000730
00000740
00000750
00000760
00000770
00000780
00000790
00000800
00000810
00000820
00000830
00000840
00000850
00000860
00000870
00000880
00000890
00000900
00000910
00000920
00000930
00000940
00000950
00000960
00000970
00000980
00000990
ooooiooo
00001010
00001020
00001030
-------
TX«TXI
fN«TNI
IFtTDIF.GT.lBO,) GOT029
TM«40,-TK(K>
IFfTH.LT.O.) TH«TM«J60.
IT IFUH,GE,TN-H,25> COT028
lFnN,GE,ll.25) GOT0666
TM«TM+J»0,
211 IF{TM»(TX»11,25))10,«0,666
*4 TH«IBO,.TK(K>
IF(TH,LT,0.) TM«TM*I60,
30 TX«0.
rN«100,
0016111,4
A(i>*A(i)*4o.
IP(A(I).SE,J60.) A(I)«A(I).J60,
IFtAln.GT.TX) TXmt(l)
IFOID.LT.TN) TN«A(I)
Ik CDNTINUF
IF(TX«TN,LE, 190.) BOT027
TH»J70,-TK(K)
IffTM.LT.O,) TM«T««360,
GOTOSO
MNlTHN»C03(OIF)
NEGATE POSSIBLE ERROR IN COSINE FUNCTION,
L*MOO(HN,INCMM
'INCU)
nITHIN »«f» IOURCC 8RID
!FMN
CALL CALS
CALL AREA
C IF NO POINT SOURCES, CO TO NEXT SECTOR
666 IF(IP3,LE.O) GOTOIOt
CALL POINT
40« IF(K,l.E.16) GOT0152
K«K«1
C K LHUBS THRU 16 SECTORS
00503IH,2
AR03E1K, I)«o,
503 PROSE(K,I)«0,
C IF NO AREA SOURCES, CHECK POINT SOURCES
IFUA3,LT.I) GDTU666
C BRANCH TO 61 OR 70 DEPENDS ON HHETHER RECEPTOR IS INSIDE
EnTC(61,70),IB
C PRINT AND PUNCH OUTPUT
152 005051*1,2
KOMI )*PBAR(I)*ABAR(I)
505 CCON(n*CA(I)«CB(I)oTCON(I)
C TCONI TOTAL CUNCFNTRATION
C CCONl CALIBRATED CONCENTRATION
«RnE(INH,lll2}RX,RV,AeAR,PBARtTCUN,CCaN,KPX(9)>KPX(10)
112FORHAH" i,F9,2,F10,2,BF10,0,2I10)
00001010
00001050
00001060
00001070
00001080
00001040
00001100
OOOOIiiO
OOOOIIIO
00001130
00001100
00001150
00001160
00001170
ooooitao
00001190
00001200
00001710
00001220
00001230
00001210
00001250
00001260
00001280
01001240
00001300
00001310
OOOOIJ20
00001330
00001310
00001350
00001360
00001370
00001J80
00001390
00001100
00001410
00001120
OOOOInSO
OOOOIU10
OOOK1II50
00001U60
00001H70
OOOOIaao
AREA GOOOOI490
00001500
000015)0
00001520
OOOOI5UO
00001550
00001560
00001570
000015(0
C AdARi CONTRIBUTinN FROM AREA SOURCES
C PBAHl CONTRIBUTION FROM POINT SOURCES
PUK*(RX-XGG)/«ATG«1,
C PUXl x COORDINATE OF PLOTTING GRID
PU»"(RV-YGG)/'RATG«1 .
C PUTI Y COORDINATF OF PLOTTING GRID
C KPXl CARD OUTPUT VECTOR
KP»!1)*ABAR(1)*0,5
KPX(2)>ABAR(2)«0,5
KPX(3)»PBAR(l)tO,5
KPX(4HPUAR(2)*0,5
KPX(5)«TCON(1)»0,5
KPXf6)«TCON(2)«0,5
KP«(7)*CCON(1)«0,5
KPX(«)«CCON(2)+0,5
NRtTE(tPU,105)PuX,PUy,(KPX(L)iL*l«10),RX,Ry,IHUN
105 FORHAI(F8,2,F6.2,10I1I2F10,2|I5,'I')
IF(NR09E,LT.l) GOT0101
KPX(lT)«RI.IOO,
KPX(l«)»Rr«IOO,
• RITE(II3J«1,2
D0162l>t,l6
162 KPX(I)*AR09E(I,J)»0,5
HRTTE(IHR,167)AR09(J)(KPX
167 FORHATC >,<>X,A1,I8I5)
163 HRITE(IPU,161)AR09CJ)>KPX
HRITC(IHR,168)
16A FORMAT!' POINT ROSES')
00166L*1,2
00165Kil,16
16S KPX(K)iPRQSE(K,L)«0,5
NRITE(IHR,167)PROS(L)>XPX
166 CONTINUE
161 FORMATCAI,1611,216)
GOT0101
103 RETURN
END
00001590
00001600
ooomtlo
00001620
00001630
00001611
00001650
00001660
00001670
OOOOI6SO
00001690
00001700
00001710
00001720
00001730
00001710
00001750
00001760
00001770
OOOOI7SO
00001790
OOOOISOO
00001810
00001020
ooooteio
OOOOISOO
OOOOIB50
00001860
00001870
00001880
00001690
00001900
00001*10
ooooitao
00001440
00001950
OOOOI9TO
-------
SUBROUTINE CALQ 00001960
DIMENSION C(3> 00001990
COMMON /Cl/ K,MX,MN,HT,r<6,6,16),G<6,5),U<6),RI,RJ,INC(4),DELR 00002000
COMMON /C2/ UE(6),YD(YN«TMN,MMIN,DINT,YCON,TA(,CB(2>,TK<16),ARC>S(2>,PBOS(2),TANG 00002020
COMMON /Cl/ DeCAV(2)»ICAC6),ICP(6),M(6),HX«>).Ga(2),Na,IVER,I»R 00002030
CQMMQN /C!/ Q(100,4),S»C2),IAO<1,5),XGG,YGG,IA3,TDA,TDB,TDC,IPU 00002010
COMMON /QCOM/ x,DR,IX,lY,TT(16,Jl>,KTC,IXX,IYr,R»0,2(50,50,3>,TD 00002050
C CALCULATE SECTOR AREA SOURCE VECTOR Q(NO,I) 00002060
C N • INDEX OF RADIAL ARC 00002070
C • 11 P 1 EMISSION RATE 00002060
C » 21 P 2 EMISSION RATE 00002090
C » Jl AREA STACK HEIGHT 00002100
N0»0 00002111)
700 NQ>NO> 00002120
D07011 Id 00002130
T01 Q(NQfI)*0. 00002140
0(NO,4)»tN.l)«OELR 00002150
R«(N-1)«DD 00002160
C Rl RADIAL UPWIND DISTANCE 00002170
KT»(N»1)*OELR/2500,*1, 00002180
C KTl CONTROLS INCREMENT TO NEXT ARC 00002190
IF(KT,GTt«) KT«4 00002200
C KTCl CONTROLS NUMBER OP POINTS ALONG ARC (OINT*I) 00002210
HN*0, 00002220
0090LL«1|KTC 00002230
C DETFRMINE HHICH AREA SOURCE THE POINT TAILS ON, IF ON THE LINE00002240
C T»U ARE AVERAGED, If ON AN INTERSECTION! FOUR ARE AVERAGED 00002250
r«TTCK,LL) 00002260
TI«RI«R«COS(T) 00002270
fJ«RJ»R«SINCT) 00002280
IF(TI.LT,TDA,OR,TI,GT,TDe> GOT090 00002290
IF0,5).LE,TD) GOTOB3 00002510
IFID-0,5)81,83,85 00002520
63 IA>3
JA«2
GOT010I
81 IA«3
JA»3
GOI0101
85 IA.3
jA«a
GOTC101
86 D'fJ-J
If (AB3CU-0.5).U,TD) UOT087
IF1D. 0,5)86, 87, 69
87 IA«1
J»«2
GOT0101
88 IA>4
J»3
GOT0101
89 I».a
JA'1
101 CNIO,
IF(I,EQ.IXX) IA»3
IF(J,EO.IYV) JA.3
DQ80SLD'1,3
606 C(LO)»0,
JV'J»IADtIR,JA)
D0601L*1,2
801 C(L)«C(l.)»2(Iv,JV,L)
IF(2(IV,JVr3).LE,0,l) GOT0602
CN»CNH,
Ct J)»C(3)«2( Iv,JV,5)
802 CONTINUE
IF(CN,GT,0,5) GOT0803
C(3)«l,
GOT0604
803 C(3)«C(3)/CN
801 IF(R,GT,0,) GOT0103
D0201LA«1,3
201 Q(NQ,LA)'CCLA)
GOT0102
103 IP(LL,NE,1,AND,LL,NE,KTC) GOT0104
TRAPEZOIDAL INTEGRATION APPLIED
0020!UB>1,2
203 C(LB)«C(Le)«0,5
101 D0201LC»1,2
204 0(NG,LC)«0(NOf LC)»C(LC)
IF(C(1)»C(2),LE.O.) GOTR90
G(NO,3)»Q(NO,3)»C(3)
99 HN'HN+1,
90 CONTINUE
D0202LD»1>2
00002530
00002540
00002550
0000?560
OOOOP570
00002580
OOOOJ590
00002600
00002610
00002620
00002630
00002640
00002650
00002660
00002670
00002660
00002690
00002700
00002710
00002720
00002730
00002740
00002750
00002760
00002770
00002780
00002790
00002600
00002810
00002620
00002830
00002640
00002850
00002660
00002870
00002880
00002690
00002900
00002910
00002920
00002930
00002910
00002950
00002960
00002970
00002980
00002990
00003000
00003010
00003020
00003030
00003040
00003050
00003060
00003070
-------
202 8(N8,LD)«0(NO,LO)/OINT
IP(HN,GT.0.5) GOT0105
Q(NO,S)«1.
GOTOios
105 Q(NBi3>«o(N/HN
102 N«N«INCCKT)
IF(N,LE,MX«1) GOT0700
If NEXT ARC 13 BEYOND ARC* GRID, RETURN
8(N8»1««DELR
RETURN
(NO
oooojoeo
00003090
00001100
00003110
00003130
00003130
00003140
00001150
00001160
00001170
00003110
SUBROUTINE AREA
DIMENSION CC2)
COMMON /Cl/ K,MX,MN,HT,FC»,6,16),G(4,i),U(6>,Rl,RJ,INC(4>,DELR
COMMON /C2/ UE(6),YO,YN,TMN.HMlN«0:NT,YCON,TA(4),IPG, XS,YC,IRD
COMMON /C!/ RATG,IRUN,CA(2>,C»(2>,TK(U>,AaOS(2),PROS(2>,TANG
COMMON /CD/ DeCAY(2>,ieA<6),lCPl6>,H<»),MXt6>,GS<2),N8,mR,IKR
COMMON /CV BC100,4),GA(2),IAOC4,5),XGG,YGG,IAS,TOA,TDB,TOC,IPU
COMMON /ACCM/ PI,SZA((,),ABAR(2),AR03E,XS(6)
Y«YO
CALCULATE SECTOR CONCENTRATION PROM AREA SOURCE VECTOR (0)
OOllSIS'l,*
ISI CONTROLS STABILITY CLASS
IFU3,EQ,«) V«YN
IOICACIS)
DOJJ8IU«1,6
IUI CONTOLS HIND SPEFD CLASS
IF FREQUENCY IS ZFRO> SKIP
JF(F(IS,IUiK>.Lt,0.) GOT01J8
C(l)«0,
C(2)«0,
IP."
DVLNI"OC2,4).aCl,4>
R«a(IR>1)
OVLR'OVLRI
OVLRI«0(IR«1.4)-«
W7«(0(!fl,31«O.I)«.ut(IJ)
NS>U(IU)»M2
701
AOl DEC«Y(J*).EXP[R/OP)
«X3«R*X3(I31
IF(RXS-5000,)3I1,513,310
110 11*1
GOT0127
111 IF(RX3,l,E.SOO, ) GOT0313
IZ*3
GOT0327
313 IZ>2
12T 3Z>GUZ,IC)*RX9it*tiUZ»],IC)
IP(3Z,LE,0.) GOTOI46
IF(3Z.GE,HXCISM GQT0317
3TK2>a(IR,3»Q(IR,3)
SB«-0,5«3TK?/(3Z«8Z)
3"!«E KPOH)/(3Z.-3)
GOT0119
317 3*l./(>i3*H(I3n
LID HA3 BEEN REACMtO
IRI'IR
702 R«0(IRI,4)
OVLRI»0(IRI»l,4)-R
»Z*(0(IRI,3)*0,1 )««UE(I3)
H3*U(IU)*MZ
no«OJJB«l,J
OF"»3«C»( J8)
00003190
00001200
00001210
00001220
00001210
00001240
00003250
00001260
00003J70
OOOOJ2BO
00001290
00003100
00003110
00001120
00003310
00001140
00003350
00003360
00003170
000011SO
000011*0
00001400
00001410
000031120
00001430
00003140
00003450
00003460
00001/170
000014SO
00001490
00001500
0(1003510
00003520
00001530
00003540
00003550
00003560
00003570
00003560
00003590
00003600
00003610
00003620
00001630
000016UO
00003650
00003660
00001670
00003680
00001690
00001700
00003710
00003720
00003710
B02 OECAY(JB)«EXP(R/DF)
ir(IRI,FO.I,OR.lRI.FG.NU) GOT0120
00465JC*1,2
465 C (JC )«C (JC>»<0(IRJ,JC)«S«(DVLR»OVI.RI)>/DECAY 1>2
«62 C(JI)«C(JI)»(0(IR,jn«8«(DVLR»DVLRI))/DECAY(JI)
GO TOJit
C TRAPEZOIDAL INTEGRATION APPLIED
121 D0421JK»1,2
421 C(JK)«C(JK) + (0(IR,JK)«S«OVLP.)/DECAY(JK)
146 IR«IR»1
C LOOPS TO RMO(HAX)
!FUR.LE,N8) GOT070I
147 X>V*YCON*F(IS,IU>K)
D0447JL*I,2
AROSEtK,JL)»AROSE(K,JL)«C(JL)«X
447 ABARCJL)*ABAR(JL)tC(JL)*X
35S CONTINUE
RETURN
END
00001740
00001750
00001760
00001770
000017BO
00001790
00003BOO
00003S10
00003820
00001B10
00001S40
00001SSO
00003860
00005870
00001SBO
00001S90
00001900
00001*10
00003920
00001910
00003940
00001450
00001960
00001970
00001980
00003990
00004000
00004010
00004020
00004030
00004040
-------
SUBROUTINE POINT 00001050
DIMENSION 3(2) 00004060
COMMON /Cl/ K,MX.MN,HT,F(6,6,16!,S<6,5),U(6),RI,RJ,INC(1),DtLR 00001070
COMMON /Cl/ UE(6),YO,»N,TMN,HMN,DINT,rCON,TA(4),IPO,X6,YG,IRD 00001060
COMMON /C3/ RATG,IRUN,CA(J),CB(?),TK(16),AROSf2),PR08(2),TANS 000011090
COMMON /C4/ OECAY(2),ICA(6),ICP«>>,M(6),HX(6),G8t2),Ne,IVER,IWR 00001100
COMMON /C5/ 0(100,4),GA(2),1ADC4,5),XGG,YGG,IAS,TOA,TDB,TDC,1PU 00001110
COMMON /PCOM/ PH(200>,PR(JOO),P5UOO,4),PX(200),P»C200),FB<200>, 00001120
• XX (200 ),l)HP (200), »A( 16), »BU6), PROSE! 16,2), CV,IPS,RAT,TOA,PBAR(?) 00001130
C CALCULATE SECTOR CONCENTRATION FROM POINT SOURCES 00001110
C IP LOOPS TO IPS (NUMBER OF POINT SOURCES) 00001150
IPX 00001160
C FINOS UPnIND (XP) AND CROSSKlND (VP) DISTANCES FROM RECEPTOR 00001170
C TO SOURCE 00001160
667 VX>PX(IP)-RI 00001190
VY«PVUP)-RJ 00001200
XP*{VYt«A(K)«VX*«B(K))*RAT*CV 00004210
IF(XP,LE,0,) SOT0659 00001220
Yf>««B3<(VY«u8«)-VX»»A(K))«RAT«CV) 00001230
FM«XP«0,11891 00001240
C IF SOURCE MARES NO CONTRIBUTION TO RECEPTOR. SKIP TO NEXT 00004250
IMrP.GT.TM) GOT0659 00001260
ir2 00004530
644 3/c&[IZ,IC)«DI3T««C(IZ«3,1C) 00004540
IF(SZ.Lt.O.) GOT0777 00004550
L)06S81U*1,6 00004560
C IUI CUNTOLS KIND SPfFO CLASS 00004570
C IF FREQUENCY IS ZERO, SKIP 00004580
IF(F(I3,IU,K).LE,0.) GOT0658 00004590
D0744JA*1,2
744 UECAY(J»)=fcxPCXP/OF)
IF(PH(IP).Lt.O.) GOT0637
C HOLLANDS EON,
UHIPR(IP)/«S
GOT0638
c BRIGGS PLUME RI3F
637 XSX«XP/XX(IP)
IF(X3X,GT.3.5) GOT0608
DH»FBUP)/WS«XP««0,6667
GOT0638
608 DH«DHF(IP)/K3
636 PHDH«PM(IP)»DH
IF(PHDH.GT,M(IS)) GUT0658
PHDK«PHDH*PHDH
IFf3Z,GE,HX(IS)) GOT0614
B-.0,5»(PHDH/(3Z«SZ))
IF(ABS(B),GT.60,) GOT065B
UM'tl3*XP*SZ
S(1)«P3(IP,I)/HW
S(2)«PS(IP,2)/KH
(1970)
GOT0615
614 «»=»3«XP«M(I3)
S(1)"PS(IP,3)/KI<
S(2)«PSMP,4)/H»
615 B«Y*YCCN«F(IS, IU,K)
Da715JB«l,2
X=3( JB).B/DECAr(JB)
PR03F (K, JB)»PR03E(K, JB)»X
715 PBAR(JB)'PBAR(JB)tX
65B CONTINUE
777 CONTINUE
6?9 IP«IPtl
IF(IP,LE,IPS) OOT0667
LOOPS UNTIL ALL POINT SOURCES EVALUATED
RETURN
END
00004600
0X004610
00004620
00004630
00004640
OOU04650
00004660
00004670
00004680
00004690
00004700
00004710
00004720
00004730
00004740
00004750
00004760
00004770
00004780
011104790
00004800
00004810
00004820
00004830
00004840
00004850
00004660
00004670
00004680
00004890
00004900
00004910
00004920
00001930
OOU04940
00004950
00004960
00004965
00004970
00004980
00004990
00005000
00005010
-------
BLOCK DATA 00007750
COMMON /Cl/ K,MX.HX,HT,F(6,6,t(>),G(6,5)>U(6),NI,RJlINC(l|),DElR 00007740
COMMON /C2/ UEf6>,YD,YN,TMN,HMlN,DlNT,YCUN,TA(4),IPG(XG,YG,lRD 00007750
COMMON /C3/ RArG,IRUN,CA(2),CB(2>,TKH6),AR08(2),PR08(2).TANG 00007760
COMMON /Cl/ DECAYt2),KA<6),ICP{6),H(6),HX(6),6a<2),Ng,IVERiJ«R 00007770
COMMON /C5/ 0(100,4),GA(2),IAD(4,5),XGG,VGG,IA»,TOA,TUB,TDC,IPU 00007760
COMMON /OCOM/ N,OR,IX,IY,TT(16r?l),KTC,IXX,IYY,RAO.Z(50,50,3>,TO 00007740
COMMON /ACOM/ PI,SZA(6),ABAR<2),AROSE(16,2),XS(6) 00007(00
COMMON /PCOM/ PH(200),PR(200),P8(200,4),PX(200),PY(«00),FB(200), 00007910
*XX(200),OHF(200),»A(16),(.B(16),PRO(E(16,2),CV,IPS,RAT,TUA,PBAR<2> 00007820
DATA c/2*2l534E-4,,o3(3,2o2,o(86,i,2(i2,2*,o4936,,1393,2*1,1137, OOOOTBSO
*,9467,,1154,.1014,.112,.9109,,9P6,,9|,,7368,,2541,,0856,,5642, 00007(40
*,6869,,865,1,'2969,.2527,,0818,,4421,.634!,,(I55/ 00007(50
DATA lANS,u/78,75,I.S,2,45872,4,4704,6,929l2,9.6lt36,12,5l7l2/ 00007(60
DATA YCON,UE/O.IE7,0,1,0,15,0,2,0,25,0,25,0,3/ 00007(70
DATA INC,IPS,JP3,IX,IY/1,2,«,4,70,0,1,I/ 00007(80
DATA IXX(IVY,IAS/1,1,0/, TD/O.IE-3/ 00007(90
DATA RAO,PI/57,2958,0.797885/ 00007900
DATA IAD/0,0,1,1,0,1,0,1,11*0,11*1,0,1,1,0/ 00007910
DATA ICA,ICP/I,I,2,3,4,4,I,2,3,3*4/ 00007920
DATA IVER/T5104/ 00007430
END 00007910
SUBROUTINE CLINT 00005020
COMMON /Cl/ K,MX,MN,MT,F(6,6,16),GC6,5),U(6),HI,RJ,INC(4),DELR 000050)0
COMMON /Cl/ UE<«>),YD,YN,TMN,HMIN,DINT,YCON,TA(4),1PG,XG,Y6(IRD 00005040
COMMON /C3/ RATG,IRUN,CA(2),CHC2),TM16),AROS(2),PROS(2)(TANG 00005050
COMMON /C4/ DECAY(2),ICA(6),ICP(6),H(6),HX(f>),Ga(2),NG,IveR>I*R 00005060
COMMON /CS/ Q(100,4),GA(2),IAD(4,5),XCG,YGC,1A3,TOA,T08,TDC,IPU 00005070
COMMON /QCOM/ N,OR,IX,IY,TT(I6,?1),KTC,IXX,IYY,RAD,Z(50,50,3),TO 000050(0
COMMON /ACOM/ Pl,8JA(6),»BA«(J),A»oat(16,2),»8(6) 00005090
COMMON /PCOM/ PH(200),PR(200),P((200,4),PX(200),PY(200),rB(200), 00005100
*>X[200),UNF(200),HA(16),k»(16),PR03t(16>2),CV,IP(,RAT,TOA,PliAR(2) 00005110
C BUbROutlNE CLEARS AND INITIALIZES, 00005121)
DO?SSI»1,50 00005110
UO!33J«1,50 00005140
C EFFECTIVE STACK HEIGHT MUST at GE 1, 00005150
Z(1,J,I)«I, 00005160
D053)K>1,2 00005170
533 m,J,K)io, 000051(0
C U(N)I CENTER SPEED OF SIX KIND SPEED CLASSES 00005190
rMl)>0, 00005200
OU544I>2,I6 00005210
544 r«(I)«TK(I.l)«22,5 00005220
C UE1N)I EXPONENTIAL OF «IND PHUFILE, 0,001 « NO PROFILE, 00005230
C N > STABILITY CLASS 00005240
REAO(5,545)AROS,PR03,IRUN,NLIST,CA>CB
C AROS,PR08t OUTPUT CARD IDENTIFIERS 00005260
C IRUNI IDENTIFICATION NUMBER 00005270
C NLISTI INPUT LIST OPTION, NLI8T LE ZERO PRODUCES LIST 000052(0
c CA.CBI INTERCEPT, SLOPE OF CALIBRATION 00005290
545 FOR"AK4Ai|,2I5,15X,4F9.0>
c INPUT MODEL PARAMETERS 00005310
READ(5,504)DELR,RAT,Cv,HT,HHIN,XG,YG,XGG,YGG,RATC,TOA,TXX 00005320
c OCLRI INTEGRATION INCREMENT (RADIAL DISTANCE IN)) 00005330
C RATI RATIO, EMISSION GRID TO MAP GRID 00005340
HTI AVERAGE AFTERNOON MIXING MEIGHT CM) 00005360
CVt CONVERSION, CV.RAT > EMISSION GRID INTERVAL CM) 00005350
NM1NI NOCTURNAL MIXING HEIGHT (M) 00005370
XGl MAP COORDINATE X, SOUTHHEST CORNER OF EMISSION GRID 00005380
YGl MAP COOROINATC Y, 8QUT*»t«T CORNER OF EMISSION CRIO 00005400
XGG| MAP COORDINATE X, SOUTHnEST CORNER OF PLOTTING GRID 00005420
YGGl MAP COORDINATE Y, SOUTHnEST CORNER OF PLOTTING GRID 00005440
RAIGl RATIO, EMISSION GRID TO "AP GRID 00005461)
TOAI MEAN AMBIENT TEMPERATURE (C) 00005470
TXXI 4IDTH OF A BASIC AREA SOURCE SQUARE (M) 000054(0
504 FORMA](|2F6,0) 00005520
READ(5,S04)DINT,YD,YN,SZA,GB 00005530
DINTI NUMBER OF SEGMENTS DESIRED IN 22,5 DEC, SECTORS,. 00005540
RANGE 2 TO 20 INCLUSIVE, 00005550
YOI RATIO, AVG, DAYTIME EMISSION / 24>MR (MISSION 00005560
YNI RATIO, AVG. NIGHTTIME EMISSION / 24-HR EMISSION 00005570
3ZA(N)I INITIAL SIGMA Z FOR AREA SOURCES (M) 000055(0
N • STABILITY CLASS 00005590
G6(N)I OCCAY RATF HALF LIFE 00005600
N«ll P 1, N«2l P 2 00005610
TOA«TOAt273,16 00005710
DR»OELR/(CV*RAT) 00005720
-------
KTC'OINFM,
THETA«22,5/DINT
DOS19I«1,|6
B«TKCI)/RAD
w8(I)«SINC8)
WA(I)»C03CB)
X«TAN(;-TKCI>*C,;-l)*TrfETA
IF(X,LT,0.) X«X*360,
519 ml,J)»X/RAD
DEFINE HALF LIFE FOR P 1 AND P 2
GA(I)«GBC1)*S600,/0,693
5A(2)«GB(2)*3600,/0,693
HC1)«HT«1.5
HC2)«HT
H(J)«Ht
H(4)«HT
HC5)«CHf*HMIN)*0,5
H(6)«HMIN
DOI14JAM.6
Jt)iICA(JA)
HX(JA)»0,8*H(JA)
SA'SZACJA)
IF(SA,GT,0.) COT0110
3«0.
GOTU111
110 S«(SA/G(1, JB))*«(1./G(1,JB))
IMS, Ct. 5000.) GOTQ114
S«(SA/GC2,JB))**(1,/G(5,JB»
JflS.CE, 500,1 60T011K
S«(SA/GC3,JB))*«(i;/t(6,JB»
111 XS(JA)«S
IFCNLIST.GT.O) GOT0501
»«nECII««,aoO)IVER,IRUN
800 FDRMA]C1',40X, 'CDM VERSION', 16,', RUN', 16)
«HITE!I»R,e01>
00005730
00005740
00005750
00005760
00005T70
000057(0
00005710
00005600
00005810
00005120
000(15650
00005810
00005S50
00005660
00005570
00005860
000058*0
00005900
00005910
00005920
00005930
00005940
00005950
00005960
00005970
00005980
00005990
00006000
00006010
00006020
00006030
00006010
00006050
00006060
00006070
00006060
801 FORMA1COTHE CENTRAL NINO SPEEDS OF THE SIX KINO SPEED CLASSES [0)00006090
•I') 00006100
«RT1EH»R,802)U 00006110
802FORMA1C ',6620. 6) 00006120
uuntl I»«,605) 00006130
803 FORMA] t'OTHE EXPONENTIAL OF THE VERTICAL KIND PROFILE BY STABILITY00006140
* CLASS (LIE) I ') 00006150
NRt1ECI"R,eo2)uE 00006160
»RTTE(IHR,e04) 00006170
SOU FORMAK'OTHE INITIAL SIGMA 2 FOR ARE* SOURCES BY STABILITY CLASS (00006)80
•3ZA1I')
00006190
00006?00
•RI1E(I»«,805) 00006210
805 FOR1"* I ( ' OTMt CLINATOLOGICAL MEAN NOCTURNAL AND AFTERNOON MIXING HE00006220
•ICHTS (HHIN.HT)!') 00006JJO
URnE{I»H,e02)HHIN,MT 000062HO
»RnE(I«R,806) 00006250
no6 FOR*AK'OTHE DAY AND NIGHT EMISSION HEIGHT FACTORS (YO,YN)I'J 00006260
00006?70
(109 FOR»A7C'OTHE NUMBER OF SUH-SECTORS CONSIDERFD IN A 22,5 DEGREE
•TOR, AND ANUUUAR KlOTH nF A SUB-SECTOR (DINT,THET*)I')
NR1HUWH, 802 JOINT, THETA
»RTTEU»R,610)
810 FnH"*lC'OTHl INITIAL RADIAL INCREMENT (DElR)l')
WRITE(I(.R,802)DELR
»OT !E(I»H,813)
813 FORMATCOTHE RADIAL INCREMENT FACTORS (INC)I')
KRI1E(IKR,814)INC
814 FORMATC" ',4I?01
URITECIHR.BH)
811 FORMATCOTHE RATIO OF EMISSION GRID TO MAP GRID (RAT)I')
»RlTECI«R,e02)RAT
»B1TEII»H,812)
812 FOBMAIC'OTHE GRID CONVERSION FACTOR CCV)I'>
«RITEUuR,eo2)CV
«RI !t(lK.H,815)
815 FORMIC'OTHE AMBIENT AIR TEMPERATURE (TOA)I')
«RITEU»B,80?)TUA
«RITE(I«R,S16)
816 FOHMAIC'OTHE DECAY RATE HALF LIFE FOR P 1 AND P 2 (GB)l')
»RItE0
HRITECIHR,eOO)IVER,IRUN
*«!TEC!KR,826)
826 FORMATC SOURCE INPUT')
C-21
-------
»RITEU»R,62J)
882 FORHATC ' .IX, ' X ' , 12X, ' Y ' , I1X, ' TX • , 1 IX, '31 1 , 1 IX, '92' • I IX, I SH" ,
• IJX.'DMlX.'vaMSX.'TMlX.'SA')
B99 IPGMPGU
»RIlE(Ir.N,e20)x, r,TX,3t ,8i,SH,0, VS,T,SA
BIO FORHATC ',10111,51
C EFFECTIVE STACK HEIGHT «U9T Bt CE 1,
(88 IFtJH.LT.l.) SH.l.
c SEPARATE ABE* AND POINT SOURCE OATA
IFITX.LE.O.) GCJT0510
C STORE ARE* SOURCE DATA
C HOVE COORDINATE TO CENTER OF GRID CEU
0«TX»0,5/CV
X«»»D
y«r*o
K'TX/TXX
S«TX«1X
8«3l/3
0*31/3
C BECAUSE OF THE METHOD OF INTEGRATION, ARC* SUURCfl ARE
C DIVIDED By T»0 AT THIS POINT FOR MORE EFFICIENT EXECUTION
C OF SUBROUTINE AREA,
B«8«0,5
0*0*0, 9
X«(X.XG)/R»T«1 ,
y«(»-YG)/R*T+l,
IFO..CT.1.) GOTUS11
M"X
N>V
KiH
L«N
GOTC539
531 3«»«0.5
K»(«-3)»0.5S
L«(y-3)»0,SS
Hi(K«»)-o.«5
M«(L»«)-0,U5
S39 D0932I*K,H
DO!)2J*L,N
;n,j,ii*e
ZU>J,2)*0
532 2(I,J,I)«3H
IM'.OT. IXX) Ixx*M
lF(N,cr.lyy> iyy>N
IA9*IA9tl
GOT0501
900 IPG>70
TDA«0,5-TD
TDB«IX«»0,1itTO
IF tNLIST.lt, 0)
(21 FQR»»T( '0' ,110
RETURN
C 9TQRC POINT SOURCE OATA
510 IPS»IP9»1
RITE(IIIR>B21)IA9,IPS
AREA SOURCES, ', 1 1 0, ' POINT (OURCd,1)
000069(0
00006490
00007000
00007010
00007020
000070JO
00007010
00007090
oooo7o6o
00007070
00007080
00007090
00007100
00007110
00007120
00007130
00007140
00007190
00007160
00007170
00007180
00007J90
00007200
00007210
00007220
00007250
00007210
00007290
00007260
00007270
00007210
00007Z90
00007)00
00007110
00007320
00007130
000073HO
00007J90
00007360
00007170
00007)60
00007390
00007400
oooo7«io
000071)20
000071130
00007H40
00007490
00007(160
00007470
00007X0
00007490
00007900
00007910
00007920
PXUPS)"tX-XG)/»AT»0,5
py(IP9)>(y>yG)/R«T*o,9
PS(IF3,I)«3I«2.05
PS(IP3,2)>3i>2,03
PS(IP9,3»S1*2,99
P9CIP3, 4)182*2, 55
PH(!P3)«SH
PR(IP9)'9A
If(3A,6T.O,) COTD501
0>D«0,9
T»T*273,16
9i(1»70A)/T«1,B.va«D«0
IF(S,GT,55,) GOT0606
XX(IP3)25
GOT0605
606 IX(IP3)>34,*9««0,<1
605 FB(IP9)«1,6«9»0,3333
GQT0501
END
00007330
00007540
00007550
00007560
00007570
000079(0
00007190
00007600
000076)0
00007620
00007630
000076)0
00007650
00007660
OOOOT670
000076(0
00007690
00007700
00007710
(OOOT7IO
-------
C.3 TEST CASE
PAKAMIHH*
ORIGINl ( 0.0 i 0,0 )
HEIBMTIN6 GRID NX" 1
NEIGHTING OHIO QX* 1,00
PRINT INPUT MIND ROSES (T)
POMEN* 2,0
SEARCH ANGLE! 15,0
WEIGHTING GRID NY. 1
HH8HUNG GRID SY« 1,00
NO WEIGHTING FACTORS (T)
STATIONS
STATION NO,
I
X
26,79
Y
10,00
IDENTIFICATION
JFK
STABILITY CLASS I
HINDSPEEO CLASS
I HIND
I OIH.
I N
I NNE
i NE
I ENE
I E
I ESE
S St
1 SSE
I S
t 3SN
I SH
I hS»
I H
I NNN
I NH
I NNH
I SUM
1 I 2
I
0,0 I 0,0
0,0 I 0,0
0,0 I 0,0
0,0 I 0,0
0,0 I 0,0
0,0 I 0,0
0,0 I 0.0
0,0 I 0,0
0,0 I 0,0
0,0 I 0,0
0,0 I 0,0
0,0 I 0,0
0,0 1 0,0
0,0 I 0,0
0,0 I 0.0
0,000210 I 0,000070
0,000210 I 0,000070
3
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
1
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
0,0
o.o
0,0
0,0
0.0
0,0
0,0
0,0
5 1
0,0
0,0
0,0
0.0
0,0
0,0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
6 I SUM I
I I
0,0 I 0,0 I
0,0 I 0,0 I
0,0 i 0,0 :
0,0 I 0,0 I
0,0 I 0,0 I
0,0 I 0,0 I
0,0 I 0,0 I
0,0 I 0,0 I
0,0 I 0.0 I
0,0 I 0.0 I
0,0 I 0,0 I
0,0 I 0,0 I
0,0 I 0,0 I
0,0 I 0.0 1
0,0 I 0,0 I
0,0 I 0.0002BO I
0.0 I 0,000260 I
TOTAL FREQUENCY OF OCCURRENCE. CLASS 1
0,00028
STABILITY CLASS 2
HINDSPEEO CLASS
I HIND
I DIP,,
I N
t NNE
I NE
I ENE
I t
1 ESE
I »E
I SSE
I S
I S3H
I «H
I NSM
1 «
1 NNH
I Ntt
I NNH
I IUM
1
o.ooouo
0,000210
0,000510
0,000500
0,000560
0,000080
0,000070
0,000100
0,0002110
0,000070
0,000230
0,000290
0,0002)0
0,000150
0,000240
0,000080
O.OOJ8SO
2
0,000<60
0,000680
0,000750
0,000180
0,000680
0,0001110
0,000110
0,000110
0,001160
0,000210
0,000750
0,000110
0, 000680
0,000310
0,000270
0,000180
0,008510
I J
I
0,000550
0,000180
0,000110
0,000310
0,000210
0,000110
0.000310
0,000180
0,002600
0,001030
0,001030
0,000750
0,000530
0.000310
0,0006)0
0.000310
0,010270
U
0,0
0,0
0,0
0,0
0,0
0.0
o.o
o.o
0,0
o.o
0.0
0,0
0.0
0,0
0.0
0.0
0,0
5
0.0
0,0
0,0
0,0
0,0
0.0
0.0
0,0
0,0
o.o
0.0
0,0
o.o
0,0
0,0
0.0
0,0
6
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
SUH I
I
0.001670 I
0.001390 I
0.001670 I
0,001320 I
0,001170 I
0,000640 I
O.OOOSbO I
0.000760 I
0,001000 I
0(001310 I
0,002010 I
0,001150 I
0,001160 1
0,000830 1
0,001210 I
0,000900 I
0,022660 I
TOTAL FREQUENCY OF OCCURRENCE, CLASS 2 • 0,02266
-------
ITtllUTY CLAM 1
HIND
PIR,
N
NNE
NE
ENE
E*E
IE
I*N
IN
H)H
N
NNN
NN
NNN
I *UM
1
0,000010
0,000070
0,0002*0
0,000220
0,000420
0,000140
0,000210
0,000070
0,0002*0
0,0002*0
0,0000(0
0.000140
0.000220
0.000070
0,0
0.0000*0
0,0021*0
NINOI
2
0,00)510
0,000750
0,0010)0
0.001170
0.001110
0.0001*0
o.oooiio
0,0004*0
0,001100
0,000750
0,001210
0,002*70
0,001)00
0,000210
0,0006*0
0,0008*0
0.016)70
PECO CLAM
3 I
0,009*30 I
o,oo)o«o :
0,002120 ;
0.0011*0 1
0,001640
0,000*60
0,001*«0
0,001220
0,017260
0,005270
0,001*60
0,007060
0,004250
0,001440
0,001010
0,002*10
I 0,066720
i1
0,000680
0,0006*0
0,0(0)40
0.0
0.000140
0.00(140
0,000*80
0,001)70
0,00*660
0,001)70
0,000120
0,000480
0,001)00
0,000)40
0,001100
0,000)40
(.01*440
5
0.000070
0,0
o.o
0,0
0,0
0,0
0,000070
0,0(0070
0,000620
0,000140
0,00*070
0,0
0,000070
0.0
(, 0(0210
0.0(0070
I 0,001)90
6
0.0
0.0
0,0
0.0
(,(
(,(
(,(
0,0
0,0(0070
0,0
0,
0,
(,
(.
(,
0,0
(,((0070
IUM
0,007200
(.((41*0
0.00)770
0,00)170
(,(0)710
(,((11*0
0.00)500
0,0(1210
0,02»»*0
0,007(10
0,00*160
0,010)70
0,007140
0,002060
0,005000
0,004))0
0,10*1*0
rnceuENCY or OCCURRENCE, CLASS i •
0,10*5*
• TA8HITY CLASJ 4
NINOIPEED CLASS
NINO
Oil.
N
NNE
NI
ENE
E
EIC
9E
33E
)
ISN
IK
N9N
kf
*N»
NN
NNN
*UM
1
0,000110
0,000120
0,0002*0
0,000)70
0,000555
0.0004*5
0,000210
0,0001*0
0,000f20
0,0001*5
0,000225
0,0002*5
O.OOOlfO
0,000005
0,000040
0,000*40
0,004150
2
0.001025
0,001540
0,002020
0,0022*5
«, 003110
0,0016*0
0,002020
0,001)00
0,001)55
0,001*85
0,001*45
0.0029^5
0,001200
0,000140
0,000410
0,000*15
0,02*«>5
1
0,007140
0,00*100
0,005*25
0,00*100
0,00*200
0,005855
0,004075
0,004)11
0,015000
0,067610
0,006*20
,,;>";'l>5
0,0067«!
0.002771
0,00)119
0,00)4*0
o,o«»o«o
4
0,014)50
0,00*505
0,00*540
0.001*05
0,00f*«0
0,002*45
0,00)425
0,002*79
0,021440
0,007)10
0,005205
J,COT*«5
0,015125
0,012125
0,01*5*0
0,0122*0
0,I«*1S5
g
0,002*10
0,000*60
0,0012*5
0,001025
0.001*45
0,0004*0
0,000441
0,0004*0
0,001515
0,001*50
0.000441
0,001110
0,00*7*0
0,00*2)5
0,00*800
0,00)255
0,04)2*0
*
0,0007*0
0,000240
0,000)75
0,000205
0,000720
0,000101
0,0000)5
0,000070
0,000*21
0,000275
0,000115
0,000240
0,002740
0,001*15
0,002)70
0,000*50
0,0118*0
IUM
0.02*415
0.01)665
0,0161*1
0,014100
0,011140
0,00*110
0,010210
0,00*400
0,046*25
0,01*515
0,014171
0,020020
0,0))440
0,02)2*5
0,0)1)11
0,0202*0
0,11)50*
TOTAL FREQUENCY Or OCCURRENCE, CLAM 4 •
STAIILITY CLAM 5
PUNOtmo CLAM
I NINO
I DIR.
I N
I NNE
I NE
1 ENI
I E
i e*E
i it
I 3*E
I *
I tiH
I IN
1 N«H
1 N
I NNH
I NH
I NNH
I IUH
1
0,000110
0,000120
0,000260
0,009170
0,000555
0,000465
0,0002)0
0,000)60
0,000120
o.ooouf
0,000221
0,0002*1
0,000150
0,000001
0.000040
0,000040
[ 0,004110
2 I ) I 4
I I
0,001025 I 0,0071*0 I 0,014)10
0.001S40 I 0,006)00 I 0,006505
0,002029 I 0,0059,?S I 0,00*540
0,0022*S I 0,006300 I 0,003*05
0,GO)t30 I 0,006200 I 0,0059*0
0,001680 I 0,0031)3 I 0,002*41
0,002*20 I 0,004071 I 0,00)421
0,001)00 I 0,004)11 I O.OOII7S
0,00)151 I 0,011000 I 0,0214*0
0,001*11 I 0,007*10 I 0,0071)0
0.00164S I 0,00»*20 I 0,009209
0,002091 I 0,00*151 t 0,007*41
0,001200 I 0,00*741 I 0,011*21
0,0063*0 I 0,852775 I 0,011121
0,000410 I 0,001*1! I 0,01*1*0
0,0*0*11 I 0,00)4*0 1 0,0122*0
1 0,02**** 1 0,0**040 I 0.14*111
1
0,002*!0
0,000*60
0,0012*1
0.001021
0,001*41
0,0004*0
0,00044*
0,0004*0
0,0011*1
0,001*10
0,100441
0.0011)0
0,00*7*0
0,0062)5
O.OOMOO
0,00)211
1 0,«4)2«0
6
e, 00*7*0
0,000240
0,000)71
0,000201
0,00*720
O.OOtlOl
0, 00(011
0,000070
0,000*29
0.000279
0,00(1)*
0,0002*0
0,0027*0
0,001*1*
0,002970
0,000410
l,lll**0
I
IUM
,02*411
,015*45
,0163*5
,01*100
,01*1*0
,00*110
,(102)0
,00*4(0
,044121
.01*111
,(14171
,020020
,01)440
,02)2*1
,0)1)11
,02(2*0
1, )))!(*
TOTAL FREQUENCY Of OCCURRENCE* CLA»S 1 « 0,13)5)
-------
STABILITY CLASS 6
NINDIFEEO CUSS
DIB,
NNE
Nt
ENE
ESE
SE
8St
SSN
IN
NSN
NNN
N*
NNN
1
0,000710
0.001100
0,002150
O.OOJ2IO
0,000*10
0,000920
0.001*10
0,001170
0,001000
0,001220
0,000(20
0,000*10
0,000710
2
0,905*60
0,005110
0,007310
0,007880
0,007510
0,0012*0
0,0033*0
0,003010
0,010000
0,007190
0,00*710
0,0)0180
0,0071*0
0,001080
0,001190
0,002670
0,0»6*»0
3
0,00*800
0,0018*0
o.oomo
0,001780
0,000790
0,000*80
0,000t*0
0,001510
0,00*830
0,00*920
0, 007400
0,010480
0,00*180
0,005756
0,0086(10
0, 007*00
0,087270
It
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
o.o
o.o
0,0
0,0
o.o
0,0
0,0
0.0
5
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0.0
o.o
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
*
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
,0
.0
.0
.0
,0 ]
0,0
0,0
SUM
0,016610
0,011710
0,011110
0,011810
0,011050
0,005210
0.001*10
0,005100
0,0187*0
0,018280
0,018130
0,018010
0,00**50
o,oiitoo
TOTAL FREQUENCY OF OCCURRENCE, CLASS 6 > 0.20111
TOTAL FREQUENCY Or OCCURRENCE, CLASSES 1 TO * « O.t***<
STATION NO. X Y
2 22.50 17,25
TOTAL FREQUENCY Of OCCURRENCE, CLASS 1 • 0,0
IDENTIFICATION
UCUARDIA
STABILITY CLASS 2
NINDSFEED CLASS
I • DJR.
I NNE
ME
ENE
ESE
se
8SE
SSH
SN
MSN
HNN
Nil
NNN
sun
i i
0,000870 I 0,001230 0,000200
0,000230 1 0,000610 0,0
0,000210 I 0,001130 0,001210
0,000010 I 0,000820 0, 000410
0,000150 I 0,001230 0,000200
0,000220 I 0,000200 0,0
0,000010 I 0,000110 0,0
0,0 I 0,0 0,000200
0,000020 I 0,000610 0,000200
0,000110 I 0,000200 0,0
0,000220 I 0,000200 0,000110
0,000110 I 0,000610 0,000200
0,000230 I 0,000820 0,000820
0,000210 I 0,001020 0,000110
0,001080 I 0,001020 0,001020
0,000660 I 0,001020 0,000820
0,005780 I 0,011230 I 0,006120
I 1
1
0,0
0,0
0,0
0.0
0,0
0,0
0.0
0,0
0,0
0,0
o.o
0,0
0,0
0.0
0,0
o.o
o.o
5
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0.0
o.o
o.o
0,0
0,0
0,0
0.0
0,0
0,0
6
0,0
0,0
0,0
0,0
0,0
0,0
0.0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
0,0
0,0
SUM I
I
0,002300
0.000810
0,002700
0,001880
0,000120
0,000120
0,000200
0,000830
0.000630
0.000830
0.001250
0,001870
0.001*70
0.001)20
0,002500
0.023110
TOTAL FHEOUENCY OF OCCURRENCE> CLASS 2
0,02111
-------
ITAilLITY GUIS 1
KINOiPEEO CLASS
KIND
Oil,
N
NNt
NE
ENf
C
Elf
If
ISE
•
UN
IM
MIN
K
NNN
N»
NNN
• UN
1
0,000020
0,000200
0,000110
0,000040
0,000260
0,0002*0
0,000010
0,000010
0,000««0
,000220
,000440
,000210
,000290
,000010
,0002*0
,000010
0,002170
2
0,000*10
0,000820
,001070
,001210
,001210
,000110
,000200
,010200
,000*10
.000200
,000*10
,000*10
,001020
,001*10
,001410
,001410
0,014920
1
0,0012*0
0.002090
o.oosno
0.00*7*0
0.000120
0,000200
0,000410
0,000120
0,001410
0,001410
0,004100
0,001070
0,001140
0,001110
0.00*110
0,002*70
I 0, 01*550
•
0,000200
0,000200
0,000200
0,000410
0,000200
0,0
0.0
0,0
0,000*10
0.0
0,000410
0,000200
0.0
0,0
0,000*10
0,000200
0,001040
5
ff
t
fl
fl
f
•
t
1
0,0
*
,0
,0
,0
,0
,0
,
,
,
,
•
,
0,0
lux
,004110
,001110
,00*TIO
,1014*0
.002910
,0011*0
,000*20
,001010
,00*««0
,001*50
,009»»0
,001410
,0051*0
,oo**io
,00**|0
.004MO
t 0,0*4110
TOTAL FKIQUINCY OF OCCURRENCE, CLASS J » 0.0*41*
CLASS «
NINO
OIR,
N
NNE
Nt
ENE
E*E
St
S*l
•
ISM
SN
N*N
H
HNN
N»
NNN
IU«
1
0.000119
0,000110
0,000225
0,0001*0
0,000*50
0,000120
0,000120
0,000220
0.0002*0
0,000*25
0,000110
0,000110
0,000010
0,000115
0,000210
0,000010
0,002*70
NINO
2
0,001125
0.002255
0.001*40
0,0012*0
0.001415
0,001110
0,001419
0,001129
0,001179
0,001129
0,001949
0,000*20
0,005115
0,001129
0,000109
0,000719
0,02*010
IFEEC CLAIS
1 I «
I
0,009120 I 0,012705
0,00*7*0 I 0,007410
0,001195 I 0,00*195
0,009125 I 0.001609
0,00*195 I 0,00*610
0,004200 I 0,001915
0. 005*40 I 0.0016*0
0,001995 I 0.001945
0,011*20 1 0, 01(005
0,006250 I 0.005129
0,00*530 ; 0.007615
0,007070 I 0.009019
J.OCtoa:, i 0,022110
0,006169 I 0.02*900
0,004715 I 0,019169
0.004920 I O.OS5MO
0.11*445 I 0,1*1*20
5
0,001415
0,000410
0.002150
0,004200
0.000*15
0,000105
0,000105
0,000*20
0,001121
0,000*10
0,000510
0,000*20
0,004*05
0.00*0*5
0,00*1*5
0,0015(5
0,01*005
*
0,000205
0.0
0,000615
0,001515
0,
0,
0,
0.
0,
0,
0
0,000205
0,000*10
0,001125
0,0029*0
0,00*105
0,00*9*0
SUN
0,024705
0,017015
,021020
,0270*5
,017155
,007*90
,0091*0
,001105
,0107*5
,011115
,020000
,01*0*0
.01*125
,040175
,014020
.021*19
0,1*1009
TOTAL FREQUENCY OF OCCURRENCE, CUM « •
STABILITY CL»S1 9
•JNP1PEEO CLAII
I HIND
I DIR,
I N
I NNI
I NC
i CNE
I E
I ESI
I II
i *«
I a
I SIN
I S«
I *3»
I X
I HMD
I NH
I NNH
I SUN
l t
0,000111 0,001115
0(000110 0,002255
0,000229 0.001*40
0,000140 0,001210
(1,000190 0,00148!)
0,009120 0,001110
0,000120 0,001415
0,000220 0,001129
,0002*0 0.001179
,000(29 0,001129
,000110 0,001*45
,000110 0,000120
,000010 0,001125
.000119 0.001129
0.000210 0,000109
0,000110 0,000719
0,002970 0,02*010
I
0,00*120
0,00*7*0
0,00*145
0.004129
0,00*145
0, 00«200
o,oos«40
0.001995
0,011420
0,00*110
0,00*930
0,007070
0,00*0(9
0,00*14!
0,00*719
0.00««20
0,ll««4f
•
0,012709
0,007*10
0,001149
0,001*09
O.OOtklO
0, 001*15
,001*«0
,0014*9
,011105
,005111
,007*15
,014015
.022110
,02*900
.019)*!
,115110
t 0,1*1*20
'
,001(15
,000(10
,002150
.00(200
,000*15
,000101
,000105
,000120
,001125
.000(10
,000510
,100120
,004405
,00*0*5
,00*1*5
,0015*5
1 0,014001
A
.100205
,0
,000*15
,001515
.0
.0
,0
,0
,0
.0
,0
,000205
.000*10
,001111
, 0025*0
,000111
I 0,00*9*0
IUM
,*t«m
,017015
,021020
,027015
,0171i5
,007*90
,0041*0
,00*105
,0107*5
.011115
.010000
,011010
,01*111
.0*0175
,01*020
,011*11
I 0,1*1009 I
TOTAL FRE8UINCY OF OCCURRENCE, ClAII J • 0,1(101
-------
STABILITY CLASS 6
HIND i i
DIR, i
N I 0,000340
NNE I 0,0011*0
HI I 0,000560
CNE I 0,000750
(, I 0,001200
E8C I 0.001310
3E I 0.000870
SSE I 0,000480
3 I 0.003160
S3* I 0.002010
SM I 0.000940
NSN I 0.002180
I * I 0.000290
I «N« I 0,001170
I NH I 0.000250
I NNN l 0,000250
I SUM I 0,0165*0
HINDI
2
0,007170
0,007*90
0,007790
0.006560
0,008200
0.002670
0,001050
0,0034(0
0,012910
0,007»*0
0,0077*0
0,005110
0,004300
0,006970
0,002460
0,002250
0,095900
FEED CLASS
3
0,006610
0,00*020
0,006*70
0,001430
0,002660
0,000(20
0,001640
0,001210
0,004100
0,004300
0,007*90
0,007160
0,01)070
0,015980
0,007790
0,007360
0,098770
*
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0.0
0,0
0,0
0,0
0,0
0,0
1 0.0
0,0
5
o.o
0,0
0,0
0,0
0.0
o.o
0.0
0,0
o.o
0.0
0.0
0,0
0.0
o.o
0.0
0,0
o.o
6
0,0
0.0
0,0
0,0
0,0
0,0
0,0
o.o
0.0
0,0
0,0
0,0
0,0
0,0
0,0
I 0.0
I 0,0
SUN
0,016120
0,01(200
0,015120
0,00(740
0,012060
0,005000
,004560
,0051*0
,020370
,014320
,016140
,014660
0.01S660
0,024120
0,010500
0,00*860
0,211260
TOTAL FREQUENCY Of OCCURRENCE, CUSS 6 • 0.21126
TOTAL FREQUENCY OF OCCURRENCE. CLA93E8 1 TO 6 • 0,9997*
STATION NO, X Y
1 10,00 12,75
TOTAL FREQUENCY OF OCCURRENCE, CLASS t * 0,0
IDENTIFICATION
NtHAHK
STABILITY CLASS 2
HIND3PEED CLASS
I HIND
I DIR,
I N
1 NNE
I NE
I INE
I E
1 ESE
I at
i SSE
I s
I S3*
I s»
1 «SN
I *
I INK
I NH
I NNH
1 3UH
1 I 2
I
0,000180 I 0,000070
0,000260 I 0,000100
0,000)10 I 0,000120
0.000)90 I 0,000150
0,000470 I 0,000180
0,000190 I 0,000150
0,000)80 I 0,000150
0,000170 I 0,000140
0,000)70 I 0,000150
0,000510 I 0.000200
0,000520 I 0.000200
0,000220 t 0,000090
0,000210 I 0,000090
0,000220 I 0,000090
0,000200 I 0,000060
0,000230 1 0,000090
0,005230 I 0,002090
S
0,000130
0,000180
0.000170
0,000210
0.000260
0,000120
0,000200
0.000280
0,000210
0,000300
0,000)00
0,000240
0,000150
0.000180
0.000140
0,000160
O.OOUSO
4
0.000200
0.000290
0.000210
0,000120
0.000340
0,0004*0
0,000160
0,000410
0,000290
0,000410
0,000390
0, 000410
0,000220
0,0002*0
0,000200
0,000140
0,001010
5
0,900200
0.0002*0
0,0002)0
0,000320
0,000140
0,000490
0,000260
0.000420
0,000290
0,000410
0,0003*0
0,000420
0,000220
0,0002*0
0.000200
0,000240
0,005010
6
0.000590
0,000980
0,000890
0,001010
0,000810
0,001670
0,000990
0.001570
0,0008*0
0,001180
0,001470
0.001530
0,001140
0,001470
0, 000«IO
0,000940
0,018110
SUM 1
I
0,001370
0,002100
0,001950
0,002440
0,002400
0,003510
0,002240
0,003200
0,002200
0,003210
0,003270
0.002920
0,002050
0,002540
0,001800
0,001900
0,039100
TOTAL FREQUENCY OF OCCURRENCE, CLASS 2 >
0,03910
-------
IUIUITV CLASS ]
MiNO»«eo CLAII
I HIND
I OIR,
I N
1 NNI
N£
(NI
(
Elt
IE
ISE
*
SIM
IN
HI*
M
HNH
I NO
1 NNH
I »UH
I
t
,0000*0
.0002*0
,000170
,000120
.000110
,000170
,000120
,0002*0
,000100
,0001110
,000110
, oooito
,000200
,000150
,00010(1
,0000*0
1,0051)0
2
0.0002*0
0,000170
e, oootio
o, ooouo
0,000170
0, OOOITO
0,000210
0,00««20
0,000800
0,000*60
0,000*00
0.000*10
0,000150
0,000190
0,000240
0,0002*0
I 0,00*910
)
o,eco«*o
0,001010
0,000*00
0,000170
0,000550
0,000410
0,000*00
0,00*»«0
0,000*00
0,001110
0,001650
0,001200
0,0001*0
0,0004*0
0,000*10
0.000*10
I 0,011400
«
0,000100
o,oou«o
0,001200
0,000010
0,000*20
o.oomo
0.000*00
o,oou«o
0,000770
0,001*10
0.002)10
0,002)10
0,001*10
0,0020)0
0,001*20
0,001120
I 0,021*70
1
0,000*10
0,001110
0,001110
0,000*10
0,000*80
0,001*00
0,0011*0
0,002020
0,000120
0,001770
0,102)10
0,002*00
0,001*10
0,002**0
0.001710
0,001100
0,02*110
t
0,0000*0
0,0015*0
0,001020
0,000*10
0.0001)0
0,001(70
0,001110
0,002100
0,000700
0,0017)0
0,002**0
0,00)000
0,0022*0
0,00)120
0.002*10
0,001*20
I 0,027710
IUH
0,001*00
0,00*070
0.0010*0
0.001700
o.ooioio
0,00*010
0,004200
0.007110
0,00)190
0.007240
0,010*20
0,010010
0,00**10
0,000040
0,00*1)0
0,0011*0
0.0*»*»0
TOTAL PRESIDENCY OF OCCURRENCE, CLAII 1 •
0,0*>kl
ITAIILITY CLASS •
H1NDOFEED CH1S
HIND
DIR,
N
NNC
NE
ENt
E
EIE
IE
SSE
•
ISM
SH
HSM
M
HNM
MM
NNH
I SUM
l
,0010)0
,002**!
,00270!
,001*2!
.00)0*1
,002170
,001215
,001**!
oloOUT)
0,001*20
0,00212!
0,001110
0,0012*5
0,000860
0,000110
0,0127*0
2
0.002*00
0.007120
0.00*11!
0.001S25
0.0011)5
0.00*1*0
0,002070
0,00)975
0,00)1*5
0,00*7*5
0.00*«20
0.00*715
0,0016*0
0^002775
0,0*1170
3
0,00««10
O.OIUHO
O.OOIXO
0,00*990
0,0012*1
0,00*130
0,00227!
0,00*12!
0,001)60
0,00*97)
0,007*50
0,00*750
0,007120
G.OOSkSC
0,112)90
a
0,00)000
0.00*«20
0,00*)50
0,001010
0,001175
0,001*10
0,000885
0,0011*0
0,001120
0,00***!
0.00121k
0,001*15
0,00101!
6.0112*0
i, cm;.
0,001*10
0,071000
5
0,0001*1
0,000*10
0,0001*0
0,000*90
0.000170
0.000210
0,00001!
0,000175
0,000171
0,000710
0,000*1!
0,000*0!
0,000720
0.001110
0,002111
0,00121!
0,0101*0
*
0.0001)1
0, 000*90
0,000490
0,000)*!
0,000110
0.00020!
0,00010!
0.000220
0,0001*1
0,0001*5
0,000*1!
0,000*00
0,000510
0,0011)1
0.001221
0,0000*0
0,0078*5
SUM
0.0121*0
0.02*!*!
0.0221*0
0,01*21!
0,011*90
0.01)11!
0,00**li
0,0127)0
0,0107*0
0,01*905
0,02240!
0,010210
0,011771
0.012020
0,029*10
0,021710
0,10122*
TOTAL FReautNcr OF OCCURRENCE! CLASS a • O.J0522
STAIJLITT CLASS 5
NINDMEEO CLASS
KINO
OIR,
N
NNE
NE
ENE
E
EIC
IE
SIE
I
SSN
IN
HIM
»
HMD
NM
NNM
SUN
1
0,0010*0
0,00240!
0,002**»
0,001171
0,001021
0,002110
0,0011*1
0,001«*1
0,001*11
0,00)0*1
0,001*10
0,002211
0,001*10
0,001201
0,000110
0,000100
0,011110
2
0,001110
0,007*20
». 00*018
0,001*71
0,00)711
0,000)30
0,0020)0
0,00)901
0,0011*1
0,00*511
0,00*1*0
0,00*111
0,001110
0,0017*1
0, 002*01
0,002711
1 0,0*71*0
1
0,00*710
0,011*10
0,00*170
0.00«*3C
0,0011*1
0,00*220
0,002221
0,00*101
0,001*10
0.001*71
0.0071*0
o,oo»uo
0,007110
0,012171
0,0111*1
o.oonio
0,10*010
«
0,0021*0
0,00*170
0,00*100
0,002*10
o.ooioii
0.001510
0.000011
0,001710
0,001210
o.ooanoi
0,002**!
0,001*1!
0,00*111
0,0110*0
0,010**(
0,00*2(0
I 0,0*11*0
1
0,0002*1
0,000*20
0,0001*0
0,000400
0,0000*0
0,000100
0,000021
0,0000*1
0,000075
0,000120
0,00017!
0,000221
0,000110
0.001*10
0,001*7*
0,0010*1
o,oo7*te
*
0,0000*1
0,0000*0
0,000010
0,0000*1
0,000020
0,00002!
0.00000!
0,000010
0,00001!
0,00011!
0,00001!
0,000010
0,001110
0,00011!
: 0,000*1!
I 0,000200
1 0,001*1!
IUM
0,0114*0
0,02*121
0,021*70
0,011*7!
0,011110
0,01271!
0,00*111
0,0120*0
«,OI»I»
0,021)11
0,02*111
0,0l»*»l
0,017*11
0,0)01*0
0,02*200
0,022»*0
0,2*70*1
TOTAL moUENCY OF OCCUHRINCIi CLASS I • 0,2*70*
C-28
-------
STABILITY CLASS
NINDSPEED CLASS
I HIND
I DIR,
I N
1 NNE
I N£
1 ENE
I C
i m
I SE
1 9SE
I 3
I 33M
I SN
I NSN
I *
I NN»
I NN
I NNH
I SUM
1
0,00)0)0
0,001610
0,001610
0.001250
0,001850
0,0010)0
0,000720
0,091250
0,001940
0,OOJ»*0
0,007040
0.001560
0,002610
0,001570
0,001130
0,000400
0,033310
2 I 3
I
0,001500 I 0,00245.0
0,003100 I 0,00)2*0
0,002450 I 0,0017*0
0,001200 I 0, 00)9*0
0.001S60 1 0,00(920
0,001200 I 0,001790
0,000710 I 0,001020
0,001770 I 0,002770
0,002950 I 0,003660
0,006400 I 0,010470
0,010760 I 0,017180
0,006070 I 0,010000
0,001350 I 0,007120
0,002930 I 0,004430
0,001770 I 0,0021*0
0,001120 I 0,002290
0,049610 I 0,074130
4
0,002110
0,004040
0.001760
0,090*70
0,0006*0
0,000710
0,000480
0, 001450
0,001600
0,005140
0,007360
0,004400
0,004*60
0,001760
0,001110
0,00)420
0,046170
5 I *
I
0.002100 I 0,OOU*0
0,003*50 1 0,002010
0,001140 I 0,000*30
0,000370 I O.OOOJOO
0,0002*0 I 0,000140
0,000390 I 0,000210
0.000310 I 0,000170
0,001020 I 0,0005*0
0,001130 I 0,000*20
0,003420 I 0.001W
0,004210 I 0,002120
0,0032*0 I 0.001790
0,003400 I 0,002140
0,004730 I 0,002*00
0,004940 I 0,002500
0,003790 I 0,0020*0
0,036420 I 0,021110
JUM I
I
0,010420 I
0,014*70 I
0,011*00 I
0,005260 I
0,00*340 I
0,005300 I
O.OOJ440 1
0,006120 I
0,011450 I
0,031170 I
0,041940 I
0,024600 I
0,024600 i
0,021540 I
0.01*430 I
0.013400 I
0,270250 I
TOTAL FREQUENCY UF OCCURRENCE. CLASS t> * 0,27025
TOTAL FREQUENCY OF OCCURRENCE. CUSSES 1 TO * » 0,49631
COM VERSION 75104, RUN
10
THE CENTRAL MIND SPEEDS OF THE SIX KIND SPEED CLASSES (U)l
O.liOOOOe 01 0.245872E 01 0.447040E 01 O.»429l2f 01 0,9tlll*e 01 0.12517U 02
THE EXPONENTIAL OF THE VERTICAL *tNO PRUFILE 8Y STABILITY CU33 (UE)I
0.100000E 00 0.150000E 00 0.200000E 00 0.150000E 00 0.250000E 00 0.300000C 00
THE INITIAL SIGMA i FOB AREA SOURCE6 BY STABILITY CLASS !SZA)|
0.300000E 02 0.300000E 02 0.300000E 02 0.300000E 02 0.300000E 02 0.3DOOOOE 02
THE CLIHATOLOSKAL «(AN NOCTURNAL AND AFTERNOON XIXINS HEIGHTS (HHIN,HT)|
0,^00000t 03 0,laOOOCfc 0-4
THE DAY AND NIGHT EMISSION HEIGHT FACTORS (YD,YN)I
O.tOOOOBE 01 0,100000E 01
THE »>MIN AND YiHIN OF THE AREA EMISSION INVENTORY ORID (XO,YG1|
0,0 0.0
THE HIDTH OF A BASIC AREA SOURCE SOUARE (Txx)(
0,200000E 04
THE NUMBER UF SUB-SECTORS CONSIDERED IN A 22,5 DECREE SECTOR, AND ANGULAR HIDTH OP A SUi-SECTOR (DINT.THETA)I
0.400000E 01 0,5*2500E 01
THE INITIAL RADIAL INCREMENT (DELR)I
0,3bOOOOE 03
THE RADIAL INCREMENT FACTORS 03 0.3S3000E-01 0,2068*OE 01 0,20«e60E 01 0.128120C 01
0,49]600E>01 0,493600E-«t 0.139300E 00 0.1M370C 01 O.I11370C 01 0,44*7001 00
O.I15000E 00 O.lOtlOOE 00 0.1UOOOE 00 0,»10»OOI 00 0.4260QOE 00 0.910000E 00
0.736BOOE 00 0.299100E 00 0,8i»OOOE.Ot 0,S*4200E 00 0,*8*900E 00 0.865000E 00
0.129690E 01 0.252700E 00 0,618000E>01 0,44tlOOC 00 0,*3
-------
CON VERSION TltO*. DUN
SOURCE INPUT
X
0,0
0,0
O.IOOOOI 01
0,100001 02
0,100001 01
0,lkOOOf Oi
O.ikOOOE Oi
0,110001 02
O.liOOOE 02
0,110001 oi
o.tioooe 02
0.500001 01
r tx tt
0,220001 01 0,000001 0*
0.0
0,100001 01
O.lbOOOt 01
0,1*0001 oi
0,100001 01
O.ikOOOl 01
O.liOOOf Ot
0.2SOOOE 02
O.SOOOOE 01
0,|5000( 01
0,|5000t 02
.100001 01
,100101 t«
,400001 04
.100001 04
•ooooe o«
400001 04
.moot 02
.IIIOOC 02
.kioooe 02
.klOOOt 02
, ll»*OE 01
.OOOOI 02
.tiooot oi
,«»S7M 04
,««TIOt 0)
.»»T»M 01
o,9t7ioe 01
o.mioe o>
l»
IH
0,100001 01
0,100001 01
O.IIOOOC Ot
0,100001 02
0,210001 02
0,200001 02
0,1(0001 (2
0,200001 01
0,100001 01
O.lOOOOt 11
0,100001 01
0,100001 02
,
,
,
,
I
,
,
,
.
,
0
looooe oi
looooi oi
100001 01
100001 01
looooe oi
(
,
,
,
t
t
,
.
,
,
,
VI
looooe 02
(0001 02
(OOOf 02
IfOOOl 02
00001 02
,
,
,
,
,
,
,
,
,
,1
,
.
T
loooot oi
IOOOOC 01
100001 01
IOOOOC 01
lOOOOt 01
7 AREA SOURCES.
« POINT SOURCES,
AREA
CON VERSION 74114, RUN 10
IMICROGRAHS PER CU81C HETIR)
POINT TOTAL
CAt.IBP.AUD
UKWRVkO
COORDINATES
3,00
',00
IS, 00
21.00
27,00
1,00
9,00
IS, 00
21,00
27,00
3.00
«,00
IS, 00
21,00
27,00
3,00
9,00
IS, 00
21,00
27,00
3,00
9,00
IS, 00
21,00
27,00
1,10
1,00
3,00
3,00
1,00
«,00
9,00
9,00
9,00
9,00
IS, 00
IS, 00
IS, 00
IS, 00
IS, 00
21,00
21,00
21,00
21,00
21,00
27,00
27,00
27,00
27.00
27.00
PI P 2 PI P 2 PI
10, 0,
k, 0,
1, 0,
1, o.
2. ;.
*. o,
11, 0,
12, 0,
8, 0,
2, 0,
loj o.
14S, 0,
12, 0.
t. o.
1, 0,
6, 0,
12, />,
*' o'
ft Of
». 0.
», o.
1. »t
2, o, b
0, U,
0, U,
0, S,
0. S,
0, 9,
0. S,
0, IS.
0. Ik,
0. 14.
0, S.
0. S,
0. 14,
0, 1««,
0, IB,
0, 1,
0, 7,
0, >,
0. Ik,
0, U.
0, t.
0, 11,
0, 7,
0. 7,
0, 7,
0, 9,
P 2
0,
0,
0,
0,
0.
0,
0.
0.
0.
0.
0,
0,
0,
0.
0,
0.
0,
0.
0,
0,
0,
0,
0,
0.
0.
P 1
14 ,
11.
o.
s,
9,
s,
is.
Ifcf
1".
8,
s.
1".
isl
7,'
8,
Ik,
U,
s.
11,
7.
1,
1,
*«
P 2 P P 2
0. 0
0, 0
0. 0
0, 0
0. 0
0, 0
0, 0 0
0, 0 0
g, o o
0, 0 0
0.
0,
0,
0,
0,
0,
0.
0,
0,
o,
0,
o,
0,
0,
0,
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
END
PRUCHAH,
-------
TECHNICAL REPORT DATA
(Please read Instructions on the reverse before completing)
1. REPORT NO.
21ADO-36
3. RECIPIENT'S ACCESSIOI»NO.
4. TITLE AND SUBTITLE
Adaptation of Gaussian Plume Model to Incorporate
Multiple Station Data Input, Volume II
5. REPORT DATE
June 1975
6. PERFORMING ORGANIZATION CODE
7. AUTHOR(S)
Harvey S. Rosenblum, Bruce A. Egan, Michael J. Keefe,
Claire S. Ingersoll
8. PERFORMING ORGANIZATION REPORT NO.
ERT P-1121
9. PERFORMING ORGANIZATION NAME AND ADDRESS
Environmental Research § Technology, Inc.
696 Virginia Road
Concord, Massachusetts 01742
10. PROGRAM ELEMENT NO.
1AA009
11. CONTRACT/GRANT NO.
EPA-68-02-1753
12. SPONSORING AGENCY NAME AND ADDRESS
United States Environmental Protection Agency
Office of Research § Development
Washington, D. C. 20460
13. TYPE OF REPORT AND PERIOD COVERED
Final Report
14. SPONSORING AGENCY CODE
15. SUPPLEMENTARY NOTES
16. ABSTRACT
EPA urban dispersion models were modified to consider multiple
station information on wind speed and direction. Three models were modified:
the Real-Time Air-Quality-Simulation Model (RAM) and the Sampled-Chronological
Input Model (SCIM), both short-term averaging models, and the Climatological
Dispersion Model (COM), a long term averaging model. Relatively straight
forward modifications, which are useful and practical approximations have
been made. The modifications had two basic objectives: the first, to
develop techniques for describing wind conditions at any point within a
region in which arbitrarily-located observing points exist; and second, to
identify critical points in the dispersion algorithms at which the additional
multiple-station wind data could be incorporated and to modify these computation
routines accordingly. The modifications were compared among themselves on the
basis of accuracy, computational efficiency and ease of use. Although no
observational data was available to verify the various approaches, the results
of applications to hypothetical meteorological situations indicate that more
realistic results can be obtained by the incorporation of multiple-station
data.
KEY WORDS AND DOCUMENT ANALYSIS
DESCRIPTORS
b.IDENTIFIERS/OPEN ENDED TERMS C. COS AT I Field/Group
8. DISTRIBUTION STATEMENT
19. SECURITY CLASS (ThisReport)
21. NO. OF PAGES
20. SECURITY CLASS (Thispage)
22. PRICE
EPA Form 2220-1 (9-73)
------- |