United States
         Environmental Protection
         Agency
           Office of Air Quality
           Planning and Standards
           Research Triangle Park, NC 27711
EPA-450/4-92-008c
March 1992
         Air
A EPA
USER'S GUIDE FOR THE
INDUSTRIAL SOURCE COMPLEX
(ISC2) DISPERSION MODELS
         VOLUME
           - GUIDE TO
            PROGRAMMERS

-------
                               EPA-450/4-92-008C
    USER'S GUIDE FOR THE
INDUSTRIAL SOURCE COMPLEX
  (ISC2) DISPERSION MODELS

     VOLUME  III - GUIDE TO
        PROGRAMMERS
                    U.S.
                    !•'"'
                    / /
                    Chicago, ;L
     U.S. ENVIRONMENTAL PROTECTION AGENCY
      Office of Air Quality Planning and Standards
          Technical Support Division
      Research Triangle Park, North Carolina 27711

              March 1992

-------

-------
                             NOTICE

     The information in this document has been reviewed in its
entirety by the U.S. Environmental Protection Agency (EPA), and
approved for publication as an EPA document.  Mention of trade
names, products, or services does not convey, and should not be
interpreted as conveying official EPA approval, endorsements,
or recommendation.

     The following trademarks appear in this guide:
IBM, IBM/MVS, IBM VS FORTRAN, and IBM 3090 are registered
trademarks of International Business Machines Corp.
Microsoft and MS-DOS are registered trademarks of Microsoft
Corp.
VAX/VMS is a registered trademark of Digital Equipment Corp.
Lahey F77L-EM/32 is a registered trademark of Lahey Computer
Systems, Inc.
OS/386 is a registered trademark of Ergo Computing, Inc.
INTEL, 8086, 80286, 80386, 80486, 80287, and 80387 are
registered trademarks of Intel, Inc.
SunOS is a registered trademark of Sun Microelectronics, Inc.
UNIX is a registered trademark of AT&T Bell Laboratories
Cray and UNICOS are registered trademarks and CFT77, CRAY Y-MP,
and SEGLDR are trademarks of Cray Research, Inc.

-------

-------
                            PREFACE

     This volume of the User's Guide for the Industrial Source
Complex (ISC2) Dispersion Models (Version 2) provides a
description of the structure of the ISC2 model computer code,
and serves as a guide to programmers involved with installing
the ISC2 code on other systems.  Also included in this volume
is information relevant to future maintenance of the ISC2
models.  The ISC2 User's Guide has been developed as part of a
larger effort to restructure and reprogram the ISC2 models, and
to improve the "end-user" documentation for the models.  Volume
I of the new User's Guide provides user instructions for
setting up and running the ISC2 models.  Volume II describes
the dispersion algorithms utilized in the ISC2 models.
                              111

-------

-------
                        ACKNOWLEDGEMENTS

     The User's Guide for the original version of the ISC
Dispersion Models was written by J.F. Bowers, J.R. Bjorklund,
and C.S. Cheney (1979) of the H.E. Cramer Company, Inc., Salt
Lake City, Utah.  That work was funded by the Environmental
Protection Agency under Contract No. 68-02-3323, with George
Schewe as the Project Officer.  The second edition of the
User's Guide for the original models was prepared by David J.
Wackter and John A. Foster, TRC Environmental Consultants,
Inc., East Hartford, Connecticut  (EPA, 1987a).  That effort was
funded by the Environmental Protection Agency under Contract
No. 68-02-3886 with Russell F. Lee as Project Officer.  The
User's Guide for the ISC2 Models has been prepared by Roger W.
Erode and JieFu Wang of Pacific Environmental Services, Inc.,
Durham, North Carolina.  This effort has also been funded by
the Environmental Protection Agency under Contract No.
68D00124, with Russell F. Lee as Work Assignment Manager.
                               IV

-------
                            CONTENTS
PREFACE ..........................

ACKNOWLEDGEMENTS  .....................  iv

FIGURES .........................  viii

1.0 INTRODUCTION  ..................... 1-1

2.0 OVERVIEW OF REPROGRAMMING EFFORT  ........... 2-1
     2.1 THE NEED FOR REPROGRAMMING THE ISC MODELS  .... 2-1
     2.2 HISTORY OF ISC CODE  ............... 2-2
          2.2.1 Original ISC Code in 1979 ......... 2-2
          2.2.2 Revisions for UNAMAP 6 in 1986  ...... 2-2
          2.2.3 Revisions to Include Schulman-Scire
               Downwash in 1987 .............. 2-3
          2.2.4 The ISC2 Code ............... 2-3
     2.3 GOALS OF THE REPROGRAMMING EFFORT  ........ 2-4
          2.3.1 Improve the Quality of the Computer Code   . 2-4
          2.3.2 Make Data Input Simpler and Easier to
               Manage ................... 2-5
          2.3.3 Improve Utility of Printed Output and
               Simplify File Outputs  ........... 2-6
          2.3.4 Structure Code for Easier Maintenance and
               Future Enhancements  ............ 2-6
          2.3.5 Improve Error Handling Capabilities .... 2-7
          2.3.6 Improve End User Documentation  ...... 2-7
     2.4 QUALITY ASSURANCE PROCEDURES FOR THE
          REPROGRAMMING EFFORT  .............. 2-9

3.0 COMPUTER ASPECTS  ................... 3-1
     3.1 PERSONAL COMPUTERS ................ 3-1
          3.1.1 Language and Compiler Information ..... 3-2
     3.2 NON-DOS PC'S ..................  3-10
     3.3 DEC VAX  ....................  3-12
          3.3.1 Compiler /System Dependent Preprocessing.   3-12
          3.3.2 Creating An Executable ISCST2 ......  3-12
          3.3.3 Running ISCST2 ..............  3-13
     3.4 IBM 3090 ....................  3-13
          3.4.1 Compiler /System Dependent Preprocessing.   3-13
          3.4.2 Creating An Executable ISCST2 ......  3-14
          3.4.3 Running ISCST2 ..............  3-14
     3.5 VARIOUS UNIX MACHINES (CRAY, SUN, DEC VAX,  AT&T)  3-15
          3.5.1 Compiler/ System Dependent Preprocessing.   3-15
          3.5.2 Creating An Executable ISCST2 ......  3-15
          3.5.3 Running ISCST2 ..............  3-16
     3.6 CONTROLLING INPUT AND OUTPUT FILES .......  3-16
          3.6.1 Description of ISC2 Input Files .....  3-17
          3.6.2 Description of ISC2 Output Files  ....  3-19
          3.6.3 Control of File Inputs and Outputs (I/O)   3-26

-------
4.0 DESCRIPTION OF MODEL STRUCTURE  	 4-1
     4.1 OVERVIEW OF MODEL DESIGN	4-1
     4.2 HIERARCHY OF MODULE CALLS  	 4-4
     4.3 PROGRAM DATA STRUCTURES	4-11
     4.4 PROGRAM DATA FLOW AND CONTROL STRUCTURES ....  4-12
     4.5 DESCRIPTION OF ERROR HANDLING  	  4-13

5.0 REFERENCES	5-1

APPENDIX A. ALPHABETICAL MODULE REFERENCE 	 A-l

APPENDIX B. MODULE CALLING TREES  	 B-l

APPENDIX C. NAMED COMMON BLOCKS AND INCLUDE FILE CONTENTS  . C-l
     C.I ISCST2 MODEL	C-l
     C.2 ISCLT2 MODEL	 C-6
     Cc3 ISCEV2 MODEL	C-10

APPENDIX D. DATA DICTIONARY	D-l

APPENDIX E. LIST OF ERROR MESSAGES	E-l

APPENDIX F. CROSS-REFERENCE LISTING OF SOURCE CODE FILES   . F-l
     F.I ISCST2 MODEL	F-2
     F.2 ISCLT2 MODEL	F-6
     F.3 ISCEV2 MODEL	F-10

INDEX	INDEX-1
                               VI

-------
                            FIGURES
Figure                                                     Page

4-1. MODULE CALLING HIERARCHY TO TWO LEVELS FOR ISCST2
     MODEL	4-5

4-2. HIERARCHY OF MODULE CALLS FROM THE HRLOOP MODULE FOR
     ISCST2 MODEL 	 4-7

4-3. HIERARCHY OF MODULE CALLS FOR THE PCALC MODULE FOR
     THE ISCST2 MODEL	4-10
                              Vll

-------
                        1.0  INTRODUCTION

     The Industrial Source Complex (ISC2) dispersion models
described in this document refer to restructured and
reprogrammed versions of the original ISC models described in
the ISC Dispersion Model User's Guide - Second Edition
(Revised) (EPA, 1987a).   The models were reprogrammed in order
to improve the overall quality of the computer code, to improve
the user interface, and to improve the end user documentation
of the models.
     This volume of the ISC2 model user's guide provides
background information on the ISC model reprogramming effort,
includes a description of the design and structure of the
computer code, and serves as a guide to programmers involved
with installing the programs on other computer systems.  The
contents of this document are also intended serve as a guide
for maintenance and modification of the ISC2 models in the
future.  Some of the information in this volume regarding
compilation and linking of the ISC2 models, porting the models
to other computing environments, and on control of input and
output (I/O)  is very similar to information contained with the
user instructions in Volume I.
                              1-1

-------
             2.0  OVERVIEW OF REPROGRAMMING EFFORT

     This section provides an overview of the ISC2 model
reprogramming effort, including a brief history of the ISC
model code, a description of the goals of the reprogramming
effort and a brief overview of the quality assurance procedures
used during the project.

2.1 THE NEED FOR REPROGRAMMING THE ISC MODELS

     The Source Receptor Analysis Branch (SRAB) of the U.S.
Environmental Protection Agency (EPA) is responsible for
providing and maintaining air quality models that are
acceptable for regulatory use.  The Industrial Source Complex
Short Term (ISCST) and Long Term (ISCLT) models are the most
frequently and widely used air quality models supported by the
EPA.  These models were first published in 1979 and have since
been modified several times.  The complexities introduced as a
result of these modifications made it difficult to find and
correct errors.  And if further modifications to the original
code were attempted, there was little guarantee of success. The
solution to this problem was to reprogram the models in modern,
structured form, with the result being code that is more free
of errors, easier to maintain, and simpler to use.
     To implement this solution, the SRAB undertook a four
phased approach for reprogramming the ISC models.  First, a
Work Group was formed to develop design specifications for the
ISC2 code.  The Work Group, consisting of meteorologists from
SRAB and EPA's Atmospheric Research and Exposure Assessment
Laboratory (AREAL), developed the technical framework for the
reprogramming effort.  The results of this effort were
documented in a draft design specification document for
reprogramming the ISC models.  The second phase of the effort
was the review of the design specifications by EPA Regional
Meteorologists.  The third phase of the effort was to address
                              2-1

-------
the comments made by the Regional Meteorologists and use them
to finalize the design specifications.  The final phase of the
project was to produce new source code to meet the design
specifications, fully test the new code, prepare new end-user
documentation, and make the new models available for general
use.

2.2 HISTORY OF ISC CODE

2.2.1 Original ISC Code in 1979

     The Industrial Source Complex (ISC) models were first
released by EPA in 1979 (Bowers, et al, 1979).  A short term
(ISCST) and a long term (ISCLT) model were included as part of
the original ISC package.   The ISC models provided considerable
flexibility for modeling industrial complexes, including the
capability to handle stack (point), volume and area releases,
and to incorporate the effects of aerodynamic downwash on stack
effluents due to nearby buildings.  In large part because of
this flexibility, the ISC models quickly became the most widely
used of the EPA models for performing dispersion calculations.

2.2.2 Revisions for UNAMAP 6 in 1986

     The ISC models underwent a major revision as part of the
development of the UNAMAP 6 package, which was released in
1986.  The revisions to the models included the following new
features:
               a third urban mode option using Briggs' fit to
               the McElroy-Pooler urban dispersion
               coefficients;
               an option for buoyancy induced dispersion;
               a "regulatory default option" switch to force
               certain modeling assumptions;
               an optional treatment for calm winds;
               a revised plume rise algorithm;
                              2-2

-------
               revised treatment for receptor elevations below
               plant grade;
               revised default wind profile exponents for both
               rural and urban options;
               extension of computations to source-receptor
               distances of less than 100 meters;
               a terrain truncation algorithm for terrain
               heights above stack height; and
               some additional input and output options which
               did not effect the modeling algorithms.
In conjunction with the UNAMAP 6 revisions, the ISC User's
Guide was revised (EPA, 1986).

2.2.3 Revisions to Include Schulman-Scire Downwash in 1987

     Another major revision to the ISC models was undertaken to
incorporate the direction-specific building downwash algorithms
of Schulman and Scire for shorter stacks (stack height less
than building height plus one-half the lesser of the building
height or width).  This revised downwash algorithm was
incorporated into the models in 1987, along with a new option
to accept receptor heights above ground level (flag pole
receptors).  Revisions to the user's guide also accompanied
this release (EPA, 1987a).
2.2.4 The ISC2 Code

     The ISC2 models were developed as part of a comprehensive
effort to restructure and reprogram the models using modern
structured programming techniques.  Initial design
specifications for the reprogramming effort were developed by
EPA's Source Receptor Analysis Branch.  Besides modularizing
the coding of the dispersion algorithms, the scope of the
reprogramming included modifying the input and output routines
for the models and rewriting the User's Guide.  The scope of
the reprogramming effort did not include modifications to the

                              2-3

-------
ISC modeling algorithms, although numerous errors and
inconsistencies in the original code were corrected.  The only
technical change made to the models was the extension of the
use of direction-specific building dimensions to the
Huber-Snyder building downwash algorithms.

2.3 GOALS OF THE REPROGRAMMING EFFORT

     The reprogramming effort was guided by the following
design goals:

          1)   Improve the quality of the computer code
          2)   Make data input simpler
          3)   Improve appearance of printed output and
               simplify file output
          4)   Structure code for future enhancements
          5)   Improve error flagging capabilities
          6)   Improve end user documentation

These goals and the approaches taken to implement them are
briefly described in the following sections.

2.3.1 Improve the Quality of the Computer Code

     The first of these goals was to improve the quality of the
computer code.  Besides reliability, quality is taken to
include the readability and maintainability of the code.  Based
on the recommendations of the ISC Work Group, the following
actions were taken to meet this goal:
    • The new code was designed to avoid computer conflict
      problems associated with different hardware, operating
      systems, and compilers.  The programs were written to be
      compatible with three hardware environments: the NCC/IBM
      3090 mainframe, VAX 11/780, and IBM PC-AT compatible
      computers.  The programming language was FORTRAN-77
      (ANSI standard).  Note;  A new ANSI Fortran-90 standard
      is currently under development and nearing completion.
                              2-4

-------
      A few selected features from this new standard that are
      already widely available were incorporated into the new
      models as described in Section 3.1.1.2.


    •  Structured programming constructs were used to control
      the flow of execution, and the design and coding of the
      programs was modularized.  Good documentation practices
      were employed, such as consistent naming conventions,
      intelligent use of comments, and meaningful error
      messages.


    •  Separate programs were developed for the short-term and
      long-term algorithms.  Each program handles all of the
      necessary processing of input, dispersion calculations,
      and processing of output.  However, the use of modular
      programming techniques allowed for use of many common
      program modules by both programs.


2.3.2 Make Data Input Simpler and Easier to Manage

     The second major goal of the reprogramming effort was to
make data input simpler for the end user.  While recognizing

that a menu-driven data input routine is the best way to make

the task of data entry simpler and less error prone,

development of a menu-driven data entry system was not

considered part of the scope of the reprogramming effort.

Development of these front-end processors may be considered at

a later date.  Based on the ISC Work Group recommendations, the

following actions were taken for developing an easier-to-use

data input structure that will ultimately support use of a menu
data entry system:

    •  Data input and deciphering was simplified by employing a
      technique that uses descriptive keywords and parameters
      separated by functional pathway.  The input runstream
      consists of several 80-character images, each of which
      begins with a pathway identification, followed by a
      keyword identifier, and then a list of parameters.  The
      pathways define the general type of input being entered,
      while the keyword identifications define the specific
      processing goals.  The parameters presented within the
      80-character image are in a flexible format and are not
      dependent on column position within the record.


    •  The most commonly used guideline-approved options are
      the default selections used by the models.  Some

                              2-5

-------
      non-guideline options have been removed to avoid
      confusion over the appropriate options to use, however
      most non-guideline options have been retained as
      user-specific options to maintain the flexibility of the
      models.
2.3.3 Improve Utility of Printed Output and Simplify File
Outputs

     The third design goal was to improve the appearance and

utility of the printed output and the ease of use of the output

file.  The following actions were taken to meet these goals:

     • A new summary of maximum concentrations for the entire
      set of receptors for each time period was added to the
      ISCST2 model for use in comparing model results with air
      quality standards and ambient limits.  User's are able
      to specify whether tables of first, second, third,
      fourth, fifth, and/or sixth highest values at each
      receptor are to be printed.


     • The output file of hour-by-hour concentrations was
      restructured so that the user can select options for
      outputing only the averaging period and source group of
      interest.  Additional output products were developed to
      meet the needs of those users wishing to use an output
      file as input for isopleth plotting routines, and to
      list occurrences of violations of a user-defined
      threshold value.
2.3.4 Structure Code for Easier Maintenance and Future
Enhancements

     The fourth design goal was to insure that currently

approved dispersion algorithms are correctly implemented and to

structure the code so that future approved algorithms could be

more easily incorporated.  The following actions were taken to

help achieve this goal:

    • Any known inconsistencies between the original ISC
      models and other guideline models were resolved and the
      correct algorithm was used in the new code.


    • The reprogramming effort was not intended to replace the
      special dispersive features of models such as CRSTER,
      RAM, COMPLEX I, CDM 2.0, or BLP that make them preferred
      models for selected applications.  However, the design


                              2-6

-------
      of the ISC2 models was structured in an attempt to allow
      for the special features to be incorporated at a later
      date.

    •  The code for the existing algorithms was modularized and
      structured so that individual parts of the dispersion
      model algorithms, such as plume rise, dispersion
      coefficients, exponential decay, and settling and
      removal mechanisms could be easily upgraded without
      adversely effecting the rest of the code.


2.3.5 Improve Error Handling Capabilities

     The fifth goal was to improve the error detection and

handling capabilities of the models.  The following actions

were taken:

    •  An improved input runstream debugging system was
      developed to flag input errors and generate meaningful
      messages.  Checks on the reasonableness of input data
      are also made.  The error handling routines use a
      "defensive programming" approach to identifying and
      trapping all possible error conditions, without causing
      a program halt.


    •  Significantly more data checking is done in routines
      where input data (and calculated intermediate values)
      are used to prevent overflow and underflow conditions.
      If calculations cannot be made due to a fatal data ,
      error, the program continues to identify all errors but
      aborts any further processing of the data.


2.3.6 Improve End User Documentation

     The final goal was to improve the end-user documentation,
and the following recommendation was made in the design
document:

    •  The User's Guide should be rewritten to implement the
      recommendations contained in the Battelle evaluation and
      assessment of UNAMAP.  The document should be oriented
      toward end-users, both novice and experienced.  A
      tutorial should be included to aid the novice in
      learning how to use the model.  There should be
      sufficient detail to provide reference and background
      materials for the user who needs to know how the model
      works.  The appendices to the User's Guide should
                              2-7

-------
      contain detailed program specifications and
      documentation.

In response to this recommendation, the ISC2 Model User's Guide
has been divided into three volumes.  The first volume contains
user instructions, and was designed in an attempt to meet a
wide range of end-user needs, including a simple introductory
tutorial for novice users, a detailed keyword reference for
experienced modelers, an overview of modeling options and
regulatory applicability for decision makers, and a range of
supporting appendices that include an alphabetical keyword
reference, a detailed keyword/parameter reference and condensed
one-page "pull-out" designed as a quick reference for
experienced users.  This volume of the User's Guide includes a
detailed index and is also extensively cross-referenced so that
user are quickly directed to the information that they need.
The second volume includes a technical description of the model
algorithms for those who have a need or interest in
understanding the scientific and technical basis for the
models.  The third volume provides a guide to programmers and
systems analysts involved with installing the models on
different systems, and will also serve as a maintenance guide
for future revisions of the models.
     One of the results of the reprogramming effort is that the
models look considerably different from the earlier versions to
the end user.  There are major changes to the input formats,
end-user documentation, and both the printed and file outputs.
These changes are intended to make the models much easier to
use.  However, these changes may also cause problems for users
who have developed processing programs to prepare input data or
to summarize the output file results for the current models.
The guide to programmers provided  in this volume, is designed
to help such users overcome these  problems and adapt their
systems to the new models.
                              2-8

-------
2.4 QUALITY ASSURANCE PROCEDURES FOR THE REPROGRAMMING EFFORT


     This section describes the overall scope of the quality

assurance plan, which incorporated procedures to develop,

verify, and validate the new software.  The ISC Work Group

emphasized that an essential part of the software development

effort is to verify the correctness and overall quality of the

software before it is released to users.  Quality assurance is

the system of procedures that will be used to ensure that the

new models and end-user documentation meet specified standards

of quality.  Three types of procedures were used:  standard

operating procedures; procedures for testing the models and

correcting inconsistencies and errors; and a method for

determining final product quality and reliability.  Each of

these types of procedures were developed as part of this QA

Plan.

     The following elements of the QA Plan were based on

recommendations of the ISC Work Group:

    • The quality assurance plan identified standard operating
      procedures for development of the new software and for
      demonstrating software correctness.  The use of
      structured programming techniques allowed for
      distributing correctness checking throughout the
      development cycle.  The procedures also addressed
      language conventions and programming style to follow in
      order to improve the readability of the code.

    • Test procedures were developed that include unit testing
      of individual subroutines and functions and testing of
      groups of modules integrated into the program control
      structure.  Procedures for peer review and walk-throughs
      of program modules were also included.


    • Test procedures were formally documented.  Test sets of
      input data were prepared and the expected output
      determined.  The program was then executed for these
      test cases and the results analyzed to determine that
      the program works in all cases in which it is supposed
      to work.


    • A formal software review and beta testing program was
      set up to include EPA Regional Meteorologists, state

                              2-9

-------
      meteorologists, and non-governmental representatives.
      The models were not released until reviewed by these
      users and review comments were addressed.   These people
      also reviewed a draft of the user's guide.


    •  The final acceptance testing of the models  included
      making preliminary drafts of the models available to the
      user community for additional testing and debugging
      prior to their final release.


Incorporation of quality assurance procedures at  the onset of

the reprogramming effort resulted in improvements in the

ability to. identify and correct errors and also improve the

maintainability of the models.
                              2-10

-------
                      3.0  COMPUTER ASPECTS

     This section presents information regarding the computer
aspects of the ISC2 models, including programming language and
compiler information, linker information, memory requirements
and control of input and output (I/O).  Detailed information is
provided for three types of computer systems, i.e, the
IBM-compatible Personal Computer (PC), DEC VAX minicomputer,
and the IBM 3090 mainframe computer.  This information is
oriented as a guide to programmers or system analysts
responsible for installing and/or maintaining the models on
these systems.  Some of the information contained may be
relevant to other systems as well,  although these are the three
systems supported by EPA for it's SCRAM models.

3.1 PERSONAL COMPUTERS

     The ISC2 models were developed and testing on an
IBM-compatible PC.  Recognizing the growing popularity of PCs
for dispersion modeling applications, the models have been
designed to run on any PC with an 80x86 processor (e.g., an
80286 (AT-type), 803&6, or 80486).   While a math coprocessor is
highly recommended for running the ISC2 models on a PC, the DOS
executable files provided will run on machines that do not have
one.  In addition, the PC-executable files provided make use of
certain PC-specific features that were then commented out of
the source code in order to make it more portable.  These
features include writing the time and date fields on each page
of the printed output file and writing an update to the PC
screen on the status of processing.
                              3-1

-------
3.1.1 Language and Compiler Information

     3.1.1.1 FORTRAN-77 Standard fANSI-19781

     The models are written in the Fortran computer language,
and developed with the Microsoft Optimizing FORTRAN Compiler,
Version 5.1.  To ensure the portability of the computer code to
other computer systems, the computer code was written following
the ANSI standard FORTRAN-77 (ANSI, 1978), with a few
exceptions that are discussed below.  The format and syntax of
the code follows the F77 standard,  with all variable names
being six or fewer characters.

     3.1.1.2 Language Extensions Used in Development of ISC2
     Code

     In order to facilitate the delevopment of the code and to
improve the readability and structure of the code, two
non-standard Fortran language extensions have been used.  These
are the DO WHILE ... END DO control construct and the INCLUDE
statement.  Both of these extensions have been retained in the
final version of the code, recognizing that they are fairly
commonplace extensions to the Fortran language, that a fairly
standard syntax is used across most systems and compilers, and
that they are both to be implemented in the new Fortran-90
standard currently being developed.
     For users who are attempting to install the models on
systems that do not support these extensions, the following
suggestions are offered.  First, the user should check the
version of the compiler software being used, since a more
recent version may have added support for these language
extensions.  The user may also need to specify certain compiler
option switches to implement language extensions.  If no
solution is found by checking the compiler option switches or
upgrading the software version, then the user can perform the

                              3-2

-------
following steps to make the code fully compatible with the F77
standard.  The first step is to explicitly include the
"INCLUDE" files into the source code for the models.  A
standard text editor can be used to "paste" the appropriate
include files within the source code for each module of the
program.  Given the large number of subroutines involved, the
user should attempt to set up a macro command to help
accomplish this.  The INCLUDE statements would then be
commented out to avoid compiler errors.  The next step is to
replace the DO WHILE ... END DO loops with IF ... END IF
blocks.  The changes would look like the following:

     CDW   DO WHILE (logical expression)
     label IF (logical expression) THEN
           • • •
     CDW   END DO
           GO TO label
           END IF
where the 'CDW1 field is used to comment out the DO WHILE and
END DO statements, 'label1 is a statement label number selected
by the user and must match on the IF and the GO TO statements
(and must not repeat a label already used within each
subroutine), and the 'logical expression1 used for the IF
statement must be the same expression as used for the DO WHILE
statement.

     3.1.1.3 Draft Fortran-90 Features Considered in the Design

     Other features of the proposed Fortran-90 standard were
considered in the design of the computer code, such as the
SELECT CASE ... END SELECT control construct, use of variable
names up to 31 characters long, use of in-line comments,
allocatable arrays and runtime storage allocation, and new
array operations.  None of these has been employed in the
current version of the code due to one or more of the following
reasons: 1)  the benefit to the design, development and
operation of the code was not considered significant; 2) the
                              3-3

-------
feature is not very common or standard in syntax and would
therefore impact negatively on the portability of the code;
and/or 3)  implementation of the feature would be too difficult
to reverse if a decision were made later to use fully standard
F77 code.   However, several of these features would provide
some advantages if considered as part of a future upgrade of
the code to Fortran-90.  Specifically, the use of longer
variable names enables use of more descriptive names, and the
use of the underscore character, '_', may permit the
introduction of more structure to the data dictionary.  In-line
comments can also be a useful feature in making the code more
readable and understandable, since the comment can be placed
directly on the line of code to which it applies.  The use of
allocatable arrays and runtime storage allocation has
advantages, especially for the ISCST2 model, because of the
static storage allocation scheme used in the design of the
model.  Runtime allocation of the result arrays would make the
model more flexible to the user in terms of the limits on the
numbers of sources, receptors, source groups, etc.  The use of
array operations would also simplify the structure of the code
in several places, especially where averages are calculated and
where sorting is done to retrieve the highest values.

     3.1.1.4 Microsoft Compiler Options

     The DOS versions of the executable files (.EXE) of the
models provided on the SCRAM BBS were compiled with the
Microsoft Optimizing FORTRAN Compiler (Version 5.1) using the
following command line:

     FL /C /FPi /AH /DMICRO *.FOR

where /c instructs the compiler to compile without linking; the
/FPi option instructs the compiler to use in-line instructions
for floating point operations and link with an emulator library
(uses 80x87 coprocessor if present); the /AH option that the
                              3-4

-------
huge memory model be used, allowing arrays or common blocks to

exceed 64K; and the /DMICRO option instructs the compiler to

use the conditional compilation blocks defined for the

Microsoft compiler.  These conditional blocks of code implement

the PC-specific features of the model including writing the

date and time fields on each page of the printed output file

and writing an update to the screen on the status of

processing.  To implement the PC-specific code, the user should

delete the field 'CPC1 used to comment out certain lines in the

ISCST2.FOR file.  The *.FOR parameter tells the compiler to

compile all files in the default directory ending with an

extension of *.FOR.  This assumes that all of the source code

modules and the include files are in a single directory, or

that the compiler has been setup to search for the include

files in the appropriate directory.  This command line for the

compiler makes full use of the compiler's optimization routines

to speed up the code.  To disable optimization, the /Od option

would be added.

     The source modules for the ISCST2 model are as follows:
ISCST2.FOR -
SETUP.FOR  -
COSET.FOR  -
SOSET.FOR  -
RESET.FOR  -
MESET.FOR  -
OUSET.FOR  -
INPSUM.FOR -
METEXT.FOR -
CALC1.FOR  -

CALC2 . FOR  -

CALC3.FOR  -
CALC4.FOR  -

PRISE.FOR  -
SIGMAS.FOR -
OUTPUT.FOR -
MAIN1.INC  -
MAIN2.INC  -

MAIN3.INC  -
Main program, error handling and other utilities
Main SETUP subroutines and initialization module
Subroutines to process CO pathway inputs
Subroutines to process SO pathway inputs
Subroutines to process RE pathway inputs
Subroutines to process ME pathway inputs
Subroutines to process OU pathway inputs
Subroutines to summarize the input data
Extracts and checks the meteorological data
Main calculation subroutines, including
source-type specific
Secondary group of calculation subroutines for
hourly values
Group of subroutines to process and sort averages
Group of subroutines to output results as
calculated (e.g. DAYTABLE and POSTFILE results)
Plume rise subroutines
Dispersion parameter subroutines
Model output subroutines
First INCLUDE file, used throughout model
Second INCLUDE file, used for MODNAM variable
only
Third INCLUDE file, contains only results arrays
                              3-5

-------
     3.1.1.5 Linker  Information

     Once the source files  have been compiled successfully, and
object  (.OBJ) files  have  been generated for each source file,
the model is ready to be  linked and an executable file created.
The executable file  on the  SCRAM BBS was linked using a memory
overlay manager so that only  certain portions of the code are
resident in memory at any given time.   This allows for a more
efficient use of available  memory by the model, and therefore
allows for larger runs to be  performed than would be possible
without using overlays.   This is accomplished with the
following command line for  the linker provided with the
Microsoft compiler:
     LINK /E ISCST2+SETUP+(INPSUM)+(COSET)+(SOSET)+(RESET)+(MESET)+(OUSE T)+(METEXT+CALC1+
          CALC2+CALC3+PRISE+SIGMAS+CALC4)+
-------
of the SAVEFILE,  DAYTABLE,  MAXIFILE and/or POSTFILE keyword
options  (where results are  output as their are calculated),
then moving the CALC4  module to a separate overlay will not
effect performance  at  all,  since it is only called if  one of
those options is  used.  An  example of the LINK command to
minimize the load size of the model is as follows:
     LINK /E ISCST2+(SETUP)+(INPSUM)+(COSET)+(SOSET)+(RESET)+(MESET)+(OU SET)+(CALC1+CALC2+CALC3+
          PRISE+SIGMAS)+(CALC4)+(OUTPUT)
This overlay structure will reduce the load size by about 24K
for the ISCST2 model.

     3.1.1.6 Modifying PARAMETER Statements for Unusual
     Modeling Needs

     As discussed in Section 2.3 of Volume I and elsewhere,  the
ISC2 models make  use of a static storage allocation design,
where the model results are stored in explicitly dimensioned
data arrays, and  the array  limits are controlled by PARAMETER
statements in the Fortran computer code.  These array  limits
also correspond to  the limits on the number of sources,
receptors, source groups and averaging periods that the model
can accept for a  given run.  Depending on the amount of memory
available on the  particular computer system being used,  and the
needs for a particular modeling application, the storage limits
can easily be changed  by modifying the PARAMETER statements and
recompiling the model.
     The limits on  the number of receptors, sources, source
groups, averaging periods,  and events (for ISCEV2 model)  are
initially set as  follows for the three models for the  DOS and
extended memory  (EM) versions on the PC:
                               3-7

-------
PARAMETER
Name
NREC
NSRC
NGRP
NAVE
NEVE
Limit
Controlled
Number of
Receptors
Number of
Sources
Number of
Source
Groups
Number of
Short Term
Averages
Number of
Events
ISCST2
600 (DOS)
1200 (EM)
100 (DOS)
300 (EM)
2 (DOS)
5 (EM)
2 (DOS)
4 (EM)
-
ISCEV2
-
100 (DOS)
500 (EM)
25 (DOS)
50 (EM)
4 (DOS)
4 (EM)
2500 (DOS)
5000 (EM)
ISCLT2
500 (DOS)
1200 (EM)
100 (DOS)
300 (EM)
3 (DOS)
5 (EM)
-
-
     Fortran PARAMETER statements are also used to specify the
array limits for the number of high short term values by
receptor to store for the ISCST2 model (NVAL, initially set to
6),  and the number of overall maximum values to store (NMAX,
initially set to 50 for ISCST2 and to 10 for Long Term).  The
NMAX limits correspond to the limits available in the previous
versions of the model, but can also be modified by the user and
the model recompiled in order to meet particular needs.
     In addition to the parameters mentioned above, parameters
are used to specify the number of receptor networks in a
particular run (NNET), and the number of x-coordinate (or
distance) and y-coordinate (or direction) values (IXM and IYM)
for each receptor network.  Initially, the models allow up to 5
receptor networks (of either type) and up to 50 x-coordinates
(or distances) and up to 50 y-coordinates (or directions).  The
source arrays also include limits on the number of variable
emission rate factors per source  (NQF, initially set to 96 for
Short Term, 36 for the DOS Long Term, and 144 for the EM Long
Term), the number of sectors for direction-specific building
dimensions (NSEC, initially set to 36 for Short Term and 16 for
Long Term), and the number of settling and removal categories
(NVSMAX, initially set to 20).
                              3-8

-------
     To modify the array limits for the model, the user must
first edit the appropriate PARAMETER values in the MAIN1.INC
file for that model.  Once the array limits have been
customized to a particular application's needs, then the entire
model must be recompiled and linked (see above).  Because the
high value arrays in the ISCST2 model are 4-dimensional arrays
(NREC,NVAL,NGRP,NAVE) and there are three arrays with these
dimensions (the sorted high values, the data period for each
value, and the calm and missing value flag for each value), the
model's storage requirements are particularly sensitive to
increasing the number of source groups or the number of high
values to store at each receptor location.  For example, the
amount of storage space required to store these three arrays
with the initial PARAMETER values for the DOS version is about
13OK.  To increase the number of source groups from 2 to 4
would double the storage requirement,  adding at least another
130K to the load size of the model.
     The user should first determine the types of applications
for which they most typically use the models, and then modify
the appropriate PARAMETER values accordingly.  If someone never
(or very rarely) uses variable emission rate factors, then
modifying the NQF parameter could free up some memory.  Setting
NQF to 24 (which would still handle HROFDY factors), will free
up about 29K for a model using 100 sources.  The user may also
wish to reduce the NVSMAX parameter if settling and removal
categories are rarely used.
     Often,  when a larger number of source groups has been used
with the previous version of the ISCST model, it has been for
the purpose of performing source contribution (or source
culpability)  analyses.  Since the ISCEV2 (EVENT) model provides
this type of information without having to specify a separate
source group for each source, the need for large numbers of
source groups in the new models should be lessened.  If the
storage limits available on the 640K PC environment are too
restrictive for particular applications, then the user should

                              3-9

-------
examine the possibility of using a different hardware
environment or a different operating system where the 64OK
barrier will not be limiting.  Such systems are available for
PCs with 80386 and 80486 processors.  The extended memory (EM)
versions of the models provided on the SCRAM BBS require an
80386 or 80486 processor with at least 4 MB of RAM (3 MB of
available extended memory).   The setup and application of the
models on the DEC VAX minicomputer and the IBM 3090 mainframe
computer are also described in the next section of this User's
Guide, and in more detail in Volume III of the ISC2 User's
Guide.

3.2 NON-DOS PC'S

     The only requirement for porting the models to non-DOS PC
environments is the availability of a Fortran compiler capable
of operating in and compiling for the non-DOS operating system.
The extended memory (EM) versions of the models available on
the SCRAM BBS were compiled using the Lahey F77L-EM/32 Fortran
Compiler (Version 4.02), which uses the Ergo Computing OS/386
operating system to access extended memory in 32-bit protected
mode.  The EM executable files are bound with the Ergo OS/386
operating system and a load module to allow the models to be
run on DOS machines.
     The EM versions generate PC-executable files capable of
utilizing extended memory on 80386 and 80486 PCs with at least
4 MB of RAM.  A batch file is provided for compiling the ISCST2
model  (ISCST2EM.EXE) with the Lahey compiler (F77LISCS.BAT) and
includes the following commands:
     F77L3 ISCST2.FOR /NO /NW /D1LAHEY
     F77L3 SETUP.FOR  /NO /NW
     F77L3 COSET.FOR  /NO /NW
     F77L3 SOSET.FOR  /NO /NW
     F77L3 RESET.FOR  /NO /NW
     F77L3 MESET.FOR  /NO /NW
     F77L3 OUSET.FOR  /NO /NW
     F77L3 INPSUM.FOR /NO /NW
     F77L3 METEXT.FOR /NO /NW
                              3-10

-------
     F77L3 CALC1.FOR   /NO  /NW
     F77L3 CALC2.FOR   /NO  /NW
     F77L3 PRISE.FOR   /NO  /NW
     F77L3 SIGMAS.FOR  /NO  /NW
     F77L3 CALC3.FOR   /NO  /NW
     F77L3 CALC4.FOR   /NO  /NW
     F77L3 OUTPUT.FOR  /NO  /NW
     UP L32 @ISCST2EM.LRF
where /NO option instructs the compiler not to list the
compiler options to the  screen,  the /NW option suppresses a
certain level of warning messages,  and the /D1LAHEY option for
the ISCST2.FOR source  file instructs the compiler to use the
conditional compilation  blocks defined for the Lahey compiler.
These conditional blocks of code enable the PC-specific
features, such as writing  the date  and time on each page of the
output file and writing  an update to the screen on the status
of processing.  To implement the PC-specific code, the user
should delete the field  'CPC' used  to comment out certain lines
in the ISCST2.FOR file.  Each of the source files (*.FOR) for
the ISCST2 model are listed separately in this batch file,
which assumes that all of  the source code modules and the
include files are in a single directory, or that the compiler
has been setup to search for the include files in the
appropriate directory.   The 'UP L32 @ISCST2EM.LRF' links the
model using the ISCST2EM.LRF link response file, which includes
the following command:
     ISCST2+SETUP+COSET+SOSET+RESET+MESET+OUSET+INPSUM+METEXT+CALC1+CALC2+
     CALC3+CALC4+PRISE+SIGMAS+OUTPUT
There are no memory overlays used for the Lahey versions, since
they make use of extended  memory.
     One significant advantage to installing and running the
models in 32-bit protected mode on  PCs is the ability to
address a much larger  memory storage area.  This allows for the
data storage limits controlled by the Fortran PARAMETER
statements to be set much  higher than is possible for the DOS
versions.  By using the  32-bit instruction set,  the protected
mode versions also, tend  to run about 20 to 30 percent faster
than the DOS versions.

                              3-11

-------
3.3 DEC VAX


3.3.1 Compiler/System Dependent Preprocessing.


     The ISC2 codes as provided on the SCRAM BBS are compatible

