EPA-600/4-75-005-b
May 1975
Environmental Monitoring Series
DEVELOPMENT
OF AN URBAN
AIR QUALITY SIMULATION MODEL
WITH COMPATIBLE RAPS DATA
VOLUME II
33
V
UJ
U.S. Environmental Protection Agency
Office of Research and Development
DH. D. C. 20460
-------
EPA-600/4-75-005-b
DEVELOPMENT
OF AN URBAN
AIR QUALITY SIMULATION MODEL
WITH COMPATIBLE RAPS DATA
VOLUME
by
C.C. Shir and LJ. Shieh
IBM Research Laboratory
San Jose, California 95193
Contract No. 68-02-1833
ROAP No. 26AAI23
Program Element No. 1AA003
EPA Project Officer: Robert E. Eskridge
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
May 1975
-------
EPA REVIEW NOTICE
This reporl has been reviewed by the National Environmental Research
Center Rest-arch Triangle Park, Olfice of Research and Development,
ETA, and approved lor publication. Approval does not signify tb "it the:
(.onlents 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 technclogy 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 ENVIRONMENTAL MONITORING
series. This series describes research conducted to develop new or
improved methods and instrumentation for the identification and quanti-
fication of environmental pollutants at the lowest conceivably significant
concentrations. It also includes studies to determine the ambient concen-
trations of pollutants in the environment and/or the variance of pollutants
as a function of time or meteorological factors.
This document is available to the public for sale through the National
Technical Information Service, Springfield, Virginia 22161.
Publication No. EPA-600/4-75-005-b
-------
DEVELOPMENT OF URBAN AIH QUALITY SIMULATION
MODEL WITH COMPATIBLE PAPS DATA
by
C. C. Shir and L. J. Shieh
IBM Reseach Laboratory, San Jose, California 95193
IBM Scientific Center, Palo Alto, California 9430
-------
Table of Contents
PAGE NO.
1. Main Program Listing 2-82
2. Auxiliary Program Listing 83-129
3. Input Data Listing 130-137
4. Output Samples 138-152
5. Report of IBMAQ-1 153-173
6. Finite Difference Scheme for the Horizontal
Advection Terms of the Concentration Equation. 174-180
-------
APPENDIX
1. Main Program Listing
1. IBMAQ-2 (MAIN)
2. AACOMP
3. AKZCAL
4. CADJUS
5. CHEMIC
6. CONSIN
7. DIMENS
8. DTTEST
9. GEOIN
10. OUTAPE
11. POSITV
12. PRINTS
13. SHIFTN
14. SOURCE
15. SOUSIN
16. STABIT
17. STNCON
18. TIMEX
19. UVFLUX
20. UVINTP
21. UVZF
22. WINDER
23. WINDGR
24. WINDIN
25. WRITES
26. WWFLUX
27. WWZF
28. XYDIFF
29. XYUTMS
30. ZZDIFF
31. ZZGRID
-------
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
DATE 75.120/09.05.
COMPILER OPTIONS - NAME* MAIN,OPT«02,LINECNT=60,SIZE-OOOOK,
SOURCE,EBCDIC,NOLIST.DECK.LOAD,NOMAP.NOEDIT,NOTD.NOXREF
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
A************************
*** PROGRAM IBMAQ-2 ***
*************************
.... THIS PROGRAM COMPUTES 3-D CONCENTRATION DISTRIBUTION IN ST. LOUIS
.... AREA. REGION IS (40KM X 60KM X HH) IN (30,40,14) GRIDS.
.... THERE ARE 1200 AREA SOURCES AND 150 POINT SOURCES.
.... GRADIENT TYPE CONCENTRATION EQUATION IS USED IN THIS MODEL.
THE PROGRAM IS AN EXPERIMENTAL PROGRAM. IT IS FOR RESEARCH
PURPOSE ONLY.
THE MODEL IS DISCUSSED IN IBM RESEARCH REPORT RJ1227,
•A GENERALIZED URBAN AIR POLLUTION MODEL AND ITS APPLICATION
TO THE STUDY OF S02 DISTRIBUTION IN ST. LOUIS METROPOLITAN AREA1,
BY SHIR AND SHIEH, 1973.
********************************************
*** SUBROUTINES INCLUDED IN THIS PROGRAM ***
********************************************
NAME CALLED FROM FUNCTIONS
AACOMP MAIN COMPUTE THE CONCENTRATION FIELDS
AKZCAL MAIN COMPUTE EDDY DIFFUSIVITY
CADJUS MAIN ADJUST C VALUES DUE TO CHANGE IN GRID DIMEN
CCHECK AACOMP CHECK FOR STEADY STATE CONDITION
CHEMIC AACOMP COMPUTE CHEMICAL DECAY
CONSIN MAIN SPECIFY MODEL PARAMETERS
*CDTOTP MAIN PRINT CARD IMAGE OF NAMELIST INPUT
DIMENS MAIN INITIALIZE GRID SYSTEM
*DIMEN1 MAIN SET VERTICAL GRID SYSTEM
*HHCALC MAIN COMPUTE TIME VARYING MIXING HEIGHT
DTTEST MAIN TIME STEP FOR NUMERICAL METHOD
GEOIN MAIN INPUT GEOGRAPH. AND ANNUAL EMISSION DATA
OUTAPE MAIN OUTPUT RESULTS TO TAPE OR DISK
POSITV (NOT USED) SET C=0 IF IT IS LESS THAN ZERO
PRINTS MAIN PRINT GEOGRAPH. AND ANNUAL ^MISSION DATA
*PRINTA MAIN PRINT TIME VARYING EMISSION RATES
*PRINTB MAIN PRINT TIME VARYING METEOROLOGICAL DATA
*PRINTC MAIN PRINT CONCENTRATION FIELDS
SHIFTN MAIN, AACOMP SHIFT ARRAY A TO ARRAY B
SOURCE AACOMP ADD NEW SOURCE EMISSION INTO THE SYSTEM
SOUSIN MAIN INPUT TIME VARYING SOURCE EMISSION RATE
STABIT WINDIN ESTIMATE CONTINUOUS STABILITY CLASSES
STNCON PRINTC COMPUTE CONC. VALUES AT RAMS STATIONS
TIMEX MAIN FIX TIME INDICES
UVZF WINDIN COMPUTE VERTICAL HIND PROFILE OF (U,V)
UVFLUX AACOMP COMPUTE HORIZONTAL ADVECTION
UVINTP HINDIN, WINDGR INTERPOLATE ANALYZED U,V TO NUMERICAL GRID
WWZF WINDIN COMPUTE H COMONENT OF WIND
WINDER WINDGR, UVZF CONVERT HIND VECTOR TO COMP. OR VICE VERSA
WINDGR WINDIN GENERATE SFC. HIND FIELD FROM RAMS DATA
WINDIN MAIN READ IN SURFACE WIND FIELD AND RAMS DATA
WRITES PRINTS PRINT DATA ARRAY
*WRITEX PRINTS PRINT HORIZONTAL FIELD OF ARRAY
*WRITEZ PRINTC PRINT VERTICAL CROSS-SECTION OF ARRAY
0000001n
00,00002"
00000030
00000040
0000005"
00000060
00000070
OOOOOOflO
00000090
OOOOOloo
00000110
00000120
0^00013"
00000140
00000150
0000016C
000001^0
OOOOOieo
00000190
00000200
00000 21 n
f\f\f\nr\'t^f\
— "JUu UU £.£. '.'
0000023C
00000240
.00000250
00000260
00000270
00000280
00000290
00000300
00000310
0000032P
00000330
0009034.0
00000350
00000360
OOP0037T
00000380
00000390
00000400
00000410
0000042"
00000430
00000440
OOOOO45O
00000460
00000470
00000480
00000490
opoonspo
00000510
00000520
00000530
00000540
00000550
00000560
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
WWFLUX AACOMP COMPUTE VERTICAL ADVECTION
XYDIFF MAIN COMPUTE HORIZONTAL DIFFUSION
XYUTMS GEOIN COMPUTE UTM COORDINATE OF NEMERICAL GRID
*XYUTMl GEOIN, SOURCE CONVERT (X,Y) FROM UTM T0 NUMERICAL GRID
ZZDIFF AACOMP COMPUTE VERTICAL DIFFUSION
ZZGRID SOURCE CONVERT Z FROM METER TO NUMERICAL GRID UNIT
(NOTE: * DENOTE ENTRY POINT TO LAST STATED SUBROUTINE)
*****#*****#*********#*****
*** TABLE FOR i/o UNITS ***
» 4******* 44 444**** 4** *44***
UNIT * DSNAME *I/0* ROUTINE * VARIABLES
IUNIT I MAIN 'NAMELIST' ( IUN I T=I UNIT2 )
IUNIT1 I CDTOTP [UNIT FOR CARD READER)
IUNIT2 I/O CDTOTP (SCRATCH STORAGE UNIT)
JUNIT 0 (ALL) (UNIT FOR LINE PRINTER)
JUNIT1 0 CDTOTP (UNIT FOR LINE PRINTER)
KUNITG EPAGE02 I GEOIN XRAMS, ZS , ZO ,QB,PQB ,
KUNITS S02SOUS1 I SOUSIN KHR, KMO, KDAY, KYR, QE i PQB ,
KUNITW WINDDATA I WINDIN KYR ,KMO, KDAYt KHR, Ul , VI , RAMS
KUNITW WINDDATB I WINDIN KYR , KMO, KDAY, KHR, UU.VV , RAMS
KUNITW EPARAMS I WINDIN KYR, KMO, KDAY , KHR, RAMS
KUNITC EPASTN01 0 OUTAPE I YR, I MO, I DAY, IHR.PARM , I CAL , IOBS
KUNITP EPACONC1 0 OUTAPE IYR, IMO, I DAY, IHR, PARM , CC ,
ICAL.IOBS
* 4* 44 * 44* 4*4** 4*44*4 ********4*44 *****************
*** COMMENTS ON VARIABLES USE IN THIS PROGRAM ***
4*4 ** 44** ****** 44 4 44 4*4**** ******************** ft*
.... C .... C .... C .... C
.. APPEAR IN DIMENSION .. C
.... C .... C .... C .... C
CP1.C = NEW AND OLD CONCENTRATION FIELD (UG/M3)
U,V,W = WIND COMPONENT IN X,Y,Z DIRECTIONS (M/SEC)
COLD OLD SURFACE C FOR CHECKING CONVERGENCE
CC = (HOURLY) AVERAGE SURFACE CONCENTRATION
Cl = NEW SURFACE CONCENTRATION
U1,V1 SURFACE WIND COMPONENTS IN X,Y DIRECTIONS
QA,OB = NEW, OLD AREA SOURCE EMISSION RATE (G/SEC/KM2)
(CURRENT — ONLY QB IS USED)
ZS = AREA SOURCE HEIGHT (M)
ZO = SURFACE ROUGHNESS (M)
AKZ = VERTICAL EDDY DIFFUSIVITY (M2/SEC)
UU,VV SURFACE WIND FIELD ON WIND GRID POINTS
NEAR NEAREST RAMS STATION TO WIND GRID (IN,JN)
DX.DY.DZ NON-UNIFORM GRID SIZE IN X,Y,Z DIRECTION (M)
(DXS.DYS.DZS) SQUARE OF (DX.DY.DZ)
(RDX.RDY.RDZ) ( DX ( I ) /DX ( 1-1 ) , DY( J ) /DY( J-l ) , DZ (K ) /DZ (K-l ) )
Z HEIGHT OF GRID POINT FROM SURFACE (M)
ZM HEIGHT OF POINT IN THE MIDDLE OF GRID (M)
AKH HORIZONTAL EDDY DIFFUSIVITY (M2/SEC)
AKF FUNCTION DETERMINES VERTICAL VARIATION OF AKZ
00000570
00000580
ooroo 590
00000600
00000610
OOOOOfc?"
000 0063 0
00000640
OC000650
00000660
0000067^
00000680
00000690
OOOOO700
OOOOO"7! 0
00000720
00000730
00000740
0000^750
00000760
00000770
00000790
00000790
00000800
OOOOOP10
00000820
OOOOO830
00000840
f\r\r\ An R *s n
J (J U U U O ~ 1,1
00000860
00000870
00000880
OO00089O
00000900
0000091?
OOOOnq^o
00000930
0000094-0
00000950
00000960
O000097n
00000980
00000990
OOooiooo
00001010
00001020
00001030
00001040
00001050
OOOOlOf C
00001070
ooooioso
00001090
00001100
00001110
00001120
00001130
OOC01140
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c ..
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
UZFtVZF.WZF = FUNCTION DETERMINES VERTICAL VARIATION OF U,V,W
NP = POINT SOURCE IDENTIFICATION NUMBER
XP.YP.ZP = X,Y,Z COORDINATE OF POINT SOURCE
ZR » NORMALIZED PLUME RISE (M*(M/SEC)**.75)
ZPR = EFFECTIVE STACK HEIGHT OF POINT SOURCES (M)
PQA.PQB = NEW, OLD POINT SOURCE EMISSION RATE (G/SEC)
(CURRENT— ONLY PUB IS USED)
EKtFK = TEMPORARY STORAGE ARRAY
USTNtVSTN = U,V COMPONENTS AT RAMS STATION
IS,XS,YS - NUMBER AND X,Y LOCATION OF RAMS STATIONS
(JXS.JYS) - (XS.YS) ON GRID UNIT
ICAL.IOBS = (HOURLY) CAL. AND OBS. C AT RAMS STATION (UG/M3)
(ICAL(NSX),IOBS(NSX) » SPATIAL AVEPAGE)
KCAL.KOBS = 24 HOURS AVERAGE OF ICAL, IOBS
ITOBS = NUMBER OF OBS. DATA AT STATION FOR 24 HR. PERIOD
IUTM.JUTM = UTM COORDINATE OF NUMERICAL GRID POINTS
XPUTM.YPUTM - UTM COORDINATES OF POINT SOURCE
XSUTM.YSUTM - UTM COORDINATES OF RAMS STATION
AKA = CHEMICAL REACTION RATE CONSTANT (/SEC)
NMONDY «= NUMBER OF DAYS IN A MONTH
p. C . . . . C .... C ... C
APPEAR IN NAMELIST .. C
.. C .... C .... C ... C
IM.JM.KM - 3-D DIMENSION IN X,Y,Z DIRECTION
TM.ITM - SIMULATED TIME IN SECOND
DT = TIME STEP (SEC)
IN,JN - DIMENSION IN XiY DIRECTION OF WIND GRID
KN = NUMBER OF LEVELS THAT HIND FIELD WILL BE COMPUTED
KNN = NUMBER OF FIXED SRID INTERVAL IN VERTICAL DIRECTION
LM = TOTAL NUMBER OF POINT SOURCES
NS » TOTAL NUMBER OF RAMS STATIONS
IMC.JMC = THE CROSS SECTION TO PRINT VERTICAL C DISTRIBUTION
HS = AVERAGED EFFECTIVE HEIGHT OF SURFACE WIND
HP = HEIGHT OF UPPER HIND MEASUREMENT
HG = THICKNESS OF PLANETARY BOUNDARY LAYER
HMIN,HMAX = MIN. AND MAX. MIXING HEIGHT OF A DAY
ZRPQ - RATIO OF PLUME RISE TO SOURCE EMISSION RATE
ZRISE - PARAMETER FOR ADJUSTING PLUME RISE
PMAX,PMIN - MAX. AND MIN. FOR POWER LAW CONSTANT OF WIND PROFILE
DCMIN -• CRITERIA FOR CONVERGENCE OF STEADY STATE
OLMIN - MIN. LIMIT OF QBUKHOV-MONIN LENGTH
IHR,IDAY,IMO,IYR - REAL TIME OF HOUR, DAY, MONTH t YEAR
LTSTOP - MAX. NUMBER Of HOURS TO BE SIMULATED IN A RUN
LTSOUS « TIME INTERVAL FOR INPUT SOURCE DATA (SECONDS)
LTWIND - TIME INTERVAL FOR INPUT WIND t METEOR DATA (SECONDS)
IDAYTP, IHRTP « STARTING DAY AND HOUR THAT DATA STORED ON
I/O UNIT = KUNITP 6 KUNITC
JUNIT - OUTPUT UNIT FOR LINE PRINTER
KUNITG = INPUT UNIT FOR GEOGRAPHICAL 6 NEDS DATA
KUNITS » INPUT UNIT FOR HOURLY SOURCES EMISSION RATE
KUNITW - INPUT UNIT FOR UBJ. WIND 6 RAMS DATA
KUNITW = INPUT UNIT FOR SUBJ. WIND (UU.VV) £ RAMS DATA
KUNITW - INPUT UNIT FOR RAMS DATA
KUNITC = I/O UNIT FOR COUP. S02 CONC AT STATION
KUNITP » I/O UNIT FOR COMPUTED SURFACE CONC. FOR A TAPE
LCRUN = FLAG TO DECIDE DEBUG RUN OR ACTUAL RUN
00001150
00001160
OPO"117"
00001180
00001190
000012^0
00001210
0000122"
00001230
00001240
0"PP125"
00001260
000012^0
0000128"
00001290
00001300
C0001310
00001320
r>npr\i33^
OOOC134"
00001350
0000136"
00001370
00001380
000"1390
00001400
"OP"141"
00001420
00001430
000"! 44"
00001450
00001460
00001470
00001480
"0001490
00001500
00001510
""0"1520
00001530
0000154"
00001550
00001560
000^157"
OOC01580
00001590
0^00160"
00001610
00001620
00001630
00001640
"00"165"
00001660
00001670
000"168"
00001690
00001700
00001710
00001720
-------
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
r
\J
c
c
c
c
c
c
c
c
c
c
c
LHJUS
LCHEM
LWW
LTOP
LWTDP
LSOUS
LPQ
LWIND
KWIND
Z"MEAN
LWRITE(N)
ROUTINE
PRINTS
PRINTA
PRINTB
PRINTC
OUTAPE
... C .... C ..
FLAG FOR ADJUSTING C VALUE DUE TO GRID CHANGED
FLAG TO DECIDE THE CHEMICAL REACTION COMPUTATION
FLAG FOR COMPUTING VERTICAL WIND ADVECTION
FLAG FOR CHOICE OF UPPER BOUNDARY CONDITION-DIFFUSION
FLAG FOR CHOICE OF UPPER BOUNDARY CONDIT ION-ADVECTI ON
FLAG USED IN ADDING NEW SOURCE INTO SYSTEM
FLAG FOR CHOICE OF MODELING POINT SOURCE
FLAG FOR COMPUTING UPPER LAYER WIND FIELD
FLAG FOR CHOICE OF OBJECTIVE OR SUBJECTIVE
ANALYZED WIND FIELD
VALUE THAT UNIFORM SFC ROUGHNESS T0 BE USED
CONTROL FLAG FOR OUTPUT.
N COND. VARIABLES TO BE OUTPUT
1 .GE. 1 IS, XSUTM,YSUTM,XS,YS, JXS, JYS(L) tL = l tNS
ZD( I ,J),ZS(I ,J> ,QB(I, J) ,QBTOT,QBSUM
NP,XPUTM.YPUTM,PQB,XP,YP,ZP,ZR
+ WZF(K), ( IF LWW=1)
5 .GE. 1 AKF(K)
2 AKZl I, J), FOR J=JM/2
3 AKZ(I.J)
6 .GE. 1 PARM(L),DT
2 UO,PHIFHZ,HFZ,RIB
7 2,4 CPHJXS.JYST
.GE. 1 CPKIMC, J,K),CP1(I,JMC,K)
.GE. 3 CPldiJ.l)
CPUItJtK), (IF IHR=0)
8 .GE. 1 ICAL(L) , IOBSIL)
+ KCAL(L),KOBS(L) , (IF IHR=0)
2 CC( I , J)
9 .GE. 1 IYR,IMO,IDAY,IHR,PARM(M) ,ICAL(L) ,IOBS(L)
— ON I/O UNTT=KUNITC
10 .GE. 1 IYR , IMO.IDAY, IHR.PARMIM) ,CC( I, J) , ICALIL ),
£ IDBS(L) — ON I/O UNIT=KUNITP
.. C ... C
... APPEAR IN COMMON .. C
* • • C •••• C ••
IM1.JM1.KM1
ITM.TM
ITSEC.TSEC
1TOTHR
ITMHR
ITSTEP
.. C ... C
IM.JM.KM MINUS ONE
= SIMULATED TIME IN SECONDS
= TIME IN SECONDS STARTING FROM EACH 1 HP INTERVAL
TOTAL REAL TIME BEING SIMULATED IN HOURS
= SIMULATED TIME IN HOUR I = ITM/3600*3600 )
NUMBER OF TIME STEPS
00001730
OOOOl^O
00001750
00001^60
opooi77i
00001780
00001790
OOOO1800
00001R10
00001820
00001830
00001840
0000185^
• nno m P f\ c\
U I U U 1. O O (,'
00001870
00001580
00001890
00001°o-*
00001910
00001920
0000193^
00001940
00001950
0000196"
00001°70
0000198"
00001990
00002000
r T>r)2Oli
00002020
?00020?0
00002040
00002050
00002060
000020^0
00002080
OO0020CIO
00002100
00002110
Oooop 12"
00002130
00002140
00002150
0000216C
00002170
00002180
000 021Q0
00002200
00002210
00002220
00002230
00002240
00002250
0000226"
00002270
00002?80
OC002290
00002300
-------
ISN 0002
ISN 0003
ISN 0004
ISN 0005
C
C
C
C
C
C
C
C
.C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
LPRINT - MIN. OF (LTWINO.LTSOUS ) , TIME INTERVAL FOR
TAKING AVERAGE OF CONCENTRATION
RAMS(M.N) - RAMS STATION OATAt N — STATION INDEX
M«l WIND SPtEDj -2 WIND DIRECTION;
"3 1ST LEVEL TEMP.; -4 2ND LEVEL TEMP.;
«5 $02 CONCENTRATION! -6 RADIATION
PARM(M) • METfOROLOGICAL PARAMETERS
M»l MEAN MIND SPEED} -2 WIND DIRECTION;
«3 SUKPACf TEMP.; -4 STABILITY CLASS;
-5 MIXING HEIGHT! "6 AREA SOURCE Q;
•7 POINT SOURCE Q; -8 UPPER TEMP.;
-9 RADIATION! «10 OBUKHOV LENGTH
Al CONSTANTS IN SUSINGER'S FORMULA
AK VON KARM6N CONSTANT
RIB BULK RICHARDSON NUMBER
ZMAX MAXIMUN MIXING HEIGHT USED IN THE MODEL
QBTOT.PQBTOT TOTAL AREA AND POINT SOURCES Q OF INPUT DATA
DO FRICTION VELOCITY
PMIFHZ NON-DIMENSIONAL TEMP. GRADIENT
HFZ INTEGRAL OF NON-DIMENSIONAL WIND SHEAR
* ********** **********
*** MAIN PROGRAM »•*
*********************
DIMENSION
* CP1 (30,40,14) ,C (30, 40,14) ,U( 30,40, 7), V( 30, 40,7) , WOO, 40, 7)
* CPK30,40,14),Ct30,40,14),UOO,4n,l),vOl,4l,l),W(30,40,l)
* CP 1(30, 40, 5) , COO, 40, 5J ,0(30,40,1) ,V(30, 40,1), WOO, 40,1 )
* U( 30, 40, 7), VI 30, 40 ,7), WOO ,40, 7)
* U(30, 41, 1),V(30, 40,1), W(30, 40,1)
* COLD(30,4C), CC(30,40), C1O0.40), U1O0.4P), VK30.40)
* QA(30,40), QBO0.40), ZS(30,4C), ZOI30.40), AKZ(30,40)
* UU( 9,13), VV( 9, 13), NEAR! 9,13)
* DXI3P), RDXOO), DXSI30), DY(40), RDY(40), DYS(40)
* DZ(14), RDZI14), OZSI14), Z(14), ZM(14), AKHU4)
* AKFU*), UZF(14), VZFU4J, WZF{14)
* NP(ISO), XP(150), rP(150), ZPI150), ZR(150), ZPRI150)
* POAU50), PQBdSQ), EKU50), FK(150), USTN(25), VSTNI25)
* ISI25), XSC25), YS(25), JXSC2S), JYSI25)
* !OBS(26), ICAL126), KOBSI26), KC»L( 26) , I TOPS ( 26)
* lUTtKSO) ,JUTM(40) ,XPUTM( 15") ,YPUTM (150) ,XSUTM(25 ) ,YSUTM(25 )
* AKA(24), NMONDYJ12)
COHWm /AADATA/
* IMl,JMlfKMl,JUNITtKUNITC,KUNITG,KUNITP,KUNITS,KUNITW
* ,irR,IMO,IDAY,IMR,ITM,ITMHR,ITSEC,ITOTHR,ITSTEP,DT,TM,TSEC
* ,LPRINTfLTSTOP,LTSOUS,LTHIND
* ,LWRITE(10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,KWIND,LCRUN,LCHEM
* ,RAMS(6,25),PARM(10),A1(4) , AK,HG,HP,HS,OLHIN,DCMIN
* , PMAX ,PMIN, RIB, ZMAX, ZRPQ.ZRISE, QBTOT,PQBTOT,UO, PHI FHZ, HFZ
COMW3N /CBLOCK/ CP1 (30,40,14) ,C(30,40, 14 )
COMMON /CBLOCK/ CPU 30,40,5) , COO, 40,5 )
EQUIVALENCE
* (CPlfl.l.l), CK1.D)
* .( U(l,l,l), W(l, 1,1)1
OCP02310
(1^0^232°
000023?0
00002340
(1001235"
P0002360
00002.370
00002380
00002390
0^00240"
00002410
00002420
OPO"243<1
00002440
00002450
00002460
00002470
000^2481
00002400
00002500
C"0r\251"
00002520
00002530
"0002540
00002550
00012560
00002570
00002580
OP01259"
00002600
00002610
1001262"
00002630
00002640
00002650
00002660
OOOO267O
00002680
00002690
0000270"
00002710
00002720
00002730
00002740
0000275"
00002760
00002770
10012781
00002790
00002800
0000281P
00002820
0"0i283l
00002840
00002850
OOP12860
00002870
90002P80
-------
ISN 0006
ISN 0007
ISN 0008
(QA(1,1),QB(1,1)),
(UZF(l) ,VZF(D),
(UU(lil) ,EK(1M,
(USTN(l),EK(1201),
(PQA(l), PQB(l)
(UZF(1),WZF(1)
I VSTNU),FK(12n)
00002890
, (NEAR(1,1I,NP(D)
NAMELIST /INLIST/
* IM,JM,KM,DX,OY,DZ,TM,DT,IN,JN,KN,KNN,LM,NS,IMC,JMC, AKH
* ,AKA,HS,HP,HG,ZMAX,HHIN,HMAX,ZRPQ,ZRISE,PMAX,PMIN,DCMIN,OLMIN
* ,IHR,IDAY,IMO,IYR,LTSTOP,LTSOUS,LTWIND,IDAYTP,IHRTP
* ,JUNIT,KUNITC,KUNITG,KUNITP,KUNITS,KUNITW
* ,LCRUN,LHJUS,LCHEM,LWW,LTOP,LWTOP,LSOUS,LPQ,KWIND,LWIND,LWRITE
* ,ZOMEAN
DATA
* ZS/1200*10./,Z0/1200*1./,QA/I 200*0./,CC/1200*0./.COLD/1200*0./
* ,RH/1.0/,ZPR/150*20.0/
* ,UZF/14*1./,VZF/14*1./,WZF/14*1./,4KF/14*1./
* , IOBS/26*0/,ICAL/26*0/,KOBS/26*0/,KCAL/26*0/,ITOBS/26*0/
W ,NMONDY/31,28,31,30,31,30,31,31,30,31,30,31/
DATA !UNITl/5/,IUNIT2/12/,JUNITl/6/
00002910
0000292C
00°02930
00002940
00002950
00002960
00002970
000^298^
0000299Q
00003000
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
**************
*** INPUT ***
**************
a** COPY INPUT CARDS TO DISK TO BE LISTED ***
CALL CDTOTP ( JUNIT1, I UNIT1 , IUNIT2 )
IUNIT=IUNIT2
READ 1 IUNIT, INLIST)
WRITE ( JUNIT, INLIST)
*** INPUT CONSTANTS ***
CALL CONSIN ( I M , JM.KM , KN , IMJ M, IJKM, I JKN )
*** INITIALIZE ARRAY ***
DO 50 J=1,JM
DO 50 1=1, IM
DO 20 K=1,KN
U(I ,J,K) = 0.0
V( I,J,K) = 0.0
W( I,J,K) = 0.0
20 CONTINUE
DO 30 K=1,KM
CP1(I,J,K)=0.0
C (I,J,K)=0.0
30 CONTINUE
5A CONTINUE
*** INPUT GEOGRAPHIC AMD NEDS DATA ***
LMAX=LM
CALL GEOIN
0000302"
00003H3Q
00003040
00003050
O0003n6n
OC003070
000030RO
00003100
00003110
00003120
00003130
00003140
00003150
00003160
00003170
00003180
0000319Q
noo n"3 700
00003210
00003220
00003230
00003240
£ (QA.ZS,ZO,PQA,XPUTM,YPUTM,XP,YP,ZP,ZR,NP,IUTM,JUTM,DX,DY,IM,JM
£ ,LMAX,LM,XSUTM,YSUTM,XS,YS,IS,JXS,JYS,25,NS,KUNITG,JUNIT,QBSUM
00003260
00003270
00003230
000032°0
00003300
00003310
00003320
00003330
00003340
00003350
0000?360
00003370
000033RO
00003390
00003400
00003410
00003420
00003430
00003440
00003450
00003460
-------
£ iPQBSUM,QBTOT,PQBTOT,ZOMEAN) 00003470
000^348"
QBSUM = TOTAL AREA SOURCE EMISSION WITHIN THE COMPUTING REGION 00003490
OR TOTAL EMISSION USED IN THE MODEL. 00003500
PQBSUM = SAME DEF. AS QBSUM FOR POINT SOURCE 00003510
QBTOT = TOTAL AREA SOURCE EMISSION FROM INPUT DATA 00003520
PQBTOT = TOTAL POINT SOURCE EMISSION FROM INPUT DATA 00003530
ISN 0027 NSX-NS+1 00003540
ISN 0028 PARM(6)=QBSUM 00003550
ISN 0029 PARM(7)=PQBSUM 0^*356"
C 00003570
C *** INITIALIZE NUMERICAL GRID SYSTEM *** 00003580
C 00003590
ISN 0030 CALL DIMENS (DX,DY,DZiRDX, RDY.RDZ ,DXS,DYS.DZS,Z,ZM,IM,JM,KM) 00003600
C 00003610
C *** PRINT GEOGRAPHIC AND NEDS DATA *** 00003621
C ' 00003630
ISN 0031 CALL PRINTS 0000354"
t
-------
10
ISN 0041
ISN 0042
ISN 0043
ISN 0045
ISN 0046
ISN 0048
ISN 0049
ISN 0050
ISN 0051
ISN 0053
ISN 0054
ISN 0055
ISN 0056
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0062
*** OBTAIN MIXING HEIGHT ***
CALL HHCALC (HH,HMIN,HMAX)
.... HH HOURLY AVERAGE MIXING HEIGHT.
PARM(5)=HH
*** ADJUST VERTICAL GRID DUE TO CHANGE IN MIXING HEIGHT ***
IF (KNN .GT. KM) KNN=KM
CALL
DIMEN1
GO TO 250
CALL WINDIN
E U. V , ZO , AKF , AKH, ZM, I MJM, I JKN, KM)
250 CONTINUE
*** CHECK TIME STEP ***
IFUTM .NE.( ITM/LTWIND*LTWIND) ) GO TO 300
AKAHR=AKA(IHR+1)
CALL DTTEST
£ (U,V,AKH,AKZ,AKF,AKAHR,UZF,VZF,DX,DY,Z,IM, JM, KM, I MJM, IJKN.KN)
*** PRINT METEOROLOGICAL DATA AND PARAMETERS OF NUMERICAL GRID ***
CALL PRINTS (RH)
*********##**** ft*
*** ENTERING TIME STEP LOOP ***
********* ##*##***#*#* ##******##
300 CONTINUE
*** COMPUTE CONCENTRATION FIELD ***
IF (LCRUN.EQ.l) CALL AACOMP
£ (CPl,C,CC,COLD,U,V,W,ZS,QAf PQA, AKZ, AKH, AKA , AKF, UZF , VZF, WZF
£ ,DX,RDX,DXS,DY, RDY, DYS, EK, FK, DZ , RDZ ,DZS, Z, ZM, XPUTM , YPUTM , XP , YP
£ ,ZP,ZP ,ZPR,IM,JM,KM,KN,LM,IMJM,IJKM,IJKN)
00004050
00004060
oor 04070
00004080
000040°0
ooo 04. inn
OOOC4110
00004120
00004130
OC004140
000041 50
0000416C
00004170
0"0n418o
00004190
00004200
00004210
00004220
00004230
OOP 0424°
00004250
00004260
000^427°
00004280
00004290
00004300
00004310
@on ^432n
00004330
00004340
00004360
00004370
00004390
00004400
000044.1 1
00004420
00004430
00004440
00004450
00004460
00004470
00004480
00004490
00004500
00004510
00004521
00004530
00004540
00004550
00004560
00004570
0000458T
00004590
00004600
00004610
00004620
-------
11
C *** FIX TIME INOICIES ***
t
ISN 0064 CALL TIMEX (NMONDY)
C
C *** PRINT COMPUTED CONCENTRATION FIELD ***
C
ISN 0065 CALL PRINTC UMC.JMU
ISN 0066 .IF (ITM.NE.(ITM/LPRINT*LPRINT)1 GO TO 300
C
ISN 0068 GO TO 1000
C
C ***************************************************
C *** PROGRAM FOR CASE STUDY AND CLIMATICAL STUDY ***
C ***»***********•»•*»*»«*•*»**»»*»**»********»******
C.... THIS PORTION OF THE PKOGRAM YET TO BE DEVELOPED
'C
C2000 CONTINUE
C
C CALL CASE2
C G (CPl,C,CC,COLD,U,V,W,ZS,QA,PQA,AKZ,AKH,AKA,AKFfUZF,VZF,WZF
C E ,DX,RDX,DXSiDY,RDY,DYS,EKtFKfDZ,RDZ,DZS,Z»ZM,XPUTM,YPUTM,XP,YP
C t iZPiZRiZPRtIMiJMfKM.KNtLN«IMJMtIJKM,TJKN)
C
ISN 0069 9000 CONTINUE
ISN 0070 STO?
C DEBUG SUBCHK
UN 3071 END
*OPTIONS IN EFFECT*
*OPTIONS IN EFFECT*
NAME- MAIN,QPT»02itINECNT»60tSIZE»POO"K,
SOURCEiEBCDIC,NOLISTfOBCKiLOAD,NOMAP,NOEDIT,NOID,NOXREF
•STATISTICS* SOURCE STATEMENTS • 70 ,PROGRAM SIZE
•STATISTICS* NO DIAGNOSTICS GENERATED
•*•••* ego OF COMPILATION ******
52948
00004630
0 CO 04640
PP01465"
00004660
00004670
00004680
00004690
00004710
00004720
00004740
0 00047? 0
00004770
00004780
ppp 04790
00004801?
00004810
00004H20
00004830
000 "4840
OPP04850
00004860
0000487"
00004880
00004890
101K BYTES OF CORE NGT USED
-------
12
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAINIOPT=021LINECNT=60tSIZE=OOOrK,
SOURCE,EBCDIC,NOLISTiDECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
C 00004900
ISN 0002 SUBROUTINE AACOMP 0000491"
£
-------
13
E ,IM,JM,KM,IMJM,IJKMt IJKN)
ISN 0015
ISN 0017
ISN 0011
ISN 0019
ISN 0020
ISN 0021
ISN 0023
ISN 0025
ISN 0027
ISN 002B
ISN 0029
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
C *** CALCULATE HORIZONTAL DIFFUSION ***
C
IF (LWW.NE.O) CALL SHIFTN
C
CALL XYDIFF
C (CPli CfAKH.AKZf AKFfRDX,RJY,DXStDYSt IM, JM.KM.IMJM, IJKM)
C
C *** CALCULATE VERTICAL DIFFUSION ***
C
CALL SHIFTN (CP1, C, IM, JM.KM, IM, JM, KM)
C
CALL IZDIFF
& (CP1, C,AKZ,AKFfROZ,DZS,ZM, EK,FK,IM,JM,KM,IMJM,IJKM)
:C
C *•* CALCULATE CHEMICAL DECAY *«*
C
CALL SHIFTN (CP1, C , TM, JM, KM, I M, JM, KM)
00005460
00005470
000 "5481
OP005490
(CP1, C, I M,JM, KM, IH, JM, KM) 00005500
00005510
00005520
IF (LCHEM .NE. 0) CALL
G (CP1.C.IM,JM.KM,IMJM,IJKM,AKA)
CHEMIC
00005541
00005550
00005560
00005570
00005580
00005590
00005600
00005610
00005620
00005630
00005640
00005650
00005660
00005670
IF (LCHEM. NE.O)
CALL
C
C
C
C *** CHECK IF STEADY STATE SOLUTION HAVE BEEN OBTAINED ***
C
ICHECK-0
C
CALL CCHECK (CP1,COLD,IJKM,IMJM,ICHECK,DCMIN)
C
C.
IF (ICHECK .EQ. 1) GO TO 100
ISN 0031
C
ISN 0039
*OPTIONS IN BFFECT*
•OPTIONS IN EFFECT*
00005680
SHIFTN (CP1.C, IM, JM.KM, IH.JM, KM) 00005690
00005701
IF (ITSEC .LT. 900) 60 TO 100 00005710
00005720
01005730
00005740
00005750
00005760
00005770
00005780
OOC05790
00005800
00005810
00005820
00005830
00015840
00005850
00005860
000158^0
00005880
00005890
00005900
00005910
00015920
00005930
00005940
00015950
.. STEADY STATE REACHED
DT-LPRINT-TSEC
100 CONTINUE
C *** TAKE TIME AVERAGE CC ***
C
DTPRNT-DT/LPRINT
DO 200 J-l.JM
DO 200 I«1,IM
CC(I,J)"CC(I,J)+CP1(I,J,U*DTPRNT
200 CONTINUE
C
RETURN
C DEBUG IUBCMK
END
NAME" MAIN,OPT«02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDICtNOL1ST,DECK,LOAD,NOMAP.NOEDIT,NOTD.NOXREF
•STATISTICS* SOURCE STATEMENTS « 38 ,PROGRAM SIZE » 3162
• STATISTICS* NO DIAGNOSTICS GENERATED
-------
14
LEVEL 21.6 ( MAY 72 )
05/360 FORTRAN H
COMPILER OPTIONS - NAME= MA IN,OPT=02,LINECNT = 60,SIZE^OOO"K,
SOURCE,EBCDIC,NOLIST,DECK,LQAD,NOMAP,NOEDIT,NOID,NOXPEF
ISM OOC2
ISM 0003
ISN 0004
ISN 0005
ISN 0006
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0007
0008
OOC9
0011
0012
0013
0014
0015
0016
0017
0018
0020
0021
0022
SUBROUTINE AKZCAL (AKZ, Ui
ZC,AKF,AKH,ZM,IMJM,IJKM,KM)
IT ESTIMATES THE EDDY AKZ FROM SURCACE WIND S'-EED £ OBUKHOV-MONIN
LENTH WHICH IS CALCULATED FROM THE STABILITY ' ,DEX AND ROUGHNESS
BY THE FOLLOWING FORMULAS:
1) 1/L=SIGNIS 1*10**(-4/11 + 1.3*S**0.35) )/((1.216586*1OG<1.2+10/ZO) )
**2).
2) UO=UV*AK/HFZ, HFZ=INTEG(NON-DIM. WIND SHEAR).
3) AKZ(Z)= UO*AK*Z/PHIFHZ, PHIFHZ=NON-OIM. TEMP GRADIENT
AKZ EDDY DIFFUSIVITY
U,V SURFACE WIND
ZO SURFACE ROUGHNESS
OLMIN MIN. OF OBUKHOV LENGTH
HH HEIGHT DF MIXING LAYER
OL OBUKHOV-MONIN KENGTH
S STABILITY INDEX
00000050
00000060
OOOOOOSO
000000°0
OC000100
OOOOC110
DIMENSION
AKZl IMJM),U(IJK,S),V( IJKN),ZO( IMJM).AKF(KM) ,ZM(KM)
,AKH(KM)
C
C ***
C
C
C
C
C
C
C
C ***
COMMON /AADATA/
* IM1,JM1,KM1,JUNIT,KUNITC,KJNITG,KUNITP,KUNITS,KUNITW
* ,IYR,IMO,I DAY,IHR,ITM.ITMHR,ITSEC,ITOTHR,ITSTEP,DT,TM,TSEC
* ,LPRINT,LTSTOP,LTSOUS,LTWI,SD
* ,LWRITE!10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,KWIND.LCPUN,LCHEM
» ,RAMS(6,25),PARM(10),A1(4),AK,HG,HP,HS,OLMIN,OCMIN
* ,PMAX,PHIN,RIB,ZMAX,ZRPQ,ZRISE,QBTOT,PQBTOT,UO,PHIFHZ,HFZ
DATA PAI/3.14159/
COMPUTE BULK RICHARDSON NUMBER ***
(CURRENT— FOP REFERENCE ONLY)
RIB=O.C
TAVE = 0.5*( PARM(3)+PAPM(8H-273. 16
GZT=9.6C16*HS*HS/TAVE
DTDZ=(PARM(8)-PARM(3)/(30.-HS)+0.00976
RIB=GZT*DTDZ/(PARM(1)*PARM(1))
S=PARM(4)
SIGNS=1.0
IF ( S .LT. 0.0) SIGNS=-1.0
SS= ABS(S)
0 1 = 10.C **<-«•. 0/1 1.0 + 1.3*SS**0.85) I
Z = HS
DO 200 1 = 1,IMJM
ZOO=ZO(I)
OLI=01*(0.216586* ALOGI1.2+1J./ZOO))**2
OL=SIGNS/OLI
MIN. OF OL IS SPECIFIED TO AVOID TOO SMALL VALUE? OF OL
IF ( ABS(OL) .LT. OLMIN) OL= SIGN (OLMIN.OL)
UV= SQRTI U(I)**2+V(I)**2)
ZOL=Z/OL
AZOL=A1(1)*ZOL
BUSINGER'S FOPMULAS TQ ESTIMATE EDDY AKZ ****
0000013"
0000014"
0000"160
00000170
0000018C
000001°0
00000210
00000220
nor no 23"
OOOOOP4"
00000250
"0"0026"
00000270
00000280
OC0002°0
00000300
00000320
00000330
OOC00350
0000036"
0000038C
00000390
0000041"
0000042"
0000043"
00000440
00"0"450
0000"46"
000004^0
"OOC"48"
00000490
00000500
0000051"
00000520
"""0053"
00000540
00000550
0000056"
-------
15
ISN 0023
ISN 0025
ISN 0026
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 003*
ISN 0037
ISN 0031
ISN 0039
ISN-0040
ISN 0041
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0047
ISN 0049
ISN 0050
ISN 0052
ISN 0053
ISN 0054
ISN 0055
IF (OL .LT. 0.0) SO TO 100
STABLE CASE ....
PHIFZ"! .0+AZOL
PHtFHZ»AK4)+AZOL
HFZ« AL06li.O+Z/ZOO)*AZOL
SO TQ 120
.......
.... UNSTABLE CASE
100 CONTINUE
PHIFZ-(1.0-A1(2»*ZOL)**(-0.25)
PHIFHZ- Al(4)*
00000610
00000620
00000630
00000640
00000650
OOP"0660
00000670
OPO00680
00000690
00000700
00000710
00000720
00000730
00000740
00000750
00000760
0000077C
00000780
00000790
00000800
00000810
OOP00820
00000830
00000840
00000850
00000860
00000870
00000880
00000890
00000900
00000910
00000920
0000093"
OP000940
00000950
OOOQ096O
00000970
00000980
00000990
00001000
00001010
00001020
00001030
113K BYTES OF CORE NOT USED
-------
16
LEVEL 21.6 ( MAY 72 )
35/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE.EBCDICtNOLIST.DECK.LOAD.NOMAP.NOEDIT.NOID.NOXREF
ISN 0002
ISM 0003
ISN 0004
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0006
0007
0008
0010
0011
0012
0014
0015
0016
0017
0019
0020
0021
0022
0023
0024
ISN 0025
ISN
ISN
0026
0027
c
c
c • • • •
c
c....
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c....
c
c ***
c....
100
c
c
c ***
c....
c
200
c
c. ...
c
SUBROUTINE CADJUS (CP1 , C.RDZ , 1M.JM, KM, IMJM, IJKM.KNN , RH, LHJUS )
THIS SUBROUTINE ADJUST THE CONCENTRATION VALUES DUE TO CHANGE
IN VOLUME OF GRID CELLS.
RH = RATIO OF OLD TO NEW VERTICAL GRID SIZE
IRH = MIN. OF (RH+1,2), = 1, IF (RH.LE.l); -2, IF (RH.GT.l)
LHJUS= CONTROL FLAG TO DECIDE WHICH METHOD TO ADJUST THE CONC.
VALUE DUE TO GRID CHANGE
LHJUS =1123
IRH = 1 A A C C
IRH =2 A B A B
METHOD A : KEEP THE TOTAL MASS CONSTANT
METHOD B : STRETCH GRID SPACE BUT KEEP OLD CONC. VALUE
(USED ONLY WHEN RH.GE.l — RISING MIXING HEIGHT)
METHOD C : COMPRESS GRID SPACE WHILE OBTAIN THE NEW CONC. VALUE
AT CORRESPONDING HEIGHT OF OLD CONC. PROFILE
(USED ONLY WHEN RH.LT.l — LOWERING MIXING HEIGHT)
DIMENSION CP1(IJKM),C( I JKM) ,RDZ( KM) ,LHH(2)
IF ( RH .LE. 0.0) RETURN
FIX CONTROL PARAMETERS
LH=LHJUS
IRH=RH-t-l
IF ( IRH .GT. 2) IRH=2
LHH(l)=LH/2
LHH(2)=LH-(LH/2)*2
IF ( LHH(IRH) ,EQ. 1) GO TO 200
DILUTION (METHOD A) ***
RFRH IS DILUTION FACTOR.
KK=(KNN-2)*IMJM
RF=(RH+RDZ(KNN))/(1.0+RDZ(KNN) )
DO 100 K=KNN,KM
IF ( K .GT. KNN) RF=1.0
RFRH=RF/RH
KK=KK+IMJM
DO ICO 1 = 1, IMJM
I JK=I+KK
CP1(IJK)= C(IJK) *RFRH
CONTINUE
RETURN
MOVE GRID POINTS (METHOD B & C) ***
METHOD B — RETURN TO MAIN PROGRAM
THIS METHOD IS AUTOMATIC WHEN ROUTINE DIMEN1 IS CALLED
CONTINUE
IF ( RH .GE. 1.0) RETURN
METHOD C — THIS PART OF PROGRAM IS REACHED ONLY WHEN LHH=1
AND RH.LT.l (GRID POINT IS COMPRESSED)
00001040
00001050
00001060
00001070
OOO01"80
00001090
0000110"
OOOOlllO
00001120
00001 130
00001140
00001150
00001160
000 01 170
00001180
00001190
00001200
00001210
00001220
00001230
00001240
00001250
00001260
"0001270
00001280
00001290
0000130"
00001310
0000132C
00001330
00001340
OOO"135"
00001360
00001370
OOOO138O
00001390
00001400
00001410
00001420
0000143"
00001440
00001450
00001460
00001470
00001480
00001490
00001500
"0001510
00001520
00001530
00001540
00001550
00001560
00001570
00001580
000"1590
-------
17
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0034
ISN 0037
ISN 0031
ISN 003f
ISN 0040
ISN 0041
ISN 0042
C
ISN 0043
C
ISN 0044
*QPTIONS IN EFFECT*
•OPTIONS IN EFFECT*
KMN1-KNN+1
KK-IJKM
00 300 lu-KNNl.KM
KK-KK-IMJM
K«KM-U*kNW
RHK- ( K-KNN)*RH
KRH-RHK
RR-l.O-RHK+KRH
KKK«CKNN*KRH)*IMJM
DO 300 I-l.IMJM
IJKK-KKK+I
IJK-I»KK
CP11IJK)- (1.0-RR)*C(IJK;K)*RR*C(1JKK-IMJM)
300 CONTINUE
RETURN
DEBUG SUBCHK
END
NAME- MA!N,.OPT-02,LINeCNT"*0,SIZE-OOOOK,
SOURCE,E8CDTC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
00001600
00001410
00001620
0009163"
00001640
00001650
00001660
00001670
00001680
00001690
00001700
00001720
00001730
0000174"
00001750
00001760
00001770
•STATISTICS* SOURCE STATEMENTS •
*STATISTICS* NO OIACNOSTICS GENERATED
43 .PROGRAM SUE -
1016
****** END OF COMPILATION ******
117K BYTES OF CORE NOT USED
-------
18
LEVEL 21.6 ( MAY 72 )
COMPILER OPTIONS
C
C
ISN 0002
OS/360 FORTRAN H
NAME= MAIN,OPT=02,LINECNT=60,SI2E=OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
SUBROUTINE CCHECK ( CP1,COLDi IJKM,IMJM,ICHECK,DCMTN)
ISN 0003
C.... THIS SUBROUTINE CHECKS IF CONCENTRATION REACH THE STEADY STATE
C.... VALUE. IF YESi ICHECK=Oi OTHERWISE ICHECK=1.
C.... DCMIN IS A SPECIFIED NUMBER INPUT BY NAMELIST/INLIST/
C
DIMENSION CP1(IJKM),COLD( IMJM)
ISN 0004
ISN 0005
ISN 0006
ISN 0008
ISN 0009
ISN 0010
ISN 0011
DO 100 1=1, IMJM
DC= CP1 (I )-COLDU )
IF (ABS(DC) .LE. DCMIN) GO TO
ICHECK=1
100 CONTINUE
C
RETURN
C DEBUG SUBCHK
END
100
*OPTIONS IN EFFECT*
*OPTIONS IN EFFECT*
'STATISTICS*
'STATISTICS*
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE.EBCDIC.NOLIST.DECK.LOAD.NOMAP.NOEDIT.NOID.NOXREF
SOURCE STATEMENTS 10 .PROGRAM SIZE 380
NO DIAGNOSTICS GENERATED
00001780
00001790
00001800
00001810
00001820
0000183"
00001840
00001850
00001860
00001870
000^1881
00001890
00001900
00001910
00001920
00001930
OOP01940
00001950
****** END OF COMPILATION ******
125K BYTES OF CORE NOT USED
-------
19
LEVEL 21.6 1 HAY 72 )
OS/360 FORTRAN H
ISN 0002
ISN 0003
ISN 0004
COMPILER OPTIONS - NAME" MAINfOPT»02iLINECNT«60»SIZE-OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
C
SUBROUTINE CHEMIC CCP1.C,IN,JH.KM.IMJM,IJKM.AKA)
ISN 0005
ISN 000*
ISN OOOt
ISN 0009
tSN 0010
ISN 0011
ISN 0012
ISN 0013
ISN OQ14
ISN 0015
ISN 0016
ISN 0017
ISN 0011
ISN 001?
ISN 0020
C
C
... THIS SUBROUTINE COMPUTES CHEMICAL. DECAY OF S02.
;.. AKA IS REACTION RATE CONSTANT.
DIMENSION CP1IIJKM), C(IJKM), AKA(24)
COMMON /AADATA/
IMlt JN'lf KM1,JUNIT,KUNITC,KUNITG,KUNITP,KUNITS,KUNITW
,IYR,IMO,IDAY,IHR,ITM,ITMHR,ITSEC,ITOTHR,ITSTEP,DT,TM,
, LPRINT,LTSTOP,LTSOUS,LTHIHO
fLWRITE<10),LSOUS<2),LTQP,LWTOP,LPQ,LHH,LWIND,K"Tkin-' r
,RAMSI6,25),PARMUO),A1(41 ,AK,HG,HP.HS.OLMIN.DC
,PMAX,PMIN,RIB, ZMAX.ZRPQ, ZftISE,QBTOT*PQBTOT,U
-------
20
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER
C
ISN 0002
ISN 0003
ISN 0004
C
C. .
C
ISN 0005
ISN 0006
ISN 0007
ISN 0008
ISN 0009
ISN 001C
ISN OG11
ISN 0012
ISN 0013
ISN 0014
ISN 0015
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0020
ISN 0021
ISN 0022
ISN 0023
ISN 0025
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN G032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0038
ISN 0039
C
C
C
' C
C
C
C
C
OPTIONS NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC.NOL1ST, DECK,LOAD,NOMAP,NOEDIT,NOID.NOXREF
SUBROUTINE CONSIN (IM,JM,KM, KN,IMJM,IJKM,IJKN)
.. THIS SUBROUTINE SPECIFY VALUE OF CONSTANTS.
DIMENSION CARDI20)
COMMON /AADATA/
* I Ml,JMl,KMl,JUNIT,KUNITCtKUNITGiKUNITP,KUNITS,KUNtTW
* ,IYR,IMO.IOAY,IHR,ITM,ITMHR,ITSEC,ITOTHR,ITSTEP,DT,TM,TSEC
* , LPRINT,LTSTOP,LTSOUS,LTWI,NlD
* ,LWRITE(1?),LSOUS(2),LTOP , LrfTOP,LPQ,LWW,LWIND,KWIND,i_CRUN,LCHEM
- , RAMS (6, 25) ,PARM110),A1(4),AK,HG,HP,HS,OLMIN,DCMIN
* ,PMAX.PMIN.RIB, ZMAX,ZRPQ,ZRISE,QBTOT,PQ8TOT,UP ,PHIFHZ,HFZ
AK=0.35
A1<1)=4.7
All 21 = 15.0
Al(31=9.0
AH 41=0.74
ITMHR=0
ITOTHR=0
ITSTEP=0
TSEC = 0.
ITSEC=TSEC
ITM=TM
IM1=IM-1
JM1=JM-1
KM1=KM-1
IMJM=IM*JM
IJKM=IM*JM*KM
IJKN=IM*JM*KN
LPRINT=2600
IF (LPRINT .GT. LTSOUS) LPRINT=LTSOUS
IF (LPRINT .GT. LTWIND) LPRI NT = LTWIND
RETURN
ENTRY CDTOTP (JUNIT1, IUN IT1,1 UN I T2)
*** PRINT CARD IMAGES OF NAMELIST ***
IUNIT1 = UNIT FOP CARD READER, I UN I T2 = T EMPORAR Y DI SK, JUNI T1=PR I NTER .
000022^0
00002300
00002310
00002320
OC002330
00,002340
00002350
00002360
"000237°
00002380
WRITE (JUNIT1, 51
5 FORMAT ('1')
10 READ (IUNIT1, 20, END
20 FORMAT (2CA4)
WRITE (IUNIT2, 20) (CAPD(I), I
WRITE ( JUNIT1, 30) (CARD(I), I
30 FORMAT (10X, 20A4)
GO TO 10
100 END FILE IUNIT2
REWIND IUNIT2
WRITE (JUNIT1, 200)
103) (CARD(I), I
1, 20, 1)
= 1, 2", 1)
1)
00002400
00002410
nnnn242ri
COOC24-30
00002440
nnr>^245n
00002460
00^02470
OO00248"
00002490
00002500
00002510
00002520
000^253^
00002540
00002550
00002570
0^002580
OOOH2590
0000260^
00002610
OCOC262"
00002630
onno264n
00002650
00002660
00002670
00002680
00002690
00002700
00002710
,00002720
0000273"
OC002740
00002^50
00002770
00002780
000027°n
00002800
OO002810
00002820
00002830
00002840
-------
21
ISN 0040 200 FORMAT CO CARDS COPIED TO DISK.') OOf>02850
C 00002860
ISN 00*1 RETURN 00002870
C DEBUG SUBCHK 0000288"
ISN 0042 END 00002890
*OPTION$'IN EFFECT* NAME- MAIN.OPT-02.LINECNT-60.SIZE-OOOOK,
•OPTIONS IN EFFECT* SOURCE,EBCDIC.NOLIST.OECK,IOAD.NOMAP.NOEDIT.NOID.NOXREF
*STATISTICS* SOURCE STATEMENTS " 41 .PROGRAM SIZE * 1076
*STATISTICS* NO DIAGNOSTICS GENERATED
****** END OF COMPILATION ****** 117K BYTES OF CORF NOT USED
-------
22
LEVEL 21.6 ( MAY 72 )
COMPILER OPTIONS
OS/360 FORTRAN H
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOCK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN 0005
ISN 0006
ISN 0007
ISN 0008
ISN 0009
ISN 0010
ISN 0011
ISN 0012
ISN 0013
ISN 0014
ISN 0015
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0020
ISN 0021
ISN 0022
ISN 0023
ISN 0024
ISN 0025
ISN 0026
ISN 0027
C
C. . ..
C
C....
C
SUBROUTINE DIMENS (DX,DY,01,RDX,ROY,RDZiDXS,DYS,DZS,I,ZM,
* IM,JM,KM)
THIS SUBROUTINE COMPUTES NECESSARY CONSTANT PARAMETERS FOR
NUMERICAL GRID SYSTEM EITHER CONSTANT OR VARIABLE GRID ...
THE ROUTINE IS CALLED IN TWO WAYS. DIMENS FOR INITIALIZATION;
DIHEN1 FOR EVERY HOUR WHEN MIXING HEIGHT IS CHANGED.
DIMENSI ON
* DX(IM),RDX(IM),DXS(IM),OYlJM),RDY0310"
00003110
00003120
00n0313n
00003140
00003150
0"0"316"
00003170
00003180
00003190
00003200
0000321O
000032PO
00003230
"000324"
00003250
00003260
00003270
00003280
OOO0329O
OC003300
00003310
00""332"
00003330
00003340
0000335"
00003360
00003370
00003380
00003390
000"3400
00003410
00003420
00"0343"
00003440
00003450
-------
23
ISN 0028
ISN 0029
ISN 0030
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0038
ISN 0039
ISN 0041
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0046
ISN 0047
ISN 0046
ISN 0049
ISN 0051
ISN 0052
ISN 0053
ISN 0055
ISN 0057
ISN 0059
ZM(K)- 0.5*(DZ(K)+DZ(K-1) )+
70 CONTINUE
IF (Z(KM) .GT. HG) HG-ZIKM)
HH-HG
PARM(5)-HH
RETURN
ZM(K-1J
ENTRY DIHEN1 (DZtRDZ,DZS,Z,ZMrKM.KNN.RH)
C *** CHANGE VERTICAL GRID DUE TO CHANGE IN MIXING HEIGHT ***
C.... HH IS MIXING HEIGHT. RH IS RATIO OF NEW DZ TO OLD DZ.
C TH6 FIRST 9 GRIDS ARE FIXEDfAND 4 TOP GRIDS VARY
C IF HH LESS THAN 300 M, ZUM) IS KEPT AT 300M
C BUT THE EFFECTS OF INVERSION IS IN THROUGH DIMINISH THE EDDY K
HH-PARM(S)
DZKM-DZ(KM)
DZT«0.25*(HH-Z(KNN))
IF C DZT .LT. DZ(KNN-D) DZT«DZ( KNN-1)
DO ICO K-KNN.KM
DZ(K)» DZT
RDZ(K)- DZ
-------
24
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MA IN,OPT=02,LINECNT=61,SIZE=000"K,
SOURCE,EBCDIC.NOLIST,DECK,LOAD,NOMAP.NOEDIT,NOID.NOXREF
ISN 0002
ISN 0003
ISN 0004
ISM 0005
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0006
0007
0008
0009
0010
0011
0012
0014
0015
0016
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0038
0039
0041
0042
SUBROUTINE DTTEST
*
-------
25
ISN 0044
ISN 0045
ISN 0046
ISN 0047
ISN 0049
ISN 0051
ISN 0052
ISN 0053
ISN 0054
ISN 0055
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0063
ISN 0064
ISN 0066
AKF(K)) AKFMAX = AKF(K)
AKH(K)) AKHMAX=AKH(K)
300
320
AKHMAX=AKH(1)
AKFMAX=AKF(1)
DO 300 K=2iKM
IFfAKFMAX .LT.
IFUKHMAX .LT.
CONTINUE
AKHDXY=4.0*AKHMAX*AKFMAX/(DXYMIN**2)
AKZMAX=AKZ(1)
DO 320 I=2,IMJM
IF1AKZMAX .LT. AKZU)) AKZMAX=AKZ (I )
CONTINUE
DTIAKH=AKHDXY*AKZMAX
DTIAKA=AKAHR
DTI=AMAX1(DTI,DTIAKH,DTIAKAJ
IF ( DTI .LE. 0.0) DTI= 1.0
IDT= 1.0/DTI
IF ( IDT .LT. 1) IDT=1
IDTOT=THR
CHOOSE DT SUCH THAT THR IS MULTIPLE OF DT
GO TO 420
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0067
0068
0070
0071
0072
0073
0074
0075
0076
0077
0078
0080
0081
NDT= IDTOT/IDT
400 IF UNDT*IDT) .GE.
410 IDT* IDT-1
NOT* IDTOT/IDT
60 TO 400
420 CONTINUE
DT=IDT
ITT=TH/IDTOT
TI=TM-ITT*IDTOT
DTLAST=IDTOT-TI
IF (DT .GT. DTLAST)
C
RETURN
C DEBUG SUBCHK
END
IDTOT) GO
DT=DTLAST
*OPTIONS IN EFFECT* NAME = MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
• OPTIONS IN EFFECT* SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
*STATISTICS* SOURCE STATEMENTS = 80 .PROGRAM SIZE = 1866
00904530
00004540
00004550
00004560
00004570
00004580
00004590
00004600
00004610
00004620
00004630
00004650
00004660
0000467"
00004680
00004690
00004700
00004710
OP004720
OC004730
00004740
00004750
00004760
00004770
00004780
00004790
00004800
00004810
00004820
00^04830
00004840
00004850
00004860
00004870
00004880
OO004890
*STATISTICS* NO DIAGNOSTICS GENERATED
****** END OF COMPILATION ******
109K BYTES OF COPE NOT USED
-------
26
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02!LINECNT=60iSIZE=OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LaAD,NOMAP,NOEDIT,NOID,NOXREF
C
ISN 0002 SUBROUTINE GEOIN
K(QB,ZS,ZO,PQB,XPUTM,YPUTM,XP,YP,ZP,ZR,NP,IUTM,JUTM,DX,DY,IM,JM
t ,LM,LMAX,XSUTM,YSUTM,XS,YS,IS,JXS,JYS,NS,NRAMS,KUNITG,JUNIT
£ ,QBSUM,PQBSUM,QBTOT,PQBTOT,ZOMEAN)
ISN 0003
C
C...
C
C
C
C
ISN 0004
ISN 0005
ISN 0006
ISN 0007
ISN 0008
ISN 0009
ISN 0010
ISN 0011
ISN 0012
ISN 0013
ISN 0014
ISN 0015
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0021
ISN 0023
ISN 0025
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN 0032
C
C
£
£
E
£
C
C.
C
C
C
C.
C
C.
C
C
C
C.
. THIS ROUTINE READ IN GEOGRAPHICAL AMD ANNUAL EMISSION DATA.
IT ALSO: 1) FIX UTM COORDINATES FOR ALL NUMERICAL GRIDS.
2) CONVERT LOCATION OF RAMS STATION TO NUMERICAL GRID.
3) CONVERT LOCATI-ON OF POINT SOURCE TO NUMERICAL GRID.
DIMENSION
* QB( IM.JM) ,ZS(IM,JM) ,ZO(IM, JM)
* ,PQB(LM),XPUTM(LM),YPUTM(LM),XP(LM),YP(LM),ZP(LM),ZR(LM),NP(LM)
* iIS(NS),XSUTM(NS),YSUTM(NS),JXS(NS),JYS(NS),XS(NS),YS(NS)
* ,IUTM(IM),JUTM(JM),DX(IM), DY(JM)
DIMENSION FMTDS(IO)
DATA DXA/1000.0/.DYA/1000.0/
8000 FORMAT (4-15)
8010 FORMAT (10A4)
8050 FORMAT (F10.4)
8090 FORMAT (F10.1)
. READ OPGIN OF UMT COORDINATE AND FIX FOR ALL GRIDS.
READ (KUNITG,8000) IXBEG,IYBEG,I BEG,JBEG
CALL XYUTMS
£ (I UTM, JUTM,IXBEG,IYBEG',IBEG, JBEG.DX,DY,DXA,DYA,IM, JM)
. READ IN UTM COORDINATES OF RAMS STATIONS.
READ (KUNITG.SOOO) NRAMS
READ (KUNITG,8010) FMTDS
READ (KUNITG,FMTDS) ( I S 04930
00004940
00004950
00004960
00004970
00004980
00004990
00005000
00005010
00005020
000050?0
00005040
00005050
00005060
0000507O
00005080
00005090
00005100
00005110
00005120
00005130
00005140
00005150
00005160
00005170
00005180
00005190
00005200
00005210
00005220
00005230
00005240
00005250
00005260
00005270
00005280
00005290
00005300
00005310
00005320
00005330
00005340
00005350
00005360
00005370
00005380
00005390
00005400
00005410
00005420
00005430
00005440
00005450
-------
27
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0038
ISN 0039
ISN 0040
ISN 0041
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0046
ISN 0047
ISN 0048
ISN 0049
ISN 0050
ISN 0051
ISN 0052
ISN 0053
ISN 0054'
ISN 0055
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0062
ISN 0064
110
115
120
C
'&••••
C
C • • * •
DO 110 J=1,JM
DO 110 1=1,IM
ZO(I,J)«ZOMEAN
CONTINUE
DO 115 J-11,27
DO 115 1=5,14
ZQU.J)- 2.0
CONTINUE
CONTINUE
READ IN AREA SOURCE EMISSION HEIGHT
READ (KUNITG,8010) FMTDS
READ (KUNITG.FMTDS) ZS
READ IN POINT SOURCES LOCATION AND STACK HEIGHT.
READ (KUNITG,8000) LMAX
READ (KUNITG,8010) FNTDS
READ (KUNITG.FMTDS) (NP(L),XPUTM(L),YPUTM(L),ZP(L),L=1,LMAX)
READ IN AREA SOURCE EMISSION RATES
READ (KUNITG,8010) FMTDS
READ (KUNITG.FMTDS) QB
READ (KUNITG,8050) QBTOT
OBTAIN AVERAGE EMISSION RATE FOR WINTER MONTHS
DO 150 J=1,JM
DO 150 1=1,IM
QB(I,J)=QB(I,J)*4.0
QBSUM-QBTOT*4.0
READ IN POINT SOURCE EMISSION RATES.
READ (KUNITG,8010) FMTDS
READ (KUNITG.FMTDS) (PQB{L),L=l,LMAX)
READ (KUNITG,8090) PQBTOT
READ IN PLUME RISE DATA.
READ (KUNITG,8010) FMTDS
READ (KUNITG.FMTDS) (ZR(L),L=1,LMAX)
CONVERT XP.YP FROM UTM COORDINATE TO NUMERICAL GRID
PQBSUM-O.i
DO 200 L-l.LMAX
IF (NP(L) .EQ. 39) PQB(L)=0.0
PQBSUM-PQBSUM+PQBU)
CONVERT POINT SOURCE FROM UTM UNIT(XPUTM.YPUTM) TO GRID UNIT(XP
XYUTM1 (XPUTM,YPUTM,LM,XP,YP,LM,1)
*OPTIONS IN EFFECT* NAME= MAIN,OPT«02,L INECNT-60,SIZE=OOOOK,
OPTIONS IN EFFECT* SOURCE,EBCDIC,NOUST,DECK, LOAD,NOMAP.NOEDIT.NOID.NOXREF
*STATISTICS* SOURCE STATEMENTS - 67 .PROGRAM SIZE - 2934
150
C
C • • • •
ISN
ISN
ISN
ISN
0065
0066
0067
0068
200
C
C • • • •
C
C
C
CONTINUE
CONVERT POIN
CALL X
RETURN
DEBUG SUBCHK
END
00005460
01005471
00005480
00005490
00005500
00005510
0000552"
00005530
00005540
00(105550
00005560
00005570
90005580
00005590
00005600
00015610
00005620
00005631
00005640
00005650
OP10566T
00005670
00005680
00005690
OC005700
00005710
0000572"
00005730
00005740
00005750
00005760
00005770
00005^80
00005790
00005800
00005810
00005820
0000583"
00005840
00005850
00005860
00005870
00015880
00005890
00005900
0001591"
,YP00005920
00005930
00015941
OOC05950
00005960
00005970
00005980
-------
28
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN 0005
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0006
0007
0008
0009
0010
0011
0013
0015
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0017
0018
0020
0022
0024
0025
0026
SUBROUTINE OUTAPE (CC,ICALiIOBS,NSX,IM,JM,IOAYTP,IHRTP,LWARM)
THIS SUBROUTINE WRITES COMPUTED RESULTS ON TWO I/O UNITS
UNIT=KUNITP- PARM|CC,ICAL,IOBS.
UNIT=KUNITC- PARM.ICAL, IOBS.
DIMENSION CC(IM.JM) ,ICAL(NSX) ,IOBS(NSX)
COMMON
/AADATA/
00005990
00006000
00006010
00006020
00006130
00006040
00006050
or>0 06060
00006070
00006080
I Ml,JM1,KM1,JUNIT,KUNITC,KUNITG,KUNITP,KUNITS,KUNITW
,IYRiI MO,IDAY,IHR,ITM,ITMHR,ITSEC,ITOTHR,ITSTEP.DT,TM,TSEC
,LPRINT,LTSTOP,LTSOUS,LTW1ND
,LWRITE(10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,KWIND,LCRUN,LCHEM
,RAMS(6,25),FARM(10),Al(4),AK,HG,HP,HS.OLMIN,DCMIN
,PMAX,PMIN,RIB,ZMAX,ZRPQ,ZRISE,QBTOT,PQBTOT,UO,PHIFHZ,HFZ
800 FORMAT
£
(1X,4I2,F6.1,F6.0.F6.1,F6.2,F6.1,2F6.0
,2F6.1,F9.0,4(/7X,13I5))
830 FORMAT { '
831 FORMAT (•
832 FORMAT ('
TAPE,IMO.IDAY.IHR =
*** ERR=291 ***<)
*** END=292 ***•}
•,313)
IHRP=IHR
IDAYP=IDAY
IF (IHR.EQ.O) IDAYP=IDAY-1
IF (IHR.EQ.O) IHRP=24
IF (ITM.NE.O) GO TO 310
INITIALIZE OUTPUT DATA SET. (ONLY WHEN ITM=O)
LWARM=1
IF ((IDAY.EQ.IDAYTP).AND.(IHR.EQ.(IHRTP-1))) LWARM=0
IF COLD START, RETURN
IF WARM START, GET DATA SET KUNITC AND KUNITP READY.
IF (LWARM.EQ.O) RETURN
IF (LWRITEI9) .EQ. 0) GO TO 200
REWIND KUNITC
100 READ (KUNITC,800,ERR=291,END=200) KYR,KMO.KDAY,KHR,FARM,ICAL,10BS
IF ((KDAY.NE.IDAYP) .OR. (KHR. NE. IHRP ) ) GO TO l(n
C.... THIS BACKSPACE IS TQ PREVENT THE LOST OF POINTER IN BUFFER.
C DO 110 L=l,5
C BACKSPACE KUNITC
C 110 CONTINUE
C WRITE (KUNITC,800) KYR,KMO.KDAY,KHR,PARM,ICAL,IOBS
ISN 0028 200 CONTINUE
C
ISN 0029 IF (LWRITE(in) .EQ. 0) GO TO 300
ISN 0031 REWIND KUNITP
ISN 0032 220 READ (KUNITP,ERR=291,END=292) KYR,KMO,KDAY,KHR,PARM,CC,ICAL,IOBS
ISN 0033 WRITE (JUNIT,830) KMO,KDAY,KHR
ISN 0034 IF ((KDAY.NE.IDAYP).OR.(KHR.NE.IHRP)) GOTO 220
C.... SAME REASON AS FOR BACKSPACE KUNITC
C BACKSPACE KUNITP
C WRITE(KUNITP,ERR=291,END=292)KYR,KMO,KDAY,KHR,PARM,CC,ICAL, I OBS
00006100
00006110
00006120
00006130
00006140
00006150
00006160
0000617T
00006180
00006190
00006200
00006210
00006220
00006230
00006240
00006250
00006260
00006270
00006280
00006290
00006300
00006310
00006320
00006330
00006340
00006350
00006360
00006370
00006380
0000639O
00006400
00006410
00006420
00006430
0000644"
00006450
00006460
00006470
00006480
00006490
00006500
00006510
00006520
00006530
00006540
-------
29
ISN 0034 GO TO 300
ISN 0037 291 WRITE (JUNIT.831)
ISN 0038 STOP 291
ISN 0039 292 WRITE (JUNIT.832)
ISN 0040 STOP 292
ISN 0041 3CO CONTINUE
C
ISN 0042 RETURN
C
C.... WRITE STATMENTS.
C
ISN 0043 310 CONTINUE
C
ISN 0044 If (LWRITEI9).EQ.O) GO T0 320
ISN 0046 WRITE (KUNITC.800) IYRtINO.IDAYP',IHRP.PARM,ICAL,IOBS
ISN 0047 320 CONTINUE
ISN 0048 IF (LWRITE(IO).EQ.O) GO TO 340
ISN 0050 WRITE (KUNITP) IYRtIMO,IDAYPiIHRP.PARM,CCfICAL,IOBS
ISN 0051 340 CONTINUE
C
C *** INITIALIZE CC ARRAY ***
ISN 0052 DO 400 J-ltJH
ISN 0053 DO 400 I-l.IM
ISN 0054 400 CC(I,J)-0.
C
RETURN
C DEBUG SUBCHK
END
00006550
ISN 0055
C
ISN 0056
•OPTIONS IN EFFECT*
•OPTIONS IN EFFECT*
•STATISTICS*
•STATISTICS*
NAME- MAIN,OPT-02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
SOURCE STATEKENTS - 55 .PROGRAM SIZE - 1806
NO DIAGNOSTICS GENERATED
OOOC6570
00006580
OOP16590
00006600
00006610
00006620
00006630
00006640
00006650
00006660
P0006670
00006680
00006690
000067""
00006710
00006720
00006730
00006740
00006750
00006760
00006770
00006780
00006790
00006800
^0006810
00006820
****** END OF COMPILATION ******
117K BYTES OF CORE NOT USED
-------
30
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02,LI NECNT=60,SIZE = OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
C
ISN 0002 SUBROUTINE POSITV ( A, IN, JM, KM, IMJM, IJKM)
SET A(IJK)=0., IF IT HAS A NEGATIVE VALUE.
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0014
0015
0016
C
C....
C
C
10
C
C
THIS SUBROUTINE
DIMENSION A(
KK = -I MJM
DO 10 K=1,KM
KK=KK+IMJM
JJ=-IM
DO 10 J=1,JM
JJ=JJ+I M
DO 10 1=1, IM
IJK=I+JJ+KK
IF ( A(IJK)
CONTINUE
RETURN
DEBUG SUBCHK
END
UK
.LT
*OPTIONS IN EFFECT*
*OPTIONS IN EFFECT*
'STATISTICS*
*STATISTICS*
0.0) A(IJK)=0.0
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC.NOL1ST,DECK, LOAD,NOMAP,NOEDIT,NOID,NOXREF
SOURCE STATEMENTS 15 ,PRObRAM SUE = 408
NO DIAGNOSTICS GENERATED
00006830
00006840
OOC0685C
00006860
Or>006870
00006880
00006890
00006900
OOOC6910
00006920
00^0693"
00006940
00006950
000^696"
00006970
00006980
00006990
0000^000
00007010
00007020
00007030
***»*« END OF COMPILATION ******
125K BYTES OF CORE NOT USED
-------
31
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME- MAIN,OPT-02,HNECNT-60, SIZE=OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP.NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN 0005
ISN 0006
ISN 0007
ISN 0008
ISN 0009
ISN 0010
ISN 0011
ISN 0012
C
C • • • •
C
C
C
C
C • • • •
C
SUBROUTINE PRINTS
-------
32
ISN 0013
ISN 0014
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0020
ISN 0021
ISN 0022
ISN 0023
ISN 0024
ISN 0025
ISN 0026
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
*** PRINT GEOGRAPHICAL AND ANNUAL EMISSION DATA ***
.... INITIALIZE SUBROUTINE WRITESi WHICH HAS ENTRY WRITEX.
CALL WRITES
£ (QB.IM, JM, I M, JM, 1,1 , IUTM, JUTM, IM, JUNIT, RATIO, TITLED
IF (LWRITEU) .EQ.o) RETURN
.... RAMS STATIONS.
WRITE (JUNIT.8110) NS
WRITE (JUNIT.8120)
£ ( IS(L),XSUTM(L) ,YSUTM(L) ,XS ( L ) , YS ( L ) , JXS ( L) , J YS (L ) ,L=1 , NS )
. SURFACE ROUGHNESS.
RATIO=100.
TITLEK 1)=TITLL1
TITLE1(2)=TITLZO
TITLE1(7)=TUNIT2
CALL WRITEX
£ (ZO.IM, JM.IM, JM.IM, JUNI T , RATIO, T I TLE1 )
.... EMMISION HEIGHT OF AREA SOURCE.
RATIO=1 .0
TITLE1(2)=TITLZS
CALL WPITEX
£ (ZS.IM, JM, I M,JM, I M, JUNI T, RATIO, TITLED
EMISSION RATE OF AREA SOURCE.
RATIQ=l.o
TITLE1(2)=TITLQB
TITLE1(7)=TUNIT1
CALL WRITEX
£ (QB.IM, JM, I M.JM, I M, JUNI T, RATIO, TITLED
WRITE (JUNIT.8140) QBTOT.QBSUM
.. .. POINT SOURCE DATA
WRITE (JUNIT.8150) LM
WRITE (JUNIT.8160)
£(L,NP(L),XPUTM
-------
33
ISN 0036
ISN 0037
ISN 003S
ISN 0040
ISN 0041
ISN 0042
ISN 0043
ISN 0045
ISN 0046
ISN 0047
ISN 0041
ISN 0050
ISN 0052
ISN 0053
ISN 0054
ISN 0055
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0062
ISN 0063
ISN 0064
ISN 0065
ISN 0066
ISN 0067
ISN 006S
ISN 0069
ISN 0070
ISN 0072
ISN 0074
ISN 0076
ISN 0077
8200 FORMAT (IX,'** TOTAL SOURCE QBTOT-SF10.1,• PQBTOT->,F10.1
£ ,' QBSUH-',F10.1,' PUBSUM-SF01.1)
8240 FORMAT ( /1X,'«* POINT SOURCE **•/,(5(IX,13,2F9.1)))
IF .EQ.2).OR.(LWRITE(2).EQ.4M
£ (Qi.IM, JM, IM, JM, IM.JUNIT,RATIO, TITLED
CALL
WRITEX
IF (LWRITE(2).GE.3) WRITE (JLJNIT.8240 ) (L.PQBU), ZR (L ) ,L»1,LM)
200 CONTINUE
C
RETURN
C
f* — — ••••••. — • — -— — ... .1 _^_.-i . -i .-»» — •• — .-..— .^ — -.» — » — ___ «A_^*«~«—— ~
C
C *** PRINTS METEOROLOGICAL PARAMETERS AND MODEL DATA ***
C
ENTRY PRINTS (RH)
C
8300 FORMAT (IX,1 ***** RAMS DATA *****•/• IS S25I5/
£ • UU ',25F5.1/' DD S25F5.0/' Tl • .25F5.0/
£ • T2 ',25F5.0/' CC S25F5.0/1 RA -,25F5.0)
8310 FORMAT (IX,• ***** ANALYZED WIND UUUN.JN) £ VVUN.JN) *****•/
£ ,5Xt-JS9(' SI2,' '))
8320 FORMAT (1X,I5,18F6.1)
8400 FORMAT (IX,1 ** U.V WIND COMPONENTS FOR LAYER K-SI2,1 **•/
£ iSXi'JSlOC SI2,1 '))
8410 FORMAT (IX,I5.20F6.1)
8420 FORMAT (IX,1 ** W WIND COMPONENT FOR LAYER K-SI2,' **•/
£ .SX.'JSIOC SI2f' '))
8430 FORMAT (IX,I5,10(1X,F10.4,1X)I
8450 FORMAT {/,' RH-SF6.2,' GRID Z(M" S14F6.0)
8460 FORMAT (15X,'UZF(K)- S14F6.2J
8470 FORMAT (15X,'VZF{ K)- S14F6.2)
S14F6.2)
S14F6.2)
8510 FORMAT (11X, «KZ( J-JM/21- S15F6.1)
-•--'-— -- DT«',F6.1,4X,'PARM(.N)» S10F10.2)
UO«SF8.3,' PMZ-SF8.3,-' HFZ-SF8.3,' RIB'SF8.3)
8480 FOUMAT «15X,'WZF(K)
8500 FORMAT <15X,'AKF(K)
8600 FORMAT
8610 FORMAT (3X
C
C.... RAMS DATA.
IF
-------
34
ISN 0078
ISN 0079
ISN 0080
ISN 0081
ISN 0082
ISN 0084
ISN 0086
ISN 0087
ISN 0088
ISN 0089
ISN 0090
ISN 0091
ISN 0093
ISN 0094
ISN 0095
ISN 0096
ISN 0097
ISN 0098
ISN 3100
ISN 0101
ISN 0102
ISN 0103
ISN 0104
ISN 0105
ISN 0106
ISN 0108
ISN 0109
ISN 0110
ISN 0111
ISN 0112
ISN 0113
ISN 0114
ISN 0115
ISN 0116
ISN 0117
ISN 0118
ISN 0120
ISN 0121
ISN 0123
ISN 0124
ISN 0126
ISN 0127
ISN 0128
ISN 0129
ISN 0130
ISN 0132
ISN 0134
J=JN+1-JJ
WRITE UUNIT.8320) J,(UU(I,JJ,VV
-------
35
ISN 0135
ISN 0137
ISN 0138
ISN 0139
ISN 0140
ISN 0141
ISN 0142
ISN 0143
ISN 0144
ISN 0145
ISN 0162
ISN 0164
ISN 01*5
ISN 0167
ISN 0169
ISN 0170
IF (LWRITE(6).EQ.2) WRITE (JUNIT.8610) UO.PHIFHZ.HFZ.RIB
600 CONTINUE
C
RETURN
C
C
C •*« MINT CONCENTRATION FIELD ***
C
ENTRY PRINTC (IMC.JMC 1
C
C...
C
C
C
C
C
C
C
C
THIS ROUTINE PRINTS (ACCORDING TO CONTROL FLAG) :
1) INSTANTANEOUS CP1 AT STATIONS FOR EACH TIME STEP;
2) INSTANTANEOUS CP1 FIELD AT EACH TIME INTERVAL 'LPRIMT';
3) AVERAGE CONC. CC FIELD AT EACH TIME INTERVAL 'LPRINT';
4) AVERA6E CONC. CC AT STATIONS (I01S.ICAL)! AND
5) 24 HOURS AVERAGE CONC. AT STATIONS (KOBS.KCAL).
NS - NO. OF RAMS STATION. NSX « NS+1 .
NSX'lS INDEX FOR SPATIAL AVERAGE. F(NSX)- AVERAGE OF FlL)fL=l,NS.
ISN 0146
ISN 0147
ISN 0149
ISN 0151
ISN 0152
ISN 0153
ISN 0154
ISN 0155
ISN 0156
ISN 0157
ISN 0158
ISN 0159
ISN 0160
C
C
DATA ITPR/0/
C
8700 FORMAT (/3X,'TIME',3X,' SEC NTS' ,4X,'DT',2X,2514)
8710 FORMAT (IX, 12,2(•/•,12),I5,I4,F6.0,2X, 2514)
8800 FORMAT (//,• ** 2HR STATION S02 ** MO,DAY.HR-',3(12,•/•),',
£ ,14,', ... SPATIAL AVERAGE... CAL-',IS,1 08S=',I5)
8810 FORMAT (//,• ** 24HR STATION S02 ** MO,DAY.HR-',3(12, •/')
£ ,', ... SPATIAL AVERAGE... CAL-1,15,' OBS=',I5)
8820 FORMAT C IS •,25157' XS ',25F5.1/'. YS '.25F5.1/
£ ,' CAL ',25I5,/' OBS ',2515)
C
C *** PRINT INSTANTANEOUS CONCENTRATION AT MONITORING STATIONS ***
C.... THESE VALUES ARE FROM NEAREST SOUTHWEST GRID TQ STATIONS.
RATIO-1.0
IF ULWRITE(7).NE.2) .AND. (LWRITE (7) .NE.4)) GO TO 730
IF JITPR.GT.O) GO TO 710
ITPR-1
WRITE (JUNIT.8700) (IS(L),L-1,NS)
710 CONTINUE
DO 720 L-l.NS
I-JXS(L)
J-JYS(L)
720 ICAL(L)-CP1(I,J,1)
WRITE (JUNIT.8710) IMO,IDAf,IHR,ITSEC,ITSTEP,DT,(ICAL(L),L=1,NS)
730 CONTINUE
IF JLCRUN .EQ. 0) RETURN
*** PRINT INSTANTANEOUS CONC. CP1 FIELD EVERY LPRINT INTERVAL ***
C
C.... IF NOT ON THE HOUR, RETURN TO TIME STEP LOOP OF MAIN PROGRAM.
IF UTM .NE. UTM/LPRINT*LPRINT)) RETURN
C
ITPR-0
IF (LWRITE(7).LE.O) GO TO 770
IF (LWRITE(7).LE.2) GO TO 760
KB»1
00009340
00009350
00009360
00009370
00009380
00009390
00009400
00009410
00009420
00009430
00009440
00009450
00009460
00009470
00009480
00009490
00009500
00009510
00009520
00009530
00009540
00009550
00009560
NTS='00009580
00009590
00009610
00009620
00000630
00009640
00009650
00009660
00009670
00009680
00009690
00009700
KA
00009720
00009730
00009740
00009750
00009760
00009770
OC009780
00009790
00009800
00009810
00009820
00009830
00009840
00009850
00009860
00009870
00009880
00009890
000099OO
00009910
-------
36
ISN 0171
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0173
0174
0175
0176
0177
0178
0179
0180
0181
0182
0183
0184
0185
0186
0187
0188
C
c
C
c
c
c
c
c
c
c
c
ISN 0189
ISN 0191
ISN 0192
ISN 0194
ISN 0195
ISN 0196
ISM. 0197
ISN 0199
ISN 0200
ISN 0201
ISN 0202
ISN 0203
ISN 0204
ISN 0205
ISN 0206
ISN 0207
IF UHR.EQ.1) KB = KM
... PRINT HORIZONTAL FIELD OF CP1 .
TITLE2(1)=TITLL2
TITLE2(2)=TITLC1
DC 750 K=KA,KB
TITLE2I8)=LAYER(K)
DO 740 J=1,JM
DO 740 I=1,IM
COLDU, J)=CP1( I, J,K)
740 CONTINUE
CALL WRITEX
750 CONTINUE
(COLDtIM,JM.IM,JM.IM,JUNIT,RATI0,TITLE2)
... PRINT VERTICAL CROSS SECTION OF CP1 AT I=IMC, J=JMC.
760 CONTINUE
CALL WRITEZ
770 CONTINUE
(CPliZiRATIOiIM,JM.KM,IMC,JMC,TITLC1)
*** PRINT CC FIELD EVERY LPRINT INTERVAL ***
.... CC IS AVERAGE SURFACE CONCENTRATION FIELD OF LPRINT INTERVAL.
TITLE2(1)=TITLL1
TITLE2(2)=TITLCC
TITLE2(8)=LAYER(1)
IF (LWRITE(8).GE.2) CALL WRITEX
6 (CC.IM,JM,IM,JM,IM,JUNIT.RATI0,TITLE2)
*** OBTAIN VALUES OF CC AT RAMS STATION ***
CALL STNCON
a (CC,IOBS,ICAL,KOBS,KCAL,ITUBS,NS,NSX,IM,JM,XS,YS,JXS,JYS)
*** PRINT VALUES OF CC AT RAMS STATION ***
IF (LWRITE18).LT. 1) GO TO 780
WRITE (JUNIT,8800) IMP,I DAY , IHR,ITSTEP,1CAL(NSX),I DBS(NSX)
WRITE (JUNIT.8820) IS,XS,YS, IICAL(L) ,L = l,NS),
-------
37
FORTRAN H ERROR MESSAGES
ERROR NO LEVEL ERROR MESSAGE
NAME TITLL3 IEK307I 4 THE DATA STATEMENT CONTAINS A VARIABLE THAT IS NOT REFERENCED.
•OPTIONS IN EFFECT* NAME- MAIN,OPT«02,LINECNT»60,SIZE-000?K,
•OPTIONS IN EFFECT* SOURCEiEBCDICtNOLIST,DECK,LOAD,NOMAP.NOEDIT,NOIDiNOXREF
•STATISTICS* SOURCE STATEMENTS - 206 .PROSRAM SIZE - 9356
•STATISTICS* 1 DIAGNOSTICS GENERATED, HIGHEST SEVERITY CODE IS 4
****** END OF COMPILATION ****** 53K BYTES OF CORE NOT USED
-------
38
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK.
SOURCEiEBCDIC,NOL1ST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
C
C
SUBROUTINE SHIFTN ( A, 8, IM, JM, KM, IN, JN, KM)
SHIFT A TO B
DIMENSION AUM.JM.KM), B(IN,JN,KN)
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0004
0005
0006
0007
0009
0011
0013
0014
0015
0016
0017
0018
0019
IMM=IN
JMM=JN
KMM=KN
IF ( KM .LE. KN)
IF( IM .LE. IN )
1F( JM .LE. JN )
DO 100 K=1,KMM
DO 100 J=1,JMM
DO 100 1=1, IMM
B (I, J,K)= A( I,
100 CONTINUE
C
RETURN
C DEBUG SUBCHK
END
KMM=KM
IMM=IM
JMM=JM
J,K)
*OPTIONS IN EFFECT*
*OPTIONS IN EFFECT*
*STATISTICS*
*STATISTICS*
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOL1ST,DECK, LOAD,NOMAP,NOEDIT,NOID,NOXREF
SOURCE STATEMENTS = 18 .PROGRAM SIZE = 810
NO DIAGNOSTICS GENERATED
"0^1050"
0001051"
00010520
00010540
00010550
00010560
00010570
""01"58"
00010590
00010600
"001061°
00010620
00010630
"001064"
00010650
00010660
00010670
00010680
00010690
00010700
00010710
******
OF COMPILATION ******
125K BYTES OF COPE NOT USED
-------
39
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME- MAIN.OPT-02,LINECNT-60,SIZE-OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP.NOEDIT,NOIP,NOXREF
C
ISN 0002 SUBROUTINE SOURCE
* (CP1, C,QA,QB,ZS,PQA,PQB,XPUTM,YPUTM,XP,YP,ZP,ZR,ZPR,U,V,UZF,VZF
* ,AKF,AKH,AKZ,DX,DY,DZ,Z,EK,FK,IM,JM,KM,KN,IMJM,LM)
ISN 0003
ISN 0004
ISN 0005
ISN 0006
ISN 0008
ISN 0010
ISN 0011
ISN 0012
ISN 0013
ISN 0014
ISN 0016
ISN 0017
ISN 0018
ISN 0020
ISN 0021
ISN 0022
ISN 0023
ISN 0024
ISN 0025
ISN 0026
00010720
00010740
00010750
THIS SUBROUTINE ADOS NEW SOURCE EMISSION INTO THE SYSTEM.
DIMENSION
* PQA
-------
40
ISN 0028
ISN 0029
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0039
ISN 0040
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0046
ISN 0048
ISN 0049
ISN 0050
ISN 0051
ISN 0052
ISN 0054
ISN 0055
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0063
ISN 0064
ISN 0065
ISN 0066
ISN 0067
ISN 0068
ISN 0069
300
320
40r
410
LTMIN=LPRINT
IF (ITM .NE.
-------
41
ISN 0070
ISN 0071
ISN 0073
ISN 0074
ISN 0075
ISN 0077
ISN 0079
ISN 0080
ISN 0081
ISN 0082
ISN 0083
ISN 0085
ISN 0086
ISN 0087
ISN 0088
ISN 0089
ISN 0090
ISN 0092
ISN 0093
ISN 0094
ISN 0096
ISN 0097
ISN 0098
ISN 0099
ISN 0100
ISN 0102
ISN 0103
ISN 0104
ISN 0105
ISN 0106
ISN 0108
ISN 0109
ISN 0111
ISN 0112
ISN 0114
ISN 0115
ISN 0116
ISN 0117
ISN 0118
ISN 0119
DO 600 L»1,LM
IF (ZP(L) .GE. Z(KMM GO TO 600
IXP-XPIU+1.001
IYP-YPIU+1.001
... DISCARD POINTS OUTSIDE COMPUTATIONAL REGION.
IF (UXP.LT. l).OR.(IXP.GT.IM) ) GO TO 600
IF UIYP.LT. IJ.OR.UYP.GT.JMl ) GO TO 600
ZPRL-Zf>R(L)n.001
IZP-ZPRL
DZP-ZPRL-IZP
IZPl-IZP+1
IF (IZP .LT. KM) GO TO 510
IZP-KM
IZP1«KM
DZP-0.0
510 CONTINUE
DZK«0.5*OZUZP)
IF (IZP.GT.l) DZK-C.5*(DZ(IZP)+DZ(IZP-1M
DZK1»0.5*(DZ(IZP)+DZ GO TO 550
CPKIXP + l.IYP+ltK)- CPllIXP+liIYP+l,K)+ A*B*DTQ
CPKIXP .IYP-H.K1- CPKIXP iIYP+l,K)+ (1.0-A)*B*DTO
550 CONTINUE
600 CONTINUE
RETURN
DEBUG SUBCHK
END
OOC11860
*OPTIONS IN EFFECT* NAME- MAIN,OPT-02,LINECNT-60,SIZE=OOOOK,
*OPTIONS IN EFFECT* SOURCEiEBCDICfNOLIST,DECK,LOAD,NOMAP,NOEOIT,NOID,NOXREF
*STATISTICS* SOURCE STATEMENTS - 118 .PROGRAM SIZE = 4190
*STATISTICS* NO DIAGNOSTICS GENERATED
00011880
00011890
00011900
00011910
00011930
OC011940
0001195"
00011960
00011970
00011980
00011990
00012000
00012010
00012020
0001203"
00012040
00012050
00012060
00012070
00012080
00012090
00012100
00012110
00012120
00012130
00012140
00012150
00012160
00012170
00012180
00012190
00012200
00012210
00012220
00012230
00012240
00012250
00012260
00012270
00012280 .
00012290
OOC12300
00012310
00012320
00012330
00012340
00012350
-------
42
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAO,NOMAP1NOEDIT,NOID|NOXREF
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0002
0003
0004
0005
0006
0007
0009
0010
0011
0012
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
C
c
C ...
c
c
c
870
880
C
C ***
100
c
c ***
c
600
700
C
9000
C
SUBROUTINE SOUSIN (QB , ZS ,10 , PQB , XP, YP, IP, ZR, IM, JM, LM)
IT READS IN S02 SOURCE FROM AREA AND POINT SOURCES ...
DIMENSION
* QB(IM,JM), ZSIIM.JM) ,ZO(IM,JM)
* ,ZR(LM), PQB(LM), XP(LM), YP(LM), ZP(LM)
COMMON /AADATA/
* IMl.JMl.KMl.JUNIT.KUNITC.KUNITG.KUNITP.KUNITS.KUNITW
* , IYR, I MO, I DAY, IHR, ITM.ITMHR, ITS EC, ITOTHR, ITSTEP, DT, TM.TSEC
* ,LPRINT,LTSTOP,LTSOUS,LTWIND
* ILWRITE(10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,KWINDILCRUN,LCHEM
* ,RAMS(6,25),PARM(10), Al (41 , AK ,HG, HP , HS, OLMIN, DCMIN
* ,PMAX,PMIN,RIB,ZMAX,ZRPQ,ZRISE,QBTOT,PQBTOT,UO,PHIFHZ,HFZ
FORMAT (' *END IN READ SOUSIN* M
FORMAT (• *ERROR IN READ SOUSIN* •)
SEARCH RIGHT RECORD IN UNIT=KUNITS ***
IF (ITM .EQ. 0) REWIND KUNITS
CONTINUE
READ ( KUNITS, END=600, ERR =700) KYR ,KMO, KDAY,KHR
KHR2=KHR-2
IF (IKDAY .NE. IDAY) .OR. (KHR2 .NE. IHR)) GO TO 100
BACKSPACE KUNITS
READ IN TIME, SOURCE, PLUME RISE, TOTAL SOURCE ***
READ (KUNITS, END=700, ERR =600) KYR ,KMO,KDAY ,KHR
£ ,QB,PQB,ZR,QBTOT,PQBTOT
PARM(6)=QBTOT
PARM(7)=PQBTOT
GO TO 9000
WRITE (JUNIT.870)
GO TO 9000
WRITE (JUNIT.880)
RETURN
DEBUG SUBCHK
END
00112361
00012370
00012380
00112390
00012400
00012410
0001242-1
00012430
00012440
10012451
00012460
00012470
00012480
00012490
00012501
00012510
00012520
"001253^
00012540
00012550
^0012560
00012570
00012580
00012590
00012600
00012611
00012620
00012630
00112641
00012650
00012660
00012670
00012680
'10012691
00012^00
00012710
10112721
00012730
00012740
00112751
00012760
00012770
*OPTIONS IN EFFECT* NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
*OPTIONS IN EFFECT* SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP,NOEDIT,NOI0.NOXREF
*STATISTICS* SOURCE STATEMENTS = 22 .PROGRAM SIZE 998
*STATISTICS* NO DIAGNOSTICS GENERATED
****** END op COMPILATION ****** 121K BYTES OF CORF MOT USED
-------
43
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME" MAIN,OPT=02,LINECNT=60, SIZE«=0001K,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN 0005
00012780
ISN 0006
ISN 0007
ISN 0008
ISN 0009
C
c...
C
c
c.
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
SUBROUTINE STABIT (V.ESKY ,IHR, STAB, ITRAT)
. THIS SUBROUTINE ESTIMATES CONTINUOUS STABILITY CLASSES.
DIMENSION W<5),F{5),START(6,5),XI15),X2(5),Y3(5),Y4<5)
DIMENSION ISOLAR124)
DATA
* W/2.0,3.D,5.0,6.0,8.0/, F/2.0,1.0,2.0,1.0,2.O/
* , I SOLAR/1,1,1,1,1,1,1,2, 2,3,4,4,4,3,3,2,2,2,1,1,1,1,1,1/
* ,X1/2.0,2.5,2.5,3.1,3.2/, X2/3.0,3.2,3.2,3.3,3.4/
* ,Y3/4.a,4.0,3.8,3.7,3.6/, Y4/5.1,4.5 ,4.0,3.9,3.7/
* ,START/O.0,0.5,1.3,2.0,2.5,3.2,0.5,1.3,1.5,2.5,3.2,3.4,1.0, 1.5,
* 2.5,3.0,3.3,3.5,5.0,5.0,4.1,3.8,3.6,3.5,6.0,6.0,5.1,4.0,3.8,3.6/
. STAB * CONTINUOUS STABILITY CLASS, NEUTRAL CONDITION IS 3.5
I SKY = CLOUD COVER (-ESKY)
V - AVERAGE WIND SPEED (M/SEC)
W * END VALUES OF WIND SPEED RANGE
F - VALUE OF WIND SPEEO RANGE INTERVAL
INDEXW- INDEX OF WIND SPEED RANGE
ISOLAR= INDEX OF INSOLATION AS TIME OF A DAY, =1 NIGHT TIME
-2 TRANSSTION PERIOD; =3 SLIGHT INSOLATION;
=4 MODERATE INSOLATION; «5 STRONG INSOLATION
(CURRENT VALUE GIVEN IN DATA ARE FOR MONTH OF FEBRUARY)
XI,X2 - STABILITY INDEX OF TRANSITION PERIOD FOR DAY TO NIGHT
Y3.Y4 = SAME AS XI,X2 FOR NIGHT TO DAY
START(INDEXW.IRADN) = STABILITY INDEX FOR NIGHT AMD DAY TIME.
IRADN = INDEX OF SKY CONDITION
=1 STRONG INSOLATION; =2 MODERATE; =3 SLIGHT
-4 CLOUDY NIGHT; =5 CLEAR NIGHT
\nrac ur
K-INDEXW 1 2
W(K)
•DAY £ NI
START(K,N
N=l
N«2
N-3
N=4
N-5
•DAY TO N
XKK)
X2IK)
•NIGHT TO
Y3(K)
2.0
»HT TIME
0.0
0.5
1.0
5.0
6.0
GHT-
r n
.-. . o
DAY'
4.0
Y4(K) : 5.0
3.0
i
0.5
1.3
1.5
5.0
6.0
2.5
3.2
4.0
4.5
inuiut
3
5.0
1.3
1.5
2.5
4.1
5.1
2.5
3.2
3.8
4.0
:a
4
6.0
2.0
2.5
3.0
3.8
4.0
3.1
3.3
3.7
3.9
5
8.0
2.5
3.2
3.3
3.6
3.8
3.2
3.4
3.6
3.7
6
...
3.2
3.4
3.5
3.5
3.6
...
...
...
...
ISKY-ESKY
IH-IHR+1
C *** FIX INDEX OF
DO ICO K»l,5
INDEXW-K
WIND SPEED RANGE ***
00012800
00012810
00012820
00012830
OOP1284"
00012850
00012860
00012870
00012880
00012890
"^012900
00012910
00012920
00012930
00012940
"0012950
00012960
00012970
00^12980
00012990
00013000
OC013010
00013020
non 13^30
00013040
00013050
00013060
00013070
00013080
00013090
00013100
0001311"
00013120
00013130
10^13140
00013150
00013160
00013170
00013180
00013190
00013200
00013210
0001322"
00013230
00013240
00013250
00013260
"0013270
00013280
00013290
0001330"
00013310
00013320
00013330
-------
44
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0010
0011
0013
0014
0015
0016
0017
0018
0019
0021
0022
0023
0024
0025
0027
0028
0029
0031
0033
0034
0035
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0049
0050
0052
0054
0055
0056
0058
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
100
120
***
. . . .
210
• • • •
230
240
250
• • • B
300
320
400
• • • •
#**
• • .
P=V-W(K)
IF (P.LT.0.0) GO TO 120
CONTINUE
INDEXW=6
CONTINUE
FIX INDEX OF SKY CONDITION ***
NHR=ISOLAR(IH)
GO TO (210,400,230,240,250),NHR
INDEX FOR NIGHT TIME SKY CONDITION
IRADN=5
IF (ISKY.GT.4) IRADN=4
GO TO 300
INDEX FOR DAY TIME SKY CONDITION
IRADN=3
GO TO 300
IRADN=2
IF (ISKY.GT.4) IRADN = 3
GO TO 300
IRADN=1
IF (ISKY.GT.3) IRADN=2
IF (ISKY.GT.7) IRADN=3
SET ITRAT=0, CURRENT HOUR IS NOT IN TRANSITION PERIOD.
CONTINUE
ITRAT=0
DAY OR NIGHT TIME STABILITY
IF ( INDEXW.GE.6) GO TO 320
Q=STARTUNOEXW,IRADN)
QP=START(INDEXW+1,IRADN)
P=V-(W(INDEXW)-F
-------
45
ISN 0059
ISN 0060
ISN 0061
ISN 0062
ISN 0063
ISN 0064
ISN 0065
ISN 0066
ISN 0067
ISN 0069
ISN 0070
ISN 0071
ISN 0072
ISN 0073
ISN 0074
ISN 0075
ISN 0076
ISN 0078
ISN 0079
ISN 0010
ISN OOS1
ISN 0012
ISN 0083
ISN 0084
ISN 0085
ISN 0086
ISN 0087
ISN 0088
ISN 0089
ISN 0090
ISN 0091
ISN 0092
ISN 0093
ISN 0094
STAB«Q+D*P/F( 1NOIXW)
GO TO 700
410 D»J.5-Q
STAB«Q+D*P/F( INDEXW)
CO TO 700
C
C ... NIGHT TO DAY
420 CONTINUE
0«AKINltSTA«,Y4( INDEX*))
QP-Y3UNDEXW)
IF (OP.GE.Q) GO TO 430
D-Q-QP
STAB-QP+D*P/F(INOEXW)
GO TO 700
430:D«QP-3.S
STAB»3.5+D*P/FUNOEXW)
GO TO 703
C
C *»* SECOND AND THIRD NOUHS Of TRANSIENT PERIOD ***
440 CONTINUE
IP (IK.LT.12) GO TO 450
C ... PAY TO NIGHT
QoAMAXl(STAB,X2(INO«XWn
QP-Y3UNDEXW)
D-QP-Q
STAB«Q*D*P/FUNDEXW)
GO TO 700
C ... NIGHT TO MY
450 CONTINUE
Q-X2( INDEXW)
QP*AMINl(STABtY3(INOEXH»
D»QP-Q
STAB«Q+D*P/F( INDEXW)
GO TO 700
500 STAB=3.5
C
c.... CURRENT HOUR is IN TRANSITION PERioot SET (ITRAT.NE.O
700 CONTINUE
ITRAT-99
C
900 CONTINUE
RETURN
CC CSPUG IN^T
C DEBMi- SUBwHK
EfvD
+OPTIONS IN EFFECT*
*OPTION* IN EFFECT*
"•'TATIS" ?rs* SOURfF STA i
1 iSTICS* NO DlAi. .OSTU
.:,,„.«,* eND OF • COMPIHT ON * *«
>rN,OPT«02tLINECNT"60«SIZE-OOOOK,
^CO!C,MOLIST,DECKf LOADf NOHAP, NOEDIT.NOID.NOXRFF
..NTS « 93 .PROGRAM SIZE = 1372
0001392"
00013930
00013940
0001395 f
OOC13960
00013970
0^013981
00013990
00014000
00014010
00014020
00^14030
00014040
00014050
OOC1406^
00014070
OOC14080
00014090
00014100
00014110
00014120
00014130
OPP14140
00014150
00014160
OOP14170
00014180
OP014190
00014200
00014210
00014220
00014230
00014240
00014250
00014260
00014270
00014280
00014290
00014300
00014310
00014320
0001433"
00014340
00014350
00014360
ERATED
113K BYTES OF CORE MOT USED
-------
46
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME = MAI N, OPT=02 ,LI NECNT = 60, S IZE=000"K ,
SOURCE,EBCDIC.NOL1ST, DECK,LOAD,NONAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0005
0006
0007
0008
0009
0010
0011
0012
0014
0015
0016
0017
0019
0020
0021
0023
0024
0025
0026
0027
0029
0030
0031
0032
0034
0035
0036
0037
0038
0039
C
C
C
C
SUBROUTINE STNCON (CC,IOBS.ICAL,KOBS,KCAL,ITOBS,NS,NSX
* ,TM, JM,XS,YS,JXS,JYS)
THIS SUBROUTINE COMPUTES CONCENTRATION VALUES AT RAMS
STATION. IT ALSO COMPUTES SPATIAL AND TIME AVERAGE FOR
COMPUTED AND OBSERVED S02 CONCENTRATIONS.
00000010
00000020
00000030
DIMENSION
CCUM,JM)fIOBS(NSXJ,ICAL(NSX),KOBS
-------
UN 0041
UN 0042
ISN 0043
IS» 0044
ISN 004S
UN 004*
UN 0047
UN 0041
UN 0049
UN 0051
ISN 0052
ISN 0053
ISN- 0054
ISN 0055
ISN 0056
ISN 0057
UN 0059
ISN 0060
ISN 0061
ISN 0062
ISN .0063
ISN 0064
IOBS(NSX)-IOBS(NSX)+IOBS(L)
iCAL(NSX)-ICAL(NSX)+ICAL/ITOBSU)
KCAL(L)«KCAL(L)/ITOBS(L)
300 CONTINUE
C
RETURN
C DEBUG SUBCHK
END
*01»TIONS IN EFFECT*
*OPTIQNS IN EFFECT*
^'STATISTICS*
^STATISTICS*
NAME- MAIN,OPT-02,LINECNT»60,SIZE-OOOOK,
SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP.NOEDIT.NOID,NOXREF
SOURCE STATEMENTS « 63 .PR3GRAM SUE « 1696
NO DIAGNOSTICS GENERATED
00000580
OOOOO590
OOP00610
00003*20
00000*30
ccro**o
OOO 00690
00000700
00000710
00000720
00000740
00000^50
OOfl 00770
00000780
00001791
00000800
00000810
00000820
00000830
"000184"
•»•*** END OF COMPILATION ******
113K BYTES OF CORE NOT USFD
-------
48
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MA IN,OPT=02,LINECNT=60,SIZE = OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN
ISN
0003
0004
ISN 0005
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0006
0007
0008
0009
0010
0011
0012
0014
0015
0016
0018
0019
0020
0022
0023
0024
0026
0027
0028
SUBROUTINE TIMEX INMONDY)
c
C.... THIS ROUTINE FIX INDICES OF SIMULATION AND REAL TIME.
C
DIMENSION NMONDYI12)
DATA NDAYHR/24/.NHRSEC/3600/
C
COMMON /AADATA/
* IM1,JM1,KM1,JUNIT,KUNITC,KUNITG,KUNITP,KUNITS,KUNITW
* iIYR,IMO,IDAY,IHR,ITM,ITMHR,ITSEC,ITOTHR,ITSTEP,DT,TM,TSEC
* ,LPRINT,LTSTOP,LTSOUS,LTWIND
* ,LWRITE(10),LSOUS(Z),LTOP,LWTOP,LPQ,LWW,LWIND,KWIND,LCRUN,LCHEM
* ,RAMS(6,25),PARM<10),A1<4),AK,HG,HPIHS1OLMIN,DCMIN
* ,PMAX,PMIN,RIB,ZMAX,ZRPQ,ZRISE,QBTOT,PQBTOT.U",PHIFHZ,HFZ
C
C *** FIX SIMULATION TIME INDICIES ***
C
TM=TM+DT
ITM=TM
ITSTEP=ITSTEP+1
ITMHR=ITM/NHRSEC*NHRSEC
TSEC=TM-ITMHR
ITSEC=TSEC
ISN 0029
ISN 0030
*** FIX INDIC'IES OF MONTH, DAY AND HOUR ***
IF (ITM .NE. ITMHR) GO TO ilO
1TOTHR=ITOTHR+1
IHR=IHR + 1
IF ( IHR .LT. NDAYHR) GO TO 110
IDAY= IDAY+1
IHR = 0
IF ( IDAY .LE. NMONDY(IMOl) GO TO 110
IMO=IMO+1
IDAY=1
IF ( IMO .LE. 12) GO TO 110
IYR = IYR + 1
IHO=1
110 CONTINUE
RETURN
DEBUG SUBCHK
END
11001851
00000860
00000870
00010880
00000890
00000900
00000910
00000920
00000930
00000940
00000950
0000° 961
00000970
00000980
00110991
00001000
00001010
00001020
00001030
00001040
00001050
00001060
00011070
00001080
00001090
00001101
00001110
00001120
00001130
00001140
00001150
00001160
00001170
00011181
00001190
00001200
0000121"
00001220
00001230
00001240
00001250
00001260
OC001270
00001280
• OPTIONS IN EFFECT*
NAME =
MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
• OPTIONS IN EFFECT* SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP.NOEDIT,NOID ,NOXREF
'STATISTICS* SOURCE STATEMENTS = 29 .PROGRAM SIZE 514
•STATISTICS* NO DIAGNOSTICS GENERATED
****** END OF COMPILATION ******
121K BYTES OF CORE NOT USED
-------
49
LEVEL 21.6 ( MAY 72 }
OS/360 FORTRAN H
ISN 0002
COMPILER OPTIONS - NAME- MAIN,OPT-02,LINECNT-*OtSIZE-OOOOK,
SOURCEtEBCDICfNOLIST.DECKiLOAD.NOMAPtNOEDIT.NOID.NOXREF
SUBROUTINE UVFLUX ( CP1, CfUiUZF,DX,DYtRDX,RDY,Z.EK.FKt
* IM, J«,K«,IMJM,IJKM,LX,LY,IJKN)
ISN 0003
ISN 0004
ISN 0005
ISN 0006
ISN 0007
ISN 0008
ISN 0009
ISN 0010
ISN 0011
ISN 0012
ISN 0013
ISN 0014
ISN 0015
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0020
ISN 0021
ISN 0022
ISN 0024
ISN 0025
ISN 0024
ISN 0027
ISN 0028
ISN 0029
ISN 0030
THIS SUBROUTINE COMPUTES THE HORIZONTAL AOVECTION TERMS OF
CONCENTRATION EQUATION.
THIS PROGRAM CAN BE USED FOR X AND Y ADVECTION BY INTERCHANGING
VARIABLES ARGUMENTS IN CALL STATEMENT.
THE SECOND ORDER CENTRAL FINITE DIFFERENCE SCHEME IS USED.
THE 3-D VARIABLE A(I,J,K) IS REPRESENTED BY VECTOR A(IJK).
DIMENSION
* CPKIJKM)»C(IJKM),U(IJKN),UZF(KM»
* ,DX(IM),DY(JM),RDX(IH),RDY«JM),Z(KM)
* ,EM1M) ,FMIM),DTDXI140)
COMMON /AADATA/
+ IMl,JMl,KMl,jUNIT>KUNITCfKUNITGtKUNtTP,t
-------
50
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0036
ISN 0039
ISN 0040
ISN 0041
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0046
ISN 0047
ISN 0049
ISN 0051
ISN 0053
ISN 0054
ISN 0055
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0062
ISN 0063
ISN 0064
ISN 0065
ISN 0066
ISN 0067
ISN 0069
ISN 0071
ISN 0072
ISN 0074
ISN 0075
ISN 0076
ISN 0077
ISN 0078
ISN 0080
ISN 0081
ISN 0082
ISN 0083
ISN 0084
ISN 0086
C
c
C
c....
c — .
Ill
150
200
C
C ***
C
C
320
C
ILX= ILX+ LX
IJ= 1+ ILX+JLY
UK = IJ + KK
I JKV = U + KKV
ALF= DTDX*(U(UKV)+U< IJKV+LX))
ALF= DTDXI(I)*U(IJKV)*UZF(K)
AF1= ALF
A3= AF1*AF1
CIJK= C( UK)
CUK1= CUJK+LX)
CPIJK =CP1(UK)
CPIJK1=CP1(UK+LX)
Tl= CIJK+CIJK1
T3= CIJK-CUK1
UF IS FLUX FROM ONE GRID POINT TO ANOTHER.
UF=AF1*T1+A3*T3
CCIJK =CPIJK -UF*EK(I)
CCIJK1=CPIJK1+UF*FK(I)
CHECK TOTAL FLUX IS NOT EXCEED THE MASS IN UPWIND GRID
CELL. IF EXCEEDED, READJUST THE FLUX TO PREVENT THE
VALUES OF C TO BECOME NEGATIVE DUE TO TRUNCATION ERROR.
IF ((CCIJK .GE. 0.0) .AND. (CCUK1 .GE. 0.01) GO TO lie
IF ( CCIJK .LT. 0.) UF=CPIJK/EK(I)
IF ( CCUK1 .LT. 0.0) UF = -CPI JK1/FKU )
CCUK =CPIJK -UF*EK(I)
CCUK1 = CPUK1+UF*FK(I)
CPHI JK) = CCUK
CP1(IJK+LX)=CCIJK1
CONTINUE
CONTINUE
PROCESS INFLOW AND OUTFLOW BOUNDARY GRID POINTS ***
DO 4CO 1= 1, IM, IM11
ILX= (I-1)*LX
JLY= -LY
DO 350 J = 1, JM
JLY= JLY+ LY
IJ = 1+ ILX+JLY
UK = IJ + KK
UKV=IJK-IMJM
IF ( K .GT. KN1) UKV=I J+KKVMAX
IF ( I .EQ. IM) GO TO 320
ALF= DTDX*(U(IJKV)+U(IJKV+LX))
ALF=DTDXI(I)*U(IJKV)*UZF(K)
IF ( ALF .GT. 0.0 ) GO TO 330
CIJK=C(IJK)
CIJK1=C( UK + LX)
T3=CIJK-CIJK1
UF= ALF*T3
IF (CIJK1 .LT. UF) UF=CIJK1
CP1(IJK)= CIJK+UF
GO TO 330
CONTINUE
ALF= DTDX*(U(IJKV1+UIIJKV-LX))
ALF = DTDXI ( I )*U(UKV)*UZF(K)
IF ( ALF .LT. 0.0 ) GO TO 33J
CIJK=C( UK)
00001850
00001860
00001870
00001880
00001900
00001910
0000192"
00001930
00001940
00001950
00001960
00001980
00001990
OOI~'C2"0"
00002010
00002020
00002030
0000204"
000"2"5"
00002060
00002070
0000208"
00002090
00002100
00002110
00002120
0000213"
OOC02140
00002150
00002160
00002170
00002180
0"00219"
00002200
00072210
000"222"
OC002230
00002240
00002250
00002260
0"00227"
00002280
00002290
000"230"
00002310
00002320
00^0233"
00002340
00002350
00002360
00002370
"000238"
00002390
00002400
0000241"
00002420
-------
51
ISN 0087 CIJK1-CUJK-LX)
ISN 00*8 T3-CIJK1-CIJK
ISN 0089 UF- ALF*T3
ISN 0090 IF (CIJK1 .LT. UF) UF-CIJK1
C OUTFLOW BOUNDRY .FIRST ORDER UPSTREAM SCHEME IS USED
C NOTE THAT CIJK IS OLD TIME C ...
ISN 0092 CPKIJK)- CIJK+UF
ISN 0093 330 CONTINUE
ISN 0094 IF ( CPKIJK) .LT. 0.0) CPllIJK)-0.0
ISN 0096 350 CONTINUE
ISN 0097 400 CONTINUE
ISN 0098
C
ISN 0099
C
ISN 0100
*OPTIONS IN EFFECT*
•OPTIONS IN EFFECT*
500 CONTINUE
RETURN
DEBUG SUBCHK
END
00002430
00002440
"00^245"
00002460
00002470
00002480
00002490
000025P"
00002510
00002520
OPP02530
00002540
00002550
OOOP256P
00002570
00002580
PPP1259"
NAME- MAIN,OPT=02,LINECNT»60,SIZE=OOOOK,
SOURCE,EBCDIC.NOL1ST,DECK.LDAD.NOMAP,NOEDIT.NOID.NOXREF
•STATISTICS* SOURCE STATEMENTS - 99 ,PROGRAM SIZE « 2228
•STATISTICS* NO DIAGNOSTICS GENERATED
****** END OF COMPILATION ****** 1P9K BYTES OF CORE NOT USED
-------
52
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MA IN,OPT = 02,LINECNT=60,SIZE = OOOOK,
SOURCE,EBCDIC,NOL1ST .DECK,LOAD,NOMAP.NOEDIT,NO I0,NOXREF
ISN 0002
ISN 0003
ISN 0004
C
C
C
C....
C
C
SUBROUTINE UVINTP (UU,VV,IN,JN,U,V,IM,JM,DX,DY,DELX)
THIS ROUTINE OBTAINS THE SURFACE WIND FIELD AT NEMERICAL
GRIDS BY INTERPOLATING ANALYZED FIELD AT WIND GRIDS.
THE INTERPOLATION SCHEME IS BI-LINEAR.
DELX - DIMENSION OF WIND GRID.
DIMENSION UU(IN,JN),VV(IN,JN),U(IM,JM),V(IM,JM)
£ ,DX(IM),DY(JM)
IF ((IM.LT.IN1.0R.(JM.LT.JN)) RETURN
DELXI=0.001/DELX
YJ=-DYl11*0.5
DO 100 J=1,JM
YJ=YJ+DY(J)
YW=YJ*DELXI+1.0001
JW=YW
Q=YW-JW
01=1.-Q
XI=-DX(1)*0.5
DO ICO 1=1,IM
XI = X H-D X ( I )
XW = XI*DELXI + 1.0001
IW=XW
P=XW-IW
P1=1.-P
D1=P1*Q1
D2 = P*01
D3=P1* Q
04= P* Q
U( I,J ) = D1*UU(IW,JW)+D2*UU(IW+1,JW)+D3*UU(IW,JW+1H-D4*UU(IW+1,JW
VII , J)=D1*VV
-------
53
LEVEL 21.* ( MAY 72 )
OS/360 FORTRAN H
COMPILER OmONS - NAME- MAIN,OPT»02,LINECNT-60, SIZE-000"K,
SOURCE,E»CDIC,NOL1ST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
C
ISN 0002 SUSROUTINE UVZF (U,V,U1,V1,IUF,VZF,WZF,Z,IM,JM.KM,KN.LX)
C
C.... THIS SUSROUTINE COMPUTES VERTICAL WIND PROFILE.
ISN 0003
ISN 000%
ISN 0005
DIMENSION U(IM,JM,KN),V( IM, JM.KN) ,U1 MM, J«) , Vl< IM, JM )
DIMENSION Z{KM),UZF(KM),VZF( KM),WZF(KM)
,KUNITS,KUNITW
»,ITSTEP,DT,TM,TSEC
COMMON /AADATA/
I Ml, JM1,KM1,JUNIT,KUNITC,KUNITG,KUNITP,K
,IYR,IMO.IDAY,IHR,ITM,ITNHR,ITSEC,ITOTHR,. , - ---
,LPRINT,LTSTOP,LTSOUS,LTWIND
.LWRITEClOl.LSOUSm.LTOP.LWTOP.LPQ.LWW.LWIND.KWIND.LCPUN.LCHEH
,RAMS(*,25),PARMUOI,A1(4),AK,HG,HP,HS,OLMIN,DCW!N
.PMAX.PMIN.RIB.ZPWX.ZRPQ.ZRISE.OBTOT.PQSTOT.UO.PHIFWZ.HFZ
ISN 0006
ISN 0007
ISN 0001
ISN 0009
ISN 0011
ISN 0012
ISN 0014
ISN 0015
ISN 0017
ISN 0019
ISN 0020
ISN 0022
ISN 0024
ISN 0026
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN 0033
ISN 0034
ISN 0035
ISN 003*
ISN 0037
ISN 0039
ISN 0040
ISN 0041
ISN 0042
ISN 0043
ISN 0045
C
C
C
C
C.... COMPUTE WIND POWER LAW CONSTANT AND WIND ANGLE CHANGE.
UVP-PARM(l)
THETAP-PARMI2)
P-PMIN
IF UUVP.LE.0.5I.OR. (UVP.SE.30. ) ) GO TO 10
P»ALOG^^ »_—___ L. H 1 Pi U™ i. •"•• ^^-"— — ^^——.— ^^^-— — ^^— ^™-«».
C.... LWIND-1, ALL UPPER WIND ABOVE HEIGHT HP ARE SAME AS OBSERED
IOC- CONTINUE
AHPZS-l.O/ALOGI HP/MS)
DO 190 K»2,KN
ZK»Z(K+1)
IF (ZK.GE.HP) ZK»HP
DO 190 J«1,JM
DO 190 I-l.IM
UK«U1(I ,J)
VK-VKI , J)
IF( LX .EQ. 1) GO TO 110
UK-VKIrJ)
VK-UKI ,J)
110 CONTINUE
C
CALL WINDER ( UK, VK ,UV, THETA ,1 )
IF ( UV .EQ. 0.0) GO TO 130
IF { UVP .LE. UV) GO TO 150
00003000
00003010
00003021
00003030
00003040
0000305"
00003060
00003070
00003080
00003090
000031011
00003110
00003120
OOPO313O
00003140
00003150
00003140
00003170
00003180
00003190
00003200
00003220
00003230
0100324'1'
00003250
00003260
00003270
00003280
00003290
00003300
00003310
00003330
00003340
0000335n
000^3360
00003370
0000338"
00003390
00003400
00003410
00003420
00003430
00003440
00003450
000^346"
00003470
00003480
00003490
00003500
00003510
00003520
00003530
OOOP3540
-------
54
ISN 0047
ISN 0048
ISN 0049
ISN 0050
ISN 0052
ISN 0053
ISN 0054
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0062
ISN 0063
ISN 0064
ISN 0065
ISN 0066
ISN 0067
ISN 0068
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0069
0070
0072
0073
0074
0076
0077
0078
0079
0080
0081
0082
0083
0084
0085
0086
0087
0088
ISN 0089
ISN 0090
ISN 0091
ISN 0092
ISN 0093
ISN 0094
ISN 0095
ISN 0096
P ALOGI UVP/UV )*AHPZS
UVZ = UV*(ZK/HS)**P
DTHETA= THETAP- THETA
AVOID DTHET GT 180. DEG
IF ( ABS (DTHETA) .GT. 180.) DTHETA = DTHETA-SIGN (1. , DTHETA ) *360.
THETAZ= THETAP-(HP-ZK)/(HP- HS>* DTHETA
WINDER (UK,VK,UVZ,THETAZ, 2)
1) GO TO 150
120 CALL
IF ( LX .EQ
UX= UK
UK= VK
VK= UX
GO TO 150
.... IF UV=0., PARABOLIC PROFILE IS ASSUMED
130 ZPS= (ZK-HS)/(HP-HS)
UVZ= UVP*(1.0- ZPS*ZPS)
THETAZ= THETAP
GO TO 120
150 CONTINUE
U(I,J,K)=UK
V(I,J,K)=VK
190 CONTINUE
GO TO 400
LWIND=2
LWIND=2 » UPPER WIND HAS SAME DIRECTION AS SURFACE WIND.
THE WIND SPEED ARE COMPUTED BY POWER LOW.
200 CONTINUE
IF(KN .GT. 1) GO TO 230
DO 220 K=2,KM
ZK=Z(K)
IF(ZK .GT. HP) ZK=HP
UZF(K)=(ZK/HS)**P
220 CONTINUE
GO TO 400
230 CONTINUE
DO 290 K=2,KN
ZK=Z(K+1)
ZKP=(ZK/HS)**P
DO 290 J=1,JM
DO 290 1=1,IM
U(I,J,K)=U1(I,J)*ZKP
V(I,J,K)=V1(I,J)*ZKP
290 CONTINUE
GO TO 400
LWIND=3
... LWIND=3, UPPER WIND HAS EQUAL ANGLE CHANGE AS OBSERVED DATA.
300 CONTINUE
00 390 K=2,KN
ZK=Z(K+1)
ZKP = (ZK/HS)**P
ZKTHE=(ZK-HS)X(HP-HS)
DO 390 J=1,JM
DO 390 1=1,IM
U1IJ=U1(I,J)
0000355n
00003560
00003570
00003580
00003590
00003600
00003610
00003620
00003630
00003640
00003650
00003660
00003670
00003680
00003690
00003^00
00003710
000^3720
00003730
00003740
00003750
00003760
000^377"
00003780
00003790
000038^0
00003810
00003820
00003830
00003840
00003850
00003860
00003870
00003880
00003890
00003900
0"003910
00003920
00003930
000^3941
00003950
00003960
00003970
00003980
00004000
00004010
OOOO4020
00004030
00004040
OOO040?0
00004060
00004070
000040PO
00004090
00004100
00004110
00004120
-------
55
ISN 0097
ISN 009«
ISN 0099
ISN 0100
ISN 0101
ISN 0102
ISN 0103
ISN 0104
ISN 0105
viu«vin,j)
00004130
CALL HINDER
UVZK-UV1*ZKP
THETAZ- THETA1+ ZKTHE*DTHETA
(U1IJ,V1IJ,UV1,TMETA1,1)
CALL HINDER
UU.J.K)- UK
V(ItJtK-)' VK
390 CONTINUE
400 CONTINUE
(UK,VK,UVZK,THETAZ,2)
ISN 0106
C
ISN 0107
*OPTIONS IN EFFECT*
*QPTIONS IN EFFECT*
RETURN
DEBUG SUBCHK
END
00004150
00004160
00004180
00004190
"P004200
00004210
00004220
00004230
00004240
00004250
00004260
00004270
E= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP,NOEDIT.NOIOtNOXREF
*STATISTICS* SOURCE STATEMENTS - 106 .PROGRAM SIZE = 2706
*STATISTICS* NO DIAGNOSTICS GENERATED
****** END OF COMPILATION ****** 97K BYTES OF CORE NOT USED
-------
56
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN, OPT =02,L I NECNT=60, SI ZE = OOOriK,
SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
C
ISN 0002 SUBROUTINE WINDER ( U, V, UV, THETA, I)
C
C.... THIS SUBROUTINE CONVERTS WIND VECTOR TO COMPONENT OR
C WIND COMPONENTS TO VECTOR, U=E-W WIND,V=N-S WIND,
C UV=WIND SPEED, THETA = WIND DIRECTION.IN DEG....
C.... 1=1 CONVERT U,V TO UV, THETA IN DEG
C.... 1=2 CONVERT UV,THETA TO U,V
C
ISN 0003 DATA PAIDEG 757.2957767
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0004
0006
0007
0009
0010
0012
0013
0014
0015
0016
0017
0018
0019
L/ • « * *
c
c
20
C
100
c
c
PAIDEG=180./3.1416
IF ( I .GT. 1) GO TO 100
UV= SORT (U*U+V*V)
IF (UV .EQ. 0.0) GO TO 20
THETA = ATAN2 (-U.-V ) *P AIDES
IF (THETA .LT. 0.0) THETA= THETA +360.0
RETURN
THETA=0.0
RETURN
ATHETA= THETA/PAIDEG
U= -UV*SIN(ATHETA)
V= -UV*COS(ATHETA)
RETURN
DEBUG SUBCHK
END
"•OPTIONS IN EFFECT*
"•OPTIONS IN EFFECT*
"STATISTICS*
*STATISTICS*
NAME= MAIN,OPT=02,LINECNT=6P,SIZE=noOOK,
SOUPCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP,NOE01T.NOID,NOXREF
SOURCE STATEMENTS = 18 .PROGRAM SIZE = 564
NO DIAGNOSTICS GENERATED
00004280
00004300
00004310
00004320
00004330
00004350
00004360
0000437"*
00004380
000043^0
00004410
00004420
00004430
00004440
0000445"
00004460
00004470
00^0448^
00004490
00004500
0000451^
00004520
00004530
000"454r'
00004550
00004560
END OF COMPILATION ******
125K BYTES OF COPE NOT USED
-------
57
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT*02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOLIST,DECK,LOADiNOMAP,NOEDIT,MOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN 0005
ISN 0007
ISN 0009
ISN 0010
ISN 0011
ISN 0012
ISN 0013
ISN 0014
ISN 0015
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0021
ISN 0023
ISN 0024
ISN 0025
ISN 0026
ISN 0027
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
SUBROUTINE WINDGR (Ul,VI,UU,VV,NEAR.USTN,VSTN,XSUTM,YSUTM
£ ,IUTM,JUTM,DX,DY,IM,JM,IN,JN,NS)
. THIS ROUTINE GENERATES WHOLE WIND FIELD FROM WIND DATA MEASURED
AT THE STATIONS.
DIMENSION U1(IM,JM),V1(IM,JMJ,UU(IN,JN),VV(IN,JN),NEAR(IN,JN)
E .USTN(NS),VSTN(NS),XSUTM(NS),YSUTM(NS)
£ ,IUTM(IM) ,JUTM( JM),DX( IMl.DYUM)
COMMON /AADATA/
* IM1,JM1,KM1,JUNIT,KUNITC,KUNITG,KUNITP,K
* ,IYR,IMO,IDAYtIHRiITM,ITMHRtITSEC.ITOTHRfi
* ,LPRINT,LTSTOP,LTSOUS,LTWIND
* ,LWRITE(10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,K
* ,RAMS(6,25),PARM(10),A1(4),AK,HG,HP,HStOLMIN,DC
* ,PMAX,PMIN,RIB,ZMAX,ZRPQ,ZRISE,QBTOT,PQBTOT,UO,
IF {(IN.GT.IM).OR.(JN.GT.JM)] RETURN
KUNITS.KUNITW
ITSTEP,OT,TM,TSEC
KWIND.LCRUN.LCHEM
DCMIN
PHIFHZ,HFZ
*** KWIND - 3 UNIFORMED WIND FIELD.
IF {KWIND.NE.3) GO TO 200
UVS'PARM(l)
THS=PARM(2)
CALL
WINDER
(USTA,VSTA,UVS,THS,2)
DO 100 J=1,JM
DO 100 1=1,IM
UllltJ)=USTA
V1(I,J)=VSTA
100 CONTINUE
RETURN
*** KWIND = 4 VARIABLE WIND FIELD. ***
.... WEIGHTED INTERPOLATION SCHEME IS USED.
200 CONTINUE
IF (KWIND.NE.4) RETURN
.... SPECIFY WIND GRID, RADIUS OF INFLUENCE' AND FIND A NEAREST
STATION TO WIND GRID (I,J)
IF (ITM.NE.O) GO TO 300
IDELX-CIUTM(IM)-IUTM(l)+O.OUl*DX(IM))/(IN-11+0.1
DELX=IDELX
IDEl Y*( JUTMUM)-JUTM(1)+0.001*DY(JM) 1
DELY=IDELY
IF (DELX.LT.DELY) DELX=DELY
RTEST=(2.*DELX)**2
IRAD-2
DO 250 J=1,JN
DYB-(J-1)*DELX*JUTM(1)
DO 250 I«1,IN
DXB«( 1-1 )*DELX-i-IUTM{ 1)
SDIST-1200.
DO 230 K-l.NS
00004570
00004580
00004590
00004600
00004610
00004620
00004630
00004640
00004650
00004660
00004670
00004680
OP004690
00004700
00004710
00004720
00004730
00004740
00004750
00004760
000047™
00004780
00004790
00004800
00004810
00004820
00004830
00004840
00004850
00004860
00004870
00004880
00004890
00004900
00004920
00004930
00004940
00004950
00004960
00004970
0000498C
00004990
00005000
00005010
00015020
00005030
00005040
00005050
00005060
00005070
00005080
00005090
0000510"
00005110
00005120
-------
58
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0037
0038
0039
0040
0042
0043
0044
0045
0046
0047
0048
0049
005C
0051
0052
0053
0055
0056
0057
0058
0059
0060
0061
0062
0064
0065
0066
0067
0068
0069
0070
0071
0073
0075
0076
0077
0078
0079
0080
0081
230
250
C
C ***
300
C
C
310
C
C ***
350
380
400
C
C ***
C
DDX=DXB-XSUTM(K)
DDY=DYB-YSUTM(K)
DISTR=DDX*DDX+DDY*DDY
IF (OISTR.GT.SDIST) GO TO 230
SDTST=DISTR
KK=K
CONTINUE
NEARU, J)=KK
CONTINUE
COMPUTE U AND V FROM OBSERVED UBAR AND THETA AT STATION
CONTINUE
DO 310 K=1,NS
UVS=RAMS(1,K)
THS=RAMS(2,K)
USTN(K)=99.9
VSTN(K)=99.9
IF { (UVS.GE.50.) .OR. (THS.GT.360. ) ) GO TO 319
CALL WINDER ( USTA, VSTA . UVS , THS ,2 )
USTN(K)=USTA
VSTN(K)=VSTA
CONTINUE
OBTAIN INITIAL GUESS FIELD ***
DO 4CO J=1,JN
DO 400 I=1,IN
KK=NEAR(I,J)
IF (USTN(KK) .LT.50.) GO TO 380
DXB = (I-1)*DELX-HUTM< 1)
DYB=( J-l )*DELX+JUTM<1)
SOIST=120o.
DO 350 K=1,NS
DDX=DXB-XSUTM(K)
DDY=DYB-YSUTM(K)
DISTR=DDX*DDX+DDY*DDY
IF (DISTR.GT.SOIST) GO TO 35J
IF (USTN(K) .GT.50. ) GO TO 350
SDIST=DISTR
KK=K
CONTINUE
CONTINUE
UKI, J)=USTN(KK)
Vl( I, J)=VSTN(KK)
CONTINUE
ITERATION ***
ISN 0082
ISN 0083
ISN 0084
ISN 0085
ISN 0086
ISN 0087
ISN 0088
ISN 0089
ISN 0090
DO 420 J=1,JN
DO 420 1=1,IN
D=0.
USUM=0.
VSUM=0.
KIS=MAXO((I-IRAD), 1)
KIF=MINO( U+IRAD) ,IN)
KJS=MAXO((J-IRAD), 1)
KJF=MINO((J+IRAD),JN)
00005130
090O514O
00005150
00005160
00005170
00005180
00005190
00005200
00005210
00005220
00005230
00005240
00005250
00005260
00005270
OOn052SO
00005290
00005300
00005310
00005320
00005330
"0005340
00005350
00005360
00005370
00005380
00005390
00005400
00005410
OOPP5420
00005430
00005440
00005450
00005460
00005470
00005480
00005490
00005500
00005510
00005520
000055^0
00005540
00005550
00005560
00005570
00005580
00005590
00005600
0000561^
00005620
00005630
00005640
00005650
00005660
00005670
00005680
000"5690
00005700
-------
59
ISN 0091 00 410 KJ-KJS.KJF
ISN 0092 RY*(J-KJ)*(J-KJ)
ISN 0093 DO 410 KI-KIS.KIF
ISN 0094 RX«(1-KI»*(I-KI)
ISN 0095 RDIST«RX+RY
ISN 0096 IF URDIST.GT.RTEST).OR.(RDIST.LE.O.Ol)) GO TO 41^
ISN 0098 OISTSQ-l./RDIST
ISN 0099 USUM»USUM+U1(KI,KJ)*DISTSQ
ISN 0100 VSUM"VSUM-»VHK!,KJ)*OISTSQ
ISN 01C1 D-D+DISTSQ
ISN 0102 410 CONTINUE
ISN 0103 UU(ItJ)-USUM/0
ISN 0104 VV(I,J)-VSUM/D
ISN 0105 420 CONTINUE
C
C *** OBTAIN WIND AT NUMERICAL GRIDS FROM UU AND VV
C*... LINEAR INTERPOLATION IS USED.
C
ISN 0106 CALL UVINTP (UU,VV,INiJN.U1tVItIM,JM.DX,DY,DELX)
C
ISN 0107 RETURN
C DEBUG SUBCHK
CC DEBUG INIT (UU,VV.U1,Vl.USTN,VSTN)
E.ND
ISN 0108
•OPTIONS IN EFFECT*
*OPTIONS IN EFFECT*
•STATISTICS*
• STATISTICS*
NAME« MAIN,OPT-02,LINECNT«60,SIZE=OOOOK,
SOURCE,EBCDIC,NOL1ST,DECK.LOAD,NOMAP.NOEDIT,NOTD.NOXREF
SOURCE STATEMENTS - 107 .PROGRAM SIZE = 3452
NO- DIAGNOSTICS GENERATED
00005710
00005720
00005730
00005740
00005750
00005770
00005780
0000579C
00005800
00015810
00005820
00005830
OH005840
00005850
00005860
00005870
00005880
00005P90
00005900
00005910
00005920
00005930
00005940
****** END OF COMPILATION ******
97K BYTES OF CORE NOT USED
-------
60
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS NAME= MAIN,OPT=02,LINECNT=6C,SIZE=300rK,
SOURCE, EBCDIC, NOL 1ST, DECK, LO AD, NOMA P, NOF.DIT , N01 D, NOXREF
C
ISN 0002 SUBROUTINE WINDIN ( U,V,W,U1,V1,UU,VV,NEAR,USTN,VSTN,UZF,VZF,WZF
* ,XSUTM,YSUTM,IUTM,JUTM.Z,DX,DY,DZ
* ,IM,JM,KM,IMJM,IJKN,IN,JN,KN,IS,NS)
ISN 0003
ISN 0004
ISN
ISN
ISN
0005
0006
0007
ISN 0008
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0009
0010
0012
0013
001*
0015
0017
0018
0019
0021
0022
. THIS ROUTINE READS IN SURFACE WIND FIELD AND RAMS DATA.
IT CALLS ROUTINE UVZF AND WnlZF TO CONSTRUCT 3-D WIND (U,V,W)
. KWIND = 1 : INPUT OBJECTIVE ANALYZED WIND UKIM.JM) £ V1UM.JM);
2 : INPUT SUBJECTIVE ANALYZED WIND UUUN.JN) f, VVUNiJN);
3 ; INPUT RAMS DATA AND GENERATE UNIFORM WIND FIELD;
4 : INPUT RAMS DATA AND GENERATE VARIABLE WIND FIELD.
. RAMS(I.J) = DATA FROM RAMS STATION. J IS STATION INDEX.
1=1, WIND SPEED; =2, WIND DIRECTION; =3, 1ST LEVEL TEMP,
=4, 2ND LEVEL TEMP; =5, S02 CONC.; =6, RADIATION.
DIMENSION
* U(IH,JM,KN), V(IM,JM,KN) ,W(IM,JM,KN)
* ,U1(IM.JM),V1(IM,JM),DX(JM),DY(JM),DZ(KM),Z(KM)
* ,UU(IN,JN),VV(IN,JN),IS(NS),UZF(KM),VZF(KM),WZF(KM)
* ,NEAR!IN,JN).XSUTM(NS),YSUTM(NS),IUTM(IM),JUTM(JM)
* ,USTN(NS),VSTN(NS)
COMMON /AADATA/
IM1,JM1,KM1,JUNIT,KUNITC,KUNITG,KUNITP,KUNITS,KUNITW
,IYP,IMO,IDAY,IHR,ITM,ITMHR,ITS EC,ITOTHR,ITSTEP,DT,TM,TSEC
,LPRI NT,LTSTOP,LTSOUS,LTWIi\ID
00005950
00005960
00005970
00005980
00005990
00006000
00006020
00006030
OOOO&04O
00006050
00006060
00006070
00006080
O0006090
00006100
00006110
* ,LPRI NT,LTSTOP,LTSOUS,LTWIi\ID
* ,LWRITE(10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,KWIND,LCRUN,LCHEM
* ,RAMS(6,25),PARM(10),Al(4) , AK,HG,HP,HS,OLMIN,DCMI N
* ,PMAX,PMIN,RIB,ZMAX,ZRPQ,ZRISE,QBTOT,PQBTOT,UO,PHIFHZ,HFZ
800 FORMAT (4I3/,(3(IX,F3.1,F3.0,2F4.1,F3.0,F4.0)))
870 FORMAT (' *END IN READ WIND DATA* ')
880 FORMAT (' *ERR IN READ WIND DATA* •)
*** INPUT WIND AAD RAMS DATA ***
GOTO (100,200,300,300), KWINO
... KWIND 1, INPUT PREPROCESSED OBJECTIVE WIND U1.V1
100 READ (KUNITW,END=500,ERR=60u) KYR,KMO,KDAY,KHR,U1,V1,RAMS
IF ((KDAY .NE. IDAY) .OR. (KHR .NE. IHR)) GO TO 100
GO TO 400
... KWIND 2, INPUT SUBJECTIVE ANALYZED WIND UU.VV
200 CONTINUE
210 READ (KUNITW,END=500,EPR=600) KYR,KMO,KDAY,KHR,UU.VV,RAMS
IFKKDAY .NE. IDAY).OR. (KHR .NE. IHR)) GO TO 210
... INTERPOLATE UU(IN,JN) TO U(IM,JM) BY LINEAR INTERPOLATION
(THIS PORTION OF PROGRAM NEEDS MODIFICATION DEPENDING ON THE
GRID SYSTEM USED IN THE SUBJECTIVE ANALYSIS OF WIND FIELD)
DELX=IM/(IN-1)
DELY=JM/(JN-1)
IF (DELX.LT.DELY) DELX=DELY
CALL UVINTP (UU,VV,IN,JN,U1,V1,IM,JM,DX,DY,DELX)
GO TO 400
00006130
00006140
00006150
00006160
00006170
00006180
00006190
0000620r>
00006210
00006220
0000623'"
00006240
00006250
00006260
00006270
oopr-,6280
00006290
00006300
OOOO6310
00006320
00006330
00006340
00006350
00006360
00006370
00006380
00006390
00006400
00006410
00006420
00006430
00006440
00006450
00006460
00006470
00006480
00006490
00006500
-------
61
ISN 0023
ISN 0024
ISN 0025
ISN 0027
ISN 0028
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0038
ISN 0039
ISN 0040
ISN 0041
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0046
ISN 0047
ISN 0048
ISN 0050
ISN 0051
ISN 0052
ISN 0053
ISN 0055
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0061
ISN 0062
ISN 0063
C
C
C
C
KHIND
3 £ 4,
0000651^
INPUT RAMS DATA AND CALL ROUTINE WINDGR TO GENERATF00006520
SURFACE WIND FIELD AT NUMERICAL GRID
300 CONTINUE
READ
CALL STABIT
S-SSS-3.5
(UBAR,ESKY,IHR,SSS,ITRAT)
C.... STORE SUMMARY OF METEOROLOGICAL PARAMETERS ON ARRAY PARM
C THIS PART OF PROGRAM IS SUBJECTED TO BE MODIFIED ACCORDING
C TO STRUCTURE OF RAMS DATA AND TREATMENT OF MISSING DATA.
PARM(U=UBAR
I'O
450 1=1+1
IF (RAMS(2tI).GT.360.> GO TO 450
PARM(2)=RAMS(2,I)
1=0
460 1=1+1
IF «RAMS(3tI).GE.99. ) . OR. (RAMS (4, I) .GE.99.1) GO TO 460
PARM(3)=RAMS(3,I)
PARM(8)=RAMS(4fI)
PARMI4I-S
PARM<9)-RAMS(6,1)
C
!F«KWIND.EQ.3).OR.(KWIND.E8.4)) CALL WINDGR (U1,V1,UU,VV
£ tNEARiUSTN,VSTNiXSUTM,YSUTM,IUTM,JUTM,DX,DYtIM,JM,IN,JN,NS)
C
C **+ COMPUTE UPPER LAYER U AND V ***
C
LX»1
CALL UVZF (U,V,Ul,Vl,UZF,VZFfWZF,ZfIM,JM,KM,KN,LX)
C
C *** COMPUTE VERTICAL WIND COMPONENT ***
OOC06550
00006560
00006570
00006580
00006590
00006600
00006610
00006620
00006630
00006640
IF (LHH.GT.O)
CALL
WWZF
00006660
00006670
00006680
00006690
00006700
00006710
00006720
0000673"
00006740
00006750
00006760
00006770
00006780
•00006790
00006800
00006810
00006820
00006830
0000684"
00006850
00006860
00006870
00006880
00006890
00006900
00006910
00006920
00006930
00006940
00006950
00006960
00006970
00006980
00006990
"0007000
00007010
00007020
OOOO7030
00007040
00007050
00007060
000070^0
00007080
-------
62
ISN 0065
ISN 0066
ISN 0067
ISN 0068
£
-------
63
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME» MAIN,OPT-02,LINECNT«60,SIZE=OOOOK,
ISN 0002
ISN 0003
ISN 0004
ISN 0005
ISN 0006
ISN 0007
ISN 0008
ISN 0009
ISN 0010
ISN 0011
I.SN 0012
ISN 0013
ISN 0015
ISN 0016
ISN 0018
ISN 0019
ISN 0021
ISN 0023
ISN 0024
ISN 0026
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
SOURCE, EBCDIC, NOLIST, DECK, LOAD,NOMAP,NOEDIT ,NOID,NOXREF
C
SUBROUTINE WRITES (Q, I XMAX, I YMAX , IS IZE, JSI ZE, I BEG, JBEG, IUTM, JUTM
* ,IFORM,JUN1T, RATIO, TITLE)
C
C.... THIS ROUTINE WRITES Q( ISI ZE, JSI ZE) ON UNIT=JUNIT IN FORM=IFORM.
C IFORM « NO. OF COLUMES TO BE PRINTED ON ONE LINE.
C II - DUMMY ARRAY FOR TEMPORAL STORAGE
C
DIMENSION RFMT1UO),RFMT2(10),RFMT3(10),TITLE(10),FMTDS<10)
* ,QUXMAX,IYMAX),IUTMUSIZE),JUTM(JSIZF),II(13n)
C
LOGICAL*! FMT1(40),FMT2(40),FMT3(40),FM(11)
C
EQUIVALENCE ( FM< 1 ) , IFM1 ) ,
-------
65
ISN 0071
ISN 0072
ISN 0073
ISN 0074
ISN 0075
ISN 0076
ISN 0077
ISN 0078
KN 0079
ISN OOB1
ISN 0082
ISN 0083
ISN 0084
ISN 0089
ISN 0086
ISN 0087
ISN 0088
ISN 0089
ISN 0090
ISN 0091
ISN 0092
ISN 0093
ISN 0094
ISN 0095
ISN 0096
ISN 0098
ISN 0099
ISN 0100
ISN 0101
ISN 0102
ISN 0103
ISN 0104
ISN 0105
ISN 0106
ISN 0107
ISN 0108
ISN 0109
ISN 0110
ISN 0111
8502
8504
8506
8508
8510
C
C
C • • 9 •
60S
610
6ZP
C
C • • • •
625
630
640
C
C
ISN 0112
FORMAT (/5X,'XUT««',30I4)
FORMAT (5X,« I-1,30I*/4Xf•i•,3X,«K')
FORMAT (/5Xr"rUTM»'i3014)
FORMAT (5X,« J-•,30I4/4X,• i•,3X,«K')
FORMAT UX,2I4tlXt30T4)
WRITE IJUNIT.8500) TIUA, IMC, JMC
PRINT Y-Z CROSS SECTION
IA-1
•I8-IM
IF (IM.LE.30) GO TQ 605
IA-UM-301/2+1
IB*IA-1+31
CONTINUE
WRtTE (JUNIT.8502) (IUTHII),1-IA,IB)
WRITE (JUNIT,850^1 (J,I»IA,IB)
J»JMC
DO 620 KK=1,KM
K-KM+1-KK
K2«2(K)
00 610 I«IAiIB
II(I)»A(IiJ,K)*RATIO
WRITE (JUNIT.8510) KZiK,(II(I),I=IA,IB)
CONTINUE
PRINT X-Z CROSS SECTION
JA-1
JB-JM
IF (JM.LE.31) GO TO 625
JA«(JM-301/2+1
JB«JA-1+30
CONTINUE
WRITE (JUNIT.8506) (JUTHlJ),J.JA,JB)
WRITE (JUNTT,85081 (J.J-JA.JB)
I = IMC
00 640 KK-l.KM
K«KM+1-KK
KZ«Z(KJ
DO 630 J-JA.JB
IKJi'Ad tJ,K)*RATIO
WRITE (JUNIT,8510) KZ, K, (IK J ) i J-JA, JB)
CONTINUE
R5TLWN
DEBUG SUBCHK
END
*QPTIONS IN EFFECT* I^ME- MAINfOPT-02,LINECNT-60FSIZE=OOOOK,
'OPTIONS IN EFFECT* SOURCEtEBCDICiNOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
'STATISTICS* SOURCE STATEMENTS - 111 .PROGRAM SIZE = 4028
'STATISTICS* NO DIAGNOSTICS GENERATED
00008350
00008?60
00008370
00008380
00008400
00008410
0000842"
00008430
00008440
0000845"
00008460
00008470
00008480
00008490
0000850"
00008510
00008520
0000853"
00008540
00008550
00008560
00008570
0000858^
00008590
00008600
00008610
00008620
00008630
00008640
00008650
00008660
00008670
00008680
"0008691
00008700
00008710
00018720
00008730
00008740
00018750
00008760
OOOOB770
00008780
00008790
00008POO
00008810
****** END OF COMPILATION ******
97K BYTES OF CORF NOT USFD
-------
66
LEVEL 21.6 ( MAY 72 )
COMPILER OPTIONS
OS/360 FORTRAN H
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOLISTiDECK,LOAD,NOMAPtNOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0022
0023
0024
0325
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
SUBROUTINE WWFLUX ( CP1, CtW»WZFtZ,OXiDY,OZ,EK,FK,
* RDX.RDYiRDZ.IM,JM.KM.IMJM,IJKM,IJKN)
... THIS SUBROUTINE COMPUTES VERTICAL ADVECTION TERM OF
... CONCENTRATION EQUATION.
... SAME NUMERICAL SCHEME AS USED IN SUBROUTINE UVFLUX IS APPLIED
... IN THIS SUBROUTINE.
DIMENSION
* CPU IJKM) ,C( IJKMl.WU JKN) , WZF (KM)
* ,DX(IM),DY(JM),DZ(KM),RDX(IMI,RDY
-------
67
ISN 0036
ISN 0037
ISN 0038
ISN 0039
ISN 0040
ISN 0041
ISN 0043
ISN 0045
ISN 0047
ISN 0048
ISN 004.9
ISN 0050
ISN 0051
ISN 0052
ISN 0053
ISN 0055
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
ISN 0062
ISN 0063
ISN 0064
ISN 0066
ISN 0067
ISN 0068
ISN 0069
ISN 0070
ISN 0072
ISN 0073
ISN 0074
ISN 0075
ISN 0076
C
C
Tl- CIJK-t-CIJKl
T3- CIJK-CIJK1
HF» AF1*T1+ A3*T3
CCIJK-CPIJK-EK(K)*WF
CCIJK1- CPIJK1+FMK)*WF
CHECK FLUX SO THAT FLUX OUT IS LESS THAN MASS IN A CELL ...
IF ((CCIJK .GE. 0.0) .AND. (CCIJK1 .GE. 0.0)) GO TO 110
IF ( CCIJK .LT. 0.) WF-CPIJK/EKIK)
IF ( CCIJK1 .LT. 0.0) WF«-CPIJK1/FK(K)
CCIJK»CPIJK-EMK)*HF
CCIJK1" CPIJK1+FK(K)*WF
110 CP1(IJK)«CCIJK
CPKIJK-fLZl.CCIJKl
200 CONTINUE
300 CONTINUE
*** PROCESS UPPER BOUNDARY GRID POINTS ***
.... LHTOP IS A CONTROL PARAMETER FOR CONDITON AT TOP BOUNDARY.
.... IF LWTOP-0, VERTICAL ADVECT10N IS ASSUMED EQUAL TO ZERO AT
BOUNDARY
IF ( LWTOP .EQ. 0) RETURN
KK»KM1*IMJM
JJ—IM
DO 500 J«1,JM
JJ-JJ+ IM
DO 400 I=lrIM
IJ- I+JJ
UK » IJ+KK
IJKV»IJ+KKVMAX
AF1 = DTDZ*W(IJKV)*HZF(K)
IF ( AF1 .LT. 0.0) GO TO 400
CIJK« C(IJK)
CIJK1- C(IJK-LZ)
T3« CIJK-CIJK1
WF-AF1*T3
IF ( CIJK1 .LT. WF) WF= CIJK1
CP1(IJK)= CIJK+WF
400 CONTINUE
50" CONTINUE
RETURN
DEBUG SUBCHK
END
*OPTIONS IN EFFECT*
NAME* MAINfOPT*02>LINECNT»60,SIZE"=OOOOK,
00009380
00009390
00009400
OOC09410
00009420
00009430
00009440
000*9450
00009460
00009470
OP009480
00009490
00009500
00009510
00009520
00019530
00009540
00009550
00009560
00009570
00009580
00009600
00009610
00009620
00009630
00009640
OOOC9650
00009660
00009670
00009680
00009690
00009700
00009710
00009720
00009730
00009740
00009750
00009760
00009770
00009780
00009790
OC009800
OOP 09810
00009820
"OPTIONS IN EFFECT* SOUPCEtEBCOIC,NOLIST,DECKiLOAD,NOMAP,NOEDIT,NOIO,NOXREF
*STATISTICS* SOURCE STATEMENTS » 75 tPROGRAM SIZE = 1738
*STATISTICS* NO DIAGNOSTICS GENERATED
****** END OF COMPILATION ****** 113K BYTES OF CORE MOT USED
-------
68
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE.EBCDIC.NOL1ST,DECK,LOAD,NOMAP,NOEDIT,NO ID.NOXREF
C
1SN 0002 SUBROUTINE WWZF (UiViW,DXiOYiDZ»IM,JM,KM,KNiLWWtJUNIT)
ISN 0003
ISN 0004
ISN 0005
ISN 0007
ISN 0008
ISN 0009
ISN 0010
ISN 0011
ISN 0012
ISN 0013
ISN 0014
ISN 0015
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0020
ISN 0021
ISN 0023
ISN 0024
ISN 0025
ISN 0026
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0038
*OPTIONS IN
'OPTIONS IN
C
C....
C
C
C
C
C
C
C
C
100
C
200
C
210
220
C
230
300
C
C
EFFECT*
EFFECT*
IT CALCULATES VERTICAL WIND W FROM CONTINUITY EQ.
£ SMOOTHES W.
DIMENSION U(IMtJMfKN)»V(IMtJrtiKN),W(IMiJM,KN)
DIMENSION DX(IM) ,DY( JM) ,DZ(KM)
IF (LWW.EQ.O) RETURN
DXM= 0.5/DXtl)
DYM= 0.5/DYtl)
IM1=IM-1
JM1=JM-1
LWW=0,NO VERTICAL WIND W;=1,W FROM CONTINUETY EQ ;
=2, W ARE SMOOTHED AGAIN BY 9 POINTS AVERAGE
DO 100 K=2,KN
DZM= 0.5*(DZ(K)+ DZ(K-D)
DZDY=DZM*DYM
DZDX=DZM*DXM
DO 100 J=2,JM1
DO 100 1=2, IM1
DUDX= DZDX*(U(I-lf JtK-l)-U(I+l, JfK-1))
DVDY= DZDY*(V(I,J-1,K-1)-V(I ,J + 1,K-1»
W(I,J,K)= W(I,J,K-1)+ DUOX+DVDY
CONTINUE
IF (LWW .LT. 2) GO TO 300
DO 220 L=l,2
DO 220 K=2,KN
DO 200 J=1,JM
DO 200 1=1, IM
W(I,J,1 )= W(I,J,K)
DO 210 J=2,JM1
DO 210 1=2, IM1
WTOT= WII-1 ,J,1)+W(I, J, D+Wd + lt J,1>+W(I-1,J-1,1)+W(I,J-1,1)
* +WU+1 ,J-1,1)+W(I-1,J+1,1H-W(I ,J-H,1)+W(I + 1,J + 1,1)
W(I,J,K)=0.111111*WTOT
CONTINUE
DO 230 J=1,JM
DO 230 1=1, IM
W( ItJ tl 1=0.0
CONTINUE
RETURN
DEBUG SUBCHK
END
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE, EBCDIC, NOLI ST , DECK, LOAD, NOMAP, NOEDIT, NOI D.NOXREF
00009830
00009840
00009850
00009860
00009870
00009R80
00009890
00009900
0000°920
00009930
00009941
00009950
00009960
00009970
000099PO
00009990
00010000
00010010
00010020
00010030
00010040
00010050
00010060
00010070
00010080
00010090
000 1011 P
00010120
0001013"
00010140
00010150
00010160
00010170
00010180
00010190
00010200
00010210
00010220
00010230
00010240
00010250
00010260
00010270
00010280
00010290
0001030n
00010310
00010320
00010330
00010340
-------
69
*STATISTICS* SOURCE STATEMENTS - 37 ,PROGRAM SIZE 1802
*STATISTICS* NO DIAGNOSTICS GENERATED
****** END OF COMPILATION ****** 109K BYTES OF CORE NOT USED
-------
70
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02,L INECNT = 60,SIZE = OOOOK,
SOURCE,EBCDIC,NOLIST, DECK.LOAD,NOMAP,NOEDIT,NOI D, NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0005
0006
0007
0006
0009
0010
0011
0012
0013
ISN 0014
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
C.
C.
C.
C.
C.
-C
SUBROUTINE XYDIFF ( CP1, C,AKH,AKZ,AKF,RDX,RDY,DXS,DYS,
* IM,JM,KM,IMJM,IJKM)
. THIS SUBROUTINE COMPUTES THE HORIZONTAL DIFFUSION TERMS IN
. CONCENTRATION EQUATION.
. THE SECOND ORDER CENTRAL FINITE DIFFERENCE SCHEME IS USED.
. THE 3-D VARIABLE A(I,J,K) IS REPRESENTED BY VECTOR A(IJK).
. AKH IS HORIZONTAL EDDY EXCHANGE COEFFICIENT.
DIMENSION
* CP1(IJKM),C(IJKM),AKH(KM),AKZ(IMJM),AKF(KM)
* ,RDX(IM),DXS(IM) ,RDY( Jrt) ,DYS( JM) ,DTKXSI (40) .DTKYSK 40)
DATA RDXA/1.0/,RDYA/1.0/,RDXB/2.n/,RDYB/2.0/
COMMON /AADATA/
* I Ml,JM1,KM1,JUNIT,KUNITC,KUNITG,KUNITP,KUNITS,KUNITW
* ,IYP,IMO,I DAY,IHR,ITM.ITMHR,ITSEC,ITOTHR,ITSTEP,DT,TM,TSEC
* ,LPRINT,LTSTOP,LTSOUS,LTWIND
* ,LWRITE(10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,KWIND,LCRUN,LCHEM
* ,RAMS(6,25),PARMt10),All4),AK,HG,HP,HS,OLMIN,DCMIN
* ,PMAX,PMIN,RIB,ZMAX,ZRPQ,^.RISE,QBTOT,PQBTOT,UO,PHIFHZ,HFZ
LX=1
LY = IM
KK=0
*** COMPUTATION ***
DO 300 K= 2,KM
DTKH= DT*AKH(K)*AKF(K)
DO 10 J=1,JM
10 DTKYSK J)=DTKH/DYS( J)
DO 20 1=1,IM
20 DTKXSKI )=DTKH/DXS(I )
DTKXS= DTKH/DXSd)
DTKYS= DTKH/DYSd)
KK=KK+ IMJM
.... INTERIOR REGION, STRAIGHT FORWARD CALCULATION
*** PROCESS INTF.RIOF GRID POINTS ***
JJ = 0
DO 200 J= 2.JM1
JJ=JJ+ IM
RDYB=1.0+RDY(J)
DO 100 1= 2,IM1
IJ= I+JJ
UK = IJ + KK
RDXB=1.0+RDXU)
DXC= C(IJK+LX)-RDXB*C(IJK)+RQXU)*C(IJK-LX)
DYC= C(IJK+LY)-RDYB*CUJKH-RDY(J)*C< IJK-LY)
CPKI JK)= CP1(IJK) + (DTKYSI(J)*DYC+DTKXSI( I) *DXC ) *AKZ( IJ )
100 CONTINUE
EAST-WEST BOUNDRIES, DIFFUS IN Y ONLY, DIFF IS ZERO IN X
*** PROCESS EAST AND WEST BOUNDARY GRID POINTS ***
00010350
00010360
0001037"
00010380
00010390
00010400
00010410
00010430
00010440
00010450
00010460
00010470
00010480
00010490
00010510
00010520
0001^53"
00010540
00010550
00010560
00010570
00010580
00010590
00010600
00010620
00010630
00^10640
00010650
00010660
nOO 10670
00010680
00010690
000107^0
00010710
00010720
00010730
00010740
0001075^
00010760
00010770
0001^78"
00010^90
00010BOO
00010810
00010820
00010830
00010840
00010850
OOP 10860
00010870
00010880
00010890
00010900
-------
71
ISN 0027
ISN 0028
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0036
ISN 0039
ISN 0040
ISN 0041
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0046
DO 150 I" 1, IM, IH1
IJ- I+JJ
UK - IJ+KK
DYO C(IJK+LY)-RDYB*CUJK)+ROY(J )*C( IJK-LY)
CPKIJK)" CP1(IJKH-DTKYSI(J)*DYC*AKZ(IJ)
150 CONTINUE
200 CONTINUE
NORTH-SOUTH BOUNDRYt DIFFUS IN X ONLY, DIFF IS ZERO IN Y
*** PROCESS SOUTH AND NORTH BOUNDARY GRID POINTS ***
DO 220 J- If JM, JM1
JLY«(J-1)*LY
DO 210 1= 2, IM1
ILX- U-1)*LX
IJ= 1+ ILX+JLY
UK = IJ+KK
DXC" C(IJK+LX)-(1.0+RDX(in*C(IJK)+RDX(I)*C(IJK-LX)
CP1(UK)= CPl(IJK)+DTKXSKI)*DXC*AKZnJ)
210 CONTINUE
220 CONTINUE
300 CONTINUE
RETURN
DEBUG SUBCHK
END
*OPTIONS IN EFFECT* NAME= MAIN,OPT=02,LINECNT«60,SIZE=OOOOK,
*OPTIONS IN EFFECT* SOURCE,EBCDIC,NOLIST.DECKiLOAD,NOMAP,NOEDITrNOID,NOXREF
*STATISTICS* SOURCE STATEMENTS - 45 .PROGRAM SIZE = 1798
*STATISTICS* NO DIAGNOSTICS GENERATED
00010910
00010920
00010930
00010940
00010950
00010960
00010970
00010990
00011000
00011010
00011020
00011030
00011040
00011050
00011060
00011070
00011080
00011100
00011110
00011130
00011140
1001115"
00011160
00011170
END OF COMPILATION ******
113K BYTES OF CORE MOT USED
-------
72
LEVEL 21.6 t MAY 72 )
COMPILER OPTIONS
OS/360 FORTRAN H
NAME= MA1N,OPT=02,LINECNT=60, SIZE=000"K,
SOURCE,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN 0005
ISN 0006
ISN 0007
ISN 0008
ISN 0009
ISN 0010
ISN 0011
ISN 0012
ISN 0013
ISN 0014
ISN 0015
(SN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0020
ISN 0021
ISN 0022
ISN 0023
ISN 0024
ISN 0025
ISN 0026
ISN 0027
ISN 0028
ISN 0030
ISN 0031
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0038
SUBROUTINE XYUTMS (IUTM,JUTM, I XBEG,IYBEG,IBEG,JBEG,DX,DY
£ ,DXA,DYA,IM,JM)
. THIS ROUTINE COMPUTES UTM COORDINATES FOR ALL NUMERICAL GRIDS.
. ENTRY XYUTM1 CONVERT (X,Y) FROM UTM COORDINATES TO NUMERICAL GRID.0001123'
OCC11 1Q0
0001120P
0001121^
DIMENSION IUTMI1M),JUTM(JM),DX(IM),DY(JM)
IM1 = I M-l
JM1 = JM-1
DXAI=1.0/DXA
DYAI=1.0/OYA
IUTM(1)=IXBEG+IBEG-1
JUTMI1)=IYREG+JBEG-1
DO 20 J=1,JM1
JINTVL=DY(J)*DYAI+0.2
JUTM(J-t-l)=JUTM(J)+JINTVL
20 CONTINUE
DO 40 1=1,111
IINTVL=DX(I)*OXAI+0.2
IUTMII+1)=IUTM(I)+IINTVL
40 CONTINUE
IUTMAX=IUTM( IM) + DX(IM)*DXAI+-0.2
JUTMAX=JUTM(JM)+DY(JM)*DYAI+0.2
RETURN
C
C.
00011250
70011260
000 11 270
0001128?
POO H 2
-------
73
ISN 0040
ISN 0042
ISN 0043
ISN 0045
ISN 0046
ISN 0048
ISN 0049
ISN 0050
ISN 0051
ISN 0052
ISN 0053
ISN 0055
ISN 0057
ISN 0058
ISN 0059
ISN 0060
ISN 0061
C
ISN 0062
*OPTIONS IN EFFECT*
*OPTIONS IN EFFECT*
*STATISTICS*
*STATISTICS*
IF (LYJ.GE.JUTMAX) YJ-(YJ-JUTMAX)/( DY( JM)*DYAI 1-KIM
140 CONTINUE
IF <(LXI.LT.IUTM{1)).OR.(LXI.GE.IUTMAX)) GO TO 161
DO 150 I-l.IM
IF (LXI.GE.IUTMU)) GO TO ISO
C
C.... FIND THE IUTMU) GREATER THAN LXI.
XII-I-2
DXB-(XI-IUTM(I-U )/(DX(I-l)*OXAI)
XI-XII+DXB
GO TO 180
150 CONTINUE
C
C.... XI IS OUTSIDE THE REGION.
160 IF (LXI.LT.IUTM(D) XI-( XI-I UTM( 1)) / (DX (1) *DXAI)
IF (LXI.GE.IUTMAX) XI-(XI-IUTMAX1/IDX(IM)*DXAI
180 CONTINUE
XD(K)-XI
YD(K)-YJ
200 CONTINUE
C
RETURN
C DEBUG SUBCHK
END
00011740
P0011750
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC,NOL1ST,DECK,LOAD,NOMAP.NOEDIT,NOID.NOXRFF
SOURCE STATEMENTS = 61 .PROGRAM SIZE = 2316
NO DIAGNOSTICS GENERATED
00011770
00011780
00011790
00011800
00011810
"0°11820
00011830
•00011840
OC011850
00011860
00011870
00011880
00011890
00011901
00011910
00011920
0001193"
00011940
00011950
00011970
END OF COMPILATION ******
113K BYTES OF CORE NOT USED
-------
74
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAME= MAIN,OPT=02iLINECNT=60,SIZE=OOOOK,
SOURCE,EBCDIC.NOL1ST!DECK,LOAD,NOMAP,NOEDIT,NOID,NOXREF
ISN 0002
ISN 0003
ISN 0004
ISN
ISN
JSN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
ISN
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
ISN 0026
ISN
ISN
0027
0028
SUBROUTINE ZZOIFF ( CP1, CiAKZ,AKF,RDZ,DZS,ZM,EK,FK,
* IM,JM,KM,IMJM,IJKM)
IT CALCULATES THE VERTICAL DIFFUSION BY IMPLICIT SECOND CENTRAL
SCHEME,FOR VARIABLE GRIDS AND VARIABLE EDDY DIFUSIVITY.
CP1=NEW , C=OLD,AKZ=EDDY DIFUSIIVITY, ROZ=GRID RATIO,
DZS=GRID SQUARE, EK ,FK=TEMPORARY STORAGE, ZM=HEIGHT...
DIMENSION
* CP1(IJKM),C(IJKM),AKZ(IMJM)
* ,RDZ(KM),DZS(KM),ZM(KM),EK(KM),FK(KM),AKF(KM)
* ,AKKK(20),CKKK(20)
COMMON /AADATA/
* IM1,JM1,KM1,JUNIT,KUNITC,KUNITG,KUNITP,KUNITS,KUNITW
* ,IYR,IMO,IDAY,IHR,ITM,ITMHR,ITSEC,ITOTHR,ITSTEP,DT,TM,TSFC
* ,LPRINT,LTSTOP,LTSOUS,LTWIND
* ,LWRITE(10),LSOUS(2),LTOP,LWTOP,LPQ,LWW,LWIND,KWIND,LCRUN,LCHEM
* ,RAMS(6,25),PARM(10),A114),AK,HG,HP,HS,OLMIN,DCMIN
* ,PMAX,PMIN,RIB,ZMAX,ZRPQ,ZRISE,QBTOT,PQBTOT,UO,PHIFHZ,HFZ
AKZF IS TO SPECIFY THE VERTICAL SHAPE FUNCTION OF EDDY DIFUSIVITY
STABILITY CRITERIA IS (DT*AKZ/DZS) .LT. I/(4*(1-RAT10)) TO AVOID
THE OSCILLATORY MODES.
LTOP IS TO SPECIFY THE TOP BOUNDRY CONDITIONS,=0, THEN C=0;
=1,THEN REFLECTED BOUNORY
... RATIO=0.0,TOTALLY EXPLICIT; =1,TOTALLY IMPLICIT....
RATIO=0.98
RATIOA=(1.0/RATI0-1.0)
RATI02=2.0*RATIO
DTT=DT
DO 10 K=1,KM1
AKZFK= AKF(K)
AKKMK)= DTT*AKZFK/DZS(K)
10 CKKKtK+1) =DTT*AKZFK/DZS(K-HJ*RDZ(K+1)
AKKK(KM)=0.0
CKKK(1)=0.0
LZ=IMJM
JJ=-IM
DO 300 J=1,JM
JJ=JJ+IM
DO 200 1=1,IM
IJ=I+JJ
AKIJ= AKZ(IJ)*RATIO
AKIJ2=2.0*AKIJ
AK1= AKIJ2*AKKK(1)
BK1= 1.0+AK1
CKKM= AKIJ2*CKKK(KM)
CK1= 0.0
BKKM= 1.0+CKKM
AKKM= 0.0
DK1= CP1(IJ)+AK1*(C(IJ+LZ)-C(IJ))*RATIOA
KMIJ= KM1*IMJM-HJ
00011980
00011990
00012000
00012010
00012020
00012030
00012040
00"1205"
00012060
000120^0
00"12"80
00012090
00012100
00012111
00012120
00012130
00012141
0001215C
00012160
00012170
00012180
00012190
00012200
00012210
0""1222"
00012230
00012240
"001225"
00012260
00012270
0001228"
00012290
00012300
00012310
00012320
0"012330
00012340
00012350
0001236"
00012370
00012380
00012390
00012400
00012410
00012420
00012430
0001244"
00012450
OOC12460
0001247"
00012480
00012490
00012500
00012510
00012520
00012530
-------
75
ISN 0029
ISN 0030
ISN 0031
ISN 0032
ISN 0033
ISN 0034
ISN 0035
ISN 0036
ISN 0037
ISN 0038
ISN 0039
ISN 0040
ISN 0041
ISN 0042
ISN 0043
ISN 0044
ISN 0045
ISN 0046
ISN 0047
ISN 0046
ISN 0050
ISN 0051
ISN 0052
ISN 0053
ISN 0054
ISN 0055
ISN 0056
ISN 0057
ISN 0058
ISN 0059
ISN 0060
•OPTIONS IN
•OPTIONS IN
DKKM = CPKKHIJ) + CKKM*(C(KMIJ-LZ)-C(KMIJ) )*RATIOA
EK(1)= AK1/BK1
FM1)= DK1/BK1
KK=0
DO 100 K=2tKHl
KK=KK+IMJM
IJK= KK+IJ
AKK= AKIJ*AKKK(K)
CKK= AKIJ*CKKK(K)
BKK= 1.0+AKK+CKK
DKG» AKK*C{JJK+LZ)-l AKK+CKK }*C( UK )+CKK*C( IJK-LZ)
DKK*CPKIJK)+DKG*RATIOA
TEMP=1.Q/(BKK-CKK*EK(K-1))
EK(K)= AKK*TEMP
FK(K)=
-------
76
LEVEL 21.6 ( MAY 72 )
OS/360 FORTRAN H
COMPILER OPTIONS - NAMF= MA IN,OPT=02,LI NECNT=60,SIZE = OCQOK,
SOURCE, EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEn!T,NOID,NOXRE<;
ISN 0002
ISN 0003
ISN OOC4
ISN 0005
ISN 0007
ISN 0008
ISN 0010
ISN 0012
ISN 0013
ISN 0015
ISN 0016
ISN 0017
ISN 0018
ISN 0019
ISN 0020
ISN 0321
ISN 0022
C
C..
C
SUBROUTINE ZZGRID (ZA,ZB,Z,IMA,1MB,KM)
IT CONVERTS ZA IN METER UNIT INTO GRID UNIT £ STORFS IN ZB.
DIMENSION ZA(IMA),ZB(IM8),Z(KM)
IMAX=IMA
IFdMAX .LT. 1MB) IM4X=IMB
DO 200 1=1,IMAX
IF(ZAII) .LE. Z(D) GO T0 110
IF(ZAU) .GF.Z(KM)) GO TO 120
DO ICO K=1,KM
IF (ZA(I) .GT. Z(K1) GO TO 100
K1=K-1
ZB(I) = K1+(ZA(I)-Z(K1))/(Z(K)-Z(K1))-1
GO TO 200
130 CONTINUE
110 ZB(I)=0.0
GO TO 200
120 ZB(I)=KM-1+(ZA(IJ-Z(KM))/(Z(KH)-Z(KM-l))
200 CONTINUE
ISN 0023
C
ISN 0024
*OPTICNS IN EFFECT*
*OPTIONS IN EFFECT*
*STATISTICS*
*STATISTICS*
RETURN
DEBUG SUBCHK
END
NAME= MAIN,OPT=02,LINECNT=60,SIZE=OOOOK,
SOURCP,EBCDIC,NOLIST,DECK,LOAD,NOMAP,NOEDIT,NOID,NOXP.EF
SOURCE STATEMENTS 23 .PRJbRAM SIZE 700
NO DIAGNOSTICS GENERATED
00012890
00012900
OC012920
0001293^
0001294"
r>001?950
0001296^
000 i 2 97 0
00012°80
^rn 12990
00013^00
00013010
0001302"
00013030
^cn i^n^.p
00013050
00013060
"N0'~'13"7"
oooiaoeo
00013090
00013110
00013120
1Or 13130
****** EMD OF COMPILATION ******
'STATISTICS* 1 DIAGNOSTICS THIS STEP, HIGHEST SEVERITY CODE IS
!25K BYTES OF CORF MOT U^FD
-------
77
F128-LEVEL LINKAGE EDITOR .OPT IONS SPECIFIED LET,LIST,MAP
DEFAULT OPTION(S) USED - SIZE={225280,57344)
IEWOOOO INCLUDE SYSLIB(WERCOMX)
IEWOOOO ENTRY MAIN
MODULE MAP
CONTROL SECTION
NAME ORIGIN LENGTH
WERCOM 00 1238
IHOECOMH
IHOCOMH2
IHOEFIOS
IHOFIQS2
IHOERRM
IHOETRCH
IHOFCONI
IHOFCONO
1HOFCVTH
1238
2018
2938
3A50
4020
4648
48FO
4BFO
50B8
DEO
91D
1114
5CC
624
2A6
2FD
4C2
A07
IHOFTEN
IHOUATBL
IHOUOPT
MAIN
AACOMP
AKZCAL
CADJUS
CCHECK
CHEMIC
CONSIN
DIMENS
DTTEST
GEOIN
OUTAPE
POSITV
PRINTS
SHIFTN
5ACO
5C58
5E60
6198
13070
13CDO
14358
14750
148DO
14AE8
14F20
15790
15EEO
16A58
17168
17300
19790
198
208
338
CED4
C5A
686
3F8
17C
218
434
870
74A
876
70E
198
248C
32A
ENTRY
NAME LOCATION
EXIT
WERPARMS
IBCOM#
SEQDASO
FIOCS*
ERRMON
IHOTRCH
FQCONI#
FQCONO*
ADCON*
FCVIOUTP
54C
9A8
1278
232A
2938
4020
4648
48FO
4BFO
50B8
56F6
FTEN#
CDTOTP
DIMEN1
PRINTA
5ACO
14EBC
15648
1967C
NAME LOCATION
NAME LOCATION
NAME LOCATION
DVCHK
HHCALC
PRINTP
5DE WERFL
IB081971 1278 FDIOCS#
FIOCSBEP 293E
IHOERRE 4038
ERRTRA 4650
FCVAOUTP 5162 FCVLOUTP
FCVEOUTP 57E8 FCVCOUTP
608 WEPTIMF 768
1334 INTSWTCH 2000
51F2 FCVZOUTP
57E8 INT6SHCH
534E
5A4"
15724
196C4
PRINTC
19718
-------
F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LET,LIST,MAP
DEFAULT OPTION(S) USED - SIZE=(225280,57344)
IEWOOOO INCLUDE SYSLIB(WEPCOMX)
IEWOOOO ENTRY MAIN
MODULE MAP
CONTROL SECTION
NAME ORIGIN LENGTH
WERCOM 00 1238
EMTRY
NAME LOCATION
NAME LOCATION
NAME LOCATION
NAMF LOCATION
IHOECOMH
IHOCOMH2
IHQEFIOS
IHOFIOS2
IHOERRM
IHQETRCH
IHOFCONI
IHOFCONO
IHOFCVTH
IHOFTEN
IHOUATBL
IHOUOPT
MAIN
AACOMP
AKZCAL
CADJUS
CCHECK
CHEMIC
CONSIN
DIMENS
DTTEST
GEOIN
OUTAPE
POSITV
PRINTS
1238
2018
2938
3A50
402"
4648
48FO
4BFO
50B8
5ACO
5C58
5E60
6198
13070
13CDO
14358
14750
148DO
14AE8
14F20
15790
15EEO
16A58
17168
17300
DEO
91D
1114
5CC
624
2A6
2FD
4C2
A07
198
208
338
CED4
C5A
686
3F8
17C
218
434
870
74A
B76
70E
198
248C
EXIT
WERPARMS
IECOM#
SEQDASD
FIOCS*
EPRMOM
IHOTRCH
FQCONItf
FQCONO*
ADCON#
FCVIOUTP
FTEN#
CDTOTP
DIMEN1
54C DVCHK 5DF OVERFL 6r»8 V.'FPTIMF 768
9A8
1278 IB081971 1278 FDIOCS4 1334 INTSWTCH 20CO
232A
2938 FTOCSBEP 293E
4020 IHOERRE 4038
4648 ERRTRA 4650
48FO
4BFO
50B8 FCVAOUTP 5162 FCVLOUTp 51F2 FCVZOUTP 534E
56F6 FCVEOUTP 57F8 FCVCOUTP 57E8 IMT6SWfH 5A41"*
5ACO
14EBC
15648 HHCALC 15724
PRINTA
1967C
PRINTR
196C4
PRINTC
19718
SHIFTN
19790
32A
-------
79
NAME
ORIGIN LENGTH
NAME LOCATION
NAME LOCATION
NAME LOCATION
NAME LOCATION
SOURCE
SOUSIN
STABIT
STNCON
TIHEX
UVFLUX
UVINTP
UVZF
WINDER
WINDGR
WINDIN
WRITES
WWFLUX
WWZF
X YD IFF
XYUTMS
ZZD1FF
ZZGRID
IHOSLOG *
IHOSATN2*
IHOSSCN *
IHOSEXP *
IHONAMEL*
IHOFRXPR*
IHOSSORT*
AADATA
CBLOCK
19ACO
1AB20
1AF08
1B448
1BB08
1BD10
1C5C8
1CA90
1D52B
10760
1E4EO
1F070
200 3P
20700
20E10.
21518
21E28
224F8
227B8
22993
22B78
22D80
22F30
23BA8
23D48
23EBO
24238
ENTRY ADDRESS
TOTAL LENGTH
105E
3E6
55C
6AO
202
8B4
4C4
A92
23*
D7C
B8A
FBC
6CA
70A
706
93C
600
2BC
1D4
1E8
208
1BO
C73
19B
168
388
20DOO
6198
44F38
WRITEX
XYUTM1
LOG 10
LOG
ATAN2
COS
EXP
FRDNL#
FRXPR*
SORT
1FEA8
21D6C
227B8
227DO
22990
22B78
22D80
22F30
23BA8
23D48
WRITEZ
1FF68
ALOG10
IHtALOG
IHSATAN2
IH$$COS
IH$$EXP
FWRNL*
IH$SQRT
227B8
22700
22990
22B78
22080
2360C
2 3 048
IHSALOGO 227BS ALC1G 2270"
ATAN 229A4 IH$ATAN 229A4
SIN 22B9A IH$$S!N 22B9A
****MAIN
DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
-------
80
NOTE:
The subprogram listing in the next two pages is an alternate
code of subroutine WRITES. .This version of subroutine WRITES
replaces the previously listed routine when program IBMAO-2 is
to be executed on the EPA Research Triangle Park computer facility,
This version of subroutine WRITES was modified from the original
subroutine by Ms. Virginia Smiley of EPA.
-------
81
CELT,SI RAPS*SHIR.WRITES,,,111645032413
SUBROUTINE WRITES (Q,IXMAX,IYMAX,ISIZE,JSIZE,IBEG,JBEG,IUTM,JUTM
* .IFORM,JUNIT,RATIO,TITLE)
C
C.... THIS ROUTINE WRITES 0(ISIZE,JSIZE) ON UNIT=JUNIT IN FORM=IFORM.
C (VERSION FOR UNIVAC MACHINE.)
IFORM = NO. OF COLUHES TO BE PRINTED ON ONE LINE.
II = DUMMY ARRAY FOR TEMPORAL STORAGE
c
c
c
DIMENSION RFMTH3),RFMT2(3),RFMT3I3),TITLEC10),IFM(U)
* ,Q(IXMAX,IYMAX),IUTM»ISIZE),JUTMIJSIZE),11(130)
DATA RFMTl/MSX.SH'.'XUTMs, •, "30141 •/
* ,RFMT2/M5X,5H«,i I=,-,»30I47)«7
* ,RFMT3/M1X,2I«,I4,1X, ','3014) •/
* ,IFM7061,062,063,064,065,066,067,070,071,060,0057
RETURN
C
C
C
C *** PRINT HORIZONTAL SURFACE OF VARIABLE Q ***
C
ENTRY WRITEX 10,IXMAX.IYMAX.ISIZE,JSIZE,IFORM,JUNIT,RATIO,TITLE)
C
8000 FORMAT (10A4.F7.2)
8040 FORMAT (• PAGE = «,I5/)
C8040 FORMATC1 PAGE = •,15,75X,•IUTM=«,3014,7,5X,•
C8050 FORMAT tIX,14,14,IX,3014)
C
C.... DETERMINE DOMAIN OF ARRAY Q TO BE PRINTED.
JEND=JBEG+JSIZE-1
IEND=IBEG+ISIZE-1
C
C* • • •
c
c..
c
c..
FIX VARIABLE FORMAT STATEMENTS
IF (IFORM .EQ. 0) GO TO 500
IF1=IFORM710
IF (IF1.GT.9) IF1=9
IF2=IFORM-IF1*10
IF (IF2.EQ.O) IF2=10
IF (IF1.EQ.O) IF1=11
IF3=1207IFORM
IF (IF3.GT.9) IF3=9
FLD(0,6,RFMT1(3))=IFM(IF1)
FLD(0,6,RFMT2I3))=IFM(IF1)
FLDCO,6,RFMT3(3))=IFHIIF1)
FLD(6,6,RFMT1(3))=IFN«IF2)
FLD(6,6,RFNT2(3))=IFMIIF2)
FLO(6,6,RFMT3(3))«IFMIIF2)
FLOI18,6,RFMTU3))=IFM«IF3)
FLD(18,6,RFMT2(3))=IFM(IF3)
FLD(18,6,RFMT3I3))«IFM(IF3)
DETERMINE NO. OF PAGES PER ARRAY 0 TO BE PRINTED
IPT=(ISIZE-1)/IFORM+1
FIX RATIO OF PRINTED VALUE TO ACTUAL VALUE OF 0
IF (RATIO.NE.0.0) GO TO 100
RATIO=1000.0
IF (IFORM ,GE. 30) RATIO=100.
100 CONTINUE
... PRINT THE SPECIFIED TITLE
WRITE (JUNIT.8000) TITLE,RATIO
*** ENTERING PRINTING LOOP ***
DO 400 IP=1,IPT
IA=(IP-1)*IFORM+IBEG
IB=IA*IFORM-1
C
C.... FIX INDICES
DO 200 I=IA,IB
IF ((11(11). GT. 100). AND. (IFORM. GT. 30)) II I II )=II ( II )-100
200 CONTINUE
C.... PRINT PAGE NO., INDICES
IAX=IA-IBEG+1
IBX=IAX*IFORM-1
UTH COORDINATES
00032490
00032500
00032510
00032520
00032530
00032535
00032540
00032550
00032560
00032570
00032580
00032590
00032600
00032610
00032620
00032630
00032640
00032650
00032660
00032670
00032630
00032690
00032700
00032710
00032720
•,4013/7)00032730
00032740
00032750
00032760
00032770
00032780
00032790
00032800
00032810
00032820
00032830
00032840
00032850
00032860
00032870
00032860
00032890
00032900
00032910
00032920
00032930
00032940
00032950
00032960
00032970
00032980
00032990
00033000
00033010
00033020
00033030
00033040
00033050
00033060
00033070
00033080
00033090
OOO33100
00033110
00033120
00033130
00033140
00033150
00033160
00033170
00033180
00033190
00033200
00033210
00033220
00033230
00033240
00033250
-------
82
WRITE (JUNIT.8040) IP, (IUTM (I) , I=IAX, IBX ) , 111 (II ) ,11 = IA , IB )
WRITE (JUNIT.8040) IP
WRITE (JUNIT,RFHT1)UUTMU) ,1=1 AX, IBX)
WRITE (JUNIT,RFMT2MII(I1),I1 = IA,IB)
.... PRINT ARRAY Q
DO 320 JJ=1,JSIZE
J=(JEND+1)-JJ
JUTMJ*JUTM«JSIZE+1-JJ)
DO 300 I=IA,IB
300 II(I1)=0(I,J)*RATIO
WRITE (JUNIT,805O) JUTMJ,J,(II(II),11=IA,IB)
WRITE (JUNIT.RFMT3)JUTMJ,J,(II(II),11=1 A,IB)
320 CONTINUE
400 CONTINUE
500 CONTINUE
RETURN
C
c
C • * • •
c ***
c
8500
8502
8504
8506
8508
8510
C
C
PRINT VERTICAL CROSS SECTION OF VARIABLE A FOR I = IMC AND J=JMC .
ENTRY WRITEZ ( A, Z, RATIO, IM, JM.KM, IMC , JMC ,TITLA )
DIMENSION AIIM,JM,KN),ZIKM>
FORMAT (/• ** VERTICAL PROFILE OF •,A4,- AT I=',I3,»!
FORMAT (/5Xt'XUTMt»,30I4)
FORMAT (SX,» I««,30I4/4X, 'ZSBXt'K1)
FORMAT (/5X, 'YUTM=' ,3014)
FORMAT (5X,* J«' .30I4/4X, "Z • ,3X, «K • )
FORMAT (IX, 214, IX, 3014)
WRITE IJUNIT.8500) TITLA, IMC, JMC
PRINT Y-Z CROSS SECTION
1A = 1
IB=IM
IF (IM.LE.30) GO TO 605
605
610
620
C
C* • • •
625
IB=IA-1+30
CONTINUE
WRITE (JUNIT.8502) ( IUTMI I ) ,1=1 A ,18)
WRITE IJUNIT.8504) II,I'IA,IB)
J=JMC
DO 620 KK=-1,KM
K-KM+1-KK
KZ=Z«KJ
DO 610 I'IA,IB
II(I)-A(I,J,K)*RATIO
WRITE (JUNIT.8510) KZ,K, ( 1 1 (I ) , 1'IA, IB )
CONTINUE
PRINT X-Z CROSS SECTION
JA'l
JB-JM
IF (JM.LE.30) SO TO 625
JA«IJH-30)/2»1
JB«JA-1+30
CONTINUE
WRITE (JUNIT.8506) I JUTMt J) , J=JA, JB)
WRITE (JUNIT,8508) (J,J
-------
83
2. Auxiliary Program Listing
-------
84
M F M P. c
C. . . .
r
r
IQCO
100
3000
101
a D
«510
THIS p^rr;oivi or,\n<; \\- FP/\ MFP.S TINT SnilT.F TATA ANT PDTMTS
r crp r<\CH P|_AMT.
rNSIP"' In(200,140),ISFA(4)
-' r \ S I C M I S F A ( 4 )
"ATA TMNTT/1L/, JMMIT/6/
MPLAMT=C
C n NT I Nl J F
"PAD (TUNIT , POO 0,F *""»=• 10 OH LI «L 2 , L3 , T CD
F n u v M . 6) i;r T'~i 100
IF ( Trn.~p.3 ) r,n TO ?oco
•^ACKSPArF TUN IT
^n TP ( 101, 102) , K'i
PPNT t NUF
NPI. 4N
N S T * C K = C
Q =AP ( I l|M IT, a 00 U I ST JT F , If FNTY , I PI A^T, 1 1!TM , ( 'I A M i~ ( K ) , K= 1 , 40 ) , fiW N
FOR WAT (T?, K,3X, I't t'+X, I?,7X,A141,1?X,A1)
WITF ( JliN'T T, SSIO) NfLiS'T,! UT", ISTATF ,1CPNTV,
102
R002
3520
103
^003
1 04
OCOOCC10
OOOOOC20
OCOOOC70
OOOOOf 40
ooooocso
OCOCCC6C
00000070
00000100
OC00011C
00000120
00000130
00000140
00000150
f, , (N4Mf(K)
npM^T (//f1),',
F. ,', PLANT 1"-' t I*.qX,4r,Al, 3X, • ;
f, SX,'STACK',?x,'IITMX',3X,'i!TMY',
f, . • SPATF ' , 5X, ' nl A1 ,4X, 'T' ,/tX ,' FLPW ,3X , ' 7*' ,4X, ' <;-! •
r, , ?X, ' S-" ,2X, 'S-3 ' , ?X, ' S-4 ' ,3X, 'HP < ,2X, 'n&Y1 , 3X , • WK ' )
TC iv=0
yor,rv = 0
TTNT I NMF
NJOO r VT=\!nPT N T+l
OE^P (IHMTT.qoO?) I STATF, JCCVTY j.jPLANT, IPTI NT , I xo, I YP , I 7.P. TOP , I T
F, , TFR, IPH, I°f 1 , I or?, ICH
FP'JMAT ( (2, I -+,3 X, 14,1 2,SX,T 4, 15, 14, 13,14, [7,14, IX, 21 2 ,2 OX, ID
T^ ( I T.n.KF. 7 } r,r T!i 3000
TP ( JSTATF. NF.I STATF) W^TT^ ( ,|IIM T T , P S 20 ) IS TAT c , ! CPMT Y , I PL ANT , I CO
IP ( icpKTY.'iF.icrMTY) VDTT- IJU^IT, P5 ?oi ISTATT ,TC:INTY,IPLANT, ico
IF ( .|3L/iHT.\lF .1 Pl.AVT) ^JcfTc f J'UJ JT,P5?3 ) ISTATE , irn\!TY, IPLAMT , im
FO-JMAT (' -"= ;; "'~SsrDLE F^^1"'^ AT : STA TC ff OIJMTY, PL ANT , en • , 41 6 )
MEA'l
-------
85
201
8530
3000
8550
1001
. EPAPTRL
PEAT UUNIT,8COCJ Ll,L2,L3,ICn
IF UCn.NE..5) WRITE ( JUNIT, S520 ) ISTATE , ICDNTY, I °l ANT ,1 CO
REAP) UUNIT,8000) L I , L2 ,1.3 , ICR
IF (ICD.NE.6I WRITE (JUMT,fl520) I STATE ,1 CDNTY, IPCANT , ICD
IP (( IPC1.EQ.O) .ANn.(lPC2.EO.!3) I GO TH 201
IF (TPOTNT.LT.TPC2) GO TP 1000
I'?CCM=0
!CO*=0
CONTTNIJF
NSTACK=NSTACK-+l
XP^=TXP
XP=XP/.lO.
YP=IVP
YP=YP/10.
r!P=inP
n.p=nr»/io.
SPACE=ISPACE
SPACF=SP4CF/10.
MR.ITF (JUNTT,R530) NSTACK ,XP, YP , T 7P , I QP ,S P ACE t OP, IT , I FR , I PH
f; , ( ISRAJK ),K=l,4)tNHR.NrAY,NWEFK
FORMAT C5X, IS,2F7. 1 ,15, IS ,2 FP . 1 , T 5 , IP ,15, ?X, 7151
r,n TP 1000
WRITE (JUNIT,8550) IS TATE , I CONTY , TPLANT , ICD
FDRM4T (• -***** FRTR FXTT 4T : STATF .COUNTY, PL ANT , ICD ='
CONTINUE-
RETURN
FND
OOOOC590
30000*00
00000610
00000*20
OOOOCtSO
OOOOC6*0
00000*50
00000«AO
00000670
OCOCCAflO
OOOOCfi^O
00000^00
OOOOC710
00000720
OCOCC730
00000740
1CT.TC750
ooooc760
00000770
OOOCC7BO
OOOOC790
00000800
OOOOOP10
00000820
00000830
OOOOOP40
0330C850
OOOOC860
00000870
-------
86
L * * • <
c
c
c
c
1000
100
ROOO
101
R001
R510
10Z
R002
103
\i A " p F D 4 P T
THIS PPPGPAW R
T A HLP FOR FACH
IT ALSO CREATF HATA
STACKS WITH z^on "'I S^ICA'CF so?
niMFN'SIPN IQ(200, 14C) , ISFA( 4)
0 T '< F M S I C N I S C A ( 4 )
LOGICAL*1 NA^E(40),OWN,KKnATA(RO)
HAT A [IIMT/ll /, J'JNTT/6/ ,KUM IT /I 2/
SID^ AN'T=0
TN CP& MFHS PHINT SOURCE HATS AMP PMN'TS OUT
.DAT 4 WHICH SL
REAH ( IIIMIT ,SCOO, FMn= 1001 ) 1. 1 t L 2 , L3 , 1 CD
FHRWAT ( I 2, 14, 3X, I4,66X,T 1 )
IF ( ir/).po.9t r,n TH 1001
IF ( icn.Fo.6) nc TO 10?
IF ( ir.n.GF.31 on TO 3000
BACKS PACT II IN IT
m "m (ici, 10?) , trt
CONTINUE
NPLAMT=NPL« NT+1
NSTAr.K=0
PEAP ( IIJNITtfiOOl )
jfCN'TV, I PL A^T, TMTM , ( NA WF ( K ) , K= 1, 40 ) , OWN
,2X,40A1,1?X,A1)
, I IjTM, TSTATP , TCdNTY, IPL4NT
( JHMTT, 851 J) NPL
, < MA*F( Kl ,*=l ,40} .HUN
(//I5,1, UTM^«,I2,', STATF = « ,12, «, C CUNTY= • , I 4-
,'. PLANT in = - , I4,qx,4041 ,3X, ' ; CWMFR=',A1/
SX, ' ^TACK ' ,3X ,'IJTWX1 , 3X, ' i)T«Y' , 3X,« 7P' ,5X,' SG?' ,3X
2X, ' S-21 ,2X,
,2X,' S-4 ' ,3X, 'H?1 ,?X, lr»AY' ,3X» ' Wk • )
CHMTTNIIF
ND"TNT=N'PPI NT + 1
»FAT I ILINIT ,R052) -I ST AT F , JC^^•TY , ,JPL ANT, IPO I NT , 1 XP , I YP , I IP , TD= , I T
r, , Ic« , IPH, TPC 1 ,1 °C?,TCn
FnsyAT (12, 14, 3 X, 14, 12, PX, 14, 15, 14, I?. ,14,17,14, IX, ? I 2, 2 OX, ID
IP (im.NF.2) nr TO 3000
1C ( JSTAT.MF. ISTATr) WRITr ( Jl IN I T , P520 ) T STA TE , TCPNT Y , If LAMT , I CD
IF (jrnMY.NE.ICn^TY) WITF (JUMT,R520) ISTATF,1CONTY, IPLANT, ICO
TF (JPLANT.NC.IPLAMT) WOTT^ (JUNIT,R6?0) I S Ta TE , I CPNT Y , I PL ANT , I CH
FHKMAT (' *-f PCSMPLF FPHOP 4T : STATF, COUNTY , °L ANT , rn • , 416 I
OFAP (II!MT,8000) LI, L2 ,1. 3, ICO
IF (TCP.NE.3) M«ITF (JUMT,P5?1) ISTAT^ , ICONTY, IPLANT ,ICD
T FPRn? = 0
CHNT IMJF
"FA^ (IUNIT,R003) JSTATF, JCCNTY, J°LAMT, JPHINT, ( TSFA (K ),K=1,4)
r .NHR ,N'n^Y,NWrFK, IP P , I S PAT^ , I CD
COR VAT TCO
WITF (JUMT,«5?0) IST4TE, IfTNTY, IPtA\T, TCD
GO TH 1 0 T,
OOOOC010
00000020
OOOOOC30
00000040
030D0050
OOOOCC6C
00000070
OCOOOCRO
000000^0
00000100
00000110
OOOC0120
ooocono
00000140
00000150
00000160
00000170
000001RO
00000190
03000200
00000210
00000220
OOOOC73C
00000240
03000250
OOOOOP60
00000270
000002RO
00000290
OOOT0300
00000310
00000320
OOOCC330
00000340
03000350
00000360
00000370
00000330
00000300
00000400
00300410
00000420
00000430
0000044C
00000453
00000460
00000470
OOOOC480
00000490
0330C500
00000510
00000520
00000530
OC000540
00000550
00000560
00000570
000005RO
-------
87
201
S530
8700
250
1000
8550
1001
EPAPT
CONTINUE
IF (JSTATF.NF..TSTATE) WRITE (JUNIT, 8520J ISTATF , TCONTY, IPLANT
IF (JCONTY.NE.ICONTY) WPITF (JUNIT,8520) ISTATF,TCONTY,IPLANT
IF (JPLANT.NF.IPLANTI 'WRITE ( J'UNI Tt *520) ISTATE , ICONTY, IPL4NT
IF USTATF..NF.ISTATEI WRITE (JUNIT,85201 ISTATF,TCONTY, IPLANT
IF (JPOIMT.NF.IP3TNT) GO TO 3000
REAC (lUNIT.BCOO) L I,L? ,L1, ICD
IF (ICD.NE.5) WRITE (JUNIT,8520) ISTATF , ICONTY,IPLANT,ICD
READ (IUNIT»8000) Ll,L2,L3,ICn
IF (TCD.NE.6J WBITE (JUMIT,85?0) ISTATg, ICONTY,I»LANT,TCD
IF ((IPC1.FO.OI.ANH.(IPC2.EO.O)» GO TO 201
00003*10
00000620
TFLPH-IFLOW4.IFP.
IF ( IPOINT.LT.IPC2) GC TO 1CCO
IQP^IOCCM
!FR*TF(_nW -.
TCOW-0
CONTINUE
XP^IXP
XP=XP/10.
YP' IYP
YP=YP/10.
OP-TDP
SPACF'I.SPACE
SPACF*SPACE/10.
WRITE (JUNIT,8530) NSTACK ,XP, YP , IZP , IOP , SP ACE, np, IT , I FR , IPH
£ , USEA(K),K-1,4) ,NHR.fNCAY,NWPFK
FORMAT J^X, I5.2F7. 1 , 15, I«,2FR . 1 , I 5, I 8 , I 5 , 2X ,71 5 )
IF ( IQP.FQ. 0) GC TO 250
12
, 14, 15, I*, 17, 2 n,I4f 17, 14,512,11,12)
8710
=-
WRITE ( KUNTT,8700) NPL ANT , NSTACK , ISTATE , TCONTY, IPL ANT , I UTM
E , IXP,IYP,t ZP.IOPiTSPACEt I DP, IT, I FR ,TPH, (ISEAIK ),K=1,4)
E ,NHR,NDAY,NWEFK
FORMAT I 14, 212,214
IQTQT=IQTOT+iqP
GO TO 1000
CONTINUE
NDSC2=NOS02*1
GO TO 1'COO
WRITE (JUNIT,M50) ISTATE, I CONTY, IPL ANT , ICO
Fn«WAT (« ***** F«RtR EXIT 4T i STATE .COUNTY, PL ANT , ICO
CONTINUE
REWIND KUNIT
OTOT=IQTnT
WRITE IJUNIT,8710) NUMRFR, QTCT, NOS02
PHRMAT UNI,'.*** NIWBFR CP PCINT SOURCE =«,i5,' *T*«/
t *** TOTAL SH2 FMISST^N =',E14.7,« (TONS/YR) ***•//
• *** NH. OF POINT SOURCE WITHOUT S.02 EMM IS ION =« , 1^
/// • *** REDUCED PCTKT SOURCE DATA ***•/
• ..... nSN-EPAPTl.DAT A" )
DO 30C
PFAP (KUNIT,37!iO) ( KKCATA
-------
\j ^ in r: F D a P T
FHPMAT (15,'. ',8?M1 0000117C
300 rnNT!MHF nooOllRO
RFTMON 0003H91
c\n onooi?oc
-------
89
MEMBER NAME EPACLKTR
C.... THIS PPCGRAM is PROVIDED PY ep ( ( PI ( F ,J) , J=l, 8) ,1 = 1, 8) OOOOQCSO
WRITE(3«JBLCCK) R! OOOOOC6C
10 CDMTINIJF OQO-10C70
TJK=1 OOQOOCRC
00 20 JRLPrK.= l,fl 00000090
P.PAO(T JRL.CCK) P.I 00000100
WRITC( JUMIT,2000) » (Bid ,J) ,,) = !,«),T=l,8) 00000110
20 CTMTINIJE 00000120
1000 FTPMAT(1X,F1UT,2F10.3,F8.3,2.F6.3,2C5.3) 00000130
2000 FOPM4T( lX,P12.3,2Fll.3f F.3,2F7. 3,2F6.3) 00000140
STOP 00000150
F.MO 00000160
-------
90
c..,
c
c..
c
c
2 MAWP CDAPTI
THIS PROGRAM COMPUTES PrINT SPURGE LOCATION ACCORDING
TO IJTM ZPNF 15.
TITPIIT 1^ PSN=EP'PT2. TATA WITH ALL SOURCES LOCATION AS IN
IJTM 70NF 15,
DIMENSION IC( 200, 14C) , I^A( 4)
^ I S E A ( 4 )
XP.YP,X,Y
LOGICAL*! NAMF(40) , CWN,KKC»TA(f!0)
DATA IHMT/11 /, J1IKT T/6 / » KUN IT/I 2/
IOTTT=0
KRITF ( JUNIT, 8010)
8010 FORMAT (?X,'PCINT Fl. ANT STACK IIT «« , 5 X, MITM X '
r. .fX.MITMY'^X.'X-^'^X.'Y-lS'^XT'ZP'f^-X.'Q1//)
1000 CHNTINUE
REAP ( IUNIT ,qooO,FMn=1001 ) \ PLANT ,NST AC K , IS TAT E , ICONTY, I PI. ANT
£ , TUTM, XP.YP , I Z P,!QP,ISP'irc.inP,IT,IFRtIPHT(ISFA(K>TK = l,4)
f> ,MHP,MnAY, N-JF^K
C8000 FHRwftT (T4,;?I2t?!4rT2,I4,T5fIi,,I7,2I3jI4,17,T4t5I2,Il,I2l
8000 FT? WAT (IA,2I2»?I^, I2,F4.l,F5.1,I't,I7,2f3,I4,I7,I4,5I2tIl,I?l
IP ( IUTM.EO.15) GP TH 1 10
IF ( HITV.CO.O) on ^r 100
Ic (XP.FO.O.) GO TO 100
IP (YD.Fo.o.) r,c TH 100
X=XP«1CCO.
Y=YPft1000.
CALL RTOR (J,Y,X,0)
X=X/1QOO.
Y=Y/1000.
GO TO i?n
x=o.
Y = 0.
GO TO 120
COMTINUF
X = XD
Y=YP
100
110
120
WR TTF ( JUKI T, .1720) M.IMR" ,M°LANT,NSTACK ,HITM,X° ,YP,X,Y, IZP,IOP
8720 FRPMAT (2X, 15, ' , ' , ?T6, T4.AF 10.3, 15, IR)
H510 FHRWAT (//T5,1, ilTM=i,T2,., STATF=- ,T2, ', C OIIMT Y= • , 14
G ,•. PL^NT IP= • , i4,8x, ^OAI, 3x, • ; CWNF.» = ',AI/
f> 5X, • STACK ' ,?X , "JTM.X ' . 'X, ' UTMY" ,3X, ' 7.P1 , 5X, ' SO?1 ,3X
S , "SPACE ', 5X, ' CI A' ,
-------
91
EDAPT1
1 ' *•** TfTTOL SO? FMISSIDN =',E14.7,' (TDNS/YR) #**•)
CHNTTMUF •
WRITF .*Rl(IF,8l ) + (CFP*PK IE, 7)) ))
C =(«!( IF,3)+((CNP*A)-(CSP*P) ) »
0 =JIU( IF,4) + ((CNP*B) +
-------
92
HIS
IT
DI W
DATA
OATft
FPAPT2
OROC-CAU CO"DUTFS 'Ml IMF PISES EfR ALL 0OINT
USES EWE FORMULAE AS LISTED IN PRINT OUT.
Sir-N ISF *(4)
If N 7Rl(270),7R?(?7G),7_R3(270),7R4<270),7R5t?7:»
ENSICV A(3) ,U1 (3) ,H?<3) ,U3(31 ,U4t3) ,D5(3)
MS I(?N PR l( 3) ,PR2( 3) ,PP3( 3) , PR4I3) , PR5(3)
CP/.24/,RHP/1.?T/
4/0. ,0.5,1.O/
IUNIT/11/,JUNIT/6/
8500
'-^CftLCULATES
°ISE MPT ACCn.'NTT MG cpp WIMO S
WITF
( JUNIT, !
- pi *-.-,* PLH^F RISE NCKMALT7EO RY WINO SPEED *-»«'//
1 7Dl=(-0.02';'*VS*rH5.35»') , 7R2(Ni
,i°3 (\)
ACK,XP,YP,7P,IQP,OP,TS,FR,PH,
N I ,7.P5 (N I
00000010
OOOOOC20
00000030
10000040
OOCOOC50
00000060
OCOOOC7C
OOOOOCBO
OCOOOC90
OOOOOIOC
00000110
0000012C
00000130
00000140
OOOOOl'SO
00000160
00000170
00000180
00000190
00000200
00000210
00000220
0000023C
00000740
00000250
00000260
00000270
000002RO
00000290
0000030C
00000310
00000330
0 0 0 0 C 34 0
00000350
00000360
OCOOC37C
00000380
00000390
00000400
0000041C
00000420
00000430
00000440
00000450
00000460
00000470
00000480
00000490
00000500
00000510
00000520
00000530
00000540
00000550
00000560
0000057C
000005RO
-------
93
MEKBFR NAfF EPAPT2
1510 FORMAT •llX,I3fI4,I?,F6.1,F7.1,P6.1fT3,F5.1,F7.1tF8.IfFS.l,
R 5p7 il. )
GO TO ICOO
1001 CONTINUE
8600
200
**CALCULATFS PLUMF RISE FOR THREE VALUES OF VINO SPEED AND FOR
FOUR VALUES CF THF PARAMETER A**
00 400 1=1,3
U=U+3.
WRTTF < JUN!T,8600) U, ( f (K) , K = l , 3 )
FORMAT Cl *** PLUMF Risf COMPUTED RY VARIOUS FORMULAE FHR U
. ,F3.1,» M/SEC ***«//6Xf3(3X,13(1-'),' *-', F5. ?, IX, 13( •-•
6 3X,'N« ,2X,3(6X, ' *
DO 200 K=l,3
UU»U+A(K)*EXP(-U)
UUK ) = UU
(1?(K»=UU**(3. 0*0.27)
U3{K)=Utl*t*0.70
7R3« ,4X,
U5-(K)=UU**0.694
CONTINUE
DC1 500 J = 1,LM
DO 300 K=l,3
PRKK ) = 7.ni(J)/UKK )
PR2(K)=ZP2( J)/U2(M
PR3(K)=ZR3( J)/U3(K)
/M4(K)
300 CONTINUE'
WRITF (JUNIT»«610) ,t,(PRl(KI
500 CONTINUE
400 CONTINUE
8610 FORMAT (1X,I3,» *' ,3(3X ,5F7.1))
STOP
END
,PR3(K),
», PR«;(K ),K=1,3»
000005«?'0
00000600
00000610
00000620
00000630
00000640
00000650
00000660
00000670
000006SO
00000690
00003700
00000710
OOOOC720
00000730
00000740
00000750
00000760
OOOOC77C
00000780
OOOOC7«»0
00000900
OOOOOftlO
OOOOC620
00000830
OOOOC840
OOOOCP50
00000860
OOOOCP7C
00000890
00000900
00000910
ooooc<;2o
00000930
00000940
00000^50
-------
94
C..
THIS
v M.M"; t>m\iT SOURCE EMISSION in HNF SO. KM. GPIR.
0(700 ,1 40 ), I SPA (4 )
TMTcreRv2 VPS ( 200, 140) ,M"T
fMTA JilfvIT/11/, JHN1T/6/,KIIMT/12/
QATr n/28000* C.C/,VPS/2POCO*0/
DTPT=0
TXMAX=200
YRCG=TY«FG
ri = l f.VFMO
wo IT17 ( JIIMTT,P01 3)
BOIO CTPMAT (
-------
95
NAME
WRITF »JUNIT,8520)
8520 FORMAT (///• *** POINT SOUPCF EMISSION PER EACH ONE SO. KM.'
£ .' GRIP ***'//6X, 'I ',4X, 'J UTMX UTMY' , 7X, '0' ,3X, «N»//)
NPT=0
no 200 1=1, I/MAX
DO ?00 J=1,IYMAX
TF (0(1 tJI.LF.0.1 GT in 200
ILITMX=H-IXBFG-1
TUTMY=J+IYREG-1
8530
200
8540
300
WRITE ( JUNIT.B53.01 I,J, IUTMX, IUTMY,Q(I,J),NPS( I,J)
FORMAT,(2X,315,16,F10.1,131
CONTINUE
WRITF: (JUNIT,8540) NPT
FORMAT (///' *** NUPRER OF PCINT SOURCE IN AREA SOURCE WAP
•G ,15,5 ***'//)
8710 FORMAT (/////• *** NUMBE& OF PCINT SOURCE »',I5,' ***•/
G • *** TOTTl S02 EMISSION =',E14.7,' (TONS/YR) ***')
CONTINUE
CALL FPAWAP
-------
96
c...
r...
C • * •
0 • • I
c...
THIS OFins ]M ?p£ ^FPS APT* SO'IRCES "414 (TON/YEAR)
IN UNIFORM 1-KK GRIP 4NH CHPPSF/A SIIR-ARFfi ^PP ANALYSIS.
TXRFG, i YPFG^RIGIN PF THF GPTPS IN UTM,IXMAX,IYMAX=ARFA SIZF
OA, r< 200, 140)=APC^ S01JPC.F STRFNTH.
T RFG, JREO=OPini N PF THF SUP-ARFA
ISI717, J SIZE = SIZF OF THF S'IP-AREA.
OOOOOC10
0000002T
OOOOCC30
KM00000040
00000050
HI MEN SIGN 0(200, 140) , IQ(20C) ,IXUTM(200) t JYUT "( 140 I , I f< 200)
* ,T A(200), J 4( 140)
IMTFPjCR*? Mpc (POO, 140 ) ,N'DT
nATA Q/ 28 00 0* 0. O/ , 1 UNIT /^/ , JUKI T/6/,K UNIT/11/ ,1 FORM/40/
DATA IUNIT/5/, JUNrT/6/,KI)NIT/U/, IFORM/70/
, TXOFG/e^C/tlYREnMl^O/.IXMiX/aOO/, IY«AX/140/
* ,IPFr,/R6/,JPFr,/6?/,ISTZF/40/,JSIZF/60/,PXA/l./,DYA/l./
niMfNMriN iQ(^o,40),iP(io),jf'(io),nxp(io) ,DYR( 10)
PAT 4 IPM/3/,.)RM/3/,IR/'5,20,6,7*0/,JR/10,20,10,7*0/,IM/30/,JM/40/
, OXP/2. 3, 1.0,2.0,7*?.0/ , TYP./2 .0,1. 0,'.0, 7*2.0 /
14(1 )=[RFr,
C
.... "E40 IN 0(200,140) SNO QTTT.
pcw?H'0 KUNIT
m 100 j=i, IYW^X
RFAC (KUNIT, 8C60) ( n ( I , J ) , 1 = 1 , I
806P FHRU/ST (10F7.5,10X)
100 r/lMTIV'UF
(KUN IT,0073) OTDT
fl070
'SIZE-1
TTPT=TSI7F*JSIZE
.... SUM THE TrT&t sc'iRCF QTPT FOR
SOTCT=0.0
MPT=0
no 2CC J=JPFG,JFNP
DO 200 I~IPFPTIPNP
w o T = M p T + K' p ^ (i t j )
200 SQTPT=SOTOT+C ( I ,.l)
S03(
8040
SIIP-ARFA.
WRIT? ( JIIN'IT,a030) ITrTjSeTPT.OTnT.PQTOT
(i * » * NjyMpFR OF AP
• *** TGT/M. SOURCE
JUNIT,8040) MPT
(/i >ffif Min<«|rR QP PP.INT SCUPCFS
J 4 , • »K«: I // )
SOURCES = ',110,' **»•/
nM f, RATIQ= ',3P,l?.'i,
pn
300
J=ltJSIZF
[ J )=IYRFG + Jf
OP 310 1=1,ISTZF
310 I XUT«l I ) = IXPEK-»-Tf
C CALL WP ITFO(0,IXMAX,IYMAX,ISI7F,JSIZF,IRFG,,
C * ,JUNIT,JI)
WRITE ( JIINIT, 8510)
HO 400 J=l,JSIZF
no 40C !=1,ISI7E
00000070
OCOOOC80
OOT00090
OOOOOIOC
00000110
00000120
0000013C
00000140
OOOC0150
00000 160
00000170
00000180
00000190
33000243
0000325C
00000260
00000270
00000280
00000290
00000300
00000310
OOOOC320
00000330
00000340
00000350
00000360
OCOOC370
000003RO
00000390
00000400
OOC00410
OCOCC420
00000430
00000440
OCOOC450
00000460
00033470
00000480
000004°0
COOOC50C
00000510
00003520
00000530
00000540
.00000550
OOOOC560
XHTM,JYUTM,I FPRM 3000C570
00000580
00000590
00000600
00000610
03300620
I *-/*-! )
IN COMPUTATION AL GRIP. =
-------
97
MEMBER
C ..
400
NAME EPAPTA
TF ( «Q(I ,J) .GT.O.) ,AND.(C( T,J)
QH,J) =
C
C
3510
3520
t
.. C.02376664 COMVERT TON/YR TO GRAM/SEC.
CONTINUE
C4LL GRTDCN(Q,IX1AX,TYMAX,I A,JA,OXA,DYA,qQ,IM,JM,TR,J8,
IRM,JRw.IXUTM,JYUTM,I)
CALL WRITECKOO, IM, jy, IM,JN!,1, 1, IXUTM, JYUTM, IM, JUNIT,II)
CALL WRITEO (Q,IXMAX,IYMAX,I SIZE,JStZE,I PEG,JREG,IXUTM,
, IFf]R*,JUNIT,II)
WRITE
-------
98
P'l
.) = (
COADJ4
(J|IMT,rVT2) ( I T ( I ) ,1=1 it I
JJ = 1 t JSI ?F
)-JJ
Mf JS I7C+1-JJ )
410 I0( I )=0( I ,,l ) vRATIP
C URITF ( JIINIT.R050 I JUTV , J , ( TO ( I ) , 1= I A , I R )
C8050 FHPVAT (IX, 14,I 4,IX,40^3)
WPITF 'MSK IK CAfiO '"AGE.
C
C.... WRITF 0(1,J) PN nis^...
f PT 4 JO J = l,IVMAX
C WRITc (KI'MT,8060) ( n ( I , J ) , T = 1 , I X ^A X )
C8060 F^RV^T
400 CONTINUE
C8070 FPRVAT (I
J
, 8070) OTHT
[HCN( fi,IN, JM,I A, J4,
, nv4, 10, IM , JM, I P , J R,
I^, L)
, PVR,
C. ..
C. ..
c..,
c...
c..,
c...
c...
c..,
UNIFnpv
INTU
L=1,THTS
I1MIFHPM
L=2, ^O^VFRT 00 IN'TT 0.
14, J/! = LTATITN TN 00 GCTO WHCRF r,RTO SP AC FCHAMGES , EXCFPT
TA(1),,JA(1) OENfTF^ THF PPTGTM CF 00 --- 00 ( 1 , 1 ) = 0 ( I A ( 1 ) , JA ( 1 ) ) .
nx,r>Y=G[>in SPACF M , T Ad"1) , J4( J«), nxP( 1RM) ,nYR(JRM)
, IXIITM( ] M ) , .jYIITM jv ) . IP (I RM) , JR(JRM)
HXA1=1.0/nXA
DYAI=1.0/nY4
c.,
c.,
IPFC=IA(1)
IXPCG=TXIIT\1 (1 )
?FT UP THF TAPI.C
Jl = 0
^P 20 J=1,JPM
T^IP1CIFS OF C! T, J) .
IP (Jl .GF. JM) r,p TO 73
JM J1 + 1)=JA( Jl) ^-JT^ TV|_
JYMT^(Jl-fl) = JVI|Tw(.(i)4
10 CONTIMJE
20 CINTTM'IF
11 = 3
00001210
00001220
0000123T
00001240
00001250
00001260
00001270
000012RO
00001290
00001300
00001310
0000l??0
00001330
00001^40
00001350
00001360
00001370
000013RO
00noi?90
00001400
00001410
noooi'470
00001430
T0001440
00001450
00001460
0000147C
000014SO
00001490
00001500
00001510
00001520
00001530
00001540
00001550
00001560
00001570
00001580
00001590
00001600
OC00161C
00001620
00001630
OOOOlf40
00001650
00001660
00001670
00001680
00001690
00011700
00001710
00001720
00001730
00001740
00001750
00001760
00001770
00001780
-------
99
NAMF EP»PT4
DO 40 t-»l,TBH
IINTVL«f>XBU)*nXAH-C.2
DO 30 T I-li I
ti«im
IF (ii .GF.. IMJ r,n TO 40
T1)*I FNTVL
30 CHNTINUC
*0 CHNTTNUF
C hEnUft TNIT( I4,JA»
C.... TRANSFORM 0(KI,KJ) TO QQ(I,J).
DT 600 J*ltJM
JJJFNO^JINTVL
IF (J .LT. JM) JJJFNP=JA( J+11-JA( J>
DO 500 I»l, IM
KI^TAII I
It IF.ND*TTNTVL
IF IT .LT. IM) IIIENn=IA( I+H-IAC I)
THE 0(KI,KJ) TO GET 00(IIfJJ)
DO 20C JJJ-1,JJJENP
DO 100 TIT*1, IT
KI I
lj • • « I
C * * • i
C..
,KJJ)
100 CONTTMIE
200 CONTTNUF
300 CONTINUE
400 CONTINUE
500 CONTINUE
600 CONTINUE
RETURN
C HEBUf", TMT ( I A, JA,KI,KJ )
END
00001790
00001800
00001R10
00001820
00001fl?0
00001340
00001850
00001860
00001R70
00001880
00001890
00001900
00001910
0000l'920
00001530
00001940
00001<350
00001960
00001970
00001580
00001990
00032000
00002010
00002020
00002030
00002040
3C002C5C
00002060
00002070
OC002C80
00002090
00002100
00002110
00002120
00007130
00002140
30002150
00002160
00002170
-------
100
.j F. M B F
C....
C "
r
r....
C
C....
C,...
R \i A, v F F p A P T =;
THIS PPPGRAW rn%iD i Nrs S^ALL FHSSIPK snuTrs IN * DLAMT
Tn ^F ThpaTFO AS : 1) A SP1.PC-, IF (OS.GT.1SO): no 2) PACT
IF A LAPT,c <;ni|PCF TN THC ^AMF PLANT, IF (OS.LE.150).
OS IS m/RTVFFr, snilRff: F*'IScIrN PF STACK HAVE
0 LFCS THA^I PP ^OIIAL TH 150 TnNS/YrAP.
IMPIJT CATA SFT = IIIMT, IT is A DCnucFD "PINT sniprp ^STA FPRM MFOS
THI<: PRPGRAv ALS'i rpFiTFS NFW HATA SETS FPR PpINT SPURfF PNI
I /P IJ^IT-KII^IT ANT KIINITI
f n'ifcnN1 KOLA N'T (?70) ,Ko^T?CK(270),TSTATF(27n), imMjY( 770 )
£ , IPLAMT (770 ) , 1UT».'( 770 ) , XP ( 773) , YP ( 770) , 7_D( ^70) , IOP( 270)
r, .SPAT. E(2~'0),PP(2^0),TS(?70),FF(?701,PH(770),TSFA(270,4)
00000010
OOOOGO?0
i_nr, ICAL»I A («n)
TATA rp/ .2A/, PHn/1 ,29/
DATA IUNIIT/Il/,JM''IT/6/,K U'>l I T / 1 2 / i
8000 FORMAT n4,2I?,714,I?,F4.1,F5.l,F4.3,I7,?F?.l,F4.0,F7.0
E t FA.O, 51 ?., I 1 t I ?l
R600 FOPw*T ('1 **-*•<* PfINT SHiJPrr TATA RFFflh'C SMALL E M I S S I DM SHII
r, .' PEIN'fi rr"RTK!Fn «•****«//' .... fll.L "APA^FTFPS AR F •
f, .' LISTrH I" '-"GS UNIT, EXCE°T C IN TON S/ Y^ AR . ' //
r, 3X,'N !nS':T CT IT HTM y v ZP n
£ ,' PP T^ FLOW nj --ISpA — HP... Z"^ '/)
RMO
fl700
R900
R910
FT19WAT ("1 »t*** PPINT
B9SO
HATA SF T W I TM S^ALL SOUFCFS « F I N1",
^X,'\IO^ST CT!^ X Y ZP 0 SP'
,' PP TS Fl PU PI- —ISEA— HO... Zr-!4 NfPL1))1
'T ("1 *^*^- r".T/> PN KMMT, ?SN=ED* °T3. HATA **-**!//)
(<1 *^¥^. 110
IF (FW(K') .L E.O. ) T,P Tn no
1 = 0.
OOOOOC40
OOCOOT50
00000060
OOOOOC70
OCOCOC^C
OOOOOC9C
00000100
ooonouo
00000120
DCOOOl'O
00000140
00000150
00000160
00000170
OOOOC1RO
00000190
ooocc?oo
00000210
00000220
OC00023C
00000240
00000250
00000260
00000270
OCC00780
00000290
00000^00
00000310
00000320
OOOOH330
00000340
OC000350
0000036C
00000370
000003«0
100003^0
0000040C
00000410
OCOOC42C
00000430
00000440
000004^0
00000460
OOCCC470
00000480
00000490
00030500
00000510
000005PO
00000530
00000?50
00000^60
OOOOC570
00000530
-------
101
HEMRF.fi NAVE FPAPT5
GO TO l?Q
110 CONTINUE
ZR4(N)=0.
120 CONTINUE
WRITF ( JI'NIT, BA10) N , N^LANT (N ) , NSTACK i N J t I STA TE ( N )
F, , ICPNTYIN1 ,IPLANT(N» , IUTN( N ) ,XP( N» ,Y»M N 1 , ZP( N ) , IQP (N )
E ,SPAr.FtN),DP'N),TS«N|fFR(N) tPH(N), ( ISF A(N, K| ,K*1 ,4 )
F. ,NHB
-------
102
MCMRFO N
'30
C. . .
r P £ D T ^i
C...c.
1003
C...
?00
310
C...
AOO
410
420
C....
500
C. . ..
600
610
t?0
11 DO
I* (TI FF.LT.Z'MF) C-n
7njcF=7ni
I P f T M T = M
n
IF
A
M p = M P + J
M(-_nvn ( «p ) = y on IMT
H 5= H <; -i- 7. P ( T P r i NT ) - 1 0 P ( ! P r i NT )
Z° S=7P S-*-ZR4( I P(j J"iT ) -\ OP (T POINT)
) Or Tfl
C( T°CTNT
IQP(IPCIN.T)=OS
GO Tn 600
nMLV CNF STACK TN' THIS c>LAMT, "ir CHANGE.
CfT'lTINUF
CALL H^ITEP (f\S , JST AC K , t\FV , JU'vIT, KI1M T, K' IM IT I , I , M S I
GO TH 1002
IMfl STATK I"i A PLAf'T HAS O LFCS ThlN 153, ^H
CALL WRITER (N, JST ACK ,\FW, JllNUjKIJ^IT .KUNTT 1, 1, N I
CONTI M1E
C, n T n 1002
;TATK TP PT rrNSiriF1' A? A snuRCc
nn 410 N = NS ,^lt;'N
IF ( tpo( M) .LF.1^0) r,d rn 410
CALL WPITFP ( N, JSTACK ,N FW , j UNIT , K LM IT ,KHNIT 1, 1 , N )
CONTINUE
C 1 M T I N U F
TOP (N)=OS
ZP ( K ) =
CALL WPITFO ( M, JST/i TK ,MFW ,JL^IIT , KLM TT ,KHMIT 1 , MP,
C-n Tn 100?
IN' THIS PIAVT HA^ C LARGER THAW 150.
r,n TO 42n
OS ATCFT TCi 0( imrsiT)
C'lNTI NUF
IF (I QP (N) . Lc.1.50 ) Cn Tn 6?0
IF (M.pq.TPCINT) Gn TH 6io
CALI WOJTFP ( N, JST*CK ,MFW,JL.MIT ,KLMT .K'lMITl, ] , M)
GT Tn 620
Cn\'TT NUF
CALL WRITFP ( ^'t JST 1CK , M FK , J UM T , K UN I T , KUM ?T1, MP ,
C,n Tn 1C02
G0001170
00001 18C
00001 190
C0001200
00001210
00001720
000012^0
000012^0
00001250
00001260
0000] ?70
000012 SO
00001200
00001300
00001310
00001^20
C0001330
00001 ^0
00001350
00001360
00001 ?70
0000138C
F W I M n f ( I M T
'FWIf'n KUMT1
00001400
00001410
00001'2C
00001430
0 GOD 144 0
00001450
00001460
OC00147C
00001480
OOD01490
00001500
00001510
00001*20
00001530
00001540
00001 550
00 301 560
0000157C
00001530
^0001590
00001600
0000161 3
00001620
0000163C
OC001640
0000165C
00001660
00001670
C00016PO
000016^0
000017CO
00001710
000017?C
0000173C
000 31740
-------
103
700
800
810
, 80 I
NAMF FPAPT5
WPTTF (JUNTT, 89001
CONTINUF
REAP (KUNITtpqiO,FND=800) I MO ,K*1,80)
.WP-TTF {JUMT.8950) ( A f K) , K=l , 80 )
GO TO TOO
CONTINUE
WRITF (JUNIT,8940)
CONTINUE
READ (KUNTTl,B9lOtFNn=lllO) ( A( K ) ,
WRITE (JUNIT.3950) ( A (K ) ,K= 1, SO )
(in TO PlO
1110 CONTINUE
STOP
FND
SUBROUTINE WPITFP ( N, J STACK ,NFW , J UN TT ,KUNIT ,KUNIT1 , MO .MOLD)
COMMON NPLANT(270) , NS TACK (270 ), ISTATF (270 ) , ICONTY ( 270 I
6 ,TPLANT(270) , IUTM( 270) , XP ( 270) , YP (270) , ZP t 270 > , IQPt 270)
6 ,SPACF(270) ,OP(270) ,TM?70) tFP(270)iPH( 270) , I SEA( 270, A I
6 ,NHP.( 270) , NO AY (270) ,NWEEK ( 270 ) , ZR4(270)
niMENSICN
JSTACK=JSTACK*1
WRITF ( JIINTT, 8710) NEWtNPLANT (N>, JST4CK, ISTATF(N)
t ,ICONTY(N) ,f PL AN TIN) ,XP(NI ,YP( M ,ZP(N)
G ,IOP«N),SPACF(NI,DP(N|,TS(N),FR(N),PH(N)
R ,{ ISFA (N,K) ,K = 1,4) ,NHR(N), NT AY (N ) , NMF.EK ( N)
E, ,ZP4(N), (MOLD(K) ,K = 1,MQ)
in=i •
IXP = .XP(NI*10.
IYP=YP(N)*10.
TTS=TS(N)*10.
IFBl
!PH
(XP(N).LE.O.O) GC TP ICO
(YP(N).1E.0.01 GO TP 100
((7P(NJ .LE.O.) .AK'D.(PH(N).LF.O.) ) GO TO 1\00
(( ZR4(N) .LE.O. ) . ANT. (PH(N') .LF..C. ») GO TO 100
— NFW , XP(N),YP(NJtZPH,IQP(N),
100
110
8710
8810
8820
8830
IF
TF
IF
IF
WRITE IKUNIT1,8820)
GO TO 110
CONTTNUF
WRTTF (KUNlTlt8830)
NF.W , XP( M ,YP< N) , ZPH , TOP (N 1 , ZR4J N)
. G , IDfXP(N),YP(N),7PH, IOP(N),ZRA(N)
CONTINUE
WRITF (KUNIT,8fllO) NPLANT (N ) , JSTACK , I STATE( N>
G ,ICOK'TY«N) ,IPLANT(NI ,IUTH( N ) , IXPf IYP, T Z»
G , IQP(N), ISP4CEtTOP,ITS ,IFR, IPH
5 ,(T5,FA(N,K),K = 1,4) ,NHR (N I , NC AY (N ) , NWEEM N )
f. ,MEW
FO"KAT ( IX, 13, I 4,2 13 , 15 , I*, F6 .1 ,F7. 1 , F6. 1 , 1 7, 2F5. 1, 2F6.
G ,F*.l,lXf4I2tlX,I2»Tlf T2fF7.1,« *• , 101 V 100X, 101 3)
FORMAT ( 14, 21 2, 21 4, I 2 , 1 A, I 5 , 1 4, I 7 ,21 3 , I
FORMAT I 15 ,3F7. 1, 17 ,F7. 1)
FORMAT (JMT5t3F7.lt I7,F7. I))
I
, 17 , I 4, «5 1 2 , II , I 2, 5X, 13
00001750
00001760
00001770
00001780
00001790
ooopiaoo
00001810
00001820
00001830
00001840
00001050
00001860
00001870
00001880
00001890
00001900
00001910
00001=20
00001930
00001
-------
104
"FTIJPM 0000??.? 3
00002230
-------
105
HSHSFR NAI«F FPAPT6
c.... THIS PRHG^A* PRINT nuT POINT SOURCES DATA ACCORDING TO
C VARIOUS SEQU-FNCF..
r..... INPUT OAT* SET IS REDUCED POINT. SOURCE DATA, DSN=EP APT5 .DATA
C IT ALSO CREATP HATA SET ,nSN*FP»«»T6. DATA FOR MODEL INPUT
DIMENSION NPC200) , XP( 200) ,YP( 200 ) , ZP< 200) ,QP( 200 ) , ZR ( 200)
DIMENSION NPK200) ,XPl(.200i ,YPl ( 200) , ZP1 (200) tOPl ( 200 ) , ZR1 (200)
niWENSITN IRPJ200)
LOGICAL*! YES»A(80I ,100(2001, IiU(200l
DATA IUNIT/ll/,JUNIT/6/,KUNlT/12/
DATA IXMAX/200/,TY*AX/140/,XBEG/640./,YBEG/4100./
S ,CXREG/72'5./,CY^»:G/«2?2./,CXENn/765./,CYENn/4311./
«010
1000
8050
1001
C....
100
110
8100
8110
120
C...
DATA XCC/7V5./,YCCM282./
DATA YFS/»*»/, 100/200*' •/
"EAL*4 FMTD.S( !0)/« (.15, • , '5F10 «,
WRITF (KUNIT,«010) FMT"S
FORMAT (10A4)
1)
YFND-YPFG+IYMAX
M=l
OTOT*0.
CONTINUE
READ (TUNIT jB050 , FND-100H N» M ) , XP
FORHAT (15, 3F7.1,F7.0,':7. 1,151
IF (C.NE.NP(M I ) r-,0 TO 2COC
,7*«
•/
I, YPI* I , ZP(M) ,QP(M ) , ZR (M), ID
IF (ID.FO.l) TDO(M)-YES
GO TO 1000
CONTINUE
ARRANGE SOURCE ACCORDING TO EMISSION
nn no K*I,MUX
0«1AX»0.
DO 100 N-l't N^AX
t«= (0«>(N).LE.QMAX) GO TP 100
' MP-M
CONTINUE
NP1(K)»NP(MP)
XPKK )-XP(f»P»
YP1 (K)*YP(MP)
ZPKK )=ZPC«P|
7H1(K)*ZB(MP)
IOl(K)*IDn(«P)
QP(*|P)«C.
CONTINUE
WRITF (JUNFT,8100)
FDKMT ( « 1*** POINT SOURCE ARRANGED BY EMISSION '//
F, '• *... (*) INDICATEC MISSING DATA IN ORIGINAL FILE'//
fi • N1, 8X,1 XP« , 8X,'YB»,PX,'7P« ,8X,'OP« ,PX,« ZR • , 3X , «NN«»
DO 120 N»1,NMAX
WRITE (JUNIT,8110) NPKN) ,XP1(N) ,YP1(N) ,ZP1(N»,<5P1(N),ZR1(N),N
fi ,ID1IN)
Fni»(»AT H5.5F10.1, I5,3X,Al)
CONTINUE
GROUP SOURCE ACCORDING Tn REGION
INCGD-0
ooooooio
OOOOOG20
OOOOOC30
00000040
00000050
00000060
OOOOOC70
OCCOOC80
00000090
00000100
00000110
00000120
00*00130
00000140
00000150
00000160
00000170
00000180
00300190
00000200
00000210
00000220
00000230
00000240-
00000250
00000260
00000270
00000280
00000290
00000300
00000310
00000320
00000330
00000340
00000350.
00000360
00000370
00000380
00000390
00000400
00000410
00000420
00000430
00000440
00000450
00000460
00000470
00000480
00000490
OOOOC500
00000510
00000520
00000530
OQd00540
000009*0
00000570
00000580
-------
106
MFMRFP
8? 00
C
700
210
720
°21 0
C
8300
I V A o n - o
Q i M r = j .
0 I \> A = 0
W?ITC (JilMT,R203l
FnowAT (ii**» pnii'T ^pusr^ ARRANOFO RY REGION *•»*•//
f. ' \ ' , RX , ' X° ' . RX , ' YD « , RX , ' 7.° ' , 4X , ' OP ' , flX , ' ZR ' , 3X , ' N|M' )
"in 230 N = l , NM AX
I 0, P ( N ) = 3
Tc ( ( XDI( N) .LT . XPTG ) .m . ( XP l( M) ,GT. XF \rn ) ) GP Tn 203
IP ( ( YP1 ( M) .1 T. YHrr, ) . pp . ( Yf 1 ( M . GT. YFNn ) ) GO TP 200
I\IA G0 = I N1 A GO + 1
OINA = qif\A+PPl (N)
ir;p ( M ) = 2
IF ( (XPKN) .1 T.GXr-"=f ) .PR. ( XPl (<•' ) . GT ,r XFNO) ) GP TO 703
IF ( ( YP1 ( N) .I.T.ryprr;) .no. (YP] (N) .RT .rYF.Nn) ) GP Tn 200
Ihlf.GO- j (v£(;n i-i
I G P ( M ) = 1
OINir=QI M>QP1 (M)
MR ITr ( JIIN.'IT, PI 10 ) NP I (N I , XP1 (M ) , YP 1( M) ,7 PI ( M ) , P°l ( N ) , 7 p. 1 (N )
n. , i ^r.o,n ,101 M)
WO ITE (MJNIT.FMTDS) N P 1 ( N ) , X P 1 ( N ) , Y P 1 ( M ) , 7° 1 ( M ) , OP 1 ( N ) , 7R 1 ( N )
CnNTI NI.IF
J = 1 MCGO
nn 210 N=i, NMAX
;c (IGP(M.MF.2) GO TP 710
1=1 + 1
UPJ TP (JUNIT,P110) 'vPl(N'),yPlC^I),YPl(N),7Pl(N),QPl(N),7Rl(M)
K , I , I D 1 ( N )
CP^T I MJC
nn 77.0 N=l , * WAX
IF ( IGP ( M ) . MC .3 ) rp Tr 220
1 = 1+1
WIT?. { JIIMTT, PI 10) K'P1 «• ) ,XP1 ( M 1 ,Yt>l< M) , 7 PI (M) , OPl ( N ) ,Z^1(M )
f, , I , ini (N )
CONTINUF
OTPT°= 1
01 NCR = QTN'C/ IOTCT
0 T NAt5 = 01 VA /OTPT
W'.ITF ( Jl IN I T , 87 10 1 Nv> A X ,OTPT , OT HT" t IMTGO , 0 I NT , 01 NC R
r. , I s A r- o , o i M A , o i N A R
cpPMAT (///9X,'N'TllX,'Q'tl:;X, 'RATIO'/
S 1* ,IK,F\.2.1,f] 0. 4,3X,' TOTAL'/
F, SX , ! ^T Fl 2. 1 1 c 1 0. 4, ?X, • ?PIJPCF WITHIN1 CDV0. RFG[PN«/
F, SX, IS Fl?. 1 , F 1 0.4, 3X, • SniJRCF WITHIM APFA SP1.IRCF MAP')
G^PUP ^ruwrp AmpniNn TO x , Y
W. IT"? ( JIJMI T, S3 00)
CQQWAT (ii«:&* PniNT SrilRCr AopANGEO RY (I,JI HF TPTAL ARFA *»T'/
f. ' K" , RX, ' XP' , SX,1 YP ' , RX , ' 7.P' , RX , ' 0"' , RX,' 7R • , 3X , ' NN ' )
M=0
on 3io J=l, I YWAX
I YY= ( J-l ) +YRPG
Pn 310 1=1 , IX«AX
IXX=( 1-1 I+XRFG
OP ^00 N' = l , NM AX
IF ( IGP( N1I . C0.3 ) GO TP 300
IXP=XD1 (I'l
IF ( I XX.MC. IXP) GP T1 700
[ YP = YD1 {<-' )
00000 S^O
OOOOC600
OOOOC610
3000362 C
00030630
00000640
OCOOG6SO
00000660
03000670
000006*0
00000*90
COOOC700
OOOOC71 0
0330C720
00000730
00000740
00000750
00000760
JOOOG770
OOOOG7RO
GOOOC790
COOCCROC
OOOOCR1C
003 3CR20
00000830
00300840
OOC OTR50
OOOOCP60
30 33C870
OOOOC880
OOOOC R90
coocraoc
oooro^io
OOOOCS2 3
00000930
00000940
OCOOOC50
00300960
30000970
OCOOOCRO
00000^90
00001COC
00001C1C
00001020
00001 C30
00001040
/ OOOOICSO
0000106C
00001C70
00001CRO
00001 090
00001 100
00001 110
0000] 120
00001 13C
00001 140
00001150
00001160
-------
107
NAME FP4PT6
Tc UYY.NF.IYP) r,0 TH 300
WRITE UUNIT,8110) NP1(N),XPIW,VP1(N) ,ZP1 ( N ) , QP1( N) ,7.RHN)
S ,*,I01(N)
IF ( IGPJN) .Eo.?) r,n TO 300
WRITF (KIINTT,FMTOS) NP1 (N ) , XP1 ( N ) ,YPl (N » , ZP 1 < N ) , OP UN ) , ZR H N )
300 CONTJNUF
310 CONTINUE
DO 330 K' = 1,NMAX
IF ( IGP(N).NE.3) Rn TO 330
M=M+1
WRITF (JUNIT,(U10) NPH N) , XP1 I ^) tYPl ( N) , ZP1 (N) , QP1 ( N) , IRl (N »
K ,MfJDi(N)
330 CONTINUE
C.... ARRANGE SO'iRCE ACCORDING Tn DISTANCE Tn XCCtYCC
WRITE (JUNIT.8500) XCC.YCC
R500 FHRM»T {•!**+ POINT SOURCE ARRANGED PY DISTANCE TO (XCC.YCC) ***•
R. 20X,MXCC,YCf ) = ( SFf5.l,',SF6.1f •) •//
r. • N«,8X,« X"' , flX.'YP'f ax.'ZPSSX.'QP't 8X,« ZR1 , 3X, •MN',8X,'S«
M=0
OP 510 K=l,150
XK=K
XKM1=XK-1.
DO 500 N=1,NM4X
U=XCC-XP1(N)
V=VCC-YP1(NI
DS = SQRT , 1 = 1 ,80)
WRITF. (JUNTT, 36201 ( A < I ) , 1= 1, ?0 )
fiO TO 600
CONTINUE
FOSMAT (M *** DATA ON UNIT=KUNIT ***'///)
8610 FORMAT (80A1I
B620 FORWAT (5X.80A1)
2000 CONTINUE
RETURN
END
0000117C
00001180
00001190
00001200
00001210
0000122C
00001230
000012AO
00001250
.00001260
00001270
00001280
00001290
00001300
00001310
00001370
/00001330
00001340
J00001350
00001360
00001370
00001380
00001390
00001AOG
00001410
OOOC1420
00001430
00001440
00001450
00001460
00001470
00001480
00001490
0000150C
00001510
00001520
00001530
00001540
OC001550
00001560
00001570
00001580
00001590
000016.00
00001610
00001620
00001630
00001640
00001650
00001660
00001670
00001680
00001690
-------
108
P.... T^IS DP°GPAM TS PPnvTnpp RY FPA. TT COMPUTES HTM C.nnR 0 I NATFS
C ^crv GIVPN LAT. '.NO LONG, CCin.o 0 INATFS .
0 . INPUT T Q COQOTNATFS OP PAPS ST.«TICM IM 1ST. AMP LC1MO,.
r. IIMTT 3 is CLAC'K >s TA?LF.
r.... FiLFocp )-* DISK (XTCMT 61 PPRM RCOFM PA BLOCK 76P)
IMPLICIT RF4|V8 («-H,n-7)
D I y E M S I 0 M XRAWS(30),YR*S'S(:'0)
RFAI^-4 c"jnS( 10 ) / ' ( 3( I ' . ' 5, FH ' , ' . }, F" , ' 10.3' , ' I ) ',5*' '/
LOGICAL*! KKPATA(PO)
nATA III NTT/11/ ,JI)NTT/6/,KHMT/l?/
MS = 0
WR ITr (JUNTT,2I
2 Pn«WAT(< L^TTTIJOF LC^IOITII^'F 7QM t VFOTTCAI UTM
* I ~L CI K1 T t L UTM C 0 P c ' / >
1 PCA[;( III^TT,10»FN'"1=?l)X4TltX«T2TXAT3,XNGl,XNG2,XNG3
10 rriR "A T( -f3AOC,'XATl)»l.ors
XLNG= ( X'"G3-t-60."X\'G2 + 3600. *XNG 1) * ( -1 . Qng |
CALL C.EC309 ( XLNG.XL AT ,4,U70 K , f N PR , FM E A S, ME » f- )
TF( VZCM.17 3. 15)GC TP is
CALL GTC>M i , FMNOC , FM= AS, o)
r. ,FMPAS,"F!"'
XRAVS (NS ) =FMCAS*O. 001
YRA MS( NS)=P yNi^Rr-O. OC1
8000 crvRviT ( 14, 6F*. 1, !•'+,- 3P?F 10 ."»)
11 P'iRVAT(3P4. 0,4X ,3F4.0 ,4X, 13 ,5X, F1C.O,6X ,(r10.0,7X, 12 )
GO TO 1
21 CONTINUE
nSTP,T = |yS
u q I T F ( K1 1 N T T , ° 0 L 0 ) N S TO T
P010 Fnar/iT (I?)
URITF ( KIINT T, PICO) FMins
P. 100 FOQ WAT ( 10A4)
WRTTF (KI)KTT,F'
-------
109
MFM'BFR NAMF FPASTA
IF(lNr)lH,l»2
IF{ tNm-513,1,1
GO TO (5,6, 7,8) ,TNP1
Fll_NG»XLNG*7P6P3.7792nO
FILAT*XLftT*786*3.7792nO
GO TH 13
FIING«XING *.38l46972656r>0
FILAT-XLAT *. 38146572656DO
GO TO 1-3
FILNG»XLNG*?.06264flC62nO
FILAT*XLAT*2.062648C62nC
GO TO 13
FILNG - XING
FILAT ' XLAT
13
14
15
16
17
19
20.
21
22
23
24
25
600
601
602
603
.
604
605
201
202
203
204
FIMLAT»-F1LAT
GO TO 16
FTMLAT»FILAT
CDNTTNUF
18,18,17
RETUPN
FILNG
PH TO 21
CnNTTMUF
24,23,22
RETURN
M70N-1
GH TO 25 .
MZON '* (FILNG*6. 696010) /2.16H9
CONTINUE
CHNTINUF
IF( FIfLAT-72.Dfl) 201,202,601
CONTINUE
IF(FI««LAT-l44.0n» 202,203,602
CaNTTNUF.
TF(FIM|.AT-198.0a) ?C3,204,603
CHNTINUF
IF( FtMLAT-234»D8> 2C4,205,6C
-------
110
1 = 1-1
IF(T)213,213,211
V, C M R F t> MA •« I-
FVDHI 216.PP
00 T<- 710
FMDhI = 252.PR
r, -i m 21 0
20^ J = 6
FMPHI = 771.^8
cn Tf! 210
207 J=-'
F 4PH r 28? ,6I'8
210 HF|_Ti = ( FI
T=6
211
213
1=14
215 G 4«w«=c
220
SQOO
)« . TC jrino
+rnnpn(8,j|
p o M - v £ r N- 3 1
ftL= (216.n>7J< FTCPM
( 16
J)
j)
-[ , j ) + AL PMA*flF I_T A 0-R FT A -*OE LTAL
nFLTAl+prTA^nFL1"*^
1-1 , J )
, 223, ?1 5
( 10, J1 +A
FMM
0-RF LT 4|. *R FT
O
Q-'Tf LT a'-nn_.T
XI AT) ??
)PU - l.
Tii 227
224 F
227 f-J
M 16 ) ,
FOI.l T V 'L EMCC
1 ( rnr?o( 1,1) , Crl'ri12( 1)1 ,
7 (cnn&rxi ,3) ,
A (CriPRP(l,7) , Cri°P7-'(l))
OAT." CnFni2/ ,48<:>0f C3699P —05, .(
1.02C6C940870-15, .002 I Tr27^cn_?c, .00133446410-25,
31105343. 10000,. 627c^543qn07,_. 05 45 20676000 7 ,-, 0990 16 5054 00 7,
4 .0??1 57806 HTQ7, .02775C>5275PT7, -.'
(1,2)
(1,4) , COR 0-421 1)1,
(1,6) ,CnRD62
-------
Ill
MFMRF.R
2.00161514780-30, .00065626450-35, .00026276910-40, 00001750
33318605.32600, .5526156860007, -.138-1539215007, -,0464043656007, 00001760
4 .0406929868007, -.0023737423007, -.0091961450007, 00001770
5.003782^746007 / 00001780
DATA CPR032 / .75211845170-05, .21849906620-10, 00001790
1.11355932940-15, .05769656380-20, ,03235443170-25, 00001800
2.0186S20832D-30, .01112831890-35, .00676067130-40, 00001810
35538411.779DO,.410^355473007, -.1572825396007, .0118047314007, D0001P20
4 .0195232064007, -.C1C948C4620C7, .C014859044007, 00001830
5 ..1C15131135007 / 00001840
OATA CQR042/ .96797835200-05, .4C779894320-10, 00001P50
1 .26*95603660-15, .183^8964620-20, .13615078350-25, 00001860
2 .10502C87790-30, .08335678680-35, .06753341390-40, 00001870
3 6651204.600,.3195949863007, -.1383886379007, .0266102296007, 00001880
4 .0058104357007, -.0067036894007, .0025282671007, 00001890
5 -.COC21693600C7 / OOOC190C
OATA COR052 / 1.41637119600-05, .94481637730-10, 00001910
1 .89391447320-15, .92995252230-20, 1.03365594890-25, 00001920
2 1.19633210130-30, 1.4242120.3670-35, 1.73081240420-40, 00001930
3 7765697.700,.2187148430007, -.1027623620007, .0279208157007, 00001940
4 -.C02545R841007, -. 001 f. 513 6950C7, .0012562355007, 00001950
5 -.0004359447007 / 0000196.0
OATA COP062 / 1.87232155130-05, 1.69538824340-10, 00001970
1 2.11751512100-15, 2.93C81586550-20, 4.35574931170-25, 00001980
2 6.72180600660-30, 10.6695415012C-35, 17.28360549010-40, 00001990
3 8323452.600,.1655376293007, -.C799485147007, .0238924408007, 0000200C
4 -.0039827738DC7, -.0003223536007, .0005528952007, 00002010:
5 -.CG02522388D07 / 00002020
OATA COR072/ 2.4310^558170-C5, 2^89814185190-10, 00002030
1 4.6930991563D-15, 8. SOSSS1! 5196D-20, 16.44794126800-25, 00002040
2 33.10142827020-30, 6P.5329S93109C-35 , 144.84625610260-40, 00002C50
3 3714033.1DO, .1275252086007, -.0624825325007, .0195643581007, 00002060
4 -.0039646C76D07, .0002575786007, .0002030265007, 00002070
5 -.0001257142007 / 00002080
F.NO 00002090
SUPRnUTINF GTGR
-------
112
,y p r^ p p e M A M c F P A <; T A
60 IE = 10 - IF 00no?330
r,n T^ 'so 00002340
70 VI -1.0 00002350
Rl(TFt2)="U(IF,?l*Vl 00002360
81(IF,4) B1(IE,4> * VI 00002370
"1(1?,M = P1(TE,6) "• VI 000073RO
P1(IF,P) IKTF,^) * VI 00002390
RO A = ( "1( IF, 5 )-K ( CMP^l ( IF. 7) )-(CF°*R 1( IF , R) ) ) ) 0000^400
C = ( P 11 IF ,3 ) + ( ( CMP-MI-I CCP'-RI ) I 00002420
n = ( R! ( IF ,4 )-t-( ( CNP* P ) + ( TEP" « 1 ) ) 00002-430
C N=(Ri(iF»i) + ((rMp=fr) — (rpp*r))) 00002440
CF =( 50COOO.O+R1 ( IF,? ) + ( ( CN"*CI +JCFP*f. I ) t 00002450
RFTU»N 000024(SO
rMn 00002470
-------
113
c • * • *
1000
8010
MEMBER NAME EPAARFA1
C.... THIS READS IN EPA NEDS AREA SOURCES DATA (TON/YEAR)
C.... IN NON-UNIFORM GRIP AND CONVERT THEM INTO UNIFORM
GRID FOR 1-KM GRID.
IXBEG,IYREG=ORIGIN TF THE GR!OS,IXMAX,IYMAX^AREA SI7.E IN KM.
QA=AREA SOURCE STPFNTH.
DIMENSION 0(200,140), 10(200)
DATA Q/2800C*0.0/,lUNIT/5/,JUNIT/6/,KUNIT/11/,1 FORM/25/
* , IXREG/640/,IY*FG/419C/,IXMAX/200/,IYMAX/140/
IPT=IXMAX/IFOPM
ICARD=0
OTOT=0.'
START THE LCOP TO READ IN CATA..
CONTINUE
READ UUNIT,8010) X,Y,SIZF,QA
FORMAT (2F7.1,F5.1,24X,E12.4)
IF (X.GE.999.) GO TO 1001
ICARD=iCAPD+l
IX=X
TY=Y
ISIZF=S^E
KX-IX-IXRFG+1
KY=IV-IYRFG+1
IF USIZE.FQ.l) GO TO 110
KXFNO=KX+TSIZE-1
KYEND=KY+ISI7E-1
DO lop I=KX,KXENO
DO 100 J*KY,KYEK'D
IF (0(1,J).GT .0.0) WRTTr (JUNIT.8020) ICARO,I,J ,
8020- FORMAT (.' DUPLICATED SOURCE AT t ICARD, I,J = ',315)
0( I,J ) = OA
100 CONTINUE
GO TO 120
110 CONTINUE
IP
-------
114
R050
300
310
L. • * • •
c....
3060
400
C
3070
C
r
j M j M c FPAAPF41
I0( I )=0( I , J)*1000.
WR JTr ( JUM T, =1050)
FCPMAT (IX,T4,1X,
CHMTNUF
,! = [A , TP )
WP i T<= n{ i , j ) r\ nr <^K. . .
no AC o J = i, IY^-AX
WPITF (KUMIT,P060! ( 0 ( T , J ) , T = 1 , 1 X MA X )
<=nP«AT ( 10P7.S ,10X1
CONTINUE
WITF ( KW IT, 8070) CTHT
F^RMfiT (F12.IS)
Al.
,0 I
FMT
00000^90
OOOOC600
00000610
00000620
00000630
OOOOC640
OOOC065C
00000660
00000670
000006RO
"0000690
OOOOC70C
OTOC0710
OOOOC720
00000730
OOOOC740
000007^0
-------
115
MEMBER NA^E F.PASFCZ
DIMENSION 7SA(30) ,ZSR(30) ,7.Sri30),IZSC<301
DAT* KUN!IT/ll/,KIJNIT2/12/,JUNIT/6/,KUNIT3/13/
C.... READ IN ZSBCTERRAIN HF.IGHTI AK'D ZSAJTITTAL TERRAIN PLUS BUILDING
C.... HEIGHT! AND GF.T 7SC(RUI LDING HEIGHT*
100 CONTINUE '
READ AX, (ZSB( I» , I = 1,NMAX )
8010 FORMAT ( / , IX t 14, IS , 2T 2, T3, ? 1F4. 0 )
WRITF (JUNIT.8020) I X , I Y, ID , I OX
8020 FORMAT ( IX, 14, I 5, ? I?, 13,2 1F4.0I
DH 300 F=1,MMAX
300 IZSC(I) = ZSC(I ):
C WRITE (KUNm,S030)TX,TY, ID,IOX,NMAX, (IZSC( I), I = 1,NMAX)
8030 FORMAT ( I 3, 14 ,2 1 1 , I 2, IX ,211 2)
GO TO 100
250 CONTINUE
STOP
END
(ZSC ( I ) ,T=1 ,NMAX )
OOOOOCIO
00000020
OOOOOC30
00000040
00000050
00000060
00000070
OOOOCC8Q
00000090
oooooioo
00000110
00000120
00000130
00000140
00000150
00000160
00000170
00000180
00000190
00000200
00000210
00000220
00000?30
-------
116
C.... THIS "FATS I"' PCA I^FPS ARFA SPJRCE? H AT A (TPN7YF1R)
C.... IN HMFP5M 1-K'< Of- I n AH") fHrr$p A St.'R-ARr-A rnp ANALYSIS.
C.... 1 XQFG , I YRTG=PCTGir CF THE C,QICS IN UT M, I XM A X , I YM AX = AR F A M7F IN
C.... nA , c( 21C , 140) = A°,F A cP'i°Cr $TDr\iTH.
C.... Ta|IG,JPFO=CP IC-IN PF THC SUB- 4" FA
C ISI ZI3.JSI 7F= S!7r i)F THF SUP-APPA.
C.... TXHTM , J YUTM = APR AY Pr I )T vi PPSTTlfN.
C.... IA,J* =IKPFX AQPAY CF 1HF NCN-IINTFOPM GRIDS.
c..... PXQ ,PYR=P°TP M?t nir THF NPI^-LMIFCRM GRIPS.
C.... 7S(200,140)= T<=MT. ,«PRAY CC F ZSS S7SR".
C.... ZSS = AVFRAGFQ TrR'"JAIN HCIGHT(W). 7 S RC-= RI)I L P I NG H.F1GHT.
r. 7Q=AREA SPUSC^ EMISSII"^1 HEIGHT ro pCMGHNrSS (M).
C. . . . .
PT w, F\STCM 7S( 200, 140) , Q( 200, 140) , IXHT^(200) , JYUTM( L40) ,1 I (200)
F ,I A!200),J A( 140)
PATA 7/AX, TX^^^, IY«cr,, JIIMI T, KIIMI T? )
p.... P'.I^'T 7s IM THF PIVFM RFGIP^ AV^ cn**puTri REGION.
pp 210 K=l,2
C.... R!IKCVICH«S RFGICM "^GINS AT ( 1 =, , f-1 ) .
00000010
00000020
KyOOOOCC30
00000040
OOOOOC60
OOOOOC70
OOOOCCRC
00000090
00000100
00000110
00000120
OC000130
OC000140
00000150
00000160
00000170
000001RO
00000190
J0000200
00000210
00000220
OOOC0230
00000240
00000250
OOOOC26C
00000270
OOOOC78C
00000290
OOOT03-30
00000310
00000320
OOOOC330
00000340
00000350
OOOOC36C
00000370
OOC003BO
00000390
00000400
OOOOC41C
00000420
00000430
0000044C
00000450
OOOOC46C
0000047C
000004RO
0000049Q
OOOC0500
00000510
OOOOC520
OOOOC530
00000540
00000550
00000560
OOC00570
OOPQ0580
-------
117
MEMBER NA^fE F.PAARFA2
JBEG=66
1ST ZE*50
IF ( K .LT. 2) GO TO 110
IREG=86
JBEG=63
ISIZF=40
JSIZE-60
110 CONTINUE
00 300 J=1,JSIZE
300 JYUTM J)*IYBEG+JRFG4-J-2
DO 310 I=1,ISIZE
310 IXUTMU )«!XRF.G+IBFP>I-2
RATIO=1.0
00000590
0000060C
00000610
00000620
00000630
'00000640
00000650
00000660
OOOOC67C
00000680
00000690
OOOOG700
00000710
OOOCC72C
CALL WRITEOIZS, IXMAX, IYMAX, I SIZE , JS I ZE, I REG , JREG, IXUTM, JYUTM, IFOR MOOOOC 730
* fJUNIT, II, RATIO, TITLF2,FMTf)S2)
200 CONTINUF
IA(1)-IREG
JA(1)=JSF_G
IF
-------
118
R020 PnoMflTI'l * fx RRAH IM PUKflVICH CATA OF
•»HT TM HIS GRID RF.nifA' FppM 1INIT= ',14)
C.... INITIAU7F 7S=-1.0.
m "SO J = lf IY"AX
on so I=I,TXMAX
50 ZS( I, J )=-1.0
100 cnNTiMiE
PEAT in=2SO) IX,IY, lP,!nX,N'"1AX, 7S4
C ^FfT
-------
119
EPAARF.A2
DO 460 1 = 75, \2t-
460 ZS( I,J)=ZS(I,H7)
RETURN
END
SUBROUTINE WPITEO ( 0 , IXMAX, I YWAX , I SIZE, JS IZE, I RFG, JBFG,
* , IF09",.IUNIT,IT ,RATin,TITLF_,FMTr>S)
THIS WRITES QUSI7F,JSIZF) CM UNIT* JI.INIT IN PflRM-IFORM.
IFQRM=Nr. OF COLUMES TO RF PRINTED CN ONE LINE.
t
DIMENSION RF»1T1{10) ,RF^T2 ( 1 0} ,RF*T3 ( 10) .TITLE { 10 ) , FMTDS
LOGICAL*! FMTK 40) ,FMT2(40) ,Fff 3(40) ,F*(8)
EQUIVALENCE (FM(l),lF*l)t(FK45),IFM2)'
* , (FMT1I l),RFWTim),(FMT2(l),RF»IIT?(l)) , (FWT3 <1),RFMT3(
(10)
1))
«40M«. •
'4013 • , •
)',5*«
DATA RFMT1/'(5X,',•5HXO','TM-,
* ,RFMT2/»(5X,»,'5H »,« I«,
* ,RFMT3./«f 1X,«,'214,','IX .'f^OIB',1 ) • ,5*«
DIMENSION OUXMAX,IYMAX),IXUT«(ISI7E),JY
-------
120
c
c
p
c
c
c
c
8050
300
310
500
• • • •
• • • •
* • • •
C.S060
C
r
r
c
c
c
r
C
c
c
p
c
c
r
p
400
8010
. . . •
. . . .
....
. • . .
• • . •
. . . .
• • • •
20
40
W?ITF ( JUNI T, 8050) ,J'lT,v , ,1 , ( IQ( I ) , 1=1 A , I ^ )
FrmvAT ( IX, 14, 14, IX ,4JI3)
WRITE ( JH\'IT,FMT2) JUT* , J , ( JO ( I ) , T = J 4 , 1 R)
CONTINUE
CnNTIMIJF
PETURN
CONTINUE
THIS WP-TTFS P PN PISK IN PARP IMAGF USING F Dp MAT— F yTDS . . . .
WP I TF Q( I ,J ) PN HISK. . .
no 400 .1=1, IYMA x
WITC (JIJNTT,806D) (OH ,J) , 1=1, IXMAX)
FORMAT (10F7.5,10XI
WRITE ( JIINIT, FMTOS ) ( 0 ( I , J ) , I = 1 7 I XMA X )
CHNTTMJF
WR I TE ( JMMJ T, FMTDS ) Q
WRITC (6,8010) TITLE
FOPMAT(/,« ****t* TITLF = ',,104.4,' HAS BEEN WRITTEN PIN nisK'i
RFTll"\
CNH
Sl)RPnUTINc Gr-'inCM(0,IN,JN,TA,jA,nXA,nYA,00,IM,J>'i,nXB,nYR,
« I XIITM , JYIITf* , L , I.5HIM )
L = 1,THIS C.nNjVFPTS n(JN,JN) IW UNJFDPM GRID IMTO Od(IM,JM) IN NON
IJMTF^RM GPID.
1=2, COMVFRT 00 INTO Q.
1 Sll^ = l , TAKF C|1M; LSUM = 0,TAKE AVERAGE.
i A , j,»i-i PPAT ION iv gc GRIP MHEPF r,Rin SPAPFPHANGFS, FXCFPT
IA(1),JA(1) PFNCTFS THF OPIGIN OF QP 00 ( 1 , 1 ) = Q ( I A ( 1 ) , JA ( 1 ) ) .
nX,DY=GRin SPACE VITH IMTIAL °PIKT AT (IA,JA).
OIMFMSIPN 0(INtJN),QQ(I^»JM),I*(IM),J4(JM),r)xR(JM),OYf(JM}
* , I XUTM( J M ) , JYIJT^ ( JM )
0X11=1. 0/PXA
OYA 1=1. C/DYA
i\PF ai=nXAI^CY AT
I RFG= I A ( 1 }
JP.FG = JA ( 1 )
I XP. FG = I XII Tit I )
I YBFr.= jY|iTy ( 1 )
SET UP THF T/^RIE FTP INOICIES 'IF (;(!,-)).
JM1=JM-1
T "1 1 = I w- 1
no 20 J=I,JMI
JINTVL=nYR(J)-OY 11+0.2
JA ( J+l )=JA( J)+J IMTVL
JYIITMI J + l ) = JYtJTW( J ) +J INTVL
CHNTTNUF
on 40 1=1, TM1
I !NTVL = PX8( n+OXAT-i-C.2
IA( 1+1)= IA( I) +1 I^TVL
IXLITM(I + 1) = IXUTM( I ) +1 I NT VI.
C n N T T N 1 1 F
0CRUG IMT( IA,JA)
TRANSFnou 0(KI,KJ) T^ nQ(j,j).
nn 600 J=I,JM
00002330
00002340
00002350
00002360
00002370
00002380
0000239C
00002400
00002410
00002420
00002430
00002440
00002450
00032460
00002470
00002480
00002490
00002500
00002510
00002520
00002530
00002540
00002550
00002560
00002570
00002560
0000259C
00002600
00002610
00002620
00002630
00002640
00002650
10002660
00002670
00002680
0000269C
00002700
00002710
00002720
00002730
00002740
00002750
00002760
00002770
00002780
00002.790
00002800
00002810
00002820
00002830
00002840
00002850
00002P60
00002870
00002880
00002 89 0
00002900
-------
121
nn 503 1*1
KI = IA(M
c • • • •
C.... AVF9AGF THF n(KT,KJI TO OFT OCUI,JJ)
IF (LSUM .FQ. 0) APFAIM.O/(n*"<
OtnT=O.C
no 200
c • • • •
100
200
OQU, JI=RTrf*ABFM
300 mNTTWF
400 CONTINUE
500
600
OOOOZS10
00002°20
00002C30
0000?<540
0000?<550
00002960
00002«?70
hn 100 j 11 = 1, n i^nri
KTT*KI*III-l
(TTPT'QTPT+OJKTT ,K.IJ I
C DF.«UG TMT (I A, J8,,
-------
122
NAME FPAART42
HO 100 J=1,JSIZF 00003490
300 JYt)TM( J) = IYRFG+JPFr,+J-2 00003500
00 310 1 = 1,IS TZE 00003510
310 IXUTMU ) = rXREG+IRFr; + I-? 00003520
00003530
00003540
-------
123
8010
10
100
eooo
200
300
8300
302
400
«310
500
600
8620
C • • •«
8630.
700
8700
p MAMF EPAGEH1
, THIS PPPGPAM CREATES nFTGRAPHY *N" ANNUAL EMISSION HATA
ON UNIT=KUMT, OSN = PP*GFri ,P ATA
DIMFNSIfN XP(200),YP(200),ZP(250),OP(200),ZR(2001,NN(200)
OIMENSICN F*TCS(10)
"EAL*4 FVJDSl(10)/' (3d «,«5,F6«,«.l,F«,«7.1,l,lF6.1f,1)»
F. ,FMTDS?(10I/M9F?«, «.2> ',8*' •/
S ,FMTnS3(10)/«(12F',«6.1)« ,8*' •/
LOGICAL*! A(80)
OAT A IXBEG/640/, IYBFG/*190/,I^EG/l|*/, J BEG/63/
DATA I!.IMIT1/11/,II)NTT2/12/, IUM T3/1 3/,1 UMT4/14/
DATA IUNIT/10/,jnNIT/6/,KUMIT/l5/
WPITF (KUMT.8010) I X ^FG, IYPEG, l«EG, -I8EG
FORMAT (415)
READ dUNIT,8000,FNO=10C) (Ad),T»l,RO)
W»ITE IKUNIT.8000) (Ad), 1-1,50)
GO TO 10
REAP ( IUNIT1,SOOO,EMD=200) (Ad),1-1,80)
WRITE (KHNIT,«000) (»«I ) ,I* I,BO)
FORMAT (80A1)
C,n TO 100
REAO dUNIT2,«OOOtF^0*300) (A(I|,1*1,43)
WRITE (XUNIT.SOOO) (A(I»,I=1,P3)
GO TO 200
CONTINUE
READ (IUNIT3,8300)
POP-WAT (10A*)
OPTOT=O.
READ (IUNIT;,FMTOS,FNn»400l
QP(N)=OP(N>*0.02R7f 664
Kl ,XP«N) fYP< N) , ZP«N )
f ZRIWI
GO TO 302
CONTINUE
(KI)NIT, 3310)
(KIIMT,8300)
WPITE (KUNIT,F«TD!?1 I
(KUNIT,8300)
(NM(K)
,YP(KI
(KUN!T,8620)
(KUMT,8300)
"ESP (IUNIT4,8000,FNn»600)
-------
124
1000C?QC
OD&006'10
oonooeio
-------
125
MEMRFR
c!
r,
e.
s
FPAGEOIN
DIMENSION OB(30,40),ZS(30,40),ZC(30,401
,POR(150),XP(150),YP(15C),-ZP(150),ZR(150),NP(150)
,XRAMS(25),YPAMS(25),IRAMS(25)
,IXUTM(30),JYUTM(40I,DXP<30),DYB(40)
OAT* DXB/5*2.,20*1.,5*2./,DYR/10*2.,20*1.,10*2./
DAT 6 IM/30/,JM/40/,LM/150/,NS/25/
CALL GFCIN (OP,ZS,PCfl,XP,YP,Ze,ZR,ZO,NP,XPAMS,YRAMS,IRAMS
E , IXUTM, JYIITM, DXB,DYP,TV, JM, LM, LMM, NS ,NRAMS)
STOP
FND
SUBROUTINE GFOIN ( OB , ZS, PCR, XP , Y0f ZP ,ZR ,ZO,NP, XR* *S, YRAMS, I"? AMS
R ,TXUTM, JYin>,nXB,DYB, IM, JM, LM,LMMAX ,NS , NR AMS I
C.... THIS ROUTINE READ IN GEOGRAPHICAL AND ANNUAL EMISSION DATA.
C IT ALSO: I) FIX UTM COORDINATES FOR ALL NUMERICAL GRIDS.
C 2) PRINT D4TA SFTS
C 3) CONVERT LOCATION OF POINT SOURCF TO NUMERICAL GRID.
DIMENSION QMIM,JM1 , ZS < I», JP) , £0 < IM, JW)
E .,POBtLM»,XP(LM),YP(LI*) ,ZP(LM) , 7R(LM) ,NP( LM I
R ,XRAMS
-------
126
L. • • »
r...
ZS
X)
? MA_vr FPiC-FOIM
REftO IN ARE* SOURCE FMISSin* HEIGHT AND ORIMT.
PEAC (KUNITG,8010)
PCAD (KUNITG,FMTDS)
RAT 11=1.0 "
<~ALL WITEO S) ( 7R ( L ) , L= 1, LM^AX)
C.... PRINT PCIN'T SOURCE CATA.
WRITE (JUNIT.8200) L^MAX
3200 FORMAT Cl *v* POINT SOURCE CATA ***'/
f. 5X,',,,,, TOTAL NUMBER =',I5//
i , IXUTM, j YUTM,TM, JUNI T,R ATT n, TITLE i
,^10. 2)
8X, '
8X,« ZP' , 8X,'QP« ,8X,' 7.R • ,6X,' XI
f.
8210
' ID1 ,8X, '
,6X,«YJ'l
CONVERT XP.YP FRCK IJT" 010FCINATE TC NUMERICAL GRID
HO 200 L=1,L^MAX
XI=XP(L)
YJ = YP(L )
C*LL XYlJT^l (XI, YJ)
WRITF ( JUNIT.8210) NP ( L I , XP ( L ) , YP ( L ) , ZP (I ) , POR( L) , ZR ( L 1 ,X I , YJ
FOR VAT (I5,3Fl0.l,F10.?,F10.1,?Ffl.2)
XP(L)=XT
YPI L)=YJ
CONTINU^
WRITE (JHMIT,8070)
RETURN
00000590
00000600
00000610
OOOOC620
n0000630
00000640
00000650
00000660
00000670
00000680
000006*50
00000700
0000071C
00000720
00000730
000007AO
100000750
00000760
00000770
00000780
0000079C
00000800
OOOOGP10
00000820
3000C630
00000840
00000850
00000860
OOOOCS70
00000 88 0
000008^0
00000900
OOOOOS10
00000920
SUBROUTINE XYUT^S ( I XDT^ , JYIJTN , I X6EG , I YREG, I BEG, JBFG, DXR ,DYB
L- • • • i
C • • * <
THIS RTIJTINE COMPUTES IJTM COORDINATES F0« ALL NUMERICAL GRIDS.
ENTRY XYUTM1 CONVERT (X,Y) FPCM UTM COORHINATFS TO NUMFRirAL GRID
n I MEN SI ON' I XUTMd
-------
127
MEMBER
EPAGEOJN
40
C
C
60
62
80
92
90
C.
C.
T. •
JYUTM(J*l)= JYUTMJ)4JINTVL
CONTINUE
DO 40 1=1,TMl
I INTVL=nXP< I)*nXAH-0.2
IXUTM(I+1)=IXUTM(i)+IINTVL
CONTINUE
RETURN
FNTPY XYUTM1 (XI,YJ)
LXI=XI
LYJ=YJ
IF '( (LXI.LT.IXIITM( 1 )).(IR. (LXI.GT.I IXUTMdMI+DXRdM) ) ) ) GO TO
IF ( (LYJ.LT.JYUTM(U) .OR. ( LYJ .GT. ( JYUTM (J)»)+nYR (JM) )) ) GOTO
DO 60 J=1,JM
IF (LYJ.GF.. JYUTMJl ) GO TO 60
YJJ=J-1
OY=(YJ-JYUTW( J-IM/OYH( J-l»
YJ=YJJ+DY
GO TO 62
CONTINUE
CONTINUE
no no 1=1,iM
IF (LXI.GE.IXUTMd)) GP TO 80
XI1=1-1
DX-=(XI-IXIJTM 1-1) )/DXP(I-l)
xi=xii+nx
GO TO R'2
CONTINUE
CONTINUE
RETURN
CONTINUE
XI =-1.0
YJ=-1.0
RETUP-N
FND
SUBROUTINE WRITEO (0,IXMA X,IY*AX,I SIZE,JSIZE,I BEG,JftEG,IXUTH,
* ,IFORM,JUNIT,PATIO,TITLE)
THIS WRITES OdSIZF.JSIZE) CN UNIT=JUNIT IN FORM=IFORM.
IFORM=MO. OF COLUHES TO PF PRINTED ON ONE LINE.
DIMENSION RFCTK10) ,RFMT2(10) ,SFMT3(10)
OIM-ENSION TiTLEdoi»FMTDS(io)
LOGICAL*! FMTl(AO),FMT2(40),FMT3(40),FM
LF(IOI,FMTDS(10)
T2(*0) ,F
MD , |FM( *•) , IF«2)
Vt , (PWT21 1),RFMT2(1)>,(FMT3(1),RFMT3( 1) J
DATA RFMT1/M5X,', • 5HXU1 , 'TM= , • , «40I3», • )',5*« •/
* ,RFMT2/« (5X,1 t'W «,« I=,» , «4013', ',/ f»,5*f •/
'' '11 '« '
,
LOGICAL*! FMTK AO) ,FMT2(*0) ,FMT3 ( 40 ) , FM ( R )
EQUIVALENCE ( FM( U , IF *•
* V(FMTlll)tRFmn )),
' •
.... , , »
CJdXMAX, IYK AX ) , IXUTMC IS IZ E ) , J YUTM (J SI ?E1
,IO<200» ,11 (200)
JENr=JPEG+JSIZF-l
IF (IFORM .EO..C) GC Tr 500
IFM2=IFORH/10-»-240
FMTK 16)
00001170
000011BO
00001190
00001200
00001210
00001220
00001230
00001240
00001250
00001260
00001270
00001280
00001290
90 00001300
90 00001310
00001320
00001330
00001340
00001350
00001,360
00001370
00001380
00001390
00001.400
00001410
00001420
00001430
00001440
00001450
000014AO
00001470
00001480
00001490
00001500
00001510
00001520
00001530
JYUTM00001540
00001550
00001560
00001570
000015BO
00001590
00001600
00001610
00001620
00001630
00001640
00001650
00001660
00001670
00001680
00001690
00001700
00001710
0000172C
00001730
00001740
-------
128
MF.MRFR
FMT2( 16)=FM(4)
F«T3( 16 I-FM (4)
13 )=F\1(8)
100
C....
8000
320
C
C8040
8040
410
C
C8050
300
310
500
f....
f • • • *
C....
C
C
C8060
400
C
C8070
FMT3I 13 ) = FM (8 )
T PT=( ISI7F-1) 7IFORM-H
IF (RATIP.^F.0.0) GO TO 100
"ATin-l'300.0
ic (IFOR1* .GF- 30) PAT!r=100.
CCNTINUF
PRINT THF SPECIFIED TITfE
WRITF (JUMIT,8000) TTTIF
COQMAT («1 ***** T[TLF= ',1014)
On 310 IP=1,IPT
I A= ( IP-1 1
00 32 C 1=1 A, IB
II ( I )=I
IF( (I I( I ) .r,T. 100) .ANP.nFCSW.GT. 30 I ) T I ( I) = I t ( I ) -10 0
CO NT I Ml If
I 4X = I A-IBEG + 1
IRX=I AX + IFHRM-1
WRJTC (JUN1T,R0431 I P , ( [XIIT M( I ) , t= I ftX , I BX ) , ( I I ( I ) , I = 1 A,
F'-|RM/\T< • 1 *-*** psr,F = < , T 5,/5X, MUT"=' ,40I3,/,5Xt '
W3TTF (JUN1T.S040) IP
FOR^iT (' ^^*»* PAI7F ' , 1 c- / )
WPIT^ ( JIJMIT.FMTl) (T XUT"( I ) , 1=1 AX, IRX)
WSITF (JUMT,FMT2) (I I ( I 1 ,I = IA, IB)
OH 300 JJ = 1 ,JST 76
J=( JE\n-fl )-JJ
JUT«=JYUTM( JS IZFtl-JJ )
"H 410 I=IA, IR
I0( I)=0< t , J)*RATin
WRITE ( JUNIT, R050) JUTM , .1 , ( 10 t I ) , 1= I* , I R 1
FORMAT ( IX, 14, 14, IX, 4313)
WRITF (JUNIT, FMT3) ,IU TV ,,| , ( IO ( I ) , != I A , I R )
CONTINUE
CONTINUE
R"ETURM
CONTINUE
THIS WRITE^ 0 C^ 01 SK IN C/5RO
WRITE 0(1, J) CN PISK...
00 40C J=l, IYMAX
WRITE { KHNIT, «T60 ) (Q ( I f J ) , 1= 1 , IXWAX 1
FORMAT {1QF7. 5,10X1
CONTINUE
WRITF ( KUNIT, 5070) CTOT
FORMAT (E12.6)
RETURN
ENP
00001750
00001760
00001770
00001780
00001790
00001800
00001810
00001820
00001830
00001840
OOOOlf50
00001860
00001870
ooooieso
00001890
00001900
ooooi
-------
129
801
850
200
300
491
702
701
6-91
692
693
601
600
C
S91
C
892
650
. „ FPA«AP
LOGICAL*! M1150,200),N( 150,200),NO,YES
DIMENSION MX(10)
DATA NO/« «/,YES/'l'/
DATA JUNIT/6/.KUNTT/i1/,KUNIT1/12/
no' 801 1=1,150
no flOl J=l,200
Nil,J)=NP
M{I,J)=NP
DO 200 • J=l,200
REAP (KUNIT,850) JJ,
-------
130
3. Input Data Listing - Geographical and
Annual Emission Data Set
-------
131
MEMBER NAMF EPAGFC2
640 4190 86 63
25
(3U5,F9.3,F10.3))
1 744.183
4 747.312
7 740.179
10 747.208
13 737.738
16 762.777
19 729.759
22 741.631
25 697.445
(18F4.2.8X)
0.480.320.330.330.260.190
0.290.290.280.280.280.280
0.190.190.190.190.190.190
0.290.290.280.280.280.280
0.280.280.280.280.280.280
0.490.350.360.370.310.240
0.300.300.310.310.300.300
0.270.250.230.230.230.230
0.310.320.350.350.340.340
0.240.250.330.320.320.320
0.460.550.580.540.520.580
0.340.340.340.340.310.320
0.560.280.290.160.150.260
0.320.300.350.471.191.280
0.250.570.590.320.310.220
0.560,550.510.700.420.370
0.400.410.360.420.380.380
0.581.621.911.751.470.190
0.380.520.670.420.460.490
0.210.220.330.470.310.200
1.121.091.200.660.612.453
0.320.360.760.440.260.310
4.421 .551.784.492.932.792
0.800.860.380.450.450.390
2.511.810.390.320.661.341
0.710*470.570.681.170.881
2.191.111.300.960.360.240
1.750.762.591.621.231.900
0.480.240.280.290.300.310
1.002.251.330.430.450.401
0.540.530.530.590.590.720
0.380.340.960.710.770.810
5.023.292.403.364.203.383
0.170.230.290.350.410.300
3.052.310.790.290.370.410
0.610.810.690.700.690.724
0.240.210.210.200.180.170
0.622 .981.652.302.693.152
0.300.240.360.660.630.420
0.510.160.260.371.171.290
0.720.880.790.830.921.001
0.350.240.240.190.150.330
0.810.752.100.860.830.620
0.150.190.320.350.350.530
0.240.110.110.230.340.801
4279.862
4277.304
4282.610
4272.826
4289.819
4290.082
4270.547
4329.222
4282.239
2
5
8
11
14
17
20
23
74.2.518
743.706
748.407
738.812
744.320
760.560
723.079
777.320
4286.044
4276.452
4291.102
4272.478
4297.456
4272.818
4285.908
4286.378
3
6
9
12
15
18
21
24
747.588
738.660
755.802
733.938
757.111
743.065
732.414
749.275
4282.466
4277.565
4279.886
4280.912
4297.799
4263.256
4302.375
4236.537
.190.190
.280.280
.290.290
.490.330
.280.280
.200.200
.300.300
.240.240
.460.530
.380.380
.320.290
.320.310
.260.6tO
.520.540
.210.230
.571.531
.380.440
,120.270
.790.980
,270.330
.792.211
,260.380
,560.650
.530.630
.150.980
.811.511
,240.250
,910.630
,570.520
.411.450
.430.802
,240.290
.393.311
,660.720
,320.240
,173.863
,170.240
,030.580
,640.910
,440.150
,000.852
,150.190
,250.110
,611.010
,150.841
.190.
.280.
.290.
.330.
.300.
.200.
.320.
.300.
.540.
.380.
.260.
.340.
.660.
.500.
.230.
.031.
.920.
.410.
.920.
.700.
.862.
.360.
.3tO.
.490
.320.
.744.
.490.
.910.
.510.
.901.
.673.
.300.
.290.
.760.
.210.
.972.
.360.
.400.
.800.
.150.
.281.
.320.
.160.
.900.
.480.
190.190.
270.270.
280.280.
330.270.
300.300.
200.250.
320.330.
310.310.
490.480.
380.320.
240.210.
350.650.
380.380.
450.420.
270.320.
380.360.
740.470.
530.450.
840.750.
550.260,
773.112.
780.450,
340.400.
410.580.
290.660.
172.393.
340.370.
380.400.
701.010.
190.770.
492.073.
350.410,
290.540.
720.792.
200.180,
942.912.
681.000,
400.940.
650.640,
150.150,
540.960.
390.740,
260.880,
790.760,
470.150,
190.290
270.490
280.280
200.200
300.300
250.270
330.480
310.360
530.300
320.320
240.240
520.480
240.240
350.440
340.340
160.200
530.570
300.320
391.182
260.260
990.990
440.810
300.301
962.871
880.980
312.073
350.500
951.611
450.450
600.240
424.902
300.550
440.370
042.433
310.170
643.041
360.600
750.200
810.951
150.150
650.370
490.720
841.311
770.730
150.150
.290.290
.320.330
.280.290
.200.200
.300.290
.440.640
.470.480
.360.370
.270.250
.320.350
.350.420
.570.600
.240.240
.420.830
.370.441
.360.350
.590.600
.390.361
.131.892
.700.490
.280.360
.930.890
.060.540
.401.441
.370.360
.310.570
.750.610
.660.551
.451.241
.240.680
.770.680
.580.520
.340.290
.703.183
.230.290
.170.540
.740.710
.150.160
.141.092
.190.320
.130.230
.970.790
.040.700
.630.651
.190.320
.290.290.29
.330.270.19
.290.290.29
.200.190.19
.290.290.29
.290.290.29
.450.430.46
.370.310.31
.250.230.23
.350.340.34
.330.330.30
.580.550.50
.260.310.32
.220.170.22
.020.970.81
.430.450.40
.450.420.39
.040.380.38
.612.590.71
.420.450.44
.500.370.28
.902.394.57
.450.810.26
.164.074.09
.450.450.39
.320.481.72
.600.992.23
.040.360.24
.440.712.12
290.300.31
300.380.43
.680.622.27
.500.330.17
.762.733.65
.360.410.30
.320.690.56
.690.580.61
.170.180.17
.331.260.45
.480.870.71
.490.370.77
.790.690.74
.190.150.15
.711.730.37
.350.350.38
-------
132
MEMBER NAMF EPAC-FO 2
0.710. 770.8 60. 790.7 50. 73 0.6 10.58 0.9 40.570. 460.350.3 10.13 0.130. 170. 2 50. 2 5
C.500.6^0.770.600.170.250.170.200.320.350.350.630.710.780.490.650.580.53
0.450.680.530.480.490.480.510.190.190.150.150.170.180.220.360.390.730.17
0.590.220.340.380.390.380.530.820.990.730.630.850.650.600.720.660.510.43
0.510.260.230.150.150.150.170.220.430.570.170.370.200.210.330.370.370.37
0.490 .661.170.640.610.550.540.660.680.550.530.480.530.500.250.200.200.20
0.150.170.170.190.160.240.160.200.330.370.370.370.400.440.430.600.680.51
0.410.570.590.410.410.410.400.390.220.220.220.220.160.160.290.150.150.22
C.I 50.190.320.360.370.360.360.440.430.620.710.550.380.530.380.500.410.41
0.380.360.220.210.210.210.160.160.170.170.170.170.170.200.320.360.360.39
0.230 .360.450.460.390.410.270.270.310.310.280.280.190.190. 160.170.170.17
0.160.160.220.^20.220.220.220.230.280.300.300.480.220.280.270.270.260.25
C.250.250.250.250.240.240.150.150.150.150.150.150.150.150.240.240.350.23
0.250.330.230.240.300.460.220.280.270.270.260.250.250.250.250.250.240.24
0.150.150.15C.150.150.150.150.150.250.250.340.290.380.230.230.240.240.24
0.220 .230.270.270.260.250.250.250.250.250.240.240.150.150. 150.150.150.16
C.I 50. 150.230.410.440.710.320.290 .230.240.240.240.210.2.70.280.280.260.25
0.250.250.250.250.240.240.150.160.150.240.170.170.150.160.690.770.640.23
0.460.240.230.240.?50.250.210.270.280.280.260.250.250.250.250.250.250.25
0.160.470.350.630.250.540.520.300.230.230.240.230.550.280.270.310.250.25
0.230 .290.310.310.250.260.260.260.260.260.320.320.230.350.340.190.170.29
0.320.210.250.250.290.340.340.570.240.240.240.24
(18F4.1,3X)
19.018.018.018.015.012.012.012.012.012.C12.012.010.010. 010. 010.010. 010.0
10.010.QIC.010.010.010.010.010.010.010.010.010.019.018.018.018.015.012.0
12.012.012.012.012.012.010.010.010.010.010.010.010.010.010.010.010.010.0
10.010.010.010.010.010.019.01R.018.018.015.012.012.012.012.012.012.012.0
10.010.01C.01C.010.010.010.01C.C1C.010.C1C. 010. 010. 010.010.010.010.010.0
19.218.41P.518.415.813.312.512.512.512.511.811.810.210.210.210.210.210.2
10.210.21C.210.210.210.210.210.511.712.012.012.019.820.120.520.119.218.7
14.514.514.514.511.211.210.810.810."10.810.310.810.810.810.810.810.810.8
10.811.413.514.014.014.020.020.521.020.520.020.015.015.015.015.01I.011.0
11.011.01 1.Oil.Oil.Oil.Oil.Oil.011.C11.C11.Oil.011.011.513.514.014.014.0
20.020.42O.R20.420.019.315.515.015.014.011.011.811.813.013.012.012.010.8
10.810.910.811.111.511.511.511.913.614.014.014.020.020.020.020.020.017.0
17.015.015.Oil.Oil.014.014.019.019.015.C15.010.010. 010.010.011.012.012.0
12.012.313.714.014.014.020.020.020.020.020.019.319.313.416.513.012.213.3
14.118.118.114.814.211.611.112.012.012.813.513.513.513.613.914.014.014.0
20.020.120.120.020.020.020.020.019.818.614.012.113.815.414.314.314.813.9
14.314.014.C14.515.015. 015.014.814.214.014.014.020.020.420.420.020.020.0
20.020.020.020.416.611.310.112.817.C19.116.612.813. °16. 016. 015.515.015.0
15.014.814.214.014.014.020.020.020.020.020.020.020.020.120.320.120.116.4
12.014.519.419.914.411.014.116.C16.016.016.Cl6.016.015.714.314.014.014.0
20.020.020.020.020.020.020.120.821.020.420.420.517.617.320.821.016.413.9
16.518.018.C17.016.Cl6.016.015.714.314.014.014.020.020.120.020.020.120.0
20.621.520.920.020.020.42C.917.017.320.919.418.518.418.018.017.016.016.0
16.015.211.311.011.011.020.020.420.220.420.620.120.921.120.420.020.020.0
20.519.318.32C.020.520.019.519.Cl9.017.516.Cl6.016.015.211.811.011.011.0
20.020.020.821.320.620.621.020.820.620.420.320.320.821.819.118.520.520.0
19.519.019.017.015.015.015.014.311.711.011.011.020.020.020.820.420.020.9
22.322.822.421.821.521.521.922.619.518.620.820.119. 519.019.017.015.015.0
15.014.311.711.011.011.020.020.019.620.320.020.421.121.621.822.122.622.5
22. 52 2. 819. 4 1<5. 02 1. 82 0.<51 9. 519. Cl 9. Cl 7.01 5. Cl 5. 015. 014. 311.711.011.01 1.0
20.020.018.620.319.819.620.421.421.420.821.120.820.821.618.818.922.522.1
19.613.018.016.515.015.015.014.311.711.011.011.020.020.120.320.419.418.9
21.123.021.920.02O.C20.02C.020.618.313.422.322.419. 418. 018.015.012.012.0
12.01 1.311.211.011.011.021.020.320.070.020.020.020.020.020.020.020.020.0
20.120.918.818.321.521.417.114. 014.Cl3.012. 012. 012. 011.811.211.011.C11.0
-------
133
HEM8FR
21.020.
15.414.
20.420.
12.012.
16.411.
20.020.
15.915.
20. 020.
11.011.
13.010.
20.019.
15.118.
20.020.
12.012.
20.013.
16.316.
11.011.
18. 01 8.
11.011.
15. 81 5.
12.514.
10.210.
11.011.
14.014.
10.010.
1-2.014.
10.010.
11.011.
'14. 014.
10.010.
12. 01 4.
10.010.
150
NAME EPAGEC
420.220.020.
01 A. 013. 01 2.
520.820.420.
514. 51 5. 01 5.
816.921.820.
020.420.019.
015. 013. Oil.
420. 820. 420.
714.315.015.
010.014.920.
018.919.719.
018.015.012.
020.021.021.
514.515.015.
013.011.011.
016.518.018.
811.811.611.
01 8. 01 8. 01 7.
815.216.016.
B12. 512. 512.
314.514.713.
213. 513.513.
011.011.011.
013.012.012.
010.010.010.
014.014.012.
014. 014.014.
011.011.011.
01 3. 012. 01 2.
010. 0 1C. 01 0.
014. 014. 01 2-
014. 014.014.
020.020.
012.012.
120.321.
01 5. 020.
817.813.
919.920.
01 1.01 1.
51 8. 5 13.
015.020.
119.618.
520.020.
012.012.
020.020.
015.020.
011.011.
819.318.
511.511.
017. 017.
016.014.
51 2. 5 10.
612.312.
51 3. 5 13.
011.010.
012.012.
010.010.
511.011.
014.014.
011.010.
01 2. 01 2.
01 0.0 10.
51 1.0 11.
014. 014.
020.
012.
619.
020.
611.
421.
01 1.
01 0.
020.
418.
020.
012.
013.
016.
014.
518.
512.
017.
515.
810.
212.
5 13.
010.
014.
010.
011.
014.
010.
01 4.
010.
01 1.
C14.
020.120.
514.515.
118.521.
82 1.120.
011.011.
321.020.
71 4. 31 5.
0 12. 317.
020.120.
Cl 8. 014.
020.420.
514.515.
013.011.
015.018.
014. Cl 3.
518.518.
215.216.
013. 013.
716.517.
811.511.
212.212.
714. 214.
010.010.
014.014.
Cl 4. 01 4.
011.011.
Cl 3. 01 2.
010.010.
01 4. 014.
Cl 4. 014.
0 11. 01 1.
01 3. 01 2.
120.020.021.
015.015.020.
520.918.313.
220. 020. 42 1.
011.011.011.
520.921.116.
01 5. 01 5. 020.
820. 619. B17.
120.020.020.
51 1.01 1.01 1.
621.019.314.
015.015.020.
011.011.011.
018.020.020.
012. 01 2. 012.
818.017.817.
016.016.015.
01 3. 01 3. 01 1.
317.917.716.
511. 511.511.
212.012.011.
014. 014. 012.
010.010.010.
012.511.011.
014. 014.014.
011.011.010.
01 2. 012. 01 2.
010.010.010.
012. 51 1.01 1.
01 4. 014. 014.
01 1.01 1.01 0.
012. 01 2.0
320.818.
020.820.
411.011.
32 1.92 1.
011.714.
410.815.
020. 02 0.
515.015.
020.020.
01 1.71 4.
810.810.
016.015.
014.014.
020.020.
012.715.
816.013.
016.017.
0 11. 01 1.
816.816.
512.215.
211.210.
014. 01 4.
010.014.
011.011.
014.013.
010.010.
01 4. 01 4.
010.014.
01 1.01 1.
014.013.
010. 01 0.
319.621.
920.120.
011.512.
420. 120.
315.015.
621.521.
020. 01 9.
013,011.
120.120.
31 5. 01 5.
812.515.
018.018.
013.012.
021.021.
316.016.
012.512.
018.019.
011. 01 1.
816.816.
216.016.
510.510.
01 4. 012.
014.014.
011.011.
012.012.
010.010.
014. 01 2.
014.014.
01 1.011.
012.012.
010. 010.
\ I J '
183
181
127
108
175
172
148
146
155
110
129
151
118
122
130
109
157
133
15
12
10
84
167
100
732
732
762
761
738
738
736
742
743
746
746
743
745
745
748
747
745
753
745
1
•
9
»
•
•
•
•
•
•
•
•
•
•
•
•
•
*
•
•
1
1
6
5
0
0
9
5
0
4
3
0
1
1
5
8
0
0
8
745.8
745
746
725
748
•
•
•
•
8
5
0
9
4253
4253
4266
4267
4268
4268
4269
4275
4275
4275
4275
4276
4277
4277
4277
4280
4281
4281
4283
4283
4283
4285
4286
4286
r
.
*
•
*
*
•
.
•
*
.
•
*
•
„
•
•
•
•
•
*
•
•
•
-------
134
NAME FPAOFP2
92 747.0 42P7.0 20.0 38
16* 736.5 4290.5 45.7 169
97 753.7 4302.9 45.7 36
37 754.5 4302.5 32.7 33
34 754.5 4302.5 16.8 29
32 754.5 4302.5 30.8 31
60 754.0 4303.0 106.7 69
73 754.0 4303.0 40.2 74
75 754.0 4303.0 42.0 76
71 754.0 4303.0 63.1 72
50 754.0 43C3.0 45.7 43
56 754.0 4303.0 45.7 47
51 754.0 4303.0 45.7 52
64 754.0 4303.0 61.0 65
48 754.0 4303.0 45.7 54
55 754.0 4303.0 4-5.7 58
61 754.0 4303.0 45.7 62
67 754.0 4303.0 45.7 6
5 748.7 4305.4 76.2 142
93 74R.1 4306.7 13.7 26
20 752.4 4306.6 48.8 25
19 752.4 4306.6 4fl.5 17
24 752.4 4306.6 44.2 21
22 752.4 4306.6 33.5 42
80 747.6 4307.8 34.1 86
85 747.6 4307.8 76.2 78
(10F7.5,10X)
0.016470.010460.015840.023240.
0.01310O.C13100.013100.013100,
0.0 0.0 0.0 0.0 0,
0.017740.010140.012570.022180,
0.006550.CO 6550.006550.006550,
0.015210.015210.015210.015210,
0.019430.015310.017740.029780.
0.0 0.0 0.0 0.0 0.
C.030420.030420.030420.030420.
0.027040.014360.030420.055770.
G.7.08600.208600.0 0.443600.
0.030420.030420.030420.030420.
0.047320.040980.036330.041830.
0.025350.025350.012680.0 0.
0.030420.030420.030420.030420.
0.011833.095800.090200.069710.
0.006340.CO 6340.032960.059570.
0.030420. 030420.030420.03C420.
0.0 0.107740.141100.141330,
0.007040.007040.026900.186260,
0.016900.016900.038870.060840.
0.0 O.C78900.136250.158450,
0.014080.014080.014080.363100,
0.003380.003380.047950.092530,
0.0 0.011410.022810.022810,
0.044600.044600.044600.439700,
0.003380.003380.049850.096330.
0.0 0.014530.014530.301000,
0.698300.027580.027580.438350,
0. 375000. 375000.14<5000.149000,
0.0 0.047530.068650.0 0,
747.0
741.8
754.5
754.5
754.5
754.5
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
748.7
740.4
752.4
752.4
752.4
752.4
746.0
747.6
747.6
4287.5
4290.5
4302.5
4302.5
4302.5
4302.5
4303.0
4303.0
4303.0
4303.0
4303.0
4303.C
4303.0
4303.0
4303.0
4303.0
4303.C
4305.4
4306.7
4306.6
4306,6
43C6.6
4306.6
4307.8
4307.8
4307.8
023240.
013100.
0 0.
036120.
OC6550.
015210.
054500.
0 0.
030420.
07098C.
898000.
030420.
065910.
0 0.
030420.
109020.
059570.
0304PO.
149600.
166260.
060840.
131840.
363100.
092530.
0 0.
439700.
096330.
0 0.
438350.
149CCO.
015850.
003800
004230
001270
015840
C02120
015850
027880
0 0
030420
C27880
0 0
030420
143700
029570
030420
194300
029570
030420
327400
026400
015870
322150
023240
OC1320
0 0
023240
124770
015850
753700
258671
031690
61.0
71.6
54.0
54.9
28.3
27.1
63.1
40.2
42.0
63.1
45.7
45.7
45.7
61.0
45.7
45.7
45.7
106.7
182.9
51. 5
23.8
43.5
33.5
51.8
58.3
25.9
.003800.
.004230.
.001270.
.015840.
.002120.
.015850.
.027880.
.0 0.
.030420.
.027880.
.0 0.
.030420.
.143700.
.029570.
.030420.
.194300.
.029570.
.030420.
.158400.
.026400.
.015870.
.454150.
.023240.
.001320.
.216550.
.023240.
.145901.
.475302.
.753700.
.1C6450.
.422502.
41
7
35
28
30
46
70
59
44
77
49
66
57
68
45
53
63
4
143
16
18
27
23
87
79
88
747.8
755.5
754.5
754.5
754.5
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
748.7
740.4
752.4
752.4
752.4
752.4
747.6
747.6
744.1
4287.8
4290.1
5 4302.5
4302.5
4302.5
0 4303.0
0 4303.0
0 4303.0
0 4303.0
0 4303.0
0 4303.0
0 4303.0
0 4303.0
4303.0
0 4303.0
0 4303.0
0 4303.0
4305.4
4306.7
4306.6
4306.6
4306.6
4306.6
4307.8
4307.8
4309.7
14.6
9.1
24.1
33.5
28.3
95.1
63.1
61.0
56.4
29.8
30.5
45.7
45.7
21.3
45.7
45.7
45.7
76.2
183.0
48.5
48.5
18.4
33.5
58.5
32.0
16.8
003800,
004230.
001270,
015840
002120
022180.
027880
0 0,
043090,
027880,
0 0,
043090
071830,
029570
015850
118100
029570
015850.
172350
026400
013200
179550
023240
237651
338001
023240
270221
619501
642200
722290
503003
,003800.
,004230.
,001270.
.015840.
,002120.
,028520.
,027880.
, 0 0.
,055770.
,027880.
,0 0.
,055770.
, 0 0.
,029570.
,001270.
.041830.
.029570.
,001270.
.100480.
.026400.
.681890.
.215200.
.023240.
.721501.
.748300.
.023240.
.172400.
.653002.
.530700.
.186750.
.148002.
00380
00423
00127
01584
00212
02852
02788
0
05577
02788
0
05577
0
02957
00127
04183
02957
00127
10048
02640
38358
07260
02324
89345
17430
02324
85011
87850
53070
31100
91500
-------
135
MEMBER NAKE EPAGE02
3.517000.316900.010560.430400.430400.
Q. 264 10 1.83 0000. 14900 0.1490 00. 149 000.
0.290450. 565050. 543<550.7 18250. 707 840.
4.236001.363000.316900. 0845 00.084 50 0.
1.215000.834400.010560.010560.010561.
0.734100. 7 130 01.01925 0.40 6650. 4 38 35 3.
4.468004.922001.912000.084500.084500.
1.162000.443600.010560.158400.010560.
0.316850.543950.654850. 8 397C3.787CC 7.
4. 1 51 003. 85 5003. 96 LOO 1.098000. 3 16900.
0. 6 12600. 464 701. 6 C500 0.010561.563001.
0.0 0.184850.116200.0 0 .3 16 S 50.
5.672005.661003.412003.105000.316900.
0.010560.010561.162001.796002.102000.
0.248200.0 0.258800.438301.304550.
3.158004. 690002.715005.408000.718200.
2.334001.859000.411900.010560.010560.
0.0 0.507000.295750.306300.96] 103.
1. 267 002. 429000. 7 52200. 39 C80 1.468 00 0.
0.559802.081000.422500.010560.781600.
0.105630.095050.147850.470050.982350.
0.401402.683000.940103.369002.461000.
1.394002.493001.722001.162000.010560.
0.0633 50. 073950. 195400. 2 587 50. 269350.
2.746004.943007.341004.119000.918900.
1.753001.299001.711001.838000.010560.
0.079200.095050.084500.385500.353803.
6.591005.059005.091005.355002.514000.
0.010560.876700.676000.010560.010560.
0.063350.195400.411900.433050.617903.
4.014005.915004.975003.729001.204000.
0.038730.038730.038730.580900.010560.
0.0 0.253500.242950.390800.443600.
4.394004.236005.186001.796000.718200.
0.038730.038730.038730.010560.010560.
0.0 0.153150.195400.279900.190150.
3.919004.605002.841000.644300.316900.
0.038730.038730.038730.010560.549200.
0. 058 1 00. 3908 50. 3 16900. 1531 50. 18485C.
1.436030.031690.570400.084500.042250.
0.010560.010560.010560.010560.010560.
0.184850.385550.290450.364400.501150.
0.918900.475300.348600.044890.044890.
0. 010560. C 10560. 010 560. 866100.010560.
0.190100.438300.258800.279900.158450.
0.771100.654900.316900. 044B90. 044 890.
1.500000.010560.010560.010560.010560.
0.063350.522800.443650.311550.253500.
2.820000.179600.316900.063370.063370.
2.947000.813300.010560.010560.010560.
0.184850.327450.470050.353800.332700.
0.137300.031690.316900.063370.063370.
1.183001.162000.010560.327400.010560.
0. 242 950. 52 2850. 1C0350. 2640 50. 248200.
0.126700.253500.316900.031690.031690.
2.218000.739402.387000.010561.806000.
0.0 0.586100.950600.390800.338000.
0. 169000. 137300. 3C6300. 316900. 200700.
558600.558600.
43 8330. 6 02 280.
03 1691. 55300 3.
3 63400. 3 63 400.
135450.285180.
9930 06. 21 1003.
363400.363400.
290480.010560.
394006.633001.
03 1690. 24290 0.
684500.232400.
9401 03.972001.
031690.771102.
29C4 80. 17958 0.
718202.113001.
116200.369703.
010560.539820.
116002.081000.
2 8 52 00. 179601.
002640.006600.
031690.031690.
359100.232400.
002641.029950.
5492 CO. 031 690.
031690.031690.
145300.036330.
803008.270004.
031690.380200.
145300.036330.
000003.602005.
052810.052810.
142000.058940.
464706.179005.
052810.749900.
138600.081560.
190100.211204.
137301.341001.
138600.081560.
4C14CO. 5 8090 0.
052811.817002.
002110.002110.
623200.633700.
295700.052811.
002110.002110.
253500.380200.
01 0561. 17200 1.
002110.002110.
316900.327400.
023770.023771.
002110.002110.
295700.137300.
023770.023770.
002110.002110.
13 73 CO. 0 0.
005280.005280.
048160.048160.
665400.338000.
005280. 005 280.
454600.350700.35070
077530.162450.21630
274002. 7 04003. 86600
267000. 17070 0.1 7 070
077130.138200.12170
03 1002 .3 45 003. 91 900
267000.170700.17070
800850.138200.12170
679002.134006.92900
01 0560. 01056 1.90 100
399050.401350.25690
415001. 595001. 21 500
334001.943001.58400
399050. 401 350. 25 690
658002.134006.21100
264004.352001.88000
114570.208950.15630
454203.465001.93300
45 8003. 031 003. 19 000
003010.016470.05577
031691.415001.67900
147902.567002.69300
006970.016470.05577
686604. 13000 5. 58 800
147900.147900.14790
148450.296900.01056
55 2003. 2 64 005. 31 30 Q
147900.147900.14790
148450.296900.01056
619004.647005.65100
147900.147900.14790
164080.296900.01056
693006.010004.33100
612600.010560.01056
696761.352150.01056
035002.060003.33800
194000.010560.01056
638760.591500.15313
929500.982303.29600
662000.876700.01056
265101.082850.74460
496402.852001.84800
141000.295700.01056
075000.808150.27988
422502.820000.79220
162002. 6 83 002. 56 700
002810.003520.37498
232400.380202.56700
077002.070001.35200
002810.003520.05808
147900.792200.29570
031690.813300.99290
002810.003520.58628
411900.158400.10560
095060.116200.01056
057380.067600.06760
274600.475300,43310
01 0560. 084500. 01056
-------
136
E°Ar-FO 2
C.72 a 801.42600C.0105*0.866100.105600.048160.048160.057880.067600.06760
3.182 17 }.SC 96 21.4 23 20 0.33 00 70.2 50 850, 14 78 50. 2 16 500. 4330 50.480 600. 25 87 5
0.311*00.237650.348550.472500.174300.016430.016430.016430.010560.01056
3.010563.095GP0.010560.337980.013560.048160.048160. 057380.067600.06760
0.113200.144400.08P820.298400.340650.C73950.0 0.285200.327450.0
0.092950.092950.075200.057450.057450.037150.037150.037150.034220.03422
0.68847 }. 0122^0.012250.^291 20.01?250.036750.336750.048800.057460.04732
0.074780.1936 CO.116600.406720.4P8500.211250.0 0.285200.0 0.22710
0.151700.151700.120830.089980.089980.057380.057880. 057880. 057880. 05788
0.013940. Oi:J940. 013940.013 940.013 940. 02 53 50.025 3 5 0.03 5070.043 940. 11534
0.0 0.209150.43°15C.437000.25877C.343250.0 0.0 0.116200.11620
3.049013.349010.03?I IO.C15210.J15210.057880.057830. 057880.057880.05788
0.013940.013940.013940.013940.013940.025350.025350.021120.019930.50504
3.037 180.037180.023020.008870.008870.016480.016480. 016480.316480. 01648
0.013100.01310P.013100.013100.013100. 016900.016900.010140.003380.00338
0.044890.0^4890.396080.010560.058030. 339210.002640.023290.196670.68732
0.03 7183. 03 71 80.02^020.0088 70.003 870.0164 80.01648 0.0164 80.01.6 48 0.0164 a
0.013100.Cl3 ICO.013100.0 13100.013100.004230.004230.010770.017320.01732
0.084 500.063380.374980.205980.480580.006600.032640. 008080. 311 430. 0051 7
0.033 800.033800.027460.021120.021120.021760.021760.021760.021760.02176
0.013 59 O.On^O.013 59 3. 011830.011830. 005280.005280.047740.016260.01626
3.010560.602050.697281.568500.3063CO.213880.003520. 010840.018160. 01816
0.030420.C3C420.031900.033380.033380.027040.027040.027040.027040.02704
0.014380.014C80.014080.047530.010560.438350.089783. 100323.010560.04753
1.510501.769001.341350.010560.749780. 042240.007040. 019Q90.032950.03295
0.030420.03C420.031900.033380.033380. 027040.027040. 027040.027040.02704
3.044890.344890.068651.616501.014002.403300.522781.964501.843500.78155
0.010560.010^6C.C47530.010561.040280.168Q90.124100.217160.032950.03295
0.078 160.078160.116830.116620.0 0.065490.065490.065490.065490.06549
0.256100.256100.396080.987800.°61150.227080.126730.712800.855470.32743
0.064220.064220.2146 CO.365000.3650C1. 122240.021120.012670.014790.01479
836.46484
(9F8.2)
1174.17 1127.57
27.07 49.80
154.19 0.72
70.88 67.72
36.59 36.59
1.50 13.35
332.40 263.59
195.33 168.54
5.55 4.55
11.51 9.38
80.78 46.20
31.38 31.38
11.77 11.77
7.97 5.98
278.66 1681.87
36.99 25.86
140.47 82.04
30286.6
(12F6.1)
1062.51013.4 730.7 730.7 84.0 233.3
228.4 146.1 189.6 193.9 193.9 149.^
550.3 709.7 20°.0 122.0 118.9 121.7
943.1 942.C 881.11185.31149.7 542.1
503.4 533.4 ^-13.4 59.8 55.3 469.7
386.1 3°7.7 550.3 270.7 ?60.6 0.0
51^.01
45.16
39.35
22.58
36.59
134.34
68.^2
0.03
2.24
6.90
46.20
30.23
11.54
5 .67
640.5°
13.20
56.93
196
43
46
0
12
79
67
0
1
6
46
29
9
5
0
12
51
.74
.29
.54
.20
.34
.40
.03
.49
.35
.36
.70
.37
.°8
.38
.06
.66
.58
7
31
9
100
11
73
66
3
135
6
46
26
9
5
91
5
7
. 11
.21
.32
.^3
.33
. 19
.39
.28
.78
.30
.20
.32
. 9 f>
.33
.94
.24
.05
37.66
28.91
6.47
43.79
4.34
68.46
57.50
15.53
2.65
6.30
43.01
13.96
9.26
5.38
51 .72
4.63
3.34
1.
14.
3.
37.
0.
52.
54.
0.
74.
6.
42.
14.
9.
4.
48.
4.
27
87
14
54
S5
07
60
1
14
91
20
0
7
52
5815908
10
18
72
79
15
57
39
55
63
5
42
12
8
1720
42
5
.24
.87
.36
.31
.12
.48
.70
.64
,*2
.61
.72
.80
.72
.91
.00
.72
1 .
13.
87 .
12.
49.
41.
3.
5 .
15.
96.
42.
12 .
8.
693.
36.
242.
34
87
94
28
19
60
14
55
07
63
63
66
66
51
99
19
0.0 32.6 0.0 259.8 94
0.0 3.3 218.8 171.6 319
37.2 198.9 126.7 121.5 114
C. C 0. 0 370.4 0.0 153
558.2 558.2 3«7.7 306.1
78.6
1.90.6 98.6
75.1
386.
300,
4 233.7
5 185.0
7 113.9
1 986.6
1 385.9
0 40.0
-------
137
MEMBFR NAME FPAGE02
40.0 88.0 70.0 101.5 720.8 768.8 210.4 261.0 201.5 190.6 216.8 195.6
176.8 261.8 234.7 238.2 183.1 704.6 858.9 334.7 334.7 324.9 324.9 632.1
325.0 325.0 367.6 270.7 270.7 163.0 605.7 304.0 495.3 391.4 325.9 371.7
301.0 301.0 335.4 473.7 473.7 293.7 239.5 462.9 150.0 314.9 237.8 235.5
282.9 282.9 278.2 118.2 779.2 585.3 433.41210.01210.0 0.0 793.1 277.0
383.6 145.3 240.8 240.8 195.9 116.4 50.0 311.2 311.2 311.2 385.0 533.3
231.3 208.5 100.0 277.4 73.8 57.8
-------
138
4. Output Sample
-------
139
GINLIST
IM=30, JM=40, KM=14,IN«9,JN=13,KN=1,KNN=10,NS=25,LM«150,
IMC»15,JMC*19,
DX=5*2QOO.,20*1000.,5*2000.,DY»10*2000.,20*1000.,1 0*2000.»
DZ=5*20.,9*25.,TM=0.n, DT-12C.,AKA=24*1 .OE-4,AKH-9.,13*10.,
HS=10., HP=140., HG-1000., ZMAX-10GO.,HMIN=300.,HMAX«600.,
ZRPQ=0.6,ZRISE=1.0,PMAX»0.5,PMIN=D.15,DCMIN=2.0,OLM1N-30.,
IHR»1,IDAY=1,IMO* 2,IYR»75, LTSTOP=4,IHRTP=1,IDAYTP-1,
JUNIT»6,KUNITG=13,KUNITS-14,KUNITW=15,KUNITC»16,KUNITJ«17,
LCRUN=l,LHJUS=0,LCHEM«l,LWW»0,LTOP=lfLWTQP=l,LSOU$*l,l,
LWIND*2,KWIND=4,LPQ»1,LTSOUS* 3600,LTWIND= 3600,ZONfAN-0.0,
LWRITE=1,1,1,1,2,2,1,2,0,0,
6END
CARDS COPIED TO DISK.
LOCATION OF 25 RAMS STATIONS *****
IS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
XSUTM
744.18
742.52
747.59
747.31
743.71
738.66
740.18
748.41
755.80
747.21
738.81
733.94
737.74
744.32
757.11
762.78
760.56
743.06
729.76
723.08
732.41
741.63
777.32
749.27
697.45
YSUTM
4279.86
4286.04
4282.46
4277.30
4276.45
4277.57
4282.61
4291.10
4279.89
4272.82
4272.48
4280.91
4289.82
4297.46
4297.80
4290.08
4272.82
4263.26
4270.55
4285.91
4302.37
4329.22
4286.38
4236.54
4282.24
XS
14.18
12.52
17.,59
17 .3 1
13.71
8.66
10.18
18.41
25.40
17.21
8.81
4.47
7.74
14.32
26.06
28.89
27.78
13.06
2.38
-0.96
3.71
11.63
36.16
19.27
-13.78
YS
17.86
24.04
20.46
15.30
14.45
15.57
20.61
29.10
17.89
10.82
10.48
18.91
27.82
32.73
32.90
28.08
10.82
5.63
9.27
23.91
35.19
48.61
24.38
-7.73
20.24
JXS
15
13
18
18
14
9
11
19
26
18
9
5
8
15
27
29
28
14
3
1
4
12
30
20
1
JYS
18
25
21
16
15
16
21
30
18
11
11
19
28
33
33
»29
11
4
10
24
36
40
23
1
21
-------
*•** ZS FIELD UNIT IN M. , RATIO= 1.00
PAGE = 1
XUTM= 725 727 729 731 733 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 75? 751 752 753 754 755 757 759 761 763
1= 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
4310 40 12 14 14 14 12 11 11 11 11 11 11 11 10 10 10 10 10 10 13 10 14 14 14 14 14 11 13 12 12 12
4308
4306
4304
4302
4300
4298
4296
4294
4292
4291
4290
4289
4288
4287
4286
4285
t284
4283
4282
4281
4280
4279
4278
4277
4276
t275
4274
4273
4272
4270
4268
4266
4264
4262
4260
4258
4256
4254
4252
39
38
37
36
35
34
33
32
31
30
29
28
27
26
25
24
23
22
21
20
19
18
17
16
15
14
13
12
11
10
9
a
7
6
5
4
3
2
1
12
12
12
12
12
12
14
15
16
20
20
20
20
20
20
20
20
21
21
20
20
20
20
20
20
20
20
20
20
20
20
20
20
20
19
19
19
19
19
14
14
14
14
14
14
15
16
16
16
16
19
20
20
20
20
20
20
20
20
20
2P
20
20
20
20
20
20
20
20
20
20
20
20
20
18
18
18
18
14
14
14
14
14
14
16
17
16
15
15
18
20
20
20
21
20
20
20
20
18
19
20
20
20
20
20
20
20
20
20
20
20
21
20
18
18
18
18
14
14
14
14
14
14
17
18
18
13
18
19
20
20
20
20
20
20
20
20
20
20
23
21
20
20
20
20
20
20
20
20
20
20
20
18
18
18
18
12
12
12
12
12
13
17
19
18
18
18
19
20
19
19
20
20
20
20
19
19
20
20
20
20
20
2C
20
20
20
20
20
20
20
19
15
15
15
15
11
11
11
11
11
12
17
19
19
20
20
20
20
19
19
20
2i
20
20
18
19
20
20
20
20
20
20
20
20
20
19
17
19
20
18
13
12
12
12
11
11
11
11
11
12
16
18
18
20
20
20
20
20
20
21
20
20
20
21
20
21
22
21
20
20
20
20
20
20
19
17
15
15
14
12
12
12
12
11
11
11
11
11
12
16
18
18
20
2C
20
20
20
21
21
20
20
20
23
21
21
22
20
21
21
20
20
20
20
18
15
15
15
14
12
12
12
12
11
11
11
11
11
12
16
18
18
20
20
20
20
20
21
21
20
20
20
21
21
21
22
20
2C
20
21
20
20
19
16
15
15
15
14
12
12
12
12
11
11
11
11
11
12
16
13
18
21
21
23
2J
2J
20
20
20
20
23
20
20
22
21
20
2J
20
20
20
23
18
13
11
14
15
14
12
12
12
12
11
11
11
11
11
12
16
17
18
21
21
21
20
21
20
20
20
20
21
20
21
22
21
20
20
20
21
20
16
14
12
11
11
11
11
11
12
12
12
11
11
11
11
11
12
16
17
17
20
20
19
18
18
21
21
20
20
20
20
20
22
21
20
20
20
20
16
11
12
13
14
11
11
11
11
12
12
12
10
10
li
10
10
11
15
17
17
20
20
14
13
13
16
16
21
21
20
20
20
22
21
20
20
20
17
12
10
13
14
1^
11
11
lr'
10
10
10
10
10
10
10
10
10
11
15
17
16
13
13
10
10
11
10
11
19
20
20
20
21
22
22
21
19
17
17
14
12
15
18
19
13
11
10
10
10
10
10
10
10
11
10
10
11
12
13
13
13
13
10
10
12
15
16
18
18
18
18
18
19
19
19
18
17
21
19
17
14
18
19
13
11
n
10
10
10
10
10
10
11
10
10
IP
12
13
12
11
11
12
14
17
21
21
21
19
18
18
18
19
18
13
20
20
21
19
19
14
14
15
12
11
10
10
10
10
10
11
10
11
10
10
10
12
13
12
11
11
15
20
21
21
20
20
21
21
22
22
21
20
20
20
19
16
14
16
14
14
15
12
11
ir
10
10
10
10
10
10
10
10
10
11
12
13
12
11
11
15
19
19
18
17
18
19
21
22
22
20
20
2i
20
18
13
11
12
13
11
10
10
11
10
10
10
10
10
10
n
10
10
11
10
11
11
11
11
15
18
17
15
13
13
15
17
19
19
19
19
19
19
18
16
14
13
14
11
1"
10
11
1?
10
10
10
10
10
10
ln
IP
10
lr
10
11
11
14
14
18
18
15
15
11
11
14
14
18
18
19
19
19
19
18
18
16
16
14
12
li
10
11
1A
10
10
1C
10
14
14
14
14
14
13
11
11
11
14
14
18
18
15
15
11
11
14
14
18
18
19
19
19
19
18
IP
16
16
14
12
li
10
11
10
10
10
10
10
14
14
14
14
14
13
11
11
11
13
13
15
14
13
13
11
11
13
13
15
16
17
17
17
17
17
17
16
15
14
12
11
11
11
10
10
in
10
14
14
14
14
?4
13
11
11
11
12
12
12
11
11
11
11
12
12
12
12
15
15
15
15
16
16
16
16
15
15
13
12
11
11
IP
10
10
10
10
14
14
14
14
14
13
11
11
11
12
12
12
11
11
11
11
12
12
12
12
15
15
15
15
16
16
16
16
15
15
13
12
11
11
li
IP
li
IP
10
14
14
14
14
14
13
11
11
11
12
12
12
11
11
11
11
12
12
12
12
15
15
15
15
16
16
16
16
15
15
13
12
11
11
li
10
li
10
IP
14
14
14
14
14
13
12
11
12
12
12
12
11
11
11
11
12
12
11
11
14
14
14
14
15
15
15
15
14
14
13
12
11
11
11
10
11
IP
10
13
1?
13
13
13
14
15
15
15
15
14
14
14
14
14
14
14
14
11
11
11
11
11
11
11
11
14
14
14
14
13
13
13
13
13
11
ln
in
11
12
12
12
12
12
14
16
16
16
16
15
15
15
15
15
15
15
15
11
11
11
11
11
11
11
11
14
14
14
14
14
14
14
14
14
12
11
10
IP
12
12
12
12
12
14
16
16
16
16
15
15
15
15
15
15
15
15
11
11
11
11
11
11
11
11
14
14
14
14
14
14
14
14
14
12
10
10
10
12
12
12
12
12
14
16
16
16
16
15
15
15
15
15
15
15
15
11
11
11
11
11
11
11
11
14
14
14
14
14
14
14
14
14
12
10
1C
10
-P--
o
-------
*** 10 FIELD UNIT IN M. , RATIO= 100.00
PAGE = 1
XJTM= 725 727 729 731 733 735 736 737 738 739 74C 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 757 759.761 763
1= 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 2S 29 30
4310
4308
4306
4304
4302
4300
4298
4296
4294
4292
4291
4293
4289
4288
4287
4286
4285
4284
4283
4282
4281
4280
4279
4278
4277
4276
4273
4274
4273
4272
4270
4268
4266
4264
4262
4260
4258
4256
4254
4252
40
39
38
37
36
35
34
33
32
31
30
29
28
27
26
25
24
23
22
21
20
19
18
17
16
15
14
13
12
11
10
9
8
7
6
5
4
3
2
1
23
20
20
22
22
22
23
36
39
49
52
70
70
61
72
72
63
69
61
66
55
54
56
50
70
52
81
111
79
56
56
51
48
45
45
48
49
49
49
48
29
26
26
27
27
27
36
43
43
66
81
77
76
101
97
87
91
74
81
72
57
52
51
75
47
62
93
109
98
58
55
54
56
55
52
47
35
32
31
31
31
27
27
26
26
26
44
43
43
117
99
49
86
89
79
79
80
70
63
75
51
52
50
61
56
49
83
119
92
60
50
50
60
57
54
48
36
32
32
32
31
27
27
26
26
26
45
62
60
63
73
64
79
79
79
82
64
68
69
72
68
58
69
60
68
41
89
66
83
44
69
44
57
54
49
44
37
32
32
32
25
25
25
25
25
25
38
70
68
61
62
57
75
75
68
92
63
57
68
79
62
56
101
99
117
57
239
61
75
42
42
42
55
51
48
43
31
26
26
25
25
25
25
25
25
25
41
55
50
55
85
52
73
76
74
100
81
61
72
203
227
72
44
222
87
95
456
244
38
38
37
35
50
57
52
45
24
19
18
18
25
25
25
25
25
25
26
37
41
54
64
44
61
73
81
100
94
62
417
243
502
43
44
175
181
286
442
378
118
57
56
43
56
31
3C
26
19
19
18
18
25
25
25
25
25
25
26
52
56
66
60
68
57
62
75
85
114
297
385
369
328
80
44
75
151
139
155
221
213
161
152
42
27
29
26
25
19
19
18
18
25
25
25
25
25
25
31
37
58
68
72
52
93
64
210
227
109
164
397
318
239
267
123
259
173
143
177
185
189
190
102
82
29
25
25
23
19
19
18
18
25
25
25
25
25
25
31
50
41
55
66
48
56
171
86
153
232
233
293
376
335
348
143
161
417
115
448
277
260
175
133
22
16
24
25
23
19
19
Id
13
31
25
24
24
24
24
27
-tl
41
52
50
49
45
172
82
95
126
268
290
272
419
206
70
122
239
406
293
310
259
147
36
17
14
20
23
23
25
18
18
18
31
25
24
24
24
24
27
41
41
48
43
48
35
37
62
64
44
314
264
364
338
342
211
189
331
409
273
298
70
18
16
22
25
24
23
23
25
18
18
18
23
16
14
14
14
14
18
37
39
52
50
50
31
24
25
37
50
202
303
305
339.
489
100
91
206
251
256
99
. 2C
12
19
25
25
24
24
24
26
27
29
29
35
47
16
14
14
14
18
36
38
50
25
18
12
11
11
12
16
57
117
231
331
277
225
62
331
181
64
27
22
26
36
56
66
35
25
24
43
27
29
29
33
35
14
14
14
14
16
22
22
25
23
18
12
11
16
23
25
39
54
79
128
68
132
91
56
38
36
36
32
41
35
58
66
42
32
30
63
27
29
29
18
62
24
14
14
14
17
20
22
19
14
14
17
23
27
49
37
39
31
29
29
30
43
37
31
31
33
50
47
52
43
31
37
32
31
31
29
•>7
27
29
17
25
17
14
14
14
17
2"
22
19
14
14
25
33
87
37
117
93
68
37
54
37
44
39
48
66
39
37
31
44
44
31
37
32
31
31
29
27
27
29
29
54
17
16
14
14
17
20
22
19
14
17
25
80
83
76
128
75
56
41
43
43
39
94
172
134
30
27
19
30
39
?2
24
30
31
31
29
27
27
29
31
51
14
14
14
14
16
16
16
14
17
18
50
114
131
35
43
19
24
31
37
37
140
160
218
114
30
31
26
31
39
21
24
33
37
36
30
27
27
29
20
30
16
14
14
14
16
16
16
17
22
22
68
83
103
24
14
14
20
24
33
33
144
165
110
98
106
36
32
38
41
23
24
33
37
36
3?
27
27
29
25
23
68
23
25
24
22
17
29
17
43
86
76
147
69
24
14
16
20
20
29
95
89
55
130
31
54
75
69
36
36
23
24
33
37
37
31
30
29
27
25
23
76
41
25
24
22
17
14
18
56
38
61
47
18
18
14
IT
19
19
5<>
70
118
1^3
95
29
44
43
55
103
42
26
?5
33
37
37
31
30
29
27
29
24
63
43
33
35
22
17
14
16
17
73
17
14
14
14
14
IB
ie
18
32
76
76
36
36
66
81
25
25
37
37
31
31
31
31
31
30
30
29
27
33
23
23
70
29
23
22
IT
22
24
37
17
25
14
14
32
14
IT
17
31
17
81
60
24
24
87
25
31
25
37
37
33
31
31
31
31
3"
30
29
27
33
55
45
31
37
25
22
17
14
16
19
58
17
14
14
14
14
3"
17
17
17
24
24
48
24
"8
80
25
25
37
37
33
31
31
31
31
30
30
29
27
56
27
24
29
23
32
23
19
18
19
2C
22
19
18
18
18
18
24
24
23
23
•29
24
24
25
37
86
37
69
51
43
37
30
31
31
31
30
3C
29
27
24
26
23
23
23
23
27
31
31
32
32
33
31
31
31
31
31
36
36
29
29
30
68
27
49
36
37
36
49
67
92
43
35
33
35
35
31
29
27
27
24
31
24
24
24
24
30
36
36
37
37
37
35
35
35
38
43
66
68
36
35
35
29
29
33
44
44
77
42
42
74
102
47
35
3.5
35
31
29
27
26
24 24
25 25
25 25
24 24
24 24
30 45
30 48
36 38
37 36
37 37
37 37
37 37
35 62
35 37
35 52
74 49
87 70
62 42
100 36
41 30
41 3*
41 30
30 31
30 31
37 35
44 38
44 38
44 43
44 43
45 49
47 52
97 81
118 127
64 51
33 33
33 33
32 32
29 29
27 27
26 26
-------
*** 08 FIELD UNIT IN G/S , RAT10= 1.00
XUTM= 725 727 729 731
4310
4308
4306
4304
4302
4300
4298
4296
4294
4^:92
4291
4290
4289
4288
4287
4286
4285
4284
4263
4282
4281
4280
4279
4278
4277
4276
4275
4274
427J
4272
4270
4268
4266
4264
4262
4260
4258
4256
4254
iy e; 9
I =
40
39
38
37
3b
35
34
33
32
31
30
29
28
27
2b
25
24
23
22
21
20
19
18
17
16
15
14
13
12
11
10
9
8
7
6
5
4
3
2
i
1
3
0
0
0
0
1
0
0
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
2
1
0
0
0
n
0
0
0
0
Q
0
n
2
0
0
0
0
0
0
0
0
n
2
2
2
1
2
1
1
1
0
1
0
0
3
0
2
0
0
2
2
2
1
0
0
0
0
0
0
0
0
0
n
3
0
0
0
0
0
0
1
0
3
5
3
0
1
1
1
1
1
0
0
1
0
0
0
1
1
0
2
4
2
C
0
0
o
0
0
0
0
o
0
1
4
0
0
0
0
0
1
1
1
1
1
1
1
1
1
1
1
0
1
1
1
1
1
1
1
1
o
3
1
2
9
1
0
1
0
0
0
0
0
0
n
733
5
0
0
0
0
0
C
1
1
1
1
1
0
1
1
0
2
C
0
1
2
1
I
3
3
5
1
15
1
2
0
0
0
0
0
0
0
0
0
0
n
735
6
n
0
n
0
0
0
1
0
0
0
2
0
1
1
1
2
1
0
1
12
15
2
D
12
2
3
29
15
0
o
0
0
1
1
(^
0
0
n
0
n
736
7
0
0
3
0
0
0
0
0
0
0
1
0
0
1
1
2
2
0
24
14
33
0
0
8
8
15
26
24
6
1
1
0
1
0
0
6
0
c
0
n
737
8
0
0
0
0
0
0
0
1
1
1
1
1
0
9
1
1
3
16
22
22
18
2
n
1
6
5
6
12
13
10
10
1
0
0
rt
0
C
0
0
n
738
9
0
0
r\
c
0
0
0
0
1
1
1
0
3
1
11
11
3
8
24
18
13
16
5
13
8
6
8
9
10
12
6
6
0
0
O
0
0
0
0
n
739
10
0
0
0
0
0
3
0
0
0
1
1
0
1
13
3
7
13
13
17
22
21
22
6
7
24
4
27
15
15
11
11
0
0
0
0
0
0
0
0
n
740
11
1
0
0
0
0
0
0
0
0
1
o
c
0
11
3
3
5
15
17
16
26
10
1
5
12
22
16
17
16
14
2
0
0
0
n
0
0
o
0
n
741
12
1
0
1
0
0
0
0
a
0
0
0
1
0
9
2
1
0
18
16
23
20
19
10
9
18
22
15
19
5
1
0
0
0
0
1
0
0
0
0
n
742
13
1
n
n
0
0
f\
0
0
0
1
1
1
1
1
1
1
2
11
20
19
20
29
3
3
1C
13
15
7
1
O
0
C
n
0
n
0
o
r
0
n
743
14
3
6
<^
0
0
n
0
0
n
1
1
3
0
3
0
0
o
2
7
14
21
16
13
1
21
12
4
0
0
1
1
1
1
3
n
0
1
o
0
n
744
15
3
4
~.
o
0
o
0
0
0
T
r>
0
0
9
3
0
0
1
2
4
10
3
9
5
2
1
1
0
0
1
1
1
1
ft
^
0
3
•i
o
n
745
16
0
9
1
0
0
"
0
r\
0
n
o
0
0
o
0
1
0
0
0
0
0
0
1
1
0
0
0
1
1
2
3
0
Q
0
*\
0
n
0
0
*•>
746
17
0
2
r
0
0
0
n
i
0
C
r\
0
3
0
4
••
7
5
2
0
1
0
0
r-
1
3
n
1
1
2
3
r\
0
0
r
0
0
0
0
r\
747
18
2
7
o
0
0
0
0
r>
0
0
1
0
0
4
4
4
1C
4
2
0
0
0
0
5
13
9
n
1
1
1
2
o
0
0
o
n
0
0
0
T
748
19
3
7
0
0
0
0
0
1
0
0
^
0
3
8
10
1
3
0
0
0
0
0
10
12
17
7
->
0
0
1
2
0
0
0
o
0
0
0
0
n
749
20
1
3
n
o
0
n
0
n
n
O
n
0
3
5
10
n
0
0
^
0
o
0
10
12
7
6
7
0
0
1
2
r*.
0
0
1
0
0
n
0
1
75C
21
0
n
6
0
3
0
0
o
2
0
2
8
4
11
6
"
o
o
A
0
ri
•?
5
2
9
0
2
4
4
1
1
r,
0
0
n
0
n
n
0
n
751
22
0
0
7
2
o
0
0
c
0
0
5
2
4
3
0
n
n
0
n
0
3
5
9
8
7
n
1
1
3
7
1
O
o
0
A
0
0
n
0
752
23
0
n
5
2
1
1
0
n
0
0
n
9
0
0
0
r>
0
0
n
0
2
6
6
1
1
4
6
0
0
0
0
0
0
o
r>
0
0
0
0
753 754
24
1
n
i
6
0
0
0
o
1
1
3
0
1
0
0
3
0
o
*>
2
o
7
4
o
0
7
n
0
0
0
0
n
0
0
^
0
n
0
o
25
1
4
2
1
1
0
0
0
0
n
n
7
0
0
o
r*
A
2
n
0
n
0
0
3
n
P
6
0
0
0
0
-1
0
o
r-
0
0
0
3
755
26
4
0
o
0
n
1
0
o
0
0
o
o
0
n
0
0
o
0
0
0
n
0
p
r
r
1
6
1
4
1
]
r\
c
0
r
0
n
n
0
757 759 761 763
27
0
n
n
n
0
0
n
n
0
r\
O
0
0
o
o
n
0
0
n
0
n
n
4
p
2
n
0
o
1
2
4
o
0
0
0
o
^
0
0
n
28
0
0
T
0
0
0
o
1
0
0
0
0
0
0
0
3
1
2
2
0
0
0
0
o
0
1
1
3
T
0
2
5
0
0
0
0
3
0
0
A
29
0
0
0
0
n
0
0
r\
n
0
0
0
o
0
T
3
4
2
5
1
1
1
0
o
0
1
1
0
o
0
0
4
6
2
0
0
n
0
0
rv
30
n
D
0
3
n
2
2
n
0
0
o
0
2
0
1
1
2
0
0
o
o
0
3
0
0
1
1
0
1
n
1
3
7
1
0
0
n
0
3
n
TOTAL EMISSION : READ I N= 886.5, MODEL USED= 3545.9, IN C-/SEC
-------
143
*** POINT SOURCE DATA ***
N
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Id
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
ID
163
182
180
181
176
171
127
125
101
108
178
174
175
179
170
172
173
177
148
131
165
146
145
144
155
113
114
110
111
112
129
153
152
151
149
150
118
119
120
122
123
121
130
124
166
109
160
156
157
158
159
133
134
147
15
14
8
12
11
13
10
9
154
84
83
94
167
81
40
100
39
91
92
38
41
u i « i_ ni_i riu i_
XPUTM
732.1
732.1
732.1
732.1
733.0
738.0
762.6
762.8
762.6
761.5
738.0
73B.O
738.0
738.0
738.0
738.0
738.0
738.0
736.9
751.9
737.2
742.5
742.5
742.5
743.0
746.4
746.4
746.4
746.4
746.4
746.3
743.0
743.0
743.0
743.0
743.0
745.1
745.1
745.1
745.1
745.1
745.1
748.5
748.3
737.2
747.8
734.2
745.0
745.0
745.0
745.0
753.0
753.0
736.8
745.8
745.8
745.8
745.8
745.8
745.8
745.8
745.8
742.5
746.5
746.5
746.5
725.0
745.2
747.2
748.9
747.0
747.0
747.0
747.0
747.8
YPUTM
4253.9
4253.9
4253.9
4253.9
4263.3
4263.3
4266.6
4266.6
4266.7
4267.6
4268.3
4268.3
4268.3
4268.3
4268.3
4268.3
4263.3
4268.3
4269.4
4272.8
4273.2
4275.1
4275.1
4275.1
4275.0
4275.7
4275.7
4275.7
4275.7
4275.7
4275.2
4276.5
4276.5
4276.5
4276.5
4276.5
4277.3
4277.3
4277.3
4277.3
4277.3
4277.3
4277.3
4277.3
4278.2
4280.9
4281.0
4281.0
4281.0
4281.0
4281.0
4281.3
4281.3
4283.1
4283.5
4283.5
4283.5
4283.5
4283.5
4283.5
4283.5
4283.5
4284.2
4285.7
4285.7
4285.7
4286.0
4286.8
4286.8
4286.0
4287.7
4287.5
4287.0
4287.5
4287.8
IP
106.7
106.7
76.2
76.2
34.9
20.7
21.3
20.7
25.9
68.5
44.8
21.0
25.3
61.0
20.7
21.0
21.0
30.5
13.7
16.8
82.9
68.6
68.6
63.6
76.2
42.7
45.7
42.7
42.7
42.7
15.7
45.7
45.7
45.7
45.7
45.7
100.0
100.3
100.0
100.3
100.3
100.3
15.2
7.6
82.9
76.2
54.3
54.9
55.8
56.7
56.7
53.3
18.6
68.6
72.2
72.2
72.2
72.2
72.2
72.2
72.2
72.2
76.2
22.9
25.9
22.9
15.2
21.1
14.6
8.3
6«.0
20.0
20.0
61.0
14.6
QP
1174.17
1127.57
515.01
196.74
7.11
37.66
1.27
1.24
1.04
27.07
49.80
45.16
43.29
31.21
28.91
14.87
14.87
13.87
154.19
0.72
39.35
46.54
9.32
6.47
3.14
91.36
87.94
70.88
67.72
22.53
0.20
100.63
40.79
37.54
20.31
12.28
36.59
36.59
36.59
12.34
11.33
4.34
0.55
0.12
49.19
1.50
13.35
134.34
79.40
70.19
68.46
52.07
7.48
41.60
332.40
263.59
68.92
67.03
66.39
57.50
54.60
52.70
3.14
195.33
168.54
0.33
0.49
3.28
15.53
0.58
0.0
5.55
5.55
4.55
2.24
ZP
1062.5
1013.4
730.7
730.7
84.0
233.3
0.0
32.6
0.0
259.8
94.4
233.7
228.4
146.1
189.6
193.9
193.9
149.3
0.0
0.0
218.8
171.6
319.5
185.0
550.3
209.7
209.0
122.0
118.9
121.7
37.2
198.9
126.7
121.5
114.7
113.9
943.1
942.0
881.1
1185.3
1149.7
542.1
0.0
0.0
370.4
0.0
153.1
986.6
503.4
503.4
503.4
59.8
55.3
469.7
558.2
558.2
397.7
386.1
386.1
385.9
386.1
397.7
550.3
270.7
260.6
0.0
190.6
98.6
78.6
75.1
310.0
40.0
40.0
88.0
TO.O
XP
3.55
3.55
3.55
3.55
4.00
8.00
28.80
28.90
28.80
28.25
8.00
8.00
8.00
8.00
8.00
8.00
8.00
8.00
6.90
21.90
7.20
12.50
12. 5P
12.50
13.00
16.40
16.40
16.40
16.40
16.40
16.30
13.00
13.00
13.00
13.00
13.00
15.10
15.10
15.10
15.10
15.10
15.10
18.50
18.31
7.20
17.80
4.60
15.00
15.00
15.00
15.00
23.01
23.00
6.80
15.80
15.80
15.80
15.80
15.80
15.80
15.80
15.80
12.50
16.50
16.50
16.50
O.D
15.20
17.20
18.90
17.00
17.00
17.00
17.00
17.80
vp
0.95
0.95
0.95
0.95
5.65
5.65
7.30
7.30
7.35
7.80
8.15
8.15
8.15
8.15
8.15
8.15
8.15
8.15
8.70
11.81
11.20
13.10
13.10
13.10
13.00
13.70
13.70
13.70
13.70
13.70
13.20
14.50
14.50
14.50
14.50
14. 5r
15.30
15.30
15.30
15.30
15.30
15.30
15.30
15.31
16.20
18.90
19.1°
19.00
19.00
19.00
19.00
19. y
19.30
21.10
21.50
21.50
21.50
21.50
21.50
21.50
21.50
21.50
22.20
23.70
23.70
23.70
24.00
24.80
24.80
24.00
25.70
25.50
25.00
25.50
25.80
-------
144
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
100
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
13^
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
168
169
7
97
36
35
37
33
28
34
29
30
32
31
46
60
69
70
73
74
59
75
76
44
71
72
77
50
43
49
56
47
66
51
52
57
64
65
68
48
54
45
55
58
53
61
62
63
67
6
4
5
142
143
93
26
16
20
25
18
19
17
27
24
21
23
22
42
87
80
86
79
85
78
88
736.5
741.8
755.5
753.7
754.5
754.5
754.5
754.5
754.5
754.5
754.5
754.5
754.5
754.5
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
754.0
748.7
748.7
748.7
740.4
740.4
748.1
752.4
752.4
752.4
752.4
752.4
752.4
752.4
752.4
752.4
752.4
752.4
752.4
746.0
747.6
747.6
747.6
747.6
747.6
747.6
744.1
4290.5
4290.5
4290.1
4302.9
4302.5
4302.5
4302.5
4302.5
4302.5
4302.5
4302.5
4302.5
4302.5
4302.5
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
43 03 . 0
4303.0
4303.0
4303.0
4303.0
4303.0
4303. C
4303.0
4303.0
4303. C
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
4303.0
43 03 . 0
4305.4
4305.4
4305.4
4306.7
4306.7
4306.7
4306.6
4306.6
4306.6
4306.6
4306.6
4306.6
4306.6
4306.6
4306.6
4306.6
4306.6
4306.6
4307.8
4307.8
4307.8
4307.8
4307.8
4307.8
4307.8
4309.7
45.7
71.6
9.1
45.7
54.0
24.1
32.7
54.9
33.5
16.8
28.3
28.3
30.8
27.1
95.1
106.7
63.1
63. 1
40.2
40.2
61.0
42.0
42.0
56.4
63. 1
63.1
29.8
45.7
45.7
30.5
45.7
45.7
45.7
45.7
45.7
45.7
61.0
61.0
21.3
45.7
45.7
45.7
45.7
45.7
45.7
45.7
45.7
45.7
45.7
106.7
76.2
76.2
182.9
183.0
13.7
51.5
48.5
48.8
23.8
48.5
48.5
48.5
18.4
44.2
33.5
33.5
33.5
51.8
58.5
34.1
58.3
32.0
76.2
25.9
16.8
1.35
135.78
2.65
74.10
63.52
15.07
11.51
9.38
6.90
6.36
6.30
6.30
6.18
5.61
96.63
80.78
46.20
46.20
46.20
46.20
43.01
42.72
42.72
42.63
31.38
31.38
30.23
29.37
26.32
18.96
14.79
12.80
12.66
11.77
11.77
11.54
9.98
9.98
9.26
9.15
8.72
8.66
7.97
5.98
5.67
5.38
5.38
5.33
4.57
1720.91
693.51
278.66
1681.87
1640.59
0.06
91.94
51.72
48.39
42.00
36.99
36.99
25.86
13.20
12.66
5.24
4.63
4.55
5.72
242.19
149.47
82.04
56.93
51.58
7.05
3.34
111.5
720.8
768.8
210.4
261.0
201.5
190.6
216.8
195.6
176. 8
261.8
234.7
238.2
183.1
704.6
858.9
334.7
334.7
324.9
324.9
632.1
325.0
325.0
367.6
271.7
270.7
163.0
605.7
304.0
495.3
391.4
325.9
371.7
301.0
301.0
335.4
473.7
473.7
293.7
239.5
462.9
150.0
314.9
237.8
235.5
282.9
282.9
278.2
118.2
779.2
585.3
433.4
1210.0
1210.0
0.0
793.1
277.0
3S3.6
145.3
240.8
240.8
195.9
116.4
50.0
311.2
311.2
311.2
385.0
533.3
231.3
208.5
100.0
277.4
73.8
57.8
6.50
11.80
25.25
23.70
24.50
24.50
24.50
24.50
24.50
24.50
24.50
24.50
24.50
24.50
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
24.00
18.70
13.70
18.70
10.40
10.40
18.10
22.40
22.40
22.40
22.40
22.40
22.40
22.40
22.40
22.40
22.40
22.40
22.40
16.00
17.60
17.60
17.60
17.60
17.60
17.60
14.10
28.50
28.50
28. 10
35.45
35.25
35.25
35.25
35.25
35.25
35.25
35.25
35.25
35.25
35.25
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
35.50
36.70
36.70
36.70
37.35
37.35
37.35
37.30
37.30
37.30
37.30
37.30
37.30
37.30
37.30
37.30
37.30
37.30
37.30
37.90
37.90
37.90
37.90
37.90
37.90
37.90
33.85
... TOTAL EMISSION :- READ IN= 30286.6, MODEL USED= 14378.0, IN G/SEC
-------
• • • * i rv v A rnj i i. U r^ I T A i n-> — i -ff *, e At A/ ••••••
***** RAMS DATA *****
IS 1
UU 5.0
OD 0.
Tl 0.
T2 0.
CC 0.
RA 0.
RH= 1.00
DT= 123.0
U0= 0
2 3
5.0 5.0 5
0. 0.
0. 0.
0. 0.
0. T.
0. 0.
GRID Z(K)=
UZF(K)=
VZF(K)=
AKF(K)=
KZ(J=JM/2)=
PARM(N)=
.449 PHZ=
** VERTICAL PROFILE OF
XUTM =
1 =
Z K
300 14
275 13
2i>0 12
225 11
200 10
175 9
150 8
125 7
100 b
80 5
60 4
40 3
20 2
0 1
YUTH =
J =
Z K
3JO 14
275 13
250 1^
225 11
200 10
175 9
150 8
125 7
100 6
80 5
60 4
40 3
20 2
0 1
725 727 729
123
279
279
289
2 8 10
2. 8 10
2 8 10
3 9 11
3 10 12
3 10 13
3 11 13
4 12 14
4 12 15
4 13 16
4 12 16
426242644266 A
678
170 169 159
171 169 160
171 1 f.Q 1 AO
1/A L oV loJ
171 169 160
170 170 161
170 170 161
170 170 161
169 170 161
168 170 162
167 170 162
165 170 163
164 170 164
160 168 163
156 167 163
4 5
.0 5.0
0. 0.
0. 0.
0. 0.
0. 0.
0. 0.
0.
1.00
1.00
1.92
2.4
5.
6789 10. 11 12 13 14 15 16
5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0
0. 0. n. 0. 0. o. 0. 0. o. o. 0.
0. C. 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. 3. 0. 0. 0. 0. 0.
0. 0. 0. 0. 0. 3. 0. 0. 0. 0. 0.
17
5.0
0.
0.
0.
0.
0.
20. 40. 60. 80. 100. 125. 150. 175. 20C. 225.
1.11 1.23 1.31 1.37 1.41 1.46 1.49 1.49 1.49 1
1.11 1.23 1.31 1.37 1.41 1.46 1.49 1.49 1.49 1
2.77 4.26 5.51 6.54 7.47 8.26 8.83 9.22 9.45 9
2.4 2.5 7.3 4.8 6.6 5.8 3.5 2.4 2.1
.49
.49
.56
1.9
18
5.0
->.
n.
0.
0.
0.
250.
1.49
1.49
9.56
2.0
00 0.0 0.0 0.50 300.01 3545.86 14378. rn
19
5.0
0.
0.
0.
0.
0.
275.
1.49
1.49
9.47
1.6
0.0
20 21
5.0 5.0
0. 0.
0. 0.
0. n.
0. 0.
0. 0.
3911.
1.49
1.49
0.50
1.9 2
P.
22
5.
0
0
n
0
0
.2
0
0 5
.
.
.
.
•
23
.0 5
0.
0.
P.
0.
?.
24
.0
0.
0.
n.
0.
0.
25
5.0
0.
0.
o.
0.
0.
318.23
0.888 HFZ= 3.901 RIB= 0.0
* Cl AT
731 733
4 5
8 7
8 7
8 7
8 8
9 8
9 8
10 9
11 10
12 11
13 12
14 14
16 16
16 16
16 16
(26842704
9 10
148 140
148 140
149 141
149 141
149 140
149 14C
149 139
149 138
149 138
149 137
150 138
149 136
149 136
1= 15; J= 19**
735 736 737 738 739 740 741 742 743 744 745 746 747 748
6 7 8 9 13 11 12 13 14 15 16 17 18 19
12 37 34 59 117 171 133 62 21 51 593 203 234 368
12 37 34 60 117 171 133 62 22 53 607 206 234 367
13 39 36 61 118 172 134 63 23 54 638 213 235 365
14 40 37 62 120 173 135 65 24 55 654 221 236 364
15 43 40 64 122 175 137 67 25 53 614 229 237 362
17 45 43 67 125 178 139 70 28 50 538 235 237 360
19 48 47 71 128 181 143 73 31 45 439 241 238 357
23 52 53 76 133 186 147 78 35 41 343 246 237 354
28 60 61 82 14J 192 154 84 40 38 262 248 236 350
34 71 69 88 147 199 160 91 47 38 208 249 235 345
42 87 81 97 156 209 169 100 55 40 164 248 232 340
54 110 94 106 166 222 179 109 66 45 130 246 228 332
53 102 92 105 165 217 178 1C9 65 42 106 241 221 320
52 101 91 104 163 213 176 109 64 42 105 237 213 307
11 12 13 14 15 16 17 18 19 20 21 22 23 24
132 125 119 112 106 98 86 70 51 34 6 4 5 5
133 126 120 113 107 99 87 71 53 36 7 4 5 5
1 •*•* 1 ?A 17O 1 1 "3 1T7 QQ <28742
26
6
6
6
6
6
7
7
7
7
8
8
a
8
22 23
31 62
31 62
31 .62
31 62
31 61
32 61
32 60
32 59
32 59
33 58
34 59
36 60
35 59
34 56
I8P4289
27 28
6 7
6 7
7 7
7 7
7 7
7 7
7 8
8 8
8 9
8 9
9 10
9 in
9 9
753 754
24 25
108 215
108 214
108 213
1"7 213
107 212
106 212
105 211
103 210
1^2 2n9
101 208
103 207
104 2->4
101 199
99 193
29 30
"> 7
7 7
7 7
7 7
B 8
8 8
8 8
9 9
9 9
10 10
11 11
11 I'-
ll 11
755
26
47
47
47
47
47
47
46
46
45
45
44
44
43
42
202
31
7
7
7
P
8
8
8
9
9
9
10
10
10
757
27
3
3
3
3
3
3
3
3
' 3
3
3
3
3
3
4294
32
7
7
7
7
8
8
8
Q
9
9
10
1°
10
759
23
2
2
2
2
2
3
4
4
5
6
8
9
10
13
42964
33
6
6
6
7
7
7
a
a
9
9
10
10
11
11
761
29
4
5
5
5
6
7
8
10
11
13
16
18
21
20
298'
34
6
6
6
6
e
7
7
8
9
9
9
10
10
10
763
30
6
6
6
7
7
7
8
8
9
9
9
10
10
10
t300
35
5
. 5
5
6
6
7
a
8
9
10
11
I?.
12
12
-p-
Oi
-------
*** CC FIELD FOR LAYER K= 1 , RATIO 1.00
XUTM =
4310
4308
430b
t304
43J/2
<*3GO
4298
4296
4294
4292
4291
4290
4289
4288
4287
4286
4285
4284
4283
4262
4281
+ 280
4279
4278
4277
4276
4275
4274
4273
4272
4270
4268
4266
4264
4262
4260
4258
4256
4254
4252
** 2HR
IS
1 =
43
39
38
37
36
35
34
33
32
31
30
29
28
27
26
25
24
23
22
21
20
19
18
17
16
15
14
13
12
11
10
9
8
7
o
5
4
3
2
1
O C —
725
1
0
1
1
1
1
1
0
1
1
3
3
2
3
3
3
4
4
3
3
2
2
2
2
2
2
3
2
5
8
7
4
3
2
1
1
1
1
1
0
0
STATION
1
2
727
2
0
1
1
1
1
0
2
4
3
6
9
11
11
10
11
11
11
11
10
9
9
8
6
7
8
7
7
9
12
12
8
5
4
4
4
3
2
2
1
1
S02
L
729
3
1
1
1
1
1
0
4
6
1
11
18
18
14
14
13
12
12
11
10
11
11
10
9
9
9
8
8
12
15
14
9
6
5
5
5
4
3
2
1
1
**
3
731
4
1
1
1
1
1
0
3
7
8
8
9
9
9
9
9
9
9
9
9
10
11
11
11
11
12
11
10
13
14
13
12
9
7
7
6
4
4
3
2
2
733 735 736
5
0
0
0
0
0
0
1
6
8
8
8
8
8
9
8
8
9
8
8
10
12
11
12
18
23
22
27
4C
36
31
21
15
13
10
11
10
8
6
4
3
MO.DAY.HR
4
5
6 7
0 0
1 0
1 1
0 1
1 0
0 0
3 D
5 0
4 0
3 1
5 3
7 4
6 3
7 4
7 6
8 7
10 10
11 9
8 18
13 42
33 62
46 90
37 73
35 60
44 59
36 60
46 72
75 92
81 103
64 98
44 30
35 267
34 222
32 135
27 91
23 66
17 46
13 33
9 22
6 15
= 21 I/
6
737
8
0
0
1
1
C
C
0
2
4
7
8
8
9
8
8
9
10
17
37
57
70
77
66
53
50
57
61
67
77
87
102
92
76
66
55
45
36
28
21
16
2/,
7
738
9
0
n
1
0
1
0
3
3
7
12
14
14
15
15
21
33
39
34
44
65
71
74
77
70
74
72
69
70
73
80
89
55
134
175
137
116
98
76
55
40
739
10
0
1
1
J
3
13
25
42
46
48
50
49
44
49
55
52
56
62
66
75
85
93
97
82
81
91
86
101
101
100
106
87
65
53
43
33
26
20
15
11
NTS =
8
9
740
11
2
3
0
9
79
165
219
240
223
193
175
156
134
125
118
101
87
83
88
89
93
103
93
76
71
30
93
97
101
115
104
76
55
40
29
20
17
12
7
5
30,
10
741
12
2
3
2
1
4
13
24
38
45
47
47
45
42
40
44
50
46
58
77
88
98
102
103
93
98
95
102
104
113
103
76
57
43
32
24
16
14
9
5
3
742
13
4
6
4
3
2
2
2
5
5
9
11
11
12
14
14
15
14
19
36
56
68
81
98
81
71
74
82
95
102
96
80
66
52
41
31
23
16
10
6
4
743 744 745
14
5
31
25
15
10
7
4
4
2
5
8
8
7
6
5
5
4
4
9
21
39
56
66
65
61
76
92
143
158
157
131
105
84
66
49
32
29
19
11
7
... SPATIAL
11
12
15 16
6 0
27 27
22 33
14 21
9 13
7 9
5 7
5 6
3 6
4 5
5 4
5 4
4 3
4 3
4 3
3 4
2 7
2 7
5 9
8 12
23 43
37 88
49 138
66 181
73 210
74 227
74 233
75 236
74 235
77 233
78 215
76 177
69 138
57 103
44 72
26 48
31 29
21 17
12 9
7 5
746
17
0
8
9
7
9
12
16
19
21
20
19
18
18
17
21
23
24
45
146
177
177
165
15n
138
129
126
115
123
216
266
239
188
142
1C5
76
53
35
21
12
7
AVERAGE.. .
13 14
747
18
1
26
39
87
129
141
142
139
132
120
111
H4
96
94
95
107
124
118
105
91
77
66
55
51
59
71
70
59
55
53
58
49
38
31
24
18
12
8
5
3
CAL
15
748
19
2
32
26
18
8
41
141
224
262
255
248
235
229
223
216
196
172
146
119
97
79
61
55
57
65
72
64
51
41
34
34
26
19
14
11
8
5
3
2
1
_
16
749
20
0
14
12
8
5
3
11
21
32
38
41
41
48
56
71
77
64
53
45
38
33
26
28
41
49
48
4P
47
38
30
31
23
16
12
o
6
4
2
1
1
50
17
750 751
21
-,
0
15
15
10
7
7
2
15
13
12
23
31
36
48
47
37
30
25
21
16
18
27
27
30
35
29
28
32
31
27
20
14
10
7
6
4
3
2
1
OBS=
18
22
-,
0
14
25
23
20
19
17
15
12
18
26
28
32
3"
23
19
15
13
1A
11
16
24
34
40
41
32
28
25
36
35
24
16
12
8
6
4
3
2
1
752
23
2
1
7
82
123
121
102
82
66
53
44
51
58
46
37
30
25
20
17
13
12
18
29
33
28
26
32
34
27
21
18
14
11
Q
7
5
3
2
2
1
r
19
753
24
3
4
1
21
20
30
49
54
61
61
64
63
5°
55
47
47
46
39
32
31
26
29
4P
65
61
57
56
46
38
31
24
18
15
11
8
6
4
3
2
1
20
754 755 757
25
n
12
1°
18
13
19
135
218
230
209
193
189
178
154
135
117
100
90
78
64
52
42
32
30
24
25
34
34
25
19
15
12
11
8
6
4
3
2
2
1
21
26
10
13
7
9
5
7
9
11
14
16
17
17
17
16
15
15
13
13
13
13
12
11
10
7
6
4
11
17
17
20
16
13
9
6
5
4
3
2
2
1
22
27
r
1
1
1
0
0
0
p
1
1
1
1
1
1
1
1
1
1
1
. 2
2
1
5
9
9
IP
9
8
6
6
19
18
11
8
6
5
4
3
7
1
759
28
n
2
2
1
1
1
1
1
1
1
1
1
1
1
1
0
1
4
9
11
9
8
7
5
4
6
8
11
13
8
9
23
22
14
10
7
6
5
4
3
23
761 763
29
n
0
0
1
0
2
2
2
2
2
2
2
2
1
1
2
9
13
16
21
18
16
14
11
P
10
12
12
10
10
5
12
29
35
27
19
15
13
11
7
24
30
0
0
o
1
0
6
12
10
7
5
5
4
h
8
7
8
11
12
10
8
6
5
4
4
4
5
6
7
6
5
6
8
28
29
19
13
10
8
6
4
25
8.8 4.5 7.7 14.3 26.1 28.9 27.8 13.1 2.4 -1.0 3.7 11.6 36.2 19.3-13.3
YS 17.9 24.0 20.5 15.3 14.5 15.6 20.6 29.1 17.9 10.8 10.5 18.9 27.8 32.7 32.9 28.1 10.8 5.6 9.3 23.9 35.2 48.6 24.4 -7.7 20.2
CAL 51 15 91 75 77 76 84 231 13 111 87 12 10 5 5 3 11 44 9 4 1 3 7 \ 2
DBS OOOiOOOOOOOCOOOOOOiOOOOOO
-------
***** RAMS DATA *****
IS
UU
DD
Tl
T2
CC
RA
RH=
DT=
UO
.1
5.0
15.
0.
0.
0.
0.
1.00
120.0
0.
2 3
5.0 5.0
15. 15.
0. 0.
0. 0.
0. 0.
0. 0.
GRID Z(K>=
UZF(K)=
VZF(K)=
AKF(K)=
KZ(J=JM/2)=
PARM(N)=
449 PHZ=
5.
15
0
P
0
0
0
4 5
0 5.0
. 15.
0.
0.
0.
0.
0.
1.00
1.00
1.92
2.4
5
.888
6
5.0
15.
0.
0.
0.
0.
20.
1.11
1.11
2.77
2.4
.00
HFZ=
7 8 9 10 11 12
5.0 5.0 5.0 5.C 5.0 5.P
15. 15. 15. 15. 15. 15.
0. 0. 0. 0. 0. 0.
0. 0. 0. 0. 0. 04
0. 0. 0. 0. 0. 0.
0. 0. 0. 0. 0. 0.
40. 60. 80. 100. 125.
1.23 1.31 1.37 1.41 1.46
1.23 1.31 1.37 1.41 1.46
4.26 5.51 6.54 7.47 8.26
2.5 7.3 4.8 6.6 5.8
15.00 O.J 0.50
3.901 RIB= 0.0
13
5.0
15.
0.
0.
0.
0.
150.
1.49
1.49
8.83
3.5
300.
14 15 16 17 18
5." 5.0 5.0 5." 5.n
15. 15. 15. 15. 15.
0. 0. 0. 0. 0.
0. ^. -1. 0. 0.
C. 0. 0. 0. 0.
0. 0. 0. 0. ->.
175. 200. 225. 250.
1.49 1.49 1.49 1.49
1.49 1.49 1.49 1.49
9.22 9.45 9.56 9.56
2.4 2.1 1.9 2."
00 3545.86 14378.01
19
5.0
15.
0.
0.
0.
".
275.
1.49
1.49
9.47
1.6
0.0
20
5.0
15.
0.
0.
0.
r.
300.
1.49
1.4°
0.51
1.9
21
5.1
15.
0.
0.
0.
1.
2.
0.0
22
5.0
15.
0.
0.
0.
0.
2
23
5.i
15.
0.
0.
C.
"•
318.
24
5.0
15.
0.
0.
0.
n.
23
25
5.O
15.
0.
0.
0.
0.
** VERTICAL PROFILE OF * Cl AT 1= 15;. J= 19**
Z
300
275
250
225
200
175
150
125
100
60
60
40
20
0
XUTM =
1 =
K
14
13
12
11
10
9
8
7
6
5
4
3
2
1
725
1
9
9
9
9
10
10
10
11
11
11
12
12
12
12
727
2
13
14
14
14
14
15
15
16
16
17
18
18
18
18
729
3
20
20
20
20
20
21
21
21
22
22
23
24
23
23
731
4
46
46
46
46
46
46
46
47
47
47
48
48
47
45
733
5
114
104
104
104
104
104
104
104
105
105
106
1^7
105
102
735
6
160
161
161
162
164
167
170
174
180
188
198
211
210
209
736
7
124
125
126
129
132
135
140
146
156
169
187
211
207
210
737
8
68
68
70
72
74
78
83
90
98
108
120
133
134
136
738
9
75
76
77
78
81
84
88
93
99
106
115
125
124
124
739
10
122
122
123
125
127
130
134
139
146
153
163
174
173
171
740
11
172
172
173
174
176
179
183
188
195
202
213
226
223
22"
741
12
214
214
215
216
218
221
224
229
235
242
251
262
261
259
742
13
242
242
243
244
246
248
251
255
261
267
276
285
285
284
743
14
259
259
260
260
260
260
260
261
263
267
273
281
280
280
744
15
356
361
366
366
356
341
320
298
279
267
258
254
248
25n
745
16
605
615
642
660
635
577
501
427
363
321
287
261
244
246
746
17
51
53
55
60
69
84
102
120
135
145
153
159
161
160
747
18
88
87
86
85
84
82
80
78
76
75
74
73
71
68
748
19
135
135
135
135
136
136
137
138
138
139
139
138
138
136
749
20
1°3
103
104
104
105
106
107
108
109
110
111
113
114
115
750
21
53
53
53
5?
54
54
55
56
58
59
61
65
65
66
751
22
6
T
-r
7
8
8
9
11
13
15
17
20
21
22
752
23
1
1
1
2
3
4
6
10
16
19
18
18
16
16
753
24
2
2
2
2
2
2
2
3
4
4
6
8
9
9
754
25
0
0
1
1
1
1
1
1
2
2
2
2
0
2
755
26
1
1
1
1
1
1
1
2
2
2
3
4
5
5
757
27
2
2
2
3
3
3
3
3
4
4
4
4
4
4
759
28
4
4
4
5
5
6
7
8
9
11
13
15
16
16
YUTM=426242644266426 34270 4272427342744275 427642 77427842794280428 1428242 8342 8442 8542 86428742 8842894290^291429242944296'
Z
300
275
250
225
200
175
150
125
ICO
80
60
40
20
0
J =
K
14
13
12
11
10
9
8
7
6
5
4
3
2
1
6
137
137
138
139
141
143
145
148
151
154
158
162
166
169
7
146
146
147
149
151
154
157
161
165
169
174
179
185
189
a
163
164
165
167
170
173
177
181
186
191
196
202
206
210
9
197
198
199
201
205
208
213
218
223
228
234
240
245
249
10
255
255
256
258
261
264
268
273
277
282
287
293
298
302
11
343
343
342
341
340
339
339
34"
340
341
342
345
347
351
12
413
411
406
399
392
386
380
376
372
370
369
369
371
376
13
492
485
472
457
443
431
420
411
404
400
397
397
399
404
14
621
576
539
510
487
469
454
441
431
425
421
419
419
424
15
561
546
533
520
506
492
476
461
447
438
431
427
425
431
16
569
j67
563
557
545
322
496
471
449
435
424
419
412
417
17
640
617
606
614
616
555
498
455
422
402
388
380
370
373
18
455
449
446
446
440
414
387
362
341
327
316
310
303
305
19
356
361
366
366
356
341
320
298
279
267
258
254
248
250
2"
288
295
313
330
319
297
269
246
231
222
216
215
211
212
21
181
184
191
199
197
193
188
185
183
183
183
185
185
186
22
185
184
183
182
183
185
187
189
191
191
192
194
194
195
23
220
220
219
218
217
216
214
213
211
211
210
210
209
20^3
24
250
250
249
247
245
242
240
237
234
233
231
229
227
227
25
278
278
276
274
271
267
263
259
255
252
249
246
243
242
26
302
3^1
299
296
293
288
28?
278
272
268
264
260
256
254
27
320
319
317
313
308
303
297
291
284
279
274
270
265
263
28
330
328
326
322
317
310
304
297
289
284
278
273
268
266
29
.331
330
327
323
317
310
313
295
287
281
275
270
265
263
31
326
324
321
316
310
303
295
286
277
271
264
259
254
252
31
312
311
308
303
296
288
279
269
260
253
246
240
235
233
32
?71
270
266
261
253
244
234
224
213
215
198
191
186
185
33
191
190
187
182
176
168
159
150
141
134
128
122
118
117
761 763
29 30
5 0
5 0
5 0
5 0
6 0
7 1
8 0
9 0
11 0
13 0
15 0
17 0
19 0
19 i
t2984300
34 35
105 35
115 35
104 ?7
102 39
99 41
95 42
90 43
85 42
80 42
76 41
72 40
69 39
66 38
65 38
-------
*** CC FIELD FOR LAYER K=
1.10
XUTM =
4310
430d
4306
4334
4302
43GO
4298
4296
4294
4292
4291
4290
4289
4288
4287
4286
4285
4284
4283
t282
4281
4280
4279
4278
W77
4276
4275
4274
4273
4272
4270
4268
4266
42b4
4262
4260
4258
425o
4254
4252
1 =
40
39
36
37
3b
35
34
33
32
31
30
29
28
27
26
25
24
23
22
21
20
19
18
17
16
15
14
13
12
11
10
9
8
7
6
5
4
3
2
1
725
1
0
1
1
1
1
1
1
2
3
5
6
6
8
8
8
10
10
10
10
9
10
10
10
10
11
11
11
14
17
17
14
13
12
12
11
11
11
10
10
9
727
2
n
1
1
1
1
0
3
6
4
9
12
15
16
16
17
17
18
18
17
17
17
16
15
16
17
16
16
19
23
23
20
17
17
17
18
17
16
15
14
13
1
729
3
1
1
1
1
1
0
5
8
2
14
21
22
18
18
18
17
17
16
16
16
17
16
16
16
17
17
17
22
26
26
24
22
23
24
24
24
23
23
22
22
731
4
1
1
1
1
1
0
3
8
11
12
13
14
15
16
16
17
17
17
18
19
20
21
22
23
26
26
28
33
37
38
40
40
41
41
44
45
44
44
43
42
733
5
0
C
0
i
C
0
2
9
15
20
23
25
28
30
30
32
33
32
32
34
38
4C
44
51
60
61
71
90
90
90
82
79
81
84
36
37
87
85
82
77
735 736
6 7
0 0
1 1
1 1
1 0
1 1
1 11
10 37
26 70
40 93
51 104
59 108
65 107
67 104
69 1^3
69 1?1
71 101
72 102
71 97
69 114
80 143
106 166
125 197
119 181
121 168
131 167
125 175
144 187
177 202
186 209
179 206
133 116
169 390
184 351
186 292
181 241
171 203
157 171
143 144
128 122
114 136
737
8
0
1
. 1
0
8
48
92
128
137
133
128
122
117
112
110
113
114
124
146
168
182
189
ISO
170
167
169
166
166
172
177
224
123
199
223
174
153
134
116
104
94
738
9
0
1
0
2
42
98
133
136
126
117
115
111
110
111
118
133
144
144
156
179
187
193
199
191
193
189
183
182
182
188
180
190
166
142
133
125
119
114
108
100
739
10
1
2
0
13
57
79
83
9D
91
98
103
107
106
115
129
131
141
154
165
175
188
197
199
178
172
177
171
184
184
186
201
138
167
155
144
130
119
109
99
91
740
11
3
4
4
2
10
31
54
72
82
90
93
94
94
99
114
119
119
127
144
153
161
173
163
145
136
145
159
168
183
21"
213
197
182
169
157
144
139
13"
121
112
741
12
2
4
5
6
7
7
7
10
14
23
28
33
39
44
54
64
63
78
101
118
133
142
149
143
143
157
178
217
253
263
251
237
219
200
185
172
165
153
141
130
742
13
4
13
15
14
12
11
11
17
26
43
52
60
67
73
77
78
78
84
101
119
131
149
169
160
169
191
246
338
352
339
305
274
248
228
214
198
186
173
158
141
743
14
5
36
33
21
17
18
23
39
62
88
99
106
108
110
110
110
109
113
117
127
150
178
207
227
279
328
346
337
319
3C9
297
283
268
251
234
208
199
177
151
128
744
15
4
29
23
16
22
33
53
87
123
146
154
157
155
153
150
148
146
144
147
153
194
235
293
356
388
391
380
363
342
330
313
294
271
246
220
188
174
145
114
91
745
16
f>
27
24
33
55
75
111
158
190
195
192
186
180
174
168
169
169
169
193
225
278
327
363
369
351
325
293
267
275
297
304
277
240
205
173
145
116
90
69
53
746
17
0
10
10
63
87
103
148
190
199
188
18C
172
167
161
167
180
186
215
317
343
326
288
242
201
170
155
139
149
244
281
236
178
131
100
79
65
54
45
36
29
747
18
2
28
67
57
32
49
99
127
134
137
139
142
145
152
165
185
208
216
201
177
156
142
133
133
147
164
169
158
137
102
78
58
46
41
39
37
33
28
24
20
748
19
2
33
19
5
3
8
24
48
74
95
105
113
121
135
156
173
169
166
154
146
140
132
131
141
152
159
149
131
115
101
93
81
70
61
53
46
38
31
25
21
749
20
i
7
8
8
19
31
41
46
56
63
67
70
78
88
105
113
102
93
88
84
81
76
83
100
109
108
118
107
98
91
89
79
68
59
51
44
36
29
23
19
750
21
0
0
12
29
54
64
66
66
91
96
99
115
124
129
139
132
119
109
102
97
90
93
103
106
111
117
ll-i
107
110
1"9
102
87
73
62
52
43
35
2?
23
1°,
751
22
1
0
9
67
86
75
83
107
123
125
132
137
136
134
123
110
100
94
89
34
84
go
107
123
129
126
115
1"9
100
1">5
94
74
59
48
39
32
26
21
17
14
752
23
3
1
15
56
39
61
127
162
159
141
126
128
130
113
101
93
90
87
85
83
79
95
132
132
114
101
10a
97
84
72
58
48
40
32
26
21
17
14
12
1"
753
?4
2
8
3
?0
7
73
147
125
95
78
76
74
71
71
69
73
77
74
71
72
71
71
75
72
63
64
71
65
5P
53
44
35
28
21
16
13
11
11
10
9
754 755
25
2
15
23
17
15
15
18
35
50
57
58
63
74
67
63
60
56
55
57
54
51
48
44
43
41
40
50
51
42
34
25
18
14
11
9
o
9
10
10
9
26
9
12
5
6
2
5
3
1
i
2
2
2
2
2
2
2
2
2
3
4
5
6
6
6
6
5
11
17
18
20
19
17
14
12
12
12
12
12
12
11
757 759
27
0
1
1
0
n
0
0
0
i
i
i
?
2
2
1
1
1
2
ti
4
4
3
9
13
13
14
14
12
11
10
24
25
20
17
17
17
16
16
15
14
28
0
2
2
2
1
1
1
2
2
3
3
3
3
3
2
2
4
7
13
16
15
15
14
12
10
12
14
17
20
15
14
29
29
27
26
24
22
20
18
16
761 763
29
0
0
n
i
0
3
4
4
4
4
4
4
4
4
3
5
13
17
20
24
21
20
18
14
12
13
15
15
13
12
9
14
35
41
31
23
19
16
14
12
30
0
0
0
0
0
5
12
9
6
4
4
3
5
7
7
7
9
11
8
5
3
2
2
2
2
3
4
4
3
3
4
6
24
22
12
6
4
3
3
2
** 2HR STATION S02 ** MO,DAY,HR= 2/ I/ 3/, NT$= oO,
SPATIAL AVERAGE... CAL= 115 PPS=
IS 1 2 345 67 8 9 1" 11 12 13 14 15 16 17 18
XS 14.2 12.5 17.6 17.3 13.7 8.7 10.2 18.4 25.4 17.2 8.8 4.5 7.7 14.3 26,1 28.9 27.8 13.1
YS 17.9 24.0 20.5 15.3 14.6 15.6 20.6 29.1 17.9 10.8 10.5 18.9 27.8 32.7 32.9 28.1 10.8 5.6
CAL 249 79 174 154 342 190 159 112 11 159 187 39 117 72 1 4 16 228
DBS 000000000000000000
19 20 21 22 23 24 25
2.4 -1.0 3.7 11.6 36.2 19.3-13.8
9.3 23.9 35.2 48.6 24.4 -7.7 2n.2
23 10 1 3 7 18 9
0 0 n 0 0 0 0
-------
***** RAMS DATA *****
IS 1
UU 5.0
OD 30.
Tl 0.
T2 0.
CC 0.
RA 0.
RH= 1.00
DT= 150.0
U0= 0.
2 3
5.0 5.0
30. 30.
1. 0.
0. 0.
0. 0.
0. 0.
GRID Z(K>=
. UZF(K)=
VZF(K)=
AKF(K)=
KZU=JM/2) =
PARH(NJ=
449 PHZ=
4 5
5.0 5.0
30. 30.
n. 0.
0. 0.
0. 0.
0. 0.
0.
1.00
1.00
1.92
2.4
5.
6 7 8 9 10 11 12 13 14 15 16 17
5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0 5.0
30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30.
T. 0. 0. 0. 0. T. 0. 0. ?. i. 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. 0.
0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
20. 40. 60. 60. 100. 125. ISO. 175. 200. 225.
1.11 1.23 1.31 1.37 1.41 1.46 1.49 1.49 1.49 1.49
1.11 1.23 1.31 1.37 1.41 1.46 1.49 1.49 1.49 1.49
2.77 4.26 5.51 6.54 7.47 8.26 8.83 9.22 9.45 9-56
2.4 2.5 7.3 4.8 6.6 5.8 3.5 2.4 2.1 1.9
00 30.00 0.0 0.53 300.00 3545.86 14378
18
5.0 5
19
.0
30. 30.
0.
0.
P.
0.
0.
0.
n.
0.
250. 275.
1.49 1
1.49 1
9.56 9
2.0
.01
.49
.s9
.47
1.6
0.0
2n
5.0
30.
f .
0.
i.
0.
300.
1.49
1.49
i.5p
1.9
21
5.0
30.
0.
0.
0.
0.
0
22 23
5.
3C
0
0
0
0
2 ."2
.0
0 5.0
. 30.
0.
0.
0.
n.
24
5.0
30.
0.
0.
0.
0.
25
5.0
30.
0.
0.
".
0.
316.23
1.888 HFZ= 3.901 RIB= 3.0
** VERTICAL PROFILE OF * Cl AT
XUTM=
1 =
Z K
300 14
275 13
250 12
225 11
20J 10
175 9
150 8
125 7
100 6
80 5
60 4
tO 3
20 2
0 1
YUT«=4
J =
Z K
300 14
275 13
250 12
225 11
200 10
175 9
150 8
125 7
100 6
80 5
60 4
40 3j
^0 2
0 i
725 727 729
123
76 99 101
76 99 101
76 99 101
76 100 101
76 100 101
76 100 112
76 100 102
76 10O 103
75 100 104
75 100 105
75 101 106
75 101 107
74 100 107
72 98 1"7
26242644266
678
14 16 20
14 16 21
14 16 21
14 16 21
14 16 22
15 17 23
15 17 23
15 18 24
15 18 26
15 19 27
16 19 28
16 20 29
16 20 30
16 20 29
731 733
4 5
79 103
79 1»
79 104
80 104
80 104
81 115
81 106
82 106
84 108
85 110
87 112
89 115
89 113
89 111
426842704
9 10
33 52
33 53
34 55
35 59
37 64
39 70
41 77
44 84
47 91
49 95
52 100
3B 105
56 106
56 106
1= 15; J= 19**
735 736 737 738 739 740 741 742 743 744 745 746 747 748 749
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
217 217 162 119 96 101 134 194 310 440 206 8123
218 218 162 119 96 101 135 194 311 443 211 8 1 2 3
219 219 163 121 97 102 136 195 311 452 222 9 1 2 3
220 221 165 122 99 104 137 196 311 455 230 9223
222 224 168 125 102 106 140 198 308 439 219 9223
225 228 172 128 105 109 142 200 303 410 194 9 2 2 3
228 234 177 133 109 113 144 202 297 372 162 8 3 2 3
235 241 184 139 115 119 151 206 291 334 133 7 3 3 3
240 252 193 146 122 126 158 210 286 301 108 7433
248 265 202 154 130 134 165 215 284 279 93 7 5 3 4
260 284 215 164 140 145 174 223 284 262 81 7 5 3 4
275 309 229 175 151 159 184 230 287 250 72 7 6 3 5
272 303 229 177 152 157 184 231 283 241 67 6 6 3 5
269 304 231 178 152 156 183 230 283 241 69 6 6 3 4
2724273427442754276*277427842794280428142824283428442854286
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
52 20 17 97 47 138 340 341 440 407 147 109 102 110 115
54 21 15 70 45 137 325 339 443 424 152 111 102 110 115
60 26 13 48 44 136 319 337 452 471 164 117 103 110 115
69 34 12 33 42 135 324 333 455 514 181 128 104 110 115
83 48 12 24 40 131 324 324 439 495 193 146 106 111 115
101 72 14 18 38 122 284 307 410 444 207 175 111 111 115
121 109 17 14 35 112 246 287 372 382 221 218 116 111 115
141 165 22 11 33 103 216 266 334 334 235 276 125 111 115
154 184 25 10 30 95 193 247 301 30" 238 273 126 112 115
155 161 23 9 29 90 130 234 279 279 233 238 121 115 116
152 122 18 9 28 87 170 223 262 262 224 208 118 117. 116
146 93 .ft 8 27 86 165 215 250 251 216 187 116 1185 116
139 73 11 8 27 84 158 208 240 241 208 173 114 117 115
138 72 11 8 29 86 159 209 241 241 208 173 114 117 115
750 751
21 22
3 3
3 3
3 3
3 3
3 4
3 4
4 6
4 7
5 10
6 12
7 13
9 16
9 16
9 16
26 27
113 1"3
113 103
112 103
112 103
112 103
112 1°3
112 103
112 102
111 1"2
111 102
111 101
110 101
110 100
ing 99
752
23
2
2
3
3
3
4
6
8
11
14
15
16
16
16
4289
28
89
89
89
89
89
89
89
89
89
88
8P
82
87
86
753
24
1
1
2
2
2
2
2
3
3
4
5
6
7
7
42914
29
77
77
77
77
77
77
76
76
75
75
74
U 74
73
73
754
25
2
2
2
2
2
2
2
2
3
3
3
4
4
4
291
30
73
73
72
72
71
70
69
68
66
65
65
64
63
63
755
26
2
2
2
2
2
3
3
3
4
5
5
6
7
7
4292'
31
82
82
81
79
77
74
72
69
66
64
62
60
59
58
757 759
27 28
3 3
3 3
3 4
3 4
?, 5
4 6
4 7
5 8
6 9
6 11
7 13
8 15
8 17
fl 17
^2944296'
32 33
13 S 3C2
137 299
134 289
126 275
121 256
113 235
105 212
96 190
87 168
81 152
75 138
70 126
66 117
fr6 116
761
29
1
1
2
2
2
3
3
4
5
6
7
9
10
10
*298'
34
487
481
465
439
406
366
325
285
248
221
198
.1.78
163
161
763
30
0
0
0
0
n
n
0
0
0
o
0
0
0
0
35
457
455
446
427
395
355
313
272
234
207
183
162
148
146
vo
-------
*** CC FIELD FOR LAYER K =
RATIO=
1.00
4.310
4308
4306
4304
4302
4300
4298
4296
4294
4292
4291
4290
42B9
4288
4287
4286
4285
4284
4283
4282
4281
4280
4279
4278
4277
4276
4275
4274
4273
4272
4270
426d
4266
4264
4262
4260
4258
4256
4254
4252
XUTM =
I =
40
39
38
37
36
35
34
33
32
31
30
29
28
27
26
25
24
23
22
21
20
19
18
17
16
15
14
13
12
11
10
9
8
7
6
5
4
j
2
1
« UL — J.
725 727 729 731 733 735 736 737 738 739 740 741 742 743
1 2 3 4 5 6 7 8 9 10 11 12 13 14
00100000012235
111 1C 11 11249 25 36
111 11100029 15 25 26
1 1 1 1 1 0 0 3 19 17 8 12 13 15
1 1 1 00 1 27 65 62 18 4 9 17 41
1 0 0 0 2 42 103 106 55 10 6 22 54 98
1 34 5 32 112 132 92 36 9 25 64 110 149
3 7 10 26 78 148 118 68 29 34 71 120 161 173
4 6 14 52 109 142 91 58 43 63 113 153 173 163
8 16 37 70 119 125 79 64 67 99 139 165 172 154
10 23 50 78 121 118 76 69 80 114 148 167 169 150
13 30 56 84 122 111 75 74 90 123 152 167 164 145
17 34 57 89 121 102 74 80 99 127 153 165 159 140
19 36 61 93 119 97 75 84 109 143 166 163 156 137
22 40 65 96 115 92 78 92 128 165 178 162 152 134
25 44 68 98 112 89 83 109 151 172 179 161 146 129
27 46 71 100 110 89 91 124 168 183 174 153 142 125
29 49 73 99 106 87 100 142 177 194 175 153 139 118
30 50 75 100 102 90 128 171 193 203 189 170 145 126
32 52 78 101 103 110 172 200 215 211 199 183 164 164
34 54 80 102 109 148 198 216 225 223 207 197 189 215
36 55 81 102 117 186 234 223 231 233 225 215 231 278
37 56 82 103 124 187 215 219 242 238 227 244 288 318
39 59 84 107 136 186 202 214 229 221 225 262 307 331
42 63 86 112 149 199 203 215 233 223 240 291 337 336
43 63 88 115 154 199 214 218 236 251 277 332 361 312
45 66 90 119 165 217 225 217 241 268 321 371 368 257
50 71 96 130 195 255 238 222 262 309 357 428 394 135
55 76 103 136 200 270 249 238 282 337 399 446 330 140
56 77 104 142 205 258 243 260 316 382 432 387 251 165
55 77 107 149 194 213 235 323 352 392 365 289 216 179
56 78 110 153 203 316 432 273 363 336 296 2.42 194 147
57 81 117 162 224 356 433 322 306 287 254 210 162 113
60 86 124 173 250 366 380 306 258 257 220 178 133 94
63 92 133 190 266 346 310 258 239 229 190 151 113 82
66 97 142 201 270 316 272 240 216 199 162 128 95 70
70 101 150 208 265 287 244 217 193 176 145 116 90 74
74 107 156 210 255 258 215 193 174 156 130 106 82 64
78 112 160 208 240 228 188 172 157 139 116 94 70 50
82 115 16^ 201 221 200 167 156 142 125 104 82 58 41
744
15
3
25
19
28
77
127
147
141
128
123
122
121
12'i
117
112
108
106
105
166
206
250
265
258
239
192
138
100
85
141
188
148
101
76
66
60
53
56
46
37
33
745 746
16 17
0 0
20 15
27 37
51 50
89 49
106 44
100 43
91 56
94 77
99 88
101 91
101 92
100 91
96 87
93 92
97 1C7
102 120
113 127
177 120
172 104
163 87
143 72
115 58
87 50
65 54
55 68
54 81
66 83
148 77
127 65
89 69
68 63
58 54
53 48
48 43
45 39
38 36
34 34
33 Tl
30 28
** 2HR STATION S02 ** MO,DAY,HR= 2/ I/ 4/, NTS = 34, ... SPATIAL AVERAGE..
IS
XS
YS
CAL
DBS
1
14.2
17.9
275
0
2 3 4 5 6 7 8 9 10 11 12
12.5 17.6 17.3 13.7 8.7 10.2 18.4 25.4 17.2 8.3 4.5
13
7.7
24.0 20.5 15.? 14.5 15.6 20.6 29.1 17.9 10.8 10.5 18.9 27.8
145 82 75 275 232 202 107 3 70 338 114
oooo "i T. o 0 r o "
83
0
14
14.3 26
32.7 32
147
n
747
18
2
34
47
23
12
15
32
60
89
98
100
99
96
96
103
113
121
118
101
84
70
60
54
59
75
95
100
86
77
66
62
54
47
41
37
34
32
29
26
23
. CAL
15
.1 28
.9 28
1
0
748
19
3
23
9
6
24
37
61
96
119
116
111
103
97
97
105
113
97
85
69
57
50
43
41
57
70
80
77
67
60
53
55
50
41
34
30
27
25
23
20
18
_
16
.9
.1
3
n
74°
20
1
2
6
28
49
57
95
129
135
112
98
88
83
82
89
9?
73
56
43
35
28
23
27
41
52
54
54
55
49
44
44
35
26
21
19
18
17
17
15
14
113
17
27.8
10.8
1C
A
750
21
0
n
12
5°
59
72
125
136
116
e:
66
67
69
65
68
55
37
26
20
15
11
13
28
42
48
56
42
36
36
3°
34
23
16
13
13
13
13
13
12
11
OBS =
18
13.1
5.6
98
n
751
22
1
f,
15
68
41
82
170
108
66
44
39
44
44
40
29
17
11
9
7
4
5
14
43
58
55
44
31
28
22
27
23
14
11
12
12
11
11
11
11
11
2
9
752
23
2
3
18
39
17
64
79
48
32
23
IP
20
29
16
8
6
7
5
4
4
5
16
48
42
21
13
20
24
18
12
11
13
14
14
13
12
12
12
12
12
0
19
.4 -1
.3 23
104
0
753
24
2
13
9
17
12
17
20
13
8
5
6
9
9
8
4
6
P
5
4
6
•7
7
12
8
3
8
22
21
19
18
18
18
17
16
14
13
13
14
14
14
20
."
.9
26
-------
• • •
*
IS
uu
OD
Tl
T2
cc
RA
RH=
OT =
1 1 IV t 4
:**** f
I
5.0
45.
0.
0.
0.
0.
1.00
180.0
, nu f .1 L*H i f i i ir\ •—
IAHS DATA *****
234
5.0 5.0 5.0
45. 45. 45.
0. 0. 0.
0. 0. 0.
0. 0. 0.
0. 0. 0.
GRID Z(K)=
UZF(K)=
VZF(K)=
AKF(K) =
KZ(J=JM/2)=
PARM(N)=
1 Jl £-/
5
5.0
45.
0.
0.
0.
0.
0.
1.00
i.oo
1.92
2.4
5.
i/ t
6
5.0
45.
0.
0.
0.
0.
20.
1.11
1.11
2.77
2.4
00
7
5.0
45.
0.
c.
0.
0.
40.
1.23
1.23
4.26
2.5
45.
8
5.0 5
45. 4
0.
0.
0.
0.
60.
1.31
1.31
5.51
7.3
00
9 10
.0 5.0
5. 45.
0. 0.
0. 0.
0. 0.
0. 0.
ao.
1.37
1.J7
6.54
4.8
0.0
11
5.0
45.
0.
0.
0.
0.
100.
1.41
1.41
7.47
6.6
n
12
5.0
45.
0.
0.
0.
0.
125.
1.46
1.46
8.26
5.8
.5"
13 14 15 16 17 18
5.0 5.0 5.0 5.0 5.0 5.0
45. 45. 45. 45. 45. 45.
0. 0. 0. 0. 0. 0.
o. o. r>. o. 1. ".
0. 0. 0. 0. 0. 0.
". 0. 0. 0. 0. 0.
150. 175. 200. 225. 250.
1.49 1.49 1.49 1.49 1.49.
1.49 1.49 1.49 1.49 1.49
8.83 9.22 9.45 9.56 9.56
3.5 2.4 2.1 1.9 2.0
300.00 3545.86 14378.01
19
5.0
45.
0.
0.
0.
0.
275.
1.49
1.49
9.47
1.6
0.0
20 21
5.0 5.0
45. 45.
0. 0.
0. 0.
0. 0.
0. 0.
300.
1.49
1.49
0.50"
1.9 2
0.
22
5.0
45.
0.
P.
o.
n
.2
0
23
5.0
45.
0.
i.
0.
0.
318.
24
5.0
45.
0.
0.
0.
0.
23
25
5.0
45.
0.
/*
0.
0.
UC= 0.449 PHZ= 0.888 HFZ= 3.901 RIB=
** VERTICAL PROFILE OF * Cl AT 1= 15; J= 19**
0.0
z
300
275
250
225
200
175
150
125
100
80
60
40
20
0
Z
300
275
250
225
too
175
150
125
100
ao
60
40
20
0
XUTM =
1 =
K
14
13
12
11
13
9
a
7
6
5
4
3
2
i
YUTM='
J =
K
14
13
12
11
10
9
8
7
6
5
4
3
2
1
725
1
125
125
125
125
125
125
125
125
125
125
125
125
124
123
727
2
139
139
139
139
140
140
140
140
141
141
141
141
141
140
729
3
138
138
138
139
139
140
141
142
143
144
146
147
148
148
731
4
121
121
121
122
123
124
125
127
129
132
134
138
139
140
733
5
119
12C
120
122
123
125
128
131
135
140
145
152
153
153
735
6
109
109
111
113
116
120
125
133
143
154
170
190
190
190
736
7
59
59
60
63
66
70
75
82
93
104
121
141
137
138
737
8
42
42
43
45
48
52
57
63
72
31
93
107
107
108
738
9
49
49
50
52
55
59
63
69
77
85
96
107
109
109
739
10
77
78
79
81
83
87
91
97
104
112
122
133
134
134
740
11
141
142
143
145
147
150
154
159
167
175
136
199-
199
198
741
12
274
274
274
274
273
272
271
271
272
275
282
289
233
286
742
13
355
354
351
347
342
335
326
318
311
307
306
306
302
300
743
14
195
197
202
205
199
186
171
157
146
140
137
136
132
131
744
15
15
15
16
17
16
16
14
14
13
13
12
12
12
12
745
16
3
3
3
3
4
4
4
4
5
5
6
7
6
6
746
17
3
3
3
3
3
3
3
4
4
5
5
6
6
5
747
18
2
2
2
2
2
3
3
3
3
3
4
4
4
4
748
19
1
1
1
2
2
2
2
2
2
2
3
3
3
3
749
20
1
1
1
1
1
1
2
2
2
3
4
5
5
5
750
21
2
2
2
2
2
3
3
4
6
7
9
12
12
- 12
751
22
2
2
3
3
£.
6
8
12
17
20
21
23
22
22
752
23
1
I
2
Z
2
3
4
5
7
9
10
13
13
13
753
24
1
1
2
2
2
2
2
3
3
4
5
5
6
6
754
25
2
2
2
2
3
3
3
4
5
5
6
7
7
7
755
26
3
3
3
3
4
4
5
5
6
7
8
9
9
9
75~r
27
4
4
4
4
5
6
6
7
8
9
10
11
11
11
759
28
3
3
3
3
4
4
5
6
7
9
10
12
14
14
761
29
n
o
0
0
0
0
0
0
1
1
2
3
4
4
763
30
n
r^
0
n
0
0
0
0
0
0
0
r>
0
.0
\2b2 42644266426 842704272427342744275427642774278427942B0428142824283428442B5428642 87428842894290429142924294429642984300
6
8
8
9
9
9
9
9
9
10
10
10
11
11
11
7
11
11
11
11
12
12
12
13
13
14
14
15
15
15
8
14
14
14
14
15
15
16
17
18
18
19
20
21
21
9
16
16
16
16
17
18
19
20
22
24
26
28
29
29
10
19
19
19
20
21
22
24
26
29
32
35
39
41
41
11
43
44
46
51
57
65
75
87
95
97
96
95
92
91
12
64
67
76
94
124
171
245
351
386
343
271
218
182
180
13
27
28
30
33
39
49
63
83
95
91
79
70
64
63
14
25
21
18
17
16
16
17
19
20
22
24
25
27
27
15
5
5
5
5
5
6
6
7
a
9
11
12
13
13
16
3
3
3
3
3
4
4
4
5
6
3
10
9
9
17
4
4
4
4
4
5
5
5
6
7
9
11
10
10
18
5
5
5
5
5
5
5
6
6
6
7
8
7
7
19
15
15
16
17
16
16
14
14
13
13
12
12
12
12
20
103
107
120
131
125
109
90
75
64
58
54
50
43
47
21
54
55
61
68
75
84
94
105
110
109
106
104
101
101
22
68
72
83
105
138
191
272
376
368
300
241
200
172
170
23
21
22
25
29
36
47
63
86
89
73
69
64
59
59
24
8
8
8
9
10
12
14
17
20
23
26
28
29
29
25
3
3
3
3
4
4
5
6
7
8
11
11
11
11
26
4
4
4
4
4
4
4
4
5
5
5
5
5
5
27
12
12
12
12
12
12
12
12
12
12
12
13
13
13
28
27
27
27
27
27
27
27
27
27
27
27
27
27
27
29
49
49
49
49
49
49
48
48
48
48
48
48
48
47
30
72
72
72
72
72
72
72
71
71
71
70
70
70
7"
31
93
93
93
92
92
<52
92
91
91
90
90
89
89
89
32
118
118
118
118
IIP
118
117
117
116
116
115
115
114
11?
33
107
107
106
105
104
103
101
100
98
97
96
95
95
94
34
235
227
212
191
167
142
120
101
86
77
6<5
63
58
58
35
657
627
572
500
419
337
264
204
157
127
104
86
73
7?
-------
*** CC FIELD FOR LAYER K=
1.00
4310
f -i L) 8
4306
4304
4302
4300
4298
4296
4294
4292
4291
4290
4289
4288
4287
4286
4285
*284
4283
4282
4281
4280
4279
4278
4277
4276
4Z75
4274
4273
4272
4270
4268
4266
4264
4^62
4260
4258
4256
t254
+252
XUTM =
1 =
40
38
37
36
35
34
33
32
31
30
29
28
27
26
25
24
23
22
21
20
19
18
17
16
15
14
13
12
11
10
9
8
7
6
5
4
3
2
1
l-*\J l~ — L
725 727 729 731 733 735 736 737 738 739
123456789 10
1110000001
1111000379
1 1 1 0 0 13 28 21 8 6
1 1 0 4 37 78 52 23 7 8
0 0 9 47 91 86 37 17 25 58
4 19 54 95 109 65 42 61 97 137
22 49 88 117 104 75 95 129 163 187
39 68 100 118 104 109 144 171 183 177
59 91 118 115 115 138 166 176 171 155
69 103 125 115 123 153 171 173 162 144
79 111 123 117 132 160 168 165 151 132
86 112 119 121 139 161 162 154 136 120
91 113 120 125 144 160 153 145 138 130
95 115 120 129 145 155 149 152 153 129
99 116 121 132 146 154 159 170 143 109
101 117 122 134 148 161 167 159 132 93
103 117 123 135 149 163 163 140 122 98
103 117 124 137 150 168 163 142 120 105
104 118 127 140 157 184 181 153 132 113
105 119 130 145 172 208 177 152 140 131
106 119 131 150 135 228 188 159 155 163
1C7 119 134 157 187 195 161 169 187 221
108 122 138 165 189 167 154 182 212 264
110 126 144 171 188 175 176 216 263 281
112 128 148 172 183 187 212 253 288 285
114 132 152 174 195 224 244 268 282 260
121 140 160 188 239 279 266 270 279 250
127 147 169 199 252 300 279 269 262 238
129 151 175 213 261 285 278 271 253 219
134 158 188 222 243 243 259 245 210 158
142 168 198 231 268 364 288 177 151 110
151 180 213 251 291 328 251 132 97 72
163 196 233 269 283 237 152 87 63 49
179 215 250 264 230 139 84 58 45 36
196 229 249 234 173 90 57 41 32 25
208 232 2?2 195 128 59 41 31 25 22
212 225 206 157 93 3R 32 26 22 19
209 208 176 123 68 28 26 22 19 16
198 188 149 99 53 23 23 20 16 13
740
11
2
1 1
13
8
26
97
167
185
157
134
124
116
108
104
98
89
76
76
93
107
140
11
51
39
56
121
114
70
37
23
16
19
27
42
49
26
12
4
4
5
4
12
40
53
65
58
42
29
28
31
22
14
11
10
li
10
10
10
10
=
16
.9
.1
2
n
749
20
1
25
61
28
73
124
83
43
18
10
18
25
30
41
33
12
5
4
4
3
6
23
44
58
52
34
29
29
31
29
18
13
11
10
n
10
11
11
10
77
17
27.8
10.8
7
0
751 751
21
1
39
49
18
86
98
43
16
6
i
18
24
25
23
11
4
4
5
3
3
12
41
64
51
38
19
22
27
34
26
15
12
11
10
li
11
12
11
10
OPS =
18
13.1
5.6
19
0
22
2
27
29
19
65
48
13
3
3
4
16
23
16
q
4
5
5
4
3
6
22
60
47
27
18
23
28
22
21
18
14
12
11
11
11
12
12
11
9
2
9
752 753
23
3
Q
11
21
20
27
12
2
4
5
6
11
IP
11
5
6
q
/•
3
6
7
14
31
20
8
13
2t
27
21
15
15
14
13
12
11
12
12
12
1C
8
C
19
.4 -1
.3 23
187 1
n
24
4
1 A
1 O
12
11
10
6
2
1
2
3
4
11
1^
8
3
4
4
3
5
5
q
6
9
10
li
15
30
27
21
17
16
15
13
12
12
13
13
11
9
6
20
.1
B Q
on
n
754
25
8
7
4
2
4
2
1
1
2
2
6
9
3
2
1
1
2
5
4
6
7
7
10
12
12
21
26
20
19
17
16
13
12
14
14
13
10
7
5
21
3.7
35.2
26
0
755 757
26
5
1
2
0
2
2
1
2
3
3
3
2
2
2
2
1
2
4
6
8
Q
11
13
12
11
14
18
15
15
19
17
13
14
16
15
12
9
6
4
22
11.6
48.6
4
0
27
i
i
1
i
n
n
1
2
3
3
3
3
3
2
2
1
2
4
.8
11
13
11
14
17
12
12
10
8
7
6
17
18
18
2°
19
14
Q
C,
3
1
36
24
759 761
28
n
2
2
1
0
1
3
4
4
3
3
3
2
2
1
1
6
11
IB
22
17
14
10
4
2
3
6
10
12
6
4
16
29
30
19
9
3
2
i
0
23
.2 19
.4 -7
3
0
29
T
0
o
0
4
7
5
3
2
2
1
2
2
2
4
12
16
14
13
7
5
3
1
1
3
7
6
3
3
1
7
31
29
11
1
0
1
1
0
24
763
30
n
Q
0
0
0
4
7
3
1
0
0
n
1
3
2
3
3
3
0
0
0
0
n
0
n
1
2
1
Cl
1
2
4
13
6
0
n
0
n
n
0
25
.3-13.8
.7
10
0
20.2
104
i
-------
153
5. Report of IBMAQ-1
-------
154
Reprinted from JOURNAL OF
APPLIED METEOROLOGY, Vol. 1.3,
American Meteorological Society
Printed in U. S. A.
March 1974,
185-204
A Generalized Urban Air Pollution Model and Its Application to the Study
of SO2 Distributions in the St. Louis Metropolitan Area
C. C. SHIR
IBM Research Laboratory, San Jose, Calif. 95193
L. J. SHIEH
IBM Scientific Center, Palo Alto, Calif. 94304
(Manuscript received 6 June 1973, in revised form 26 December 1973)
ABSTRACT
A generalized urban air pollution model, based on numerical integration of the concentration equation,
is developed for the study of air pollutant distributions over an urban area. The model computes the tem-
poral and three-dimensional spatial concentration distributions resulting from specified multiple point and
area sources by using currently available meteorological and source inventory data. A new method based
on experiments and a turbulence transport model is used to estimate the turbulent diffusivity and atmo-
spheric stability. Special treatments of the finite-difference scheme to accommodate the large variations
of concentrations are discussed. An effort has been made to avoid any subjective analysis scheme for the
preparation of the input data.
The model was used to study S02 distributions in the St. Louis metropolitan area during 25 consecutive
days in February 1965. The computed results were evaluated with respect to observed data by using various
statistical methods. The computed results agree favorably with experimental measurements for both long-
term and short-term average concentrations. Computations also indicate the model's capabilities and
flexibilities for dealing with the rapid variations of atmospheric conditions. The advantages and limitations
of the model are also discussed.
1. Introduction
In recent years, a number of urban air quality
diffusion models have been developed. Such models can
be used to study the complicated relationships between
air quality and emission sources as a function of various
parameters, viz. meteorological and surface conditions.
The aim of these models is toward air quality prediction
as well as long-term air quality management planning.
In view of the long standing air pollution problems and
growing emphasis on air quality improvements, the
subject has great practical importance. However, the
present state of the art in diffusion modelling raises
some doubts about the possibility and feasibility for
achieving these goals. The objective of this work is to
develop a model through which we can study thoroughly
the relation between air quality and sources as well as
the feasibility of its eventual use in air quality predic-
tion and management. In general, these models are
formulated by the use of a concentration equation
governing the pollutant mass which are based on the
physical principle of mass conservation. The governing
concentration equation, supposedly, can be solved for
given input of the source emission rates, meteorological
and surface conditions, turbulent transport mechanism,
and transformation rates. However, due to the complex
process of the air motion in an urban atmosphere and
inadequate data acquisition, the required detailed
information for the input is not available. Thus, for
practical purposes, various approaches have been
developed, based on either statistical theory, or phe-
nomena, or even arbitrary assumptions. The choice of
the approach, more often than not, depends on its
applicability and convenience.
The simplest formulation is the box-type diffusion
model (Frenkiel, 1956; Leahey, 1972) which assumes
the vertical pollutant distribution to be uniform inside
the atmospheric mixing layer. It offers a quick result
for long-term concentrations.
Another type of simple model reported by Gifford
and Hanna (1970) is based on the similarity hypothesis.
This approach assumes that the vertical concentration
distribution is similar with respect to a height scale
along the wind axis. This height, called the height of
the polluted air, is determined by the requirement of
separation of variables in the governing equation. The
application of the model gave some good results for
long-term averaged concentrations. A somewhat similar
approach with more complicated formulation was
reported by MacCracken et al. (1972).
-------
JOURNAL OF APPLIED METEOROLOGY
155
VOLUME 13
The best known of the practical equations based on
statistical theory is the Gaussian plume formula which
was evolved from the solution of the concentration
equation under isotropic, homogeneous condition. It
assumes that at downwind from a point source,, the
ensemble average concentration on the crosswind plane
will approximate a normal statistical distribution. At
present, many existing urban diffusion models are
primarily based on Gaussian formulations. The models
developed by Turner (1964), Roberts et al. (1970),
Johnson et al. (1970), Shieh el al. (1972) are a few
typical examples. Reviews of existing models are
reported by Moses (1969) and Neiberger (1971).
On the other hand, the concentration diffusion equa-
tion has not been widely used in this kind of study.
When properly applied, the equation can give a better
description of atmospheric diffusion processes. There
are various solutions of this equation for point sources
with the specified atmospheric conditions, such as those
of Rounds (1955), lordanov (1966), Shir (1970, 1972a)
and many others. Its application to a multiple-source
urban diffusion model is still considered to be at a
beginning stage. A few models, such as those of
Harrington (1965), Sklarew el al. (1972), Lamb and
Neiburger (1971), Randerson (1970) and Reynolds etal.
(1973) have been developed, but a more extensive test
of this approach had yet to be made.
It is well known that the major factors that charac-
terize diffusion processes, in the atmosphere are the state
of atmospheric turbulence and its underlying surface
properties.." It is apparent that the Gaussian plume
formula is not flexible enough to include all possible
variations that the air motion experiences under urban
atmospheric conditions. If a model has to accommodate
the temporal and spatial variations of meteorological
parameters, effects of the inhomogeneous surface condi-
tions and other features, a realistic approach as we see
it, lies in the application of the concentration diffusion
equationjlt is possible that the availability and accu-
racy of input data for the models, both for meteoro-
logical parameters and source inventory, will be im-
proved in the future. Therefore, application of this
kind of model would be far more advantageous.
In this study, we propose a new urban diffusion
model, based on a concentration diffusion equation. The
major purposes of this study are the following:
1. To investigate the feasibility of using concentra-
tion diffusion equation for a diffusion computation
which involves multiple source emissions.
2. To develop a numerical technique which is to
handle the inhomogeneity of multiple-source
emission rates, the complex urban atmosphere,
and the change of surface boundary conditions.
3. To obtain a practical method such that the model
can utilize current available meteorological and
source inventory data.
4. To develop a general method such that the model
computation will not require any subjective
analyses, arbitrary adjusted parameters, and
"tune-up."
2, Input data
The basic data used in this study were obtained from
the Division of Meteorology, Air Program Office, U. S.
Environmental Protection Agency. Originally, the data
were collected for the purpose of St. Louis S02 disper-
sion model study as part of the Interstate Study
(Venezia and Ozolin, 1966), covering the period from
1 December 1964 to 28 February 1965. The data con-
sists of source emission inventory, meteorological
variables, and SOs concentrations at monitoring sta-
tions. It should be noted that the original concept of
the St. Louis S02 dispersion study was for the develop-
ing of a Gaussian-type model. Consequently, this set
of data was gathered for this specific purpose. The de-
tailed description of these data can be found in Turner
and Edmisten (1968). However, these data are not
compatible with the requirement of the gradient
transport type of diffusion model, and additional
analysis was therefore necessary. The following discus-
sion will briefly describe the basic data.
a. SOa source emission data
The St. Louis, Missouri-East St. Louis, Illinois
Metropolitan area is divided into 1200 square area
source grids, 30 squares in the east-west direction and
40 squares in the north-south direction (see Fig. 1).
The dimensions of the grids are 5000 ft on the sides. In
addition, Fig. 1 also shows 44 industrial point sources'
within the region. No adjustments have been made to
the emission data when applied in our diffusion
computations.
The time-dependent source emission rate (gm sec"1),
averaged over a 2-hr period, for each area source and
point source are computed by equations which can be
found in Turner and Edmisten (1968). The method of
calculating these emission rates and its validation have
been discussed by Turner (1968). No adjustments have
been made to the emission data when applied in these
diffusion computations.
In addition to source emission data, two additional
sets of data are included. First, the average building
height of each area source grid was used to estimate the
surface roughness. Second, the stack height of point
sources and the values of plume rise time wind speed
(m2 sec"1) are also included. For cases when no plume
rise information was given, the plume rise was estimated
from the S02 emission.
b. Meteorological data
Hourly averaged meteorological data are routinely
obtained at two airports in St. Louis area: Lambert
-------
156
MARCH 1974
C . C . SHIR AND L. J S HIE H
Field and Scott Field. The data consist of surface wind
direction and speed, sky cover, surface temperature,
visibility and weather conditions, etc. The hourly
averaged surface temperature, wind direction and speed
are also measured at three stations on the periphery of
the urban area. They are located at Lindbergh High
School, the Missouri State police station, and Hazel-
wood High School. The instruments' specifications and
operation were described by McElroy and Pooler
(1968). In addition, the instruments which measured
wind speed, direction and temperature were installed at
KMOX-TV tower located in downtown St. Louis (see
McElroy and Pooler, 1968). This operation consists of
three levels of instrumentation and one level of bivane
standard deviation. The location of measurement sensor
stations is given in Fig. 2.
c. Mixing heights
The data of two daily mixing heights, namely, one
morning minimum and one afternoon maximum height,
estimated by EPA were used. These heights represent
the level at which the adiabatic lapse rate (based on
estimated surface urban temperature) intersects the
rural temperature profile measured by morning radio-
sondes. This intersection height may be in error due to
an ill-defined temperature profile or over-estimated
urban surface temperatures. The average range of
heights is 300 m to about 600 m.
FIG. 1. Geographical distribution of area and point
sources for the St. Louis metropolitan area.
KIG. 2. Locations of meteorological stations and the SO2 monitor-
ing network in the St. Louis metropolitan area.
iL SO 2 concentration
Fig. 2 also shows the sampling stations where SO2
concentrations are measured. Original data consisted
of 40 stations where concentrations were obtained for
a 24-hr averaging period. At ten of these stations
additional 2-hr averaged concentrations were made.
The detailed description of the instrumentation and its
operation are given by Farmer and Williams (1966).
The validation of this model is based on the latter
10 stations where 2-hr averaged concentrations were
measured.
3. Model formulation
a. Equations, boundary conditions and initial conditions
The region of interest is the St. Louis metropolitan
area. This area encompasses 30X40 square area source
grids based on the emission inventory made by Turner
and Edmisten (1968) (Fig. 1). The time varying mixing
depth is taken as the upper limit of the model. Since
this area has a reasonably flat terrain, the effects of
topography are neglected. The surface roughness
parameter is used to represent the effects of urban
buildings. S02 emission is considered passive and there-
fore does not alter the meteorological conditions. The
turbulent diffusion of SO2 is assumed to be of the
gradient diffusion type. The governing equation of SO2
-------
JOURNAL OF A P P L I E D M E T E O K O L O G \'
157
VOLUME 13
in the atmosphere based on the conservation law is
dC
dt
d dC
K -- \-Q+R, (1)
dz dz
where C is the mean concentration of S02, V= (U,V,W)
is the mean wind vector, Q the source strength rate,
R the chemical reaction rate, KH the horizontal eddy
diffusivity, 7W2 the horizontal Laplacian operator,
and K the vertical eddy diffusivity. The boundary
conditions are :
dC
K — = 0, z=0,//
dz
d2C.
Uj X=\Jj .Vm
dx2
=0,
,(2)
(3)
(4)
Here H=H(t) is the mixing depth of the planetary
boundary layer, and £max and ym.,x are the east and
north boundaries of the area respectively. The boundary
surfaces above and below are assumed impermeable to
the SO2. The absorption of the SO2 by the ground sur-
faces is neglected. The exact lateral boundary conditions
are not available. Those conditions in (3) and (4) which
extrapolate the concentration outside the region serve
as a reasonable approximation when the region of com-
putation is large enough. In practice, and as we have
found, the lack of well-posed boundary conditions does
not cause serious problems. This is because the hori-
zontal advection terms, which dominate the horizontal
diffusion terms, are only first order in the space deriva*
tive. The computation may be affected by the inflow
boundary conditions. However, if there is no high
concentration outside the inflow boundary this influence
is minimum, and the linear extrapolation could offer a
fair approximation. In this study, the region computed
is about ten times that of the urban area where the
major sources are located. Moreover, there is neither
any nearby major urban area nor any return flow to
influence the inflow boundary conditions. The initial
conditions are arbitrarily set to zero. The computa-
tions show that the concentrations reach observed
levels within approximately 2 hr under average wind
speed conditions. Hence the initial conditions are not
important for the concentration computations after this
initial time. This required time period depends on the
wind speed and the region of interest. This time interval
can be estimated by Tu~L/u, where L is the distance
downwind from the sources and u the average wind
speed. However, this may not be valid when the wind
changes direction drastically during this time period.
The model simulation'begins at 1400 Local Standard
Time (LST) which corresponds to the time period used
in the source emission inventory and data acquisition
system.
b. Physical parameters
The parameters required for the integration of Eq. (1)
are V, Kir, K, Q, R and H which, except for Q, are not
provided explicitly or sufficiently. The following
discussions outline the methods which were used to
obtain the input data for the model requirement.
1) WIND FIELD
The wind vector V = V(x,y,z,f) is required at every
grid point for each time step of integration. The hourly
averaged surface wind field for the totat^region was
obtained by using a weighted interpolation scheme.
Data from the measurement stations were interpolated
to a square grid, which had a size of five area source
dimensions. Several schemes have been tested in this
analysis. It was found that reasonable results can be
obtained from the equations (Wendell, 1970):
m,n m,n
where iiij and v,-j are components of the wind vector at
analysis grids in the x and y directions, respectively;'
and umn and vmn are the initial guess fields at analysis
grid and rm>l the distance from grid. (i,j) to grid (m,n).
The initial guess field is obtained by assuming
for minimum of
where «t and ilk are components of the wind vector
rheasured at station k and r^ is the. distance from a grid
to station k. From this analyzed wind field a linear
interpolation is employed to obtain a wind vector at
each grid point to be used in the numerical scheme.
The mesoscale wind field analysis is a Itery difficult
problem. In reality, we don't think this simple method
will be able to handle all possible meteorological condi-
tions. Due to the limited number of measurement
stations, a more complex method is not applicable in
our study. In this study, an attempt was made to avoid
any subjective analysis methods. Thus, throughout our
computations the same analysis procedure was applied
without any subjective adjustments. In the later part
of our study we became aware of the existence of a
complete subjectively analyzed wind field for this
period (Turner, 1972, personal communication). The
model performance based on this wind field as compared
to our method will be discussed in Section 5.
The spatial distribution of upper layer wind data was
not available, and the present knowledge of urban
meteorology cannot offer much information about it.
-------
158
MARCH 1974
C C S H I R A X
Fortunately, the concentrations at those locations
where the local sources dominated are not sensitive to
the upper wind. The vertical wind profiles at each grid
location are assumed to be of power law form
|V|= Vs
(6)
where V and V8 are the upper and surface wind at the
height z and z, respectively. The power constant p is
determined by
where V3 and Vi are the winds at the height z:! (140 m)
and zi (39 m) of the TV tower. The values of p are
restricted between 0.15 and 0.65 which are the usually
observed values. The directions of the upper wind are
also unknown. It is understood that the upper wind has
a direction to the right of" the surface wind in the
Northern Hemisphere. However, this angle cannot be
determined quantitatively from any theory under
general conditions. Two methods have been tested.
One method assumes no directional change and the
other assumes equal angle change with height over each
height interval from z. to z3 with the same total angle
change as that measured at the TV tower. Results from
both methods differ very little. Hence the assumption
of constant wind direction with height was used for the
computations. The vertical winds were calculated from
horizontal winds through the continuity equation. Since
the interpolated horizontal winds are so smooth, the
vertical winds do not significantly influence the con-
centration distributions. This is in contrast to the case
when a strong urban heat island occurs. However, the
incomplete knowledge of the vertical winds resulting
from the urban heat island effects make this assumption
necessary.
2) ATMOSPHERIC STABILITY
It is well known that turbulent diffusion of air
pollutants is directly related to the atmospheric turbu-
lent intensity which is categorized by the stability of
the atmosphere. But what is The pr:i. M\ ' ;
TABLE I. Key used to estimate the continuous stability
n i.. r siiiEH
theory, the Richardson number Ri or Monin-Obukhov
length L is used to represent the stability.
The availability of temperature and wind observation
on the TV tower made it possible to compute a bulk
Richardson number. McElroy and Pooler (1968) sug-
gested that atmospheric stability can be categorized by
a bulk Richardson number and bivane standard devia-
tion. Our first attempt was to compute eddy exchange
coefficients as a function of bulk Richardson number,
bivane standard deviation, and surface roughness. It
was found that this method gave inconsistent results.
The deficiencies of this method are three-fold. First,
the computed value of the Richardson number depends
on the accuracy of the vertical temperature gradient
measured at TV tower. Second, the TV tower is located
in downtown St. Louis, and the parameters measured
at this location may be influenced by nearby high
buildings and local heat emission. Thus, the stability
parameters based on these measurements may only
represent the local stability condition. Third, the corre-
lations between bulk Richardson number and bivane
standard deviation are very poor. In the following
discussion, we will present a method which is used in
the final computation. This approach will enable an
urban diffusion model to be based on the concentration
diffusion equation without the benefit of vertical tem-
perature measurements.
The basic stability classification proposed by Pasquill
(1962) is employed. The wind speed at the lowest level
of TV tower measurement (39 m) and sky cover
observed at the two airports were used to establish the
stability class. I'asquill's stability category is a discrete
function (represented by stability classes A-F). It will
be replaced by stability classes —3, —2, —1, 0, 1 and
2 in our discussion. (The stability class 0 represents
neutral conditions.) Moreover, the stability class was
evaluated as a continuous function by interpolating
I'asquill's class with respect to wind speed. However, in
the transient period, after sunrise and sunset, the past
hisforv r>f stability must also be considered. The
auon.*
Mean
wind
speed
(m sec"1)
<2
2—3
3—5
5—6
6—8
>8
Day-
Incoming solar radiation
Strong
-3.5-
-3.0-
-2.2-
-1.5-
-1.0-
—3.0
—2.2
— 1.5
— 1.0
—0.3
-0.3
Moderate
-3.0^-2.2
-2.2- 2.0
-2.0 1.0
-1.0—0.3
-0.3— -0.1
-0.1
Slight
-2.5-
-2.0-
-1.0-
-0.5—
-0.2-
0
—2.0
— 1.0
— 0.5
— 0.2
• 0
Transient period
Day-
-1.5—
-1.0—
— 1.0—
-0.4—
-0.3—
-> i— Night
-0.5
-0.3
-0.3
-0.2
-0.1
0
0.5-
0.5-
-1.5
-1.0
0.3—0.5
0.2—0.4
0.1-
-0.2
Night
Thinly
overcast
or 4/8
low cloud
1.5
1.5—0.6
0.6—0.3
0.3—0.1
0.1—0
0
Cloud ^3/8
2.5
2.5—1.6
1.6—0.5
0.5—0.3
0.3—0.1
0.1
* Note: 1) See Turner (1969) for overall explanations.
2) Zero index is equivalent to neutral condition.
3) An intermediate value is computed by a linear interpolation scheme according to the specified range of wind speed.
-------
J O U R N A f. 0 F. A P P I. I F. n M E T K O R O 1. O G V
159
VOLUME 13
Recently, the relation between the specified Pasquill-
Gifford stability classes and the physical parameters of
turbulence was studied by Golder (1972). Colder found
the relations between the Pasquill-Gifford's stability
classes and the Monin-Obukhov length with surface
roughness as an additional parameter. Golder's data
can be approximated by the expressions
±[rfln(1.2+10/zo)]2KK(s), (8)
a/(l+6|S|0, (9)
where S is the stability class; a = 4, 6 = 1.3, c = 0.85,
d=0. 216586; and Zo = z^(x,y) is the surface roughness
parameter in meters. The stability parameter 5=0
denotes neutral conditions, and negative and positive
values of 5 denote unstable and stable conditions,
respectively. Thus, the sign of L in (8) must be the
same as that of 5. Moreover, the continuous values of S
as discussed previously allow smooth changes between
stability classes. Since this method is much easier to
use than measuring vertical temperature distributions,
its merits should not be overlooked. Certainly, it may
require further improvements such as continuous
insolation classifications, non-uniform spatial stability
distributions, and effects of precipitations.
3) EDDY DIITUSIVITY
To calculate eddy diffusivities of air pollutants is a
classical problem. Not much information about their
behavior are known except near the surface. Recently,
Shir's turbulence transport model (1973) successfully
calculated the turbulence structure in the planetary
boundary layer. The vertical distribution of K under
neutral conditions can be expressed as
*iH, (10)
where «*, &o and H are friction velocity, the von Karman
constant, and the height of the boundary layer, respec-
tively. We assume that K=K,l/ls for non-neutral condi-
tions, where the subscript s denotes the values at
z = 10 m. From given L and V, (wind velocity at z= 10
m), we now calculate K, from the following two
procedures :
1. Calculate w* from V,, L and z0 by
(H)
where ^m = f,,* (m/z)dz, m being the non-dimensional
wind shear. According to Businger et al. (1971), 0m can
be expressed as
. f<0
where f=z/L, a = 4.7 and /3=15. Using Eq. (12), we
have
fln(l+zAo)+«f, for f
-2 ln[l+co/2]-ln[(l+w2)/2] (13)
+2 tan-'w-TrA for f <0
where u= l/<£,,,.
2. Calculate K from M* and <£„ by
where
(14)
n =
f>0
-/3'f)-», f<0
and 7 = 0.74, ,8/ = 9. The formulas (12)-(14) are valid
in the surface layer. We calculate KS=K (z = 10 m) and
then extrapolate K to higher altitude by K=Ksl/ls.
This approach by no means implies that the turbulent
diffusion of air pollutants over an urban area is really so
simple. Those formulas are derived from experimental
data based on equilibrium turbulence which may not
occur over an urban area where the horizontal in-
homogeneity plays an important role. Shir (1972b)
found that turbulence is non-equilibrium in the vicinity
of a change in surface roughness. However, little in-
formation is available about the urban effects on the
eddy diffusivity. The formulas used here are subject to
improvement when more knowledge about them is
available. However, we feel that it is a significant im-
provement over existing methods because the effects of
surface roughness are taken into account in the calcula-
tion of L and K. Shir (1972a) pointed out that the
effects of surface roughness can influence the concentra-
tion distribution significantly. These effects are ne-
glected in the Gaussian plume approach.
The horizontal eddy diffusivity KH has no significant
effect on the results and its behavior is not well under-
stood, especially under stable conditions. In the present
study, a value of 500 m2 sec""1 was assumed.
4) SURFACE ROUGHNESS
Although surface roughness affects the turbulent
dispersion and wind profiles, no surface roughness
measurements were made over the St. Louis urban area.
Lettau (1970) proposed a simple formula to estimate
the roughness length of the urban area by
o = 0.5rA,
(15)
where r is the silhouette area ratio and h the effective
height of the roughness elements. The values of r range
from about 0.05 to 0.5 from rural to urban areas. The
values of r are assumed to be proportional to the area
emission sources density and are estimated as
r=0.04[1.0+0.37& (*,?)/£],
(16)
-------
MARCH 1974
C . C. SHIR AND L. J. SHIEH
160
where Qa is the mean area source strength and Q the
space average area source strength. This gives values
of r ranging from 0.04 to 0.5 and values of z0 from 0.4 m
in suburban areas to 6 m in urban areas. These values
offer a crude estimate of the roughness distributions in
the St. Louis area. This formula is subject to improve-
ment when more information is available on the effect
of different urban areas on the values of r and ZQ.
5) THE MIXING HEIGHT
Turbulent mixing plays an important role in the
dispersion of pollutants in the atmospheric layer under
the mixing height. This height may not always be the
height of inversion layer. For instance, in a neutral
atmosphere, there is a mixing height but no inversion
height. For a horizontally, homogeneous planetary
boundary layer under neutral conditions, the mixing
height is about equal to half the height /z* = ?<*//,
where / is the Coriolis force parameter (Shir, 1973).
However, the technique used to estimate the mixing
height is actually that of estimating the inversion
height.
The hourly mixing height was estimated by interpola-
tion from the given minimum and maximum heights.
The period of minimum height is assumed to last from
the 0000 to 0600 LST and the maximum height from
1400 to 1800 LST. The morning minimum height was
restricted to be lower than the previous day's maximum.
The maximum height was kept less than 1200 m, be-
cause any height above that has little influence upon
the surface concentrations within the region of investi-
gation under normal wind speed. This can be shown by
comparing the advection time scale I\ to the diffusion
time scale Ta. Here Tu = L/u, where L is the length of
the urban area and u the average surface wind speed at
z=10 m; and Td=H~/K, where H is the mixing height
and K the average eddy diffusivity. Under neutral con-
ditions, ^ = M*/ = /euz7/(lnlO)~6;7; with l~M m this
gives /3t=Tu/Td~6L/H*. In this study, L~2() km,
thus; /3,a0.1 for # = 1000 m and /3,«1 for // = 30<) m.
Therefore, when the mixing height is greater than
1000 m, the time of advection is much shorter than the
time of diffusion, and the effects of the reflection from
the inversion base become small.
6) CHEMICAL KEACTION KATE
The chemical reaction rates of SO2 can be expressed
by R—~kaC, where ka is the reaction rate constant.
The reaction rate depends on the insolation and the
atmospheric concentrations of water vapor, nitric oxide,
hydrocarbon and particulates. Its estimated values
range from 10"3 to 10~7 sec-1 (Leighton, 1961). Wilson
and Levy (1968) found values of ka ranging from
0.8X10-* to 1.4X10"1 sec-1 in smog chamber experi-
ments with medium relative humidity. The value of
ka = 10"4 sec"1 was used in this study. For normal wind
speeds (5 m sec"1), it is believed that the reaction rate
is slower than the advection rate of wind over the
medium size urban area. This can be estimated by
y,= Tu/Tr, where Tc = ka~l is the time constant of
reaction rate and Tu = L/u is the time scale of advection.
The chemical reaction effects will be pronounced when
u^L/Tc. In St. Louis, L~2() km covers most of mea-
surement stations. If Tc = 3 hr, then u~1 m see"'. Thus,
the chemical reaction effects are significant under low
wind speed conditions (z7^2 m sec"1).
4. Methods of analysis
a. Grid spccijicalitinx
Our three-dimensional grid system consists of
30X40X14=16800 grid points. The x,y,z axes are
oriented cast- west, north-south, and vertically, respec-
tively. The horizontal grid sizes Ax = Ay = 5000 ft
= 1524 m were chosen according to the grid size of the
emission source inventory. The vertical grid sizes are
specified as follows :
f20m,
AD* = ^ 25m,
l(//-200)/4,
10^/^13, for /0300m
where // is the mixing height when 7/5; 300 m. The
lower nine grid points under 200 m have a fixed spatial
size because the effective heights of point and area
sources are within this layer. The levels of the upper
four grid points are determined by the hourly varying
mixing height. The grid spacing for these four grid
points is set to be larger than or equal to 25 m. Thus,
the minimum height of the grid system is 300 m. When
the mixing height is lower than the top of the grid
system, small values of eddy dillusivity were forced at
those grids located above the mixing height.
b. Numerical methods
A second-order, central finite-difference scheme was
used to integrate the advection and horizontal terms
and the Crank-Nicholson method was used for the
vertical diffusion term. Since the concentration fields
usually have large variations, phase errors resulting
from the finite-difference method are large. Therefore,
careful treatment is required. The finite-difference
approximation to the concentration equation is
AtfaC^, (17)
where AF=Aa'A;)
-------
JOURNAL OF APPLIED METEOROLOGY
161
VOLUME 13
The operators % V and "W are defined by
where
-W[C,-y t] = P. [C,, J -
-axOCtft], (18a)
The stability criteria for the terms of advection,
horizontal and chemical reaction rate are well known
(Ritchmyer and Morton, 1967) as
aa, a*< 1, where subscript a denotes x, y, or z,
, and A/£0U, C,-_i,yi'i
:«*, if «*.->o, c
:,•+!,,•*, if «:,l/2
(22)
This stability condition simply says that the implicit
scheme used in (21) is unconditionally stable when
0^5. However, it cannot prevent amplification of
truncation errors when the concentration fields are not
smooth and the value of yk is large. The present study
indicates that another additional condition is required.
When the diffusion takes place between two grid boxes,
the flux across the boundary is proportional to
—KdC/dz. The flux will cease when the gradient
approaches zero. Thus, we have
^-C^+i) ^ 0.
(23)
This requirement leads to the condition
"4(1-0)
Hence, the value of 0 must be close to 1, if a large value
of yk is used. Eq. (17) applies to a constant grid spacing
system. When the grid space is a function of time, a
correction due to the changing volume is needed. It can
be shown that —djkd InAzt/di should be added on the
right-hand side of Eq. (17). The implementation of this
correction is simplified by changing the height H (f) for
each hourly period. With this arrangement, the concen-
trations at the upper five grid points are adjusted hourly
according to the height H as follows:
r
\Cijk/sn,
Cijk~=\/l+rk/sn
*+i
\Ctjk, *=10
+ (Cf,j-.i,k-2Ciik+Ci,j+i,k)/Ay2l, (20) where 5n =
]), (21)
where
At/[_Az
4
and 6 is a parametric constant.
5. Results and discussions
The period from 1-26 February 1965 was chosen for
these model computations. During these 25 consecutive
days, various meteorological conditions occurred which
allow evaluation of the generality and performance of
the model. The computer, time for this computation is
2-5 min for every 24-hr simulation on IBM system
360/195.
-------
162
MARCH 1974
C C SHIR AND
a. General assessment
The period-average concentration for 25 days at ten
monitoring stations (indicated by station number) are
shown in Fig. 3. Both measured values from 2-hr and
24-hr instruments are used for comparison. The 2-hr
data are consistently larger than the 24-hr data. The
agreement between computed and measured values is
very good. The correlation coefficient is 0.899 and 0.873
for 2- and 24-hr data, respectively. Excellent agreement
can be seen for stations IS, 28, 33, 36, fair for stations
3, 4, 12, 17, and poor for station 10. The three-month
average results from the Gaussian plume model (Pelton
et al., 1972) are also shown. The present results for
shorter averaging period (25 days) are better than those
from the Gaussian model which yields the correlation
coefficient of 0.675 based on the regression line. In-
terestingly enough, the stations where two models
either overestimate (stations 3, 12, 23) or underestimate
(stations 4, 15, 17, 10) are consistent. The under-
estimation at station 10 may be due to the influence of
nearby large stacks which contributed to local high
concentration values. Such strong local variations can-
not be resolved with the present grid model. The
stations (4, 15, 17) where the model underestimated
concentration values are located on the northwestern
part of the urban area. On the other hand, concentra-
I.. J SlIIFM
ouu
1 200
3.
OJ
o
w
n
1 100
o
0
i i /i
12. / 10
23 3^,J^/ " '10
3 / »17
/ 17
& xp^4
^.«^1*15 A 24- Hour Av. Data, r = 0.873
36"*«X 15 i 2-Hour Av. Data, r = 0.899
^^'28 • 3-Months Mean of 2-Hour Data
,^^~33 ancj Computed Results from
_
-
/ Gaussian Plume Model, r = 0.675
/ r is correlation coefficient
/ i i i
100 200 300
Observed S02 (fig/m3)
40
FIG. 3. Comparison of observed and computed 25-day averaged
SO; concentration values (1-26 February 1965).
tion at those stations located on the southeastern side
of the city were overestimated by the model computa-
tions. This geographical dependence of model perform-
ances (including Gaussian plume model) indicates that
further study is warranted.
These phenomena may be due to the urban heat
island effect which was not properly accounted for in
the model. Since the prevailing wind during this period
was from the northwest, the underestimated concen-
1000
1000
21 25
" 2-Hr, Observed Data
• 24-Hr. Observed Data
FIG. 4. Comparison of observed and computed 24-hr averaged variations of SOj concentrations for trie
25-day period at each monitoring station.
-------
JOURNAL OF APTLIFn M F. T K O R O I, O G V
163
VOLUME 13
1000
100 •
100 •
10
10 100 .1000 10 100 1000
Observed S02 (M9/m3)
Fio. 5. Comparison of observed and computed 24-hr averaged SOa
concentration values at each monitoring station.
tration values are at stations upwind of the central
urban area and the overestimated values at stations
downwind of the urban area. The internal turbulent
boundary layer can form when the surface conditions
are altered by roughness or temperature changes
(Shir, 1972b). This feature has not been included in
the present study which essentially assumes the
turbulent flows are in equilibrium with the surface
conditions. As a consequence, the eddy diffusivity
estimated at the upwind edge is too large and that
estimated at the downwind edge too small., The result
of this assumption leads to concentration under-
estimates upwind of the urban area and overestimate
downwind. More complicated effects due to the urban
heat island, such as convection and non-uniform spatial
liability, may alsp affect this discrepancy. However,
effects on the stations which are far away from the
central area are less. This can be seen in the good
agreement of the observed data vs simulated values
at stations 28, 33 and 36. !
b. 24-hr averaged concentrations
Fig. 4 shows th,e 24-hr averaged time variation of the
computed and observed concentration values. The
observed values include 24-hr arid 2-hr sampling data,
the former being lower than the latter. This discrepancy
makes comparison very difficult. The computed 24-hr
mean concentrations shown in Fig. 4 follow the trend of
the observed data. The agreement between the com-
puted and observed data is very good at stations 36, 28,
12 and 33. The model computations underestimated the
concentrations on the 4th, 5th, 9th, 14th and 20th of
the month. This may be due to underestimated emission
rates from the emission inventory model. The days on
which overestimates occurred at stations 3 and 23 are
for the northwest wind condition. The wind direction
results in pollutant concentration being transported
from large upwind emission sources. However, the
transport effects do not show up on the observed data
at stations 3 and 23 which are dominated by the local
emission rates. This raises some doubts both in the
model computation and the representation of the station
data. The street canyon effects of high-rise buildings
may prevent upwind concentrations from reaching the
station. This causes strong local influences on the
observed data. The strong microscale variations are
even more pronounced for automobile exhaust. Hence
the selections of station sites and the real representation
of the observed data are quite important. On the other
hand, the computed results can only represent mean
concentration over a grid size which neglects microscale
variations within that grid. The detailed, microscale
concentration distribution can only be resolved with a
subgrid model such as that of Johnson el al. (1970).
Such a subsystem for this model requires further
developments. The excellent results at stations 36, 28
and 33 are apparently free from the effects of horizontal
inhomogeneity and local influences, since these stations
are located in relatively low emission areas far from the i
central region. The concentrations at these stations
vary by two orders of magnitude depending on wind
direction. These large concentration fluctuations are
due to advection and are reproduced quite well by the
model. The two sets of measured data, viz. 1- and 24-hr
data, are also shown in Fig. 4. The 24-hr data are
usually lower than the 2-hr data. On the 4th, 20th and
21st, the computed values at station 33 agree well with
TABLE 2. Correlation coefficients of computed vs observed
24-h averaged SO? concentrations.
Station
no.
3
15
17.
23
33
4
10
12
28
36
Total
Objective analyzed
wind field
Linear scale Log scale
0.380 0.334
0.617 0.598
0.363 0.466
0.471 0.647
0.832 0.725
0.177 0.284
0.139 0.145
0.830 0.821
0.828 0.886
0.914 0.910
0.654 0.806
Turner's analyzed
wind field
Linear scale Log scale
0.398 0.325
0.635 0.620
0.408 0.502
0.444 0.642
0.830 0.718
0.220 0.313
0.105 0.125
0.812 0.804
0.823 0.878
0.937 0.940
0.659 0.809
-------
Final EIS Supplemental Information
Wastewater Treatment Facilities
For Henrico County, Virginia
U.S. Environmental Protection Agency
Region III • Philadelphia, Pa.
March 20, 1978
-------
JOURNAL OF APPLIED METEOROLOGY
165
VOLUME 13
TABLE 3. Correlation coefficients of computed vs
observed 2-hr averaged SOj concentrations.
Station
no.
3
15
17
23
33
4
10
12
28
36
Total
Numbers
of cases
295
232
290
267
235
268
281
275
282
286
2711
Objective
wind
Linear
scale
0.328
0.485
0.440
0.486
0.588
0.187
0.230
0.648
0.639
0.617
0.531
analyzed
field
Log
scale
0.322
0.443
0.459
0.591
0.680
0.438
0.250
0.686
0.730
0.769
0.706
Turner's analyzed
wind
Linear
scale
0.301
0.479
0.425
0.468
0.586
0.195
0.231
0.629
0.626
0.605
0.525
field
Log
scale
0.295
0.444
0.450
0.584
0.677
0.435
0.247
0.663
0.732
0.782
0.704
results of this model, e.g., stations 36, 28 and 12, follow
closely the trend of observed data, although the ob-
served data do show a highly fluctuating pattern. Hence,
the use of this model for short-term pollution prediction
is feasible.
For northwest wind conditions which occurred on
the 1st, 3rd, 7th, 12th, 16th, 21st and 25th, the model
underestimated the concentration at stations 3 and 23.
As has been previously mentioned, the advection effects
on the concentration do not appear on the observed
data. Similar underestimated results occurred for the
south wind conditions at most of the stations for the
Sth, 6th, 9th, 14th and 19th days. It was found that
high temperatures are associated with these days. The
cause of underestimated results on these days is not
completely clear. However, south wind conditions
during our simulation period generally follow warm
front passages. During such passage, emission may be
underestimated due to unseasonable warm air. Also, the
air motion and atmospheric stability are more com-
plicated than has been specified in the model. Quite
often, the computed trends have a phase shift from the
observed data whenever air temperatures change
rapidly. This indicates that the emission rates may have
a certain time lag when responding to air temperature
changes. The exact duration of the time lag seems to be
quite complex and requires further investigation.
In general, the trend pattern of computed values
follows reasonably close to that of the observed data.
This is an important consideration on the feasibility of
the model for short-term pollution prediction.
A few of the peak concentrations which appear on
'certain stations in Fig. 6 are mainly due to the influences
of the large industrial sources near Alton, located 30 km
north of St. Louis. These occur under north wind
conditions. This phenomenon is strongly evident on
3 and 16 February, on the morning of 19 February, at
22 stations, and somewhat weakly at noon on 4 and
all February, and on the morning of 24 February at
east-tide (even number) stations. Thus, those large
industrial sources contribute significantly to concen-
trations under this wind condition.
The correlation coefficients between the computed
values and the observed data at ten stations are shown
in Table 3. The correlation for all 10 stations is 0.531
in linear scale and 0.706 in log scale. The correlation
based on Turner's analyzed wind field, which is also
shown on Table 3, is very close to that based on objec-
tive analyzed wind. This is a 52% improvement from
the Gaussian plume model which has a correlation
of 0.347 based on regression line.
d. The frequency distribution of concentrations
The frequency distributions of combined 2-hr data
at nine stations (excluding station 10) for different wind
directions are shown in Fig. 7. The agreement is excel-
lent for NE and SE wind directions. The maximum
discrepancy in the concentration values between the
20 and 80 percentiles is 10 and 20 /ig m~3 for NE and SE
wind conditions, respectively. The computed results
overestimated the concentrations for NW winds and
underestimated them for SW winds. These discrepancies
1000
500
TOO
50
10
500
1 100
(S
o
CO
50
N-WWind
'' Computed
!/ Observed
N-EWind
10
S-EWind
10 30 50 70 9010 30 50 70 90
Percentile
FIG. 7. Comparison of observed and computed 2-hr averaged
frequency distribution of S02 concentration according to wind
lectors (combined data from nine stations).
-------
MARCH 1974
166
C. C. SHIR AND I.. J SH I Kll
1000
500
3 100
50
10
-3CC
-------
JOURNAL O.F APPLIED METEOROLOGY
VOLUME 13
167
ST. LOUIS S02 DISTRIBUTION FEB 1965
.._ ,. 289. DEC TEMP= -16. C
= 0.5 MIX HEIGHT=
8547. GPS -
WTB HINIMM 0.0
MAXIMUM 713.20
00.
- GPS
PLOTTING INTERVBL S7.
FIG. lOa. Simulation of 2-hr average surface
SOj conceiHralion field.
The effect of multiple emissions in the central urban
area is prominent. The effect of wind speed on the
pattern of the surface SOa concentration field is shown
in Fig. lOb. The total source emission and the atmo-
spheric stability are nearly the same as in the previous
case. The increase in the wind speed results in a some-
what similar but simpler distribution pattern. The
surface concentrations in the central area are reduced
by about half, with the wind speed doubled from the
previous case. This might suggest that the surface
concentrations in the central area are approximately
inversely proportional to the wind speed under the same
prevailing meteorological conditions. However, as will
be seen later, it is not that simple. The surface concen-
trations near Alton, where the point sources are
dominant, are only reduced by 30%. This may be due to
different plume rise: the increase of wind speed decreases
the plume rise which in turn increases the surface con-
centrations. This phenomenon can be seen more clearly
in Fig. l()c which shows the concentration pattern under
low winds and a stable atmosphere. Although the total
source emission is about 60% of that in the previous
cases, the concentration pattern is quite different. The
surface concentrations near Alton are largely reduced.
There are two reasons for this--large plume rise due to
low wind speed; and weak diffusive mixing, due to the
stable atmosphere, which causes SO 2 to reach the
ground slowly. The same reasons also explain the
ST. LOUI!
WINO= 9.1
DRY* 25
I MNIMt 0.0
140
3UTION FEB .
- TEMP= -12.
1965
502 DISTRIt
'S 296. DEC
iX HEIGHT= 773. M
, GPS QP= 11825. GPS
10 MIN= 0
NttlMUM 501.17 PLOTTING INTCBVM. 57.
ST. LOUIS 302 DISTRIBUTION FEB 1965
WIND= 2.2MPS 302. OEG TEMP= -4. C
S= 1.9 MIX HEIGHT= 710. M
4593. GPS QP= 7123. GPS
4 MIN= 0
MRXIMUM 797.59 PLOTTING INTEBVflL 57.
DRY= 13 HI
ORTfl MINIMUM 0.0
Fio. lOb. Simulation of 2-hr average surface
SOi concentration field.
FIG. lOc. Simulation of 2-hr average surface
80s concentration field.
-------
MARCH 1074
c c sn i R A \ n
168
r F. n
diminution of the local high concentration near Granite
Cit}r. The local maximum concentration still occurs at
East St. Louis, but is displaced somewhat eastward. The
concentration levels at both St. Louis and East St. Louis
are of equivalent intensity as in the 2 February case
(Fig. lOa) even though source emissions have been
reduced 60%. From these three figures (lOa-c), as has
been discussed, there is no simple relation between the
surface concentrations and the local source-wind ratio,
Q/u, in these areas under the same wind direction. Thus,
even under the same persistent wind direction, the
variation of the wind speed can alter the concentration
pattern significantly.
We now investigate the effects of the wind direction
upon the concentration distributions. The next four
figures show the different concentration patterns which
result from various component winds; that for an cast
wind is given in Fig. lOd. The four major local maxima
appear clearly (as in the west-wind pattern of Fig. lOa),
except that the locations of the maxima are shifted
westward. This figure clearly demonstrates that the
variations of wind direction can change the concentra-
tion pattern completely. Thus, as has been discussed
already, the concentration distributions are greatly
influenced by atmospheric stability, wind speed and
direction orientation with respect to the source distri-
butions. Moreover, the concentrations in the downtown
ST. LOUIS S02 DISTRIBUTION FEB 1965
WIND= 4.0MPS 19. DEC TEMP= 0. C
S= -0.7 MIX HEIGHT= 813. M
Qfl= 4835. GPS QP= 10256. GPS
DflY= 8 HR= 14 MIN= 0
DfiTfl MINIMUM 0.0 MRXIHUN 694.00 PLOTTING INTERVRL 57.
FIG. lOc. Simulation of 2-hr average surface
SC>2 concentration field.
ST. LOUIS S02 DISTRIBUTION FEB 1965
WIND= 4.0MPS 76. DEC TEMP= 2. C
S= 0.6 MIX HE1GHT= 270. M
Qfl= 2732. GPS OP= 6023. GPS
OflV= 9 HR= 2 MIN= 0
OPTfl MINIMUM 0.16
PLOTTING INTEflVH. 57.
ST. LOUIS 302 DISTRIBUTION FEB 1965
WIND= 2.7MPS 274. DEC TEMP= -7. C
S= -1.8 MIX HEIGHT= 942. M
Qfl= 6249. GPS OP= 10899. GPS
DflY= 22 HR= 12 MIN= 0
OflTfl MINIMUM 0.0 MRXIMUM 1428.3 PLOTTING INTOWL 57.
FIG. lOd. Simulation of 2-hr average surface
SOj concentration field.
FIG. lOf. Simulation of 2-hr average surface
SOz concentration field.
-------
JOURNAL OF APPLIED M F, T R O R 0 1. O C, V
169
VOLUME 13
ST. LOUIS S02 DISTRIBUTION FEB 1965
WIND= H.SMPS 72. DEC TEMP= 0. C
H.SMPS 72. DEC TEMP=
0.4 MIX HEIGHT= 1000. M
Qg= mH9. GPS OP= 9332. GPS
OflT= 13 HR= 18 MIN= 0
OBT«! HIMIKUH 0.0
WWIHJM Ml. 16
PLOTTING INTCTVRL 57.
FIG. lOg. Simulation of 2-hr average surface.
SOz concentration field.
St. Louis area usually have greater values during
easterly than during westerly winds.
A case of no morning and evening peak concentra-
tions was reported on 8 February. Instead, a single peak
concentration appears at noon (Fig. 6). This phe-
nomenon is more pronounced for the station located on
the west side of the Mississippi River; the concentration
field is reproduced in Fig. lOe. Throughout this day,
the wind speed and source emission rate were held
quite constant, and the temporal variation in stability
was also small. The reason for this single peak concen-
tration in the daily variation can be attributed to two
factors. One is the rotation of wind direction from NW
in the morning to NE at noon. This tends to make
pollutants in the air remain in the urban area. The
major contributing factor was that the pollutants
emitted from the industrial area (located at Alton) were
transported to the metropolitan center. For all wind
directions, downtown St. Louis has the highest concen-
tration values under the northeast winds. JFig. lOe
clearly explains the reason. The contribution of in-
dustrial emissions to the concentration in the metro-
politan area were also reported for 3 February. How-
ever, during this day, the wind changed direction from
west to north, then back to west in the morning and
repeated the same pattern in the afternoon. The north
wind condition coincided with morning and evening
peak source emissions. The observed concentration
ST. LOUIS S02 DISTRIBUTION FEB 1965
WJND= 3.IMPS 189. DEC TEMP= 12. C
5= 0.14 MIX HEI&HT= 369. M
Qfl= 2115. GPS QP= 6293. GPS
DflY= 7 HR= 214 MIN= 0
MTR HIMIM* 0.0 fWUIMI 335.97 PLOTTING IN7CTIVH. 57.
FIG. lOh. Simulation of 2-hr average surface
SOi concentration field.
ST. LOUIS 502 ___
WIND= 5.8MPS 354. _„ .,...
5= 0.1 MIX HEIGHT= 300. M
Qfl= 1682. GPS QP= C'" —
OflT= 8 HR= 2 MIN=
OflTfl H1NIMH 0.0 HRXIIUI 3*9.11
FEB 19G5
IP= 7. C
ISTWT|P
Giei.'GPS
10TTIMG INTEnVfl. 57.
FIG. lOi. Simulation of 2-hr average surface
SOi concentration field.
-------
170
MARCH 1974
C . C . SHIR AND L . J S H IK H
values at most stations showed sharp peaks during
these hours.
Low wind speeds associated with a rapidly rotating
wind direction will have the effect of distributing
pollutants in a more circular pattern. This happened on
13 and 22 February. On these two days the wind
changed direction more than 180° in a very short
period; the resulting circular trajectory of the air had
a dramatic effect on the transport of the pollutants in
the atmosphere. This is illustrated in Figs. lOf and lOg
for 22 and 13 February, respectively. The former is for
an unstable atmosphere and the latter for a slightly
stable atmosphere. Apparently, atmospheric stability
has little effect on the distribution pattern when the
wind direction is changing rapidly. However, one still
can notice the effect of final wind direction on these two
figures. Our experience indicates that a steady-state
model is not able to reproduce the resultant concentra-
tion fields shown in Figs. lOf and lOg. It should be
noted that concentration values show a great temporal
variation from one station to' another due to the orienta-
tion of source-receptor locations and its relationship
with respect to wind direction. In some cases, a different
trend is reported [e.g., stations 28 and 36 on 22
February (Fig. 6)]. The comparison of computed
concentrations and observed data during these periods
is remarkable. This indicates that model computation
is able to respond to fast changing atmospheric condi-
tions. Thus, the concentration distributions also depend
on the history of the wind.
A cold front passed the St. Louis Metropolitan area
at 2400 LST 7 February. Figs. lOh and lOi show the
concentration fields before and after the frontal passage,
respectively. In a 2-hr period, the wind changed its
direction from southwest to northwest and picked up
speed. In the same period the ambient temperature
dropped from 12 to 7C, and eventually reached OC. All
stations reported a sharp decrease in concentration
during this period followed by rapid increase after
frontal passage (Fig. 6). The model is able to predict
this trend pattern. However, there is a slight time lag
in the observed minimum as compared with the com-
puted value. The reason is quite complicated. We tend
to agree that the disparity between the analyzed and
actual wind fields probably is a contributing factor.
Fig. lOh also represents a typical concentration field
for the St. Louis area under southwest winds.
f. Vertical distributions of concentrations
Very few up-to-date investigations have been made to
understand the vertical distribution of pollutants in an
urban atmosphere. While our model computes the three-
dimensional distributions of S02 concentration, un-
fortunately, there are no observational data to verify
its results. The following discussions are some phe-
nomenological conclusions indicated by the computa-
tional results.
Figs, lld-c show vertical cross sections (x-z plane)
of SO2 concentrations.
The chosen cross section which is located 19 source
grids from the bottom (see Fig. 1) passes through down-
town St. Louis. A summary of these cases is included
in Table 4. Fig. lla represents the vertical concentration
pattern parallel to the wind for medium-strength west
winds and an unstable atmosphere. Two distinct con-
centration maxima occurred east of the St. Louis and
East St. Louis areas. Large amounts of S02 were
dispersed up to the mixing height due to high turbulent
mixing under unstable conditions. The slopes of the
isopleths at downtown St. Louis are larger than those
at rural areas due to large urban roughness. The
high concentration and large slopes of the isopleths at
East St. Louis were caused by the elevated industrial
sources. Fig. lib is for a case of low west winds with a
stable atmosphere. Even with lower winds the slopes of
the isopleths are much smaller than those in the previous
Wind * 4.9 MRS 292 Deg., Temp. - -15°C, S - 0.25, Mixing Height - 540 M
540
500 -
1524m Inversion Base
Hwy -
67 B
i 1 "'—' ' ' i i> miu-vii i.i I
Hwy-I Downtown W East 600
67 St. Louis | St. Louis
Cnty-
Line
Miss.
River
X (unit of area source grid) —
FIG. lla. Simulation of hourly averaged SOj concentration field in the x-z plane.
-------
JOURNAL OF APPLIED METEOROLOGY
171
VOLUME 13
Wind = 2.2 MRS 302 Dog., Temp. = -4°C. S = 2.2, Mixing Height -- 700 M
. _„ . Inversion Base
1l-24 m ,
7001 i i i i | hi i i T,
600
Plotting Interval = 50^9/m3
Hwy
678
CntyJ Hwy * Downtown 'r East ^
Line 67 St. Louis ...' St. Louis
Miss.
River
X (unit of area source grid) —i
600
FIG. lib. Simulation of hourly averaged SOj concentration field in the x-z plane.
Wind - 3.1 MPS 358 Deg., Temp. - -10"C, S = 0.3, Mixing Height <= 400 M
1524m Inversion Base
400
67B
Cnty-I HwyJ Downtown M East ^600
Line 67 St. Louis I St. Louis
Miss.
River
X (unit of area source grid) —i
FlG. lie. Simulation of hourly averaged SOa concentration field in the x-z plane.
case due to low mixing under stable conditions. More-
over, the concentration distributions in both cases are
not similar, even though they both are for the same
wind direction. The local concentration maxima occur
on the surface in the former case but not in the latter.
The elevated local maximum at East St. Louis in the
latter case is due to low mixing in the stable air flow;
thus, the plumes from the elevated sources are dispersed
slowly. Thus, the vertical concentration distribution
along the wind direction is influenced by roughness,
stability, and the source position. 'Fig. lie shows the
erosswind concentration pattern under low north winds
and unstable atmospheric conditions. The local concen-
tration maximum was displaced westward due to the
different wind direction. The concentrations at down-
town St. Louis are largely increased due to the low
mixing height and unstable conditions..
From these three figures, it is clear that the vertical
concentration distribution of pollutants is neither
uniform nor similar in the mixing layer. The hypothesis
of constant concentration in the vertical is only achieved
(approximately) at a far distance from major source
emissions and under unstable atmospheric conditions.
The slope of the isopleths on the upwind edge is related
to atmospheric stability. Horizontal wind speed has no
appreciable effect. Other parameters that might affect
this slope are change in surface roughness and spatial
distribution of source emission. These figures indicate
that the vertical concentration distributions are as
irregular as horizontal concentration distributions.
Thus, no obvious simplification can be made. Such an
attempt requires further investigation.
6. Conclusions and recommendations
The findings of this investigation provide some in-
sight into the relationship between concentrations and
-------
172
MARCH 1971
C. C. SHIR AND L. J. SHIEH
sources and their dependence on various parameters.
The results also indicate the capabilities and limitations
of the modelling approach. The main attractiveness of
this model is its rather consistent performance under the
various conditions which occurred within the 25-day
lest period. Consistent performance of the model was
especially satisfactory for both strong and light wind
conditions. Similar performance was noted for sudden •
changes of wind directions. This is an improvement
over the Gaussian plume model tested for the same
time period. In addition, its major advantages are a
large flexibility in handling cases with arbitrary distri-
butions of sources with varying emission rates, with
spatial and temporal variations of wind (including
vertical wind), eddy diffusion coefficients, stability, and
mixing height. It also can deal with spatially varying
surface roughness and topographical conditions as well
as nonlinear chemical reactions. With growing availa-
bility of data and the advance in the understanding of
urban meteorology, atmospheric turbulence and
chemical reactions of pollutants, the full potential of
the model will be more appreciated in the near future.
On the other hand, its current disadvantages are
those of neglecting microscale variations of pollutants
from concentrated sources, and the detailed urban
effects upon the pollutant dispersion. The shortcomings
of the numerical method are the constraints of the
integration time step required by the stability, accuracy
criteria, and the inevitable numerical errors. The latter
does not appear to be a severe limitation. The newly
developed methods (Gazdag, 1972; Orszag, 1971) can
provide very accurate numerical results. This method
can be applied whenever the accuracy requirement is
such that the errors from the current method can no
longer be tolerated. More efforts are needed in grid
resolution improvement by introducing a subgrid model.
In addition, the effect of the urban area on creating a
non-equilibrium atmospheric turbulent structure needs
further investigation. This kind of study may give more
information on the turbulence diffusion, vertical air
motion, and spatial variation of atmospheric stability
and mixing height over the urban area. Improvements
on the input data are also necessary. The estimated
diurnal varying emission rates which are governed by
the ambient air temperature seem to be inaccurate
during the early periods of unseasonably warm or cold
spells. Improvement may be made by considering the
effects of the history of the air temperature upon the
emission rates. The site of the monitoring station
should be selected carefully so that the measurements
are free from local influences and therefore provide a
better representation of the ambient air quality. The
applicability of the bulk Richardson number and the
horizontal wind fluctuations to determine the atmo-
spheric stability requires further study. With respect to
the procedures for handling the vast amounts of input
and output data, some auxiliary programs are needed.
Continuous graphic displays of the data and various
statistics arc very useful in understanding the complex
phenomena which result from such an immense amount
of data. After all, any attempt at research modeling
should first aim toward understanding the overall
phenomenon rather than emphasizing the simplicity
and convenience of the model.
Acknmdeilgmenls. The authors sincere!}' thank
Messrs. Bruce Turner, John Zimmerman and Dr.
James L. McElroy of 1C PA for their cooperation in
providing the basic data in this study. The authors are
grateful to Mr. Paul K. Halpern and Drs. John A.
Barker and William E. Langlois for proofreading the
manuscript.
REFERENCES
Businger, J. A., et til., 1971: Flux-profile relationships in the
atmospheric surface layer. /. Atnnis. Sci., 28, 181-189.
Farmer, J. R., and J. D. Williams, 1966: Air quality measurement:
Interstate air pollution study, Phase II, Vol. Ill, of Project
Report. National Center for Air Pollution Control, PHS,
Cincinnati, Ohio.
Frcnkiel, I1'. N., 1956: Atmospheric pollution and zoning in an
urban area. Sci. Monthly, 82, No. 4, 194-203.
Gazdag, J., 1972: Numerical conveclive schemes based on ac-
curate space derivatives. Sci. Rept. 320-3305, IBM Scientific
Center, Palo Alto, Calif.
Gilford, !•'. A., Jr., and S. R. Hanna, 1970: Urban air pollution
modeling. Paper ME-32D presented at Second Intern. Clean
Air Congress, IUAPPA.
Colder, D., 1972: Relations among stability parameters in the
surface layer. Boundary-Layer Meteor., 3, 47-57.
Harrington, B., Jr., 1965: Atmospheric diffusion of ragweed
pollutant in urban area. Final Report, Grant AP 00006,
University of Michigan, Ann Arbor.
lordanov, D. L.; 1966: On diffusion from a point source in the
atmospheric surface layer. I mo. A linos. Oceanic Phys., 2,
576-584.
Johnson, W. B., V. L. Ludwig and A. K. Moon, 1970: Develop-
ment of a practical multi-purpose urban diffusion model for
carbon monoxide. 1'roc. Synip. Multiple-Source Urban Diffu-
sion Models, A. C. Stein, Ed., APCO Publ. No. AP-86,
Research Triangle Park, N. C.
Lamb, R. G., and M. Neiburger, 1971: An interim version of a
generalised urban air pollution model. Almos. Environ., 5,
239-264.
Lcahey, D. M., 1972: An advective model for predicting air
pollution within an urban heal island with application to
New York City. /, Air Polliil. Control Assoc., 22, 548-555.
Leighton, P. A., 1961: Photochemistry of Air Pollution. New York,
Academic Press, 300 pp.
Letlau, H. H., 1970: Physical and meteorological basis for
mathematical models of urban diffusion processes. Proc.
Symp. Multiple-Source Urban Diffusion Models, A. C. Stern,
Ed., APCO Publ. No. AP-86, Research Triangle Park, N. C.
MacCracken, M. C., T. V. Crawford, K. R. Peterson and J. B.
Knox, 1972: Initial application of a multi-box air pollution
model to the San Francisco bay area. Proc. Joint Automatic
Control Con/., Stanford University, Stanford, Calif.
McElroy, J. L., and F. Pooler, Jr., 1968: St. Louis dispersion
study, Vol. I—Instrumentation, Procedures, and Data Tab-
ulations; Vol. II—Analysis. Nat. AirPollut. Control Admin.,
PHS, Washington, D. C.
Moses, H., 1969: Mathematical urban air pollution models.
Paper 69-31 presented at the 62nd Annual Meeting, Air
Pollut. Control Assoc., Pittsburgh, Pa.
-------
173
JOURNAL OF APPLIED METEOROLOGY
VOLUME 13
Neiburger, M., 1971: Meteorological aspects of air pollution and
simulation models of diffusion, transport and reactions of air
pollution. Project Clean Air Kept., Dept. of Meteorology,
UCLA, Los Angeles.
Orszag, S. A., 1971: Accuracy of numerical simulation of in-
compressible flows. /. Fluid Mech., 49, 75-112.
Pasquill, F., 1962; Atmospheric Diffusion. London, Van Nostrand,
297 pp.
Pelton, D. J., el al., 1972: Validation and sensitivity analysis of
the Gaussian plume multiple-source urban diffusion model.
APTD-0935, Office of Air Program, EPA, Research Triangle
Park, N. C.
Randerson, D., 1970: A numerical experiment in simulating the
transport of sulfur dioxide through the atmosphere. Atmos.
Environ., 4, 615-632.
Reynolds, S. D., M. K. Liu, T. A. Hecht, P. M. Roth and J. H.
Seinfeld, 1973: Further development and evaluation of a
simulation model for estimating ground level concentrations
of photochemical pollutants. l?inal Report, EPA Contract
68-02-0339, Systems Applications, Inc., Beverly Hills, Calif.
Ritchmyer, R. D., and K. W. Morton, 1967: Difference Methods
for Initial Value Problems. New York, Interscience, 405 pp.
Roberts, J. J., E. J. Crake and A. S. Kennedy, 1970: An urban
atmospheric dispersion model: Proc. Symp. Multiple-Source
Urban Diffusion Models, A. C. Stern, Ed., APCO Publ. No.
AP-86, Research Triangle Park, N. C.
Rounds, W., Jr., 1955: Solution of the two-dimensional diffusion
equation. Trans. Amer. Geopkys. Union, 36, 395-405.
Shieh, L. J., P. K. Halpern, B. A. Clemens, H. H. Wang and F. F.
Abraham, 1972: Air quality diffusion model: Application to
New York City. IBM J. Res. Develop., 16, 162-170.
Shir, C. C., 1970: A pilot study in numerical techniques for
predicting air pollutant distribution downwind from a stack.
Atmos. Environ., 4, 3&7-4Q7.
-—, 1972a: Numerical investigation of the atmospheric dis-
persion of stack effluents. IBM J. Res. Devel., 16, 172-179.
, 1972b: A numerical computation of air flow over a sudden
change of surface roughness. J. A linos. Sci., 29, 304-310.
, 1973: A preliminary numerical study of atmospheric
turbulent flows in the idealized planetary boundary layer.
/. Atmos. Sci., 30, 1327-1339.
Sklarew, R. C. et al., 1972: Mathematical modeling of photo-
chemical smog using the PICK method. /. Air Pollut.
Control Assoc., 22; 865-869.
Turner, D. B., 1964: A diffusion model for urban areas. /. Appl.
Meteor., 3, 83-91.
, 1968: The diurnal and day-to-day variations of fuel usage
for space heating in St. Louis, Missouri. Atmos. Ennron., 2,
339-351.
, 1969: Workbook of atmospheric dispersion estimates. PHS
Publ. No. 999-AP-26.
, and N. G. Edmisten, 1968: St. Louis SOj dispersion model
study—Description of basic data. Unpubl. report, Air Pollu-
tion Office, EPA, Durham, N. C.
Venezia, R., and G. Ozolin, 1966: Air pollutant emission inven-
tory: Interstate Air Pollution Study, Phase II, Vol. II, of
Project Report. National Center for Air Pollution Control,
PHS, Cincinnati, Ohio.
Wendell, L. L., 1970: A preliminary examination of mesoscale
wind fields and transport determined from a network of
wind towers. NOAA Tech. Memo. ERLTM-ARL25, Silver
Spring, Md.
Wilson, W. E., Jr., and A. Levy, 1968: A study of sulfur dioxide
in photochemical Smog. Rept., Battelle Memorial Institute,
Columbus, Ohio.
-------
6. Finite Difference Scheme for the Horizontal
Advection terras of the Concentration Equation.
-------
175
Finite difference scheme for the horizontal
advection terms of the concentration equation.
We shall consider an equation
3c 3uc 3vc
3t ~ " — " 37"
and grids layout as shown in Figure A-l. The notation used
in Part I of this report is retained in this section.
We propose that the solution of equation (A-l) is to be
approximated by a second order, central finite difference
scheme with the application of the flux corrections. A
time splitting method* will be employed to compute two terms
on the right-hand side of equation (A-l).
Refer to Figure A-l, the rate of change of the mass (concen-
tration value c) at grid point (i,j) is depended on the fluxes
cross through the edge surfaces at a, b, c and d. Note that
the grid cell represented by the grid point (i,j) has the size
of *z(Ax. + Ax.^) and % (Ay. + Ay. -^ in x and y direction
respectively. The following discussions apply to non-uniform
grid spacings.
*It is also called "fractional-step method" or "splitting-up
method." It is a method to replace a multidimensional
problem by a succession of one-dimensional problems. (See
Chapters 3 and 4 of "Numerical Methods in Weather Prediction"
by G. I. Marchuk, Academic Press, New York, 1974.)
-------
(i/j+i)
t-
I (i,j+'-;) |
I
I
I i
ax
1
L
Ax._,
t
(ij)
t
176
Figure A-I Grids lavout
-------
177
Expand C with respect to time at grid points (i,j) in a
Taylor's series, we have
n+l
n 3c
ij + 9t
(fit) +
92c
(6t)
+ O (St)3 (A-2)
Applying equation (A-l) and assuming u and v do not vary in
a time step, (this is relevent to our problem because u and v
change every hour) equation (A-2) becomes
"±D ij - \ 9x 9y
, (6t)2/ 9 9uc
n
9uc , 9 ,9vc \
UH~ + 97 V9y~j
(fit)2/ 9
( fe "
9_
9y
n
n
ij
(A-3)
or
n+1
ij
.
2 ' 9 9vc
U?
9y
Gross terms
9 Sue
9y V9x
(A-4)
where
A n
= - fit
= - fit
9uc
9x
9vc
9y
n + (<
ij
11 +1
ij
St) 2 /9
—fT- I -5 U
St) 2 / 9
~T~ ( 9"y" V
9uc \
3vc\
ay"/
ii
ij ?
n
ij
(A-5)
(A-6)
-------
178
The cross terms in equation (A-4) can be approximated by a
time splitting method. If we assume that the computation of
the new concentration value at grid point (i,j) is performed
as follows:
,n
,n
C. . = CV. + U[CV.]
ID ID ID
(A-7a)
and
n-t-1 * *
C.. - C. . + V.[C. .]
(A-7b)
It can be shown that
cn+1 = cj. + U[cJ.]
.
ID
(6t)2 - v
0 [(6t)3]
n
(A-8)
A A
By reversing the order of computation of U, I' in equation
(A-7), we have
.
0 [(6t) 3]
n
(A-9)
Equations (A-8) or (A-9) shows that the computational method
based on equations (A-7a) and (A-7b) is a good approximation
for equation (A-4), if velocity field has a small spatial
variation. Thus, equation (A-4) can be represented by
-------
179
The finite difference approximation for equation (A-5) is to
evaluate the fluxes across the edge surface at a and c shown
in Figure (A-l) . Thus,
' At
A(Ax±
(A-ll)
where U = U . . j. . and U = U. l .. By applying equation (18c)
a i+'2/j c i""2/D
in Section I-2-C-b, equation (A-ll) can be rewritten as
A A A^
(/[C1?.] = F [Cn.] - F [C1?.]
1] X 13 X I}
(A-12)
1
F [C1?.] have the same expressions as
XI]]
where F [C.] and
X 1 3
equations (18a) and (18b) in Section I-2-C-b. Similarly,
the finite difference approximation for equation (A-6) is
A A A^
l/[Cn.] = F [C1?.] - F [C1?.]
ID yl i:J yl i]J
(A-13)
-------
180
The flux correction method is applied to compute equations
(A-12) and (A-13) . For x direction advection, the flux
correction method is defined as
where
and
1 - *xKj - F'
= mn
±_Lf . , Fx) , if «xi > 0
min (CL. , Px) , if axi < 0 ,
it
= min
(A-16a)
Similar treatment is applied to y direction advection. Thus
the finite difference formula for equation (A-l) is
Utcjj] + l/[C*.j (A-17)
-------
TECHNICAL REPORT DATA
(Please read Instructions on the reverse before completing)
1. REPORT NO.
EPA 600/4-75-005b
3. RECIPIENT'S ACCESSIOf*NO.
I. TITLE AND SUBTITLE
DEVELOPMENT OF AN URBAN AIR QUALITY SIMULATION MODEL
WITH COMPATIBLE RAPS DATA: VOLUME II
5. REPORT DATE
May 1975
6. PERFORMING ORGANIZATION CODE
'. AUTHOR(S)
C. C. Shir and L. J. Shieh
8. PERFORMING ORGANIZATION REPORT NO.
9. PERFORMING ORGANIZATION NAME AND ADDRESS
IBM Research Laboratory
San Jose California 95193
IBM Scientific Center, Palo Alto, Calif. 94304
10. PROGRAM ELEMENT NO.
1AA003
11. CONTRACT/GRANT NO.
68-02-1833
12. SPONSORING AGENCY NAME AND ADDRESS
Environmental Protection Aqency
Environmental Research Center
Research Triangle Park, N.C. 27711
13. TYPE OF REPORT AND PERIOD COVERED
Final Report 7/1/74^/30/75
14. SPONSORING AGENCY CODE
15. SUPPLEMENTARY NOTES
Issued as Volume II of 2 Volumes
16. ABSTRACT
An advanced generalized urban air quality model (IBMAQ-2) is developed based on the
theory utilized in an existing model (IBMAQ-1) as prescribed in Ref. 1. The model,
based on numerical integration of the- concentration equation, computes temporal and
three-dimensional spatial concentration distributions.resulting from specified
urban point and area sources by using NEDS (National Emission Data System) and
simulated RAMS (Regional'Air Monitoring System) data. The UTM (Universal Transverse
Metric) coordinates are used in all- geographical, source .emission,, and monitoring
data. A new menthod to incorporate point sources into the .grid computation is
developed by using a Lagrange trajectory method. Many model options are provided w
which enable users to study conveniently the significant effects which these options,
have on the final concentration distribution
The program description is included to provided a guide for users. The program is
constructed in a modular form which allows users to change or improve each componet
conveniently. The input auxiliary model, which processes geographical, source
emission, and monitoring data, is alos included.
17.
KEY WORDS AND DOCUMENT ANALYSIS
DESCRIPTORS
b.lDENTIFIERS/OPEN ENDED TERMS
COSATI Field/Group
Air Pollution
Boundary Layer Modeling
Mathematical Modeling
8. DISTRIBUTION STATEMENT
UNLIMITED
19. SECURITY CLASS (This Report)
UNCLASSIFIED
21. NO. OF PAGES
20. SECURITY CLASS (Thispage)
UNCLASSIFIED
22. PRICE
EPA Form 2220-1 (9-73)
-------
INSTRUCTIONS
1. REPORT NUMBER
Insert the EPA report number as it appears on the cover of the publication.
2. LEAVE BLANK
3. RECIPIENTS ACCESSION NUMBER
Reserved for use by each report recipient.
4. TITLE AND SUBTITLE .
Title should indicate clearly and briefly the subject coverage of the report, and be displayed prominently. Set subtitle, if used, in smaller
type or otherwise subordinate it to main title. When a report is prepared in more than one volume, repeat the primary title, add volume
number and include subtitle for the specific title.
5. REPORT DATE
Each report shall carry a date indicating at least month and year. Indicate the basis on which it was selected (e.g., date of issue, date of
approve!, date of preparation, etc.).
6. PERFORMING ORGANIZATION CODE
Leave blank.
7. AUTHOR(S)
Give name(s) in conventional order (John R. Doe, J. Robert Doe, etc.). List author's affiliation if it differs from the performing organi-
zation.
8. PERFORMING ORGANIZATION REPORT NUMBER
Insert if performing organization wishes to assign this number.
9. PERFORMING ORGANIZATION NAME AND ADDRESS
Give name, street, city, state, and ZIP code. List no more than two levels of an organizational hirearchy.
10. PROGRAM ELEMENT NUMBER
Use the program element number under which the report was prepared. Subordinate numbers may be included in parentheses.
11. CONTRACT/GRANT NUMBER
Insert contract or grant number under which report was prepared.
12. SPONSORING AGENCY NAME AND ADDRESS
Include ZIP code.
13. TYPE OF REPORT AND PERIOD COVERED
Indicate interim final, etc., and if applicable, dates covered.
14. SPONSORING AGENCY CODE
Leave blank.
15. SUPPLEMENTARY NOTES
Enter information not included elsewhere but useful, such as: Prepared in cooperation with, Translation of, Presented at conference of,
To be published in, Supersedes, Supplements, etc.
16. ABSTRACT
Include a brief (200 words or less) factual summary of the most significant information contained in the report. If the report contains a
significant bibliography or literature survey, mention it here.
17. KEY WORDS AND DOCUMENT ANALYSIS
(a) DESCRIPTORS - Select from the Thesaurus of Engineering and Scientific Terms the proper authorized terms that identify the major
concept of the research and are sufficiently specific and precise to be used as index entries for cataloging.
O) IDENTIFIERS AND OPEN-ENDED TERMS - Use identifiers for project names, code names, equipment designators, etc. Use open-
ended terms written in descriptor form for those subjects for which no descriptor exists.
(c) COSATI FIELD GROUP - Field and group assignments are to be taken from the 1965 COSATI Subject Category List. Since the ma-
jority of documents are multidisciplinary in nature, the Primary Field/Group assignment(s) will be specific discipline, area of human
endeavor, or type of physical object. The application(s) will be cross-referenced with secondary Field/Group assignments that will follow
the primary posting(s).
18. DISTRIBUTION STATEMENT
Denote releasability to the public or limitation for reasons other than security for example "Release Unlimited." Cite any availability to
the public, with address and price. ,
19. &20. SECURITY CLASSIFICATION
DO NOT submit classified reports to the National Technical Information service.
21. NUMBER OF PAGES
Insert the total number of pages, including this one and unnumbered pages, but exclude distribution list, if any.
22. PRICE
Insert the price set by the National Technical Information Service or the Government Printing Office, if known.
EPA Form 2220-1 (9-73) (Reverse)
-------
| |