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
-------
                                                                                   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)  
-------
                                                                              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,yio,  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)

-------