with VAX-11 FORTRAN Version 2 and above, except that the

PC-specific features have been commented out.  These features
include writing the date and time on each page of the printed

output file and writing an update to the screen on the status
of processing.


3.3.2 Creating An Executable ISCST2.


     Although the users can specify any way they want to group

and store the code and data files, the easiest way is to copy

all the source codes modules, INCLUDE files and meteorology

data into a subdirectory.  The user can then write a .COM file
to compile, link and create an executable.

     The files needed to make the ISCST2 executable are the

following:

     MAIN1.INC, MAIN2.INC, MAIN3.INC, ISCST2.FOR, SETUP.FOR,
COSET.FOR, SOSET.FOR, RESET.FOR, MESET.FOR, OUSET.FOR,
INPSUM.FOR, METEXT.FOR, CALC1.FOR, CALC2.FOR, PRISE.FOR,
SIGMAS.FOR, CALC3.FOR, CALC4.FOR, OUTPUT.FOR

     The following is a sample command file named MAKEISC.COM:

     $SET DBF [USERNAME.ISCST]
     $ FOR ISCST2.FOR
     $ FOR SETUP.FOR
     $ FOR COSET.FOR
     $ FOR SOSET.FOR
     $ FOR RESET.FOR
     $ FOR MESET.FOR
     $ FOR OUSET.FOR
     $ FOR INPSUM.FOR
     $ FOR METEXT.FOR
     $ FOR CALC1.FOR
     $ FOR CALC2.FOR
     $ FOR PRISE.FOR
     $ FOR SIGMAS.FOR
     $ FOR CALC3.FOR


                              3-12

-------
     $ FOR CALC4.FOR
     $ FOR OUTPUT.FOR
     $LINK ISCST2,SETUP,COSET,SOSET,RESET,MESET,OUTSET,-
     INPSUM,METEXT,CALC1,CALC2,PRISE,SIGMAS,CALC3,CALC4,OUTPUT
     $ EXIT
     To make the executable file, the users should run the
MAKEISC.COM file by typing @makeisc after the command line
prompt and pressing ENTER.

3.3.3 Running ISCST2.

     The VAX/VMS operating system is somewhat different from
the DOS and UNIX operating environments.  The users are not
able to direct system I/O on the command line prompt.  Instead,
the users need to generate a .COM file first, and then run the
.COM file online or submit the .COM file to a system batch
queue.
     Here is an example of the .COM runfile named RUNISC.COM:
     $SET DBF [USERNAME.ISCST]
     $DEFINE/USER_MODE SYS$INPUT TEST-ST.INP
     $DEFINE/USER_MODE SYS$OUTPUT TEST-ST.OUT
     $RUN ISCST2
     $EXIT
The users can either type in @runisc ENTER to run the model
online or SUBMIT runisc on the command line prompt to submit a
batch job.

3.4 IBM 3090

3.4.1 Compiler/System Dependent Preprocessing.

     The ISC2 codes as provided on the SCRAM BBS are compatible
with the IBM VS FORTRAN (Version 2), except that the
PC-specific features have been commented out.  These features
include writing the date and time on each page of the printed
output file and writing an update to the screen on the status
of processing.  The syntax for the INCLUDE statement is
                              3-13

-------
different on the IBM VS FORTRAN, and the user will have to
replace the statements such as:
     INCLUDE •MAIN1.INC'
 with a corresponding statement such as:
     INCLUDE (MAIN1)
throughout the ISC2 source code.  This can easily be
accomplished with the editor, and there are three INCLUDE files
used in each of the models.  For the ISCST2 model, the INCLUDE
file names are MAIN1.INC, MAIN2.INC, and MAIN3.INC.

3.4.2 Creating An Executable ISCST2.

     The ISCST2 model can be compiled and linked in one step
under VS FORTRAN by executing the appropriate procedure (e.g.,
VSF2CG to compile and load) in the JCL for the compile job.  It
is easiest to concatenate all of the source (*.FOR) files into
a single partitioned data set member, and identify that file
name with a DD statement in the JCL.  Special procedures may be
needed to access the INCLUDE files, where each INCLUDE file
should be a member in a partitioned data set.

3.4.3 Running ISCST2.

     When running the ISCST2 model under IBM/MVS, special
attention is needed to defining and controlling the file I/O.
The input runstream file is read from the default input unit,
Fortran unit number 5, and the output print file is written to
the default output unit, Fortran unit number 6.  The input
meteorological data file is read from Fortran unit 19.  Other
system files include the temporary error/message file  (unit 10)
and the temporary event file for ISCST2 (unit 18).  These
files, as well as any user-specified optional output files,
must be defined with DD statements in the JCL.
                              3-14

-------
3.5 VARIOUS UNIX MACHINES (CRAY, SUN, DEC VAX, AT&T)

3.5.1 Compiler/System Dependent Preprocessing.

     The ISC2 codes as provided on the SCRAM BBS are compatible
with any ANSI Standard FORTRAN 77 Compiler operating under
UNICOS, UNIX, and SUN OS, except that the PC-specific features
have been commented out.  These features include writing the
date and time on each page of the printed output file and
writing an update to the screen on the status of processing.

3.5.2 Creating An Executable ISCST2.

     Although the users can specify any way they want to group
and store the code and data files, the easiest way is to copy
all the source codes modules, INCLUDE files and meteorology
data into a subdirectory.  The users should make sure that
every source file has suffix .f and the file name should be a
lower case ASCII character string, because the UNICOS, UNIX,
and SUN OS is case-sensitive. Also, for the same reason, all of
the .INC file should be in UPPER CASE.  The user can then write
a make file to compile, link and create an executable.
     The files needed to make the ISCST2 executable are the
following:
     MAIN1.INC, MAIN2.INC, MAIN3.INC, ISCST2.F, SETUP.F,
     COSET.F, SOSET.F, RESET.F, MESET.F, OUSET.F, INPSUM.F,
     METEXT.F, CALC1.F, CALC2.F, PRISE.FOR, SIGMAS.F, CALC3.F,
     CALC4.F, OUTPUT.F
     Compiling ISCST2 is relatively easy under UNIX operating
environment due to the similarity between DOS and UNIX.  For a
DEC VAX workstation running Utrix 4.3, the command:

     f77 -o iscst2 *.f
                              3-15

-------
will generate an ISCST2 executable.  For a CRAY running UNICOS

5.1, the following commands will generate an ISCST2 executable

under UNICOS:

     cft77 iscst2.f
     cft77 setupof
     cft77 coset.f
     cft77 soset.f
     cft77 reset.f
     cft77 meset.f
     cft77 ouset.f
     cft77 inpsum.f
     cft77 metext.f
     cft77 calcl.f
     cft77 calc2.f
     cft77 prise.f
     cft77 sigmas.f
     cft77 calca.f
     Cft77 calc4.f
     Cft77 output.f
     segldr -o iscst2 *.o

     The command for compiling ISCST2 under the SUN OS

environment is similar to the one for VAX Utrix 4.3.


3.5.3 Running ISCST2.


     Before running ISCST2, the users need to check the

meteorology data file and make sure the file name matches the

one in the input file.  File names in UNIX are case sensitive,

so the characters in the file name need to match the ones in
the input file.  Then the user can type:


     iscst2 outputfile


 to run the executable.


3.6 CONTROLLING INPUT AND OUTPUT FILES


     This section describes the various input and output files

used by the ISC2 models, and discusses control of input and

output  (I/O) on the IBM PC-compatible environment.  Much of
                              3-16

-------
this discussion also applies to operating the models in other
environments.

3.6.1 Description of ISC2 Input Files

     The two basic types of input files needed to run all of
the ISC2 models are the input runstream file containing the
modeling options, source data and receptor data, and the input
meteorological data file.  Each of these is discussed below, as
well as a special file that may be used to initialize the
ISCST2 model with intermediate results from a previous run.

     3.6.1.1 Input Runstream File.

     The input runstream file contains the user-specified
options for running the various ISC2 models, includes the
source parameter data and source group information, defines the
receptor locations, specifies the location and parameters
regarding the meteorological data, and specifies the output
options.  The basic structure of the input runstream file is
the same for all three models, although the list of available
keywords for defining options, and the exact syntax for certain
keywords are slightly different between the Short Term and Long
Term models.  Details regarding the keywords and parameters
used in the input runstream file are provided in Section 3 and
Appendix B of Volume I.
     For the PC-executable versions of the models available on
the SCRAM BBS, the runstream file is explicitly opened by the
models using a Fortran OPEN statement, and the integer
variable, INUNIT, specifies the unit number for the file.  The
variable INUNIT is initialized to a value of 5 in a BLOCK DATA
subprogram of the model, which corresponds to the default input
unit for Fortran.  The INUNIT variable is included in a named
COMMON block (FUNITS) in the MAIN1.INC include file, and is
therefore available to all of the necessary subroutines.
                              3-17

-------
     Since the input runstream file is opened explicitly with a
blank filename, the model will take the first parameter on the
command line when running the model as the input filename.  No
DOS redirection symbol should be used preceding the runstream
filename.

     3.6.1.2 Meteorological Data File.

     The input meteorological data is read into the models from
a separate data file for all three models.  The meteorological
filename and format are specified within the input runstream
file using the ME INPUTFIL keyword.  The Short Term models
accept meteorological data from unformatted sequential files
generated by the RAMMET and MPRM preprocessors, and also accept
a wide range of formatted ASCII files of hourly sequential
records.  The Long Term model accepts STability ARray (STAR)
meteorological data from sequential ASCII files using either a
default READ format, a user-specified READ format or
free-formatted READs.
     The meteorological data file is explicitly opened by the
models using a Fortran OPEN statement, and the integer
variable, MFUNIT, specifies the unit number for the file.  The
variable MFUNIT is initialized to a value of 19 in a BLOCK DATA
subprogram of the model.  The MFUNIT variable is included in a
named COMMON block  (FUNITS) in the MAIN1.INC include file, and
is therefore available to all of the necessary subroutines.

     3.6.1.3 Initialization File for Model Re-start.

     The ISCST2 model has an optional capability to store
intermediate results to an unformatted (sometimes called
binary) file for later re-starting of the model in the event of
a power failure or user interrupt.  This unformatted file may
therefore be used as an input file to initialize the model.
This option is controlled by the SAVEFILE (saves intermediate
                              3-18

-------
results to a file) and the INITFILE (initialize result arrays
from a previously saved file) keywords on the CO pathway.
     When initializing the model for the re-start option, the
user specifies the name of the unformatted results file on the
INITFILE keyword.  The default filename used if no parameter is
provided is TMP.FIL.  The initialization file is explicitly
opened by the ISCST2 model, and the integer variable, IRSUNT,
specifies the unit number for the file.  The variable IRSUNT is
initialized to a value of 15 in a BLOCK DATA subprogram of the
model.  The IRSUNT variable is included in a named COMMON block
(FUNITS) in the MAIN1.INC include file, and is therefore
available to all of the necessary subroutines.

3.6.2 Description of ISC2 Output Files

     The ISC2 models produce a variety of output files,
including the main print file of model results, an unformatted
file of intermediate results for later re-start of the model,
and several output data files for specialized purposes.  These
files are described in detail below.

     3.6.2.1 Output Print File.

     Each of the revised ISC2 models produces a main output
print file of model results.  The contents and organization of
this file for the ISCST2 model are shown in Figure 2-5 of
Volume I.  This file includes an echo of the input runstream
images at the beginning of the file (up until a NO ECHO input
is encountered).  A summary of runstream setup messages and a
summary of the inputs follow the echo of inputs.  The input
summary includes a summary of modeling options, source data,
receptor data, and meteorological data, following the same
order as the pathways in the runstream file.  If model
calculations are performed, then the model results are
summarized next.  The content and order of the model result
                              3-19

-------
summaries depend on the output options selected and on the
particular model being run.  Following the detailed model
results are summary tables of the high values for each
averaging period and source group (ISCST2 only).   The final
portion of the main output print file is the summary of
messages for the complete model run.
     For the PC-executable versions of the models available on
the SCRAM BBS, the main print output file is explicitly opened
by the models using a Fortran OPEN statement, and the integer
variable, IOUNIT, specifies the unit number for the file.  The
variable IOUNIT is initialized to a value of 6 in a BLOCK DATA
subprogram of the model, which corresponds to the default
output unit for Fortran.  The IOUNIT variable is included in a
named COMMON block (FUNITS) in the MAIN1.INC include file, and
is therefore available to all of the necessary subroutines.
     Since the main print output file is opened explicitly, the
model will take the second parameter on the command line when
running the model as the output filename.  No DOS redirection
symbol should be used preceding the output filename.  If an
output file is not given on the command line, then the model
will return an error message and abort execution.
     The main output file is written to the file attached to
Fortran unit number 6.  The file unit number is controlled
through the integer variable IOUNIT, which is initialized to 6
in a BLOCK DATA subprogram of the model.  The IOUNIT variable
is included in a named COMMON block (FUNITS) in the MAIN1.INC
include file, and is therefore available to all of the
necessary subroutines.  For the PC-executable versions of the
models available on the SCRAM BBS, the output file is
explicitly opened by the models, therefore when running the
models on the PC, the DOS redirection symbol for output  (>)
should NOT be typed before the output filename on the command
line.  If an output file is not given on the command line, then
the model will return an error message and abort execution.
                              3-20

-------
     By opening the printed output file explicitly, the outputs
are not automatically formatted for the printer.  This
formatting is accomplished using the CARRIAGE CONTROL specifier
in the OPEN statement for the Lahey extended memory version of
the models, and by explicitly writing the ASCII form feed
character to the file for the Microsoft DOS version.

     3.6.2.2 Detailed Error Message File.

     The user may select an option for the model to save a
separate file of detailed error and other messages, through use
of the CO ERRORFIL keyword.  The format and syntax of these
messages is described in Appendix E of Volume I.  The order of
messages within the file is the order in which they were
generated by the model.  The file includes all types of
messages that were generated.
     The error message file is explicitly opened by the model
using a Fortran OPEN statement, and the integer variable,
IERUNT, specifies the unit number for the file.  The variable
IERUNT is initialized to a value of 10 in a BLOCK DATA
subprogram of the model.  The IERUNT variable is included in a
named COMMON block (FUNITS) in the MAIN1.INC include file, and
is therefore available to all of the necessary subroutines.

     3.6.2.3 Intermediate Results File for Model Re-start.

     The ISCST2 model has an optional capability to store
intermediate results to an unformatted (sometimes called
binary) file for later re-starting of the model in the event of
a power failure or user interrupt.  This unformatted file may
therefore be used as an input file to initialize the model.
This option is controlled by the SAVEFILE (saves intermediate
results to a file)  and the INITFILE (initialize result arrays
from a previously saved file) keywords on the CO pathway.
                              3-21

-------
     When saving the intermediate results for the re-start
option, the user specifies the name of the unformatted results
file on the SAVEFILE keyword.  The user has the option of
specifying a single filename, two filenames (for alternate
saves), or specifying no filename.  The default filename used
if no parameter is provided is TMP.FIL.  If a single file is
used, then the intermediate results file is overwritten on each
successive dump, with the chance that the file will be lost if
the interrupt occurs during the time that the file is opened.
If two filenames are provided, then the model also saves to the
second file on alternate dumps, so that the next most recent
dump will always be available.  The main save file is
explicitly opened by the ISCST2 model, and the integer
variable, IDPUNT, specifies the unit number for the file.  The
variable IDPUNT is initialized to a value of 12 in a BLOCK DATA
subprogram of the model.  If a second save file is used, then
it is also opened explicitly, and the integer variable IDPUN2,
initialized to a value of 14, specifies the unit number.

     3.6.2.4 Maximum Value/Threshold File.

     The user may select an option for the ISCST2 model to
generate a file or files of concentration (or deposition)
values exceeding a user-specified threshold.  The OU MAXIFILE
keyword controls this option.  The user may select separate
files for each averaging period and source group combination
for which a list of threshold violations may be needed.  Each
file includes several records with header information
identifying the averaging period, source group and threshold
value, and then a record for every occurrence where the result
for that averaging period/source group equals or exceeds the
threshold value.  Each of these records includes the averaging
period, source group ID, date for the threshold violation
(ending hour of the averaging period), the x, y, z and flagpole
receptor height for the receptor location where the violation
occurred, and the concentration or deposition value.
                              3-22

-------
     The structure of the threshold violation file is described
in more detail in Appendix F of Volume I.  Each of the files
selected by the user is opened explicitly by the model as an
formatted file.  The filenames are provided on the input
runstream image.  The user may specify the file unit on the
MAXIFILE card through the optional FUNIT parameter.
User-specified units must be greater than or equal to 20, and
are recommended to be less than or equal to 100.  If no file
unit is specified, then the file unit is determined internally
according to the following formula:

     IMXUNT = 100 + IGRP*10 + IAVE

where IMXUNT is the Fortran unit number, IGRP is the source
group number (the order in which the group is defined in the
runstream file), and IAVE is the averaging period number (the
order of the averaging period as specified on the CO AVERTIME
card).  This formula will not cause any conflict with other
file units used by the model for up to 9 source groups and up
to 9 short term averaging periods.

     3.6.2.5 Sequential Results File for Postprocessing.

     The user may select an option for the ISCST2 model to
generate a file or files of concentration (or deposition)
values suitable for postprocessing.  The OU POSTFILE keyword
controls this option.  The user may select separate files for
each averaging period and source group combination for which
postprocessing may be needed.  For each file requested, the
user has the option of specifying whether to use unformatted
files suitable for postprocessing or to use a plot format which
could allow for inporting the x,y,conc files into a graphics
package for plotting.  For the unformatted file option, each
file consists of sequential unformatted records of values at
each receptor location for every averaging period calculated.
For the plot file format option, each file consists of
                              3-23

-------
formatted records listing the x-coordinate, y-coordinate and
concurrent concentration (or deposition)  values for each
receptor and for all averaging periods calculated.  For certain
applications, these files may become quite large, and should
only be used when needed, especially when using the plot
format.
     The structure of both types of postprocessing file is
described in more detail in Appendix F of Volume I.  Each of
the postprocessing files selected by the user is opened
explicitly by the model as either an unformatted or a formatted
file, depending on the option selected.  The filenames are
provided on the input runstream image.  The user may specify
the file unit on the POSTFILE card through the optional FUNIT
parameter.  User-specified units must be greater than or equal
to 20, and are recommended to be less than or equal to 100.  If
no file unit is specified, then the file unit is determined
internally according to the following formulas:

     IPSUNT = 200 + IGRP*10 + IAVE     for short term averages
     IAPUNT = 300 + IGRP*10 - 5        for PERIOD averages

where IPSUNT and IAPUNT are the Fortran unit numbers, IGRP is
the source group number  (the order in which the group is
defined in the runstream file), and IAVE is the averaging
period number (the order of the averaging period as specified
on the CO AVERTIME card).  This formula will not cause any
conflict with other file units used by the model for up to 9
source groups and up to 9 short term averaging periods.

     3.6.2.6 High Value Summary File for Plotting.

     The user may select an option for the ISCST2 model to
generate a file or files of the highest concentration  (or
deposition) values at each receptor suitable for importing into
a graphics package in order to generate contour plots.  The OU
PLOTFILE keyword controls this option.  The user may select
                              3-24

-------
separate files for each averaging period, source group and high
value combination for which a plot file may be needed.  Each
file includes several records with header information
identifying the averaging period, source group and high value
number of the results, and then a record for each receptor
which contains the x and y coordinates for the receptor
location, the appropriate high value at that location, and the
averaging period, source group and high value number.
     The structure of the plot file is described in more detail
in Appendix F of Volume I.  Each of the plot files selected by
the user is opened explicitly by the model as an formatted
file.  The filenames are provided on the input runstream image.
The user may specify the file unit on the MAXIFILE card through
the optional FUNIT parameter.  User-specified units must be
greater than or equal to 20, and are recommended to be less
than or equal to 100.  If no file unit is specified, then the
file unit is determined internally according to the following
formulas:

  IPLUNT = (IVAL+3)*100 + IGRP*10 + IAVE  for short term aver.
  IPPUNT = 300 + IGRP*10                  for PERIOD averages

where IPLUNT and IPPUNT are the Fortran unit numbers, IVAL is
the high value number (1 for FIRST highest, 2 for SECOND
highest, etc.), IGRP is the source group number (the order in
which the group is defined in the runstream file),  and IAVE is
the averaging period number (the order of the averaging period
as specified on the CO AVERTIME card).  This formula will not
cause any conflict with other file units used by the model for
up to 9 source groups and up to 9 short term averaging periods.
                              3-25

-------
3.6.3 Control of File Inputs and Outputs (I/O)

     3.6.3.1 Control of I/O on DOS PCs.

     The main input runstream file and the main output print
file are both specified on the command line when running the
models on a PC.  Since the PC-executable files provided
explicitly open these two files, there is no need to use DOS
redirection of input and output.  Therefore, a standard command
line to execute the ISCST2 model might look something like
this:
          C:\>ISCST2 TEST-ST.INP TEST-ST.OUT
where the "DOS prompt" has been given as MC:\>", but may look
different on different systems, or may include a subdirectory
specification.  Since DOS redirection is not used for the
output file, an output filename must be specified or the model
will not execute properly.  This is done to allow for the model
to write an update to the PC terminal on the status of
processing.  The output file generated by the DOS version
includes page feeds that are written directly to the file as
part of the header for each page, rather than using the Fortran
carriage control of '1'.

     3.6.3.2 Controlling I/O on Other Computer Systems.

     The PC-executable versions of the models that are
available on the SCRAM BBS includes certain features that are
specific to operating the models in a PC environment.  These
include specifying the input and output file names on the
command line and writing an update on the status of the
processing to the computer screen.  In order to accomplish the
latter, the output file is opened explicitly.  The PC versions
also include writing a date and time for the run on each page
of the printed output file.  The Fortran computer code that is
used to implement these PC-specific features has been commented

                              3-26

-------
out in the source code files available on SCRAM.  This is done
in order to make the most use of the features available for the
PC while at the same time making the Fortran source code as
"portable" to other computer systems as reasonably possible.
This section briefly addresses the control of model input and
output for non-PC computer systems.
     With the PC-specific code commented out in the ISC2 source
code, the models will use the default input unit (Fortran unit
5) for reading the input runstream file, and the default output
unit (Fortran unit 6) for writing the printed output file.
These files are not opened explicitly by the models with the PC
code commented out.  These files have to be defined, using the
$DEFINE command in VAX/VMS and using the DD statement in the
JCL for the IBM/MVS.  Refer to Section 4.3 of Volume I for
additional information about running the models in other
environments.
                             3-27

-------

-------
               4.0  DESCRIPTION  OF MODEL  STRUCTURE

     This section describes the design and structure of the
ISC2 models.  Emphasis is placed on the ISCST2 model, since it
is the most commonly used model, and since the overall
structure of the three models is very similar.  Differences in
the structure of the ISCLT2 (Long Term)  model and the ISCEV2
(Short Term EVENT)  model are noted.

4.1 OVERVIEW OF MODEL DESIGN

     One of the goals of the reprogramming effort was to
produce code that is modular in design.   At the initial stages
of the model design, the model was broken down into functional
steps, and functional flowcharts were developed.  This process
continued through several stages in a top-down fashion as the
design became more detailed.  Another goal of the reprogramming
effort was to produce source code that is well-structured and
easy to read.  Most of the modules are therefore relatively
short, and use a consistent programming style with indents and
blank lines to block off sections of code in order to make the
structure easier to discern.  An alphabetical listing of all of
the ISC2 modules is provided in Appendix A, and calling trees
showing the heirarchy of module calls are provided in Appendix
B.  Due to the length of the source code for the ISC2 models
(over 40,000 lines total for all three models), it is not
practical to provide complete source listings in the user's
guide.  A cross-reference listing of program modules and source
code files is provided in Appendix F as a guide for locating
individual subroutines.
     The overall design of module interfaces depends greatly on
the structure of the data.  At an early stage of the design
process, the data structures were determined, and certain
decisions were made regarding the overall loop structure.  The
traditional structure employed in most of the existing
                              4-1

-------
dispersion models, including the previous versions of ISCST,
has the program loop on meteorology first, and for each hour of
data loop on sources, and then on receptors.  In addition to
this traditional structure, the ISC2 work group considered
alternative structures in which the order of the loops was
rearranged.  The former structure has advantages in terms of
computational efficiency, and in terms of current modes of
processing the data, but is very memory intensive, since all of
the source parameters, receptor arrays, and cumulative results
are stored in memory.  Alternative approaches may have some
advantages in storage efficiency, for example, if the source
loop is on the outside, and the source data could be stored in
a file to be read in as needed.  And there may be some
advantages in processing the entire year of impacts for a
particular point for certain types of data processing that may
be needed in the future.  But the decision was made that the
traditional structure has benefits that outweigh its
disadvantages, especially since memory storage limitations are
becoming easier to overcome in the PC environment.
     After initializing variables, the main module of the
ISCST2 model first calls the SETUP module which controls the
processing of setup information in the input runstream file.
The SETUP module loops through the runstream input records,
converts lower case characters to upper case, defines the
contents of each field on the record, extracts the pathway and
keyword fields, checks for the proper order of keywords, and
then calls a subroutine to process the inputs on the card based
on the pathway.  The routines for processing the inputs for
each pathway are controlled by the COCARD, SOCARD, REGARD,
MECARD and OUCARD modules, which check the keyword field to
determine what options or data are being input.  The routines
for each of the input pathways are contained in separate source
code modules, such as COSET for the CO pathway setup, SOSET for
the SO pathway setup, and so on.
                              4-2

-------
     Once the setup processing is completed, the main module
calls the INPSUM module which controls the printing of a
summary of the inputs.  The structure of the input summaries
mirrors in the input file structure, i.e., the model option and
control inputs are summarized first, followed by the source
inputs, the receptor inputs, and then the meteorology inputs.
If a fatal error has been encountered during the setup
processing, or if the user has selected the option NOT to run
the model calculations (using the CO RUNORNOT card), then
control skips to a printout of an error/message summary for the
whole model, and the program execution is terminated.  If
calculations are performed, then the model first checks to see
if the results arrays are to be initialized from a previous
model run.  The re-start feature applies only to the ISCST2
model.
     The main loop through the hourly meteorological data is
controlled by the HRLOOP module, which is called from the main
program.  This routine loops through calculations for the
entire meteorological data file.  When HRLOOP is finished, then
the model calculates period averages if selected by the user,
outputs plot files for high values, and then prints out the
main model results file.  Some model outputs, such as the
DAYTABLE  (concurrent values for each day processed), POSTFILE,
and MAXIFILE, are printed out as the data are processed from
within the main hourly loop.  The ISCEV2 model loops through
events from the EVLOOP module, and completes the processing and
outputs results for each event before proceeding to the next
event.  The EVLOOP module is called from the ISCEV2 main
module.  The ISCLT2 model reads the STAR frequency array into
memory, and then loops through the individual meteorological
conditions in much the same way that the ISCST2 model loops
through hours of meteorological data.  This allows for the use
of very similar code and data structures for the main
calculation modules between the Short Term and Long Term
models.  The ISCLT2 loops are contained in the LTMSA module for
                              4-3

-------
processing individual STAR summaries for months, seasons,
quarters or the annual period, and in the LTPER module for
processing the period average from all of the STAR summaries.
The ISCLT2 model calculates results for the individual STAR
summaries and outputs results for each one first, and then
rewinds the meteorology file and calculates the period
averages, if applicable.
     Within the ISCST2 hourly loop, the main calculation
modules are separated by source type.  The CALC module, called
from HRLOOP, contains the loop through all sources, and calls
either PCALC for point sources, VCALC for volume source, or
ACALC for area sources.  Each of these subroutines controls the
source-type-specific calculations for a particular source and
hour, and contains the loop for receptors.

4.2 HIERARCHY OF MODULE CALLS

     The overall hierarchy of module calls for the ISCST2 model
is shown in Figure 4-1, for the first two levels of
subroutines.  This lists the modules called from the main
program, ISCST2, and the modules called from each of those (a
D. prefix identifies a BLOCK DATA subprogram, and S. identifies
                              4-4

-------
a  SUBROUTINE).    Complete  module calling  trees  for  all  three
models are provided  in  Appendix B.
               ISCST2
               -D.INIT
               -S.VARINI
               -S.PCCOOE
               -S.SETUP
                 -S.LURUPR
                 -S.DEFINE
                 -S.GETFLD
                 -S.EXPATH
                 -S.EXKEY
                 -S.SETORD
                 -S.COCARD
                 -S.SOCARD
                 -S.REGARD
                 -S.MECARD
                 -S.OUCARD
                 -S.ERRHDL
               -S.TERRST
               -S.SUMTBL
               -S.INPSUM
                 -S.PRTOPT
                 -S.PRTSRC
                 -S.PRTREC
                 -S.CHKREC
                 L-S.PRTMET
               -S.RESINI
               -S.RSINIT
                 I-S.ERRHDL
               -S.HRLOOP
                 -S.METEXT
                 -S.ERRHDL
                 -S.CALC
                 -S.AVER
                 -S.HIVALS
                 -S.PRTDAY
                 -S.MAXFIL
                 L-S.POSTFL
                 -S.RSDUHP
              L-S.PERAVE
                 HI PER
               -S.PSTANN
                 L-S.ERRHDL
               -S.PLTANN
                 I-S.ERRHDL
               -S.PLOTFL
                 "-S.ERRHDL
              -S. OUTPUT
                 -S.
                 -S.
PRTANN
PRTNHI
                 -S.PRTMAX
                 -S.PRTSUM
                 LS.EVEFIL
              -S.HEADER
              -S.HSGWRT
                FIGURE 4-1.  MODULE CALLING HIERARCHY TO TWO LEVELS FOR ISCST2 MODEL
                                            4-5

-------
     The calling tree for the HRLOOP module is shown in more
detail in Figure 4-2.  This shows the structure of the CALC
module, which contains the main source loop, and which calls
the PCALC, VCALC, or ACALC module depending on the source type,
POINT, VOLUME or AREA, respectively.  Before calling the CALC
modules, the model first extracts and checks the meteorological
                              4-6

-------
data  for  the  current  hour.   The meteorological  data  extraction
is  controlled by  the  METEXT module.
      L-P.1SCST2
        L-S.HRLOOP  - - -  -
           hS.METEXT
              -S.GREGOR
              -S.JULIAN
              -S.METDAT
              -S.METCHK
              L-S.ERRHDL
              K.ERRHDL
              .CALC - - -  -
              hS.PCALC -  -
                 -S.SETSRC
                 -S.EMFACT
                 -S.WSADJ
                 -S.DISTF
                 -S.WAKFLQ
                 -S.XYDIST
                 -S.PHEFF
                 -S.PDIS
                 -S.PCHI
                 -S.PDEP
                 L-S.SUMVAL
              h-S.VCALC -  -
                 -S.SETSRC
                 -S.EMFACT
                 -S.WSADJ
                 -S.XYOIST
                 -S.VHEFF
                 -S.VDIS
                 -S.PCHI
                 -S.POEP
                 L-S.SUMVAL
              '-S.ACALC -  -
                 -S.SETSRC
                 -S.EMFACT
                 -S.WSADJ
                 -S.XYDIST
                 -S.ADIS
                 -S.ACHI
                 -S.ADEP
                 L-S.SUMVAL
           I-S.AVER
           [-S.HIVALS
              -S.NHIGH
                 L-S.HSETFG
              -S.HAXVAL
                 L-S.MSETFG
           hS.PRTDAY
              L-S.HEADER
           hS.MAXFIL
              L-S.ERRHDL
           I-S.POSTFL
              "-S.ERRHDL
           L-S.RSDUMP
-> Contains Loop Through  Hours
-> Contains Loop Through  Sources
-> Contains Loop Through  Receptors  for POINT Sources
   Contains Loop Through  Receptors  for VOLUME  Sources
-> Contains Loop Through  Receptors  for AREA Sources
            FIGURE  4-2.  HIERARCHY OF MODULE CALLS  FROM THE HRLOOP MODULE FOR ISCST2 MODEL
                                             4-7

-------
     The structure of the three source-specific 'CALC1 modules
is very similar, and they call many of the same SUBROUTINES.
The main calculation modules have been separated by source type
to improve the readability and reliability of the code, and
also to improve the efficiency of future maintenance to the
models as source type treatments are modified or new source
types are added.  Figure 4-3 provides full detail of the module
hierarchy for the point sources, processed by the PCALC module.
This is more complex than the VCALC and ACALC branches (shown
in Appendix B), because of the additional modules needed to
handle the plume rise and building downwash algorithms.
     The first step for calculating results for a particular
source in PCALC is to set the variables for that source from
the source arrays.  This is done in SUBROUTINE SETSRC, which is
called from PCALC, VCALC, and ACALC.  The next step is to apply
the variable emission rate factors, if applicable (SUB.
EMFACT).  If the emission rate, including the variable factor,
is zero (0.0), or if the release height is above the mixing
height, then the rest of the calculations for that source and
meteorological condition are skipped.  For point sources, the
model then adjusts the wind speed to the release height
(WSADJ), calculates the distance to final plume rise  (DISTF),
determines the applicable building wake switches (WAKFLG), and
then loops through the receptors.  For each receptor, the model
first calculates the downwind, crosswind, and radial distances,
and checks to see if the receptor is located upwind of the
source for that hour or if it is far enough off the plume
centerline (> 50 degrees) to ignore.  If not, then the model
calculates the effective plume height (SUB. PHEFF)  and checks
whether the plume height is above the mixing height.  If not,
then the model calculates the dispersion coefficients  (SUB.
PDIS) and calculates either the concentration (SUB. PCHI) or
the deposition  (SUB. PDEP) value, which is stored in the HRVAL
variable.  The HRVAL is then summed to the appropriate
average/cumulative value arrays.  .Similar steps are taken for
                              4-8

-------
the volume and area sources, except that building downwash and
plume rise algorithms don't apply.  For the point sources, the
model only calculates the final plume rise once for each source
for each hour, and then only calculates plume rise again if the
gradual (distance-dependent) plume rise is needed.  The gradual
rise is not calculated if the downwind distance to the receptor
is beyond the distance to final rise.
                              4-9

-------
                 tJ:
ISCST2
-S.HRLOOP
   -S.METEXT
   -S.CALC
      -S.PCALC
         -S.SETSRC
         -S.EMFACT
         -S.WSADJ
         -S.DISTF
         -S.WAKFLG
           L-S.DHPMOM
         -S.XYDIST
         -S.PHEFF
            -S.DELH
            -F.HSPRIM
            -S.DHPHS
              I-S.DHPMON
           L-S.DHPSS
              -S.SZENH
                  -S.SZDCAY
                  -S.XVZ
                       .SZCOEF
                      S.CUBIC
                       "-S.ERRHDL
                  LS.SIGZ
                    >-S.SZCOEF
              hS.SYENH
                   S.SIGY
                   S.XVY
               -S.BLPCB
               -S.BLPCM
                  .CUBIC
                  L-S.ERRHDL
         -S.PDIS
            -S.SIGY
            -S.SIGZ
              l-S. SZCOEF
           hS.BID
              LS.DHPHS
                  LS.DHPMOM
            -S.SYENH
                S.SIGY
                S.XVY
           '-S.SZENH
               -S.SZDCAY
               -S.XVZ
                   S.SZCOEF
                   S.CUBIC
                    L-S.ERRHOL
              L-S.SIGZ
                  LS. SZCOEF
         -S.PCHI
            -S.VERT
              L-S.VERTSR
            -S.DECAY
           LS.DEBOUT
         I-S.PDEP
            -S.VERTOS
              >-S.BBAR
            -S.DECAY
           LS.DEBOUT
         '-S.SUMVAL
              ti
FIGURE 4-3.   HIERARCHY  OF  MODULE  CALLS  FOR THE PCALC MODULE FOR THE  ISCST2 MODEL
                                    4-10

-------
4.3 PROGRAM DATA STRUCTURES

     The models were designed to store data, both input source
and receptor information and model results, into explicitly
dimensioned arrays.  The array limits are set by Fortran
PARAMETER statements in the MAIN1.INC file for each model.  The
models use a consistent set of index variables to explicitly
and clearly identify the data elements within the arrays with
particular sources, receptors, source groups, averaging
periods, etc.  There is also a consistent order of the array
indices, which is also reflected in the main program loops
through averaging periods, sources, and receptors.  In general,
the index that varies the fastest  (receptor in most cases) is
on the inside loop of the program and is the leftmost index of
the array.  This is because in the Fortran programming
language, array elements are stored in column-major order,
meaning that the leftmost subscript is incremented first when
an array is mapped into contiguous memory addresses.  The
processing loops within the model have the same general
structure as follows:
        DO 300 IAVE = 1, NUMAVE
           DO 200 IGRP = 1, NUMGRP
              DO 100 IREC = 1, NUMREC

                 executable statements
                 with array references such as;
                 AVEVAL(IREC,IGRP,IAVE)

   100        CONTINUE
   200     CONTINUE
   300  CONTINUE
where IREC is the index for the current receptor, and NUMREC
indicates the NUMber of RECeptors for a particular model run,
which must be less than or equal to the value assigned to the
NREC PARAMETER.  The main array index variables are summarized
below:
                              4-11

-------
Type of Data
Receptors
Sources
Source Groups
Averaging
Periods
High Values by
Receptor
Overall Maximum
Values
Array
Storage
Limit
NREC
NSRC
NGRP
NAVE
NVAL
NMAX
Number of
Values
for Current Run
NUMREC
NUMSRC
NUMGRP
NUMAVE
NHIVAL
NMXVAL
Current
Value
Within the Loops
IREC
I SRC
IGRP
IAVE
IVAL
IMAX
     For the ISCST2 model, the high value by receptor results
and the overall maximum values (regardless of location) are
updated continuously as the results are calculated.  The high
value by receptor results are stored in the
HIVALU(NREC,NVAL,NGRP,NAVE) array, and the overall maximum
value results are stored in the RMXVAL(NMAX,NGRP,NAVE) array.
The date and location for the high value by receptor results
are stored in corresponding arrays with the same structure as
the HIVALU array.  The grouping of arrays into named COMMON
blocks is shown in Appendix C, and the data structures for
individual arrays are described in the more detail in the data
dictionary provided in Appendix D.

4.4 PROGRAM DATA FLOW AND CONTROL STRUCTURES

     The programs make extensive use of named COMMON blocks to
control the flow of data between various modules of the code,
and to structure the data according to the various types and
uses of the data, e.g., setup information, input data arrays,
intermediate calculation variables, and output results.
Appendix C provides listings of the INCLUDE files for all three
models showing the COMMON blocks and PARAMETERS used.  As
described in the previous section, a consistent set of array
                              4-12

-------
indices and DO-loop limit variables are used throughout the
model to control references to individual data items within the
main arrays.  These indices are also included in named COMMON
blocks, so that that the arrays can be referenced clearly from
any module within the program without having to pass variables
as CALL arguments for each SUBROUTINE and FUNCTION.
     The runstream setup information is processed on a
record-by-record basis, with control for each input record
based on the pathway ID and keyword.  Each record is read
twice, once into an 80-character array called RUNST1, and a
second time into an array of 1-character elements called
RUNST(SO).  The RUNST array elements are converted from lower
case to upper case to facilitate later processing, and are
grouped into fields (separated by one or more spaces) and
stored in the 40-character per element FIELD(40) array.  The
contents of the FIELD array are then analyzed to extract the
input options and data for running the model.   For certain
cases, such as the title information and filenames, input data
are extracted as character substrings from the RUNST1 variable
using an internal READ in order to maintain the original case
as input by the user.  The 80-character RUNST1 variable is also
used to echo back the inputs to the main printed output file.
     The ISCST2 model uses a temporary file to store the high,
high-second-high, etc., design values for outputting the
summary tables at the end of the printed output file.  This
temporary file is also used for storing the inputs needed to
generate the input file for the ISCEV2 event model if that
option is selected.

4.5 DESCRIPTION OF ERROR HANDLING

     The error handling procedure works as an over viewer
through the whole model.  It detects all the possible errors in
different stages, and provides detailed information for trouble
shooting and debugging the input file.

                              4-13

-------
     When an error occurs, the error handler skips the troubled
data processing operation, takes the error type and error code
(which was setup internally to represent each kind of error),
matches them with a list that contains a more detailed message,
then writes out the complete error message to a temporary file.
Afterward, instead of stopping execution, the program goes on
to scan the next operation.  After the data processing
finishes, if the user specify an error message output file name
after the keyword "ERRORFIL" in the input runstream image file,
then the temporary file will be copied to a user-specified
filename.  If the user does not specify any name, but leaves a
blank field after the keyword "ERRORFIL", then the temporary
file will be copied a default-specified message file named
"ERRORS.LST".  If the optional ERRORFIL keyword is not present
in the runstream file, then the detailed message file will not
be saved when the model finishes executing.
     At the end of each data processing stage (for example:
setup processing stage), the error handler will output a
summary table.  The summary table shows the statistics of the
number of messages generated up through that modeling stage,
and also includes detailed messages for all warnings and fatal
errors.  The first summary table is written before the input
summary tables in the output file, and the last summary table
is written at the end of the output file.
                              4-14

-------
     The following  is an overall  flow chart for  the error
handling procedure:
    Data Processing Stages
Error Handling Process
                    Begin Message Sunmary For Setup
                      Error Handling
                    End Message Sunmary For Setup
                    Continue Message Summary For Run
                      Error Handling
                    End Message Summary For Run
      If  user selects  NOT on keyword RUNORNOT  in  the input
runstream file, the model terminates after it finishes the
model  setup regardless whether there is any error detected.
Otherwise,  the model  will terminate only if it detects a fatal
error  and it finishes the current  operation stage.   The error
handler  will keep going through the current operation stage and
detect all  the possible errors.
     The error handler will also write out all the warning
messages and information messages.   All of these messages serve
                                4-15

-------
as information, they provide the kind of non-fatal messages to
remind the user of possible problems.
     The error/message handling subroutines are listing below:

     ERRHDL: The key module for error handling procedure.
             Matches the error code with the detailed message
             and prints the message to the temporary message
             file.
     TERRST: Get total error statistics for a particular
             processing stage, either runstream setup
             processing or the full run.
     SUMTBL: Output a message summary table which covers all
             the messages for a particular processing stage,
             either runstream setup processing or the full run.

The ERRHDL subroutine is called any time a message is to be
generated.  The subroutine call includes the following calling
arguments:  the current pathway, the module from which the
message is generated; the message type  ('E1, 'W, or 'I'); the
three-digit message code; and the 8-character "hint" field. The
hint field often includes the keyword name where the error
occurred or a source ID or group ID.  For runtime messages
involving the meteorological data, the hint field usually
includes the 8-digit date variable, KURDAT.  This is passed by
writing the KURDAT variable to an 8-character DUMMY variable
(which is included in COMMON) with an internal WRITE statement.
These modules are described in more detail in Appendix A, and a
detailed module calling tree is presented in Appendix B.  A
listing of all of the detailed error messages is provided in
Appendix E, and the structure of the detailed error messages is
described in detail in Appendix E of Volume I.
                              4-16

-------
                         5.0  REFERENCES
ANSI, 1978:  American National Standard Programming Language
     FORTRAN.  ANSI X3.9-1978, American National Standards
     Institute, Inc., New York, New York 10018.

Bowers, J.F., J.R. Bjorklund and C.S. Cheney, 1979:  Industrial
     Source Complex  (ISC) Dispersion Model User's Guide. Volume
     I, EPA-450/4-79-030, U.S. Environmental Protection Agency,
     Research Triangle Park, North Carolina 27711.

Bowers, J.R., J.R. Bjorklund and C.S. Cheney, 1979:  Industrial
     Source Complex  (ISC) Dispersion Model User's Guide. Volume
     II, EPA-450/4-79-031, U.S. Environmental Protection
     Agency, Research Triangle Park, North Carolina  27711.

Environmental Protection Agency, 1986:  Industrial Source
     Complex (ISC) Dispersion Model User's Guide - Second
     Edition, Volume I. EPA-450/4-86-005a, U.S. Environmental
     Protection Agency, Research Triangle Park, North Carolina
     27711.

Environmental Protection Agency, 1987:  Industrial Source
     Complex (ISC) Dispersion Model User's Guide - Second
     Edition (Revised) Volume I. EPA-450/4-88-002a, U.S.
     Environmental Protection Agency, Research Triangle Park,
     North Carolina  27711.
                              5-1

-------

-------
           APPENDIX A. ALPHABETICAL MODULE REFERENCE

     This appendix provides an alphabetical listing of all of
the source code modules used in the ISC2 models.  A brief
description of each module is provided, along with the calling
module(s), a brief description of the inputs and outputs for
the module, and which model or models make use of the module.
A cross reference listing showing the location of each of these
modules within the ISC2 source code files is provided in
Appendix F.
                              A-l

-------

-------
 tn
H
 0)
