United States
Environmental Protection
Agency
Office of Air Quality
Planning and Standards
Research Triangle Park NC 27711
EPA-450/3-78-040
August 1978
Air
&EPA
Carbon Monoxide
Hot Spot Guidelines
Volume VI: User's
Manual for the
Modified ISMAP
Model
-------
EPA-450/3-78-040
Carbon Monoxide Hot Spot Guidelines
Volume VI: User's Manual
for the Modified ISMAP Model
by
Frank Benesh
GCA Corporation
GCA/Technology Division
Burlington Road
Bedford, Massachusetts 01730
Contract No. 68-02-2539
EPA Project Officer: George J. Schewe
Prepared for
U.S. ENVIRONMENTAL PROTECTION AGENCY
Office of Air, Noise, and Radiation
Office of Air Quality Planning and Standards
Research Triangle Park, North Carolina 27711
August 1978
-------
This report is issued by the Environmental Protection Agency to report
technical data of interest to a limited number of readers. Copies are
available free of charge to Federal employees, current contractors and
grantees, and nonprofit organizations - in limited quantities - from the
Library Services Office (MD-35), U.S. Environmental Protection Agency,
Research Triangle Park, North Carolina 27711; or, for a fee, from the
National Technical Information Service, 5285 Port Royal Road, Springfield,
Virginia 22161.
This report was furnished to the Environmental Protection Agency by
CCA Corporation, CCA/Technology Division, Burlington Road, Bedford,
Massachusetts 01730, in fulfillment of Contract No. 68-02-2539. The contents
of this report are reproduced herein as received from CCA Corporation.
The opinions, findings, and conclusions expressed are those of the author
and not necessarily those of the Environmental Protection Agency. Mention
of company or product names is not to be considered as an endorsement
by the Environmental Protection Agency.
Publication No. EPA-450/3-78-040
ii
-------
ABSTRACT
A modified version of the ISMAP model has been developed for the analysis
of carbon monoxide hot spot locations. The original version of ISMAP (indirect
Source Model for Air Pollution) was developed by Stanford Research Institute
to be used in the evaluation of indirect source impact upon ambient carbon
monoxide concentrations. Due to the size and complexity of the original ver-
sion of the model, the modifications were made without changing the basic
structure of the program. Since the analysis of parking lot traffic and emis-
sions was an integral part of the original model structure, it was left in the
modified version, but the code was modified to negate their effect upon traf-
fic flow and air quality. In the modified ISMAP, internal zones (indirect
sources) are used together with external zones to generate flow within a traf-
fic network. This modified version of the model sets parking lot emissions
equal to zero and provides a near infinite parking lot capacity so that vehicle
routing between internal zones will not occur because of parking lot over-
crowding. Other modifications made to ISMAP include the incorporation of a
street canyon submodel. Version 2 of modified ISMAP utilized the most recent
(1978) motor vehicle emission correction factors and modal analysis model
coefficients and deterioration. In other aspects, it is unchanged from
Version 1, written by Michael T. Mills.
111
-------
PREFACE
This document is the sixth in a series comprising the Carbon Monoxide Hot
Spot Guidelines. The purpose of this series is to provide state and local
agencies with a relatively simple yet accurate procedure for assessing
carbon monoxide hot spot potential on urban street networks. Included
in the Hot Spot Guideline series are:
Volume I: Techniques
Volume II: Rationale
Volume III: Summary Workbook
Volume IV: Documentation of Computer Programs to Generate Volume I
Curves and Tables
Volume V: Intersection-Midblock Model User's Manual
Volume VI: Modified ISMAP User's Manual
Volume VII: Example Applications at Waltham/Providence/Washington, D.C.
IV
-------
CONTENTS
Abstract ill
Figures vi
Tables vii
1. Introduction 1
2. Model Description 3
3. Program Documentation 19
4. Input Data Specification 36
5. Sample Application 54
_6. Use of the Modified ISMAP Model in Conjunction with APRAC 70
Appendix A. Program Listing..... 74
References 221
v
-------
FIGURES
Number Page
1 ISMA.P flow diagram 4
2 Flow chart of vehicle flow model 5
3 Simple model of intersection delay 7
4 Flow diagram of link emission calculations 10
5 Flow diagram of link dispersion calculations 13
6 Schematic of cross-street circulation between buildings 16
7 Specification for leeward and windward cases on the basis of
receptor location, street orientation, and wind direction .... 17
8 Route vehicles model flow diagram 21
9 Signalized intersection model flow diagram 24
10 Parking model flow diagram 27
11 Subroutine DISPERS flow diagram 30
12 Diagram for test case of modified ISMkP 55
vi
-------
TABLES
Number Page
1 Estimates of Pasquill-Turner Stability Categories for Urban
Areas Computed From Airport Weather Observations 12
2 Modified ISMAP Basic Input Information Cards 0 Through 10
(Data Read in by Subroutine INPT) 37
VII
-------
ACKNOWLEDGMENTS
We wish to acknowledge the significant contributions made early
in the development of the Modified-ISMAP Model by previous GCA/
Technology Division staff members, including Dr. Michael Mills
and Mr. Victor Corbin. We are also indebted to the EPA Project
Officer, Mr. George Schewe and to Ms. Nancy Mayer of the Source
Receptor Analysis Branch, Who performed technical and editorial
Review of the final reports and computer programs. We also thank
SRI International for the use of ISMAP and Mr. Erik Sieurin of the
Source Receptor Analysis Branch for his computer assistance in
updating and finalizing the model.
Vlll
-------
SECTION 1
INTRODUCTION
This manual describes a version of the Stanford Research Institute ISMAP
Model, which has been modified by GCA/Technology Division for the evaluation
of carbon monoxide hot spot locations. The purpose of the original version of
ISMAP (Indirect Source Model for Air Pollution)! was the analysis of the effect
of indirect sources such as shopping centers and sports stadiums upon ambient
carbon monoxide concentrations in the surrounding area. In modifying the
model for application to hot spot analysis, GCA has de-emphasized the role of
parking lots while leaving the zone attractions still in the model. Also,
street canyon simulation and an emission factor correction routines have been
added. The basic structure of the model was, however, not altered. It still
provides a convenient mechanism for evaluation of the effects of changes in
traffic patterns, zone attractions, signal parameters and roadway character-
istics upon carbon monoxide concentrations at selected points.
The basic driving force in the ISMAP model are the trip attractions and
productions and their specified distribution among exterior and interior
traffic zones. Interior zones are considered to be parking areas surrounded
by links of the network. An exterior zone is defined to be an exterior street
by which vehicles enter or leave the network. Travel from the network to any
interior zone is required to take place through a gate, defined by two links
in the network. Based upon link capacities, link to link connections, inter-
section control type and intersection approach capacities, minimum travel
times are calculated for each gate-link combination. This information is in
turn used to determine the number of vehicles traveling between an external
and internal zone over a number of alternative routes. The program has the
capability of handling traffic volumes not generated by zone attractions.
Once the link traffic volumes have been generated by the program, average
queue lengths and delay times for each intersection approach are determined o
based upon signalization parameters. By use of the EPA Modal Analysis Model,
emission rates for cruising, idling and acceleration-deceleration are assigned
to the appropriate sections of the traffic links. These emissions together
with hourly meteorological data are input to a line source diffusion model
for calculation of hourly carbon monoxide concentrations at selected receptor
locations.
Three primary revisions or additions were made by GCA to change the focus
of ISMAP from indirect source review to hot spot analyses. These included:
(1) removal of parking lots in terms of their effects on emissions and traffic
-------
flow while still retaining the concept of interior zones, (2) the use of new
emission factors, and (3) the incorporation of a street canyon submodel.
In the version of ISMAP developed by GCA, the distinction between internal
zones and external zones has been removed, so that internal zones no longer
serve as parking lots but simply serve to attract and produce vehicle trips,
as do the external zones. The only distinction that remains between internal
and external zones is the numbering system that is used to designate each.
Emission factor correction capabilities have been added to permit the
user to account for local conditions such as vehicle-age distribution, vehicle-
type mix, ambient temperature, region, inspection-maintenance, and percentages
of vehicles operating in the cold or hot start mode. These correction factors
are computed within the program utilizing the user's specific input parameters,
and are applied automatically. The subroutine from which the correction factors
are derived was developed from MOBILEl.l^
The user also has the option of utilizing a street canyon diffusion model
for analyzing receptors located in street canyons. The particular subroutine
available is from the APRAC diffusion model.
One additional modification to the original ISMAP model that was made by
GCA was to convert the program code from CDC (Control Data Corporation) FORTRAN
to a FORTRAN code compatible with all other computer systems (IBM, UNIVAC,
etc.), thereby enhancing the program and increasing its availability.
In the next section of this manual we shall describe in more detail the
modified version of ISMAP. This will be followed in Section 3 by a documen-
tation of the individual subroutines in ISMAP. Much of the material for these
two sections has been extracted from the original SRI ISMAP User's Manual.
The remaining sections contain input data specifications, sample model appli-
cation, discussion of the use of the program in conjunction with APRAC-LA, a
source listing of the program and finally a list of references.
-------
SECTION 2
MODEL DESCRIPTION
The model incorporates three logical submodels for the simulation of
(1) traffic flow, (2) vehicle emissions, and (3) pollutant dispersion that,
when operated sequentially, produce estimates of air pollution on a fine
scale. The functions of the three submodels of ISMA.P, and their component
subroutines, are described in this section and are illustrated diagrammatically
in Figure 1.
TRAFFIC FLOW ANALYSIS
The traffic flow submodel is rerun for each time period that is specified
(see flow chart, Figure 2). A time period is specified as an input parameter
and a situation is modeled during this time. Accumulations of vehicles in
interior zones and queues on streets are retained and during subsequent time
periods these act as initialization data for the subsequent iteration. When
running a second time period, a new time of day, day of week, number of trip
attractions, and number of trip generations must be specified.
Vehicles will select routes between interior and exterior zones that tend
to minimize travel time. ISMAP does fine-scale routing of traffic in two steps
In the first step alternative routes from each origin zone to each destination
zone are selected. This is done by finding the minimum travel time and route
from each zone to each entrance/exit gate and the minimum travel time from
each gate to each destination zone. In this process a route is generated be-
tween each origin and destination zone and. through each gate. Additional
routes are generated to a second alternate access link to each interior zone.
The four alternative routes that show the minimum travel time are selected
from this set.
The second step in the fine-scale routing of traffic is to reassign
vehicles to alternate routes between each origin and destination zone. The
number of vehicles (v) routed through gate (g) is directly proportional to
gate capacity (Cg) and indirectly proportional to the total number of vehicles
using the gate (V_) and the total vehicle trip travel time (TTe), i.e.:
o o
v , K . -- . x (1)
-------
r
( Start J
Input Link, Zone,
I ntersection.
Emission, Receptor,
Diffusion, and Trip
Generation
Parameters
I
Assign Trips
to the
Network
/ s s s s s
Model Intersection///
Delay and ///
Queue Lengths
Model Parking Lot
Running Time,
Queueing,
and Speeds
Emissions on
Links and in
Parking Zones
Determine Air
Quality at
Receptor Locations
Due to Parking
Other Zone
Emissions
Traffic Submodel
fftfl Emissions Submodel
Dispersion Submodel
Determine Air
Quality at
J Receptor Locations
Due to Link
Emissions
Print Predicted
CO Levels at
Receptor Locations
End or Repeat
Procedure for
Subsequent Time
Period
SA-3628-2
Figure 1. ISM&.P flow diagram.
-------
READ INPUT PARAMETERS.
ON ITERATIONS 2 THRU N.
ONLY THOSE PARAMETERS
THAT CHANGE MUST BE READ
CALL ZAREA TO COMPUTE THE
AREA OF EACH PARKING ZONE
FOR WHICH A PARKING CAPACITY
WAS NOT ASSIGNED
INITIALIZE TRAVEL TIME FOR
EACH LINK OF THE NETWORK.
AND VOLUME TO CAPACITY RATIOS
AT EACH ENTRANCE AND EXIT
TO THE INDIRECT SOURCE
^
!
COMPUTE THE NUMBER OF VEHICLES DESIRING
TO TRAVEL BETWEEN EACH EXTERIOR AND INTERIOR
ZONE OF THE INDIRECT SOURCE. WHEN THE
PARKING CAPACITY OF AN INTERIOR ZONE IS
EXCEEDED ASSIGN EXCESS VEHICLES TO THE
INTERIOR ZONE WITH THE HIGHEST POTENTIAL
FOR ATTRACTING TRIPS AND WHICH IS WOT
FILLED TO CAPACITY.
0
CALL ROUTEV TO ROUTE VEHICLES
ONTO FOUR ALTERNATE ROUTES BETWEEN
EACH EXTERIOR AND INTERIOR ZONE.
THE FOUR ROUTES ARE THE MINIMUM
TIME ROUTES WHICH USE UNIQUE
ENTRANCE AND EXIT GATES OR TERMINATION
LINKS THE NUMBER OF VEHICLES
ASSIGNED TO EACH ROUTE IS INDIRECTLY
PROPORTIONAL TO TRAVEL TIME AND THE
VOLUME TO CAPACITY RATIO OF THE
INCLUDED GATE.
CALL INSEC TO COMPUTE INTERSECTION
DELAYS, QUEUE LENGTHS AND NUMBER OF
STOPS DURING THE ITERATION TIME PERIOD
CALL PAHKZ TO COMPUTE THE RUNNING TIME
OF VEHICLES USING EACH PARKING ZONE
SAVE AVERAGE LINK SPEEDS. DELAYS. QUEUE
LENGTHS. VOLUMES AND NUMBER OF STOPS.
AND SAVE PARKING ZONE RUNNING TIMES AND
VOLUMES FOR USE BY EMISSION AND
DIFFUSION MODELS
SA-33£4-6b
Figure 2. Flow chart of vehicle flow model.
-------
where T is the total trips being made between the origin and
destination zone; and
K is a constant insuring that the sum of the v's is equal
to T.
Traffic is assigned to the alternate routes on the basis of time and
capacity; the resulting travel times and other measures of effectiveness, such
as stops, delay, queue length, and flow, are then calculated. The delays at
each intersection are calculated by a subroutine that models an intersection
on the basis of traffic flow and physical characteristics. The outputs of
the subroutine are average vehicle delay and average queue length for each
approach and turning movement at the intersection.
The method of computing delay at a signalized intersection is based on an
approximate method of computing delays and queues3 in which the discrete nature
of the cars is disregarded in favor of considering traffic as a continuous
fluid, which arrives at a uniform rate (q) , is dammed for a time (R), and is
then released at a rate (s) until the dam is empty. Traffic therefore moves
out of the intersection at the arrival rate (q) provided the green time (G)
is long enough.
In Figure 3, the variable v(t) is the vehicle arrivals over time t. The
total delays for all vehicles during any time interval are represented by the
area bounded by the arrival and departure flow rates. The average delay (d)
per vehicle is :
__ s . R2
d ~ 2 • (R + G) • (s - q) ' (2)
Actually, vehicles rarely arrive at a uniform rate but tend to arrive in
random small groups. In the model, a Poisson distribution has been assigned
to this characteristic, and, when such arrivals occur, queues of vehicles form
waiting to be serviced by the intersection. A second element of delay (i.e.,
queueing delay) must be added to the basic delay (d) caused by the gating of
vehicles. This delay is based on the average queue length (Q), which is given
by the equation:
-')
(3)
Then the average delay per vehicle is the delay due to the gating effect of the
signal plus the time spent waiting in the queue of length Q, which is being
serviced at a rate (s • G)/(R + G). Combining the delay per queued vehicle
(which is the reciprocal of the service rate) with Equation 3 and combining
this result with Equation 2, the average delay per vehicle including delay
due to queueing (D) is:
-------
«*• t
SA-3364-8
Figure 3. Simple model of Intersection delay.
-------
D __ s ' R - + _ q • (R + G*)2 _
2 . (R + G) • (s - q) 2 • s • G • (s • G - q . [R + G]) ' ^ '
The intersection submodel will also predict delay and queue length at
unsignalized intersections. As with a signalized intersection, a queue may
be formed because of random arrivals at the intersection. If q is the arrival
rate of vehicles at the intersection and C is capacity flow rate of vehicles
departing the intersection, the average queue length is:
The average delay experienced by vehicles at an unsignalized intersection is:
The computing delay at an intersection requires predetermination of inter-
section approach capacity, signal phase lengths, and cycle times. The ISM&P
intersection subroutine recomputes these variables for each simulated time
period (usually 1 hour) as follows:
• Adjustments to intersection approach capacities
are automatically made based on the number of
left-turning vehicles at an intersection.
• Red and green phase lengths as well as cycle
times are automatically computed at actuated
signals. 4
• Left-turn phases may be specified at a signalized
intersection, and capacity for such phases may
be input or automatically calculated based on
the intersection approach capacity for the
through and right-turning traffic.
MULTIMODA.L AUTOMOTIVE EMISSIONS ANALYSIS
The emissions submodel of ISM&P is based on a method of calculating the
amount of carbon monoxide (CO) produced by specified distributions of light-
duty vehicles under four operating conditions: combinations of constant
speed, acceleration, deceleration, and idling. The formulation centers
around an instantaneous emission rate e(t) that is a function of vehicle speed
(v) and acceleration (a). Since speed and acceleration are functions of time,
the emission rate function can be expressed as
e(t) = e[v(t), a(t)J • (7)
By assuming that the acceleration from/to a given speed is a perturbation to
the steady state emission rate, two equations describe the emission rate:
-------
299
e(v,a) = b. + b0v + b0a + b.av -I- b v 4- b,a" + b^v a +
l •£ J '4 .> b 7
2 22
bga v + bga v (8)
e(v,0) = b1Q + briv + b12v2 (9)
where Equation 8 describes the nonzero acceleration emission rate, and Equa-
tion 9 determines the steady-state emission rate.
Modified ISMAP first computes the emission rates for three of the four
operating conditions (deceleration, acceleration, and cruise) for a 1977 LDV
hot stabilized vehicle mix. A correction factor is then applied to adjust
the emission estimates to the user specified scenario. The correction factor
is basically the ratio of the MOBILE! emission factor for the specified sce-
nario and the MOBILEl emission factor for a 1977 LDV hot stabilized vehicle
mix. In the case of idle emissions, the MOBILE! idle emission factor,
adjusted for the specified scenario, is u.ted directly.
The emissions model requires l,he foil owing outputs of the traffic flow
analysis for each link:
• Total number of vehicles travel Lug on l;hR link
• The speed achieved during steady-speed operation
• Total number of vehicles stopped on link
• Total travel time of all vehicles on the link
• Total length of the link
• Acceleration rates,
These inputs are used to describe t'hp. DP evmisnlous as a variable (time
and distance) along each traffic link, 'f.!i«.s is none by 4<-H-f-,riuinivig the number
of vehicles on each link that are «Jfilay«d nn'-'i Ht^ u:rnl,er of. vehicles that are
not delayed. The emissions are then calculated for each group, delayed and
not delayed. The emissions for delayed wl^eles a..,e determined by calculating
the amount of time spent on each link in on • of the four opf.r.'ting conditions
(constant speed, deceleration idling5 and accejeratiou) and multiplying this
time, along with the number of vfa.bieJ.";". involve^., by ?:be R 'wagR ^mission rate
for that specific operating condition,, The ew.'\ usi.ons for ':.hoc.o vehicles not
delayed are simply the product of f'.h-- ;•••?•,-.!'.!. yr!,i<"l <••. -i?^c<>,iAr; of steady-speed
operation and the average emission -.-atv For fiia;-. i-p,--v-"i0 A variable emission
rate of CO is determined for each link on flm dasis of this information. This
rate varies with distance along the link and der^adf; on fche duration and type
of each vehicle operating mode. A flow dla^ofm of khf-.w calculations is given
in Figure 4.
-------
START
COMPUTE 1977 HOT STABILIZED
EMISSION RATE FOR SPEED 5
(CALL SUPS)
COMPUTE EMISSION RATE
FOR DESIRED SCENARIO AT
SPEED 5 (CALL SUPS)
CORRECTION FACTOR
SCENARIO EMISSIONS
1977 EMISSIONS
REPEAT FOR
EACH SPEED
BETWEEN 5 AND 65 MPH,
IN 3 MPH INCREMENTS
REPEAT FOR
EACH SPEED
BETWEEN 5 and 65 MPH,
IN 3 MPH INCREMENTS
CALCULATE IDLE
EMISSION FACTOR
DETERMINE TIME OF TRAVEL
FOR EACH SUBLINK, SPEED FOR
CONSTANT CRUISE SUBLINK, LENGTH
OF EACH SUBLINK, AND NUMBER
OF VEHICLES INVOLVED (STOPPING
VERSUS NOT STOPPING)
CALCULATE EMISSIONS FOR THOSE VEHICLES
NOT DELAYED ON THE LINK
COMPUTE EMISSIONS FOR CONSTANT CRUISE
PORTION OF THOSE VEHICLES DELAYED
CALCULATE EMISSIONS FOR VEHICLES
THAT STOP ON THE LINK
CALCULATE EMISSIONS FOR VEHICLES THAT
ACCELERATE AND DECELERATE ON THE LINK
DETERMINE AND STORE LENGTH OF EACH SUBLINK
PLUS EMISSIONS PRODUCED FOR EACH SUBLINK
ARE THE
EMISSIONS FOR EACH
LINK COMPUTED
COMPUTE AN EMISSION
RATE FOR EACH ZONE
PER VEHICLE
l
/
Figure 4. Flow diagram of link emission calculations
10
-------
ATMOSPHERIC DISPERSION ANALYSIS
The detailed description of the transport and diffusion of pollutant from
individual traffic links necessary for microscale analysis of pollutant dis-
tribution is performed by the dispersion submodel portion of ISMAP developed
by SRI for this program. Concentrations resulting from line source emissions
are calculated separately and summed. Any wind direction may be used, includ-
ing winds parallel to roadways.
Atmospheric stability may be specified as a model input, or the user may
input wind and cloud cover data and allow ISMAP to determine the stability.
ISMAP accomplishes this using a table based on modified Pasquill-Turner stabil-
ity categories.^ Atmospheric conditions are classified according to prevail-
ing insolation strength and wind speed for daytime hours, and according to
cloud cover and wind speed for nighttime hours, as shown in Table 1.
Figure 5 is a flow chart of the line source calculation procedure in the
dispersion model. For each receptor, the location of each link is first
tested to determine whether the link contributes to the concentration at the
receptor for the input wind direction. This test is made by taking only those
links that pass through, or whose end points lie within, a 90° segment extend-
ing upwind of the receptor and bisected by the wind vector. If the link does
not fall into this pie-shaped slice, concentration calculations for it are by-
passed and the next link is checked. If a link does extend into the segment,
the model proceeds with calculation of pollutant concentration from the link.
Each traffic link is represented by a series of point sources whose total
emissions equal the link's total emissions. A distance between points that
will accurately represent the line source must be chosen. The maximum toler-
able error resulting from the finite distance between point sources was taken
to be 5 percent. Thus,
\ ^y
-pL- = 0.05 (11)
\ef
where Xref is the concentration at a receptor resulting from some reference
point on the link, and X is the concentration of a point on the link a dis-
tance AL away. The case in which the wind is perpendicular to the link is the
most sensitive to the spacing between point sources (AL). Assuming the ref-
erence point to be on the centerline of the plume with the wind perpendicular
to the link, Equation 11 can be solved for AL:
AL = %/-2.«n(0.95) a (12)
11
-------
TABLE 1. ESTIMATES OF PASQUILL-TURNER STABILITY CATEGORIES FOR
URBAN AREAS COMPUTED FROM AIRPORT WEATHER OBSERVATIONS
Surface
winds
(knots)
< 3
3-6
6-10
10-12
>13
Daytime
(SR + 4 hours to SS? •
Strong
insolation
1
1
2
3
3
Moderate
insolation
2
2
3
3
4
• 3 hours)
Slight
insolation
2
3
3
4
4
Nighttime
(SS to SR)
Early a.m. and late p.m.
(SR + 1 to SR + 3
and SS - 2 to SS - 1)
4
4
4
4
4
>
5/10
clouds
5
4
4
4
4
<
4/10
clouds
5
5
4
4
4
SR = sunrise
SS = sunset
-------
Does Any
Portion of Link
Lie Within 90°
Pie-Shaped Segment
Originating at and
Extending Upwind
of Receptor?
No
Yes
Determine Spacing
of Point Sources
on Link
Determine Crosswind
Distance and
Distance Along
Direction of Wind
from Point on Link
to Receptor
Compute
O and <7Z
Determine Mode in
Which Vehicles are
Operating at this
Point on Link
Compute
Concentration at
Receptor Due to
Point Source on Link
Using Appropriate
Emission Rate
Add this Contribution
to the Concentration
to Those Previously
Calculated for the
Receptor
Are There
More Points
on Link?
Yes
Take First
Link
Yes S Are There
More Links?
Yes ,/^re There
More
Receptors?
Figure 5. Flow diagram of link dispersion calculations.
-------
The distance along the wind direction used for calculation of ay in Equation 12
is the distance from the receptor to the nearest point on each link. To be
conservative, ISM\P uses one-half of the value of ££ as the spacing.
Having found the spacing between point sources for the link, the model
proceeds to calculate the CO concentration at the receptor for each point
source. The equation for the CO concentration from a point source is
X =
-1/2
w
exp
(13)
and
where
CT (d ) - aid I + c
yv w' ' w1
o- (d ) = fid Is + h
zv w' ' w1
_3
X is the CO concentration, gm m
P
u is the wind speed, m sec
Q is the point-source emission rate, gm sec
P
(14)
-1
u (d ) is the lateral standard deviation of plume concentration, m
y w
cr (d ) is the vertical standard deviation of plume concentration, m
H is the emission height, m
d is the crosswind distance from point source to receptor, m
d is the distance along wind direction from point source to
receptor, m
a,b,f,g are the diffusion coefficients and exponents
c,h are the constants representing initial diffusion, m
For each link, a coordinate transformation of the link end points and
the receptor is required to allow the same point source equation formulation
to apply to all receptor-link configurations. The crosswind and upwind dis-
tances in Equation 13 are then found. The diffusion coefficients and exponents
are determined by the stability class: initial horizontal diffusion for links
is determined by the point source spacing on the link but is not allowed to
exceed the half-width of the link.
uses variable emission rates along the link that correspond to dif-
ferent modes of vehicle operation; e.g., steady speed, idling, acceleration,
deceleration. When the contribution to the concentration at a receptor from
14
-------
each point source on the link is calculated, the emission rate used in the
calcualtion is determined by the driving mode being practiced at the location
of the point source.
The concentrations resulting from point sources on a link are summed for
each receptor and multiplied by the distance between point sources. Then the
individual link concentrations are summed to give the total line source con-
centration at the receptor.
STREET CANYON CALCUIATION
The modified ISMA.P program provides the option of a special dispersion
calculation for those receptors situated near urban roadways with buildings
on both sides. The Street Canyon Model^ is used only for those link-receptor
combinations for which both the link and receptor are associated with a street
specified by the user as a street canyon and for which the following relation-
ship holds on an hourly basis:
H>7^f (15)
where H = building height (m)
W = street canyon width (m)
u = wind speed (m/sec)
2
K = turbulent diffusivity (m /sec)
2
Values for K are 25,5, 5.5, 1.75, 1.0, 0.5 and 0.5 m /sec for atmospheric
stabilities 1 through 6, respectively. Once both of the conditions for a
street canyon configuration are met, the concentration assigned to a street
canyon receptor will depend upon which side of the street the receptor is
located and the direction of the wind with respect to the street orientation.
The assignment of a receptor to either the windward or leeward side of the
street canyon is illustrated by Figures 6 and 7. For a receptor located at
the leeward side of the street canyon the concentration, C (g/rrr), is given
by L
(u + 0.5)
(H:
U
2\l/2
z I + L
o
where f = empirical nondimensional constant (~ 7)
Q = line source emission rate (g/m/sec)
L = approximate vehicle size (~ 2m)
3
The windward concentration, C^ (g/m ), is calculated by the following
expression:
15
-------
MEAN
WIND
(u)
BACKGROUND
CO CONCENTRATION
-------
0 + 330° *
\
\
\
\
x\
I
WINDWARD
V
\/
/
i
i
i
i
|
\
i
»
1
i
/
A
® i
V
\
|3+30°
LEEWARD
\
\
|3 + 210° SINGLE (3 + 150°
STREET
Figure 7, Specification for leeward and windward
cases on the basis of receptor loca-
tion, street orientation, and wind
direction.
17
-------
r = KQ (H-z)
Htf W (u + 0.5) H
If the wind direction for a given hour does not place the receptor either
on the windward or leeward side of the street canyon then the concentration
is given by
CI = 2 (CL + V <18>
The emission rate, Q, which is used in the Street Canyon Submodel is
chosen to be the emission rate due to one of the four modes: cruising, decel-
eration, idling and acceleration. Each one of these modes is assigned to a
different portion of the link. The emission rate which is selected corresponds
to that travel mode whose segment centroid lies closest to the receptor
location.
18
-------
SECTION 3
PROGRAM DOCUMENTATION
This section will describe the operation of the ISMAP main program and
subroutines. Although a number of the subroutines deal with vehicle routing
through parking lots and parking lot area emissions, we present a discussion
of these functions for the sake of completeness even though the effects of
parking lots upon link volumes and interior zone emissions have been negated
within the modified ISMAP.
ISMAP (MAIN PROGRAM)
The ISMAP program acts as a calling program for the various subroutines.
The flow chart shown in Figure 1 indicates the calling sequence of subroutines
in the traffic flow portion of the model. This is essentially the flow chart
of ISMAP except that the link emissions model, EMIT, and the emissions disper-
sion model, DISPER, are called at the end of the program.
SUBROUTINE INPT
This subroutine is responsible for reading all the data described in
Section 4 Inputs Description. The simulation is normally terminated in this
routine when an end of file card is read instead of a header card for the next
iteration. The INPT routine prints out card images of the data read into the
computer and the default values assigned by the program. One exception was
made to this rule for card type 9 data. These data are printed out in meters
with six coordinate pairs per card image, although it is read in feet as one
coordinate pair per card image.
SUBROUTINE 2AREA (EFFECTIVELY BYPASSED IN THE MODIFIED VERSION OF ISMAP)
This subroutine is called to compute the area of a connected figure of
up to six sides. The method used is to construct triangles from pairs of
connected sides using each side only once. This is done by constructing a
third side between the unconnected end points of each pair of connected sides.
Two such triangles define the area of any four-sided figure. A five-sided
figure is defined by three triangles, two triangles being constructed from
the first two pairs of adjacent sides, and the third triangle being constructed
by the fifth side of the figure and the two previously constructed sides. A
six-sided figure is defined by four triangles; three of these are constructed
from pairs of adjacent sides. The fourth triangle is constructed from the
constructed sides of the other three triangles. The triangle areas so deter-
mined are added to or subtracted from the areas of the other triangles to
determine the area of the figure.
19
-------
Another function of this subroutine is to determine an estimate of the
length (PLL) of a trip into the parking zone. The trip length is determined
as the length of the longest side plus the computed area divided by the longest
side.
SUBROUTINE ROUTEV
This routine calls the MINPTH subroutine to determine the minimum path
between all gates and all other links in the network (see Figure 8 for flow
chart). Minimum paths are saved in array RG, and minimum costs are saved in
array CG for each gate. The minimum paths are based on travel times for each
link by turning movement, which are stored in the TT array. The TT array is
initialized with the travel lines that would be experienced if all vehicles
traveled at the input velocity VEL on each link. Subsequent iterations of
ROUTEV use a TT array based on intersection delays and link velocities as
modeled by ISMAP.
For each zone, a minimum path and cost are determined to every link in
the network and stored in arrays R and C, respectively. Four alternative
routes are selected using the RG, CG, R, and C arrays. This is done by find-
ing the minimum route to each gate using the R and C arrays and combining this
with the minimum and second most minimum route from each gate to each destina-
tion zone. The minimum and second most minimum routes from each gate to each
zone are determined from the minimum route and cost to each link that accesses
each zone, which is stored in the RG and CG arrays. If four alternative
routes are discovered, they may lead through as many as four gates, or as few
as two gates, and may terminate on any link that accesses the destination zone.
Of course, when less than four alternative routes are possible, only the num-
ber of possible alternative routes is generated. When there is no alternative
route between external and internal zones, the program fails to apply traffic
demand between these zones to the network. If an alternative route does not
pass through a gate, the program will fail with an arithmetic error when it
tries to compute the number of vehicles using that route (i.e., the sum of
the gate volume to capacity ratios, GCRT, will equal zero).
Vehicles are applied to the links of each alternative route in inverse
proportion to gate volume to capacity ratio (GCR), route travel time (C + CG),
and the number of iterations specified for the route selection process (ITM).
The procedure outlined above is followed until 1/ITM of all vehicles have
been routed between all internal and external zones. If ITM is greater than
1, new travel times are determined on all links, a new set of alternative
routes is generated, and vehicles are applied to these routes.
This subroutine is responsible for generating the minimum path between
each origin and destination zone in the network. The method generates the
minimum path from one origin AA to all links of the network. (Recall that a
link is one direction of flow on a street and has a load point halfway between
each end.) Two arrays are initialized before calling MINPTH. The TT^j array
represents the travel time from link i, to a connected link j. The C_g array
represents the cost of travel from the origin zone to any link l of the net-
work. The C array is initialized to zero for any link connected to the
origin zone and to infinity for any unconnected link.
20
-------
( ROUT I. V J
IT = IT + 1
IT - 1
For Each Gate IG
MINPATH
FIND THE MINIMUM
PATH FROM GATE IG TO
EVERY OTHER LINK IN
THE NETWORK
SAVE THE COST AND ROUTE ARRAYS IN CG
AND RG FROM GATE IG TO EACH LINK
IN THE NETWORK
GENERATE THE LCRZ AND LCRZF ARRAYS
STORING THE LAgT LINK AND F_LR_ST__U&LK_
RESPECTIVELY TN THE ROUTE FROM K^ TO
EACH ZONE Z
r
For Each Zone Z
-------
For Each Possible Alternative Route K
DETERMINE THE NUMBER OF VEHICLES TO BE
ROUTED ON ROUTE K DURING THIS ITERATION.
VEHS = GCR(K)/ZGCR • ZZVEH/ITM
I
APPLY VEHS TO ALL LINKS IN THE ROUTE FROM Z TO IZ STARTING
WITH LINK LG = LISTL(K), AND CONTINUING WITH LG = R(LG> OR
RG(IG,LG) ETC. WHERE IG LISTG(K). COUNT(J,LG) - VEHS (WHERE
J 1.2 OR 3 DEPENDING ON TURNING MOVEMENT.)
No
I
For Each Intersection
i
GENERATE NEW INTERSECTION DELAYS
BY CALLING INSEC AND INSECU.
I
GENERATE NEW TRAVEL TIMES ON EACH LINK
SA-3628-5b
Figure 8 (continued). Route vehicles model flow diagram.
22
-------
SUBROUTINE MINPTH
The algorithm described below is carried out using these two arrays. On
completion, the C^ array represents the minimum travel time (or cost) from the
origin zone to each link i, of the network. During this process, the R^ array
is generated, which contains the link number that immediately precedes link S,
in the route from the origin to i. The following is a step by step descrip-
tion of the algorithm for route generation.
Step 1 — Initialize TT^j with the constant cost in traveling
from link Ji to three possible adjacent links,
~ 1' 2' 3"
Step 2 — For an origin zone initialize with a large number
the cost, Cfi, to travel from the origin to each
link in the network (C = for all &).
Jv
Step 3 — For the links adjacent to the origin zone store
a travel time cost in C (Ji = ^, ^2, . . . ^12)«
Step 4 — Set the travel time costs of Step 3 negative, to
flag that all links connected to these may have
an improved travel time cost.
Step 5 — Find a negative C^ and the connected links j]_,
J2» J3 to link &• If no negative C^ exists then
do Step 9. If no connected links exist then do
Step 8.
Step 6 - For each j = jlf j2, Js test |c^| + TT^,j < |Cj|.
If the relationship does not hold true then do
Step 7. Otherwise replace Cj by JG^j + TT^,j
and set Cj negative. The route is saved by stor-
ing the previous link to j (i.e., R. = $,).
Step 7 — Repeat from Step 6 until all j's have been tested.
Step 8 — Set C. to JC | and repeat from Step 5.
Ju Xf
Step 9 — The Cy array is the cost of travel from the origin
to each link &. Repetition from Step 2 will gene-
rate new costs of travel from other origins.
SUBROUTINE INSEC
This subroutine cmmputes delays and queue lengths at signalized inter-
sections within the simulated network (see Figure 9 for flow chart). Three
types of signal controllers can be specified. The first type is a fixed-time
controller in which the north-south, east-west, and left-turning phases are
all of fixed time length. The other types of controllers are vehicle-actuated,
for which types the INSEC routine must determine the length of each signal
23
-------
( INSEC J
I IS INTERSECTION INDEX
1
Each Approach J
i
VOL(J,1)-= £ COUNT ON LINK APPROACH J
CAP(J.1)» GCAP (I, J2). WHERE J2 IS PHASE INDEX
MODIFY CAPIJ.1) BASED ON PERCENT LEFT
AND RIGHT TURNERS
VOLUD- COUNT (2,L) + COUNT (1.L)
VOL(J,3) - COUNT (3,L)
CAP(J,3) - GCAP (I,J2). WHERE J2 IS
APPROPRIATE PHASE INDEX
Y(J,3| - VOL(J,3)/CAP(J,3)
Y(J,1) VOUJ.D/CAPU.D
1
YTU2) - MAX(Y(J,K) FOR PHASE J2,
*
J2 - 1,2.3.4)
CALCULATE A CYCLE TIME BASED ON WEBSTERS
'TRAFFIC SIGNAL SETTINGS"
i.e. COT (1.5 • CKI) ' NP + 5.0)/(1 EYT)
WHERE NP IS THE NUMBER OF PHASES AND
Cl IS THE YELLOW INTERVAL
1
I I
L— PTU2) - YTU2) • COT/EYT
h-0
SA-3628-6*
Figure 9. Signalized intersection model flow diagram.
24
-------
^ For Each Approach J
I
> For Each Turning Movement K
J2 = INDEX OF PHASE GREEN FOR THIS APPROACH
AND TURNING MOVEMENT
CAP(J.K) = CAP(J.K) • IPTU2) - CKD/2I/COT
VOL(J.K) t I/COT + PTU2)
. CAP (J.KI
NEWELL MODEL OF DELAY AND QUEUE LENGTH
Wl (COT - PT(J2))2/(2 • COT • (1 yU.KOI
QO VOL(J.K)/(2 ' (CAP(J.K) - VOL(J.KD)
W3 * DELAY DUE TO QUEUE FROM PREVIOUS
TIME PERIOD
W2 - QO • 3600/CAP(J,K)
DELA(L.K) - Wl + W2 + W3 WHERE L IS THE
LINK ENTERING
QQ(J,K) •= QO FROM APPROACH J
MODIFIED NEWELL MODEL
OF DELAY AND QUEUE LENGTH
Wl - (COT - PTIJ2D/2
QO - f(VOL,CAP,PT)
Ql = VOLU.KI - CAP(J.K) + QUEII.J)
W3 = TP
QUEII.JI QQ(J,1) + QQ(J,3)
PRINT RESULTS
RETURN
SA-3628-66
Figure 9 (continued). Signalized intersection model
flow diagram.
25
-------
phase. Phase lengths are determined based on volume to green capacities of
each approach to an intersection.
Delays and queue lengths are determined at an intersection on the basis
of phase time, approach volume, and capacity. The referenced method of de-
termining delay assumes a period of time during which traffic demand remains
constant, and does not include a means of estimating queueing when volume ex-
ceeds capacity. For ISMAP a method was devised to provide continuous func-
tions for delay and queue length when volumes approach or exceed the inter-
section approach capacity. This method establishes a constant rate of increase
in queue length beyond the point where average delay at the intersection equals
one cycle length. The queue is assumed to increase at a constant rate beyond
this point until volume exceeds capacity, at which point the queue increases
at the rate that volume exceeds capacity. A queue is dissipated at the rate
that capacity exceeds volume until the average queue length, based on the
volume to capacity ratio of the intersection approach, is reached.
The results of the model, stored in the DEIA and QUE arrays, are delay
and queue length for each approach to an intersection.
SUBROUTINE INSECT
This subroutine predicts the delay and queue length at unsignalized in-
tersections in the network. Three types of intersections can be handled:
uncontrolled, two-way stop, and four-way stop. If not specified as an input
parameter, the INSECT routine determines an intersection capacity based on
the Highway Capacity Manual.9 For two-way stops and uncontrolled inter-
sections, the HCM recommends that capacity be computed as if a signal were
present and as if the signal split ratio equaled
Volume.. Width0
x • (19)
Volume2 Widt^ v '
At four-way stops, capacity is a function of the number of lanes and the demand
split among approaches, as shown in Tables 6.7 and 6.8 of the Highway Capacity
Manual. Queue length at an intersection is computed from classical queueing
theory; i.e., QO = 1/(CAP/VOL) - 1. Average delay is a function of queue
length times the time to process each vehicle.
SUBROUTINE PARKNG (EFFECTIVELY BYPASSED IN THE MODIFIED VERSION OF ISMAP)
This routine models parking zone flow and determines vehicle running time
for a zone (see Figure 10 for flow chart). The running time of an average
vehicle is considered to consist of three elements: (1) the time to travel
from the edge of the zone to a stall or the time to travel from a stall to the
edge of a zone (symbolized by TTA and TTD, respectively); (2) the delay ex-
perienced by arriving vehicles while waiting for vehicles to back out of stalls
(DQ); (3) the average wait in a queue until a parked vehicle leaves the zone
(AWQ).
26
-------
f PARKING J
I
PZ IS THE INDEX OF A PARKING ZONE
I
PC = PLAIPZ1/PD
PL = PLL(PZ)
PVZ = VZ(PZ) - ZV(PZ) + PV(PZ)
PU = PVZ/PC
I
COMPUTE MOVING SPEED IN PARKING ZONE
PLS = f(PU>
I
COMPUTE TRAVEL TIME FOR ARRIVALS AND DEPARTURES
TTA = f(PU,PL/PLS)
TTD TTA + PLBO
COMPUTE DELAY WAITING FOR VEHICLES TO BACK OUT
DQ - MAX(PLBO2/2 (TP/VZ(PZ) - 2), PLBO/2 • (PU - 0.85)/0.15
I
COMPUTE AVERAGE WAIT IN QUEUE WHILE VEHICLES LEAVE THE ZONE
AWQ -
AlA/O =
(vz - zv \
PV + PCJ •
PC and PV + > PC
(VZ - ZV 1
1 PV > PC and PV + VZ - ZV < PC 1
AWQ = MAX (AWQ, 0.67 * TTA)
( RETURN J
SA-3628-7
Figure 10. Parking model flow diagram.
27
-------
TTA is computed on the basis of the length and speed of an average trip
into the parking zone. It would appear that the length and speed of an aver-
age trip vary in direct and indirect proportion, respectively, to the utiliza"
tion of a zone, and preliminary analysis of available data tends to support
this supposition. TTD is the same as TTA, but with a time added to back out
of a parking stall (PLBO).
DQ is the queued delay, due to interrupted flow lasting PLBO seconds,
experienced by vehicles arriving in the parking zone. AWQ is a minimum value
or is the time required to service each vehicle times an average queue length
estimated from the utilization of the parking zone.
SUBROUTINE COORXY
To determine the location of steady speed, decelerating, queued, and
accelerating vehicles on a link, it is necessary to know the direction of flow
on the link (i.e., which end point traffic moves toward). This subroutine
reorganizes the x,y coordinates of any link, L, so that XI(L), Yl(L) represent
the upstream end of the link and X2(L), Y2(L) represent the downstream end
of the link.
A second function of this routine is to convert the coordinates from feet
to meters, since meters are the required units of distance in the dispersion
submodel.
SUBROUTINE EMIT
Subroutine EMIT calculates the amount of CO produced on each traffic
link (see Figure 4 for flow chart). The necessary input data come from the
traffic analysis subroutine. These are: CAPL, COUNT, DIST, DQ, NLANE,
NSTOPS, TT, and VEL. From this information, the model calculates the time and
distance each vehicle devotes to constant velocity travel, deceleration,
idling, and acceleration. The model then determines the amount of CO produced
by one vehicle for 1 second for each cruise condition. Next, each of these
emissions is assigned to that portion of the link where fhe emission occurred.
The result is CO emissions as a function of position on each traffic link.
The following are outputs of the EMIT subroutine for each traffic link:
EMISS (I), I = 1,4 where I = 1 is the constant speed emissions, I = 2 is the
decelerations emission, I = 3 is idling emissions, and I = 4 is the accelera-
tion emissions, and DLINK (I), I = 1,4 is the distance over which each emis-
sion rate applies.
The emissions model also calculates parking zone emission rates based on
total vehicle running time within the zone. Vehicles are assumed to emit CO
within a zone at the idle emission rate, and the vehicle emissions are dis-
tributed evenly over an entire zone.
SUBROUTINE ACDC
The purpose of this subroutine is to calculate the total emission of CO
by a vehicle accelerating from stop to a terminal velocity at a constant rate.
Alternatively, the emissions generated by decelerating from a specific speed
28
-------
to stop at a fixed rate can be determined. The integrated Model Emission
equations were utilized to calculate the total CO emissions for the accelera-
tion or deceleration mode.
SUBROUTINE CRUZ
This subroutine utilizes the Modal Emission Coefficients to calculate the
CO emissions for vehicles traveling at a fixed rate of speed.
SUBROUTINE INITMM
This subroutine utilizes the composite vehicle age and mileage distribu-
tion calculated in SUPS to calculate the vehicle distribution in the 20 modal
model vehicle groupings. It also sets up the array of modal model coefficients.
SUBROUTINE SUPS
This subroutine calculates the average driving cycle emission factors
and idle emission factors based on the parameters supplied to it. It, in
turn, calls subroutines OUTPUT, EFCALX, BIGCFX, INITEX, TFCALX, SPFCLX,
BEFGEN, GETCUM, EFALTX, CCEVAX, LDVIMX, ALUH, TRKOPC.
SUBROUTINE DISPER
This subroutine controls all dispersion calculations. It calls WIND,
LSLOPE, STABLE, BASIC, GENGSC, and ZBORDR at the appropriate times (see
Figure 11 for flow chart) and rounds off the coordinates of the link end
points so that the center of a grid square cannot coincide with a link end
point. As the final step before printing, DISPER divides the normalized CO
concentrations by pi and the wind speed, converts the concentration to ppm,
adds the background concentration, and multiplies by a factor that corrects
the emission rate for the vehicle mix of 1971 to that of the input year and
corrects for the ambient temperature and the fraction of hot and cold started
vehicles.
SUBROUTINE WIND
Meteorological wind direction, measured clockwise from north, is converted
to algebraic wind direction, measured counterclockwise from east. In addition,
the angle from the y axis to the wind vector is found by WIND.
SUBROUTINE LSLOPE
The slope and y intercept of each link are found by this subroutine. If
the slope of a link is infinite, both the slope and the y intercept are set
equal to zero as a cue to indicate that the link is vertical.
SUBROUTINE STABLE
STABLE determines the stability class and therefore the dispersion param-
eters for each hour of the day, unless stability is input directly. The
29
-------
ROUND OFF LINK END POINT COORDINATES
SO THAT THEY CANNOT COINCIDE WITH
A GRID SQUARE CENTER
TAKE 1st RECEPTOR
SET CONCENTRATION AT RECEPTOR = 0
AND CALL BASIC
ARE
THERE MORE
RECEPTORS
ARE
THERE ANY AREA
SOURCES
CALL ZBORDER
TAKE 1st RECEPTOR
FINISH CALCULATING CONCENTRATION
AT RECEPTOR
ARE
THERE MORE
RECEPTORS
SA-3628-8
Figure 11. Subroutine DISPERS flow diagram.
30
-------
amount of cloud cover is used in determining an insolation class, which, when
coupled with a wind speed class, allows an appropriate stability to be chosen
from a table. If the user chooses to predetermine and read in stability as
input, this initial part of the subroutine is bypassed, and the time period
need not be 1 hour. Wind speed is converted from knots to meters per second
for use in the point-source equation, and the diffusion parameters appropriate
to the stability class are located from tables and stored.
SUBROUTINE BASIC
This routine determines whether all or any part of a link is upwind of a
receptor. If a link lies within a 90°, pie-shaped segment that originates at
the receptor and is bisected by the wind vector, the link is considered to be
upwind of the receptor. The subroutine checks this by first transforming the
coordinates of the link end points into a system with the origin at the recep-
tor and the positive y axis in the direction from which the wind is blowing.
If the new y coordinates of both end points of the link are negative, the link
is downwind of the receptor. If the y coordinate of one or both end points
of a link is positive and the angle between the new x axis and a line connect-
ing a positive y coordinate of a link point with the origin is greater than or
equal to 45°, at least part of the link is upwind of the receptor. It is also
possible that the link passes through the segment even though neither of its
end points lies in the pie-shaped segment. For this to occur the transformed
x-coordinate of one end point must be positive and the other negative. In
this case, the point at which the link intersects the y axis is found. If the
y coordinate of that point is positive, the link passes through the segment
and part of it is upwind of the receptor. If all or part of a link lies up-
wind of a receptor, BASIC calls ORIGIN, CORTRN, and CONCA1 or CONCA2.
In this routine the calculation was also performed to determine whether
a street canyon vortex will form at each street canyon receptor location based
upon hourly wind speed and stability conditions.
SUBROUTINE ORIGIN
Here the coordinates of the point to be the origin in a new coordinate
system are found. For each link the origin is taken as the point of inter-
section of the link (or its extension) and the wind vector. ORIGIN also finds
the angle from the wind vector to the link.
SUBROUTINE CORTRN
This subroutine transforms the coordinates of the receptor and the link
end points into a new system with the y axis along the direction of the link
and the origin as found by ORIGIN. This transformation is done so that the
same Gaussian point source equation can apply to all receptor-link configura-
tions.
31
-------
SUBROUTINE CONCA1
CONCA1 is used when the wind is not parallel to the link. It calls MISC
and XSIGN and computes the normalized CO concentration at a receptor resulting
from each point on the link. Subroutine BASIC determined that at least part
of the link is upwind of the receptor. Now each point on the link is checked
to see that it is upwind of the receptor by comparing the sign of its dis-
tance along the wind direction to the receptor with the sign found by XSIGN.
If the signs are the same, ISMAP determines what driving mode the traffic is
in at the point on the link, chooses the corresponding emission rate, computes
the lateral and vertical standard deviations of plume concentration, and
applies the point source equation. Then for each receptor all point source
concentrations are summed to give the CO concentration at the receptor from a
link, and this concentration is added to the concentrations from other links
for that receptor.
SUBROUTINE XSIGN
Some wind vector-link-receptor configurations are such that only part of
a link is upwind of a receptor. In this case, there is a point on the link
that has zero distance to the receptor along the wind direction. On one side
of this point, the distance from link to receptor along the direction of the
wind is positive; on the other side it is negative. Due to the coordinate
transformation performed in CORTRN, it is not known whether the points that
are actually upwind will show positive or negative distances. Therefore, the
sign of the distance along the wind direction from the receptor to a point
known to be upwind of the receptor is found for use in determining which
points on the link will contribute to the concentration.
The point used in the above determination depends on the orientation of
the link and of the wind vector. When the wind vector and the link are not
parallel, the coordinate system origin found by subroutine ORIGIN is used,
unless it coincides with the receptor location. If it does coincide, the known
point becomes the point of intersection of the wind vector passing through the
receptor and the perpendicular to the wind that passes through a link end
point. When the wind vector and the link are parallel and the receptor is
located on an extension to the link, one of the link end points becomes the
known point. Or, if the receptor is not located on an extension to the link,
the known point used is the point of intersection of the wind vector passing
through the receptor and the perpendicular to the link (or wind vector) that
passes through a link end point.
When the quadrant from which the wind vector originates and the signs of
the differences between the x coordinates and between the y coordinates in
the original coordinate system of the receptor and the point chosen for the
sign check are known, the sign of the distances from the receptor to those
points that are upwind of the receptor can be determined. This sign is used
in CONCA1 or CONGA2.
32
-------
SUBROUTINE SPCING
This subroutine computes the distance to be taken between the point
sources that represent the link, using the method presented in Section 2.
Equation 12 is applied to determine the spacing. To compute the cry that ap-
pears in the equation, a downwind distance from point source to receptor is
needed. If the wind vector that passes through the receptor (which is assumed
to be perpendicular to the link) intersects the link, the downwind distance
used in
-------
and the grid size that was input. Then, to conserve space in core memory, the
coordinates of the centers of the grid squares are generated separately, to
be paired later in ISMAP. The final step in the subroutine is to set the
initial diffusion for area sources equal to the grid size.
SUBROUTINE ZBORDR
A zone (i.e., area source) may have up to six border links that form its
sides. A zone may also have one nonlink side, but the border link information
must be input such that the first and last border links are the links that do
not connect. For each zone subroutine ZBORDR checks to see that one of the
end points of a border link connects with an end point of the next link. If
the specified border links do not connect, an error message is printed and com-
putations for the zone are bypassed. If the links do connect, subroutine
INTERS is called. This checking procedure and calling of INTERS continues
until all the border links have been exhausted. If the open end points of
the first and last links connect, the program calls subroutine ZNGSC; if
the open ends do not connect, the last side of the zone, along with its slope
and y intercept, are generated and ZNGSC is called. The entire procedure
outlined above is repeated for each zone.
Other subroutines, called by ZNGSC, compute the contribution to the CO
concentration at a receptor from each zone. After the routines have been
called, ZBORDR multiplies the concentration contribution of each zone for
each receptor by the zone emission rate and divides by the number of grid
squares in the zone. These concentrations then are summed for each receptor.
However, the results are still normalized by pi and the wind speed. In the
modified version of ISMAP, the interior zones will be bordered by only two
1 inks.
SUBROUTINE INTERS
Since the overlay grid is made up of regularly spaced squares, the cen-
ters of the squares can be said to lie in vertical lines. There are as many
of these lines as there are grid squares in the x direction. This subroutine
finds points of intersection of each vertical line with the sides of a zone.
Since the manner in which the grid square centers were generated and the
manner by which the link end points were rounded off preclude the possibility
of a vertical line passing through a zone border link end point, there will
be an even number of points if intersection on each vertical line. The points
of intersection are found for one zone at a time, and the number of points of
intersection on each vertical line, as well as the y coordinate of each point
of intersection, are stored. The x coordinates can be found from the index
of the vertical line since the values are the same as those of the x coordi-
nates of the grid square centers with the same index.
SUBROUTINE ZNGSC
The y coordinates of the points of intersection of a vertical line with
the zone sides, found by INTERS, will not be necessarily in ascending or
34
-------
descending numerical order. Subroutine ZNGSC places the intersection points
on each vertical line in descending numerical order so that they may be paired.
If an uneven number of points of intersection are found, an error message is
printed and further computations for the zone are bypassed. Otherwise, each
grid square center that lies on a vertical line is checked to see if it lies
between any of the pairs of intersection points. If it does, the grid square
center, and therefore the grid square, lies within the zone. When a grid
square center is found to be located in a zone, it is counted, subroutine
ZCHECK is called, and the x and y coordinates of the grid square center are
passed to ZCHECK.
SUBROUTINE ZCHECK
This subroutine transforms the coordinates of a zone grid square center
into a system with the origin at a receptor and the y axis along the direction
of the wind. If the transformed y coordinate of the grid square center is
negative, the grid center is downwind of the receptor. For a positive y
coordinate, if the angle that a line passing through the origin and the grid
center makes with the x axis is less than 45°, the grid center is assumed to
be positioned such that its contribution to the concentration at the receptor
is negligible. If the angle is greater than or equal to 45°, subroutine
CONGAS is called. The above procedure is repeated for all receptors.
SUBROUTINE CONCA3
The transformed y coordinate of the grid square center that was passed
along from ZCHECK is the distance along the direction of the wind from the
point source to the receptor. This distance and the diffusion parameters
found in STABLE are used to calculate the lateral and vertical standard de-
viations of plume concentration. The x coordinate of the grid square center
gives the crosswind distance from source to receptor. Using these values,
CONGAS calculates a normalized concentration at a receptor resulting from a
grid square of a zone. This concentration is added to the contributions to
the concentration at the receptor from other grid squares in the zone. The
results of CONCA3 are passed back to ZBORDR.
SUBROUTINE STREET
If the calculation in subroutine BASIC indicates, based upon hourly wind
speeds and atmospheric stabilities, that a street canyon vortex will form at
a particular street canyon receptor location, then subroutine STREET will be
called to calculate the hourly concentration contribution from the street
canyon links, which will then be added to the remaining link contributions
calculated by the line source dispersion model. The calculated street canyon
concentration will depend upon whether the receptor is located on the windward
or leeward side of the street.
35
-------
SECTION 4
INPUT DATA SPECIFICATION
The first step in the preparation of input data for the modified version
of ISMAP is to draw a map of the traffic network under study. The link end-
points and receptor locations must be specified by coordinates in a west to
east (x) and south to north (y) coordinate system. Each link must be charac-
terized by the number of lanes and the identification numbers for those links
branching from (turning left, turning right and going straight) the link in
question. For each intersection the signal type (if signalized) and phase
times must be specified. Receptor locations that are potential street canyons
must be so identified. For such receptors, the user must also specify the
direction of the street with respect to north, the identification numbers of
the links comprising the street, the width of the street (building to building)
and the height of the buildings on the street.
The most critical inputs to the modified ISft&P are the assignment of the
internal and external zones in terms of the links entering and leaving the
zone and the number of vehicles attracted to or generated by the internal zones
during a given hour. Vehicle trips from an external zone are directed toward
internal zones based upon the trip attraction of the internal zones. In the
same manner, vehicle trips generated by internal zones are apportioned to ex-
ternal zones, but trips cannot be generated between individual internal or
external zones. Since parking lots are not considered in the modified version
of ISMP, the internal and external zones are physically indistinguishable,
with each consisting of an entrance and exit link pair. As illustrated
by our sample model application presented in Section 5, the names "internal"
or "external" zones do not indicate the geographic location of these zones but
only signify that vehicles are routed between these two types of zones.
The final input requirement for the model is the hourly meteorological
data for use in the dispersion calculation. Hourly temperature is also input
for calculation of cold and hot start vehicle emission correction factors.
In Table 2 the program input requirements are listed on a card by card
basis along with column numbers, format specification, units, value limits
and general description. The remainder of this section will be devoted to a
detailed description of each input card.
36
-------
U)
-J
TABLE 2. MODIFIED ISMAP BASIC INPUT INFORMATION CARDS 0 THROUGH 10
(Data Read in by Subroutine INPT)
Card Column
0 Head-iv: 1-6
7-76
80
1 1-2
3-5
6-10
11-15
16-20
21-25
26-30
31-35
36-40
41-45
46-50
51-55
56-60
61-65
66-70
71-75
76-80
format
16
18A4
11
12
13
15
15
15
15
15
15
15
15
F5.0
F5.0
F5.0
F5.0
F5.0
F5.0
15
Symbol
NXEAR
LHEAD
NOPARK
1C
L
I
Z
ION-
IC
m
KT
NR
NMET
TOD
DOW
TP
TOTATT
TOT GEN
PD
ITM
Units Value limits
710101-to
991231
-
1
-
- 0* to 200
0* to 70
- 0* to 50
0 or 1
0* to 10
- 0* to 3
- 0 to 200
- 0* to 200
- 0* to 24
hours 0 to 23
1 to 7
sec 900 to 7200
vehicles > 0
vehicles > 0
ft2/veh 360
1 to 10
Typical value
(default value
in parentheses)
741004
EXAMPLE CASE
i
-
154 (previously
stored value)
48 (previously
stored value)
23 (previously
stored value)
1 (previously
stored value)
7 (previously
stored value)
3 (previously
stored value)
15 (previously
stored value)
26 (previously
stored value)
1 (previously
stored value)
8
3
3600
124
74
360
1 (1)
Description
Date in year, month, day sequence
Heading to precede output summary
Must be set equal to 1
Card type number
Number of cards of type 2
Number of cards of type 3
Number of cards of type 4
Number of cards of type 5
Number of cards of type 6
Number of cards of type 7
Number of cards of type 8
Number of cards of type 9
Number of cards of type 10
Hour of day
Day of week (Sun. = 1, Mon. = 2 . .
Sat. = 7)
Time period duration
Total trips attracted to and generated by
the indirect sources during time period
specified
2
Parking density constant (number of ft
required to park each vehicle)
Number of iterations of the route selection
process
May not be 0 on first iteration of program.
(continued)
-------
TABLE 2 (continued),
U)
00
Card Column
2 1-2
3-5
6-10
11-15
16-20
21-25
26-30
31-35
36-40
41-45
46-50
51-55
56-60
Format
12
13
15
F5.0
F5.0
F5.0
F5.0
15
F5.0
15
15
15
F5.0
Symbol
10
L
NLANE(L)
XI (L)
Y1(L)
X2(L)
Y2(L)
LCAP(L)
VEL(L)
LCON(L.l)
LCON(L,2)
LCON(L,3)
HEIGHT (L)
Units
-
-
-
ft
ft
ft
ft
veh/hr
ft/sec
-
-
-
m
Value limits
2
0 to 200
_> 1
> 0
> 0
> 0
> 0
> 1
1 to 147
0 to 200
0 to 200
0 to 200
i 0
Typical value
(default value
in parentheses)
2
1
2
3751
2363
2247
2673
-0 (1800)
58
3
26
27
0
Description
Card type number
Link number
Number of lanes
x-coordinate of northernmost end point
(•••ternmoct coordinate if link run* E-W)
y-coordinate of northernmost end point
x-coordinate of southernmost end point
y-coordinate of southernmost end point
(links should terminate at the in-
tersection center)
Capacity of link, veh/hr
Speed, ft/sec
Link to link connections. The link that L
connects to going straight
The link L connects to going right
The link that L connects to going left
Emission height
(continued)
-------
TABLE 2 (continued).
Card Column
3 1-2
2-5
6-10
11-15
16-20
21-25
26-30
31-35
36-39
40-43
44-47
48-51
52-55
56-59
60-63
64-67
68-71
Format
12
13
15
15
15
15
15
15
F4.0
F4.0
F4.0
F4.0
F4.0
F4.0
F4.0
F4.0
F4.0
Symbol
1C
I
LIN(I,J)
LIN(I,J)
LIN(I,J)
LIN(I.J)
ITYPC(I)
CYCL(I)
PH(I,J)
PH(I,J)
PH(I,J)
PH(I,J)
CI(I)
GCAP(I,1)
GCAP(I,2)
GCAP(I,3)
GCAP(I,4)
Units Value limits
- 3
0 to 70
- 0 to 200
0 to 200
- 0 to 200
- 0 to 200
-2 to 5
sec > r PH(I,J)
sec > 0
sec > 0
sec > 0
sec > 0
sec > 0
veh/hr > 0
veh/hr > 0
veh/hr > 0
veh/hr > I/
Typical value
(default value
in parentheses)
3
1
142
4
143
1
2
200
10
10
0
0
3
3600 (1200 veh/
hr/lane)
4000 (1200 veh/
hr/lane)
0 (1200 veh/hr/
lane)
0 (1200 veh/hr/
lane)
Description
Card type number
Intersection number
North link number
East link number
South link number
West link number
Type control; -1=2 way stop; -2=4 way
stop; 0 = no control; 2,3
1 = fixed time control; 4
type 3 E-W; 5 = type 3 N-S
Type I Type II
ft actuated
phases phases
Cycle Max cycle
N-S Min N-S
E-W Min E-W
N-S LT Min N-S LT
E-W LT Min E-W LT
Yellow time interval
= V/A control;
= type 2 N-S,
, type 2 E-W
Type III
actuated
phases
Max cycle
Min N
Min E
Min S
Min W
Capacity of one approach N (or S) for
phase 1 per hr green
Capacity of E (or W) phase 2
Capacity of S or S-N phase 3
Capacity of W or W-E phase 4
per hr green
per hr green
per hr green
(continued)
-------
TABLE 2 (continued).
Card
4
Column
1-2
3-4
Forat Symbol
12 1C
A2 IEXT
Typical value
Units Value limits (default value
in parentheses)
4 4
01-99 5
Description
Card type number
Zone identification (interior zones: 01-50;
-p-
o
5-7
F3.0 ZATTR(Z)
8-10 F3.0 ZGENR(Z)
11-13 F3.1 Z7T(1,Z)
14-16 F3.1 ZVT(2,Z)
17-19 F3.1 Z7T(3,Z)
20-24 F5.0 PVEH
25-29 F5.0 FLC
30-31 12 NZL
32-35 14 ZLINKS(1,Z)
36-39 14 ZLINKS(2,Z)
veh/hr or 7. > 0
veh/hr or % > 0
> 0.
> 0.
> 0.
veh
veh or gm/
sec
> 0
> 0
1 to 6
0 to 200
0 to 200
exterior zones: 51-99)
2 Zone attractions in either (1) average
volume (veh/hr) or (2) % of total trips
attracted to all interior or all exterior
zones
2 Zone generations in either (1) average
volume (veh/hr) or (2) % of total trips
generated to all the Interior or to the
exterior zones
0. (1.) Fraction of zone attractions and genera-
tions that are automobiles
0. Fraction of zone attractions and genera-
tions that are buses
0. Fraction of zone attractions and genera-
tions that are other vehicle types
0 Initial number of parked vehicles in zone
0 Parking lot capacity in vehicles (if left
blank lot capacity is generated by the
computer) or zone emissions for exterior
zones in gm/s during time period
1 Number of sides (links) which define park-
ing area (the first NZL bordering links
define the parking lot area)
112 Bordering link number 1 (a negative link
number indicates no access to the zone
from this link)
111 Bordering link number 2
76-79 14
ZLIMCS(12,Z)
0 to 200
Bordering link number 12
(continued)
-------
TABLE 2 (continued).
Card Column
5 1-2
3-6
7-10
11-14
15-18
19-22
23-24
25-28
29-33
34-38
39-43
44-48
49-53
54-58
59-63
64-68
69-73
TW-75
76 '
Tf
Format
12
F4.0
F4.0
F4.0
F4.0
F4.0
12
F4.0
F5.3
F5.3
F5.3
F5.3
F5.3
F5.3
F5.3
F5.3
F5.3
12
11
11
Symbol Units
1C
GRDS IZE m
BACKGRD ppm
SLAT deg of lat .
TUNFAC
ZCONST m
IREG
TEMP °F
COLD
HOT
CCOLD
VMTMIX(l)
VMTMEC(2)
VMTMEC(3)
VMTMIX(4)
VMTMIX(5)
VMTMIX(6)
ALHFLG
TRKFLG
IMFLG
Value limits
0.
,
0.
3.
1,
0
0
0
0
0.
0.
0.
0.
0.
0.
0
0
0
5
50.
>0.
to 90.
1 to 3.
to 10.
2,3
- 110
- 1
- 1
- 1
to 1.
to 1.
to 1.
to 1.
to 1.
to 1.
or 1
or 1
or 1
Typical value
(default value Description
in parentheses)
5
10. (10.)
0.
0.
1.-
10. (3.)
1
75.
0.20
0.20
0.20
0.75
0.05
0.05
0.09
0.06
0.005
0
0
0
Card type number
Grid size
Background concentration at site
Latitude of site (needed only if stability
is to be computed by ISMAP)
Tuning factor
Initial vertical diffusion
Region: 1 = low 2 = calif., 3 = high
Temperature
Proportion of cold starts
Proportion of hot starts
Proportion of catalyst cold starts
Fraction of light-duty vehicles
Fraction of light -duty trucks, less than 600 GVW
Fraction of light-duty trucks, 6000 - 8500 GVW
Fraction of heavy-duty gasoline-fueled
vehicles
Fraction of heavy-duty diesel-fueled
vehicles
Fraction of motorcycles
Flag for optional air conditioning, loading
correction
Flag for optional truck correction
Flag for optional I/M correction
humidity
(continued)
-------
TABLE 2 (continued).
ho
Card
Column
Format
Symbol
Typical value
Units Value limits (default value
In parentheses)
Description
Omit if ALHFLG equals zero
5A
1-10
11-20
21-30
31-40
41-50
51-60
61-70
_
FIO.O
FIO.O
FIO.O
FIO.O
FIO.O
FIO.O
_
AC
XLOAD(l)
XLOAD(2)
XLOAD(3)
TRAILR
ABSHUM
.
.30
.10
.10
.10
.05
gr/lb - 75
Blank
Fraction of LDV and LOT VMT with air-conditioning
Fraction of LDV VMT with additional 500 Ib load
Fraction of LDTl VMT with additional 500 Ib load
Fraction of LDT2 VMT with additional 500 Ib load
Fraction of LDV VMT with a trailer (1,000 pounds)
Humidity (not currently applicable)
Omit if TRKFLG equals zero
SB
1-10
11-20
21-30
31-40
41-50
-
FIO.O
FIO.O
FIO.O
FIO.O
-
HGWGT
HDWGT
HGCID
HDCID
-
Ibs 18,000
Ibs 19,000-55,000 45,000
in3 330-390 350
in3 540-600 580
Blank
Average gas vehicle weight
Average diesel vehicle weight
Average gas displacement
Average diesel displacement
Omit if IMFLG equals zero
5C
6
1-10
11-15
16-20
21-25
26-30
31-35
1-2
6-10
11-15
-
15
15
15
15
15
12
15
15
-
ICYIM
ISTRIK
IMTFLG
MODYR1
MODYR2
1C
LGATE(1,IG)
LGATE(2,IG)
-
82
30
0-1 0
81 J
6 6
1 to 200 15
1 to 200 16
Blank
Last two digits of implementation year of I/M
Stringency
Mechanic's training (1 = yes)
Beglning and ending model
years subject to Inspection
Card type number
Link number of exit gate to parking lot
Link number of approach to parking lot
(continued)
-------
TABLE 2 (continued).
Card
7
Column
1-2-
3-5
6-10
11-15
Format
12
13
F5.3
F5.3
Symbol
1C
VT
VTP(VT)
VTE(VT)
Typical value
Units Value limits (default value
in parentheses )
-7 7
1, 2, or 3 1
> 1. 1.4
—
Description
Card type number
Vehicle type,
and load) =
Number of pass
auto (park) = 1; bus (stop
2; truck (stop and wait) = 3
lengers in average vehicle
(continued)
-------
TABLE 2 (continued).
Card Column
8 1-2
3-5
6-10
11-15
16-20
21-25
26-30
31-35
36-40
41-45
46-50
51-55
56-60
61-65
66-70
71-75
76-80
Format
12
13
F5.0
F5.0
F5.0
15
F5.0
F5.0
F5.0
15
F5.0
F5.0
F5.0
15
F5.0
F5.0
F5.0
Symbol
1C
L
COUNT (1,L)
COUNT(2,L)
COUNT(3,L)
L2
COUNT(1,L2)
COUNT(2,L2)
COUNT(3,L2)
L3
COUNT(1,L3)
COUNT(2,L3)
COUNT(3,L3)
L4
COUNT (1,L4)
COUNT (2, L4)
COUNT(3,L4)
Units
-
—
veh
veh
veh
-
veh
veh
veh
-
-veh
veh
veh
-
veh
veh
veh
Value limits
8
1 to 200
> 0.
> 0.
> 0.
1 to 200
> 0.
> 0.
> 0.
1 to 200
> °-
> 0.
> 0.
1 to 200
> 0.
> 0.
> 0.
Typical value
(default value
in parentheses)
8
151
755.
88.
107.
152
1064.
0-.
0.
153
457.
147.
170.
154
429.
0.
0.
Description
Card type number
Link number on which count occurs (1 < L <
NLINK)
Count going straight from link L through
the intersection during time period
Count going right from link L
Count going left from link L
Link number on which count occurs
Count going straight from link L2
Count going right from link L2
Count going left from link L2
Link number on which count occurs
Count going straight from link L3
Count going right from link L3
Count going left from link L3
Link number on which count occurs
Count going straight from link L4
Count going right from link L4
Count going left from link L4
(continued)
-------
TABLE 2 (continued).
Card Column
9 1-2
3-12
13-22
23-25
26-30
31-35
36-45
46-55
56-60
61-66
67-70
Format
12
F10.5
F10.5
13
F5.0
15
F10.0
F10.0
F5.0
LI3
14
Symbol Units Value limits
1C - 9
XO(I) ft > 0.
YO(I) ft > 0.
ISTR(l) - 0, 1
AST(I) deg from N 0. to 180.
NLKST(I) - 0 to 2
WST(I) ft > 0
BUILDH(I) ft > 0
RECHGT(I) ft > 0
ISTLIN(I,J), > 0
J = 1, 2
IRSIDE(I) 1 or 2
Typical value
(default value
in parentheses)
9
2983.75
3774.25
0
17.0
2
60.
70.
5.
1, 2
1
Description
Card type number
X-coordinate of receptor location
Y-coordinate of receptor location
0 = exclude street canyon model
1 • potential street canyon receptor
Direction of the street in degrees from
north
Number of links influencing the street
canyon receptor
Receptor street width
Building height
Receptor height
Identification numbers for those links
affecting receptor I
Side of the street on which receptor I is
located with respect to the street
heading specified by AST(I) (1 = right,
2 = left)
(continued)
-------
TABLE 2 (continued).
Card
10
Column
1-2
3-10
11-18
19-23
or
19-23
Format
12
F8.2
F8.2
15
15
Symbol
1C
THETA(I)
WS(I)
ISTAB(I)
or
ICLD(I)
Units
-
deg from N
knots
-
tenths
Value limits
10
0. to 360.
>1.94
1 to 5
0 to 10
Typical value
(default value
in parentheses)
10
101.
3.89
4
-
Description
Card type number
Wind direction
Wind speed
Stability class
or
Cloud cover
-------
HEADER CARD (CARD TYPE 0)
The first data card for each time period is a header card containing the
date and a descriptor that identifies the run. The descriptor may consist of
any 70 alphanumeric characters. Column 80 must contain a 1 for the modified
version of ISMAP to be run correctly.
RUN DESCRIPTION (CARD TYPE 1)
For each time period the header card is followed by card type 1. This card
denotes how many of each of the other card types (2 through 10) should be
read for that time period. If the data on a card type does not change from
one time period to the next, the card type 1 for the second time period should
have a zero or spaces in the proper columns to indicate that the data have not
changed and no new cards of a particular type should be read.
Card type 1 also contains the time of day, TOD, and the day of week, DOW.
The input value for time of day should be the beginning of the period being
simulated; e.g., when computing hourly concentrations, TOD is 8 for the period
0800 to 0900 LST. For day of week, 1 is Sunday, 2 is Monday, and so forth.
The length of time being simulated with each iteration of ISMAP is specified
as TP. This value can be meaningfully varied from 900 sec (15 minutes) to
7200 sec (2 hours). In general, traffic counts and demands and meteorological
data are available as 1-hour summaries; for this reason the usual value for
TP is 3600. The trips attracted to and generated by the interior zones during
a time period of duration TP are read as TOTATT and TOTGEN. The input value
for the parking density constant is ignored by the modified version of ISMAP.
This variable is set equal to an extremely low value to avoid routing of
vehicles between interior zones.
The number of iterations of the route selection process may be input using
the ITM parameter. The default value for ITM is 13 which means that one itera-
tion of the route selection process will be made in which four alternative
routes will be selected between each external-internal and internal-external
zone pair. Vehicles are routed onto these alternative routes based on travel
time and gate capacity. When ITM is 2, the route selection process is carried
out twice and half of the vehicles to be routed are applied to the four ini-
tially selected alternative routes, and half the vehicles are applied to the
second four alternative routes. When ITM is greater than 1, vehicles can be
routed around intersections that are predicted to be congested by earlier
route selection iterations. A computer run time increase of about 60 percent
can be expected when specifying ITM = 2 rather than ITM = 1, when only one
receptor location (card type 9) has been specified.
LINK DESCRIPTION (CARD TYPE 2)
Each direction of flow on a street within the network is assigned a link
number. A card type 2 is read for each link and includes the link number.
The average number of lanes of traffic that make up the link are specified,
and link capacity is determined when such capacity is not input (at 1200 veh/
lane for speeds less than 70 ft/sec and 1800 veh/lane for speeds greater than
70 ft/sec).
47
-------
Coordinates must be read that specify each link's end points in the hori-
zontal plane. There are dire consequences if zones are defined by links
that do not connect at their end points (see card type 4 description). Co-
ordinates are input in feet from some arbitrary origin and must be positive.
Link capacity may be input or left to be computed by ISMAP. Usually a
network is very insensitive to link capacity, intersection capacity being the
controlling variable. The exception is a freeway or other limited access road,
which might be included in the simulated network.
Speed, in ft/sec, on a link indicates the average speed that vehicles
travel during low-use periods. This can usually be estimated as the speed
limit on the link.
Link-to-link connections are specified for each link going straight,
right, and left. When a link does not lead to another link, the connection
should be input as zero or spaces.
An emission height must be input for elevated links. When modeling a
facility located on relatively flat terrain, an emission height of zero is
normally input for all traffic links. While a more realistic value of the
emission height would be 0.5 m, this change would cause little effect upon
the calculated concentration if an initial vertical diffusion of 3 m were
specified. At present, depressed roadways are treated as surface emission
sources, while roadways upwind of aerodynamic barriers may be assigned effec-
tive emission heights, as necessary.
INTERSECTION DESCRIPTION (CARD TYPE 3)
An intersection description is required for each intersection in the
network. An intersection can be defined at each connection between two or
more links. The link numbers of streets entering the intersection from the
north, east, south, and west are input parameters. If there is no link ap-
proaching from some cardinal direction, spaces or zeros should be entered.
A type of control for each intersection (I) must be specified as follows:
ITYPC(I) = -2 indicates a 4-way arterial stop.
ITYPC(I) = -1
ITYPC(I) = 0
ITYPC(I) = 1
indicates a 2-way arterial stop. The approach
with the largest volume is considered to be
uncontrolled, while the cross traffic links are
assumed to have stop signs.
indicates no control on any approach.
indicates a fixed time signal controller.
48
-------
ITYPC(I) = 2
ITYPC(I) = 3
ITYPC(I) = 4
ITYPC(I) = 5
indicates a vehicle-actuated (VA) controller
with possible separate left turning phases for
north-south and east-west traffic.
indicates a vehicle-actuated controller with
each intersection approach controlled by a
separate signal phase. During a green phase,
left-turning vehicles do not have to cross an
opposing traffic flow since the opposing traffic
experiences a red signal.
indicates type 2 control on the north-south
approaches and type 3 control on the east-west
approaches. The north-south approaches are
controlled by a vehicle-actuated controller
during phase 1 of the signal cycle. If phase 3
is specified as having other than zero phase
length, left turns from the north-south directions
are made during phase 3. If phase 3 is specified
as having a zero phase length, then left-turning
vehicles are assumed to move during phase 1 and
experience opposing vehicular flow. Phases 2 and
4 are exclusive green phases for the east and
west approaches, respectively.
indicates type 3 control on the north-south
approaches and type 2 control on the east-west
approaches. Phases 1 and 3 are exclusive green
phases controlling the north and south approaches,
respectively. The east-west approaches are con-
trolled by a vehicle-actuated controller during
phase 2 of the signal cycle. If phase 4 is
specified as having other than zero phase length,
left turns from the east-west directions are made
during this phase. If phase 4 is specified as having
a zero phase length, left-turning vehicles are assumed
to move during phase 2 and to experience opposing
vehicular flow.
The five controller types are intended to allow any fixed time or VA type
control to be simulated. The controllers are simplified, however, and cannot
be used to exactly replicate leading or lagging left-turn phases, or 8-phase-
full-quad-left signal controllers. It is often possible to adjust the capa-
city of an intersection to compensate for the lack of a more sophisticated
simulated signal controller, and produce meaningful results. An 8-phase-quad-
left control is best simulated by a type 2 controller.
Each signal controller must have a maximum cycle length specified, as
well as nonzero phase times for each operating signal phase. For example, a
simple fixed-time signal might have a 60-sec cycle time and 30-sec north-
south and 30-sec east-west phase lengths. If phase 3 and phase 4 times are
set to zero, the ISMkP simulation assumes left turns are made through opposing
49
-------
traffic during phases 1 and 2. When specifying VA control, each phase time
represents a minimum phase length. Green time is apportioned among the phases
in"proportion to the largest demand capacity ratio on the controlled approaches.
For example, a type 2 controlled intersection might have a maximum cycle
length of 240 sec, minimum north-south phase 1 and east-west phase 2 green
times of 30 sec, and minimum north-south left-turn phase 3 and east-west left-
turn phase 4 green times of 10 sec. This signal could operate at an 80-sec
cycle time under low demand conditions (3CH-30+1CH-10) and at a 240-sec cycle
time under high demand conditions. (Actually, if there is no demand for the
east-west left-turn phase 4, phase skippability will be assumed and a 70-sec
minimum cycle time would be possible.)
A yellow clearance interval, CI(I), is specified for each controller.
This interval is applied to each phase of each controller and decreases the
effective green time of each signal phase by CI(I)/2.
Four approach capacities may be specified, one for each approach (or
phase if the intersection is signalized). If an input capacity parameter is
left blank, ISMAP will determine a capacity based on the number of lanes on
the approach link and the type of intersection control. Capacity of a signa-
lized intersection approach can be determined by selecting the capacity per
hour of green based on the road width from Figures 6.6 through 6.13 in the
Highway Capacity Manual.9 The capacity so selected assumes 10 percent left-
turning and 10 percent right-turning vehicles. ISMAP adjusts the input capa-
city based on the percentage of vehicles actually routed left and right in
the modeled network. When a 3 or 4 phase and type 1 or 2 signal is specified,
the 3rd phase is assumed to be the north-south left-turn phase and the 4th
phase is assumed to be the east-west left-turn phase. The capacities input
should be the maximum of the left-turning approaches during the 3rd or 4th
phase. A type 3 intersection assumes the 3rd and 4th phases control the south
and east approaches and the 3rd and 4th capacities are the capacities of these
approaches.
Besides an adjustment for number of turning vehicles, ISMAP assumes there
is a left-turn lane where left-turn phases are specified. This has the effect
of increasing capacity to the through vehicles, as well as to the left-turning
vehicles.
ZONE DESCRIPTION (CARD TYPE 4)
Vehicle routing takes place from exterior zones to interior zones with
the facility and vice versa. In the original ISMAP interior zones were parking
zones surrounded by links of the network. Exterior zones are usually assigned
to each exterior street from which vehicles enter or leave the network. In-
terior zones are identified by numbers 01 to 50 while exterior zones are
numbered 51 to 99.
Each zone identified will have an attraction factor (ZATTR) and a genera-
tion factor (ZGENR) assigned to it by the user. These factors may vary from
hour to hour (as would be the case for an office building parking lot located
within a shopping center) or may remain constant throughout the day. The
50
-------
factors may be in units of percent of TOTATT and TOTGEN (input on card type 1)
or in units of vehicles attracted and generated by the zone during a time
period, but the units must be consistent on all zone cards. The factors are
summarized within ISMAP for all exterior and all interior zones, and a percent-
age of the total is determined for each zone and is multiplied by TOTATT and
TOTGEN to determine the vehicles attracted or generated. TOTATT is the number
of trips attracted to a facility from exterior zones. Therefore, each ZATTR
specified for an interior zone will represent a part of TOTATT, while each
ZATTR specified for an exterior zone will represent a part of TOTGEN.
Vehicle trips to a zone may be in terms of autos, buses, and trucks.
Autos are the only vehicles that will use parking capacity. The percent of
each type of trip to each zone is an input parameter.
When a run is initialized on the computer, zero cars are assumed to be
parked in each zone unless a parked vehicle value is input. Since the number
of parked vehicles is saved from iteration to iteration, it is unnecessary to
input parked vehicle values except on the first iteration of ISMAP.
A parking zone capacity (PLC) is input in a number of vehicles. This
parameter, if left blank, will be calculated by ISMAP based on the parking
zone area. It is important to input PLC when a building or other facility is
present within the parking zone.
The number of sides that define each parking zone (NZL) must be input
for each interior zone. A parking zone is defined as a polygon of no more
than six sides. The links that surround the zone should be input (as ZLINKS)
in an order such that each link immediately follows the link to which it is
connected. When defining a zone, if the last link does not connect with the
first link, the program will construct a side to close the zone. The con-
structed side should not be included in NZL. For the modified ISMAP, NZL
must be input as 2 of less, and the links surrounding the zone, ZLINKS, must
be identified as the two links entering and leaving the internal zone.
LOCAL AREA DESCRIPTION (CARD TYPE 5)
Local area descriptors appear on card type 5. The user must input the
percentage of heavy duty vehicles in the total traffic, the altitude and lati-
tude of the site, and the background CO concentrations at the site. The size
of the grid into which area source emissions will be parceled also must be
specified. This input parameter depends somewhat on the size of the area to
be modeled. Grid sizes of 5 to 10 m are deemed appropriate for applications
such as shopping centers. An input value that is too small will result in the
generation of arrays requiring more computer storage than has been set aside.
To determine the minimum grid size allowed, divide the maximum value of the
link end point coordinates by 298.001. It should be noted that computer run-
ning costs will increase nonlinearly as the grid size decreases. A default
value of 10 m will be used for the grid size if 0 is input. A tuning factor
is input on this card, which can be used to adjust modeled emissions, based
on measured emissions, or to adjust emissions based on different emission
factors found in other countries.
51
-------
Card type 5 also requires specification of a distance representing ini-
tial vertical diffusion. Suggested values for this parameter are in the range
of 3 to 10 m. If a value less than 3 m is input, ISMAP will set the constant
equal to 3 m.
Also input on this card are the region, temperature, cold and hot starts,
and the fractions of the vehicle population of light-duty vehicles, light-duty
trucks, heavy-duty gasoline fueled vehicles, heavy-duty diesel-fueled vehicles
and motorcycles. The final input variables on this card are indicators of
whether the supplemental correction factors are to be used. (These factors
are identical to MOBILE1.) If used cards 5A, 5B and/or 5C must be supplied.)
GATE DESCRIPTION (CARD TYPE 6)
Each entrance and exit gate to an internal zone must be specified by a
gate description card. Two links define a gate: one is the link by which
vehicles leave the center, and the second is the link by which vehicles enter
the center. The capacity for each gate is determined by the program based on
input or assumed link capacities. Recall that vehicles are allocated to four
alternate routes in inverse proportion to travel time and volume to capacity
ration of the gate used. Thus, all trips between external and internal zones
must be routed through a gate. If a route exists between an external and in-
ternal zone that does not go through a gate, the program will fail without
any explanation.
VEHICLE CHARACTERISTICS (CARD TYPE 7)
This card is read for each type of vehicle entering the facility. The
three possible types of vehicles are autos, buses, and trucks. Each vehicle
should have a load factor associated with it, indicating the number of person
trips to the facility that are associated with each vehicle.
VEHICLE COUNTS (CARD TYPE 8)
The purpose of this card is to specify the nonfacility vehicles that use
the street network. The links and intersections outside the facility will
handle vehicle trips to the facility as well as other trips. The Vehicle
Count cards are used to apply the nonfacility-oriented trips to the street
network. The counts for as many as four links can be included on each card.
The count on a link is broken down into vehicles traveling straight, turning
right, or turning left at the downstream intersection of the link with other
links. It is convenient to include the counts of four approaches to an inter-
section on a card. The input parameters are:
• North approach link number (L) followed by the counts
on this approach traveling straight, right, and left.
• East approach link number (L2) followed by the counts
on this approach traveling straight, right, and left.
• South approach link number (L3) followed by the counts
on this approach traveling straight, right, and left.
52
-------
• West approach link number (L4) followed by the counts
on this approach traveling straight, right, and left.
The facility-oriented vehicles are added to the Vehicle Counts during an ISMAP
run to determine the total vehicles on each link of the network.
RECEPTOR DESCRIPTION (CARD TYPE 9)
The x- and y-coordinates of each receptor location are input on card type
9. The values for these coordinates are in feet and must be positive and based
on the same origin used for link coordinates. If the receptor is located in
a potential street canyon the user must also specify the relevant street canyon
characteristics discussed earlier in this section.
METEOROLOGICAL VARIABLES (CARD TYPE 10)
Card type 10 contains the meteorological information necessary for dis-
persion calculations. The user has the option of specifying the stability
class as input or allowing ISMAP to calculate stability class from cloud cover
and wind speed data. However, the stability determination capability of ISMAP
can only be used when the time period being simulated is 1 hour. If stability
is to be input, one card type 10, with values for wind direction, wind speed,
and stability class, is input with traffic and site descriptors for each time
period (durations of from 900 to 7200 sec are possible). If ISMAP is to cal-
culate stability class, 24 card type 10s containing observations of wind direc-
tion, wind speed, and cloud cover for 24 hours of the day are input with the
traffic and site data for the first hour for which CO concentrations are to be
computed. If stability is to be found by ISMAP, the meteorological data for
all 24 hours of a day is input together, even if CO computations are to be
made for only a few hours of the day. This is necessary for program effi-
ciency. Since the stability class for each hour of the day will be found
during dispersion calculations for the first hour, no card type 10 is input
with traffic and site data for subsequent hours until a new day is to be run.
If the wind is calm, wind speed should be input on card type 10 as 1.94 knots
(1 m/sec) and the wind direction from the previous time period should be
used.
53
-------
SECTION 5
SAMPLE APPLICATION
For a sample application of the modified ISMAP model we have chosen the
configuration of links, intersections, zones and receptors shown in Figure 12.
For this particular example the traffic flow within the network is generated
by means of vehicle attractions and generations for six interior zones and
six exterior zones. When setting up a network such as this one, it must be
remembered that vehicles cannot be routed between two interior zones or two
exterior zones. For each of the interior zones a gate has been designated
with associated incoming and outgoing links. A total of nine receptor loca-
tions are used in this simulation with the central receptor considered to be
a street canyon receptor.
A listing of the model input cards for this sample case follows Figure 12.
The format for each card is given by Table 2. The first card in the list is
the leader card which gives the date for which the simulation is being carried
out (not the date of the computer run), the run identities and a flag in
column 80 which must be set equal to 1 for the modified version of ISMAP to
be run properly. The following card (card 1) indicates that for the simula-
tion there will be 48 links, 9 intersections, 12 zones, 1 type 5 card, 6 gates,
3 vehicle types, no VMT which is not due to zone attractions, 9 receptor loca-
tions and 1 hour's worth of meteorological data. Also input to the program
on this card is the hour of the day (8), time period duration (3600 sec),
total trips attracted to the interior zones (1800), total trips generated by
the interior zones (300), parking density constant (360 ft^ - not used) and
the number of iterations to be used in the route selection process (3). For
each link a type 2 card is required giving number of lanes, endpoint coordi-
nates in feet, cruise speed on the link (ft/sec), link connections (going
straight, turning right and turning left), and emission height (meters).
For example, if we follow link 21 along the direction from the first pair of
endpoint coordinates to the second, we meet links 23, 46 and 47. For each
of the links used in this example the cruise speed was assumed to be 58 ft/sec
(40 mi/hr) and the emission height set equal to zero. For each of the nine
intersections a type 3 card is provided giving the identification numbers of
links approaching the intersection; signalization type (fixed time for the
example case); cycle time (200 sec); duration of North-South, East-West,
North-South left turn and East-West left turn phases ( 75, 75, 25, 25 sec);
and yellow time interval (3 sec). The default value of 1200 veh/hr/lane
was used as the capacity of each phase. The card type 4 entries identify the
interior zones (01-06) and the exterior zones and give the number of trips
attracted to or generated by the zone as a fraction of total trips attracted
to and generated by all interior and exterior zones. The percentage values
54
-------
LEGEND-:
0'UNK NUMBERS ( I -48)
H "INTERIOR ZONES. ( 1-6)
•EXTERIOR ZONES )«. _ gg.
^•INTERSECTION NUMBERS(|..Q)
Q'SKl NUMBERS ( |-12)
• -RECEPTOR LOCATIONS
•\oocf-
Figure 12. Diagram for test case of modified
55
-------
INDIRECT SOURCE MODEL FOR AIR POLLUTION (ISRAP), INPUT DATA
E F A
BATE 072079
PAGE
kiFLT.L ISMAPDATA
ELT007 SL73R1 07/20/79 18:44:56 <2,)
0^0001 OCO 7703C1 EXAM CLE HOT SPOT CALCULATION WITH
unopo2
0^000*
000004
000005
OOOOOfr
0^0007
oooooe
000009
000010
000011
000012
0:0013
000014
000015
0^0016
000017
0^0013
000019
0^0020
000021
0000??
000021
000024
000025
000026
030027
000023
000029
000030
000031
000032
000033
000034
000035
000036
000037
030033
000039
000040
000041
00004?
00004!
000044
000045
000046
000047
00004?
000049
000050
000051
000052
000053
000054
000055
000
000
OOG
000
COU
000
OOU
000
OCO
000
000
000
coo
000
coo
000
coo
000
ceo
000
coo
coo
000
coo
coo
000
COu
000
ceo
ceo
coo
000
000
000
000
000
coo
000
000
cou
coo
coo
000
000
000
000
coo
000
OCO
000
coo
000
coo
000
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
3
3
3
3
t
48
01
02
03
04
05
06
07
Oft
09
10
11
12
13
14
15
16
17
16
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
36
39
40
41
42
43
44
45
46
47
48
01
02
03
04
05
9 12
2 1100.
2 1100.
22100.
2 2100.
23100.
23100.
24100.
24100.
2 1100.
21100.
22100.
22100.
23100.
23100.
24100.
24100.
2110C.
2 1100.
22100.
2210C.
23100.
2310C.
24100.
24100.
2 1130.
21110.
21130.
21110.
21130.
21110.
21130.
21110.
22130.
21110.
22130.
22110.
22130.
22110.
22130.
22110.
23120.
23110.
23130.
23110.
23130.
23110.
23130.
23110.
28 04
36 06
44 08
30 12
38 14
1 6
111 t. 0100.
113C.0100.
1110.1100.
1130.1100.
1110.2100.
1130.2100.
1110.3100.
1130.3100.
211C.0100.
2 1 3 C . 0 1 00 .
2110.1100.
23 1C. 11 00.
2110.2100.
2130.2100.
21 1C. 3100.
2130.3100.
311C.0100.
313C.3100.
3110.1100.
3130.1100.
3110.2100.
313C.2100.
311 C.3100.
313C.3100.
1100.1130.
1100.1110.
2100.1130.
2100.1110.
310C.1130.
310L.1110.
4100.1130.
4100.1110.
110C.2130.
1100.2110.
2100.2130.
2100.2110.
310C.2130.
3100.2110.
410C.2130.
410C.21 10.
1100.3110.
1100.3110.
2100.3130.
2100.3110.
310C.3130.
3100.3110.
4100.3130.
410C.3110.
25 01
33 03
41 05
27 09
35 11
3
1110.
113o.
1110.
1130.
1110-
1130-
1110.
1130-
211Q.
213Q.
2110.
213o«
211o.
2130.
2110.
213o.
311o.
3130.
3110.
313Q.
311Q.
3130.
3110.
313o.
0100.
0100.
1100.
1100.
2100.
2100.
3100.
3100.
0100.
01QO.
1100.
1100.
2100.
2100.
3100.
31QO.
0100.
0100.
1100.
1100.
2100-
2100-
3100.
3 IOC.
1
1
1
1
1
0 9
58.
56.
56.
58.
58.
58.
56.
58.
58.
56.
58.
58.
56.
58.
58.
58.
56.
58.
58.
56.
58.
58.
58.
58.
56.
58.
58.
58.
58.
58.
58.
56.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
58.
5£.
58.
200 75.
200 75.
200 75.
200 75.
200 75.
MODIFIED ISI»AP
1
03
DC
05
02
07
04
00
06'
11
00
13
10
15
12
00
14
19
00
21
16
23
20
00
22
27
00
29
26
31
26
00
30
35
00
37
34
39
36
00
38
43
00
45
42
47
44
00.
46
75. 25.
75. 25.
75. 25.
75. 25.
75. 25.
6.
26
00
34
27
42
35
00
43
28
00
36
29
44
37
00
45
30
00
38
31
46
39
00
47
03
00
11
02
19
10
00
18
05
00
13
04
21
12
00
20
07
00
51
06
23
41
00
22
25.
25.
25.
25.
25.
3.3600.'
57
00
35
26
43
34
00
42
29
00
37
28
46
36
00
44
31
00
39
30
47
38
00
46
02
00
10
03
18
11
00
19
04
00
12
05
20
13
00
21
06
00
14
07
22
15
00
23
3.
3.
3.
3.
3.
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
-------
INDIRECT SOURCE MODEL FOR AIR POLLUTION (ISHAP). INPUT DATA
EPA
DATE 072079
PA6E
57
000054
000057
00005?
000059
000060
000061
000062
000063
000064
000065
000064
000067
000068
000069
000070
000071
000072
000073
000074
000075
000076
000077
00 00 7!
000079
000060
000081
000082
000083
OOOOJ4
000065
000086
000067
OOOOEB
OOOOE9
000090
000091
000
oco
coo
oco
000
coo
oco
coo
000
000
coo
cou
000
000
coo
coo
ceo
000
coo
000
000
GOO
000
000
000
COD
OOQ
000
000
000
000
000
000
coo
000
000
3 06 46
? 07 32
3 oe 40
3 C9 4t
45612.12.
45512.12.
45412.12.
45312.12.
45212.12.
45112.12.
40612.12.
40512.12.
16
20
22
24
40412.12.
4
&
4
c
6
6
6
6
6
6
7
7
7
9
0
9
9
9
9
9
9
9
10
312.12.
212.12.
112.12.
0.0 0.0 0.
01
09
17
41
33
25
1 01.4
2 15.0
3 02.0
1000.
2000.
300C.
1000.
2000.
3000.
10GC.
2QOG.
3000.
120.
0 1
02
10
1E
42
?4
26
5.
43 13 1 200 75. 75. 25. 25. 3.
29 17 1 200 75. 75. 25. 25. 3.
37 19 1 200 75. 75. 25. 25. 3.
45 21 1 200 75. 75. 25. 25. 3.
07 08
15 16
23 24
47 48
39 40
1 31 32
1 41 42
1 33 34
1 25 26
1 17 18
1 9 10
112
.0 0.0 1 50. 0.20 0.20 0.20 0.75 0.05 0.05 0.09 0.06
1090.
1090.
1 090 .
2090.
2090. 1 90. 2 60. 70. 5. 11 12
2090.
3090.
3090.
3090.
00 4
0.00 000
END ELT.
t^RKPT PRINTS
-------
INDIRECT SOURCE TODEL FOR AIR POLLUTION , - OUTPUT
EPA
770301
EXAMPLE HOT SPOT CALCULATION WITH MODIFIED
DATE 072079
1
PAGE
BARKING LOT EMISSIONS NOT CONSIDERED
1
?
-i
i
-i
7
?
r
7
7
?
2
7
2
i.
i
7
7
7
?
2
7
?
2
2
c
2
-)
2
2
^
2
2
-\
•>
2
2
2
-)
2
-*
c
2
2
•>
7
2
?
2
2
j
T
7
T
7
T
4t
1
2
1
i,
5
6
7
£
9
10
11
M
13
14
15
16
1 7
16
19
20
21
22
21
24
25
26
27
26
29
30
31
32
33
34
35
36
37
36
39
40
41
42
43
44
45
46
47
46
1
2
3
4
5
9 1
211 CO
2 11 00
22100
221 00
23100
23100
24100
24100
211CO
211 CO
22100
221 CO
231CO
23100
24100
24100
21100
21100
2 21 00
22100
231CO
23100
24100
24100
2113C
211 10
21130
211 1C
211 30
211 1C
211 30
211 10
221 30
22110
22130
2211C
22130
22110
2213G
221 10
23130
23110
23130
23110
23130
23110
2313C
231 10
25
36
44
30 1
3? 1
i 1
.1110.
.1130.
.1110.
.1110.
.1110.
.1130.
.1 110.
.1130.
.2110.
.2130.
.2110.
.2310.
.2110.
.2130.
.2110.
.2130.
.3110.
.3130.
.3110.
.3130.
.3110.
.3130.
.3110.
.3130.
.1130.
.1130.
.2130.
.2100.
.3100 .
.3130.
.4130.
.4100.
.1130.
.1 130.
.2130.
.2130.
.3130.
.3130.
.4130.
.4100.
.1100.
.1130.
.2130.
.2130.
.3130.
.3130.
.4130.
.4130.
4 25
6 33
e. 41
2 27
4 35
100
100
1100
1100
2100
2100
3100
3100
100
100
11CO
1100
2100
2100
3100
3100
100
100
1100
1100
2100
2100
3100
31CO
1130
1110
1130
1110
1130
1110
1130
1110
2130
2110
2130
2110
2130
2110
2130
2110
3110
3110
3130
3110
3130
3110
3130
3110
1
6 3
.1110.
.1 13U.
.1110-
.1130.
.1110.
.1130.
.1110.
.1130.
.2110.
.2130.
.2110.
.2 130.
.2110.
.2130.
.2110.
.2130.
.3110.
.3130.
.311 L.
.3130.
.3110.
.313C.
.3110.
.3130.
. 1CO.
. 100.
.1100.
.1100.
.2100.
.2100.
.3100.
.3100.
. 100.
. 100.
.1 100.
.1100.
.2100.
.2100.
.3100.
.3100.
. 100.
. 100.
.1 100.
.1 100.
.2100.
.2 100.
.3100.
.3100.
1 1
3 1
5 1
9 1
1 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
0
0
0
0
0
0
0
0
0
0
0
0
0
200
200
200
200
200
9
5E.
5E.
'56.
5E .
51.
58.
5E.
58.
56.
5E.
5E.
5E.
58.
56.
58.
58.
58.
5fc.
56.
5E.
56.
56.
56.
5E.
56.
58.
58.
58.
56.
EE.
58.
56.
5E.
5E.
5E .
5E.
5E.
56.
56.
5E.
58.
58.
58.
58.
56.
5E.
5B.
58.
75. 75
75. 75
75. 75
75. 75
75. 75
1
3
0
5
2
7
4
0
6
11
0
13
10
15
12
0
U
19
0
21
18
23
20
0
22
27
0
29
26
31
28
0
30
35
0
37
34
39
36
0
38
43
0
45
42
47
44
0
46
. 25.
. 25.
. 25.
. 25.
. 25.
8.
26
0
34
27
42
35
0
43
28
0
36
29
44
37
0
45
30
0
38
31
46
39
0
47
3
0
11
2
19
10
0
18
5
0
13
4
21
12
0
20
7
0
51
6
23
41
0
22
25.
25.
25 .
25 .
25 .
3.3
57
0
35
26
43
34
0
42
29
0
37
28
46
36
0
44
31
0
39
30
47
38
0
46
2
0
10
3
18
11
0
19
4
0
12
5
20
13
0
21
6
0
14
7
22
15
0
23
3.
3.
3.
3.
3 .
600.1800. 300. 360
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0. 0. 0. 0.
0. 0. 0. 0.
0. 0. 0 . 0.
0. 0. 0. 0.
0. 0* 0. 0.
-------
INDIRECT SOURCE ITOOEL FOR AIP POLLUTION (ISMAP), - OUTPUT
EPA
DATE 072079
PAGE
59
y e
! 7
» 6
3 V
*Sei2.
45512.
<541c.
45312.
45212,
45112.
112.
212.
212.
412.
512.
612.
5 0.
A
6
A
£
•>
6
9 3Q4
9 609
9 914
9 3D*
9 609
9 914
9 304
9 609
9 914
45
32
43
48
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.0
12.1.C
12.1.0
12.1.0
12.1.0
0. C
1
9
17
41
3!
25
.83000
.60000
.35999
.80000
.60000
.39999
.soooc
.60000
.39999
10 120.00
16
20
22
24
.0 .
•0 •
• 0 •
• 0 •
• 0 •
•C •
• o .
• 0 >
>o •
.0 .
.0 .
.0 .
. 1.
2
10
ia
42
34
26
332.
332.
332.
637.
637.
637.
941.
941.
941.
*! 13
29 17
37 19
45 21
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0 0.
0. 1
2320C
23200
23200
03200
03200
03200
83199
83199
83199
50
0
0
0
0
1
0
C
0
0
C
0
0
0
0
0
0
0
C
0
0
0
1
1
1
1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
. 1
<00 75.
200 75.
200 75.
200 75.
7 8
15 16
23 24
47 48
39 40
31 32
1 2
9 10
17 1B
25 26
33 34
41 42
. .200 .?00
0.
0.
0.
0.
90.
0.
0.
0.
0.
C
0
0
0
2
0
0
0
0
75. 25. 25
75. 25. 25
75. 25. 25
75. 25. 25
.200 .750 .
0-
0.
0.
0.
18.
0.
0.
0.
0.
. 3. 0.
. 3. o*
. 3. 0«
. 3. 0*
050 .050
0.
0.
0.
0.
21.
0.
o.
o.
0.
0. 0.
o. o.
0. 0.
0. 0.
.090 .060
0. 0 0
0. 0 0
0. 0 0
0. 0 0
2. 11 12
0. 0 0
0. 0 0
0. 0 0
0. 0 0
0.
o.
0.
0.
.OOQ QOO
0
0
0
0
1
0
0
0
0
5.00 4
PARKING 70NE CAPACITIES AND LENGTHS NOT USED IN THE CALCULATION
PAFFIC SUBMODEL
INTER SECTION
TII»E
V/GC
DEL A
QUEUE
VOLUME
CAPACITY
V/GUP
INTERSECT
TIWE
V/6C
NORTH-AP
46.
0.
400.
1065.
.13503
ION 2
PHASE 1
75.
.13803
SOUTH-AP
40.
C.
5C.
1065.
.01725
PHASE 1
75.
.10352
EAST-AP
42.
0.
174.
1065.
.06007
PHASE 2
75.
.06007
HEST-AP
40.
0.
50.
1217.
.01510
PHASE 1
75.
.06890
N-AP-LFT
87.
0.
50.
141.
.04167
PHASE 3
25.
.04167
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.00476
E-AP-LFT
115.
1.
100.
141.
.08333
PHASE 4
25.
.08333
U-AP-LFT
77.
0.
0.
141.
.00000
PHASE 4
25.
.05566
-------
INDIRECT SOURCE fODEL FOR AJR POLLUTION USMAP), - OUTPUT
E F A
DATE 072079
PAGE
60
D tl A
cur uc.
VOLU1 I
CAPACITY
V / 6 C « F
I NTER SECT
T I"E
V /GC
DELA
3UEUE
VOLl""E
C APAC 1TY
V/GCAP
I NTER SECT
T J'E
v/ec
P ELA
OUFUE
VOLUME
C APAC ITY
V / $ C A P
1 NTER SECT
T i»E
V/GC
DELA
SUE UE
VOLUME
C APAC ITY
V/6C« P
NORT H- AP
44 .
0.
300.
1065.
.10752
ION T
NORTH-AP
43.
0.
250.
1 21 7.
.07548
ION 4
NORTH-AP
53.
1 .
fr50.
1065.
.22429
ION 5
NORTH-AP
41 .
Q.
150.
1217.
.04529
S OUTH -AP
40.
G.
4 4.
1150.
.014 15
PHASE 1
75 .
• 07s tg
SOUTH -AP
4C.
0.
71.
106 5.
.02467
PHASE 1
75.
.224 2?
SOUTH-AP
4 C.
C.
46.
1217.
.013 99
PHASE 1
75.
.05051
SOUTH-AP
41.
0.
14t.
1065.
.05051
INTERSECTION 6
TI"E
V/SC
DELA
9UEUE
VOLU1E
CAPACITY
V/FCAP
!NTERSEcT
TI^E
V/GC
DELA
NOKTH-AP
43.
0.
255.
1065.
.06115
ION 7
NORTH-AP
43 .
PHASE 1
75 .
.081 15
SOUTH-AP
*c.
0.
97.
1 21 7.
.02931
PHASE 1
75.
.08235
SOUTH-AP
40.
EAST-AP
42.
0.
210.
1116.
.06890
EAST-AP
43.
0.
250.
1116.
.08235
EAST-AP
40.
0.
50.
1217.
.01510
EAST-AP
40.
0.
50.
1217.
.01510
EAST-AP
43.
0.
250.
1116.
.08235
EAST-AP
43.
UEST-AP
40.
0.
61.
1065.
.02104
PHASE 2
75.
.08235
WEST-AP
39.
0.
21.
1217.
.006^7
PHASE 2
75.
.01510
WEST-AP
39.
0.
27.
1217.
.00809
PHASE 2
75.
.01510
WEST-AP
39.
0.
27.
1130.
.00871
PHASE 2
75.
.08235
WEST-AP
41.
Q.
94.
1065.
.03261
PHASE 2
75.
.07785
WEST-AP
40.
N-AP-LFT
77.
0.
5.
141.
.00384
N-AP-LFT
77.
0.
4.
141.
.00347
N-AP-LFT
77.
0.
o.
141.
.00000
N-AP-LFT
87.
0.
50.
141.
.04167
N-AP-LFT
77.
0.
6.
141.
.00459
N-AP-LFT
67.
S-AP-LFT
77.
0.
6.
141.
.00476
PHASE 3
25.
.04960
S-AP-LFT
90.
0.
60.
141.
.04960
PHASE 3
25.
.04167
S-AP-LFT
87.
0.
50.
141.
.04167
PHASE 3
25.
.04167
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.00459
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.04167
S-AP-LFT
77.
E-AP-LFT
87.
0.
50.
141.
.04167
E-AP-LFT
87.
0.
50.
141.
.04167
E-AP-LFT
77.
0.
0.
141.
.00000
E-AP-LFT
422.
12.
150.
141.
.12500
E-AP-LFT
87.
0.
50.
141.
.04167
E-AP-LFT
4252.
W-AP-LFT
93-
0.
67.
141 .
.05566
PHASE 4
25.
.04167
W-AP-LFT
77.
0.
0.
141 .
.00000
PHASE ,4
25.
.01934
W-AP-LFT
81.
0.
23.
141.
.01934
PHASE 4
25.
.12500
W-AP-LFT
77.
0.
0.
141.
.00000
PHASE 4
25.
.05509
W-AP-LFT
92.
0.
66.
141.
.05509
PHASE 4
25.
.37500
W-AP-LFT
78.
-------
INDIRECT SOURCE l»ODEL FOR »1R POLLUTION (1SHAP>, - OUTPUT
EPA
DATE 072079
PAGE
61
OUEUE 0.
VOLUME 25Q.
CAPACITY 1116.
V/fCAP .08235
INTERSECTION 5
TI«E
v/ec
NORTW-AP
DELA 14.
3UEUE 0.
WOLU1E 300.
CAPACITY 1065.
V/GCAP .10352
INTERSECTION 9
TI"E
v/ec
NORTH-AP
[>£LA 44.
QUEUE 0.
VOLUME 300.
CAPAClTf 1055.
V/6CAP .10352
INTERSECTION 1
TIKE
V/6C
WORTH-A"
DELA 45.
3UEUE 0.
VOLU1E 350.
CAPACITY 1065.
V/GCAP .12377
INTERSECTION 2
TI»E
v/ec
NORTH-AP
DELA 43 .
OUEUE 0.
VOLU»E 2?0.
CAPACITY 1065.
V/6C4P .03627
INTERSECTION 5
T1»E
V/6C
NORTH-AP
DELA '5 .
OUFUE 0.
VOLUME 350.
0.
70.
1065.
.02399
PHASE 1
75.
.10352
SOUTH-AP
4t.
G.
52.
106J.
.01810
P HA S E 1
75.
.10352
SOUTH-AP
4 C.
0.
47.
1065.
.0162*
PHASE 1
75.
.12077
SOUTH-AP
4C.
0.
50.
1065.
.01725
PHASE 1
75.
.08627
SOUTH-AP
4 I.
0.
47.
1115.
.01553
PHASE 1
75.
.12077
SOUTH-AP
41.
0.
109.
0.
256.
1206.
.07785
EAST-AP
47.
0.
500.
1217.
.15097
EAST-AP
43.
0.
250.
1217.
.07548
EAST-AP
43.
0.
212.
1069.
.07291
EAST-AP
43.
0.
268.
1154.
.08531
EAST-AP
43.
0.
250.
0.
43.
1217.
.01288
PHASE 2
75.
.15097
WEST-AP
41.
0.
107.
1217.
.03225
PHASE 2
75.
.07548
UEST-AP
41.
0.
101.
1065.
.03486
PHASE 2
75.
.07291
WEST-AP
40.
0.
50.
1217.
.01510
PHASE 2
75.
.08531
WEST-AP
40.
0.
35.
1065.
.01204
PHASE 2
75.
.08235
WEST-AP
40.
0.
43.
0.
50.
141.
.04167
N-AP-LFT
77.
0.
0.
141.
.00000
N-AP-LFT
77.
0.
o.
141.
.00000
N-AP-LFT
81.
0.
25.
141.
.02083
N-AP-LFT
82.
0.
29.
141.
.02395 .
N-AP-LFT
77.
0.
2.
0.
0.
141.
.00000
PHASE 3
25.
.00459
S-AP-LFT
77.
0.
6.
141.
.00459
PHASE 3
25.
.08333
S-AP-LFT
115.
1.
100.
141.
.08333
PHASE 3
25.
.02083
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.02395
S-AP-LFT
77.
0.
3.
141.
.00238
PHASE 3
25.
.03565
S-AP-LFT
85.
0.
43.
112.
45Q.
141.
.37500
E-AP-LFT
115.
1.
100.
141.
.08333
E-AP-LFT
87.
0.
50.
141.
.04167
E-AP-LFT
115.
1.
100.
141.
.08333
E-AP-LFT
115.
1.
100.
141.
.08333
E-AP-LFT
87.
0.
50.
0.
7.
141.
.00613
PHASE 4
25.
.08333
H-AP-LFT
80.
0.
18.
141.
.01521
PHASE 4
25.
.04167
W-AP-LFT
81.
0.
26.
141.
.02205
PHASE 4
25.
.08333
U-AP-LFT
77.
0.
0.
141.
.00000
PHASE 4
25.
.08333
W-AP-uFT
89.
0.
56.
141.
.04643
PHASE 4
25.
.04167
W-AP-LFT
77.
0.
5.
-------
INDIRECT SOURCE PODtL FOR AIP POLLUTION (ISMAP), - OUTPUT
EPA
D*TE 072079
PAGE
62
C APAC ITY
V / fi C » P
INTERSECT
T 1«E
V/GC
DELA
3UFUE
VOLUl E
C APAC ITY
V /f CA P
10'. 5 .
.1 2377
ION t
NORTH-AP
46.
0.
430-
10t5.
.13*03
1077.
.33730
PHASE 1
75.
.13803
SOUTH-AP
4C.
0.
71.
106S.
.02459
INTERSECTION 5
T1«IE
W/EC
0 EL A
1UEUE
VOlUlE
C APAC ITY
V/6CAP
NORTH-AP
1.1, .
0.
3?0«
1045.
.10152
PH«SE 1
75 .
.10352
SOUTH-AP
4 1.
C.
123.
1065.
.04239
INTERSECTION 6
T Ifl
v/ec
OELA
3UEUE
VOLim
C APAC ITY
V/GCAP
NORTH-AP
45.
0.
339.
1065.
.1 1*5P
PHASE 1
75.
.11358
S OUTH -AP
40.
0.
£3.
121 7.
.025 16
INTERSECTION 7
TI»E
V/C-C
OELA
1UFUE
VOLUME
C APAC ITY
V/GC4P
I NTEP SECT
T1«E
v/ec
DELA
3UEUE
VOLUl E
C APAC ITY
V/6CAP
NORTH-AP
43.
0.
i75.
1125.
.08984
ION e
NORTH-AP
44.
0.
330-
10<5.
.10352
PHASE 1
75.
.oeoa4
SOUTH-AP
40.
0.
56.
1065.
.01949
PHASE 1
75.
.10352
SOUTH-AP
40.
0.
54.
1065.
.01852
1116.
.0?235
EAST-AP
42.
0.
192.
1106.
.06376
EAST-AP
42.
0.
176.
1179.
.05492
EAST-AP
42.
0.
225.
1161.
.07123
EAST-AP
42.
0.
203.
1210.
.06157
EAST-AP
43.
0.
300.
1217.
.09058
1065.
.01473
PHASE 2
75.
.06376
WEST-AP
40.
0.
36.
1217.
.01082
PHASE 2
75.
.05492
WEST-AP
41.
0.
104.
1078.
.03562
PHASE 2
75.
.07123
WEST-AP
41.
0.
97.
1065.
.03356
PHASE 2
75.
.06157
WEST-AP
40.
0.
42.
117Q.
.01327
PHASE 2
75.
.09058
WEST-AP
40.
0.
67.
1217.
.02027
1*1.
.00174
N-AP-LFT
8S.
0.
54.
141.
.04496
N-AP-LFT
R1.
0.
25.
141.
.02083
N-AP-LFT
77.
0.
3.
141.
.00229
N-AP-LFT
81.
0.
25.
1*1.
.02083
N-AP-LFT
77.
0.
0.
141.
.oooco
141.
.03565
PHASE 3
25.
.04496
S-AP-LFT
81.
0.
25.
141.
.02083
PHASE 3
25.
.02083
S-AP-LFT
77.
0.
4.
141.
.003*5
PHASE 3
25.
.04262
S-AP-LFT
87.
0.
51.
141.
.0*262
PHASE 3
25.
.04167
S-AP-LFT
87.
0.
50.
1*1.
.04167
PHASE 3
25.
.00230
S-AP-LFT
77.
0.
3.
141.
.00230
1*1.
.04167
E-AP-LfT
115.
1.
100.
1«1.
.08333
E-AP-LfT
96.
1.
75.
1*1.
.06250
E-AP-LFT
96.
1.
75..
1*1.
.06250
E-AP-LFT
2452.
65.
225.
1*1.
.18750
E-AP-LFT
537.
15.
150.
1*1.
.12500
141.
.00*50
PHASE *
25.
.08333
W-AP-LFT
79.
0.
14.
141.
.01180
PHASE *
25.
.06250
W-AP-LFT
78,
0.
6.
141.
.0053*
PHASE *
25.
.07470
W-AP-LFT
105.
1.
90.
1*1.
.07*70
PHASE *
25.
.18750
W-AP-LFT
78.
0.
8.
141.
.00647
PHASE 4
25.
.12500
W-AP-LFT
79.
0.
13.
141.
.01097
-------
INDIRECT SOURCE PODEl FOP AIR POLLUTION (1SKAP), - OUTPUT
EPA
DATE 072079
PAGE
63
INTERSECTION
V/EC
DELA
QUEUE
VOLUlE
CAPAC ITY
V/GC»P
COUNTS
NONTH-AP
44.
0.
300.
1045.
.10352
LINK THRU RT LT
1 50.
6 263.
11 6Q.
16 i17.
21 23.
26 0.
31 0.
36 167.
41 69.
46 335.
0. 0.
104. 117.
19. 11.
17. 57.
75. 17.
Q. 0.
0. 0.
1CO. 19.
31. 51.
101. 4.
PHASE 1
75.
.10352
SOUTH-AP
40.
0.
106s!
.02012
TERM LINK
0. 2
0. 7
0. 12
0. 17
0. 22
300. 17
50. 32
0. 37
0. 42
0. 47
EAST-AP
42.
o.
225.
1217.
.06793
THRU RT LT TERM
0. 0. 0. 300.
0* 0. 0. 50.
183. 31. 83. 0.
39. 3. 6. 0.
233. 0. 100. 0.
54. 16. 17. 0.
2-|7. 50. 33. 0.
39. 30. 35. 0.
0. 0. 0. 300.
0. 0. 0. 50 .
PHASE 2
75.
.06793
WEST-AP
40.
0.
65.
1065.
.02250
LINK THRU RT
3 27. 17.
8 217. 33.
13 46. 35.
18 0. 0.
23 0. 0.
28 167. 117.
33 37. 11.
38 183. 100.
43 77. 0.
48 167. 133.
N-AP-L FT
77.
0.
0.
141.
.00000
LT TERM LINK
51. 0. 4
50. 0. 9
65. 0. 14
0. .300. 19
0. 50. 24
33. 0. 29
2. 0. 34
17. 0. 39
34. 0. 44
Q. 0.
PHASE 3
25.
.04167
S-AP-LFT
87.
0.
50.
141.
.04167
THRU RT LT
183. 4E. 133.
38. 0. 12.
142. 26. 83.
68. 17. 11.
167. 0. 133.
40. 23. 33.
0. 0. 0.
0. 0. 0.
217. 217. 3.
E-AP-LFT
96.
1.
75.
1*1.
.06250
TERM LINK
0. 5
0. 10
0. 15
0. 20
0. 25
0. 30
300. 35
SO. 40
0. 45
PHASE <
25.
.06250
W-AP-LFT
80.
0.
19.
141.
.01563
THRU RT LT
16. 33. 8.
0. 0. Q.
0. 0. 0.
217. 2. 150.
36. 12. 0.
233. 100. 36.
66. 68. 56.
183. 100. 17.
33. 27. 33.
TERM
0.
300.
50.
0.
0.
0.
0.
0.
0.
INTERSECTION 1
Tlf!E
V/6C
DELA
OUFUE
VOLUME
CAPACITY
V/GCAP
INTERSECT
TI«E
V/GC
DELA
QUEUE
VOLUME
CAPAC ITY
V/GC»P
NCRTH-AP
44.
0.
2S3.
1065.
.09777
ION 2
NORTH-AP
44.
0.
267.
1065 .
.09202
PHASE 1
75.
.09777
SOUTH-AP
40.
G.
50.
1096.
.01677
PHASE 1
75.
.D92C2
SOUTH-AP
4C.
0.
4f .
1097.
.01611
EAST-AP
43.
0.
232.
1111.
.07667
EAST-AP
46.
0.
367.
1074.
.12570
PHASE 2
75.
.07667
WEST-AP
40.
0.
50.
1217.
.01510
PHASE 2
75.
.12570
WEST-AP
40.
o.
44.
1065.
.01516
N-AP-LFT
83.
0.
33.
141.
.02778
N-AP-LFT
80.
0.
19.
141.
.01596
PHASE 3
25.
.02778
S-AP-LFT
77.
0.
0.
141.
.00000
PHASE 3
25.
.01596
S-AP-LFT
77.
0.
2.
141.
.00159
E-AP-LFT
250.
6.
133.
141.
.11111
E-AP-LFT
146.
2.
117.
141.
.09722
PHASE 4
25.
.11111
W-AP-LFT
77.
0.
0.
141.
.00000
PHASE 4
25.
.09722
W-AP-LFT
87.
0.
51.
141.
.04282
INTERSECTION ?
TIME
V/GC
DEtA
9UEUE
VOLUME
CAPAC ITY
V/6CAP
NORTH-AP
47.
0.
433.
1065.
.1 4'53
PHASE 1
75 .
.1 4953
SOUTH-AP
4 1.
0.
10C.
1065.
.03455
EAST-AP
43.
0.
250.
1150.
.07992
PHASE 2
75.
.07992
WEST-AP
40.
o.
50.
1065.
.01712
N-AP-LFT
77.
0.
3.
141.
.00249
PHASE 3
25.
.04211
S-AP-LFT
87.
0.
51.
141.
.04211
E-AP-LFT
87.
0.
50.
141.
.04167
PHASE 4
25.
.04167
W-AP-LFT
78.
0.
8.
141.
.00687
INTER SECTION
-------
INDIRECT SOURCE fODEL FOR AIR POLLUTION
T ]"(
v/r, c
D EL A
<1 UE U[
VOL U« t
CAPACITY
V /&C» P
INTERSECT
T I»E
v/c. c
BEL A
TUFUE
VO|_U« i.
C APAC ITT
V / f. C A P
INTERSECT
T 1«E
V/6C
D EL A
3UEUE
VOLU1 E
C APAC IT Y
V/GC* P
NOKTH-AP
'5 .
0-
333.
1GC5.
.115Q?
ION 5
NORT H-AP
44 .
0.
2?3 .
10^5.
.09777
ION 6
NORTH-AP
47 .
0.
435 .
1 100 .
.14547
PHASE 1
75 .
.1 1502
SOUTH -AP
40.
C.
7C.
1102.
.02? 30
PHASE 1
75 .
.09777
SOUTH -AP
4 1.
0.
136.
1065.
.T4690
PHASE 1
75 .
.14547
SOUTH -AP
40.
(J.
77.
121 7.
.02320
INTERSECTION 7
T IWE
v/r-c
DELA
3 UEUE
VOLU1 E
C APAC 1TY
V/GCA P
I NTEB SECT
r 1I»E
v/r-c
DELA
5UFUE
VOLU» E
C A°AC ITY
v /( CA P
T NTER SE CT
TIPE
NORTH-AP
<3.
0.
267.
1122.
,0£734
ION ?
NORTH-AP
44 .
0.
2*3.
1C55.
.09777
ION 9
PHASE 1
75 .
.08734
SOUTH-AP
4 0.
0.
64.
1065.
.021 93
PHASE 1
75.
.09777
SOUTH-AP
40.
t.
69.
1065.
.023o8
PHASE 1
75 .
(ISMAP) ,
EAST-AP
42.
0.
215.
1143.
.06900
EAST-AP
42.
0.
167.
114Q.
.05399
FAST-AP
42.
0.
233.
1181.
.07261
EAST-AP
42.
0.
219.
1213.
.06621
EAST-AP
42.
0.
233.
1217.
.07045
- OUTPUT
PHASE 2
75.
.06900
WEST-AP
40.
0.
38 .
1217.
.01157
PHASE 2
75.
.05399
UEST-Ap
40.
0.
80.
1095.
.02669
PHASE 2
75.
.07261
WEST-AP
40.
0.
80.
1065.
.02777
PHASE 2
75.
.06621
WEST-AP
40.
0.
42.
1185.
.01305
PHASE 2
75.
.07045
UEST-AP
40.
0.
85.
1117.
.02764
PHASE 2
75.
EPA
DATE 072079
PAGE
N-AP-LFT
83.
0.
36.
141.
.02997
N-AP-LFT
79.
0.
17.
141.
.01789
N-AP-LFT
77.
0.
4.
141.
.00372
N-AP-LFT
83.
0.
33.
141.
.02778
N-AP-LFT
79.
0.
17.
141.
.01389
PHASE 3
25.
.02997
S-AP-LFT
79.
0.
17.
141.
.01389
PHASE 3
25.
.04676
S-AP-LFT
89.
0.
56.
141.
.04676
PHASE 3
25.
.02841
S-AP-LFT
83.
0.
34.
141.
.02841
PHASE 3
25.
.02778
S-AP-LFT
83.
0.
33.
141.
.02778
PHASE 3
25.
.02931
S-AP-LFT
83.
0.
35.
141.
.02931
PHASE 3
25.
E-AP-LfT
101.
1.
83.
141.
.Q6944
E-AP-LFT
101.
1.
83.
141.
.06944
E-AP-LFT
93.
0.
67.
141.
.05556
E-AP-LFT
652.
16.
150.
1*1.
.12500
E-AP-LFT
115.
1.
100.
141.
.08333
PHASE 4
25.
.06944
W-AP-LFT
78.
0.
12.
141.
.00973
PHASE 4
25.
.06944
W-AP-LFT
78.
0.
11.
141.
.00890
PHASE 4
25.
.05556
W-AP-LFT
92.
0.
65.
141.
.05412
PHASE 4
25.
.12500
W-AP-LFT
73.
0.
8.
141.
.00659
PHASE 4
25.
.08333
W-AP-LFT
78.
0.
11.
141.
.00955
PHASE 4
25.
-------
INDIRECT SOURCE PODEL FOR AIR POLLUTION (ISRAP), - OUTPUT
EPA
DATE 072079
PAGE
65
v/ec
DELA
auEUE
VOLUME
CAPACITY
V/GC»P
NORTH-AP
(4.
0.
300.
1C65.
.10152
.10353
SOUTH-AP
AC.
0.
60.
1065.
.02Q77
EAST-AP
41.
0.
167.
1217.
.05032
.05032
KEST-AP
41.
0.
98.
1065.
.03378-
LINK TRAVEL TIMES LINK
1 57. :?. 94. 2
7 17. 17. 17. 8
13 5?. 56. 11C. 14
19 5?. 58. 96. 20
25 57. 57. 94. 26
31 17. 17. 17. 32
37 58. 5£. 101. 38
4! 5". 5E. 101. 44
TOTAL TRAVEL TIKE ON NETWOR
TOTAL RUNNING T1»E IN PARKI
TOTAL VEHICLE MILES TRAVELE
RAVEL TIKES
17. 17. 17
61. 61. 1j)5
60. 119
61. 671
17. 17
62. 101
62. 98
66. 96
60.
61.
17.
62.
62.
66.
NG ZONES
D ON NETWORK
LINK TRAVEL TIMES LINK
. 3 57. 57. 105. 4
. 9 57. 57. 96. 10
. 15 17. 17. 17. 16
. 21 58. 58. 97. 22
. 27 58. 58. 97. 28
. 33 57. 57. 94. 34
. 39 17. 17. 17. 40
. 45 58. 58. 100. .46
189.(VEH-HRS)
O.(VEH-HRS)
1465.(VEH-MI)
TOTAL INTERSECTION DELAY ON NETWORK
TOTAL STOPS AT INTERSECTIONS
TOTAL OF INTERSECTION AVERAGE 8UEUE
150.fVEH-HRS)
5642.
-------
INDIRECT SOURCE PODEL FOR AIR POLLUTION (1SMAP), - OUTPUT
c HI SS IONS S UPMODf L
EPA
DATE 072079
PAGE
66
FblOM =
FAR = 77
EHP.C
« THIX
f f I SS
1 .2
1 .4
1 .4
1 .5
rMI SS
LINK
1
L
t
4
f.
ts
7
t
<,
10
1 1
12
13
U
15
16
17
U
19
20
21
22
23
24
25
26
27
28
29
3C
71
72
T 1
34
75
36
37
36
OLD. HO
ION CO
62603
217?4
29426
47107
IOSS
NSTOPS
31
0
77
267
3?
375
D
214
34
0
60
222
111
188
0
219
32
0
64
295
77
251
0
24D
31
3
55
225
69
267
0
211
31
D
140
200
74
210
T. CCOLD=
.750
FRECTION
1 .365603
1 .409963
1 .447363
1 .60575fc
uLEYGTH
.8564+01
.0000
. 116?+C2
.1362+03
.9045*01
.1062+03
.0000
.5045+02
.7232+01
.0003
. 1450 + 02
.5013+02
. 204P+02
.4094+02
. 00 03
.4952+02
.7663 + M
.000?
.1545+02
.303J+03
.1826+02
.6097+02
.0003
.1251+03
.S635+C1
.0000
.1315+02
.5615+02
.1337+02
.6729+C2
.0000
.5222+02
.6403+01
.0003
.2926+02
.5149+02
.1445+02
.54&4+02
50.000
.050
1 .422399 1
1.404052 1
1.47264Q 1
1.715C49 1
COUNT
.5000+02
.7000 + 0?
.9532 + 02
.3651+03
.57f4 + 02
.4 83 9+03
.5000+02
.3000+03
.5000+02
.3000+03
.'022+02
.29SO + 03
.1454+03
.2506 + 03
.500C+02
.3000+03
.5000+02
.3000+03
.9605+02
.36E5 + 03
.1147+03
.3333 + 03
.5000+02
.3000+03
.5000+02
.3000+03
.E64S+02
.3167+03
.9689+02
.3693+03
.5000+02
.3000+03
.5000+02
.3000 + 03
.1920 + 03
.2856+03
.1036+03
.3000+03
.230
.050
1.440174 1
1. 4Q6090 1
1. 467615 1
1.931629 2
SPEED
.5740+02
.5438+02
.5665+02
.5359+02
.5730+02
. 5215+02
.5740+02
.54}f+02
.5740+02
.5438+02
.5691+02
.5440+02
.5624+02
.5497+02
.5740+02
.5438+02
.5740+02
.5438+02
.5664+02
.5355+02
.5661+02
.5397+02
.5740+02
.5438+02
.5740+02
.543E+02
.5695+02
.5417+02
.56S3+02
.5354+02
.5740+02
.5458+02
.5740+02
.5438+02
.5568+02
.5455+02
.5675+02
.5438+02
.200 .200
090 .060 .000
.435166
.443988
.512240
.043941
E AT SPEED
.2203-03
.1363-02
.4220-03
.1674-02
.2551-03
.2231-02
.2203-03
.1363-03
.2203-03
.1363-02
.3992-03
.1351-02
.6475-03
.1131-02
.2203-03
.1363-02
.2203-03
.1363-02
.4255-03
.1690-02
.5090-03
.1521-02
.2203-03
.1363-02
.2203-03
.1363-02
.3826-03
.1442-02
.4291-03
.1694-02
.2203-03
.1363-02
.2203-03
.1363-02
.8599-03
.1296-02
.4600-03
.1363-02
DISTANCE
.1014+03
.3048+03
.1042+03
.8763+02
.1019+03
.1060+03
.3048+03
.1092+03
.1018+03
.3048+03
.1029+03
.1140+03
.1057+03
.1081+03
.3048+03
.1095+03
.1016+03
.3048*03
.1032+03
.3740+02
.1038+03
.1087+03
.3048+03
.8644+02
.1013+03
.3046+03
.1030+03
.1088+03
.1038+03
.1096+03
.3048+03
.1066+03
.1014+03
.3048+03
.1069+03
.1077+03
.1041+03
.1078+03
E DECEL
.6212-03
.0000
.1364-02
.5361-02
..7463-03
.7028-02
.0000
.4090-02
.6600-03
.0000
.1174-02
.4182-02
.2076-02
.3535-02
.0000
.4141-02
.6342-03
.0000
.1251-02
.5479-02
.1501-02
.4753-02
.0000
.4421-02
.6212-03
.0000
.1131-02
.4342-02
.1319-02
.5123-02
.0000
.4051-02
.6212-03
.0000
.2656-02
.3847-02
.1414-02
.4039-02
DISTANCE
.1004+03
.0000
.9850+02
.8753+02
.1001+03
.8290+02
.0000
.9012+02
.1004+03
.0000
.9572+02
.9020+02
.9642+02
.9210+02
.0000
.9012+02
.1004+03
.0000
.9S47+02
.8740+02
.9769+02
.8879+02
.0000
.9012+02
.1004+03
.0000
.9887+02
.6945+02
.9.544+02
.8736+02
.0000
.9012+02
.1004+03
.0000
.9450+02
.9069+02
.9815+02
.9012+02
E IDLE
.7550-01
.0000
.9915-01
.3839-01
.8212-01
.6968-01
.0000
.8471-01
.8726-01
.0000
.8108-01
.8255-01
.9011-01
.8246-01
• 0000
.8494-01
.6372-01
.0000
.8124-01
.1865-01
.8277-01
.7640-01
.0000
.3305-01
.7525-01
.0000
.8509-01
.8292-01
.9226-01
.8322-01
.0000
.8305-01
.7725-01
.0000
.8726-01
.8087-01
.9177-01
.8056-01
DISTANCE
.2616+01
.0000
.3622+01
.4211+02
.2757+01
.3298+02
.0000
.1537+02
.2204+01
.0000
.4420+01
.1527+02
.6245+01
.1248+02
.0000 •
.1509+02
.2336+01
.0000
.4708+01
.9261+02
.5567+01
.1857+02
.0000
.3812+02
.2632+01
.0000
.4008+01
.1712+02
.4077+01
.2051+02
.0000
.1592+02
.2561+01
.0000
.8919+01
.1569+02
.4404+01
.1671+02
E ACCEL
.1708-P2
.0000
.3926-02
.1559-01
.2079-02
.2044-01
.0000
.1163-01
.1852-02
.0000
.3279-02
.1200-01
.5974-02
.1015-01
.0000
.1182-01
.1756-02
.0000
.3497-02
.1599-01
.4204-02
.1369-01
.0000
.1288-01
.1708-02
.0000
.3166-02
.1235-01
.3741-02
.1464-01
.0000
.1149-01
.1708-02
.0000
.7577-02
.1089-01
.4011-02
.1144-01
DISTANCE
.1004+03
.0000
.9850+02
.8753+02
.1001+03
.8290+02
.0000
.9012+02
.1004+03
.0000
.9872+02
.9020+02
.9642+02
.9210+02
.0000
.9012+02
.1004+03
.0000
.9847+02
.6740+02
.9769+02
.8879+02
.0000
.9012+02
.1004+03
.0000
.9887+02
.8945+02
.9844+02
.8736+02
.0000
.9012+02
.1004+03
.0000
.9450+02
.9069+02
.9815+02
.9012+02
-------
INDIRECT SOURCE PODEL FOP AIR POLLUTION (ISMAP), - OUTPUT EPA
3* 3 .0003 .5000+02 .5740+02 .2203-03 .3048+03 .0000 .0000
4C 21D .5464+C2 .3000+03 .5438+02 .1363-02 .1078+03 .4039-02 .9012+02
41 110 .£lof+P2 .1507+0? .5618+02 .6713-03 .1058+03 .2086-02 .9620+02
42 0 .OOOD .30CC+0? .5436+02 .1363-02 .3048+03 .0000 .0000
43 7? .1570+02 .110V+03 .5£66+02 .4921-03 .1043+03 .1511-02 .9785+02
44 720 .3824+02 .4363+03 .5273+02 .1997-02 .1084+03 .6105-02 .8474+02
45 67 .127?+02 .9352+02 .5687+02 .4140-03 .1037*03 .1279-02 .9858+02
46 321 .£805+02 .4396+03 .5269+02 .2014-02 .1087+03 .6134-02 .8460+02
47 0 .0000 .5000+02 .5740+02 .2203-03 .3048+03 .0000 .0000
1.1 209 .5741+02 .3000 + 0? .5438+02 .1363-02 .1071 + 03 .4026-02 .9012+02
SUBROUTINE STREET CALLED FOR RECEPTOR 5 AND LINK 11
*= 5 = 11 W= U.29 BHT= 21.34 RHT= 1.52 XLO= 2.00
1 =
» r
• =
» =
" =
JJ =
YY( JJ
OTS =
JJ =
YYUJ
DTS =
JJ =
YY(JJ
DTS =
JJ =
YYf JJ
DTS =
T =
M =
w -
5
5
5
5
5
1
) =
2
) =
3
) =
= 11 DXT= ?
=
=
=
1 =
fl =
•
.223
M =
•
.122
M =
»
11 11 =
11 11 =
11 11 =
11 11 =
1
2
T
4
04
DX
DX
DX
DX
.80
(II
DYT =
)= 102
UI>= 98
(11)= 4
(II)= 98
5 XX(JJ)=
643+03
+ 03
5 XX
643+03
+ 03
5 XX
643*03
XO(M)
(JJ) =
XOf M)
(JJ) =
X0(«)
r
=
=
.
.
387+03
.610+03
488+03
.610+03
53<5 + 03
.610+03
•
.95
.72
.42
.72
YOCfl
00 SL=
DY(1I)=
OY(I1>=
DT(1I>=
DY(II)=
>= .
YO(H>= .
YO(H)=
304.
637+03
637+03
637+03
80
.00
.00
.00
.00
.707+02
4
) =
H =
.
5 XX(JJ)=
o43«OI
XO(M)
=
591+03
.610+03
YO(M)=
637+03
.19S+G2
11
5
5
JKEEP
1 =
1 =
= l>
0 (I ,J
11 JKEEP=
KE
i
11 EPSIL=
SUBROUTINE STREET CALLED
t =
«!r
V =
» =
« =
« s
J J =
YY( JJ
P TS =
JJ =
» Y ( JJ
|>TS =
J J =
YY( JJ
5
5
5
5
5
5
1
) =
2
) =
3
> =
1 =
1 =
1 =
1 =
1 =
1 =
M =
•
.625
H =
,
.132
ff-
•
12 w =
12 DXT
12 11 =
12 11 =
12 11 =
1211 =
5 XX
694+03
+ 02
5 XX
676+03
+ 03
5 XX
667+03
1E
FO
.2
= -304
1
2
3
4
(JJ) =
XO(M)
(JJ) =
XO(M)
(JJ) =
XO(M)
DX
DX
DX
DX
=
=
=
EP)
CW
30.
.328-02
.379-03
CO
R RECEPTOR
9 BHT= 2
.SO
(II
(II
DYT =
)= -112
)= -B8
(II)= -15
(II
.
.
«
)= -88
584+Q3
.610+03
483+03
.610+03
432+03
.610+03
5
1.34
-54.
.22
.77
.03
.77
YOtH
CL =
AND LINK
RHT =
90 SL =
DY(II)=
DY=
i= .
YO(H)=
YO(M)= .
.663-03
12
1.52 XLO= 2.00
309.
-20
-15
-2
-15
637+03
637+03
637+03
70
.21
.99
.71
.99
OTS= .UO+C3
J J =
YY( JJ
DTS =
1 =
» =
* =
4
) =
M =
*
5 XX
657+03
CJJ) =
XO(H)
=
.
380+03
.610+03
Y0(«)=
637+03
.231+03
12
5
5
JKEEP
1 =
1 =
= 1
(J (I ,j
12 JKEEP=
KE
1
12 EPSIL=
EP)
Ch
30.
= .135-02
.156-03
00
CL =
.273-05
.0000
.8056-01
.8951-01
.0000
.9028-01
,7999-01
.9289-01
.8025-01
.0000
.7779-01
DATE 072079
.0000
.1671+02
.6659+01
.0000
.4786+01
.2689+02
.3894+01
.2685*02
.0000
.1750+02
PAGE
.0000
.1144-01
.5950-02
.0000
.4283-02
.1753-01
.3630-02
.1760-01
.0000
.1139-01
67
.0000
.9012+02
.9620+02
.0000
.9765+02
.8474+02
.9858+02
.8460+02
.0000
.9012+02
-------
SOURCE fODIL FOR AIR POLLUTION (ISMAP), - OUTPUT E F A <>*TE 072079 PAGE
INDIRECT SOURCE MODEL OF MR POLLUTION
EXAMPLE HOT SPOT CALCULATION WITH MODIFIED ISMAP DATE = 770301
NO. OF LINKS = 48 NO. OF ZONES = 1? NO. OF INTERSECTIONS *
HOUR = 8. WIND DIRECTION = 120. WIND SPEED = 2.6+00 STABILITY = *
tECEPTOR CO CONCENTRATION (PPM)
1 - 9 1.63-01 1 .£4-01 3.22-01 5.5A-01 1.28 + 00 3.06-01 5.39-01 5.22-01 2.70-01
-------
INDIRECT SOURCE KODEL FOR AIR POLLUTION (ISHAP), - OUTPUT EPA &*TE 072079 PAGE
NORMAL EXIT. EXECUTION TIPE: 16*66 MILLISECONDS.
i?RttPT PRINTS
-------
need not add to 100 since they are renormalized within the program. In our
example the total trips attracted to and generated by all interior zones are
distributed equally among the interior zones. The same procedure was followed
in the case of exterior zones. According to this configuration each interior
zone will attract 300 trips and generate 50 while each exterior zone will
generate 300 trips and attract 50. Again, it should be noted that the terms
interior and exterior no longer necessarily refer to the relative locations
of zones but simply to define two groups of zones between which travel can
occur. Card type 5 contains site description information and vehicle popula-
tion characteristics while the card 6 entries specify the links comprising
the gates entering the six interior zones. Card 7 gives the average number
of passengers per vehicle for three vehicle types: automobiles, buses and
trucks. No card type 8 is shown in the input listing since all trips are
assumed to be generated. The location of each of the nine receptors is given
on a separate card 9. The fifth receptor is designated as a street canyon
receptor with the appropriate street and building characteristics. On card 10
a single hour's meteorological data is specified.
The first portion of the program output is simply a listing of the model
input data with the receptor coordinates converted from feet to meters. The
next part of the output is the parking zone capacities and parking zone trip
lengths which are not used in the modified ISMAP calculations. Results of the
traffic calculations are presented for each of the three iterations on an
intersection by intersection and phase by phase basis. For each phase the
volume to green time capacity ratio, average delay (sec), average queue length
(vehicles), volume (vehicles/hour), capacity (vehicles/hour) and controlling
volume to hour of green capacity ratio. Before the listing of intersection
and phase parameters for the final iteration, a listing of vehicle counts on
each link are printed out for vehicles going straight (thru), turning right
(rt), turning left (It) or terminating at a zone (term). Following a listing
of parking lot parameters which are not used by the modified version of the
program, the link travel times for going straight, turning right and turning
left are printed out followed by listing of overall network travel times,
delays and average queue lengths. Emission rates (g/m/sec) for each link are
then printed out for different travel modes as follows:
LINK - Link number.
NSTOPS - Number of vehicles that stop on this link
during the simulated time period.
QLENGTH - Average queue length experienced by all stopping
vehicles, starting at the downstream intersection, ft.
COUNT - Number of vehicles using the link.
SPEED - Average speed of vehicles when unaffected by
starting or stopping movements at the intersection,
ft/sec.
68
-------
E AT SPEED - Emission rate of vehicles traveling at SPEED, in
gm sec"1 m"1.
DISTANCE - Distance over which the E AT SPEED emission rate applies, m.
E DECEL - Emission rate of vehicles while decelerating from SPEED to
a stopped position, gm sec"1 m"1.
DISTANCE - Distance over which the E DECEL rate applies, m.
E IDLE - Emission rate of idling vehicles, gm sec"1 m"1 .
DISTANCE - Distance over which the E IDLE rate applies, m.
E ACCEL - Emission rate of accelerating vehicles, gm sec"1 m"1.
DISTANCE - Distance over which the E ACCEL rate applies, m.
Finally the hour of the day and meteorological data are entered.
The output from the program consists of (1) a display of the input
parameters; (2) a listing of the parking zone capacities and the average trip
lengths within each zone; (3) traffic computations for each intersection in
the network; (4) a summary of the travel times on each link; (5) a summary
tabulation for the entire network showing total network travel time, total
travel time in parking zones (always 0), network vehicle-miles of travel,
total intersection delay, number of vehicle stops occurring, and the total
of the average queue length; (6) link emission data summary; and (7) a summary
showing the number of links, zones and intersections considered, the meteoro-
logical parameters used, and the resulting CO concentrations for each receptor.
Various codes used in the output are defined below:
TIME is the computed signal phase time (sec).
V/GV is the ratio of the highest approach volume to the approach capacity
per hour of green signal time, at an intersection.
NORTH-AP, SOUTH-AP, EAST-AP, WEST-AP are the designations of the inter-
section's north, south, east and west approaches, respectively.
N-AP-LFT, S-AP-LFT, E-AP-LFT, W-AP-LFT are the designations of the left-
turn phases from the intersection's north, south, east, and west
approaches, respectively.
DELA is the computed delay time.
QUEUE is the average number of vehicles queued per cycle.
VOLUME is the traffic volume in vehicles per hour.
CAPACITY is the number of vehicles that could pass over a link taking
into account interruptions to flow from traffic signals, pedestrians,
slow moving vehicles, etc.
V/GCAP is the ratio of the approach volume to the approach capacity per
hour of green signal time, for a specific intersection approach.
69
-------
SECTION 6
USE OF THE MODIFIED ISMAP MODEL
IN CONJUNCTION WITH APRAC
Since the modified ISMAP is not designed to handle a large number of
traffic links, the concentrations calculated for the model receptor locations
will certainly not reflect the carbon monoxide contributions from the remainder
of the urban area. If application of the model shows that concentrations
close to the standard might be expected, then some means must be found to
include the remaining links of the traffic network in the analysis. For those
receptors located quite close to roadways or intersections the contribution of
other link emissions to the carbon monoxide concentration is often small in
comparison to the contribution of the roadway or intersection in question. On
the other hand, for those receptors not immediately adjacent to the roadway
or intersection, this contribution can become a much greater fraction of the
total concentration especially in a large urban area and when a low mixing
prevails for an extended period of time.
One method to obtain quantitative estimates of the contributions of links
not included in the modified ISMAP is by use of the APRAC-1A8'10>l!>12 or
APRAC-215 computer models, which are designed for the prediction of hourly CO
concentrations at specific receptor locations based upon traffic link emissions
and meteorological data. The concentration contribution at a particular re-
ceptor location from links other than the receptor street is calculated by
means of a receptor oriented Gaussian plume model. For a given hour the model
sets up a series of area sources upwind of the receptor point. Each of these
area sources is assigned an emission strength based upon the link elements
contained within each. The vertical dispersion of the CO plume which occurs
between the area source and receptor will depend upon a vertical dispersion
parameter which is in turn a function of windspeed, cloud cover, and time of
day. The dilution factor of CO along the axis of the plume is proportional to
the windspeed.
For the most part, the differences between APRAC-1A and APRAC-2 are
insignificant when the models are used to estimate the intra-urban background
or mesoscale component. Most users will find APRAC-1A preferable, in that it
costs one-quarter to one-half as much as APRAC-2 to execute. The principal
differences between the models and their importance in the application con-
sidered here are reviewed below:
70
-------
Emissions Calculation - In the APRAC-1A program emissions, E,
are parameterized simply in the form of an emission factor
power law as:
E = aS~3
where E - emission factor (gm/veh/mi)
a,8 = constants for a particular year, model year
distribution, and weighted annual travel
distribution
S = average traffic speed (mi/hr)
The speed S is available for the emission factor calculation
since each link in the data set is characterized by one of
eight speed classes.
This formulation, compared to APRAC-2 is very inexpensive in terms
of computer time. One minor complication is that the a and $ con-
stants must be calculated for the emission characteristics of the
vehicle populations. This implies that only one value of cold
starts and the other emission parameters are applied universally.
A different year or time period would require new constants.
APRAC-2, on the other hand, explicitly calculates the emission fac-
tors according to Supplement 5 of AP-42. Different cold starts
proportions can be applied to seperate locations in a region and
different time periods. A unique speed on each link can be input
or speed can be calculated using a capacity restraint model. Con-
sequently, APRAC-2 can calculate emissions with much greater sensi-
tivity. The effect of such an enhancement on the calculation of the
mesoscale component is unknown. (ISMAP, of course, is sensitive
to these parameters and they are considered in the calculations
of the microscale component.) APRAC-2 can be updated to reflect
the new motor vehicle emission factors.16
Multiple Wind Field - APRAC-2 can accommodate wind measurements
from multiple locations in the region; unique values of speed
and directions are then interpolated for each reciptor. Where
such data are available and show significant variation, the use
of APRAC-2 should be considered.
Local Source Models - APRAC-1A and APRAC-2 provide for the use
of a street canyon sub-model; APRAC-2 also provides for the use
of a intersection sub-model. Since ISMAP already treats these
situations, these options should not be used again when APRAC
is used to calculate the mesoscale component.
71
-------
Dispersion Model Options - The following options are available
to the user of the APRAC-1A model:
— Synoptic Calculation - Source receptor relationships are
recalculated for each new hour of meteorological data.
This option should be used if the program is being run
to simulate only a limited number of hours (e.g., 24 hours).
— Climatological Calculation - Source receptor relationships
are calculated at the beginning of the program for a wide
range of meteorological configurations and written on a
direct access device. The appropriate normalized concen-
trations for each source-receptor pair are then reread
for the meteorological configuration which prevails at a
given hour. The climatological option should be used for
the simulation of a large number of hours. The final
decision as to whether the synoptic or climatological op-
tions should be used must also depend upon the relative
cost of CPU time and direct access I/O at the facility
where the model is being run.
— Grid Point Calculation - Carbon monoxide concentrations are
calculated at up to 625 receptor locations for a specified
hour of the day. This option would not be especially use-
ful in conjunction with the application of the IMM since
the user would be more interested in the concentration at
a small number of receptors for more than a single hour.
The APRAC-2 model has retained these options; however, the choice
is implicit depending on the input data supplied to APRAC-2.
APRAC-2 limits a user to 10 receptors for a 24-hour execution
and one receptor for a multiday execution.
Traffic Volume Data - The basic traffic input for the APRAC-1A
model is the number of vehicles per day for an array of links
whose endpoint coordinates are specified on a rectangular system
in units of 0.01 miles. To account for the curvature of a
particular link, the actual length of the roadway between the
endpoint is input. Each link is also assigned an appropriate
speed classification. Nonlink traffic volumes may be assigned to
rid squares superimposed upon the traffic network. The daily
traffic flow volume is apportioned for each hour of the day
according to hourly traffic flow distributions specific to
weekdays, Saturdays, and Sundays. There is also the option in
the program of selecting a given hour of the day as a peak hour.
72
-------
APRAC-2 treats link based traffic data in a similar manner.
In addition, APRAC-2 has an option for accepting FHWA type
binary link file via a preprocessor. Nonlink traffic volume
can be assigned the same way as APRAC-1A or can automatically
be computed by the mode. Daily traffic flow is apportioned
for each hour according to diurnal distributions as in
APRAC-1A. However, instead of diurnal factors for five
facility types as in APRAC-1A, APRAC 2 requires diurnal dis-
tributions for two facility types, for two directions, for
5 locals (i.e., CBD, commercial, residential, industrial and
rural) - a total of 20. There is no peak hour factor.
73
-------
Appendix A
PROGRAM LISTING
74
-------
APPENDIX A.
ISMAP MODEL
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION A6EHt\
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c******************************************************************
C
COMMON / COM!*/ I.Z.L,J, K, TOD, DOW, TP , TOTATT, TTPZ,TOTGEN . ITM
1tNYEAR,LHEAD(13), TUNFAC
INTEGER Z
COMMON / LINK/ NLINK, NLANf(200>, XK200), Y1(200), X2(200),Y2(2
1> ,LCAP(2QQ),DISTC200), VFLC20Q), LCON(200,3)
3,NSTOPS(200>
COMMON / 1NTRST/ NINS, LIN(70 , A ) , ITYPC (70), CYCL(?0), PH(70,4>,
1 Cl(70)f GCAP(70,4), QUE(70,4)
COMMON /ZONES/ N70NES, N7LINSC50), 2 LINKS(12 , 50) , ZATTR(50),
1ZGENR (50), NEXT, 7AT(2), ZGTC2), 7VTO.50), ZNAWEC50)
INTEGER ZLINKS»ZNA!«E
COMMON / GATE/ NGATE, LGATE(2,10), VCRdO, 2,4)
COMMON/VOLUME/ COUNTC4,2OU)
COMMON /PARKZ/ PZ, PV(50),PLA(50), VZ(50), ZV(50),P0,PLS,PLBO
1, PNOS(50) , PLLC50)
INTEGER PNOS
DATA SET PTISWAP7 AT LEVEL 016 AS OF 07/17/78
***** PTISHAP INDIRECT SOURCE MODEL FOR AIR POLLUTION *****
MODIFIED ISMAP VERSION 2
PREPARED BY GCA/TECHNOLOGY DIVISION
BURLINGTON ROAD, BEDFORD MASSACHUSETTS
(617) 275-9000
VERSION 2 PREPARED BY FRANK BENESH INCORPORATING THE
NEW MOTOR VEHICLE EMISSION FACTORS AND MODAL MODEL
COEFFICIENTS AND DETERIORATION RATES
VERSION 1 PREPARED BY MICHAEL T. MILLS INCORPORATING THE
STREET CANYON MODEL AND DISABLING THE PARKING SUBROUTINE
PREPARED UNDER CONTRACT WITH THE U.S. E.P.A.
SOURCE RECEPTOR ANALYSIS BRANCH
RESEARCH TRIANGLE PARK, NORTH CAROLINA
GEORGE SCHEVE, PROJECT OFFICER
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
OOMAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
MAI
00010
00020
00030
00040
00050
00060
00070
00080
00090
00100
00110
00120
00130
00 UO
00150
00160
00170
00180
00190
00200
00210
00220
00230
00240
00250
00260
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
00380
00390
00400
SOURCE CODE PAGE
075
-------
AF PF NDI X A,
ISMAP MODEL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AG6N
c
1
c
c
2
C
c
2
C
C
2
C
C
INTEGER PZ.PZ1
COMMON /VEHTYP/ VT,VTP(3), VTE(3), VTMULT(Z), SZVTPC3
COPMON/EXCLUD/^OPARK
COMMON TT<200,3),DFLA<200,3),PRT(50),QUEUE(200)
1 , EMI SS (200.4)
DATA IST/0/
DC 12 113=1 ,200
DO 12 114=1 ,3
LCON(II3,II4)=0
12 TT(I I3,II4>=0.0
1 DO 11 J1=1 ,4
DO 11 J2=1,200
11 C OUNT (J1 ,J2)=0.
CALL IMPT
TEST FOP FIRST T I *l E THRU AND INITIALIZE IF TRUE
4 I F (I ST .GE . 1) GO TO 3
I ST = 1
CALL ZAREA
INITIALIZE VOLUME TO CAPACITY RATIO INVERSES
DC 2 IG=1,NGATE
DC 2 K=1 ,2
D C 2 J = 1 , it
VCRUG.K , J) = 2.0
INITIALIZE LINK TO LINK TRAVEL TIMES
0022 L =1 »NLINK
DIST(L) = SQRTCCX1 (L)-X2(L) ) * * 2+ ( Y1 (L ) -Y 2 (L )) ** 2)
TTIME = OIST(L) /VEL (L )/NLAN£ ( L)
DO 22 J = 1 ,3
2 TT (L ,J> = TTIME
INITIALIZE PARKING LOT LENGTH (THE LENGTH OF THE LONGES
STORED IN PLL(Z)
IZ = NEXT * 1
DO 24 Z= IZ,NZONFS
IFCPLL(-Z) .LT. 0.0) PLL(Z) = -(PLL(Z) 4 PL A (Z )/ PL L ( Z )
PLL(Z ) = AMAX1 (PLL(Z) ,1 .0)
4 CONTINUE
ROUTE VEHICLES SPECIFIED AS TOTALT (TOTAL TRIPS ATTRACTE
K A I 00 4 1 0
,2) MAI0042Q
MAI00430
MAI 00440
M A I 00 4 5 0
MAI00460
MAI00470
MAI00480
MAI00490
MAI005QO
MAI 00510
M A 1 00 5 2 0
MAI00530
MAI 00 5 40
MAI00550
MAI00560
MAI00570
MAI00580
MAI00590
MAI00600
MAI00610
MAI00620
MAI00630
MAIQ0640
MAI00650
MAI00660
MAI 00 6 70
MAI 00680
MAI00690
MAI00700
MAI00710
T STDE IS MAI00720
MAI00730
MA100740
MAI 00 750
) MAI00760
MAI00770
MAI00780
MAI00790
D AND GENERATMAI00800
SOURCE CODE PAGE
O76
-------
APPENDIX ft
ISMAP MODEL
COMPUTER PROGRAM SOUFCE CODE
ENVIRONMENTAL PROTECTION AGENCt
C
C
C
ED) ONTO THE LINKS OF THE NFT«ORK
POD I
W
2P F
N
D
I
V
Z
G
> V
325 V
V
V
C STCRF.
Q
Q
C P
V
Z
C P
3T C
D
I
D
C TEST
I
FIND
OVER
I
Z
D
I
IDE
I
I
I
SEAR
C
C
FY ZONE ATTRACTIONS TO ACCOUNT FOR OVER CAPACITY DEMAND
fclTF (6,28)
ORMAT( 'TRAFFIC SUB MODE L'/'O '// )
1 = NEXT 41
0 33 Z = 1, NZONES
F (Z .GT. NEXT) GO TO 32
2(Z) = ZATTRCZ)/ZATC1)*TOTGEN
V(Z) = ZGENRCZ)/ZGTC 1)*TOTATT
C TO 325
Z(Z) = ZATTRCZ)/ZATC2) *TOTATT
VCZ) = ZGENRCZ)/ZGTC2)*TOTGEN
TPULTC1) =CZVTC?,Z) +Z V T C ~i, Z ) ) / CZ VT d , Z ) + Z VT C2 , Z ) + Z V TC 3 . Z ) )
TMULTC21 = VTMULTC1) *ZVCZ)
TPULTC1) = VT1ULT C 1 )*VZ CZ)
THE ZONE ATTRACTIONS AND GENERATION TEMPORARILY
LFUE CZ ) = VTMUL.T C1 )
UE.UE C?^50) = VT*ULT< 2)
RINT 935, VZCZ),ZVCZ)
ZCZ) = VZ CZ ) - VTVULTC1 )
VCZ) = ZVCZ) - VT^ULTC2)
RINT 935 , VZCZ ) ,ZV CZ)
ONTINUE
0 352 J=1,NZONES
Z F L G = 0
035 Z =N1 , NZONES
FOR OVER CAPACITY DEMAND
F C VZCZ) - ZVCZ) .LE. PLACZ)/PD - PV CZ)) GO TO 35
ZONE TO ROUTE VFHCLS WITH LARGEST ATTRACTION AND NOT
CAPACITY
ZMAX = 0.0
MAX =0.0
0 34 IZ =N1 , NZONE S
F C VZ CIZ)-ZVC17) .GE
NTIFY THii ZONE ATTKACTING THE MOST TRIPS
FCIZMAX .GF. VZCIZ)) GO TO 531
ZPAX = VZ(IZ)
22 = IZ
CH FOR A COMMON LINK DETUF.EN IZ AND Z.
PLACIZ)/FD -PVClZ)) GO TO 3A
MAI 00810
WAIOCS2Q
MAIOOS30
f.AIQOBAO
MAI00850
MAI00860
MAI00870
MAI 00880
MAI00890
MAI00900
MAI 00 91 0
MAI00920
MAI00930
MAI00940
MAI 00950
KAI 00960
MAI 00970
MAI00980
MA100990
MAI01000
MAI 01010
MAl01o2(j
MAI01Q30
MAI01040
MAIQ1050
MAI01060
MAI01070
MAI 01080
MAI01090
MAI01100
MAI01110
MAI01120
MAI01130
MAI01UO
MAI01150
MAI01160
MAI01170
MAI01180
MAI01190
MAI01200
SOURCE CODE PAGE
077
-------
AFPFf.DIX i\. ISMAP MODTL COMPUTER PROGRAM SOURCE CODEt ENVIRONMENTAL PROTECTION AGENC
: 7 1 D (, 37 3 1 21. = 1 ,1 2 MAI 01 21 C
I FUL INKS (1Z3 ,1 Z ) . CO . 0 ) GO TO 333 MAI 01220
DC -'32 I Z4 = 1 , 1 ? MAI 01230
I F (ZL INKS (174 ,Z ) .EQ. T) GO TO 332 MAI01240
I F (IAtS (ZLINKSCI 73,I 7 )) . F. Q . IAPS (ZLINKS ( IZ4 , Z )) ) GO TO 335 MAI01250
12L CONTINUE MAI01260
:33 CONTINUE MAI 01270
C--0 TO 74 MAI 01 280
33C IF( ZMAX .GT. PL A (I Z )/P0-PV (IZ ) - (VZ ( IZ)-ZV(IZ ) ) )G0 TO 34 MAI01290
ZhAX = ( PLA(IZ) / Pl> - FV(IZ) - (VZ(I7) - ZV(IZ) )) MAI01300
I 11 = IZ MAI01310
34 C UNTINUE MAI01320
IFdZf^AX .EQ. O.r>) GO T 0 353 MAI01330
IF(Zf'.AX .EQ. 0.0) IZ1 = IZ? MAI01340
V;C =PLA(Z)/PD-PV(7)+ZV(Z) MAI 01350
VZ(IZ1)=V?(JZ1)-^VZ(Z)-VZC MAI 01 360
VZ(Z) = VZC MAI01370
IF(VZC.GT. 0.0)17FLG=1 MAI 01380
l^ CONTINUE MAI 01390
IFC17FLG .LF. . 0) GO TO 353 MAI01400
352 CONTINUE MAI 01410
3r3 CONTINUE MAIQ1420
C RFSTOKE PUS AND OTHER VEHICLES TO TRIP DEMANDS MAIQ1430
DC3^ TZ = 1.NZOrJE<: MA! 01 440
VZ(1Z) = OUEUE(IZ) +V2(I7) MAIQ1450
36 ZVCIZ) = QUtUE( I7-fr 0) *ZV(IZ) MAI0146Q
C PRINT 935, (VZ(I7) tZVUZ ) »IZ = 1.NZQNES) MAI01470
CO 35 FOPHAT(*ISMAP35*10F10.5) MAI 01480
C MAI01490
C ROUTE THE VEHICLES ONTO LINKS AND ADD TO COUNT ARRAY MAI01500
3? CALL ROUTEV MAI01510
PRINT 938, (L,(COUNT(J,L ) ,J=1 ,4 ) ,L=1 ,NLINK) KAI01520
97P FORMAT (7H-COUMTS/ci (?6H LINK THRU RT LT TERM }/5 (I 4 ,1 X , 4 F 5 . 0 ,M AI 01 530
11») MAI01540
C CONVERT VZ AND ZV BAC^ TO AUTOMOBILE ATTRACTIONS AND GENERATIONS MAI01550
DC 39 IZ = 1, NZONFS MAI01560
VTHULTC2) = ZVTd.lZ)/ (7VT(1 ,IZ)+ Z VT ( 2 , 1 Z ) + ZV T ( 3 T I Z ) ) MAI01570
VZ(IZ) = VZ(IZ) *VTMULT(?) MAI01580
3« ZV(IZ) = ZV(IZ) * VTMULTCZ) MAI01590
DO 40 L = 1. NLINK MAI01600
SOURCE CODE PAGE O78
-------
APPENDIX A. ISMAP MOOFL COMPUTER PROGRAM SOURCE coot, ENVI HONH tw t M.
P0295K. = 1,3 * A 10161 U
TT(L,K)=0.0 MAI01620
395 DELA(L,K>=0.0 MAI0163-C
40 QUEUE(L) = 0.0 MAI0164Q
C FIND DELAY AND QUEUE LENGTHS AT INTERSEC ITONS MAI0165Q
DO 45 I=1,NINS HAI01660
IF (ITYPC(I) .6T. 0) GO TO 43 MAI01670
CALL INSECU MAI01680
60 TO 45 MAI01690
43 CALL INSEC MAIQ1700
45CCMTINUE MAI 01710
DC A65 L=1iNLIMK MAIQ1720
C DETERMINE AVERAGE QUEUE LENGTH IN FEET ON LACH LINK AT 30 FT/VCH. MAIQ1730
GLEUE(L) = QUEUE(L)*~D./NLANE (L) KAI01740
QUEUE(L)=A?1INl(QUEUE(L)tDIST(L)) ,*!AI01750
IF(VFL(L) .LE. 0) GO TO 465 MAI0176G
C MODIFY VFLDCITY VAfEP ON A SIMPLE LINK MODEL MAI01770
SC = tCOUNTd ,L)+COUNT(Z ,L)*COUNT(^ ,D) *3tnO/TP MAI01780
CAFL = 1200. MAI01790
IF(VELCL).GT. 70.0)CAPL=1oOO. MAI 01800
V =VEL(L)*(1.0-.5*SC/(NLANE(L)*CAPL)) MAIQ1C10
0046^ = 1,3 MAI 01820
46 TT(L,K)=DIST(L)/V+DELA(L,K) MAIQ1830
465 CONTINUE MAI01840
47 CONTINUE MAI01550
C MAI01860
C FIND THE RUt-JNING TI^ES IN THE PARKING ZONES MAI01870
P21=NEXT+1 MAI 01880
DC 57 PZ=PZ1,NZONES MAI01890
CALL PARKNG MAI01900
PRT(PZ)=TTP<: MAI01910
IFCNOPARK.Et.1) PRT(PZ)=1.DE-08 MAIQ1920
57 CONTINUE MAI01930
c MAI01940
C WRITE OUT RESULTS MAI01950
WfclTE (6, 961) (L , (TT(L ,K) ,K = 1,3),L =1,NLINK) MAI01960
961 FORMAT (1HO, 6(2nHLINK TRAVEL TIMES ) / (1X .6(I 3.ZX,3F5 .0 ))) MAI01970
SUMTT=0.0 MAI01980
SVMT=C.O MAI01990
SDELA=0.0 MAI02000
SOURCE CODE PAGE 079
-------
AfF'FUDJX A. ISMAP MOOTL COMPUTER PROGRAM SOURCE CODE. ENVIRONMENTAL PROTECTION AGEN
SNSTOP=D.O I" A 10? 010
3 (.1 = 0.0 MAI 02 020
TKT^n.O I'l A I 02 030
D(63L=1,NLINK MAI 02 040
PC <2 K-1 ,3 WAI02050
SLTTT = TT(L,K)*COUNT(K,L)/3600. * SUMTT MA102Q60
SVKT = COUNT(K,L)*D1ST(L)/^^80.0 + SVMT MAJ02070
t2 SDELA = DELACL,K)*COUNT(K,L)/3600.+SDELA MAI02080
SNSTOP = NSTOPS(L) + 5NSTOP WAI02090
t? SftI = QUEUE(L) + SOI MAI02100
DC t<4 PZ = PZ1 j NZONES HAI02110
6 A SFT-PRT(P7)/3600. -*1RT MAI 02120
PRINT -62, SUMTT, CRT, SVMT MAI0213U
9AZ FORMAT (29H-TOTAL TRAVEL TIME ON NETWORK. F21 .0 , 9H(VEH-HPS) / MAI02140
1 36H TOTAL FUNNING TI hT IN PARKING ZONES, FU.O, 9H(VEH-HRS)/ MAIO?15U
2 ^.DH TOTAL VEHICLE WILES TFAVtLED ON NETWQFK, FlO.O, PH(VEH-M)) MAI02160
PFINT 967t SDELA,SNSTOP,SGI MAI 02170
C63 FORMAT (36HOTOTAL INTERSECTION DELAY ON NE T WORK , F 14 . 0 »9H < VE H -HR S ) /M A I 02 1 80
1 Z9H TOTAL STOPS AT INTERSECTIONS, F21.0, 5HCVEH)/ MAI02190
2 ^4H TOTAL OF INTERSECTION AVERAGE QUEUE LENGTHS , F6.0 ,5H(FT) ) MAI02200
IF CIST.GT. 1) CO TO 7 MAI02210
CALL COORXY MAI02220
C MAIQ2230
C EMISSIONS MODEL MAI022^0
C MAI0225Q
7 CALL EMIT MAI02260
C ADD EMISSIONS FROM 1 LINK ZONES TO THE PPPROPRIATE LINK MAICJ2270
1ST = 1ST + 1 MAI02280
DO 75 IZ = 1,NZONES MAI02290
IF(PNOS(IZ) .NE. 1) GO TO 75 MAI02300
L = ZLINKSd ,12 ) MAI02310
ADEMIS = PRT(IZ)/(DlST(L)*0.3C4g) MAIQ2320
DO 73 J = 1 ,4 MAI02330
73 EMISS(L,J) = EMISS(L.J) + ADEKIS KAI023AO
75 COMTINUE MAI02350
C APPLY TUNNINE FACTOR TO ALL EMISSIONS MAI02360
DC 77 L=1,NLINK MAI0237G
D077J = 1,4 MAI 02 3RD
77 FMISSCL.J) = EMISSCL.J) * TUNFAC MAI02390
C MAI02400
SOURCE CODE PAGE OBO
-------
APPENDIX A. ISKAP MODEL COMPUTER PROGRAM SOURCE CODE, E N VI RO NM EN~T AL PROTECTION A GE
C DISPERSION r«ODEL MAI 024 TO
c? CALL OISPEE Ss
C PMNT RESULTS M
CALL PRNTOU S
DO 38 PZ = PZ1.NZONES MAIO?470
«? PV(PZ) = AMAX1(PV(PZ)+VZ(PZ) - ZV(PZ), 0.0) MAIOZ480
G0 T0 1 MAI02490
END KAI02500
SOURCE CODE PAGt Oc1
-------
A F P L M> I X A
IS^Ap MODrL
COMPUTER PROGRAM SOURCE COOF
ENVIRONMENTAL PROTECTION A GE N(
SUE- RO
C 0"NO
1 , NYE A
I NTtG
C CKMO
1 ) , LC
2 t NSTO
CO*JKO
1 CI (7
COMMO
17GFNR
I N T £ G
INTEG
COMMO
COMMO
COKKO
FNO
INTEG
COMMO
( OMMO
1,YEXr
2? D,MI
C OfMO
C OrMO
&CUILD
UTI Nt 1NPT
1
R.LHEAD ( 1B
ER 7 ,VT
N /LINK / N
AP<200> , D
PS (200)
M /INTRST/
0) t GCAP(7
N / ZONES/
(50), NEX
F. P Z N A n E
ER ZLINKS
N / GATE/
N / VOLUME
M / PARKZ/
S(SO), P L L
ER PNOS
N /VEHTYP/
N/DISP/XO(
C4),YCONS
X,ISTAM24
N/EXCLUD/N
I ,Z.L ,J,
), TUNFA
LINK, NL
1ST(200)
NINS, L
0,4) , GiU
NZONE S,
T, ZAT (?
Y , TOD, DOU, TP , TOTATT, TTPZ,TOTGEN , ITM
ANE(200), X1(200), YK200), X2(200)
, VEL(200), LCON(200,3)
1N(70,A),ITYPC(70),I
E (70,A )
NZLINK(SO), 7LINKS(
), ?GT(2), 7VT(3,5C)
CYCL (70) ,PH(7C ,4 )
12 ,50) , ZATTR(50)
NGATE, L
/ COUNT(
PZ, PV(
( 5 0 )
VT , VT^
200) ,YO(
L,YCONSZ
),SLAT,1
OPAPK
6/iTE (2,10), VCR (10,
4 ,200)
5P),PLA(50), VZ(50)»
(7), VTE (Z). VT*ULT
200),NUMREC,THETA (2
,7COE F F(2A) ,ZEXP (24
N/STCAN/ISTR(?OQ),AST(20(j),NLKST(200),
H(200),RECHGT(200),ISTLIN(200,Z),IRSID
COPMON/JUNK1/AC,XLOAD(3),TRAILR,ABSHUM
COPKON/IMCOM/ICYJM,1STRIN,IMTFLG,MODYR1,MOD
T ,HGCID,HDCID
COLD,HOT.CCOLDfVMTMI
COMMON/ELINK/IR
8 ALHFLG tTRKFLG»
INTEGER ALHFLG,
READ(5,910tEND =
C10 FORMATdC. ,1f A4.
P H I N T 911tNYEAR
011 FORMAK1H1 ,20X,
IF(MOPARK.EQ.1)
915 FOPMAT(/,1X, 'PA
PEAD(5,912,FND=
1TOTATT»TOTGEN,P
PRINT 91 2 ,IC ,L,
E G , T E r P ,
IMFLG
TPKFLG
2,4)
ZV(50).PD
2) ,SZVTP(3
),WS(24) ,Y
,Z CONST,GR
IE ,HE IGHT(2
WST(200),
E(200)
YR2
X(6) ,
PLS,PLBO
,2)
COE F F(24)
DSI7 ,6CKG
00)
I NP00010
INP00020
INPOG030
INP00040
Y2(200INP00050
1NP00060
INP0007C
, INP00080
1NP00090
INP00100
INP00110
INP00120
I NP00130
INP001AO
INP00150
INP00160
INP00170
INP00180
INP0019Q
INP00200
INP00210
INP00220
INP00230
,LHEAD ,l
I 0 P A R K
.,14)
T EMISSIONS NOT CONS
, I , Z ,1 CN ,lG,NVfKT ,NR
IDERED ')
,NMET,TOD,DOW.TP,
T « 0 .1 1 )
,LHEAO ,N
110, 5X ,1
WRITE(6.
RKING LO
99) 1C,L
D t I T M
I,Z,ICN,IGtNV.KT,NR.NWET.TOD,DOW,TP»TOTATT,TOTGEN.
INP00250
1NP00260
1NP00270
INP0028Q
INP00290
INP00300
INP00310
INP00320
1NP00330
INP00350
INP0036U
INP00370
I NP 003 80
INP00390
SOURCE CODE PAGE
O&2
-------
APPENDIX A
ISMAP MODEL
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION AG6NC
1D,ITP INP00410
912 FORMATCI2,I3,8I5.6F5.0.IC) INP00420
I FCNOPARK ,EQ .1) PO=1.CE-.^ INP00430
2 IF(L .EG. 0) GO TO 3 INP00440
NLIMC = L INP00450
D025L1=1.M_IMK 1NP00460
READ(5,922) 1C, L, (NLAKE(L>, X1(L),Y1 (D,X2(L),Y2CL) , LCAP(L) INP00470
1,VEL(L),(LCONCL,J),J=1,3),HEIGHT(L)) INPOQ480
25 PRINT 922,1C, L, (NLANE(L), X 1 ( L ) , Y 1 (L) , X2 ( L) ,Y 2 ( L) , LCAPCD.VEL INP00490
1(L),(LCON(L,J).J=1.3),HEIGHT(D) I NP 00 500
922 FGFWAT(I2,I3,I5,4F5.0,15 , F5.0 ,3 I 5 , F5.0) INP00510
3 IF(I .FQ. 0) GO TO 4 INP00520
WINS = I INP00530
READ(5,933) (ICtIf(LIN(I,J),J=1,4),ITYPC(I),ICYCL(I),(PH(I,K> IMP 00540
1, K = 1,A),CI(I),(GCAP(I,M),I»1 = 1,4) ,T1=1,NINS) I NP 00 550
PRINT 033, (IC,I,( (LIN ( I , J ) , J =1 , 4 ) , ITYPC(I), I C Y CL (I ) , (PH ( I , K ) INP00560
1, K. = 1 ,4) ,CI (I) , (GCAFd, M) ,M=1 ,4 )), I =1,N1NS) INP00570
033 FOR.^ATCIZ ,13,615,9F4.o INPOOSSO
4 IF(2 .FQ. 0) GO TO 5 INP00590
NZONES = Z INPC06QO
1=1 INP0061Q
IZ=NZONES INP00620
DO 475 KZ = 1,NZONFS INP00630
PEAD(5,944) (1C,TEXT, ZATTR (I Z) , ZGENR(IZ ) , (ZVTCJ, 17),J=1 .3) , INP00640
1PVEH,PLC , NZL , (?LIHKS(K ,IZ ) , K=1,12)) INP00650
IFUC .NE. 4) CALL EXIT 1NP00660
944 FOPM.AT (12, 12,2F3.P, 3F3.1, 2F5.0, 12, 1214) INP00670
: THIS TEST IS PECULIAR TO THF CDC 64QO COLLATING SEQUENCE. 1NP00680
IF (IEXT .GT. 49) GO TO 44 INP00690
: STORE AN INTERNAL ZONFS DATA INP00700
JZ = IZ INP00710
IZ - IZ - 1 INP00720
GO TO 47 INP00730
: STORCANEXTERNALZON^SDATA INP00740
44 NEXT = Z INP00750
7ATTR(Z)=ZATTR(IZ) INP00760
ZGENR( Z) = ZGENP(IZ) INP00770
ZVTSUM = 0.0 INP00780
DO 45 K= 1,12 IMP00790
45 ZLINKS«,Z) = ZLIN^S(K. TZ) INP00800
SOURCE CODE PAGE
083
-------
A f-1 P L N D i X
1SMAF MODEL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGEN
46
47
472
473
47f,
48
49
5
°5
95'
r> o 4 1 j . 1,3
Z VT ( J , Z ) = ZVT (J , IZ )
J 2 = Z
Z = Z +1
DO 472 K=1,12
IF (ZLINKS(K , JZ ) .NE. 0) GO TO 472
N2LJNK (JZ) = K-1
GO TO 473
C ON T I NUE
NZLINK(JZ) = 12
IF(PLC .NE. 0.0) PLA(JZ) = P L C * P D
IF(pVhH .NE. 0.0) PV(JZ) = PVtH
PNOS(JZ) = NZL
ZNAME (JZ ) = IEXT
I F(ZVT(1 f JZ)+ ZVT(2,JZ) + 7VT(3,JZ) .L^. 0.) ZVT(1,JZ) = 1.0
( OK T I NUE
Z A T ( 1 ) = 0 . 0
Z AT(2 ) = 0.0
ZGTd ) = 0.0
7 t. T ( 2 ) = 0 . 0
DC 4^ Z = 1 . f J ZONES
I Z = Z
KZ = NZLINK(IZ)
IF (Z .GT. NEXT) GO TO 4P
Z ATd ) = ZAT d) + 7ATTR (Z)
ZGTd) = ZGTd) * ZGENR(7)
GO TO 49
Z AT(2 ) = ZAT(2) + ZATT9 ( 7)
ZGT(2) = ZGT(2) * ZGENR(Z)
PRINT 944, 1C, ZNAME(IZ), ZATTR(IZ), ZGENR(IZ), ( Z VT ( J , I Z ) , J = 1 , 3 )
1. PV(IZ), PLA(IZ), PNOS(IZ) , (ZLI.MKS(K ,IZ ) , K= 1 , KZ )
I F ( ICN .Eft. 0) GO TO 6
READ (5, 955) IC,GRDSIZtBCKGRD,SLAT,TUMFAC,ZCONST,IREG,TEMP,
1 COLD,HOT,CCOLDf(VMTMIXfJl=1,6).ALHFLGfTPKFLG.I«FLG
^ FOTMAT(I2 5F4 r) 12 F4 0 ^ F ^ 3 1X 311)
J F(TUNFAC.EO.O) TUN'FAC^I
URITE(6,955)IC.GRDSIZ,L«CKGRO,SLAT,TUNFAC,ZCONST.IREG»TEMP,
1 COLD, HOT, CCOLO,fVMTMIXCJl)fJl=1,6JtALHFLG,TRKFLG,TKFLG
IFCALHFLG.Efi.D READ(5,956)AC,(XLOAD(J1).J1=1,3).TPAILR,ABSHUM
6 FOR*lAT(10Xf6FlO.O)
I NP 00810
INPOOfccO
INP00830
INP00840
INP00850
INP00860
INPOOB70
INP00880
INP00890
1NP00900
INP0091U
INPQ092Q
1NP00930
INPOQ94Q
1NP00950
I NP 00 9 60
INP00970
INP00980
INP00990
INP01000
INP01Q10
INP01 020
1NP0103Q
1NPQ1QAO
INP01050
INP01060
INP01070
INP01080
INP01090
INP01 100
INP01110
INP01120
INP01130
INP01 1 40
I NP01 1 5 H
*'** Wi l-^w
INP01160
IK/P01 17Q
INP01180
INP01 190
INP01200
SOURCE CODE PAGE
oat
-------
APPENDIX A,
I S M A P M 0 D F L
COMPUTER PROGRAM SOURCE CODt
ENVIKONWENTAL PROTECTION AGENt
IFCALHFLG.EG.1) WRTTF(6,r5MAC,(XLOAD(Jl),Jl=1,3),TRAILR,A5SHUf
IF(TRKFLG.E(?.1)RPAD(5,^56)HGWGT,HDWGT,HGCID,HDCID
IF(TRKFLG.EQ.1)WRITE(6,956)HG*G7,HDWGT.HGCID.HDCID
IFdMFLG.EQ.1) READ(5,0S7)TCYIM,ISTRIN,IMTFL6,f!ODYRl»MODVR2
IFdMFLG.EQ.1)WRITE(6,957)ICYIM,lSTRIN,lMTFLG.i»IODYR1,MODYR2
^57 FOP*AT(1CX.5I5)
6 I F(IG .EQ .0) GO TO 7
NGATE = 16
READ(5,966) (1C, (L G A TE ( J , I G ) , J =1 , 2 ) , I G = 1 , NG AT E )
PRINT °66, (1C, (LGATE (J ,IG) ,J = 1 ,2) , 16= 1 ,NG ATE )
966 FORMAT ( 12, 3X, 215)
7 I F ( N V .EQ. 0) GO TO 76
NVETP = N'V
PtAD(5.97) (1C. VT, VTP(VT), VT E (V T ) , K= 1 , NV )
97 FORMAT (12,13, 2F5.3)
76 CONTINUE
S IFUT.tQ. 0) GO TO 69
NIOUNT = KT
DGE5K=1,NCOUNT
HEAD(5.98a) I C , L , ( C OIJNT ( J 1 . D.J 1=1,3), L2,(COUNT(J2tL2).J2-1t3).
1 L3, (COUNT (J3,L3) , J3=1,3), LA , ( COUNT ( J 4 , L 4) , J 4 = 1,3)
£5 PRINT 988, 1C, L, (COUNT (J 1 ,L) ,J 1 = 1 ,3> » L2 , ( COUNT( J 2 , L 2) , J 2= 1 , 2 ) ,
1 L?, (COUNT( J3.L7) . J3-1.3), L4 , ( COUNT ( J A , L A ) , J4= 1,3)
9P8 FORMAT ( i2,l3, '(F5.0), 3(1 5, 3(F5.0)»
80 I F (NR .LE. 0) GO TO 891 P
r^UMREC = NR
DO 90 1=1 ,NP
DO !r010 J=1 ,2
ISTLIN(I,J)=0
5010 CONTINUE
READ(5.989)IC,XO(I) ,YO(I),ISTR(I),AST(I) ,NLDUM.WST(l) ,
8BUILDH(I),RECHGT(I),ISTLIN(I,1),ISTLIN(I,2),IRSIDt(I)
NLKST (I ) =NLt)IJM
xod )=xod)*o.:i04?
YC(I ) =YO (I)*0,30A3
WST( I )=WST( I )*0 .304.-,
PUILDH(I)=EUILDH(I)*f1.304L<
90 RLCHRTd )=RECHGT (I ) * 0 . '.
-------
OIX A. 1SKAP MODFL COfFUTEP PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGEMl
f-rci roFHATdy.'cAPDTYpF;0 CHECK ERROR') INP0161Q
DO ;p v^ 1 = 1 , NR ir.'POl62Q
PK1NT 9£92 ,IC ,XC(I ) , YQ (I), ISTR (I) , AST( I),NLKST (I). IKP0163U
SWST(I),OU1LDH(I),RFCH&T(I),ISTLIN(I,1),ISTLIN(I,?),IRSIOE(I) INP016AO
9892 FORMAT(1X,I2,2F10.5,I3,F5.r,I5,2F10.0,F5.0,2I3.IA) INP01650
9f93 CONTINUE INP01660
8^10 I F(NMET.EQ.O.AND.IM£T.EQ .2^) GO TO 9P INPQ1670
I F(NMET.EQ.(i.ANO.IMET.E« .1) CALL EXIT INP01680
IKET=NMET INP01690
I FCNMET .EQ.1) GO TO 9901 INPQ1700
00 9989 1=1,26 INP0171G
RtAD(5,9899)IC,THETA(I),WS(I),ICLD(I) INP01720
98V 9 FOR1ATU2 ,2F8.2 , 15, F7 .2 , 2F10. Z) INP01730
9969 WRITE (6,9897)IC , THETA (I ) ,US (1 ), ICLD(I) INP017AO
9^97 FORMATC1X,Ic ,2F3 .2, 15 ,F7.2,2F10.2) INPQ1750
GO TO 93 INP01760
9
-------
APPENDIX A. 1SMAP MODEL COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGEKC
SUBROUTINE INSEC INS00010
C THIS FROGRAP! COMPUTES DELAY AMD QUEUE LENGTH AT AN INTERSECTION. INSOC020
C IT IS BASED CN GORDON NEU'LLS INTERSECTION MODEL. THREE TYPES OF INS0003.0
C SIGNALS MAY BE SPECIFIED 1)T1'XED TIME 2)ACTUATED WITH LEFT THU&N 1NSOOOAQ
C PHASES 3)ACTUATED WITH SEPEPATE PHASES FOR EACH AFPPOACH. THIS KODELINS0005U
C WILL HANDLE OVER CAPACITY INTERSECTIONS, AN EXTENSION TO NEWELLS INS00060
C MODEL. BY ASSUMING CAPACITY FLOW WHEN THE QUEUE LENGTH AT THE END INS00070
C OF GREEN EQUALS HALF THE ARRIVALS ON RED PLUS THE ARRIVALS ON GPEEN INS00080
C CYCLE AMD PHASE INS00090
C LENGTHS ARE COMPUTED BASED ON F.V.WEBSTER "TRAFFIC SIGNAL SETTINGS" INS0010U
COMMON / COf!!*/ I,Z.L,J. K, TOO, DOW, TP , TOTATT, TTPZ,TOTGEN INS00110
COMMON /LINK/ NLINK, N L*NF. ( 2 GO ) . X1C200), Y1 (2 00 ) , X2 ( 200 ) , Y2 ( 2 CO) I NS 00 1 20
1. LCAP(2CO>, DIST(?UO>, VEL(ZOO), LCON (200,3) INS00130
2,NSTOPS(ZOO) INjSOOUG
COMMON /INTKST/NI, L IN < 7 0 , £ ) , IT YP C ( 70) , I C Y C L < 70 ) , PHC70.O, C I ( 70) 1 NSOO 1 50
1 , GCAP(?0,t ) ,CUF(70,4) INS0016U
COMMON /ZONES/ N ZONE S ,N?.L I NK ( 50 ) , ZL I NK S (1 2 , 5 0 > , ZATTPC5G), INS00170
1ZGENR (50), NEXT, 7AT(2), ZGT(2), ZVT(?,50), ZNAf'E(SO) IN S 001 £ 0
COWWON / GATE/ NGATE. LGATE(2,1C), VCRC10, Z.A) 1NS00190
COHMON /VOLUME/ COUNT (A , POO) INS00200
COUPON /PARK:/ PZ, pv(50), FLA(SO), vzcso), zv(50) INS00210
PEAL MINP INS 00220
COMMON TT(2C'0,3). 0 bl. A ( t TO , 3 ) , PRT(50). OUEUF(200) INS00230
COMMON PT(4.3) ,VOL(A,?) ,Y(4,3) ,CAF(Af3).YT<«) INS00240
1 ,DELAI(70,8) ,QQ (i,7) INS00250
REAL*8NPHASE(9) INSOO260
DATA NPHASE/ ?HNORTH-AP, 8H EAST-AP, &HSOUTH-AP, INS00270
1 fcH WEST-AP. 8HN-AP-LFT, tHS-AP-LFT, 8HE-AP-LFT, INS00280
2 SHK-AP-LFT, RH / INS00290
C FOR tACH SIGNAL PHACE DETEP'-'INE A PHASE L^NTH INS00300
1 NP = C INS00310
MINR = 1.0 1NS00320
SY=0 INS 00330
C INITIALIZE VOLUMES ON EACH APPROACH INS00340
DC 15 J = 1 ,A INS00350
VOL(J ,1) =0.0 INS00360
L = LIN(I,J) 1NS00370
IF(L.GT.O) VOL(J.1) = (COUNT(JtL)+COUNT(Z,L)*COUNT(1,L))*3600./TP INS 00380
VOL(J,?)=0.0 1NS00390
VOL(J,3)=0.0 INSOOAOO
SOURCE CODE PAGE 087
-------
AI P f N 0 1 > A .
IS
MODFL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION A GE ^
1
C
r
c
C
c
c
c
c
c
c
2
c
c
D
D
0
Q
Q
5 C
FIRS
J
J I
J? I
D
C
L
I
SFT
SME--
J
FET
I
J
I
I
I
I
C
I
I
CONT
I
1
MODI
no p
B
D
B
I
I
I
AT( J
AT ( J
ELA I
LLAI
Q(J ,
Q(J ,
Q(J ,
ONTI
T DE
1 =
SIN
S IN
0 2C.
AF'( J
— t
F(L
J1 . A
PHA S
i_ *
IND
E OP
3 =
F(J
F (IT
F(IT
F(IT
AF (
F (C
F(VO
ROL
.?)
,: )
(J ,
(I,
1) =
2) =
3) =
NUE
TER
1
DF X
EEX
J
,1 )
IN(
.FQ
N I
E C
J1
EX
POS
J1
.LE
YPC
YPC
YPC
J.1
AP(
L(J
IS
F( PH(I
f (I/O
FY T
CNTR
ASE P
IF =
PVAL
F(NL
F(NL
F(PC
L(J
HE
N =
T =
0.
=
AS E
ANE
= 0.0
= 0.0
J) = 0
J-K )
0.0
0.0
0.0
MINE
OF
OF
— 1
= 0
I ,J )
. 0)
NDEX
.0
= 0.
TH
APP
PHA
/,
.5
GO
TO
ONTROLI
J3 TO I
ING
. 2)
(I)
CI)
(I)
) =
J,1)
,1)
BY A
,J2 +
7,1)
CAPA
AMI
0.1
5
0.0
(L)
(L)
NTRN
APP
J3
.EG
.EQ
.EQ
GCA
.E
.LF
TW
2)
.E
C IT
NK
.GT
.EG
LT.
0
E
R
S
vo
OAC
E C
TO
TES
NG T
D
R
•
•
•
P
Q
•
0
•
Q
I
C
•
•
FNT
OAC
= J
3)
A
5
(1 .
. 0
0.
PK
NE.
. f?
ES
OUN
2)
2)
0.2
LUME
H DI
0 N T R
24
T WH
HEN
I F Y
H
•f 2
GO
.A ND
.AND
J?)
.0)
) G
ASE
0.)
.0)
DUE
T (3.
GO
GO
) GO
R
A
E
OL
E
-
0
T
•
-•
C
0
S
G
T
L
T
T
T
S
p
0
A
T
r
0
n
)
n
o
f
ND CAPACITY OF EACH APPROACH.
C T I 0 N
LING THIS APPROACH
HER THERE IS MORE THAN ONE PHAS
OR E-W APPROACHES
POSING TRAFFIC
2 1
J1 . c.Q . 2) GO TO 21
J1 .EG. 1) GO TO 21
F'(J,1) = NLANF (L)*1 200.
TO 24
GNAL WITH 2 POSSIBLE MINOR MOVE''
0 TO 22
TO 225
LLFT TURNING VEHICLES (SEE TABL
/VOL(J .1 )*3
-------
APPENDIX A,
1 S M A P MOOT. L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGENC
PATIPT = 0.2 INSOO&1G
BPVAL = 0.1? INS 00 8-20
GO 10 20? INS 00630
C01 1F(PCNTRN .LT. 0.15) GO TO 213 INS0084G
BASEPT = 0.15 INSOOE50
BPVAL = 0.1 INS 00860
GO TO 207 INS00870
203 DIF = 2.0 INS00880
IFCPCNTRN .LT. 0.1) DIF = J.0 INS0089Q
GO TO 20P INS00900
205 IFCPCNTRN .LT. 0.?) GO TO iQ7 INS00910
PASEPT = 0.2 INS 00920
PPVAL = 0.1 INS 00930
GO TO 20? INS00940
2P70IF = 1.0 INS 00950
208 FACL = DIF*CBASEPT-PCNTRN)-bPVAL INS00960
GO TO 23 INS00970
C CAPACITY IS IDENTICAL FOR ALL THREE TURNING MOVEMENTS OF APPROACH INS00980
21 J2 = J INS0090C
CAF(J,1) = GCAPCI,J2) INS01000
IF(CAPCJ,1) .EG. 0.0) CAP(J,1) = NLAME(L ) *1 200. IMS01010
IF(VOL(J,1) .LE. 0.) GO TO 24 INS01020
GO TO 225 INS01030
2? VCL (J.1) = (COUNTC ,L) + fOIINTd.L) ) *7tOO./TP INSOIO^O
VOL( J» 3) = COUfJT(3. L) * 3600./TP INS01050
C INS01060
C ASSUME A LEFT TURM CHANNEL THAT STORES ALL THF LEFT TURNING INS01070
C VEHICLES UNTIL THE LEFT TURN PHASE BEGINS. INSOIOfiO
CAF(J.I) = CAP(J,1) *(1.0 +U.3/ NLANE (L)) INS01090
CAF(J,3) = GCAP(I,Jl+2) INS01100
P(J,3) .LE. 0.) CAP(J,3) = 1200. INS01110
) = VOL(J,3)/ CAPCJ.3) INS01120
= 0 .3/MLANE (L) INS01130
HE CAPACITIES DUE TO VARIATIONS IN RIGHT TURNING VEHICLES INS01140
23 FACR =2.0 INS01150
IFUOLCJfD .LE. 0.0) GO TO 24 INS0116U
PCNTRN = AMI N1 ( COUM T (2, L )/VOL (J ,1 ) * 3C-00./TP, 0.3) INS0117Q
IFCPCNTRN .GT. 0.1) FACR = 1.0 INS01UO
TF(NLANECL) .En. 2) FACR = U.b INS01190
IF(NLANE(L) .GT. 2 ) F AC H = 0 . ,L'r INS 01 200
I FCC A
Y c j,:
225 FACL
C MODIFY T
SOURCE CODE PAGE
069
-------
Arrff.PI> A. IS^'AF I'lODFL COMPUTER PROGRAM SOURCE CODF. ENVIRONMENTAL PROTECTION AGENI
F ACK = (0.1-PCNTPfJ) * F AC H INS 01 210
IF(NLANECL) . EQ. 1 .AND. PCNTRN .GT. o.2> FACR = FACR-(PCNTKN 1NS0122U
1-l..Z)/r.O IMS01230
CAFU.1) = CAP(J,1) *(1.P+FACR+FACL> INS01240
( COMPUTE V-EBSTERS HIGHEST RATIO OF FLOW TO SATURATION FLOW FOR EACH INS01250
( PHASE INS01260
24 Y (Jf1 ) = 0.0 INS01270
IF ( CAP(J,1).GT.0.0 ) Y(J.1) = VOL(J,1)/ CAP(J,1) INSQ128Q
2C J1 = 3-J1 INS01290
( INS01300
C CALCULATE THE MAXIMUM Y FOR EACH PHASF INS01310
YT(?) = Y(Z,1) INS 01320
YTC1 ) = Yd , 1 ) 1NS01330
IF(ITYPCd) .EC-'. 3 .OR. ITYPC(I) .EQ. 5) GO TO 26 1NSQ1340
YT(1)= AP-1AX1 (Y (1,1) ,Y(i,1) ) INS01350
YT(i) = C.O IKS 01360
IF ( FH(I,3) .ME. 0.) YT (3) =Af,AX1 ( Y(^,3). Y(1r3» INS01370
2C'YT(4) = Y(*,1) INS 01 380
YT(E) = Y(2.1) INS0139Q
IFClTYrc(I) .EQ. 3 .OR. JTYPC(I) .FQ. ^) GO TO 27 INS 01400
YT(E)= ArAX1 (Y (2, 1 ) tY(4.1)) INS01410
YT(C) = G.O INS01420
IF ( f'M(I,4) .ME. H.O) YT(4)= A^AX1( Y(2,3), Y(4,7)) INS01430
27 DO ?8 J=1,4 INS014AO
28 PT(J,1) = PH(I,J) INS01450
COT = ICYCL(I) INS0146Q
IF(ITYPC(I).EQ.1)GOT040 INS0147Q
CALCULATE THE CONTROLINP Y RATIO TO PHASF TIME RATIO INS01480
DO 29 J =1,4 1NS01490
IF (PH(I,J).EQ.O) GO TO ?9 INS01500
IF(YT(J) .LE. 0.0) GO TO 29 INS0151Q
SY = YT(J) + SY INS01520
M1NR =AMIN1( MINP, YT(J)/PH(1,J)) INS01530
NP= NP 4 1 INS01540
CONTINUE 1NS01550
CALCULATE A CYCLE TIME CO INS01560
C 0 - U.O INS01570
DO 11 J = 1,4 INS01580
PT(J)=YT(J)/MINP INS 01590
CO = CO + YT(J)/MINR INS01600
SOURCE CODE PAGE O9O
-------
APPENDIX A
ISNAP MODEL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGEN
: CALCULATE WEBS
COT = ICYCL
IFCSY .LT.
I F (CO .GT.
IF(CO .GT.
IF(COT .GT.
GO TO 343
33 CO =1 CYCLd
GO TO 35
34 If ( COT.GT
343 CO = COT
35 COT = CO
SPT = 0.0
SPH = 0.0
: FIND THE PHAS
DC i? J = 1 ,4
i r ( F- H (i, j)
PTU ,1) = Y
I FCPTCJ , 1 )
; FHASfc SKIPPABI
I F(PT (J f 1 )
SPH = SPH +
PT ( J .1 ) =
CO TO 37
36 SPT = PT(JT
37 CONTINUE
IF(SPT + SP
COT = SPT +
IFCCOT ,LE.
REDISTRIBUTE: T
R DIS = COT
COT = ICYCL
DO 39 J=1 ,4
: PHASE MIGHT BE
I F(PT(J,1)
PTJ = PT(J,
PT(J, 1) = P
IF(PT(J,1)
SPT = SPT -
RDIS=RDIS-P
TERS OPTIf'UM CYCLE TIME
(I)
1.0) COT =(1 ,S*CI (1)*NP + 5.0>/ (1.0-SY)
COT) GO T054
ICYCL(D) GO TO 33
ICYCL(D) GO TO 33
.ICYCLU)) GO TO 33
E T1MFS FOR THIS CYCLE LENGTH
.LE. O.C) GO TO 37
T(J) /f!Y*COT
.GT. P H C1 . J) ) GO TO 36
LITY IS ASSLIMrD FOR CONTROLLER.
.LE. 0.0) GO TO 37
PHCI ,J )
F H (I , J )
1) * SPT
H .LE . (OT) bO TO 40
SPH
ICYCLU)) GO TO 40
I ME BFYOND PHASE TIME.
- 1CYCL (I )
(I)
0.0 , EQUAL OR GREATER THAN PHCI.J)
.LE. PHC I »J) ) GO TO 59
1)
T (J, 1 ) * (1 ,0-PDIS/SPT)
.LT. PH(1.J» PT(J,1) = PH(J,J)
PTJ
TJ+PT(J.1)
INS01610
INS01620
INS01&30
INS01640
INS01650
INS0166Q
1NS01670
INS01680
INS01690
INS01700
INS01710
INS01720
INS01730
INS0174Q
INS017SO
INS01760
INS01770
INS01780
INS0179Q
INS01800
INS 01810
INS01820
1NS01830
INS01840
INS01&50
INS01860
INS01870
INS01680
INS01890
INS0190C
INS01910
1NS01920
INS0193C
INS01940
1NS01950
INS01960
INS01970
INS01980
INS01990
INSOPOOO
SOURCE CODE PAGE
091
-------
AF'PE ND I X
1 SM AP MODEL
COMPUTER PROGRAM SOURCE COOF.
ENVIRONMENTAL PROTECTION AGEN
1 O
C
C
(
40
C
43
44
C
C
c
c
50
( CNT I NUE
COMPOS DELAY , QUEUE LEN3TH, NSTO
SET J1, A PHASE INSEX, J1 = 1,2,1
J 1 = 1
DO 63 J=1 ,4
NS = 0
wi = o.o
W2 = 0.0
W3 = 0.0
Q1 = 0.0
L = L I M ( I , J )
I F(L .LE .0) GO TO 63
DO M K = 1 , 3
I F(K .EG. 2 ) GO TO 60
DETERMINE THE PHASE I fJ D E X J? OF TH
IFCITYPC(I) .LT. 3) GO TO 43
IFdTYPC(I) .EQ. 4 .AND. J1 . EQ
IFCITYPC(I) .EU. 5 .AND. J1 .£0
I FU .EQ. 3) GO TO 60
JZ = J
GO TO 44
J 2 = J1 + K-1
IF(PT(J2,1) .E6. 0.0 .AND. K .E
MODIFY CAPACITY PER HOUR OF GREEN
CAF(J.K) = ( AP( J ,K) * (PT( J2,1 ) -C
CAP(J.K) = AMAX1(0.0, CAP(J,K))
TEST THAT THE VOLUME DOES NOT EQUA
GREENQ = O.C
I F ( P T ( J 2 , 1 ) . G T . 0.0) G R F L N U =
IF(VOL(J,K) + GRrENQ . G E .
COMPUTE QUE LENGTH AT LND OF GRECN
W1 - (COT-PT(J2,1))**2/(2.0*COT
QO = VOL(J,K ) /(2 .0* (CAP ( J ,K ) -
I F(K .GT. 1 ) GO TO 54
W7 IS THE DELAY DUE TO RESIDUAL C.U
IF(VOL(J*1) .LE. 0.0) GO TO 52
W3 = WUE (I, J ) *QUE (I , J )/ ( (CAP( J,
GO TO 52
I F(GR tENQ .GT . 1.0)
1NSO?010
INS02020
FS I NSO? 030
,2 WHEN J= 1.2.3.4 AND ITYRC = 1 ,2INSO?040
INSQ?050
INS02060
INSO?070
INSO?030
INSO?090
I NSO? 100
INSO?110
INS02120
INS02130
1NSO?1^0
INSO?150
IS APPROACH AND TURNING MOVEMENT. INSO?160
INSO?170
. 1 ) GO TO 4 3 INSO?180
. 2) GO TO 43 1NSO?190
INSO?200
INSO?210
INSO?220
INS02230
Q. T) GO TO 60 INSO??^0
TO CAPACITY PER HOUP INS02250
Id) / ? .0)/COT INS02260
INSO?270
L CAPACITY, CAPACITY IS DEVALUED INSO?230
INS0229Q
3600. /(COT + PT(J?,1)) INS 02 300
CAP(J.K)) GO TO 50 INS02310
INS02320
*(1.-Y(J ,K)>) INS02330
VOL ( J ,K) ) ) I NSO? 340
INSO?350
FUE FROM PREVIOUS TINE PERIOD 1NS02360
INS02370
1) -VOL(J ,1 ))*? .0*VOL ( J ,1 ) ) *360INSO?3SO
INSO?390
INS02400
SOURCE CODE PAGE
-------
APPENDIX A. ISMAP MODEL COMPUTER PROGRAM SOURCE CODE, ENVIROMMENTftL PROTECTION *G£NC
1 (.0 = CAP( J f K)+ (GRt FN<3 *2.0 - 1.0 + AMIN1(VOLU ,K )-CAP(J.K) .0.0)) 1NS0241G
2 /(t.0*GREENG*(GREENQ-1.0))- 0.5 1NS02420
W1 = (COT - PT(J?,1 ))/2 .0 INS02430
IF(VOL(J,K).GT.CAP(J,K)) INSOP4AO
1Q1 = A!*AX1 (0.0, (VOL(JtK)- CAP(J.K))*TP/3600. JNS02450
1 + AMAX1 (0.0,QUE (I , J) - QO) ) INS02460
IF(K ,GT. 1) 01 = AMAX1 (P.O,(VOLCJ ,K)-CAF(J ,K))*TF/3600.) INS02470
IF(Q1 .GT. 0.0) W3 = TP INS02480
TF(CAP(J,K) .GT. 0.0) W3 = Q1*1t00./CAP(J ,K) INS02490
5? QO = QO * Q1 INS02500
5&W2= 80*1800. JNS02510
IF(CAP(J.K) .NE. 0.) W? = 00*36CO./CAPCj ,K) 1NSO?520
NS = (1 .0-PKJZ , D/COT) / (1.0-Y( J ,K))*VOL (J.K)*TP/3f 00. + NS INS02530
C COMPUTE INVERTED VOLUME TO CAPACITY RATIOS AT EACH GATE INS0254G
0056IG = 1,H6ATF INS 02550
K1 = 1 INSO?560
IF ( L .EQ. LGATE(1,Ib))GO TO 57 INSOP57Q
K1 = 2 INSOP580
IF ( LCON (L, K) ,FQ. LGATt(2,IG)) tO TC 57 INS02590
5t CONTINUE INS02600
GO TO 60 INS02610
57 VCR (IG,K1, K) = 0.0 If^S02620
IF(VOL(J,1) .NE. 0.CD VCP(IG,K1,K) = CAP ( J , 1 ) / VOL (J , 1 ) INS02630
IF (VOLCJ, K) .NE. 0.0) VCR ( I G, i< 1 , K ) = CAP(J,K>/ VOL(J,K) INSO?6«U
60 DELA(L,K) = W1*W2-fW3 INS 02 650
QCi< J ,K) = QO INS 02660
IF (K.GT. 1) GO TO 61 INS02670
C COMPUTE THE AVERAGE CURUT LENGTH FOR A SIGNAL CYCLE. INS026fiO
C QUEUE AT END OF GREEN + AVEFAGfc (-UEUE DURING RED PHASE INS02690
GU[UE(L) = 'nO + W1*VOL( J ,1)/I600. INS02700
QO = 0.0 INS02710
d1 CONTINUE INS 02720
QUEUE (L) = QUEUE (L) +
-------
APPFNIMX A. ISMF MODl'L COMPUTER PKOGRAW SOURCE CODE* ENVIRONMENTAL PROTECTION AGE
DtL*. I(I,J) = DELA(L,1) INSO?£10
DtLAI(I,J+O=DEL'(L,:>) INS 0? 820
c-- J1 r 3-J1 INS02630
C (,(9,1) = 0.0 INS0284U
VtL(9,1)=0.0 INS02850
CAP(9.1)=0.0 INS02860
Y(9,1)=0.0 INS0287C
PRINT 9631, I,(J.J=1,4) INS02880
9621 FORMAT (13H01NTERSECT10N I5X 4(23X,5HPHASE ,I 2)) 1NS0289G
PRINT
-------
/«. ISNAP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION
1^ = 7 INS03210
110=4 INS03220
GO TO 6335 INSOT230
6?33 CONTINUE INS 0*240
IZ=* INS03250
16=9 INS03260
14 = 4 INS03270
15=3 INS03280
17=7 INS03290
I8=B INS03300
19=9 INS03310
110=6 IMS03320
6335 PUNT 96335. NPHASE (1 ) , NTHAS E (I 2 ) ,NPHAS E (2) ,NPH A S E (I 4 ) , NPHASE(I 5>INS03330
1, NPHASECI6). NPHA^E(I7). NPHASEd*) INS03340
96335 FOENAT(5Xt4(7X. A%TXt AG ,4X>> INS03350
PRINT P634, (DELAI(I.J)fPELAl(I.J+2),J=1.2),DELAI(I,l5),DELAI(I,l9lNS03360
1), DELAI (1.J10) .DELA1 (I,Ic> INS03370
963* FORMAT C5H DELA, 4 ( 5X ,2F10.0,5X)) INS03380
PhINT ^635, (QQ(J,1 ) ,QQ(J + 2,1 ),J=1 ,2) ,CQ (15 ,1 )?OQ (19,1), INS0339C
lOG(Iia,1),00(Ifc,1) INS 03400
9635 FOF1AT (6H QUEUE 4 ( 4X ,TF 1 C.0,CX)) IMS03410
PKJNT t J = 1 »2) f VOL (15, 1) fVOL(T9, 1) , INS03420
1 VOLd 10,1 ) , VOLCI ? ,1 ) INS0343U
V636 FQPMAT(7HVOLUMc4(?x,2;rin.O,7x)) INS 03 440
PF;INT 9637, (CAP( j, 1) ,c Ar (j + 2 ,1 ), J = 1 ,2) f CAP (i 3,1) .CAP (i 9 .1) . INS03450
1CAF(Iin,1),CAP(I9,1) INS03460
9637 FORMAT (9H CAPACITY 4 (1 X , i.F 1 0 .0 , 9X ) ) INS03470
PRINT 9638, ( Y ( J , 1 ) , Y (J + ? , 1) , J=1 , 2) , Y (I 5 ,1 ) . Y (I 9 , 1) , Y (I 10 ,1) IMS03480
1 , Y (I ?• , 1 ) I N S 03 4 9 0
963S FOKMAT(7HV/C.CAr4(TX,2rin.5,7x)) INS O7 500
RO TO 90 INS0^510
90 CONTINUE INS03520
RLTURN INS03530
END INS03540
SOURCE CODE PAGE 095
-------
APPENDIX «. ISKAp MODTL COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGEI
MAHOUT INE. INSFCI' IKU00010
CC^'VON / COi'-N/ I,Z,L,J, K, TOfc, DOW, TP . TOTATT, TTPZ,TOTGEN INUC0020
CCMMON /LINK./ NLlf.K.. NL«N[(2CO), X1(200), Y1 (2 OC ) , X2 (? 00 ) , Y ? ( 2 Q Q) I N'U 00 07 0
1, LC/>P(200), DIST(?uO), VLLC200), ICON (200,3) INUOOOAO
2,NSTOPS(200) INU00050
COMMON /INTRST/N1, L I N ( 7 D , /.) , ]T YP C ( 70 ) , I C Y C L< 70 ) , PH(7QfA), C I ( 7 0) I NU00060
1 ? &CAP(70,«),QUE(70,A) INU00070
COMMON /ZONES/ NZONFS ,N7LINK ( 50)» ZLINKS (12,50 ) , ZATTR(50), INU00080
1ZGENR (50), NEXT, ZAT(?), 7fcT(?), ZVT(3,50), ZNAMEC50) INU00090
COMMON / GATE/ NGATE, LGATE(2,10), vcRdO, 2,4) INUOOIOO
COMMON /VOLUME/ COUNT(4,?00) INU00110
COMMON /PARK?/ P7, ^V(50), FLA(50), VZ(50), ZV(50) INU00120
COMMON TT(200,3), DELA(2nO,3), PRT(50), QUcUE(200) INU00130
COMMON PTU.2)tVOL(4,3),Y(4.3)fCAP(&,?)fYTU) INU001AO
1 ,DELAI(70,A) INU00150
DIMENSION' W(2),V(2) INU00160
INTEGER W INU00170
C INU0018Q
C UNS1GNALIZED INTERSECTIONS ARE HANDLED IN THIS SECTION INU00190
C NOTF TH/=0.0 INU00300
W(2)=0.0 INUC0310
V<1)=0.0 INU00320
V(F)=0.0 INU00330
Ji: = 1 INU0034Q
DO 72 J = 1,4 INU00350
C SUM THE VOLUME AND VOLUME DIFFERENCE FOR VEHICLES ON N-S ANO E-W APPRINU00360
L = LIN (I,J) INU00370
VOL(J,1) = 0.0 INUOP380
IF (L .LE. 0) GO TO ^3 INU00390
PELA(L,1) = 0.0 INU00400
SOURCE CODE PAGE O96
-------
AI'PENDIX A
ISKAP MODFL
COMPUTER PROGRAM SOURCE CODE
ENVI RON*ENTAL PROTECTION
14= 14+1
VtLU ,1 ) =(CO
IF(VOL(J,1) .
IF(ITYPC(I) .
SVOL = SVOL +
AbSV = VOL(J,
IF ( GCAP(I,J
IF ( NLANE(L)
71 STOP 1
715 V(J2 )= APAX1 (
W(J2) = MAXO(
T F(GCAF (I ,J )
GO TO 72°
723 GCAP( IfJ) =
GO TO 727
725 G t A P( I , J ) = 4
C SUM THE CAPACITI
727 SCAP = SCAP *
729 SLANE = SLANE
73 JL = 3-J2
J1 = MOD(J1 ,
I FUTYPC (1) .
A L S V = A B S ( A P
C COMPUTE A MODIFI
C , f LOM HCH TAf. L
IF(SVOL .GT.
1S NCAP = SCAP
IF (14 .LT. 4
GO TO 738
735 IF(tfd) .LT.
F = V (1 ) / V ( 2 )
S N C A P = 1 ti 0 0 .
SVOL = V(1) *
C COULD INCLUDE MO
73f CONTINUE
C COMPUTE NEW CAFA
I G - 0
Ifcl = 0
DO 77 J - 1,4
L = LIN(I «J)
UVTC1.L) * COUNT(2,L) * COUNT(3,|J ) *3600./TP
GT . VOL (J1 , D) J 1 = J
GE. -1 ) GO TO 71 5
VOL(J ,1 )
1) - AtfSV
) .GT.G) GO TO 727
- 1) 71, 7?3. 725
VOL (J.I ) ,V (.12) )
NLANE(L) ,W ( JI))
.LE. n.Q) GCAF(I,J) = 1800 . *NLANE(L)
475 .
50 .*NLANE(L)
ES FOP ALL APPROACH LEGS
GCAP(I, J)
* N L A N F < L )
2)
GE . -1 ) GO TO 735
SV)
ED INTERSECTION CAPACITY BASED ON VOLUME SPLIT
E 6.3 )
0.0)
* AP1AX 1(1.0 - APSV/SVOL/1 . 9 , .816)
) SNCAP = SCAP
1.0 .OR. V(?) .LT. 1.0) GO TO 736
* W ( ? ) / W ( 1 )
*(W(1)*R+W C7)) / (R+ 1 .0)
V (?)
D1FICATION1 TO CCAP AT A 2 WAY STOP PAS ED ON GAP
CITIES FOR EACH APPROACH
INU00410
INUOQ420
INU004IC
INU00440
INU0045Q
INU00460
INU00470
INU00480
1NU00490
INU00500
1NU00510
INU00520
INU00530
INU00540
INU00550
INU00560
INU00570
JNU005SU
INU0059Q
INU00600
INU00610
INU00620
INU00630
INU00640
INU00650
INUOC660
INU00670
INU00680
INU00690
INU00700
INU00710
1NU00720
INU00730
ACCFPINU00740
INU00750
INU00760
INU00770
INU00780
I NU00790
INU0060C
SOURCE CODE PAGE
OV7
-------
APPENDIX A. 1SKAP MODTL COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGE
DLLAI(I,J) = 0.0 INUOH810
Gu = o.o iNUoos:o
IF(L .LE. 0) GO TO 767 1NU00830
NSTOFS(L) = 0 INuOOB^O
IF(SVOL .LE. 0.) GO TO 76 INU0085C
CAPU.1) = VOLCJ ,1)*SNCAP/SVOL INU00660
C TEST IF OVER CAPACITY DEMAND INU00870
00 = AMIN1 (VOL(J ,1 ) , (VOL(J,1) - C A P ( J , 1 ) ) * TP/3 600.+Q UE ( I , J ) + 5 . 0 > INU008FO
IF(VOL(J,1) .LT. CAPCJ.1)) QO = AM IN1 (?.0 ,1 .0/(SNCAP/SVOL-1 .0)) INUQ0890
( COMPUTE THE NEW CAPACITY TO VOLUKE RATIO AT EACH GATE INU00900
IF(1G .GT. C) GO TO 74^ !NUOn910
7A1 It, - 1C + 1 INU00920
11*2 IF (IG.GT. NGATF) GO TO 749 INUOQ930
IFCL.NF. LGATE(1,IG>>GOT0746 INU00940
IF(VOL(J,1).EQ.O.)C-OT074? INU00950
DG744K=1.? 1NU00960
Vcr(TG , 1, K) = CAP(J,1) / VOLCJ.1) INU00970
C JF(VOL(J,K) .NE . 0) VCR(IG.1,K) = C A P ( J , K ) / VO L( J , K) .1NUOD960
744 CONTINUE IMU00990
GO TO 74^ INU01000
746D0747K=1,_ INU01010
I F(LC ON (L ,K ) .NE. L o A. Tr ( ?. . I G ) ) GO TO 747 1NUC10PC
IF(VCL(J.D -NE. Q.O)VCR (IGt ? .K ) = C A P ( J . 1 ) / V OL ( J , 1 ) INU01Q3Q
GO TO 749 INU0104G
747 C ONTINUE INU01050
74£ I F(I61 .EG. 0) GO TO 74 1 INU0106Q
749 Itl = IG INU0107Q
C DELAY ON EACH APPROACH INU01080
75 C ONTINUE INU01090
PNS=SVOL/SNCAP INU01100
IFUCL(J,1).LE.O.O)5UT076 I NU 01 110
c COMPUTE THE PERCENTAGE STOPS INU01120
IKlTYPC(l) .EQ. -:> HNS = 1.U INU01 130
IF(ITYPC(I) .EG. -1 .AND. f*'OD(J.^) .NE. J1) PNS = 1.0 I NU 01 140
C COMPUTE DELAY E'ASED Of! INVtRSF OF CAPACITY. ^AKE THEORETICAL M A XIM UM1 NU 01 1 5 0
C OF CAPACITY 2*GCAP(I,J) INU01160
DbLft (L,1) = NLANE(L) /(AMIN1 (d.0 , SNCAP/SVOL) *GCAP(I rJ) )*3L00.* INU01170
1 (FNS + uO) INU01180
NSTOPS(L) = PNS*VOL(J .1)*TP/3600. INU01190
C IF CAPACITY EXCEEDED ASSIGN EQUAL VEH1CLF PROCESSING TIME TO EACH APINU01200
SOURCE CODE PAGE O98
-------
APPENDIX A. ISC'AP MODEL COMPUTER PROGRAM SOURCE CODF. ENVIRONMENTAL PROTECTION .* fiEN
IFtSMCAP .LT. £VOL) DELACL.1) = SLANE/?HCA**3600.* 1NU01210
1 (1.0 + (uO + GUE(I.J) * 5.U)/?.0) 1NU01220
76 DcLA(L.Z)=DtLA(L.1) IWU01230
DtLA(L,3)=DFLA(L ,1) INU01240
DELAKT.J) = OELA(L,1) INU01250
C QUEUE LENGH AT THE END OF TP INU01260
767 QUEUE(L) = 00 INU01270
OUECI,J) = QO INU01280
77 CONTINUE IMU01290
IFUSAVE .NE. I) PPINT 97 INUQ1300
97 FOP«A TdH-1gX 35H M-APPR DFLAY QUEUE E-APPR DFLAY QUEUE S-APINU0131G
1PR DELAY QUFUE V-APPR DELAY QUEUE ) INU01320
ISAVE = 1+1 INU01330
PRINT ^8, I, (DELAI(I,J). QUE(I,J). J=1,4) INU01340
90 CONTINUE 1NU01350
9? FORMAT (13H INTERSECTION 15, 4(F10.0 , F7.0r5X)) INU01360
RETURN INU0137Q
END INU01380
SOURCE CODE PAGE Ov9
-------
APPENDIX *. IS^AP MODEL COh'PUT(:R PROGRAM SOURCE CODEt ENVIRONMENTAL PROTECTION AGE
S Lu ROUTINE /AREA ZAR 00010
C EACH ZONE IS D £ F IN E C> fY ADJACFflT LINKS FROM WHICH VEHICLES ACCL.SS ZAR00020
C THAT ZONE. IN ADDITION PARKIf:b 70NE LINKS MUST ENCLOSE AN AREA ZARQ0030
C AND THAT AREA IS ASSIGNED A CERTAIN NUMPEP OF VEHICLE PARKING S F AC E S . Z AR 00 IJA 0
C OF COURSE ALL LINKS SURPOUNDING THE AREA MUST PE CONNECTED, OTriFRWISEZAR00050
C THE AFEA WILL NECESSARILY bE INFINITE. ONE EVCPTION THE LAST LINK ZAROOC6U
C NEED NOT CONNECT TO THE FIRST LINK wHFN LESS THAN 6 LINKS DEFINE THE ZAROCC70
C ZONE. ZAROOOfcO
COMMON /LINK/ NLINK, NL^NE(200), X1(2TO), Y1(200),X2(200),Y2(200)Z*R00090
1, LCAP(2QO). DIST(PUO), VCLC2UO), LCON (200,3) ZAR00100
COMMON /ZONES/ NZONE5, N7LINK(5Q), ZL I NK (1 2 ,5 0 ) ,Z AT TR ( r 0) , ZAR0011U
17GENR (50), NEXT. ZAT(2), 7&T(2), ZVT(7',50), ZNA^E(SO) ZARQ0120
CO^MON/EXCLUD/NOPAPK ZAR00130
INTEGER ZNAKE Z A R 00 1 <, (j
INTEGER ZLINK Z/>ROm?0
DIMENSION PX(7),PY(7),TRIARE(7) ZAR00160
COMMON /PARKZ/ "Z. PV(qU), PLA(50), VZ(50), 7 V ( 50 ) , P D ,P L S , PL P OZ AR 00 1 7 0
1,FNIOS(50),PLL(50) ZAR 00 180
INTEGER PNOS ZAR0019Q
INTEGER 2 ZARC0200
D052Z=1»NZONES ZAR00210
SAVPLA = PLA(Z) ZAR00220
12 CONTINUE ZAR00230
1F(Z .LE. NEXT) GO TO 52 ZAR002AO
NLT = PNOS(Z) ZARQ0250
XYMAX = 0.0 ZAR00260
DOZ^NL=1,MLT ZAR00270
L = I APS (ZLINK (fJL.Z) ) ZAR00280
XYMAX=/»MAX1((X1(L)-X?(L))**2+(Y1(L)-Y2(L))**2 ZAR 00290
J..XYNAX) ZAR00300
C SPECIAL HANDLING IS RcGUlPtD FOR THE FIRST AND SECOND LINKS ZAR00310
I F ( ML - 2) 12 , I?, 2') ZAR 00 320
17PX(1)=X1(L) ZAR00330
PX(2) = X2(L) ZAR003AO
PY(1) = YKL) ZAR00350
PY(i) = Y2(L) 2AR00360
LT = L ZAP 00370
GO TO ?9 ZAR003SO
17 I f (PX(2) .NE . X? (L) ) GO TO 1C' ZAR003<>(j
IF(PY(2).EQ.Y?(L>)t>C:T024 ZAROPAOO
SOURCE CODE PAGE 1UO
-------
APPENDIX A. ISMAP MODEL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION
C THE END POINTS FAIL TO f'ATCH, TWO POSSIPL'H MATCHES REMAIN ZAR0041C
If I F (PX(2) .KE. X1 (D) GO TO 1V ZAR00420
IF(PY(2).ECl. Y1(L))GOT026 Z A R QO 4 3 G
C THE END POINTS FAIL TO * ATCH, ONL POSSIBLE MATCH REMAINS ZAR0044Q
19 PX(2) = PXd) ZAR00450
PYC2) = PY(1) ZAR00460
PX(1) = X2(LT) ZAR00470
PY(1) = Y2CLT) ZAR00480
C DETEF-M1N WHICH END OF LINK L CONECTS TO THE PREVIOUS LINK ZAR00490
20 IF(FX(NL).NE.Xl(L))f:CT022 ZAP OD 500
IF ( PY(NL) .EG. Y1CD) GO TO 2f ZAR00510
22 IF ( PX(NL) .NE . X?(L)> GO TO 23 ZAR00520
IF( PY(NL) .EQ. Y2(D) to TO 24 ZAR0053U
C THE MUMPER OF CONNECTED POINTS IS SAVED IN NPT ZAR00540
2.7 NPT = NL ZAR 00550
C THE FIGURE IS NOT CONNECTED AT THE LINK EMD POINTS ZAR00560
PMNT 923, 7NAMECZ), ZL I NK (NL-1 , Z ) , L ZAR00570
c?2 FORMAT (7H ZONE ,I2,32H IS DISCONNECTED BETWEEN LINKS 14. ZAR00580
1 4H AND, 14) ZAR00590
GO TO 30 ZAR00600
24 PXCNL-t-1) = X1CL) ZAR00610
PY(NL+1) = Y1CL) ZAR0062U
C- 0 TO ?7 ZAROC630
26 PXCNL+1) = X2(L) ZAR0064C
PY(NL+1) = Y2(L) ZAR00650
27 IFCNL.EQ. 3.0R. NL.tlC. 5)nOT029 ZAR 00 660
TRIARE(NL) = (P X (NL - 1 ) * P Y (N L ) - PX (NL-1 ) *P Y (N L+ 1 ) * P X ( N L )* P Y (N L+ 1Z AR 00670
1 ) - PX(NL)*PY(NL-1 ) + PX (NL+1)*PY(NL-1 ) - PX (NL+1 )*PY(NL)) / 2.0 ZAR00680
ThIARECNL) = ABS (Tf?I ARE (NL) ) ZAR00690
29 NPT = NL + 1 ZAR00700
IFCfiPT .LE. 6) GO TO 30 ZAR00710
NPT = 6 ZAR00720
GOT031 ZAR00730
C ZAR00740
C EACH AREA COMPUTED IS A POSSIBLE SUBTRACTION FROM THE TOTAL AREA .ZAR00750
C WHEN IT COVERS THE TRIANGLE CREATED BY CONSTRUCTED SIDES, SUB- ZAR00760
C TRACT THE AREA. ZAR0077U
( IF A CLOSING LINK WAS LEFT OUT ASSUME IT FXISTS ZARQ07BO
30 IF ( PX(NPT) .NE. PX(1)) GO TO 32 ZAR0079U
IF ( FY(NPT) .ME. PY(1» GO TO 32 ZAROO&OO
SOURCE CODE PAGE 1 G1
-------
AFPE NO I X A
M 0 D F L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGE
NF'l = NPT -1
-1 1 PLL (7 ) = -SCRT( XYMA X)
GO TO 40
C ONE LINK ZONES ARE LEGAL. ASSUME 1 2412+14+14 FOOT WIDTH
32 I F C N P T . C, T . 2 ) GO TO 3 5
PLL(7 ) = SQRT(XYMAX )
PL*(Z ) = PLL (Z) * c 2.0
GO TO 50
35 PLL(Z)=AP1AX1<(PX(NPT)-FX<1))**2 + (PY(NPT)-PY(1))**2,XYMAX)
PLL(Z) = -SGRT(PLL(Z))
IF (NF'T .ED. 7 .OR. NPT.FQ. 5) GO TO 40
TRIARE (NPT) = ( P X ( N P T -1 ) *F Y ( N PT ) - P X (N P T-1 ) * PY ( 1 ) + PX(NPT)*PY
1 - PX (NPT)*P YCNPT-1 ) + PX (1 ) *PY (NPT-1 ) - P X ( 1 )* P Y ( N PT ) ) / 2.0
C INITIALIZE THE AREA OF THE ZONE
Thi ARE(NPT) = ABS(TRJAPEfNPT))
40 IF(NPT .LE. 4) GO TO 413
PLA( Z) = ( PX(5)*PY(1) - PX(5)*PY(3) + PX(1)*PY(3) - PxM)*PY(
1 * PX(3)*PY(5) - PX (3)*PY(1)) / 2.0
PLA(Z ) = ABS(PLA(Z) )
GO TO 415
413 PLfl(Z ) = TR1 ARE ( 2 )
415 IF (NPT .LE. 3) CO TO ^0
DO 495 NL= 4, NPT
C COMPUTE AREA OF TRIANGLE WITH 1,2, OR 3 COMMON SIDES
C WHEPE NL-3 IS THE NUMBER OF SIDES HELD IN COMMON
IF( NL - 5 ) 417,47, 45
417 1C = 1
f IA IS THE VERTEX OF THE TRIABLE 1-2-3 AND COMMON SIDF IS 1-3
I A = 2
IF ( NPT.NE.4) GO Tu 4?
410 I l- - 4
GO TO 425
C If IS THE VERTEX OF THE. TKIMJGLE 1-5-3 AND COMMON SIDE IS 1-3
4? It = 5
f COMPUTE THE SLOPF OF THF LINFfOR SIDE) HELD COMMONLY RY TWO TRIANG
4?5 IF (PXU) ,FO. PXC7-) ) GO TO 46
C * - (P Y (1 ) - P Y ( 71 ) / ( P X ( 1 ) - P X ( 7 ) )
C COMPUTE THE INTERCEPT OF THIS LINE k, IT H THE Y AXIS
Y>. = PY(1) - CM* P X C1)
GO TO 4?
ZAR
Z AR
Z AR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
( 1)ZAR
ZAR
ZAR
Z AR
2 AR
5 ) ZAR
ZAR
Z AR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
ZAR
LESZAR
ZAR
ZAR
ZAR
ZAR
ZAR
00810
0062U
008 ?0
00840
00&50
00860
00570
00*80
OOS90
00900
00910
0092Q
00930
00940
00950
00960
00970
00980
00990
01000
01010
01020
01030
01G40
01050
01060
0107Q
01020
010^0
011CC
01110
01 120
01130
01140
01150
01160
01170
01 1*0
01190
01200
SOURCE CODE PAGE
102
-------
APPENDIX A
ISCAP MODEL
COMPUTER PROGRAM SOURCE CODE.
ENVIRONMENTAL PROTECTION AGE
c
4?
c
c
45
c
4ft
4ft
c
c
47
C
C
£
4?.
49
C
40
40
50
IA I < THE VERTIX OF THt TRIANGLE 3-4-c, IP IS VERTEX OF 5-1-3
I / , = 4
IL =1
I C = 3
COMPUTE THE SLOPE OF THE COMMON SIDE 3-5
IFCPXC!) .EG. PX(5>) GO TO 46
CK> = (PYC3) - PY(5)) /(PX (3)-PX(5))
YK = PY(3) - CM* PX(3)
GO TO 47
IA IS THE VERTEX OF THE TRIANGLE 5-6-1, IB IS VERTEX OF 1-3-5
IA = 6
IL = 3
I C = 1
COMPUTE SLOPE OF COMMON SIDE 5-1
IF(PX(5) .F.Q. PX(1)) GO TO 46
Cfc = (PY(5) - P Yd ) ) / (PX (5) - PXC1))
YK = PY(5) - CM*PX(5)
GO TO 47
IF CPX(IA) .LT. P X ( I C ) ) GO TO 463
IF (PXCIB) . GT. PXUC))60 TO 48
GO TO 493
3 IF (PX(IP) .GT. PX(IC))GO TO 4^3
r- o TO 48
USING YK AD THF- NEW Y ORIGIN COMPUTE THE SLOPE TO EACH N ON -COMMON
TRIANGLE VERTEX
AF =(PY( 1A) - YK) / PX(IA)
nfl = ( FY ( 16 ) - YK ) / PX(Jfi)
DETERMINE IF E30TH TPIANGLES FALL ON THE SAME SIDE OF THEIR COMMON
SIDE, AND SUBTRACT THE SMALLER IF THEY DO.
If ( Af .GT . C*1 ) GO TO 4°
I F ( DK .GT. CM) GO TO 493
TRIANoLE? OVEPLAP
PLA(Z) = PLACZ) - TRIARE(IA)
GO TO 495
IF < P PI .GT. CM) GO TO *• .!J
TRIANGLES DO NOT OVERLAP
3 PLA(Z) = PLACZ) + TRIAREUA)
5 CONTINUE
PLA (Z) = AfvS ( PLA(Z ) )
IMPLL(Z) .LT. 0.0) PLL(7) = -PLA ( 7 ) /PL L ( Z) - PLL(Z)
ZAR01210
ZAR01Z2C
ZAR01 ^3C
ZARQ124Q
ZAR 01250
ZAR01260
ZAR01270
ZAR01280
ZAR01290
ZAR 01300
ZAR01310
ZAR 01 320
ZAR01330
ZAR01340
ZAR01350
ZAR01 36G
ZAR01370
ZAR0138G
ZAR01390
ZAR01400
ZAR01410
ZAR01420
ZAR01430
1 AR01 44Q
ZAR01450
ZAR01460
ZAR01470
ZAR01480
ZAR01490
Z AR01 50C
ZAR01510
ZAR01520
Z AR01 530
ZAR 01 540
ZAR01 550
Z AR01 560
ZAR01 570
ZAR01 580
ZAR01 590
Z AR01600
SOURCE CODE PAGE
103
-------
APPENDIX A. ISPAP MOD^L COMPUTER PROGRAM SOURCE CODF. , E M VI ft 0 N>" t N JAL PROTECTION AGI
.NC. D.O) PLA(7) = SAVPLA ZAR01MO
PLL(7) = AMAX1 (PLLCZ) ,1 ,P) ZARQ162U
1 f(NO PA RK.f 0.1) PRINT °6r' ZAR01630
F ORMA T(/ ,1 X, 'PARKING ZONF CAPACITIES AND LENGTHS NOT USED IN THE ZARQ16AO
SC ALCUIATION',/) ZAR01650
C PRINT «?53 ZAR01660
953 FORMAT (A2H-PARKING ZONE CAPACITIES AND TRjP LENGTHS /2AH ZONE CAzARQl670
1PACITY LENGTH ) ZAR01680
17 = NEXT + 1 ZAR01690
C57 FonyiAT(2X,lZ ,2E15 .' ) ZARQ1700
DO 57 7 = IZTNZONES ZAR01710
PCAP = PLA(7)/PD ZAR0172U
C PRINT C57, ZNAME (Z) ,PCAP ,PLL (Z) ZAR0177Q
57 CONTINUE ZAR 017^0
RETURN ZAR01750
E r*D Z ARQ1 760
SOURCE CODE PAGE
-------
APPENDIX A. IS-'AF MODFL COHPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION A GE NCt
? US ROUTINE fcOUTEV ROU0001U
Cl*U;ON / COMM/ I.Z.L.J. K', TOD, DOW, TP , TOTATT, TTPZ,TOTGF.N . jltf RQU00020
CCMMON /LINK/ NLINK, V L M, F ( 2 CO ) , X1(2PO), Y 1 (2 00 ) . X2 C 200 ) , Y 2 ( 2 00>R OU 00030
1, LLAP(200), DISTCOO), VILCUP), LCON (200,3) RGU0004G
2,NSTOPS(?00) ROU0005C
COMMON / INTRST/ NINS, LIN(70 ,4 ) , ITYPC (70), CYCL(70), PH(70,4), ROU00060
1 CH70), GCAP(70,A), QUEC70.4) ROU00070
COMMON /ZONES/ NZONES, NZLINK(5Q), ZL IN K S (1 2 , 50 ) , ZATTRC50). ROU00080
1 ZGENR(50), NEXT , ZAT(2)T ZGT(2), ZVT(3 ,50) , ZNAfE(50) ROU00090
INTEGER ZNAKF ROU0010G
INTEGER ZLINK.S ROU00110
COMMON / GATE/ NGATE, LGATE(2,10), VC«MO, 2,A) ROU0012Q
COMMON /VOLUME/ COUNTU,rOO) ROU00130
COMMON /PARKZ/ PZ. PVCU). FLAC5Q). VZ(50), ZV(50), P D . PL S , PL BR CU 00 1 A 0
1, PNOS(50) , PLL(C0) ROU0015C
COnhON /VEHTYP/ VT, VTPC3), VTE(3), VT^ULT(2),SZVTP(3,2) ROU00160
COMMON TT(200,3),NC,NR,RO, R(200), CO, C(200) ROU0017Q
DIMENSION DELA(2nO,3) ROU00180
EQUIVALENCE (N'C, DEL Ad)) ROU00190
INTEGER R ROU00200
COMMON RG(200,10), CG(20nf-|(j) , L CR Z ( 10, 5 0, 2 > ,G C R ( A) ROU0021C
1.L1STLU), CLIST(£).LISTC-(M ROU 00220
2,VFHSU), LCRZF(10,50) ROU00230
INTEGER RG, Z ROU00240
DIMENSION QTEMP(A) ROU0025Q
DO 12 117=1,200 ROU0026Q
12 C = 0.0 ROU00270
IF(ITM .LE. 0) ITM = 1 ROU00280
STP = TP ROU00290
DO BO IT = 1 , ITM ROU00300
TP = (STP*IT)/ITf ROU0031G
D025IG=1,NGATF ROU00320
C GET C AND R ARRAYS FROM EACM GATE LINK PAIR ROU00330
1f« CALL MINPTH (LGATE(1,IG) ,?) ROU003AQ
DO 19 L =1,NLINK ROU00350
PG (L t IG) = R(L) ROU00360
19 Ct, (L, IG) = C(L) ROU0037C
C ROU00380
C GET ARRAY OF LINK NUMPERS WHICH IDfcNTIFY THE COST AND ROUTE FROM EACHROU0039Q
C IG TO EACH ZONE ROUOOAOO
SOURCE CODE PAGE 105
-------
APPENtMX A. ISMAP P10DFL COTPUT6R PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION A6(
c
c
c
c
c
c
c
c
c
c
c
P> 0 24 7 -1,N ZONES
lOPt - 1
IF(Z .LE. NEXT) TORE = L
C 1 = 1.0E10
L1 - 0
L<: = 0
NZL= N7LINK (Z )
0021 J = 1 , NZL
L - Z LINKSC J , Z)
IF(L .LE. 0) GO T0 21
V-HERE A GATE LINK AMD ZONI LINK ARE EQUAL (I.E. EXTERNAL ZONF TO
OUTGOING GATE LINK, AND INTERNAL ZONE TO INCOMING GATE LINK)
PATH S ARE VOID .
IF (LGATEdORE, IG) .EG. L) GO TO 21
GET Z H I N COSTS TO F.ACH ZONF
If (C (L) ,Gf . 1 . OE1 0) GO TO 21
IF (L2 .LE. D) GO TO 20
IF (( (L2 ) . L . T . C (L) ) GO TO 21
L2 = L
20 IF( C 1 .LT. C(L) ) GO TO 21
Li = L1
C1 - C(L)
L1 = L
21 CONTINUE
IDENTIFY LINK WHICH SHOWS LrAST COST
LCRZ (IG. Z , 2) = 12
2; LCRZ (IG ,Z, 1 ) = L1
FIND THE FIRST LINK IN THE ROUTfc FROP THF GATE TO ZONfc
234 1F(L1 .LE. 0) GO TO 24
Lc = L1
L1 = R(L2)
GO TO 234
24 L C R 2 F ( I G , Z ) = L 2
2r C ONT INUE
FOR EACH ZONE GET A COST AUD ROUTE ARRAY TO ALL LINKS IN THF. NETWORK
DETEhMINE A COST AND POUTF. THRU CACH GATE TO EACH INT/EXTERNAL ZONE,
DETERMINE THt NUMREP OF VF H GOING THRU FAf H GATE, APPLY VE H TO THE
APPROPRIATE ROUTE
ROU0041 0
ROU004PO
ROU00430
ROUOP44U
ROU00450
ROU00460
ROU00470
ROU00460
ROUOH490
ROU005QO
ROU0051Q
ROU00520
ROU00530
ROU00540
ROU00550
ROU00560
ROU00570
ROU00560
RCU00590
RCU00600
ROU0061 0
ROU0062Q
ROU00630
ROU0064Q
ROU0065Q
ROU00660
ROU00670
ROU006&0
ROU00690
ROU00700
ROU0071 0
ROUOC720
ROU00730
ROU0074Q
ROU00750
RA 1 1 n n "7 x n
OUUU f 0 U
,ROU00770
ROUOG780
ROU00790
ROU00800
SOURCE CODE PAGE 1O6
-------
APPf NO 1 X A,
I 5 M A P M O D r L
COMPUTER PROGRAM SOURCE CODF,
ENVIRONMENTAL PROTECTION AGENCY
VC 5Q 2=1 , N Z 0 N
M = N7LINKCZ)
CALL MINPTH ( Z L
C DETERMINE WHETHER T
C GATE OR FROM INTERN
I F ( Z .LE. NEXT
IORE = 1
IZ1= 1
IZ2= NEXT
GO TO 33
31 I OPE = 2
I Z1 = NEXT+1
112 = NZONES
C ROUTE VEHICLES FROM
33 005° I Z = I Z 1 ,
GCRT = 0.0
ZZVtH = VZ(IZ)*
00 333 K = 1 , 4
LISTG (K) =0
L1STL (K) = 0
333 CLIST(K) = 1.0E1
NK = G
C MAKE UP A LIST I
C FOR EACH GATE DETER
DO 38 IG = 1 t^G-
C INITIALIZE LG THE L
LG = LGATE (IORE
I FCLG .LC . 0) GO
C TFST THAT THE LINK
I F ( L G . N E . L C R I t
0037 IK = 1,2
C GENERATE THE FACTOR
LZ = LCRZ (1C , IZ ,
I F(LZ .LE . 0) GO
DO 36 K=1 .A
IF(C(LG) + fGCLZ
I FCK .EG . 4) GO
C ADD GATE, LINK AND C
JK = 3
INKS (1 ,
O POUTf;
AL ZONE
) GO TO
VEHI
THRU
NZ)
CLES FR
EXIT G
OM EXTERNAL
ATE.
ORIGIN
IZ2
70NE Z TO EACH POSSIBLE DESTINATION ZONE
ZGENR(Z)/ZGT(3-I ORE)
n
DENTJ FYI
"IINE THE
ATr
INK N UM fa
, I G )
TO 3fc
AT THE G
( I G , I Z ) )
NG 4 ROUTES WITH MINIMUM TRAVEL T1HES
GATE CAPACITY,VOLUME ,TRAVEL TIME RATIO
ER WHEN USING GATE IG.
ATE
GO
IS ALSO
TO 38
S FOR ALLOCATION OF VEHICLES TO ALTERNATE ROUTES
IK)
TO 37
.IG) .GE
TO 335
OST TO L
. CLIST(K)) GO TO 36
1ST
ROU00810
ROU00820
ROU0083Q
ROU008A Q
ZONE THRU ENTRANCE ROUOOE50
ROU00860
ROU00870
ROU00880
ROU00890
ROUOD900
ROU00910
ROU00920
ROU00930
ROU009AQ
IROU00950
ROU00960
ROU00970
ROUOP980
ROU0099U
ROU01000
ROU01010
ROU01020
ROU01030
ROU010AO
GCROU01050
ROU01060
ROU01070
ROUOlOfcO
ROU01090
ROU01100
ROU01110
ROU01120
ROU01130
ROU011AO
ROU01150
ROU01160
ROU01170
ROU011EO
ROU01190
ROU01200
FIRST IN THE ROUTE TO IZ
SOURCE CODE PAGE
107
-------
1SKAP MODFL COMPUTER PROCPAr SOURCE CODE, ENVIRONMENTAL PROTECTION AGEf>
L1S TGUk + 1) = LIST', (JK) ROU01220
L ISTL (JK + 1 )=LISTL(JK) ROU0123G
CLI3T(JK41)=CIIST(JK> ROU0124u
CCPUK-M) = GCR(JK) ROU01250
334JI-. -JK-1 ROU 01260
335 LIST C-. (K)=IG ROU01270
LISTL (K) = LZ ROU01 2KO
CLIST(K) = C(LG) + CG(LZ.IG) ROU01Z90
NK = MING(NK41,4) ROU01300
71 = 1 ROU01310
C LOCATF THE CORRECT CAPACITY FOK THIS TURNING POVtMENT ROU01320
IF(IORE .EQ. 1) GO TO 3 A "* ROU01330
LG1 = F( LG) ROU 01 3^0
IFCLG1 .LE. 0) GO TO 35 ROU0135C
DO 3^ J = 1 ,3 ROU01360
I F(LCON(LG1 , J) .EQ. LG) 11 = J ROU01370
34 CONTINUE ROU 01 3 80
GO TO ? 5 ROU0139Q
3^3 00 3A5 J= 2,3 ROUOl^OO
LG1 = LCON(LG,J ) ROU 01 410
IFCLG.EG. R(LG1))I1=J ROU01A20
:A5 CONTINUE ROU01430
3? CCR(K) = VCKClG,IO^E,11)/(C(Lb)-^CG(L7,IG)) ROU0139f 7NAV-.F. (Z) ,ZNAMP (12 ) .(LISTG(K) .LI5TL (K ) ,CLIST(K) ,VEHS(K) ROU0155Q
C 1 , K = 1 ,NK ) ROU01 560
C9^9 FOF-^AT
-------
APPENDIX A
IS ft AT M C D F L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION A6ENC
41
APPL
r
RECO
L
1
I
STOR
C
BACK
L
I
C FIND
D
I
C
G
4? C
C
43 L
G
C LZ"S
C P0CK
45 L
I
C FIND
D
I
C
G
46 C
TO THE LIN'KS OF THF NEW WORK OF 4
Y VEHICLES
G AC K = 1 , 4
VER LAST LINK IV THE ROUTr
Z = L I S T L ( K )
F(L7 .LE. C) GO TO 49
G = LISTG(K)
E THE NUMBER
OUNT(4,LZ) =
UP ONE LINK
G = R G ( L Z , I G )
F (LG.LE . 0) GO TO 45
PUT IF CONNECTION IS ST , R
042 J = 1 ,3
F (LCON (LC,J) .NF. L?) GO
OUNTC J,LG) = COUNT(J.LH)
0 TO '3
GNTINUE
ALL EXIT
2 - LG
0 TO 41
THE LAST LINK IN ROUTE TO
UP ONE LINK:
C = R( LZ)
F( LG .LE. 0) GO TO 4°
OUT IF CONNECTION IS ST,RT,LT
046 J=1.3
F (LCON (LG,J).NE. LZ) fG TO
LG) = COUNT (J , LG) +
POUT? S
THAT TERIINATfc ON THIS LINK BEFORE TURNING STfPTfLT
COUNT(4,LZ) * VEHS(K)
tLT
TO 4?
VENS (K )
THE GATE
OUNT (J
0 TO 47
GNTINUE
47 LZ = LG
GC TO 45
4S CONTINUE
5° CONTINUE
IF(IT ,EQ. ITM)
00 70 1=1,NINS
DO 60 J = 1 ,4
60 QTEMP (J) = UUE(I .J)
IF (I TYPC (I ) .GT
CALL 1NSECU
46
VEHS (K
ro TO •'•' u
>}) GO TO 61
ROU0161U
ROU01620
ROU01630
ROU016AO
ROU01650
ROU01660
ROU01670
ROUOf680
ROU01690
ROU01700
ROU01710
RCU01720
ROU01 730
ROU017AO
ROU01750
ROU01760
RCU01770
ROU01780
ROU017QO
ROU01800
ROU0181U
ROU01&20
ROU01830
ROU013AO
ROU01350
ROU01860
ROU0187Q
ROU01880
ROU01890
ROU0190U
ROU01910
ROU01920
ROU01930
ROU019AU
ROU01950
POU0196&
ROU01970
ROU01980
ROU01990
ROU0200Q
SOURCE CODE PAGE
109
-------
IV A. 1SNAP M 0 0 f L COMPUTER PROGRAM SOU JVC F CODF, ENVIRONMENTAL PROTECTION AGE
CO TO 6Z ROU0201G
dl CALL INSEC ROU0202G
62 PO t 5 J = 1 ,4 ROU0203C
QUE(I,J) = QTE^P(J) ROU02060
L = LIN(I,J) ROU02Q5Q
IF(L.LF.O) GO TO 65 ROUOZ060
IF(VEL(L).LE.O.)GOT06S ROU020^0
DO 64 K = 1 ,3 ROU020PO
64 TT(L.K) = D JST(L )/VEL (L ) + DELA(L,K) ROU020 ROU02150
SOURCE CODE PAGE 11O
-------
iw«j x « . ISMAP MODFL COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION A 6E HI
SlTF.OUTjr;t MINPTM (LINKS, NL) MIN00010
c THIS ROUTINE coMPurrs THE MINIMUM TIMF PATH FRO^ M. ORIGIN LINKS MIN0002G
C L TO P-LL ACCESSAULE LINKS I'.- A TRAFFIC NETWORK. APRAY C STORES THE MIN00030
C COST OR TRAVEL TI/E TO EACH LINK AND ARRAY R STORES THE ROUTES FROM MINOOQAO
C EACH LINK TO L ON COMPLETION. MIN00050
COMMON / COMM/ I,Z,L.J, K, TOD, DOW, TP, TOTATT, TTPZ ,TQTGEN , ITM MINOPC60
1,NYEAR.LHEAD(IS) MIN0007Q
COMMON / LINK / NLINK, NLANE(ZOO), XK200), Y 1 ( 2 00) , X 2( 2 00) . Y2 ( 2 OOMINOOOS 0
1), CAP(ZOO) ,DIST(200) , VEL(d!00), LCON ( 2 00, 3) ,N ST OPS ( 200 ) KIN00090
INTEGER R MIN00100
COMMON TTC200,3) ,NC ,NR,RO, R(200), CQ» C(200> MIN00110
DIMENSION LINKSC12) MJN00120
NC = NLINK MIN0013Q
DO 15 L = 1 . NC MIN 00 1*0
1C C (L) = 1.0F10 MIN00150
D017L=1,NC MIN00160
17 R (L) = C MIN00170
L=1 MIN0018Q
DO 19 I -1,NL KIN00190
IF(LINKS(I).LE.O)GOT019 MIN00200
L - LINKS(I) M1N00210
C CD = -1.0 KIN00 220
19 CONTINUE MN00230
GOT03 KIN00240
20 IF(L.GE.NLINK)L=n MIN00250
L = L +1 MIN00260
IFCL.EG. LS)GOTOO MIN0027Q
25 IF (C(L) .GE. 0) GO TO 20 WINOOZ80
2 L F = 0 MIN 00 2 9 0
DO i* J =1,3 MIN00300
LC=LCON(L,J) KIN 00310
IFCLC.EQ. OGOTOA MIN00320
IF (TT(L,J) - C(L) .GF_. A?S(C(LC))) GO TO A MIN00330
C(LC)=C(L)-TT(L,J) MIN003AO
R(LC)=L MIN00350
LF = J MINQ0360
A CONTINUE MIN00370
C(D = -CCL) WIN00350
LS=L MIN0039C
IF ( LF .E«. 0) GO TO .70 KINOO^OG
SOURCE CODE PAGE 111
-------
APPENDIX A. 1SPAP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION
L = LCON(L, LF) M1N0041L
Gl TO 7 M1N00420
9 CONTINUE HINOn^IC'
C PRINT 98 , (R (L),C (L) ,L=1 ,N'C) MINOO^AG
RETURN MNOfHSO
C9P FORMAT (* MFATH*/5(I^, MO.O)} MIN00460
F ND MINOOA7G
SOURCE CODE PAGE 11?
-------
APPE r«D J X A
IS MAP MODEL
COMPUTER PROGRAM SOURCE CODF
ENVIRONMENTAL PROTECTION
rLt ROUTINE PAF-KNC
C THIS SUt'-^'ODtL PREDICTS AV
C PARKING AREA OR ZON^. AT
C THROUGH THE PARKING ZONE.
C TO ThE PARKED VEHICLE TO Z
C HEADWAYS ARE LESS THAN THE
C A PARKING STALL, OR WHEN V
C VEHICLES EXCEEDS CAPACITY.
COMMON / COMM/ I ,Z.L, J,
COKKON /PARKZ/ PZ,
10, PNOS(50) . PLL(50)
COMMON /ZONES/ NZONES,
1ZGENR (5C), NEXT, ZAT<2
COPMON/EXCLUD/NOPARK
C VZ ARE ZONE ATTRACTIONS AN
INTEGER Z, PZ
PEAL NVL
C COMPUTE THE CAPACI
Z = PZ
PC = PLA(PZ) / Pr>
C COMPUTE MAXIMUM PARK IMG LO
PLDR = AMAX1 (0. 5 ,PC /2O
C COMPUTE THE TOTAL D^IVEAbL
( STALLS ASSUMED 3 MTTFRS I
c PLL= PC *3.o/ 1.4u
PL = PLL(PZ)
C COMPUTE THE PARKED VEHICLE
PVZ =AMAX1 ( VZ( Z) -
C COMPUTE PARKING UTILI7ATIO
PU = PVZ / PC
C COMPUTE SPELD BAS
PLSS = PLS
PLS = 71 .0-11 .? *PU
PLS = A.MAX1 (10.75,PLS)
( ASSIGN A PARGING LOT SFFLD
PLS = c.3
C THE TRAVEL TIME FOR APRIVI
C 1 F < P U . L T . .99) GO TO 21
C TTA = PU*PL/PLr.
C GO TO 25
EF-'AGt TRAVEL TI*E TO VEH
AN AVERAGE ?PEED OF 7.0
TRAVEL TI,VE (TT) IN THE
ONL CAPACITY RATIO. QUF
TIV-E REQUIRED TO BACK 0
EH1CLES MOVING IN THE ZO
K, TOU, DOW, TP, TOTATT
PV(50), PLA(50) , V7 (50)
NZL1NSC50), ZL INKS (12, 50
) , ZGT (2) , ZVT(3 ,50) , ZN
ICLES ENTFRI
r'PS VEHICLES
ZONE IS PROP
UeiNG OCCURS
UT OF AND TO
NE PLUS PARK
, TTPZ,TOTGE
, ZV(50),FD,
), ZATTR(^O)
AME(50)
D ZV ARE ZONE GENERATIONS
TY OF THE PAKKING ZONE
T DISCHARGE RATT
0.)
E LENGTH OF
N WIDTH AND
THE PARKING
AT 45DEGREE
ZONF
ANGLE
S AT
7V(
N
END OF TIME
Z) +PV(PZ)
PERIOD
,0.0)
ED ON GCA VALIDATION STUDY OF CO VQDEL AUC, 7* P27
"AS ED ON TACOMA STUDY
N G V F. H i C L E S
PAR 0001C
NC A PAR00020
MOVE PAR 00OIL
ORTIONLPARODO^C
WHEN PAR0005Q
CLEAR PAR00060
ED PAR0007C
PAR00080
N PAR00090
PLS,PLBPAR00100
PAR00110
PAR00120
PAR00130
PAR 00140
PAR 00150
PAR00160
PAR0017Q
PAROOlfeQ
PAR00200
PAR00210
PAR00220
PAR00230
PAR0024Q
PAR00250
PAR00260
PAR00270
PAR002SC
PAR 00290
PAR0030U
PAR00310
PAR00320
PAR00330
PAR0034G
PAROP350
PAR 00360
PAR 00370
PAR00380
PAR0039U
PAROOAOO
SOURCE CODE PAGE 113
-------
U'PFC A. ^'AT HODFL COPPUTER PROGRA1"! SOURCE CODF. ENVIRONMENTAL PROTECTION A GE N
c;"i TTA = (pv7+pv(p7))/.:.n/(-c*Pi/PLs PAR on ^.10
C D^PARTI/PL? FXPtRIENCC DIFFERENT TRAVEL TIVU PAR 00420
C2C TTA = AKAXl(TTA.PL/?.0/r>LS> PAR 00 43.G
C TTA - AMAX1(TTA, PLA(P7) I PI I PLS) PAR00440
TTA = AMAX1CTTA, FLA(PZ) / PL / PLS) PAR00450
TTA = PL/PLS PAR00460
TTD = TTA + PLBO PAROOA7U
C PAROOAfO
C QUEUEING PAR 00490
( PAR00500
C NVL I S THE NUMBER OF VEHICLES DRIVING THRU THE LOT AT AMY TU'E PAR00510
D Q = 0.0 PAR 00520
NVL =(TTA* V7CZ) + TTD* 7V* PAR00620
1 (PU-.85)70.15 PAR00630
C COMPUTE THE DELAY CAUSED ?Y EXCFEDENCF OF PARKING ZONE CAPACITY PAR0064Q
AKQ = o.o PAR on 650
IF ( PVZ + PV(PZ) -f NVL .Li'. PC*2.0) GO TO 3? PAR00660
Ak>f> ^((PVZ + PV(PZ))/2.0 + KVL - PC)* TP/(ZV(Z) + 1.0) PAR00670
HO TO 39 P-AR006tO
3- IF ( FVI ,GE. PC) GO TO 3~ PAR0069G
I F ( PV(PZ) .LT. PC ) G0 TO 39 PAROP700
C EXISTING OUEUE IS DISSIPATING PAR00710
AUO - (PV(P7) - PC +NVL )**?/( 2.V (Z)-VZ (Z ))* .5*TP/7V(Z) PAR007rO
CO TO 39 PAR 00730
C ARRIVALS ARE BUILDING A QUEUE PAR00740
37 AfcP = ( PVZ-PC+N VD* *2 I (VZ ( Z )-Z V ( 7 ) ) * . 5 *TP / ( ZV ( Z ) + 1.) PAR00750
3° CONTINUE PAR00760
C AID A VEHICLE IDLEING TI f-1 L IF NO QUEUE EXISTS PAR0077Q
C THIS INCLUDES COSTJ TO Ef.'TER THF. ZONE PASED ON T/>COMA STUDY PAR007PO
AKG = AMAX1(AWQ,0.67*TTA) PAR00790
PLS = PLSS PAROOSOO
SOURCE CODE PAGE 114
-------
APPENDIX A. IS^AP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION A6EN
C TOTAL THE RUNNING TIME IN PARKING ZOIMC PARQOfclO
TTFZ=CTTA + DB + AVvi) * V2(Z) + (TTD + AWO ) * ZV(Z) PAROOfcZO
C IF(P2 .EO. ttFXT+1) PRINT 97 PAR008?U
o? FORMAT (1H-15X, AHZ ON 6.. b X , 1 OH TOT AL TlMF 3X ?HTT ARPV,3X 7HTT DE P T,P AR 008* 0
12XEHBACKNG G,3X 7HQ DELAY,3X 7HD£PARTS,3X 7 HARRV ALS»4X6HLENGTH) PAR00850
C IFCNOPARK.EQ.1) PRINT 971 PAR00860
971 FORMAT(//t1X,'THE FOLLOWING INFORMATION CONCERNING PARKING ZONES PAR00870
&OOES NOT APPLY SINCE PARKING LOT EMISSIONS ARE NOT CONSIDERED',/) PAR00880
C PRINT 98, ZNAWEC7). TTPZ, TTA, TTD, DO, AWO , ZV(Z),VZ(Z), PL PAR00890
9H FORMATdH ,' PARKING ', 7X , I 5 , 16X , 6E 1 O.7 ) PAR00900
RETURN PAR00910
END " PAR00920
SOURCE CODE PAGE 115
-------
AF'Ff- Np I X A
MODEL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGENl
U'O
zno
3CO
SUBROUTINE COORXY
PUPPOS'7 IS TO ORGANIZE THE X,Y COORDINATES OF EACH LINK SO THAT
X1, Y1 ARE UPSTRrA", AND XI, Yd ARE THE D'OUN ST fcE A P C 00 RD I N A.T E S .
ALSO CONVERT COORDINATES FRO."1 FCET TO '1F T E R S IN THIS WRITING
OF THE SUbROUTINE.
C OI^ON /LINK/ NLINK, NLANL(ZOC), X1(200). Y 1 ( 200 ) ,X 2 ( 200 ) , Y2 (2 00>
, LC/JP(20O, DlST(200), VEL(ZOO), LCON(2PQ,3)
DATA FOTKET / O.TQA5 /
DO 900 L = 1 TNLINK
DO 100 J = 1 , ^
IF(LCON(L,J) . E 0
LC = L C 0 N(L,J)
GO TO ZOO
CONTINUE
GOTO ) * *
X: (LC) )**
X1 (LO ) **
X? (LC) ) +*
•>• ( Y 1 ( L )
+ C YHL)
+ ( Y2(L>
* ( Y2(L)
Y 1 (L C ) ) * * 2
Y2(LC))**?
Y1(LC))**2
Y2(LC))**?
SCO
LCI = n
I FCDI ST1 -
C ONT I NUE
I FCDI STZ -
CONTINUE
I FCDI ST 2 -
C ON' T I NUE
LC1 = 1
GO TO 700
f ONTI NUE
I FCDI ST? -
C ON T I NUE
I FCUI ST1 -
CONTINUE
IKDIST1 -
C ON T I NUE
DIST2)4nof25G,25(J
D 1ST 3) 2-- 0,300. iOO
D I ST 4 )Z° 0,300,300
DlST4HcO,8rU,75u
DIST5)4f- 0,450, 500
DIST4)7'1(J, 700,500
C0000010
C0000020
C000003'0
COOOOOAO
C0000050
COO 00060
C0000070
COOOOOPO
C000010G
C00001 10
C0000120
COO 001 30
C00001AO
C0000150
C0000160
COO 001 70
C0000180
C000019G
C0000200
C 0000210
C0000220
C 0000230
C0000240
C000025G
CC000260
C000027Q
CC000280
C000029Q
C0000300
C0000310
C0000320
COOC0330
CC00034Q
C0000350
C000036Q
C0000370
C00003EO
C000039Q
C0000400
-------
A. ISMAP MOOFL COMPUTER PROGRAM SOURCE CODE. ENVIRONMENTAL PROTECTION
IKDIST3 - riST4>£5J,850.7?U COOOOAlO
7PQ CONTINUE CCOOOA20
XTEMP = X1(L) C00OC43L
XKL) = X2(L) COO 00440
X^(L) = XTEPP C0000450
Y1EMP = YKL) C0000460
YKL) = Y2(L) COOOOA70
Y2
-------
APPENDIX A. ISiVAP MODrt COMPUTER PROGRA^ SOURCE CODE, ENVIRONMENTAL PROTECTION A 6E Nl
SIPKPUTINC r:HI T EM 000 10
C EM 00 020
C C> ETE Rf.lNF EMISSIONS OF HC,CO, C02, NOX EMOC03C
C EM0004G
REAL MI SS EM 0005U
DIMENSION DQ(200) EMOQ06C
DIMENSION TIf"IE(O, E I" I S S (200 t <, ) EMOP070
DIMENSION PRT(50) EM0006U
COMMON / CO^vi / 1 , Z , L. J «K» TO [) . DOW . TP » TOTAT T t TTPZ .TOTGEN t ITM EMI0009Q
1,NYEAR,LHEAO(1?, ),TUNFAC E HI 00 100
COMMON / LINK/ NLINK, N' L /> N F. ( ? uO ) , Xl(200), Y1(200). X 2 ( 2 0 0) , Yt ( 2 POEM I 00 1 1 0
1 ) ,LC AP(2PO) , D1ST (200) , VCL(200), LC-ON(?00,?) ,NSTOPS(200) E M 00 1 ? 0
N /ZONES/ NZONES, N 7 L I N S ( 5 C) ) , ZLIN K S (1 2 . 50 ) , 7ATTR(5Q), EMI00130
(50), NEXT, ZAT. 7 G T ( 2 ) . 7VT(7.50), ZNAf'E(SO) EMIOOUD
COMMON / VOLUME/ CO UN T (4 , 2.00 ) EMI00150
COMMON /PARKZ/ PZ, PV(50), PLA(50), VZ(CU), Z V ( 5 0) , P D . P L S , P L ?E Ml 00 1 6 U
10,PNOS(50),PLL(^U) EK I 00 170
COMMON TT<200,5), D£LA(2CO,3)» GZ(50), QUITlJE(200) Ef^lOOIBO
1 ,0(200.4) ,DL1NK( 200 . <• > »C COUNT (200) .MIS SC2PO,M ,CMISS (200,4) E HI 00 190
INTCGFRZ EWI0020G
COMV'ON./ELINK/IKEC,FPAKAf1(1Q),IFLAG(I> E K I 00 2 1 0
nir'ENSION'ECPU(20).ECRUZ(<:;0) EF100220
D ATA IP, I 1/0,1 / EMI 00 230
DATA R75/75.D/ EKIOn2*0
DATA R?/5.0/ EM 00 250
DATA R0f R1/0.0, 1 . 0 / EMI00260
DATA I77/77/ EMlOp27(j
E QUI VALENCE (QUEUE , DO ), (PKT ,0 / ) Ef-1jOo2?0
C EMI0030U
C SIT UP MATRIX OF EMISSION CORKPJCTION Fft(TOPS BY TFFFD £1*1100310
C FOR THf SCENARIO S^cC IF IF D IN EL IN" EM 00 320
C EC I 00 330
IYEAR=IFIX(NYEAR/10000.) EM 00340
WRITE (6 , V5S ) IREG, I YEA^ , (LPAI-' AM (IJ1 ) , I J 1 =1 , 10) EM 003 50
955 FORMATC1EM1 SSIONS SUU'i 0 D LL ' / /' ------------------ '// EMI00360
&/'PE(iJON=',I3. EM 00 370
&/'VEAR=',l3t EF.I003fO
CCOLD=',4F10.3, EM0039(j
3/) E«I00400
SOURCE CODE PAGE 118
-------
c
c
c
c
C
C
c
c
c
c
c
c
c
c
c
c
c
c
CALL SUPS TO CALCULATE DASZ YEAR LDV EMISSIONS
(PFPLACtD <
TO COMPUTE EMISSION CORRECTION FACTORS AT SPEED IS
CALL SUPE(I1,IRE':,IYEA«tR5,EPARAffl(1),EPARAr(2),EPARAM(?),
REF-ARAM(A)tEPARAPi(5),EFARAM(6)fEPARAM(7),EPARAM(8),EPARAM(9),
REFARAM(1C),IFLAG(D,IFLAr(?),lFLAG(3),ECRU7. (1),EIDL)
DO 6 15=2,20,1
S=FLOAT(IS)*3.0+2.0
CALL SUP8(lO,IREGtIYPARtS,EPARAM(1),EPARAI*; (2) ,EPARAM(3),
KFPARAfl(A),EPARAMC5) , E P A K A fi ( 6 ) ,EPARA^(7) ,EPARAM(£) ,EPARAM(9) .
SEFARAK(10).IFLAG(1),IFLAC-(2),1FLAG(3),CCRUZ(IS),E10L)
6 ECRUZ (IS)=ECRUZ(IS)/ECRU(IS)
FCPUZ(1)=ECRUZ(1)/FCPU(1)
CALL INITMM
ITEST=0
CHECK IF SUPPLEMFNTAL EMISSION PARAMETERS ARE CALLED FOR
IF SO, CORRECT IDLE EMISSIONS AND PRINT MESSAGE
DO 7 1=1,3
7 I TEST = I FLAGCD + ITfcST
IF (ITEST.NE.O) FIDL=EIDL77*ECRUZ(1)
IF (ITEST.NE.O) WRITE (6,fc)
P FOFMATC CAUTION: Irt,TRUCK,OR ALH CORRFCTION CALLED FOR'/
8 ' IDLE EMISSIONS CALCULATED bY ALTERNATE PETHOD')
E*I 0041 0
Ef^IOOA20
EKI00430
EWI00460
EKIOP470
FMIOOARO
EKI-00490
EMI00500
EMI00510
E^;I00520
EKI00530
EM 00 540
Ef^l00550
EKI00560
EMI 00 580
EMI00590
EMI00600
EMI 00610
ENI0062Q
EM100630
EMI 00 640
EMI00650
EMI00660
EKI00670
EHI00690
EWI00700
EMI 00710
EPI00720
EMI00730
EKI00740
EMI00750
EKI00760
EMI 00770
EMI00780
EKI 00790
Ef*IOC800
SOURCE CODE PAGE
119
-------
APPENDIX /> . ISK'AP MODEL COMPUTER fROGRA!" SOURCE CODE, ENVIRONMENTAL PROTECTION A GE NC
r 1DL ^ I I DL/<•(.' . EM0081U
C EKlOf-820
UKI T f (<< . V87 ) EC RUZ Eh'I 00 £30
'•'£7 F UFXATC1HO, 'CI«IS?ION C 0 R r L C T I ON ' / U (1 X , 5 F 1 0 . 6 / ) ) EP-H00840
( EM00850
C ACCRATE-3.A1KI/HP/SLC OF?FT/SCC/SEC EM 00860
ACC = T.A1 EMI 00£70
ACCR=5.0 EKI00680
PKINT 110 EMQOB'O
110 F OFMAT(10H-EMISSIONS/17.1H LINK NSTOPS QLENfaTH COUNT SPEEfIC0900
1ED E AT SPEED DISTANCE E DECEL DISTANCE E IDLF 01S T A«Efv 1 00 91 C
2CL E ACCFL DISTANCE ) EMI0092'G
00 100 KP=1,NLINK EMI0093C
CCOUM7(KP) = COUMT( 1 ,KP) + COUNT(2,KD)+ COUNT(3,KP) EKI009«Q
TF(CCOUNT(KP).LE.O.O)cCOUNT(KP)=COUNT(i,Kp) E W100950
CAPL=12GO.O*NLANF(KP) E^l00960
IF(VEL(KP) .GT.7P) CAPL = CAPL * 1.5 E!*I00970
V = VEL (KP)*(1 .0-0. 5*-CfOUNT(K P)/CAPL) ECIQ098Q
?=V*3600.0/52£CJ .0 EM00990
TT1 = D IST(KP)/V EM01000
I F(NSTOPS(KF) ,LE .00) GO TO 19 . EMIQ1010
TTr=(TT(KP,1)*CCOUNTCKP)-
-------
A. isr'Ar MODTL COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGENC
TTT= TT1-TT(KP,1) EMI0121G
IF(TTZ.LE.O.O) G3 T0 2C EKI01220
DIM = TT3/2.*V/2. EKI01230
DJ£DC=DJST(KP)-2.*P1S1 EMI 01240
IFCDISDC .GE. 0.0) GO TO A EMI01250
DIS1 = AMAX1 (DIS1+DISDC/2, 0.0) EMI01260
DISDC = 0.0 EMJ01270
A OISZ = DIS1 EMI01280
DC(KP)=0.0 EMI01290
TIWE (1) = DJSDC/V EM01300
TIME(3)=0.0 EM101310
TIME(2) = (TT(KP,1) + TT7-TI!U1E(1))/?. EMI 01 320
TIIHEU)=TIME(2) E^-l01330
60 TO ?2 EMI0134C
2* CONTINUE EMI01350
D1SDC=DIST(KP)-DO(KP) EMI01360
OI?DC=AMAX1(0.0,DISDC) - EHI01370
DI£1-DQ(KP)/2. EMI01380
DISZ=DIS1 EMI01390
DQ(KP)=0.0 EMIQ1400
TIMEf1)=DISDC/V EMI0141Q
TIME(2)=CTT(KP,1)-TI^t(1))/^. EM101420
T1KE(3)=0.0 EMI01430
TirE (O = TIME~ (2) EMI0144Q
CO TO 22 EHI01450
24 CONTINUE EMI01460
D1S1=0.0 EKI01470
D1S2-DIS1 EMI0148-0
DISDC =DIST(KP) EM 01 490
TIKE(1)=DISDC/V EWI01500
T1M£(2)=0.0 EMI01510
TIME(3)=TIME(2) EKIQ1520
TIME(4)=T1ME(2) EMI01530
?2 CONTINUE EMI01540
C E.KI01550
C COMPUTE EMISSIONS FOR THOSli NOT DELAYED EMIQ1560
C PLUS CONSTANT CRUIST FOR THOSE DELAYED. EMl01570
C EKI01580
IS=IF1X((S-0.5)/7.H) - EMI01590
IF(IS.LT.I) IS=1 EKI01600
SOURCE CODE PA6E 121
-------
APPENDIX A. IS^AP MODFL COMPUTER PROGRAM SOURCE CODEf ENVIRONMENTAL PROTECTION AGEMl
1 F (I S ,GT .?C) IS = 20 EM 01 610
ISr-IFIX((5/:.0-n.r)/3.0) EIMQ1620
If(ISS.LT.1)lSS=1 EM 01 630
TV=((COUNT(K.P)-NSTOPS(KP))*TT1/D1ST(KP> EM Q164U
TV1=NSTOPS(KP )*TIMF ( 1 ) E^I01650
CALL CPU7(S,ATOT) EM01660
ATOT=ATOT*ECRUZ(IS) EM01670
MISS(KP,1)=ATOT*TV*DISDC EMI 01680
PISS(KP,2)=ATOT*TV*DIS1 EMI Q1 69Q
r"ISS(KPt3)=ATOT*TV*DO(KP) EMI 01 700
MISS(KP,O=ATOT*TV*DIS: EMI 01 710
CM1SS(KP,1)=ATOT*TV1 EMI 01720
C E 1*101730
C COMPUTE CI^ISSJONS DUPING STOPPED TIMf FOP DELAYED CARS EMI0174Q
C E^I01750
TV = NSTOPS(KF)*TlflE(3) EMI 01 760
CMISS (KP,3)=TV*EIOL EKI01770
C EMI 01780
C COMPUTE EMISSIONS DURING DtCtLERATjOM AND ACCELERATION El*. 101790
C EK101800
TV = NSTOPS(KP)*TI'''E( 2) - E^I0181C
CALL ACDC (S ,ACC , ACTtrP) EP!l01£20
CALL ACDC (S,ACC* (-1 .O.DCTFMP) EM01830
CMSS(KP,A)=ACTE!g!P*TV*FCr-U7(ISS) EM 01 640
CMI£S(KP,2)=DCTE^P*TV*ECPb7(ISS) EMI01850
C EMI 01860
C DETERMINE AND STORF DISTANCE FOR EACH S U? - LIN K, FE E T ) Er.IOlS7Q
C EMI 01880
DLINK(KP,A) = D1S2 * 0.304? EMI0189Q
DLINK(KP,3)=D(J(KP) + 0.30^-C EMI 01 900
DLINK (KP.2) = DI 51*0.30 4 c EM 01 910
DIIM<(KP,1) = DISOC*0.'uAfc EM01920
C EKI01930
C COP-'PUTF EMISSION RATE FOP FACH PORTION OF THE LINK IN GPAKS/M/SEC EM019AO
C EM. 01 950
D 0 h0 J=1 ,A EMI01960
FMISS (K P,J)=0.0 EM 01 970
IF(DLINK(KP,J).NF.n.P) E M 019 P C
1FMSS(KP,J)=(MIS^(KP.J)+CMSSll<:PtJ))/CDLINK(KPfJ)*TP) EMIQ1990
L'O CONTINUE EMI0200G
SOURCE CODE PAGE
-------
Pt'INT 111, KP.NSTOPS
-------
APPENDIX A. 1SMAP MOD^L COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGEM
24
JLFROUTINE DISPEP
THIS KOUTINF CONTROLS THf DISPERSION COMPUTATIONS
CO**ON/DISP/XO(ZCO>,YO(0),NUMREC,THETA(24),WS(24),YCOEFF(24>
1,YFXF(Z4),YCONSL,YCOr.JS7,7COEFF(24),ZFxr(24),7CONST,GRDSIZ,PCKG
2Rl,MIX,ISTAfc<(24).SLAT,ICLD(Z4),NMETfNY.ITIMEfHElGHT(ZOO)
COMMON/LINK/NLINK.NLANC ( TOO) , X1 (200) ,Y1 (ZOO),X2(ZOO),Y2(200),LCAP
12t)D>.CIST(200).VFL(200),LCON(20C,3),NSTOPS<200)
COMMON / COMM/ 1,Z,L,J, K, TOD. DOW, TP , TOTATT, TTPZ ,TO T GE N , I TM
1 , KYE AR,LHEAD<18) , TUNFAC
COMMON /ZONES/ NZONES, NZ LI NS ( 5 0 ) , Z LI N K S ( 1 2 , 50 ) » ZATTR(50).
1ZC-.EMR C50), NEXT, ZAT(2). 7GT(2), 7VT(3t50)t ZNAfQCSO)
C C K K 0 N / M A I N N / H
COMMON/CONCTR/CON'C(200)
CALL WIND
CALL LSLOPE
I F(NMET.EQ.O) GO TO 4
CALL STAPLE
DO 3 1=1 ,NLINK
N=X1(I)*10.+0.5
X H 1 ) =N / 1 U .
N=XZ ( I)*10.*0.5
XZ(I ) =N/10.
N=Y1(I)*10.+0.5
Y1(l ) =N/10.
N=YZ ( 1)*10.*0.5
Y2(I)=N/10.
D 0 c ^=1 , NUV REC
coNC(r-i) =0.0
CALL BASIC
I F( NZONES. EG .0. ) GO TO 14
CALL GENGSC
CALL ZPORDR
MULTIPLY CONCENTRATION UY PPM CONVERSION
F AC TOR , DI VI DE 3Y PI AfJO WIND SPEED. AND ADD RACKf ROUND CONCTRN.
NN = N Y -70
DO £4 M=1fNUMFEC
CCNC (fi) = ((CONC(M)*v7^ -.) / (3. 1415 92 6* *WS( I T I « E ) ))
g+tCKGRD
RETURN
r i D
DIS00010
D IS 00020
D IS 000 30
D1SOC040
D1S00050
(DIS00060
DIS00070
oisoooeo
D1SOOOQ0
DIS00100
DIS00110
DIS00120
D IS 001 30
D IS 001 40
DIS00150
D IS 001 60
D I S 00 1 7 0
D IS 001 80
DIS0019Q
DISOOZOO
DIS00210
01S00220
DIS00230
DISOOZ40
D I SOD 250
DIS0026U
DIS00270
DIS00280
DIS-00290
DISOP300
D IS 00310
DIS00320
D I S 00 3 3 U
DISCO 340
DIS00350
D IS 00 360
DJS00370
D IS 00380
D1S00390
OIS00400
SOURCE CODE PAGE 124
-------
APPENDIX A
ISriAP M O D r L
COMPUTER PROGPAM SOURCE CODC
ENVIRONMENTAL PROTECTION AGENCY
SUBROUTINE WIND WINOC010
C THIS ROUTINE CONVERTS M t TEOR 0 LO GI C/> L WIND DIRECTION TO TRIGONO- WINOOOZO
( f''LTPIt DIRECTION, V1T H Z^RO DEGPtES ON POSITIVE X-AXIS AND WIN00030
C PROCEEDING COUNTERCLOCKWISE. WIN 00040
COrKON/DISP/XO(2PO).YO(anO),NUHREC.THETA(24),wS<2«),yCOEFF(24) WIN 00050
1,YEXP(24)vYCONSL.YCONSZ*7COEFF(24)fZEXP(24),ZCONST.6RDSl7fBCir6 WIN 00 060
2RD,MIX,ISTAR(2*).SLATfICLD(24),NMET,NY,ITI»lE,HEI6HT(200) WIN00070
COKKON/WND/THETAF,*A.AD W1NQOOSO
THETAP=450.-THETA(ITIME ) WIN 00090
IF(THETAP.GT.360.) THETAP=THETAP-360. W1N00100
EF-SLON=(THETAP-9n.)*6.28Tl!*53/360. WIN 00 110
AA-SIN(EPSLON) WIN00120
Ar=COS(EPSLON) WIN0013Q
RETURN WIN00140
END WIN00150
SOURCE CODE PAGE
125
-------
APPENDIX A. IS!"AP M 0 D F L COMPUTER PROGPAM SOURCE CODF, ENVIRONMENTAL PROTECTION A GE
Sl'RROUTINE LSLOPF LSL00010
( THIS ROUTINE COMPUTES TH^ SLOPE AND Y-INTERCEPT OF EACH L jN « LStOOOZO
CO*NON/DISF/XO(200),YO(2riO>,NUMREC.THETA(2i),i*S<2OtYCOEFF<24) LSL0005C
1 , YFXP (?4> , YCONSL, YCONSZ ,:COEFF(2A),ZEXPC2A) ,Z CONST, GR05IZ,BCKG LSLOOCKO
2Pt,MIX,ISTAt(2A ),SLAT,ICLO(ZA),NMET,NY,ITIf-1E,HEIGHT(200) LSL00050
COKNON/LINK/NLINK,NLANE(200),Xl(200),Yl(200)fX2(200),Y2(200),LtAP(LSL00060
1?CD).OIST(200).VFL(200),tCON(200,3),NSTOPS(200) L SLOG 070
DO 1 1=1 »NLINK LSLOOQ90
C CHECK TO SEE IF SLOPE IS INFINITE. IF SO. SET SLOPE AND Y-INTER- LSL00100
C CfPT EQUAL TO ZERO. THIS WILL EE A CUE FOR VERTICAL LINKS. LSL00110
I F(X1 (I ) .EQ .X2CI )) GO TO 2 LSLOC120
Ah (I) =( Y1 (I )-YZ (I ) ) / (X1 ( I )-X2 (I ) ) LSL00170
B (1) = Y1 (I)-AM(I )*X1 (I ) LSLOOUO
GO TO 1 LSL00150
2 A^(l)=0. LSL00160
P(I)=0. LSL00170
1 CONTINUE LSL00180
RETURN LSL00190
END LSL0020G
SOURCE COCE PAGE
-------
APPENDIX A.
I S P A P M 0 D e L
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION AGENO
C
C
t
r
SLPROUTINt STABLE STB00010
THIS ROUTINf DETFRf'INES THF. STABILITY AND "HENCE THE DISPFRSION STE00020
PARAMETERS FOR EACH HOUR OF THF. DAY STB00030
DIMENSION SINELV(24 > ,1SC (6,5) ,YC (5) ,Y£(5 >,ZC(5) ,ZEC5> STB00040
COP.MON/DISP/XO(200) ,YO(ZOO> ,NUMREC.THETA(24),WS (24)tYCOEFF(24) STB 00 050
1 ,YEXPC24),YCONSL,YCONSZ , 7 CO E F F( 2 A) , 2 EXP ( 24) ,Z CONS T. GR DS I 2 »B CKG STB00060
2RD«niXfISTAe(24>,SLAT,ICLD(24),NKETvNY*ITIKE«HElGHT(200) STB00070
COMMON / COWM/ I,Z.L,J. K, TOD, DOWf TP, TOTATT, TTPZ,TOT6EN,1TM STB00080
1,^YEAR.LHEA^(18), TUNFAC STBOOOPQ
,»• * ».% ».»^»*-«.*.« »*.'-**•**•• «»*-*_«fc-**-^w«-*-«fc'*fc'»fc'»*'*»**"<*'*^%*li ^»*'*»
1,4/ STB00110
DATA YC/O.40,0.40.0.36.0.32.U.317.YE/0.91*0.01.C.86.0.78«0.71/«ZC/STBO0120
ir.fi. r. re.r.r". r. IP. r.i :•'.: i /1. /~. ^. :^. •?. i.T .1.??. r. 55/ f-rcnn^j^.
C-JLtlL^ri iVL*^ fLrvAriC'. A.', 3 L! . I ft 5uLA "I C.N . A V& HCuFS OF SUAnlSt STcCG14u
r f.." 5 i'K c r •»• r ~y.*r 1 r "
f 'T
TO ?0
-------
APPENDIX A. 1SMAP MODTL COMPUTER PROGRAM, SOURCE CODE, ENVIRONMENTAL PROTECTION A 6E NC
AINSOL=(1.-O.S*ICLr>(lHP)/1G.)*SINELV(lHR) STB 00 410
IF(AINSOL.Lf:.0.33)GOT021 STB 00420
IF(AINSOL.LF.C.6?)GOT022 STB 00 430
IS=1 STB00440
GO TO ?0 STB0045Q
21 IS=3 STB 00460
GO TO 30 STBOOA70
22 IS=Z STBOOA80
GO TO 30 . STB 00490
23 IF(1CLD(IHR).GE.5) GO TO 24 STB00500
IS=fc STB00510
KC TO 70 STE00520
24 i£ = b STP00530
GO TO 70 STB00540
2r IS=4 STB00550
C DETERMINE WIND SPETD CLASS STBOD560
30 IF(WS(IHR).1F.1.) CO TO 71 STB00570
I F (WS (IHR).LE .6 . ) GO TO 72 STBCOSfcG
I F(WS (IHR).LE.10.) GO 10 37 STBQ0590
I F(WS (IHR).LE.13.) GO TO 34 STB00600
IW=5 STB00610
GOT040 STB 00620
31 I U = 1 STB 00630
GO TO 40 STB00640
32 IV.-c STB00650
GO TO 40 STB00660
33 IV=: STB00670
GO TO 40 STB00680
3^ Ik=4 STB00690
C DLTERMNE STABILITY STB00700
40 I STAB (IHR)MSC(IS ,IW) STB00710
( CO\VERT WIND SPEED IN KNOTS TOF'ETFRS PER SECOND STB 00 720
41 WS(IHR) = WS(lHR)*n.'147^.1 STBOC730
IF(WS(IHR).LT.1.)WS(IHF')=1. STB 0074 0
C DbTEPMINE DIFFUSION PARAMETERS STB00750
KK=ISTAB(IHR) STBOP76Q
YCOEFF(IHR)=YC(KK) STB00770
YEXP( IHR)=YE (KK) STB007FO
ICCEFF(IHR)=ZC(KK) STB00790
ZEXP(1HR)=7F(KK) STB 00800
SOURCE CODE PA6E 128
-------
M C D f L
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION AGENC
CCMINUE
P t T U R N
F. r.D
S7B00810
STB 00820
STB 00630
SOURCE CODE
129
-------
Pt NDIX
I S N A P M 0 D F L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGENC1
SUP ROUTINE L-AS1C
( THIS ROUTINE WILL DETER
C LINKS WILL AFFECT THE C
C LINKS, CALL THE APPROPR
C AT A RECEPTOR
C UMMON/DISP/XO(200),YO(
1,YEXP(24),YCONSL,YCONSZ
2RD,MIX,ISTAE'(24),SLAT,I
C OMWON/LINK/NL INK,NLA N£
1200),DIST(2CO), VFL(UV
C WRITE((t>,47) I,II,M,ISTL
47 F OPMATd X,'I=',I5 ,1 X,'I
I FCI . EQ .ISTLINCH.II ))GO
30 CONTINUE
GOTO 80
55 I STM=ISTAfc(ITIviE)
DELTA=7.0*SORT(RK(ISTM)
iWS(ITir,E»
C WRITE(6,4t) M,DELTA.PU3
48 F ORMATd X,'f =', I r ,1 X,'D
I F (DELTA .GT .PUILDH(P) )G
W RI T E (C , 5 6 ) ^ , I
56 F ORMA T( / ,1 X ,'SUD^OLITINE
MINE ,
ON CEN
IATF
200) ,
,7COE
CLD(2
(200)
,LCON
, YY
AST(2
, ISTL
AC CORDING
T RAT ION AT
ROUTINES TO
NUPR EC ,THET
F F(24) ,ZEXP
4),IMET,NY,
,X1 (200) ,Y1
(200,3) ,NST
TO HIND DIRE CTION
THE RECEPTOR AND,
COMPUTE THE CONC
A(24),US(24),YCOE
(24) ,Z CONST.GR DS I
ITI'1E,HEIGHT(200)
(200),X2(200),Y2(
OFS(200)
FFC24)
7,BCKG
0U) ,NLKST(?
IN(2CO,2) ,1
00),WSTf200),
RSIDE(200)
. 0 , 0 . 5 /
TF RE
S T K ( M
SULTS FROM
) , N L K S T ( K )
' ,1 5, U t'M
SUBROUTINE PASIC
',15 ,1X, 'ISTR(M)
I r ' ( "i ,
I ='. I
TO 55
1 1 )
5 ,1 X ,'?' =
5,1X,'ISTLIN(M,II)=',I5)
*t.'ST ("I )/
L D H ( M )
ELTA = ',E12.7,1X,'CUILDH(P')=*,E12,J
0T0 60
BASOC01G
, WHICH DAS 00 020
FOP THOSEBAS00030
FNTRATION BAS00040
BAS00050
BAS00060
BAS00070
BAS00080
200) ,LCAP(BAS00090
BAS00100
BAS0011 0
BAS00120
BAS00130
BASOOUO
BAS00150
BASOOUO
BAS00170
BAS001SO
BAS00190
BAS00200
DAS00210
BAS00220
BAS00230
B AS 00240
BAS00250
BAS00260
BAS0027Q
BAS00280
BAS00290
PAS00300
BAS00310
BAS00320
BAS00330
BAS0034C
BAS003S-0
EAS003CO
BAS00370
)
=',15.
STPEET CALLfcD FOR PECEPT0R' , I 5,1X ,'AND
BAS0038Q
BAS00390
BASOCUOO
SOURCE CODE PAGE
-------
APPENDIX A
MODEL
COMPUTER PROGRAM SOURCE CODE.
ENVIRONMENTAL PROTECTION
fO
1TC
200
'LINK ',15)
CALL STREET
GOTO 200
CONTINUE
EA = X1 (I )-XO(M)
Et = X2 (I)-XO(M)
PC = V1 (I)-YO(M)
&D = Y2 (I)-YO(K)
XlTR = bA*AB-»-£C*AA
X 2TR = EP*Ae + F-D*AA
Y1TR=BC*AB-PA*AA
I E.O. ) GO TO
200
GE . 45.*6 .
) GO TO 7
) GO TO 7
IFCY1TP.LF.D.O.AMD.Y2TR
I F (Y1TP .LE.0.) GO TO 1
T F UPS(ATAN(APS(Y1TR/X1T»)))
1F(Y2TR.Lt.C.) GO TO 100
IFfADS(ATAN(AE'S(Y2TR/x2TR)>)
IF(X1TR.GT.C'.O.AND.X2TR.LT.O
1FCX1TR.LT.O.O.AMD.X2TR.GT.O
GO TO 200
YONXFQ=Y1TR-((Y1TR-Y2TR)/(X1TR-X2TP))*X1TR
I KYONVEQ.LT.Q. ) GO TO 1^0
CALL ORIGIN
CALL COPTRN
I FCALPHA .EQ
CALL CONCA1
GO TO 200
CALL CONCA2
CONTINUE
RETURN
END
tE .45.*6.?831R53/36CT.) GO TO 6
?£31?53/36C.) GO TO 6
0.) GO TO 4UO
RASOOA10
B AS OP 420
eASOOA30
EASOOA4U
BAS0045Q
BAS0046Q
BAS0047Q
9AS0048Q
BAS00490
BAS00500
BAS00510
BAS 00520
BAS00530
EAS00540
BAS00550
BASOC56Q
BAS00570
BAS00580
BAS00590
BAS00600
BAS0061Q
BAS 00620
BAS00620
BAS00640
BAS0065Q
BAS00660
BAS00670
BAS 00660
EAS00690
BAS00700
BAS00710
SOURCE CODE PAGE
131
-------
vDIX *. iSr-'AP MODFL COPPUTfcP PROGRAM SOURCE CODE. ENVIRONMENTAL PROTECTION AGENI
SUBROUTINE OR 1C, I M 0 M 000 1 G
C THIS ROUTINE COMPUTES THF COORDINATES (XX,YY) OF POINT TC PC THE ORI00020
C OUC-IN IN NEW COORDINATE SYSTEM AND THE ANGLE FROM THE WIND VECT0ROPI 0003G
C TO THE LINK 0 R I 00040
CGI*HON/DISP/XO(<:>00)fYO(ZnG),NUMREC,THETA(24>.V.S(?4),YCOEFF(2 DPI 00070
C OPCON/LINK/NLINK ,NLANF (?00) .X1 (200) ,Y1 (200)»X2(2Gn),Y2(20T).LCAP(OPIOOOPO
1?CD)»DIST(200),VrL(200)fLCON(200,3).NSTOFS(200) ORi0009G
CurWON/MAINM/M OPI00100
COPKON/WND/THETAP,AA,A3 0 FIDO 110
CCI"!"10N/LSLOP/AM<200),8(200> ORI00120
C OK'ION/BASC / I ORI00130
COMMON/ORIGK/ALPHA.A,XX,YY 0^1001^0
C COMPUTE THE POINT OF INTERSECTION (XX,YY) OF LINK (OR ITS EXTEN- ORI00150
( SION) WITH V'IND VECTOR 0 P1001 6 0
I F(X1 (I) .EQ.X2CI )) 60 TO 1 ORI00170
I F(THETAP.EQ.9Q.n.OR.THETAP.EG.270. } 60 TO 2 ORI001^0
A=TAN(THFTAF*3.141c9265/1fcO.) ORI0019G
I F(A . E(J .AK(I> ) GO TO 3 ORlOOZQO
XX=(XO(M)*A-YO(M)+P(I))/(A-A!vi(I)) QPIOC210
YY = Af(I)*XX*r^(I) OR I 00 220
C COCPUTF ANGLE FROf^ i^IND VECTOR TC LINK, MEASURED COUNTERCLOCKWISE OPI00230
6 ALPHA=ATAN2((Af'1(n-A),(AP1(T)*A-»-1.)) DPI 00 2^0
C-OT05 ORI00250
C TAKb' CARE OF CASFS WHERfc DL N OMI N AT OR =0 OR100260
1 I FdHETAP.EG.93.n.OR.THtTA0.E«.?70.) GO TO A ORI0027U
C IN THIS CASE THE LINK IS PARALLEL TO THE OLD Y-AXIS BUT THE WIND ORI00280
C IS NOT ORI00290
XX=X1(I) ORI00300
A=TAN(THFTAP*3.1415926^/1tO.) 0 RI 00 310
Y V = ( X X - X 0 (M ) ) * A + Y o (I'D 0 RI 00 3 2 G
ALFhA=ATAN2(1 .,A) ORI00330
GO TO f ORI00340
C IN THIS CASE THE UTND IS FRO?1 EITHER NORTH OR SOUTH BUT THE LINK ORI00350
C ISNOTPARALLELT01T ORIOP360
2 xx=xo(H) OPI00370
YY=AM(I)*XO(M)+B(I) ORI00380
ALPHA=ATAN2(1.,-Af1(I» ORI00390
GOT05 ORI0040C
SOURCE COOP PAGr tf^
-------
APPENDIX A. 1SMAP MODEL COMFUTtf? PROGPAM SOURCE CODE, ENVIRONMENTAL PROTECTION *GENdH
C I », THIS CASF THE WIND IS PARALLEL TO THE LINK CUT NOT TO TH F: OLD OPIOC41G
C Y-AXIS ORI00420
Z I FUN (I ) ,£G .0.) GO TO 11 ORI00430
Ari,PRlM=-1./AM(I) ORI00440
GC TO 12 ORI0045Q
11 XX = XO(fO ORI00460
YY=Y1(I) ORIOOA70
GC TO 7 ORIOD480
12 PPRIME=YO(M)-AMPRIV:*XO(M) ORI00490
XX=(PPRIME-t?(I))/(AM40
IF(ZFTA.LT.C.)Z(rTA = T60.-«-ZrTA ORI0065C
I f (AP S(ZETA-THETAP) .LT. 1 .) GO TO' 50 ORI00660
GO TO 23 ORI00670
50 IFfTHETAP.EQ.90 = n,OR . THETAP.EQ.270.) GO TO 4 ORIOD680
GOTO? ORI00690
2? RETURN ORI00700
END ORI00710
SOURCE CODE PAGE 133
-------
AF Pt ND I *
IS MAP MODFL
COrPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION A 6E NC
S U E R 0
ThI S
THE L
L INK
( OP I
1 » YEXP
2RD.MI
C OMMO
1?00) .
C 0 M M 0
C OMHO
C 0!"WO
C OK MO
COMPU
C OUNT
I F (X1
OMEGA
GO TO
ONEGA
C CMP LI
C 0?1N
S INE =
X1NEW
X 1N E W
Y 1 N' b W
Y
-------
X A
ISMAP MODFL
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION A6ENC1
C
C
C
C
C
99
SUBROUTINE CONCA1
THIS ROUTINE CALCULATES THF NOR
RLSULTING FROM EACH POINT (SEt*1
TO GIVE THE CONCENTRATION FROM
THEN THE COM C EN T PAT I DNS AT A KE
THIS ROUTINE IS USED WHEN THE W
COMMON /LINK/ NLINK, NLANEC200)
1 , LCAPC200), DIST(?00). VEL(2
2,NSTOPS(200)
COFlMON/DISP/XO(2nO),YO(200),NUP
1,YEXP(24),YCONSL,YCONSZ,ZCOEFF(
2RD,MIX,ISTAP(24),SLAT,ICLD(24),
COMMON TT(2COfI)»DfFLA(20rt"),aZ
14 ),C COUNT (200)
COtfMON/MAINN/r
COtfMON/BASC /I
COMMON/OR1GN/ALPHA.A,XX,YY
CO*MON/CRTRN/01EGA,X1NEW,X2NEW,
COWKON/CONA1/A1,A2,A3,CONNOR
COIwffiON/CONCTR/CONC(200)
C OI*tfON/XSGN / A4
C OfMON/SPCIN/DELTAY
CO"iMON/MSC/NP,Y,GAMMA(5)
I F ( X X . E Q . XO ( r) . A N D . Y Y . F U . YO ( f' ) .
CALL MISC
A1=SI N(ALPHA)
A2-COS(ALPHA)
A 5=XONEW/A1
CALL XSIGN
IFd.EQ.151) PRINT rr>9 , 1 , Y CO E F F (
1XP(I TIFE) ,HE IGHT(I)
F ORW A T ( 2 X , I c , 5 ( 5 X , c 1 2 . 3 ) )
DO 100 K = 1 , N P
Y=Y+DELTAY
A r>- A3 -Y * A 2
I F(A5 .GT.O.O.AND.A4 .LT.O. ) GO T
I F(A5 .LT.O.O.AND .A4 .GT. 0. ) GO T
A6=ABS(A5)
SlGY=YCOEFF(ITlMC)*A('**Yrxr(ITI
I F(ZCONST.LT.3. ) ZCONST=3.
f^ALI ZED
ENT) ALO
THE LINK
CEPTOR F
IND IS N
, X1 (20D
00), LCO
REC,THET
24) ,ZEXf
N M E T , N Y ,
(50) ,GUC
Y1NEW ,Y?
AND .ALPH
I T I H t ) , Y
0 100
0 100
r;E) + YroN
CN1C001U
CONCENTRATION AT A R L C EPT OR C N 1 00 0 2 0
NG THE LINK AND ADDS THESE CN1 00030
CN10004Q
ROM ALL LINKS ARE SUMMED CN100050
OT PARALLEL TO THE LINK CM00060
), Y1 (200) ,X2<200) ,Y2(200> CN100070
N(2DO,3) CN100080
CN1 00090
A(24),W$(24),YCOEFF(24) CN100100
(24),ZCONST,GRDSIZ,BCKG CM 001 10
ITI^E,HEIGHT(200) CN100120
UE(200),0(2nO,4),DLINK(200tCN100130
C N 1 00 1 4 0
CN100150
CN100160
CN100170
NFW,XONEW,-YONEW CN100180
CM 001 90
CN100200
CM00210
CN100220
CM 002 30
A .EO .1 .57C796) GO TO 15 CN100240
CN10n250
CM00260
CM0027Q
CN100280
CN100290
EXP(1TIME),ZCOEFF(ITI(1'E),ZECM00300
CN100310
CN100320
CN100330
CM 00 340
CN100350
CN100360
C N 1 00 3 7 C
CN100360
S L C M 00 3 9 0
CM00400
SOURCE CODE PAGt
135
-------
APPENDIX A. ISMAP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIKOMMtNTH PROTECTION AGENC
«-]GI = ZCOEFFCITIMF)*A t = HF 1GHTU ) /SIGZ CM0043'C
A9 = 0. 5-* (A7*/s7-*-A£*A': ) CNlOG^Au
I F(A GO TO 3 CN10048G
10 CONTINUE CM 00 A 90
3 t ONNOR=CONNOR+Q (1 , I 1 )/( S I t,Y*S!GZ *EXP (A° ) ) CM00500
100 CONTINUE CN100510
CONC(M)=CONC(M)+CON'NOR*DrLTAY CN100520
1^ RLTUPN CN100530
FND CN'100 540
SOURCE CODE PAGE
-------
hDIX A. ISKAP MODTL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGEN
SUBROUTINE ?POP OR ZflO 00010
C THIS ROUTINE KEEPS TRACK OF THE END POINTS OF THF LINKS THAT ZcOOOOZO
C BORDER A ZONE — WHICH POI'JTS ARE OPEN AVD WHICH CONNECT. THIS KUSTZ6000030
C Ft DONE BECAUSE THE LAST SIDE OF A ZONE" I" AY NOT FE A LINK. IF IT ZeOOOO^O
C IS NOT, THE OPEN END POINTS OF THE FIRST AND LAST LINKS ARE CON- ZE000050
C NLCTED TO FORM THE LAST SIDE. ZL000060
f THIS ROUTINE CALLS TWO OTHER SUbROUTINF.S fc H 1C H FIND THE GRID ZB000070
C CENTTRS THAT LIE IN FACH ZONE. ZBQOOOBO
DIMENSION XCOOR (?) . YCOOK (Z') ,LOE (12) ,XC( 1 2) , YC (1 2) ZE-000090
CO^ON/DISP/XO(2CO)tYO(2nO),NUMREC,THETA(2A),KS(24),YCOEFF(Z4) ZfcOOOlOO
1,YEXP<24),YCONSL,YCONST,ZCOEFF(24).ZEXP(24),7CONST,GRDS1Z,BCKG ZBO 00110
2RD,NiIX,ISTAE(24),SLAT,ICLD(2A),NF',ET,NY,ITI^E»HEIGHT(2CO) Z DO 00 120
COflMON/LlNK/NLINK.NLANE (POO),XI (200) , Y1 (200).X2(?OC),Y2(?00).LCAP(ZE000130
12Gn),DIST(200),VEL(200),LCON(Z00.3),NSTOPS(200) Zp000140
C CM M ON/ZONE S/NZONE?fNZLIKS(50)tZLINKS(12»5n),ZATTP(50)fZr1 EN R(50), ZBOOD150
lNEX7,ZAT(i:),ZGT(?),ZVT(3,50),ZNAME(50) ZE'000 160
COMMON/PARK!/PZ»PV(10).PLA(50),V7(50)t7V(5n)tPD,PLS»PLPO,PNOS(5G),ZDO00170
1PLLC50) ZI2000180
C 0^r,ON/LSLOP/A-^ (?OH> ,b( ^00) Zfc-000190
CO*'MON/GNGSC/XGRID(3CO),YGPID(3CO)»NGRIDX,NIGR1DY ZB000200
COI*IMON/ZPORR/SLOPE(12),YTNCPT(12),ylPtx2P,YlP,Y2PTt<:,J ZBOQ0210
C O^KON/INERS/NPGL (.700). YINT(3, 00 ,^) ZB000220
C OH M 0 N / C 0 N C 7 R / C 0 N C < 2 0 0) Z BO 00 2 3 0
CO^WON/ZONGSC/NGSC7(C. Q)TXZGSC,YZGSC ZF0002AO
COI«MON/CONA7/CON(2no,5')) Z8000250
COMMON TT(ZuO,7),DrLA(20r,:'),07. (50),OUFUE(?DO),G)(200,A),DLIHIf(2CO,ZP000260
U ),CCOUNT(200) ZE000270
INTEGFP ZLH.KS,PNO? ZB0002SO
DO 10 J=1,N20NES ZB00029C
DO 11 M=1,NUMREC ZR000300
11 CON(^,J)=0. ZB000310
T F ( U 7 ( J ) . E 0 . P . ) G 0 T 0 1 0 Z t 0 00 3 2 0
IF(PNOSU) .GT. 1) bO TO 15 ZB000330
NOSCZCJ) =0 Zf-000340
GO TO 10 ZL'000350
15 DO ZO r'(^ = 1,KCRIDy Zf^000360
20 N'f'SL (Hl*)=0 Ze000370
NOL=PNOS(J) ZK0003PO
DO 16 K=1tNOL ZL000390
I =IAPS(ZLINKS(K,J ) ) ZD000400
SOURCE CODE PAGE 137
-------
APPENDIX A. 1SMAP MODEL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGENC1
c
c
(
1
(
c
c
c
31
3:
32
35
34
36
30
C
C
3
43
I
S
R
(
X
X
Y
Y
G
F
0
C
D
I
I
I
I
I
G
I
L
L
G
L
L
G
I
L
L
G
L
L
G
C
F
R
I
I
I
I
f (K-
TOFE
OUT I
ENTE
COOR
COOP
COOR
COOP
0 TO
IND
THE R
?) 1
EN
NE
RS
(1 )
(2)
(1)
(2)
50
END
EN
A L C U L A T
0 30
F(XC
F(TC
F(XC
F(r c
F(LL
0 TO
F(LL
OE (1
OE (2
0 TO
Ot (1
OF (2
0 TO
F(LL
OE(1
OE(2
0 TO
OE(1
OE(2
0 TO
ONTI
iMD
OUTI
F(xr
F(YC
F(XC
F(YC
LL
OOR
OOR
OOR
OOR
.FQ
30
.EG
) = 2
)-2
40
) = 1
) = 2
40
.EQ
) = 2
) = 1
40
) = 1
) = 1
40
NUE
OPE
NF
(K-
(K-
(K-
(K-
,2,
D P
THA
WIT
= X1
= X2
= Y1
= Y2
OF
D I
ION
= 1 ?
(LL
(LL
(LL
(LL
.2)
.2)
.2)
N E
FOR
1).
1 ) .
1).
1).
7
0
T
H
(
(
(
(
S
c
2
)
)
)
)
I
I
I
I
I
S
•
•
•
•
NT
FI
FI
)
)
)
)
EC
OP
FO
NE
EQ
NE
EQ
GO
GO
U
M
r_
N
E
G
D
E
E
0
E
G
0
0
AC
.X
.Y
.X
.Y
S OF
NPS
RST
OND
EN c
R SF
,X1 (
. Y1(
.X2(
.Y2(
TO 1
TO 3
TO 3
F AL
H OF
1 (I)
1(1)
2(1)
2(1)
I
L
E»
N
C
I
I
I
I
0
5
6
L
)
)
)
)
FIFST LINK CN F-OPOFP OF 7 ON E , THEN C f LL
K'T~ R5 ECTI ONG OF TH^ VERTICAL LINES OF GRID
INK .
ORDEP LINK THAT CONNECTS TO FIRST LINK. THE
D. THFN CALL INTERSECTION ROUTINE TO PAKE
OND L^ K .
)) GO TO 31
)) GC TO 32
)) GO TO 33
)) GO TO 34
1
OTH^R BORDER LIN'KS AND CALL INTERSECTION
THESF LINKS
GO TO 43
60 TO £4
GO TO 101
GO TO 46
zr-00041 o
ZP00042L
Z&000430
ZB000440
Z600045Q
ZE000460
ZBOOOA7Q
ZE-OOOA80
ZB000490
ZC000500
ZB000510
ZE-000520
ZB000530
ZE00054Q
ZE000550
ZB000560
ZB000570
ZB0005SO
ZP000590
Zp000600
ZE 0006 10
ZB000620
ZE-000630
Z&0006AO
ZB000650
ZB000660
ZE.-000670
ZE000680
ZE000690
ZE000700
Z6000710
ZB000720
ZE-000730
Z BO 00 740
ZP000750
Z0000760
ZE000770
ZE0007SO
ZB000790
ZEOOO&OU
SOURCE CODE PAGE 13H
-------
APPENDIX fl .
ISMAP MODEL
COMPUTER PROGRAM SOURCE CODF
ENVIRONMENTAL PROTECTION
46
c
c
c
40
41
5C
49
41
f 0 TO 101
LOE (K ) = 2
C- 0 TO 40
LOECK)=1
STORE COORDINATES OF
OF EACH LINK SO THAT
V* ITH THE FIRST LINK ,
I F(LOECK) .FQ.2) GO TO
XC()C)=X1 (I)
YC(K)=Y1 (I)
GO TO 50
XC(K)=X2(I)
YC(K)=12 (I)
STORE SLOPES, Y-INTERCEP
LINK IN NEW LOCATIONS SO
OF A BORDER SEGMENT THAT
IN THE SAME ARRAY.
SLOPE(K)=AM(I)
YINCPT(K)=B(I)
X 1P=X 1(1)
0DtN (OPEN WITH RESPECT TO PREVIOUS LINK)
THt END OF THE LAST LINK,THAT SHOULD CONNECT
CAN BF FOUND.
ZE000810
ZBOOC620
ZKOOO&3G
ZB000840
ENDZB000850
'S, AKD COORDINATES OF THE
THAT THE SLOPF, INTERCEPT
I? NOT A LINK (IF IT EXISTS) MAY BE PUT
ZBOOOS60
ZEOOOE70
ZEO00880
ZEO00890
ZEOOP900
ZE000910
ZB000920
ZB000930
ENDS OF EACH ZF.000940
AND COOPDINATESZB000950
Y1P = Y1 (I )
OF INTERSECTION OF VERTICAL LINES OF GRID CENTERS
FIND PDI1TS
WITH LI f« K
CALL INTERS
CONTINUE
CHECK WHETHER FIPST AND LAST LORDER LINKS
COMPUTE SLOf-E AND Y-INTERCEPT OF SF&t'ENT
OF FIRST AND LAST [OPDFk LINKS AND STORE
LL1 = LOF (1 )
I F(XCOOR (LE1) .ME .XC (NOL) ) GO TO 49
I FCYCOOR (LE1 ) .EQ . YC (NOL ) > 00 TO 10H
AAA=XCOOR(LM)-XC(NOL)
IF(AAA.EO.O.) GO TO r; 2
SLOPF(NOL+1)=(YCOOP(LE1)-YC(MOL))/AAA
Y1NCPT(NOL+1)=YC (NO |.)-SLOPE (NOL"»1)*XC(NOL)
GO TO c-1
SLOPE(NOL+1)=0.
Y1NCPT(NOL + 1)=0 .
CONNE CT . IF NOT,
THAT CONNECTS OPEN
IN ARRAYS
ENDS
ZfcO00960
ZP00097U
ZEO0098 0
Z&000990
zeooiooo
Zb001010
ZB001020
ZE001030
ZE001040
ZP001050
ZF:00106U
ZB001070
ZE00108C
ZB001090
ZB001100
ZB001110
ZP001120
ZBO01130
ZE.001 140
ZU001150
ZP001160
ZB001170
ZP001180
ZE001190
ZF001200
SOURCE CODE PAGE
139
-------
APPENDIX A. ISNAp MODFL COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGENCY
C COUNT NUMJfc'R OF SIDES OF ZONE INCLUDING NON-LINK SIDE (IF ONE Z£00121G
C FX1STS).AND STORE COORDINATES OF Ef.'D POINT? OF THIS LAST SIDF. ZF00122G
51 » = \'CL4 1 76001220
X 1F' = XCOOF (Lf 1 ) 2E00124G
XCF=XC(NOL) 2B00125Q
Y 1F = YCOOR (LE1 ) ZR001260
Y2F=YC(NOL) ZB001270
C FIKD INTERSECTION POINTS FOR SEGMENT ZE001280
CALL INTERS ZB001290
C FIND WHICH GRID CENTERS £RF LOCATED IN EACH ZONE ZB001300
1TO CALL ZNGSC ZP001310
GOT010 ZtO01320
1C1 PRINT 102.ZNAPE (J) Zfc001330
102 FOP«AT(/////,1nX,'70NE ',l?t' HAS ILLEGAL nOUNDAPY'/1OX,'CALCULATIZ&00134Q
10NS OF ARLA SOURfE CONCENTRATIONS FROM THIS 70NE HAVE NOT BEEN MADZB001350
2F') ZF00136Q
10 CONTINUE Zf001370
DO 12 *' = 1,NUMR£C ZE0013EO
DO 13 J=1,N20NES ZfcOQ1290
IF(NGSCZ(J) .EQ. 0) GO TO 13 ZP001AOO
CONC(M)=CONC(W)*CON(MfJ)*QZ(J)/NGSCZ(j) Z BO 01 410
1: CONTINUE ZB001420
1? CONTINUE ZE001430
RETURN ZB001440
FND ZE001450
-------
NDJ X A .
J S I"! A F' M 0 D r L
COf-'PUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PPOTECTION AGENC\
SUP ROUTINE CONCA?
C THIS ROUTINE CALCUL
C RESULTING F P 0 M EACH
C TO GI VE THE CONCFNT
C THEN THE CONCENTRAT
C THIS ROUTINE IS USf
10
3
100
1 , YEXP(24 ) ,YCONSL , YC
2PD,MI X, ISTAF (24) ,SL
C OKMON TT(2CO,3) ,DE
14 ),CCOUNT (ZOO)
COM*'ON/MAlNN/n
COtfMON/DASC /I
C OWKON/CRTRN/OMECA,
COKKON/CONA1 /A1 , A2,
COKKON/CONCTR/CONC <
C OKMON/XSGN/A4
COITKiON/SPCIN/DELTAY
C 0* N 0 N / P! S C / N P , Y , r, A *
CALL MISC
CALL XSIGN
DO 100 K = 1 ,NP
Y=Y + DELTAY
IF
-------
A^PEI.DIX A. ISNAP MOD' L COKPUTF.R PROGRAM SOURCF CODF, ENVIRONMENTAL PROTECTION AGENCY
PLTURr< CN200*10
CN200A20
-------
APPENDIX A . ISM/JP NODFL COMPUTER P R OGR AM S OU RC E CODE, ENVIRONMENTAL PROTECTION AGENCY
C
C
C
C
1?
5t-
20
30
51
5?
S
T
S
W
u
C
1 ,
2R
C
12
C
C
C
C
C
C
C
C
C
C
I
I
A
G
I
I
I
P
W
X
Y
C
C
I
A
G
I
/i
C
A
KB ROUTINE X
HIS
OURC
OULl>
EFE
OI*MO
YEXP
D.MI
OKKO
OD),
GWKO
OMMO
OWMO
OKMO
Or MO
OFKO
Of MO
OKMO
1 = XX
2 = Y Y
F(C1
F(AL
4 = XO
0 TO
F(Y1
F(TH
F(A.
UNT
INDN
PERP
PERP
1=XP
2 = YP
F(Y1
4 = Y 2
0 TO
F (fL
4=Y1
0 TO
4-XO
ROUTINE
E EOUAT
CONTRI
LOCATED
N/DISP/
(24) ,YC
X, I STAB
S1G
FI
I0\
PUT
AT
X0(
ONS
( 24
N/LINK/NLI
DIST(200),
N/MAINN
N/WND/T
N/BASC/
N/OR1GN
N/CRTRN
N/CONA1
N/CONCT
N/XSGN/
-XO(M)
-YO(M)
.EQ.0.0
F H A . E Q .
NFW/A1
10
NE W .LQ .
£ T A P . E G
EO.O.)
= Y1 (I) +
T=YO(M)
= A* (PWJ
=A*XPER
ERP-XO (
EPP-YO(
NFW.NE .
NJ: w
10
PHA .NE .
NT W
10
NEW/A1 -
/M
HET
I
/AL
/OX
/A1
R/C
A 4
.AN
0.)
YON'
.90
GO
X1 (
-A*
NT-
P + W
M )
M)
Y3N
D.)
Y1N
N
NPS
) OF
E TO
TH*
2CO)
L, YC
) ,SL
NK ,N
VEL(
AP,A
PHA,
EGA.
» A 2 »
ONC (
D .C2
GO
EW)
.n.o
TO 1
i ) /A
XD (f^
WIND
INDN
EM)
GO
EW*A
TH
A
T
T
, Y
ON
AT
LA
c
P
HE
PO
0(
SI
,1
NE
200)
A.
A,
X1
A?
AE
XX
Nc_
tC
SIGH OF
0 I N T ON
CONCENT
I N'T
2 P 0 ) , M UM
t 7COE FFC
CLD(24),
(200) ,X1
,LCON (20
«YY
W , X 2 N E W ,
0 N N 0 R
200)
.E
TO
GO
R .
3
)
NT
T
GO
TO
2
Q.
1
T
TH
)/
T
r
.}
0.) GO T
2
0 11
tTAP . E 0.
( A*A+ 1 . )
0 51
c
X
THE X-DISTANCE (USED IN THE POINT X
THE LINK OR ITS EXTENSION THAT X
RATION AT THE RECEPTOR IF A SOURCE X
X
REC,THETA(2^)»WS(24),YCOEFF(24) x
24),ZEXP(24),ZCONST,GRDSIZ,BCK-G X
NMET.NY, ITIME.HE IGHT(200) X
(200) ,Y1 (200).X2(2CO),Y2(200) ,LCAP(X
0,3) ,NSTOPS (200) X
X
X
X
X
Y1NFW ,Y?NEW .XONE W , YONEW X
X
X
X
X
X
09 X
X
X
X
X
270.) GO TO 26 X
X
X
X
X
X
X
X
X
X
X
X
X
X
X
SI
SI
SI
SI
SI
SI
SI
00010
00020
00030
00040
00050
00060
00070
SI00080
SI
SI
SI
SI
SI
£1
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
SI
00090
00100
00110
00 120
00130
00140
00150
00160
00 1 7 G
00150
00190
00200
0021 G
00220
0023C
00240
00250
0026C
00270
00280
00290
00300
00310
00320
00330
00340
00350
00360
00370
0038 0
00390
00400
SOURCE CODE PAGE 143
-------
APPENDIX A. IS" Ap MoDFl CONFUTES PROGRAM SOURCE CODE", £ N VI F 0 NW E N TAL PROTECTION AGENC
CO TO 10 X SI CO410
^ ( C 1 = j . X S 1 00 A 2 0
Cc=Yl(I)-YO(M) X SI 00430
r- o T o ? 1 x s 100 4 4 0
17 C 1=X1 (I)-XO(M) XSI00450
c; = c. XSI0046G
GC TO 11 X SI 00470
11 I FUHETAP.EG .90.f~i.OR.THt TAP.E&. 270. > GO TO 27 XSI00480
IF(A.EO.O.)GOTOc6 XSIODA9G
PU'INT=Y2 (I) + X2( I)/A XSI00500
60 TO 29 XSI00510
27C1=Q. XSI00520
CL=Y2(I)-YO(M) XS10053C
GO TO T0 XSI005AO
IF C1=X2 (I )-XO(wI) XSI00550
(Zi = D. XSIOC560
RO TO 70 XSI00570
9 I F(ALPHA .NE .0.) GO TO :-6 X SI 00 58 C
C 1=X1 (I)-XO(M) XS100590
C t = Yl (I ) -Y0(«) XSI00600
AA=Y1NEW XSI00610
C GO AHEAD WITH SIGN CHECK XSI00620
10 I f (THETAP.EU .90. ) GO TO ?.Q XSI00630
I FCTHETAP.E&.270 .) GO TO 24 XSIQ06AO
I F(A .GE .O.O.AND.A.LT.1.QF30) GO TO 101 XSI00650
I FCTHETAP.GT.90.O.AND.THFTAP.LE .135. ) GO TO 22 XSI00660
KK=1 XSI00670
LL=-1 XSI006EO
GO TO 42 XSI00690
22 Kr. = -1 XSI00700
LL=1 XSI00710
GCTO«i2 XSI00720
101 IFUHETAF.GT.O.O.AND.THETAP.Lfc.C5.) GO TO 20 XSI00730
24 Kk=-1 XSI00740
LL--1 XSI00750
GCT042 XSI00760
?0 Kk=1 XSI00770
LL = 1 XSI00760
C IF POINT IS DOWNWIND OF FECEPTOR, CHANGE SIGN OF A4 SO THAT A4 S XSI00790
c OF THE SAME SIGN WILL CONTRIBUTE TO COMC ENTRATI orj xsioosoo
-------
'APPENDIX A. ISMAP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGENO
42 I F
-------
• MX *. ISMAP NPDFl COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION A GEN
SUI- ROUT ] ME SPCTNG S PC 000 10
C If-IS KOUTINF COfinUTL1 THr DISTANCE TO c- t T" K F N pFTU'EEN F'OiNT SpCOH020
( SOUf C tS SFC0003U
1?LD),D!ST(200),VEL(200),LCON(200,3),NSTOPS(tQO) SPC00050
1,YEXP(24),YCONSL,YCONSZ,7COEFF(?4),ZEXP(24)TZCONST,GRDSIZ,BCK6 SPC00070
2RD,MIX,ISTAb1(2«).SLAT,ICLD(24).NMET,NYtITIME,HEI6HT(200) SPC00080
COMMON/BASC/I SPC00090
COi*!hON/CRTRN/OMEGA.XlNEW,X2NEW,YlNFWfY?NEW,XONEW.YONEW SPC0010Q
COPMON/SPCIN/DELTAY SFC00110
I F(Y1NCW.LE .YONEW.AND .YONbw.LE.Y2NFW) GO TO 1 SFCQ0120
IF(Y2NEW.LF.YONEW.AND.YOf!fcW.LE.Y1NFW) GO TO 1 SPC00130
AfcC = A6S (YONC W-YUJEW ) SPC00140
AtD=AtS(YONEW-YZNEW) SPC00150
IF(ABC.GT.ABD)GOT)2 SPC 00160
GO TO 3 SPC0018G
1 DSTNCE=ADS(XONEW) SPC00190
r-0 TO 7 S PC 00 200
2 DSTNCE- SORT(AED*ABD>XONtV*XONEW ) SPC00210
1 S&YPR«=YCOEFF(ITlME)*DSTf''CE** YEXP(ITIME) SPC00220
DtLTAY = 0.1906817*SGYPRM SPC00230
1 F(DELTAY.GE .1 . 5) GO TO 4 SFC002AO
D£lLTAY=0.16Cl145*(SGYPRi*l + "'.) SPC00250
IF(DFLTAY.GF.1.5) GO TO 4 SPC00260
YCONSL=3. SPCQ0270
GO TO 5 SPC00280
4 YCONSL=DELTAY*2 . SPC0029Q
YCL = 6 .*NLAMF(I) SPC00300
IF(YCONSL.GT.YCL) YCONSL=YCL SPC00310
5 RLTURN SPC00320
END SPC0033Q
-------
APPENDIX
I S r A P MOOFL
COMPUTER CROGRAM SOURCE CODE.
ENVIRONMENTAL PROTECTION A GE
S OF ROUTINE f-ISC
C THIS KCUTlNf CALCULATES THF VALUES OF VARIOUS PARAMETERS FOR USE
C I K CGNA1 OR CON A?
CC«IMON T T<200, 3 ) .DC LA (?OC,3) ,UZ ( 50 ) , QUF U F ( 2 00 ) , 0 (
U),CCOUNT(200)
COKMON/CRTRN/01EGA,X1NEW,xrNEWfYlNEW,Y?NEW,XONEW,YONEW
CC'f>iON/CONAl/Al,A2.A3fCOr.lNOK
COKMON/CONCTR/CONCC200)
CCMMON/SPC1N/DELTAY
COKMON/MSC/NP,YfGAMfflA(5)
C CNNOR=0.
CALL SPCING
ALENTH=ABS(Y1NEW-Y2NEW>
NT = ALE NTH/DEL TAY-^0. 9991
DLLTAY=ALENTH/NP
GAMI"!A(1)=Y1NEW
DO 11 11=2,5
I FCY1 NEW ,GT. Y2NJEW) GO TO 1
Y=Y1NEW-DELTAY/2.
GAMMA CII)=GAMMA(II-1)-ft'LINK(I ,11-1)
GO TO 11
1 Y=YiiNEW-DELTAY/2 .
GAM*", A (II )=GAMF!ft (11-1 )-DLINK (I ,1 1-1)
11 CONTINUE
RETURN
Ef.D
KJS00010
MIS00020
MJS00030
200,A),CLINK(200,*IS00040
MIS00050
MIS0006Q
MIS0007G
Misoooeo
MIS00090
MIS00100
MIS00110
W IS 00120
MIS 00130
MISOOUU
MIS 00150
MIS00160
HIS00170
K i s on 18 o
M1S00190
MIS00200
MIS00210
MIS00220
KIS00230
MIS002«0
niS00250
MIS 00260
KIS00270
SOURCE CODE PAGE
147
-------
DlX A. ISTAP MOOr_L COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION
SUeKOUTjNE tENCSC CEN 00010
( THIS ROUTINE GENERATES THE COORDINATES OF THE CENTERS Op THE G&ID GEN0002U
C SQUARES THAT OVERL«Y T'-'t INDIRECT SOURCE. THE GRID OVERLAY IS GEN00031,
f USED IN CALCULATING CONCTNTRATIONS RESULTIN6 FROI" 7 ON E AREA GEN0004G
c SOURCES. GENQCOSO
C Thf USFR HAS THE OPTION OF SPECIFYING A GRID SIZE OR USING THE GENOOC60
C DEFAULT VALUF. OF 10 METERS. G EN 00 07 C
COrKiON/DISP/XO(2PO),YO(2riO),NUMREC,THETA(24),WS<24),YCOEFF(2«> GEN 00 08 U
1,YEXP(24),YCONSL,YCOKSZ,7COEFF(2O,ZEXP(2O,ZCONST,GRDSIZ,BCKG GEN 00 090
t^D,MIX.ISTAe(24).SLAT,ICl. D(i4),NMETfNY,JTIME,HEICHT(200) GEN 00 100
CG^MON/LINK/NLINK,r-fL«NrCCO),Xl (200) ,Y1 (ZOO).X?
-------
COMPUTER PROGRAM SOURCE COOT,
ENVIRON* ENTAU PROTECTION A G6
SUl KOUTIfjE JNTERT. INT00010
c TMS KOUTIME FINPS THE POINTS OF INTERSECTION OF THE VERTICAL INTOOOZO
C LINES OF GRID CENTERS L'lTH THL LINK AND STORES THE^ IN AN ARRAY 1NT00030
C TO LE OPERATED ON r'Y SUBROUTINE ZNGSC. INTOD040
COK«CfJ/6NGSC/XGR!D(300),YCiPID(300).NGRIDX.N69IOY I NT 00 050
CCHNON/ZE-ORR/SLOF'E(12>.YJNCPT(12>,XlPfX2P,YlP,Y2<-,K+1 1NT0016G
N5TAP,=NPGL(KM) INT0017Q
YINT(MM ,NSTAR)=Y INT0018Q
2 CONTINUE I.NT0019Q
1 RETURN INTOOZOO
fUD INTOD210
SOURCE CODE PAGE
-------
(\rPENDIX 6. ISrAP ,".ODCL COMPUTER PROGPAM SOURCE CODE, E N VI F ON* t N T AL PROTECTION A GE NC
SL'FRPUTINE 7NGSC ZNGQ001C
C THIS fcftUTIME DE TF R >• I''E S '-'HICH GFID CENTERS FALL IN EACH Z ON £ ZNG00020
C TKIS IS DONE EY FINDING V'HICH GFID SOUARF CENTERS ON EACH V E R TI C A LZ NG 00 0 3 C
C LINE OF THEK FALL BETKEtV THE POINTS WHERE THE VERTICAL LINE ZNGOC040
( INTERSECTS THE ZONT POPbFR LINKS ZNG00050
DI^ENSION ARY(6) ZNG00060
C UMf ON/ZONE S/fJZONET, ,NZLIN'S ( 5 f ), 2L1NKS (1 2 ,50) , Z A TT R ( 50 )» Z G EN R < 50) f ZNGOC070
1NEXT,ZAT(2),ZGT(2),ZVT(3,50),ZNAME(50> ZNGODQ£0
COMMCN/GNGSC/XGRIDClDO),vGp1D(700),NGRIDX,KlGPlDY ZNG0009Q
COr,hON/ZBORR/SLOr>E(1?),YINCPTH?)tX1P,X2P,Y1P,YdP?K,J ZNG00100
COMMON/INERS/NPGL(7Orf),YINT(3DO,A) ZNG001 1 0
CO^MON/ZONGCC/NGSCZ(50),VZGSC,YZGSC ZNG00120
NGSCZ =0 ZNG00130
D 0 1 rv, = 1 ,NC-.R IDX ZNG00140
NSTAR=NPGL(MM) ZNG00150
IF(NSTflR.EQ.O)GOT01 ZNG0016G
(=0 TO (2 ,3,2 .3), NST/
-------
JSPIAP MODFL
COC5PUTER PROGRAM SOURCE C C D F
E.NVI RON* EI*TAL PROTECTION
A GE NC?3
C THFSE STATE»ENTS CHLCK kH11
C INTERSECTION POINTS.
DO 21 NN = 1 . N G R: I 0 Y
H=1
27 I F(YG'<1D(NN> .GE.ARY (N)) GO
IF GO TO 21
G^ID CENTERS FALL BETWEEN P A I R S OF
ZNGOC41C
ZNGOOA30
ZNGOOA40
TO
GO TO 2?
22 NGSCZ(J)=NGSCZ(J)+1
X2G5C=XGRID(C'M)
YZGSC =YGRIDCNU)
C SUBROUTINE ZCHECk' IS CALLED T
C IS SUCH THAT THE POINT WILL A
C PECEPTOR
CALL ZCHFCK
21 CONTINUE
1 CONTINUE
GO TO 25
2 P-KINT 102,ZNAKE ( J )
102 FORKAT(/////,10X,'ZONE ',12,'
TONS OF AREA SOURCE CONCENTRAT
2E')
25 PtTUPN
FND
O SEE
FFECT
TO 22 ZNGOOA60
ZNG00470
ZNG004EO
ZNG00490
ZNG00500
ZNG00510
ZNG00520
ZNG00530
ZNG00540
ZNG00550
ZNG0056C
ZNG00570
ZNG00580
ZNG00590
ZNG00600
ZNG00610
HAS ILLEGAL POUNDARY*/1OX,'CALCULATIZNG00620
IONS FROM THIS 7 ONE HAVE NOT BEFN MADZNG00630
ZNG00640
ZNG00650
IF GRID SQUARE CENTER LOCATION
THE CONCENTRATION AT THE
SOURCE CODE PAGE
151
-------
APPfMMX A. IS*'AP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGENt
SUBROUTINE ICHECf ZCH00010
C THIS PCUTINF WILL DETETMINF, ACCORDING TO WIND DIRECTION, WHICH ZcHOOOZO
C GRID SOUARE CENTERS THAT LIE WITHIN ZONES ARE IN A LOCATION FROM ZCH0003C
( WHICH THEY CAN CONTRIBUTE TO TH[ CONCENTRATION AT THE RECEPTOR ANDZCHOOOAD
C FOR THOSE CENTERS, CALL THF ROUTINE THAT COMPUTES THE CONCENTRA- ZCH00050
C T1CN AT THE RECEPTOR. ZCH00060
ro*MON/CUSP/XO(200),YO(20G),NUMREC,THETA<2O,wS<24),YCOEFF(2<.) ZCH00070
1,YFXP(?4)tYcONSL.YCONS2,ZCO£FF(2A),ZEXP(2A),ZCONST,GRDSl7,BCtrG ZCH 00 080
2PD.K IX,ISTAP(2't),SLAT,ICLD(2A),NlMET,NY,ITIKE,HElGHT(200) ZCH0009[)
CCV,^ON/WND/THETAP,AA,AF ZCH 00 100
COVKOrg/ZONGSC/NGSCZ<5-0),XZGSC,YrCSC ZCH 001 10
C()*i.MON/ZCHCK/XZTP,YZTR«M ZCH 00 120
PC Z fl-1 ,NUfREC ZCH00130
PA=X7GSC-XO(K) ZCHOOUO
FC^YZGSC-YO(M) ZcH00150
XZlR-r:A*Ab-*t'C*.^A ZCH 00 160
YZTFv = E!C*A.U-E-A*AA ZCH 00 170
I f (XZ TR . EQ.0.0. Af.'D. Y7T^' . CE.O. ) CO TO U Z C H 00 1 ?, C
IF(YZTP.LE.H.)GOT02 ZCHQ0190
I F (Ap SCATAN" (ABS ( YZTR/X7 TR )) ) .LT . 4 ? . * fi . 7 £ 31 3 53 /360.) GO TO 2 ZCH0020C
A CALL CONCA3 ZCH0021C
2 C ONTINUE ZCH00220
RETURN ZCH00230
END ZCH002AO
-------
PE NDI *
I SWAP MODEL
COMPUTER PROGRAM SOURCE COOF»
EIMVI RON" tNTAU PROTECTION * GE NCTT
SL?ROUTIfJE CONCA7
C THIS ROUTINE CALCULATES THL CONTRIBUTION FROM 70NLS (ARE*
C TO THE CONCENTRATION AT THE RECEPTOR AMD ADDS IT TO THE L
C CONTRIPUTIONS
C OWMON/DISP/XO(2nO) , Y0(2i~»0) TNU!"REC ,THETA (24 > , WS +YC
IF(ZCONST.LT.3.) ZCONST=7.
SIGZ = ZCOEFF(ITIMF)*Y?TR* + Z'rXP(ITIME)4ZC
0=(D.5*XZTR*XZTR)/CSI&Y*S1GY)
IFCD.GE.100.) SO TO 1
I FCNOPARK .EG ,1)60TO 1
CON(IM,J)=CON(M,J)-H./(SIPY*SIGZ*EXD(D))
1 RETURN
E ND
CN30001U
SOUf?CES)CN'3000tO
INK
F(
CN30C030
CN300CAO
CN30005G
CN30006U
CN300070
CN300080
CN300090
CN300100
CN300110
CN300120
CN300130
CN300140
CN300150
CN30016Q
CN300170
CN30018Q
CN300190
CN30P200
SOURCE CODE PAGE
153
-------
AFPFNOIX A. ISMAP TODTL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGENC
F. I ? ROUTINE PRNT Oil PRN 00010
C THIS ROUTJNF PRINTS THr fODEL ^ESULTS PRN00020
Cl.*KON/DISP/XO(200),YO<2r!0>,NUMREC.THETA(24),WS(24).YCOEFF(2A> PRN0003C
1,YEXP(;?4>tYCCNSL,YCONSZ,7COEFF(24),ZEXP(24)f2CONSTfGRDSI2,eCK:G PRN00040
2RU,MIX,ISTAL(24).SLAT,lCLD(<:OtNr>ET»N'Y.ITI>vE.HEIGHT(200) PRN 00 050
COMMON / COnM/ I.Z.L.J, K, TOD, DOW, TP, TOTATT, TTPZ,T3TGFN,ITM PRNQOQ60
1,NYEAR,LHEAD(13), TUNFAC PRN0007U
COPMON/LINK/rJLINK,NLANE(:ur>),Xl(200),Y1(20C)>tX2(200>fY2(200>,LCAP(PRN00080
12l>D>,DIST<200>fVFL(200>,lCON(200,3),NSTOPS(200) PRN 00 090
C OP PON/20NES/NZONE^ ,NZLlNS(50),ZLINKSC12,50>»ZATTRC50),2GENF<(50)t PRN 00 100
1NEXT,ZAT(2),ZGT<2).ZVT(3,50),ZNAME(5C> PRN00110
CCPT.CN / INTRST/ NINS, L I N ( 70 .4 ) , I T YPC (70), CYCL(7Q), PH(7U,*). PRN00120
1 CI(70), bCAP(70,4), QUE(70fA) PRN00130
CCPMON/CONCTR/CONC(200) PRN001^0
PRINT Z-1,LHEAD.NYEAR PRN00150
?1 F OPMAT(1H1,A7XT'INDIRLCT SOURCE MODEL OF ATR POLLUTI ON'///// , 5Xf 1£PRN00160
1 A A,1QX,'DATE = ',I6/) PRN00170
PKINT22,NLINK,NZONES,MNS PRN 00 180
22 FOR.»1AT(22X,'NO. OF LINKS = ' , 13 .1 0 X , 'NO . OF 7 ON E S = ' ,1 5 . 10 X ,'NO . PPN00190
10F I N'TERSECTIOMS = ',I ">/////) PRN 00200
PRINT 43 ,TOD ,THETA( JTIf'' E) ,WS ( IT JME) , ISTAP(I TIMF ) PRN 00210
4J. FORMA T(1CX,'HOUR = ' , F c . 0 t y X , 'W 1 N D DIRECTION = ' » F P . 0 , 8 X ,'W I N 0 SPEPRN00220
1ED = ',1 FES.1 ,PX ,'STABIL ITY = ',l6///> PPN0023G
PI.INT 45 PRN00240
45 FORMA T( 1 X,£HREC EPTOR ,AgX , 'CO CONCENTRATION (PPP>)'//) PRN00250
^[•:-NUMPEC n C.+1 .01 PRN00260
DO CC L=1,MM PRN0027Q
L2-L*10 PRN00280
I 1 = L2-o PRN00290
I F(L . ER.f'H) L2 = NUMr?EC PRN00300
PhlNT 46.L1 .L2, (CONC (M) ,f"=L 1 , L2) PPN00310
4C FOFMATdH Ii,2H - , I 5 , 1 » , 1 0 ( 2 X , 1 P E 1 0 . 2 ) ) PRN00320
40 CONTINUE PRN00330
RETURN PRN003AO
FKD PFN0035U
-------
l_ U rl f U I t: K- l-'KOtoKAri SOU RC fc COD E «
ENVIRONMENTAL PROTECTION
c***
c* **
5
C* * *
c***
6
12
10
SL'PKOUTINE STREET
C CI^NON/LINK/NLINK.NLANE (2GC-) .X1 C20C)»Y1 ( 200 ) , X2 < 2 00 ) »
&YZ(2PO),LCAP<200),t>IST<200),V£L(200),LCON(200,3)
COKMON/DISP/XO(2nO),YO(2CO),NUMPEC,THETA(24),WS(24),YCOEFF(24>»
&YEftR(24),YCONSLtYCONSZ,ZCDEFF(24),ZEXP(24),ZCONST,GRDSIZ,
&BCK6RD,MIXtISTA6(24),SLAT,lCLD(24),ItfET,NY.lTjtfE,
RHEI6HT(20D)
COMMON/STCAN/ISTR(200),AST(200) ,NLK ST (? 00) . WS T< 200) ,
gBUlLDH(200),RECHGT(200>,ISTLIN(200,2>«TRSIDE(200>
COMMON/MAINN/M
COMMON/BASC/I
COPMON/CONCTR/CONC(2CO>
COMMON TT(200t3),DELA(200,7),GZ (50),QUFUE(200),Q(200,4),
8DLINK(?00,4),CC3UNT(200)
DIMENSION DX(4),DY(4),XX(4),YY(4)
CONVERT STREET WIDTH, PUILD1MG HEIGHT AND PECEPTOR HEIGHT TO
METERS
W=k'ST (I*!)
BHT=EUILDH(W)
PHT=RECHGT(M)
C K = 7 . 0
XLD = 2 .
WRITE(6,5) M,I, W,BHT,RHT,XLO
FORMAT(lX,'M=',l5,1X,'l=',l5,lX,'W='»Fl0.2,1X,'eHT=*.Fl0.2,
-R1X,'RHT=',Fin.2»lX,'XLO=',F10.2)
DETERMINE WHICH SEGMENT OF THL LINK CONTRIBUTES POST
STRONGLY TO THE STREET CANYON FFCEPTOR
DXT=X2(I)-X1 (I)
D YT=Y2(I)-Y1 (I)
SL=SQRT(DXT**2+DYT**2)
WRjTE(6,6)M.l,OXTfDYT,5L
FOP«AT(1X,'f'l=',l5,lX,'T = ',I5,1X,'DXT=',Fl0.2,1X,'DYT=',Fl0.2,1X,
£'SL=',F10.2)
DO 10 11=1,4
DX(II)=(DLINK(I ,II)/SL)*DXT
DY(lI)=(DLIf,K(I,II)/SL)*DYT
WRITE(6,12)»pfIfII,DX(II),DY(II)
FOPMAT(1X,'M=', I^,1X,*I=',I5,1X,'II=',I5,1X,'DX(II)=',F10.2.
81 X.'D Y(II)=',F10.2)
CONTI NUE
STR 00 01 D
STR0002G
STR00030
STR 00040
STR00050
STR00060
STR00070
STR00080
STRQ0090
STR00100
STR 001 10
STR00120
STR 00 130
STR 00 140
STR00150
STR 00160
STR00170
STR00180
STR 001 90
STR00200
STR00210
STR00220
STR00230
STR0024Q
STR00250
STR00260
STR00270
STR00280
STR00290
STR00300
STR00310
STR00320
STR00330
STR 00340
STR00350
STR00360
STR00370
STR00380
STR00390
STR00400
SOURCE CODE PAGE
155
-------
i\f'PEhDI* A. ISKAP KODFL COMPUTER PROGRAM SOURCE CODE. ENVIRONMENTAL PROTECTION AGENCY
XXC1 )-PX (1)/Z .+ X1 (T ) STR00410
YYU)=rY<1)/;?.*Y1(;) 5 T R 00 4 2 O
r>CcPJj = 2,4 STROC^30
XX(JJ)=XX(JJ-1)+DX(JJ-1)/2.*DX(JJ)/2. STR0044C
YYY(JJ-1)/2. + DY(JJ>/2. STR0045 G
20 CONTINUE STR00460
DTEST=1.0E+£ STR0047Q
DO 30 JJ = 1 ,4 STRU048U
OTS = SQRT((XX(JJ)-XO(M))**2-KYY(JJ)-YO(*I))**2) SIR 00 490
WRITE(fr,22) JJ,M,XX(JJ)fYY(JJ),XO(r)tYO(M),DTS STR00500
22 FOFMAT(lXf'JJ=',l5,1X,'M=',l5,1X,'XX(JJ)='.E12.3»/.lXT STR00510
&'YY(JJ)=',El2.3f1X,'XO(M)=',El2.3,1Xf'YO(M)=*,El2.3,/, STR00520
R1X,'DTS=',E12.3) STR00530
IF(DTS.LT.DTEST)GOTO 25 STROQ540
GOTO 20 STR00550
25 DTEST=OTS STR00560
JKEET=JJ STR00570
30 CONTINUE STR00580
WRITP(6,32) I ,JKPEP ,0 (1 , JKEEP) STR00590
32 FOFKAT(1Xf'I='.l5,lX,'JK(7EP = ',I5,1X,'Q(I,JKEEP)='fF12.3) STR00600
Cl=CK*a(I»JKEEP)*(rHT-PHTJ/(W*(W5(ITIMF)+0.5)*BHT) STROD 61Q
CL = CIC*0(IfJKEEP)/((wS
-------
STR00510
SOURCE CODE PAGE
157
-------
ATPE NDIX A
I S r A K MODFL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGENC
? t E F: 0 U T I N E I IV I T I* "
CCMPPN/AGEFir/DEC
CCKKON/COCOEF/COEF
C OMMON/COEFPM/B AD
CO^MON/DET/DETER
C
C
C
C
C
C
C
C
C
C
PEAL MYM(120) ,M YP (1 20)
REAL Drc<20),TF(ZO,6),CO 1 = 8 ,15
? D tc( i ) = o.o
DEC(7)=TF (U ,1)
DLC(6)=TF(1J,1)
0 EC(A ) = TF(11,1)
DEK? ) = 0.0
OfC(2 ) = 0.0
00 10 1=1,10
10 D tC(2 ) = OEC(Z)+TF (1.1)
DLC(1 ) = 0.0
DETtRIOPATE MODAL VODEL COFFF1C I ENTS TO 1977
DO 1 n 0 J = 1 , 2 0
DO 100 K = 1 ,1 2
1 00 C OF F ( J , K ) =B A D (K , J ) * (1 . 0 -«• P E T E R (J ) )
VRITE(6,200)((BAD(It,I1),ir = 1,1?)
&(DETER(11).11=1 ,20) ,
INI 00010
1NI00020
INI00030
INI00040
INI00050
INI0006C
INI00070
INI00080
INI00090
INI 00100
1M00110
I M00120
1M00130
INI00140
INI 00150
INI00160
INIQ0170
INI0018Q
INIOO19Q
INI00200
INI00210
IM00220
INI0023Q
INIOOZ^C
IN1Q0250
INI0026Q
IN100270
I HI 00280
1NI00290
INI00300
INI00310
INI00320
1NJ00330
1NI003AO
1M00350
1 M 00 3 f 0
1M0037Q
INI 00380
I M00390
SOURCE CODE PAGE
158
-------
«. IS««P MODFL COHPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL (PROTECTION
C RfTF(J1.1),11=1.20). (DEC (I 1),I 1 = 1 ,20) INlOCKIO
C 200 FORMAT (6Q( 1 X , 4E 15 . e I > . '1 ' . / 2 DC 1 * , F 1 5 . «• / ) , IM0042U
C B*1*/60(1X,4F15.8/),*1*/2C(1X,F15.5/)) JNI00^30
RETURN INI004AO
END 1NJOOA50
SOURCE CODE PAGE 159
-------
X •". IS^AP MOOTL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGENCY
SUPROUTINE CF'UZ (V,f ilCRUZ ) CRU0001U
C 0^ ON/ AGEv.,M/DEC CRU00020
CONMPN/COCOEF/COEF CRUOQOJ.O
DIMENSION COE F(20,1 Z ) ,[)£( CO) ,X (12 ) CRUOOOAO
F MCRUZ = 0. CPU00050
X(10)=1. CRU00060
X(11)=V CRU00070
X(1Z)=V**2 CRU00080
DO 100 11=1,20 CRU00090
I FCDECCI 1 ) .EO .0 . ) GO TO 100 CRU00100
DO SO 12=10.12 CRU00110
f NCRl'7 = ErCRUZ+X (12 ) *COF. F (11 , I 2) *DEC (11) CRU00120
5i) CONTINUE CRU00130
1CO CONTINUE CRU00140
RETURN CRU00150
END CRU00160
SOURCE COOP PAGE 160
-------
SOUTiCE CODE
ENVIKONWENtAU PROTECTION " * GE'l
SUE ROUTINE A C DC ( V , A , r f!A D )
C OPKO
COMKO
DIMEN
£ HAD =
I PRSW
AMf X=
AM1N =
A1 = -1
N/COCOF. F/COFF
SION COEF(20,1.?>,DtC(20>.X(12)
0.
=0
1 .0
I FCA.
T=A8S
AA=A*
TT=T*
X (1)=
(D=
(J)=
<5)=
X
X
X
X
X (O =
X (p) =
X (7) =r
X (9) =
X (10)
X (11 )
X ( 1 c )
I F(A .
I F CA .
I F ( A .
I F (A .
S Of = 1
DO 1 C
I F ( D E
DO 70
I FfA.
I F ( A .
I F (A .
.0/
,0/
EO.
(V/
A
T
T
A*T
A*T
AA*
AA*
AM1N
AMAX
O.) GO TO ?00
A)
T/2 .0
TT/2 .0
TT*T/3.0
AA*A*TT*T/3 .0
AA*A*TT 12. 0
AA*AA*TT*T/7 .0
= X(1)
= X (2)
= X ( 5 )
LF. . AMIN ) H0/t=r .
&E .0.0. AND . A.L T. A-1A* ) h 0 A= ( A 2 * A ) +1 .0
L E . 0 . 0 . A N P . A . f, T . A''' 1 N ) H 0 A = ( A 1 * A ) + 1-. 0
,-HOA
0 11=1,20
C (I 1 ) . FQ .0 . ) GO TO 100
12 = 1 .V
LT.0.0 . AND . 12. EQ .2 ) GO TO f-0
LT.0.0. Af.'D . 12. EG .6 ) GO TO 50
LT .0.0.AND . I2.EO .7) GO TO SO
T 0 TO 65
ACDOOC1 U
A CD 00020
ACDC0030
ACDOPO^O
A CD 00050
A CD 00060
ACD00070
ACDOOO?Q
ACDQOOQ0
ACD00100
ACD00110
ACD00120
ACD00130
A CD0014Q
ACD00150
ACD0016U
A CD 00170
ACD001PC
A CD 00190
ACD00200
ACD00210
ACD00220
ACD002JO
ACD00240
ACD0025Q
ACD00260
ACD0027Q
ACD00250
A CD 00290
ACD00300
A CD 00310
ACD00320
ACD0033U
ACD003^tO
ACD00350
A CD00360
A CD00370
A CD00380
ACD00390
A CD 00400
SOURCE CODF PAGE
161
-------
1> *. ISPAF MODrL COMPUTER PROGRAM SOURCE CODT, ENVIRONMENTAL PROTECTION A GE NC
t r IFUr^W.GE.1) WP ITt. (6,
-------
APff NO IX
IS refit* MODEL
COf-PUTER PROGRAM S O U R C E C O D • ?
E NVi PON"I EN TAU
PROTECTIO'N AGE
c
c
c
c
c
c
c
c
c
£
C
FL'Ffv OUTINE SUPf. (INIFLG,M,I2,A1,X1,X2,X3,X4,A21.A22,A23.
&AZ'4,/i25fA26,l5,16,l7,E.MCrr'IOLE)
CC-«iMON/FLGCOM/ALTFLG,ALHFLG,TRKFLG,IRDrL6«SP?Fl.G,NP;HFL6,IDLFL6,
* UNFFLG,MYMrFC,IMFLG,ICEVFG,PRTFLG,IFORM
COWMON/REGCOM/IREJN
CO!"MON/LNKCOM/SPD,TEKP,PCCOtPCHS,PCCC,VMTMIX
COMMON/ALTCOM/NKYALT,ALTKOD
C OKMON/MYMCCtf/1 Y* ,MYR ,T F
C GMWON/JUNK1/AC ,XLOAD ,TMA1LR , ABSHUf
CCKMON/JUhiK2/HGWGT,HDWGT,hGCID,HDCID
CGtfMGN/PpOJCM/PROJID
CCKMON/IMCOM/lCYIM,ISTRl'JtIMTFLG,MODYRl,KOOYR2
CC^HON/SPUOM/SPl.SPAV
INTEGER ALHFLG,TRK(:LG,ALTFLG,ALTKODU,ZO),CY,VI^FLAG,SP3FLG,
* NKHFLG,IDLFLG .UNFFLGtPRTFLG
REAL SPD(3) ,VMTMTX(6) ,^Yn (20, 6) ,MYR (20,6) ,TF(2Q,6)
RL-AL EFRETM(3,6),WTEDEF(7),LNKDTA(7),Pr'OJin(ZO)
EUUIVALENCE (SPO(1) ,LWKDTA(1 ) )
DATA V^TMIX/.^03..n5^,.05c,.0^:,.07lT.T05/
DATA IREAD,] WRI/5 »', /
REAL c OM c c c (6), i D L P T M (-,, t), i D LW T D (7 )
DATA IFJOLD/0/
I REJN=I1
f Y = IZ
PCCO=X2
PCCC=X4
VHTMI X(1 )=A21
VMTMIX(2)=A?2
VMTMI X(3)=A23
VMTMI XC4)=AZ'A
VMTMI X(5)=A25
SUP00010
SUP00020
SUP00030
SUP00040
SUF00050
SUP00060
SUP 00070
SUP00080
SUP00090
SUP00100
SUP00110
SUP00120
SUP00130
SUP0014Q
SUP00150
SUP00160
SUP0017C
SUP00180
SUP0019G
SUPODZOO
SUPC0210
SUPOP22Q
SUP0023Q
SUPOCZ^O
SUP0025U
SUP00260
SUP00270
SUP00280
SUP00290
SUP00300
SUPOG310
SUP00320
SUP00330
SUP00340
SUP0035Q
SUP00360
SUP00370
SUP0038U
SUPOP390
SUP00400
SOURCE CODE PAGE
163
-------
APPENDIX A. ISMAP MODEL COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGEN(
Vf.TM X(6 ) =*?(• SUP004 10
ALHFLG-I^ SUpOOAZO
TF.KFLG=I6 S UP 00 A3 0
I*FLG=J7 SUP00440
SPD(1)=A1 SUPOOA50
SPD(Z)=A1 SUP00460
SPP(3)=A1 SUP00470
C SUP004SO
C SUPOOA90
I FdNIFLG .EO.O) GO TO 100 SUP00500
MYKRFG^G supOQSlo
MSFLG=1 SUP00520
ALTFLG=0 SUP00530
SP?FLG=1 SUP005AO
NKHFLG=0 SUP00550
IDLFLG=1 SUP00560
UNFFLG=0 SUP00570
ICF.VFG = 1 SUP 00 580
IFORM=1 SUP00590
PRTFLG=0 SUP00600
IPRTSW=0 SUP00610
INFLG=0 SUP0062G
I F(MYf«RFG.EQ .1) R E A 0 ( 2 . 5 P ) MYI«,^YR SUP00630
50 FOFMAT(20F<, . 1 ) SUP006AO
CALL TFCALX SUP00650
10C CO^TINUE SUP00660
C SUP0067Q
C**CHECK CALENDAR YEAR SUP0066Q
IF(CY.GE.?0) GO TO 505 SUP0069U
WRITE (IWRI,785) SUP00700
78^ FOPMATC ***EPROP: CALENDAR YEAR RANGE is 7o THRU 99") SUP00710
STOP SUP0072U
50? CONTINUE SUP00730
ICYPR = CY SUP007AO
IFCCY.GT.95) CY = 95 SUp0075o
C SUP00760
C**CHECkAHPIENT TEMPERATURE SUP 00770
IFCTFMP.GE.0.0.AND.TEMP.LE.110.) GO TO 697 SUP007PO
WRITE(JWRI.787) SUP0079Q
787 FORMATC ***ERROF: VALID TEMPERATURE RANGE IS 0-110 DEG.fF)') SUP00800
SOURCE CODE PAGE 16<
-------
FPEHDJjr n. ISr*AP M o D F L COMPUTER PROGRAM SOURCE CODF, E. N VI RO Ml» E NIT A l_ PR OT E CT T~OT*
STOP SUPOOfclU
6L7 CONTINUE Sl)POOiS20
c SUP00830
C**CHECK INPUT SFEEDCS) SUPOQ&4G
If(SF3FLG.EQ.1) GO TO 65T SUP00150
I f (SP1 .GT.D.) GO TO 620 SUP 00860
WFITE(IWRIt736) SUP00870
7£6 FOPMATC ***ERROR: SPEED MUST BE POSITIVE') SUP00880
STOP , SUP00890
620 I F(SP1.GT.60.) SP1 = 60. SUP00900
I F(SP1.LT.5.) WRITE(IWRI ,7?8) SUP00910
7f.S FOFKATC **UARNIN6: AVG. ROUTE SPEED L.FSS THAN 5 pt.P.H.') SUP00920
GO TO 695 SUP00930
C SUP009AQ
650 CONTINUE SU.POQ95Q
I FCSPDd ) .GT.O.O.Ar.D.SP D (^') .GT.C'.C. AND. SPp(3) .6T.O. ) GO TO 670 SUP00960
WRITE(IWRIf786) SUP00970
STOP SUP00980
670 CONTINUE SUPQ0990
DO 671 1=1,? SUP01000
I FU. SUP0102Q
C SUP01030
695 CONTINUE SUPOlO^O
C SUP0105Q
C**END SPEED CHECK SUP0106Q
C SUP01070
I F(SP.3FLG.E& .1) GO TO 52P SUP010SO
C**HERE TO DECOMPOSE SINGLE ENTERED SPEED INTO BAG SPEEDS SUP01090
C SFDd) = SPl*1.3n SUP01100
C SFD(2) = SPl*.c25 SUP01110
C SPD<3 ) = SP1*1.3H SUP 01120
S PDd ) = SP1 SUP01 130
SPD(2) = SP1 SUP0114Q
SPD(3) = SP1 SUPQ115Q
C SPDC1) = SP1* (1 .377738r" - (PC CC * .30/79. 4 2) ) SUFQ1160
C SPD(2) = SP1*(.7^9T5 + (PCH£*.175/72.7?)) SUP0117C
C SfD(7) = SPM1) SUP0118U
C SUP0119U
C PCHSNC = PCCC - PCCO + PfHS SUP01200
SOURCE CODE PAGE 1 65
-------
APPENDIX A. ISNAP MODfL COMPUTER PROGRAM SOURCE CODE* ENVIRONMENTAL PROTECTION
( rCHST! = 100. - rcrc - PCHT SUp01210
( Sn:(1) = SP1 * (1 .411 UiCCC ,IDLRTK,1DLWTD, SUP 01 310
KINIFLG) SUP01320
I FdPRTSW.Ett .1) CALL OU T P UT ( I C Y P R f F. FR ET ?, ,b T E D E F ,C OK C C t . I T LR TK f SUP0133G
riUkTD) SUP01340
EHCRUZ=WTEDEF(2) SUP01350
EKIDLE=IDLWTD(2) SUP0136y
Rf. TURN SUP01 370
Ff:t- SUP0138G
SOURCE CODE PAGE 1 t,6
-------
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION
SUP ROUTINE OUTPUT(CY.ErRETrfWTEDEF.COHCCt,IDLRTM.JDLWTO)
UNFFL6.MYMRFG,1KFLG,ICEVFG,PRTFLG,IFORM
CCNMON/BEFCOM/FEF
CGHMON/LNKCOM/SPD.TEMP, P C CO , P CH S .PC C C ,VMTKIX
CGKMON/ALTCOM/NI*IYALT,ALTKOD
CCrI1(3)»REGN2(3)
REAL COMPEF (20,3 ,6)
PEAL AIHRETC20.4.3)
P£AL A(20,3,3),U(2n,7,5)fL(3,3),H(3),XLOAO(3)
REAL EFRETM(3,6),W7EDEF(T),LNKOTA(?),PROJID(20)
REAL COMCCC (6), TT (20,6)
REAL BF F (20,26,3 ,6)
REAL YFSNCK?)
r^UIVALENCE (SPD(1),LNKDTA(1))
DATA PROJ1D/'EMIS','SIGN',' FAC",
8'ULAT','ION ',' ','SUPR','OUTI
R'NE S','UPS','(MOO','ILE1',' PRO'
&'GRft^',' MOD','IFIE','D) ','
DATA PNAMH/'NON-','METH'/
DATA PNAM/' T ' , ' E XHA ' .'E X H A'/
DATA PNAMi/'OTAL','UST ','UST '/
DATA PNAW3/' HC ',' CO ','NOX '/
'TOR
, CA LC
OUT00010
OUT00020
OUT 00030
OUTOOOAC
OUT00050
OUT00060
OUT 00070
OUT00080
OUT0009Q
OUT 00100
OUT 00110
OUT00120
OUT 00130
OUTOOUO
OUT0015U
OUT00160
OUT 00170
OUT 00180
OUT00190
OUT00200
OUTOD210
OUT00220
OUT00230
OUT00240
OUT00250
OUT00260
OUT00270
OUT00280
OUT00290
OUT00300
OUT00310
OUT00320
OUT00330
OUT00340
OUT 00 3 50
OUT00360
OUT00370
OUT00380
OUT00390
OUTOOAOO
SOURCE CODE PAGE
167
-------
ISrAP tfOD^L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION A 6E NC
C
c*
77
C
DMA
D ATA
0 ATA,
DATA
DATA
DATA
D ATA
DATA
D ATA
D ATA
DATA
DATA
DATA
IDLNM1
1DLMM2
1DLNM3
EVFNAM
IWRI ,1
EXHHDP
'RS (',
IDLHDR
IDLHDt
REGN1/
FEGN2/
DASH/'
INITFL
YESNO/
/'
/'DL
/' H
/'
URUN
i
E
C
*
F /
«
«
^
*
^
*
6.
^
^
^
^
9
/'COMP'. '
'GK/
/'ID
/'
'49-
'TAT
/1 /
'NO
M'
LE
S'
E'
'/
^
^
f
^
*
•
f
V
*
I
'
+•
C
F
D
E
/
0
L
A
•
YE
LE
CO
VA
SI
E)
EM
C
LI
S
1
P
T
^-
I
0
^
^
^*
^- ^
*
','DL
','NO
'f * H
, E
/
','SS
','RR
,'HI-
»'LT.
I
b
X
C
EM
10
EC
A'
f
' 1
' 1
' 1
' 1
','ISSI','ON F','ACTO',
','N FA' , 'CTOR ', 'S (G't
'.'TED '/
/
/
I F(NMhFLG .EG.0) GO TO 77
P'NAKl (1) = PNAMH (1 )
PNA«?(1) = PNAMH(2)
CONTINUE
IFdNITFL.NE.1) HO TO 17^
HERE FIPST TIME
I NIT F L-0
I F(l FOPM.tO .0) Wf?lTL (IWRI ,701 1) PROJID
I F(IFOFM.EQ .1) WRITE (IWRI ,701 ) PROJID
I F(I F 0PM.EO . 1 )
*WRITE(IW P. 1,7017) PNAM(1),PNAM2(1),PNAM3(1)
CO',ZX,'-*',2A4,A3 ,' EMISSION' FACTOR? INC
EVAP. HC EMISSION FACTORS')
7017
I F(I FOPR.EQ.1 ) WRITE (IWRI ,71Q)
175 C CMTINUE
C
I F ( J FORM .CGI .0) GO TO o°t
C********-********************************************
C
WFITP(IWRI,7029)
I f (SF5FLG .EU .1)
OUT00410
OUT00420
OUT00430
OUT00440
OUTOD450
OUT00460
OUT 00470
OUT00480
OUT00490
OUT00500
OUT00510
OUT00520
OUT00530
OUT00540
OUT00550
OUT00560
OUT0057Q
OUT005feO
OUT00590
OUT00600
OUT00610
OUT00620
OUT0063Q
OUT0064Q
OUT00650
OUT 00660
OUT00670
OUT00680
OUT00690
OUT00700
OUT00710
OUT00720
OUT 00730
OUT00740
OUT00750
OUT 00760
***+***************OUT00770
OUT00780
OUT00790
ouTonsoo
LUDE
SOURCE CODE PAGE
168
-------
APPENDIX A. ISfiAP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGENCY
C
c
c
200
C
c
c
c
SE8
*l"'MTF (I WRI,703) CY.TEKP,
* rcc O,PCHS ,PCC c
I F (SP3FLG.EC.O)
*WRI TC (I WRI, 7035 ) CY,TE'1P
* SFAV,PCCO,PCHS ,PCCC
I F(ALHFLG.EQ .1) WRITE(IW
I F(TRKFLG .EQ .1) WRITEdW
I FdWFLG.tQ.1 ) WRITEdWR
I FdMFLG .EQ .1 ) WRITEdWR
WRITE (IWRI ,7059) EXHHDR
WRITE (IWRI, 706)
IFCPRTFLG.EC.O.OR.PRTFLG
* WRITE (I WRI, 707) PN AP1 1(1)
* WTEDEFd)
I FdCEVFG.EO .1) WRITEdW
IF (PP. TFLG.EC.O.OR.PRTfLG
*WRITE(IWR1,707) PNAKK2)
* .KTEDFFC2)
I FCPPTFLG .EQ.O.OP.PRTFLG
*WRITE (IWRI, 707) PN*M1(?)
* WTE DEF (3)
IF(IDLFLG.EG.O) GO TO 2U
WRITE (I WRI, 709) IDLHD2,!
WRITE (IWPI, 707) (IDLNM1(
* IW= 1 ,6) ,IDLWTD (10 ) ,18 =
CLNTI NUE
WRITE (IWRI, 710)
GO TO P 9 9
CONTINUE
I PP1 =PRTFLG
I PP?=PRTF LG
I F (PRTFLG .EQ .0) IPP1 =
VKTMIx,REGN1(IP-EJN),REGN?(lREjN),SPD.SpAV
,V'Tf1I)(,REGNl(IREJN),f;FGrc(IREJN),SP1,SPD
PI,70A) AC.XLOA D ,TP AI L^ »ABSHUW
PI, 705) HGVGT,HDWGT ,HGC ID ,HDC ID
I, 70 51) 1CYIW,ISTRIN,YESNO(IMTFLG+1)
1,7052) MODYR1 ,MODYR2
.EC .1 )
.PPJAr^d ) ,PNAM3 (1) , (E FPETM(1,IM) , IM = 1 ,6) ,
RI,708) EVPNAM, COMCCC ,D ASh
.EO . 2)
,PNAM2(2),PNAM?(2),(EFRETM(2,I«),IM=1,6),
.E0.3)
,PNAMi'(3),PNAM3 (?-), (EFRETtf(3,IM) , IM = 1 ,6) ,
n
DL.UDR
ICl),IDLNM2dfi ),IDLNM3(IG),(IDLRTC(IQ,IM),
1,3)
1
,OUTOO&10
OUTOOS20
OUTOOE30
,OUT 00840
OUT0065U
OUT00860
OUT00870
OUT00880
OUT00890
OUT00900
OUT0091C
OUT00920
OUT00930
OUT00940
OUT 00950
OUT00960
OUT00970
OUj 00 98 Q
OUT00990
OUT01000
OUT01010
OUT01 020
OUT01030
OUT01 0*0
OUT01050
OUT01060
OUT0107C
OUT01080
OUT01090
OUT01 100
OUT01 110
OUT01120
OUT01130
OUT01 UO
•* i^ 1 1 T r^ 1 1 *\ r*i
"UUIUI I-?U
OUT01160
OUT01 170
OUT01 180
OUT01 190
OUT0120U
SOURCE CODE PAGE 1 t9
-------
A. ISMAP MOD^L COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION A GE N
A
1203
7V080
*
C
899
C
r
c
C
0
V
c
F
C
I
1
C 1
F
c
i i T r
(EF
ONT I
ORrtA
F3 .
OKT
I
F(UN
(PR T
07 I
R E T P
NUE
T(1 X
O.lx
NUE
FFLG
FL
PN
I »
(I
f F
.E
G
X
7
P
5
G
.E
= 1
n . n )
PP1 , 1
^050) I
N x , i n ) ,
.1
.1
,1 X,F
) WRI
IPPZ -i
PF2
REJ^,C.Y,SPD,TEMP,PCCO.PCHS»FCCC,IPNX,
If=1,6).VMTniX,WTEDf: F(IPNX)
5.1,1X,F5.1,1X,I1t6F6.1.6F6.3tF7.2)
TE(IWRUNF) EFRETMfWTEDEF
OUT01
OUT01
OUT01
DUTCH
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
OUT01
t*********oiiTni
210
220
230
240
250
260
270
280
290
300
310
330
340
350
•*Afl
701 FORWAT('1~,20A4/) OUT01370
7011 F OR»lAT('1'f 20A4 ) OUT01380
C OUT01390
7029 FOR»1A T(32X, 'VEH . TYPE: LDV LDT1 LDTZ HDG HDD MC') OUT01AOO
C OUT01A10
70T FOFMATC CAL. YEAP: 1« ' , I ? , 5 X , 'TEf P : ' , FA . 1. OUT01A20
* '(F )',SX,5 (F5 .3,'/'>, Fc.7, OUT01A30
* /1X,' REGION: 't?A4,4x,F4.1,'/',F4.1,'/',F4.1, OUT01AAQ
* ' MPH ','(', F4 ,U')'.7X,' ' ,F5.1 ,'/', F5.1 ,'/' .F5.1 ) OUT01A50
f OUT0146Q
70?5 FORHATC CAL. Y^AR: 11? ' , 1 2 , 5 X , 'TEM P : ',FA.1, OUT01470
* '(F )',8X»5 (F5 .3,'/'), FT.7 , OUT01480
* /1X,' REGION: '.TA^ ,^ X ,F4 .1 ,' :', FA.1 , '/'. FA .1 »'/', F4.1 . OUT0149Q
* ' MPH ','('?F4.1 , ') ', 3X,' ' ,F5-.1 ,'/', F5.1 »'/' ,F5.1 ) OUT01500
704 FOFMATC" AC :' , F6. 2,cX , 'XLOAD: ',3F7.2.2X, 'TRAI LR :', OUT01510
* F7.2,2Xt'A6SHU^',F7.2) OUT01520
C OUT01530
7C5 FORKATC HGWG T : ' , F 7 .0 , ?X , 'H DW GT : ' , F7. 0 ,2X , *H6 C I D : ', OUT01540
* F7 .Z.2X,'HDCI D :'. F7.?) OUT01550
C OUT01560
7051 FORMATC LDV I /M PROGRAM STARTING IN 19', 12, OUT01570
* ', STRINGENCY LEVEL ',12,'%, I^ECH. TRAINING: *,A4) OUT015EO
C OUT01590
7052 FORMATC' I /H PROG. BENEFITS APPLY ONLY TO MODEL YEARS 19'. OUT01600
SOURCE CODE PAGE 1 7O
-------
ft: NO IX A
1SF AP MODPL
PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION A GEN*
* 12-' THROUGH 19',I?)
70?c FOFKA TC~0~,rZ>X.9A4 )
C
706 FORIATC *,15X,*LDV LPT1 LDT? HDb
* KC ALL "ODES')
C
707 FOfcMAT«1X,2A4,A?,*:"t*(F7.2,2X),lXfF8.2>>
C
708 FOFWAT(1X,2A4,A3.':',6(F7.2,2X),5X,A«)
C
709 FOPMATC'0*,16X,4A4.£A4)
C
710 FOPMATC
*- ')
C
(
C DEBUG SUBCHK
RETURN
HDD
OUT01610
OUT01620
OUT01630
OUT01640
OUT01650
OUT0166Q
OUT01670
OUT01680
OUT01690
OUT01700
OUT01710
OUT01720
OUT01730
OUT01740
OUT01750
OUT0176Q
OUT01770
OUT0176Q
OUT01790
SOURCE CODE PAGE
171
-------
AP P£
I X
AP
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION AGENt
SUPROUTINb EFCALX(CY,L'vK.nTA,MS,EFRFTri,WTFDEF,CCRET^,lDLRT«,IDLWTD
f IK]FLG)
COMKON/FLGCOK/ALTFLG,ALHFLG,TKKFLG»1RDFLG,SP3FLG,NMHFLG,1DLFLG»
* UNFFLG.MYMPFG,IKFLG,ICF_VFG,PRTFLG,IFORM
C O^KON/CEVCOM/CCEV
C OCKiON/PEGCOM/I REJN
C 0«MON/BEFCC>M/3E F
COMHON/IDLCOM/IOLBEF
COI»rNON/MYfiCOM/MYM,NYP,TF
INTEGER MYP , P , (YP
INTEGER ALHFLG,TRKFLG,ALTFLG,ALTKODU,20),CY,MSFLG,SP3FLG,
* NMHFLG,IOLFLG,UNFFLG,KYKRFG,PRTFLG
REAL IOLPEF(20,26,3.6).IDLFAC(20,3,6),IDLCMP(3.6),IDLWTO(3)
REAL IOLRTM(3,6)
REAL COMPCC(20,6).CCRETM(6)
REAL CFRET(ZO,3,6)
REAL BE F (20,26,3,6) , CCEVU5,6),
CEFLDV(3), CEFLT1(3),
CEFLT2O), CEFHDC-(3),
CEFHDD(?), CEFKCC(7),
EFftET*! (?-,£ ) , COHPEF(20.3 ,6) ,
COMPMY(3,6), LNKDTA(7),
MY^(20,6), MYR(20,6),
MS(6), PCCO,
PCCC, PCHS,
SFD(3), TEKP,
TF(20,6), TFNORM(6),
WTEDEF O)
D I MEN SI ON R1(20,3,6),R2(?0,3,6),XISPO(11)
C
C
C**
C
************************** * + ***********************************•**•**
5PD(1 ) = LNKDTAd)
SPD(2) = LfJKDTA(2)
S PD(3) = LNKOTA(3)
TEMP = LNKDTA(
-------
A. ISVAP MODFL COMPUTER PROGRAM SOURCE CODE* E N VI R O N!"I E N T A U PROTECTION
PCCO = Lf,:KDlA(5> EFC00410
PCHi - LNKDTA(6> EFC00420
PCCC = LNKDTA(7) EFC00430
C EFC00440
C EFC00450
CALL BIGCFX(fY,TFMP,PCCO,PCHS,PCCC,SPD,CFRET,INIFLG) EFC00460
C EFCOCU7G
XItPD(1)=5.0 EFCOO^eU
X1SPD(?)=5.0 EFC00^90
XIEPDO)=5.0 EFC00500
XITEMP=75.0 EFC00510
X1FCCO=D.O EFC00520
XIPCHS=0.0 EFCQ0530
X1FCCC=0.0 EFC005AU
INIFLG=0 EFCQ0550
CALL EIGC FX(C Y.TCI^P ,PCCO ,PCHS .PCCC.XISPD «R1 ,]Nl FLG) EFCQ0560
CALL BIGCFX(CY,XITFMP,yiPCCO,XIPCH<:,XIPCCC,XISPD,R2,INIFLG) EFC00570
C EFC00580
CYP = CY - 69 EFCOC590
C EFC00600
C EFC00610
DO 5 OOP = 1,3 EFCOD620
WTTDEF(^) = 0.0 EFC00630
JDLWTD(P)=C.O EFC00640
DC AOO f. = 1 f * EFC0065C
COfPMY(P,r) = 0.0 EFC0066Q
IDLCMPCP,") = U.O EFC0067Q
IF(P.£G,1) CCRETK(n)=G. EFC00680
00 500 I =1,20 EFC00690
f EFC00700
MYr=CY-(?0-l)-5Q EFC00710
C EFC00720
IF (P.E0.1) GO TO 313 EFC00730
GO TO 444 EFC007AO
f EFCQ0750
33? C OM F E F ( I , P , ^ ) = ( 0 E F ( 1 , C Y P , F1, M ) * C F f< E T d , f' , M ) * C C F V ( M Y F , M) ) * T F < I , M ) E F C 00 7 6 0
C OKPC C < I ,tf> --c crv(MYp, f ) *TF ( 1 ,f ) EFC0077G
GO TO 555 EFC00780
444 C OMPF F( I ,P,h, )^(br F ( I , CYP ,P,M ) *C FPFT (I ,T ,M) )*TF(I,M) EFC00790
C EFC00600
SOURCE CODF PAGE 173
-------
> i y A .
I S n A P r n D F L
COMPUTER PROGRAM SOURCE CODF,
ENVIRONMENTAL PROTECTION AGEN>
ACT
C
500
f
60 r
C
C
C CM I fvl'E
IDLFAC(I,P,f')=JDLeEf(l,CYF,P,M)*Rl(I,P,M)*TF(I,K)/PZ
I ILCMPCP ,K) = IDLCVPCP.M) + IDLFAC(ItP,M)
IFCP.E0.1) CCRET^C^1} = CCRFTFKM +' COMPCC(IfM)
CONTINUE
WTEDEF(P) = WTEDEF(P) + C OM PM Y ( P ,M ) *tfS ( M )
IDl>TD(P) = IDLWTD(P) * ICLCrp(P»M)-*MSCM)
C OKTINUt
C ( NT I NUE
DO tCO M =• 1,6
DO 500 P = 1,3
FFRFTM (fj,r-i) = COKpfiY(P.M)
I D L R T M ( P , M ) = IDLCMP(F.M)
f OMI NUE
R fc T U R N
Ef.D
E FC0061C
E FCOOe?0
EFC00830
EFC0084Q
EFC00850
EFC00860
EFC00870
EFCOOgSO
EFC00890
EFC00900
EFC00910
EFC00920
EFC00930
EFC00940
EFC00950
EFC00960
EFC00970
EFC00980
EFC00990
EFC01000
EFC01010
EFC01020
EFC01030
EFC0104Q
EFC01050
SOURCE CODE PAGE
174
-------
Af re NO i
1 SMA P MOD F L
PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECT TON A6ENC
C
C
C
C
C
C
C
C
C
( *
S IF ROUTINE fJGCFX(CY,T,PCCO,
CCKMON/FLGCOM/ALTFLG,ALHFLC.
* UNFFLG,KYMPFG,
COMMON/ALTCOP!/NMYALT,ALTKOD
C OMHON/REGCOM/IREJN
eOWr,ON/JUNKl/AC,XLPAD,TRAlLR
CGMMON/JUNK2/HGWGT,HDWGT,HGC
COMMON/RFT1/ALHRET(20,4,7)
C OKFON/RET2/TRKRET(20, '• , 2)
COF"HON/SP1COM/SP1,SPAV
C OM M 0 N / M Y M C 0 1" / 1 YK , 11 Y R , T F
INTEGER ALHFLG.TPKFLG ,ALTFLG
* NKHFLG, IDLFLG .UNFFLG
INTEGER INITFL,IEQNAR(45.3,3
INTEGER CY,G(45,7,4)
IK G * 1ST INDEX IS KY, 2ND IS RE
IN IECNA.R, 2ND INDEX IS POLLUTAN
IN HDINDX, 2ND INDEX IS REGION (
REAL COMCCC (6), A (20 .3 ,3 ) ,U(2
* L(3 ,3) ,H(3)
REAL XLOADO)
REAL COMPEF (20,3 ,6)
REAL W,T,SPD (3) , SPr (7), C ^ R (: T
PEAL D1U, 3), 02(4,7)
REAL MIDDLE, LEFT
PEAL 5 F B A C K ( 1 5 , 3 , 3 ) . C PP 0 T ( 1 1
PEAL ATRU,3t2)fF1T'?U,3t?).C
PEAL C(A,8,3)
REAL CUMPUL (20,6) ,VYr (20 ,6) ,
INTEGER MAX AGE (4)
DATA KAXAbE /1 9, 1 °, 1 9 , 1°/
+ COE F F1C I ENTS IN SP E r. D / T CMP / COL D
DATA C/
PCHS,F'CCC,CFD,CFRET , INTTpL)
TRKFLG.IRDFLGrSP"' FLG.Nf-1HFLG .IDLFLG,
IHFLG,ICFVFG,PRTFLG,IFORM
, ABSHUM
I Dt HDCID
,ALTKOC)(4,20),CY,MSFLGtSP?FLG»
,MYMRFG ,PRT FLG
, 4) ,HDINDX(45,^)
GION, AND 3RD IS MODE
T, 3RD IS REGION, *>TH IS MODE
NOT FUNCTION OF POL. OP MODE)
0,3,3),
(20,3,6)
,3, 3)
T R ( 4 , 3 , 2 )
MYP(20,6),TF(20,6)
START FACTOR: tQN« IHDEXf POL •
BIGC001 0
BIG00020
EIG0003G
BIG0004Q
BIG00050
BIG00060
BIG00070
BIG00060
BIG00090
BIG00100
BIGOP110
BIG00120
EIG00130
BIGOOUO
BIG00150
B IG00160
B I G 00 1 7 0
BIG0018C
BIG00190
B IG00200
BIG00210
BIG00220
B1G00230
B I GOO 240
BIG00250
BIG0026Q
B IG00270
BIG 00280
E-1G00290
BIG00300
BIG00310
B I 600 3 20
BIG00330
BIG00340
BIG00350
EIG00360
BIG00380
B I GOO 390
BIGOOAOO
SOURCE CODE PAGE
175
-------
NO] X A .
ISM AP MODfL
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION AGENC
C
c
c
c
c
4
*
*
4
*
4
*
*
4-
*
4-
4
4
•4
*
4
*
**COEF
D
D
*+SPEE
D
*
*
*
*
*
*
*
*
*
*
4
*
*
*
D
2 .
-3.
D.
(, .
5 .
c.
-b.
-14
4
c
c1
- 0 .
,1
3 .
1 .
D.
Ci.
FIC I
ATA
ATA
D CO
ATA
ATA.
V71000, 2.931000, 2.433900, 1.993*00,
01 47 79, -0. 014779, -0.023591 , -0.022269,
673.-2.41D, 0. 623. -f.032 , 0.569, P. 863
750. 2.430, 1.110, C.497, 0.303, 0.555
690, 2.610, 1.050, 0.?43. C.471, 0 . 597
654FGO. 5.654°00, 5.5460UO, 4.239100,
01 5965. -0.015965, -0.028945, -0.017522,
.74, -33. 89, 11.29, -0.20, 9.62, 9.77
.24, c.99, 42. P4, 25.26, 15.85, 4.12
.76. 4.71, 2.34. 2.20, 57.57, 35.90
.17, 3.96, 7.74, 6.70, 3.13, 2.12
10E+03,-0.1PE+03,-0.10E+03,-0.10E*03,
260, 3.050, 0.0 , r.O , 0.335, P.31E
250, 1.260, 2.99U, ?.3BO, 0.0 , 0.0
1RA, 0.180, O.S10, C..1GO, 1.890, ?.010
0 ,0.0 , 0. 116. n. 126 /
ENTS IN DENOMINATOR OF S PC E D/T £f ?f C OLD
D1/5.67,2.fa,1.3fi,.54,56.43,36.4,23.7,6
D2/.47,.64,.2?,.2:',7.r9,6.79.3.14,3.l4
RPECTION FACTOR INDEX: C AL . YR., REGIC
G/15*2, 2, 2, 4, 5, 6. 7,14,17,17,12,1
15*2, 3, 3, 4, 5, 6, 7,13,16,16,18,1
15+1, 1, 1, 3, 9,10.11,12,15,15.18,1
15*2. 2, 2. 4, 5, 6, 7,14,17,17,18,1
15*2, 2, 2, 4, 5, 6, 7,13,16,16,18,1
15*1, 1, 1, 8, 9,10,11,12,15,15.18,1
28*14,17+15,
27*13,18+18,
2^*12,17*18,
15*2 , 2, 2, 2, 2 , 2. 2 , 2, 2 , 2. 2,
15*2, 2, 2, 2, 2 , 2, 2, 2, 2, 2, 2,
1FQNAR/17*1, 7*2. 5*3. 16*4. 17*1. 7*2. 5*
.
,
,
,
,
,
,
,
,
,
,
S
.9
.0
N,
8,
a.
8,
8,
8,
8,
2,
2.
1
3.
0»
0.
0.
TA
8,
• 9
M
18
18
15
15
18
18
2
2
16
3
2
2
R
1
0
0
,
,
,
,
,
,
,
,
*
0
?
7
T
*
•
D
1
1
1
1
1
1
1
1
1
4
1,
4,
0,
F
,1
, .
E
8*
8*
8 +
8*
8 +
8*
8*
b*
8 +
» —
0.445,
0.357,
0.175 ,
ACTOR
.,2.47,2 .A6/
18 ,.1P/
18,
18,
18,
18,
18,
18,
17,
16,
15 /
l J f
B
B
B
B
B
B
B
B
B
B
B
B
P
L>
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
e
IG00410
IGOOA20
IGOOA30
IGOOAAO
IGOOA50
1600*60
IGOOA70
IGOOA80
IGOOA9Q
IG00500
IG00510
IG00520
I GOO 53 0
,1 W v W ^ -J W
IG005AO
IG00550
1G00560
I GOO 570
IG00580
IG0059Q
IG00600
IG00610
IGQ0620
IG00630
16006AQ
I G 006 50
IG00660
IG00670
IG00680
IG00690
IG00700
1G00710
1600720
1G00730
IG007AO
IG00750
1G00760
IG00770
TC nn 7 M fi
* o UU f " U
IG00790
I GOO 300
SOURCE CODE PAGE
1 76
-------
* 17*1,7*2,2*3.19*4, 15*1,9*2, 21*4, BIG00810
* 15*1,9*2, 21*4, 15*1,9*2, 21**, BIGQ0820
* 17*1 ,7*2,5*3 ,U*4 , 17*1,7*2,5*3,16*4, B1G0083.0
* 17*1,7*2,2*3,19*4, EIGOC&^u
* 17*1,7*2,21*3, 17*1,7*2,21*3, EIG00850
* 17*1,7*2,21*7, 17*1,7*2, 21*4, BI600860
* 17*1,7*2, 21*4, 17*1,7*2, 21*4, BIG0087Q
* 17*1,7*2,21*3, 17*1,7*2,21*3, 81600880
* 17*1,7*2,21*3, BIG00890
* 28*2,17*3, 23*2,17*3, BIG00900
* 28*2,17*3, 27*2,1F>4, BIG00910
* 27*2,1**4, 27*2,1^*4, BIG00920
* 25*2,17*3, 25*2,17*3, BIGOQ930
* 25*2,17*3, BIG 00940
* 27*1,18*2,27*1,18*2 ,27*1,1F*2, EIG00950
* 27*1,1C*2,27*1,18*2 ,27*1,1?*2, BIG00960
* ?7*1,1"*2,27*1,18*2,27*1,1P*2 / BIG00970
C BIG009PO
DATA HDIN OX/1 9*1,4*2,5*3.17*A, BIG 00990
* 19*1,4*2,1*3,21*4, EIG01000
* 19*1 ,4*2 ,5*5 ,17*4 / BIG01010
C B1G01020
C B1G01030
(••**•********•*********** + •*** + •»************** + ************* ****************BIG01040
C BIG01050
I FCINITFL .NE .1) GO TO 177 fcIG01060
C HERE 1ST TirE 8IG01070
INITFL = 0 BIGQlOSO
S FE'd ) = Z6.0 BIG01090
SFP(2) = 16.0 BIG01100
SFT(^) = 26.0 B1G01110
CALL SPFCLX(SPEt,SPBOT) BIGQ1120
C BIG01130
C 61601140
CALL GFTCUM(CUMMIL) BIGQ1150
C BIG01160
C BIG01170
C***********************************************************************B1G01 180
C 81601190
177 CONTINUE BIG01200
SOURCE CODE PAGE 177
-------
NDIX A. ISNAP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION A6ENC1
C BIG01210
CALL SPFCLX(SPD,SPRACK) BIGQ122C
C PIG01230
( BIG012AQ
I F (ALHFLG .E <- .1 ) CALL AL U H ( C Y , AC , X L 0 A D t T R A I LR » PC C 0 , PCC C , A F SH III"1) B1G0125Q
( BIG01260
(*******
-------
Af f£ NO J X A
ISMAP MOD E U
COMPUTER PROGRAM SOURCE CODE
ENVIRON* EN 1M- PROTECTION * GE *
JGX = G(I*YC, I FE JN , I'^ODE )
C
PC 500 IP = 1,3
C
C**DEFAULT
C
IE6N = 1EQNARCMYC,IP.IKEJN,IMODE>
C
c****************************************
C
IF(ALTFLG.EG.O) GO TO 777
r
DO 450 ICH = 1, Nf«YALT
I f (ALTKODd ,ICH) .EO ,I*V) GO TO 877
450 CONTINUE
GO TO 550
877 CONTINUE
O*HERE FOR ALTERATION
I ALT = ALTKODCIP+1,ICH)
C
IF(IALT.EQ.O) GO TO 777
IF(IALT.EQ.1) IEQN = 3
I F(IALT.GT.1) I EON = 4
777 CONTINUE
C
C
550 CONTINUE
C
FACL = FCO
FACM = FHO
I FdEQN.LT.2) GO TO 88£
FACL = FCC
FACM = FMC
888 FACR = (1.0 - FACL - FACr)
C
C***********#********************************
C
DENOM = D1(IEON,IP) + DI < I FON , IP ) *VMTAGI
C
EIG01610
BIG01620
EIG01630
BIG0164C
BI601650
BIG01660
BIG01670
BIG01680
BIG01690
BIG01700
BIG01710
BIG01720
BIG01730
BIG0174Q
BIG01750
BIG01760
B1G01770
BIG01780
BI601790
BIG01800
BIG01810
B1G01820
BIGOtS30
BIG01840
BI601&50
BIG01860
BIG01870
BIG01880
BIGQ1890
BIG01900
BIG01910
BIG01920
BIG01930
BIG019AQ
BIG01950
BIG01960
BIG01980
BIG01990
BIG02000
SOURCE CODE PAGE
179
-------
APPENDIX A. ISN.AP MODEL COf'PUTER PROGRAM SOURCE CODE, E N VI h 0 Nv E N T AL PROTECTION A GE N
c
c
c
c
c
c
c
c
c
c
c
c
500
C
C* * *
* * '
c
c
c
c
c
c
LEFT -- FALL * ( E * P C C ( I F 0 " , 1 , I f ) + T * C ( I E ° N , 2 , I P > > + C ( I F.C5 N , 2 , 1 P ) +
* C ( 1 EKN ,4, J D* vr-TiGI ) * SPE-ACK(Z,1,IP)/SPr!OT(2,1,IP)
^lDDLE-FACM*(C(JF3r\',5fIP)+r(IEQN,6,JP) + VMTAGE)
* *SPbACK(IGX,",Ip)/-:pPOT(lOX,3.IP)
RIGHT=FACR*(C(IEON,7,IP)-»C(ie&N,£,IP)*VMTAr;E)
* *SPBACK (IGX.2.IP)/SPl'OTUGX.2,IP)
TCP = LEFT + fUDDLr + P 1 G H T
FACTOR = TOP/DENOM
I FULHFLG.EC. .1 ) FACTOR = F A C T OP + AL H R F T ( I , 1 * 00 E , 1 P )
^OD2 = IhODE
IF(INODE.EQ.A) I^OD2 = 6
C f RETCI ,IP, irOD2) = FACTTR
CCMTI NUE
fc + *wTk£fc^ '^1*'*'**i*'1**'A'A'A'>TA--* •*•* •*•* A^A1*'* •* *A •i-^-A*'A' + -Ap-A -A *•*•* -ft -it •#•* -Aik- *iA'**-^ik'A-i*-'A'+-A-'^^-A-^^
FOR MOOES A AND 5
DATA ATR/ 2. Ac. 1.14. 1 . r: 6 , 1.54,
* 1 .74, 1 .54, 1 .24, O.A2f
* .L51, .S1Z, . £?D, .76 A,
* 0.94,0.^4, . «? Z 0 , 1 . 2 0 ,
* 1 . A A, 1 . A*. , 1.20,1.44,
* 0.62, H./ 2, 0.72, 1.00 /
DATA PTR/ -.153, -.065, -.0*6, -.071,
e i GO? 010
GIG 02 020
E 1602030
B1G020AO
B JG02050
BIG02060
61G0207Q
B1G02Q80
BIG0209Q
BIGOP100
BIG02110
B JG02120
P1G02130
P1G021 AO
EIG0215U
B 1 G 02 1 6 0
BIG02170
BIG02180
BIG02190
BIG02200
PIG02210
BIG02220
B1G02230
BIG02240
BIG0225Q
BIG02260
kn> T/*M^O7n
B IG DC c f U
BIG022SO
BIG0229G
BIG02300
BIG0231C
BIG02320
BIG02330
BIG0234Q
BIG02350
B1G02360
B1G02370
DIG023SO
BIG02390
61602*00
SOURCE CODE PAGE 1.8O
-------
•fr _ 1 1 "7 '"iO'7 ,~\ ~7 - O7P
— • I I f » — m J t , - • U f C , — . n J) C ,
* •!." C 7 <• » . r' ijc 4 , . C' 0 • j 1 • • 01 i.' 0 ,
* -.055, -.055, -.051, -.072,
* -.043, -.043, -.054, -.074 /
DATA CTR/ .0016, .0004. .0009, -.0003,
* .0015, .0010, .0003, .0004,
* .0000, .9000, .onoo, .0000,
* .0004, .0004, .0005, .0^06,
* .roio, .nuio, .ouoe, .000?,
* .T006, .0006, .0009, .0012 /
I F (TRKFLG .EO . 1 ) CALL T« K OPC ( C Y , HC I, f,T , HH U GT , HG Cl D , HD C I D)
C IF(SP3FLG.E6.0) SPAV = SPD (1 ) / ( 1 .37773^6 - (PCCC* .7O/79•421)
IF(SP3FLG.EQ.O) SPAV = 3P1
C I F (SPZFLG ,EQ .1) SPAV = S P t) ( 1 ) / ( 1 . 4 1 11 44 0 6 - ( PC C C* . 0041 1 1 44 06 ) )
IMSP3FLG.E&.1) SPAV = SPD(^)
C I F (SF3FLG.EG .1) SPfV = A v I N 1 ( SP D (1 ) , $ PD ( 2 ) )
O**ELIf"INA TE TWO L1MEC ACOVF
C
C
DO 700 I M 00 F= A,5
ir = IVODE-?
DO 700 IP = 1,3
c
I f- Y 1 = C Y -1 9
CO 700 ItfY = IMY1,CY
IMYP = IMY - 50
IF(U'YP.LT.I) I M Y P = 1
C
C
C
C
I A = 20-rCY-IMY)
1NDX = HDINDV (IMYP, I r E J N' )
I F(IP .FQ .3.AND. l^ODE . E'J .4 ) GO TO 7?b
C FPET (I X ,IP, INODF ) = EXP (ATR( INDX,IP,I») *
PTR (INDXTIP,1M)*?PAV -»• CTR ( IN D X , I P , Iv ) * S P A V *S P A V)
B IG02410
E IG0242G
E IG02430
BIG02440
E• J602A50
BIG02460
BIG02470
BIG024SO
BIG02490
BIG02500
fcIG02510
BIG02520
BIG02530
BIG02540
BIG02550
BIG02560
BIG0257Q
BIG02580
B1G0259Q
BIG02600
BIG02610
BIG02620
BIG02630
BIG02640
B1G02650
B1G0266C
B1G02670
B IG02680
BIG02690
E1G02700
B1G0271C
BIG02720
BIG02730
B1G0274Q
BIG0275U
tIG0276Q
BIG02770
BIG0278Q
B 1G0279U
BIG02eOG
SOURCE CODE PAGE
181
-------
APPENDIX A .
I ? l A P N 0 0 f L
COrPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION A&EN
C
C ( TO ( 'c r
770 CCMTIMIE
C
C F PL T (I X , IP , IPODr ) = ATR CIML'X ,1 P , If ) * L T R f I W DX , I p , I *. ) * S F A V
C
6.-. P CONTINUE
C
IFCTRKFLG.EC.1) C F R E T ( I X , I P , I K'O D E ) = CFRET(IX,IP,ir;OOE)*
7CT C CM! I NUE
RETURN
C
f DEBUG SUP.CHK
fc IG02c 1 0
B 160? 8 50
BIG0266LI
BlG02d70
BIG02&PO
BIG0289G
bIGO?90U
6IG02910
BIG02920
BIG0293U
BIGO?95C
B IGO?96Q
SOURCE CODE PAGE
-------
rUJROUTINEINITEVChMYALT.ALTKOO) I NX 00 010
( I NX00020
CC**ON/FLGCer/ALTFLG,ALHFLG,TRKFLG,IRDFLG,Sr:!FLG.NMHFLG,IDLFLG. I NX 00030
R I'NF FLGttfYMPFG, ICEVFf, ,r>RT| LG , IFCFM INXOOG4C
INTEGER ALHFLG,7PK. FLG,ALTFLG.ALTKOD(4,2C>,CY.MSFLG,SP3FLG, INXQP050
* NtfHFLG.IDLFLG,UNFFLG.KYrRFG INXODOtU
C INX00070
CALL bEFGEN IhXOOOPO
c i NXor090
CALL CCEVAX 1NX001CO
C I N X 00 1 1 0
IF (ALTFLG.CO .1 ) CALL EF.«LTX( N^ YAL T , AL T KOO ) INX001PO
C JNX00130
C INXOOUO
RLTURN JNXOD150
C 1NX00160
END INX00170
SOURCE CODE PAGE 183
-------
AF PF KDI X A .
1 S !•', A F M 0 D F L
COMPUTER PROGRAM SOURCE CODEt
ENVIRONMENTAL PROTECTION A6E>
P10
c
850
C
C
f
c
TFCALY
C C?*rON/MYMCCM/« YM ,f YF ,T F
fcEAL TFNORM(6),MYM(20,f) ,NYK(.-0,6),TF(?0,6)
DO E50 M = 1 ,6
TFNORM(M) = 0.0
DO 810 I = 1,20
TFNORM(f') - TFNORM(M) •» f YM ( I ,M ) * M YR ( I , M)
DO 820 1 = 1 t?0
TF(21-I,M) = ( KYM (I ,M)*f^YR (J ,M) )/TFNORM(M)
C CNT I NUE
RCTUPN
DEBUG SUPCHI-
END
TFC00010
TFC00020
TFC00030
TFC00050
TFC00060
TFCOC070
TFC00080
TFC00090
TFC00100
TFC00110
TFC00120
TFC00130
TFCOOUO
TFC00150
TFC00160
TFC00170
TFC00180
TFC00190
SOURCE CODF
-------
SL/BRPUTirjESFFCLXCSP/'RA.'-ppACK) SPF00010
(OfNON/ACOf-'/A SPF00020
REAL SPARACJ) ,SPrACK(1P , 7»?) ,A(6,1Tt3) SFF00030
C SPFOOOAG
DO 30 IP = 1,3 SFF00050
D020lG=1,1g SPF00060
JGG = IG SPF00070
DO 10 IS = 1,3 SFF00080
SUM = A(6,IGG , IP) SFFOOOCQ
S = Sp/^RA (IS) SFF00100
DO c I = 1 , 5 SPF00110
SUf- = SUK*S + A (6-J , 1GG,IF ) SPF0012Q
5 CONTINUE SPF0013Q
SCF=EXP(SUf^) SFF00140
IF(IP.EQ.3)!TCF=SUfi SPF00150
SPFJACK(IG,IS,1P) = SCF SPFOP160
10 CONTlNUF SPF00170
20 CONTINUE SPFOOIbO
JO CONTINUE SF'FOQ19Q
RtTUPN SPF00200
C DfcPUG SUPCHK SPF0021Q
END SF-FDD 22Q
SOURCE CODE PAGE
-------
rrr M^DTL COMPUTER PROC-RAf SOURCE CODE. ENVIRONMENTAL PROTECTION A&ENC
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
R
p
R
R
P
I
A
I
I
P
0
*
*
*
*
*
*
C
( [ K 0
C >' P, 0
c * iV o
OPKO
GK^O
0*MO
OPKO
OPMO
I' *S X 0
CM MO
tAL
EAL
EAL
EAL
EAL
NTEC
NTEG
NTE G
ATA
ATA
ALL
IIT J f. L
N/RFGC
M/BEFC
N/FJASE
N/DELC
N/IDLB
N/ I OLD
N/I DLC
N / I N D X
N / M Y M C
E-ASE3R
IDLFJ3R
MPNtfTH
BE F (20
CUMMIL
EP ALH
NIMH
EP IND
ER I^AX
M A X A G E
NONMTH
GF TCUM
0
C
C
0
c
c
0
c
0
(
(
(
«
(
F
F
X
A
/
/
(
M
M
M
M
M
r
ff*
h
M
1
1
4
*1
2
I
L
7
G
1
C
r
/
/
/
/
/
/
/
/
/
0
0
5
L
0
G
G
P
E
9
2
2
2
4
4
U
U
i
&
o
0
I
I
I
I
V
»
t
»
»
«
t
«
(
(
t
4
4
C
4
5
5
M
R
E
A
E
D
D
0
N
Y
3
7
_J
6
3
6
T
I
3
6
1
*
*
*
*
*
*
K
E
F
C
L
L
E
L
D
n
«
t
)
•
)
p
L'
n
)
o
•
.
.
.
t
•
I
Ft. G,ALHFLC,Tf'KFLG.IRDrLGt';F'TFLG.MfHFLG.IDLFLGi
F L b , N Y f i r F G , I ,' . F L G . I C E V r G , P P T F LG , I F 0 RW
JM
E7 R
3R
13? R
L7 R
Br F
X7 R
, '«• Y P , T F
6,3) ,OLL3P (10,3,6,3)
6 , 3 ) , I D E L 7; R ( 1 0 , 3 , 6 , 3 )
6) , IDLfcEF (iiO ,26 ,3,6)
,*UM?0,6),MYR(20,6),TF(2n,6)
KFLG,ALTFLG,C,SFLG,SP3FLG,
LFLG,UNEFLG.NYKRFG,PRTFLG
, ? , £ , 3 >
,19,1?, 19, 19/
95 , 2 1 * . ? 5 t
O r "> 1 -4 'V c
v-' f C I * • - J «
^r , 4*. 95 , 17*. 8 5 ,
9C , c*."5 . 13*. £5 ,
°' ,
95 /
L)
EM F DC 010
t>EFOCOZO
6EF00030
BE F 00 040
EbFOOOSO
BEFQ0060
PEF 00070
BEFOOOgO
BEF0009Q
E-EF00100
BEF001 1 0
BEF00120
BEF00130
t EF00140
GEF00150
BEF00160
BEF001 70
6EF001SO
PEF00190
BEF0020Q
BEF00210
BEF00220
BEF00230
BEF0024Q
BEF00250
6EF00260
BEF00270
BEF00280
BEF00290
BEF00300
PEF00310
BEF00320
BEF00330
BEF00340
6EF00360
PEF00370
0EF00320
Be c n o T o f\
E F 00 i V u
EEF00400
SOURCE CODE PAGE 1 fc6
-------
r 0 100 I MOO £ = 1.6 BEFOOL 1C
C E E F 00 ^ 2 GF*n tiL3F (I fjOX,IP , IMODFj.I RE JN ) BEF00690
c bEF00700
IULBEFCIA3,ICYT,IF,irODE) = BEF00710
* IDLb^RC IMDX , IP, If-'CDF .IPF JN) •> BEFC0720
* Vr'T^E*JDFL:K(lNDX,IP,I*ODE.IREJN) EEF00730
c BEFOG740
100 CONTINUE BEF00750
DO 450 1=1,;0 BEF00760
DO 450 J-1,26 BEF00770
00 4 SO IM = 1,6 BEFOC780
I F
-------
A.
ir.rr.p p;ODri_
COMPUTER HROGRAP SOURCE CODE
ENVIRONMENTAL PROTECTION AGENC
I
C WF:ITE(6.444)CUMniL
AA^. FORMAT(1X,mF£.0)
C
C DEeuGSUPCHIt
C
RETURN
FNT
PEF0081CJ
FEFOO&20
BEF00830
EEFOO&AO
&EF00850
BEF00860
BEFOQ870
BEF00880
BEF008PG
6EF009QO
BEF00910
S OUR c f r nnc
-------
SlitKOUTIML C ETru," (C U.MKJ L ) GET0001G
C GETOOOZO
f ( M' ON/M YttCCr./'I Y".Dl.';i ,PiYf< ,TF GET00030
C CETOOCKO
P'EAL CUMMIL (rO,o ) ,»< Yf-' (?U ,6) ,M YMDUM (20 ,f ) ,rY R(20,M , TF (20,6) GETQ005U
REAL FPACU,6> GET00060
DATA FRAC/ GET0007Q
* .75, .375, .25, .['75, GET 00 06 Q
* .75 , .375 , .25 , .875 , GET0009Q
* .75 , .^75 , .25 . . ?-75 , 6ET00100
* .50,.?5..50,.75, GET00110
* .50 , .25 . .50 , .75 , GET00120
* .50 , .25 . .5^ , .75 / GET00130
C GET00140
00 10 11=1,6 GET00150
PO 10 12=1,20 GETOC160
10 MY»(J2,I1) = MYMDUM (J 2. I DMOUOOO. GETOQ170
C GET00180
DO 100 If=1 .6 GET00190
CUM^lL(1tIM)="Y!'(1,IK)*FRAC(2,ir<) GET 00 200
D09Pl=r,2fJ GET 00 210
SUl« = 0. GET00220
SUM2=0. GET00230
11=1-1 GET002AO
DOtOJ=1,II GET00250
80 SUM=SUM+^YM(J,IM) GETOD260
111=11-1 GET0027Q
JF(III.EC.O)GOT074 GET00280
0070 L = 1 ,111 GET0029Q
70 SUM2 = SUM2-H1Yf!(L»TN) GET 00 300
C GET00310
7A CONTINUE GET00320
T1 =SUM*MYM (I , 71-1) *FRAC (c. If ) GET 00 330
T? =<:ur2 + r"YM( 11 ,ifO*FH tcc^, IM ) GET003Ao
T1=T1*FRAC(1,TK) GET0035G
T?=T2*FRAC(3,IM) GETQ0360
TSUr=T1+T2 GLT0037C
00 ClK^ILf I ,ir.)=T5UM GET003£0
100 CONTINUE GET0039Q
C
SOURCE CODE PAGE
-------
AT PF f,(> 1 X A.
1 S !'< A P Pi r> D
SOIIRCF CODF,
ENVI RONI" EN'TAL PROTECTION A GE NC
C I-' I I T f ( ( , £ <, 4 ) C LI P " I L
4 ,,/. F OF v A T( 1 > TU'F^ . 0)
C
P L 7 U P N
C
DtfcUG SUPCHK
tf TODA10
Gf. TOO A 20
G E T 00 4 3 0
GETOQ44U
&ETOCA50
GETOCU60
GET 00470
SOURCE CODE FAGE
1 90
-------
DIX />„ ISrAP fiOD-L C O r F U T E R PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION AGENCY
S LffROUTI f.'£ t FAL T X( \T'YAL T , ALTKOD ) EFA0001U
< EFAOOC2G
C O^ON/BFFCOK/rtF. r EFA0003Q
C EFAOD04Q
INTEGER ALTKODU ,20) ,Kvi YALT , c YI ,P, TSTol (3) ,r,Y I. 1C Y EFA00050
C EFA00060
RtAlbF. F(20,26,3,6),EFREP(20,4,:7> EFA00070
C EFA00080
DATA F:FREP/1.0,1.2,1.4,1.6,1.c,2.0,2.2,2.4.2.6,2.8,3.0,3.0,3.0. E FA00090
* 0.6,0.7,0.8.1 .0,1.1,1.2,1.3,1 .4, 1 .6,1 .7, 3*1.8, EFAQOtQO
* D.27,0.32,0.38,0.43,0.49.0.54,0.59,0.65,0.70,0.76,3*0.21,17*0-, EFA0011U
* 21.7,26.8.30.0,3?.1,76.^.39.4, 42.5,45.7.4fc.8,4* 51.9, EFA 00120
* 6. 9 8. 1 0.1 Z, 13. 26. 16.40,1r;. 54.22.66,25. 82, 28.96.32.10,4* 35.24, E FA 00130
* ;.2,4.l6,6.12,?.r:C,1':.04.12..13.(36,1c.92.17.88.4*19.P4, EFA0014Q
* 13*0.0, E FA00150
* ?.00, 2.06,2.12,2.1f,2.24,2.30,2.36,2.42,2.48.2.54,3*2.60, EFA 00160
* 1. 50,1.56, 1.62,1.6F ,1.74.1. ISO,1.^6,1.92,1.96,2. 04,3*2.10, EFAQ0170
* 1.00,1.04,1.33,1.12,1.16,1.20,1.24,1.2?,1.32.1.36,3*1.40, EFAQ01SO
* 0.24,0.29,0.34,0.40,') .C6,0.7?,0.90,1.1 ,1.3,1.5,3*1.7.84*0. / EFAQOl^O
C EFA002QU
DC200I=1,N1YALT EFA00210
t EFA0022G
rYI1 = ALTKOD(1,1) - 69 EFA00230
1STD1(1) = ALTKOD(2,1) EFA00240
ISTD1<2) = AL-TKOP (7,1 ) EFA00250
ISTD1C?) - ALTKOD(4,I) EFA0026Q
( EFA00270
DO 110 P = 1 ,7, E FA0028Q
ICODEl^I5TDl(r>) EFA00290
JF (ICODE1 ,EQ .0) GO TO 110 EFA00300
DO 100 K= 1.20 EFA00310
1R[V = 21-K EFA00320
ivi = «-1 EFA00330
ICY=MYI1+TMl EFA0034Q
ir(ICY.GT.26)bOTOlOO EFA 00350
tEF(IREV,TCY,P,1) - hF«EP(K,KOOE1,P) EFA00360
1(10 CONTir.'UF E FA 00 370
C EFA003SO
110 CONTINUE EFA00390
C EFA00400
SOURCE CODE PAGE 1 S>1
-------
A r r F M> i x A .
5 <•' A r N o D i L
I f) f-'. P U T E P r R G G P A w SOLIRCf CODE,
ENVIRONMENTAL PROTECTION A GE NO
. I'O
c
c
c
c
C CN T ] MJE
P L T U TV Iv
nipuc SUPCHK
F ND
E FAOOA10
E FAOCA20
E FAOfK3Q
E FAOCA40
E FAOCU50
E FA00460
E FAOC47G
SOURCE CODE PAGE
192
-------
tlDlX A. ISfAP MPDFL C O f, P LI T E P P R O G K 1 >- SOURCE CODF, ENVIRONMENTAL PROTECTION A GE Nl '
SUFF'CUTINE CCEVAX CCEOD010
C CCEOPO^G
COY?-ON/CF VCOr/CCFVP F CCE0003Q
r C" M 0 U / R E 6 C 0I" /1 R F J K c C E 00 0 4 0
C CCEOCG50
INTEGER CY , KY CCE0006Q
REAL CCEV(4?,6.3),CCEV^T(^':,6),LD6SWD(45),CCCAL(45^»3) CCEOCQ70
C DATA LDGSWD/17* ,?0, .77, .77,3* .74,2* .72, 21*. 55/ CcEOOOs^O
C CCE00090
DATA CCEV/1?*6.6?t?*?.33,3*t.53,7*1.76,2*0.60.l6*0.l5» CCE00100
* 12*6.63,5*3.33,3*2.53,7*1.76,2*0.60,16*0.15, CCE00110
* 17*7.70,11*Z.5T ,1*0.60,16*0.15 , CCE00120
* 17*7.70,13*2.00.15*0.30, CCE00130
* 45*0., CCEOC140
* 27*1.6H,1o+O., CCE00150
* CCE00160
* 10*6.6?,T*7.33 ,7*2.53,7*1.76,2*0.60,16*0.15, CCE00170
* 10*6.67,3*3.33,7*2 . 53 ,7*1.76,2*0.60 ,16*0.15, ICE00180
* 17*7.70,1Q*z.57,2*0.60,16*0.15, CCE0019Q
* 17*7.7P,7*2. OU, 2+1 . 19 ,3*0.87,16*0.30, CCE00200
* 4r*0., CCE00210
* Z7*1.60,1i; + 0., CCE00220
* CCE00230
* 1Z*^.00,c*4.5£,3*3.44.6*2.39.1*1.76,2*C.p1,4*.2,1?*.15. CCE00240
* 12*9.00,?*«.52,3*3. 44,6*2.39,1*1.76,2*0.«1,**.2,12*.15, CCE00250
* 17*10.46,9*2.72,?.00.2.72,O.M ,4*0.2,1?*0.15, CCE00260
* 1 7*10.46,16*?.72,12*0.30, CCE00270
* 4C*0., CCE00280
* 27*2.17,U*0. / CCE0029Q
C CCE00300
C CCE00310
DO 100 JMODE = 1,o CCE00320
DO 90 MY = 1,45 CCE0033Q
C CCE0034Q
CCEVRT(MY,IMODE) = CCEV ( "Y,I * OpF,IPtJN) CCEOP 350
( CCE00360
90 CONTINUE CCE00370
10C CONTINUE CCE00380
C CCEOD390
C CCE00400
SOURCE CCDF PAGE 193
-------
AF'Pf NO ] v A .
IS MAP MODFL
COMPUTER PROGRAM SOURCE CODF,
ENVIRONMENTAL PROTECTION AGENC
R L T L) P N
D E P U G S U R C H !•
r f.D
CCE00410
CCE00420
CCEOOA3Q
S OURC E CODE PAGE
194
-------
MODEL C O W F> LI T£ R P R O G~R « l"i S O IJ R C E ~ C O O E • E »>J VI RO NM E N T«t- 1PR OT EtTTl
C
C
C*
C
CJf
*
C
C
(
C
C
C
C
C
C
SUBROUTINE LDVIMX
COMMON/eEFCOM/BEr(20,26f7,6)
CCKMON/IMCOK/ICYIM,ISTRN,ir/iTFLGtMODYPl.MODYR2
COMMON/IMCRED/PCIM
INTEGER CYfCYP,CYIMP,CYIFl,DELY,DEL2.DEL
INTEGER PCIK(19,5,4»2t2>
*IN PCIM: DEL,ISTRIN , I TE C H , I PROGM ,1 POL
IPPOGM = 1 + I^ITFLG
I STRIN = .1MSTRN
IFdSTRN.LT.1D.OR.ISTRN.KT.50) STOP
IREM = ISTRN - (ISTRN/1U)*10
PEW=I REM* .1
I STRIN = ISTRN* .1
STRN = (ISTRN + n.rO*0.1
ISTRIN = STRN
CYIMP = ICYIM
C YIP1 = ICYIM + 1
00 100 IPOL=1 »2
DO 100 CY = C Y I P 1 , •? 5
CYP = CY-69
DELY = CY - CYIf-P
00901 = 1 ,20
MY = CY - (20-1)
MYP = MY - 50
DEL2 = MY - CYIMP
I F(WY .LT.MODYR1 .OR.MY.GT .MODYR2) GO TO 90
IF(MY.LE.CYIWP) DEL = DELY
I F(MY .GT.CYIMP) DEL = DELY - DEL?
TF(DEL.GT.I^) DEI- = 19
LDVOC01 0
LDVO<:020
LDV00030
LDVOD040
LDV0005D
LDV00060
LDV00070
LDV00080
LDV00090
LOVQ0100
LDV0012C
LDV00130
LDV00140
LDV00150
LDV00160
LDV00170
LOV00180
LDV00190
LDV00200
LDV00210
LDV0022Q
LDV00230
LDV002AO
LDV00250
LDV0026Q
LOV00270
LDV002SO
LDV00290
LOV00300
LDV00310
LDV00320
LDV00330
LDV00340
LDV00350
LDV00360
LDV00370
LDV00380
LDV0039Q
LOVOO^OO
SOURCE CODE PAGE 195
-------
APPENDIX A.
I S r A P MPDFL
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION AGENCY
C* T f
C
C*PE
C
90
100
C
C
C
C
ST FOR TECH . 1 , II, III, OT IV
I F (KY .LT.75 > ITECH = 1
IF(MY.GE.75.AND.fY.LF.79> ITFCH = 7
I F(MY .EO .80) ITECH = 3
I F(MY .GE .11 ) ITECH = A
I F(DE L.EQ.0) PCRED = G. 0
1F(DEL.GT.O.AND.ISTRIN.LT.5)
* PCRED = PC IM (DEL,ISTRI N ,1TEC H.IPROGM ,IPOL)*.01
* + R EM* (PC IMCDEL, I STRI NM ,ITECH,IPROG<* , IPOL) -
* PCIM(DEL,I STRIN .ITECH, IPROGM,!POL) )*.01
IF(DEL.GT.O.AND.ISTRIN.EG.5)
* PCRED = PC IM(DEL,I STRIN ,ITECH, 1PROGM,! POL) * . 01
RHAPS SKIP FOR LDT''
PCLE FT - 1. - PCRED
pEF(I,CYP,irOL.1) = PEF(I,CYP,IPOL,1)+P(LEFT
C ONTINUE
CONTINUE
RETURN
DEBUG SUDCHK
END
LDVOO*10
LDVOOA20
LDVOOA30
LDV004AO
LDV00450
LDVOCU60
LDVOOA70
LDV00480
LDVOOA90
LDV00500
LDV00510
LDV005?0
LDVOOS30
LDV005AO
LDV0055G
LOV00560
LDV00570
LDV00580
LDV00590
LDV00600
LOV00610
LDV00620
LDV00630
LDVOC6AO
LDV00650
LDV00660
LOV00670
LDV00680
SOURCE CODE PAGE
196
-------
JCSfAR MOOTL
COMPUTE F? RROGRAM SOURCE CODE!*
V 1 K o-tn P
-ROUTINE />LUH(CY,AC,yLOAD,T^AILR,PCCn,PCCC,ABSHU^)
C
C
INTEGER CY
REAL COMPEF(20,3,6)
REAL XLOAD(3)
REAL PCU(20),CFNIX(20,3,M,COKCCC(6>«CFLET(20,3,6),TFC20f6>
REAL A(20,3,3),U(20,3,3),L(3,3).H(?)
REAL TCFA(3 ) ,TC FB (3) ,TC FC(3>
REAL CFLD(I)
REAL ACCF(3),PCWAC(45)
DATA ACCF/1 .13,1 .18 ,1 .11'/
DATA CFLD/1.06,1.20,1.037
DATA PCWAC715*.56,3*.06,4*.75,2*.£1,21*.617
DATA TCFA/1.32,2.15,1.16/,TCFE!/.75,1.5^,1.2C/,TcFC/.43,.39,.927
IN TCFA ABOVE, 2ND VALUE SHOULD L'E 2.15..IT IS 1.15 FOR ORE. CF.
PCCOLD=PCCC*.C1
DO 207 IP=1,3
H (IP) =1 .
DO 207 Il»> = 1 ,3
DO Z07 1T = 1 ,20
ACIT,IP,IM>=1.
U(IT,IP,IM)=1 .
ALHRETCIT,4 ,IP) = 1 .
CONTINUE
DO 500 IP = 1.3
C
DO 400 IMODf=1,3
C
IFUMODE.EQ.3) GO TO 1^
C*****A: AIR CONDITIONING CORRECTION FACTOR
DO 90 J = 1 ,20
. IMY = CY - (20-1) - 50
PCW(I ) = PCWAt(IKY)
207
C
ALUOP01 Q
A LU 00 020
ALU00030
ALUOOOAO
ALU00050
ALU00060
ALU00070
ALU00080
ALU00090
A LU 001 00
ALU0011C
ALU00120
ALU00130
ALUOOUO
ALU0015Q
ALU00170
ALU00180
ALU00190
ALU00200
ALU00210
ALU00220
ALU00230
ALU00240
ALU00250
ALU0026C
ALU0027C
ALU0028Q
ALU0029Q
ALU00300
ALU00310
ALU00320
ALU00330
ALU003AO
ALU0035Q
ALU00360
ALU00370
ALU003PQ
ALU00390
ALUOOAOO
SOURCE CODE PAGE
197
-------
A t P I K D 1 X A
] s r>- f P M o D F L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION
A U . I nr>DF TI
C 0 NT J N IJ E
= AC*PCU4C(I'-n)*(ACCF(IP)-1.)
1.0
I F(1M ODE . EO . 2 ) 00 TO 15
C*****U: TRAILER TOV'IWG CORRECTION FACTOR
DO 91 1=1,20
IMY = C Y-(20-I)-50
I F(IM Y.GT.24) GO TO 77
C FP-TCFA(IP)
GO TO 78
77 CONTINUE
C FA=(PCCOLD*TCFA (]P ) + ( 1 . - P C CO L D ) * T C F1? ( I P ) ) /
* (PCCOLO + (1 .-PCCOL D) *TCFC UP ) )
C
c
c
15
C ONT INUE
U(I,IMODE,IP) = TRAILK*(CFA-1.)
C ONTINUE
1.0
C CNTI NUE
O****L: ADDITIONAL LOADING CORRECTION FACTOR
L(IMODE,IP) = XLOAD ( I MODF ) *(C FLD (IP)-1. ) + 1.
C
400 CONTINUE
500 CONTINUE
(*****H: HUMIDITY CORRECTION FACTOR
DO 675 IMODE=1,3
H(IMODE) = 1. - .0047*( APSHU"! - 75.)
675 CONTINUE
C
C
DO BOO IP=1,3
DO f00 IMODt =1,3
DO tOO IY = 1 ,20
ALHTMP = A(IY,IHODr , I P)*U(IY, 1MODE ,IP)*L (IMODE, IP )
IFCir.EQ.3) ALHTMP = AL HTMP * H (I MOD E )
ALHRETdY, IMODE , IP) = ALHTMP
£00 CONTINUE
C
ALUOOA1 U
ALUOOA20
ALUOOA30
ALUOOAAO
ALU00450
ALU0046Q
ALUOOA7Q
ALUOOA8Q
ALU00490
ALU00500
ALU00510
ALU00520
ALUOD53Q
ALU005AQ
ALU00550
ALU00560
ALU00570
ALU00580
ALU00590
ALU00600
ALU00610
ALU00620
ALU00630
ALU006AQ
ALU00650
ALU0066Q
ALU0067Q
ALU00680
ALU00690
ALU00700
ALU00710
ALU00720
ALU00730
ALU00740
ALU0075U
ALU00760
ALU00770
ALU00780
ALU00790
ALU00800
SOURCE CODE PAGE
198
-------
APPENDIX A.
ISfiAP MOD T L
COMPUTER PROGRAM SOURCE CODE. ENVIRONMENTAL PROTECTION 'A I
RETURN
DEBUG SUPCHK
END
ALU00610
ALUQ0820
ALU00830
SOURCE CODE PAGE 199
-------
APP[ NO i y A .
I S r A P M 0 D r L
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION AGE
C
C * *
C
C
C
C
C
C
S UF & OUTINE T&KOPC (C Y , HC W f T , H D U G T , H G C I D , H D C I 0 >
C C r* 0 N / K [ T ? / T l< K R f T < 2 0 , ' , r )
I N T L f- E R CY,INDXAR(45>
IN PU.M.AND B2, 1ST INDEX IS YEAR GROUPt 2ND IS VEHTYPE.3RD IS POL
REAL BO (3,2, 3), 81(7.2,3), 62(3, 2, 3)
DATA BO/1. 30 2, -.^84,. 76 2, 2. 058, 2. Q58, .893,
* .814, .354, .320, -.533, -.533, -.2<>9t
* . fc69 , .S8T, . 943. .Ofc5, ,G?5,. 138 /
C
100
C
DATA bl / .177, .1 24 ..131. -.00 5, -.00 5, .015,
-.03 6,. 106.. 14°, -.03, -.03,. 03,
.17: , .016, .GOoi, .02, .02, .023 /
DATA £2/-.065,-.01,-.047,-.014.-.014.-.006,
* .01 (-,-.024, -.04 5, . 043 , .043, .003,
* -.054 ,- .003,-.012,.OOt, .002 , .001 /
DATA INDXAR/19*1,4*2,2?*T/
DO 100 I F Y = 1 , Z 0
y.\ = CY - (20-I^Y) - SO
1X-INDXAR(MY)
DO 100 I POL =1,3
TRKRET(IMY,IPOL,1) = BO ( I X , 1 , I POL) + B1 ( IX , 1 , IPOL )*HGWGT* .001
* bl (IX, 1 , IPOD + HGWGT/HGCI D
TRKRFT(IMY,IPOL ,2) = BO (I X , 2 , I POL ) + B1 ( I X , 2 , IPOL ) *HDWGT* .001
* 62 (IX,2 , IPOL)*HDWGT/HDCID
CONTINUE
R ETURN
DEBUG SUBCHK
FND
TRKOOQ10
TPK00020
TRK00030
TRK00040
TRK00050
TRK00060
TRK00070
TRK00080
TRK00090
TRK00100
TRK00110
TRK00120
TRK0013Q
TRK00140
TRKOD150
TRK00160
TRK0017C
TRK00180
TRK00190
TRK00200
TRK00210
TRK00220
TRKQ023Q
TRKOD240
TPK00250
TRK00260
TRK00270
TRK00280
TRK00290
TRK00300
TRK00310
TRK00320
TRK00330
TRK00340
TRK00350
TRK00360
TRK00370
TRK00380
TRKOH390
SOURCE CODE PAGE
200
-------
»MD IX A .
I SF. AF> MODEL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION"
PLOCK DATA
COMMON /LINK/ MLINK .NLANF(?00),X1 (2UO),Y1(200>.*2<200).
1Y2C200), LCAP(200> tf>IST(2rO>, VtL (ZOO) ,LCOK(200 ,3 ) ,
2NSTOPSC200)
INTEGER NSTOPS/200*0/
CO*BOfJ /INTRST/ WIN S , LI N ( 70 , 4 ) , I TYP C C 70 ) , I C Y C L( 70 ) ,
1PH(70,A),CI(70),GCAP(70,4),QUE(70,A)
REAL QUE/280*0.0/
COMMON /PARKz/ PZ « P V ( 50 ) , PL A ( 50 ) , VZ (50 ) , Z V ( 50 ) , PO ,PLS ,
1PLBO,PNOS(50),PLL(^0)
REAL PV/50*0.0/,PLA/rO*0.0/,PLS/15.0/fPLBO/12.0/
COKMON /VEHTYP/ VT . VTPC3 ) ,VTE C3 ) .VTKULT (2) . S7VTP(3,2)
REAL VTP/1.A,14.0,1.C/
FND
EL100010
BL100020
BL100030
BL1000AO
BL100050
6L10006U
BL100070
PL100080
BL100090
BL100100
BL100110
BL100120
BL100130
BLI 00140
SOURCE CODE PAGE
201
-------
PR IMD 1 X A
1 S r A P M 0 D c L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGE
F LCt K DATA
COPKiON/DFT/DETER
DATA U A D 1 /
& 0.1021G419E+01
R D.10487151F-02
8 -C.27256622E-03
8 0.6357612GE+00
& P. 4 4 c
C * -J
61 U
51 7
306
451
797
033
75d
153
292
462
802
,2629
.1
.1
,3
,1
,4
,2
.1
,2
,2
,6
.1
758
236
053
321
325
461
41 2
293
251
750
735
,3-051
,4
,9
, 1
,7
,1
,3
896
259
997
165
82 d
173
r AD3
) ,?A
6476
4127
6291
0358
7134
Pfc.36
7 Sr'Q
165o
17f 3
7926
7652
1054
65^ 5
*988
1263
3£«Q
1887
7422
1491
3292
7568
9890
4453
5999
7101
3908
5567
7 7^3
3314
74?9
*
D
E
E
E
E
E
E
E
E
E
E
E
E
c
c
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
cA D
2(1
-01
+ 00
+ 00
-01
-01
+ 00
-02
-02
+ 00
-01
-02
+ 00
-01
-01
+00
-01
-02
+ 00
-01
-02
+ 00
-01
+ 00
+ 00
-01
-01
+ 00
-01
+ 00
+ 00
4
2,5
, 0
, 0
,-o
. 0
, 0
,-n
, 0
, 0
,-0
, 0
, o
,-o
, o
, 0
,-n
, o
, n
,-o
, 0
, 0
,-n
, o
, 0
,-0
, 0
, 0
,-0
, 0
, o
,-o
),B«
.127
.193
.241
.43P
.615
.27!
.435
.930
.402
.615
.976
.181
.593
.114
.702
.585
.217
.665
.6E2
.195
.461
.620
.21?
.65*
.907
.133
.776
.562
.227
.970
D3(1
5041
9806
3289
1 285
381P
5578
2454
9030
1 443
0432
4737
8993
3933
9247
4496
5237
5831
5044
2657
262«
3399
508
-------
1 S I*! A r* MODIEL
COMPUTER PROGRAM EOl'RCE CODE
PROTECTION"
R
R.
£
£
f>
£
£
QV
p
£
R
8,
8
8
£
£
£
8
Pv
£
£
&
£
R
R
&
K
8
0.1
0.2
-0.3
D.1
D.1
-0.2
P. 2
0.1
0.5
D.2
D.1
0.1
DATA
0.5
0.6
-0.9
0.?
D.7
-C.P
0.2
D.1
0.4
D.2
0.1
0.4
0.2
0.1
0.48
DATA
.351
END
4
-------
APPENDIX A
ISMAP MODC L
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGEN!
c
c
c
C**HC
*
•*
*
•*
*
*
*
•*
*
*
*
*
*
*
*
*
*
C
c**co
*
*
*
*
*
*
*
«•
*
*
*
n
c
p
c
•^
D
-}
c
2
2
2
2
2
2
2
-i
c
?
2
?
->
£
2
2
2
2
$
D
LOCK DATA
Of'MON/ACOM/AlNl , AT N!; ,AI f'3
LAL AIN1 (6 ,U ) , 4IN2 (6. U ) ,A1N7 (d , 16)
PEED CORRECTION FACTOR COEFFICIENTS
ATA AIN1/
. 2461. -.29097, 0.01 5889, -.47249F-03, 0.694 08
. 3103. -. 26957. 0.0152 99, -.446 69 F-0 3, 0.6481 8
. 1656, -.26999, 0.0144 20, -.433 64 E-0:,0. £5074
. 3 973, -.29998,0. 016135, -.467 49 E -07, 0.729 09
.<• 0 P7, -.30M9.0.016P17,-. 506 84 E-07, 0.75335
. 2322, -. 2P499.0.0153 83 ,-.456 74 E-0 3,0. 67349
. 2522, -.28778. 0.0156 82, -.47318E -03, 0.70795
. D 278, -. 27305, 0.01 5360, -.460 30 E-07, 0.6 7853
. 1506, -.28 3 62, 0.01 53 80, -.442 14E -03, 0.62P73
.2302, -.29365,0. 016240, -,4h415E -03, 0.71159
. 1223.-. 29107, 0. 016910, -.52615E-0 3, O.F02 71
. 1 536. -. 28345, 0. 01 57 00, -.469 76 F -03, 0.6938 3
.D735,-.ze°35,0.017300,-.55471E-03,O.F6420
.3495, -.30496, 0.016 8 42 , -.509 62 E -03 ,0.75952
.1134,-.28568.0.016720,-.?007T-07,0.75507
.1 1 94, -. 29 « 63, 0.01 5450, -.61 654 E-0 3,0.992 06
.6838, -.34463, 0.0195 42, -.625 72? -03, 0.°7844
. 3954, -. 33578, 0.0211 61, -.731 55 E -03, 0.1 2072
PEED CORRECTION FACTOR COEFFICIENTS
ATA AIN2/
1.P198,-.25466,.0152?5,-.4?740E-G3,.75821
2.3399,-.29698,.ni6007,-.47740E-03,.70675
Z. 4415, -. 29147,. 0142 « 6, -.38 78 5E-0 3, .52 97 8
2. 4655, -.30502. .0 1 C 050 . -. 4 739 7E-03 , .6 99Q8
2. 7 78 0, -. 3191 3,. 01531 o, -.4 2 23 3 E-03,. 584 95
2. 7890,-. 3271 1,. 016294, -.46 75 7 E-0 3,. 67191
2.7074,-.33131,.ni76lti.-.53855E-03,.£1740
1.8692,-.27668..P172T3.-.55t2£E-03,.P716?
1. P 213, -. 27205,. 017 030, -.55 20 2E -03,. 86254
?. 0142, -. 29519, .018 63 5,-. 62161 E-03,. 99 36 6
2.0453.-. 31062,. 0204? 5. -.70&53E-03, .11 621
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
E-
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
05
04
05
05
05
05
05
05
05
05
05
05
04
,-.3
92
,-.363
_ T
, •
,- .4
,-•4
, — • 3
,-.4
,-.3
,-.3
,-.^
,-.4
,- .3
,-.5
,-.4
,-.4
,-.6
,-.5
78
19
31
fc3
08
84
46
02
70
94
13
34
37
04
£3
,-.748
.-.4
,-.4
49
03
,-.282
,-.3
,- .3
,-.3
.- .4
,-.5
,-.5
,-.5
,- .7
99
14
74
77
16
11
80E
46E
10E
77E
60E
80E
46E
88E
31E
86E
12E
71 E
11E
96E
19E
02 E
37E
57E
51 E
98E
44E
76E
97E
40E
£OE
98 E
44E
9978E
15
69E
-07,
-07,
-07,
-07.
-07 ,
-07,
-07,
-07,
-07.
-07 ,
-07,
-07.
-07,
-07,
-07.
-07,
-07,
-07/
-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
-07,
B
&
B
B
B
B
B
B
B
B
B
B
e
B
B
B
B
B
B
e
B
b
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
B
e
B
L300010
L300020
L3Q0030
L300040
L300050
L300060
L300070
L300080
L300090
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L300
L3QO
100
110
120
130
140
150
160
170
180
19Q
200
210
220
230
L30024Q
L300
L300
L300
L300
L300
L300
L300
L300
L300
250
260
270
280
290
300
310
320
330
L30034Q
L300
L300
L300
L300
L300
L300
35C
36U
370
380
390
400
S Oil RTF r nr\c o*<-r-
-------
HO
ISMAP MODFC
COMPUTER PROGRAM SOURCE CODE,
'ENVIRONMENTAL PROTECTION Al
* 2. 3167, -.3411
* 2.5752.-.Z28S
* 2. 6845, -.3325
* 2. 1549, -.3291
* 2. 5456, -.3628
* 2. 8393, -.3687
* 2. 4875, -.3915
C
C**NOX SFtED CORRECTl
5,
9,
2 *
2.
5,
6,
6*
ON
.r2C9<.5,-.66389E-03,.10223
. 018975 .-.62 &26E-0 3,. 1009?
.01762 &,-. 52 41 2E-03.. 77222
.021011 .-.68906E-03,.10839
.023277,-.S1504E-03,.13623
.021078,-.67644E-03,.10627
.02707 2. -.9 761 8 E-03,. 16527
FACTOR COEF F1CIENTS
E-04
E-04
E-05
E-04
E-Q4
E-04
E-04
,
,
,
,
,
-.5
-.6
- .4
-.6
-.8
-.6
-1.
9827E-07 .
1273E-07.
3702E-07,
4712E-07,
5591E-07,
3641E-07,
0432E-Q7/
DATA AIN5/
* 2
* 1
* 1
* 1
* 1
* .
* 1
* 1
* 1
* I
* 1
* 1
* .
* 1
* 1
* .
* •
* .
.4442
.6?63
.1265
.2268
.0174
9B760
.1 592
.P866
.5578
.0452
.6326
.44*2
24597
.2817
.5345
70481
7E384
94213
« ^ •
t ™ •
• "" •
* ** •
• "" •
• ** »
t "" •
% ™ •
9 ^ •
» ~ ' 9
» — •
f * •
• .0
• *" •
f ™" •
, .0
,.3
f * •
2501
1183
0393
0444
0118
0195
0444
1612
1130
1940
121S
1224
2419
0804
1255
3815
2855
0423
10
0"
40
9*
96
67
54
90
30
10
60
40
5 ,
87
7C
3.
,1 .3i;29F-02,-.28703F-03,.2
, .65497F-02,-.13714E-03,.1
».26864F-02,-.60g02E-04 ,.4
,.26248E-02,-. 56 71 5 E -04 ,.4
, .91437C-03.-.21574E-04 ,.1
,.U964F-02,-.404COE-04,.?
, ,29643F-02,-.663°9E-04,.5
,.90499F-02,-.18561E-03,.1
,.671S3F-02,-.14341F-03,.1
, .11074^-01 ,-.231 75E-0 3.. 1
,.70302F-P2,-.14629E-'>3,.1
,.70502F-02,-.17106E-03,.1
-.340?4F-02, .6298PE-04 .-.4
075F
0085
7729
342?
£230
2300
2236
3256
0608
6837
0614
257?
1397
,.53574E-P2,-.11gP9E-03,.°0106
,.7P592E-02,-.16943E-D3,.1
-.17391F-02, .32614E-J4 .-.2
E-07 ..19603E-02,-.31V35E-04,
24
,.38625F-02,-.939?»5F-04 ,.7
2549
03S5
.290
5368
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
3
E
-0?
-05
-Oc
-06
-06
-06
-06
-05
-05
-05
-0?
-05
-06
-06
-D5
-06
,0
,0
,0
,0
.0
,0
,0
.0
,0
,0
,0
,0
.0
,0
,0
,0
°E-06
-06
,0
•
•
*
•
•
•
•
•
•
•
»
•
•
*
•
•
t
•
0,
0,
0.
0,
0.
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0,
0.0,
0 /
END
BL30041Q
BL300420
B L 3 00 4 3 0
BL30044Q
BL300450
BL30046Q
BL300470
BL300480
BL300490
BL300500
BL30051Q
E-L300520
BL300530
BL300540
&L300550
BL300560
9L3Q057Q
BL300580
BL300590
BL30P600
BL3006TO
BL300620
BL300630
BL30064Q
BL300650
BL300660
BL30067Q
BL3006EO
BL300690
BL300700
SOURCE CODE PAGE
205
-------
APPE r.DI X A
1 S tf A P MODFL
COMPUTER PROGRAM SOURCF CODE
ENVIRONMENTAL PROTECTION AGE
PLCCK DATA
C
COM P. ON/MY M COM/MY r.PYR.TF
COMMON/LNKCOrA/SPD,TEKP.PrcO,PCHS,PCCC,ws
C
REAL SPD(3).l«S<6),^YM(?0.6)fMYR(20,6),TF(?0,6)
C
C **DE FAULT MODAL SPL IT
DATA MS/.803,.05?,.L)58,.0<.5,.031,.P05/
t
C**ANNUAL AVERAGE MILEAGE A CC Uf UL AT I ON (DIVIDED PY 100000)
DATA K Y M /
*<~l.i59,0.150.0.14nt0.i:51,C'.122,0.113,0.103,0.09<.TC.O£5,0.076.
*0. 06 7, 0.066,0. 062, 0.059,0. 055, 0. 051, 0.050, n. 047, 0 .044 ,0 . 044 ,
*0. 159, 0. 1 50, 0. 140,0. 131, 0. 122, 0. 113,0. 103, 0.0 94, 0.085, 0.0 76,
*0. 067, 0.066, 0.062, 0.059, 0.055, 0.051, 0.050, 0.04-7, 0.04 4, 0.044,
*0. 157, 0.1 57, 0.141 ,0.126,0.11 3, 0.102, 0.094, 0.0 £6, 0.080, 0.0 75,
*0. 071, 0. 0 66, 0. 063, 0. Oe>0, 0. 055, 0.052, 0.050, 0.0 47, P. 044, 0.0 41,
*0 . 190. 0. 1 90, 0.1 7°, 0. 165, 0.1 50, 0.135, 0.1 20, 0.1 06, 0.0 95, 0.0 86,
*0. 07 8 , 0. 070. 0.367, 0.059, 0.053, 0.049, 0.047,0.046, 0.044 ,0.042,
*0. 73 6, 0.736, 0.699, 0.6 33 ,0.566,0.500,0.456,0.412 ,0.382, 0.3 60,
*0. 346, 0.338, 0.331,0. 324, T. 3 U9, 0.287, 0.257, 0.213, 0.1 64 ,0.154,
*. U? 01, .0251,. 0207, .0185 ,.0172, .01 6?, .0155, .0149, .0143, .01 39,
*. U1 35, .0132.. 01 29,. 0127,. 0125, .01 2,3, .01 22, .01 21, .01 20,. 01 19/
C
C**VEHICLE REGISTRATION DISTRIBUTIONS
DATA MYR/
*0. 075 ,0.1 07. 0.10 7, 0.1 06, 0.1 00 ,0.092,0.035,0.077 ,0.066,0.052 ,
*0 . 03 9, 0. 027, 0. 01 p, 0. OH, 0. 00 *, 0. 00 6, 0.005, 0.0 05, 0. 005, 0.0 04,
*0. 061, 0. 095, 0.094, 0.1 03, 0.083, 0.076, 0.076,0.0 63, 0.054,0. 043,
*0. 03 6, 0.024, 0.030, 0.0 2?, 0.026, 0.02 4, 0.022, 0.0 20, 0.018, 0.016,
*C . 03 7, 0. 070, 0.07R, 0.0 86, 0.075, 0.075, 0.075,0.06?, 0.0 59, 0.053,
*0. 044, 0. 032, 0. 038, 0. 0 36, 0. 034, 0. 03 2,0.030,0.02?, 0.0 26, 0.0 24,
*0. 037, 0. 0 70. 0. 07 P, C.O 06, 0.075, 0.075, 0.075, 0.0 68, 0.0 59 ,0.0 53.
*0. 044, 0.032, 0.038, 0.0 36, 0.034, 0.032, 0.030, 0.0 28, 0.0 26 ,0.0 24,
*0. 077, 0. 135. 0. 13^., 0. 1 31, 0. 09 9, 0. 090,0. OB 2, 0.0 62, 0.045, 0.033,
*O.OL5, 0.015, 0.017, 0.011, 0.010,0. DOS, 0.007, 0.006, 0.0 05 ,0.0 04,
*0. 1D5, 0. 225.0. 206, 0.149,0. 097, 0. 062, 0.04 6, 0.0 33, 0.029, 0.0 23,
*r .008 ,0.005 ,0.01 3,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 ,0.0 /
C
BL^.00010
EL40002U
PL400030
6L40004G
BL400050
BL400060
BL400070
BL40008U
BL400090
BL4Q0100
BL40011U
BL400120
BL400130
EL400140
BL40015CJ
BL4Q016Q
BL4Q0170
BL400180
BL400190
BL4Q0200
BL4Q0210
BL400220
BL400230
BL4Q0240
BL400250
BL400260
BL400270
BL400280
BL400290
BL400300
BL40031Q
BL400320
BL4Q0330
BL40034Q
BL4Q0350
BL40036Q
EL400370
BL400380
BL400390
BL40P400
SOURCE CODE PAGE
206
-------
P E ND I X A. ISMAP PIODFU COMPUTER PROGPAM SOURCE COD r » E N\?X R'O »»T^ t!1 **'- V
END OL'iOPAlO
SOURCE CODE PAGE 207
-------
AF'PtNDIX A. ISMAP MODCL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION A GE N
p LOCK DATA EL500010
C BL500020
COMKON/IMDXCf BL500090
C BL500100
C 6666777777777788fi?8B 83 8B 999999 BL500110
C 6789012!A567^V0123656789012345 BL500120
DATA 1NDXA9/ BL500130
*1.1,2f2,2,2,3f2,?f3,3t3,3,7,4.4,A,4,4?ftfA,4,Afftf4,«f4,4,4,Af BL500UO
*1,1,2,2,2,2,2,2,2,3,3,3,7,3,4.5.5,5,5,5,5,5,5,5,5,5,5.5,5,5, BL5Q0150
*1,1,2,2,2,2,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, BL500160
*1,1,2.2,2,2.2,2,2,3,3,3 ,7,4,4,4,4-, 5,5,5,5,5,5,5,5,5,5,5,5,5, BL500170
*1,1,2.2,2,2.2,2,2,?,7,3,?.,4,4,4,4,5,5,5,5f5,5,5,5,5,5t5,5,5, BL50018Q
*1,1,2.?,2,2.2,3,3,4.4,4,4,5,5.5.5,5,5,6,6,6,6,6,6,6,6,6,6,6, BL50019Q
*1,1,1,1,2,2.2,2,?,2,2,2,2,3,3,3,3f4,4,ft,4,4,4,«f4,4,4f4,4,4, BL500200
*1,1,1,1,2,2.2,2.?,2,2,2,2,3,3.3,3.4,4,4,4,4,4,4,4,4,4,4t4f4, PL5Q0210
*1,1,1,1,2,2,2,2,2,2.2,2,2,3,3,3,3,3f3,4,4,4,4,4.4f4,4f4f4f4, BL5QOZ20
*1,1,1,1,2,2.2,2,3,3,3,3,I,4,4,4,4,5,5,^,5,5,5,5,5,5,5,5,5,5, B L5 00 2 2 0
*1,1,1,1,Z,2,2,2,7,3,3,5,3,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5, 8L5Q0240
*1,1,1,1,2,2,2,2,7,7,3,?,3,At4,4,At4,/,,5,5,5,5,5,5,5,5,5,?,5, 8 L5 00 250
*1,1,1,1,1,1,1,1,2,2,2,2,2.3,3.3,3,4,4,4,4,4,4,4,4,4,4,4,4,4, BL500260
*1 ,1,1,1,1,1,1,1,2,2,2,2,?, 3, 3.3, 3, 4, 4, 4, 4, 4, 4 ,4, 4, 4 ,4, 4, 4, 4, 8L500270
*1,1,1,1,1,1,1,1,2,2.2,2,2,3,3,3,3.3,3,4,4,4,4 ,4,4,4,4,4,4,4, BL500280
*1 f1,1 ,1,1,1,1,1 ,1,1 ,1,1 ,?,2,3,3,3,4,4,4, 4,4,4,4, 4,4, 4 ,4,4,4, BL500290
M,1,1,1,1,1.1,1,1,1,1,1,2,2,3,3,3,4,4,4,4,4,4 ,4,4,4,4,4,4 ,4, EL500300
*1,1,1 ,1,1,1,1.1,1,1,1,1,?,?,3,3, 3,3,3,4,4,4,4,4,4,4,4,4,4,4 / BL50031Q
C BL500320
C 666677777777778888888388999999 BL500330
C 678901234567?90123456789012345 BL50034Q
EL500350
E-L500360
BL500370
EL500380
BL5Q0390
BL500400
208
SOURCE CODE PACE
-------
A. ISMAP MODFL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PR OT E CT IO N " A BE 14
*1*1,2.2,2,2,2,3,3,4,4,4,4,5,5,6.6,7,7,7,7,7,7,7,7,7,7,7,7,7, BL500410
*1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, BL500*20
*1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,4,4,4,4,^,4,4,4,4,4,4,4,4,4,4, EL500430
*1,1,1,2,2,2,2,2,?.,?,2,2,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4, BL500440
*1 ,1,1 ,2t2,2.2,3,3,4,4,5,5,5,6,6.6,7,7,7,7,7,7,7,7,7,7,7,7,7, EL500450
*1 ,1,1, 2, 2,2, 2, 3, 3,4, 4, 5, 5,5, 5, 5, 5. 6, 6,6, 6, 6, 6, 6,6, 6, 6, 6, 6, 6, BI_500460
*1 ,1.1 ,2,2,2,2,3,3,4 ,4,5,5,5,6 ,6.6,6,6,7,7,7,7,7,7,7,7,7,7,7, BL50047Q
*1 ,1,1,1,1,1,1,2,2,2,2,3,3,3,3,3, 3.4,4,4,4,4,4, 4,4,4,4,4,4,4, BL500*80
*1,1,1,1,1,1,1,2,2,7,2,3,7,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4, BL500490
*1,1,1,1,1,1,1,2,2,2,2,3,3, 3,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5, BL5Q05QO
*1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,4,5,5,5,5,5,5,5,5,5,5,5,5,5, BL500510
*1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4, 6 1.5 00 520
*1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,3,3,3,3,6,4,4,4,4,4,4,4,4,4,4 / BL5Q0530
C &L50054Q
C 6 fc667777?7777728£f(8?8 g 30909999 BL500550
C f78901234567P90123456789012345 EL500560
DATA INDXHI/ BL.50Q570
*1.1,2,2,2,2,2,2,2,3,3,4,5,5,6,7,7,7,8,8,8.8 .8,8,8,8,8,6,8,8, BL5005CQ
*1,1,2,2,2,2,2,2,2,3,3,4,5,5,6,7,7,7,8,8,8,3,8,8,8,8,8,8,8,8, BL5Q0590
*1,1,2,2,2,2,2,3,3,4,4,5,6,6,7,3,8,8,9,9,9,9,9,9,9,9,9,9,°,
-------
APPENDIX A. 1SMAP M 0 D F |_ COMPUTER PROGRAM SOURCE CODFt ENVIRONMENTAL PROTECTION A6EI
c
c
c
c
*
*
*
it
*
*
*
*
*2
*
*
*
*
*
*
*
*< *E XH
D
*
*
•*
*
A
*
*
A
A
*
*?
A
*
*
*
*
A
*
*+*EXH
D
3 . c g , 4.43, ? . ^ 8 ,
t .4 5, 2.43, 1.11,
6 F . 3 0 , 31.14, 1 6 . 1 U ,
TCJ 4 £ 7 ~> 0 9
5.^9, 2.90, 0.C4 ,
7F.70. 32.40, 14.50,
6.49, 5.04, 1.73,
23.00. 18.54. 22.P2,
72.90.212.70,218.80,
F.PO, 12. bO, 10.50,
4. 30. 4.50, 4.50,
3r.10, 27.00. 27.PQ.
21.40, 20.10, 1°.°0,
F.96. 4.70, 3.r^,
34.40, 20.27, U.P6,
0.14, 0.2?, H.56,
AUST EMI SS ION F ACTOR
ATA bASECA/
4.45, 2 . Cl 0 . 0.29,
6F.30, 30.42, 3.>0,
3.5?, 3.52, 3.12,
t.45, 2.43. 1.11,
6F.30, 31.14, 16.10,
3. 5 3, 4.43, 2.93,
5.99, 2.90, 0.29.
78.70. 32.40, 13.70,
6.49, 5.04, 1.73,
23.90, 18.54, 22.02,
72.90,212.70,218.80,
P. 80. 12.80, 10.50,
4.30, 4.50, 4.50,
35.10, 27.00, 27.00,
21.40, 20.10, 18.61,
6.96, 4.70, 3 . P 2 ,
34.40, 20.27, 14. F6,
C.14, 0.28, 0.56,
AUST EMISSION FACTOR
ATA BASEHI/
2 .4?,
O.'M ,
14.50,
/ i S .
C • " .-> ^
0.31 ,
3.87,
0.41 ,
5.22,
191 .90,
9.10,
2 . d 5 ,
27.00,
5.35,
0.2^,
2.71 ,
0.04 ,
I N T E R C E
0.15,
3.80,
1 .50,
0.20,
1 3.70,
1 .50,
0.16,
3.80,
0.44,
1 £ . 1 6 ,
209.00,1
7.50,
2.85,
27.00,
16.30,
0.82,
2.71,
0.04,
I NTERCE
1 .50,
0.31,
3 .£7.
1 .73.
1 • f ^ V
0.31 ,
3.87.
0.41 ,
1 .46.
15.38, 1
3 .99.
2 .£5,
27.00. 2
5 .35.
O.C .
0.0 .
0.0 .
FT: CALI
0.15 .
3 .CO,
1 .10,
0.15,
3.80,
1 .28,
0.16,
3.80,
0.44,
5 .22,
91.90, 1
8.04.
2.65,
27.00, 2
5 .35,
0.29.
2.71 ,
0.04.
PT : HIGH
0.29,
0.31 ,
3. 87,
0.41.
\J 9 " 1 <
0.31 ,
3.87,
0.41,
1.46,
5.38,
3.99,
2.85,
7.00,
5.35,
0.0 ,
0.0 ,
0.0 .
FORNIA
0.1 5,
3.00,
0.29,
0.15.
3.80,
0. 54,
0.16,
3.80,
0.44,
3.50,
5.38,1
6.20,
2.85,
7.00,2
5.35,
0.29,
2.71,
0.04,
ALTIT
o.o
0.0
0.0
n. o
\J • VJ
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.21
0.15
3.80
0.21
0.16
3.80
0.44
1.46
5.38
3.99
2.85
7.00
5.35
0.29
2.71
0.04
UD E
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
t
,
,
,
,
,
,
,
,
,
,
o.o ,
O.C ,
0.0 ,
C. 0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.29,
2.71 ,
0.04 ,
0.0 ,
O.G ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.G ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.29.
2.71 ,
0.04,
o.o
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
O.G
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.29
2.71
0.04
,BL50081G
,BL50082C
, B L.5 00 8 3 G
.6 L 5 On84 n
v L* L. -^ ^Uv \J
,BL50085U
,BL50086G
,BL500870
»B I_50o88 o
,BL50089Q
,BL500900
,BL50Q91 U
,BL500920
,BL5Q093Q
,EL50094Q
,BL50095Q
/PL500960
BL500970
BL500980
BL500990
.BL501000
,BL501010
,61501020
,BL501030
,BL501040
,BL50105u
,BL501Q60
,BL501070
,BL50108G
»BL5Q1090
,BL501100
.BL501110
,BL501120
,61501130
,BL501 140
,BL501150
,BL501160
/BL50117U
PL501130
BL501 190
BL501200
SOURCE CODE PAGE 210
-------
ISKAP MODEL COMPUTER f* ft O 6 R A M SOURCE CODE. E N V I R O N*I E N T A l_ I»R OT E C T r O l»~
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
C
O**EX
*
•*
*
*
*
*
*
*
*
*
*
•*
*
*
*
*
*
*
C
t. 03. 4.07, 1.T3, 0.70, 1.63. 0.21,
110.04. 76.73, 3P.31, 10.30, 3P.31, 6 . 1 f . .
1.06, 3.00, 1.04, 1.50, 1.90, 1.50,
6.03, 4 . C 7 , 1.79, 1.11, 1.79, 1.52,
110.04, 76.73, 33.15, 16.10, 33.15, 29.90,
1.96. 3.00, 1.94, 1.52, 2.45, 1.52,
P. 12, A.E6, 1.52, 0.47, 0.31, 0.0 ,
127.30. 79.90, 29.90, 8.00, 3. £7, 0.0 ,
3.55, 3.41, 1.07, 1.73, 0.41. 0.0 ,
32.40, 31.05, 36.7?, 6.74, 2.35, 1.46,
441. 50, 344. 20, 35T. 20, 310. 90, 31.70, 15.38,
4.82, 6.67, 6. '4, 5.92, 5.64, 3.99,
5.80, 6.10, 6.10, 3.85, 2.85, 0.0 ,
56.80, 43.70, 43.70. 43.70, 27.00, 0.0 ,
11.80, 13.10, 12.90, 5.35, 0.0 , 0.0 ,
12.10, 7.97, 6 . 7 £ , 0.4?, 0.29, 0.29,
47.10, 27. bO, 20.40, 5.58, 2.71, 2.71,
O.Ofc, 0.18, P. 36, 0.03, 0.04. 0.04,
HAUST EMISSION FACTOR SLOPE: 49 STATE
DATA DEL49/
0.5E, 0.53, 0.2?, 0.23, 0.23, 0.23, 0.0 ,
3. 06, 6.15, 2.80, 2.30, 2.00, 2. 00, 0.0 ,
0.0 , 0.0 , 0.0 , O.OT, 0.16, 0.22, 0.0 ,
0.58, 0.53, 0.41, 0.41, 0.23, 0.23, 0.0 ,
3.06, 6.15, 5.34, 5.3^, 2.00, 2.00, O.C ,
C.O , 0.0 . 0.0 , 0.0 , 0.11, 0.22, 0.0 ,
0.58, 0.53, 0.41, 0.23, 0.23, 0.23, 0.0 ,
3.06, 6.15, 5.34, 2.00, 2.00, 2.00, 0.0 ,
0.0 , 0.0 , 0.11, 0.22, 0.22, 0.22, 0.0 ,
0.58, 0.53, 0.53, 0.53, 1.06, 1.06, 0.0 ,
3.06. 6.15, 6.15, 6.15,10.54,10.54, 0.0 ,
0.0 , 0.0 , 0.0 , 0.0 . 0.34, 0.34, 0.0 ,
O.D , 0.0 , 0.0 , 0.0 , O.C) , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 , 0.0 , 0.0 , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 , 0.0 , 0.0 . 0.0 , 0.0 ,
1.17. 1.03, 1.07, 0.23, 0.0 , 0.0 , 0.0 ,
1.54, 4.00, 4.00, 2.00, 0.0 , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 , 0.22, 0.0 , 0.0 , 0.0 ,
0.
2.
0.
0.
8.
1.
0.
0.
0.
0.
0.
0.
C.
C.
0.
0.
2.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
21
68
93
47
00
07
0
0
0
0
0
0
0
0
0
29
71
04
0
0
0
0
0
0
0
0
0
C
0
0
0
0
0
0
0
0
.
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
0.13
1.40
0.18
0.31
3.67
1.73
0.0
0.0
0.0
0.0
0.0
0.0
0.0
C.O
0.0
0.29
2.71
0.04
0.0
0.0
0.0
0.0
0.0
C.O
0.0
0.0
0.0
0.0
0.0
O.C
0.0
O.C
0.0
0.0
0.0
0.0
,
,
,
,
,
»
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
*
,
,
,
,
,
,
0.13,
1 .40 ,
0.29,
0.0 ,
0.0 .
0.41 .
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.29,
2.71 ,
0.04 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0
0.
1.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
2.
0
/
1
4
2
0
0
0
0
0
0
0
0
0
0
0
0
2
7
•
3,BL501
0,BL501
9,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,BL501
,81501
.BL501
,BL501
9,BL5Q1
1 ,BL5Q1
0/EL501
BL5Q1
6L501
BL501
BL501
BL501
BL501
BL5Q1
BL5Q1
BL5Q1
BL501
BL5Q1
BL501
BL501
fcL501
BL5Q1
BL5Q1
BL5Q1
BL501
BL5Q1
BL5Q1
BL501
BL501
21 0
22Q
230
24Q
250
26Q
270
28Q
290
300
310
320
330
34o
350
360
370
3?0
390
400
410
420
430
440
450
460
470
4BO
490
500
510
520
530
540
550
560
570
580
590
600
SOURCE CODE PAGE 211
-------
APPENDIX ft. ISrAP MOD^L COMPUTER PROGRAM SOURCE CODF, ENVIRONMENTAL PROTECTION A 6E N(
X H
D
*
*
*
*
*
*
*
*
*
A
*
*
+
*
*
*
*
*
XH
D
*
•»
*
*
*
•*
*
*
*
*
*
*-
*
*
it
*
*
A LI S T F.
ATA OF
U.5* ,
j.06,
O.D ,
0.5F ,
3.06,
0.0 ,
0.58 ,
3.06 ,
0.0 ,
0.58 ,
3. 06 ,
0.0 ,
0.0 ,
0.0 ,
C.O ,
0.5P ,
3.06,
C.O ,
AUST E
ATA DF
0.55,
2.B1 ,
0.0 ,
0.55 ,
I.E1 ,
C.O ,
0.55 ,
2.61 ,
0.0 ,
0.55 ,
2.81 ,
O.D ,
C'.D ,
0.0 ,
C.O .
0.55 ,
£.61 ,
MI SSI
LCA/
0.70,
6.40,
0.0 ,
0.53.
6.15 ,
0.0 ,
0.53,
6.15 ,
0.0 ,
0.53,
6.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.53,
6.15,
0.0 ,
MISSI
LHI/
0.55 ,
4.24,
0.0 ,
0.55 ,
4.24.
0.0 ,
0.55,
4 .24 ,
0.0 ,
0.55,
4.24,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.55 ,
4 .24 ,
ON F A C
0.23 ,
2.33,
0.0 ,
0.41,
5.34,
0.0 ,
0.23,
5.34,
0.11,
0.53,
6.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.53,
6.15,
0.0 ,
ON F AC
0.27,
2.80,
0.0 ,
0.41,
5.34,
0.0 ,
0.41,
5.34 ,
0.11 ,
0.55,
4.2^ ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.55,
4.24,
TOR ! L
0.23,
2.33,
0.16,
0.27 ,
5.34 ,
0. 11 ,
0.23,
2.00,
0.22 ,
0.53 ,
6.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23 ,
2.00,
0.22 ,
TOP S L
0.27 ,
2. SO ,
0.0* ,
0.41 ,
5.34,
0.0 ,
0.23 ,
2.00,
0.11 ,
0.55 ,
4. 24 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.27,
2 . 00 ,
Of E : CA
0.23,
2.00,
0.16,
0.23,
2.33 ,
0.22 ,
0.23 ,
2.00,
0.22 ,
0.53,
6. 15,1
0.0 ,
0.0 ,
0.0 ,
O.U ,
0.23.
2.00,
0.22 ,
OPE: HI
0.23 ,
2.bO ,
0.16,
0.41 ,
5.34 ,
0.0 ,
0.23,
2.00,
O.Z2 ,
1.06,
10.54 ,1
0.0 ,
0.0 .
0.0 ,
0.0 ,
O.t3 ,
2.00,
L I F 0 F< N I A
0.23 ,
2.00,
0.22,
0.23,
2.00,
0.22,
0.23,
2.00,
0.22,
0.53,
0.54,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23,
2.00,
0.22,
6H AL
0.23,
2.30,
0.16,
0.41 ,
5.34 ,
0.0 ,
0.0 ,
0.0 ,
n.o ,
1.06,
0.54 ,
0.34,
0.0 ,
0.0 ,
0.0 ,
0.23,
2. On,
0.0 .
0.0 ,
0.22,
0.23,
2.00,
0.22,
0.23,
2.00,
0.22,
1 .06,
10. 54,
0.34,
0.0 ,
0.0 ,
0.0 ,
0.23,
2.00,
0.22,
TiTUDE
0.23,
2.00,
0.16,
0.23,
2.00,
0.11,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.27,
2. 00,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
o.o ,
0.0 ,
0.0 ,
0.23 ,
2.00,
0.22 ,
0.23 ,
2.00 ,
0.22 ,
0.23 ,
2.00,
0. 11 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23 ,
2. 00 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23 ,
2.00,
0.22 ,
0.23,
2.00,
0.22,
0.0 ,
0.0 ,
0.22 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 t
0.0 ,
0.0 ,
0.0 ,
0.23,
2.00,
0.0 .
0.0 ,
o.o ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.23,
2.00,
0.22 /
0.23,
2 .00,
0.22,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.23,
2 .00,
BL501610
BL501620
E-L501630
BL501640
BL501650
BL501660
BL501670
8L5Q1680
BL501690
BL5fj1700
BL501 71 0
PL5Q1720
BL5Q173Q
BL5Q1 74Q
EL501750
BL5Q1 760
BL5Q1770
BL501780
BL501790
BL50180U
BL501810
BL501820
BL501830
BL501840
BL501850
BL501860
BL501870
EL501880
BL501890
BL501900
BL501910
BL501920
BL501930
BL50194Q
BL501950
BL501960
BL501970
BL501980
BL501990
BL5 02000
SOURCE rOnr pace
-------
r»ooei_ coropurtR PROGRAM SOURCE CODE. ENVIRONMENTAL PROTECTION
* G.O , 0.0 . 0.0 . 0.22, 0.22, 0.:?, 0.22. 0.22, 0.22, 0.22 / liL50?OlO
BL5Q2020
EhD BL50Z030
SOURCE CODE PAGE 213
-------
AF Pt
X A
ISMAP MODfL
COMPUTER PROGRAM SOURCE CODE
ENVIRONMENTAL PROTECTION AGENC
<
c
c
c***
c
c***
r
c
c
R
R
IDL
D
*
*
•*
it
+
*
*
+
*
*
*
*
*
*
•*
*
*
*
IDL
D
*
*
*
*
t
*
*
*
*
LOCK DATA
O^'PON/IDLBCf/I
OMtfON/lDLDCM/I
EAL 1DLL49(10,
EAL IDEL49UO,
E EMISSION FAC
ATA IDLB49/
2.01. 0.68,
16.42, 12.73,
0.16, 0. Z6 ,
2.01, 0.68,
16.42, 12.73,
D. 1 6, 0.26 ,
2.93, 1.86,
17.24, 18.62,
0.18, 0.27,
3.85, 0.71,
24.63, 15.70,
0.02, 0.04,
0. 50, 0.40,
1.32. 0.66,
1.11, 1.00,
4.05. 2.12,
0.01, 0.02,
E EMISSION FAC
ATA IDLBCA/
2.01, 0.93,
16.42, 15.0?,
0.16, 0.24,
2.01, 0.68,
16.42, 12.73,
0.16, 0.26,
2.93. 1.86,
17.24. 13.62,
D.1 tj, 0.27,
D L b 4 9 . I D
DFL6 i , ID
3.6) ,1 DL
3,6) , IDE
TOR INTE
0.27,
5.43,
0.16,
n.?3.
2.02,
0.16,
0.24,
1 .P 2 ,
0.18,
3.09.
21.^2, 1
0.02,
0.40,
0.66 .
0.°9,
1 .72,
0.04 .
TOR JNTST
0.04 ,
0.1 3,
0.07,
0 . ? c ,
2.02,
0.16,
O.n?,
1 .72,
0.?5,
LrCA . I
ELCA , I
0 C A ( 1 0
LCAC10
RCEPT :
0.03,
0.8^,
0 . 3 (• ,
0 . c & ,
1 .fc2.
0.25,
0.0* ,
0 .49,
0.04,
0.73,
9.23,
0.02,
0.25,
0.66,
0.27,
0.13,
0.65,
0.01,
R C L P T :
0.02.
0.18,
0.11 ,
G.07,
1 .72,
0.25,
0.04,
0.48,
U.09 ,
DL&HI
1>ELHI
,3,6) ,
,3,6),
49 ST
0.07,
0.41 .
0 .22.
0 .OS,
0.4-3,
0.18.
0.0 ,
0.0 .
0.0 .
0.20,
1 .54,
0.01 ,
0.0 .
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 .
I OLP HI
1DELHI
ATE
0.07
0.0
0.04
0.0
0.0
0.04
0.0
0.0
0.0
0.0
0.0
0.01
0.0
0.0
0.0
0.0
0. 0
0.0
(1
(1
,
,
,
«
,
,
,
,
,
,
,
,
,
,
,
,
f
,
0,3,
0,3,
c.o
0.0
0.2
0.0
0.0
0.0
0.0
o.c
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0. 0
0.0
6)
6)
, 0.0
, 0.0
, o.c
, 0.0
, 0.0
, c.o
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0
T 0
, 0
, 0
, 0
, 0
, o
, 0
, o
, 0
» 0
, o
, o
, 0
, 0
, 0
, o
, 0
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
• 0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
. 0 ,
.0 ,
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
C ALI FORMA
0.0 ,
0.14 ,
0.08 ,
0.04 ,
0.48,
0.21 ,
0.0 ,
0.0 ,
0.0 ,
0.0
0.0
0.02
0.0
0.48
0.09
0.0
0.0
0.0
,
,
,
,
,
,
,
,
,
0.0
0.0
0.02
0.0
0.0
0.04
0.0
0.0
0.0
, 0.0
, 0.0
, 0.0
, c.o
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0
, 0
, 0
, 0
» 0
» 0
, o
, o
, 0
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
.0 ,
r 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
, 0.0
BL600010
BL600020
BL600030
BL600040
EL600050
BL600060
BL600070
BL600080
BL600090
BL600100
.BL600110
,BL60Q1 2Q
,BL60o13o
,E L600 1 * 0
.BL600150
.FL600160
,B L60Q1 7(3
.BL60018Q
»BL6QO 1 90
.BL6002QO
,BL60o21 o
,BL60o22Q
,BL600230
.BL60024Q
,BL600250
,BL60026(J
* D L 6~0 0270
/BL600280
BL600290
BL600300
BL600310
.BL600320
,&L600330
.BL600340
,BL600350
,BL60036Q
,BL600370
.BL600380
.BL600390
,BL6004CC
SOURCE CODE PAGE
-------
ZSMAP MODEL
COMPUTER PROGRAM SOURCE CODE*
ENVIRONMENTAL PROTECTION * 61
c
c*
c
c*
*
•*•
*
*
*
*
*
*
*
**IDL
D
*
*
*
*
*
*
*
*
*
*
*
*
•A
*
*
*
*
it
**IDL
0
*
*
*
*
*
+
*
3 . ? 5 , 0.71, 3 . 0 s> ,
24.63. 15.70, 2 1 . c 2 ,
0.02, 0.04, 0.02,
0.50, 0.40, 0.40,
1.32, 0.66, 0.66,
1.11, 1.00, 0.93,
3.46, 1.81, 1 . 4 d ,
11.57, 6.82, 5.00,
0.01, 0.02, 0.04,
E EM 1SSION FAC TOR IN
ATA IDLBHI/
c . 2 9 , 1.04, 0.24,
20.70. 20.71 , 4 .45,
0.26, 0.19, O.Oc,
2.29. 1.04, 0.?2,
2C.70, 20.71, 5.60,
0.26, 0.19, 0 . 0 a ,
?.40, 3.50, 0.79.
3t.S4, 43.25, 3.75,
0.10. 0.17. n.1 1 ,
4.46, 1.34, 5.? 2,
55.59, 40.68, 56.80,
0.01. 0.03, 0.02,
0.58. 0.75, 0.75.
2.97, 1.71, 1.71,
D.64, 0.64. 0.64,
4.01, 3.59, 2 . ? 7 .
26.07, 6.68, 4.90,
0.01. 0.01, 0.03,
E EMISSION FACTOR SI
ATA IDEL49/
0.1P, 0.20, 0.07, 0.
2.15, 2.92, 0.3^, 0.
0.0 , 0.0 , 0.0 , 0.
0.18, 0.20, 0.1", 0.
2.55, 2.92, 1.56, 1.
0.0 , 0.0 , 0.0 , 0.
0 , 1 P , 0.20, 0.19, 0.
0
4
0
G
0
0
0
0
0
TER
0
3
0
0
2
0
0
1
0
1
T 1
0
0
1
0
0
1
0
OPE
07,
67 ,
03,
19,
56,
0? ,
06,
.1?-,
.40,
.05,
.25,
.66,
.81 ,
.32,
.91 ,
.01 ,
CEPT :
.17,
.01 ,
.06 ,
.28,
.02.
.04 ,
.1?,
.01 ,
.ir ,
.22,
.15,
.01 ,
.34,
.71,
.27,
.20,
.34,
.01,
: 49
0.0
0.59
0.06
0.06
0.25
0.01
0.0
0.05,
4 .04 .
0.05,
0.0 ,
0.0 ,
0 .27,
0.11 ,
0.0 ,
0.0 ,
HIGH
0.24,
4 .48 .
0.28.
0,22,
5 .60.
0.25,
0.03,
0.49,
0.04 ,
0.32,
3.17,
0.01 ,
0.25,
0 .66,
0.0 ,
0.13.
0.65,
0.04,
STATE
, 0.0
, c.c
f o.o?
. 0.0
, O.fj
, 0.0?
, 0.0
0.03,
0.32,
0.04,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.C ,
0.0 ,
ALTiTUD
0.05,
1.81,
0.06,
0.39,
3.75,
0.04,
0.0 ,
0.0 -r
0.0 »
0.20,
1.54,
0.01,
0.0 .
0.0 ,
0.0 ,
0. 0 ,
0.0 ,
0.0 ,
, 0.0 ,
, 0.0 .
, 0.0 ,
T 0.0 ,
, 0.0 ,
, 0.0 ,
, 0.0 ,
0.01 ,
0.0 ,
0.03 ,
O.C ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
E
0.05 ,
C. 84 ,
0.14,
0.12 ,
1.01 .
0.11,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.C ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.03,
0.41 ,
0.02 ,
o.oe ,
0.49,
0.16,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.04,
0.0 ,
0.0,
0.04 ,
0.0 .
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
o.o
0.0
0.0
0.0,
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
,BL60P41 D
.E-L60042o
,BL600430
,61600440
,EL6Qo45 0
»E L60o^6o
,BL60047Q
,BL60(?48o
/BL600490
BL600500
BL600510
BL60P520
,BL600530
,BL600540
,BL600550
,BL6Q0560
BL60057Q
, B l_6 OP 58 0
»B L60Q 5 9 (j
,PL60o6QO
»PL6006 1 0
,BL6Q0620
,BL600630
,8 l_6 Of! 640
, 8 l_6 QO 6 5 Q
,6L600660
,BL6Q0670
,BL60C68Q
,&L60Q690
/BL600700
BL600710
BL600720
BL600730
EiL60074Q
BL600750
BL600760
BL6Q0770
BL600780
BL60079Q
BL600800
SOURCE CODE PAGE
215
-------
APPE NPI X A .
ISMAF' MODFL
COMPUTER PROGRAM SOURCE CODE,
ENVIRONMENTAL PROTECTION A GE N
c
c* +
c
c**
*
*
*
A
A
*
*
*
*
A
A
*I OL
D
A
A-
*
A
*
*
A
A
A
A
A
A
A
A
A
*
A
*
*IDL
D
A
A
*
*
A
c .55 , 2 .92 , 1.56,
O.D , 0.0 . 0.01 ,
U . 1 P , 0.20, 0 . 2 n ,
2.55 , 2 .92 . 2.9?,
U.D , 0.0 , 0.0 ,
0.0 , 0.0 , 0.0 ,
U.D , 0.0 , 0.0 ,
0.0 . O.U , 0.0 ,
0.36 , 0 .62 , 0.6?,
1.2?. 1.12, 1.12,
U.D , 0.0 , 0.0 ,
E EMISSION FACTOR
ATA 1DELCA/
L.1? , 0.31 , 0.01 ,
1.55, 3.15 , O.OP,
U.D , 0.0 . 0.0 ,
0.1?, 0.20, 0.15,
2.55, 2.92 , 1.56,
U.D , O.D , 0.0 ,
O.U- , 0.20, 0.0 r> ,
2.55 , 2.92, 1.56,
U.D , 0.0 , 0.0?,
0.1 E , 0.20, 0.20,
2.55 , 2 .92, 2.92,
O.D , 0.0 , 0.0 ,
U.D , 0.0 , 0.0 ,
O.D , 0.0 , 0.0 ,
C.O , 0,0 , 0.0 ,
0.31 , 0.28. 0.2?,
1.EO , 3.61 , 3.61 ,
0.0 , 0.0 , 0.0 ,
E EMISSION FACTOR
ATA IDELHI/
0.21, 0.14, 0.0?,
0.53, 1.15. H.9P,
U.O , 0.0 , 0.0 ,
(J.21 , 0.14 , 0.0",
0.53, 1.15, 1.24 ,
0.25 ,
0.02 ,
0. 20.
2.92 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.10,
0.4S ,
0.01 ,
SLOPE
0.0 ,
U.O ,
0. 40 ,
5.00 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
: CALIF
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
C.O ,
0.0 ,
0.0 ,
0.0 ,
0 R N I A
0.0 .
0.0 ,
0.0 ,
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 /
6
f!
B
B
B
B
B
B
B
B
e
B
B
L60061 0
L60D&2Q
L60DE30
L600&4 o
L6Q085Q
L6Q0860
L6QO&7G
L600880
L600890
L600900
L600910
L600920
L60C93Q
BL600940
0.01 ,
0.08 ,
O.U ,
0.05 ,
1 .56,
0.02,
O.U5 ,
0.29,
0.04 ,
0.20,
2.92,
0.0 ,
i).0 ,
0.0 ,
0.0 ,
0.12,
1.1? ,
0.0 ,
SLOPE
0.07 ,
Q.E7 ,
0. 04 ,
0.19 ,
1.56,
U.O ,
0.06 ,
0.0 ,
0.05 ,
0.29,
0.04,
0.0 ,
O.U ,
O.U ,
0.20,
2.92 ,
0.0 ,
O.U ,
O.U ,
0.0 ,
0.12,
0.0 ,
0.0 ,
: HIGH
0.07,
0.83 ,
U.06 ,
0.19,
1.56,
O.D ,
0.0 ,
0.0 ,
C.O ,
0.29,
0.04 ,
0.0 ,
0.0 ,
C .0 ,
0.20,
5.00,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
C.O ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.04,
0.0 ,
0.0 ,
0.0 ,
0.40,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 /
ALT ITUOF
0.07,
0.67,
0.06,
0.19,
1 .56,
0.07,
0.59,
0.06,
0.06,
0.25,
0.07,
0. 59 ,
0.0? ,
0.06,
0.25 ,
0.0 ,
0.0 ,
0.08,
0.0 ,
0.0 ,
0.0 ,
0.0 .
0.0 .
0.0 ,
0.0 ,
P
B
B
B
B
B
B
B
e
B
e
B
B
B
B
B
B
B
B
B
B
L600950
L600960
L600970
L60Q9EO
L6QQ990
L6Q1000
L601010
L601020
L6Q1030
L6Q1040
L6Q105Q
L6Q1060
L60107Q
L601080
L6Q1090
L601100
L601110
L601120
L601130
L601UO
L601 150
BL601160
B
B
B
B
L601170
L601180
L60119Q
L6Q1200
SOURCE CODE PAGE
216
-------
A ' I S K A F M O D r L COP-PU^Ef* PP. OGPA~! SOURCE COOE» ENVIRONMENTAL PROTECTION
BL6Q121C
BL6Q1 220
BL6Q1230
6L60124C
BL6Q1250
BL6Q1260
BL6Q1270
BL6Q1 280
BL6Q1290
BL6Q1300
6L601310
EL60132C
' BL6Q133U
BL601340
END BL601350
•*
•*•
*
*
*
*
*
*
*
it
*
+
*
C.
0.
c.
0.
c.
G.
(j.
C.
G.
0.
c.
G.
G.
0 .
1 1 ,
r 7
„! „' *
D ,
21 ,
53,
D ,
D ,
D ,
0 ,
36,
66 ,
0 ,
O.C .
O.U ,
1.15,
0.0 ,
O.U .
1 .15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0 .62 ,
1.12,
0.0 ,
0.0 ,
0. 1-3,
1.5f .
0.01 ,
O.U,
1.15,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.62,
1.12,
0.0 ,
G.G7 ,
0.0? ,
o. 2: ,
0.01 ,
0.20,
2.92 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.10,
0.4' ,
0.0 ,
G . 0 Z ,
0.06,
0.25,
0.02 ,
C. 40 ,
5.00,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.10,
0 . 4 ? ,
O.G1 ,
0.0?,
O.Q .
D.O ,
0.0 ,
0.40,
5.00,
0.0 ,
0.0 ,
C.O ,
0.0 ,
0.0 ,
O.G ,
0.0 ,
0.01 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
O.G ,
0.01 .
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0. G ,
0.0 ,
0.02 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0 ,
0.0
O.G
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
0.0
SOURCE CODE PAGE 217
-------
APfJ[NOJX A. ISrAP MODEL COMPUTER PROGRAM SOURCE CODE, ENVIRONMENTAL PROTECTION AGE»
P L ( C K DATA
C C>CON/ Jf'iCRC D /PC IKHN ,PC I '-'HY , PCI K CN.PC1MCY
I NTLGEP PC1"-HN(1 ^ , r ,4). p C I ;•' H Y (1 9,5 ,4) ,PC IMCNC19
* FC I MCY (19.5,4 )
DATA
* 52,
*
*
*
-*
•a
*
*
•*
*
*
•*
*
*
*
*
n
*
*
DATA
* 5F,
*
*
*
*
*
*
*
*
*
PCIMHN/ 3, 6,11,15,19,24,27,31,35.39,41,42
4, 8,1?,1»,22,2.%74,36,40,42,45.46.49,50
7, 14, 20, 28,34,39, 43, 46, 4C, 52, 54. 55, 57, 5*
8, 15,22,30, 76, 41, £6, 4Q, 52. 54, 56, 5?, 59, 61
t, 16, 23, 31, 77, 42, 46, 5 0,5 3, 55, 57, 59, 60, 61
4. 6. 9, 11, 16, 1^, 20. 2 7, 25,25,29. 30.72,33
6, 11, 16, 20, Z3, 27, 71, 33, 36, 3% 40, 41, 43, 44
10, 18, 24, 2s, 33, 36, 40, 42, 45, 47, 4fe, 50, 51, 53
12, 20. 26, 3?, 37, 40,43. 46, 49, 51, 52, 54, 55, 56
13, 22. 2?, 34, 79, 4 7,^0.40, 51, 54, 55, 57, 58, 59
4, 11, 22, 32, 42, 4^ , ^4,5? ,62, 64, 66, 68,69,71
4. 13, 25, 3 7 , £ 6 , 53, r I. 62, 65, 67, 6 9, 71, 72, 73
4, 15, 2 f , 4 0 t 4 9, 55,60,64,67, 69, 71, 72, 74, 75
5, 17, 71. 47, 51, 5 >; , << 3 . c 6 , 6 r' , 71, 73, 74.75, 76
5, 18, 72, 44, 5 3, 5V, A 3, 67, 70, 7?, 73. 75, 76, 77
3, 7, 14, 2 7. , 71, 3 f , 4 <, . 4 Q . 53,56,53.60,62, 63
3, 7, 15, 24,^3, 40, 46. 51 ,54,57,60,62,63.65
3, 7, 16. 25, "J 4, 41, 47, 51 ,55,5°, ,60. 62,64, 65
3, e , 17,26,75, 42 , 4 a . 5 2 , 5 6 , 5 <•' , 61, 63, 65, 66
3, 8. 17, 27, 7 6, 47, 4 9, 54, 57, 60,62.64, 66, 67
PC I PHY/ 6, 17,1 7,20,25,32 ,35,40,45,47,49,50
9 , U, 19, 2 r , 3 1,36, 43, 45, 50, 51, 5 3 , 54, 55, 56
12, 19, 27, 3r, 41, 44, 51 , 53, 55, 57, 59, 61, 61, 63
1 3, 24, 33, 40, 46, 50, 54, 57, 55, 61, 63, 65, 65, 66
14. 25. 7 5, 42, 43, 57, 5 6. 59, 62. 64, 65. 66. 6 £,,69
9, 13, 15, 1',?2, 26, ?i.,31 , 3 1, 35, 37, 39, 40, 42
13, 16, 20, 2 << , ?. 1.34, 3 c', 41, 43, 44, 45, 47, 48, 50
14, 21, 2 fi , 3 7, 7i, 41, 45, 47, 50,52,53, 54, 56, 57
1 5 , 2 4 , 3 1 , 3 f , 4 1 , 4 4 , 4 {. . 5 0 , 5 ? , 5 4 , 5 6 , 5 g , 5 8 , 60
16,26,7,3,39,43,47, r-0, 5 3 ,5! ,57,59,60,61 ,63
r
, -•
,4
,5
,5
,t
, '
7
9 -
,4
,5
^
, -
,6
,7
,7
,7
,7
,7
,6
,6
.6
,6
,6
,5
,5
,6
,6
,7
,4
,5
,5
,6
,6
,
4
1
9
2
2
5
5
5
7
1
2
4
6
7
£
5
6
7
8
8
3
6
5
8
0
4
2
9
1
4
4
,
9
,
.
,
V
«
.
,
.
,
,
,
,
,
.
,
,
,
,
,
,
.
,
9
,
,
,
.
,
),
46
52
60
63
63
36
46
55
59
61
73
75
77
78
79
66
67
68
69
69
53
58
65
68
70
44
52
60
62
65
,47
,54
,61
,64
,64
,36
,47
,55
,59
,62
,74
,76
,77
»79
,79
,67
,68
,69
,70
,70
,54
,61
,66
,69
,71
,44
,53
,61
,63
,65
,48
.56
,62
,65
,65
.37
, 4?
,57
.60
.63
,74
,77
9 7?
. 79
9fcO
968
,69
.70
,71
.71
,56
,63
.66
,70
.72
,46
,54
,61
.63
,66
,49,
,57,
,63,
,65,
,66,
.78,
,49.
,56,
,61 ,
.64,
.75,
,77,
,79,
,PO,
9 r 1 9
9 t V «
,70,
.71,
,71.
,727
.57,
.63,
,67,
,71.
,72,
,48,
,55,
,62,
.65,
,67,
,P6,
e
B
B
E
B
B
B
B
51, B
B
B
B
B
b
B
B
B
B
B
B
B
B
e
B
P
e
B
B
B
57,8
B
B
B
B
B
B
E
B
B
B
L700
L700
L70C
L700
L700
L70C
1700
L700
L700
L70Q
L7QO
L7QO
L700
L7QO
L700
L70C
L7QO
L700
L70D
L70Q
L700
\_7 on
L700
L7QO
L700
L7QO
L700
L700
L700
L70D
L700
L700
L7QO
L700
L700
L700
L700
L70P
01G
020
030
040
050
060
070
080
090
10G
110
120
130
14Q
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
L700390
L7Q0400
SOURCE CODE PAGE 21£
-------
I S f A P fl O D F |_ COr-'PUTtP PROGRAM SOURCE. CODE. ENVIRONMENTAL PROTECTION
*
•*
*
*
*
*
c
t
DATA
* 50,
*
*
*
•*-
*
*
*
*
*
*
*
*
*
*
DATA
* 62,
*
13
15
7
11
12
14
15
PC 1
9
12
14
1 5
10
17
21
23
Z5
0
0
1
1
2
0
0
1
2
3
PC I
16
20
?2
23
1 7
?6
30
, 1 6 , 5 3 . 6 ? , ( V . 7 f , 7 6 . 7 ? , « 0 , c 1 , P 2 . e ? . ? 3 , L 4 , P 5 .
, 3£ , 5 4 , 6 4 , 7 0 , 74 , 7 7 , 7 9 , J> 1 , £ 2 , p 3 , fc 4 , 8 5 , 8? , 8 6 ,
59 54 64 70 74 77 SO M ^ 7 ** 4 85 F 6 £6 p 7
,24, 36, 52, 54, 65, 66. 6 9, 72, 75, 75, 75, 77, 70, 79,
,29, 45, 56, 63, 63, 70, 74, 76, 76, 78, 80, 8 0,81, 82,
,32, 46, 5P, 65, 69, 72, 75, 76, 77, 80, 81, 81, 82, S3,
,36, 52, 62, 68, 73, 76, 78,80,81,? 2, £3,84, 85, 85,
, 38, 54, 64, 70, 74, 77. 79, 81, 8 3, P. 4, 85, E 5, 86, P7,
M C N 7 7,17,17,22,26,30,32,35,37,40,41,42,44,
,17, 22, 27, 31, 35, 7 7, 40, 4 2, 44, 46, 48, 49. 51, 5 2.
,21, 27, 32, 36, 40, 44. 47, 49, 52, 53, 55, 56, 55?, ?9.
, 23, 2<>, 35, 39, 43, 47, 50, 52, 55, 56. 5£, 59, 60,61.
,25, 31,36,41, 45, 49, 52, 54, 56, 58, 59, 61, 62, 63,
, 15. 20, 2 ' , 2 6 , 2 .',31.32,34.35, 37. 37, 3 8,40, 41,
,25 ,29,32,36,3? , 41,42 ,44,46 ,47,48,49,50 ,51,
,31, 3 6, 40, 44, 47, 49, 5 1,53, 5 5,56,57,58, 59, 60,
, 34, 39, 47, 46, 49, s 2 , 5 4 , 5 6 ,57,59,60,61, 62, 63,
, 3 6 , 4 1 . 4 r. , 4 9 , 5 2 , r 4 , 5 6 , 5 -'. , 6 0 , 6 1 . 6 2 , 6 3 . 64 , 6 5 .
, 4, 8, 14, 2U, 26,30,3 3, 35, 39, 42, 44, 45, 48, 49,
, 5, 10, 1P, 23, 2", ,'.2, 37, 40, 43, 45. 47, 49, 51 ^ 2»
, 6, 13, 21, 27, 33, 7t. 42, 45, 4£, 50, 52, 54, 56, 57,
. 6, 14, 22,?^, 34, -<9. 43, 47. 40, 52, 54, 55, 57, 58,
, 7, 14, 22, ?V, 35, 40. 44, 47, 50, 52, 54, 56, 58, 59,
, 2, 7, 13, 19,24, TV. 33, 37, 40, 43, 45, 47, 49, 50,
, 4, 11, 1of?6, 32, 7 7. 42. 45, 4P, 51. 53, 55, 56, 58,
, 5, 13, 21, co, 34 ,40. 44, 4?, 51, 53, 55, 57, 58, 60,
, 8, 18, 2?,76, 42, 47. 52, 5 5, 58, 60, 62, 63, 65, 6 6,
, 12, 23, 33,42, 4 1<. ,53, 57, 60, 67, 65, 66, 68, 69, 70,
MCY711, 20, 26, 30, 34. 40, 43, 47, 50, 52, 53, 55, 56,
, 23, 29, 3:, 40, 43, 49, 51,? 4, 5r, 57, 5 8, 59, 60, 62,
, 29. 3 7, 42,4 7, 4r/ , 55, 5 7 ,59,61 ,62,64 ,64,66 ,67,
, 34 , 4 1 , 4 6 , r> 1 , 5 3 , 5 t . 6 1 , 6 3 , 64 , 65 , 6 7 , 6 8 , 6P , 7 0 ,
,35. 42.42,53,57, ',0,62, 65, 66, 68, 6 9, 70, 71, 72,
,2 5, 27, 7-1, 75,3'?, 4 0.43, 44, 45, 49, 50, 50, 53, 54,
,33,76,41,46,48,51,54,56,57,58,59,60,61,63,
.41, 47, 50, 54,57, 59.61,63,65, 65, 66,67,6?, 69,
fc5
fc6
°7
80
82
83
86
87
45
53
60
62
64
41
52
61
63
66
50
53
59
60
60
52
59
61
67
71
57
62
68
70
72
54
63
70
,*6
,E7
PP
,80
,83
,84
,86
,88
,46
.54
,61
,63
,65
,42
,52
,62
,64
,67
,50
,54
,60
,61
,61
,53
,60
,62
,66
,72
.56
,64
,68
,71
,73
,55
,64
,71
,
,
,
,
,
,
«
,
,
,
,
,
,
,
,
,
,
t
,
,
,
,
,
,
.
,
,
«
,
,
,
,
,
,
at
b7
pc
81
84
85
87
88
47
55
62
64
65
43
53
62
65
67
53
56
61
62
62
54
62
63
69'
73
59
66
68
72
74
56
65
71
,
.
,
,
,
,
,
,
,
,
»
.
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
»
,
,
P7
P7
pp
81
P4
P5
87
66
48
56
62
65
66
44
54
63
65
68
55
57
62
63
63
55
62
64
70
74
61
66
70
73
74
56
ft
71
9
V
f
f
*
9
7
,5
,
,
,
,
,
,
,
,
,
,
,
,
B
E
B
B
B
B
B
B
e
B
0,8
B
B
B
E
B
B
B
B
B
B
B
B
L7Q0420
L7Q0430
i 7 nn 44 o
1_ ' \J U v'
L70045Q
L7Q0460
L7Q0470
L7Q0480
L700
L700
L700
L700
L700
L7QO
L7QO
L7QO
L7QO
L7[)0
L7QO
L7QO
490
500
510
520
530
54Q
550
560
570
580
590
600
L7Q0610
L7QO
L7QO
L700
620
630
640
8L70065Q
,
,
,
,
,
/
,6
,
,
»
»
i
*
,
B
B
B
B
B
B
e
OtB
0
B
e
B
B
R
B
L7QO
L7QO
L7QO
L7QO
L7QO
L700
L700
L700
L700
L700
L700
L7QO
L700
L7QO
L700
66Q
670
680
690
700
710
720
730
74Q
750
760
77G
760
79(j
soo
SOURCt CCDE PAGE 219
-------
APPENDIX A. ISKAP MODEL COMPUTER PROGRAM SOURCE CODE, t N VI RO N* E N TA L PROTECTION A Gi
4
*
*
*
+
*
*
*
*
*
#
*
F Nt
7
7
1
1
1
1
1
L.
2
2
3
5
I
1
7
4
9
5
3
1
7
t
9
9
ff
9
9
V
*
9
9
9
*
45 ,
47,
24 ,
27,
29,
30,
30,
30,
37,
59,
43 .
44 .
^0,5^,C7
52,56,60
40,48,56
42, 51 ,5o
43,52,59
43, 52,59
43,52,59
41,56,58
51 ,60,66
52, 62, 6c
57.66,^1
5^,6*, 72
,60
,6?
,60
,63
,64
,64
,64
,63
,70
,71
,75
,76
t (> i ,
,C 5,
,65,
,66,
,67,
,6b.
,68,
, 6L.
,72,
,74,
, 76 ,
, 79,
64 ,65,67,68,69,70,71 ,72,72 ,73,73 .74
o7,6^,69,^o, 71, 72, 73, 74, 74, 75, 75, 76
67, 6 9, 72, 72, 74, 75, 76, 77, 78, 78, 70, 79
t 9, 71, 73, 74, 76, 76. 77, 78, 79, 79. 60, f.O
70, 72, 74, 75, 76, 77, 7?, 79, 80, *0, 61, F1
71 ,73,75,76,77,78,79 ,£ 0,80,81 ,82, P2
71, 73, 75, 76, 77, 76, 79, PO, 8 1,81, 82, 82
71, 74. 77, 77. 7£, 79, S1,M, 81, 81, 82,83
76, 77, 78, 80, 62, 6 2, 82, *3, 84, 84, 85, 85
77, 7£, 79, 82,82,* 2,84,P4,84,35,86,F6
b 0 , S 1 , S 7 , 84 , 8 5 , ° 5 , b6 , F 6 , 87 , 8 7 . 65 , P8
fc1,P3,g4,85,&6,P6,67,58,88,S8.fc9,r9
,
,
,
,
,
,
,
,
,
,
,
/
B
e
p
E
b
P
B
e
B
L 7 00 8 1 u
L700C.2Q
L70083U
L70084Q
L70085U
L700K6Q
L700£?0
L7Q0880
L7QD8<>0
bL7Q0900
B
B
B
E
L70091 0
L700S20
L700930
L700940
SOURCE CODE PAGE
-------
SECTION 8
REFERENCES
1. Dabbert, W.F. and R.C. Sandys and P.A. Buder, ISMAP - A Traffic/
Emissions/Dispersion Model for Mobile Pollution Sources. User's Manual.
Prepared for California Business Properties Association by Stanford
Research Institute, Menlo Park, California 94025.
2. Automobile Exhaust Emission Modal Analysis Model, EPA-460/3-74-005,
January 1974.
3. Newell, G.F., Approximate Methods for Queues with Application to the
Fixed Cycle Traffic Light, S.I.A.M. Review. Vol. 7, No. 2.
4. Webster, F.V., Traffic Signal Settings. Road Research Technical Paper
No. 39, Road Research Laboratory, H.M. Stationary Office, London, England.
5. Technical Guidelines for the Review of Indirect Sources (Draft). Stanford
Research Institute, Menlo Park, California. Prepared for the U.S. Environ-
mental Protection Agency, Research Triangle Park, N.C. June 1976.
6. Benesh, F. User's Manual for the Intersection-Midblock Model. GCA/Tech-
nology Division, Bedford, Massachusetts. Prepared for the U.S. Environ-
mental Protection Agency, Research Triangle Park, N.C. July 1978.
7. Johnson, W.B., W.F. Dabberdt, F.L. Ludwig, and R.J. Allen. Field Study
for Initial Evaluation of an Urban Diffusion Model for Carbon Monoxide.
Coordinating Research Council and Environmental Protection Agency,
Contract CAPA-3-68 (1-69), Stanford Research Institute, Menlo Park,
California. 1971.
8. Mancuso, R.L. and F.L. Ludwig. User's Manual for the APRAC-1A Urban
Diffusion Model Computer Program. Contract CAPA-3-68 (1-69), Stanford
Research Institute, Menlo Park, California. 119 pp, (NTIS-PB 213 091).
1972.
9. Highway Research Board, Highway Capacity Manual 1965, Special Report 87,
NAS-NRC, Washington, D.C. 1965.
221
-------
10. Ludwig, F. L., W. B. Johnson, A. E. Moon, and R. L. Mancuso. A Practical
Multipurpose Diffusion Model for Carbon Monoxide. Final Report, Contracts
CAPA-3-68 and CPA 22-69-64, Stanford Research Institute, Menlo Park,
Califronia. 184 pp., (NTIS-PB 196 003). 1970.
11. Johnson, W. B., W. F. Dabberdt, F. L. Ludwig, and R. J. Allen. Field
Study for Initial Evaluation of an Urban Diffusion Model for Carbon
Monoxide. Comprehensive Report, Contract CAPA-3-68 (1-69), Stanford
Research Institute, Menlo Park, California. 240 pp., (NTIS-PB 203 469).
1971.
12. Ludwig, F. L. and W. F. Dabberdt. Evaluation of the APRAC-1A Urban Diffu-
sion Model for Carbon Monoxide. Final Report, Contract CAPA-3-68 (1-69),
Stanford Research Institute, Menlo Park, California. 167 pp., (NTIS-PB
210 819). 1972.
13. Compilation of Air Pollutant Emission Factors, Supplement 5 (AP-42).
U.S. Environmental Protection Agency, Research Triangle Park, N.C. 27711.
April 1975.
14. Guthman, L. User's Guide to MOBILE1. U.S. EPA, Washington, D. C. 1978.
15. Ludwig, F., et al. User's Manual for the APRAC-2. Emissions and Diffu-
sion Model. Stanford Research Institute, Menlo Park, California. 1977.
16. Wiltsee, K and Benesh, F. Documentation of Modifications to APRAC-2 for
Incorporating 1978 Emission Factors. GCA/Technology Division, Bedford,
Massachusetts. Prepared for Atlanta Regional Commission, Atlanta, Ga.
(Model modifications have been completed and is currently being used;
documentation will be published September 1978).
222
-------
TECHNICAL REPORT DATA
(Please read Instructions on the reverse before completing)
REPORT NO
EPA-450/3-78-040
3. RECIPIENT'S
4.TITLE ANOSUBTITLE
Carbon Monoxide Hot Spot Guidelines
Volume VI: User's Manual for the Modified ISMAP Model
5. REPORT DATE
August 1978
6. PERFORMING ORGANIZATION CODE
AUTHOR(S)
Frank Benesh
8. PERFORMING ORGANIZAT
GCA-TR-78-32-G(6)
9. PERFORMING ORGANIZATION NAME AND ADDRESS
GCA Corporation
GCA/Technology Division
Burlington Road
Bedford, Massachusetts 01730
10. PROGRAM ELEMENT NO.
2AF643
11. CONTRACT/GRANT NO.
68-02-2539
12. SPONSORING AGENCY NAME AND ADDRESS
13. TYPE OF REPORT AND PERIOD COVERED
U.S. Environmental Protection Agency
Office of Air Quality Planning and Standards
Research Triangle Park, North Carolina 27711
14. SPONSORING AGENCY CODE
15. SUPPLEMENTARY NOTES
16. ABSTRACT
A modified version of the ISMAP model has been developed for the analysis of carbon
monoxide hot spot locations. The original version of ISMAP (Indirect Source Model
for Air Pollution) was developed by Stanford Research Institute to be used in the
evaluation of indirect source impact upon ambient carbon monoxide concentrations.
Due to the size and complexity of the original version of the model, the modifications
were made without changing the basic structure of the program. Since the analysis
of parking lot traffic and emissions was an integral part of the original model struc-
ture, it was left in the modified version, but the code was modified to negate their
effect upon traffic flow and air quality. In the modified ISMAP, internal zones
(indirect sources) are used together with external zones to generate flow within a
traffic network. This modified version of the model sets parking lot emissions equal
to zero and provides a near infinite parking lot capacity so that vehicle routing
between internal zones will not occur because of parking lot overcrowding. Other
modifications made to ISMAP include the incorporation of a street canyon submodel.
Version 2 of modified ISMAP utilized the most recent (1978) motor vehicle emission
correction factors and modal analysis model coefficients and deterioration. In other
aspects, it is unchanged from Version 1, written by Michael T. Mills.
17.
KEY WORDS AND DOCUMENT ANALYSIS
DESCRIPTORS
b.IDENTIFIERS/OPEN ENDEDTERMS
c. COSATI Field/Group
Carbon Monoxide Models
Air Quality Models
Traffic Models
13. DISTRIBUTION STATEMENT
RELEASE UNLIMITED
19. SECURITY CLASS (This Report)
UNCLASSIFIED
21 NO. OF PAGES
230
20. SECURITY CLASS (This page)
UNCLASSIFIED
22. PRICE
EPA Form 2220-1 (9-73)
------- |