T3
 O
CN
U
cn
 a>
X!
-P
 01
 0)
rH
 ,3
T3
 O
S

14-1
 o

-p
 
01 O
§CL CD
01 U
0 •-
L. 01 01
CO C. O
- o
cu cu u
u u o
c. c. cu
0 0 OJ
cn ca E
CJ
2


<
of — •
o E
CM

O CJ
— cn

ID
_. 01
35

CO <-
U 0

ca
— • CO
O 01
L. U
V U
§ i
u ca

u
_i

«
UJ

L.
0
*" j_
CO CO
— u
a •—
a.
UJ C-
o o
t.
°c3
CJ 4-*
x a.
801
8
X C_ 41
— • O
888
3C «l 0)

^j
g
U 01
•4- L.
H3
a. • ca
to ca cu
t- a .a
o u. a
•4- C- •—
to t-
ca a
c- c. >
01 0
1 " "
i- oi o>
g.'-.s
- o
01 CU C.
u u o
L. i_ 01
O O OJ
cn ca E
EVCALC


<
2J_
c- t?
0 Q
H- E
CO r—
c z
O UJ

*J UJ
CD
— ' 01
O 4-"

CO C.
0 0
4-
ca
— • CO
o cu
c. u
4-1 C-
§8
CJ CO

CM
(J
_J

CJ
t—

L.
o
c.
2.S
— u
CO •*-
*t:
cn co
Sr

H.
CJ 4v
§8-
"8
X i. 01
-- 0
3 U 3
z CU CO

^j
C
." £
•4- C.
CL » CO
ca co cu
c- a ja
o t- CD
H- l_ n-
9 <-
0) 0 >
g a co
ID O •—
C- 01 O)
- o
CU CU 1—
u u o
L. l_ 01
3 3 4J
O O 0)
cn co E
u
_ j
CJ


<
SJjj
<- Q
o e
CM

0 CJ
— cn

CO ""
— • 01
3 JC
U 4-*

10 C-
o o
«4-
CO
— • ca
O 01
c- u
4-* C.
0 0
CJ CO

CJ

CJ
UJ
«
cn

t.

U 4J
£ ™
!1

4- C.
O
Is-
V U
CO 01
L. L.
4-* ^
C 01
01 U
§8
U (A

JC. C
O) O
Is |
•g-s.15^
.^ . X 01
3 --n 4J •—
C CO Ol ••- 01
3 01 4) ^ JC
« 8 &S t
CO ID O
ca ca c ca a.
X— "- O)
co -a 3 - o
u ca cu
c- *n CL *- u
a c o cu

01 3 01 4J
o ca ^ E jc
U CO O CO Dl
3 o 


X
u
_J


,
II
U 4v
•^ ID
s.'|
0 °
* .3
H
4-" O
2 2
C ^*
01 O
§8
u ca

JC C
Ol O
oi ca 01
"2 gSVs
co g ca —
"sl."" .£
'3 --a w-?
C CO CU •— CU
3 CU CU — JC
"D C CO !E L.
10 to O
ca ca c co CL
ID "5 '3 -0
L. CO 01
c- T3 Q. c- c.
to C O O

01 '5 ** 01 4j"
O to Ji E -C
c- to u to 01
3 0 to 1. •-
O C_ 4-> OT 01
cn u ca Q.JZ
CJ
_i
<
CM
1—
CO
o en
ID C.
c- O
4-* H-
c
8 8
c u
O c.
U 3
O
_X CO


3 UJ
O Of


SL.
o

CO
«-* ca
3 cu
O 3
CO CO
u >

r—

CJ
r—


C.

U 4-1
'iE.§
g.|
<- u
o
**" 0
g«.
.— 01
ID 01
i_ L.
C 01
Ol U
§ 8
CJ CO

j= c
oi o
«»g
*O fl> -I—
C 0) Q. X
"ll'i^
'5 --o'4-> -?
C CO CU — CU
3 01 OJ — • JC
O O u.***
~o c co ja c.
ID CO O
to ca c co CL
a •5 '3 -o
c. ca oi
c- "a CL c_ i.
CD C O CU

01 3 Ol 4J
O 81 JK E JC
C. 10 O CD Ol
3 0 CO L. •-
o c- 4-> ca oi
cn u co CLJC
1—

E
01
4^
X
ID CM
45
cn
to "*
— L.
4J 0
C >4-

C CO
Q 01
a. u
X c.
0) 3
o

11
tl
CO U
c. O
O 4J
<4- CL
0)
§o
01
•*- 01
to u
§•8
O CO
?
JC C *X
oi o ••*•
CU CO
JC C. >
co g co ca
1%'v
Jto cu —
oi 2 —
U U-»-
C CO JQ
CD ID
co" ca C ca
S"? 3 -
fc-aaS
CO C O CU

01 3 J) -M
o ca -* E JC
C. CO O CO Ol
3 O to c. •-
O c. 4J m cu
cn u co CLJC
CJ
_1



g

'is
a. u
0) L_
•^ 3

>• CA

u <
3 UJ
O a:
JZ <

(A ^


(0
— • 

a.
UJ
§
_J



C.I
CO 4J
•3 S
fl

c.
(_ 0
£ vl
cu
§8
••— 0)
CA U
§•§
o ca
. ?
Jc c 'x

2'i
'3 CO
•n oi co"
(Z OJ Q. CO
CO E CO ID
•n -2 •5 "o
1 jf £
3 0> $ —
o u CL>—
•O C CO JD
CO 10
CA* CO C CO
X— —
co -a 3 -
t- ca
co "S §-,5
•^ 4J 4J
01 3 Ol 4->
u co J* S J=
L. CO U 10 Ol
3 O CO I. •-
O c- *-> 10 CU
cn u ca CLJC
CJ
CJ
CM
1—
u
cn
il
•- o
CO CA
O 01
Q- u
01 C-
"D 3
0
X CO

c- <
3 UJ
O Of
JC <

CO C.
01 O
4J *4-
10
— ^ CO
3 8
(D <0
CJ >

H-
— 1
a.
UJ


-------
t!
 o
u
 ta
rH
 0)
T3
 O
CM

U
 0)
X3
-P
 (fl

 0)
-P
 CO
 (0
 o
•H
-p
 0)
X)
 (0

S
1





a
4-*
a
o

|
3











a

0)
o
4->


£







go,
i!







i
a

u
CA
01
a


01
11
Ul
i-
g
CA
L.
CA

TJ
ID
U

i
11
— 'o
0) *4—

«J O


CO »
OI 0)
— * or
H"° "D
01 4-*

1 ,_

Si

O v 41

..? i
CA 01 4->
X.C CA
a •-

a 3 TJ
o, a£
U X
5£!
O ID O
u> i -a

CM
u u
u u



CA
(.
01
i
2
8.
g

L.
nes dispe
A sources
'i a!
2u
01 O
O H-

i
5
g
CO
L.
8.
CA

a
u

L.
$
•g!
a 01
— 'o
a •-
L. «*•
41 M»

— 1 (J


CA •
01 a
-2 ID

41 4->
.* 41
ID E
*t

ID i
U «-
01 «
O U 41

„.? a
CA 01 4-i
X JS IA
ID M-
<- 01 T>
1- g
oi "Q.»~
u x
«. 01 C
3 .* X
O ID O
en X TJ

-1 (M
u u
_J _J
U CJ



CA
L.
01
4-f
i IM
O 1—
i_ .1
ID U
a. co
§1
." 0
CO *-
L.
nes dispe
A sources
• ••» LLJ
gs
41
01 O
O H-

1 ADISLT
*

g

4-*

O

4.1
.C
O)
cu
c_
41






CO
41
4-»
i
L.
3.

4)
OI
1


§
01
4-*
CA
§
*~
4-1
1

u
UJ




4-*
-C
OI
c_
41

ID C
in ID

I
41
U
§
W



CA
41

i
c.
S.

%
1


§
41
u
4-»

§
u
4-"
1

|

CO

CA
1

t-
0)
4-*
U
8.

es source
A sources
t» Ul
CA at
01 <
2o
0. >4-

1
a.
*
01
c

w C
a —
U -C
•i- 4-1

01
J3 41
ID U
••- C-
L. 3
ID O
> CO
— * C_
a 01 v
0 J= O
•p» i * C
Ul 01
5i o

IA



CA U
01 c.
4J 3
o
OI CA
C
«•- H-

01
01 OI 41
Jig?


CA 1-
o S-2
•4- 3 "3
U
21?
4. " a
u u a
1- 01
3 X L.
o o o
in — • H-

u >- z « z
o ae co =c < a.
— i < > a. u a:

a LU — — — co
01
OI
c
a
l_ C_
a
3^
o •—
••- «4-
10 41
a a
CA
ID
ID

oi C
*-> -C
41 4-> CA
ix2
41 CA 41
C — 0
E"" 01 3
U O
01 u (A
*J 3
01 O -4-
Q CA O

a.
Of
(3
z
CO
_l


X
ID
a
4-1
OI

'3
.£
X
'i
41
?!
>l
< >



CA
01

1
u
a

0)
1


a
41


§


!

a
ae
S
UJ
Z


ai
0)
j=
OI
c
'i
41 IM
ID _l
t- O
41 CO
ID """
C.
CA O
01 -4-
ca
CA CA
0, 4J
II

1 AVEHHT
5



•2-2
> a
II
4-» L.
(D D)
(_
*-» 01
SJil
ci«
O CA
"x?
oi ja •-

,, t. «,








•4*
0
X
2
ID

41
3
— < CA
a c
> 0

41 *J
> a
ID C
— 41
3 O
u u

i
oc
IE


E
01
4-f
^J
L.
O
.n
(0
CA
2. %
SI —
ID 4->
U ID
tes appli
concent r
ID 41
"a >
U ID

at
1
UJ


01
**
> a
II
4-> L.
a 01
L.
v 41
g £1
cgw
O IA
^-?
01 01
a x ID
§! fc §!
< 0







•4-
0
x
2
c.
ID

41
3
— » CA
ID C
> O

41 Z
> ID
ID C
— • 41
3 O
U U

i

Ul


E
01
v
e_
O
J=
CA
CO
— 0
JD —
ID 4->
U 10
tes appli
concent r
ID 41
— • OI
3 01
U t-
_ 01
41 >
CJ ID

Ul
at
Ul
5
CA
01
3
ID
>
X
ID
L.
ID


CA
'x
41
OI
a
1




CA
01

i
t_
S.

01
OI
1


i
01
L.

CA
§

4-*
1

a
CK
CJ
UJ




"S
8.
CO
'x
41 IM
ID —1
t- CJ
41 CO
ID
L.
CA O
41 •*-
CA
CA CA
01 4^
a. •—

1 AVESPD
^





1

^^
I
.5
OI
ID
41




CA
41
4-*

c_
8.

41
OI
i


i
01
L.
4-*
CA
§


§.



u


CA
C
o
4-t
a.
o
1
01
c

ID
U
ID
CA
01
CA
CA
01
8
a.

1 AVETIM
5



X
a
L.
L.
a
41
L.
3
4-*
ID
L.
01
OI CA
ID 01
I— J
> ~a




£
41

i
L.
s.

41
OI
1


i
L.
4-f

§
^

1

u
Ul



CNJ
^
U
• •- L.
CA
41 4->
01 3
2 f
ID 41
CO 3
01 4->
CA IS
CA C.
01 01
8 |
a. w

Ul
^



«

x
41

"o
1
41
OI
ID
41


41*
O
C
•2
IA
TJ

.£

§
•§ c


CA 4->
co a.
ID O
"o c

+* c.
•^ 3

ID L.
4-- 3
cn c.

CO
a
i—
at
uu




^_
o
41 C.
3 O
— •«- C
ID O
> IM —
41 ID ID
OI E — '
ID OI 3
t- — O
41 CO — •
> ID
ID I- U
8 ° §
C 4J —

fill
0) X 0)
a 41 -a

CO
                                                                                                                                         n

-------
 o
u
 U)
i-H
 0)
•o
 o
u
w
 0)
 Ul
 0)
14-1
 o

-p
 10
•H
 (0
 o
•H
-p
 0)
XI
 (0
45
 a
1
X







CO

CO
0
1











<0
4V
ta
0
4V





JSP 
Q
41 "
"± H
|£

UJ


.
(A
01
U
L.
3
0
CA
oT

4->
CA
^s
*g
3 H-
Is

11
is
VI Q.
VI
£""


g
i
CA
"° N
a co
li

C CA
Adds buoyancy- i
to sigma-y and


a
3
i-






o

60


o
«4-
"8
4V


T?
CD
A
Ol
M
41
U
L.
3
O
CA
ClT
CO
4V
CA
4>
3 "4-
1 s
41

ii
E co
O) c.
vi a.
_l
VI
S""


§
L.
8.
CA
•5
•82
3 U
•Q VI

Adds buoyancy- i
to sigma-z for


0
m
^












ca
CJ

4V
S
'o

"S
o
u

"3 E
o 3
•*- 4-1

"o Q
L. E 4)
SO
•g c
4-1 C (O

8 x "
-0-5
CA C
1. CO *Q
41 X C
1* 2
a 5

41 .Q CA
o  x e
i E c
c- - O
ID « T3
Q-_4J

41 v3 CA*
CO > •«-
VI
VI
O.

0
Q.
_J
ca
L.
O
H-
v
S
O
*»-

01
Calculates C co
momentum rise


5
0.
m
i—
t—






i_
o
4-*
a
41




Is

SCO
U
o! —

CA
L.
41

1

8.
41
at
i
E
10
41
U
4V
CA
U
*4
I
o
at
5
Ul
oc
L.
O
4V
8-

X
L.

„


Processes plant
location inputs

at
a
OB
F—
VI



o
**-
CA
3


> L.
0
VI 4-*
Q. 3j
UJ U
00,

O 01
u
u c.
U CA

i-S
i ca
«- 41

L.
O

a"™
g.S
01 Dl
3-2
X O c.
CO c. 3
L. O O
SsS-11
c-X S
4i ca o
0, CO C.
E (. O
CO C. -4-
I- CO
CO CA
a c 41
o —
41 <— J3
u w ca
3 O I.
O O CO
VI — >
a.
8
at
x
i
H-
o
_,
o
L.
SV
VI
U 41


Provides overal
calculation mod


u
_J
s
Ul
1—
VI











Dl
CO

H-
'3

"cfl
u



^
o
u
4,
f-
•ologica
0
4,

4-1
§
u
3
U
X
u
III
*
L_
o
•4-
O
^
L.
"co
u


Checks meteorol
calm winds

X
-j
u
^
z
u
H-
I/I









CA
41
f
U
'3
CA


CO
CA

4,
CO
O



*4-
0
CA
41
4-*
-S
3 «,
O 4V
— CO
> TJ
01
a. a
CO O
4V O
41 0
I- 4->
3^
u
H-
UJ
X
41
u
.- 01
en u
"3 3

4> 
4-t


a
•4- O
4V c_
10 O
TJ H-
CA *O
.X C.
U 0
41 O
64)
l_

h-
1
X
u
UJ
*-












I
(0
4V
-s
.i?

CA
CA
X



13
c_
O
U
41
(_
•ologica
g
4V
i
4V

3
U
U
1—
UJ
X
c.
o
H-
13
L.
O
u
4)

CO
U


Checks meteorol
missing variabl

U
X
u
i—
VI
41


__
U

O
o


CA
i_
O
4V
8-g
O O
0) ._
t_ 4V
ID
M- — «
^j
Ol ~v
•t- o
4V
(A U
— O
_l H-



(A
O

CO
8
iource I
VI
CO
t-
o
4V
a
at
VI
a.

M
0
4V
41
CA
O
U
O
0
4V
Cfl
O
4V
a.
Checks for rece
source

u
ui
at
3C
u
H-






__
IS
CO


c
o

z

§
u
41
U
1.
3
O
VI




X
CO
L.
L.
CO
o
O)
u
L.
i
cfl

1
X
CO
X
1

-1
i
Dl
Dl
41 !c
U
L_ U
3 O
0 <4-
CA
CA .
E 01
3 3

Determines maxi
contribution va
values

X
X
1—
.J
u
^

"E
CO

CA Cfl
41 41
U U
4V 4V

3 3
(A (A

§CA
3
• r- 4V
4V (0
O. 4V
O CA

'cfl j=
CA 4V
41 CO
Is







•g
o
1
X
CO
3

S
a.
o
U
a.
=)
Ul
VI
"o
c.
o
^
0
CA
gg;
•f- aj
CA f=
Controls proces
pathway input ii

Q
ae
8
-




c
o
4V





O
1
u

o
§
4V
"o
VI

^
C -•
0 
f*) J^

?
CA
3
S
4V
CO
3
Solves cubic eq
Newton's Method


u
3
UJ
1—
VI





L.
O

CA
CA 4->
4, C
Dl 0>
C >
co to
c_


u
CA
CA 1
01 L.
4V 41
S^

CA
C_
41

1
£_
S.
41
O)
i
41
t_
4V
I

4V
1
0
UJ
X
Cfl
cu
I
L.
>•
13
•g
CO

Processes dates

a
at
2

-------
 c
 o
CJ
 (Q
rH
 0)
T3
 O
CM
U
CO
H

 0)

-P
 (0
 0)
r-l
 O
S

4-1
 O

-P
 Ul
 O
•H
-P
 (U
A

rH
<
i
x



CO

CO
o
5
Q.
s









CO
4-1
CO
Q
4-1
£







^


u *





Description


01
^ cu
ll
z





ca
|
S4"*


a>

5

CO
41
a

*

loJ

•n ... £
C 4-1 CA
111
co" u "D
t— *
a u
u o
'In i- c
o _S

ca co co
^3 C

— CO O
a. > o


— a.
Z UJ
u a
r~ i».

O
**-
ca

detailed output resu
ing purposes

ca oi
ca £

t—

UJ
0
_J
_J









4)
4-*
X
CO

a

'5

8-

.* V
CO 'u
CU*<4-
o cu
So
u
CO X
— CD
'8
2"°.

'3 •p*
i!
O CO


— a.
Z UJ
*• *•


c

ates decay term used
tration/depositi on
at ion

3 4) 3
u u o
^ o "co
u u u


s
UJ
0
_l


"Z
CO
I.

§1
•8 8
_»
.2"?
»• 5
u.
CU 4-1
•Q U
B *
3 4-<
Z CO
01
M-
CD
01
4-1
C
§
£
4-*
L.

4-»
3.
•— •

0.

1—
UJ
CO


•4- TJ
O <-
CO
C U
s number and locatio
on runstream input
4) CA
C TJ 01
'i * i
Ot- ••-

UJ
Ik
UJ
o
<







41
CO

l_
1
a

1

IL

"co g
u 3

o a;
°o S
L. g
O
£"S
g CD
cfl C
I- CO
01 X
4-1 O


as"
0) .Q CO

g'jl 3
Cfl >x-

u- Cfl
u. z
uj a.
z z
a. a
§

o
H-
01
ca
u
"a
2 -C
CO CO
— • CO
"CD o
U 13


=
UJ
a
^


01
CA

1
"a

•§

I
•o
i
OJ
CO
4-*
CA

Q

co E
u 3
o c
O Oj
"S s
c- E cu
o u
cu -g c
*• 2 «
C- CO "D
w O •*—
i J 1

as"*
Oi 2 CA"
u co cu

CO > *-

u.
u.
uj a
z «-
a. ca

o co a
OL ca
01 Q
CA ae **-
"- CJ O
ates gradual plume r
Snyder downwash and
and for calculation

3 C_ CA
U CU OI
— • £ lit
CO 3 CO
U Z U


a.

Q
_j



1
I

g
4j

fl
CO CU
.2!

a *a

*a g
u 3

"o §
u e oi
o o
• o "5
ca c

151

Q ca*T3
Q. 01
0) JO CA"
U CO 01
iiJI
Crt > -4-

—1 CO CO
U. Z Cfl
^ a. a.
3 Q Q


cu
CA

"3.
1
73
CO
:§
01 4->
4-* C
CO U

~3 S
u E
"3 o
U 4^

^
a.

0
^


It
1
"a
a.
oa
4-1
•Q

cu
CO
ca co

o <-

~m g
o 3 cu
O) C CO

° i cu"
o u
CU CO 4-*
"» CJ "O
t- CO "D
i E 1 4-

L. » O D)
CO CO "O —
Q. 01 01
oi 2} CA"^
U CO 01 0)
c- ••- x E
3 1- 3 5
o ca — • — *
Cfl > H- Q.

u.
14.
UJ
a.
t-
o
H-
01 CA
CO CU
••- CO
ates gradual plume r
an-Scire downwash ca

ll
U CO


Cfl
Cfl
a.

a
i-
co


L.
O
u
01

S
ca ca
CU 4-»
4>* 3
t- a.
CO C
u —
2§
4) —
I_ V
U CO
CO U

O — •

ca
u
01

1
L.
01
0)
i
01

L.

4-»
zj.
•"•
a


u
UJ
Of


C
CO
ses discrete Cartesi
or location inputs
CO 4-*
U 01
o u
L. 01
0. L.

ec
S

0
=.
CO



o

s
CO
l_ 4-f
01 ••-
C- 4->
U CD
CO U
— O
Q — •

ca
c.
cu

1
c.
il
§
01
4-*
L.


|
N-
a


UJ
ae

O
s.
cu
u
cu
c_
L.
CO
§.
01
4-*
01
1- CA
O 4->
ca 3
^ c
ca
01 C
ca o
ca ••-
01 4->
U CO
O 0
u o

•
2
CO

0
_J

cu"
ca
*" S *
Ijf

5 1 0
HI

**- "*- X
o o §
4-* 4->
a> ai c
00 CO
CO CO •
4-» 4-» 01
CA CA CO

S -5 'Z

•g-s
a u
u o

||
t_ -
01 Cfl
4-* 0)

(0 — •
a. J8
01 4J 3
U C CD
O Q CO
co E >

u
-J
s
o_


g-g
— CD

0 C
g|
CO
ca 4->
01 c.
x: o oi
4J H- CA
CA 01 tl
CU CA
4J '^ g
5 *• 2

Hi


u.
CO

o
^

CD

i
1
CD

C
4-*
4-*
Cfl
Is
CA -Q
4-1 CO

C eg


CA
c_
cu

1
i_
01
D)
i
01

L.


§.
i—
a


g
CO


CD
?

ses inputs for settl
I variables
CO CD
Proce
remov

0.
Ul
oe
a
^



5
2

U
H-
u
2L
CO
.1.1
*J CA
U C


0 13

ca
c_
cu
4-1
i

a
cu
o>
i
0)
4-1
L.

4-1
§.
*-•
a


g
CO


o

ses direction-specif
ng dimensions
CO —


CJ
a
ca
CO
a
in
<

-------
4J

I
 10
H
 Q)


1

CM
CJ
en
 0)
 Ul
 d)
H


TJ
 O

-p
 o
•H
-P
 0)
A
 (0
—
•§
o
X






CO
4V
CO
O















CO

ID
°


—






8.2

_




g
4V
Q.
L.
U
to
a





* 41
-ii
O 3E

*


.j




g


O CO
H-
o co
at L.
o. t.
io co
.1.2
4J (0

II




to
41
tj

5
8.

01
Ol
1


1
01

§
u

1


a
a
a
o



on-specific
n arrays
ii

u


=3

j
u.
(/)
a

_i

01

3
4V
CO

01
1
4V
a
4v ta
Ol 3
4V ^^
8..S
— ' 4V
CO C
u CD

ii
> 01



CO
01



a

01
Ol
1


E
ID
41

§


I


a
ae

Z



I potential
ent inputs
ID —
.2-8
4V 1_
(- Ol

W 3
01 4V
CO CO


c. £
0. 4V

I—
UJ
3:
^
a

_i





CO

i
sr
1

CO
4V


X




CO
41
^

CO
8.

a



i
01

§
u

4V
;!


s
s
en



X
ID
1
ID
4-»
g
1
X
01
s
co ta


<- a.
a. o

2
UJ
a
UJ

_i


c_
0
4V
U
CO

41
4V
CD
g
CO
CO
'•- CA
ss
01 CO


C. 1.
a L.




ca
41
o
E
CD
a

41
Ol
1


i
01

§


4V


U
u.
X
UJ
01
4V
CO
e emission r
ID

> CO
41 U
-C CO
4V
t_
CO O
— rf 4v

^
U.
U.
UJ
,_
.
en
§

4-»
g-

(A
4J
1
c
o
4V
5
u
Ol
o
4V

I




(A
41



8.

01



I

§
L.

!


|
i
u


•»v
I
1
g
+-•
1

41
CO
41
to
to
41
8
Q.

t-
•x.

_J
UJ
,,
.
to






£
g
CO
CO

1
I


T?
*





1
CO

CO
O)
CO

»*-
01
CO
(_
g
to
CO
f"~
CO

- o
01 4V
4V U
CO ID
Q

u u u
sss
Q. > <
1

01
emission rat
actors
«4-
.2 c
J2 0
CO —
— CO
L. L.
CO 01
CO O
01 0

ii

u
u.
X
Ul

1—







CO
01
4V
CD
i.
g
CO
CO

1
"8
4-*

is
^



g

CO
CO

i
V
X (0
4) L.
•gs
«•— u
CO
C H-
o
co -n
CO C
01 CD
CO
to
•g oi
C co
CO — *
H-
C 4V
O ID
X e—

-J _J _l
u u u
0 U S
Q. ><
CD — 1
CJ
01 CO
emission rat
actors for I
«4-
Ii
CO •—
•— CO
c. c.
CO Ol
* s
CO O
01 U

—f 4V
11

fr—
_J
u.
I
UJ

_ J




...
(A
L.

1
o
4-*
1
01
4V
CO
ico
— L.
co o
CO 4V
Ul -4-



co
01
tj

CO
8.

Ol



1
M
§


i


o
ac
3
en



4V
1
01
4V
CO
C CO
O t_
•— o
CO 4V
CO O

V
to o
to to
CO t,
01 01
o >
2 §
a. u

1—

y
UJ

—I

CO
L.
o
4V
u
CO

01
4V
a
I
CO
CO

'i
Ol

CO
ID




CO
01
01
E
CD
s.

41
Ol


i
41
L.
4>*
§
L.

1


a
s
C/)
01
4V
CO
e emission r
Jo
CO

SI
01 —
CO
CO t-
01 O
U 4V
o u
t- CO
a. -4-

ae
<
>
X
UJ
111

in


+
^


u.
at
Ul
S
0
4V
§

4-»
|

1- 00
O v
U u.
i- at
Ul UJ


CO
01
ID
%M_
X O
1
is

CO 2

o —
C 2
CO CO
4V tO
CO O
"- L.
•a o
•g 0

2 4V
to u
CO 01
O H-
L. H-
CJ 41


s: UJ
< <
O
H-

£
function ten
t_
o
1_
L.
41 to

e I
L. CO
O
c. oT
41 O)
ID
- CO
tu ta
"88
u
4V
C X
O 41
'— 4V
4V
CD <-
O O
_0 J.
~" 41
41

X 0 — •

.
to
°x



t_
o
t-
cu
H-
o
Ol
c
to
CO
01
o
o
t-
Q.
CO CU
01 Ol
—> CO
•g co
C CO

a
at
at
UJ

— i







u
4V
-2
CO
1

41
_*
"8


1

41

t^f
H-
— •
C.
£.
41
C

41
01
1


E
ID
41
L.
4V
CO

L.

4V


a.
UJ
en
§
<^

•E
o
2 CU
X 01
.2 §
CO ""
fli -a
•^ cfl
•— u
41 4V
> 3

:i
4V 01
U C.
ID 4V
t. CO
4V C
X 3
Ul <-

Ul

X
Ul

UJ

L.
CO

3
u
4V

8.
CO
c.
o
H-
CO
4V

^
41
L.
X
— •» 4V
ii



L.
0
a.
u
41

to"
X
CO


U i.
Sri
2 n
S. c

4) ._
3 S
en —

a.
§
\J
Ul
•V-
UJ

control of E
modules
-; S
CO 4V
C. ID
01 —
> 3
O U
CO CO
01 U
•D

a. E

u

^
UJ
VO
 I
<

-------
-p
 c
 o
o
 (fl
rH
 0)
T3
 O
(N
U
en
 0)
^
-P
 0)
r-H
 3
TJ
 O
-P
 (Q
 (t3
 O
•H
-P
 0)
£!
 (0

-§4
1
X





CO
CO
0
1







(Q
(0
•O
•M

~




**
— "§









g
1
1_
u
s
a




41
^ S
•g I



UJ

"8
CO

CA CA
41 41
•g-g
4-> 4-»
'5 '5
CA CA
rocessing option
V pathway status
O. UJ









t,
L.
1
X
s
5
2.
UJ

^
h-
UJ





4-1

UJ
M-
o
Ol Ol
C 01

process
nput im

•2 x
O CO
(- 3
1=5
33.

a



UJ
i—
CO





«^
3
41
S
C.
o
««-
41
H-
!.
§UJ
(J
OS x


•i
CO

CA
TJ
f.
O
c.

_4I

H-
> CA
41 t->
£• §•
U
Q. C
6 V
5 >
1— 41
H-
g
1—
3
41



0
«4-
41
CO —
•~ 41

CA
I—
41 X
JC Ul
UJ

41 01
4-> JZ
C.
41 JZ
C 4-*
C9 3

i
u.
UJ

UJ
UJ






CA
4.*
s
vent location in
UJ


CA
01

i
CO
8.
Of

1

|
IA
§
*"
!
o


Ul





4-1
C
41
>
UJ
H-
O CA
41
Ol Ol
C CO.
•— E
en —
to
41 4->
u 3
L!

•2 i
o —
i- 4->
4-> CO
§8
CJ —


g


UJ
UJ






1
JZ
u
3
o
H-
tfl
"3
ac


CA
01


CO
CO
4-f


.5

1
41

CO
41
t?
1

Z

i



0)
JZ
4-*
U
•4- 0
O >•-
control
events
JZ
= ?
CO O
1. L.
41 JZ — •
° If

So
!H ~" >
> c uj
o — cj
£12

Q_
g


UJ
1—
CO

c.
o
**-


u
'3
CA
i
4-»
§-
1
(0 01
E M-
g5
->
u. UJ


CA
41

I
S.
41
Ol
i

1
CA
§

|
a


8




0


4^
0 01
0 £
H-
CA Z
4-1 in
Q.UJ
•£ C
CO
CA
41 41
CA 4->
2 £
U Ol
2g
a. o»

_j
u.
H-


UJ
UJ

1



Q
D)
CO
I
1
UJ-


CA
01
4-*
1
S.
0)

1

1

s

!
a


UJ





4-*
C
41
>
UJ
•4-
0
at at
C. 01
•— O)
CA CO.
si
u
2 3
a S_
c
_CA —
2 "8
§cl
Ol
CJ Q,


UJ


UJ
_J
_l






u
3
CA
erified pathway
*
41

H-
-^
CO
C
01
c
Ol

1

i
41

§

!

9;
i-
UJ
CO


o
— 41
x|
si
JZ
« "S
Q. CO
O
IA
01 4->

-g S
CO V
at
at C
4-> 3
u c.
UJ t-

^
h-
O.
X
UJ
_J





^
recepto
41
|g
CO •—
3 JZ
CO O>
41 41
Ct JZ


CA
41
4->

8.
41
Ol
I

i
41
CA
§

!
a
at

°






41
L
CO O

CO -C
•*- D)
CO
41 1.
CA O

4i a
O 41
28
a. <-

u_
i


u.
1—
^
CO
CO
L.
0


CD
JZ <-
ai o
'3 4-«
*z
lagpole receptor
ridded receptor
u. D)


CA
L.
0)
4-*
I
8.
41
D)
1

i
41

i

1

Of.
CJ
Ul
Of




0
C- Q.
O 41
O. 41
41 C.
2-g
_4) t5

Q. O>
Ol
CO CO
<4- C-
o
CA •*-
01
CA CA ^
at v <-
O •— 4-"
L. 01 01
Q. JZ C

^
z
C3

u.
1—
UJ





1°
L. 0
C.
lushed results a
reinitialized to
u. •**


,_
CO

u
En
8.-Z


I- 01
o c
'En
x£
co 01
c- >
L. CO
CO
4-*
"3 c
CA 01
41 >
Of 41
til v
X CO

£5
t-

t- 01

CM 3
SS
CJ

CO C- "O
CO O
CM Q.—
> 41 i.
UJ L. CJ
CJ Q. S.
CO
— O O)
4-> C
CA •—
41 CA O)
JC X CO
SCO L.
C. 41
— ' C. >
U. CO CO


Z
=9

u.
_l




•4- 41

01
C H-
•— O
CO 4-1
u <-
••*• CO
~? °~
" O
Ol CO
CO Ol TJ
*^ T3 01
— • CO -l^
CO
U 41 41
•— Ol Ol
Ol C C
O CO CO
_! i- C.


T?

Ol

O
JZ


41 01

U
- CO
CA C.
£ «
01 CJ
C t-
O 01
O 4J
— rf I»—
41 — •
._ 41
u. TJ

U
CA
Z
CA
41

41
c.
4-t
41

i
TJ
Ol

H-
41
CO
4-f
CO C.
CO
CA Q.
•— JZ
— • U
a, co
CO 41

1—
"
a.
CO
u.
_J
CO
L.
i
4-*

g
O
s-g
o ••-
01 u
"51
TJ CA
'M
c£
.2'c
ca 3
4)
4J JZ
t- 4-1
eg ••-
CJ 3


CA
01

1
S.
41
Ol
1

i
01
ca
§
*"
!
i—
at
CJ
UJ
at

L.
0

s-
8!?
c_ —
U
2 8.
C- CA
cE
CD O
••- H-
2'E
4V 3
£_
CO JZ
CJ f
IA 3
41
sl
S2
41 41
CJ C

at
S
a:
UJ

t_






i
4-f
olar receptor ne
Q.


CA
c_
41

i
CO
Q.
41
Ol
i

i
41
L,
4^
CA
§
**
1
at
O
Q.
UJ
at




i


eceptor
L.
C_
a
i
CA
01
CO
C.
g
41
0

_j
2
i.
UJ
 C
C 41
41 C.

§3
O 41
U Ol
41 S
41 JZ E
JZ 4-1 •—
** C E
CA O CO
4-> 41
CO TJ *J
UJ *4- C.

O
u.
I—
UJ

                                                                                                                                                t>>
                                                                                                                                                <

-------
.p
 c
 o
u
 01
iH
 0)
•o
 o
aa

CM
u
CO
 0)

.p
 (0
 0)
r-l
.p
 W
 (0
 O
•H
-P
 O
i»
3
z
ID
4V
10
O
4V
i
4-*
8













to
4-»
(0
a
4-1
I





?±
"~ 3
— -p
ffll
U z



§

4V
a.
Z
u
IA
4J
O
41
i «
s z
2.
^B
_l

maximum value
1
i_
a
41 01
O 4)
gS
O 10
00 4V




rt

C
O)
4)
U
l_
i
u
o
H-
X
flj
t_
U
(0

4-<
3
(A
01
Q£

h-
3
_j
41
U
1
IA

J=
U
S
l_
o
•*-
CA
0)
Determines valu
group

i
H-
_1
0
^.
_i

i
IA
4V
"3
L.
1
t-
"fe
S3.
I. 41
3 U
O 41
 L.




fi

L.
01
4J
U
1_
g
CA
O O
H- -^
4-*
CA 01
X U
0) O
(_ _*
u
0) L.
O
4-* 4->
•38-
80
41
ae <-

t->
3
—4
s-
o
c.
0)
4>
U
3
CA

H»
O
u
CD 0
C 4V
Controls printi
values by recep

H-
_1
(—
o:
a.
u
UJ
i—
i/i
41
£
4V
<4-
o
x
TJ
?
a
t.

3
x: je
4V 4V
Sc
Q
Z £









l_
10
X
•n
at
X
ID
13

C
a
"3
—»
i—
x
UJ
i
u
0)
£ "3
4-> U
O 4-*
B t-
:&
«•
•a i-
0
1"
I 	 C
Determine Grego
and day-of-mont
Julian day

g
u
UJ
o:
u
_j
^

including model
sion number, title
number, summary of
s, date and time of
ion)
U C IA
(. 41 41 S 1-
41 > CD— 41
•Q IB 4v >
(0 -D OL Q.
41 C O O
* " « - t
g;|g-gc
m S -^ 5 3





t_

1
01
cn
s.
g"
4v

O
M-
c

4J
4V
t-


U
IA
Z
•§
4V
C
Z
Q.
C
I



c_
01
73
10
01
.c
01
41 —
CD —
3.^
4^
S3.
IS

oc
UJ

UJ
l_
tft

od average and
each source group
••^ t.
L. O
4) -4-
Q.
4V§
8S
J= ID
CD u
•»• O
= ~*






H
S
cn
(D
L.
§£
ID
* B-
fe«.
Q.U
41
*4-> at
O NV
x
^1


z
i
2
&
4-*
CA
01
*§•
J^ C_
CD
(_
o oi
•*- o
L.
Performs search
averages by sou

ae
UJ
a.

^


1
L.
a
41
3
1
™
£
•n
6
4-*
•8
Q.
3

^^
H- 4J
O >
<
X •
ID a.
i_ i_
i°.
CA U
01 0>
^ Q£
U ^
4-* J
CA Ul
i*
4-* (f)
8-S
si
a 41
> CD
ID
f U
55
Z 10
a.

ae

1
^
•4- >
0
o!1
I- £
4V
§O1
C
o —
4V
— ' 10
Provides overal
modules for upd
arrays



^
IA

T!
CA
•g'SS
. ... o
SL8.&
£^«
I_ O 4V
ID •*- «J
4- CA"°
33±
So "
••>&
Ell -4-
>
4) ••- IA
4V 4V 41
ID 01
4V — > ID
t- 3 1-
O E 41
JC 5 >
ta o 10
CA
C
o
4v
Q.
0

§-
4^
01
CA
01
+*>
•8
L.
O
4-<
8-
O
4J

41
U
1.
1
in


3C
i

L.
3
O
_c
fi
o
t- I-
jl 3
4V 0
0.*
O -
O 01
Performs main l<
meteorology fil

i
^i
ae
3:
^.
t/>

«
7>
»
JK
C
ID
ja
XV
IA
CD
ID *N
^ 2>

H-
o <-
x°
a -
L. -
L. E
< -

IA
41
3

10
>
5.
IA
IA T3
>— O
•88.
10
I.?
— 01
ID 10
tv 1-
41
•4- >
O 10

fc£
il


U
x
Z
cn
0)
•4-
01
4-i
•8
cn IA
C 4V

« 3
IA CA
1 2
IS
ID — •
i 5
— • j=
a CD
u **~
J=
IA
4V l_
01 0
l/> •*-

CJ
U_
1—
UJ
00
Z
_l
_J
<

adjusted for stack
4V _C
f CA
OI ID

41 C
J^ ~O
!.a
4V «^
in 4v

•n
£

'3

&
4-«
^
U
(0
4-*
(A
CA
L.
01
4-»

8.

^
38.
tV) CA

u_
u_
UJ
Z
a.
0)
+-• _s^
03 ^J
— •* ID
3 4V
U IA
ID "-
U O
«4-
o
S T3
IU
E 4v
10 CA
l- 3
CD'— >
FUNCTION subpro
stack height ad
tip downwash

z
ae
a.
i/i
z
_j
^
<

variables and
73
0)
N
'^
a in
4V 10
•t— L.
C (-
— 0)

(A
x
(D
L.
L.
01
?
10


variabl
"8
N
(0

4-»
'E
'1


<
•v.
X
x
ID
L.
t_
ID

O 10
*^


2 S
CD ID
O •—
1_ l_
BLOCK DATA subp
initializing va

h-

Z
H»


1
•£
§,=
••- O
4V 4V
ID •-
N X
— IA
£§
4-* •«-
••- 4-*
C Q.
— 0


(A
U
01
4-<
i
CO
L.
8.

01
ra
1
i
01
c_
4-1
(A
(_
4-*
3
I
Q
CK
2
S

i_
<4-
l_
£ x
10
2 fc
O ID

4V 4V
Q.—
0 3
CA
Processes input
initializing re
previous run

_j
u.
1—

3B
_l
«J
<

oefficient (gamma)
U IA
0)
§3
— •
•— 10
4V >
U
t, 4V
•4- 5.
4J C
QC *^"


w
L.
0»
4-»
1
&

0)
O)
1
i
01
u
4-»
i
t-
4V
3
5.
c
a.
Ul
o
>-
ae
a

4V
5

U
*4-
*4-

U (A
cS
o —
"- (Q
4- >
U

-------
-p
 c
 o
u
 0)
T3
U
CO
 0)
 o


CA
IA
8 —
ID
CA >
2J4,

£.1

^^
Q.
O.






>^
•J

i

o
S
Printed summari
options.

^
3
,£
?
ID



f
U
4-t

3
IA
g

1
4-*

£

z

2

1

ID
1

tj
.c

**-
o

X
u
!
1 1

£§•

^
Q_

-





•^
o
Ol
41
ID
U
X
8
1
4-*
4-*
41
(A

(A
L.
41
4J
i
(D
U
S.

01
Ol
§


§
01
L.
4-1
(0

4»»

^
0.
UJ
a

oc
a




X
o
o
1
Ol
c

4-*
41
IA
tA
SOI
•-
tA i.
SO
Ol
U 41
O 4->
1- 10
a. u

2
>
z
UJ











Model Results








g
ir—
4-1
8-
8

^


u



»
(A
25!
4-» UJ
C U
O (A
U —i
£ 41
U J=
•— 4J
41
— Dl
fc
ta

ac —•
a. —•
10 o-'
C (. 01
5 > Q
Z 0 E

C\J
i

,-











Model Results








g
•i»

£
8

"g


u



»
tA
O (NJ
L. 1—
4-1 _J
C U
O  (A
C (J
O IA
U —
.c oi
U -C

at
— Ol


E ifl
41
1°
S-
•••s-
C b. 41
'5 > ^
Z O E

CM
IA
U
IA
,-


U
ID
41
L.
O


3
1
Sorted maximum
source
41
u
1
(A
•g
a
01

c_
o
H-
IA
4J
~3
IA
So-

°t
IA Ol
X 1.

< ID
1—


H-




3
•o

1
•— CM
J—
L. _J
O U
**- en
— * M-
01
V) U
4-» U

1
1
I
"3


IA
1
c
o
u



Ol
**-

41
o>
§

1


at
u
z
ae

2
i
3


O

Ol
•4-
X
10
TJ

-C
4-*
L.
Ol
>
s-s

z

3
1—



a

o
«4-
ia

3
Ol
I.
Period average
STAR summaries
a

o
*4-
IA
4-1
1
41


01
tt—

a
u g
H- g
0 3
ta
X
10 OC
<  L.

"3 01 1
> ae 3
"^ ifl
I/)  t-
O 1- (A
_j
t- » L.
Array of CONG o
for each
source/receptor
for a particula

c
o
t.
0
tfl tA
IA X 41
X 10 — >
ID t- .a
(_ t- ID
1_ ID •—
ID 1-
C ID

§ID ID
U U
0 •-
(. — ' O)
0) O
a. i. —•
0 0
Ol 4J C.
O Q. O
L. 41 41 u
3 O 4J 3
O Ol 41 O
l/» OS X -C

< ae
CA 111
z a.
i— i—

a>
c
O  E
0 U
L. 41
a. i—

u
u
^
H.





o
a
4, X
l_ a
O E
•4- g
 _cT

ills


en
^
h-











8
S
a
4-1
|
(A
41
(I
1
tA
OC



L-
o

X
10
L.
L.
a
ifl
4-t


41
ac

(A UJ
z a.
i— i—
CM
_J
U
CA


L.
O

IA
Ol


=

S.
i
(A
"3
L.
4_t
§
u


g
t—
-J

-------
+J
 c
 o
u
H
 0)
T3
 O
U
W
H

 0)
 en
 0)
rH

T3
 O
 U)
•H
A
 (Q
 O
-H
-P
 0)
ft
 (C
"5
*




a
4V
a


^






ID

<0
0
1



2|
— "§







g
i.
u
(A
01
O





01
|1

h-
-1
ae
i—

=
t.
O -4-
•4- O


Long term resu
cumulative per
summaries




a

""
4V

1.
O
1

*•
oT
i
to

2

i



1°
" 0
a m
t. "3
-C U
4v _•
CO
O t_
— ,£

C o)
— 01 O
S— i.
.- 01
•4- >
co a
Control
summary
PERIOD

ae
^



o
4V

CA C.
L. O
O 4V
S.8
0) IA
O 01 4V
•4- t- 10

Smoothing term
off-centerline
smooth results
boundaries

§


ID
U
O

!_
O
a.
01
u
01
L.
TJ
'3
0
4V
8
i— >-
1-1 Q.
Z UJ
CJ 0

C.
0
c
o
Ol
c
o

g

CO T3
01 O
4V £
ID
Ig

Z
CO
1—
1—
_J




X
ID
f_
l_
a

IA
3
CO
01
L.
"8
4-»
O









1

8-
i
4V

< ae
CO UJ
Z a.
i— i—




L.
O
CO
01
I

4V
l_
O
CO

CO
"3 CM
U 1-
4V _J
SCJ
CO
U —

t—
ft—
_l
I—




0
ID
4V
CO
•5


Lateral virtua
3"
1

01
>

8
•*-
*4-
01
L.
01
i«
t- T3
S.3
01 c.
U O
C. 4V
3 U
O 01
CO CA
_J
U
_J

CJ
Q.




JC
IA
11
tD —1
1- U
01 CO
4V M
10
— - C.
0
CO H-
01
4V 01
Calcula
distanc
sources

X
i— .
_,
*


0)
at
I
§
01
t_
4V
Converted runs








0)
§
01
t,
4V

i_
4V

%
H-
UJ
CO





•5 *
a. CA
— ID
CD Iv
01 C.
CA 0)
ID 6-
u a.
3
L.
01 O
3 4V
— > CA
t_
CA 01
Convert
charact

QC
3

U)

CA
01

«4-
3
1

E
Updated maximu

O) CA
C 01
— 3

ID ID
t- >
0)
> 01
10 O>
ID
gfc
O ID
4-» S-
°x
4) <0
— • U
•^ L.
H- (D
1.1
X ll
to cu
z S.
CO


z



o
-g
01
c.
^
4V
A
0)
3
ID

g

X


CO
01
4V
ID 01

u.
X
z



01

(X^^

ID a a
E ae L. c-
Updated maximu
values;RMXVAL(
,MXDATE(Rank,G
,MXLOCA(Rank,G

.?
O)
to
L.
> -i7
"" ra<
• 10 -
§t- a
01 t-
> o
— a -
4V U
Q.H- 0>
o o oe
01 X J
325

g "*
'x 'H 3
10 0) ID
z a >
CO


X


CA
01
3
1
xS
!•-
10
•4- O
o o

X *^
ID O
c.
L. CO
10 CO
0)
4V L.
•ss;
1-2

i
*
~l
<
J
CA U
01 4V

U 3
4V CO
Is
§2

4V
Meteorology op
and ME pathway









TJ
o
1
X
10
3
-C
s.
UJ
X

Q.
1—
UJ
CO
X
O)
o
o
i
o
CO
O) CU
C O)
CA • —
01
O 4V

Q. C

CA
Control
pathway

u
UJ
X
_j
<



t
4V
'z
CA
CA

4V
a
4V
CO
01
H-
4V



CA
O
1

(U

•M
|
X
a>
0
"o
Meteor

J|
u
UJ
X





c.
O ID
<4- 4v
10
0) T3

•4- CO
U
3 5)
a. o

Opens i
meteoro

UJ
S

>
UJ
CO
1

ID
U
D>
O
O

o
01
4V
i
•4- X
x«
ID
C. C.
I- O
< t-







CA

IA
01
H-
O)
o
o
Meteor
a.
8
_ j
UJ



to
L.
o
a
4V
•3
ID
U
O CA
— X
O ID
c. i.
O 1-
01 ID

V O


UJ
oe
UJ
X
UJ
s




CA
01
U


3
CA
I
a
CO
ID
4v
to

i

£_
O
•*-
c.
O
8
X
O)
0
~0
0
2^
0) O

X
UJ
1—
UJ
X





"o
CO
u
0)
j= to
O 4V
to
CA 13
O — •
.- to
I- U
ID ••-
> a>
o

Perform
meteoro

X
u
1—
s
1

CA
U
£
CO
•g
to
to
»4- 4V
O ID
•a

Printed summar
meteorological






10
to
•o
to
u
II

4V 10
«j u
4v •*-
3 °
8-8.
— to

X < oe
UJ CO UJ
t- I Q.
UJ h- H-
X -J -1



ID 01
4V —e
-Sir
— -M
83.
|i
t- 01

cu ^

CA C.
01 O
N *4-
Summari
inputs

*—
Q
*

-------
4J

 O
U
 M
H
 0)
T3
 O
ra
U
03
 0>

-P
 M
 0)
 O

-p
 o
•H
4J
 0)
A
 (0
—
1




CO
CO
o
i
B









CO
CO
4J
2.
«






Wo
V
u *•










Description

5
•n I

z


Ul

41
J=

O
a
Listing of hourly
meteorological dat
event period









CO
41
«4- -^
°-s
X —
CO C_
fc5
° —
-g" o

— Ol
L.
4J O
|£

i—
Ul
o
ft-
ac
a.

4^

41

O 41

Ol-C
C U
— CO
*J 41
out detailed I is
meteorology for
CO X
41 _.
4-> C_
il
ft—
Ul
a

Ul
z

*
L, CO
o ca
»4- ••-
«f
ja  3 S
O "O *->
tt i i
ft—
X
Ul
ft-
Ul
z

—1




41
Input meteorology
information



CO
01



L.
&
01
01
1

i
41
L.
4-«
U
4-*
2
-
0
u
Ul
X


01




X
01
0
"o
i
4-*
i
•-§
CO —
41 4J
CO CO
Proces
inform
_i
u.
ft-
Ul
X
Ul
ft—



3
4-»
CD
4-»
CO
Quality assurance
switches and flags



CO
41

CO

Z
CO
>
I
O)
o
"o
u
8

i
1
c_
c.
3
U
CJ
i



CO
01


ID

C.
CD
meteorological v
t- of -range values
J2 i
u
01 c-
f O
u *•

§
ft-
Ul
z

ft—
-1
c
CO O
(- ro
O 01
<4- CO
8 "i
— -co
3U
Meteorological var
particular wind sp
direction, stabili
CO
41
O

1


X
CO
c.
CO
X
CO
L_
C.
CO
X


C-

at
<
ft-
vt
VI Ul
X 0.
—1 _J

CO C
41 0

-O 4J
CO CO
•— c
c_ .—

> §
he meteorological
particular STAR c
CO
CO
4^ C_
41 O
Vt -4-
i—
Ul
VI
ft-
Ul
z

—1





Modeling options



CO
c.
01

9!
i
S
li
0)
1

CO
01
t_

co
v
g_
-
QC
8
u









§
4-*
&
f
CO
01
CO
Proces
i—
Q.
O


x

C/>

«

U
c
CO
CO
Ol
CO ^*
H-

co
01
3
CD


Ol
c
1*
E —
"H 8.
10 oi
i •-
— • Ol
CO CO
U <-
01
H- >
O CD
|.£

z-3
3
X

CO
O> 4-1
CO — •


01
CO C.
4-*
•3 3
alms and missing
erall maximum val
CO
4-» C.
01 O
(9
ft—
Ul

X






01
Detailed message f



CO
41
Ol
CD
CO
CO
i

i
41
^*
"••
41
Ol
CO
CO
CO
i

o
L.
Ul
Z
i
41


H-

CU
Ol
ID
CA
CO
01
detailed error/m
1 Urites
t-
ot

VI
X

C/l
CM
Ul
CJ


c_
o
CO
I
\
-C
1
C 41
01 — •
> •-
Ul H-



c.
Ol
41
u
L.
i
CO
•° _.
41 —
^ cu
t- a.
3j?

CD 5>
> CO
1.
S 41

'— ^
X CO
—1
U.
Ul
Ul

TJ

"o
JZ
CO
41
C- 41

4-» ••—
A
V 4-»
sf
CD "~
>£
E ui
2 (->
. 12
Is
Writes
events
ft—
z
Ul
X
X

en
CO
r*
CJ
5
CO
§
t_
co
X
TJ.C
4J 01
z£



CO
01



L.
S
01
Ol
1

i
01
c_

01
c_

2
-
0
ot
u
o
u

01

"a

4-t



01
4-1 CM
ft-
c. in
0 CJ
•4- en
CO
4-* C.
3 O
"" 0
ca ••-
41 <->
CO Q.
CO O
4)
U 41
Q. X

at
Ul

X

en
I


^a
^cj".
• u
CO O 01
Updated high value
rec;HIVALU(Rank,Re
Ave),HIDATE(Rank,R





Ol
c

Ol *->
CO 01
c- 01 >
3! S<
a c. a.
01 <-
ca-S0.
§M- 8
•- 0 at
4-1 N^
a x-i

01 C- Ul
CD » »
> -5 ca
O 41
Ol C — '
= 8.2
_j
i


ca
01
3

"CD


4-1
CO
01
-C
Ol
^
H-
0
£
CO
t. L.
C. O
10 S.
CO 01
41 O

a:
u


z

Ul



1
a.
o
4-*
2.
4-1
i
.c
4-> O
> '3
Ul C/l



CO
41

41
E
CD
c_
a
41
Ol
1

i
41

i
w
g_
£
a
u
3







o
V4-

§
i
*«
.11
ca
Proces
ISCEV2

Ul




*
3
TJ
e
CO
« CO
CO 41
01 f
Output option suit
pathway status swi











TJ
c.
5.
41

I
CO
Q.
3

UJ





*j
3
Q.

S
Is processing of
y input images
O CO
C_ I
li

oe


8

en


CO
§
§•
01
JQ
CO
i
3
O
_x
'3
o



CO
L.
41
4-*


C.
S.
01
1

ID
01
C_

CO
^
g^
-
1
CJ





Ol CU
C CO
>•- CA
4-. 41
C cj
c_ c_
a a
O CD
•4- TJ
C .C
o u
•.- ca
O I-
o
CO 4-
41
CO CO
Proces
result

^



                                                                                                                                      H

-------
4J

 O
O
 (0
H
 0)
•d
CM

U
W
 d)
J3
-P
 ui
 0)
rH

•a
 o
 in
•H
 (Q
 O
•H
4J
 0)
X)
 m

•§,
—
•«
X




 §"
'«— 4-*
* i

L.
CA O
1 Proces
1 recept

x
a

i

en



§
o
.c
(_
A
Maximum value
file option

0)
4)

£
cB
S.

i
•^
i
i

!
0
at
g
3



A


3C
IS
g O
1 41
m 4-
E
8^
— •
VI O
Proces
thresh

J
U.
X
1
H-
H-
OO


41


CO

Maximum overa
output option

CA
41
4!
E
CD
1
41
O>

'•-
i
e»

|
a
Of
<
u
3
41
3
§


-
CD
f.
41

O
1 a.
— o
X
E 3
S4J
3
oi o
V)
41 41
IX 4J

j


i
,_
»—
CO


i

a.
o
4J
E.
i
01
*4-
.?
4-»
4-*
O
a.

w
Q>

E
CO
01
O)

•^
§
01

!

ee.
u
3

4J
4-*



4)
"•
ra
4-»
O
"a
01
41
01
VI C
41 O
o —
o 4J
t%

l_
o
_l
a.
B

oo



4.

I
41
Ol
Postprocessin;
option

V)
41

c
5
S.

§

1
01

1
o
ae

3

41



O)
C
CA
VI
41
8
1.2

So.
o
VI
Proces
output

i—


B

_j



0
Q.
41
O
i
CA
41
"co o
4-1
EQ.
0
4)
»I
_J O

V)
41
4>
E
CO
2.
41
Ol

•*-
i
VI

1

at
u
3

j^
-°
VI
41
3
— VI
g 4J
a> o
4-«
a> 3
§3-
— • 3
VI
41 l~
in o
Proces
recept

a.
u
ui
at
B
,_
,_•
00




CA
"3
V)
4)
Printed outpu
Ol
~n ui
U OT
v X
4) (-
*^ c.
Q-CO
O 41
U 01
CA CD
41 (-
f 4)
0 >
4-1 CO

C T
.2 g.
4J
S-3
11


2
*
O
4-1
01
<^ 4^


— 01
O 41
C Ol
O C
U —
4-t
— • C
s'i.
4)


01 t-
41 CA
•a ju w
*- H 3
a- S o

^w

a.
I

H»
(A



8
Ol
a
in
in
i
?
'c
Error and war
applicable






1

o
•»-
VI
'i.
o
4->
2.
a
oc.

3
1
4^
3
O



5
•g
^
0 0
1. 4)
c_ — •
CO

o o
t- 4^




3

^

L.
0
*-
c.
(A CO
33
— • u
CO ••-
u
00 CD
2*

Hourly CONC o
each receptor
source

4-*
£
U 41
!^* £_
••- 3
41
Q. « VI
CA V) 41
1- (0 2
0 t- CO
»4- t- 'p-
CO I.
CA ID
4) o
v a co
S 41 O
CO O —
t- 41 O)
CO L. O
Q. «*
41 aT L.
U U 41
O O CO
!ȣ


U
is
i—
3C
2

L.
O
**-
CA
i
•— CM
4-* r—
CO C/)
U •-•
CO 1-

CA
— ca
O 4)
L, O
4-1 L.
C 3
O O
U 
UJ

1.
o

CA 4J
3§
_. >
CD 41
2 «
UJ 41
a u
u
L. 3
Hourly CONC o
particular so
location

£
U 01
H- L.
.- 3
o u
U. . 01
01 Ol 41
I- CO .Q
O i- CIS
•4- C_ >«•
CO t-
01 CO
41 O
41 a CO
E 41 U
CO O —
I. 41 Ol
CO I. O
Q. — •
41 41 L.
uuo
1_ t_ 4)
O O 41
v> in S
u
_J
s
UJ
h-
Z
O
a.


O
CA
i
•— r\j
CO UI
— > u
3 00
O "i
CO U
o o
**-
01
— CA
O 41
L. U
4-> U
§i
U CA

CM
U

U
a.

H*

41
f U
O L. C
CD 3 0
41 O •-
01 «J

O l- -5
*«g
01 3 U
— 4J 41
CD t. E
*!.-
CONC or DEPOS
receptor for
and particula



•£ c.
— 3
4) °
a .CA
CA CA 41
C- CO 3
O C_ (0
<4- t_ ••-
CO 0.
CA CD
41 O
§Q. CO
4) o
t- 41 TO
S.'-E
41 4>~ c.
L. l_ 0)
3 3 4J
O O 41
CO W E
U

U

h-

2


O
•4-
1
•— CM
4-* »—
CO —1
O —
CO C_
u o
H-
01
— ' CA
0 41
U U
ii
U 01

1
u
_J
u
a.

5j



4-1
c
I

CO (A
CO (0
01 C
L.
8 =
3 M-
4-*
4-> 3
If








2
01

g
I
u


ye
*

"S 4)
4i -a ••-

4-* *O
co 4^ e
CU 3 g
"*" i
•— " o
•4- Ol
o -^ o
CU C <-
Q- d •*-
01 Q.
I O VI
U 41
Qm X ^—
CA 4J H-
"gi" 3 «
4-> — • a. 3
§a.4-> a
u g i.i=

UJ


u
u
a.
IN
H
 I

-------
4J

 O
U
 (0
rH
 Q)
T3
 O
CM
U
 0)
X!
-P
 U)
 0)
14-1
 O

-P
 10
 (0
 o
•H
-p
 0)
£1
 it
•i
z




to
to
o
4-1
3
u.
5











CO
CO
a
i



!!
^^ ^j

u*




g
Q.
O
CA
ai
a





01
3 e
"x ^

z
Ul
t-
a>


ll
O 4V
H

»«- L.
o
c **
5 a.
•t- 01
a 
c a. -.c
'5 .TT4J.2?
C CA tB — 01
3 01 CU — .C
» 4J TJ 4J 4-»
ca ca c ca a.
x— •- oi
CO T) 3 -0
i- ca tu
1- Tf Q. t_ f-
to c o oi
•p- 4J 4-» »
01 3 0 4V
o ca jx 6 -c
i- ca o to oi
3 O O I- •-
O i- 4-> ID 01
 o ca ti-c

U CM
_i _j
u u
a. a.
t- 4-1
g-StS
~?l
CD C
U CO — •
4-* CO
c ca 3
0) 01 4J
o o t-
o o
ca CA
X ca
!_ Z
is 8
-c a. o

4-> >•- CA --N
ca ca

o 3 S <-
"0 13 o o


^^
X
u
a.
p—



II
U 4V
|f
O °
«4- 1—
O
C 4-1
o a.
a tu
L. f_
c "o?
01 U
o t-
§3
u ca
4-»



oi ca oi
"Sl> 8.'x
CO g Cfl —
^a5 .5
3 .-fZS
C co cu — oi
^ fll gi 	 , r-
• 4J TJ 4-> 4J
ca ca c ca a.
X—— 01
CO Tf X - O
t- CA 0)
C- Tf Q. t- c-
co C O 01
Ol 3 OJ 4-T
O CO Jrf E -C
t- ca o co oi
3 O to L. IP-
O 1. 4-> CO 01
«> o ca Q.J:

u

u
a-

ca
_^
CO

g
4-*
CO
C.
4-1
Sea
01
§u
3
U O
ca

01 r-
4-> z
to —


— p C.
CO O
U H-

1—
_J


u
a.
Ul
»—


tg
CD 4J
•-I
•s|

t-
C- 0
cS
0 01
•p- L.
t"~ o

Q
o ca
4-* *P-
f C X
ai o it-

'S 'CA
^z t« »
TI 0) CA
C 01 Q. CA
CD g CA CD

c CA" * -p-
3 01 01 — •
•88 8-5
.S-o 5
ca ca c ca
CO T) '3 >
t- CA
C- T3 Q, L.
CO C O 01
01 '3 Oj 4->
O M J^ E -C
L. ca o co oi
3 O 01 1. >p-
O t- 4J CO 01
C/J O CA u.f
CM
U U
_l _l
U U
a. a.
C- 4J
O C
g-g il
>.- (Q —
£« 3
CA 01 4->
O O t-
01 3 '>
TJ O
ca CA
_>. 2
1- Z
r — CA
o o ep
f a. o
c_
CA 1. 3
01 O O
4J «- CO /->
co ca
— < ca ui oi
3 01 Z 0
0331-
— — J 3
ca to o o
o > > ca


a.
Ul
g
»—



,.!
CO W
3 S
O —
g.0
Q-<-
U 0
0  CO 01
 1-
.J
§u
C/l

t" o
CA
0)
o
CO C-
01 3
4V O
co ca
"3 i-
o z
"a o
u a.

i—
a.
Ul

Ul
p—
(/>
g

ca
8.
ca
•5
u

L.
01
ca
CO 01

•sS
1- <4-
01 •*-
4V 01
CO O
—1 O
co" »
Ol CO
CO 4V
— • CO
><- T)
01 4->

3
c_
CO 1
o «-
0 4j" 01
-•68
.•p- CO
CA 01 4V
X.C CA
S|5
Oi '3..^
O to O
C/l 3 T)
(M
u u

u u
a. a.
CO
c-
Ol


li
g

CO
L. CA
01 01
a o
CO t-
TI 0
CO
ca
01 p-
c z
Eg
Ol
4-1 L.
01 o
o •»-


C/l

g

•_i
g

to
8.
CO
•5
~m
o

c.
01
ca
co tu

i- £
Ol •*-
w 01
ca o
-J O
CA" .
Ol CO
ca 4->
— » ca
•«- TI
01 4-*
_* aj

3
— j:
CO 1
o «-
t? 4^- 01
-•58
-•p- CO
CA 01 4V
Xf CA
fc i"5
CO 3 "D
at "o..,-
3 .2 3
o 10 o
c/> 3 T)
_l
u

u
iX
CA
01
4-1
OJ CM

c- u
co in
CL —
C t-
0 0

to
1- CA
01 0)
a. o
ca L-
^3
ca
ca
01 1—
c z
lie
01
01 O
a t-

t—
U)

g





fr
0
«"

""U —i
O 4
il
t- co"
xl
(0 t-
IS
CA

01

C
o

CO

Cfl
8.
H-
o

X
CO
L.


Z
i

J;


Ol
CO
c_
cu
to

1
L_
8.
01
ca —
01 J3
ca ca
ca o
01 .—
o — •
o a
t- a!
a. co

>
^

Ul
Q.
5
1—
(A


^
8.
o
ca


§•
01
— > ca
.P- 01
-8
4-* t_
a. CD

CA
C-
01

1
t-
8.
01
Ol
S
E
§
01
L.
ca

4^
h—
o
.j
i

L.
O
CO
c
o
i
cu
H-
ca
4-1 OJ
o o>
— • to
a. c.
01
CA >
01 CO
CA
8*8
O -t-
O c.
- CA
01
t- Ol
O CO
ca c_
O CO
0
4V IP-
CO t-
£8.

CO

01
4-f
1
t_
a
01
Ol
i
CD
L.
CA
L.

I
h-

O
i


01
— ' CA
.— 01
-4- Ol
CO
t_ c_
O 01
CO >
CO CO
01
8 2
Q. i-
to Q.
8...
0
CO -4-
01
CA CA
CU 0
O —
O 4->
C. O.
Q. O

C/l
a.
ae
Ul
a.
_,
*


Ul
3:

Ol
'S
c


"3.
01

4-1
o
01
Ul
ca" »
Ol 01
CO O
— c
•4- CO
01 CO
CO T)

CO "^
0 3
» » 4V
CA CD CD
CD CD 01
I- TJ -.
C- 01
CD 4V
0) C
01 E —
O CO
1- C- C-
Jf fe
CM —1
U U U

a. a. a.
j;
Ol
'5

"3.
cu

*3 ca
o cu
01 o
>4- C-
>«- D
tu o
CO

li
i o
i- a.
0)
4-> t_
01 O
Q «4-

U.
U.
Ul
a.

-------
-p
 c
 o
u
 (0
rH
 0)
CM

U
CO
 0)
 0)
T3
 O
 (0
•H
h4
 (0
 o
•H
-P
 a>
A
 re
X!
 (X
1
*



a
a
a
|








a
to
o
-








m O
(O «
o *




§

S.
u

a




0)
°^ S
ll
Z

1—
_J
CO
J
M <0


"Z ~
B
S"
8-»«
CO ID >
— • a —
«»- «
a. o> -

a»


CL
u
X 01
-Q c<

co -*
01 C
— ac
> =
55
.C Z

»*- c.
0 0
4J
x a
a ai
t. u
<2

i
4.1
O
"a
o
H-
O CO
-3
o — •
C. ID
4-> >
C.
o oi
0 C
— ' 4-*
— ' '•-
fe*
O O
CO
38
l|5

48?

j
u.
f—
O
Q.
H-

i_
Ol
^
|
Z
01
a.




ID a.
<- o
L.
ID 01
CO ••-
4J H-
"3 4J
CO O
3,3;
a ID
01 01

ID ID CO
Ol

o O o
"^ «i— 4^
L. L. 'r-
01 01 3
a. a. ca
DC
Z UJ
— a.

o
*•- CA
01
co oi
a "
a. oi
4-- >
3 ID
o
01 ~
H- C
c
o
a w
CO 01
01 ^
01 •—
C I-
£8.

3E
I
_j
a.
i—
(0
c.
o
1
c.

to
8.
ID
0
H-
CO
01
St
CD O
4-1 3
ca 4->
Q C

CO
t.
01
i
c.
3.
01
Ol
1
c_
CO

g

4-1


-
«
UJ
ae

L,
ID
I

C.
o
H-
«
g _^
ID «-
JO J
-a «
S u
CO O
CO 4-1
oi a.
U 01

£ 2

^_
ca
o
a.
-j

§
g

to
u
*«-
4-»
1
lutant
"o
CL

CO
c.
01

,_
8.
0)
Ol
1
i
CO



JJ
3

-
g
8
CO
§
to
o

4J
c
S

c
ID
3
^
"•
|g

I&

a

4
a.
*
^

1
i
01


S

«->


•=
ae
o
a.
UJ
Of

«4-
o
c
at
t.
o -o
c.
H- 4-*
M C
4-*
S.c5
C 4J
•^ CL
cesses
ar rec
o — •
iS.

u
g
o
a.
t-
co

4§?
a "-
I- Ol
ID ID
01 01

CO'TJ

!i
O u



Q. ID
4-> c.
CO 01
0 >
CL ID
g
QC

O
<4-
O CO
o —
c.  u 

ID
C_
a
rameter
S.
01
2
i
(O

CO
c.
01
i
L.
8.
01
Ol
§
i
01
L.
CA

L.

^j
3

-
Z
ae
CL.
S
CO
I

01
I
to
t_
8.
CO
01 01
u u
33
10 (A
CO "-
CO O
01 CL

U O
Q. <4-


g
d.
Q.
S;


.2
c.

O
X
t.
CO
CO
T3 01
01 Ol
4- ID
•Z5
a. ID

0 «
*•• c
a. o oi
01 •— Ol
t IS
.0-15
CO *4-
ID "" —
t- Q. J-
ra L.
Ol 4->
•g co
5 oi oi
•— O f
C. L. Ol
a. o ^
CO
0 - 0
CO
XXX
ID ID a
C. i. L.
t. t- C_
< ra ID
I
i

c.
o

CO
Ol
Ol
ID
01
ID 01
"o £
—
H
 Ol

o
10 "a
oi 5

c_ c.
£ 8.
CO Ol
01 C.
3 •-
— < Ol
ID ID
> 1.
01
4-* >
s-
fc"g
3 ID
IS"
U 0

t- Ol
o

X O
10 t-

c- o
< CO
l
Of
3C

C.
O
»*-
CO
^"g
J} CO
10 CO
4-> 01
O
CO O
" a.
3
en ID
01 4->
XT
— • ^
--
CO "D
C f
•*- u
C-, ID
CL 01

^
4
o
O£
CL
UJ

"g
U ID
.2 ..
01 *-•
4-" CO U 10
C 01 c_ "D
01 3 3
> — 0 — •
oi a co ca
> 0
O Ol U Ol
C ID O
CO — 01 —
oi -a o
— 3 l. c.
J3 — • O O
10 U H- 01
4-» C 4.*
M~ C. 01
"Scoi1
-- *-• J= X
a* 3 x: t-
4-» CO U 3
01 01 ID O
o i- ill _e


c_
10
"3
u
4-1
I

a
L.
O
X
ID
C.
ID
CO

- ^ 4J
3 C
CO Ol
01 >
Of 01
1
§
CO
4-*
c
01
ai

o
CO

3
CO
01
L.
"S
V
<0
1
CO
c

a

^,
UJ
a
O£
a.
i—


a
i_
01

"5
C- CO
ID 01
§ "3
CO >
"Si
4-* £
C —
'ii

fc

3 CX
"3 0
>cn
3 01
E o

X 3
IS
I- ID
01 L,
> t- C
o a o

»»- C. 4-»
O O ID

X ^L t-
10 41 O
c. U H-
c. 01 C
< C- —
1
I
CO
5
ID

ID
c- Ol
01 —•

O >4-
§4-1

.-S-
1 o
CO 01
fll u
N C
L. C.
g a.
g L.
3 o
CO H-

X

Jj
CL
_l

X
Ol
o
*o c a
L. •— 4->
8^-S
4-* — <
|.si
>+•
O -t-

-------
 O
U
 (0
rH
 0)
TJ
 O
U
CO
 a>
A
 O
1-1

 (0
 0)
T3
 O
M-l
 O

-P
 u
•H
 O
•H
-P
 a)
A
 04
H
41
i

10
4V
a
0
4V
4V
3







a
 CO
4V *

— L. C
jc co o
H- k *4V
O O CO
4V g
x a E
CO 41 O
L. O H-
L. 41 C
< 1- .-
1
3
c.
O
4V
8-
£


Q
41
(A —

_rf
CO 4V

|i
CA S
01 4V
N C
|'cl
§ o

^^
Z

*
gl
— * t.
QJ CO
H ^
E 0
O 1-
g ca
i L.
3 o
•D CA
S c
c —
•^ 4V
£8-







1
.5



"1
«=
5
g-
^"
a.

CO
c
o
4V
a.
o
a>
c

•jj
"5
g

*t-
o
X
L.


CO
CO
c_
a.

i—
1
ac
a.
_
i—
tn
L.
O
4V
Q.
41
g
L.
o
X4V
CA CD
SI


CO
4V
CO
^
CO
or options
4V
a.
0)
u
41
L.
4V
g-
^*
a.


CO
4V
|
*^

o

1

L>

o
X
t-


CA
CA
.S
Q,

CJ
a.

UJ
o
^»
co
4V
~3
CO
§4V
4V 41
21
:e contri
•ticular
I/I CO



4V
(^
01
(_
CO
a particul

t_
o
H-

CA 41
CA C
°Z O
a, •*-

u
o
1—
at
a.

*
41
U
i
CO
o
CA CO
US
••- 4V




CQ
4V
•8

options a
41
U
L.
i

4V
g-
••"•
Q.




CA
4V
g-


0)
U
C_
g
CA

H-
O
X
L.


CA
CO
4V
(_
a,

u
i

iV-
(/)
S
CD CL
co co 3
4) 1- O
3>»
4V 41
t^S
n CA o
g 41 CA
CA "3 C
-p >°
8 S"8
— CA «-
ct-SSL

X

CO
L.
1
4V
**-
CO
1
41


__
~m

'S —
x *-
1
h-
3



x
3 .
— ' 01

^ CO
J. u
•™5
f CM

M- X
O (/)
X
X
t. • r\
g OI Q.
1 OJ O

co a)
CA
CA 4V 01
4V _• O
.£215
C. 01 0
a. t- CA

y
ac
a.

CO
c_
2L
H-
O
01
««-
jrocessor
iges
hAi 1W
4V l_
CA 0)
0 >
a. a







CA
4V
CA
41
U
41
D>
<0
C.
41

_
,o
41
a.
z
i



3
41 C
— CO
H-

o ™
CO 41
CO w
41

° .^
Q. L.
4V 0)
CA Q.


41 CO
4V CO 41
CO 4V t»
41 3 >
CJ O CO

z
t—
a.
^
Crt
Dl
C
u
CO
CO
"3
1
> network
inces
a 4v
— • co

c
CO
CO
41
4V CA
f_ 4V


41
Proces
net war

^
ac
u
UJ
ac
»—
h-
CO
4V
I
[_
i
4V
g
c.
• recepto
CO
o
a.

CO
L.
41

I
t_
8.
01
O)
1
§
L.
4V
CA
§
L.
4V
C
I—I
a
oc
s
LU
oe



§
4V
41
C

(_
O
4V
8-
u
0)
{-
c.
CO
§.

CA
CA CA
4> 4V
21
o, —

oc
o
a.
UJ
oc

tn
x
CD
u
u
(0
CA
4v
i
i t i a I i zed
c
41
OC










L.
CO
CA
•^
S
ac
x
i



o
4v
x
fa aj
C- 4V
U (0
(0 "D
2 §•
~« 4V
3  4V I





CO
4V
-S
s, current
op limits
x o
CO —
L.
L. «
CO 41
4V f^
3-2
CA i-
4) (0
at >
8
oc



CO
o
4v
CO
4v

CO —
41 4V
I- Q.
O
01
4-> 4V
CO <-
•— CO
"D 4V
4) CO
I. 41
41 C.
4v
C L.
•r- O
H-
CA
41 01
CO ••-
U) •+-

n
a
tn
at
IT)
H
 I

-------
4J
 C
 O
CJ
 u
r-t
 0)
•o
 o


CM
U
CO
H

 0)
£
.p
 o
14-1

 Ul
 0)
r-l
(M
 O

-p

•H
J
 o
•H
4J
 0)
A
 (0
1
*



0)
03
O
4-»
3.
4-»











(0
CO

4-*

-









if
u x


5
4-*
Q.
l.
U
Ul
01
a


01
"r5 S
"8 z
*Z
,_

.1
§1.
u
a
Is

| £
*a a
'ij 01 V
•— o E
at: co a














0)





L.
a
CO
01
ac
i
u
O
H-
I
o
is "oi

K
O J=
CO
<4-
8°
t. H-
4-> 00
ac ac

H"
z
00
o:
^



8
o

i
§
o
g
I


Ul
L.
01



L.
8.
01
01
1

§
01






1
g
*^
COCARD
t_
o
01
1
§
o

§
i
Ul
01
Ul
01
2S

i-
o
z
§
OC
j-




§

4-»
§-
U
01
CO
1
01
1-

i


Ul
L.
01
4-1


L.
&
0>
Dl
1

i
01
L_
4-»




4-»
C

COCARD
i
i
t.
a
4J
Ul
01
C_
01
1
Ul
01
Ul
u
f_
a.

_j
u.
UJ
<
_l
H-
CA






2
a
"8
4-»
1
a
L.
ID

01
3
ID


1

-g
(0
Ul
4-»
C
01


o
u
2
L.
**
U
Ul
S
"3
s
CO

Ul
>>
a
i_
L.
a

^ U
5i



1- ID
OI 3

3l
o c
v>-
LTSORT
o a
-i
Ul t_
L. 01
Ul O
4-* 4J
"3 ui
Ul C
01 0

ii
4J U
4^
OI C
C 0
_O 0
to u 1
1- 3 'x
o o a
u> ui E

t-
g
u
_J
«>


ID
>
>.
10
1.
ID
receptor
.
1
U.








CO
s

(_ X
01
s§
ID Ul
1- '—
0) t-
O Q.
Ul O
O U
t.
01 O
o •»•
3 Ul
0 4-i 01
Ul t- OI
4J U
1- I- U
(0 01 t.
8-1 i
00 C M

CJ
a
Ul
00
^



L.
O
I.
01

1
settings
es
CO OI
4^ CO
•M 0)
(/) £
Of

£

_^
2
t_
01
4^
c
01
Ol


i
01
t-

Ul



1
^
•"•
o.
1—
Ul
00
c.
o
U)
01
OI
1
E
ID Ul
oi -o
t- c.
4J CO
Ul U
I. O
si
38.
01 O

/-\
o
1—
UJ
00
h-
1—
V)
CO

ID
>
CO
ID
receptor
.
1








CO
s
CO

to
u
10
01

to



01
c

REPOLR

CD
I
"o
§-
4-*
0>
CO J*
If
§ 0
58-
1. U
01 01
Q. U

1
2
1—
UJ
00
_J

Ul
0)
eg


oi '£
U CD
83
tn —•
CO
K
i""
'•5 "8
C to
— 3






X


01
u
3
Ul


CD

f_
CO

01
u
l_
3
o

u
2
CD
to "3
u
u «—
0 4-1
H- L.
8 s-
1 !
•z ° s
CO O

0 4J
01 L. to
 I. 3
01 CD 0
(A Q.-C

u
QC
CA
UJ
d

Ul CO
CO O
*!_••-
Si. 4->
ID °
U L.
4J 0 4->
'5 ai
Ul 01 4-"
§2°
4-* *. ta
Q. CO U
O X Of
a a.
OI L. CO
— ffl CO
CO 4-*
olS-3
83*-
I- O 4)
a. co E











H-

!
c.
4-1



t_
|
C
I-M
Z
I
§
M-
0
"o
c
o
o

10
1- Ul
01 01
0 ~3
si
u
L. 01
a. co


a.
i—
UJ
V)
^



s
4J

O
<4^
C
CO
4-*
•3
01
u
ID
H-
L.



CO

01
4-*
01
E
ID
£_
8.
01
OI
1

i
01
l_





4J
C

MECARD
§
0
"c
ID
4-*
10
01
surfac
Ul
01
u
o
L.
Q.

^
t—
O
U.
^

1
U
*4-
**-
0)
8

§
L.
8.
Ul
•5
10
01
(0

co"
S

u
x
4-*


!E oi
0 CD
CO •»-
8"!

ID Q^
4.* O






c "S
3 t-
0 3
0 <-
Z CO
00 00 00 Z 00
siifc!
c
o
CO
1_
8.
Ul
•5
§
"^

Ul
Ul
01
3 |
"3 3
u u


,_
00
VD
H

 I

-------
 C
 O
u
 CD
rH
 0)
TJ
CM
U
W
 0)
 (Q
 0)
T3
 O
4J
 (0
 (0
 O
•H
4J
 0)
XJ
 (0
-s
*







CO
a

4V
3










a
4-»
to
a
4-»

-






Calling
Module








S
+J
Q.
U
en
0)
Q
01

oz

•*

£

u

**-
H-
U

'ta
8.
in
•5
CO
o
1
CA"
in
a

o

X
4v

!5 o>
CO CO

in <4-
.* s
01 O
2~
CO Q.
4V O
(I)
— c
•Q CO
?1
•— >>
11
0 e-
z c/>
(A (A (A Z (A
§ 5 3 (A Q
§

m
c_
0)
Q.
CO
•5
§
**-
N
Calculates sigma-
curves


N
(3
00



01
u


Q
in
1

g
U.
9
H-
CO
O C
_J •»-


















O
01
£
3
tA
u
IA
'i







1

01
Retrieves a sourc

X
LU
Z
00




&.
o


2
CO

s
§ Ol
u
«C- L.
°i
CA CO
Ol
So
CO CO
1- 01


u
CD
01


o

(A



0*
t_

"o
 0)
C O)
Controls process i
pathway input ima

o
at









in
4v
^
i
o»
0)
u
i
CA


CA
t-
0)
4V
1!
i
C.
s.

01
O)
§

E
0)
Q>
c.
4J
L.

|
**
o
at

i
L.
^

01
O)
i

E
to
01
u.
4V
§

4-1
1

Q
OC
S
to


CA
T3

CO
U
at ion
u
o
Processes source

^
§
o
CA









CO
U
<_
•ce paramete
i
en


CA
e_
01


i
L.
8.

01
Dl


i
01

4-»
1

+J
^*
|

CA 4V
4V Q.
C 01
'u u
o. c.

t-
t—
ce
a.







u
CO
01
L.
o
L.
CO O
•s^
>— CA


CO

01
U
L-
i
en

u
CO
0)

o
CA
X
CO
i_
(.
CO
£_
CO O

~3 0)
CO O
01 Ol
at t-
i
-•



01
u

3
O
CO
.c
u
CO
01

Prints results fo
receptor

i_
at
a.
CA








•g
CO
o

L.
0) CO
applicable
ling message
II





CO
4V
CO
•D

"g
CO


§

4->
01
u
L.
i
CO

4v
*-
a
at
<
CO
CO

0
01

u

01
C CO
CO 4V
t_ 3
CO C
CO —
to
Performs quality
on source pathway


§
U
LU
1-
00
Ol
c

CO
01
l»
,_
o
H-
CA
01
4V
CO 0)
i|
CO O
t 8
CO 4V


CA
t.
Ol


|

8.

01
o>
1

E
CO
Ol
t_
4V
CO

i

a
at
3
LU
Z
L.
O



01
4-*
Is
01 -4-

1? in
Processes start a
reading meteorolo

a
i
(A

_J

01

^ 4V

CA C

O T)

9Z
X ""
<*- Ol
>^> L.
c "
01 CA Ol
•Q 01 — >
L. ««•
co1! n
Ol e CD
L, £ 4V
t- 3 CO
< tA T)


CO
t.
Ol
4V

i

3.

01
O)
1

§
0)
L.
4-1
CA

|
Wet
2
X

O)
C 01




4v CO
C 4V
•S-S
"" 01
t_ J=
0 4V
H-
Processes inputs
STAR summaries in

«£
1
CA

LU


t_
01
4V

3
u
CO
01
(ric variabl
I















CO
4V
C
01
4V
§
u

?
u.
o
CO
*





l_
•4- 01
'£ TJ
4V
CO 10
L- O
Converts characte
runstream field t
precision number

i
m
8
CA
—1
_J


i.
0)
4V

g
U
"Z
a
01
sric variabl
1















CO
4V
c
01
4V
§
U

"5
u.
u
CA
I





t_
H-
D) C.
C ^
f_ £
4V 3
CO C
(_ 0
Converts characte
runstream field t

z
o
CA

-------
4J
 C
 O
U
 M
rH
 (U
T3
 O
S
O
en
 d)
£
-P
 (0
 0)
rH
 3

•8
4-1
 O
 Ul
•H
 a
 o
•H
-P
 (0
_t
•§
x




a
4V
a
o
4-*
3.
+v>
3











CD
4->
CO
O

4-1
|




?•
"^ 3
^1
U *•




§

4V
a.
Descri

01
11
z


i—
_j





01
o
L.
L.
O
>«-
1
C_

TJ
C


L.
O
*4-
1
L.
U
(O
(A CA
4-» 01
_* (J
3!s
41 O
ae to

< at
x£
i— t-
_i _i



1
u
Ol
0>
u

Ifl
o
4V
IA
3
ID
>
CO

a.
to

^
_i
<


IA
4V
"3
ed summary table of
/message handler res
particular stage of
ssing
4v i. a 01
B. 8 «_ 8
•*• I— b O
c. U O t-
a. o> **- a


CA
CA" O)
U 
01 ID
01 O
ID <_
01 t-
IA 01
i-4-
< 0
L.
O 4v
t- V>
L. ••-
UJ — '

«
< UJ
z to


10
V
"3
IA
01
<4- t_
O
l_
01 01

11
4V ID
X^
t- 0)
ID O)
B ID
E 01
3 01
Ifl V
0.1
4V t_
C O
••- L.
L. L.
a. 01

_i
ca
i—
to
>
UJ
l_
09


§1 «
•i >
ed arrays of cunulat
s and
ges,AvEVAL(Rec,Grp,A
4V 0) ID
t3 t.
ID >
> a

x
a
c-
^
f~
u
i_
-g".
4V U
.— 41
3 ae
01 **
(O
§_J
<;
••- >
4v ae
8-*
o> »T
Is
V ^
CO
f >
Ol JZ
ID i
i. «—
01
> H-
< 0

_1
i
5

D>
CO
8
ID
•a
C
ID

s summation
ly values
oi
•4- v=
L.
01 >4-
0. O

_l
3
to

«j
_i
<

4V
C
OJ
u
al dispersion coeffi
L.
OJ
ID
_J


01
IA Ol
ID C
~U TJ

**
15 d>
CO CO
4-» — •
fA H-

oT o
85
2 8-
to
TJ n OJ
?l!
•^ >^ 01

III
O 1- TJ

to
i
n
o
c
to
OJ
01
3
ID
> v=
01
X ID
11
01
Ol
01 C
41 ._
4V TJ
ID — •
32
3£

z
z
Ul
>-
to

^





1
ffl"
I
< Ol
IAC?
4V ID
«:
." c
•4- ID
»4- 4V
§.2
OTJ
01


4V
01
TJ
2
'5
o


ategory
u
4-»
_J

.Q
ID
4-1
to

N
O N
- >
CO X
01
?
0)
L_
?
ID
01
4-*
c
OJ

nes coeffic
al sigma-z
IE
OJ
4V L.
01 O
a ^

u.
8
IM
ca

•J
_j
<





coefficient
x
ID
OJ
O






5
!H
— CA
3 o>
2 n

»*»-
4-*
^J5
«s
*
§CA
-!
"Q.'IA
c
o> u
-^ E
ID '••
3 TJ

to z
to x
O_ Ul
Z IM
Cv IA



t_
O
«4-


41
4V N
sri
s™
"D 01
01 TJ
01 01
4V J=
ID Ifl
"3 S
u c
*ia o
u TJ

B
Q
N
to

wj
-J
<

4V

__
U

cal dispersion coeff
o^_
4.1
01
>


CA
CA
CO
U

X
+J
!5
<0
*-»
CA

••5
as
2 §•
IA
TJ OJ
*t
•— ^

c "5
3 t.
0 3
0 t.

to
o
Q.
•8
u
C
CO
1
S
(0
> ^
U)
N CD
i i
Ol O
•»~°
01?
2TJ
ID — •
33
3^

z
•x.
UJ
IM
CO
h-
1-
to
Ji
£_
ID O
u2
0 0>
ted terrain inputs f
si an grid receptor n
ID 01
I t
— • ID
Ul U



01
c_
01
4V
i
L.
8.
Ol
01
9
6
i
OJ
L.
4v
1

4-»
1
i—
oe
<
u
UJ
K
01
4V
3
9--^
C L.
— o
c2
.— 4)
IDC
U L.
41 O
4V 4V
Q.
es elevated
ridded rece
Process
for a g

i-
o
z
oc
UJ
t-

—i



v=
U
4V
'z
CA
S
4»<
§•
4-*
™
oi
v=
c
'S
C.
01
1—



IA
U
41
4V
i
u
8.
01
Ol

§
Of
c_
runst

4-*
a
a
ae
S
8
c
o

i
o
4V
vZ
Ol

S
vZ
es terrain
Process

h-
Z
oe
Of
LU
1—
—1
_J
<





of error/message
sties
x —
OJ 4V
(. 4V
< Ifl






OJ
H-
01
Ol
ID
IA
ror/mes
L.
OJ
3


ID
4V
01
O

Q.
Z 3
"- t—
< Ul
Z to


L.
o
c_
I_
OJ
•4-
o

Ifl
u
es statisti
s
Generat
message

h-
CO
Of
Of
Ul
1—

.1
<





01
wV
C
4V
i
4-»
i
c.
o
«4-
01
01

,„.
I—



(A
(.
OJ
4V
i
CO
u
8.
OJ
Ol

i
(U
L.
4->
CA
L.

4->
|
a
Of
S
o
u
OJ

t^
4V
3.
4-»
1

L_
o
*4-
W)
01
4-*
4-*
8
Process

to
UJ
_i
t—
t—
•
_j
<

a
4V
ID
"O

air (mixing height)
mation
L. L.
OJ O
Q_*«
0. C
3 **•



CA
{_
0)
4-*
i
t_
8.
OJ
01

i
CO
L.
4J
L.

4->
|
Q
Of
5
Ul
z



Ol
c
X C
1.2


[_ g
CO O
H-
fc.£
51 to
3 •*-*
S"8
Process
height)

<
i—
1
3
j
_j
<





alized variables and
s
— X
4V ID
'E L.
— ig















!
o
3f

Z
I



Ifl
OJ
s
ID
t.
ID
>
B-
4V
01
IA
IA
01
N
ID
4-»
"c.

•x
at
<
>

I—
CO

i_
0
*4-
t-
t/> ID
S-=!
3
— > U
ID '•-
>£
S3 8.
Q.
UJ L.
0 O
*t-
&fe
z£
O 01
"8
X t- 01
— • u
3-g 3
0 ffl 0
x oi to



4^
U OJ
•f- t.
*4- C.
— 3
O U
8. -«,
Ifl IA 01
L. ID v3
O t. ID
•4- t. •—
ID L.
IA ID
t- t. >
01 O
4V 4V _
ill n m
£ 01 O
l_ OJ S
ID L. O
a -o
41 41 L.
U U O
l_ t- 41
O O OJ
CO IA E

U
_l
2
UJ
z
5
— i
§
t,
0
H-
tfl


s calculati
o 8
I- U
4-* L.
S3
u to

CJ
s
>

-------
 C
 O
u
 u
iH
 0)
•a
 o
01
U
ca
H

 0)
,c
JJ
 (Q
 0)
(4-1
 o
 10
•H

Hi


H
 (0
 O
•H


 0)


 (0
1
*




a
o


i












CO
CO
o
1



Calling
Module




§
Q.

O
CA
41
O




41
ii
O 3C
X
UJ

o
•4-
CA
5

"S a

v> o
ui cu
a O 4J
L. C
1- 3 41
0 0 >
CA 41
U
§(- L.
_o a
3 3
X U O
—^ ••- tp-
iaa




4^
og
H- C_
— 3
U. •> CA
CA CA 41
c. its
O C. CO
•4- C_ —
CO C-
CA CO
41 O
18-3
10 O "^-
l'.!
CV 41 1.
0 0 O
Lo t«> 4)

O O 41
CO CA E
u
-J
"

UJ
_J

0
H-

—
CO
"3
o
CO
o
CA
— CA
O 41
<- U
4-* L.
U CA

C\J
U

>
h-
_J

each
source
C-
0 L.
•«- CO
CA "3

CO C.

UJ M-
C- O
O 4J
o 8-
is




4J
og
«4- U

CA C/T 41
C, CD'S
O C. CO
CO t-
CA CO
41 O
§Q- CO
41 0
c. 41 OI
CO C. O
Q. — «
- O
41 41 c.
L. IB 41
i s o
O O V
CO CA E
u
"

i

0
o

CO
"3
o
CO
o
CD
oS
c. o
4-> L.
U CA

U

>
UJ
CO
persion
CA

'•5
a
o


2
CO
^3 4rf
ID CU
— O

£-8

41 4J
•* 9!
«i
"3 f
o «-
OI >
_O 4J 41
X.C CA
(0 —
«li
U 3
3.* 3
CD O
CO 3 ~O
CNJ
U U
> *

CO
c.
41
4-*
i
ID
L.
S.
c
o

CO CO
C— 41
CA 3
— o
•D CO

CA UJ
H
41
4-1 C_
41 O
O H-

CO

§
1—

g
CO
I
CA

•5
a
o


$
CA
lg
— O
CO —
L. H-
log
—1 O



CA >
OI CO
CO t->
—• CD
H- T3

CU 4J
f !
"co f
0 «-
O 4J* 41
—•-CO
01 C
• — CO
X.C CO
CO —
c- «J T3
c. £
co 3 "U
41 Q,>—
L. CU C

CO S -D
u
*

CO
c.
cu
4J CM
E —i
CO U
i- CO
a-
gl

CA CO
a2
=5!

(A UJ
'io
41
4J C.
41 O
0 H-

00

i
_l








g
41
4^
CO
O
••••
L.
41



B,
J*.
— JS
"- OI
CO 41
CO
c.
« o
N 4->
ECU
0
41
— C.
CA
JT OI
OI'—
•35
* 01
i C
5 x
Q. E
z
u


C
"8
CO
3
C
g
41 '£
4-> CO

CD O
<— CO
4-1 O
C.
41 C
> 0

CO 4-*
41 CO
4-* C.
"3 41
O O
CD O
U O

I—
ae
UJ
-j

g

CA
0
Q.
41
•o
L.
o
«#-
g
*l
CO CD
O — •
•— 3
i. — -
41 CD
> 0


CD

X O
4-* E
— * c.

-° "2
CO C
4-> CD
CA
OI
. C
N —
l —»
IS
OI 41
•— CA
CA
-C OI
OI —
— 41 CO
41 j: 41
111
3 X 'H
SI >
Q.
UJ
f--

L.
0
H-

E
sg
— * 4-1
CO CD
4-1 O
1 	 •
41 CO
> O

CO C
41 0
4-1 —
CO 4->
O O
CO 41
0 TJ

CA
a
t-
ee.
UJ
-J

1
1

4-*
4V
(A


3
g
41
4-1
CD —
0 <0

C. g
41 S
> c_




^
4^ «
— 4-> CO
— • f 41
— OI— »
CD CU CD

sigma-z
, recept
removal '
4J f. -a
f 01 C
at— a
— 41
§ X 4J-
o. E co
oe
>

 O

CA 4J
41 CD
4-* C.
CO 4J — •
— C CO
3 41 >
U O C.

s
ce.
UJ
-.

UJ

^
4-*
™
4)


i
Q.
41
£

CU
w
UJ



CA •
01 41
CO O
— c
H- CO

41 
CO CO 41
c_ -o — •
U 41
:i.s
0 = CO
3 JZ (.
SAS
u
.J
C_]

4^
*
'5
.c

"S.
4*

— CO
o o
41 c-
41 CA

CA UJ
11
41
4-* C.
01 O
a t-

u.
u.
UJ
z
.

CA
3
"3


x
CO
t_
u
CO


41
i
a
c_
S
^L
4)
0
3
O
in




CO
4)
4-*

i
c_
a
CU
OI
§
§
Jt runstre
s.
>w
1
a.
o
CO
CA
|
C.
41
4-*
C_
CD
Q. CO
4)
41 O
O <-
t- 3
EO
CO

UJ
CA I
CU 5
CA _J
CA O
41 >
O
O <-
L. O
a. •«-

x

>
_J

S

CO

IJ
41 4J
0 CO
C. — *
3 3
O O
CO —•
CO
— o
3 .
^ (_
T3 O
>•
S "8
£3







X
41
2
41
O
C.
3
O
CA
•ce arrays
3
CO
u
>

CD CO
c- "§
0 C. —
•4- O 4J
M- CD
CO — '
41 41 3
— • O O
J3 i 	 i
CO 3 CD
— 0 0
C- CO
CO H-
1st
O — I 3
§"" > JC

CA C. I.
CO CD
41 — ' — <
J= 3 3
4-1 O O
CA W W
4J L. L.

_
UJ
(/I
_J

"2
to
v>
(/I
UJ
41 V
!§

O (0
UJ
CO ^
O) 4 00

(A **•
_, 4) o
CO ^
O O 41
'^ 4J 3
OI— — •
0 3 CO
— 1 CO >
CA
CU


CO
c.
CD

OI
!2 °
— OI
5£
O
28
4J 4t
E *-
ID » D
L. CO O
as*
sal
3 i c.
«l "5 «4-
U
S
a.
L.
O
H-
CA
41
O

'5
CO
CO
CO
UJ
< CA
31 CO

CO O

3^
CA — •
41 '5
CO -Q

U.

§
_J
_J





_
CO C
4-> O
o —
C. 4J
O
'£ (Z
o o
41 —
•5 u
C.
"S 0




CA
41
4-*

i
s.
41
OI
i
i
Jt runstre
S-
w
a
Of
g
UJ
Z

4-t
CO
0
c_

g
o
41 C
L. 0
15 i-

'3 'c
o
CA —
CO O
CO 41
41 C.
0 C_
C. 0
Q. *^

5
o:
§

-------
4J
 C
 O
o
 Ul
H
 a)
T3
 o
CN
u
w
H

 a>
X5
-P
 0)
 0)
T3
 O
-P
 01
 (Q
 O
•H
-P

J8
 (C
t
*







to

n
0
+j
3.
S












CO
4-»
CO

5
-







*|

3!







§

Q.
L.
U
CO
01
a







01
"^ £
~n cl
*Z
_i
"*

41
CO
V

0)
o


1

'i
1
?!
.- jjj



C 4-«
01 •— D)
4-* 4-t 't-
i o"f
Q
f C 41
C 01 4->



"Sal
•n « "S

3 Q--C

C 4-1 CO

u O) 41
a '3 "S
0 J= 1-

u u u
~J —1 — 1
0. ><
1

s


10 4J
§ "S

•4- 01
t^
01
CO
CO
CO 4)
'3 o

at

CO f
v'Z
<-C


"5
1
Ul
S




CO

1


t
at
41
4-»
ID
U
1
CO
,£
3


CO
t_
01

E
t_
S.

01
o>
1
1

§
L.


|

o
Of
s
Ul
X

X
L.
o
O)
41
CO
U

1
CO
'3


m
in m
01 V
i\ ^
2l
Q. >-

in
t—
u
3
_,
"*




C.

|

41

lwm
1
Q.
S.
CO CO
4-1
•S C
3 —


CO

41
4-*
S
2
S.

01
D)
1
§
41
4^
CO
§
L.

4-t

**


CJ
UJ
Z


JJ


o
L.
Q.

&
CO
CO
I!
CO
4) 4J
CO C
CO 41
0) C
8 |
ct o>

u.
g
1
_j
"*






01
CO
4-»
CO

1
'I
CO
01
CO
-1
co"
CO
JO
u

X
•^
."^
CO O)
4-1 CO
CO — <
*«-
II
CO *J
rf
•i~ (0
•a J3
1_

CO v»

4J CO
.- L.
c o


Z
X C/l
Ul —
w 5





§
4-1
L.

CO
41
4-1
CO
CO
41
V g>


3 CO
— • CO
u-0



i
^
*





01

4-1
CO
5
.
c_
CO
0
fc

CO
CO
CO "D
u •—

X C
4-1 3
•^ o
^ "^
CO <»
4J CO
CA — '
«*-
II
ca 4->
ca c

"° "2 o»
— • 3 O
CO ^» C

4J CO 4->
~ c. -5

Z
Z CO
Ul —t
Nl P
CO >




CO
4-<


CO
o
4-*
41
<0
41
w 4)
CO U

"3 S
— • ca
CO "-
U-0



rsi
X
_J
*










(%
4-*
ca
'•5
'I
<5
0





c
o
4-»
CO



01
u
c_
i
CO
t
CO

0

a.
41
oc

u u u
u u u
a. > <
'3

CO
o c
c. O
o —
C_ 4-1
-gj, g
CO D —
— c_ o
iS. i.
3 O
O C. 4->
•a o a
<4- 41
CO U
01 CO 41
4-> 4> t.
CO CJ ^

"3 S o
"3.2 i
u "5 ca

1—
CO
X
1—
1—
C/l
CO
01
a^
CO


4J


X
x"
•o
t_
o>
§
'i
4-f
to
u


CO
t-
01

c
2
s.

01
Ol
1
i
41
4J

§


4->

•"
»-
ae
s
Ul
ae
4-1

X


-o
c.
D>
c
CO
CO
at
t.
CO
u
CO
4)
CO
CO CO
01 41
t_ CO
a. >

(/)
h-
a.
X
                                                                                                                                       O
                                                                                                                                       CM
                                                                                                                                        I

-------

-------
               APPENDIX  B. MODULE CALLING TREES

     This appendix provides complete module calling trees for
all three of the ISC2 models.  The calling trees are placed
side-by-side to facilitate comparison of the models.  The
calling trees are also realigned for the beginning of the
calculation modules.  These calling trees indicate only the
first occurrence of a module call within each module.  A prefix
of 'S.1 indicates a subroutine module, 'F.1  indicates a
function module,  'D.' indicates a block data module, and 'P.'
indicates the main program module.
                              B-l

-------

-------
                 _    _
                      So
                      z
                                         -    —   —      -
                                         Q    o   o 5    a
                                         z    z   z z    3:
                               _i   _icoaeh-aezacoaae
                               o   oiuaco,ae»-a£»-'-'a£
                               z   z_iujouj>— ujco— l
                               acc3a£
                               a:aca
                                                                              —I   Z -J   —I
                                                                              a   zj a   a
                                                                              z   z z   :c
                                                                                               gi
                                                                       aeH-z
                                                                                             _
                                                                                   i-aeoa£-«ae
                                                          ! 1   Q   3 Q    e   Q            = Q

                                                                                         a (J os «-> H- £ ae


                              a:-.oo8oo'>GOCo'oGo'oGoco'iiJco_icoco^GoacGOoe     oc o GO GO GO o co
,«   ~u.>-a:^s-^u^J *J ^-U °:-l ".-U *•-! "----I °.-l "-J 5     "i«".  I  I  I  «i-L

iSSgoSiSf Sf Sf Sf T   7   f      f   T      T   f     f   1*   «     I"?        f
§
I
  > a. J  co  |  ||  |

          i	
                                 I
                                      I
f
      §u
      co
L,    —


2    f
Q_    -I
                      §    g   g
       —i   aeuiQZoc    at o ae u_
       o   a.z_i>-oe>-£K[K(*at:
       z   ^ — U.iuae   aeu.i—a.  • ^  • i—  >u
  ~ " aea.3ujujxxcoujcoo
          3 -i o o uj iu I co  I  o
— IK U  .(—...  .-I  t—I  .-I
Z-a:oi
                                - • • — -. as »- as — oe < a; I- :	
                                       _ uj i— UJ -lujuuicooeujz
                                act-   • Q  • ua  • -J  • UJ  •  • ae  -3
                                CK— GOOOO>GOOCOQOOOOUJCO_1

                                "i^J ZJ  -*J °:J "i i  i  ":J "i
                                CO GO    CO    GO   CO   CO      COCO

                                I  I     I    I     I     I       II
                                                                                                                            CNJ

                                                                                                                             I

                                                                                                                            PQ
CO
u
CO
       _i   ae iu o z ac   of
       o   a. z -J i— a: >- a:
       Z   ~1 i-^ u_ ^ i±j in in
  — uj o:   aeu.i-a.  -u   •

           i -j o u ujj ujj
                                                          03   O   O    3 Q   a
                                                     —   ZZ   Z   Z    Z 31   Z
                                                  iaae>-aeoi— aci— aeu-oaei— ae—i


                                  ^               >_i>uj--a:-=3-<--z-z


                               "I ^ J* ^ J° ^ T T °; J* S T f •" J* "j J° "• T T * J* "J

                               GO co    co   co      coco      co    co   co      coco

                                I   I    I     I       II       III       II
                                                                                                        z
                                                                                                    —i z

                                                                                                    gi   !
                                                                                                   i ae o —i ae
                                                                                                        as u. ae t- u. ae a:
                                                                                                        ui uj uj (/> i- ui <


                                                                                                         '    '
2^5 aj* wj^
C/> Q t/> Crt (/>
"^ T 1 1 I
COOTCO

7 f f

5

-------
xx    ae
uj 3 z ae
o z ac iu

522.0-
to (n a. J

(/>(/>(/>
 I   I  I
                   S
                            I -i    Z    13 O
                            So    3    o i—
                              Sz    z    — co
                              ae C9 o  a. i—
              —it-eex—iOaec9_	
zaezaf    o — oeui—ii—oeai—aeujco
ae uj ac ui    Z_IUIQ — ooui — cooco  I
<  •<  •ueeo.  • z u.  •  •!-  •  z   •->
o.ooa.cooa:oooo~cooooouiinooco
^j -aea.   • z u.  •   • t-  • z   •-!  i— a o a. o: a.  •
                                          aeaecoin — u-cocoujcacoin    •-• oe i— uj a: z oo
                                          < UJ U. J CO UI I  I "JJ- ae a.   • z u-  •   • i—  •
                                                                     aecnc/>»~u-c/}cnuj(/}
                                                                     ui u-J U.JCOCOUJCOJ<

                                                                                 »~ a£ »— uj ae z     aujzJXoexaexae



i UJ CO CO '
                                 za
                                                                  -I       Z -I    Z   O O
                                                                  o       => a    r>   a i—
                                                                  z       z z    z   x co
                                                             -jH-aex-JOaeooa-i—  •
                                                             a — aeuj-ji— o: Q i- IK ui co
                    ^   •  •  . f*

                    8f TT8
                 11
        gaeuifieuiaeiii   z_iujoi-iinuj*-icooin  I
        <  •<   •<  • a et a.  -zu.  •  •»-   -z  •—'  .	
Q- — i—Q.coa.ooo.oooa:ooco —  oococoujcoooco    et ee v> J     o i—
                                                                                      z       z z   z    *- co
                                                                                — ii— - oe o
                                                                                        — u-coooujoooooo    — • t^ i—
                                                                                        CO Ul       "'             ZUJCO
             coco
             II
                                                                                               oo
                                                                                                I
                                                                                                         co
                                                                                                          I

-------
                                                                        o.  • z o at t-    _
                                                                        IACA*-*t— OeUJCAtOCA
                                                                        U.J  IA IA UJ IA J < J
I   I   I   I
             J
                                                                                                                                              —I    X -I    -IX
                                                                                       ae    QMOC
                                                                                       UJ    XU.U1




                                                                                     . I  § ^ j'

                                                                                    (/>
                                                                                                                                                    IAUJ     oe
                         a.aeiA(ouicoincn    < as
                         ae ill u.  I  en  |  <  I     o ui
                         O   .   ._!    .-I   ._J     u  •
                         O in en    in    in       at in
S
                                                                                                            II      I
                                                                                                                                 JT
          zuuicnzuicnzuj
    _i t— ae z  >  -a.  •  •  at  •
    aaeaeuiinin>-ininiijin
    z « ui C3  I   I  x  I   I  i- I
• O Of U  •  --1—'   •-!—I   • -!-
> ^y fy* LIJ ex)        (A       v)

 3 "i "  I   I         I         1
 ui in in
 «  I   I	

 in
                                                                                                                                       I

                                                                                                                                      CQ
                                  -
                                  a.  . z o ae i-
                                  in »»- ae ui
                                  u. j  in en ui in

                                  in    en in in in
= Q °
g« in
a. i- •
i— at ui in
in o inj
T



_i
a

i— ce x I
— 
2f
CO
J

§

X Z ._> (3 O
Ul "*^ Q Q ^
§Z Z — CO
O ac i- •
— 1— DC UJ CO
IA CO Ul COJ
I/II/XACO



C3 O
Q »-
— . CO
SUI CO
z^.J
Sj°
T





_1 t«
i-
ae a.
a. ae ca
O IA CO
" 1 1
T


.ERRHDL
TIDG
.STONUH
en ui in
J °!J
en
1

3j

C3 O
25
a, »- •
tt UJ CO
ocnj
Sf
CO
J



z
§Qf
u *"
OC CO

CO



o

< UJ
Sf
T

-------
- oi »- i
                              §   i
            ui m < ac   a ai 3      o
            o o — uj   z o z      z
              O -i  •   as z O   i- ae _i
T
                                          111

                                          oo
                   g

                 ?£   ^x
                   UI   _

     gaede^ — ^30iyoe = ^
     ui ui u> oo oo -i I  o ui oo oo	
  i at a.	-J  _i  .  .  • a >  .
   at > oo oo oo oo oo   > oo oo oo a: ui ui
   uiuj |  |  |  |   |    ui  i  i  I uji—uitoa.  I
                                                                 . at  •  • z  • Q-  •-"

                                                                fg«yf af 5?

                                                                   T      i   i
                                                                                             oo :

                                                                                             at OO

                                                                                             °:J
                                                                                             oo
                                                                                                                U UI

                                                                                                               -J I—
                                                                                                       II

                                                                                                       UJ U
                                                                         'J
I   II

O h- ae o
»- o of t—
in z ui in

in -i in in
J  -:J_J
      i o oi z o i—
       aeae~<>-(/>
       ouit»(/)a
-J Z    —I Z    —J Z   —IZ   —J Z   —J —I
Q 3    a 5    03   Q O   Q 5   Q <
Z Z    Z Z    ZZ   ZZ   ZZ   Z >


Q£ H> O tt l~~ Z tt H- O tt! I— O tt H- O tf 00
uj(/)Q.uj(/)a£uj(/)ZLiit/iziiJcna.uj(/)



J	[ o J	j at J	j i—J	j  u. J	j  w j	I uujc/ia.iijc/>c/)aeujcrtco


          00      V)      CA      ^(/>(/><->V)(ACAOC/)(A(/)
                                                                        -


                                                                        1C
                                  §
                             —i —i a: >-
                             o — as z
                             z u. uj z
                             ae h-  • ui
v^ v* i" ^ w« v v v^ i» vj v K& QC UJ C/) Z

°  I  I Q I   I  I  "j  I  .. I  I  g^^J <
in      in        oo         uj oo oo   oo
                                                                                     in
                                                                                     i
                                                                                     ffl
                                                                                                             00
1^11^11^11
i—h-aeh-cstt)—uact—
(AZUI(AZliJMZUJC/l
                             JL
                                                                                                 I   -I
                                                                                                 2   a
                                                                                                 Z
                                                                                                 O
   -1-1       -IXZ   -IZ   -IZ   _IZ    -JZ

   §5       g-oi   il   ii   gi    gi
   Hoc >-   -lOaczot-ocO—jocooocoi—Q£Oi--__
   aem   oococ — i—oocet-Ooct-zoci-ooci—oa:t-
   ui oo   zOui(/)i/>ouia.uj(oa!uj(/)zuJbozujoo
K-  •  >oeoc—i  •  •  • mj  •  • x  •  >o •  • at  •  *u  •   *P-
uj«oo_io:ooooo«ooou>iiioooo
                                                                                    Qt>-
                                                                                    aeca
                                                                                    uju>
                                                                                                             .
                                                                                                             o;
                                                                                                             z:
                                                                                                             DC
                                                                        i   gi
                                                                         —i ac O



-------
  !i   ii
  i Q£ < Q£ <
1— O£ i>- Q£ i>-
(/I UJ < UJ CO

zuj(/>a.
 •  • UJ  •  * UJ  •  « O

lj      Crt     CO
     I       I      I
    a   Q ^   o —i oc t- 3
    X   XZ   ZO.UJMZ
—10.0:—loeoi— osae  •  • o
                                                    • o ae
                                                     aeQe
                                                     < uj
                                                            crt c/)

                                                             I  I
                                                               5 J  q I   I
                                                                                         en

                                                                                          I
                                                                          U)
                                                                                                                    VO
                                                                                                                     I
                                                                                                                    CQ
                         • -i   X -i
                        co Q   3 o

                        -I a: t- o oe
                          Q£ (/) I— OC
                          UJ QC (/) UJ

                          in ui in in
X   _J X X
UJ   O UJ 3
ji
     UJ OO CO

     oo oo co
 —i   x —i   -j :

 s   ii   SL
iaf»-Oac<(/>uj

                                          <«/»'
-------
                                                                                                                                               I
                                                                                                                                               pa
                    aeuiouiujcjujuiuiijuju
                    CO X    OCX    Of X    Z X
                    l_  ._J  I-  ._!  i^   .-I  ,_   ._!
                    at in    ac co    xi/>    aev)
                    °:J     °:J     ^J    "-.J
                    (/»       xuiOuja,  |   i  GO —i ui a.
Q  •   • z  •   • a.  •  •-*—'   • a.
   to3Wi(/>3c/>co       cog
                    1.
T
                                                     CO
                                      CO 3 CO
                                     J °J
                                                                                g
                                                                                Of.  .
                                                                           a: >—
                                                                           UJ <
                                                                                                                                 oei—
                                                                                                                                 UJ <
                                                1
      oo    a    o.
13=   Z X    X    O
> at i- o ae _i ae. X

 uj a£ co uj ^ uj co
  • ae   •  • z  • Q-
 co uj co co 3 co z

_J  -:-U  "JJ ~
    (/>       (/)(/>
     I	|    J_
(¥ CO
°:J
CO
1
ae co
°:J
CO
1
ae co
°:J
CO
1
X CO
^J
CO
1
DC
a.
CO
|

-------
    Qae  • t- t-   • -!   •  • -!	  _
    at ut  ui la    en as 3 en x uj in    en en   or: a _i  cj
 UI C9    Z  I      I  UJ -J    UJ I  I     I       Ul X <  0.
 Q^  • —1   .  '      '   .   . —J  ^  .  '     '   '     • QC CJ   •
IUJOOIA          en en    uj en               en ce >  en
j *  I      I	I  I    z J	1  ui ui J_

iT	"f	f T
                                                                                                                                      i
                                                                                                                                    gO I
                                                                                                                                    •— I
                                                                                                            IS!
                                                                                                        <    M 3 
                                                                                                        u    en ej
                                                                                                        o N  •  •->
                                                                                                     z N > i/i en
                                                                                                     z u> x  I   I
                                                                                                     m  .   ,_i — i      .
                                                                                                  en M en en          en
                                                                                                                                         C9
                                                                                                                                         —
                                                                                                                                         en
                                                                                                      i u. o :
                                                                                                      i UJ  •
                                                                                                      • Z 00 I
                                                                                                      : a- I
                                                                                                                     J
                        £
                     I- Of .
                     x at i
                     ui ui :

                    : ui oo i
              O       x ~ >       — en z en
              z       ZIAX    x of z a CA

OC _l  -J u- _IZCOO.>-tAtAU.UJCAXCOX
IAI—  Q t- u. a —. >- en  I  I  u. a x Q  I  Q
i-u.5en^:-QX  .-I—I  ui  .  .  .-I   .
       uj o oc    in
       o *•* uj    o
 >-    U 00  •    U
 <    M 3 00    M
 CJ    00 CJ  I  IM 00    >-
    SIM  .   . —I  C3  >    C3 >•
    > en en    — in  3: —. > oo L_
 en x  I  l    en  l  z en x u ej
I   .  i  I  I     •_Juj   •  *CLQ.CQ
 in en         oo    >- in in _i _i o oo
  |  |	I     00  I  I  00 00 i    •
                                                                                                                                         oe
                                                                                                                                      ej a:
                                                                                                  1.
                             CO 00 00
                              I  I   I
                       ejujxen — «tin>-i-en

                            	-1   .   .-I
                          00 (A IA 00 IA    CO  00
                      i °-  I  I   I  I   I      II
                                        l— in
                                        J  I
       Tf
                                    JTL
                                                                                                                              00
                                                                                                                               I
                                                                                                                              CO
CO
      CO M«
      UI CO l
      at at
                                                                                    O         » en x CA IM
                                                                                    z       z of z a CA co
                                                                                 o a. i-    -i a. a.  • a.   •
                                                                                 _jxoou.uicnzooxiA
                                                                                       — u-  Q Z Q  I  O  I
                                                                                       Q HI   •  •  • —I   • —i—

                                                                               ~ ^5 T £ =  "? 'f 
-------
                                                    u at
                                                             8
    I  •— UJ
CD ca i
                      u
                      IM
                   IM CO
                                       GO Z            <    IM ID CO    IM
                                       Z Q    >      U    CO (J  I  IM GO       I—
                                 —    Q.   •    C3 >•    O IM   •  • —J  13  •       C£
                 _ CO            IM    Z CO 3: — > Z IM >  CO CO    —CO       UJ >-

                 J.J     5    g"!Q°J S"x-S"^-U     M.-l    £^2
           CO CO  U)       —    — GO —  CO    >- CO CO IM CO CO          I/I      UJ CO UJ _    	

            I  I  I     <2»!    «JJ  °!J    "J_U •"J-J	I    £>J  o^a^J
                                            CO      CO                    (JCOOOOOOOOOOOO
                                             I        I                     Q:L     II  °;_L_J_J


                                         	T            f
           t»
                                                          o;

                                                       o co >- 3
                                                       i— m < o
                                                       ce  • cj m —J

                                                       S!?gg£
                                                                                          J

                                                                                                      U t—    I—       >• 19 IM   •
                                                                                                      1* CJ -3 CO U.    > — > CO
                                                                                                      GO O J  IM

                                                                                              -•-'    r~    r— IM  '  • —'  \3
 CO    _J UI CO UJ I- UJ -J UJ CO UJ I— UJ    aS_l-3GOU-_l>GOGO    —

      — >|O—IOO.>|O-1 Q    GO 1— Q — U. GO X  I        (/I

—I    Z  • —'   '   •  *UJ   >^   •  •   •_Jt"-u_>

                               (A               (/I               U W GO 00 CO 00 GO

                               | _ I                >  I   I   I   I  I   I
                                                                                  8       52
                                                                                  U       (X
                                                                                  IM       uj >-  t— 3    a ca
                                                                                  co    t— > <  I o    i—ca
                                                                                    • t- a:  • u  oo ca t- ae  •
                                                                                  GO -J UJ GO UJ  I— UJ_JUICO

                                                                                  J z^J  R-i^g;3:-!
                                                                                     U CO    CO  CO GO Q GO
                                                                                                                                       03
                                                                                                                             i  i   i
                                                                CO

OC    in
UJ    O
  •    U
CO    IM

J SM.
   — co :

   "JJi
   GO    :
 — >CDICJQ:
 GO x u <_> — uj
  •   •&O.QQ   •
  > at _i _a 3 w
         m cj_j
      rrr
            a.            >-    u ca  •    cj      ce
         COZ            •       CJ    GO O  I M GO      1—
         O.'   C9>-    O M  •  "-J 13   •      OC
         3IGOZ— >ZIM>COCO   —GO      LU>-
         Q  I  Z GO X Z GO X  I   I    101    !-><
        ,  ._!  ui   .  ' LU  •   •-!—I      •-!    oe   • u

                                    J    -StfSoo.


                                             g*f    *f *f ig


                                             ?            1s
        8
        IM
   >- IM GO
   C3 C3  • i

to 10 io j  ca j"   io *|' *f  to " "['

-------
co  •    o
p to    M
U  I N CO
 .-J o  .
        •
  I— > < O
  ae • u 09
  uj to vu ui
                       S-5
                       m <: p
                        • u a -j
                       to uj uj <
                       J  a a>
                                              N
         g7    77£7      775g
                                       u i-
                                       ae u	
                                       to < a » to ca to
                                     (M i- u. < o —
                                       uj z to >- -
                                                               to <     u. i—

                                                               |_ CO < < UJ O
                                                               ae  • u u. • oa -J
                                                  :..__ — _   uj co ui ae u- uj <:
                                                  J O UJ J O O. >_| 0 UI J  O >

                                              o co   to to   to g to   co co   co
                               I- > < < LU O
                               ae  . <_> u-  . m
                               ui (/i uj ae u. uj
                                sr
                                                        _5
                                                       77
                                                               i


                                                                                       ,S
                                                                                       I UJ
                                                                                          > I- I-  •
                                                                                        co uj p ae to
                                                                             jaeSST
                                                                             —I m i—  .-J

                                                                                ;S7
                                                             i—   ae i—
                                                             <   ui <
                                                             Q   9Q
                                                             U UJ UJ U

                                                             - g3:-

                                                               £7


                                                             _J
>• t-



UJ t-
Q —I


(O (O
i
UJ
^_,
to u
 * _J

  u

  CO
—1 -> • X h-

 ^ GO CJ Z O
• ae  • ui co m
I UJ CO Q h— UJ




1J   777
                               gg
                           a. i— co oo to   ae  •-'ae  •
                           oeoe(/)t3U»-a.co    a. co
                           ca o — co to p co  i    ca  i
                           ZCO***W*—J     '—^
                           PI-COCO(Ot-CO      CO
-JUJU-JUJU-  •-
             -i to
                                                                        T
                                                                               co
ae i—   ae
UJ 4   ii i

§^x§
LLI (_) < LLJ





J    HJ
     CO
                                                       77
                                                         7
                                                                                                             O

                                                                                                             H

                                                                                                             I

                                                                                                             CQ
                   to <   i—

                   1— CO < O
                   ae  • u ca —i
                   ui to ui ui <

                 a^J °.°!Z
                 gco
                                  CJ I—   h-
                                                  u
                                                  rvi
                                                  co
                                                                  I—     X
                                                                  ae     ik i
                                                                  in >• co ae :
                                                                i— > < < i
                                                                ae  . u u.
                                                                             ae      x
                                                                           co <      u.
                                                                           a m >• m ae
                                                                           i— ca < < uj
                                                                           ae  • u u.
                                   < a » co w  J Q ui J  a a. >_|  ea uij

                                     ~~ "   "™       tjto   toco   topto    coco
                                                                                 m —i
                                                                                 UJ <
                   7

                                  I CO CO CO CO tO

                                                             7
                                                                                         •   CO
                                                                                        CO   —I

                                                                                        J K S
                               _7
                                                                                      77

-------
 *       *   -
 co z    —   a
 I  co    t-   z
-1  3 oe H- H- at
   -i ui < ge oe
   ": 9 ^ 3 ".
   (A 111 U (A I/)
                                                                                            (/>
   i— at. i
   x of <
             : *x H-  cj •
             I U UI  -I I
                       u ui :
                       -i to i
 ae. i
 UJ
 o.
   U C/l UJ C/l
   C.J *J
     i •"• °.
i (O CO 10 O)
•III!
                                         u a. i—    ui
                                         _l Z CO Q. >-
                                         "- Q — >• CO

                                         X  -QXco-
                                                        CO  X

                                                        CO  CO
                                                                                >-    CJ
                                                                                <    N
                                                                                o    to  _.....
                                                                                   Srsi  •   • —'  t3  •    ca  >•
                                                                                   >toto    *-toz-*>mxu
                                                                             ztoxl  I    oo  I  z oo  x u u —.
                                                                  	    	    U|  •  i  I  I     •—J|jj  •   • ^ ft. CO
                                                                  —• CO Z  CO l-g CO CO         CO    >- OO  OO _l _l 3 OO
                    «?i
U. UI V9  Z I
u. a z  o
UI  •  •   • -
z to u.  co

°-  1   I   1
                                                                           to
                                                                                                      u.       o.    >-
                                                                                                      ui    to z    <
                                                                                                      O    a: o    u
                                                                                                      CJ    a.   •    o
                                                                               _.	       IM  i— z to z N
                                                                             01   ICOCOCJI     M OO  —I O  I Z 00
                                                                             .—I	1   .   .   .—I  t- C3  •  O   .-I ui  •
                                                                            to       oo oo oo    _i i— oo  —. oo    M oo
                                                                             I        I  I  I    £<"._}  ™J    ^Jl
                                                                                                     to
                                                                                                                                                       i
                                                                                                                                                      CQ
                                              _TL
         1
                  (A CO
1.
                                                                            Q£  h-
                                                                            UI  <
   Sg    g    g    i
>-<-•.—lae—J a: a. a:

az   ui uj i— LU ^ UJ
h-  •-* x   • to  • o  • ui
aeto   «rooooooooo>a:
               T
                                                                            a
                                                                            <
                                                                   §Q
                                                                   NS, _
                                                                            UI CJ    UI
                                                                                    CL I—
                                                                                             IX  I— -J
                                                                                             LU  < a
                                          zofzacu-oe^aeco    a oo
                                          
-------
        i
   N
   U)
I_
3.J
N CO
2«
"JJ

J
     CO


     2^5
-S^lSlSg
     CO UJ I— LU
       O -I O
         ->^
   o m >- i
   »- m < :
I— Of  i CJ I
-J UJ CO UJ I
ft >J  Q •
ae -J -> co u. _i :
u> i- Q — u. co ;
                 gs
                 o co
                 SB"?
               tvl  .  •-!
     S
     u
CO   N
 ' N CO
     ee   z i—   co <    z i—
     uj >• i— 3   o m >• i— 3
  >- > < I o   i— eo «t a: o
i— ce  • u co m i— oe  -cjcom
_IUJCOUJI— UJ-JUJCOUJI— UJ
  —  '~  JOQ->|~  ' ~
           .  . UJ   .-J
Sf
CO
axooocj
y
CO
SJuj
T T

CO >-
3 X
i
g to
CO CO CO CO



CO U
1 a-
co

CO


T


co co a co
1 1 o- I
T

coo.

 u
u
T
                                                                                                                              PQ

-------
        ISI

     M U)    I—

i- i- a  • i- oc
rr_
T
                          oc
             >• Z I—    Irt < >-
                2i—3    o ca <
                I o    i— co o
             UJ GO CO *- OS

             s
                     vi a i— ui —i ui co

                     J  < -I Q tt: ^
                        fff g?
        Si

ujjgq.

 t—   ae H-
 <   UJ <

i o   a a
                                                   »>— 3 h- w —
                                                   -i «^ -i  i   i  i  -j.
                                                                                          j
                                                   1
                                                                       • —'  z a:    z   -i
                                                                       >    z ct    —   a
                                                                           < uj    i—   z
                                                                           i-  • at >— i— ae
                                                                           —i «/> uj < oc at


                                                                           GO   ui u v> v>



                                                                                T'^T
                                                                                                                                           OQ

-------
     APPENDIX  C.  NAMED  COMMON BLOCKS  AND  INCLUDE  FILE  CONTENTS
C.I  ISCST2  MODEL

CM**********************************************************************
C     MAIN1.INC
C     ISCST2 Model Data - Array Names, Array Limits,  Named Common Blocks
C                        Global Data for All Modules
C************************************************************************


(;************************************************************************
C     User Specified Model Parameters for Array Dimensions
C************************************************************************

      PARAMETER (NSRC= 100, NREC= 600, NGRP= 2, NAVE= 2, NVAL- 6,
     &           NMAX= 50, NSEC= 36, NQF= 96, NVSMAX= 20, NWSCAT= 6,
     &           NKST- 6, 1XM=50, IYH=50, NNET= 5,  NHR= 1, NYR = 1)

C**   NSRC   = Max Number of Sources
C**   NREC   = Max Number of Receptors
C**   NGRP   = Max Number of Source Groups
C**   NAVE   = Max Number of Short Term Averaging Periods
C**   NVAL   - Max Number of High Values by Receptor  (RECTABLE Keyword);
C**               Also Controls Number of Highest  Annual Averages Printed
C**   NMAX   = Max Number of Overall Maximum Values (MAXTABLE Keyword)
C**   NSEC   = Number of Sectors for Building Dimensions
C**   NQF    - Number of Variable Emission Rate Factors Per Source
C**   NVSMAX = Max Number of Settling Velocity Categories Per Source
C**   NWSCAT = Number of Wind Speed Categories
C**   NKST   - Number of Stability Categories
C**   IXM    = Max Number of X- coord (Distance) Values Per Receptor Network
C**   IYM    = Max Number of Y-coord (Direction) Values Per Receptor Network
C**   NNET   = Max Number of Cartesian and/or Polar Receptor Networks
C**   NHR    = Number of Hours in Met Data Loop (Not  Used in  Current Design)
C**   NYR    = Max Number of Years in Single Run (Not Used in Current Design)

(;*****»******************************************************************
C     Model Constants Specified as Parameters
C************************************************************************

      PARAMETER (PI = 3.U1593, TWOPI = 6.283185, RTOFPI = 1.772454,
     &           SRT2PI = 2.506628, BETA = 0.6,  G  =  9.80616,
     &           DTORAD = 0.017453293.  RTODEG = 57.29578)

C**   PI     = PI
C**   TWOPI  = 2.*PI
C**   RTOFPI = SQRT(PI)
C**   SRT2PI = SQRT(2.*PI)
C**   BETA   = Entrainment Coefficient for BLP Rise
C**   G      = Acceleration Due to Gravity (m/s**2)
C**   DTORAD = Degrees to Radians Conversion Factor
C**   RTODEG = Radians to Degrees Conversion Factor

C************************************************************************
C     Programmer Specified Model Parameters
      PARAMETER (IFMAX=40,  IPN=6, IKN=51, ISTRG=80,  IERRN=102)

C**   IFMAX  = Max Number of Fields Per Runstream Record
C**   IPN    = Number  of Pathway IDs (Includes •**')
C**   IKN    = Number  of Keywords
C**   ISTRG  = Length  of Runstream Image Record
C**   IERRN  = Number  of Error/Warning/Informational  Messages

C************************************************************************
C     Common Block for Input/Output File Units (Initialized in BLOCK DATA)
£************************************************************************

      COMMON /FUN ITS/  INUNIT, IOUNIT, MFUNIT,  IERUNT,  IERWRT,


                                                 01

-------
     &                IDPUNT, IDPUN2. IRSUNT,  IEVUNT,  ITEVUT
C**   INUNIT = Input Runstream File Unit (Initialized to 5)
C**   IOUNIT = Main Printed Output File Unit (Initialized to 6)
C**   MFUNIT = Input Meteorological Data File Unit (Initialized to 19)
C**   IERUMT = Temporary Error/Message File Unit (Initialized to 10)
C**   IERWRT = Permanent Detailed Error/Message File Unit  (Init.  to 11)
C**   IDPUNT = Main SAVEFILE Unit for Re-start Option (Init. to 12)
C**   IDPUN2 = Secondary SAVEFILE Unit for Re-start Option (Init.  to 14)
C**   IRSUNT = INITFILE Unit for Re-start Option (Initialized to 15)
C**   IEVUNT = Event File Unit for Use With ISCEV2 Model (Init. to 17)
C**   ITEVUT = Temporary Event File Used to Store High Value Events for
C**            Summary Tables and for EVENTFIL Option (Initialized to 18)
     ********************************************************************
C     This is The Global Variable Definition Block for Runstream Data
£************************************************************************

      LOGICAL BLINE, INFLD, MARK, ECHO

      CHARACTER PATH*2, PPATH*2, KEYURD*8, PKEYWD*8, KEYUD*8, KTYPE*5,
     &          FIELD*40, RUNST*1, RUNST1*80, INPFIL*40, OUTFIL*40

      COMMON /FIELDS/ LOCB(IFMAX), LOCE(IFMAX), IFC, IDC1, IPNUM, IPPNUM
      COMMON /FLDCHR/ FIELD(IFMAX)
      COMMON /LOGIN1/ BLINE, INFLD, MARK, ECHO
      COMMON /SETCHR/ PATH, KEYWRD, PPATH, PKEYWD, KTYPE, KEYWD(IKN)
      COMMON /RUNSTR/ RUNST(ISTRG), RUNST1
      COMMON /FILCHR/ INPFIL, OUTFIL

£************************************************************************
C     This is The Global Variable Definition Block for Error Handling
£************************************************************************

      LOGICAL FATAL, ISTART, IFINIS, RECERR, ERRLST, EOF

      CHARACTER ERRMSG*50, ERRCOD*3, MSGFIL*40, VERSN*5

      COMMON /ERRLOG/ FATAL, ISTART, IFINIS, RECERR, ERRLST, EOF
      COMMON /ERRCHR/ ERRMSG(IERRN), ERRCOD(IERRN), MSGFIL, VERSN
      COMMON /ERRQA1/ ILINE, IERROR, IFTL, IURN, INFO,
     &                ICLM, NFATAL, I PAGE
      COMMON /ERRQA2/ EXPLIM
      COMMON /INSTAT/ ICSTAT(20), ISSTAT(20), IRSTAT(20),  IMSTAT(20),
     &                IOSTAT(20)
      COMMON /REERRV INCSET, IXYSET, IEVSET, IFGSET



C     This is The Global Variable Definition Block for control Pathway
£************************************************************************

      LOGICAL DFAULT, CONC, DEPOS, RURAL, URBAN, GRDRIS, NOSTD, NOBID,
     &        NOCALM, CLMPRO, MSGPRO. PERIOD, MONTH, FLAT, ELEV, FLGPOL,
     &        RUN, EVENTS, RSTSAV, RSTINP, DAYTAB, MXFILE, PPFILE,
     &        PLFILE, ANPOST, ANPLOT, STATOK, DEBUG, FSTREC, MULTYR

      CHARACTER ELTYPE*6, TITLE1*68, TITLE2*68, SAVFIL*40, SAVFL2*40,
     &          INIFIL*40, EVFILE*40, EVPARM*6, CHRAVE*5, CHIDEP*4,
     &          MODOPS*6

      COMMON /CNTINT/ KAVE(NAVE), NHIVAL, NMXVAL, NDUMP
      COMMON /CNTLOG/ DFAULT, CONC, DEPOS, RURAL, URBAN, GRDRIS, NOSTD,
     &                NOBID, NOCALM, CLMPRO, MSGPRO, PERIOD, MONTH,
     &                FLAT, ELEV, FLGPOL, RUN, EVENTS, RSTSAV, RSTINP,
     &                DAYTAB, MXFILE, PPFILE, PLFILE, ANPOST, ANPLOT,
     &                STATOK, DEBUG, FSTREC, MULTYR
      COMMON /CNTCHR/ SAVFIL, SAVFL2, INIFIL, EVFILE, TITLE1, TITLE2,
     &                ELTYPE, EVPARM, CHRAVE(NAVE), CHIDEP(6),
     &                MODOPS(H)

£************************************************************************
C     This is The Global Variable Definition Block for source Pathway
£************************************************************************
                                                  C-2

-------
      CHARACTER SRCID*8, SRCTYP*6, SOPCRD*1, GRPIO*8, EMILBL*40,
     &          OUTLBL*40, POLLUT*8, PSOIO*8, QFLAG*6

      COMMON /SOURC1/ AXS(NSRC), AYS(NSRC), AZS(NSRC), AQS(NSRC),
     &                AHS(NSRC), ATS(NSRC). AVS(NSRC),  ADS(NSRC),
     &                ASYINI(NSRC), ASZINI(NSRC), AXINIT(NSRC)
      COMMON /SOURC2/ ADSBH(NSEC.NSRC), ADSBW(NSEC.NSRC),
     &                IDSUAK
-------
     &                NUMREC,  NUMSRC,  NUMGRP,  MUHAVE,
     &                NUMYR, ICYEAR
      COMMON /CALCS1/ XS,  YS,  ZS, QS,  HS,  OS,  VS,  TS,  SYINIT,
     &                SZINIT,  XINIT,  DSBH, DSBW,
     &                IFVSEC,  D, V, VD,  E, UDRAD,  UDSIN,  WOCOS
      COMMON /CALCS2/ CALCS, WAKE, UAKESS, UAKLOU, BUOYNT,  TALL,
     &                SQUAT, SSOUAT
      COMMON /CALCS3/ NVS, VSN(NVSMAX),  PHKNVSMAX),  GAMMA(NVSMAX)
      COMMON /CALCS4/ XR,  YR,  X, Y, ZELEV, ZFLAG,  DISTR
      COMMON /CALCS5/ HE,  HSP, HEFLAT, HTER,  HEMUAK,  ZB,  ZM,  IUCAT,
     &                XY,  XZ,  FM. FB,  DTDZ, DHF,  DHP,  DELT,
     &                DHPB, DHPM, XF,  XFM, XFB, XRAD
      COMMON /CALCS6/ US,  SY,  SZ, DA,  ZLY, ZLB, X3LB,  RINIT,
     &                CB,  CM,  QTK, P

£********»************************************»*************************»
C     This is The Global Variable Definition Block for output  Pathway
Q************************************************************************

      CHARACTER THRFIL*20, PSTFIL*20,  PLTFIL*20,  ANNPST*20, ANNPLT*20,
     &          THRFRM*60, PSTFRM*60,  PLTFRM*60

      COMMON /OUTPT1/ NHIAVE(NVAL.NAVE), MAXAVE(NAVE), IMXVAL(NAVE),
     &                IDYTAB(NAVE), MAXFLE(NGRP,NAVE),THRESH(NGRP,NAVE),
     &                IPSTFL(NGRP,NAVE), IPLTFL(NVAL,NGRP,NAVE),
     &                lANPST(NGRP), lANPLT(NGRP),  INHI(NAVE)
      COMMON /OUTPT2/ IMXUNT(NGRP,NAVE), IPSUNT(NGRP,NAVE),
     &                IPSFRM(NGRP,NAVE), IPLUNT(NVAL,NGRP,NAVE),
     &                lAPUNT(NGRP), lANFRM(NGRP),  IPPUNT(NGRP)
      COMMON /OUTCHR/ THRFIL(NGRP.NAVE), PSTFIL(NGRP.NAVE),
     &                PLTFIL(NVAL,NGRP,NAVE),  ANNPST(NGRP),
     &                ANNPLT(NGRP), THRFRM, PSTFRM, PLTFRM

CM**********************************************************************
C     This is The Global Variable Definition Block for Working Space
Q************************************************************************

      CHARACTER UORKID*8,  OUMMY*8

      COMMON /URKCHR/ UORKID(NSRC), DUMMY
      COMMON /SRCURK/ IURK2(NSRC,7)

      SAVE
£*******************************************************»****************
C     MAIN2.INC
C     ISCST2 Model Data - Array Names, Array Limits, Named Common Blocks
C
C     This Include File Declares the MOONAM Character Variable,
C     To Be INCLUDEd In All But the BLOCK DATA and ERRHDL Subprograms.
C     MOONAM Is NOT In COMMON.
C************************************************************************

      CHARACTER MODNAM*6
Q************************************************************************
C     MAIN3.INC
C     ISCST2 Model Data - Array Names, Array Limits, Named Common Blocks
C                         Necessary for Model Results
PA***********************************************************************

£*******************************»*********»*******»*****»******«********«
C     This is The Global Variable Definition Block For The Maximum
C     Value, Highest Value, Average Value, Annual Average Value and
C     Model Result Arrays.  Also Included are Calm/Missing Flag Arrays.
C************************************************************************

      CHARACTER HCLMSG, MCLMSG

      COMMON /RESULT/ HRVAL, AVEVAL(NREC,NGRP,NAVE)
      COMMON /HIGRES/ HIVALU(NREC,NVAL,NGRP,NAVE),
     &                NHIDAT(NREC,NVAL,NGRP,NAVE)


                                                  C-4

-------
      COMMON /ANDRES/ ANNVALCNREC.NGRP),  AMXVAL(NVAL,NGRP),
     &                IMXLOCCNVAL.NGRP),  IANHRS,  IANCLM,  IANMSG
      COMMON /MAXRES/ RMXVALCNMAX.NGRP,NAVE),  MXDATE.
     &                MXLOCACNMAX,NGRP,NAVE)
      COMMON /NUMRES/ NUMHRS(NAVE), NUMCLM(NAVE), NUMMSG(NAVE)
      COMMON /CLMFLG/ HCLMSG(NREC,NVAL,NGRP,NAVE),
     &                MCLMSG(NMAX,NGRP,NAVE)

C     Declare Temporary Work Arrays for ZELEV and ZFLAG Receptor Data
      DIMENSION ZETMPKNREC), ZETMP2CNREC)
      DIMENSION ZFTHPKNREC), ZFTMP2CNREC)

C     EQUIVALENCE Temporary Work Arrays to Results Data Arrays to Save
C     On Storage Requirements.  Amount Saved - NREC*16 Bytes.
C     Results Arrays Are Reinitialized In SUB. RESINI.
      EQUIVALENCE  (ZETMP1, AVEVAL)
      EQUIVALENCE  (ZETMP2, HIVALU)
      EQUIVALENCE  (ZFTMP1, NHIDAT)
      EQUIVALENCE  (ZFTMP2, ANNVAL)
                                                  C-5

-------
C.2  ISCLT2  MODEL

Q************************************************************************
C     MAIN1LT.IHC
C     ISCLT2 Model Data -  Array Names, Array Limits, Named Common Blocks
C                         Global Data for All Nodules - Long Term Model
£************************************************************************


£************************************************************************
C     User Specified Model Parameters for Array Dimensions
g************************************************************************

      PARAMETER (NSRC- 100,  NREC* 500, NGRP= 3, NAVE= 17, NMAX-10,
     &           NQF= 36,  NVSMAX= 20, IXM=50, IYM-50, NNET=5,
     &           NUS= 6, NSEC=16, NKST=  6, NSEAS- 4)
C**   NSRC   = Max Number of Sources
C**   NREC   = Max Number of Receptors
C**   NGRP   = Max Number of Source Groups
C**   NAVE   = Max Number of Averaging Periods (STARs)
C**            Set = 17 (for 12 Months + 4 Seasons  (or Quarters) + 1 Annual)
C**   NMAX   - Max Number of Overall Maximum Values (MAXTABLE Keyword)
C**   NSEC   = Number of Sectors for Building Dimensions
C**   NQF    = Number of Variable Emission Rate Factors Per Source
C**   NVSMAX = Max Number of Settling Velocity Categories Per Source
C**   IXM    = Max Number of X-coord (Distance) Values Per Receptor Network
C**   IYM    - Max Number of Y-coord (Direction) Values Per Receptor Network
C**   NNET   = Max Number of Cartesian and/or Polar Receptor Networks
PA***********************************************************************
C     Model Constants Specified as Parameters
£*****************************************************»*********»********

      PARAMETER (PI = 3.141593, TWOPI =  6.283185, RTOFPI = 1.772454,
     &           SRT2P! = 2.506628, BETA = 0.6,  G  = 9.80616,
     &           DTORAD = 0.017453293,   RTODEG = 57.29578)
c**
c**
c**
c**
c**
c**
c**
c**
PI
TWOPI
RTOFPI
SRT2PI
BETA
G
DTORAD
RTODEG
5
a
a
s
a
a
**i
PI
2.*PI
SQRT(PI)
SQRT(2.*PI)
Entrainment Coefficient for BLP Rise
Acceleration Due to Gravity (m/s**2)
Degrees to Radians Conversion Factor
Radians to Degrees Conversion Factor
C     Programmer Specified Model Parameters
Q************************************************************************

      PARAMETER (IFMAX=40, IPN=6, IKN=45,  ISTRG=80,  IERRN=102)

C**   IFMAX  = Max Number of Fields Per Runstream Record
C**   IPN    = Number of Pathway IDs (Includes '**')
C**   IKN    = Number of Keywords
C**   ISTRG  = Length of Runstream Image Record
C**   IERRN  = Number of Error/Warning/Informational Messages

CM**********************************************************************
C     Common Block for Input/Output File Units (Initialized in  BLOCK DATA)
£************************************************************************

      COMMON /FUNITS/ INUNIT, IOUNIT, MFUNIT,  IERUNT.  IERWRT

C**   INUNIT « Input Runstream File Unit (Initialized to 5)
C**   IOUN1T = Main Printed Output File Unit (Initialized to 6)
C**   MFUNIT = Input Meteorological Data File Unit (Initialized to  19)
C**   IERUNT = Temporary Error/Message File Unit (Initialized to 10)
C**   IERWRT - Permanent Detailed Error/Message File Unit (Init.  to 11)

C************************************************************************
C     This is The Global Variable Definition Block for Runstream Data  .
Q************************************************************************


                                                  C-6

-------
      LOGICAL BLINE, INFLD, MARK, ECHO, SORT

      CHARACTER PATH*2, PPATH*2, KEYURD*8, PKEYUD*8, KEYWD*8,  KTYPE*5.
     &          FIELD*40, RUNST*1. RUNST1*80, INPFIL*40, OUTFIL*40

      COMMON /FIELDS/ LOCB(IFMAX), LOCE(IFMAX),  IFC, 1DC1, IPNUM.  IPPNUM
      COMMON /FLDCHR/ FIELD(IFMAX)
      COMMON /LOGIN1/ BLINE, INFLD, MARK, ECHO,  SORT
      COMMON /SETCHR/ PATH, KEYWRD, PPATH, PKEYUD, KTYPE, KEYWD(IKN)
      COMMON /RUNSTR/ RUNST(ISTRG), RUNST1
      COMMON /FILCHR/ INPFIL, OUTFIL

Q************************************************************************
 C     This is The Global Variable Definition Block for Error Handling
Q************************************************************************

      LOGICAL FATAL, ISTART, IFINIS, RECERR, ERRLST, EOF

      CHARACTER ERRMSG*50, ERRCCO*3, MSGFIL*40,  VERSN*5

      COMMON /ERRLOG/ FATAL, ISTART, IFINIS, RECERR, ERRLST, EOF
      COMMON /ERRCHR/ ERRMSG(IERRN), ERRCCO(IERRN), MSGFIL, VERSN
      COMMON /ERRQA1/ ILINE, IERROR, IFTL, IURN, INFO,
     &                ICLM, NFATAL, IPAGE
      COMMON /ERRQA2/ EXPLIM
      COMMON /INSTAT/ ICSTATC20), ISSTAT(20), IRSTATC20), IMSTAT(20),
     &                IOSTAK20)
      COMMON /REERR1/ INCSET, IXYSET, IEVSET, IFGSET

c***«********************************************************************
C     This is The Global Variable Definition Block for control Pathway
£************************************************************************

      LOGICAL DFAULT, CONC, DEPOS, RURAL, URBAN, GRDRIS, NOSTD, NOBID,
     &        PERIOD, MONTH, SEASON, ANNUAL, QUARTR, FLAT, ELEV, FLGPOL,
     &        RUN, PLFILE. ANPLOT, STATOK, DEBUG, FSTREC,
     &        MONOAT, SEADAT, ANNDAT, QUADAT

      CHARACTER ELTYPE*6, TITLE1*68, TITLE2*68,  AVEPER*6, CHIDEP*4,
     &          MOOOPS*6

      COMMON /CNTINT/ KAVE(NAVE), KSTARCNAVE), NHIVAL, NMXVAL, NDUMP
      COMMON /CNTLOG/ DFAULT, CONC, DEPOS, RURAL, URBAN, GRDRIS, NOSTD,
     &                NOBID, PERIOD, MONTH, SEASON, ANNUAL, QUARTR,
     &                FLAT, ELEV, FLGPOL, RUN, PLFILE, ANPLOT, STATOK,
     &                DEBUG, FSTREC, MONOAT, SEADAT, ANNDAT, QUADAT
      COMMON /CNTCHR/ ELTYPE, TITLE1, TITLE2, AVEPER(NAVE), CHIDEP(6),
     &                MODOPS(H)

C************************************************************************
C     This is The Global Variable Definition Block for source  Pathway
£********************«***************************************************

      CHARACTER SRCID*8, SRCTYP*6, SOPCRD*1, GRPID*8, EMILBL*40,
     &          OUTLBL*40, POLLUT*8, PSOID*8, QFLAG*6

      COMMON /SOURCV AXS(NSRC), AYS(NSRC), AZS(NSRC), AQS(NSRC),
     &                AHS(NSRC), ATS(NSRC), AVS(NSRC), ADS(NSRC),
     &                ASYINI(NSRC), ASZINI(NSRC), AXINIT(NSRC)
      COMMON /SOURC2/ ADSBH(NSEC,NSRC), ADSBW(NSEC.NSRC),
     &                IDSWAK(NSEC,NSRC>
      COMMON /SOURC3/ QFACT(NQF,NSRC)
      COMMON /SOURC4/ EMIFAC, HAFLIF, DECOEF, INVS(NSRC),
     &                AVSN(NVSMAX,NSRC), APHKNVSMAX.NSRC),
     &                AGAMMA(NVSMAX,NSRC)
      COMMON /SORGRP/ IGROUP(NSRC.NGRP)
      COMMON /SORCHR/ SRCID(NSRC), SRCTYP(NSRC), SOPCRD(NSRC),
     &                GRPID(NGRP), QFLAG(NSRC),  EMILBL, OUTLBL, POLLUT,
     &                PSOID

^************************************************************************
C     This is The Global Variable Definition Block for REceptor Pathway
Q************************************************************************
                                                  C-7

-------
      LOGICAL 1STA, I END, NEUID

      CHARACTER NETIO*8, NETIDT*8, PNETID*8, NTID*8, NTTYP*8,
     &          RECTYP*2, PXSOID*8, PESOID*8

      COMMON /RECEPT/ AXR(NREC), AYR(NREC), AZELEV(NREC),
     &                AZFLAG(NREC), IREF(NREC)
      COMMON /RECLOG/ 1STA, IEND, NEUID
      COMMON /RECCHR/ NETID(NREC), RECTYP(NREC), NTIO(NNET),
     &                NTTYP(NNET), PXSOID, PESOID, NETIDT, PNETID
      COMMON /COORDV ICOUNT, JCOUNT,  IZE, IZF, IRZE, IRZF, IRXR, IRYR,
     &                IBND, IBELEV, INNET, XINT, YINT
      COMMON /COORD2/ XCOORD(IXM,NNET), YCOORDCIYM.NNET),
     &                NETSTA(NNET), NETEND(NNET),
     &                NUMXPT(NNET), NUMYPT(NNET),
     &                XORIG(NNET), YORIG(NNET)
      COMMON /COORD3/ ZETMPI(NREC), ZFTMPI(NREC),
     &                ZETMP2CNREC), ZFTMP2CNREC)

Q**************************-********************************************** •
 C     This is The Global Variable Definition Block for Meteorology Pathway
Q************************************************************************

      CHARACTER METFRM*60, METINP*40,  SFNAME*40, UANAME*40

      COMMON /METER1/ ISOATE, IEDATE,  ISYEAR, IUYEAR, IDSURF, IDUAIR,
     &                ZREF, ROTANG, ISJDAY, IEJDAY
      COMMON /HETER2/ AVESP(NUS), PUSER(NKST,NWS), DTUSER(NKST,NUS),
     &                PURB(NKST), PRUR(NKST), DTURB(NKST). DTRUR(NKST),
     &                AVETA(NAVE.NKST). AVEZI(NAVE,NKST,NUS>,
     &                NUMHRS(NAVE)
      COMMON /METER3/ lAVETA(NAVE), lAVEZI(NAVE)
      COMMON /METCHR/ METFRM, METINP,  SFNAME, UANAME

Q************************************************************************
C     This is The Global Variable Definition Block for METEXT
C************************************************************************

      LOGICAL UNSTAB, NEUTRL, STABLE,
     &        NEWMET, RUNERR, USERP, USERDT

      COMMON /METLOG/ UNSTAB, NEUTRL,  STABLE,
     &                NEWMET, RUNERR,  USERP, USERDT
      COMMON /METVAR/ AFV, UREF, TA, KST, ZI, S, RTOFS
      COMMON /METFRQ/ FREQ(NUS,NSEC,NKST), FTOTAL

£************************»********»**************************************
C     This is The Global Variable Definition Block for Calculation
C************************************************************************

      LOGICAL CALCS, WAKE, UAKESS, UAKLOU, BUOYNT, TALL, SQUAT, SSQUAT

      COMMON /INDEXS/ IREC,   ISRC,   IGRP,   IAVE,   ISET,
     &                NUMREC, NUMSRC,  NUMGRP, NUMAVE, IWS,  ISEC,
     &                I SEA, IQUA, NUMMAX, IKST, NUMSTR
      COMMON /CALCS1/ XS, YS, ZS, OS,  HS, OS, VS, TS, SYINIT,
     &                SZINIT, XINIT, DSBH, DSBW, DELTHP,
     &                IFVSEC, D, V, VD, E, WDRAD, WDSIN, UDCOS
      COMMON /CALCS2/ CALCS, WAKE, UAKESS, UAKLOU, BUOYNT, TALL,
     &                SQUAT, SSQUAT
      COMMON /CALCS3/ NVS, VSN(NVSMAX), PHI(NVSMAX), GAMMA(NVSMAX)
      COMMON /CALCS4/ XR, YR, X, Y, ZELEV, ZFLAG, DISTR
      COMMON /CALCS5/ HE, HSP, HEFLAT, HTER, HEMUAK, ZB, ZM, IUCAT,
     &                XY, XZ, FM, FB,  DTDZ, DHF, DHP, DELT,
     &                DHPB, DHPM, XF,  XFM, XFB, XRAD
      COMMON /CALCS6/ US, SY, SZ, DA,  ZLY, ZLB, X3LB, RINIT,
     &                CB, CM, QTK, P,  RPV, SM

c*************************»**********************************************
C     This is The Global Variable Definition Block for output Pathway
Q************************************************************************

      CHARACTER PLTFIL*40, ANNPLT*40,  PLTFRM*60


                                                  C-8

-------
      LOGICAL RSCGRP, RINDSC, MSCGRP, MINDSC, SOCONT
      COMMON /OUTPT1/ RSCGRP, RINDSC, MSCGRP, MINDSC, SOCONT
      COMMON /OUTPT2/ IPLTFL(NGRP,NAVE), IPLUNT(NGRP.NAVE),
     &                lANPLT(NGRP). IPPUNT(NGRP)
      COMMON /OUTCHR/ PLTFIL(NGRP.NAVE), ANNPLT(NGRP), PLTFRM

Q************************************************************************
C     This is The Global Variable Definition Block for Working Space
C************************************************************************

      CHARACTER UORKID*8, DUMMY'S
      COMMON /WRKCHR/ WORKID(NSRC), DUMMY
      COMMON /SRCURK/ IWRK2(NSRC,7)
      SAVE
C************************************************************************
C     MAIN2LT.INC
C     ISCLT2 Model Data - Array Names, Array Limits, Named Common Blocks
C
C     This Include File Declares the MODNAM Character Variable,
C     To Be INCLUDEd In All But the BLOCK DATA and ERRHDL Subprograms.
C     MODNAM Is NOT In COMMON.
C************************************************************************

      CHARACTER HODNAM*6
C************************************************************************
C     MAIN3LT.INC
C     ISCLT2 Model Data - Array Names, Array Limits, Named Common Blocks
C                         Necessary for Model Results
£************************************************************************


C************************************************************************
C     This is The Global Variable Definition Block For The Model
C     Result Arrays, Maximum By Source Value, Maximum By Group Value,
C     and Source Contribution.
c***********************************************»************************

      COMMON /RESULT/ SRCVAL(NREC,NSRC), GRPVAL(NREC.NGRP)
      COMMON /SCORES/ SRCONT(NMAX,NSRC,NGRP)
      COMMON /SMXRES/ SRCMAX(NMAX.NSRC), ISMLOC(NMAX,NSRC)
      COMMON /GMXRES/ GRPMAX(NMAX,NGRP), IGMLOC(NMAX.NGRP)
                                                  09

-------
C.3  I8CEV2  MODEL

Q************************************************************************
C     EVMAIN1.INC
C     ISCEV2 Model Data - Array Names,  Array Limits,  Named Common Blocks
C                         Global Data for All  Modules for the EVENT Model
C************************************************************************


Q***********»*******************************************»********«*******
C     User Specified Model Parameters for Array Dimensions
Q************************************************************************

      PARAMETER (NSRC= 100,  NEVE- 2500, NGRP= 25.  NAVE= 4,
     &           NSEC-36, NQF= 96, NVSMAX= 20,  NWSCAT= 6,
     &           NKST= 6, MHR= 24)

C**   NSRC   = Max Number of Sources
C**   NEVE   = Max Number of Events
C**   NGRP   = Max Number of Source Groups
C**   NAVE   = Max Number of Short Term Averaging  Periods
C**   NSEC   = Number of Sectors for Building Dimensions
C**   NQF    = Number of Variable Emission Rate Factors Per  Source
C**   NVSMAX = Max Number of Settling Velocity Categories Per Source
C**   NHR    = Number of Hours in Main Met Data Loop
Q**************************************************»*********************
C     Model Constants Specified as Parameters
Q****»*******************************************************************

      PARAMETER (PI = 3.141593, TUOPI = 6.283185,  RTOFPI = 1.772454,
     &           SRT2PI = 2.506628, BETA = 0.6, G =  9.80616,
     &           DTORAD = 0.017453293,   RTOOEG = 57.29578)

C**   PI     = PI
C**   TWOPI  = 2.*PI
C**   RTOFPI = SQRT(PI)
C**   SRT2PI = SQRT(2.*PI)
C**   BETA   = Entrainment Coefficient for BLP Rise
C**   G      = Acceleration Due to Gravity (m/s**2)
C**   DTORAD = Degrees to Radians Conversion Factor
C**   RTODEG = Radians to Degrees Conversion Factor

C************************************************************************
C     Programmer Specified Model Parameters
Q****************************************«*******************************

      PARAMETER (IFMAX=40, IPN=6, IKN=35, ISTRG=80, IERRN-102)

C**   IFMAX  = Max Number of Fields Per Runstream  Record
C**   IPN    = Number of Pathway IDs
C**   IKN    = Number of Keywords
C**   ISTRG  3 Length of Runstream Image Record
C**   IERRN  - Number of Error/Warning/InformationaI/QA Messages

c************************************************************************
C     Common Block for Input/Output File Units (Initialized  in  BLOCK  DATA)
Q************************************************************************

      COMMON /FUNITS/ INUNIT, IOUNIT, MFUNIT, IERUNT, IERWRT

C**   INUNIT = Input Runstream File Unit (Initialized to 5)
C**   IOUNIT = Main Printed Output File Unit (Initialized  to 6)
C**   MFUNIT = Input Meteorological Data File Unit (Initialized to  19)
C**   IERUNT * Temporary Error/Message File Unit (Initialized to  10)
C**   IERWRT = Permanent Detailed Error/Message File Unit
C**            (Initialized to 11)

Q************************************************************************
C     This  is The Global Variable Definition Block for Runstream  Data
£***********************************************************»************

      LOGICAL BLINE, INFLD, MARK, ECHO

      CHARACTER PATH*2, PPATH*2, KEYWRD*8, PKEYWD*8,  KEYWD*8, KTYPE*5,


                                                 C-10

-------
     &          FIELD*40, RUNST*1, RUNST1*80, INPFIL*40, OUTFIL*40

      COMMON /FIELDS/ LOCB(IFMAX), LOCE(IFMAX),  IFC, IDC1,  IPNUM. IPPNUM
      COMMON /FLDCHR/ FIELD(IFMAX)
      COMMON /LOGIN1/ BLINE, INFLD, MARK, ECHO
      COMMON /SETCHR/ PATH, KEYWRD, PPATH, PKEYWD, KTYPE, KEYWD(IKN)
      COMMON /RUNSTR/ RUNST(ISTRG), RUNST1
      COMMON /FILCHR/ INPFIL, OUTFIL

I;************************************************************************
C     This is The Global Variable Definition Block for Error Handling
Pi***********************************************************************

      LOGICAL FATAL, ISTART, IFINIS, ERRLST, EOF
      CHARACTER ERRMSG*50, ERRCOO*3, MSGFIL*40,  VERSN*5

      COMMON /ERRLOG/ FATAL, ISTART, IFINIS, ERRLST, EOF
      COMMON /ERRCHR/ ERRMSG(IERRN), ERRCOD(IERRN), MSGFIL, VERSN
      COMMON /ERRQA1/ ILINE, IERROR, IFTL, IURN, INFO,
     &                ICLM, NFATAL, I PAGE
      COMMON /ERRQA2/ EXPLIM
      COMMON /INSTAT/ ICSTATC20), ISSTAT(ZO), IESTAT(20), IMSTAT(ZO),
     &                IOSTAT(20)
      COMMON /REERR1/ INCSET, IXYSET, IEVSET, IFGSET

C************************************************************************
C     This is The Global Variable Definition Block for control Pathway
Q*»**********************************************************************

      LOGICAL DFAULT, CONC, DEPOS, RURAL, URBAN, GRDRIS, NOSTD, NOBID,
     &        NOCALM, CLMPRO, MSGPRO, PERIOD, MONTH, FLAT,  ELEV, FLGPOL,
     &        RUN, EVENTS, RSTSAV, RSTINP, DAYTAB, MXFILE,  PPFILE,
     &        PLFILE, ANPOST, ANPLOT, STATOK, DEBUG, FSTREC, MULTYR

      CHARACTER ELTYPE*6, TITLE1*68, TITLE2*68,  RSTFIL*40,  RSTFL2*40,
     &          INIFIL*40, EVFILE*40, EVPARM*6,  CHRAVE*5, CHIDEP*4,
     &          MOOOPS*6

      COMMON /CNTINT/ KAVE(NAVE), NHIVAL, NMXVAL, NDUMP
      COMMON /CNTLOG/ DFAULT, CONC, DEPOS, RURAL, URBAN, GRDRIS, NOSTD,
     &                NOBID, NOCALM, CLMPRO, MSGPRO, PERIOD, MONTH,
     &                FLAT, ELEV, FLGPOL, RUN, EVENTS, RSTSAV, RSTINP,
     &                DAYTAB, MXFILE, PPFILE, PLFILE, ANPOST, ANPLOT,
     &                STATOK, DEBUG, FSTREC, MULTYR
      COMMON /CNTCHR/ RSTFIL, RSTFL2, INIFIL, EVFILE, TITLE1, TITLE2,
     &                ELTYPE, EVPARM, CHRAVE(NAVE), CHIDEP(6),
     &                MOOOPS(H)

C************************************************************************
C     This is The Global Variable Definition Block for SOurce Pathway
C************************************************************************

      CHARACTER SRCID*8, SRCTYP*6, SOPCRD*1, GRPID*8, EMILBL*40,
     &          OUTLBL*40, POLLUT*8, PSOID*8, QFLAG*6

      COMMON /SOURC1/ AXS(NSRC), AYS(NSRC), AZS(NSRC), AQS(NSRC),
     &                AHS(NSRC), ATS(NSRC), AVS(NSRC), ADS(NSRC),
     &                ASYINI(NSRC), ASZINI(NSRC), AXINIT(NSRC)
      COMMON /SOURC2/ ADSBH(NSEC,NSRC),  ADSBW(NSEC,NSRC),
     &                IDSWAK(NSEC,NSRC)
      COMMON /SOURC3/ QFACT(NQF,NSRC)
      COMMON /SOURC4/ EMIFAC, HAFLIF, DECOEF, INVS(NSRC),
     &                AVSN(NVSMAX,NSRC), APHI(NVSMAX,NSRC),
     &                AGAMMA(NVSMAX,NSRC)
      COMMON /SORGRP/ IGROUP(NSRC.NGRP)
      COMMON /SORCHR/ SRCID(NSRC), SRCTYP(NSRC), SOPCRD(NSRC),
     &                GRPID(NGRP), QFLAG(NSRC),  EMILBL, OUTIBL, POLLUT,
     &                PSOID

Q************************************************************************
C     This is The Global Variable Definition Block for MEteorology Pathway
C************************************************************************
                                                 C-ll

-------
      CHARACTER METFRM*60, METINP*40, SFNAME*40, UANAHE*40

      COMMON /METEOR/ ISOATE, I EDATE, ISYR, ISMN, ISDY, 1SHR,  IEYR,
     &                IEMN, IEDY, IEHR, IPROC(366),  PUSERCNKST,MUSCAT),
     &                DTUSERCNKST,MUSCAT), 1SYEAR, IUYEAR, IDSURF,
     &                IDUAIR, ZREF, ROTANG, ISJDAY,  IEJDAY, PURB(NKST),
     &                PRUR(NKST), DTURB(NKST), DTRUR(NKST), NOAYS,
     &                UCAT(S), INCRST, UMIN
      COMMON /METCHR/ METFRM, METINP, SFNAME, UANAME

Q************************************************************************
C     This is The Global Variable Definition Block for EVent Pathway
£***********************************************************»************

      CHARACTER EVNAME*8, EVGRP*8
      INTEGER   EVAPER(NEVE), EVOATE(NEVE), EVJDAY(NEVE)

      COMMON /EVENTI/ EVAPER, EVDATE, EVJDAY, IDXEV(NEVE),
     &                AXR(NEVE), AYR(NEVE), AZELEV(NEVE), AZFLAG(NEVE)
      COMMON /EVCHAR/ EVNAME(NEVE), EVGRP(NEVE)

Q************************************************************************
C     This is The Global Variable Definition Block for output Pathway
£******************»******»**********************************************

      LOGICAL SOCONT, DETAIL

      COMMON /OUTLOG/ SOCONT, DETAIL

Q*************************************»**********************************
C     This is The Global Variable Definition Block for METEXT
C************************************************************************

      LOGICAL CLMHR, MSGHR, UNSTAB, NEUTRL, STABLE,
     &        NEUMET, RUNERR, NEUDAY, USERP, USERDT

      INTEGER IKST(NHR)
      REAL AUREF(NHR), ATA(NHR), AAFV(NHR), AAFVR(NHR), AZI(2,NHR)
      REAL APROF(NHR), ADTDZ(NHR)

      COMMON /UNFMET/ IKST, AUREF, ATA, AAFV, AAFVR, AZI,
     &                APROF, ADTDZ
      COMMON /METLOG/ CLMHR, MSGHR, UNSTAB, NEUTRL,
     &                STABLE, NEUMET, RUNERR, NEUDAY, USERP, USERDT
      COMMON /METMSG/ KSTMSG
      COMMON /METDAY/ I HOUR, IYEAR,  IMONTH, IDAY, KURDAT, JDAY,
     &                IPHOUR,  IPDATE
      COMMON /METVAR/ AFV, UREF, TA, KST, ZI, AFVLST, AFV24,
     &                S, RTOFS
(•*******************»**»*»***«*********************»»********************
C     This  is The Global Variable Definition Block for Calculation
Q************************************************************************

      LOGICAL CALCS, WAKE, UAKESS, UAKLOU, BUOYNT, TALL, SQUAT, SSQUAT

      COMMON /INDEXS/  I EVENT,    I SRC,    IGRP,    IAVE,   I SET,
     &                 NUMEVE, NUMSRC, NUMGRP, NUMAVE
      COMMON /CALCS1/  XS, YS, ZS, OS, HS, DS, VS, TS, SYINIT,
     &                 SZINIT, XINIT, DSBH, DSBU,
     &                 IFVSEC. D, V, VD,  E, UDRAD, UDSIN, UDCOS
      COMMON /CALCS2/  CALCS, WAKE, UAKESS, UAKLOU, BUOYNT, TALL,
     &                 SQUAT, SSQUAT
      COMMON /CALCS3/  NVS, VSN(NVSMAX),  PHI(NVSMAX), GAMMA(NVSMAX)
      COMMON /CALCS4/  XR, YR, X, Y, ZELEV, ZFLAG, DISTR
      COMMON /CALCS5/  HE, HSP,  HEFLAT, HTER, HEMUAK, ZB, ZM,  IUCAT,
     &                 XY, XZ, FM, FB, DTDZ, DHF, DHP, DELT,
     &                 DHPB, DHPM, XF, XFM, XFB,  XRAD
      COMMON /CALCS6/  US, SY, SZ, DA, ZLY, ZLB,  X3LB, RINIT,
     &                 CB, CM, QTK, P

(-*********************************************»**************************
C     This  is The Global Variable Definition Block for Working Space
                                                  C-12

-------
Q************************************************************************

      CHARACTER WORKI0*8, DUMMY*8

      COMMON /URKCHR/ UORKID(NSRC),  DUMMY
      COMMON /SRCURK/ IURK2(NSRC,7)


      SAVE
Q************************************************************************
C     EVMAIN2.INC
C     ISCEV2 Model Data - Array Names,  Array Limits,  Named Common Blocks
C
C     This Include File Declares the MODNAM Character Variable,
C     To Be INCLUDEd In All But the BLOCK DATA and ERRHDL  Subprograms.
C     MODNAM Is NOT In COMMON.
Q************************************************************************

      CHARACTER MODNAM*6
C************************************************************************
C     EVMAIN3.INC
C     ISCEV2 Model Data - Array Names,  Array Limits,  Named  Common Blocks
C                         Necessary for Model Results
C************************************************************************

c*****»***«************»*******»******»»»****«**«************************
C     This is The Global Variable Definition Block For  The
C     Model Result Arrays
Q************************************************************************

      COMMON /RESULT/ HRVAL,  AVEVAL(NSRC),  HRVALS(NHR.NSRC)
      COMMON /GRPRES/ GRPAVE, GRPVAL(NHR)
      COMMON /NUMRES/ NUMHRS, NUMCLM,  NUMMSG, ISTAHR,  IENDHR
                                                 C-13

-------

-------
                            APPENDIX  D.  DATA DICTIONARY
Source Input Parameters - Stack (Point) Releases
Variable Name
SRC ID
SRCTYP
HS
DS
VS
TS
QS
QFLAG
QFACT
xs
YS
ZS
DSBH(J).J=1.NSEC
DSBW(J),J=1,NSEC
IDSUAK(I,J),
1=1, MSEC, J=1,NSRC
VSN(J),J=1,NVSMAX
PHI(J),J=1,NVSMAX
GAMMA(J),J=1,NVSMAX
GRPID
Symbol


hs
ds
vs
Ts
Qs


xs
*s
zs
hb(i)
W(i)

vs(j)
*
-------
Source Input Parameters - Volume Releases
Variable Name
SRC ID
SRCTYP
HS
SYINIT
SZINIT
QS
QFLAG
QFACT
XS
YS
ZS
VSN(J),
J=1,NVSMAX
PHI(J),
J=1,NVSMAX
GAMMA(J),
J=1,NVSMAX
GRPID
Symbol


hs
V
"™
Qs


xs
ys
zs
vs

Description (units)
Source identification (alphanumeric string of up to eight
charaters)
Source type (POINT, VOLUME, or AREA), read in as character(*6)
variable with logical flag set
Physical release height (m)
Initial lateral dimension of volume source (m)
Initial vertical dimension of volume source (m)
Source emission rate (g/s)
Variable emission rate flag (character*6)
Variable emission rate factors
x- coordinate of source location (m)
y- coordinate of source location (m)
z-coordinate of source location (elevation above mean sea level,
meters with optional override for feet)
Settling velocity categories for large particulates (m/s)
Mass fractions for each settling velocity category for large
particulates
Reflection coefficients for each settling velocity category for
large particulates
Source group identification (alphanumeric string of up to eight
characters)
Note:   Source parameters are read into arrays with the variable names given above preceded by an 'A1,
        e.g., AHS(ISRC),ISRC=1,NSRC and ASYINI(ISRC),ISRC=1,NSRC, and then the variables for a
        particular hour and source are "set" to the variables listed above before proceeding with the
        calculations.  This is done in SUBROUTINE SETSRC.
                                                  D-2

-------
Source Input Parameters - Area Releases
Variable Name
SRC ID
SRCTYP
HS
XINIT
OS
QFLAG
QFACT
XS
YS
ZS
VSM(J),
J=1,NVSMAX
PHI(J),
J=1,NVSMAX
GAMMA(J),
J=1,NVSMAX
GRPID
Symbol


hs
xo
QA


XS
ys
zs
vs(j)
«»
Y
-------
Receptor Parameters
Variable Name
XR
YR
ZELEV
ZFLAG
X
Y
NETID
Symbol
xr
yr
zelev
zflag
X
y

Description (units)
x-coordinate of receptor location (m)
y-coordinate of receptor location (m)
z- coordinate of receptor location (elevation above mean sea
level, meters with optional override for feet)
Height above local ground for flagpole type of elevated receptor
(m)
Downwind distance from source to receptor (m)
Crosswind distance from plume center line to receptor (m)
Receptor network identification (alphanumeric string of up to
eight characters)
Note:   Receptor variables are read into arrays with the variable names given above preceded by a  'A1,
        e.g., AXR(IREC),IREC=1,NREC and AZELEV(IREC),IREC=1,NREC, and then the variables for a
        particular hour and receptor are "set" to the variables listed above before proceeding with the
        calculations.  This is done in SUBROUTINE XYDIST.
                                                  D-4

-------
Input Meteorological and Date Variables
Variable Name
UREF
ZREF
US
AFV
UD
TA
KST
ZI
DTDZ
I YEAR
I MONTH
I DAY
I HOUR
KURDAT
JDAY
Symbol
uref
zref
us
6fv
e
Ta

zi
ae/az






Description (units)
Wind speed at reference (anemometer or measurement) height, ZREF
(m/s)
Reference (anemometer or measurement) height for wind speed data (m)
Wind speed adjusted to the release height (m/s)
Flow vector (direction wind is blowing toward) (degrees)
Wind direction (direction wind is blowing from, may be input from
card image data) (degrees)
Ambient temperature (K)
Pasquill-Gifford stability category (A=1, B=2,...F=6)
Mixing height (m)
Vertical potential temperature gradient (K/m)
Year (last two digits)
Month (1-12)
Day of month (1-31)
Hour in LSI (1-24)
Current date (YYMMDDHH), calculated as
IYEAR*1000000+IMONTH*10000+IDAY*100 +IHOUR
Julian day (1-366)
D-5

-------
Model Constants (defined in PARAMETER statements)
Variable Name
PI
TWOP1
RTOFPI
SRT2PI
G
DTORAD
RTOOEG
BETA
Symbol
t
2*
J*
vTit
9
2T/360
360/2*
B
Va I ue/desc r i pt i on
PI = 3.141593
2.*PI = 6.2aS185
SQRT(PI) = 1.772454
SQRT(2.*PI) = 2.506628
Acceleration due to gravity = 9.80616 m/s
Degrees- to- radians conversion factor = 0.017453293
Radians- to-degrees conversion factor » 57.29578
Entrainment coefficient used in BLP plume rise for Schulman-Scire
dounuash =0.6
D-6

-------
Array Storage Limits (defined in PARAMETER statements)
Variable Name
NREC
NSRC
NGRP
NAVE
NVAL
NMAX
MSEC
NQF
NHR
NNET
IXM
IYM
NYR
IFXMAX
IPN
IKN
ISTRG
IERRN
Initial Value
for DOS Versions
600 (ST)
500 (LT)
100
2 (ST)
3 (LT)
25 (EV)
2 (ST)
17 (LT)
4 (EV)
6
50 (ST)
10 (LT)
36 (ST)
16 (LT)
96 (ST)
144 (LT)
1 (ST)
24 (EV)
5
50
50
1
40
6
51 (ST)
45 (LT)
35 (EV)
80
102
Description
Maximum number of receptors
Maximum number of sources
Max i nun number of source groups
Maximum number of short term averaging periods
Maximum number of high values by receptor to store
Maximum number of overall maximum values to store
Number of sectors for direction specific building dimensions
Maximum number of emission rate factors
Number of hours in meteorology arrays
Number of receptor networks allowed
Number of x-coordinates (or distances) for each receptor
network
Number of y-coordinates (or directions) for each receptor
network
Number of years in meteorological data file for Short Term
models
Maximum number of fields per input runs t ream image
Number of pathway IDs
Number of keywords
Maximum number of characters per input runs t ream image
Number of messages for error handling
D-7

-------
Logical Control Variables
Variable Name
OFAULT
GRDRIS
NOSTD
NOB ID
MOCALM
UAKLOU
PERIOD
MONTH
RURAL
URBAN
CONC
DEPOS
FLAT
ELEV
FLGPOL
WAKE
UAKESS
TALL
SQUAT
SSQUAT
BUOYNT
UNSTAB
NEUTRL
STABLE
CLMHR
CLMPRO
HSGHR
MSGPRO
Initial Value
F
F
F
F
F
F
F
F
F
F
F
F
T
F
F
F
F
F
F
F
F
F
F
F
F
T
F
F
Description (effect if variable is T)
Regulatory default option selected (overrides non-regulatory
modeling options)
Non- regulatory option for gradual plume rise selected
Non- regulatory option for no stack tip downwash selected
Non- regulatory option for no buoyancy induced dispersion selected
Non- regulatory option for no calms processing selected
Non-regulatory option for "lower bound" wake calculations for
super-squat buildings selected
Period (e.g. annual) averages to be processed
Monthly averages to be processed (treated as a short term average)
Rural dispersion parameters selected
Urban dispersion parameters selected
Concentration calculations selected
Deposition calculations selected
Flat terrain assumed for all calculations
Elevated terrain assumed with user specified receptor elevations
Flagpole receptor heights are accepted
Building wake algorithms apply
Schulman-Scire building wake algorithms for short stacks apply
Specifies a tall building for downwash calculations (width <
height)
Specifies a squat building for downwash calculations (height <=
width <= 5*height)
Specifies a super-squat building for downwash calculations (width
> 5*height)
Buoyancy dominates plume rise
Unstable atmospheric conditions (classes A, B, and C)
Neutral atmospheric conditions (class D)
Stable atmospheric conditions (classes E and F)
Identifies particular hour as having calm winds
Calms processing selected (i.e.,. NOT. NOCALM)
Identifies particular hour as having missing meteorological data
Missing data processing option selected
D-8

-------
Logical Control Variables (Cont.)
Variable Name
RUN
FATAL
RECERR
RUNERR
EVENTS
RSTSAV
RSTINP
DAYTAB
HXFILE
PPFILE
PLFILE
ANPOST
AMPLOT
MULTYR
DEBUG
USERP
USEROT
CALCS
FSTREC
NEWDAY
ENDMON
ECHO
Initial Value
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
F
T
F
T
Description (effect if variable is T)
Identifies that model calculations are to be attempted.
Identifies a fatal error in the processing of input data. Further
model calculations are aborted.
Identifies an error in the setup of receptor inputs. Further
model calculations are aborted.
Identifies that a runtime error has occurred during the model
calculations. Further model calculations are aborted, but
checking of meteorological data continues.
Identifies whether an input file for ISCEV2 will be generated
Intermediate results will be saved for later re-start
Results arrays will be initialized from a previously saved file of
intermediate results
Tables of concurrent results for each day of data processed will
be generated
Maximum value (> threshold) file(s) will be generated
Concurrent results for postprocessing will be written to
unformatted file(s)
High value results will be written to file(s) for plotting
Postprocessor file of PERIOD (e.g. annual) averages will be
generated
Plot file of PERIOD averages will be generated
Indicates that current run is part of a multiple year analysis for
PM-10 or OTHER
Indicates that detailed output results (sigmas, plume heights,
etc.) will be written out for debugging purposes
Indicates that user-specified wind profile exponents are being
used
Indicates that user-specified vertical potential temperature
gradients are being used
Indicates that calculations were performed for a particular hour,
controls whether averaging or sorting routines are called
Indicates that the current receptor is the first receptor in the
loop. Used to optimize on plume rise calculations.
Identifies that a new day of meteorology has started, controlling
when to read a record from the unformatted meteorological data
file
Identifies that the current hour occurs at the end of a month,
used to control calculation of monthly averages
Indicates that runs t ream input images will be echoed to the output
file
D-9

-------
Miscellaneous Control Variables
Variable/Array Name
and Indices
FIELDUFMAX)*40
LOCB(IFMAX)
LOCE(IFMAX)
IFC
RUNST1*80
RUNST(80)*1
ERRMSG(IERRN)*50
ERRCOO(IERRN)*3
I ERROR
ILINE
ICSTAK20)
ISSTAT(ZO)
IRSTAT(20)
IMSTAK20)
IOSTAT(20)
IESTAT(20)

IPNUM
1PPNUH
ELTYPE*6
KAVE(NAVE)
CHRAVE(NAVE)*6
EXPLIM
MOOOPS(11)*6
VERSM*5
METFRM*60
METINP*40
INPFIL*40
OUTFIL*40
Description
Array of fields on a particular runs t ream input image
Column location for the beginning of each field on a particular runstream
image
Column location for the end of each field on a particular runstream image
Number of fields on a particular runstream input image
An 80-character string containing the entire contents of a particular
runstream input image
An 80 element array containing the contents of a particular runstream
input image on a column- by- column basis
Array containing the detailed error/warning/informational messages
Array containing the error codes (3-digit numbers as character strings)
Current error/message count
Line number of runstream input file during setup processing or line (i.e.
hour) number of meteorological data file during model calculations.
Included on the detailed error/message line.
Array of status switches (i.e. count) for all keywords on the COntrol
pathway
Array of status switches (i.e. count) for all keywords on the SOurce
pathway
Array of status switches (i.e. count) for all keywords on the REceptor
pathway
Array of status switches (i.e. count) for all keywords on the MEteorology
pathway
Array of status switches (i.e. count) for all keywords on the output
pathway
Array of status switches (i.e. count) for all keywords on the EVent
pathway
(ISCEV2 only)
Pathway number (1 for CO, 2 for SO, etc.) for current input image
Pathway number for previous input image
Flag indicating the units for the terrain elevations for receptors
('FEET' or 'METERS')
Array indicating which averaging periods are being calculated
Character array used for labeling averaging periods in table and file
headers (e.g., '24-HR', 'MONTH')
Lower limit on the argument for the Exponential intrinsic function to
avoid underflows (initialized to -50 in BLOCK DATA INIT)
Array holding modeling options keywords for use in page and file headers
Version date of the models, as a character variable, for use in page and
file headers (initialized in BLOCK DATA INIT)
Format for meteorological data file as a character variable
Filename for input meteorological data file
Input runstream filename
Printed output filename
D-10

-------
Derived Quantities
Variable Name
FB
FM
ZLB
ZLY
RINIT
X3LB
X2BH
DA
S
BETAJ
HSP
HE
DHF
DHP
HEMUAK
Symbol
Fb
Fm
LB
Ly
Ro
*l3LB
Xl2hb
A
S
8J
V
he
Ah
Ah(x)
Ahm(x)
Description (units)
Buoyancy flux parameter (m /s )
U 2
Momentum flux parameter (m /s )
Lesser of BH and BU (or DSBH(I) and DSBW(D) (m)
Length of initial plume for Schulman-Scire plume rise (m)
Radius of initial plume for Schulman-Scire plume rise (m)
Downwind distance x of 3Lg (m)
Downwind distance x of 2h^ (m)
Decay term used in Schulman-Scire downwash
86/8z -?
Stability parameter = • 9—= — (s )
•"•«
Jet entrainment factor used in Schulman-Scire plume rise =
! + "•
3 U.
Release height adjusted for stack tip downwash (m)
Effective plume height (m)
= release height
+ stack downwash (if applicable)
+ plume rise
- terrain height
Final plume rise (m)
Partial (distance-dependent) plume rise
Plume height due to partial momentum rise evaluated at
x - 2h^, used to check for building wake effects
D-ll

-------
Derived Quantities (Cont.)
Variable Name
SY
SZ
SYIMIT
SZINIT
XY
XZ
V
VD
D
E
XRAD
Symbol
ay
ffz
ayo
ffzo
xy
xz
V
vd
D
E
V2
Description (units)
Lateral plume dispersion parameter (m)
Vertical plume dispersion parameter (m)
Initial lateral dispersion at 10*ZLB used to calculate a lateral
virtual distance for building downwash (m)
Initial vertical dispersion at 10*ZLB used to calculate a
vertical virtual distance for building downwash (m)
Lateral virtual distance for use in calculating lateral
dispersion (m)
Vertical virtual distance for use in calculating vertical
dispersion (m)
Vertical term used in diffusion equation
Vertical term used in deposition equation
Decay term in diffusion equation
Error function term in diffusion equation for area sources:
E- orf °-5X°' + yUorf f°'5xo'-y)
v^oy ) { SZay }
Effective radius of area source (=x //?c) or volume source
D-12

-------
ISCST2 Model Results Variables and Arrays
Variable/Array Name
and Indices
HRVAL
AVEVAL ( NREC , NGRP , NAVE )
HIVALU(NREC,NVAL,NGRP,N AVE)
NHIDAT(NREC,NVAL,NGRP,N AVE)
HCLMSG< NREC, NVAL, NGRP, N AVE)
RMXVAL ( NMAX , NGRP , NAVE )
MXDATE (NMAX , NGRP , NAVE )
HXLOCA ( NMAX , NGRP , NAVE )
MCLMSG ( NMAX , NGRP , NAVE )
ANNVALC NREC, NGRP)
AMXVAU NVAL, NGRP)
IMXLOC(NVAL,NGRP)
NUMHRS(NAVE)
NUMCLM(NAVE)
NUMMSG(NAVE)
IANHRS
IANCLM
1ANMSG
Description
Hourly concentration or deposition values for particular
source/receptor combination
Current cumulative sums and/or short term averages for each
receptor/source group
Current highest values by receptor for each source group and short
term averaging period
Date (YYMMDDHH) corresponding to current highest values by receptor
(variable KURDAT for the ending hour of the averaging period)
Character flag (*1) for high value array indicating whether calms
Cc1) or missing Cm1) data or both ('b') are included in the
averaging period
Current overall maximum values (regardless of location) for each
source group and short term averaging period
Date (YYMMDDHH) corresponding to current overall maximum values
Location corresponding to current overall maximum values
Character flag (*1) for overall maximum value array indicating
whether calms Cc1) or missing Cm1) data or both Cb1) are
included in the averaging period
Period (e.g. annual) averages for each receptor and source group
Maximum period (e.g. annual) averages for each source group (top
NVAL values)
Location corresponding to maximum period averages for each source
group
Number of hours for each averaging period
Number of calm hours for each averaging period
Number of missing hours for each averaging period
Total number of hours in the data period
Total number of calm hours in the data period
Total number of missing hours in the data period
Note:   The  indices shown are the array storage limits, which are set in a PARAMETER statement in the
        MAIN1.INC file.  The index representing the "current value" of the index within the model loops
        is identified with an 'I1 and the beginning instead of an 'N', such as IREC vs NREC.  The loops
        have the same general structure as follows:

              DO 300 IAVE = 1, NUMAVE
                 DO 200 IGRP = 1, NUMGRP
                    DO 100 IREC = 1, NUMREC

                       executable statements

         100        CONTINUE
         200     CONTINUE
         300  CONTINUE

        where NUMREC indicates the NUMber of RECeptors for a particular model run, which must be less
        than or equal to NREC.
                                                 D-13

-------
ISCLT2 Model Results Variables and Arrays
Variable/Array Name
and Indices
SRCVAL(NREC.NSRC)
GRPVAUNREC.NGRP)
SOCONT ( NMAX , NSRC , NGRP )
SRCMAX(NMAX,NSRC)
ISMLOC(NVAL,NGRP)
GRPHAX(NMAX.NSRC)
IGMLOC(NVAL,NGRP)
Description
Concentration or deposition values for a particular STAR
summary for particular source/receptor combinations
Concentration or deposition values for a particular STAR
summary for particular source group/receptor combinations
Individual source contribution results for the maximum
source group values
Maximum individual source values
Location corresponding to maximum values for each individual
source
Maximum source group values
Location corresponding to maximum values for each source
group
Note:   The indices shown are the array storage limits,  which  are  set  in  a  PARAMETER  statement  in  the
        MAIN1LT.INC file. The index representing the "current  value" of the index  within the model  loops
        is identified with an 'I1 and the beginning instead of an  'N', such as  IREC vs  NREC.  The  loops
        have the same general structure as follows:

              DO 300 IAVE = 1, NUMAVE
                 DO 200 IGRP = 1, NUMGRP
                    DO 100 IREC = 1, NUMREC

                       executable statements

          100        CONTINUE
          ZOO     CONTINUE
          300  CONTINUE

        where NUMREC indicates the NUMber of RECeptors for a particular model  run, which must be less
        than or equal to NREC.
                                                 D-14

-------
ISCEV2 Model Results Variables and Arrays
Variable/Array Name
and Indices
HRVAL
AVEVAL(NSRC)
HRVALS(NHR,NSRC)
GRPAVE
GRPVAL(NHR)
NUMHRS
NUMCLM
NUMHSG
ISTAHR
IENDHR
Description
Hourly concentration or deposition values
source and event
for particular
Average values for each source for a particular event
Hourly concentration or deposition values
for each hour in the event period
for each source
Group average value for a particular event
Group average values for each hour in the
event period
Number of hours in the event
Number of calm hours in the event
Number of missing hours in the event
Starting hour for a particular event
Ending hour for a particular event
Note:   The indices shown are the array storage limits, which are set in a PARAMETER statement in the
        EVMAIN1.INC file. The index representing the "current value" of the index within the model loops
        is identified with an 'I1 and the beginning instead of an 'N1, such as ISRC vs NSRC.  The loops
        have the same general structure as follows:

              DO 200 IHR = 1, NHR
                 DO 100 IREC = 1, NUMSRC

                       executable statements

         100     CONTINUE
         200  CONTINUE

        where NUMSRC indicates the number of sources for a particular model run, which must be less than
        or equal to NSRC.
                                                 D-15

-------
              APPENDIX  E.  LIST  OF  ERROR MESSAGES

     This Appendix includes a list of the error messages and
associated message numbers as used in the ISC2 models.  Most
messages are used by all three models, but a few are specific
to one or two of the models.  For a more complete description
of the error and warning messages used by the ISC2 models,
refer to Appendix E of Volume I of the ISC2 User's Guide.
     100  Invalid Pathway Specified. The Troubled Pathway is
     105  Invalid Keyword Specified. The Troubled Keyword is
     110  Keyword is Not Valid for This Pathway.  Keyword is
     115  STARTING or FINISHED Out of Sequence:  Pathway =
     120  Pathway is Out of Sequence:  Pathway =
     125  Missing FINISHED-Runstream File Incomplete: ISTAT=
     130  Missing Mandatory Keyword.  The Missing Keyword is
     135  Duplicate Nonrepeatable Keyword Specified:Keyword=
     140  Invalid Order of Keyword.  The Troubled Keyword is
     142  Missing AVETEMPS Keyword for Specified AVEPER
     144  Missing AVEMIXHT Keyword for Specified AVEPER
     145  Conflicting Options: MULTYEAR and Re-Start Option
     150  Conflicting Options: MULTYEAR for Wrong Pollutant
     155  Conflicting Decay Keyword. Inputs Ignored for
     160  Duplicate ORIG Secondary Keyword for GRIDPOLR:
     170  Invalid Secondary Keyword for Receptor Grid:
     175  Missing Secondary Keyword END for Receptor Grid:
     180  Conflicting Secondary Keyword for Receptor Grid:
     185  Missing Receptor Keywords. No Receptors Specified.
     190  No Keywords for OU Pathway and No PERIOD Averages.
     195  DAYTABLE Option Used With SAVEFILE or INITFILE
     200  Missing Parameter(s). No Options Specified For
     201  Not Enough Parameters Specified For the Keyword of
     202  Too Many Parameters Specified For the Keyword of
     203  Invalid Parameter Specified.  Troubled Parameter:
     204  Option Parameters Conflict.  Forced by Default to
                              E-l

-------
205  No Option Parameter Setting.   Forced by Default to
206  Regulatory DFAULT Specified With Non-DFAULT Option
207  No Parameters Specified.   Default Values Used For
208  Illegal Numerical Field Encountered in
209  Negative Value Appears For Non-negative Variable.
210  Number of Short Term Averages Exceeds Max:  NAVE=
211  Duplicate Averaging Period Specified for Keyword
212  END Encountered Without (X,Y) Points Properly Set
213  ELEV Input Inconsistent With Option: Input Ignored
214  ELEV Input Inconsistent With Option: Defaults Used
215  FLAG Input Inconsistent With Option: Input Ignored
216  FLAG Input Inconsistent With Option: Defaults Used
217  More Than One Delimiter In A Field for Keyword
218  Number of (X,Y) Points Not Match With Number Of
219  Number Of Receptors Specified Exceeds Max:  NREC=
220  Missing Origin (Use Default = 0,0) In GRIDPOLR
221  Missing Distance Setting In Polar Network
222  Missing Degree Or Dist Setting In Polar Network
223  Missing Distance or Degree Field in
224  Number of Receptor Networks Exceeds Max:  NNET=
225  Number of X-Coords Specified Exceeds Max:  IXM=
226  Number of Y-Coords Specified Exceeds Max:  IYM=
227  No Receptors Were Defined on the RE Pathway.
228  Default(s) Used for Missing Parameters on Keyword
229  Too Many Parameters - Inputs Ignored on Keyword
230  Not Enough Numerical Values Specified for
231  Too Many Numerical Values Specified for
232  Number Of Specified Sources Exceeds Maximum: NSRC=
233  Building Dimensions Specified for Non-POINT Source
234  Too Many Sectors Input for
235  Number of Source Groups Exceeds Maximum:  NGRP=
236  Not Enough BUILDHGTs Specified for SourcelD .
237  Not Enough BUILDWIDs Specified for SourcelD
238  Not Enough LOWBOUNDs Specified for SourcelD
239  Not Enough QFACTs Specified for SourcelD
240  Inconsistent Number of Settling Velocity Cats for
                         E-2

-------
242  No Settling/Removal Categories Specified for SRCID
244  Too Many Parameters (>NVSMAX)  Specified for
245  No. of Settling/Removal Cats Exceeds Max:  NVSMAX=
248  No Sources Were Define on the SO Pathway.
250  Duplicate XPNT/DIST or YPNT/DIR Specified for GRID
252  Duplicate Receptor Network ID Specified.  NETID =
255  Boundary Receptor Distances Not Defined Yet for
260  Number of Emission Factors Exceeds Max:      NQF=
270  Number of High Values Specified Exceeds Max: NVAL=
280  Number of Max Values Specified Exceeds Max:  NMAX=
290  Number Of Events Specified Exceeds Max:  NEVE=
300  Specified SRCID Has Not Been Defined Yet: KEYWORD=
310  Attempt to Define Duplicate LOCATION Card for SRC:
315  Attempt to Define Duplicate SRCPARAM Card for SRC:
320  Source Parameter May Be Out-of-Range for Parameter
325  Negative Exit Velocity (Set=1.0E-5) for SRCID:
330  Mass Fraction Parameters Do Not Sum to 1. for Src
332  Mass Fraction Parameter Out-of-Range for Source
334  Reflection Coefficient Out-of-Range for Source
340  Possible Error In ANHT of ANEMHGHT. The Value is
350  Julian Day Out Of Range at
355  Specified Averaging Period Not Being Calculated:
360  2-Digit Year Specified: Valid for Range 1901-2099
362  Averaging Time Conflict: PERIOD With ANNUAL Data
364  Aver Time Conflict: PERIOD w/ MONTH & SEAS/QUART
366  Possible Averaging Time Conflict: PERIOD Ave Only
368  Averaging Time Conflict: PERIOD Average Only & No
369  Averaging Time Conflict: Both SEASON and QUARTR
370  Invalid Date: 2/29 In a Non-leap Year.
380  This Input Variable is Out-of-Range:
390  Invalid Averaging Period for the Event
395  Monthly QFACT Specified With No Monthly Averages
398  STAR Data Not Available for the Specified Average
400  No Convergence Reached in SUB. CUBIC.  KURDAT=
410  Flow Vector Out-of-Range.   KURDAT=
420  Wind Speed Out-of-Range.   KURDAT=
                         E-3

-------
430  Ambient Temperature Data Out-of-Range.   KURDAT=
440  Calm Hour Identified in Meteorology Data File at
450  Error in Meteor.  File - Record Out of Sequence at
460  Missing Hour Identified in Meteor. Data File at
470  Mixing Height Value is < or = 0.0.   KURDAT=
480  STAR Frequency Does Not Sum to 1.0 (within 2 %)
500  Fatal Error Occurs Opening the Data File of
510  Fatal Error Occurs During Reading of the File of
520  Fatal Error Occurs During Writing to the File of
530  Error Occurs Reading Met Station or Year:File Says
540  No RECTABLE/MAXTABLE/DAYTABLE for Average Period
550  File Unit/Name Conflict for the Output Option:
560  User Specified File Unit < 20 for OU Keyword:
565  Possible Conflict With Dynamically Allocated FUNIT
570  Problem Reading Temporary Event File for Event:
575  End-of-File Reached Trying to Read STAR Data for
580  End-of-File Reached Trying to Read the File
                         E-4

-------
   APPENDIX F.  CROSS-REFERENCE  LISTING  OF  SOURCE CODE FILES

     This Appendix includes a cross-reference listing of the
ISC2 Fortran source code files that indicates the location of
each of the modules (subroutines, functions, etc.) for all
three of the models.  The listing gives the type of module  (S
for subroutine, F for function,  D for block data, C for common
block, and P for program),  the number of significant
statements, not including comments and blank lines, the number
of times each module is referenced within the model, the
beginning and ending line numbers for the module, and the name
of the Fortran source file containing the module.
                              F-l

-------

-------
F.I ISCST2 MODEL
Module
Name
ACALC
ACHI
ADEP
ADIS
ANEMHT
APARM
ASNGRP
AVER
AVETIM
BEAR
BID
BLPCB
BLPCM
BOUNDR
CALC
CHKCLM
CHKDAT
CHKMSG
CHKREC
COCARD
CUBIC
DATTIM
DAYRNG
DEBOUT
DECAY
DEFINE
DELH
DHPHS
DHPMOM
DHPSS
DISCAR
DISPOL
DISTF
DRYDEP
DSBLDG
DSFILL
DTHETA
EDECAY
EFFILL
ELUNIT
EMFACT
EMUNIT
EMVARY
ERFAB
ERFX
ERRFIL
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
C
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
F
S
Signf T(
Stmts R«
38
18
18
11
36
27
15
15
61
137
17
16
19
112
17
15
22
18
51
237
21
1
135
25
11
43
45
14
18
41
97
108
22
21
46
71
49
35
27
19
31
25
83
11
17
22
3tal
afrs
1
1
1
1
1
1
6
1
1
1
2
1
1
1
1
1
1
1
1
1
3
1
1
4
4
1
2
2
2
2
1
1
1
1
1
2
1
1
2
1
3
1
1
2
1
1
! !Beg
! ! Line
210
788
848
616
257
648
1606
1
537
631
714
302
349
1759
1
333
285
373
1023
1
401
439
691
908
297
215
1
112
160
210
1451
1597
109
1133
709
792
1085
687
1022
756
1
1078
900
799
839
1142
End
Line
288
846
906
653
327
707
1647
45
639
797
761
347
399
1923
45
371
331
412
1120
341
457
439
885
991
332
302
73
158
208
300
1595
1757
155
1182
790
898
1174
754
1076
803
63
1131
1020
837
879
1191
Source
Module
CALC1 . FOR
CALC1 . FOR
CALC1 . FOR
CALC1 . FOR
MESET.FOR
SOS ET. FOR
SOSET.FOR
CALC3 . FOR
COSET.FOR
CALC2 . FOR
SIGMAS . FOR
PRISE. FOR
PRISE. FOR
RESET. FOR
CALC1 . FOR
METEXT . FOR
METEXT . FOR
METEXT. FOR
INPSUM.FOR
COSET . FOR
PRISE. FOR
ISCST2.FOR
MESET.FOR
CALC1 . FOR
CALC2 . FOR
SETUP. FOR
PRISE. FOR
PRISE. FOR
PRISE. FOR
PRISE. FOR
RESET. FOR
RESET. FOR
CALC2 . FOR
SOSET . FOR
SOSET.FOR
SOSET.FOR
MESET . FOR
COSET.FOR
SOSET.FOR
COSET.FOR
CALC2 . FOR
SOSET . FOR
SOSET.FOR
CALC2 . FOR
CALC2 . FOR
COSET.FOR
                              F-2

-------
Module
Name
ERRHDL
EVEFIL
EVNTFL
EXKEY
EXPATH
FLAGDF
FLGHGT
FSPLIT
GENCAR
GENPOL
GETFLD
GREGOR
HEADER
HIPER
RIVALS
HRLOOP
HSETFG
HSPRIM
INIT
INITFL
INPGAM
INPPHI
INPSUM
INPVSN
ISCST2
JULIAN
LWRUPR
MAXFIL
MAXVAL
MECARD
MEOPEN
METCHK
METDAT
METEXT
METFIL
METQA
MODOPT
MSETFG
MSGWRT
MXEVNT
MY EAR
NHIGH
OUCARD
OUDALY
OUHIGH
OUMXFL
OUMXVL
OUPLOT
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
F
D
S
S
S
S
S
P
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf 1
Stmts I
37
101
26
24
28
28
41
48
64
57
13
23
28
38
18
86
24
11
117
18
75
75
11
69
65
32
18
35
55
118
43
13
81
160
27
25
108
24
32
49
27
51
32
47
117
147
69
145
?otal !
iefrs j
628
1
1
1
1
1
2
11
1
1
1
1
41
1
1
1
3
2
0
1
1
1
1
1
0
8
1
1
1
1
1
1
1
1
1
1
1
3
1
1
1
1
1
1
1
1
1
1
iBeg
jLine
638
1411
964
403
344
903
1376
675
345
1015
304
. 577
413
46
47
161
191
75
960
1095
1402
1289
1
1184
1
503
170
1
247
1
1176
245
473
1
190
414
384
344
894
1572
1193
93
1
431
139
513
321
1064
End
Line
707
1570
1022
456
401
962
1449
760
447
1107
342
636
501
111
91
303
245
110
1266
1140
1513
1400
43
1287
159
575
213
75
342
188
1257
283
638
243
255
471
535
398
958
1677
1253
189
70
511
319
757
429
1298
Source
Module
ISCST2.FOR
OUTPUT . FOR
COSET .FOR
SETUP . FOR
SETUP . FOR
COSET . FOR
RESET . FOR
SETUP . FOR
RESET. FOR
RESET . FOR
SETUP. FOR
ISCST2 . FOR
ISCST2 . FOR
OUTPUT. FOR
CALC3 . FOR
ISCST2 . FOR
CALC3 . FOR
PRISE. FOR
ISCST2 . FOR
COSET. FOR
SOSET . FOR
SOSET.FOR
INPSUM. FOR
SOSET . FOR
ISCST2 . FOR
ISCST2.FOR
SETUP . FOR
CALC4 . FOR
CALC3 . FOR
MESET . FOR
MESET.FOR
METEXT . FOR
METEXT . FOR
METEXT . FOR
MESET . FOR
METEXT . FOR
COSET. FOR
CALC3 . FOR
ISCST2 . FOR
OUTPUT . FOR
COSET. FOR
CALC3 . FOR
OUSET.FOR
OUSET . FOR
OUSET.FOR
OUSET . FOR
OUSET.FOR
OUSET . FOR
F-3

-------
Module
Name
OUPOST
OUTPUT
OUTQA
PCALC
PCCODE
PCHI
PDEP
PDIS
PERAVE
PERPLT
PERPST
PHEFF
PLOTFL
PLTANN
POLDST
POLLID
POLORG
POSTFL
PPARM
PRTANN
PRTDAY
PRTMAX
PRTMET
PRTNHI
PRTOPT
PRTREC
PRTSRC
PRTSUM
PSTANN
RADRNG
REGARD
RECART
REPOLR
RESINI
RSDUMP
RSINIT
RUNNOT
SAVEFL
SBYVAL
SETCAR
SETIDG
SETORD
SETPOL
SETSRC
SETUP
SFDATA
SIGY
SIGZ
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf T
Stints R
189
23
36
41
46
27
27
28
13
93
103
55
27
23
39
17
46
48
41
161
160
90
55
75
197
218
189
113
27
44
107
115
134
41
60
42
19
40
26
70
60
29
73
44
73
43
34
22
otal
efrs
1
1
1
1
1
2
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
1
1
1
4
1
15
1
1
3
1
1
10
5
! [Beg
| j Line
759
327
72
47
305
655
722
513
1
1476
1300
369
252
186
943
641
862
77
491
381
167
1039
1122
633
45
703
393
1201
113
1109
1
172
666
1310
424
1227
855
1024
1925
563
1649
458
1187
290
1
329
1
73
End
Line
1062
379
137
131
411
720
786
573
44
1636
1474
465
325
250
1013
685
941
165
571
631
422
1199
1225
757
391
1021
701
1409
184
1185
170
343
860
1372
536
1308
901
1093
1977
664
1745
516
1291
367
168
408
71
129
Source
Module
OUSET.FOR
OUTPUT . FOR
OUSET.FOR
CALC1 . FOR
ISCST2.FOR
CALC1 . FOR
CALC1 . FOR
CALC1 . FOR
OUTPUT . FOR
OUSET.FOR
OUSET.FOR
CALC1 . FOR
OUTPUT . FOR
OUTPUT . FOR
RESET . FOR
COSET.FOR
RESET. FOR
CALC4 . FOR
SOSET.FOR
OUTPUT. FOR
CALC4 . FOR
OUTPUT . FOR
INPSUM.FOR
OUTPUT . FOR
INPSUM.FOR
INPSUM.FOR
INPSUM.FOR
OUTPUT . FOR
. OUTPUT. FOR
RESET . FOR
RESET. FOR
RESET. FOR
RESET. FOR
INPSUM.FOR
CALC4 . FOR
INPSUM.FOR
COSET.FOR
COSET.FOR
RESET. FOR
RESET . FOR
SOSET.FOR
SETUP . FOR
RESET. FOR
CALC1 . FOR
SETUP. FOR
MESET . FOR
SIGMAS . FOR
SIGMAS . FOR
F-4

-------
Module
Name
SINDEX
SOCARD
SOGRP
SOLOCA
SOPARM
SPRTHT
SRCQA
STAEND
STONUM
SUMTBL
SUMVAL
SYENH
SZCOEF
SZDCAY
SZENH
TERHGT
TERRHT
TERRST
TITLES
UADATA
UNFMET
VARINI
VCALC
VDIS
VERT
VERTDS
VERTSR
VHEFF
VPARM
WAKFLG
WDROTA
WSADJ
WSCATS
WSPROF
XVY
XVZ
XYDIST
XYPNTS
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
C
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf 1
Stmts I
17
112
54
61
72
161
52
142
77
63
17
49
203
18
18
47
21
39
17
43
1
178
34
12
67
41
73
14
36
56
19
17
26
49
16
41
14
74
?otal |
iefrs j
10
1
1
1
1
1
1
1
101
2
3
2
2
1
3
2
1
2
2
1
2
1
1
1
2
2
1
1
1
1
1
3
1
1
4
2
3
1
|Beg
jLine
636
1
1515
276
377
759
173
491
518
787
881
363
131
670
484
1293
805
709
343
410
26
762
133
575
334
553
437
467
573
157
887
65
936
995
544
590
249
449
End
Line
673
171
1604
375
489
1037
274
689
634
892
927
482
361
712
542
1374
853
785
382
489
26
981
208
614
435
629
551
511
646
247
934
107
993
1083
588
668
295
561
Source
Module
SETUP. FOR
SOSET.FOR
SOSET . FOR
SOSET . FOR
SOSET . FOR
OUTPUT . FOR
SOSET . FOR
MESET . FOR
SETUP. FOR
ISCST2.FOR
CALC2 . FOR
SIGMAS . FOR
SIGMAS . FOR
SIGMAS . FOR
SIGMAS . FOR
RESET . FOR
COSET . FOR
ISCST2 . FOR
COSET . FOR
MESET . FOR
METEXT . FOR
SETUP . FOR
CALC1 . FOR
CALC1 . FOR
CALC2 . FOR
CALC2 . FOR
CALC2 . FOR
CALC1.FOR
SOSET . FOR
CALC2 . FOR
MESET . FOR
CALC2 . FOR
MESET . FOR
MESET. FOR
SIGMAS . FOR
SIGMAS . FOR
CALC2 . FOR
RESET . FOR
F-5

-------
F.2 ISCLT2 MODEL
Module
Name
ACALCL
ACHILT
ADECAY
ADEPLT
ADISLT
ANEMHT
APARM
ASNGRP
AVEMHT
AVESPD
AVETIM
AVETMP
BEAR
BIDLT
BLPCB
BLPCM
BOUNDR
CHKREC
CLTMAX
COCARD
CUBIC
DATTIM
DEBOUT
DECAY
DEFINE
DELH
DHPHS
DHPMOM
DHPSS
DISCAR
DISPOL
DISTF
DRYDEP
DSBLDG
DSFILL
DTHETA
EDECAY
EFFILL
ELUNIT
EMFTLT
EMUNIT
EMVARY
ERRFIL
ERRHDL
EXKEY
EXPATH
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
c
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf :
Stmts I
33
19
11
19
10
36
27
15
145
26
144
130
137
16
16
19
112
51
97
181
21
1
25
11
43
45
14
18
41
97
108
22
21
46
71
49
35
27
19
27
25
101
22
37
24
28
Cotal
Xefrs
1
1
2
1
1
1
1
6
1
1
1
1
1
2
1
1
1
1
1
1
3
1
4
2
1
2
2
2
2
1
1
1
1
1
2
1
1
2
1
3
1
1
1
503
1
1
! !Beg
j j Line
205
747
374
808
588
322
648
1626
1218
976
458
1037
708
746
302
349
1759
1011
867
1
401
491
869
337
200
1
112
160
210
1451
1597
106
1153
709
792
885
692
1042
761
1
1098
900
969
555
388
329
End
Line
278
806
409
867
623
392
707
1667
1416
1035
644
1216
874
790
347
399
1923
1108
1030
262
457
491
950
372
287
73
158
208
300
1595
1757
152
1202
790
898
974
759
1096
808
60
1151
1040
1018
624
441
386
Source
Module
CALC1LT.FOR
CALC1LT.FOR
CALC2LT.FOR
CALC1LT.FOR
CALC1LT.FOR
MESETLT . FOR
SOSETLT . FOR
SOSETLT . FOR
MESETLT . FOR
MESETLT . FOR
COSETLT . FOR
MESETLT . FOR
CALC2LT.FOR
SIGMASLT.FOR
PRISELT.FOR
PRISELT.FOR
RESETLT . FOR
INPSUMLT.FOR
OUTPUTLT . FOR
COSETLT . FOR
PRISELT.FOR
ISCLT2.FOR
CALC1LT.FOR
CALC2LT.FOR
SETUPLT.FOR
PRISELT.FOR
PRISELT.FOR
PRISELT.FOR
PRISELT.FOR
RESETLT. FOR
RESETLT. FOR
CALC2LT.FOR
SOSETLT. FOR
SOSETLT . FOR
SOSETLT. FOR
MESETLT. FOR
COSETLT. FOR
SOSETLT. FOR
COSETLT . FOR
CALC2LT.FOR
SOSETLT . FOR
SOSETLT. FOR
COSETLT. FOR
ISCLT2 . FOR
SETUPLT.FOR
SETUPLT.FOR
                              F-6

-------
Module
Name
FLAGDF
FLGHGT
FLUSH
FSPLIT
GENCAR
GENPOL
GETFLD
GLTMAX
GPRTLT
HEADER
HSPRIM
INIT
INPGAM
INPPHI
INPSUM
INPVSN
ISCLT2
ISSORT
LTAVE
LTCALC
LTMSA
LTOUT
LTPER
LTSMTH
LTSORT
LTXYP
LWRUPR
MECARD
MEOPEN
METDAT
METEXT
METFIL
METSET
MODOPT
MSGWRT
OUCARD
OUMXVL
OUPLOT
OURECP
PCALCL
PCCODE
PCHILT
PDEPLT
PDISLT
PERPLT
PHEFF
Type
S
S
S
S
S
S
S
S
S
S
F
D
S
S
S
S
P
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf T<
Stmts R
28
41
27
48
64
57
13
102
160
28
11
117
75
75
11
69
45
35
13
17
46
23
64
11
19
16
18
175
9
28
78
24
56
99
32
33
36
104
23
37
46
19
19
20
80
55
otal |
efrs j
1
2
1
6
1
1
1
1
1
42
2
0
1
1
1
1
0
1
1
2
1
2
1
4
2
1
1
1
1
2
5
1
2
1
1
1
1
1
1
1
1
2
2
1
1
1
jBeg
I Line
908
1376
1163
660
345
1015
289
695
290
465
75
869
1422
1309
1
1204
1
142
1
1
118
1
220
294
95
1
155
1
1418
211
1
261
117
305
802
1
122
198
69
47
357
625
686
501
372
359
End
Line
967
1449
1213
745
447
1107
327
865
538
553
110
1174
1533
1420
43
1307
116
210
42
45
218
54
355
335
140
41
198
259
1456
277
115
320
209
456
867
67
196
370
120
128
463
684
745
549
512
453
Source
Module
COSETLT . FOR
RESETLT . FOR
OUTPUTLT . FOR
SETUPLT . FOR
RESETLT . FOR
RESETLT. FOR
SETUPLT. FOR
OUTPUTLT . FOR
OUTPUTLT . FOR
ISCLT2.FOR
PRISELT.FOR
ISCLT2.FOR
SOSETLT . FOR
SOSETLT.FOR
INPSUMLT.FOR
SOSETLT . FOR
ISCLT2.FOR
CALC3LT.FOR
CALC3LT.FOR
CALC1LT.FOR
ISCLT2 . FOR
OUTPUTLT . FOR
ISCLT2 . FOR
CALC2LT.FOR
CALC3LT.FOR
SIGMASLT . FOR
SETUPLT . FOR
MESETLT . FOR
MESETLT . FOR
METEXTLT . FOR
METEXTLT.FOR
MESETLT . FOR
METEXTLT . FOR
COSETLT . FOR
ISCLT2 . FOR
OUSETLT. FOR
OUSETLT . FOR
OUSETLT . FOR
OUSETLT . FOR
CALC1LT.FOR
ISCLT2.FOR
CALC1LT.FOR
CALC1LT.FOR
CALC1LT.FOR
OUSETLT . FOR
CALC1LT.FOR
F-7

-------
Module
Name
PLOTFL
PLTANN
POLDST
POLLID
POLORG
PPARM
PRTMET
PRTOPT
PRTREC
PRTSRC
RADRNG
REGARD
RECART
REPOLR
RUNNOT
SBYVAL
SCSORT
SETCAR
SETIDG
SETORD
SETPOL
SETSRC
SETUP
SFDATA
SGSORT
SIGY
SIGZ
SINDEX
SLTMAX
SOCARD
SOGRP
SOLOCA
SOPARM
SPRTLT
SRCQA
STDATA
STONUM
SUMGRP
SUMTBL
SYENH
SZCOEF
SZDCAY
SZENH
TERHGT
TERRHT
TERRST
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf T
Stints R
21
23
39
17
46
41
71
167
218
217
44
107
115
134
19
26
21
70
60
29
73
44
66
43
35
34
22
17
91
112
54
61
72
149
52
143
77
16
59
49
203
18
18
47
21
35
otal !
.efrs
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
4
1
1
15
1
1
3
1
1
2
6
5
10
1
1
1
1
1
1
1
1
65
2
2
2
2
1
3
2
1
2
! i Beg
! j Line
1032
1097
943
646
862
491
1110
45
691
345
1109
1
172
666
860
1925
281
563
1669
443
1187
280
1
394
212
43
110
621
540
1
1535
276
377
56
173
556
503
44
699
395
163
702
516
1293
810
626
End
Line
1095
1161
1013
690
941
571
1228
343
1009
689
1185
170
343
860
906
1977
333
664
1765
501
1291
357
153
473
279
108
161
658
693
171
1624
375
489
288
274
744
619
93
800
514
393
744
574
1374
858
697
Source
Module
OUTPUTLT . FOR
OUTPUTLT . FOR
RESETLT.FOR
COSETLT . FOR
RESETLT . FOR
SOSETLT . FOR
INPSUMLT . FOR
INPSUMLT.FOR
INPSUMLT . FOR
INPSUMLT . FOR
RESETLT . FOR
RESETLT.FOR
RESETLT.FOR
RESETLT . FOR
COSETLT. FOR
RESETLT.FOR
CALC3LT.FOR
RESETLT.FOR
SOSETLT. FOR
SETUPLT.FOR
RESETLT.FOR
CALC1LT.FOR
SETUPLT.FOR
MESETLT . FOR
CALC3LT.FOR
SIGMASLT.FOR
SIGMASLT.FOR
SETUPLT.FOR
OUTPUTLT . FOR
SOSETLT . FOR
SOSETLT . FOR
SOSETLT . FOR
SOSETLT . FOR
OUTPUTLT . FOR
SOSETLT. FOR
MESETLT . FOR
SETUPLT.FOR
CALC3LT.FOR
ISCLT2.FOR
SIGMASLT.FOR
SIGMASLT.FOR
SIGMASLT.FOR
SIGMASLT.FOR
RESETLT.FOR
COSETLT . FOR
ISCLT2 . FOR
F-8

-------
Module
Name
TITLES
UADATA
VARINI
VCALCL
VDISLT
VERT
VERTDS
VERTSR
VHEFF
VPARM
WAKFLG
WDROTA
WSADJ
WSPROF
XVY
XVZ
XYDIST
XYPNTS
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf Tc
Stmts R«
17
43
135
32
10
67
41
73
14
36
56
19
17
49
16
41
14
74
>tal j
jfrs j
2
1
1
1
1
2
2
1
1
1
1
1
3
1
3
2
3
1
|Beg
jLine
264
475
747
130
551
411
630
514
455
573
154
746
62
795
576
622
246
449
End
Line
303
554
944
203
586
512
706
628
499
646
244
793
104
883
620
700
292
561
Source
Module
COSETLT.FOR
MESETLT . FOR
SETUPLT.FOR
CALC1LT.FOR
CALC1LT.FOR
CALC2LT.FOR
CALC2LT.FOR
CALC2LT.FOR
CALC1LT . FOR
SOSETLT . FOR
CALC2LT.FOR
MESETLT. FOR
CALC2LT.FOR
MESETLT. FOR
SIGMASLT.FOR
SIGMASLT . FOR
CALC2LT.FOR
RESETLT . FOR
F-9

-------
F.3 ISCEV2 MODEL
Module
Name
ACALC2
ACHI
ADEP
ADIS
ANEMHT
APARM
ASNGRP
AVEREV
AVETIM
BBAR
BID
BLPCB
BLPCM
CHKCLM
CHKMSG
COCARD
CUBIC
DATTIM
DAYRNG
DEBOUT
DECAY
DEFINE
DELH
DHPHS
DHPMOM
DHPSS
DISTF
DRYDEP
DSBLDG
DSFILL
DTHETA
EDECAY
EFFILL
EMFACT
EMUNIT
EMVARY
ERFAB
ERFX
ERRFIL
ERRHDL
EVCALC
EVCARD
EVLOC
EVLOOP
EVPER
Type
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
C
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
F
S
S
S
S
S
S
S
Signf r.
Stmts I
36
18
18
11
36
27
15
23
61
137
17
16
19
15
18
183
21
1
135
21
11
43
45
14
18
41
22
21
46
71
49
35
27
31
25
83
11
17
22
37
19
50
67
45
76
Dotal j
*efrs j
1
1
1
1
1
1
6
1
1
1
2
1
1
1
1
1
3
1
0
4
4
1
2
2
2
2
1
1
1
2
1
1
2
3
1
1
2
1
1
374
1
1
1
1
1
! !Beg
! j Line
212
790
850
618
222
648
1606
1
457
668
704
302
349
363
403
1
401
355
656
910
333
200
1
112
160
210
109
1133
709
792
991
607
1022
1
1078
900
836
876
835
553
1
1
217
118
87
End
Line
290
848
908
655
292
707
1647
55
559
834
750
347
399
401
442
261
457
355
850
986
368
287
73
158
208
300
155
1182
790
898
1080
674
1076
63
1131
1020
874
916
884
622
47
85
320
219
215
Source
Module
EVCALC1 . FOR
EVCALC 1 . FOR
EVCALC 1 . FOR
EVCALC 1 . FOR
EVMESET.FOR
EVSOSET.FOR
EVSOSET.FOR
EVOUTPUT.FOR
EVCOSET . FOR
EVCALC2 . FOR
EVSIGMAS . FOR
EVPRISE.FOR
EVPRISE.FOR
EVMETEXT . FOR
EVMETEXT.FOR
EVCOSET. FOR
EVPRISE.FOR
EVISCST2 . FOR
EVMESET . FOR
EVCALC 1. FOR
EVCALC2 . FOR
EVSETUP . FOR
EVPRISE.FOR
EVPRISE.FOR
EVPRISE.FOR
EVPRISE.FOR
EVCALC2 . FOR
EVSOSET.FOR
EVSOSET.FOR
EVSOSET . FOR
EVMESET . FOR
EVCOSET . FOR
EVSOSET.FOR
EVCALC2 . FOR
EVSOSET.FOR
EVSOSET.FOR
EVCALC2 . FOR
EVCALC 2 . FOR
EVCOSET. FOR
EVISCST2.FOR
EVCALC1 . FOR
EVEVSET . FOR
EVEVSET . FOR
EVISCST2.FOR
EVEVSET . FOR
                             F-10

-------
Module
Name
EXKEY
EXPATH
FLAGDF
FLUSH
FSPLIT
GETFLD
GREGOR
HEADER
HSPRIM
INIT
INPGAM
INPPHI
INPSUM
INPVSN
ISCEV2
JULIAN
LWRUPR
MECARD
MEOPEN
MEREAD
METCHK
METDAT
METDET
METEXT
METFIL
METQA
MODOPT
MSGWRT
OEVENT
OUCARD
OUTPUT
PCALC2
PCCODE
PCHI
PDEP
PDIS
PHEFF
POLLID
PPARM
PRTDET
PRTMET
PRTOPT
PRTSOC
PRTSRC
RUNNOT
Type
S
S
S
S
S
S
S
S
F
D
S
S
S
S
P
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
S
Signf T
Stints R
24
28
28
17
48
13
23
27
11
117
75
75
9
69
40
32
18
96
43
94
12
75
20
109
27
25
108
32
22
22
12
39
46
27
27
28
55
17
41
61
52
169
36
189
19
otal !
efrs j
1
1
1
1
9
1
1
19
2
0
1
1
1
1
0
9
1
1
1
1
1
4
1
1
1
1
1
1
1
1
1
1
1
2
2
1
1
1
1
1
1
1
1
1
1
|Beg
jLine
388
329
774
352
660
289
492
329
75
866
1402
1289
1
1184
1
418
155
1
1141
1
325
503
296
161
155
444
304
800
52
1
57
49
221
657
724
515
371
561
491
181
643
39
95
333
726
End
Line
441
386
833
395
745
327
551
416
110
1165
1513
1400
37
1287
116
490
198
153
1222
159
361
656
350
323
220
501
455
864
100
50
93
133
327
722
788
575
467
605
571
294
740
331
179
641
772
Source
Module
EVSETUP . FOR
EVSETUP . FOR
EVCOSET.FOR
EVOUTPUT . FOR
EVSETUP . FOR
EVSETUP . FOR
EVISCST2 . FOR
EVISCST2.FOR
EVPRISE.FOR
EVISCST2 . FOR
EVSOSET . FOR
EVSOSET.FOR
EVINPSUM.FOR
EVSOSET . FOR
EVISCST2 . FOR
EVISCST2 . FOR
EVSETUP . FOR
EVMESET . FOR
EVMESET . FOR
EVMETEXT . FOR
EVMETEXT . FOR
EVMETEXT . FOR
EVOUTPUT . FOR
EVMETEXT . FOR
EVMESET . FOR
EVMETEXT. FOR
EVCOSET . FOR
EVISCST2 . FOR
EVOUSET.FOR
EVOUSET . FOR
EVOUTPUT . FOR
EVCALC1 . FOR
EVISCST2 . FOR
EVCALC1.FOR
EVCALC1 . FOR
EVCALC1.FOR
EVCALC1.FOR
EVCOSET . FOR
EVSOSET.FOR
EVOUTPUT. FOR
EVINPSUM.FOR
EVINPSUM.FOR
EVOUTPUT o FOR
EVINPSUM.FOR
EVCOSET . FOR
F-ll

-------
Module
Name
SETIDG
SETORD
SETSRC
SETUP
SFDATA
SIGY
SIGZ
SINDEX
SOCARD
SOGRP
SOLOCA
SOPARM
SRCQA
STAEND
STODBL
STONUM
SUMTBL
SUMVAL
SYENH
SZCOEF
SZDCAY
SZENH
TERRHT
TERRST
TITLES
UADATA
VARINI
VCALC2
VDIS
VERT
VERTDS
VERTSR
VHEFF
VPARM
WAKFLG
WDROTA
WSADJ
WSCATS
WSPROF
XVY
XVZ
XYDIST
Type
s
s
s
S
S
S
S
S
S
S
S
S
S
S
S
S
S
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
Signf T
Stmts R
60
29
44
66
43
34
22
17
112
54
61
72
52
142
77
77
59
10
49
203
18
18
21
35
17
43
104
32
12
67
41
73
14
36
56
19
17
26
49
16
41
14
otal !
efrs !
15
1
3
1
1
10
5
9
1
1
1
1
1
0
1
61
2
3
2
2
1
3
1
2
2
1
1
1
1
2
2
1
1
1
1
1
3
1
1
4
2
3
! |Beg
| | Line
1649
443
292
1
294
1
68
621
1
1515
276
377
173
456
747
503
697
297
353
121
660
474
676
624
263
375
866
135
577
370
590
474
469
573
157
852
65
1082
901
534
580
249
End
Line
1745
501
369
153
373
66
119
658
171
1604
375
489
274
654
864
619
798
331
472
351
702
532
724
695
302
454
1007
210
616
472
666
588
513
646
247
899
107
1139
989
578
658
295
Source
Module
EVSOSET.FOR
EVSETUP.FOR
EVCALC1 . FOR
EVSETUP.FOR
EVMESET.FOR
EVSIGMAS . FOR
EVSIGMAS.FOR
EVSETUP.FOR
EVSOSET . FOR
EVSOSET . FOR
EVSOSET . FOR
EVSOSET . FOR
EVSOSET.FOR
EVMESET . FOR
EVSETUP.FOR
EVSETUP.FOR
EVISCST2.FOR
EVCALC2 . FOR
EVSIGMAS . FOR
EVSIGMAS . FOR
EVSIGMAS.FOR
EVSIGMAS . FOR
EVCOSET.FOR
EVISCST2.FOR
EVCOSET.FOR
EVMESET.FOR
EVSETUP.FOR
EVCALC1 . FOR
EVCALC1 . FOR
EVCALC2 . FOR
EVCALC2 . FOR
EVCALC2 . FOR
EVCALC1.FOR
EVSOSET.FOR
EVCALC2 . FOR
EVMESET . FOR
EVCALC2 . FOR
EVMESET.FOR
EVMESET.FOR
EVSIGMAS.FOR
EVSIGMAS.FOR
EVCALC2 . FOR
F-12

-------

-------
                             INDEX

Command line for ISCST2 model	3-26
COMMON blocks
     for ISCEV2 model	C-10
     for ISCLT2 model	C-6
     for ISCST2 model	C-l
Compiling options
     Lahey	3-11
     Microsoft	3-4

Data dictionary
     logical control variables  	 D-8
     meteorological parameters  	 D-5
     PARAMETER constants  	 D-6
     receptor parameters  	 D-4
     results arrays 	  D-13
     source parameters  	 D-l
     storage limits 	 D-7
Data structures
     description of array indexes 	  4-11
     ISCEV2 results arrays  	  D-15
     ISCLT2 results arrays  	  D-14
     ISCST2 results arrays  	  D-13
     overview of ISC2	4-11
DOS
     limits for DOS versions of models	3-7
DOS redirection	3-26

Error handling capabilities 	  4-13
Error messages
     detailed listing of messages 	 E-l
Error/message file	3-21
Extended memory 	  3-21
     desciption of EM versions	3-10
     limits for extended memory versions  	 3-7

File I/O	3-16
File units	3-14, 3-17
Fortran language extensions used	3-2
     converting to strict F77 code	3-3
Fortran-90 language features considered 	 3-3

Goals of the ISC2 reprogramming effort  	 ..... 2-4

History of the ISC code	 2-2

Input meteorological data files	3-18
Input runstream file	3-17

Linking the models	3-6
     using memory overlays	3-6
                            INDEX-1

-------
Loop structure
     for ISCEV2	4-3
     for ISCLT2	4-3
     for ISCST2 	 ........ 4-1

Module heirarchy
     for calculation modules	0 . 4-8, 4-10
     overview of ISC2	4-4

Parameters
     used for controlling array limits	3-7, C-l, D-7
     used for storing model constants 	 D-6
Plotting files  	  3-24
Postprocessing files  	  3-23
Printed output file	  3-19

Quality assurance plan	 .  .  . 2-9

Re-start capability
     file descriptions  .	3-18, 3-21
Runstream file
     description of	  3-17
     Fortran unit number	  3-17
     use of DOS redirection with	3-18, 3-26

Source code
     cross reference list of ISCEV2 modules	F-10
     cross reference list of ISCLT2 modules	F-6
     cross reference list of ISCST2 modules	F-2
     description of PC-specific features   	 3-1, 3-26
     description of source modules  	 3-5
     implementing PC-specific features  	 3-5, 3-11
     portability to other systems 	  3-27
Storage limits	3-7
     modifying the storage limits 	 3-7

Threshold violation files 	  3-22
                            INDEX-2

-------
                                     TECHNICAL REPORT DATA
                             (Please read Instructions on [he reverse before completing}
  REPORT NO.
I
                               2.
                                                               3. RECIPIENT'S ACCESSION NO
4. TITLE AND SUBTITLE
                                                               5. REPORT DATE
    User's Guide for the Industrial  Source Complex  (ISC2)
    Dispersion Models, Volume III  -  Guide to Programmers
           6.
                                   CODE
7. AUTHOR(S)
                                                              8. PERFORMING ORGANIZATION REPORT NO
9. PERFORMING ORGANIZATION NAME AND ADDRESS
   Pacific Environmental  Services, Inc.
   3708 Mayfair  Street, Suite 202
   Durham, NC  27707
                                                               10. PROGRAM ELEMENT NO.
           11  CONTRACT/GRANT NO
12. SPONSORING AGENCY NAME AND ADDRESS
   Source Receptor Analysis Branch
   Technical Support  Division
   U.S. Environmental  Protection Agency
   Research Triangle  Park,  NC 27711
                                                               13. TYPE OF REPORT AND PERIOD COVERED
           14. SPONSORING AGENCY CODE
15. SUPPLEMENTARY NOTES
16. ABSTRACT
   This volume of the User's Guide for the Industrial  Source Complex  (ISC2)  Dispersion
   Models (Version 2) provides  a  description of the  structure of the  ISC2  model  code  and
   serves as a guide to programmers involved with  installing the ISC2 code on other '
   f£st??iU  A!S? lncluded in this volume is information  relevant to future  maintenance of
   the  ISC2 models.   The ISC2 User's  Guide has been  developed as part of a larqer effort
  •to restructure and reprogram the original  ISC models,  and to improve the  "end-user"
   documentation for the models.   Volume  II of the ISC2 User's Guide provides a  technical
   description of the dispersion  algorithms utilized in the ISC2  models   Volume III
   provides a guide  to programmers, including a description of the structure of  the
   computer code and information  about  installing and maintaining the code on various
   computer systems.                                                                    *
17.
                                 KEY WORDS AND DOCUMENT ANALYSIS
                   DESCRIPTORS
                                                b.IDENTIFIERS/OPEN ENDED TERMS
                                                                               COSATi Fie:U, Grouc
  Air Pollution
  Turbulent Diffusion
  Meteorology
  Mathematical models
  Computer model
Industrial  Sources
Deposition
Downwash
Dispersion
18. DISTRIBUTION STATEMENT

  Release Unlimited
                                                19. SECURITY CLASS iTlns Repiirr)
                                                                             21 NO. OF
                                                20.
                                                                             22. PRI
                                                                                  CE150
    Form 2220-1 (R«v. 4-77)   PREVIOUS EDITION is OBSOLETE

-------