SPOKANE RIVER BASIN MODEL PROJECT
Volume VI - User's Manual for Stratified Reservoir Model
by
John L. Shepherd
E. John Finnemore, Ph.D.
Systems Control, Inc., Palo Alto, California
for the
ENVIRONMENTAL PROTECTION AGENCY
Contract No. 68-01-0756
October 1974
-------
SPOKANE RIVER BASIN MODEL PROJECT
Volume VI - User's Manual for Stratified Reservoir Model
by
John L. Shepherd
E. John Finnemore, Ph.D.
Systems Control, Inc., Palo Alto, California
for the
ENVIRONMENTAL PROTECTION AGENCY
Contract No. 68-01-0756
October 1974
-------
EPA Review Notice
This report has been reviewed by the Environmental Protection Agency
and approved for publication. Approval does not signify that the
contents necessarily reflect the views and policies of the Environ-
mental Protection Agency, nor does mention of trade names of commercial
products constitute endorsement or recommendation for use.
ii
-------
ABSTRACT
Three existing mathematical models, capable of representing water quality
in rivers and lakes, have been modified and adapted to the Spokane River
Basin in Washington and Idaho. The resulting models were named the Steady-
state Stream Model, the Dynamic Stream Model, and the Stratified Reservoir
Model. They are'capable of predicting water quality levels resulting from
alternative basinwide wastewater management schemes, and are designed to
assist EPA, State, and local planning organizations to evaluate water qual-
ity management strategies and to establish priorities and schedules for
investments in'abatement facilities in the basin.
Physical data and historical hydrologic, water quality and meteorologic
data were collected, assessed and used for the model calibrations and
verifications.
The modified models are all capable of simulating the behavior of various
subsets of up to sixteen different water quality constituents. Sensitivity
analyses were conducted with all three models to determine the relative
importance of a number of individual model parameters.
The models were provided to the EPA as computer source card decks in
FORTRAN IV language, with accompanying data decks. All development work
on, and applications made with, these models were fully documented so as
to permit their easy utilization and duplication of historical simulations
by other potential users. A user's manual with a complete program listing
was prepared for each model.
This report was submitted in fulfillment of Contract No. 68-01-0756 under
the sponsorship of the Environmental Protection Agency.
The titles and identifying numbers of the final report volumes are:
Title EPA Report No.
SPOKANE RIVER BASIN MODEL PROJECT DOC /74
Volume I - Final Report
SPOKANE RIVER BASIN MODEL PROJECT ' DOC /74
Volume II - Data Report
SPOKANE RIVER BASIN MODEL PROJECT DOC /74
Volume III - Verification Report
SPOKANE RIVER BASIN MODEL PROJECT DOC /74
Volume IV - User's Manual for Steady-state Stream Model
SPOKANE RIVER BASIN MODEL PROJECT DOC /74
Volume V - User's Manual for Dynamic Stream Model
SPOKANE RIVER BASIN MODEL PROJECT DOC /74
Volume VI - User's Manual for Stratified Reservoir Model
iii
-------
CONTENTS
SECTION ' PAGE
I. INTRODUCTION ........... ' ........... 1
II. MODE OF OPERATION .................. 3
III. WATER BALANCE PROGRAM ................ 5
Description of Subroutine BAL .......... 5
IV. METEOROLOGIC DATA PROCESSING PROGRAM ......... 9
Introduction .................. 9
Description of Subroutine SUBA ......... 9
Description of Subroutine SUBB2 ......... 9
V. RESERVOIR SIMULATION PROGRAM
Introduction .................. n
Description of Subroutine SUBB ......... 12
Description of Subroutine QPRINT ........ 15
Description of Subroutine NEWIN ......... 15
Description of Subroutine SETOPT ........ 17
Description of Subroutine FILL ......... 17
Description of Subroutine SUBC ......... 21
Description of Subroutine LAKCON ........ 23
Description of Subroutine GETAVI ........ 31
Description of Subroutine SUN .......... 31
Description of Subroutine GETCON ........ 34
Description of Subroutine SUED ......... ' 41
Description of Subroutine SUBE ......... 41
Description of Function BETA .......... 41
Description of Subroutine SUBG ......... 41
Description of Subroutine SUBH ...... . . . 41
VI. INPUT REQUIREMENTS .................. 43
VII. OUTPUT DESCRIPTION ............. • ..... 71
VIII. DEFINITION OF COMMON VARIABLES ............ 73
v
-------
SECTION PAGE
IX. SAMPLE INPUT DECK 79
X. SAMPLE OUTPUT 85
XI. PROGRAM LISTING 127
XII. REFERENCES • 177
XIII. ABBREVIATIONS !79
vi
-------
FIGURES
NO. PAGE
I
1 Flowchart - Subroutine SUBB , _
2 Flowchart - Subroutine NEWIN 16
3 Flowchart - Subroutine FILL 19
4 Flowchart - Subroutine SUBC 22
5 Flowchart - Subroutine LAKCON 24
6 Flowchart - Subroutine GETAVI 31
7 Assumed Daylight Intensity Distribution. ... 32
8 Flowchart - Subroutine SUN 32
9 Flowchart - Subroutine GETCON 35
Vll
-------
TABLES
NO. PAGE
i
1. Local Program Variables of Subroutine BAL .... 7
2. Local Program Variables of Subroutine SUBB. ... 14
3. Local Program Variables of Subroutine NEWIN ... ig
4. Local Program Variables of Subroutine FILL. ... 20
5. Local Program Variables of Subroutine LAKCON. . . 30
6. Local Program Variables of. Subroutine GETAVI. . . 33
7. Local Program Variables of Subroutine SUN .... 34
8. Local Program Variables of Subroutine GETCON. . . 40
9. Surface Elevation and Inflow Temperature
Input Card Data 44
10. Meteorologic Input Card Data 47
11. Parameter Identification Codes for Meteorologic
Input Data 50
12. Lake Input Card Data 52
13. Definition of Constituent Selection Option, ICOMB 69
14. Description of Common Variables 73
15. Example Input Data Deck 80
16. Example Output 86
viii
-------
SECTION I
INTRODUCTION
This document is a supplement to Reference [3]. The Stratefied Model
(LAKSCI), documented herein, is an extensive modification of the Deep
Reservoir Model (DRM) described in References [1-5], and is one of three
water quality simulation programs developed by Systems Control, Inc.
(SCI) for use on the Spokane River Basin in the States of Washington
and Idaho.
The three original separate programs comprising DRM (BAL, CEMIFP, and
CETSIP) have been combined into a single program named LAKSCI and
generalized. Subroutines which are unchanged or only slightly modified
include BETA, CURVE, PINE, PPLOT, SCALE, SUBA, SUBB, SUBB2, (formerly
SUBB of CEMIFP), SUED, SUBE, SUBG, and SUBH. Subroutines BAL, QPRINT
and SUBC have been extensively modified. Seven newly added subroutines
are named FILL, GETAVI, GETCON, LAKCON, NEWIN, SETOPT, and SUN. The
resulting modifications have given LAKSCI the capability of simultaneous-
ly modeling the concentrations of as many as sixteen inter-related water
quality constituents in a stratified reservoir. All capabilities of DRM
have been retained.
The mathematical procedures used in the thermal and hydrodynamic simula-
tion are described in References [1] and [3]. The algorithms used to
model the quality constituents are explained in detail in Volume I (Part
III) of this report. The changes to DRM as described on pages 51-53 of
Reference [5] are included in LAKSCI.
The format of this users manual is generally consistent with the format
of Reference [3], subject to the constraints imposed by EPA documentation
specifications.
LAKSCI has been applied to Coeur d'Alene Lake and Long Lake (and to the
Spokane River Arm of FDR lake in modified form) and has been executed on
both the UNIVAC 1108 and the IBM 370/155 systems.
-------
SECTION II
MODE OF OPERATION
The new Stratified Reservoir Model (LAKSCI) described herein may be
divided into three logical parts. These parts are:
Part I - Water Balance Program (Subroutine BAL)
This subroutine (previously referred to as the BAL program) calculates
a time history of the lake surface elevation as a function of lake in-
flow and outflow. It outputs the surface elevation, lake inflow, lake
outflow, and lake inflow temperature for use by Part III. Input to BAL
is lake inflow, lake inflow temperature, lake outflow, and lake coef-
ficients. It is described in more detail in Section III.
Part II - Meteorologic Data Processing (Subroutines SUBA, SUBB2)
These subroutines (previously referred to as the CEMIF program) accept
up to seven meteorologic parameters as input, convert them to appropriate
units, and output them for use by Part III. They are referenced in
Section IV.
PART III - Reservoir Simulation (Subroutine SUBB, NEWIN, and SUBC)
These subroutines, and the routines which they call, (together previously
referred to as the CETSIP program) read in all required input from cards
and from the data files written by Parts I and II and simulate both the
hydrodynamic and quality behavior of the lake or reservoir over the time
period of interest. Detailed descriptions of the numerous subroutines
are provided in Section V.
An execution of LAKSCI consists of successive calls to BAL, SUBA, SUBB2,
SUBB, NEWIN, and SUBC.
-------
SECTION III
WATER BALANCE PROGRAM
DESCRIPTION OF SUBROUTINE BAL
Subroutine BAL calculates the daily variation in the lake surface
elevation as a function of lake inflow, lake outflow, and the lake
coefficients C, , C_, and C~. Previously this was a separate program,
but in this project is has been combined into the new overall LAKSCI
program. The required input is described in Table 9.
Subroutine BAL is called from the main program and makes a standard
return. It calls subroutine FILL to interpolate input values if
required and is entered only once during program execution. The daily
lake surface elevation is calculated in the following manner.
The lake coefficients C.. , C_, and C_ are defined by
2 3
C d^ C dJ
V(d) = C-jd + -~— + -—-
A(d) = C± + C2d + C3d2
where
V(d) = volume of lake in acre feet (d is depth in feet)
A(d) = surface area of lake in acres
For each day being simulated Q , QnnTs and T are read in where
Q is lake inflow in CFS, Q ^ is lake outflow in CFS, and T is
the inflow temperature in centrigrade degrees. Q is adjusted by
where
f and Q = input
O
The lake volume on day J + 1 is calculated from the volume on day J
by
VJ 4-
-------
where
V = volume on day i (acre feet)
fac = 86400/43560 and changes CFS to daily volume in acre feet
The surface elevation on day J + 1 is calculated from the elevation
on day J by the following iterative technique.
Z. , . = X, + (V, . , -
J + 1 1 j + 1
where
Z = surface elevation on day i (feet)
A = surface area on day i (acres)
If Z.,.. differs from Z. by more than .005 feet, X- is set equal
to Z - and the process is repeated. A maximum of ten iterations is
allowed. When Z _ has been determined the "error" term V - - V(Z "
is calculated and stored for output. The number of iterations required
is also stored for output. When all days in the simulation period have
been considered, BAL writes the surface elevation (referenced to sea
level), QT, QniIT> and T out on tape or disk for use by LAKSCI. A
summary is also output on the printer (see Table 16).
The local program variables in subroutine BAL are defined in Table 1.
They are all undimensioned.
-------
TABLE 1.
LOCAL PROGRAM VARIABLES OF SUBROUTINE BAL
Variable
Name
Description
BOTEL
FACIN
GWFLOW
RSELI
TA
Lake bottom elevation above sea level (feet)
Factor applied to inflow
Bias added to inflow (cfs)
Initial surface elevation above lake bottom (feet)
Conversion factor
-------
SECTION IV
METEOROLOGIC DATA PROCESSING
INTRODUCTION
Previously the subroutines described in this section comprised a
separate program, CEMIFP. In this project they have been combined to-
gether to form Part II of the new overall LAKSCI program.
DESCRIPTION OF SUBROUTINE SUBA
A description of subroutine SUBA may be found on pages 13-14 of
Reference [3], This subroutine reads in the basic meteorologic input
data and makes the required unit conversions. See Tables 10 and 11
for a description of the required input parameters and units,
DESCRIPTION OF SUBROUTINE SUBB2
This subroutine is described on pages 15-21 of Reference [3] under the
title of subroutine SUBB. The subroutine was renamed SUBB2 in LAKSCI
since the reservoir simulation portion of LAKSCI has a different sub-
routine named SUBB. Subroutine SUBB2 calculates the various meteor-
ological parameters needed by the reservoir simulation portion of
LAKSCI and also calculates the equilibrium temperature at the water
surface. A summary of the meteorological parameters employed is output
on the printer (see Table 16).
-------
SECTION V
RESERVOIR SIMULATION PROGRAM
INTRODUCTION
This third part of the new overall LAKSCI program previously comprised
a separate program, CETSIP (Corps of Engineers Thermally Stratified
Impoundment Program). In its new modified form, it simulates the
thermal conditions and the quality constituent conditions in a lake or
reservoir. Hydrologic and meteorologic data, as prepared by subroutines
BAL, SUBA, and SUBB2, is used together with card input to model the
conditions over the required simulation period. The maximum period
which may be simulated is 365 days. The minimum time step allowed is
one hour. A maximum of one lake inflow is allowed, and the lake must
be conceptualized into 100 or less horizontal layers or elements.
This part of LAKSCI simulates the thermal behavior of an impoundment
using a forward stepping integration scheme on a set of differential
equations. Time is the independent variable and the accuracy of the
results is dependent on the length of the time step employed. With all
other parameters held constant, it can be stated that the shorter the
time step the more accurate the results. This statement is always true,
but many factors other than the length of the time step are important
to the overall accuracy of the simulation. Some information on the
selection of the time step and other items of importance are given be-
low. The sensitivity of LAKSCI to time step size and other parameters
is described in Volume I (Part V) of this report.
The following statements concerning the operation of LAKSCI can be made
at the outset. First, LAKSCI should never be run using time steps of
longer than a day's duration. A great deal of trouble will be avoided
if this suggestion is followed, even though technically the model will
work on longer periods. Secondly, LAKSCI cannot be expected to produce
temporal response characteristics which have more detail than the
observation interval for input data. What this means, of course, is
that if one wishes to investigate a particular aspect of a reservoir's
response, the input data pertinent to that investigation will need to
be supplied in at least as much detail as the shortest time period of
interest. Daily values for daily response, hourly values for hourly
response, etc. Finally, LAKSCI should never be run using more than 24
intervals per day. Again, the model is technically capable of doing
this, but such a practice is strongly discouraged.
Within the limits suggested above, the maximum time step allowed is
largely determined by the ratio of the volume of an element to the volume
of flow which is advected into or out of any element during any time step.
This ratio is defined as the advection ratio (R ), and is critical to
the model's operation. In no case should the R exceed unity and
values on the order of 0.5 and less are most satxsfactory. The magnitude
of the error in the model's results will be proportional to the amount
11
-------
and frequency of the violation of this criteria, and no simulation should
be accepted for which violations occur with regularity. Experience has
shown that an occasional violation is often not critical to the model's
output, but one must remain alert to advection's role in the simulation.
The advection ratios for vertical advection (VAR) and horizontal advec-
tion (HAR) are shown on LAKSCl's printed output, and the sum of these
components indicates the total, R .
3.
i
If violations in the R criteria occur, two courses of action are open,
both of which can be accomplished by card input to LAKSCI. First, more
execution intervals per day can be specified. This results in a shorter
time step, but.will increase the program's running time on the computer.
Secondly, the volume of segment elements can be enlarged by an increase
in vertical element size. This will result in larger elements, with a
corresponding decrease in computer time; this also results in a decrease
in vertical detail. The user's experience and requirements will dictate
the optimum selection of time step and element size.
Description of the subroutines which, comprise the reservoir simulation
portion of LAKSCI follow. The group of subroutines which produces the
plots of temperature versus depth is not documented in this report.
This group consists of the following subroutines: CURVE, PINE, PPLOT,
and SCALE.
DESCRIPTION OF SUBROUTINE SUBB
Subroutine SUBB flowcharted in Figure 1 is called by the main program to
initialize variables and to read in the data necessary for the hydro-
logic and thermal simulation of the reservoir. The data files written
by subroutines BAL and SUBB2 are read in and stored and the inputs
described on cards 1-11 of the Lake Data input (see Table 12) are read
and processed. The area and volume profiles of the reservoir are
generated and stored as is the initial temperature profile. When the
input processing is finished, subroutine SUBB prints out a summary and
returns control to the main program which then calls subroutine NEWIN to
read in all relevant quality data. Subroutine SUBB has a second entry
point, namely PRNT. This portion of the code prints out the hydrologic
and thermal summary for a given day and calls QPRINT to print out the
quality conditions and CURVE to plot the temperature profile for that
day.
SUBB is called once from the main program and calls subroutine SUBG if
interpolation is required to generate the initial temperature profile.
PRNT is called as needed by subroutine SUBC and calls QPRINT and CURVE
to assist it in printing out the daily summary. The volume and area
profiles are generated from
V = C±Z + (C2/2)Z2 + (C3/3)Z3
A = Cl+ C2Z + C3Z2
12
-------
ENTRY
• INITIALIZE
SYSTEM CO:iSTAIITS
AND PARAMETERS
READ
TEMPORAL
LIMITS >
READ FROM
INPUT
FILE
STORE
METOROLOGIC
DATA
READ FROM
INPUT
FILE
\READ & URITE/
\ RUN /
PARAMETERS/
EAD & WRITE/
OUTLET /
POSITIONS/
INITIALIZE
SELECTED
ARRAYS
GENERATE
ELEVATION,
AREA. AND
VOLUME PROFILES
fiPUT INITIAL
TEMPERATURE/
POINTS /
\
CALL SUBG
\INPUT DAYS
VOR PRINTED/
\OUTFUT
c
LOG
ATE .
uTFLOHS
IN PROFILE
FIGURE 1. FLOWCHART - SUBROUTINE SUBB
OUTPUT
STATUS
RETURN
("ENTRY PRNT)
CONVERT TO
•F X CCX?UTE
ADVECHO:; RATIOS
WRITE
^SIMULATION
OUTPUT /
CALL QPRINT\
CALL CURVE
A
/
-------
where
3
V. = volume of lake below and including element j (m )
2
A. = lower surface area of element j (m )
C-, C_, C_ are input coefficients
i
The local program variables in subroutine SUBB are defined in Table 2,
They are all undimensioned.
TABLE 2.
LOCAL PROGRAM VARIABLES OF SUBROUTINE SUBB
Variable Description
Name
ELMAX Maximum possible lake surface elevation
(meters above bottom)
IQ Temporary loop limit
i
IB Temporary Loop limit
1C Temporary loop limit
IEND Upper value of print loop limit
IGO Lower value of print loop limit
IYR Meteorologic data year
MAX Temporary loop limit
Other local variables may be found on page 36 of Reference [3]
14
-------
DESCRIPTION OF SUBROUTINE QPRINT
Subroutine QPRINT is called to print out the current concentrations of
the constituents being modeled. The concentrations of all constituents
in each layer of the lake are output. QPRINT is called by PRNT and
calls no subroutines.
DESCRIPTION OF SUBROUTINE NEWIN
I
Subroutine NEWIN flowcharted in Figure 2, reads in the various quality
related parameters defined on cards 12-27 of the Lake Input Data (see
Table 12). SETOPT is called to set various internal logic flags based
on the input values of various options. A summary of the input quality
data is printed out and a check is made to insure that the BOD nitrogen
exceeds the algal nitrogen in each lake element.
Subroutine NEWIN is called once from the main program and calls sub-
routine SETOPT to set internal flags. Subroutine FILL is called to fill
in quantities which are not input by interpolation between values which
are input. The BOD nitrogen and algal nitrogen in a lake layer are
calculated as follows.
BOD weight
BODWT = BODC « 12/BODPC
where
\
BODC = carbon to phosphorus ratio in BOD material
BODPC= dry weight fraction of carbon in BOD material
BOD nitrogen weight ratio
BODNWR = BODN • 14/BODWT
where
BODN = nitrogen to phosphorus ratio in BOD material
BOD phosphorus weight ratio
BODPWR = 32./BODWT
BOD nitrogen
BODNX = C_nr. • BODNWR/BODOQ
B01)
15
-------
/ CALL FILL \
( CALL FILL \
CALL SETOPT
P.t.Ml
MWKIiS.
Ff.ClWS,
^ E1C.
WRIT;;
SUWARY
1
r
CHECK BOU-K
AND ftLf-AE-N
FIGURE 2. FLOWCHART - SUBROUTINE NEWIN
16
-------
where
CL-_. = BOD concentration
BOJJ
BODOQ= BOD oxygen quotient
Algae Nitrogen
ALGN =» c • BODNWR/CAPR • BODPWR)
A
where
C = algae concentration
APR = algae to phosphorus ratio
The local program variables in Subroutine NEWIN are defined in Table 3.
They are all undimensioned.
DESCRIPTION OF SUBROUTINE SETOPT
Subroutine SETOPT is called to set various internal logic flags based on
the input values of various options. A summary of the constituents being
modeled is output. SETOPT is called by subroutine NEWIN and calls no
subroutines.
DESCRIPTION OF SUBROUTINE FILL
i
Subroutine FILL, flowcharted in Figure 3, is called by subroutines BAL
and NEWIN and fills in the values of specified entries in an array by
interpolation between adjacent array values. The parameters passed to
FILL are the array to be filled, the length of the array, and a check
value. Subroutine FILL replaces any array location which contains the
check value in the following manner.
A - (dR - dM)/(K - M)
where
d . = the j entry of the data array and the values between dM
^ and d are to be filled in
d
where
M _< £ _< K - 2
The local program variables in subroutine FILL are defined in Table 4.
They are all undimensioned.
17
-------
TABLE 3.
LOCAL PROGRAM VARIABLES OF SUBROUTINE NEWIN
Variable
Name
Description
ALGN
BODNWR
BODNX
BODPWR
CFSQ
CMSCFS
E1106
E2106
XLATD
Algal nitrogen in a lake layer (rag)
BOD nitrogen weight ratio
BOD nitrogen in a lake layer (mg)
BOD phosphorus weight ratio
Inflow in CFS
o
M /sec to CFS conversion factor
Diffusion coefficient El for printout
Diffusion coefficient E2 for printout
Latitude in degrees for printout
18
-------
HAS
END OF
ARRAY
BEEN
REACHED
FIND NEXT
GROUP OF SPACES
TO BE FILLED
I
CALCULATE A
AND FILL IN
THE VALUES
FIGURE 3. FLOWCHART - SUBROUTINE FILL
19
-------
.TABLE 4.
LOCAL PROGRAM VARIABLES OF SUBROUTINE FILL
Variable
Name
Description
DEL
MM1
N
NLO
WORD
Data increment
Upper loop limit for filling in values
Array length
Lower loop limit for filling in values
Check word
20
-------
DESCRIPTION OF SUBROUTINE SUBC
Subroutine SUBC, flowcharted in Figure 4, is the heart of the thermal
calculation procedures for LAKSCI. It also calls subroutine LAKCON,
which is the driver for the calculations involving the quality
constituents. In the course of execution, SUBC simulates the thermal
behavior of a reservoir by forming and solving a set of simultaneous,
linear equations. These equations provide a forward, stepwise, integra-
tion of the differential equations which have been derived to describe
the thermal processes within the system. The steps associated with the
formulation and solution of these equations are presented in Reference [1]
and will not be covered in detail here. In brief, however, the procedure
forms a set of equations which provide a heat balance for each horizontal
element within the reservoir. A linear rate of change of the rate of
temperature change is assumed, and the temperature of each element is
projected forward to the end of a simulation time step by a solution for
the equations. The forward projection always takes place from some known
condition and the most recently determined temperature automatically be-
comes the starting point for the next projection.
In the simulation scheme employed, all heat transfer is considered to be
some component of one of the five following transfer mechanisms:
(a) eddy diffusion;
(b) horizontally advected flow;
(c) vertically advected flow;
(d) short wave solar radiation;
(e) air-water interface heat transfer >
The contribution of each of these processes is calculated for each
element, and the procedure moved forward in time using constantly updated
values for inflow, outflow and meteorological conditions. In the simula-
tion process one day is considered the basic time unit for hydrologic in-
put. Meteorological data may be input to represent periods as short as
one hour or as long as one day. The number of simulation intervals per
day, which determines the length of the time step, is specified on input
and need not correspond to the interval of meteorologic data observation.
Changes in reservoir water surface are accounted for only once per day,
and data on reservoir inflow and outflow are assumed to be available as
average daily values.
Finally, if the solution to the basic heat equations results in a
temperature (density) profile which is considered to be physically
unstable, the code will commence a reservoir mixing process until a
stable profile is achieved. The value of the temperature (density)
gradient which will be considered as stable is an input variable.
When the stable thermal profile has been achieved for a given time step,
i.e., when the mixed zone of the reservoir has been determined, the
concentrations of the quality constituents being modeled are adjusted
appropriately in the mixed zone and subroutine LAKCON is called to
calculate the concentration changes occuring during the time step. If
21
-------
ENTRY
4 1 V ' V
CALCULATE
CERTAI; MISC.
QUANTITIES
LOCATE THE
THERMOCLINE
CALCULATE
RATE OF
SURFACE
EHERSY 1,-iPUT
INFIAL
CUTPIT TAPE
WRITE
BEGIN DAILY i.e."-.,
CALCULATE
SURFACE
ELE-;O:T
PROPERTIES
BEGIN EXECjTICK IOC?.
CALCULATE
DIFFUSION
COEFFICIENT
FCRM
SOLUTION
MATRICES
/ CALL S'JBH \
CALCULATE
OUTFLOW
CONCENTRATIONS
LOOPS ' r:u;;T siM-y.r.y
0!; O'JTI-'LOVI
CO:;CK:;TILVJ-IOXS
1
SOLVE FOR
FINAL
TEMPERATURE
/CALL SUBD \ / CALL SUBE \
SMOOTH
PROFILE
CALCULATE
DENSITY
PROFILE
CALCULATE
RATE OF SOLAR
ENERGY INPUT
"? V
MIX RESERVOIR
IF UNSTABLE
CALC! LATE
OUTFLO'J
TF.MPLRATURE
/CALL LArCCOlA
/ CALL PR.f-iT \
C RETURN }
FIGURE
FLOWCHART - SUBROUTINE SUBC
-------
the end of the time step corresponds to the end of a day, the concentra-
tions of the constituents in the reservoir outflow are calculated and
stored.
Subroutine SUBC is called from subroutine SUBB once. In the course of
execution, SUBC calls SUED, SUBH, SUBE and LAKCON at least once per
simulation day. More than one call may be made depending on the length
of the time step and the number of meteorologic observations; SUBC calls
ENTRY PRNT in SUBB under the control of program input variables to print
the simulation output at requested intervals. All program variables
employed by SUBC are passed through labeled COMMON.
Important formulae and local variables used by SUBC may be found on
pages 40-43 of Reference [3].
DESCRIPTION OF SUBROUTINE LAKCON
Subroutine LAKCON, flowcharted in Figure 5, with the help of subroutine
GETCON, calculates the changes in constituent concentrations which occur
in the elements of a reservoir during a time interval At. The inputs
to LAKCON include the horizontal flows into and out of each element
during At and the concentrations of the constituents in each element
at the beginning of At. Also input are the temperature profile during
At, diffusion coefficients for both above and below the thermocline,
concentrations of the horizontal inflows (i.e., the reservoir inflow),
reservoir volume and area profiles, and the reservoir extinction
coefficient.
*
LAKCON first calculates the vertical flows into and out of each element
as a function of the horizontal flows into and out of each element. The
thermocline is then located by examination of the temperature profile and
the changes in concentration between the elements due to diffusion are
calculated. LAKCON next calculates the concentration changes due to mass
transfer into and out of each element. These mass transfers are the
result of the vertical and horizontal flows into and out of each element.
The concentrations of all elements are updated with the above changes and
if algae or NO^-N is being modeled, subroutine GETAVI is called to
calculate light intensity at the reservoir surface and the percent of At
during which it is daylight. The following procedure is then followed
for each element, starting with the top element and working down.
The area of the lake bottom for the element is calculated. If algae is
being specifically modeled the light intensity for the element is
calculated from the element depth and the light intensity on the reservoir
surface. If algae is not being modeled specifically and NO -N is being
modeled and also the element being considered is the surface element,
then the extinction depth, i.e., the depth where 99% of the surface light
has been absorbed, is calculated. The average NO«-N concentration, the
average NO.-N reaction rate, and the average temperature are then
determined for this euphotic zone. The light intensity for each euphotic
element is also calculated and saved and the total NO«-N concentration
23
-------
BEGIN LOOP OH ELEMENTS
S
THIS
THE FIRST
HUE I|J
AKCON
IS
THIS THE
SURFACE
ELEMENT
( RETURN )
FIGURE 5. FLOWCHART - SUBROUTINE LAKCON
24
-------
change for the euphotic zone is determined and stored. From these
quantities the change in NO--N concentration for each element in the
euphotic zone may be determined. These changes represent NO_-N
consumption by algae which is why they are calculated only if algae is not
being modeled specifically. Having thus determined the NO_-N concentra-
tion change due to algal consumption, LAKCON then calls subroutine GETCON
to calculate concentration changes due to growth, decay, settling,
reaeration, benthal releases and absorptions, and volitization during
At (reaeration and volitization occur only in the surface element). The
concentrations are then updated with these changes and when all elements
have been processed, control is returned.to subroutine SUBC.
LAKCON is called once per integration step by subroutine SUBC. LAKCON
calls subroutine GETAVI if algae or NO«-N is being modeled. Subroutine
GETCON is always called. The following quantities are calculated by
LAKCON.
Flow Balance For Each Element Except the Surface Element
HT + VT = H + V
II oo
where
H = horizontal flow in (cms)
V = vertical flow in (cms)
H = horizontal flow out (cms) ,
V = vertical flow out (cms)
Thermocline Element
TE = max ((Ti+1) - T±)/Z
where
T. = temperature of element i (°C)
Z = thickness of element (m)
Diffusion Between Element n and Element n+1 for a Constituent
c - c j.i
An. = 2 E A .n . ,n+1 At
JD n d + d ...
n n+1
25
-------
where
3
AHL = mass rising from element n to element n+1 (m mg/L)
E = diffusion coefficient (depends-on location of element n with
respect to the thermocline) (m /sec)
2
A = interface area between elements (m )
I
C. = concentration of constituent in element j (mg/L)
d. = thickness of element 1 (m)
AC = - Am/V
n I) n
AC ., = Am /V j-
n+1 D n+1
where
AC. = concentration change in element j (mg/L)
3
V = volume of element j (m )
Concentration Change Due to Mass Transfer
Amr =
i
where
3
AHL, = mass change in the element during At (m mg/L)
3
M^ = mass brought into the element vertically during At (m mg/L)
3
1VL = mass brought into the element horizontally during At (m mg/L)
3
= mass transported from the element vertically during At(m mg/L)
3
= mass transported from the element horizontally during At(m mg/L)
AC =
where
AC = concentration change of the constituent in the element (mg/L)
3
V = element volume (m )
Bottom Area of Element n
B = A .- - A
n n+1 n
26
-------
where
2
A. = surface area of element i-1 (m )
Light Intensity Relationship
Kd
I, = I e
d s
where
I, = intensity at depth d (Langleys/min)
I = intensity at the surface (Langleys/min)
S
K = extinction coefficient (m )
Average Light Intensity in an Element
KZ
where
I_ = intensity at element top (Langleys/min)
I., = intensity at element bottom (Langleys/min)
D
Z = element thickness (m)
K = extinction coefficient (m )
Extinction Depth
D = 4.6052/K
ex
where
K = extinction coefficient (m )
NO -N Concentration Change in Euphotic Zone During At (if NO_-N is
being modeled by a first order reaction)
AN03-N = (N03-N) (e~KlAt-l)
27
-------
where
NO,-N = average NO_-N concentration in euphotic zone (mg/L)
KI - K20 9<
where '
20
K.. = the average N0--N reaction coefficient in euphotic zone at 20
degrees centigrade (hr~ )
T = average temperature of euphotic zone (°C)
0 = correction constant
If NO -N is being modeled by a second order reaction
- K At (NO -N)2
ANVN • 1. i KlAt (N03-N)
NO -N Concentration Change in Euphotic Element i
(A NO -N). = B I.
j i i ,
where
'^i Kd
I± = I e X(l - e i)/Kd±
I = light intensity at reservoir surface (Langleys/min)
K = extinction coefficient (m )
Z. = depth below surface of top of element i (m)
d. = thickness of element i (m)
and B is determined from
(AN03-N) X V± = B 2 (V. Ii)
euphotic i euphotic i
28
-------
where
3
V. = volume of element i (m )
ANO -N is defined above
The local program variables in subroutine LAKCOM are defined in Table 5,
They are all undimensioned with the exception of IBRSAV.
29
-------
TABLE 5.
LOCAL PROGRAM VARIABLES OF SUBROUTINE LAKCON
Variable
Name
AVINT
AVN03
AVTEM
BFAC
BGDN03
EOT
DELMAS
DEX
DTDDM
E
FLOIN
FLOUT
HMSIN
HMSOUT
IBARI
IBRSAV
JBAC
NDU
NTHERM
THK
VMS IN
VMS OUT
XMADD
XNH3K
ZIT
Description
I
Average surface light intensity (Lang ley s/min)
Average NO«-N concentration in euphotic zone (mg/L)
Average temperature in euphotic zone (°C)
B factor (see formulae)
(ANO--N) , see formulae
2
Bottom area of element (m )
3
Change in mass due to diffusion (m mg/L)
Extinction depth (m)
Thermal gradient
2
Diffusion coefficient (m sec)
Flow into an element (cms)
Flow out of an element (cms)
3
Horizontal mass in (m mg/L)
3
Horizontal mass out (m mg/L)
I. (see formulae)
Saved values of I. (dimensioned)
Loop index
Extinction depth element
Thermocline element
Element thickness (m)
3
Vertical mass in (m mg/L)
3
Vertical mass out (m mg/L)
3
Change in mass due to mass transfer (m mg/L)
Average N0_ reaction rate in euphotic zone (hr )
Z. (see formulae)
30
-------
DESCRIPTION OF SUBROUTINE GETAVI
Subroutine GETAVI, flowcharted in Figure 6, calculates the average light
intensity in Langleys per minute during a time interval [t-, t ] on
Julian day n. Subroutine SUN is called to calculate sunrise and sunset
on day n. The total radiation for day n is an input quantity.
Subroutine GETAVI is called by subroutine LAKCON and calls subroutine SUN.
ENTRY J
CALL SUN
CALCULATE
LIGHT
INTENSITY
RATE DURING
TIME
INTERVAL
RETURN J
FIGURE 6. FLOWCHART - SUBROUTINE GETAVI
The average light intensity over [t-, t?] is calculated from sunrise,
sunset, and the daily total radiation by assuming that the total is
distributed between sunrise and sunset according to the distribution
illustrated in Figure 7.
The local program variables in subroutine GETAVI are defined in Table 6.
They are all undimensioned.
DESCRIPTION OF SUBROUTINE SUN
Subroutine SUN, flowcharted in Figure 8, is called by subroutine GETAVI
to calculate sunrise and sunset on Julian day n. The following equations
are used.
31
-------
Intensity
SR
1
4
1
2
1 S
4
Time
FIGURE 7. ASSUMED DAYLIGHT INTENSITY DISTRIBUTION
ENTRY J
CALCULATE
SUNRISE
& SUNSET
RETURN
FIGURE 8. FLOWCHART - SUBROUTINE SUN
32
-------
TABLE 6.
LOCAL PROGRAM VARIABLES OF SUBROUTINE GETAVI
Variable
Name Description
AREA Area 'under a portion of the curve in Figure 6
DAY ' Hours of daylight
D4 One fourth of daylight hours
PDL Percent of interval [t-, t«] in daylight
T- t1 (see formulae)
T? t? (see formulae)
Sunset Time
SS = 3.81972 COS 1(-tan(d) tan(lat)) + 12. (hours after midnight)
where
lat = latitude of reservoir (radians)
d = .409279 Cos(.0172142 (172 -n))
where
n = Julian day number
Sunrise Time
SR = 24 - SS (hours after midnight)
The local program variables in subroutine SUN are defined in Table 7.
They are all undimensioned.
33
-------
TABLE 7
LOCAL PROGRAM VARIABLES OF SUBROUTINE SUN
Variables
Name Description
D ' d (see formulae)
DAY n, Julian day number
SS ' sunset (hours after midnight)
SR sunrise (hours after midnight)
DESCRIPTION OF SUBROUTINE GETCON
Subroutine GETCON, flowcharted in Figure <9, is called by subroutine
LAKCON to calculate the changes in the constituent concentrations in a
lake or reservoir element over a time interval At, where At is the
integration step size. The algorithms used are explained in detail in
Volume I, Part III. The inputs to GETCON include the average light
intensity in the element, the element location with respect to the
surface and the bottom of the reservoir, the bottom area of the element
(i.e., the area available for benthal releases and demands), the volume
and thickness of the element, the percent of At which is daylight,
appropriate constants and variables, and the concentration of all
constituents at the beginning of At.
All formulae used by GETCON are described in detail in Part III of
Volume I. Equations references as A.NN in the flowchart, of GETCON may
also be found in Part III of Volume I.
The local program variables in subroutine GETCON are defined in Table 8.
They are all undimensioned.
34
-------
IS
THIS THE
FIRST TIME
IN
7
INITIALIZE
ZERO OUT DELTAS
TCOR = (T-20)
A.80.1
ARE
COL IFORMS
BEING
MODELED
COL I FORM DECAY
A. 8
A. 10
A. 7
L
BODJlECAl
A. 15
A.12
A.13
A.14
A.16
A. 17
FIGURE 9. FLOWCHART - SUBROUTINE GETCON
35
-------
FIGURE 9. (cont'd)
36
-------
IS
N02-N
BEING
MODELED
7
N03-N SETTLING
NOj-N SETTLING
IS CALCULATED
IN LAKCOM
BEING
MODELED
BEING
MODELED
NH--N VOLITIZATION
VOLITIZATION
CCURRIN
AR
PKYTO-
PLANKTON
BEING
MODELED.
IS
IT DARK
DURING TIME
STEP
ALGAt. GROWTH
A.4b A.49
A.46 A.50
A.47 A.55
A'48A.60A'56
FIGURE 9. (Cont'd)
37
-------
ALGAL RESPIRATION
A.65
FIGURE 9. (Cont'd)
38
-------
UPDATE LOWER LAYER
A. 4
A. 5
A. 24
A. 70
A. 76
FIGURE 9. (Cont'd)
39
-------
TABLE 8.
LOCAL PROGRAM VARIABLES OF SUBROUTINE GETCON
Variable
Name
Description
AO
ARR
ASLOP
AT
BODMC
BODMTL
BODNWR
BODWT
DALND
DALTOX
DN
DOBEN
DOD
FACHML
FACHM2
FACHM3
FL
FLIM
FN
FNH3
FN03
FP
GRLIM
IBAR
NOUT
OS AT
RAT
TCOR
TT
VO
VSLOP
VT
Reservoir surface area at start of time step (m^)
Algal respiration rate (hr )
2
Rate of change of reservoir surface area (m /hr)
2
Reservoir surface area at end of time step (m )
BOD convertible to inorganic forms
BOD material in BOD decay
BOD nitrogen weight ratio
BOD weight
Algae change due to natural death (mg/L)
Algae change due to toxicity (mg/L)
Nitrogen demand due to algal growth (mg/L)
Benthal DO demand (mg/L)
DO reaeration change (mg/L)
Heavy metal factor on coliforms and algae reactions
Heavy metal factor on coliforms and algae reactions
Heavy metal factor on coliforms and algae reactions
Algal growth limitation function due to light
Minimum of FL, FN, FP
Algal growth limitation function due to nitrogen
Algal growth limitation function due to NH_-N
Algal growth limitation function due to NO_-N
Algal growth limitation function due to PO.-P
Total algal growth limiting function
Maximum light intensity (Langleys/min)
Output unit
DO saturation level (mg/L)
Ratio used in settling calculations
Temperature correction term (°C)
Temperature (°C)
3
Volume of surface element at start of time step (m )
3
Rate of change of volume of surface element (m /hr)
3
Volume of surface element at end of time step (m )
40
-------
DESCRIPTION OF SUBROUTINE SUED
A description of subroutine SUED may be found on pages 45-49 of
Reference [3].
DESCRIPTION OF SUBROUTINE SUBE
A description of subroutine SUBE may be found on pages 50-53 of
Reference [3]. .
DESCRIPTION OF FUNCTION BETA
A description.of function BETA may be found on pages 54-56 of
Reference [3] .
DESCRIPTION OF SUBROUTINE SUBG
A description of subroutine SUBG may be found on pages 57-58 of
Reference [3].
DESCRIPTION OF SUBROUTINE SUBH
A description of subroutine SUBH may be found on pages 59-61 of
Reference [3].
41
-------
SECTION VI
INPUT REQUIREMENTS
The input to LAKSCI falls into three categories. They are:
1. Input to define the hydrodynamic behavior of the lake surface
elevation during the time period being simulated and to define
the lake outflow, lake inflow, and the temperature of the lake
inflow. (This is read and processed by subroutine BAL.)
2. Meteorologic data for the period being simulated. (This is read
and processed by subroutines SUBA and SUBB2.)
3. Input to define lake initial conditions, outflow geometry, inflow
concentrations, and various lake dependent variables such as
diffusion coefficients, extinction depth, etc. (This is read and
processed by SUBB, NEWIN, and SUBC.)
The input required is described in detail in this section. All equations
referenced as (A.NN) may be found in Part III of Volume I. A listing of
a sample input deck is provided in Section IX.
The following constraints govern the use of LAKSCI.
1. No more than 365 days may be simulated.
2. No more than 2920 values may be input for any meteorological para-
meter.
3. The lake may be divided into a maximum of 100 layers.
4. No more than one initial temperature per layer may be input.
5. Special output may be requested on no more than 50 days.
6. A minimum of one and a maximum of three outlets are allowed.
7. Minimum of one and a maximum of twenty-four integration steps per
day are allowed.
43
-------
TABLE 9.
SURFACE ELEVATION AND INFLOW TEMPERATURE INPUT CARD DATA
CARD CARD
// COLUMN
FORMAT
VARIABLE
NAME
UNITS
DEFAULT
VALUE
DESCRIPTION
1 1-10 110 ITAPE
11-20 110 IDAY
21-30 110 LDAY
31-40 F10.2 Cl
41-50 F10.2 C2
51-60 F10.2 C3
2 1-10 F10.0 RSELI
11-20 F10.0 BOTEL
21-30 F10.0 GWFLOW
31-40 F10.0 FACIN
(FEET)
(FEET)
(CFS)
0.
1.
Interface unit
First day of run (1 is January
1)
Last day of run (365 is December
31) LDAY must be <_ 365
For depth d in feet „
V(d) = Cl'd + (l/2);C2-d
+ (l/3)-C3*d
A(d) = Cl + C2 • d + C3 • d2
where V is volume in acre feet
and A is area in acres
Initial surface elevation
referenced to lake bottom
Elevation of lake bottom above
sea level
Flow added to inflow (may be
positive or negative)
Factor by which inflow is
multiplied
-------
TABLE 9. (Continued)
CARD CARD
# COLUMN
3 1-6
7-12
13-18
19-24
25-30
31-36
37-42
43-48
49-54
55-60
FORMAT
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
VARIABLE
NAME UNITS
FLOW (CFS)
(IDAY.l)
FLOW (CFS)
(IDAY, 2)
FLOW (°C)
(IDAY, 3)
FLOW (CFS)
(IDAY + 1,1)
FLOW (CFS)
(IDAY + 1,2)
FLOW (°C)
(IDAY +1,3)
FLOW (°C)
(IDAY + 2,1)
FLOW (CFS)
(IDAY +2,2)
FLOW (°C)
(IDAY + 2,3)
FLOW (CFS)
DEFAULT
VALUE DESCRIPTION
Inflow rate for day IDAY
Outflow rate for day IDAY
Temperature of .inflow for day
Inflow rate for day IDAY + 1
Outflow rate for day IDAY + 1
Temperature of inflow for day
Inflow rate for day IDAY + 2
Outflow rate for day IDAY + 2
Temperature of inflow for day
IDAY + 2
Inflow rate for day IDAY + 3
(IDAY + 3,1)
-------
TABLE 9. (Continued)
CARD CARD VARIABLE DEFAULT
# COLUMN FORMAT NAME UNITS VALUE DESCRIPTION
3 61-66 F6.0 FLOW (CFS) Outflow rate for day IDAY + 3
(IDAY +3,2)
67-72 F6.0 FLOW (CFS) Temperature of inflow for day
(IDAY +3,3) IDAY + 3
There are as many cards as necessary to define FLOW for days IDAY through LDAY. Any value read
in as zero will be replaced x^ith a value interpolated linearly from other data. The inflow,
outflow, and inflow temperature MUST be defined for IDAY and LDAY, i.e., no interpolation is
done for IDAY and LDAY.
-------
TABLE 10.
METEOROLOGIC DATA INPUT CARD
CARD CARD VARIABLE DEFAULT
# COLUMN FORMAT NAME UNITS VALUE DESCRIPTION
1 1-80 20A4 ALPHA
2 1-10 110 IYR
11-20 110 IDAY
21-30 110 LDAY
31-40 110 NOBS
41-50 110 ITAPE
3 1-10- E10.0 A (M SEC"1 MB"1)
11-20 E10.0 B (MB"1)
21-30 E10.0 LAT (DEC)
31-40 E10.0 LOG (DEC)
Output heading
Year of observations
First Julian
(1 is January
day of observation
1)
Last Julian day of observation
(365 is December 31) LDAY must
be <_ 365
Number of observations per day
(Total number of observations
of a parameter must be < 2920)
Interface uni
ITAPE on card
Evaporation
coefficient
Evaporation
coefficient
Lake latitude
t (must be same as
#1 of Table 9)
used in
calculation
of
equilibrium
temperature
Lake longitude
-------
TABLE 10. (Continued)
CARD
#
CARD
COLUEN
41-50
FORMAT
E10.0
VARIABLE
NAME
RESEL
UNITS
(M)
DEFAULT
VALUE
DESCRIPTION
Lake elevation above sea
level
The following reules govern the input of the meteorologic parameters. Sky cover, dry bulb air
temperature, wind speed and either wet bulb air temperature or dew point MUST be input (dew
point is preferable). Atmospheric pressure will be calculated from the lake elevation if it is
not input. Solar radiation input is also optional but should be input if algae is being modeled.
Each of the seven meteorologic parameters which is being input (see Parameter Identification
Codes in Table 11, and previous note) requires the following group of cards:
00
1-10 110
ID
11-20 E10.0 CV
21-30' E10.0 CVA
31-40 E10.0 CVB
Parameter identification code
(see Table 11) ID = 100 means
there is no more meteorologic
input
Data conversion factor A
(see below)
Data conversion factor B
(see below)
Data conversion factor C
(see below)
-------
TABLE 10. (Continued)
CARD CARD
# COLUMN
FORMAT
VARIABLE
NAME
DESCRIPTION
1-80 (5X, F5.0, 7F10.0)
1-80 (5X, F5.0, 7F10.0)
1-80 (5X, F5.0, 7F10.0)
1-80 (5X, F5.0, 7F10.0)
1-80 (5X, F5.0, 7F10.0)
(DATA(J,ID),J=IDAY,
IDAY + 7)
(DATA(J,ID),J=IDAY
+ 8.IDAY + 15)
(DATA(J,ID),J=IDAY
+ 16,IDAY + 23)
(DATA(J,ID),J=IDAY
+ 24, end of first
month of run)
Parameter values for first 8
days
Parameter values for 2nd 8 days
Parameter values for 3rd 8 days
Parameter values for remainder
of first month
(DATA(J,ID), J=first Parameter values for first 8
day of second month, days of second month
8th day of second
month)
As many cards are input (blocked by month) as are required to define the parameter for the
entire simulation period IDAY through LDAY. After the last of the seven parameters has been
input, an ID = 100 card MUST be input to signify that there is no more data.
-------
TABLE 11.
PARAMETER IDENTIFICATION CODES FOR METEOROLOGIC INPUT DATA
PARAMETER CODE METEOROLOGIC PARAMETER UNITS
Use the following parameter identification codes and prescribe suitable conversion factors to
enable input data conversion to the specified units.
(ID on card 4)
1 atmospheric pressure MB
2 sky cover DECIMAL FRACTION
° 3 wind speed M SEC"1
4 dry bulb air temperature °C
5 wet bulb air temperature °C
& dew point temperature °C
—2 —1
7 short wave solar radiation KCAL M SEC
-------
TABLE 11. (Continued)
DATA CONVERSION
Conversion of the input data is done in accordance with the following expression:
Xc = A(XR + B) + C
where
X = converted data value, having the specified
units
X = input data value;
K
A = first input conversion factor;
B = second input conversion factor;
C = third input conversion factor.
-------
Ul
NJ
TABLE 12.
LAKE INPUT CARD DATA
CAED CARD
# COLUMN
1 1-10
2 1-5
6-10
3 1-80
4 1-80
5 1-10
11-20
21-30
31-40
41-50
51-60
FORMAT
110
15
15
20A4
20A4
E10.0
E10.0
E10.0
E10.0
E10.0
E10.0
VARIABLE
NAME
INT
IDAY
LDAY
(GHENT (I),
1=1,20)
(GHENT (I) ,
1=21,40)
SDZ
ELMAX
EDMAX
A
BB
GMIN
DEFAULT
UNITS VALUE DESCRIPTION
Interface unit (same as ITAPE
on card #1 of Table 9)
First day of run (January 1 is
day 1)
Last day of run (December 31 is
day 365 (LDAY must be < 365)
Run title
Run title
(M) Vertical element thickness
(M) Maximum allowable surface
elevation referenced to lake
bottom (ELMAX/SDZ < 100)
(M) Short wave extinction depth
(M SEC~Hffi~ ) Evaporation coefficient
(MB ) Evaporation coefficient
(°CM ) Minimum vertical thermal
gradient considered stable
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
VARIABLE
FORMAT NAME
UNITS
DEFAULT
VALUE
DESCRIPTION
1-5
15
NSEG
Ln
6-10
11-15
16-20
21-25
26-30
31-35
36-40
15
15
15
15
15
15
15
NTP
NSD
IPRT
INTP
ITAPE
NOUTS
NXEQ
1 means all outflow is through
lowest outlet
2 means outflow will be adjusted
to meet downstream temperature
ojective (use only if two or
more outlets)
Number of points in the
reservoir's initial temperature
profile (maximum of one point
per layer)
Number of special days for which
output is desired (<_ 50)
Daily frequency of output
Vertical output frequency (every
INTP'th vertical element is out-
put)
Output tape (not equal to INT)
0 means no output tape desired
Number of outlets (minimum of
one, maximum of three)
Number of integration steps per
day
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
6 41-45
7 1-10
11-20
21-30
31-40
41-50
8 1-10
11-20
21-30
9 1-10
11-20
21-30
FORMAT
15
E10.0
E10.0
E10.0
E10.0
E10.0
E10.0
E10.0
E10.0
110
E10.0
E10.0
VARIABLE
NAME UNITS
IVAL
GSWH (M"1)
Al
A2
A3
RLEN (M)
Cl
C2
C3
N
ELOUT(N) (M)
WOT(N) (M)
DEFAULT
VALUE DESCRIPTION
Output after the IVAL'th time
step each day
Critical diffusion stability
Diffusion parameters for
temperature calculations
Length of lake
For depth d in meters „
V(d) = Cl • d + 1/2 C2 • d
+ 1/3 C3 • d 2
A(d) = Cl + C2 • d + C3 • d
where V is volume in cubic
meters and A is area in square
meters
Outlet (turbine intake) numbers
(1, 2 or 3)
Outlet elevation (referenced to
lake bottom)
Dam width at outlet elevation
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
VARIABLE
FORMAT NAME
UNITS
DEFAULT
VALUE
DESCRIPTION
Ui
10
11
12
13
31-40 110
1-80 1615
1-5
1-10
11-20
15
F10.4
F10.4
ISRNOU(N)
1-10 E10.0 TA
11-20 E10.0 TB
(IDOUT(I),
I=1,NSD)
NDAY
CINFLO
(NDAY,1)
(NDAY,2)
(NDAY,2)
(M)
(M)
(MG/L)
(MG/L)
1 means outlet is always at lake
surface (spillway)
NOTE: Repeat card 9 for each
outlet
Elevation of initial temperature
point TB (referenced to lake
bottom)
Initial temperature at elevation
TA
NOTE; Repeat card 10 NTP times
Special days for which output is
desired
NOTE; Repeat card 11 until NSD
days have been input
Day for which inflow concentra-
tions are specified (NDAY > 400
means no more inflow data)
Concentration of DO in inflow on
day NDAY
Concentration of BOD in inflow
on day NDAY
-------
TABLE 12. (Continued)
Ln
CARD CARD
# COLUMN
13 21-30
31-40
41-50
51-60
61-70
71-80
14 1-10
11-20
21-30
31-40
FORMAT
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
VARIABLE
NAME
GIN FLO
(NDAY, 3)
CINFLO
(NDAY, 4)
CINFLO
(NDAY, 5)
CINFLO
(NDAY,6)
CINFLO
(NDAY, 7)
CINFLO
(NDAY,8)
CINFLO
(NDAY,9)
CINFLO
(NDAY,10)
CINFLO
(NDAY, 11)
CINFLO
(NDAY, 12)
UNITS
(MG/L)
(MG/L)
(MG/L)
(MG/L)
(MG/L)
(MPN/100)
(MG/L)
(MG/L)
(MG/L)
(MG/L)
DEFAULT
VALUE DESCRIPTION
Concentration of NH»-N
on day NDAY
Concentration of NO_-N
on day NDAY
Concentration of NO--N
on day NDAY
Concentration of PO.-P
on day NDAY
Concentration of algae
on day NDAY
in inflow
in inflow
in inflow
in inflow
in inflow
Concentration of coliforms in
inflow on day NDAY
Concentration of HMl in
on day NDAY
Concentration of HM2 in
on day NDAY
Concentration of HM3 in
on day NDAY
inflow
inflow
inflow
Concentration of N in inflow on
day NDAY
-------
TABLE 12 (Continued)
Ul
•vj
CARD CARD
# COLUMN FORMAT
14 41-50 F10. 4
51-60 F10.4
61-70 F10.4
71-80 F10.4
Repeat cards 12, 13,
tions MUST be defined
specifically input ar
greater than 400 must
15 1-10 F10.4
11-20 F10.4
21-30 F10.4
31-40 E10.0
VARIABLE
NAME UNITS
CINFLO (MG/L)
(NDAY, 13)
CINFLO (MG/L)
(NDAY, 14)
CINFLO (MG/L)
(NDAY,15)
CINFLO (MG/L)
(NDAY,16)
DEFAULT
VALUE DESCRIPTION
Concentration of CL~ in inflow
on day-NDAY
Concentration of HM1 ions in in-
flow on day NDAY
Concentration of HM2 ions in in-
flow on day NDAY
Concentration of HM3 ions in in-
flow on day NDAY
and 14 until all inflow concentrations have been defined. Inflow concentra-
tor IDAY and LDAY. The 'inflow concentrations for any day which is not
e linearly interpolated from input concentrations . Card 12 with NDAY
be input to signal the end of the
ELEV (FEET)
TEMPAV (°C)
XLAT (DEGREES)
El (M2/SEC)
inflow concentration input.
Lake elevation above sea level
Average lake temperature on
IDAY
Lake latitude
Diffusion coefficient above
thermocline
-------
TABLE 12. (Continued)
Oi
00
CARD CARD
# COLUMN
15 41-50
16 1-5
17 1-6
7-12
13-18
19-24
25-30
31-36
37-42
43-48
FORMAT
E10.0
15
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
F6.0
VARIABLE
NAME
E2
I
BOOK (I)
BOOKS (I)
COLK(I)
NH3K(I)
N02K(I)
N03K(I)
P04K(I)
UNITS
(M2/SEC)
(HOUR'1)
(HOUR"1)
(HOUR"1)
(HOUR"1)
(HOUR"1)
(HOUR"1)
(HOUR"1)
DEFAULT
VALUE DESCRIPTION
Diffusion cpefficient below
thermocline
Lake element number
(I > 200 means no more element
data)
.008 BOD decay coefficient for
element I (A. 13)
.0009 BOD settling coefficient for
element I (A. 12)
.004 Coliform decay coefficient for
element I (A. 7)
.004 NH3 decay coefficient for
element I (A. 26)
.015 N0£ decay coefficient for
element I (A. 31)
.004 N0~ settling coefficient for
element I (A. 3 7)
.0009 POA settling coefficient for
element I (A.75)
-------
TABLE 12. (Continued)
Ul
vo
CARD CARD
# COLUMN
17 49-54
55-60
61-66
67-72
18 1-10
11-20
21-30
31-40
41-50
51-60
VARIABLE
FORMAT NAME
Blank
F6.0 HM1K(I)
F6.0 HM2K(I)
F6.0 HM3K(I)
F10.4 C(I,1)
F10.4 C(I,2)
F10.4 C(I,3)
F10.4 C(I,4)
F10.4 C(I,5)
F10.4 C(I,6)
UNITS
(HOUR'1)
(HOUR'1)
(HOUR'1)
(MG/L)
(MG/L) '
(MG/L)
(MG/L)
(MG/L)
(MG/L)
DEFAULT
VALUE DESCRIPTION
.004 HM1 settling coefficient for
element I (A. 2)
0 HM2 settling co.efficient for
element I (A. 2)
0 HM3 settling coefficient for
element 1 (A. 2)
Initial DO concentration in
element I
Initial BOD concentration in
element I
Initial NH_-N concentration in
element I
Initial NO--N concentration in
element I
Initial NO--N concentration in
element I
Initial PO.-P concentration in
element I
-------
TABLE 12. (Continued)
CARD CARD
// COLUMN
18 61-70
71-80
19 1-10
11-20
21-30
31-40
41-50
51-60
61-70
71-80
VARIABLE
FORMAT NAME
F10.4 C(I,7)
F10.4 C(I,8)
F10.4 C(I,9)
F10.4 C(I,10)
F10.4 C(I,11)
F10.4 C(I,12)
F10.4 C(I,13)
F10.4 C(I,14)
F10.4 C(I,15)
F10.4 C(I,16)
UNITS
(MG/L)
(MPN/100M1)
(MG/L)
(MG/L)
(MG/L)
(MG/L)
(MG/L)
(MG/L)
(MG/L)
(MG/L)
DEFAULT
VALUE DESCRIPTION
Initial algae concentration in
element I
Initial coliform concentration
in element I
Initial HM1 concentration in
element I
Initial HM2 concentration in
element I
Initial HM3 concentration in
element I
Initial N concentration in
element I
Initial CL« concentration in
element I
Initial HM1 ions concentration
in element I
Initial HM2 ions concentration
in element I
Initial HM3 ions concentration
in element I
-------
TABLE 12. (Continued)
CARD CARD
// COLUMN
FORMAT
VARIABLE
NAME
UNITS
DEFAULT
VALUE
DESCRIPTION
Cards 16-19 are repeated until all initial conditions have been input. Card 16 with I > 200
signals the end of the initial condition input. Card 17 must be input even if the default values
are satisfactory (i.e., include a blank card 17 if the default values are desired). Cards 16-19
MUST be input for both the bottom and top elements of the lake. The bottom element is 1=1, the
top element is I = ELMAX/SDZ. The initial concentrations for an element which is not specifically
input are linearly interpolated from input concentrations. The card 17 variables assume their
default values for an element which is not input.
20
1-5
15
IFN
6-10
15
ICOL
PHYTOPLANKTON growth function
option
0 = growth limited by NO -N
concentration
1 = growth limited by NH -N
concentration
2 = growth limited by maximum of
NH -N and NO -N
COLIFORM option
0 = don't model COLIFORMS
1 = model COLIFORMS
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
FORMAT
VARIABLE
NAME
UNITS
DEFAULT
VALUE
DESCRIPTION
ON
20 11-15
16-20
21-25
26-30
31-35
36-40
41-45
15
15
15
15
15
15
15
ICOMB
IHEAVY
ITOTN
ICHLOR
INH
IN2
IN3
Constituent selection option
(see Table 13 below)
Heavy metal option
0 = model no heavy metals or
ions
N = model N heavy metals and
their associated ions
(N=l,2,3)
TOTAL NITROGEN option
0 = don't model TOTAL NITROGEN
1 = model TOTAL NITROGEN
CHLORIDE option
0 = don't model CHLORIDES
1 = model CHLORIDES
NH, reaction order
1 = 1st order
2 = 2nd order
N0£ reaction order
1 = 1st order
2 = 2nd order
N03 reaction order
1 = 1st order
2 = 2nd order
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
FORMAT
VARIABLE
NAME
UNITS
DEFAULT
VALUE
DESCRIPTION
20
46-50 15
IP
u>
21 1-10 blank
11-20 F10.4 THKCOL
21-30 F10.4 ABOD
31-40 F10.4 AHM
41-50 F10.4 CHMOC
51-60 F10.4 THKNH3
61-70 F10.4 VOLITK
71-80 F10.4 THVOLK
(MG/L)
1.07
0.
0.
20.
1.10
.01
PO, reaction order
1 = 1st order
2 = 2nd order
Temperature correction constant
for coliform (COL) reaction
coefficient (A. 8)
Coefficient on BOD in COL
calculation (A. 10)
Coefficient on HEAVY METAL 1
(HM1) in COL calculation (A. 10)
HM1 concentration limit in COL
calculation (A. 10)
Temperature correction constant
for NH.-N decay coefficient
Exponent for NH--N volitization
(A.35)
.17 Temperature correction constant
for NH -N volitization (A.35)
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
22 1-10
11-20
21-30
31-40
41-50
51-60
61-70
71-80
23 1-10
11-20
FORMAT
blank
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
blank
F10.4
VARIABLE
NAME UNITS
BODC
BODN
BODPC
BODOQ (MG 02/MG BOD)
NOREFR
GRMAX (HOUR"1)
THGRMX
CHMOA (MG/L)
DEFAULT
VALUE DESCRIPTION
106. Carbon to phosphorus ratio in
BOD (A. 18)
16. Nitrogen to phosphorus ratio in
BOD (A. 19)
.5 Dry weight fraction of carbon
in BOD (A. 18)
1.5 BOD - oxygen quotient (A. 16)
.5 Non-refractory part of BOD (A. 17)
.1 Maximum fractional growth rate
for phytoplankton at 20° centi-
grade (A. 45)
1.07 Temperature correction constant
GRMAX (A. 45)
20. HM1 limit for phytoplankton
growth (A.46)
-------
TABLE 12. (Continued)
Ul
CARD CARD
# COLUMN
23 21-30
31-40
41-50
51-60
61-70
71-80
24 1-10
11-20
21-30
31-40
41-50
FORMAT
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
blank
F10.4
F10.4
F10.4
F10.4
VARIABLE
NAME
HMKA
MP04
' MIN03
M2N03
MNH3
ML
APR
NR
ASR
AND
UNITS
(MG P04-P/L)
(MG N/L)
(MG NO -N/L)
(MG NH -N/L)
(LANGLEYS/MIN)
(HOUR"1 DEG.C"1)
(FT /HOUR)
(HOUR"1)
DEFAULT
VALUE
.01
.03
.028
.045
.045
.03
.6
.0001
.05
.001
DESCRIPTION
HMl coefficient for phyto-
plankton growth calculation
(A.46)
Michaelis-Menton constant (A. 47)
Michaelis-Mentbn constant (A. 47)
Michaelis-Menton constant (A. 48)
Michaelis-Menton constant (A. 49)
Light intensity calculation
factor (A. 50)
Chlorophyll-A to phosphorus
ratio in phytoplankton (A. 57)
Phytoplankton respiration
factor (A. 63)
Phytoplankton sinking rate (A.68]
Fractional death for phyto-
plankton (A.72)
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
24 51-60
61-70
71-80
25 1-10
11-20
21-30
31-40
41-50
51-60
61-70
71-80
FORMAT
F10.4
F10.4
F10.4
blank
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
VARIABLE
NAME UNITS
ATD
BRRBOD (MG/M2-HR)
BRRP04 (MG/M2-HR)
BRRNH3 (MG/M2-HR)
BENOD (MG/M2-HR)
AHM2
AHM3
ATD2
ATD3
PIHM1
DEFAULT
VALUE DESCRIPTION
.001 Phytoplankton toxic death
coefficient- for HM1 (A. 73)
61. BOD benthal release rate (A. 79)
.125 POA~P benthal release rate
(A.78)
.108 Nitrogen benthal release rate
(A.77)
15. Benthal oxygen demand (A. 81)
0. Coefficient on HEAVY METAL 2
(HM2) in COL calculation (A. 10)
0. Coefficient on HEAVY METAL 3
(HM3) in COL calculation (A. 10)
0. Phytoplankton toxic death
coefficient for HM2 (A. 73)
0. Phytoplankton toxic death
coefficient for HM3 (A. 7 3)
0. Fraction of HMl in ion form
(A.3)
-------
TABLE 12. (Continued)
CARD CARD
# COLUMN
26 1-10
11-20
21-30
31-40
41-50
51-60
61-70
71-80
FORMAT
blank
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
F10.4
VARIABLE
NAME UNITS
PIHM2
PIHM3
CHM02C (MG/L)
CHM03C (MG/L)
CHMOA2 (MG/L)-
CHMOA3 (MG/L)
HMKA2
DEFAULT
VALUE DESCRIPTION
0. Fraction of HM2 in ion form
(A. 3)
0. Fraction of HM3 in ion form
(A.3)
0. HM2 concentration limit in COL
calculation (A.10)
0. . HM3 concentration limit in COL
calculation (A. 10)
0. HM2 limit for phytoplankton
growth (A. 46)
0. HM3 limit for phytoplankton
growth (A.46)
0. HM2 coefficient for phytoplanktoi
growth calculation (A.46)
-------
TABLE 12. (Continued)
CABD CARD
# COLUMN
FORMAT
VARIABLE
NAME
UNITS
DEFAULT
VALUE
DESCRIPTION
er>
oo
27 1-10 blank
11-20 F10.4 HMKA3
21-30 F10.4 THN03K
31-40 F10.4
THP04K
0. HM3 coefficient for phytoplank-
ton growth calculation (A.46)
1.12 Temperature correction constant
for NO--N decay coefficient
(A.38r
1.084 Temperature correction constant
for PO -P settling coefficient
(A.76.I)
Although no values need be specified (in which case the default values apply), cards 21-27 must
be included.
-------
TABLE 13.
DEFINITION OF CONSTITUENT SELECTION OPTION, ICOMB (FOR CARD 20 OF TABLE 12)
ICOMB
DO
EOD
»,-.
N02-N
N03-N
PO ,-P
4
PHYTO-
PLANKTON
1 2 3 4.5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 " 21 22 23
XXXXXXXXX XXX XXXXX XXXXX
XXXXXXXXX XX
XXXXXX XXX X X.X
XXX XX X
XXXXXXXXX XXXXX. X XXX
XXX X XX X XXXXXX X
XX X XXX
X indicates that: the constituent will be modeled under the indicated ICOMB option.
-------
SECTION VII
OUTPUT DESCRIPTION
Magnetic Tape Output
If tape output is requested, the format of the tape is as follows:
1. First logical record
(a) first Julian day simulated
(b) last Julian day simulated
(c) standard element thickness
(d) number of outlets
2. Second logical record
The inflow temperature for each day simulated.
3. Third logical record
Outflows for each outlet for each day simulated.
4. Fourth logical record
Outflow temperature for each outlet for each day simulated.
5. Fifth logical record
Concentrations of lake outflow for each day simulated.
Printed Output '
The printed output from LAKSCI consists of a summary of the hydrologic
conditions of the reservoir over the simulation period, which is written
by BAL, a summary of the meteorologic conditions, which is written by
SUBB2, and output from the reservoir simulation portion of LAKSCI. This
latter printout consists of a summary of initial conditions written by
SUBB and NEWIN and a summary of lake conditions written by PENT, CURVE,
and QPRINT when requested. The summary consists of the following
quantities and describes the lake conditions valid at the time of the
summary.
(a) reservoir elevation, m;
(b) thickness of the surface element, m;
(c) total flowrate entering lake, m sec ;
3 -1
(d) total flowrate leaving lake m sec ;
(e) elevation of the thermodine, m;
(f) average downstream temperature, °C;
(g) average retention time under existing conditions, days;
(h) dry bulb air temperature, °C;
(i) reservoir surface temperature, °C;
71
-------
3 -1
(j) total evaporation rate, m sec ;
(k) cumulative evaporation to date, m;
(1) inflow temperature, °C;
(m) the lowest depth of convective mixing, m;
(n) downstream objective temperature °C; (same as inflow temperature)
-2 -1
(o) the net rate of short wave solar radition, kcal m sec ;
-2 -1
(p) the net rate of long wave atmospheric radiation, kcal m sec ;
—2 —1
(q) the net rate of long wave back radiation, kcal m sec ;
-2 -1
(r) net rate,of long wave evaporative heat loss, kcal m sec ;
2 -1
(s) net rate of long wave sensible heat loss, kcal m sec ;
3 -1
(t) flow for each system outlet, m sec ;
(u) temperature for each system outlet, °C;
Under suitable headings, for each element the following information is
also printed:
(a) the element number, j;
(b) the elevation of element j;
(c) the temperature of element j, °C;
(d) the temperature of element j, °F;
O I
(e) the horizontal inflow to element j,'m sec ;
3 -1
(f) the horizontal outflow from element j, m sec ;
(g) the time rate of change of temperature in element j, °C sec ;
(h) the diffusion coefficient at element j, kcal m sec °C ;
(i) the ratio of vertical advection in the time step to the volume of
element j;
(j) the ratio of horizontal advection in the time step to the volume of
element j;
(k) the concentrations in element j of all quality constituents being
modeled
A plot of water temperature versus depth is also output. At the conclu-
sion of the simulation period the daily temperature, flow, and con-
stituent concentrations of the outlet are printed out. An example of
LAKSCI output is probided in Section X.
72
-------
SECTION VIII
DEFINITION OF COMMON VARIABLES
Common variables employed in the Stratified Reservoir Model are des-
cribed in Table 14 under their respective common blocks.
TABLE 14.
DESCRIPTION OF COMMON VARIABLES
FORTRAN
Name
COMMON/ CONBEG/
DO
BOD
NH3
NO 2
N03
P04
ALG
COL
HM1
HM2
HM3
HM
TOTN
Initial
Initial
Initial
Initial
Initial
Initial
Initial
Initial
Initial
Initial
Initial
Initial
Initial
Description
DO concentration for GETCON
BOD concentration for GETCON
NH -N concentration for GETCON
NO -N concentration for GETCON
NO -N concentration for GETCON
PO.-P concentration for GETCON
algae concentration for GETCON
coliform concentration for GETCON
HMl concentration for GETCON
HM2 concentration for GETCON
HM3 concentration for GETCON
HM concentration for GETCON
N concentration for GETCON
73
-------
TABLE 14. (Continued)
FORTRAN
Name
COMMON/CONEND/
DOE
BODE
NH3E
N02E
N03E
P04E
ALGE
COLE
HM1E
HM2E
HM3E
HME
TOTNE
Final
Final
Final
Final
Final
Final
Final
Final
Final
Final
Final
Final
Final
Description
DO concentration from GETCON
BOD concentration from GETCON
NH--N concentration from GETCON
N02-N concentration from GETCON
NO_-N concentration from GETCON
PO.-P concentration from GETCON
algae concentration from GETCON
coliform concentration from GETCON
HML concentration from GETCON
HM2 concentration from GETCON
HM3 concentration from GETCON
HM concentration from GETCON
N concentration from GETCON
COMMON/CONST/
The variables in common CONST are defined on cards 21-27 of LAKSCI
input (see Table 12)
All concentrations have units of mg/L except coliform concentrations which
have units of MPN/00 ml.
74
-------
TABLE 14. (Continued)
FORTRAN
Name
Description
COMMON/LAK/
KCON
DU
El
E2
NOWDAY
SDZ
DZTOP
ATOP
VTOP
NHOUR
PDL
DN03DS
COMMON/LAK2/
DZTOP2
ATOP2
VTOP 2
ELEV
Maximum number of constituents
Euphotic depth (m)
2
Diffusion coefficient above thermocline (m /sec)
2
Diffusion coefficient below thermocline (m /sec)
Current Julian date
Standard element thickness (m)
Surface element thickness at start of time step
(m)
2
Surface area at start of time step (m )
3
Surface element volume at start of time step (m )
i
Hour of day of time step
Percent of time step during which sun shines
Change in NO -N concentration due to algae (mg/L)
Surface element thickness at end of time step (m)
2
Surface area at end of time step (m )
3
Surface element volume at end of time step (m )
Reservoir elevation above sea level (m)
75
-------
TABLE 14. (Continued)
FORTRAN
Name
Description
COMMON/OPTION/
IFN
IK2
ICOL
ICOMB
INH3
IPO.
4
IALG
IFIRST
Algae (phytoplankton) growth function option
0 = growth limited by NO -N concentration
1 = growth limited by NH«-N concentration
2 = growth limited by maximum of NH«-N and NO -N
(not used)
0 = don't model coliforms; 1 = model coliforms
Constituent selection option (see Table 13)
0
= don't model NH -N; 1 = model NH_-N
0
0
0
0
= don't model NO -N; 1
model N09-N
= don't model NO -N; 1 = model NO -N
= don't model PO.-P; 1 = model PO.-P
= don't model algae; 1 = model algae
Logic flag for GETCON
COMMON/OPT2/
IHEAVY
ITOTN
ICHLOR
Number of heavy metals to be modeled
0 = don't model total nitrogen; 1 = model N
0 = don't model CL ; 1 = model C12
COMMON/OPTS/
IP Order of PO.-N reaction (IP = 1 or 2)
INK
Order of NH -N reaction (INK = 1 or 2)
76
-------
TABLE 14. (Continued)
FORTRAN
Name
Description
IN2
IN3
COMMON/PASS/
TOTL
DAWN
DUSK
COMMON/RCHVAR/
Order of NO -N reaction (IN2 = 1 or 2)
Order of NO--N reaction (IN3 = 1 or 2)
Total Langleys for the day being considered
Sunrise for the day being considered
Sunset for the day being considered
Variables in RCHVAR are defined on card 16 of LAKSCI inputs (see
Table 12).
COMMON/TEMPER/
!
TEMPAV Average water temperature for reservoir (°C)
TEMREA(J) Temperature for element J (°C)
SATREA(J) DO saturation level for element J (mg/L)
BLANK COMMON
ZF(J)
V(J)
FLOW(J,K)
Reservoir surface elevation for day j (feet above
sea level)
Reservoir volume for day j (acre feet)
K = 1 flow into reservoir on day j (cfs)
K = 2 flow out of reservoir on day j (cfs)
K = 3 inflow temperature on day j (°F)
77
-------
TABLE 14. (Continued)
FORTRAN
Name
Description
ERR(J) BAL error on day j
OUT(J,K) Same as flow but different units (cms)
IF(J) BAL iteration counter for day j
ZM(J) Reservoir surface elevation for day j (meters
above bottom)
DATA Meteorologic data
ALPHA Heading for meteorologic data
INDEX Meteorologic parameters
CINFLO Inflow concentrations
CLAK Lake element concentrations
COTFLO Outflow concentrations
QVI Vertical inflows for elements (cms)
QVO Vertical outflows for elements (cms)
DCON Concentration changes
Variables in common blocks ABLK, BBLK, CBLK, DBLK, and NDV are
defined on pages 62-66 of Reference [3].
78
-------
SECTION IX
SAMPLE INPUT DECK
A listing of a sample input deck for LAKSCI is provided in Table 15. The
deck is for a simulation of Long Lake from June 1 (day 152) to November
30 (day 334), 1971. The missing inflow temperatures are filled in by
the program. Daily values of barometric pressure, cloud cover, wind
speed, dry bulb temperature, dew point temperature, and solar radiation
are input. Inflow concentrations are specified on days 152, 164, 192,
206, 213, 227, 249, 262 and 334. Output is requested every 20 days and
on 28 special days (when observed data was available). Two integration
steps per day are taken. The initial concentrations in layer 32, i.e.,
the top layer, are input. Nominal values for reaction rates are used
except for the benthal oxygen demand rate, which is set to 75 mg/m^-hr.
The constituent selection option is set equal to 2 (see Table 13). Total
nitrogen is modeled as a conservative. There is one turbine outlet at an
elevation of 21 meters.
79
-------
TABLE 15. SAMPLE INPUT
103.
25100
25700
21200
moo
17800
15200
15100
11900
11800
1600
5000
S200
5700
5600
2900
2500
2300
2«00
1900
2000
teoo
1100
1800
2000
2500
2300
2100
2200
2300
2300
2100
2000
2100
2100
2700
2400
2100
2100
2000
25.00
2600
2600
2900
. 2BOO
290(>
3000
18
1032
25000
20600
21000
20000
18600
16300
13900
I2SOO
5360
5700
6220
5230
Soio
0310
3800
2050
2680
3310
2700
26BO
1990
1500
1920
2680
2030
32UO
3870
£720
3500
2970
2950
2850
2550
2730
2790
2900
2700
3260
2650
3130
3330
3600
3060
3310
3070
3860
12
13
15
20
10
8
152
. 620,
.0 2U800
23000
20700
,7 18800
17200
1U600
12800
11600
0800
UBOO
.8 0800
5000
3700
3800
2900
2500
2300
1900
2100
1600
1000
,6 1500
1800
1800
2300
2300
2500
tCu C
2300
2300
2000
2000
2300
2000
2000
.0 2000
2500
.6 2000
2600
2600
2700
2600
2900
2900
3000
3600
350
25100
21000
22000
l')600
1BUOO
15000
13700
l?100
il?00
5700
6090
5770
11880
3920
3600
2730
2690
3110
2700
2680
830
2330
2130
2670
2750
3810
3370
C3CC
2720
3000
2920
2630
3060
2670
2860
2810
2/50
32flO
2900
3300
3260
3190
3?80
3380
3070
0610
•2752.95 109,969
1.
17.
in.
21.
16.
LONG LUKE METEOROLOSIC OAT4 JUNE
1971
JUNE 27
27
27
27
JULY 27
27
2T
2T
1
.03
.30
.00
.38
.50
.51
.60
.52
25.
27.
27.
27.
27.
27.
27.
2T.
27.
152
06
0 0
05 27
30 27
39 27
00 2T
55 27
59 27
61 27
50 27
330
•
.0
.50
.53
.55
.01
.61
.60
.53
.50
lie
0
27
27
27
27
27
27
27
27
20000
22300
20300
1B700
1660ft
1 10100
12500
9000
OPOO
8 0800
0000
0600
3800
3000
2800
0 2500
2300
2200
2000
1000
1200
1700
1800
2200
8 2300
2300
2000
2UCH
2300
2300
2000
1800
2000
1800
2000
2000
2500
2300
2600
2500
2500
2600
3000
2900
3200
0000
25000
22500
20800
19200
1BOOO
10SOO
13800
10000
5USO
5620
5200
6160
0000
osno
3200'
2180
2700
2620
2700
2810
1100
2620
2600
2850
3170
2000
3360
! IbC
2970
3320
3020
2960
2820
2/So
2760
29SO
2990
3000
2960
2710
3300
2810
3610
3510
"190
5090
-.7252
20,2
!1.
-------
AUG
SEPT
OCT
NOV
JUNE
JULY
AUO
SEPT
OCT
NOV
JUNE
JULY
AUG
SEPT
OCT
27,46
27,59
27.58
27.54
27, ?9
27,51
27.95
27,22
27.56
27,72
27.33
27.50
27.39
27.35
27,60
27,58
2
9
a
e
T
6
9
0
t
2
0
3
0
10
5.
1
e
3
0
2
to
2
9
8
10
3
8,9
7.9
6.0
12.8
10,2
7,5
4,8
5.9
5.4
7.9
6,1
0. 8
10.2
6.8
6.8
10.6
6.S
4.6
27.41
27.58
27.54
27.50
27.32
27. K3
27.80
27.30
27.70
27.67
27.34
27.19
27.78
27.54
27.81
27.39
.1
10
10
10
6
1
9
0
0
5
0
0
a
10
1
8
9
2
a
9
' a
9
10
10
10
.447
6.2
6.5
5.2
6.5
T.I
12.2
7.8
6.0
6.8
3.7
8,9
5.8
13.5
9.9
a. e
5.3
7.2
4.0
27.35
27.16
27. HO
27.0")
27,58
27.59
'27.5(1
27.39
27.68
27.61
27.26
27.09
27.57
27.13
27.72
27.11
0.0
10
7
3
10
1
5
Z
2
4
0
0
9
9
1
5
10
10
5
10
6
10
10
8
10
0.0
6.0
9.2
8.8
8,8
6.2
9.5
6.3
6.5
9.5
8.6
a. 6
6,8
7.2
13.5
5.6
10.9
6.9
9.2
27. «5
27.37
27.37
27.5'
-------
5,8
15,0
NOV |8.4
9,6
6.2
JO, 6
4
JUNE 53
57
58
57
JULY 65
64
76
71
AUG «4
sa
66
70
SEPT HI
66
51
55
OCT «7
57
34
«1
NOV 37
4)
31
JS
6
JUNE 45
39
36
40
JULY 37
51
«0
45
AUG 51
33
33
»l
SEPT 44
45
26
37
OCT 32
43
17
30
NOV 27
32
27
30
7
JUNE 476
706
669
8,8
16,0
11.1
6.9
7.1
0.1
.5555
49
54
60
56
60
56
78
74
83
81
71
74
53
69
52
51
49
56
43
37
36
43
31
35
.5555
43
46
48
32
32
43
46
46
44
37
36
42
48
46
29
• 43
35
42
25
25
26
41
27
31
.000115
115
130
293
17.3
11.1
15.2
6,2
12.1
8.6
•32,
52
56
64
56
60
57
80
BO
79
83
76
74
58
62
55
50
53
54
44
28
43
42
-0
36
• 32.
45
45
45
34
31
40
48
47
41
33
40
41
49
39
29
39
38
36
39
12
27
3A
35
32
0.0
219
589
693
12.8
6.0
19,4
6.0
5.5
7.1
0.0
56
63
65
51
66
60
82
78
77
80
75
76
61
61
52
50
62
51
42
24
34
41
«0
35
0.0
46
47
50
39
35
41
53
50
45
29
40
47
45
37
33
36
44
35
32
3
22
38
38
31
0.0
286
547
412
6.9
7,2
8,2
6,3
6.9
5,2
58
57
7?
58
56
65
82
75
80
79
70
74
69
56
50
43
63
46
41
23
27
39
40
33
42
46
53
38
38
40
50
43
50
31
41
49
47
33
32
36
49
31
29
9
10
35
34
33
684
463
677
8.1
5.0 ;
7.1
5.6
9,4
3,3
61
54
75
64
53
67
80
78
76
70
58
74
56
54
54
43
61
38
48
29
27
35
3S
28
'
44
38
53
41
34
39
46
48
55
36
42
54
48
29
34
32
46
26
37
18
14
30
23
27
694
695
660
5.9
8.5
5,0
3.7
6.3
58
56
63
55
72
78
81
80
70
58
60
54
51
62
54
40
44
27
30
37
11
45
36
44
33
44
41
51
52
33
42
"6
41
26
34
40
21
3A
?1
20
32
25
359
737
538
9,4
5,1
7,9
6,9
53
56
60
67
75
74
83
70
67
64
54
57
57
40
41
33
37
37
36
34
39
41
43
42
47
33
39
41
26
36
42
14
33
28
31
33
585
744
587
82
-------
627 • 734 447 204 721 644
JUIY 568 748 737 627 2«7 525
500 ' 463 663 66,5 750 726 •
T12 706 678 . 570 653 674
617 678 652 619 676 616
AUG 626 642 , 633 640 584 302
639 623 629 641 617 617
614 599 591 059 570 124
575 565 475 501 523 480
SEPT 137 127 333 535 526 233
«28 485 501 497 489 503
475 438 399 057 454 415
294 211 178 244 278 360
OCT 402 388 256 361 362 266
341 318 248 260 187 173
' 319 256 74 241 283 156
105 239 194 290 228 99
NOV 255 213 .96 15-T 248 178
146 67 116 24 48 ' 116
145 35 128 72 95 167
45 37 56 52 18 36
999
18 INPUT UNIT CONTAINING BAL AND MIFP OUTPUT
152 334
ORM SIMULATION OF LONC LAKE--ONE TURBINE INTAKE-'JUNE THRU MOV
SYSTEMS CONTROL INC
1.0
1 1
9.0F.-7
.195361E6
1
32.
152 164
258 262
152
11.7
,27
164
11.5
.16
192
9.3
.17
206
7.4
.14
213
T.7
,11
227
7.4
,11
289
8.8
,13
262
10,0
.11
334
10.0
32.
28 20
2.SE-1
.611446E6
21.
12.
173 189
264 265
.2
.274
.9
1.S5
1.74
3.
3.
1.6
1,16
15.
1 0
1.4E-5
O.OE6
552.
192 202
278 292
.01
.00
.02
.02
.02
.03
.02
.01
,01
0,
1 2
•7,E«1
206 208
300 307
,00
,02
.00
.02
.02
.06
.01
.06
.03
.07
.01
,06
.02
.13
,00
.15
.00
1.5E-9
2
3.65E4
213 222
313 320
.72
.66
1.2
1.3
1.?
1,S
2,1
2,0
2,0
•7.E-2
1
227 230 235
326 333
,02
.01
.03
.04
,0«
.02
.02
.02
.02
715 535
696 695
693 685
645
623 610
6?9 611
604 586
333
5?8 521
U9S 4R9
433 336
321 346
287 332
56 177
122
70 147
39 119
45 62
1971
236 244 249
1100.
4000.
3000.
2500,
600,
5500,
3000,
2000.
2000.
83
-------
.It
500
|S
I
12.
.IS
J2
11.7
200
0
.01
1 t
.00
-.02
.26
1 1 2
.006
1100.
75,
84
-------
SECTION X
SAMPLE OUTPUT
A listing of a sample LAKSCI output is provided in Table 16. The output
is the result of the input deck listed in Table 15 except that output is
requested on only 4 days. The output is self explanatory for the most
part. The first five pages are output by the water balance part of
LAKSCI and show the history of lake surface elevation, lake volume and
depth, lake inflow and outflow, and lake inflow temperature for the
simulation period. The next section lists the meteorologic parameters
for the 183 day simulation period. Summaries of the lake volume and
area profiles, reaction rates for each lake layer, initial concentra-
tions for each lake layer, and inflow concentrations follow. A summary
of the constituents being modeled is output and lake conditions on days
152, 200, 240 and 333 are listed. Histories of the calculated outflow
temperatures and concentrations are also output.
85
-------
TABLE 16. SAMPLE OUTPUT
INITIAL SURFACE ELEVATION. REFERENCED TO LAKE BOTTOM
ELEVATION OF LAKE BOTTOM. KtFeBENCED TO SfcA Lf-.vtL
TOTAL INFLOW FOR SIMULATION PERIOD
TOTAL.-DUTr LOW FOR SlHUL*TION PtKlOO
OIFFtKtNCE
DIFFERENCE
INFLO* fACTOR
FLO*
i.oooo
6ZO.OOOO(CFS)
tOI.(FT)
IIJZ.tFT)
03110550000. tfT**J)
"E218B5.CACRE FEET)
•620.CCFS)
00
O\
VOLUME • Cl*0 * CC2/2>*0»»2 t (C3/3)*D**3
AREA a Cl * C2«0 t C3«0«*2
WITH VOLUME IN ACKfc FttT AND 0 IN'fEET ABOVE LAKt BOTTOM
C2 « .14996900*03
C3 « p.725aoOOO.OO
-------
oo
' DAY
152
153
154
155
156
157
158
159
1M-,
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
163
184
185
186
187
IBS
ie9
190
191
192
193
l°a
195
196
197
19B
199
200
201
202
203
204
205
206
207
20B
209
ELEV(FT)
1535.13
1535.25
1535.26
1535.31
1535.20
1535.05
153S.21
15 35. Zf
isy..3''
1515.12
1535.17
1535.17
1535.06
153". 99
1535,01
1534. 8b
1531^70
1534.47
1534.16
1554, 17
l!i 3 3. 98
1531.06
1534, IS
1533.88
1533.85
1533.74
1533.47
1533.414
1533.44
1533.49
1533.18
1533.08
1553.11
1533.31
1533.30
1533.20
1533.09
1532. 9B
1532.90
1533.14
1533.06
1532.79
. 1552.72
1532. 7u
1552.97
1532.91
1S32.54
1532.58
1552.51
1552.09
1S52.25
1532.40
1552. 4«
1532.64
1S32.51
1S52. 59
1S52.28
1052.23
V(4CFT3
2.484* OS
2.49l»05
2.49l»05
2.tl9u«o5
2.486*05
2.480*05
2.48Vto5
«•.'.!•"< .|S
2. -i '»o».. 5
2.'.ag»o5
2.4tt>»o5
2.4«7»05
2.48|»o5
2.47<>»U5
2.4H0*05
2.471*05
2.463+05
2.u52»05
2.43btoS
2.4ih*OS
2."2/»05
2.45it05
2-.436+05
2.422+05
2.421+05
2.415+05
2.40?t05
2.400+05
2.400+05
2.403+05
2. i?/»05
2. 5R2+05
2.38.(tn5
2.39utg5
2.395+05
2.38S+05
2.3»*+05
2.37/+Q5
2.375+05
2.3*5*05
2.3»l»o5
2.560*05
2.364+05
2. Vjb + 05
2. (7/toS
2. t7u«o5
2.3S'., + 05
2.55/+05
2.34u*o5
2.532+05
2.5"1»05
2.34B+05
2.350*05
2.360+05
2.35U+05
2.34fc»oS
2..\4,!+i;S
2.540+OS
tRR
•1.9S3-OS
3.9ti6-OS
3.906-03
-3.906.03
-0.000
3.906-03
-9,766-03
1 .f')3-c> J
-3.SL6-05
-9. /66-03
9.766-03
1,953-03
-1.9b3-03
5.0-i9-03
•"•l,9'ji-03
-3.906-03
-7,813-03
S,8!,9-03
-0,000
-3.906-03
-1 .367-02
5.f)'j9-03
9.766.05
.-3.906-03
7.813-03
3.906-03
-1.9;, 3- 03
.5.859-03
-1.953-03
1.9>5i-AJ
-1.1/2-02
-1.172-02
3.9(16-03
-1.953-03
1.9b3-03
-1.172-02
-0.000
-3.906-03
9.7t,6-03
-3.906-03
-l.9bJ.03
-1.1/2-02
-0.000
1.953-03
1.9-33-03
-5,H'39-03
-9,766-03
3.906-03
-1.172-02
.0.000
1.9S3-03
3.906-03
-9.766-03
-1.9bS-03
-3.906-03
3.906-.03
3.906-03
.0.000
-I TEH
2
Z
2
Z
2
2
2
2
2
2 '
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
:N(CFS>
£5720.0
25X20. 0
25020,0 '
24720.0
24320.0
23620.0
22920.0
22320.0
2182U..O
21520.0
20920.0
20120.0
19720.0
1-9U20.0
i952o.o
19120.0
18420.0
17820.0
17220.0
.16620.0
15020.0
15220.0
11720. C
11120.0
. 13720.0
13420.0
13120.0
12920.0
12520.0
12220,0
9620.0
6020.0
5420.0
5420. "o
5120.0
5420.0
5120.0
5420.0
5420.0
5020.0
6020.0
5420.0
5020.0
5220.0
5820.0
5o20.0
5220.0
4720.0
4320.0
4320.0
4420.0
4420.0
4420.0
4420.0
4020.0
36*0.0
3520.0
3520.0
OUT(CFS)
25400.0
25100.0
25000,0
24600,0
24600.0
24000,0
22500,0
22300,0
21400,0
22000,0
20800.0
20100.0
2(iOOO,0
19600,0
19200,0
14600,0
IsSuO.O
18400,0
18000.0
16600,0
163UO.O
15000,0
14500.0
14800,0
13800,0
13/00,0
13800.0
130UO.O
12500.0
12100.0
10400.0
62/0,0
5360.0
4900.0 .
5450.0
5680.0
5700.0
5700.0
5620.0
5*10.0
6220,0
609Q.O
5200.0
5180.0
5230.0
5770.0
6160,0
4610.0
5010.0
4600,0
uOOO.O
11060,0
4310.0
3920.0
4340.0
3930.0
38uO,0
3*40.0
TEHPtf )
S3. 60
53.86
54.11
54, J7
54,62
54.88
55.13
.55.39
55.64
55.90
56,15
56.41
56.66
57.34
5H.02
58.70
59.38
60.06
60.74
61 .42
6B.10
62.78
62.52
62.26
62.00
61.75
61.4V
61,23
60,9.?
60.71
60.45
60.19
59.93
59.60
59.42
59.16
58.90
58.64
59.24
59. 8«
60.44
61 .01
6 1 . •> I
6<>.14
62.70
63.27
63.83
64,40
64. 97
6S.53
66.10
66.66
67.23
67.79
68, 46
6B.S7
68. 7 / .
68,90
IN(CMS)
728,3
719.8
708.5
700.0
688.7
668.6
649.0
632.0
617.9
603.7
592.4
569.7
558. U
549.9
547.1
541.4
521.6
504.6
487.6
470.6
4 u 8 . 0
431.0
416.8
399.8
388.5
380.0
3/1.5
365.9
354.5
346.0
2/2.4
170.5
153,5
153.5
153.5
153.5
153,5
153.5
153.5
164.. 8
170,5
153.5
142.2
147.8
164.8
159.1
147,8
133.7
122.3
122.3
125.2
125.2
125.2
125.2
113.8
102.5
99.7
99,7
OUT(CHS)
719. J
710,8
707,9
696.6
696.6
679.6
637,1
631.5
. 606.0
623.0
se^.o
569.2
566.3
555.0
545.7
555.0
532.4
521.0
509.7 .
470. 1
461,6
424.8
410.6
419,1
390.8
387.9
390.8
360.1
354.0
342.6
29q,5
177.5
151.8
130,8
154ii
160,6
161.4
161 .4
159.1
147.5
176.1
172,5
1«7.2
146.7
146.1
163,4
174.4
130.5
141,9
130.2
113.3
115,0
122,0
111,0
122.9
111.3
1 0 7 . 6
103,1
TtMP(C)
12.00
12.14
12.28
12.42
12.57
12.71
12.85
12.99
13.13
13.27
13.42
13.56
13.70
14.08
14.46
14.83
15.21
15.59
15.97
16.34
16.72
17.10
16.96
16,81
16.67
16.53
16.30
16,24
16.09
15. 9b
15.8]
15.66
: 15.52
15.30
15.23
15.09
14, 9 II
14.80
15,13
15.47
15.80
16.11
16.43
16.74
17.06
17.37
17.69
IB. 00
18.31
18.63
18.94
19.26
19,57
19.89
20.20
20. U
20.4.}
20,54
DEPTH(M)
31.41
31.45
31.47
31.46
31.47
31 .43
31.43
31.46
31 .49
31.47
31.44
31,45
31.43
31.40
31,40
31.38
31.33
31.27
31.19
31 . 14
31,11
31,10
31.12
31.09
31.05
31.03
30.97 -
30.92
30.92
30.93
30.89
30. «3
30.81
30.65
30,88
30, B6
30.83
30.79
30.77
30,79
30.82
30.76
30.71
30.70
30.74
30.77
30,70
30.65
30.62
30.54
30.53
30.56
30,61
30.64
30.66
30.62
30.58
30.56
-------
00
oo
219
211
212
213
214
215
216
217
218
•219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
211
212
213
214
215
216
217
218
219
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
206
i!»7
^hft
>»»
1532,30
1532.25
1532.52
1532.67
1533.01
IS33.13
1533.22
1533.31
1533.10
1533.61
1553.50
1533.26
1533.34
1533.30
1533.2.3
1533.24
1533.21
1533.72
1533.69
1533.51
1533.20
1S35.22
1553.39
1533.87
1534.11
1534.0*
1534.25
1554.17
1554,05
1534.05
1531.25
1531. .57
I'i31.28
1551.08
1551,06
1533.96
1533.95
1531.09
1531.11
1531.51
IS34.11
1534,50
1554.38
1534.02
1554.37
1534.«1
1554.4/
1534.37
1534.23
1531.10
1531.11
1534.64
1555.27
1535.07
1531. flu
1534. 9j
I51u.«»o
IS^U.IH
.1 S S <• . * h
V*> V • * •* \
2.303+05
2.341+05
2.354+05
2.562+05
2. -38 0 + 05-
2.381+05
2,389+05
2,391+05
2,598+05
2.109+05
2.403+05
2.391+05
2.395+05
2. 395+05
2.390+05
2.390+05
2. 388+05
2.111+05
2,113+05
2.104+05
2.368+05
2.389+oS
2.598+05
2,421+05
2.435+05
2.431+05
2.1'U + 05
2.4 (6+05
2, 1(0 + 05
2.431+05
2.441+05
2.446+05
2.442+05
2.432*05
2.131+05
2.426+05
2.426*05
2.433+05
2. 450+05
2.154+05
2.4'|9+ i)5
2.453+05
2.447+05
2. 429+05
2. 447 + 05
2.468+ 1)5
2. 452+ OS
2.447+05
2,440+05
2.418+05
2.450+05
2.460+05
2.491+05
2.482+05
2.470+05
2.471+05
2.473+05
2.4;<^«05
2.<71«i,S
/ . . » n • •} S
.0,000
.1.955-03
.0.000
.5.859-03
-.9,766.03
.1.953-03
1,367-02
.0.000
3.906-03
3.906-05
.5.MS9-01
-5.859-05
3.906-04
1.953-03
-S.8S9.03
1 .953-03
5.859-04
1.954-03
.1.953-03
.0.000
7.813-03
.3.906-03
.0.000
.1.31,7.02
7.815-03
.7,8_i3-03
.9,/t,6-03
-1.953-05
.7.813-04
-1.955-03
-9.766-03
7.813-03
-7.813-03
-1. 567-02
-1.9S3-03
1.953-03
1.9S3-03
•0.000
7.813-03
.1.9',3-OS
-1. 943-05
.0.000
5.859-03
.9.766-03
1 ,3h/-02
-1.1 72-02
-3.906-05
-1.1/2-02
.7.813-05
.0.000
-1.953-03
>1.3b7-02
-7,815-03
9.766-03
-1.172-02
1.9S3-03
-I. 954.. 01
-S.1'i9.03
• \.-i-i S-J15
-*> . 1 i.*i." \
Z
2
2
?.
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
f
2
2
2
2
2
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
f
2
2
2
2
2
2
2
2
2
2
2
2
f
f
3120.0
3120.0
3120.0
3120.0
3120 0
• 2520.0
2920.0
2920.0
2920,0
3020.0
3020.0
2520.0
2820.0 '
• 2320.0
2520.0
2/20.0
2020.0
. £720.0
2620-.0
2220.0
2020.0
2i?0.0
2120.0
2020.0
1820.0
1820.0
2020.0
2120.0
?S20.0
2520.0
2120.0
2120.0
2120.0
25^0.0
2i>?0.0
2VO. 0
2»;:o.o -
?920.0
2920.0
2920.0
2920.0
2920.0
2920.0
29^0.0
2920.0
29,-Q.O
4020.0
3120.0
5020.0
2920.0
2820.0
2820.0
3U20.0
2U20.0
2920.0
2920.0
29^0.0
2"->U.O
."VO.O
^"'n-fl
J210.0
3250.0
2«50.0
2730,0
. 2 1-B-0-. 0
2310.0
2680,0
2690.0
2700.0
2190,0
3310.0
3110,0
2620.0
2120.0
2700.0
2700.0
2700.0
1130.0
2680,0
2680,0
2810.0
2360.0
1990.0
830,0
1110,0
2010.0
1510,0
2330.0
2620.0
2310.0
1920.0
2150.0
2610.0
3010.0
2680.0
2670.0
2850.0
2560.0
2030.0
2/50.0
3170.0
2690.0
3210.0
3810.0
2010,0
1830.0
38/0.0
3370,0
3360,0
2190,0
2720,0
2320.0
1150.0
5310.0
3500.0
2720.0
2970.0
29/0.0
29/0.0
3010.0
69.18 •
69.39
69.59
69.80
69*61
69,11
69.22
69.03
68.81
68.61
68,15
68.26
68.06
67.87
67.68
67.19
67.29
67,10
67.32
. 67,51
67.76
67. 9B
68.20
68.12
68.61
68,66
69.08
68,55
68.04
67.50
66.98
66.45
65.92 '
65,10
61.67
61.31
65.82
63.29
62.77
62.24
61.91
61.58
61'. 21
60.91
60,58
60.25
59.91
59.58
59.25
58,92
58,58
58.25
57.92
57.89
57.85
57.82
5/.79
57. /5
S/./2
57.66
96.8
88.3
88.3
88.3
68 , 3
71,1
82.7
62.7
82.7
85.5
85,5
71.1
79.9
65.7
71.1
77.0
71.2
77.0
71.2
62.9
57.2
68.5
68.5
57.2
51.5
51.5
57.2
60.0
65.7
65.7
66.5
68.5
68.5
71.1
70.2
66.5
/9.9
82.7
62.7
82.7
82.7
82.7
82.7
82.7
82.7
82.7
Bb.S
88.3
85,5
82.7
79.9
79.9
85.5
79,9
82.7
82.7
82.7
82.7
82.7
82.7
91. T
92.0
69.1
77.3
61.7
65.1
75.9
76.2
76,5
70.5
93.7
88.1
71.2
6B.S
76.5
76.5
76.5
10.5
75,9
75.9
79.6
66.8
56.1
23.5
32.3
• 56.9
13.6
66.0
71.2
65.1
51.1
60.3
71.8
65.2
75.9
75.6
80.7
72.5
57.5
7/.9
89.8
76.2
91.7
107.9
57.8
51.6
109.6
95.1
95.1
70.5
7/.0
65.7
11.1
95.7
99.1
77.0
81.]
61.1
61.1
80. 1
20,66
20.77
20.89
21.00
20,89
20,79
20.68
20.57
2U.16
20.46
20.25
20.11
20.01
19.93
19.62
(9.71
19.61
- 19.50
19.62
19.71
19.87
19.99
-20.11
20.23
20.36
20.18
20.60
20.31
20.02
19,72
19, UJ
19.11
13. ?5
18.55
18.26
17.97
17.68
17.38
17.09
16.80
16.62
16.13
16.25
16.06
15. PS
15.69
1'>.51
15.32
15. 1U
14.95
14.77
11.56
14.40
11.58
14.36
14.31
11.33
14. <1
14.29
14.27
30.56
30.56
30.60
30.66
30.74
30.81
30.84
30.87
30.89
50.94
30.95
30.90
30.38
30.68-
30.87
30.86
30,65
30.95
31.00
30.97
30.89
30.85
30.68
30.98
31.09
31.12
31 .14
.31.15
31.12
31.10
31.14
31.lb
31.19
31.14
31.11
31.09
31 .08
31.10
31.17
31.24
31.23
31,23
31.22
31.15
31.15
31.27
31.23
31.22
31.16
31.19
31.22
31.26
31.38
31.45
51.38
31.36
31.37
31.36
31.36
31. 3J
-------
oo
vo
270
271
272
273
274
275
276
277
278
279
280
281
282
2h3
264
285
286
387
268
2R9
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
3C6
307
3C8
309
310
Ml
312
313
Sl<"
315
316
317
318
319
320
321
322
325
324
325
32*
327
33
1535.59
1535.55
1545.58
' 1535.50
1535.58
1535, 41
1535.02
1535.58
1535.51
1535.53
1535.62.
1535.65
1535.55
1535.59
1535.65
1535,65
1535.61
1535.63
1535.69
2,161+OS
2.063*05
2.160+05
2.166*05
2. 066+05
2.070+05
2.173+05
2.47/+OS
2.1hh+05
2.059+05
2.16H+05
2.165+05
2.169+05
2.072+05
2.478+05
2..0S1 + 05
2.075+05
2.161+05
2.171+05
2.175+05
2. CHO+C5
2. «/'j+ 05
2.u76tOS
2.001+05
2.082+05
2.176+05
2. 082+05
2,089+05
2.092+05
2.UK5+05
2.180+05
2.175+05
2.173+05
2,179*1)5
2,087+05
2.192+05
2.097+05
2,503+05
2.503*05
2,501+05
2.509+05
2,508*05
2.506+05
2,507+05
2. 503*35
2.507*05'
2.099*05
2.099+05
2.50/+05
2.501*05
R.50o«05
2,509+05
2.509+05
2.505*05
2.500+05
2.510+05
.2.511*05
2.508*05
2,509*05
2.512+05
1.367-02
•0.000
5.859-OS
'O.ooo
-0.000
-1.953-03
7.813-03
-3.906-03
.3.906-03
•1,953-03
1.955-01
7.813-01
•1,951-03
1.953-03
-3.906-03
1.906-03
1.953-01
5.8',9-OS
1.953-03
-3.906-01
-1,367-02
1.9')3-0i
• 9,7r>&-01
1.953-01
-3.906-03
1.953-01
-3.9u6.03
-0.000
1.9',3-OS
1.953-03
-1.953-03
-0.000
-o.ooo
-5.059-03
-1.95S-03
1.9-..3-03
3,906-03
•9. 766-03
3.906-03
-0.000
3.906-03
•3,906-03
9.766-03
-1.953-03
1.953-03
1.9'il-OJ
3.906-03
3.906-03
-0,000
7.813-03
1.9',3-03
-1 . 953-03
3.906-03
-1,953-0}
-3,906-01
1,953-03
-o.ooo
-1,953-03
1,953-03
1,953-03
2
2
2
2 •
1
2
2
2
2
2
2
2 .
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
Z
1
2
2
2
2
2
2
2
2
2
2
2
2
2
1
2
2
2
1
2
2
2
.2920.0
3020.0
3020.0
.3020.0
3020.0
3020,0
3020.0
3020.0
2«20.0
3020.0
3020.0
2920.0
3020.0
3U20.0
3020.0
3020.0
2020.0
3120.0
3320.0
3020.0
3020.0
3020.0
3020.0
3020.0
3020.0
302-0.0
3020.0
3120.0
3120.0
3020.0
3020.0
3020.0
2920.0
3020.0
3020.0-
3220.0
3220.0
3320.0
3120.0
3220.0
3120.0
3220.0
3220.0
3320.0
3120.0
3220.0
3220.0
3220.0
3220.0
3320.0
3520.0
3520.0
3620.0
3520.0
5020.0
3520,0
3520.0
3520.0
3520,0
3620.0
3320.0
2910.0
2950.0
2920.0
5020,0
2860.0
2850.0
2830,0 .
2960.0
53HO.O
2550.0
3060,0
2820.0
28/0.0
2MO.O
2»70.0
2'iO.O
3810.0
2/90.0
2860.0
2700.0
52oO.O
2900.0
2810.0
2950.0
3300.0
2700.0
2/50.0
2990,0
33/0,0
3260.0
3200.0
3000.0
2690.0
2650.0
;>900.0
2960.0
3030.0
3130.0
5300,0
2710,0
3300,0
3330,0
3260.0
3300.0
• 3000,0
3600,0
3190.0
2810.0
4500.0
30KO.O
32BO.O
5610.0
3720.0
3310.0
3380.0
3blO.O
5640.0
3070.0
3170.0
b7.6i
57.62
57.58
57. Sb
57.52
57. OB
5'/.OS
57.01
57.38
56,85
56,53
55.80
55.27
50.70
50.22
53.69
5 t.lo
52.60
52.11
51. S«
51 .05
50.'>5
5 0 . 0 U
09,69
«9,5/
09,06
0».7<4
OH.03
08,11
07.80
07.00
07.20
06.91
06.63
06.45
06. O/
05.78
05,50
05, OB
05. Ob
o5.oo
U5.02
05.00
05, 3b
05.56
05.30
«5,.(2
15,10
U5.2B
u5.Pt>
05.20
05.22
U5.20
05. IB
45,16
45,10
45,12
4'>,1U
tl'i.On
45, Ob
92.7
85.5
85.5
85.5
as, 5
85,5
85.5
85.5
68. 5
85.5
85.5
82.7
85.5
85.5
85.5
85.5
68.5
B8.3
90.0
85.5
85.5
85,5
or).5
HS.5
85.5
85,5
85.5
88.3
BH.l
85.5
85.5
85.5
82.7
US. 5
US. 5
91.2
91.2
90.0
88.3
91.2
ee.3
91.2
91.2
90.0
88.3
91.2
91.2
91.2
91.2
90.0
99.7
99,7
102.5
99,7
96.8
99. r
99.7
99,7
99,7
102,5
91.0
62.4
83.5
82.7
85,5
81,0
80.7
60,1
65,8
95.7
72.2
86,7
79,9
81.3
77.3
81.3
7/.»
107. 9
79.0
81.0
7H.2
92.3
85.3
79.6
83.5
91.6
76.5
77.9
60.7
95.1
92.3
92.9
86,1
76.2
75.0
83.3
83.8
85.8
68.6
93.4
76,7
93.4
90.3
92.1
93.4
86.1
103,1
90.3
79.6
99.1
98.5
92. 9
102.2
105.3
91.7
95.7
99.4
102.8
98,3
98.3
14.25
10.23
14.21
14.19
10.18
14.16
14.14
14.12
14.10
13.81
13.51
13.22
12.93
12.64
12.34
12.05
11.76
11.46
11.17
10.66
- 10.59
10.29
10.00
9.dS
9,65
9.48
9.30
9.13
8.95
6.78
8, BO
8,00
8,29
6.13
-. 7.97
7.61
7.66
7.50
7,1V
7,08
7. 1/
7.06
7,44
7,03
7.02
7.41
7.40
7,39
7.38
7.37
7.56
7.34
7.33
7.32
7,31
7.30
7.29
7.28
7.2/
7.26
31.31
31.30
31.31
31.32
31.32
31.33
11.35
31.37
31.35
31.30
31.11
51.53
31,33
11.15
31.38
11. 40
31.39
31.33
31.32
31.36
31.39
31. S9
31.38
31.40
31.41
31.40
51.40
31.44
31.07
31.86
11.42
31.39
31.37
31.38
31,42
31.06
31,50
31.53
31.55
31.50
31.56
31.56
31.57
31.57
31.56
31.56
31.54
31.52
31.55
31,56
31.55
11.57
31.58
31.57
31.57
31,56
31.59
31.59
31.58
31,59
-------
JJO 15J5.SU 2.505*05 -l.9bJ.OJ 2 J820.0 8190.0 85.08 08.2 18.6 7.28 J .58
SJ1 1535,31 2.898*05 -7.813-03 Z «020.0 «600.0 85.02 111.8 JJO.J 7.2J JJ.«
JJ2 15J5.J7 2.897+05 -5.8S9-OJ 2 8020.0 J860.0 85.00 H3.8 109.J 7.22 J .50
JJJ 15J5.22 2.869*05 -7.8U-OJ 2 «2.>0.0 8610.0 88.98 119.5 1^0.5 7.21 J .88
Jja 5J5 OJ 2.880*05 -J.906-OJ 2 . 8620.0 5090.0 88.96 130.8 1*8,1 7.20 31.83
VO
O
-------
LONG LAKE HETEOHOLOGIC DATA---JUNE THRU NOVti971—DEEP RES MODEL-PHASE 3
YEAR
DAY
LAST DAY
DBS
TAPt OUT
152
334
1
la
A
B
LATITUDE.
L'ONGITuDE
ELEVATION
•0*00
• 0,00
48.0
118.0
UbO.O
ATMOSPHERIC PRESSURE INPUT
CLOUDINESS INPUT
WIND SPEED INPUT
DRY BULB TEMPERATURE INPUT
DEW POINT TEMPERATURE INPUT
.SHORT WAVE SOLAR RADIATION INPUT
CONVENTIONS -
CONVERSIONS
CONVERSIONS
CONVEKUIONS
CONVERSIONS
CONVERSIONS
2.500+01
1.000-01
1,170-01
S.55b-01
S,55b-01
i.iso»ou
0.000
0.000 .
0,000
-3.200*01
-3,200+01
0,000
0.000
0.000
0.000
0,000
0.000
OtOOO
END DATA INPUT
-------
vO
to
NO
NET SOLAR
METEOROLOCIC DATA
NET ATMOS AT PRESS
BtUB
WIND
EO
I
2
J
a
5
6 '
7
8
9
10
11
1Z
13
14
15
1*
17
18
f
ZO
21
ZZ
Z3
Z1
25
26
27 '
£8
2'
JO '
51
32
33
31
JS
36
37
38
39
"0
41
42
113
an
as
06
87
U6
49
50
.05156
.01237
,02356
.03099
.07391
.07-100
.03863
,06340
.07605
.01398
.U6371
,05881
.05009
.1)7190
.07942
.1)8018
.07238
.03151
.07470
.04458
.07326
.07103
.05821
.063S1
.0678H
.079(11
.04806
.02193
.07/69
.06966
•0614H
.08058
.07937
.06794
.02676
.05688
.07725
.05796
.05416
.05015
.07159
.07180
.08042
.077.84
.07511
,071U1
.07650
.07565
.07311
.06166
, 07«69'>, /0599
69V. 7699')
702.05599
700.53199
696,46799
697.73/98
696.06/99
695.45199
695.95999
696..M399
698. 75399
702.05599
701.'j3999
698.09999
699.76999
701.29J99
699.26199
698.49999
69rt.^u->99
701.^0199
69ri,^q'.)Q9
698.75399
700.78599
702.05599
702.56J99
703.07199
702.81798
699.^6199
697.99199
701.03999
701.29399
699.26199
697.99199
11.66550
9.4U.450 '
11.11000
13.33200
14.44JOO
16, 109'jO
14.UU300
11.66550
13.H0750
12.22100'
1*. 33200
1 /. 22050
13.H8750
12.221UO
13.33200
13.31200
14.4USOO
15.55400
1 7.77600
I 8. 33 150
22.22000
25.H8650
17.22050
15..551-CO
13.88750
13.33200
1 S. 33200
10.55450
14.44300
1 7.7/MlO
1«. 33150
15,55400
15.55400
IP. 88700
15,33200
1 1 .66550
12.77h50
J9.uu250
.17.7/600
13.33200
13.H*750
15,55400
1«.3S150
I9,aq250
22.22000
23.HU650
24.41200
25.55500
26.60400
27. 7/500
10.16788
9.41933
10.16788
10.56145
9.C6362
9.78735
10.16/88
7.16764
B.C665i
10.5614'i
10.16783
10. 96033
1 1.3H90i
7.75615
7.16764
6.61869
7.16/64
11. 3890s
10.1678.-J
12.<>7328
13.71288
13.71288
9.78730
8.06656
8.3fl75,'i
6.10/20
6.6186')
8.C665K
7.7564'j
b.719h^
7.45691
6. 10726
S. 86492
6.fcH633
7.75645
6.61C69
6.35843
S./l'B,!
12.73/60
9.41933
8.311758
8,71982
R.3P75U
8.06650
9.78/30
9.U1933
B.38/5H
10.5614'j
11,38906
13.71280
J. 97830
3.66540
2.66200
4,96170
3,97830
2,63730
4.82760
5.00640
3.53130
2.90550
4.11240
4,067/0
5.09580
6,71970
4.51070
4,87230
Z. 68200
2. 32400
3.91360
Z. 63730
3.79950
2.95020
1.82760
3.620/0
5.72160
2.90550
3.93360
2.63730
3.93360
2.90550
1.S59UO
3,173/0
2.77140
3,97850
5.98980
5.67690
2.63730
2. 90550 .
3.35250
5.45340
4,24650
Z, 05620
2,14560
2,05620
2,19030
1.92Z10
2,14560
3.48660
Z, 81610
2..45B50
27,33251
6.03548
14.02301
19.05766
36.05499
38.03676
26.451914
30.35486
36.44860
10.64367
32.68097
40.93120
26.43028
34.65023
36.29547
37.86840
40._12001
21.42592
40.07328
33.25973
48.69803
51.89267
36.76859
38.87286
35.53155
39.44662
29.69020
12.43117
36.78180
40.41599
36.97634
39.35405
36.73557
42.53892
16.89^36
27.01311
35.67237
41.81368
37.H001
28.88139
.35.06021
35.6/682
02.76950
12.93219
45.49592
47.46008
49.20146
50.51714
51,11401
51.51185
-------
vo
NO
NET SOLAR
METEOROLOG1C DAT*
NET ATHOS AT PRF.SS DRY BLUB
«IND
EQ TEMP
51
52
5S
50
55
56
57
58
59
60
61
62
63
60
65
66
67
68
69
70
71
72
71
70
75
76
77
78
79
80
81
63
83
84
85
86
87
BA
89
90
«1
92
93
94
95
96
97
98
99
100
.07038
.07217
.07118
.07331
,06966
.07253
.07016
.06659
,07226
.06622
.06892
,06725
,06891
.06795
.06630
.06261
.03255
.0667/
.06501 '
,06b07
.06631
.06695
.06820
.06562
.06591
.06713
.06531
.06576
.06376 •
.06288
.01908
.06091
.01329
.06175
,06262
.QM21
.06017
.05107
,05356
.05587
.05155
.03570
.0(161
.01357
.03569
.05660
.05566
.02194
.05601
.05525
,09191
.08928
.06732
,08319
,08269
.08319
.OS989
.08791
,08113
.08716
,09028
,09396
,09372
,09070
,06635
.08989
,09250
,01)911
.09230
,09129
,09028
.09230
,09928 .
.OB829
.07991
.07900
.07991
.07920
,OHOM
.OH53B
.08802
.OflOSU
.OB137
.07061
.07713
.07980
•OBS76
,09198
,08669
.08177
.09011
.08098
.07321
.07676
.0/912
.07200
.07H90
.07531
.06683
.07503
697,99199
699.00799
697.22999
696.97599
699.00799
699,51599
69B. 19999
697,71798
700.27799
699.26199
699.51599
697.1BS99
696,97'.>99
691,68999
697.2299V
697,99199
698,^0599
697.22999
698.75S99
700. 7859V
700,54199
697.MR399
695.19799
695.19799
69/,UBi99
697,99 199
699,26199
700.53199
69V. 5 1599
695. 95999
695,19799
697. 22999
697.99199
701,31199
701.51799
699.51599
6VH.U9999
698,21599
699.51599
697,18399
693.67399
69u.« 3599
693, 16600
693,92800
700.53199
699,00799
693.92800
697. (•2999
701.08799
698.75S99
27,77500
26,66100
25.55300
23.33100
22.77550
23.33100
26.6MOO
25.55300
23,88650
25.55300
27,21950
2R.8B600
28.33050
26.10850
20.99750
26.66100
21.11200
26.66100
26. 53050
27.77500
27.21950
26.33050
26,66100
26. 10850
21.10900
21,10900
21.10900
19,99800
21.66150
21.11200
2.1.S8650
21.IU900
11.11300
11.11300
19,111250
21 .10900
23.33100
21.33100
. ("1.H200
23.33100
2 3 . J 3 1 0 0
15.55100
9.iu350
11.66550
11.11300
16,10950
20.SS350
13.33200
12.22100
17.77600
12.27326
10.56115
9.11933
9, 06362
10,lh7E-8
10.51-115
10.91,838
.12.27326
9.11953
11.3B906
12, 73V60
12.73760
9.7«7iO
8.71902
10.16768
12.-,i7326
11. 75322
13.21 733
10.96836
6,35813
7,15691
6.3581J
5,40562
5.BM92
7. \6761
6. 158 '13
6..15B13
6.35813
7. 16761
6.3h7'ia
8.38758
8.71932
9,06362
9.04362
8.06656
8,71912
9.0M32
8.719-J2
10.96038
11.02338
11.221'>9
10. '.16115
9./P/30
11.X890C
11. (12 3 98
10. 16736 '
10.96838
11.58906
8.719B2
8.71932
3.35250
3.18660
0.29120
2.81610
2,63730
2.6B200
2.9Q5SO
1.67230
3,79950
2.32110
3.35250
2,50*20
3.93360
1,?1650
2.90550
• 2.6B200
3.35250
3,06130
3.66510
3,53130
1.65390
3.81120
1,51170
1.20180
1.51170
2.77HO
5,7h630
3,62070
3.97830
2.05620
5.90010
3.97830
0,12530
2,50320
2.32HO
2.11560
2,59260
3.03960
2,63730
2.B1610
3,66510
6,13680
1.S59UO
6.03150
3.21610
3,397iO
0.69350
0,55910
2.63730
3,71010
51.71064
50.11260
09.76510
16.00662
13.19182
15.61668
19,90159
16.37766
16.31510
05.80903
09.59853
51.09102
52.51658
19.15797
15.91830
16.01806
32.8119U
17.7/152
19.32505
50.02630
18.27837
50.31989
18,37897
16.21305
39,23067
39.72769
38.92651
38.51063
38.77583
H2. 31997
37.19327
37.00179
13.15511
30.65189
35.12787
36.hil926
11.10207
11,16971
38.65318
38.19620
10.83063
21.6i39o
7.20088
9,66121
23.02161
27.68103
33.07316
11.27670
22.95378
29.55805
-------
NO
NET SOLAR
METEOROIOGIC DATA
NET ATMOS AT PRtSS DRY BLUB
HIND
EO
101
102
101
loo
105
106
107
108
109
110
111
113
113
118
115
11*
117
118
119
120
121
122
185
124
125
126
127
128
129
130
111
132
133
130
135
136
137
138
139
110
111
1«2
143
141
115
116
117
118
119
ISO
.01535
.05151
.05299
.05251
.05162
.052*9
.05219
• .05132
.05000
•04650
.01206
.01H05
.04/81
•04365
.01550
.0.3587
.03129
.02211
.01891
,0?591
.02950
,03776
.01212
.01060
.02712
,03816
.03771
.02B07
.03137
.03589
.03531
.Oi29i
.0?563
.02729
.01961
•01«23
. 02917
•03412
.05266
.02670
.00778
.02506
.02BH2
.01636
,00598
.01859
.01102
.02129
.02013
.02919
.07949
,07901
,07296
.07249
>0b806
,00658
,06420
.06658
,06120
.07190
.07002
.06584
, Oh377
.06819
,07296
.07821
,07447
'.0/291
.07411
,0/411
,06464
.05988
,06207
,06302
.0/676
,08076
,07380
.08192
,06740
,OhB74
.06B74
.069BO
,06930
.07291
• ,06411
,06423
,05710
.05624
. 0^266
.06632
,06902
,06553
.05B46
.07238
.0*902
.06511
.06659
,05571
,05158
.01626
698. 75399
696.72199
700.78599
702.81 /98
702.56399
704. 51199
703.H3S98
708.91398
709.92998
706.11998
699. '> 1599
704. 54199
704.b9b9()
703.07199
69B.75.J99
69<4.')4bO
11.11000
12.7/hbO
1 1 .11000
9,99')00
12.22100
Ih.h6b00
13.HH7SO
J2.7/150
in.SblbO
9.9'*900
9.99900
6. 1 1050
6.H050
8.35250
9.41 (50
11 .6hSbO
16.66bOO
17.^2050
16. 10950
12.2^100
l3.««/bO
1 3. t'H 750
15.35200
12.22100
10.5'j4'jO
/. 7/700
«. ii.iOO
4 . 4 u 4 0 0
4.44100
. 1.11100
6.11050
6.6'>600
5.SbSOO
4,999bO
B. 81600
6,ho600
4.99')bO
4.999bO
2. 77750
-2.22200
»1. 44100
lo.urna
10.56145
8,06656
7.15691
6. 35D13
b. 401,62
4.77634
4.77o34
4.77634
5.405f>2
5.4051.;;
6.350-13
6. 10726
6.618(,9
6.618(,9
7.167M
7.1S691
9.419-<3
8.06fa'j6
7. 16/(>4
7.16764
6. 10726
6. 10/26
6.85855
7.750'IS
9.737.10
11.823H8
10.5M'I5
' B. 5*758
9.0*.3i>2
9 . 4 I1' 3 3
9.06362
7. 16764
6.8-Bh 15
5.HS4')?
1.77n.S4
3."/U^2
2.BS9S9
3.2b976
1.5fll',2
8. 066S6
6, 10/26
5.10562
7.45691
7.75D4S
6.35H43
5.63U3
1,5«l52
2.61740
1,73907
3.03960
4.42530
6,03450
5.45340
2.81610
3.39720
3.35250
5.14050
3,03960
2.14560
2,50520
5.85570
1.20690
1.56450
4.201BO
5,72160
4.73020
2.36910
1.8/230
5.09580
3.97R30
3.17570
2.90550
3.21010
3.08430
3,62070
3.66540
2.66200
1 . 16?j?0
2.2(500
2.14560
1.7BBOO
4.11240
3,39/ZO
7.15200
2,63730
5.72160
5.27460
2.59260
3.93560
7.75510
5. 72160
3,03450
3.62070
2.63/30
1,20180
6.70500
7.15200
4,96170
2.6B200
26.39226
30.97579
26.62424
25.98106
21.7H90
20.95303
18.726So
20.15122
17.60597
22.39158
18.50/90
18,00643
16.11483
17.76107
22.76414
22.33573
16.76926
10.92193
10.1 3081
13.72081
7.46744
7.63669
11.74228
11.77987
16.61392
25.66702
19.52126
21 .50144
11.H1201
'14.^55/5
13.9/001
13.63075
9.38/48
13.40667
1.94164
1.34118
1 . 0 0 8 b 8
2.654/4
•1.15103
7.47123
.0/509
5.96388
1 .B395<)
7,34448
-.84647
.46355
-.34088
•2.82991
-6,50191
•8. 21530
-------
VO
Ln
NO
NET SOLAR
MCTEOROLOGIC OAT*
NET ATMQS AT PRtSS DRY BLUB
XlND
EQ TEMP
151
152
153
151
155
150
157
158
159
160
161
162
163
164
165
166
167
165
169
170
171
172
171
171
1/5
17*
177
178
179
180
181
182
18i
,02360
.01018
.01279
.02SH8
.02207
.0)005
.01623
.02512
.01BS9 .
.00721
.015)4
.01501
.00698
.01229
.00250
.00499
.011H6
.00105
.01210
.01477
.00363
.01301
.00746
.00984
.01628
.00466
.00627
.00465
.00382
,00578
.00537
,00495
•00371
,05066
.05757
.05617
,05461
,06077
,06120
, 05550
,01801
.05617
,05667
.06045
.Oh632
.061)20
.06739
.060^9
.06501
.058/0
,06546
.06014
.05591
,05900
.06235
.06580
.065HO
.053/3
,05757
.06171
,06194
,06194
.06270
,06194
,06045
.05686
706.3739*
698.24599
699,00/99
695.70599
705.61199
700.27/99
697.48399
707. S8999
704.84999
69/. 99199
699.00/99
b94.6fl')99
699,'3lb99
696.46799
693.673V9
692.91200
700.02399
704.B4999
705.61199
706. 11998
706.37399
704.Q8/99
703.57998
6P9. 00/99
702,30999
A1", 51 549
697,22999
700.53199
69-j. 70599
690,21399
6H9. 10199
693. 16600
702.56399
-a. 99950
•1.66650
-2.77750
2.77750
2.22200
6.11050
1.11100
.2.77/50
.2.77750
-1.11100
.'15550
6,1 1050
. 6.1.1050
5.55500
4.99950
S.tlHUbO
1 ,66650
2.77/50
2.77/50
-.S5550
-.55550
4. '14400
4.44400
4.44400
1.1 1100
-1.66650
2.77750
1 .66650
1,66».50
2.222UO
1 ,h66'>0
.55550
•2,22200
2,28853
3.4038F
3.67062
4,9784(1
4.77o34
4.97848
4.03864
2.39381
2.85939
3.70922
5.1H816
6.10/2h
8.71V82
7.75645
7./5045
6.8SIJ33
5.63113
6.1072h
S.h6492
4.9 ?BUH
4.9784U
6.88833
7. /564S
6.61H69
4.212H1!
4.58152
6.35843
5.6J113
5.86492
6.10726
5.B6492
6.35843
4.9/B4f)
5.21840
2.23500
J.799-JO
6. 22400
«. 96170
6,79440
8.67180
3,66540
3.1/370
2.23500
2.3&910
4.29120
3,084 iO
2.77140
2.68200
2.81610
2.50320
1.65390
3,53130
2.7/140
3.173/0
5.40870
2.45S50
3.08430
4.20180
2.81610
3.08430
4.82760
4.20180
3.84420
3.17370
2.32440
1.17510
-7.506)3
-8,37904
-8.34217
-2.96159
.52135
.53916
•7.11230
•8,99514
-5.36496
-10,77222
•3.37065
1 .47&J9
-1.05157
.99790
•4.70969
-4.78109
-6.65217
-6.btf796
-5.27906
•7.S4U35
-10.62017
-2.93887
-2.84318
•1 .62343
-8,639/0
-11.31593
-6.94955
-7,57878
-8.00583
-6.35279
-/.2U60
•8.69643
•12.40111
-------
DEEP RESERVOIR MOOKL.
DRM SIMULATION OK LONG LAKL--ONE TUR91NE INTAKE'-JUNt THRU NOV 1971
SYSHMS CONTROL INC
FIRST DAY
FINAL DAY
NORMAL OZ
MAXIMUM EL
152
ii«
1.000
EX DEPTH
EV'AP COEFF A
EyAP CUF.FF 8
MIN STAB
Sh EX COEF
l.SOO»01
0.000
1.-300-09
-.070
,1461-00
VO
o\
SES NUMHtR
TtMP PTS
DAYS OUT
OUTPUT FREQ
VERT f-flT F«F-Q
TAft OUT
NUrt OUTLF.TS
REPtAT XEu
X£0 OUTPUT IMT
OBS PE-< OAY
1
1
3
500
1
0
1
2
2
1
CRITICAL STAB
LOK GrtiO COEF
ISTIRCEPT
EXPONENT
REACH
9.000=07
Z.bOO-01
U^OO-OS
•7.000-01
i.650+01
AREA COEFF Cl
ARtA COEFF ca
AREA COtFF Ci
0.000
OUTLET
1
ELtVATION
-------
VO
NO
t
a
5
6
7
6
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
DEEP RESERVOIR MODEL
ORM SIMULATION OF LONG LAKE — ONE TURBINE INTAKES-JUNE THRU NOV 1971
SYSTEMS CONTROL INC
ELEVATION
SEC AREA
CULM VOL
DtLTA VOL
TEMPCCJ
.0
1.0
2.0
3.0
4.0
5,0
6.0
7.0
8.0
9,0
10.0
11.0
12.0
13.0 (
14.0
15.0 <
16.0 '
17.0
18,0
19.0
20.0
21.0
22.0
23.0
24.0
25.0
26.0
27.0
28,0
29.0
30.0
'31.0
32.0
1.954+05
J.06B+05
1.418+06
2.030+06
2.641+06
1.253+06
5.H64+06
J. 475+06
j, 087 + 06
3 . t>9Ht 06
J. 410*06
>. 921+06
r. 533+06
J. 144+06
>.7'i6*06
> • 5fc 7 + 06
.978+06
.059+07
.120+07
.'181 + 07
.242+07
.304+07
.365+07
.126+07
.487+07
.548+07
.609+07
.670+07
.732+07
.793+07
.1134 + 07
.915+07
.976+07
0.000
5.011+OS
1 ,61-1 + 06
3.338+06
5.6/3+06
8.620+06
1.218+07
1.655+07
2.113+07
• 2.652+07
3,253+07
3.914+07
4.637+07
5.421+07
6.266+07
7.172+07
8,139+07
9,168+07
1,026+08
.1.141 + 08
1.262+08
.•189+08
.523+08
.662+08
.80B+08
,960+08
2.H/ + 08
2.281+08
2.452+08
2.628+08
2.B10+08
2.999t08
3.193+08
5.011+05
1.113+06
1,721+06
2,335+06
- 2.947+06
3.558+06
u. 170 + 06
U.7H1+06
'J.393 + U6
l>, 004 + 06
6,616+06
7.227+0*
7.838+06
«. 450+06
9.061+06
9,(,73+06
1.028+07
1.090+07
1.151+07
. 1.212*07
1.273+07
1.334+07
1.395+07
1.456+07
1.518+07
1,579+07
1.640+07
L/ni + 07
_ 1.762+07
1.825+07
1.884+07
1.946+07
0.000
1.200+01
1.200+01
1.200+01
1.200+01
1.200+01
1.200+01
1.200+01
1.200+01
1.200+01
1.200+01
1,200+01
1.200+01
1.200+01
1.200*01
1.21)0 + 01
1.200+01
1.200+01
1,200+01
1.200+01
1.200+01
1.200+01
1.200+01
1.200+01
1 .200+01
1.2uO-*01
1.200+01
l,2oo»ni
1 .200+01
1,21)0 + 01
1.200+01
1 .200+01
1,200+01
1.200+01
-------
LAKE ELEMENT VARIABLES
00
ELEM
NUN
1
2
3
4
5
6
7
&
9
10
11
12
13
11
15
16
17
18
19
20
21
22
23
2U
25
26
27
28
29
30
31
32
SOU
REACTION
CUKH
.008
.008
.008
.008
,008
,006
.006
.oca
,008
,008
,00»
.008
.001)
.Oil*
.000
. .008
.008
,008
.001
,00-i
,onn
.008
.008
.oos
.008
.006
.006
,OUH
,008
,006
,000
,008
800
SETTLING
COEK
, 000<>00
.000900
,000900
.000900
,000900
,000900
.000900
.OOo'JOO
.000900
.000900
.000900
.000900
.OOO'OO
,001)900
.010900
.000^00
.000900
.000900
,000900
.000*00
,000900
.000900
•ouo'oo
.000900
.OOO^OO
.000900
•OOO'OO
.000900
.ooo'oo
.000900
.000900
.ooo'oo
COLIFORM
REACTION
COEf
.0040
.0010
.0010
• .00-40
.0040
.0040
. 0 0 '1 0
.0010
.0040
,0040
.0010
.0040
,0040
.0040
.0040
.0040
.0040
.0040
.0040
.0040
.0010
• 004U
.0040
.0040
.0040
.0040
.on"o
.0040
.0040
,0040
.0040
.0040
NMJ
REACTION
COhf-
.0040
.0040
,0010
• .U040
.0040
.0010
.0040
.UOUO
.0040
.omo
..0040
.(JOUO
.0040
.0010
.0040
.0040
.0040
.0040
.0040
.0040
.0040
.0040
.0040
.0040
• 00"
-------
INITIAt, CONCENTRATIONS
ELEMENT
NUMBER
1
2
3
4 .
b
6
7
8
9
to
11
12
13
10
ib
16
17
IB
1<»
20
21
22
23
24
25
26
27
28
29
JO
31
32
DO
BOO
(M5/L) (MG/L)
-.00
.38
.75
1.13
1.51
1.89
2.26
2.64
3.02
3.40
3.77
4.15
1.53
4.91
5.28
5.66
6,04
6.42
6./9
7.17
7.55
7.93
8,30
8.68
9.06
9.44
9.81
10.19
10.57
10.95
11.32
11. /O
-.00
.03
.06
.10
.13
.16
.19
.23
.26
.29
.32
.35
.39
.12
.45
.48
.52
.55
.58
.61
,65
,b8
.71
.71
.77
,«l
.84
.87
.90
.94
.97
1.00
NH3-N
(Mfi/L)
-.0000
.0003
.0006
.0010
.0013
.0016
.0019
.0023
,0020
.0029
.0032
.0035
.0039
,0042
. .0(115
. 0 0 4 tl
.0052
.0055
.0058
.0061
.OOhb
.0068
.00/1
.0071
.00/7
.0081
.OC«4
,oufl/
.0090
.0091
.0097
,0100
NU2-N MJ3-N
(MG/L)
-.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.onoo
.0000
.0000
.0000
.0000
.onoo
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
..0000
.onoo
.0000
.0000
.0000
{MG/L)
-.0000
. 0084
,0168
,0252
,0335
.0419
,0504
,058/
.Oh/1
.0/55
.0819
.0923
.looo
,1000
.1174
.1258
.1342
.1426
.1510
.1594
,lh77
.1/61
.1815
.1929
.2013
.209/
.21^1
.2265
.2318
.24-42
.2516
.2600
H04-P
(MG/L)
-.0000
.0002
.0004
.0006
.0006
.('010
.0012
.0014
.0015
.0017
.0019
.0021
.0023
.0025
.0027
.0029
.0031
.0033
.0035
.0037
.0049
.ooul
. 0 0 4 3
.0015
,U046
.0048
.0050
.1)052
,005«
.0056
.0058
.0060
PhYTO COLlFORMS
MM1
HM2
HM3 TOT N
CHLOR
(MG/L) (MfN/100) (MG/L) (MG/L) (MG/L) (MG/L) (MG/L)
-.0000
.0000
.0000
.0000
.0000
.oono
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.oooc
.0000
.nuoo
.0000
.nuoo
.0000
.0000
.0000
.0000
.0000
.0000
.0000"
.0000
..0000
-.0
35. b
71.0
106, b
141.9
177.4
212.9
218.4
283.9
319.4
3b4,fl
390.3
125,8
461.3
49t>,8
532.3
567.7
603.2
638,7
67-4.2
709.7
745.2
/8U.O
816.1
851.6
88/.1
922.6
956.1
993.5
1029.0
1064.5
1100,0
-.00
.CO
.00
,00
,00
,00
,00
.00
.00
.00
.00
.00
,00
.00
,00
.00
.00
,00
.00
.{10
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
-.00
-.00
.00
,00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
• .00
-.00
.00
.00
.00
.00
.00
. .00
,00
.00
,00
,00
.00
.00
.00
.CO
.00
.00
.00
.1)0
.00
.00
.00
,00
.00
.00
,00
.00
,00
.00
.00
.00
-.00
-.00
.00
.00
,00
.00
.00
.00
.00
.01
.01 .
• 01
.01
.01
.01
.01
.01
.01
.01
.01
..01
.01
.01
.01
.01
.02
.02
.02
.02
.02
.02
.02
.02
-.00
.00
.00
.00
.00
.00
.'00
,00
.00
.00
,00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
-.00
MMI1
(M5/L) 1
o.OO
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
" .00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
,00
.00
'.00
.00
-.CO
HMI2
MKJJ
CMG/L) (MG/L)
-.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
-.00
..00
,00
,00
.CO
' .00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
• .00
-------
LAKE INFLOW CONCENTRATIONS
O
o
DAT
NUMBER
1S2
153
154
155
156
15?
158
159
160
161
162
161
164
165
166
167
168
169
170
171
172
173
174
175
176
f?
178
179
l8()
1*1
182
1*3
JH4
1R5
1 8 6
187
JflB
199
190
191
192
193
194
195
196
197
198
199
200
201
202
203
FLOW
(CF8)
35720.
£5420,
25020.
24/20.
24520.
23620.
22920.
22420.
21«20.
21320.
20920.
20120.
19/20.
19420.
19320.
19120.
18420.
17H20.
17220.
16020.
j ', rt 2 0 .
15220.
14/20.
14)20.
13/20.
13420.
13120.
12920.
12520.
12220.
9..20.
lii>.»0.
5
-------
201
205
206
207
JOB
209
210
211
212
2U
211
215
216
217
21S
219
220
221
222
223
224
225
226
227
228
229
230
231
2J2
233
231
235
23t>
237
2.J*
23"*
240
211
2"2
213
?U<4
215
216
217
2«8
<;49
250
2M
252
253
251
255
256
257
258
250
240
261
262
263
9120.
1120.
1020.
3620.
3-320.
3520.
3120.
3120.
3120.
3120.
3120.
2520.
2920.
2920.
2920.
3020.
3020.
2520.
2820.
2320.
2520.
2720.
2«20.
2720.
2t)20.
2220.
2020.
2x20.
2"20.
2020.
1P20,
1»20.
2020.
2120.
2i?0.
2i20.
2120.
2120.
2120.
252tl.
2t--21.
2120.
2820.
2«20.
2-720 .
292Q.
2420.
2929.
2920.
2920.
2920.
2'>2'J.
3020.
3120.
3020.
2920.
2b20.
2820.
3020.
2B20.
7.6T
7.54
7.40
7.11
7.19
7.53
7.57
7.61
7.66
7.70
7.6B
7.66
7.61
7.61
7.59
7.57
7.55
7.53
7.51
7.19
7.16
7'. 11
7.12
7.10
7.16
7.53
7.59
7.65
7./2
7.78
7.83
7.'>1
7.97
A. 01
8.10
H.16
e.23
8,29
8.35
fl.'<2
8.1M
8.55
8.61
6.67
8.71
8. do
8.H9
8.98
9.08
"».!?
9.2t>
9.35
9.1-5
9 ,") 14
9.63
9.72
9.3,!
9.91
10,00
10.00
1.2"
1.32
1.35
I'll
1.16
1.52
1.57
1.63
1.68
1.71
1.63
1.92
2.01
2.10
2.19
2.28
2.37
2.16
2.55
2. 61
2.73
?.62
2.91
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
(.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
3.00
2.91
2.82
2.72
2.63
2.51
2.«5
2. 45
2.26
2.17
2. OH
1.98
1.H9
1.80
1.79
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.020'
.0211
.0221
.0229
.0256
.0213
.0250
.0257
.0261
.0271
.0279
.02*0
,0293
.0300
.0295
.0291
,0286
.0282
.0277
.0273
.0268
.026U
.0259
.0255
.02Su
.0215
.0211
.0236
.0232
.022X
.0. 1
.0132
• Oli<>
.0111
.0115
.0150
.OI5'>
.0159
.Olnl
.01*8
.0173
,01 /'
,01')2
.oia*
.3000
.2857
.2/11
.2571
.2129
.22Hh
.2113
.2000
.2071
.2113
.2211
.22H6
.2357
.2129
.2500
,2->M
.2613
.2714
.27»b
.2(157
.2929
.3000
.3361
...3727
."O'l
,4'i55
.UHJH
.5l»2
.5V15
.5909
.(>?7J
. (>oib
. /fiOO
.7 4M
.7/2?
,8091
.NU55
. h H 1 A
.'M»2
.9515
.9909
.019] 2.0273
,01''5 2.0h36
.02(iO f. 10DO
,(>1*S 2.092J
.0169 ^.OB16
.0151 2.0769
.0138 2.0t><>2
.01^3 /-'.OhlS
.OtOH 2.0'jjU
.OOV,> 2.0162
.007? 2, 038-1
.00h2 2.0308
.OOlh 2.0231
,0031 2.015U
.0015 2.00/7
.0000 2.0000
.0000 2.0000
.0386
.0393
.0100
.0000
.0100
.0100
.0100
.0100
.0100
.0100
,0386
.0371
.0357
.0313
.032'
.Dili
,i;(00
.0286
.0271
.0257
.0213
.0^29
.0211
.0200
.0200
.0200
.0200
.0200
• 0?00
.0200
.0200
.0200
.0200
.U200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.U200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0000
.0000
•-.0000
.0000
.0000
.0000
.0000
.0000
.0000
-.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
-.0000
.0000
.0000
.oono
.0000
.0000
.0000
.0000
• 0000
.0000
.0000
.0000
.OUOO
.0000
.0000
• 0000
.0000
.0000
.0000
• 0000
• 0000
.0000
-.0000
• oooo
• 0000
.0000
.0000
.oono
. 0 0 00
.nono
.0000
.0000
.0000
.0000
.0030
-.0000
.0000
2571. «
2535.7
2500.0
2257.1
20H.3
17/1.1
1528,6
1285.7
1012.9
BOO. 0
1135.7
1171.1
1807.1
2112.9
2178.6
2811.3
3150.0
3185.7
3821. U
1157.1
1192,9
4H28.6
516-4.3
5500.0
53B6.il
5272.7
5159.J
5015.5
1931.8
1818. 2
1701.5
U590.9
1177.3
13h3.6
1250.0
4136.1
1022.7
3909.1
3795.5
3681.8
3568.2
3U51.5
3310.9
322'. 3
3111.6
3oOO.O
2923.1
2H16.2
2769.2
2ft92,S
2615. .oo
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
-.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
-.00
.00
.00
.00
..00
.00
.00
.00
.00
.00
.00
..00
.00
,00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
-.00
,00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.,00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
• .00
.00
.00
.00
'.00
.00
.00
,00
.00
.00
.00
-.00
,00
.00
.00
.00
.00
.00
,00
,00
,00
.00
.00
.00
.00
>.oo
,00
.00
.CO
,00
.00
.00
.00
.00
.00
,00
.00
,00
.00
.00
,00
.00
.00
.00
.00
.00
,00
..CO
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
-.00
.00
-------
o
N>
26«
26b
266
267
2h«
26V
270
271
272
273
271
27*
276
277
278
27<»
260
281
282
283
281
28b
286
267
2H8 '
289
290
211
292
293
£9<4
295
296
297
ass
a99
300
301
302
303
3o<*
305
306
307
308
309
310
311
312
313
31«
Mb
316
317
31D
319
320
321
322
323
2920.
2920.
2920.
2920.
2920.
2920.
2920.
3020.
3020.
3020.
3020.
3020.
3020.
3020.
2<420.
3020.
3020.
2920..
3020.
3020.
3020.
3020.
2120,
3120.
3320.
'1020.
Sn^o.
3020.
3020.
3020.
3020.
3020.
3020.
3120.
3120.
3020.
3020.
3020,
2920.
3n20.
3020.
3220.
3220.
3320.
3120.
322J).
3120.
3220.
3220.
3320.
3120.
3220.
3220.
3220.
3220.
3320.
3b20.
Jb20,
3620.
3520.
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
in. oo
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10,00
10.00
10.00
10-, oo
10.00
10.00
10.00
10. '00
10.00
10,00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
10,00
10.00
10.00
10.00
10.00
10.00
10.00
10.00
.78
.77
.77
.76
.75
.71
,73
.72
.71
.71
.70
.69
.68
.67
.66
.65
.*>'i
.60
.63
.62
.61
.hO
.59
.bB
.58
.57
.b6
.55
.bu
.53
.52
.52
• bl
• bO
.09
.OB
.07
.06
.06
.US
.11
.13
.02
."1
."0
.10
.39
.38
.3?
.36
,3S
. i«
. tu
.33
.32
,31
.30
.29
,28
.27
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.01-00
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
,0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
,0100
,0100
.0100
.0100
.0100
.0100
,0100
.0100
.0100
.0100
.0100
.0100
.0100
.0100
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
,0000
.0000
.onoo
.0000
.0000
.0000
.0000
.oouo
,0000
, uooo
.0000
.0000
.0000
.0000
.uooo
.0000
.0000
.0000
.0000
.0000
.onoo
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.oono
.0000
.oono
.OnOO
.001)0
.0000
. (1 0 0 1)
.0000
.0000
.UOOO
.0000
.onoo
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
2.0000
2,0000
2 . 0 000
2.0000
2.0000
2.0000
2.0000
2.0000
2.00ilO
?.nnno
2.1000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2,. 0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.nooo
2.0000
2.0000
2,0000
2.0000
2.0000
2.0000
2.0000
2.0000
2,0000
2.0POO
2.0000
2.0000
?.oooo
2.0UOO
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
2.0000
.2.0000
2,0000 •
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
,0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.i>200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.U200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
.0200
,0200
.0200
.0200
,0200
.0200
;o2oo
.0200
.0200
.n2.)0
.0200
.0200
.0200
.0200
.0200
.0200
,0200
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000 .
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
..0000
.0000
.0000
.0000
.0000
.0000
• oooo
.0000
.0000
.0000
.0000
.0000
.0000
•0000_
.0000
.0000
.0000
.0000
.0000
.0000
,0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.ooou
,0000
,0000
,0000
2000.0
2000.0
2000.0
2000,0
2000.0
2000.0
2000.0
2000.0
2000.0
2000,0
2000.0
2000.0
2000.0
2000.0
2000.0
2000.0
2000.0
2000.0
2000.0
2000,0
2000.0
2000.0
2ooo.o
2000.0
2000.0
2000.0
2ooo,o
2000.0
2000,0
2000,0
2000,0
2000.0
2000,0
2000,0
2000,0
20»0.0
2000.0
2000.0
2000.0
2()00.0
2000.0
2oOO.O
2000,0
2oOO,0
2000.0
200U.O
2000.0
2000.0
2000.0
2000.0
2000.0
2000.0
2000.0
2000.0
2000,0
2000.0
2000.0
2000.0
2000.0
2000.0
,n
.11
.1-1
.11
.11
.11
,11
.11
.11
.11
.11
.11
.11
.11
,11
.11
,11
.11
.11
.11
.11
.11
,11
.11
.11
.11
.11
.11
.11
.11
.11
,11
.11
.11
,11
,11
,11
.11
.11
.11
,11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
.11
,11
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
,00
.00
.00
.00
.00
.00
• no
.00
.00
.00
.00
,00
.00
.00
.00
.00
,00
.00
.00
.00
,00
-.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
,00
,00
.00
.00
.00
.00
.00
.00
..00
,00
.00
,00
,00
,00
.CO
.00
.00
.00
.00
.00
,00
,00
.00
,00
.00
,00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.15
.15
.lb
.15
.15
.15
.15
.15
.15
,lb
.15
.15
.15
.lb
.15
.15
.lb
. .lb
.15
.lb
.15
.15
.15
.lb
.15
.15
.lb
.15
.lb
.15
.15
.15
.15
.15
.lb
.lb
.15
.lb
.lb
.15
.15
.15
.15
.15
.15
.lb
. lb
.15
.lb
.IS
.lb
,15
.lb
.lb
.lb
.lb
.15
.15
.15
.IS
.00
.00
,00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
,00
,00
.00
.00
.00
.00
.00
..-00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.30
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
' .00
,00
.00
.00
.00
- .00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
,00
-.00
.00
.00
,00
.00
,00
.00
.00
,00
,00
.00
.CO
,00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
. .00 •
.00
.00
.00
.00
.CO
.00
.00
.00
.CO
.00
.00
.09
.00
.00
.00
.00
.00
-.00
.00
.00
.00
.CO
.CO
.00
.00
.00
.00
.00
,00
.CO
.00
.00
.00
.00
..00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.03
,00
.00
too
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
,00
.00
.00
,00
.00
• .00
.00
.00
.00
.00
.00
.00
.00
,00
.00
,00
.00
,00
,00
.00
.00
,00
.00
.00
.00
,00
.00
-------
321 . 3«ao.
325 3S20.
326 3S20.
327 3520.
328 3520.
329 .4620.
330 3B20.
331 1020.
332 «020.
333 1220.
331 1620.
10.00 1,27
10.00 1.26
10.00 .25
10.00 .21
10.00 .23
10.00 .22
10.00 .21
10.00 .21
10.00 .20
10.00 .19
10.00 ,18
.0100
,0100
.0100
.0100
,0100
.0100
.0100
.0100
.0100
.0100
,0100
.0000 2.0000
.0000 2.0000
.0000 2.0000
.0000 2.0000
.0000 2.0000
.0000 2,0000
.0000 2.0000
.0000 2.0000
.0000 2.0000
.0000 2.00110
,0000 2.0000
.0200
.0200
.0200
.0200
.0200
.0200
,0200
,0200
,0200
,0200
.0200
.0000
.0000
.0000
.0000
.0000
.000*
.0000
.0000
.0000
• OOOU
-.0000
2000.0
2000.0
2000.0
2000.0
2000.0
2000,0
2000.0
2000.0
2000.0
2000.0
2000,0
.11- .00
.11 .00
.11 .00
.11 ,00
.11 .00
.11 .00
.11 .00
,11 .00
.11 .00
.11 ,00
,11 >,00
.00
,00
.00
.00
.00
.00
,00
.00
.00
,00
-.00
is ,00
IS .00
15 .00
IS .00
IS .00
is .00
15 .00
15 .00
IS' .00
IS .00
15 -.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.00
-.00
.00 ,00
,00 .00
,00 ,00
,00 ,00
.00 ,00
,00 .00
.00 .00
,00 ,00
,00 ,00
•oo ,00
•«00 «,00
o
CO
-------
MISCELLANEOUS VARIABLES
THE FOLLOWING CONSTITUENTS ARE BEING MODELED DISSOLVED OXYGEN
COLIFOHMS
BOO
NH3-N MODELED BY 1ST ORDER REACTION
N02-N MODULO BY IST ORDER REACTION
NOi-N MODELED BY 1ST ORDER REACTION
P04-P MOfJtLEO BY 2ND ORDER REACTION
I HEAVY METAL (AND ITS ASSOCIATED ION)
TOTAL NITROGEN
TEMPERATURE CORRECTION CONSTANT FOR C«LIFOR« REACTION COEFFICIENT « 1.07000
COEFFICIENT ON BUD IN COLIFORM -CALCUI.AT[ON = .00000
"COEFFICIENT ON HEAVY METAL 1 IN COLIFORM CALCULATION z . • ,00000
HEAVY MKTAL 1 CONCENTRATION LI«IT («G/L) IN COLUOWw CALCULATION x 20.00000
TEMPE^ATURt COWHtCTION CONSTANT FOR BOO RFACTION COEFFICIENT 5 l.O'/OOO
BOO Uxft'.M KUOTICNT a l.bOOOU
NON-Kt.FWACTOHY FMACTION OF OHGANIC MATERIAL = .iOOOO
CAHBON TO PHOSPHORUS RATIO IN BOrj = 106.00000
NIIKOCfcN TU PHOSPHORUS RATIO IN BOD = 16.00000
DRY wFIGHT FRACTION OF CAHBON IN HOD = .50000
TE*Pt«aTURfc ir>'<«tt,TION CONSTANT F-OK NHJ DFCAy COtFFICIfcNT = 1.10000
CQcFFICHNT FU« \HS VOLIIIZITIOM = ,01000
T£-P£.^AT'JKt C"-
-------
DEEP RESERVOIR MODEL
O
Ox
NO
1
z
3
4
5
6
7
6
9
10
11
12
13
11
IS
16
U
18
19
20
21
22
23
21
'25
26
27
28
29
30
31
DRM SIMULATION OF- LONG LAKt--ONE TURUINL INTAKE—JUNE THRU NOV 1971
SYSTEMS CUNTRUL INC
SUMMARY OK OUTPUT FOR SIMULATION DAY 152 EXECUTION INTERVAL 2
ELEVATION TEMP OEG C TE«P DEt; F HO«Z OUT MORZ IN RATE OF
.0
1.0
2.0
3.0
1.0
5,0
6.0
7.0
B.O
9.0
10.0
11.0
12.0
13.0
11.0
15.0
16.0
17.0
18.0
19.0
20.0
21.0
22.0
23.0
21.0
25.0
26.0
27.0
28,0
29.0
30.0
12.0000
12.0000
12.0000
12.0000
12.0000
12.0001
12.0001
12.0001
12.000.2
12.0002
12.0003
12.00 OS
12.000*
12.0011
12.001 I
12.fl02'j
12.0037
1P..OOS4
12.007S
12 . 0 1 0 /
12.015,!
12.0215
12.0302
12.0121
1,>.C579
12.0/B'i
12.101")
12.1351
12.1681
12.19/2
12.2190
53.6000
S3. 6000
S3. 6000
S3. 6001
S3. 6001
S3.60P1
S \ , t> II 0 1
S3. 6002
S3. 6003
53.6001
S3. 6006
53. 6009
S3.ti(MiJl-OB
3.3U6-08
5.04J-OB
7.530-OB
1.127-07
1.227-07
2.101-07
2.V«b-.07
1.126-07
5.7b6-07
7.^67-07
1.090-C6
1.170-06
1.9(10-06
2.1HB-06
'3. OSS-Ob
3.197-00
3.501-06
2.1U6-06
1.1S7-06
0.000
2,500-01
2. 500-01
2.500-01
2i500-01
2.500-01
2.500-01
2.500-01
- 2.500-01
2.500-01
2.500-01
2.500-01
2.500-01
2.500-U~1
2.500-01
2.500-01
2.500-01
2.500-01
2.500-01
2.500-01
2.500-01
2.500-01
2.500-01
2,500-01
2.500-01
2.SOO-01
2.500-01.
2.'500-01
2.500-01
2.500-01
2.500-01
.00
.00
.00
.00
.00
.00
.00
.01
.01
.01
.01
.01
.01
.01
.01
.01
.01
.01
.01
.01
.01
.01
.02
.02
.02
.02
.02
.02
.02
.02
.01
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
.10
,10
.10
-------
ELEMENT CONCENTRATIONS FOR DAY Ib2
EXECUTION INTERVAL
M
O
-vl
ELEMENT
NUMBER
1
2
3
(1
b
6
7
U
9
10
11
12
13
14
lb
16
17
18
19
20
21
22
23
24
2b
26
2/
28
29
30
31
* INDICATES SUM
DO
BOD
CMG/L) CMG/L)
6.74
7,83
8.04
8.13
8.19
8.23
8.2b
8.27
8.29
8.30
8.31
8.32
8.32
H.33
8.33
8.34
8.34
8.35
8.3b
8.35
8.35
8.36
8.36
8.36
8.36
8.36
8.36
' 8.37
8.37
8.39
9.13
TOTAL OF
2.66
1.23
.97
.84
.77
,72
.68
.66
,64
.62
.61
.60
.59
.58
,58
.57
.57
.56
,b6
ibb
.bb
.bb
,b4
.54
.54
.54
.53
.53
,53
,b3
,b2
NH3-N
CMG/L)
,01«3
.0106
.0099
,0096
.0094
.0093
.0092
.0091
.0090
.0090
,0090
.0089
.0089
,0089
.00*9
.0089
.0089
.0088
.0068
,0088
.00*8
.0088
.0088
.OOH8
.0088
, noGrt
.OOHH
.0088
.0008
,0088
.OOHi
THE NITROGEN
N02-N
CMG/L)
.0003
.0003
.-0003
.0003
.0003
.0003
.0003
.0003
.0003
,0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.0003
.000*
.0003
.0003
.0003
.0003
N03-N P04-P PHYTO CCLlFORNS
CMG/L) c
.2770
.2770
.2770
,2770
.2770
.2/70
.2770
.2/70
.27/0
,27/0
,2770
.2770
.27/0
.2770
.•2770
.2/70
.2770
.2770
.2770
.2//0
.27/0
.2765
.2762
.2758
.2751
.2740
.2/22
.2694
.2647
.2b76
.2405
IN CONSTITUENTS
MG/L) CMG/L) cc.PN/ioo)
.0121
.0089
.0083
.0080
.0079
.00/8
.0077
.00/6
.0076
.00/6
.0075
.0075
.0075
.00/5
.0075
,0074
.00/4
.0074
.0074
.0074
.0074
.0074
.0074
,0074
.0074
.00/4
.0074
.00/4
.00/4
.0074
.0073
BEING
,0000
,0000
.0000
.0000
.0000 •
,0000
,0000
.0000
.0000
.0000
;oooo
,0000
,0000
.0000
..0000
,0000
,0000
,0000
.0000
.,.0000
,0000
,0000
,0000
.0000
.0000
.0000
.0000
,0000
,0000-
,0000
.0000
nODtLED
751.2
754.2
754.2
754.2
754.2
754.2
754,2
754.2
754.2
754.2
754,2
754.2
754.2
754.2
754.2
754,2
754,2
754.2
754.2
754,2
754,2
754,2
754.2
754.2
754.2
754.1
754.1
754.0
754.0
753.9
752.9
EXCEEDS
HMt MM2
HM3 TOT N
CMLOR
HMI1
HMI2 HHIJ
CMG/L) CMG/L) CMG/L) CMG/L) CMG/L) CMG/L) CMG/L) CMG/L)
.053
.053
,053
.052
.052
.052
.052
.052
.052
.052
.052
.052
.052
.052
.052
.052
.052
.052
.052
,052
.052
.052
• OS2
.052
.052
.052
.052
.052
.052
.054
.048
THE TOTAL
.000
.000
,000
,000
.000
,000
,000
,000
,000
,000
.000
.000
.000
,000
,000
.000
.000
,000
.000
.000
,000
.000
.000
,000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
,00'0
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.014*
,014*
,014*
.014*
.014*
.014*
.014*
,014*
.014*
. .014*
.014*
.014*
.014*
.014*
.014*
,014*
.014*
.014*
.014*
.014*
• .014*
.014*
.014*
.014*
.ill 4*
.014*
,014*
.014*
.014*
.014*
.014*
.000
.000
.000
.000
.000
.0.00
.000
.000
,000
,000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
NITROGEN BEING MODELED AS
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
•»ooo
.000
.000
.000
.000
' .000
.000
.000
.000
.000
.000
,000
.000
.000
,t)00
,000
.000
.000 .000
.000 ,000
.000 .000
.000 -.000
.000 .000
,000 .000
,000 ,000
.000 ,000
,000 ,000
.000. ,000
,000 ,000
,000 .000
.000 .000
.000 ,000
,000 ,000
,000 ,000
,000 ,000
,000 .000
.000 .000
.000 ,000
,000 .COO
,000 ,000
.COO .000
.000 ,000
i 0 0 0 .000
.000 .000
.000 ,000
.000 ,000
,000 ,000
.000 ,000
,000 ,000
A CONSERVATIVE,
-------
TLHCf.RATURE VERSUS DEPTH FOR JULIAN DAY 152
METFRS
ABOVE
BOTTOM
O
00
40.000 I
I
I
I
I
I
I
I
I
I
32.000 -
I
I
I
I
I
I
I
I •
I
20.000 -
I
I
I
I
I «
I »
I *
I *
I*
16.000 -»
I*
»
*
*
ttttttt
*«»»»
8.000 *
.000
...I
12.0
I
... I —
12.2
... J —
12.2
..-I —
12.1
— I
12.4
12.2
WATER TEMPERATURE » DEGREES CENTIGRADE
12.3
12.3
-------
DEEP RESERVOIR KOBEL
DRM SIMULATION OF LONG LAKE—ONE TURBINE INTAKE—JUNE THRU NOV 1971
STSIEMS CONTROL INC
SUMMARY OF OUTPUT KOR SIMULATION BAY 200
EXECUTION INTERVAL
GENERAL SYSTEM INFORMATION
RESERVOIR F.LEVATION ' J0,h2 M
SURFACE ELEMENT 1.62 M
TOTAL SYSTEM INFLOW 122.3 CMS
TOTAL SYSTEM UUTFLOW 101.9 CMS
ELEV THtKMOCLIHC 25.0 M
[)0*NSTKt*M UHC 17,"1 DFG C
RETENTION U«E 23,9 DAYS
SURFACE AIR TEMP
SURFACE NATE8 TtMP
EVAPORIZATION HATE
CULM EVAPORIZATION
INHLOW TEMPERATURE
LOWEST MIXED ELtv
OBJECTIVE TF.MP
26.66 OEG C
20.71 OEG C
9,87-01 CMS
,206 M
18.31 DEG C
29.0 M
18,31 DIG C
SURFACE HEAT EXCHANGES
(JNA
OE
OC
7.S11-0/1 KC/M2/S
6,r/U'(-0«! KC/M2/S
9.730-02 KC/M2/S
3.051-0? «t/l«2/S
-6.7U/-OS KC/M2/S
SYSTEM OUTFLOWS
NO
i
ELEM
22
CLbV
21.0
F'LOW
111.B7
TEMP
17. "I
DEN GRAD
-------
DEEP RESERVOIR MODEL
ORM SIMULATION OF LONG LAKE--ONE TURBINE INTAKE—JUNE THRU NOV 1971
SYSTEMS CONTROL INC
NO
1
2
3
II
5
6
7
8
9
10
11
1Z
13
11
15
16
1?
18
19
20
21
22
23
21
25
26
27
26
29
10
SUMMARY OF OUTPUT (-OR SIMULATION DAY 200
ELEVATION
.0
1.0
2.0
3.0
1.0
5.0
6.0
7.0
a.o
9,0
10.0
11.0
12.0
13.0
11.0
15.0
16.0
17.0
18.0
19.0
20.0
21.0
. 22.0
25. 0
25!o
26.0
27.0
28,0
29.0
TEMP
15.8257
15.826?
15.8283
15,8306
15.K337
15.83/1
15.8U19
IS.80/0
15,8552
15.8661
15.8813
15.9023
15.9310
15.9701
16,0233
16,0953
16.1910
•6.31/6
16.0785
16.67'18
16.9070
17.8U56
.18.266,!
l8.7b01
19 . '( 0 3 /
19.8U05
20.3111
20.7107
UMP PEG F
60.0H62
60.0910
60.09')2
60.5006
60.5073
60.515'J
60.5393
60.5509
60.5B6U
60.6212
60.6759
60.7165
60.8020
60.9715
61. lau'b
61.3717
61 .0609
62.01U7
62.0326
62.9191)
63.87911
60.1221
hll.8792
65. 76H2
6&.7U67
67.7129
68.5600
69.27'M
HORZ OUT
.0000
.0000
.0000
.0000
.oooc
.ococ
.1)000
.nooc
.nooc
. o c o o
. (I C 0 0
.0000
.0000
.0000
,0000
.0000
9,<>U17
10.S32B
11.1239
11.7119
12.3060
12.^971
EXECUTION INTERVAL
HORZ IN
10.0/93
10, (,703
15.261U
RATE OF CH5
DIFF COEF
ViR HAR
.0000
.0000
• 0000
.0000
.0000
,0000
.0000
.0000
.0000
,0000
,0000
.0000
.0000
,0000
,0000
.0000
.0000
.0000
,0000
.0000
.00-00
.0000
.0000
.0000
.0000
12.1675
12.7007
13, 2339
13.7671
10.3003
10.8335
15.3667
25.9597
3.SH6-07
3.538-07
3.19U-07
3,551-07
3.533-07
3.509-0/
3.571-07
3. n 92- 07
3.511-07
3.557-07
3.62i|-07
3.7/1-07
3.910-07
0.1VB-07
0,566-07
5.286-07
6.006.07
6. Ob6-07
1.000-06
1.301-06
1 .820-06
2.010-06
3.122-06
3.662-06
0,177-06
IS. /36-06
5. 265-06
5,919-06
6,959-06
7,398-06
0.000
2.500-01
2,500-01
2.500-01
2.500-01
2.500-01
2.50U-01
2.500-01
1.V50-01
1.503-01
1.219-01
9. 760.02
7.857-02
6.323-02"
5.103-02
0.132-02
3. 3V/- 02
2.7*5-02
2.329-02
1. 996-02
1.77/-02
1 .616-02
1 .062-02
1.238-02
1.107-02
9.506-03
8.603-03 '
B.OUb-03
9.065-03
1.109.02
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
,00
.00
,00
,00
,00
,00
.00
.08
.12
,15
.19
.22
.22
.21
.21
.20
.20
.19
.15
,07
,00
,00
.00
.00
.00
.o'o
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.0
-------
.ELEMENT CONCENTRATIONS FOR UAY 200
EXECUTION INTERVAL
ELEMENT
NUMBER
1
2
J.
.2276
.2225
.2185
.2091
.1811
.1170
.11"2
.OK6B
.0621
.0515
.0195
.0151
,0"16
.0383
,0552
,0311
,02/7
.0258
.025'!
. Oeu6
,0213
.0238
.0231
.0230
.0227
.0223
.0215
.0204
.0177
.0109
TMt NITHOIiEN
N02-N
(MK/L)
.0099
.0135
.0151
.0159
.01H1
.0207
.0206
.0101
.OlhS
.U115
.0132
.0121
.0114
. (i 10 1
.0096
.OOU6
.0076
.0073
.0074
.,0075'
.0078
• 007/
.OOHO
.0079
.0078
.0077
.00/5
.0072
,0067
.0059
N03-N
(MG/L)
.9587
.9616
.964 1
,9/01
.9818
.0029
.0295
.0163
.0580
.0671
.0673
.0/19
,0726
.0738
.07/0
,0312
.9195
.91 /8
.9255
.9329
.9353
.8918
.8690
.8111
.7522
,6t-Sl
.5330
.39/6
.2292
.0106
P01-P
(MG/L)
.0611
.0631
.063/
.0637
.0603
.05/S
.0559
.0505
.0163
.0127
.0101
.0383
,0367
.0351
.0337
.0320
.0306
.0301
.0302
.0305
.0309
.0310
.0313
.0313
.0313
.0313
.0312
.0312
.0311
.0309
IN CUNSIITUtNTS bEING
PH1TTO
(MG/L)
.0000
.0000
.0000
.0000
.0000
.0000
.0000
• 0000
.0000
.0000
.0000
.0000
.0000
. 0 0 0 II
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.000(1
.0000
.0000
. o'o o o
.0000
.0000
.0000
.0000
.0000
COLIFORMS
(MPN/100)
682.7
682.7
682.6
688.9
695.1
703.8
713.0
722.5
752.1
78B. 3
796,2
826.8
B.42.1
838.1
667,7
879,8
919,0
988.5
1068,9
1150.2
1262,6
1283. B
1368.3
1366,1
1358.8
1315.9
1331.1
1321.0
1313.6
1311.8
MODELED EXCEEDS
MM!
(MG/L)
.216
.206
. 191
.ICB
.185
.183
.181
,180
.179
.178
.1/7
.1/7
.1/6
.1/5
.173
.169
.166
.161
' .161
.162
.160
.1S9
.157
.156
.156
.156
.154
.119
.111
.105
MM2
(MG/L)
• 000
.000
.000
.000
.000
.000
,000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
'.000
.000
.000
,000
,000
.000
HM3 TOT N CMLOR
(MU/L) (MG/L) (MO/L)
.000 .036* .000
.000 .036* .000
.000 .036* .000
,000 .036* .0.00
,000 .036* ,000
.000 .037* .000
.000 .037* .000
.000 .037* ,000
.000 .038* .000
.000 . .010* .000
.000 .010* .000
.000 .011* .000
.000 .011* .000
..000 ,OH» .000
.000 .012* .000
.000 .013* .000
,000 ,011* ,000
,000 .015* .000
.000 .01/* .000
.'000 .018* .000
.000 .019* .000
.000 .019* .000
.000 .050* .000
,000 .050* .000
,000 .050* ,000
,000 .US'O* .000
.000 .050* .000
.000 ,050* .000
.000 .050* .000
.000 .050 .000
THE TOTAL NITROGEN BEING HODfcLED AS
HMI1
(MG/L)
.000
.000
.000
.000
.000
.000
.000
,000
.000
,000
.000
.000
.000
.000
- ,000
.000
.000
.000
.000
.000
.000
.000
,000
,000
.000
.000
..000
.000
-.000
,000
HMI2
KMIJ
(MCi/L) (MG/L)
.000
.000
,000
.000
.000
.000
,000
,000
.000
.000
.000
.000
.000
.OJfl
.000
.000
.000
.000
.000
-.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
• 000
.000
,000
• 000
• 000
.000
• 000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
• ooo
,000
.000
.000
.000
.000
.000
,000
.000
.000
.000
A CONSERVATIVE.
-------
TEMPERATURE VERSUS DEPTH fOR JULIAN DAY 200
METEKS
ABOVE
BOTTOM
110.000 I
I
I
I
I
I
I
I
I
1
32.000 -
I
I
I
I
I
I
I
I
I
21.000 -
I
I
I
I
I
I
I
I
I
16.000 -
I
I
I
I
I
I
I
I
I
8.000
.000
******
*****
»*
***
**
I I..- .1 !--
I6.o 16.a 17.6 16, a
-I— I— I i—
1.2 30,0 20.8 21.6
1
21.2
HATER TEMPERATURE » DEGRfctS CENTIGRADE
-------
DEEP RESERVOIR MODEL
OHM SIMULATION OF LONG LAKf.--ONE TURBINK INTAKE—JUNE THRU NOV 1971
SYSTEMS CONTROL INC
SUMMARY OF OUTPUT FOB SIMULATION DAY 2«0
EXECUTION INTERVAL
GENERAL SYSTEM INFORMATION
RESERVUIR EUYATION Jl.11 M
SURFACE ELEMENT 1.11 M
TOTAL SYSTEM INFLOt, 68.5 CMS
TOTAL SYSTEM OUTFLO* si.i CMS
ELtV TNERMOCLINE 11.0 M
00*NSTRtAM 1t«H 19.bO IHG C
RETENTION TIME 51.1 DAYS
SURFACE AIR TEMP
SURFACE WATER Tt'MP
E'/APORIZATION RATE
CULM EVAPORIZATION
INFLOW TEMPERATURE
LOWEST MlXEU bLtV
OBJECTIVE TfMP
214.41 DtG C
20.17 DtG C
9.1S-01 CMS
,185 M
19,13 OEG C
30.0 M
19,13 DtG C
SURFACE HEAT .EXCHANGES
UNS
UNA
Uw
WE
QC
b.Jbb-02 KC/M.2/S
B.bbt-OZ KC/M2/S
9.701-02 KC/M2/S
2.872-07 KC/M2/S
SYSTEM OUTFLOWS
NO'
1
ELEM
22
ELEV
21.0
FLO'1
TEMP
DEN GRAO
a.210'02
-------
DEEP RESERVOIR MODEL
NO
1
2
3
4
b
6
7
8
9
10
11
12
13
i"
lb
16
17
IB
IV
20
21
22
23
24
25
26
27
28
29
30
31
DRM SIMULATION OK LONG LAKE.—ONE TURBINE INTAK£--JUNt THRU NOV 1971
SYSTEMS CONTROL INC
SUMMARY Oh OUTPUT FOR SIMULATION DAY 210 EXECUTION INTERVAL 2
ELEVATION TEMP DEG C TEMP DEG ^ HOHZ OUT HORZ IN RATE OF CHG
• 0
1.0
2.0
3.0
4,0
5.0
6.0
7.0
H.O
9.0
10.0
11,0
12.0
13.0
14,0
lb.0
16.0
17.0
18.0
19.0
20.0
21.0
22.0
23.0
24.0
25.0
26,0
27.0
28.0
2«.0
30.0
17.6822
17.684(1
17.6917
17.7007
I7.716b
17./420
17.7B01
17.B337
17.90-ib
17.9973
18. 10'fh
18.2413
16.369,!
18.B/6U
19.023S
}9.1V1,>
19.2/11
19.3779
19,4800
19,6947
19.H14B
19.9UOO
20.1427
20.1U32
20.1859
20.16H7
63.8279
63.8312
61.84bO
63.8612
64.0041
64.1007
64.2300
64.39S2
64.59/3
64.8(45
6b.10P6
65.3878
65.9768
66.47/6
66.6880
66.8802
67.0639
67.2508
67.6667
67.B920
68.1022
68.2569
68.3298
6B.334S
68.3036
.OOCO
.OUCO
.0000
.OOCO
.0000
.0000
.ooco
.0000
.OOCO
..OOCO
.0000
,0000
.ooro
.0000
,0(1 CO
.0000
.0000
4.9335
5.21P4
5,4672
5.7641
6.0410
6.317B
6.59H7
6,a7i5
7.1«»4
,0000
,0000
."0000
.0000
,0000
DIFF COEF
VAR
HAR
.0000
.0000
.0000
.0000
.0000
.0000
• 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
4.8022
5. OS/7
5,3732
5.6b87
5.9442
6.2297
6.b|i3
6.8008
7.U863
7.3718
7,6573
.0000
.0000
.0000
.0000
6.271-07
6.196-07
6.192-07
6.018-07
5.866-07
b. 698-07
b ,4bS-07
5,261-07 .
4,991-07
4.672-07
4..317-07'
3.860-07
3. 412-07
2.6<>7-07
2.522-07
2. '537-07
2.7lb-07
2.1bo-07
.1.907-07
1.9/7-07
2.007-07
3.260-07
4.164-07
5 .H^J-07
8,330-07
1.226-06
1.832-06
2,208-06
2.5BC-06
2.878-06
1.929-06
0.000
2,500-01
2.500-01
2.500-01
1.573-01
11056-01
7. 564-02
5.686-02
4.461-02
3.619-02
. 3.030-02
2.613-02
2.321-02
2.12b-02
2.00i-02
1.9bl-02
1.973-02
2.CS7-02
2,26b-02
2,474-02
2.6o5-02
2.770-02
2.760-02
2.64-J-02
2,501-02
2.4bi!-02
2.6bo-02
3.519-02
6.706-02
2.500-01
2.500-01
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.00
.CO
.02
.02
.02
.02
.02
.02
.02
.02
.02
.02
.04
.04
.03
,03
.03
.00
.00
.00
.00
.00
.00
.00
,00
.00
.00
.00
.00
.00
.00
.00
.00
.02
.02
.02
.02
.02
.02
.02
.02
.02
.02
.02
.00
.00
.00
.00
-------
EL.EMt.NT CONCENTKATIONS FOR DAY J»«0
EXECUTION INTERVAL
ELEMENT DO BOD
NUMBER CMG/L) CMG/L)
1 .00 268.71
Z .00 103.39
i .00 61,38
4 .00 11.61
S .00 32. b3
6 .00 21.56
7 .00 18.91
6 .00 11.62
9 .00 11,23
10 .00 8.15
11 .00 6.31
12 .00 1.10
13 ,00 2.97
11 .00 1.65
Ib .2b .65
16 1.52 ,17
17 2.19 ,51
IB 3.61 .51
19 1.91 .52
20 5.56 .bl
21 b.76 ,52
22 b,66 ,b6
23 5,90 ,56
21 ' 5,92 .55
2b 5,91 .51
'26 5.95 ,b3
27 b.97 .52
28 5.9b .13
29 6. J3 .12
30 6.72 .11
31 8.32 .38
NH3-N
CMG/D
.22/9
.2229
.2189
.2097
.182S
.1187
.1200
.1092
.1021
,0980
.0930
.0891
.0851
.0821
, 068b
.0181
.0367
,0331
.,0298
.0278
,Or'/3
,02//
,02/6
.0271
.02/2
.0271
.0269
,0261
.0257
.0230
.0122
INDICATES SUM TOTAL OF THF NITKOGKN
N02-N NOS-N POI-P PHYTO CCLIFORMS
CMG/L)
.0099
.01 3b
• Olbl
.Olb9
.0181
.0206
, {j^QS
.Olhl
,0166
.01S3
.0112
.01 41
.0120
.0110
, I) 0 9 f
.OOVM
.0101
.0097
.0086
.IIO'lO
.UO/8
.0079
,0079
.00/9
.00/9
.00/9
.0079
.0076
.00/1
.0068
.0053
CMR/L) CMG/L) CMG/D CKPN/IOOJ
.9611
.9670
.969b
.9/57
.9869
1.00/6
1 .0348
1.0b06
1 .0618
1.0878
1.0999
1.1203
1.1301
1.1153
1.1569
1.1131
1.1311
.9951
.7616
,6'470
.6200
.61bl
.6121
.6296
,608/
.5762
. 5265'
,10"9
.2886
.1220
.0022
IN COMSUTUtNTS
.0611
.0631
.0636
.0636
.0603
.0573
.0559
.0551
.0552
.0555
.0555
.0555
,0bb5
•.0556
.0531
.0169
.0136
.0117
.0109
.0101
.0102
.0395
.0391
.0393
.0393
,0392
.0392
.0399
.0398
.0398
,0396
bFING
.0000
.0000
.0000
.0000
.0000'
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.01100
.0000
.0000
..0003
.0000
.0000
.0000
.0000
.0000"
.0000
.0000
MODELED E
56,9
56,9
56.8
57,1
57. «
57.7
bB.O
SB. 2
5B.1
60.1
60.3
86.7
87.2
117.5
1 16.9
3bf ,7
631.2
756.6
801.3
B2b.3
050.1
913. b
9b8.6
95B.O
956.1
951.6
950.6
810,5
835,7
836.2
837.6
•.XcEtDS
HM1 HM2
HM3 TOT N
CHLOR
HMII
HMI2 HMIJ
CMG/L) CMG/L) CMG/L) CKG/L) CMG/L) CMG/L) CMG/L) CMG/L)
.267
.213
,198
.190
.186
.183
,131
.1/9
.178
.176
.173
.170
.166
.160
.IbO
.136
.126
.113
.103
.099
.098
.099
.099
.099
,099
,099
, C99
,097
.091
.087
.061
THt TOTAL
.000
.000
.000
.000
,1)00
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
..000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.037*
.037*
,037*
.037*
.037*
.037*
.03d*
.058*
.030*
.010*
.010*
.012*
.012*
.013*
< 0 1 " *
.Obi*
.056*
.061*
.068*
.070*
.070*
.072*
.072*
.072*
.072*
.072*
.072*
.071*
.070*
.070*
.070
.000
.000
.000
,000
.000
.600
.000
.000
.000 •
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.!>00
.000
.000
.000
.000
NlTROGlN BtlMG MOOfcLLC AS
.000
.000
.coo
,oco
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
-.coo
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
A C
-------
TEMPERATURE Vt«SUS DEPTH FOR JULIAN DAY 2
-------
DEEP RESERVOIR MODEL
DRM SIMULATION OF LONG LAKE--ONE TURBW INTAKE —JUNE THRU NOV 1971
SYSTEMS CONTROL INC
SUMMARY OF OUTPUT FOR SIMULATION DAY 333
EXECUTION INTERVAL
GENERAL SYSTEM INFORMATION
RESERVOIR HE'VATIdN 31,18 M
SURFACE ELEMtNT 1.18 M
TOTAL SYSTEM INFLOi, - 119.b CMS
TOTAL SYSTEM OUTFLUh IJO.b CMS
ELEV THCRMOCLINt 30.0 M
OO'-NSmAM H «>' (J.ftb Of'G C
RETENTION tint 27,« DAYS
SURFACE AIR TEMP
•SURFACE WATER TEMP
EVAPORIZATION RATE
CULM EVAPOH1ZATION
TEMPERATUF-E
WEST MIXED ELtV
OBJECTIVE TtMP
.56 DEC C
H.8J DEC C
1,53-01 CMS
.ena M
'/.ill DEC C
.0 M .
7,21 BEG C
SURFACE MFAT F.XCHAN«S
UNS
UNA
On
Ofc
QC
«.<)53-OJ KC/M2/S
b.OIS-OS KC/M2/S
1.6H1-03 KC/M2/S
3./16-03 KC/M2/S
SYSTEM OUTFLOWS
NO
i
ELtV
21.0
FLOW
130,5«
TEMP
«.85
OEN GRAD
-1.119-oa
-------
00
NO
1
z
3
4
5
6
7
8
9
10
11
12
13
11
15
16
17
18
19
20
31
22
23
. 21
25
26
27
28
29
30
31
DEEP RESERVOIR MODEL
DRH SIMULATION OF LONG LAKE--ONE TURBINE INTAKES-JUNE THRU NOV 1971
SYSTEMS CONTKOL INC
SUMMARY OF OUTPUT FOX SIMULATION DAY 333 EXECUTION INTERVAL 2
ELEVATION TEMP UEG C TtMP Df.G F HOK't OUT HORZ IN RATE OF CHG
.0
1.0
2.0
3.0
fl.O
5.0
6,0
7.0
e.o
9.0
10.0
11,0
12.0
13.0
11.0
15.0
16.0
17.0
!«.0
19.0
20.0
21.0
22.0
23.0
21.0
25.0
26.0
2/.0
28.0
29.0
30.0
1.8293
0.8293
1.8293
1.8293.
1.B293
1.B29J
1.CV93
1.B291
1.»293
1.B293
1.8,593
1.«293
1.P293
1.829.5
1.S293
1.8293
1.8293
10.6928
10.6928
10.6928
10.6928
10.692B
10.h9,!8
10.6928
in.6928
10.6928
10.6928
10.6928
'40.6928
1U.69^H
10.0938
10.09^8
10.6928
10.6928
10.69
-------
ELEMENT CONCENTRATIONS FOR DAY 3J1
EXECUTION INTERVAL
VD
SLtMENT
NUMBER
' 1
2
3
a
b
6
7
e
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
21
25
26
? /
26
29
30
31
INDICATES
00 BOD
IMG/L) (MG/L)
8.18 2.11
8.S2 1.37
8.59 1.22
8.62 .15
6.63 .11
8.64 .09
8.65 .07
8.66 ,05
B.66 .04
6.67 .03
8.67 .03
8.67 .02
8,68 .02
8.68 .01
8,68 .01
6,68 ,01
8.68 ,00
8,68 ,00
8,68 .00
8.68 I. 00
8,69 1,00
6,69 ,99
8.69 ,99
8,69 .99
6.69 .99
8,69 ,99
8.69 ,99
8,69 ,99
B.69 ,99
8,69 ,99
9.26 ,97
NH3-N
(MG/L)
,0474
.0460
.0458
.0457
.0456
.0455
.0455
.0455
.0455
., OU5«
,0454
.0454
.0454
,045J
, 0 u 5 4
.0454
.0454
.0454
.nasi
.0454
.04511
.0454
.0454
, 045<4
.0454
.0454
.0454
• 0454
,0454
.0454
.0449
SUM TOTAL OF TMh NITKOMN
N02-N K03-N H04-P PHYTO COLIFONMS
(MG/L) (MG/U (MU/L) (HG/L) (MPN/IOO;
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.009)
.0091
.0091
.11091
.0091
.0(191
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.0091
.U091
.0091
.0091
.0091
.0091
1.2/15
U2715
1.2715
1.2715
1,2/15
1.2715
1.2715
1.2715
1.2715
1.2715
1.2715
1.2715
1.2/15
1.2715
1.2715
1.2/15
1.2715
1.2715
1.2715
1.2/15
1 .2715
1.2/09
1 .2/06
1.2/01
1 .'V2
1 . 2o79
1 . 2f>'>8
1 .2025
1.25/2
1 ,2488
1 . 2/^9
IN CO^ST JT.ILNTS
,0429
.0413
.0410
.0409
,04(18
,0408
.0407
.0407
.0407
.0407
.0407
.0406
, 0 4 0 6
,0406
,0406
.0406
.0106
.0106
.0406
.0406
,0406
.0406
.0406
.0406
.0406
.0406
.0406
.0406
.0406
.0406
.0405
BE INC,
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.OOOU
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
• 0000
• oooo
.0000
.0000
.0000
.0003
.0000
.0000
MODELED
830.7
830.7
830.7
830.7
630.7
830.7
630.7
830. 7
B30.7
630. /
830.7
830.7
8S0.7
830.7
H30.7
630.7
830.7
S30.7
8^0.7
830.7
830.7
830.7
830.7
830.7
630.7
H30.7
630.7
630.7
630.7
830.7
831.1
EXCttOS
HM1 MM2 Mh3 TOT N ChLOR HMI1 HM12 MMI3
(MG/L) (MG/L) (MG/L) (MG/L) (MU/L) (MG/L) (MG/L) (MG/L)
.094
.093
.093
.093
.093
.093
.093
.093
.093
.093
.093
.093
.093
.093
,OV3
.093
.093
.093
.093
.093
.094
.093
.093
.093
.093
,09?
,093
,093
,093
,095
.068
THE IOTAL
,000
,000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
,000
,000
.000
.000
.000
.000
,000
,000
.000
.000
,000
,000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
,000
,000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
,000
.000
.000
.000
.000
.000
.000
.000
.000
NITROGEN BL
.140*
.140*
.140*
.140*
.140*
.140*
.140*
.140*
,140*
.140*
, 140*
.140*
.140*
.140*
, 1«0*
'.140*
.140*
.140*
.140*
.1«0»
.140*
,140*
.140*
.140*
. 140*
.140*
,140*
,140*
,140*
,nc*
.140*
.000
.000
.000
.000
.000
.900
.000
.000
,000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
NU MODtLLO AS
.000
.000
.000
.000
• 000
.000
.000
.000
.000
.000
.000
.000
.000
.000
".000
,000
,000
.000
,000
.000
.000
.000
.000
,000
.000
.000
.000
.000
,'000
.000
.000
.000 .000
.000 ,000
.000 .000
.000 ,000
.000 • .000
,000 .000
.000 .000
.000 ,000
,000 ,000
,000 .000
.000 .000
.000 .000
.000 .000
.000 ,000
,000 ,000
,000 ,000
,000 .000
,000 ,000
.000 .000
,090 .000
,000 ,000
.000 .000
.000 .000
,000 .000
.000 .000
.000 .000
.000 .000
.COO .000
.000 ,000
.000 .000
•cuo ,000
A CONSERVATIVE.
-------
TEMPERATURE VERSUS DEPTH FOR JULIAN DAY. S31
Ni
o
ao.ooo i
i
12.000
21.000
METERS
ABOVE
BOTTOM
16.000
e.ooo
.000
.1.
.1 ....!.
• i.
1.0 2.0 4.0 1.0 b.O
• WATER TEMPERATURE » DEGREES CENTIGRAOt
6.0
..I..
7.0
— I..
8.0
.-I-.
9.0
— -.I •
10.0
-------
OUTFLOW TtMPtKATURtS (CtNTJCRAOt)
DAY
152
159
166
173
180
187
1911
201
20»
215
2i-2
229
236
213
250
257
261
271
278 -
265
2«2
299
306
313
320
327
331
TtMC
12.00
12,77
13.65
15.95
16.07
16.00
16.20
17.67
19.21
20.11
20. 09
19.90
19. 20
19. i9
17.87
17.13
1S.«0
11. /7
11.02
13.75
11.52
9.B1
7.66
6.25
5.90
5.36
ft. BO
DAY
153
160
167
17«
181
188
195
202
209
216
223
230
237
211
251
2r>B
265
272
279
286
293
300
307
311
321
328
TENC
12.07
12.87
13.87
16.33
16.19
15.78
16.36
17.80
19.10
20.23
20.50
19. P6
19.29
19.11
17.81
16. VS
15.78
11.53
11.08
43. 5'1
11. 1U
9.10
7.17
6.22
5.B2
5.25
DAY
15«
161
168
175
1B2
169
196
203
210
217
2'H
12.00
13.03
11.11
16,31
16.32
15.91
10.56
18.05
19, S6
20.10
20.51
1 9 . IH
19. J7
18.61
17. 7«
16.72
15. /3
11.31
11.10
15.09
10.91
9.02
/.21
6.21
5.70
5.17
DAY
155
162
169
176
183
190
• 197
200
21 1
218
225
252
239
216
253
260
267
271
281
288
2<'5
302
309
316
323
330
TEMP
12.07
13.05
10.12
16.38
16,33
16.01
16,77
18,31
19.69
20.35
20,19
19,87
19,01
18.22
17.76
16.11
' l'i.59
11.16
11.08
12.79
10.70
8,75
6.85
6.19
5.59
5,06
DAY
156
163
170
177
131
I'M
198
205
212
219
2,!6
233
2'IO
2.47
250
2ol
2ttfl
2/5
21)2
21(9
2'»6
303
310
317
321
3.11
.
TEMH
12.22
13,28
11.69
16.3?
16.39
16.06
17.03
18.57
19.81
20.38
20,12
19.71
19.50
16,17
17.67
16.31
15.37
11.06
10.05
12.36
10.61
8.18
6.61
6.13
5.56
1.97
DAY
157
160
171
178
185
192
199
206
213
220
227
231
211
218
255
262
269
276
2H3
290
29/
301
31 1
31B
325
332
TEMP
12.09
13.09
15.06
16.38
16.05
15.96
17,16
18.79
19,93
20.01
20.30
19. b9
19.53
16.10
17.10
16.23
15.20
13.97
10.02
12.01
.10. Ob
8.20
6,16
6.05
5.55
1,91
DAY
158
165
172
179
186
193
200
207
210
221
22U
235
212
219
256
263
270
zn
280
291
2-)8
30b
312
319
326
333
TtKP
12.73
13.55
15.02
16.22
16.36
16.03
17,11
19,01
20.05
RU.15
20.16
1 9.21
19.56
18.07
17.26
1/>,06
15.00
13.91
13.90
1 1.78
10.18
7.90
6.32
5.97
5.50
1.85
-------
L»KE OUTHUH CONCENTHATIONS
NJ
to
DAY
NUMBER
152
153
154
155
156
157
158
159
IhO
161
162
163
161
IbS
160
167
IhB
169
170
171
1?2
173
17a
17b
176
177
178
17'
180
1«1
1*2
1«3
IH4
185
JB6
187
IBB
ItW
15
|96
1"
196
199
200
201
202
203
FLOV,
(CFS)
71-J.ab
710. /6
70/.92
69h.6Q
696.60
679.61
637. 13
6 .4 1 . 4 /
60'" 90
6?2.9/
S8P.99
569.17
56h.3l
55r>.0l
54 4. <>9
bSb.Ol
532.36
VI. 03
5o9.7l
0 7 0 . 0 6
0 6 1 . 5 7
1124.75
010.60
419,09
J90.77
3l)/.9a
39(1.77
Jt-H.12
353.96
342.64
291.50
1/7.55
151.78
13-1.75
154.33
IhO. Hi
161. "1
161 .m
159.14
14/.53
176.13
17?. «5
14/.25
14h.68
IUH.IO
163.39
171.13
130.54
141.87
13«.19
113.27
114.97
DO
CMG/U
8.11
8.97
9.39
9.71
9.96
10. Ib
10.31
10. 42
10. "50
10.57
10.61
10.64
10.67
10.6*
10. 64
10.60
10. 58
10. 54
10. SI
10.17
10. "0
10.31
10.27
10.19
10.0'
9.98
9.88
9, 71
9.56
9.55
9.52
9.48
9. '40
9.30
9.19
9.18
8.19
8. HI
H.79
H.74
8.61
8.53
R.51
8.45
8,36
8,26
8.16
8.08
7.97
7.86
7,76
7.6U
BUD
CMG/U
• 57
.bl
.47
.11
.12
.40
.37
.37
.36
.36
.37
.36
.35
«3h
.36
.37
.37
..38
.37
.37
.38
.37
.37
. SB
.39
.10
• 11
.13
.16
»1U
.13
.11
.11
.11
.10
.37
.SO
.13
.11
.12
. .13
.13
.113
.13
.11
.Ib
.IS
.15
.15
.11
.44
.14
NH3-N
CMG/U
.0088
.0102
.0110
.0113
.0111
.0112
.0108
.0)05
.0102
.009/
.0091
.0089
.0081
.0081
.0061
.0083
,00«b
...Oli88
.0090
.0093
.0098
.0101
.OlOb
.0111
.0118
• 01?»
.ons
.01 ''6
.0162
.01*2
.016,;
.01*'
.0171
• OlHl
.01(13
.out
.0240
.n2ow
,0?OH
.0209
.0219
,0222
,mi>.i
,C12
.0214
N02-N
(MG/L)
.0003
.0006
.OOOB
.0
-------
NJ
ZOO
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
220
225
22*
227
2?8
229
230
231
232
23J
231
215
236
237
233
239
240
2«1
212
213
£44
245
206
217
218
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
122.05
111.00
122,90
111.29
107.60
103.07
91.75
92.03
69,38
77.31
61.73
65.41
75.89
76.17
76. U6
70.51
9.4.73
8H.07
71. 11*
68. S3
76. U6
76, 16
76.16
U0.1V
75.89
75.. 89
79. 57
6h.S3
56.35
2 .(.50
32.20
56.9J
45.61
65. 9U
7". 19
65. «1
51.37
60.32
71. 'Id
8'i.23
7H.H9
75.61
80.70
72. U9
5V. 18
77, B7
8''. 76
76.17
91.75
107. B<)
57.77
51. 82
109.59
95. 03
95.15
71.51
77.02
6'). 70
11.06
93.73
7. Si
7.38
7.25
7.13
7.01
6,89
6,78
6.68
6.57
6.117
6.37
6,27
6.18
6.09
6.00
5.91
5.«2
5.71
5.61
5.54
5.46
5.38
5.51
5.37
5.80
5.78
5.78
5.68
5,82
5.87
6.J9
6. Si
5.96
5.66
5.56
5.64
5.56
5.13
5.27
5.29
5.28
5.23
4,94
5.01
- 5.17
1.21
3.86
3.63
3.5B
3.23
3.19
5.26
5. 53
3.43
3.55
3.69
5.84
3.97
1.11
1.26
.13
.11
.43
.43
.44
.44
.45
.45
,46
.47
.18
.49
.51
.53
.56
.58
.5b
.64
.65
,66
.67
.69
.66
.69
.58
.SB
.57
.60
.55
.52
.17
.47
.48
.49
.49
.4'
.54
.56
.56
.51
• ufl
.54
.74
.73
,6B
3.47
2.9B
2.57
2.23
' .92
.74
.55
.40
.27
.17
.08
.01
.95
.90
.85
.0245
,02«6
.0246
,02«7
.0247
.0248
.0249
.0250
.0254
.0255
,0258
.0261
.0265
.0269
.0275
.0202
,0,'BJ
.0298
.0306
.0314
.0321
.0328
,.0315
.0329
.0277
.0279
.0281
.0290
.0270
.0278
.0242
.0241
.02hS
.11275
.02/8
.0277
.0282
.0289
,02«6
.Or1"/
.OJ03
.0342
.0399
.0»01
.0391
.0615
. 0 V 3 0
.0792
.0829
,0t)15
.01153
,0b4b
.0130
.0«ll
,0/fl1'
.0765
.0741
.0717
.0692
.0667
.0074
.0073
.0073
.0073
.00/5
.0077
.00/9
.0081
.0085
.0088
.0091
.0091
.0093
.0094
.0094
,009r.
.1)092
. 1)096
.-009S
.0095
.0095
.009S
.OOH9
.0091
.0077
.0077
.00/H
.0080
.00/7
.0078
.0069
.0070
.00/5
.007«
.0079
.00/9
.OOH1
.0084
.00«5
.00»3
• OOH2
.OCd/
.0098
.0104
.01-07
.0127
• 01«2
.0160
.0176
.0189
.0200
.0207
.0211
.0212
.0212
.0210
.0206
.0202
.0197
.0192
.B378
.8315
.8215
.817S
.8189
.8203
.8216
.8198
.8604
.8611
,8744
.8823
.8922
.9049
.9173
.9324
.9092
,960b
.9 MO
,9B«6
.9921
1 . OPOS
.9] <2
.9499
.7014
.6939
.Mi 7 2
.71 /2
.hlHi
.6.5'S
.4718
.4519
.5615
.Ml9o
..6^59
.6229
.6700
./ISO
.7519
.6b(3
,6^60
.hi 13
,6'.,59
.6603
.6S57
,7,'IS
.7331
.7464
.7405
.712/
.7S10
.7534
.7b7o
• 7h<42
.7/03
.7752
,7/Bh
.7B1B
.7844
.7844.
,0335
.0342
.0349
.0356
.0362
.0369
.0375
.0381
.0389
.0394
.0399
,0402
.0405
.0407
.0409
.0409
.0405
.0407
.0405
.0104
.0401
.0398
,0.494
.0391
.0392
.0392
.0392
.0390
.0395
.0395
.0398
.0398
.0400
.0402
.0403
.0401
.0399
• 039H
.0399
.0406
.0414
.0423
.0434
.0435
.0435
.0470
,01»H
.0502
.0514
-.0521
.0529
• 053S
.0538
.0540
.0541
.0542
.0542
.0542
.0541
.0541
.0000
.0000
.0000
.0000
.0000
.0000
,0000
.0000
.0000
.0000
.0000
.0000
•oooo-
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.'oooo
.0000
.0000
.0000
.0000
• 0000
.0000
.0000
.0000
.0(700
.0000
.0000
• 0000
.0000-
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.•noon
.0000
.0000
.0000
.0000
.0000
.0000
.nooo
.0000
.0000
1096,0
1070.9
1031.1
990.6
949.4
901.5
846.3
787.0
749.8
683.8
643.4
618,4
618,5
610.6
676,8
729.0
756.7
883.4
949.0
1011.8
1094.1
1183.0
1175.3
1284.8
1059.7
1067.3
.10/0.4
1131,5
1039.3
1008.8
895.7
900.2
881.9
861,3
«54,9
857.4
897.7
911.1
896. 3
806, j
/34.6
700,6
691,8
691.1
689,0
653.5
651.5
648.2
.b43.8
638.5
632.2
625.2
619.4
614.3
607.4
598.7
588.7
578.2
569.0
559. it
.155
,151
.153
.151
. 149
.117
.115
.143
.112
.119
.137
.135
.133
.131
.129
.128
.12/
.125
.123
.122
.121
.120
.116
.116
.108
.107
.106
.106
.103
.101
,095
.095
,098
,101
.101
.099
.100
.102
.102
.099
.099
.101
.105
.105
.101
.113
.113
.112
.112
.112
.111
.111
.110
.110
.110
.109
.109
.108
.107
.107
.000
.000
.000
.000
.000
.000
.000
tOOO
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
-.000
.000
.000
.000
... 0 0 0
.000
.000
.000
.000
.000
.000
.coo
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.003
.000
.000
.000
,000
' ,000
,000
.000
.000
.000
-.000
.000
.000
,000
.000
.000
.000
.000
.'000
• .000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
,000
.000
.000
.000
.000
.000
.051
.051
.052
.052
.053
.053
.054
.054
.056
.056
.057
.058
.058
.059
.060
.061
.061
,063
.063
.064
.065
.065
,l'6S
.065
.063
.C63
.064
.065
.065
.066
.066
.067
.067
.067
,067
.069
.070
.072
,i)73
.072
.071
.071
.071
,072
.074
.0/2
.J/3
.075
.076
.078
.079
.oso
,0«2
.OH3
.085
.086
,088
.089
.091
.092
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
,000
.000
,000
...000
.000
.000
.noo
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.coo
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,oco
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
-.000
.000
.000
.000
.000
.00.0
.000
.000
.000
.000
.000
.000
.000
.'000
.'ooo
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.oco
.000
.000
.000
• ooo
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
,000.
.000
..000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.'000
.000
.oco
,000
.000
,003
.000
.000
.000
.000
.000
.030
.000
.000
.000
.000
.000
,000
.000
.000
.030
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
• 000
• ooo
• 000
-.000
.000
.000
.000
• 000
.000
• 000
.000
.000
.000
.000
.000
.000
• 000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
• ooo
• 000
• 000
.000
.000
• 000
• 000
.000
.000
.000
.000
• 000
.000
.000
.000
.000
.030
• 000
.000
.000
.000
.000
• 000
.030
.030
-------
260
265
266
367
268
369
270
271
Hi
273
274
275
276
2'/V
27H
27V
?HO
281
282
283
284
2«5
2 fib
267
2«B
289
290
291
292
2"3
291
295
29-,
297
298
299
300
301
302
303
301
305
306
307
30U
309
310
311
312
313
311
315
316
317
31»
319
320
321
322
323
99.11
77.02
84.10
81.10
61.10
66.08
91.01
82.10
83. Si
82.69
85.52
80.99
60.70
BO. 11
B3.H2
95.71
72.21
86.65
79.85
81.27
77.31
01. 2/
77.87
107. B9
79.00
80,99
73.15
92.31
83.25
79.57
63. bl
91. 5B
76.16
77.87
84.67
95.13
92.31
92.88
86.0«
76.|7
75.01
63.25
83.82
85.80
SH.hS
95.15
76.74
93,15
Vi. 30
92.31
93.15
86.08
10S.07
90.33
79.57
99.11
98.51
92.6S
102.22
105.31
a. 35
4.37
4.53
4,68
«.83
1.95
5.09
5.23
5.37
5.50
5.63
5.75
5.81
5.82
5.92
5. '<4
5.63
5.96
5.91
5,85
5.79
5.. 90
5.9B
6.09
6.21
6.32
6.1H
6,52
6.62
6.71
6.80
6.66
6.9S
7.01
7.12
7.20
7.27
7.31
7.1?
7.50
7.5B
7,66
7.71
7.82
7.BB
7.95
8.02
8.09
8.11
8.17
8. 18
8.16
8.15
6.12
8.17
8.20
8.25
8.30
6.35
8,10
.82
.79
.77
.75
.71
.72
.72
.71
.71
.71
.71
.71
.71
.70
.61
.62
.61
.59
.6U
.61
.71
.71
.73
.73
.73
.71
.71
.71
.75
.76
.76
.77
.77
.76
.79
.80
.80
.01
.62
.83
.HI
.85
.66
.87
.US
.119
.90
.91
.V2
.9?
.93
.91
,91
.95
.95
.95
.96
.96
.97
.97
.0611
.0623
.0601
.0582
.0563
.0517
.0531
.0517
.0501
,0192
.0182
.0172
.0161
.0156
.0111
.0131
,0"36
.0115
.0111
.0108
.0121
.0118
.0116
.0113
.0110
.0108
.0107
,0106
,0105
.0105
.0105
.0105
,0105
.0105
.0105
.0106
,0'iOf
,0«09
,0110
.0112
,OlM
.OH5
.0116
.OH/
,0119
.0121
.Oi^S
.0125
,042/
.0129
.0131
.0131
.0146
.0138
.0110
.0112
.0113
,0111
.0115
,0117
,0146
.0180
.0175
.0169
,0164
.0158
.0153
,0119
.0111
.0110
,0136
.0132
.0129
.0126
.0123
.U120
.0118
.0115
.0112
.0111
.0111
.01(19
.0108
,0107
.OlOb
.0101
.0103
.0102
.0101
.0100
.0099
.0099
.0096
.0097
.0097
.0096
.0096
.0096
,0095
.0095
.0095
.0091
.0091
,0093
.0091
.0093
.0093
.0093
.0092
.0092
.0092
.0092
.0092
.0092
.0093
.0093
.0093
.0093
.0092
.0092
.7876
.7925
.7906
.7973
.8001
.8040
.8082
.H138
.8191
.8219
.8304
.8357
.8112
.8166
.H3/6
.6394
.«967
.8111
.H5'M
.8673
,8S01
.8623
,6b02
,8H62
,8912
,8996
.9052
.9111
.9176
,9211
,9306
.9375
,9441
.9515
.9586
,9h5B
,9738
.9B23
,9'J04
,9992
,00/6
.0171
.02/0
.0369
. 0 " S 4
,05'>0
,0635
.0725
.061 /
.0911
,0995
,IO«5
.1 160
.1262
.1331
.1H5
.1509
.1597
• 16B9
.1771
.0539
.0538
.0536
.0531
.0533
.0531
.0528
.0526
.0524
.0521
.0519
.0516
.0514
.0512
.0508
.0505
.0502
,0499
.0497
.0495
.0199
.0"97
.0197
.0194
.0492
.0490
.0486
.0186
.0484
.04H2
.0480
.0476
.0476
.01/1
.01/2
.0170
.0168
,0466
,0"65
.0463
.0401
.0459
.0157
.0151
.0453
.0451
,0419
, U 4 4 7
,0115
,0443
.0442
.0410
.0436
,0137
.0135
,0133
,0431
.0429
.0427
• .0426
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000 .
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
i 0 0 0 0
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
• 0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.0000
.oo'io
.0000
552.3
545.7
540.1
535.3
531.6
526.5
526.1
526.1
526.3
527.0
527.9
529.0
530.1
531.0
52/.S
528.9
530.4
529.7
530.0
530.5
530.5
531.9
527.3
531.8
538.8
512.7
546.8
551.2
555.8
560.6
565.5
570.3
575.1
580,9
5«6.»
592,0
597.7
603.7
608,8
615.0
621.1
629.1
63/.6
646.5
653.3
661.3
66U.O
675.7
683.1
691.1
696.7
703.0
709,0
714.8
720,2
726,5
731,5
742.0
750.3
757.3
.106
.106
.105
.105
.104
.104
.104
.103
.103
.102
.102
.102
.101
.101
.100
.100
.102
,099
.099
.098
.098
.098
.098
.098
.097
.097
.097
.097
.096
.096
.096
,096
.096
.095
.095
.095
.095
.095
.095
.094
.094
.094
.094
.094
.094
.094
.093
.093
.093
.09S
.093
.093
.093
.093
.093
.092
.092
.092
.092
.092
,000
.000
.000
.000
,000
.000
,000
.000
,000
.000
,000
.000
.000
,000
,000
,uoo
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,00-0
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.coo
.000
.000
.000
,000
,000
,000
.000
,000
,000
,000
,000
,000
.000
,000
,000
.000
.000
.000
.000
.000
.000
.000
.oco
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
,000
,000
.000
.000
,000
,000
,000
.000
.000
.000
,000
,000
,000
,000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.093
.094
.096
.097
.098
.099
.101
.102
.103
, 101
.105
.106
.107
.108
. 109
.110
.111
.112
.113
.114
.115
.115
.116
.IT'.
.118
.119
.119
,120
.1?!
.122
.122
.123
.124
.121
.125
.125
.126
.127
.12/
.128
.12U
.129
.129
.ISO
.1 SO
.131
.131
.1 12
.132
.133
.133
.134
.1 14
,131
.135
.1 i5
,136
.136
.156
.1 J7
.000
.000
.000
.000
.000
,000
.000
.000
.000
,000
,000
.000
,0.00
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
,000
.000
.000
,000
.000
,000
,000
,000
,000
,000
.oco
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
• .000
.000
.000
.000
.000
-.000
.000
.000
.000
.000
.000
• .000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.coo
.000
.000
.coo
.000
.000
,000
.000
.000
.oco
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.coo
.000 .
.000
.000
.000
.000
.000
.000
.000
.000
.000
• OuO
.000
.oco
.000
.000
.000
.000
.000
.000
.000
• COO
.000
.000
.000
.000
.000
.000
.con
.000
.000
.000
.000
.000
.coo
.000
- .000
.OuO
.000
.000
.000
.000
.coo
.000
.000
.000
.000
.000
.000
tOOO
.000
.000
.000
.000
.000
.000
.000
.000
.000
-.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.COO
.000
.000
.oco
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
.000
.000
,000
.000
. 0 P 0
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.oco
.000
,000
.000
-------
324
325
336
327
328
329
330
331
332
333
334
95.73
95.71
99.39
102.79
9H.26
98.26
118.65
130.2t>
109.30
130.51
144,13
8.ai
B.iil
a. at,
8.51
8.55
8.59
6.62
8.66
8.70
8.73
8.77
.98
.98
.98
.99
.99
.99
.99
1.00
1.00
1.01
1.01
.0118
.04SO
.0151
.0452
.0«53
.015"
.0155
.0154
.0454
.0454
,0452
.0092 1.1853
.0092
.0093
.0093
.0093
.0093
.0092
.0092
.0092
.0091
,0090
.1935
.2008
.2083
.R157
,?2S5
.2324
.24?9
.25M
.2642
.2/77
.0424
.0422
.0420
.0419
.0417
.0415
.0413
.0411
.0409
.0406
,0403
.0000
.0000
.0000
.0000
.0000 '
.0000
.0000
.0000
.0000
.0000
.0000
762.9
769.1
775.1
781.0
786.7
793.1
801.2
811.0
820. 2
830.8
844,5
.092
.092
.092
.092
.092
.092
.092
.092
.092
.092
,092
.000
.000
.000
,000
.000
.000
.000 '
.uoo
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.137
.13?
.138
.13B
.13B
.139
.139
.139
.140
.140
,140
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
.000
,000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
.000
,000
.000
.000
,000
.000
.000
,000
,000
,000
,000
• 000
NJ
Ui
-------
SECTION XI
PROGRAM LISTING
Program Page
Typical JCL 128
Subroutine BAL . ., 129
Function BETA . 130
BLOCK DATA 131
Subroutine CURVE 131
Subroutine GETCON 132
Subroutine FILL ..... 132
Subroutine GETAVI 133
Subroutine LAKCON 141
Subroutine NEWIN 143
Subroutine PINE 148
Subroutine PPLOT 149
Subroutine QPRINT , 150
Subroutine SCALE 150
Subroutine SETOPT 152
Subroutine SUBA 153
Subroutine SUBB 155
Subroutine SUBB2 160
Subroutine SUBC 163
Subroutine SUED 170
Subroutine SUBE 170
Subroutine SUBG 174
Subroutine SUBH 174
Subroutine SUN 176
Main Driver Program 176
127
-------
TYPICAL JCL
A typical JCL deck for executing a LAKSCI run is listed here. (JCL
variations may occur according to machine or installation.)
//EXEC FORTGCL,REGION=280K
//FORT.SYSIN DD *
LAKSCI FORTRAN SOURCE DECK
//*
//LKED.SYSLMOD DD DSN=B.YRHB10.ZAS.LK2(LKH2).
// UNIT=3330.VOL=SER=PR3002.SPACE=(1024,(140,10,1),RLSE),DISP=(,KEEP)
// EXEC PGM=LKH2.REGION=280K
//STEPLIB DD DSN=B.YRHB10.ZAS.LK2(LKH2),UNIT=3330,
// VOL=SER=PR3002,DSIP=SHR
//FT06F001 DD SYSOUT=A
//GO.FT18001 DD DSN=CN1752.ZAS.ITP,DISP=NEW,
// UNIT=SYSDA,SPACE=(TRK,(15,15)),
// DCB=(RECFM=VBS,LRECL=1000,BLKSIZE=1004)
//FT05F001 DD *
LAKSCI DATA DECK
/*
//
128
-------
1, SunKfllJTIK'E HAL
2, INTEGER M(WH(l?)
3. COMMON ZF(365)» V(365)i FlOw (365» 3) . ERR(365)i OHT(365i3)i 11(365)
a, A . ZMCJ65)
5. OATA MONTH/31 ,28.11 »30i31 »30»M .31 'J0>31 t 50»M/
6, A(X) '= Cl + C2*X t Ci * X +* f.
7, S(X) = Cl * X * ( C2 / 2.0 ) .* X ** 2 + ( C3 / 3.0 ) * X ** 3
8,
9, DO 1 I=l»4015
10, i . zF»OTELfG-'iKLOri,FACIN
16. IF(FACIK'.F.H.O.) MCIN=1,
17. 502 FO«MAT<3I10.3Fl0.a)
18. 'J03
20, C **** READ INPUT OATA
21.
22, READCSfSOl) (FLOW( J» 1 ) • FLOW t Jt2) i FLOW( J, 3) . J=IDAY iLOAY)
23, DO 5 J=1.3
2'l. 5 CALL FIl.L(FLOrt(IpAY»J)iLDAY"IDAY»l»0,)
25, TOTINaO,
26, TOTOUT50,
27. DO 20 JsIOAYiLDAY
26, TOTIN=TOTIN+FLO«JJ| 1)*86«00.
29, 20 TOTOUT=TOTOUT+FUOW(j,2)*86aOO,
30, 01FPO=(TOTOUT-TOTIN)/(UDAY"IOAY+1.)
31, • DIFPDciDIFPn )
32, OIFCFS = OHPO/86«00.
33, DlFAF-=(TOTIN-TnTOUT)/a3560.
30, DO 10 JsI
35.' 10 FLOW(Ji
36, WRITE (6. 500) HStUI » HOTEL , TOT IN t TO TOUT i OIFAF . D IFCFS .F AC IN.GWFUQ«
37. 500 FORMAT(//I INITIAL SUHFACE ELtVATlON! REFERENCED TO LAKK BOTTOM =1
38, *.Fl5.0ti(FT)i/
39, *3Xil ELEVATION OF LAKE BOTTOM. REFERENCED TO SEA LEVEL ='»F15.0i
-------
61,
62.
63,
6(1,
65,
66.
67,
68,
69,
70,
71,
72,
73,
7«.
75,
76,
77,
79.
79.
BO.
01,
82,
83,
80,
85,
86.
87.
88,
89.
90,
91,
92,
93.
91,
95,
96,
97,
96,
99,
100,
101.
102.
103.
104,
105,
106,
107,
108,
109,
110.
Ill,
112,
113.
114,
115.
116.
117.
118.
119,
120,
121.
IF( ABSCX2 "XI ) ,LT, O.OOS ) GO TO 123
XI o X2
121 CONTINUE
123 ZFCJ) s X2
ERR(J) = V(J) » SCZF(J) )
125 CONTINUE
DO 131 J = IDAYf LDAY
OUTCJ.l) = 0.020H17* FLOw(J,U-
OUTCJ.2) = 0.028317 * FLO.<(J»iJ)
OUT(J,3)=FLOV.(J,3)
•FLO".1 (J i 3) = FLOw (J i 3) /. u.S'3'5'j+12.
ZM(J) = 0,30«8 * ( (ZK(Jfl) + ZF (J) ) / 2,0
131 CONTINUE
DO 135 J = IDAYt I.DAY
135
C **** WRITE OUTPUT
WRITE(6»601)
WRITEt6»603) C JiZF(J) .V(J) (t«R(J) tITCJ) . (FLOW(JfK) iK=I (3) i
A (OUT(J,K)»K=lf3)iZM(J)iJ=IDAYiUOAY)
IFCITAPE.LK.O) RtTUHN
REMIND ITAPt
WRITE(ITAPti) IDAYi LDAY
wRITE(ITAPE) ( ZM(J)> ( DUT(J»K), K B 1, 3 )i J = lOAYi LOAY )
RETURN
FORMAT (1 HI /T9, iDAYl.Tl6,'iELEV(FT)i(T27.'V(ACFT)i,TUO,if:RRi«T5«f
• UTERI, T60«iIK1(CFS)i,T71t'OUT(CFS5'iTB3,iTEMP(F)i,T9S»ilN (C«S )ii
601
603 FORMAT( Ill.FH ,2i 1PE11.3.E1 1.3, 111 ,OP2I- '11 ,1 ,F11.2, 2Fll.l«F10.2i
A PSsS )
SOI FORMAT£12F6.0)
50« FORHAT(//' VOLUME = C1*D + (C2/?)*D**2 * (C3X3) *D**3 ' /
•I AREA = Cl + C2*D + C3*D**2'/
*l WITH VOLUME IN ACRE FEET A NO D IN FF.ET ABOVE LAKE BOTTOM!//
*10X.'C1 sl,E16.8/10Xt'C2 = ' |E16, 8/10X • ' C3 =i,E16.8)
END
FUNCTION BETA( MIN, MAXiOATAi N )
COMMON/ABLK/ ABARC200), A^EA(200). DCC200), D£NSf200)i DHI(200)i
A DVOL(200)» DZC200)i OZK200), f5Hl(200). QH(U200)i T(200)»
B TOOTC200), TFX(200)» TMIC200), VOL(200)i Z(200),
REAL DATA(N)
IF( MIN ,LT, 1 ) MIN a 1
XBAR a 0.0
YBAR a 0.0
TA B 0,0
TB B 0,0
C ** CALCULATE MEANS
00 117 J a ".IN, MAX
XBAR B XOAR + 7MIOCJ)
YBAR 3 YHAR + DATA(J>
117 CONTINUE
XBAR a XBAR / FLOATC MAX •» MlN * 1 )
YBAR B YRAR / FLOAT( MAX « HIN * 1 )
130
-------
122, • c ** CALCULAT SLOPE OF LEAST SQUARES HT
133,
124, 00 121 J n MIN, MAX
125, TC ••> ZHIO(J) « XRAR
186, TA s TA + TC * ( fATA(J) » YUAR )
127, TH c TB + TC * TC
120, 121 CONTINUE
129, BETA c TA / TB
J30, RETURN
131, END
132, ' BLOCK DATA
133, COMMON/LAB/. TITLni«)iXLAB(ll>iYLAI}{6)
134, lfHOR12(20)iVKRT(6>
135, DATA VERT/.4HMETE »!IHR3 »4HAHOV,4HK , (IMHOTT •
136, DATA TITLE/R*«H ,4H TEM»UNPKRA,flHTURfc•OH VER,
-------
244.
245,
246,
247.
248,
249,
250,
251,
252,
253,
254,
255,
256,
257,
258,
259,
260,
261,
262.
263.
26«,
265,
266,
267,
268,
269,
270,
271,
272,
273.
274.
275.
276,
277,
278,
279,
280,
281,
282,
283,
284,
28S,
286,
287,
288.
289.
290.
291,
292,
293,
294,
295,
296,
297,
298,
299,
300,
301.
302.
303.
304,
10
25 .
30
C
C
C
C
C
C
C
C
C
C
C
C
C
C
RETURN
END
SUBROUTINE C;ETAVI(NDAV,NHR,DELT.AVI»POL)
REAL NHR
COtnOH/P ASS/ TOTLtDAflN, DUSK
M(x> = Am+ni
F:HX)GAJ*X + H3
CALL SUN(NDAY)
DAY = OUSK-t)Ai'iN
6i> = 4.*TOTL/C3.*DAY)
D/J = DAY/«,
' A1RP2/04
B1=»A1*DAWN
A3=-A1
B'< = *A3*DUSK
TlaNHRfOELr
TRsNHH
U'CTl.LT.O.) Tl=0.
TOT=0.
POL=0.
IF (Tl.GT.DArtN+D« .OR, T2.1.T.OAWN) GO TO 10
START = A.'!AX1 (QAWN,T1)
STOP=AMIN| tDAWN+D4»T2)
APEA={STnP*DA«N)*Fl(STOP)/2.-( START-DA* N)*Fl(START)/2.
TOT=TOT+AREA
CONTINUE
IF(T1.GT.DUSK-.D« .OR. T2 ,LT .DAWNf 04) GO TO 20
START=AMAX1 (OAWN+04 t Tl ) •
STOP = AMIN1 (OUSK-Oi|,T2)
AREA=(STOP-'3TART)*fl2
TOT=TOT+AREA
CONTINUE
IFCTl.GT.DUSK .OR, T2.LT ,DUSK«04) GO TO 30
START=AMAX1(OUSK-04,TU
STOP=AMINi (DUSK.T2)
AREA= (DUSK-ST ART )*F3(ST ART )/2.-CDUSK-STOP)*F3C STOP) /2,
TOT=TOT+AREA
CONTINUE
AVI=TOT/(DELT+60.) '
AVI IS THE AVERAGE INTENSITY IN I.ANG1,EYS/HIN OVER DELT
PDL IS TH PERCENT OF DELT DURING WHICH THE SAUU SHINES
IF(T2.LT.DA"IN .OR. Tl.GT.CUSK) RETURN
DLSBAhAXKTl lOAwN)
OLSTOP=AMINl (T2.0USK)
PDL=(nLSTOP"DLS)/OELT
RETURN
END
SUBROUTINE GETCON(IO,DELT.I:jD»DEPTHiBOT)
PHYTOPLANKTON IS THE ONLY TYPE OF ALGAE MODELED BY THIS ROUTINE
10 IS THE AVERAGE LIGHT ITENSITY IN LANGLEYS/MIN DURING THE TIME
STEP
DELT IS THE TIHE STEP LENGTH IN HOURS
DEPTH IS LAKE ELEMENT ELEVATION ABOVE BOTTOM IN METERS
IND is THE LAKE ELEMENT NUM»E«
BOT IS LAKE BOTTOM AREA OF LEVEL IN SQUARE *FTKRS
RESEL IS SURFACE ELEVATION AHUVE BOTTOM IN METERS
NUKE is IND FOR SUWFACE
VOL IS VOLUME IN CUBIC METERS
COMMON/NOV/A1 (3b)iNUMt»NUMP«>), RESEL
132
-------
183.
161.
105,
166.
187.
188.
189.
190,
i9i,
192.
193.
194,
195,
196,
197,
198,
199,
200,
201,
202.
203.
204,
205,
206,
207.
208.
209,
210,
211.
212.
213.
21".
215.
216.
217,
216,
219,
220,
221,
222,
223.
221,
225,
226,
227,
228,
229.
230,
231,
232.
233,
234,
235,
236.
237.
236.
239,
210,
211 ,
212,
213.
C
C
270
C
C
C
C
C
C
C
C
C
'(00
120
110
150
C
C
C
101
102
103
101
YMIN=Y(NPTS+1 i 1)
DELTY = Y(NPTS + i.'i 1 )
YLA»(M = Y'1IM
00 770 1=1 »5
YLAl'(h»I)=YLAH(7»J)+DELTY
YSCAL=50,/(YLAB(1)"YMIN)
NCDslOO
CALL PPLOTCOiOtNCDiNPLOT)
K a 1
00 150 1 =1 iNCV
IF(NPT(L),EQ,0) GO TO 440
X03XSCAL*(Xtl (L)'XMIN)
YO=YSCAL*fY(l,L)"YMIN)
KPOINT ? NPT(L)
DO «oo N = PINPOINT
XT = XSCAL*(X(N,L) - XMI-N)
YT s YSCAL*(Y(NiL) - YMlN)
CALL PINE(XO,YO,XT,YT,K,NPLOT)
XO " XT
YO a YT
CONTINUE
CONTINUE
K = K + 1
CONTINUE
,•
NC = 99
CALL PPLOT(0,0,NCiNPLOT)
RETURN
END
SUBROUTINE FILL(OATA|N|VORD>
DIMENSION OATA(l)
DEL=0,
MSI
00 104 Ja2,N
NLOsM+1
DO 101 K=NLO,N
JF(OATA(K).EQ.UORI» GO TO 101
DF.LS(UATA(K)»OATA(M))/(K«M)
MoK
IF(K.EO.NLO) CO TO 101
GO TO 102
CONTINUE
MSNI+1
MMlsMwl
00 103 K=MLO»MM1
OATA(K)=OATA(K»n+OFL
IF(H^1 .GE.N-1) RETURN
CONTINUE
Y LAHtLS AND FACTHRS
INITIALIZE PLOT OUTLINE
DRAW IN fcACH CURVE
JOINING XO YO AND XT YT
OUTPUT FINAL PLOT
133
-------
305,
306.
307,
300.
309.
310.
311.
3l2.
•J 1 u f
313.
3ia,
315,
316.
317,
316,
319,
320,
321.
322.
323,
32fl,
325,
326,
327,
328,
329.
330,
331.
332.
333,
334,
335.
336,
337,
338.
339.
340,
341,
342,
343,
341.
345,
316.
347,
346,
349,
350,
351,
352.
353,
354.
355,
356,
357,
358,
359.
360.
361,
362.
363.
364,
36b,
•
C
C
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
c
COMMON CINFLOCi(,r>i 1 hi ,CL4K(100» 16) ,SPAC(- (76«0) ,DCOM(100, Ih)
COMHON/pnilG/IHnG
COMMON/ AOL* /AB/.K( 200) , AREA (« Oil ), DVQL ( 1 POO ) i VOL { 200)
COMMON/I. AK?/On OP 2, iTi.lf'2, VTCP2if-LKV
COMKOM/'UJi.K/OBLK ( in) , \lwn
COKMON/L4K/LAKC5) ,5n2 , OZTOIJ , ATOP , VTOP , NMOUR , POL , S030NO
COM*' ON/C ONBFG/DO • BOD NH^ NO^INO^ POO AI r rni H'-M MM'* HH< H'* TOTN
COMMON/CONEMD/DOE. •HnDt'iNH1JE,NO?E i NlMt • PO'JE i ALGK.CULt i MM IK ,HM2E i
*HM3L«HMEt TOTNE
-HEAL NH3,ii02«Mn'J..>gM3f-.iH02Ef N03E
COM!' UN/CONST /THKCOL .A HOD, A MM, CH«OC < TMKNH3 , vOLITX i TMVU|.K , HOOC ,
*ROON ,BODPC i nOOOU »NORFKW , GRN^X » THGR-''-X tCHKOJ »HMK A ,rtPOq , M) NO'S, ^2NO J»
*MNH3,Ml.iAPH»NH,ASR»/.NO,ATOiftH*»OD»BfWn« , ijRR>:H3 , OKNOO
*, AH«2, AH^J, AT02,AT6i,PIM"l , P I »'*M2 , PIHMJ , CHsQ^C , CM.«03C , Ch'^OA? i CMM043
*,HMKA2,HMK43, THNOJK , THPQiJK
COMMON /RCf«VAR/COLK( 100) , BOO* C 1 00) , BOOKS ( 1 00 ) , NHJK ( 1 00 ) , N.OZK ( 1 00) , • .
*EXTK(100) ,UOK2(100) ,HK1K( 100) ,HM2K(100) iH«.5K(lOO)
*«P04K(100)»N05K(100)
COMMON/ TE "PER/ TEMPAViTEMRE A (100), SAT RE A( 100)
REAL NH'iK»N02K,MPO(4,MiNn3.M2N03,ui,HP, i BAR, ML
REAL N03K
REAL NOREKR
COKMON/nPTION/IFN,IK2,ICOL»ICOMBiINH3,UJ02,IN03,IP04»IAL''»IFIRST
COMMON/OPT 3/IP, IMH, INS, IN J
COMMON/DELTAS/DELCOt. , OLSOOO , DLBODS , DBODAG, DBOOAH . DBODAS , OHOO AD,
*0[)ODBH»DNH3BDnlBD,OPO'4AG,l)PO<
-------
366,
367.
368,
369,
370,
371,
372,
373.
374.
37S,
376,
377,
370,
379,
380,
381,
382,
383,
304,
385,
386,
387.
388,
389.
390,
391.
392.
393.
390,
39*.
396,
297,
398,
399.
400,
401.
402.
403.
404.
405.
406,
407.
400.
409,
410.
411.
412,
«t3.
414.
415.
416,
417,
418,
419,
420.
421.
422.
423.
424.
425.
426.
C
C
C
C
C
C
C
C
C
C
6
9
C
C
C
C
C
C
10
C
C
C
OP04MR IS CHAMf.E IN Pf)4"P CONC. PUF. Til F'FsTHA|_ HELLASEC + )
PKLA is CHANGE IN PHYTO"L.A'JKTO\I CONC, n<>¥ TO r.')
DALSNK IS CHANG!' IN PHY TQPL ANKTQN CU-^C , DUE, TO SlNKl^r.C-)
OADTH IS CHANGE IN PHY1 npl. ANKTON COKf.. OUE TO DEATH ('.'A TIIR AL* TOX 1C
nfLO IS CHANGE. IN DO CON'C. DUE TO ALL «E ACT in'IS ( t OH
ONEtO' IS CHANGE IN DO COK'C. HUE TO ALL OX-nr." AN'OS (-)
** )
OGIVE IS CHANGE IN DO CONC, DUE TO ALL OXnGENt HAT IOHC+
IFCIFIRST.NE.l) GO TO a
, NOUT=6
IFIRST=0
1? 0 1) 'i 1 - B 0 0 C * 1 2 1 / f ' 0 D P C
F}f)D'iWHsBOt)N* 14, /!100"T
H 0 0 P w K s .< 2 • / B 0 1) w T
FAC1 = I10DOH*MOHEFR/CAPR*BODPKR)
CONTINUE
IFCIBUG.FO.l) WR1TF.CNOUT i!023) jMDt 10 , DFLT , DEPTH , COL 1 1100 • NH3 ,
*NOa,N03.PO«, ALG^OOiHMl t HMi» i HM3 , TOTN
00 9 1=1,33
DELTS(I)=0,
ONO:12*FACHM2
IF(FACH^^,GTiO.) DELl< = ''fL'< + AHfv4*FACHH3
IFCABS(OELK).GT.ABSCXTEMP)) UELK=SIGM ( XTE^P » Dt LK)
XKsXTFHP+DELK
PELCf)L = COL*(EXP(»XK*DELT)"l ,)
IF(IMUG,EQ,1) WRITE (NOUT, 1008) XTEMP , FACHH 1 , FACHM2 i F ACH*3, nf.LK t
*XK,DELCOL
CONTINUE
IFdCOMB.EQ.18) GO TO 110
IFCICOMB.GT.U) GO TO 20
CALCULATE BOD CHANGE DUE TO DECAY AND SETTLING
XTEMPs BOOK (INO)*THK COL* *T COR
DLBODO=BOD*CEXPC«XTEMP*f)FLT)"l.)
OBOTOTsBOD*CEXPC(-XTE"P-BOOKSClNO))*PELT)»l,)
135
-------
427, .
420. IFUI'UG.rO.U «RITF(NOUT»1009) XTF.^PiDLOODO.riLUODS
429, ONEF.O=ONEF.n + [>LBODD
430. C
431, C CALCULATE CHANGES IN PO«»NH3i AND N03 OUF TO BOD OF.CAY
132, C
033, HODMTlcA»S(DLHOOD)/UODOO
435. 1F(IPO«,E.n302iONEED
476, 35 CONTINUE
477. IFCIN03.E0.0) GO TO 33
478, C
479, C DECAY (SETTLING) OF N03
460, C
481, C ON03DS IS CALCULATED IN L*KCON
482, DN03DS=S030ND
463, IF(AHS(DN03DS) ,GT, -,9*N03) DNO 10S=- ,9»NQ3
484, 33 CONTINUE
4(55, IF(IPOU.EO.O) GO TO 34
486, C
487, C DECAY (SETTLING) OF P04
136
-------
flee.
469,
090.
091,
092.
093,
U94,
095,
196,
097.
098.
099.
500,
501.
'J02,
503,
500,
505,
506,
507,
508.
509.
510.
511,
512,
513,
510.
515,
S16,
517,
518,
519,
520,
521.
522,
523.
520,
525,
526.
527.
528.
529,
530,
5M,
• 532,
533,
530.
535.
536,
537.
53B,
539,
500.
501,
502.
503,
500.
505.
5«6,
507.
508,
c'
30
C
C
C
00
c
c
c
50
C
C
C
55
C
60
XTFKP:JP().'lKUf;'»«THPO
-------
519,
550,
551,
5S2,
553.
55«,
555,
556,
557,
558,
559,
560,
561.
562.
563.
565,
566,
567,
568.
569,
570,
571,
572,
573.
S7«.
575,
576,
577,
578,
579,
580.
581,
582,
583,
58«,
585.
586,
587,
588,
589,
590,
591,
592.
593,
591,
595.
596,
597,
598.
599,
600,
601,
602.
603,
601,
605,
606,
607.
608.
609,
65
70
C
C
C
75
80
C
C
C
90
C
C
C
91
92
95
C
C
C
GO TO 50
CONTINUE
U''0:SAG = ",9*N03
ONHJAGsi (DN+ON0.5AG)
CONTINUE
OGI VE = OfiI VE-. tPELA+HOOOQ/ ( APM* W)OP*H)
IF(I9ilG,Erj, 1) '"[<1TK(NOUT» 1 '1 \ f) ON03AC. ,iV.;KJAG,OGI V(-
CALCULATE ALGAL RESPIRATION O'UANTITIKS
ARR=NR*TEMREA t IMD)
D A R t. 3 = " A t. G * A K R f 0 1 1. T
OHOt)AHsDAKES*iiOIH!i)/(APR»p(1ljPwH)
IF(ICOHb,GT, 1 i) Of! Oil A We 0.
ONFa*)-o"FAf^OPn«AR*- IPO'J ->n)P
-------
610, ' IFCIND.NE.Nin'E) On TO 96
611, DM = 2.05*1,03V**ICON/I ,P3
612,
613,
610,
615, OSAT=<10,ft?-(,3
616, ** C (1 ,««( ,OnOOO<>"7*Kl.[-:v ))**'.i, 167)
617, ASU)P=(AU'P2~ATOP)/2«.
618,
619,
620,
621, AT = AOtl>fCLT*4SlOP
6?2, VT = VO + DEI.T*VSl.OP
6?3, xx=Ao/vofAT/VT
62Ot)-(OSAr,.DO)*(l ,«(VO/VT)*I-XI>(-',5*XK*XX*OH.T))
62Y,
628, 96
629, 00»ENsOENOt)*l,07**TCOK*(l,-EXP(«l,2?*00))*FACa
630,
631,
632,
633, 97 COMTINUE
634, OKLO=ONEfn+OGIVE
635, IF(It«UG,e0.1) WRITE(NOUTil021) XK , DOD » rOHf-.K'. OGIVK .ONEED i DELO
636, IF(OELO,GE.O, .OR, AUS(DtUO),LE.00) CO TO HO
637, C
638, C OXYGEN DEMAND EXCEEDS SUPPLY. REDUCE ALL REACTIONS,
659, C
600, OF-ACSDO/AUSCDEI.O)
4/11 Tf/Tnil^* f (* t \ ..itl»Yr'
W*t » ^ ' A'XAOC'Vfl.Wii/ "'>J.I
6a2, DLRnOO=DLDODD*OPAC
6«3,
604,
6«5,
606, ONH3SDMH3+OFAC
607,
608,
609,
650, DN0302=DN03C?*OFAC
651, DARES=DARES*OFAC
652,
653,
658,
655,
656,
657,
658,
659. DELO=»DO
660, 110 CONTINUE
661, C
662, C HEAVY METAL.S
663, C
660,
665,
666,
.667, IFUSUG.F.n.l) WRI Tt (NQUT , 1 00 1 ) DF.LM'M , Dll>K2 . DELHM3
668, 1001 FORMATtl OELhM i , OFLHH2 • DELH''.i= ' i 3E 1 6 , 6)
669, C
670, C UPDATE CONSTITUENT CONCENTRATIONS
139
-------
671,
672,
673,
674,
675.
676,
677,
678,
679,
680,
68J,
602,
683,
684,
685,
686,
607,
680,
689,
690,
691,
692,
693,
69<1,
695.
696.
697,
698,
699,
700,
701,
702.
703,
704.
705,
706.
707,
708,
709,
710,
711,
712,
713.
714,
715.
716,
717,
718,
719,
720,
721.
722.
723,
721.
725,
726.
727.
728,
729,
730.
731,
• C
COLE-COLXUJLCOL
UOOK=HQt
NM3E=NH'
N02E =NO;
KI o j f. = *J c ;
P 0 ' >J '.
HMf sHC 1 1
TOTNE = M-
i + PL'IOOO^r'LllODStDriOOAfi + OrJOOAR + OliODAS + DHDpAIUOBOnHR
Un-'JH'.MMunNH3 + 0''IH3V»ONM3AG + DNHiAMtDNH30R
> + (H:fl2h'S + ON02
i + CJ'iOSMO + ONOjHjf f)M0302+ l)l>n *f)ELAt['ARfcS-H)ALSNK + [)Al)TH
JKLO''
I + OEXHM2
IXvELHM.S
*MM?K+HM3E
^'.UI + ^Oi'F-t NO'iF. X^OOE*nf'DMKLH^1*RAT
)«1 »10)="OELHM2*RAT
i"\ • 1 1 )=-OELWH3*RAT
. NE .0.1 OCOMC P-'D-l , l«.)nflCON.f INO-1 ,9l*PIHM1
IFCPIHM2.ME.O.) nCQNCIND"! » 15) =DCON ( INn«- 1 i 10)*PIHM2
IF(PIHM3.HE.O.) OCONCIN1D.1,16)=OCONCIN0.1,U)*(>IHM3
C
C
C
C
.C
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
10?0
1021
1022
1023
RETURN
THE FOLLOWING ARE DEBUG FORMAT STATEMENTS
FORMATC
*3E16,8)
FORMAT (
FORMATC
FORMAT C
FORMATC
FORMAT C
FORMATC
FORMATC
FORMATC
FORMAT C
FORMATC
*l ONEFD:
FORMATC
FORMATC
FORXATC
FORMATC
*
XTE HP, FACHMl,FACHMa,FACHH.3=l, Of. 16.8/< DELK , XK,PELCOL= 1 •
XTEMP,OLOOnO.I)LBODS=l .3M6.8)
ONM39niOl»03«O.OP04fOGIVi-.= li3F16,8)
OASES. ObODARiOPO«AK«UNH3ARtl3U03AR=' ibE16,8/
. 1 , El 6,8)
IJALSNK,DHOOAS«DALNPiOALTOX»09npAO=l »5E16.8)
|)BnD6W»DPO«HR,nM03hKiONH3BR,nNEFO=l i5F16,8)
XK,OODtDObE'N.OGIVEtO^EEP.r/EUO=li6E16.8)
FACTOR =I|E16.B.I O'i RF.ACHI.I6)
FORMATC//I INITIAL COKOITIUNS FOR REACHI.15/I 10, DELT • DEPTHn 1 , 3F 1 2
* »"/
*l COL«ROD.NH3rNO?»N03=l ,5fcl6,8/
*l P04|ALG,DOai ,3E16,P/
140
-------
732,
733.
73U.
735,
736,
737.
730,
739.
710,
711.
7«3|
711,
715,
716,
717,
718,
• 719,
750,
751,
752.
753,
754,
755.
756,
757.
758,
759,
760.
761.
762.
765.
761,
765,
766,
767,
768.
769,
770,
771,
772,
773,
771,
775,
' 776,
777.
778.
779,
780,
781,
782,
783,
781,
785,
786.
787,
788,
789,
790,
791,
792,
* 1 HM J ,HM2» UK 3 i TOTX= 1 , i|h Ih.fl//)
1021 FORyAT(/l F'lMAL CONDITIONS fOii Rf-'ACH I » I5/ I COL •bODiNH3,*iO?i h03= ' i b
•F16.8/I PCKI » ALf.t D0» I i 3t"l 6,fl/
* I hM 1 , Hh? i H'"7j t TOT'' a I i uE 1 6 .(!//)
1025 FOKMSTd nN(V5(;S»DPr.'10S= 1 t?.t Ifa.H)
1026 FOR*ATd OH,XK,M'-:0»TT»OSAT, ASLOP= I ,hf:i6,fi/' VSl OP, AO, VO , AT i VT ,
*XX= > i(,E16.H)
1027 F()RMAT( ! RAT si ,F.16,8)
END :
5UUWOUTINF UAKCON
'CnMMO^oPriON/IFN(r)!lN03^IPO«?IALGOTPn
COMKON/COMST/THKOLtSD ,PI"v'l i PI Hi-'2 t V I H"3 , CHM02K ( 6) , THN03K
CPM'ION/RCHVAR/COLK(1100)|HOiK(100)
RF. AL NO;?X
COMMON ClNFLO(36b,lh),CLAK(100,16),SPArEC7010)i'JVmOO)i')VO(100),
*OCt)N{ 100,16)
COMMON /OP Ta/IHEAVY»J TOT N
CPM.«ON/LAK/KCON»DU,EI iE2»NOwuAY,soz,ozTOPi ATOPI VTOP»NHOUR,PDL«
*ON03I5S
COMMON/MOV/ A 1 (5) ,OELT,t)niNC7) ,EXCO,r,MAX(23) , NUM,NIJMf- ,NUMP(6) ,RESEL
EQUIVALENCE (f.MAX(7) iIUlX)
C 0 M >' Q t-i / D P. U G / 1 i! IJ G
COMMON/ A!*L*/A BAR (200) iAHEA(200),OrC600),DVOL(200),OZ(100),OHI{200)
*i'!HO(1000) • VOL (200) tZ(200) »ZMI 0(200)
COMMON/FORGO! /1.KA5T (10ft)
COMc,ON/TEMPEI
-------
793.
790.
795,
796,
797. IKd.tO.NUM) XVOL=VTOP
796,
799, IfdBUG.KO.l) WRITEC6,1006) I • IMIXtFi ARFAd>»DZZ,FAClOVCH. (!)
800, 00 3 J=liKCON
801, OKLMAS=FAC*(CLAKdiJ)wCLAKCI+l»J))*DtLT
802, OCO:-.'diJ)--OcCiNdi.l)»OKLMAS/DVOLd)
BOS, 3 OCONd+1 ( J) = DCO'.-(I + 1 i J) + l)El.MAS/XVOL
80", tt CONTINUE
805, IFdBUG.NE.l) GO TO 5
806, WRITEChilOOl) ( (DCONd i-J) »J= 1 t KCON) i 1= 1 »NUM)
807, 5 CONTINUE
808, C CALCULATE CONCtNTKATICN CHANGE DUE TO MASS ADDITION
809, 00 ?0 I=liNUME
.610, FLOINsOHld)
811. IF(t)vId},r.T,0.)
612, IF(i.'VOd).UT,0,)
813, FLOUTsQHOd)
81fl, IF(«VI(I),l.T,0.)
815, IKQVOd) .GT.O.)
816, XVOL=OVOL(I)
817, ird.tO.MU
818, XVOL1=XVOL
819, IF(I,EO.M,jMF.) xvOLl=vTOP+(KLOIN-FLOuT)*DELT
820, FAC1=XVOL/XVOL1
821, IFdHuG.EO.l) HKITEC6.1007) ItFLOIN,FLOUTtXVOl»FAC1
822, DO 10 J=1,KCON
823, •
«R'I, HMSOuTs'JHO; IJ*CLAK. {»»J)*OEUT
825, VMSINsO,
826, IF(rjVld).r,T,0.)
827, IF(QVO(I) .LT.0,3 V«SIN=VMSIN'OVO(I)*CLAK(I*1,J)*DELT
628, VMSOUT=0.
829, IF(OVUI).LT.O.) vHSOuT=-OVl(I)*CLAK(I,J)*DELT
830, IFCOVOdJ.GT.O.) VMSOUT=VHSOUT+OVO(I)*CLAKd,J)*OELT
851, XMADO=HHSIN+VMSIN»HMSOUT»VHSOUT
832, P»TMAS(J)=XMAOO/XVOL1
833, FIXEHR=OCOM(I,J)+XMADD/XVOLl+FACl*CUAKdiJ)
83«, 10 DCOM(J«J5cFIXERR
835, IFdBUG.EO.l) kHITE(6,1008) PRTMAS
836, 20 CONTINUE
837, 00 50 IsliNilME
838. DO 50 J=1»KCON
839, CLAKd»J)=DCONd,J>
800, IF(CLAK(I,J),LT,0.) CLAK(IiJ)=0.
8«1. 50 DCONdiJ)so,
ea2, c SET up INTERFACE FOR KETCON
8«3, c CALCULATE AVERAGE LIGHT ITENSITY AT SURFACE IF MODELING ALGAE OR
8««, C IF SIMULATING ALGAE WITH NO3 HEPQVAL, EXCO INCLUDES ALGAL
8U5, C EFFECTS IF NOT MODELING ALGAE, EXCO DOES'JIT IF MODELING ALGAE.
6Hb, AVINTso.
B«7, XHOUR=NHOUR
Bad, IF(IALG+lN03.Nf,0) CALL GETAVl(KiOKl>AY,XKOUR|OtLT/360nl, AVINTiPDL)
819. iFdBUG.En.l) WRITEC6. 1002) NO'nOAY « NHOUR i AV IMT i POL
650, AVSAV=AVINT
851, IBOTSAVINT
852, DO 30 JBAC=l»NgME
853, JcNUMf-..JBAC*l
142
-------
915,
916.
917.
918,
919,
920,
921,
922,
923.
921 ,
925,
926,
927,
928,
929,
930,
931,
932,
933,
93U,
935,
936,
937,
938,
939.
940,
9/11 ,
9fl2,
9«3,
9flU,
945,
946.
v«7.
948,
9/19,
950,
951,
952,
953,
954,
955.
956,
957,
950,
959,
960,
961,
962,
963,
96(1,
965,
966,
967.
968,
969,
970,
971.
972.
973.
970,
975,
1000
1001
1002
1003
1001
1005
1006
1007
1000
100')
66
70
37
30
55
IFCVI.Nfc',0,) flFACa VOl.M I X*BGON03/.VI
IFdtWG.EQ.l) *«ITP(6, 1005) AV.V!03,XViP3iAVTfcM,TMIX,VOUKIX.XTf..MPi
*HGONP3i f-F 1C i VI i ( IBRSA V ( JL) • JU~ 1 i NOME )
F 0 R * A T ( fj V I ( 0 V 3 - 1 / ( 1 0 H 1 2 . /I ) )
FORMAT ( OCONs i/C7Ffi,'j»F0.1 iOF8.5))
FORMATC NUKOAY.NriOUWi Av tNTiPOl.= ' ».;?l5,2t 16,8)
Ff)RMAT( XK, ITOP, ItiOT i THK= ' ./IE l6.fi)
FORM AT ( Of'XipEP«'.niihmi,NLAY = .' »3F_lb,Si?HO)
FORMATC AVf!n3, XS03. AV IK", TMX , VOLMIX= I t'ifc 16.fi/ 1 XTEMP ,f;ROM03i OF AC
*iVI=' t «{.!«).(>/ 1 IHRSAVs I/CHE16.8))
FORMAT ( I, JM] X.F.i ARE A,OZZiFAC,DVOL=' • 213 i5E 15,8)
F'OHMAT{ I,FLCIfJ|FLOUT,XVf)LiFACl = l ,I5»/ltl6,rt)
FOR^ATt MASS AI.'JRRNH3iUENOD
*,AH"2»AHM3,AT02iAT03,PIHMl,PIHM2,PIHM3,CHM02CiCHM'J3C,CHMOA2iCHMOA3
*,HMKA?,HMKA3,THM03K,THPn'IK
COMMON/NO V/FIUl (17).IPAY,FIL2(7),LOAY,MAXE
COMMON C!WFLOC36Si 16) iCdOOi 16)
OIMEMSIOM ZEROC1)
EOUlVAUfcNCK CZFJROfCINFUO)
COMMON/LAK/KCONiOU»El»E2
COHMON/LAK2/OZTCIP2C3) tt.LEViIFIR
DIMENSION ARCOK'(l)
fOUIVALENCE (ARCOfJ.THKCOt.)
CGMPQN/MISC/XLA1 iNDAYl
• DATA M .NJ/^,, fc/
COMMOM/RCHVAH/COLKdOO) . «0[1K tl 00) , BOOKS ( 1 00 ) . NM3K C 1 00) , NP2K ( 1 00) i
*EXTKdOO).QPK2dOO).HMlK(lOO)»HM2KdOO)»HM}KdOO)
*.PO«K.C100) .N03KC 100)
CO''hON/TE*lPrR/TEMPAVi TF.MREAC 100) . SAT ht'kt 100)
COMMON/OPT I CM /UN. IK2.ICOL..1COMB, I fH3iML«NR,NH3KtN02K
DIMENSION nE^ALTfJO)
143
-------
976.
977,
978,
979,
980,
981,
9fl2.
983,
98«,
985,
986,
987,
938,
989.
990,
991,
.992,
993,
99u.
995,
996,
997,
998,
999,
1000.
1001,
1002.
1003,
1004.
1005.
1006.
100',',
1008,
1009,
1010,
1011,
1012.
1013,
1011,
1015.
1016,
1017,
1018.
1019,
1020,
1021,
1022,
1023.
1 02t,0'li
*!./
DO 1 I = lilAY.GT.«00) GO TO '530
HEAtiCNl.auo) (CIr-!f'"LO(NDAY,JL) iJL=l iKCON)
520 CONTINUE
530 CONTINUE
oo 5«o I=I.KCON
5«0 CALL FILLCClNFl.O(lDAY.I) .l,OAY-IDAYtl i 1 ,E20)
HfAD(Mi3i3) EI.KV,TEMPAV,XUAT,EI ,t2
NDAYJ = IDAY
313 FORMAT(3FlO,af2E10,0)
XLATD=XLAT
E1106 = F.1*1,E6
E2106=E2*1.E10
XLAT=XLAT/57.2958
WRITE(NJ.lli)
WPITECNJ.112)
112 FORM AT ( 1 ELF.HI ,SX, IBOOI ,OX, 'BODI |6X| ICOLIFORHI ,5X, IMH3' 18X1 'K'021 i
*HXi IN03' »flXi IPO«' »6Xi IHC4VY1 f<;Xf 1 HEAVY1 »6X. 'HKAVY1 |6X» 1 TE^P ' /
*l NUN REACTION SETTLING ' i «( 1 KEACTIONIJi' SCT TLU'G 1 I 3X .
f'MET lli6XilMET 2'.6Xi'HET 3 ' i 6X . I (UEG» i /
*IOX.6('COEF'.7X).!COEF',6X. i COEH , 7X , I COF.F ' 1 7X . 1 COEF I , 6X . ' CEN) 1)
DO 113 K=l t 101
READ(NIt305) I
IF(I.GT.IOO) GO TO 200
HE AD (wl. 21 3) PODK(I) • HOOKS C I) » 00*2 ( I) i COUK f I) » NH3K ( I ) , N02K ( I ) »
*N03K(I)iPOaK(I).f-:XTK(I)i
*H« 1 K ( I ) f HM2K ( I ) • HM3* ( I )
C READ IN INITIAL CONCENTRATIONS IN MG/L EXCEPT FOR COLIFORMS
c IN MPN/IOO ML
READ(NJ ,uqo) (C(l» JL) »JL=1 «KCUN)
113 CONTINUE
200 CONTINUE
DO 204 Ksl.KCON
2oa CALL HLLCC(1.K),MAXE,1,E20)
auo FORMAT C8F1 0, a)
2l3FCiRMAT(13F6,0)
305 FORWAT(IS)
00 300 IKcl.HAXE
IF(BODK( IK) .t'Q.O, ) BOOK C lK) = .2/2a,
IF(i}UUKS(IK),erj,0.)'HOD
-------
1037.
1038.
103V.
lO'lO,
.FT.O.)
.E'J.O.)
10'ia,
1043.
1045,
1046.
1048,
10«9,
1050,
1051,
1052,
1053.
1054.
1055.
1056,
1057.
1058,
1059.
1060.
1061.
1062.
1063.
1060,
1065,
1066.
1067.
i * t O
i V <-> " i
1069,
1070.
1071,
1072,
1073.
107U,
1075,
1076,
1077,
1078.
1079,
1080.
1081.
1082,
1083,
1080,
1085,
1066.
1087.
1088,
1089,
1090.
1091.
1092.
•1093.
I09a.
1095.
1096.
1097.
IF(HMJK(IK).EO.O.) H'MK(IK)=XCK
KP1TECJJI217) IK. HOOK ( IK) tBOOKS(IK) iCOI.K(IK) , KH3K (IK) ,f,'('^K( IX) i
*N03KdK)iPf)«KdK) «MMlKdX) i HM2K (I K ) »>"'3* ( IK ) , Tl>f
-------
1098.
1099,
1100,
1101,
1102.
1103.
1104,
1105,
1106.
1107,
1106.
110'),
1110.
1111.
1112.
1113.
• 1114.
1115,
1116,
1117.
1118,
1119,
1120.
1121.
1122.
1123,
112)
IFCIHEAVY.GT.2) "RITE(MJ,lOj!7)
IF(IPOfl.NE.O) KRITE(NJ»1020)
. ANO. IN03.NF.O)
CHMOA3
hiHKA
H H K A 2
HMKA3
I; . n)
1030)
WRITECMJ.1032)
*RITE(NJ,1033)
WRITECNJ.1034)
WRITE(NJ,1035)
^RITE(NJ(103ft)
IFdMf.AVY.GT.O)
IFdHEAVY.GT.l)
IFCIHEAVY.GT.2)
*WITE(NJ,1029)
M2^03
MNH3
ML
APR
NR
ASP
ANO
HRITE(NJ,1037)
M1N03
KRITE(NJ. !
ATO
AT02
AT03
IFCICOMH.LT.12) KR1TE(NJ,1040) BRRBOO
IFdPOfl.Nt.O) fRITf CU, 1001) flHRPot
IFdP04.EQ, 1) wfilTECNJt 1 050) THPo^K
IFCIMH3.NF.O .OR, I'.OS,NE.O) "RITECNJ,10«2) BRRNH3
IFCICOM8.Nt.lB) *RITf(NJ, 1043) (JE^OO
IFCIHEAVY.NE.05 WRITECNJ, ioau) PIMMJ
IFCIHEAVY.G.T. 1 ) !*RITE {NJ, J Oa5) Pt'^a
1KCIHEAVY.GT ,2) '•'RITE C^J» 1006) PIHM3
K'RITECNJ, 1052) ELEV,TEMPAV,xUATn,M106,f.2106
TO INSURE THAT BOD«N EXCEEDS THE ALGAL-N IN EACH JUNCTION
00 460 K=liMAKE
IF CtlODNX.LT.ALGN) WHITECNJt 1 051) fOOKX.ALGN.K
U60 CONTINUE
1002 FORMATtl CONSTITUENT SELECTION OPTION =I.6«X,I5)
146
-------
1202,
-1201,
1204,
1205.
1206,
1207,
120«,
1209,
1210,
1211,
1212,
121S.
1159, 1001 FOR"ATC PHYT Of1'. AS-K70N C.RtiATM F'l'.'CTION f-PTIO.J = 1 ,'>«>'• I'i)
1160. lOOi FOH'iiKi COLIFOPM (IJTIO'i = '.7o<.Ir,)
1161. 100« FUR'V.TC TE"iPF.-KATijRF nU'WCTU'N CONSTANT F-O.'-i C'UJFMki' REACTION COK
1162, *FFKIFNT = 'i?HX,Flfl.5)
1163, 1005 FUR.1'AT (I CQFFFtC.tt.NT V-> »''(> I1' CW.IFOP." CALCULATION = i , S 1 X f F t 0 .':)
H6U, lOOh KOR'MTC cr'F, F'F 1C IF.MT ON HEAVY "l-TAL 1 IN COL IF IV^.M CALCULATION = i i'1
1165, MXiFin.'j)
1166, 1007 F'OR."ATC COEFFICIENT ON HEAVY METAL 2 IN CO'.UPRM CALC"IATION s I ,/I
1167, * IX. HO, 5)
1166, ' 1008 FORMAT (I dOEKFICIKNT ON HEAVY METAL 3 I1-' COL I FORM CALCULATION = 'i«
1169, *lXiH0.5)
1170, 1009 FORMATC I HEAVY METAL 1 CONCKNIRATION L I " I T (MO/1.5 IN COL IKl'l-M CAt.C
'1171,' *Ul.ATION =1 . SOXiFMO,1-,)
1172, 10JO FUR"ATC HEAVY "KTAl.. 2 CONCENTRATION L U' I F (-"G/D IN Cf'LIFORH CAl.C
1173, tULATIGN = i »2C)X >F 10.S)
U7«, 1011 F()MHAT(I HEAVY ME IAL 3 CONCENTRATION I.IMIT (MG/l.) IN COlIFOint CAl.C
1175, *ULATION = I .;>qx rF 10.-3)
1176. 1012 FORMATC TEMPERATURE CORRECTION CONSTANT FOR NH3 PF.CAY COtFFICU'NT
1177, * =ii3hX,FlO,5)
117B, 1013 FORHATC COEFFICIENT FOR MM.i VOLITIZATIOH " I • 6 I X , F 1 0 . 5 )
1179, ioi« FORMATC TEMPERATURF: COHRECTIUN CONSTANT KOR '-HJ VOLITI/ATION PROC
1180, *ESS B I i33XiF)0,5)
liar, toi5 FORMATC CARBON TO PHOSPHORUS RATIO IN BOO -1» 6nx,F'io,5)
1182. 1016 KORp'ATCi filTKnr.fNI To PHpSPHoXUS RATIO IN -300 = i , rjSX . K 1 n , 5)
1183, 1017 FOHMATC nfiY "EIGHT FRACTION OF, C4RHON IN MOO -i•57XiF\0.5)
lieu, loia FORMATC BOO OXYGEN QUOTIENT =i',74XiF"io,5)
lie'), 1019 FO«MATC NO'.;-REF«ACTORY FRACTION OF ORGANIC -ATCRIAL =i ,5ox.Fio.5)
118h, 1020 FOR:iAT(l MAylMyM GROWTH RATE (PER HOUR) AT 20 DEC KOR PhYT DPI. AVKTO
1187. *N =l(35X.F10.5)
1188, 1021 FORMATCI TEMPERATURE CORRECTION CONSTANT FOR PHYTOPLAMKTON GROWTH
1189, *RATE =i »32X.K10,5)
1190, 1022 FORMiTC HEAVY METAL 1 COWCE^THATID" LI^IT C"G/L) FOfj pHYTOPLANKTO
1191, *N GROWTH s'i2BXiF10,5) )
1192, to23 FOR^ATC HEAVY MF:TAL 2 CONCENTRATION LIMIT (MG/D FOR PHYTOHLANKTO'
1193, *N GMO»TH s I , 2t'Xf F 1 0 .5)
119«, 102U FORMATC' HEAVY MFT*L 3 CONCENTRATION LIMIT (k'G/L) FOR PHYTOPI.ANKTO
1195, *N GROWTH =l .2nXiF10,'3)
1196, 1025 FORMATC1 HEAVY METAL 1 COEFFICIENT FOR PHYTOPLAlgXTON GROWTH CALCUL
1197. *ATION =1 ,.ilX«F10,5y
1196. 1026 FORMATC HEAVY METAL 2 COEFFICIENT FOR PHYTOPLANKTQN GROWTH CALCUL
1199, *ATION si ,31XiFl'p.S)
1200, 1027 FO'RMATCI HF.AVY METAL 3 COEFFICIENT FOR PHYTOPLANKTON GROWTH CALCUL
*ATION ei,31X,F10.5)
102« FORMAT(I HlChAFLISf^MENTON CONSTANT CMC P/L) FOR PHOSPHORUS LIMITAT
*ION OF PHYTUPLANKTON GROWTH =1, VXfFlO.S)
1029 FORMATC I MlCHAF.LIS-nEN.TON CONSTANT (KG N/L) FOR PHOSPHORUS LI^ITAT
*ION UF PHYTOPLANKTON r,RO«TH =i, px.F'in,5)
1030 FORMATC I "ICHAE.LI5.P--IENTON CONSTANT (MG H03-N/L) FOR NTTROGEN LI'UT
*ATIUN OF PHYTOPLANKTON GROWTH = I , 7 X f F 1 0 .'5)
1031 FORf-'ATC MICHAELIS-"EMON CONSTANT CM.G NH3«H/L) FOR NITROGEN LIMT
*ATION OF' PHYTOPLANKTON GROWTH = I , 7 X i F i 0 . 5 )
1032 FORMATC' LIGHT INTENSITY CALCULATION FACTOR (LANGLEYS/>« IN) cl,UUX,
1033 FORMATC PHYTOPLANKTON TO PHOSPHORUS RATIO ='«6CXiF10 .5)
103« FORMATC PHYTQPLANKTOf.' RESPIRATION FACTO" = > , hi X , F'K ,S)
1035 FCRVATC' PMVTOPLANKTQN SINKING RATE CFT/Hrt) =l»59XiF10,5)
1215, IC36 FORMATC' PHYTOPLANKTON NATURAL CF.ATH RATE ( /r
-------
1220,
1221.
1222,
1220.
1225.
1226,
1227,
1226.
1229,
1231,
1232.
1233.
1231.
1235.
1236,
123V.
1238,
1239,
12'40.
1241,
1202.
1203.
1201,
1205.
1206.
12U7,
1216.
1209.
1250,
1231.
1252.
1253.
12'JO.
1255,
1256,
1257,
1258.
1259.
1260,
1261,
1262,
1263,
1260,
1265,
1266.
1267,
1268,
1269.
1270.
1271,
1272.
1273.
1270,
1275.
1276,
1277,
127P.
1279.
1280.
1039 FORMATd PHYTOf'LANKTON TOXIC DEATH COEFFICIENT FOR HEAVY ^EfAL 3 »
* I i38XiFin,5)
10UO FORTATd MOD BEMTHAL RELEASE RATE C^G/SQUARf. METER-HR) sl,- I(.'M FORf = i , SftX , F I rt ,S)
lOOh -FOW'-'ATC' FRACTION OF HEAVY CETAL 3 11 ION FORM = I i 56X , F 1 0 ,'.>}
10«7 FORMAT(I TEMPERATURE CORRECTION CONSTANT FOP BOO REACTION COEFFKI
KE CORRECTION CONSTANT FOR N02 OECAY COEFFICIENT
1009 FOHMATd TtHF'ERATURF CORRECTION CONSTANT FOR N03 OECiY COEFMCIEN'T
* =i *3/>X,F10,5)
1050 F(jR.''AT(l TEMPERATURE CORRECTION CO^STA^T FOR PQO OECAY COEFFICIENT
» s I ilfaX.Fin,5)
1051 FnRMATd ***BOO NITROGEN a I i F 10 ,6» ' AND AuGAt, NlTROGEM =I,F10,6,
*" IN ELEMENT" ,15,i ***' ) '
1052 FORMATCi LAKE ELEVATION (FEET) =i,6?X.F15,5/
*l AVERAGE TEMPERATURE (CE^TIGHAf)E ) = I i 61 X r F I 0 ,5/
*' LAKE L*TITUOK (DEGREES) cIt70X,FlO.b/
*l DIFFUSION COEFFICIENT J (10»*-6) =I,61X,F10 ,5X
*l DIFFUSION COEFFICIENT 2 (10***10) BI,60XiF10,5)
RETURN
END
SUBROUTINE PlNE(XliYl»X2iY2.NSYMiNCT)
AXA=Xl
AYAaYl '
AY8sY2
Nal
IFCAHS(AXB«AXA),UT.ABS(AYB«AYA)) GO TO 290
SET PARAMETERS FOR x DIRECTION
IF(AXB.GT.AXA) GO TO 205
AXA=X2
AXOsXl
AYAaY2
AY8=Y1
205 CONTINUE
IXAsAXA+.S
lYA=AYA+,5
IYB=AYB+,5
250 CONTINUE
IF (IXA.UT.O.OR.IXA.GT.IOO) CO TO ?6Q
IF (IYA.LT .O.OR.IYA.GT ,so) GO TO 260
CALL PPLOT(IXA»IYA,-MSYH,NCT)
260 CONTINUE
IXA=IX/U1
YA=CN*(AYn-AYA))/(AXH"AXA)
IYA=AYA+Y**0,5
KsN+1
IFUXA.LE.IXB) GO TO 250
GO TO 000
148
-------
1283.
1281.
1285,
1286.
1287,
1288,
128V,
1290,
1291,
1292,
12915,
129«,
129'J,
1296,
1297.
1296,
1299,
1300,
1301,
1302,
1303,
130««
1305,
1306,
1307.
1308,
1309,
1310,
1311,
1312.
1313,
1314,
1315,
1316,
1317,
1318,
1319,
1320,
1321,
1322,
1323,
1324,
1325,
1326,
1327.
1328,
1329.
1330,
1331,
1332.
1333,
133fl,
1335,
1336.
1337,
1338,
133>RITE(6. 100) (A(I.J)»J=1
22« CONTINUE
225 CONTINUE
228 CONTINUE
K«iu:(6iio2) XLAB
WRITt(6.105) HORIZ
«H222?l
149
-------
1302.
1303*.
13HO,
1305.
1 306,
13U7.
1306.
13'I9,
1359.
1351.
1J52,
1353.
135'!,
1355,
1356.
13'57,
135B,
1359.
1360.
1361,
1362,
1363.
136«.
1365,
1366,
1367,
1368.
1369,
1370,
1371,
1372,
1 J7 3,
137«.
1375,
1376,
1377,
1376,
1379,
1380.
1381,
1382.
1383.
1380,
1385.
1386,
1387,
1388,
1389,
1390.
1391.
1392,
1393.
139U,
1395,
1396.
1397.
1398.
1399.
1000.
100 FORMAT UflX, 101 Al)
101 FORMAT (F 17.3i t X, 101 Al)
102 FClR^AT(f-20. 1 » 10MO. t )
103 F()f>KAT( \H\ ,;> OX, Ill A i|. Ih/)
105 FORl|AT(/'40Xi2oA'4)
106 FO"?MAT(3X»2AO,7X, 101A1)
230 00 250 1=1 ,50
00 2«0 J=l i 1 01
200 A(IiJ)=SYMf7)
A(I,I)=SYf'.(8)
250. CONTINUE
DO 2(.n j=i 1 101
2hO AC51 »J)=SYM(9)
no ?vo 1=1,101.10
270 A(51«I) = 5YM((J)
DO 290 1 = 1 S .'11 t 10
A(I,1)=SYM(9)
290 CONTINUE
RETURN
FNO
SUBROUTINE OPRINT(NOAY«N,XK()»NJ)
COMMON/l. AK/KCON
COMMON CTNF|.0(365, 16) .C( 100. 16)
COM"ON/FORGUT/I,KAST( 100)
DATA LANK/I I/
DATA N6/6/
WRITf. (Nfc»90(S) NOAY.'IXKO
908 FORMAT(lril,//,lOX, if-LEMfMT CONCENTRATIONS FOR DAY'»I5,10X,
*I£XECUTION INTERVALI fI5//)
i*RlTt (N6»607)
JFLAf,= p
DGc'uJ2i,»vJ i
IFUKAST(LJ) .N'E.LANK) IFLAG=1
2 WRlTE(M6t8l8) LJ.(C(LJ»LK) ,LK=l»12) .LKAST(LJ) »
*(C(LJ.LK) .LK=13,KCON)
IF (IFLAG.tO. 1) WRITE(N6, 100)
RETURN
607 FORMATC ELEMENT 00 BOD NH3-N N02^N N'03-N POO«P
* PHYTO COI.IFOHMS' HMI HMS MMJ TOT N CHLOR HMH HMI2
* HHI3I/ 1 - NUMBER (MG/L) (MG/L) ("G/L) (MG/L) ("G/D (M
*G/L) (MG/L) (f'PN/100) (KG/L) (MG/L) (MG/L) ("G/L) (MG/L) (MG/L) (M
*G/L) (MG/L) '/)
816 FORHAT(I10»6Xtffi,2tf:7,2ir5F7,<4ifr10,l»UF7,5iAl.F6,3i3F7,3)
100 FORMAT(I * INDICATES SUM TU1AL OF ThE NITROGEN IN CONSTITUENTS BEI
*NG MODELED EXCEEDS THE TOTAL NITROGEN BEING MODELED AS A CONSERVAT
*IVE.I)
f NO
SUBROUTINE SCALE C ARRA Y , A XI.EN , NPTS , I NC)
DIMENSION ARRAY(NPTS) , INTC5)
OATA 1NT/2»U(5,0, 10/
INCT=IAHS(INC)
C
C SCAN FOR MAX AND MIN
C
A*AX=ARRAY(1)
AMINsARWAYf 1)
00 250 '•'=! .NPTSi INCT
1F(AMAX.LT.ARR*Y(N)) AMAX=ARRAY(N)
!F(A»--IN.GT,AR;'AY(^))AMIN = AKHAY(N)
250
AHAX
275,2SS.?75|
150
-------
1403.
HOI,
1U05,
1 '1 0 6 i
1407.
1400,
1409.
mo.
1411.
1412,
1413,
1 4 1 H ,
1415,
1116.
1417,
H19,
1420,
1422,
1423,
1424.
1 4 ?. 'j ,
1426,
1427.
1428.
1429.
1430,
1131,
1132.
>433,
1 S 7. " ,
1435,
1136,
1137,
1138,
11S9,
1110.
1141,
1442,
1443,
1444,
14H5,
1416,
14U7.
14(48,
1449.
1450,
1451,
1452.
1453,
145«.
1455.
1456.
1457,
1458,
1459,
1460,
1461,
1462,
1463,
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
RESET MAX AM> HIN FOP ztRO RANGE
255 IF( AKIN ) 265. 100. 260
260 AMIM = o.O
AHAX = 2.0 * A'
-------
1464,
146'j,
1466.
1167.
1460,
1169,
1170.
1471.
1172,
1473.
1474,
1475,
1076,
1177,
1078,
1079,
. 1180,
1481,
1482,
1485.
lisa.
1085.
I486,
1487,
1488,
1489,
1490.
1491,
1492,
1493,
1494,
!/
IHHST=l
NOUT = (j
1NH3=0
IN02--0
INOJ=0
IP04=0
lALG'-O
IF(ICOM8,EQ,18) GO TO BOO
INHJsl
IFCICOHB.GE.y .AND, ICOMB.IE.U ,OR, ICOHB.GE.16) INM3=0
lFtICOhB.CO,19 ,OH. ICOMB.EG.20) INH3=1
1^02=0 ' i
1FUCPMH.LE.2 ,0«, ICOMB.EO.O .OR, ICOMB.EQ.ia ,OR,
*ICOMH.E0.13J IN02=1
IF(!COMB,t.Q,19) IN02=1
IN03=1
IFC1COMB.EO.10 ,OR. ICOMB.EQ.ll) IN03=0
IF(JCOMB,GT,2l) IN03=0
IP04=1
IF(ICOMB.EO,4 ,DH, ICO»1B,EQ,6 .OR, ICOMn,EO,9 ,OR, ' .
*ICOMB,EB,11) IPQfl=0
I.F(ICOHB,t;t,19 ,ANO. ICOMB,LE.2l ,OR, ICO'IB ,EQ , 23) IP003Q
IALG=0
IFriCOhB.EQ.l .OR, JCOMB.E0.3 ,OR, ICOMf),EQ,7 ,OR,
*ICOMB.f:0,12 .OH, ICOMH.fcU.U .OK.' JCOMQ.E0.16) lALGsl
800 CONTINUE
IFdCUMB.NF.18) hRITE(NOUTilOOO)
IKdCO^rf.EQ.lB) w«lTE(NOUTi999)
IFdCOL.EQ.l) wHJTt (NUUT.1001)
IFdCOMll.LE.il) WHITE(NOUT«1002)
lF(INh3,f:a,0) GO TO 10
LAB(1)=NH3
LAB(2)=\
LAH(p)=lFIR
IFdN'H.EQ.a) I.A(U6) = I2ND
VN«ITE(HOUTil003) LAU
10 CONTIHUE
IFCINOS.F.IJ.O) GO TO 20
LAB.(l)=HOa
LAB(?)SN
LAH(6)=IFIR
152
-------
1525.
1526.
1527,
152U,
1529,
1530,
1551,
1532,
1533,
153H,
1535.
• t: 1 1
1 J ->W 9
1537,
15J8.
1539,
1510,
15*)1,
1512,
1513.
ISa'l.
15«'J,
15«6,
15U7,
IS'iO,
1S'I9.
1550,
1551 ,
1552,
1553.
IS5«,
1555.
t -* •>•& 9
1557,
1558,
1559,
1560,
1561,
1562.
1563.
156/1.
1565.
1566,
1567,
1568,
1569,
1570.
1571,
1572,
1573,
157«,
1575,
1576,
1577.
1578,
1579.
1580,
1561,
1582,
1583,
IS8«,
1565,
20
30
ND
wniTECNOiir <100 5) LAll
CONTINUE
IFdPOI.EO.O) GO TO UO
1 ti l\ I 1 \ *• 1 D i'l h
L ^'1 1 ] ) -Lr 0 1*
LAB(2) = L.f
LAR(6)='IFIR
IFdP.tH.i1) I AH(6)--Ir:\[)
«»ITE(\'OUT i 1003) LA3
CONflNOE
If (lALG.EO, 1) '*RITt- (NOUr. 1007)
IF( IHE AVY.EO. i ) WRTTE (LOUT • IOOBJ IHEAVY
IFCIHeAv/Y.rjT.l) wRITECNOUTi 111 1) IHgAVY
IKdTOTM.NE.O) AKlTEC^.CJTi 1009)
IF t ICuLOH.MK.O) *RITE (N'O'iJT, 10 10)
"SITE (NQUTi 1 112)
RETURN
FORHATO THE FOLLOWING CO'-ST ITUM.TS ARE HE ING MOOF-LEDI)
FORMAT! i THf. FOLLOWING CONSTITUENTS ARE htI*G "OOKLtD OISSOLVEO
*OXYGEM1 )
KOHMAT(«flXi 'COUIF'ORMS')
FORMAT (flllXi 11300' )
FORMATdlBXt lOAfl)
FORhAT(«HX, IPhYTOPLAN^TON')
FORMAT (iiiX, T i , ! iiEAVY l'.c.TAL (Af-'O ITS AGGuCIiTCD IC(v)')
KOHMATfOHXi ITOTAU NITROGEN')
FORKAT(UflX» "CHLORIDES 1 )
FORMAT U»X, U i I HEAVY MtTALS (AND THEIR ASSOCIATED IONS)')
FORHAH/X)
END
SUBROUTINE SUBA
COMMON OATA(2<)20.7).ALPHAC20) .P-DEX (7)
-
COMI'ONVMJV/ A, B. IDAY. ITAPEt lYH. LAT. LOAY. LOG, NQHSi PTFMP,
A RESEL. SRO, SSO. NGOi NINT
INTEGER MONTHCIS)
DATA MONT H/:M. 28> 31. 30.31 .30.31, 31 i30i3t) 30, 31/
REAL LAT, LOG
INITIALIZE NECESSARY VARIABLES
00 1 1=1,7
DO 1 J=1.H920
OATA(JtI)cO,
SPO e 0,0
SSO o 0.0
HTE^P a o.O
DO 7 J c it 7
IK'OEX(J) no
CONTINUE
HEAD AND -(RITE RUN DATA
153
-------
15R6,
1587, RF.AD(5,'501) ALPHA
1500, *!UTE(fa.601) ALPHA
1589, rttAO('J,50.$) Irs, IOAY, t.DAY, NOBS, ITAPF
1590, wf'ITE(6ibO?) IvRi IDAYi LDAY, NOGS, ITAPF
1591. NGO = )
1592, MNT = MOPS * ( LDAY » IDAY + 1 )
1593, POSKniOAY/3.0+1
1595. REAO(St'.;09) A, B, LAT, LOf,, RESEL
1596, , "RIU(b»603) A, B, LAT, LOG,
1598, C ** READ A METQROLOr.IC DATA SET
1599,
1600. 9 RFAO(5tb07»fr--JD = '45J ID t CV , C V A , CVH
1601, IFUO.GT. 100) GO TO ) ID = ID " 1
1600. NUP e 0
1609, 00 55 L=MONF,MONL
1610, NLO = NUP * 1
1611. MUP = NLlP + MOMH(L)
161H, REAO(5,511) ( DATA(J»IO), J = NLOi NUP )
1613. 55 CONTINUE
1614.
1615, C ** MAKE UNITS CONVERSIONS
1616,
1617. 00 113 J = MGu, MNT
1610, DATA(J,ID) = CV * C DATA(JiID) * CVA ) + CVB
1619, 113 CONTINUE
1620,
1621. C ** WRITE OUT COMMENT FOR EACH INPUT
162?,
1623, 19 GO TO ( ai,2a.33,2a,2Si26.27 ) . 18
16251 GO TO 35
1626, 22 ftR-ITE £6,622)
1627. GO TO 35
1628, 23 «RITE(6,623)
1629. GO TO 35
1630, 2(1 HfUTE«
1631, GO TO 35
1632, 25 ••'RITt'Cl
1633. . GO TO 35
163(1, ?.t. *RITEO
1635. GO TO 35
1636, 27 hP!U(<
1637, 35 i*RITE(6ifa20) CV, CVA, CVB
1638. GO TO 9
1639.
16(10. C ** END OF RAW PATA INPUT
nai,
16(12, (15 «RITE(6,635)
16U3.
160(1, RETURN
16(15,
16«6. C ** INPUT FORMAT STATEMENTS
154
-------
1607,
1600. 501 F(JRMAT(
161V, 503 FOfMATt 8110 )
1650. 505 FOH«AT( IhHj.O )
1651, 507 FORMATC 110, 3UO.O )
1652, 509 KOHMATC 8E 10.0 )
1653, 511 FOR«ATC5X,F'j,0,7F10.0)
1650,
1655, C ** OUTPUT FORMAJ STATEMENTS • .
1656,
1657, 601 FORMTUH1 ,//,10X|20A.-XE8i 01 •
1705, 0 QOUTi REStL« HI.EN, SOZi S»-EATi STMJLE, \IQ:<£, VSUM, VTOP, INT,
1706. E Cli C2« C3
1707,
155
-------
1708, • DIMENSION CHENT('IO), TF(2CO)» Vt'(?00)i V7C200)
1709,
1710, c ** INITIALIZE SYSTK* CONSTANTS AND PARAMETEHS
1711.
1712. NPAGE 3 1
1713. NSEG so
1710, KEAD(SiS20) INT
1715. 5?0 FfJR«AT(IlO)
1716. GMAX = 3,5
1717. '
1718, C **** KEAO UPSTREAM Ft.0w FILE
1719,
1720, REWIND INT
1721. READ(INT) IDAY, LOAY •
1722. REAO(INT) ( POOL(L)« OIN(L)» GOTU'Di TIN(L)i L = IDAY.
172.4,
1720, C ** READ HtTOROLOdC INpuT FILE
1-725,
1726, READ(5i'505) IOAY» LDAY
1727, REAO(INT) IYR. IA, IB, NOBS
1728, IF( IA ,LE. IDAY ,ANIV. IB ,GE, LDAY ) GO TO 33
1729, tNrtIT?:'(6i'>'j9) MAXi lAi IB.
1730, STOP
1731, 33 IK IA ,EQ, IDAY ) GO TO 99
1732, 1C = NOUS * ( IDAY i IA )
1733, DO 35 J = 1, 1C
1730, REAOtINT) TA
1735, 35 CONTINUE
1736,
1737, C ** READ AND WRITE SEGMENT CARD INPUT
1738,
1739, 99 READ(S.50l) CwENT
1700, wRITF(6»601) GHENT i
1701, REAOC5.50U) SOZ» EL^AX, EDMAX» A, BBi GMIN
1702, «JRITE(h.603) IOAY. LDAY» SOZi EL^'AX
1703, EXCO a 6,908 / EDHAX
1700, 103 'iRITEC6»60«) EOMAX, A, BB, GMlN, EXCO
1705,
1706, C ** READ AND WRITE SEGMENT RUN PARAMETERS
17«7.
1708, REAO(5»505) NSEG, NTP, NSD. IPRT, INTP, ITAPE, NOUTS,
1709, A NXF'Ji IVAL
1750, HRITEC6.605) NSEG, NTP, NSOi IPHT» INTP, ITAPE,
1751, A NXEQi IVALt NOBS
1752, READ(b»'JO«) USxH, Al» A2i Aii KLEN
1753, «RITE(6,f>63) GSfH, Al, Ai>, A3, RLt-N
1755, C **** READ AND WRITE AREA COEFFICENTS
1756,
1757, READ(5i50U) Cli C2i C3
1758, wRIU(6,609) Cli C2, C3
1759.
1760, C ** READ AND WRITE OUTLET POSITIONS
1761,
1762, 00 100 J c 1, NOUTS
1763, R£AD(5,1J09) N,ELOUT(N) ,«!OT(N) iISRSOU(N)
1760, 100 CONTINUE
1765, WRITM6.606) ( J. ELOUT(J)i ^OT(J)t J = li.NOUTS )
1766.
1767, c ** INITIALIZE SELECTED ARRAYS
1768,
156
-------
1769,
1770.
1771.
1772,
1773,
1771.
1775,
1776.
1777,
1778,
1779,
1700.
1701.
1782,
1781.
17(55.
1786.
1787.
1788.
1789.
1790,
1791.
1792,
1793.
1794,
1V95,
1796,
1797.
1798.
1799,
IflOO,
1801.
taoa,
1803,
1800,
1805.
1806,
1807.
1808.
1809,
1810.
1811.
1812,
1813.
1814.
1815.
1816.
1817,
1618.
1619.
1820.
1821,
1822,
1823.
1824.
1825.
1826.
1827.
1828,
1829,
00 105 J = li 200
AKEACJ) = 0,0
DVOL(J) = 0.0
T(J) c 0.0
TDOT(J)= 0,0
VOU(J) = 0.0
*(J) B 0.0
105 CONTINUE
C ** GENERATE KLEVATION PROFILE
Tt = 0,5 * vSOZ
00 107 J - ?.• 200
ZCJ) = Z(J-'l) + SDZ
ZMID(J«i) = Z(Jwl) + TC
DZCJ-1) = 8DZ
107 CONTINUE
MAXE = ( E.LMAX + TC ) / S07.
MAXP - MAXE + 1
C **** GENERATE AREA ANO VOLUME PROFILES
113 00 115 J c l, MAXP
AREA(J) = Cl + C2 * Z(J) + C3 * Z(J) ** 2
VOL(J) c Cl * ZCJ) + C C2 / 2.0 ) * ZCJ) ** 2 +CC3 / 3.0 ) *
A ZCJ) ** 3
115 CONTINUE
00 117 J = It MAXE
DVOLCJJ = VOLCJ+1) " VOLCJ)
117 CONTINUE
c ** JNPUT TL?MHFHATUHE TNITIAUTZATION RATA pniwrs
131 IFC NTP ,GT. 1 ) GO TO 139
REAOC5i504) TAi TB
00 135 J c li MAXP
TCJ) a TB
135 CONTINUE
GO TO 1U7
139 00 105 J = li NTP
REAt>(5i504) TA, TB
00 1«3 K = It MAXP
IFC TA ,GT. ZMIDCK) ) GO TO 1«3
T(K) = TB
GO TO 145
103 CONTINUE
145 CONTINUE
CALL SU8G( NTPi Ti 200 )
c ** INPUT DAYS FOR SPECIAL PRINUD OUTPUT
107 IF( NSO ,GT. 0 ) RfcADCSiSll) C IDOUTCJJt J = li
C *» LOCATE OUTLETS IN THIS SEGMENT
DO 159 J s 1, NOUTS
00 157 K = li MAXP
IFC ELOUTCJ) ,GT. Z1IOCK) ) GO TO 157
NOUCJ) s K
GO TO 159
157
-------
1830,
1031.
1832.
18S4.
183U.
1835,
1836.
1837.
1838,
183V.
1800,
1841,
1842,
1813,
16««,
1045,
•1846,
18/J7.
1649.
1851,
1852.
1853,
1650,
1855.
1856,
1657,
1858,
1859,
1860.
1861,
1662,
1663,
186«.
1865,
1866,
1867.
1868,
1869,
1870,
1871,
1872,
1873,
1674,
1875.
1876,
1877,
1878,
1879,
i860,
1881.
1682,
1883.
1864.
1865.
1686.
1687,
1668,
1669,
1890,
l'>7 CONTINUE
159 CONTINUE
c ** WRITE OUT SYSTEM INFORMATION NOW AVAILABLE
lf>3 MAX = INTP * 48
00 165 J = 1, MAXP, MAX
ICO c J
IENO = IGO 4 MAX -1
IF( IF.NO ,GT. MAXP ) IEND = MAXP
• NPAGf. = NPAC.E i t
'*RlTt((.ih01) CMFNT
*KITF(6rfc07) (KiZ CK5 »AREA(K) i VOL (K) •DvfL(K
A K = IGO. IENO. INTP )
165 CONTINUE
T(K)
RETURN
ENTRY PRNTCM.MM)
C ** CONVERT TO DEC F AND CALCULATE AOVECTION RATIOS
GVIN = 0,0
DO 213 J = I i MIME
TF(J> = 1,8 * TFX(J) + 32.0
TA = 1.0 / DVOLCJ)
IFC J .EO. NuME ) TA B 1,0 / VTOP
QVOT s GHI(J) + QVIN « QHCKJ)
VH(J) a OtLT * AMAX1 (tlHI(J) |QHO(J) ) * TA
VZ(J) s OELT * AMAXKAUS(OVIH) lABS(OVOT) ) * TA
OVIN = QVOT
pit-tr'>fcl***l'ir '
f.1 J tui- I iiidC
C ** WRITE SIMULATION OUTPUT
NPAGE .a NPACE + 1
WRITE(6i60t) CHtNT
X«ITE(6i653) M.MM
WRITE(6t643) HESELt ATi OZT. TFX(N'UMf), 01, EVA, OOUT, EVAP.
A ELTC, TIH(M), DSTCMJ. Z(IMIX), RFSTMtn). TSPEC(M)
WRITE(6i645) QNSi «MA« OW, QE, OC
l*RITE(6.h'l<») (J« NOU(J). ELOUT(J)t OOT(M,J)» TOUT(MiJ)i DKOO'ZtJJt
A J s 1, NOUTS )
214 MAX a INTP * «8
DO 21S J = li NUMEf MAX
IGO a J
1ENO = IGO + MAX « 1
IH IENO ,r,T, NUME ) IENO = NUME
NPAGE = NPAGE + 1
WRITEC6.601) CMENT
OKI(K) ,
WRIH(6,655) ( K, ZOO, TFX(K), TFCK).
A OCCK), VZ(K), VH(K), K = IGO, lE'-'D.
215 CONTINUE
CALL qPRlNT(M,MM,NUME)
CALL Cll«VE(TFX(l) ,ZCD ,NUMEi liM)
00 219 J = (JUMP, MAXP
TFXfJ) = TFX(NUME)
Z(J) = Z£J-1) * SOZ
219 CONTINUE
158
-------
1891,
RETURN
1893.
189«,
1895,
1696,
1897,
1890,
1899.
1900,
1901,
1902,
190«I
1905,
1906,
1907.
1908,
1909.
1910.
1911.
1912.
1913,
19H,
191&I
1917,
1910.
1919,
1920.
1921,
1922.
1923,
192U,
1925,
1926.
1927,
1928.
1929.
1930.
1931.
1932,
1933.
1930,
1935,
1936,
1937,
1938,
1939.
19«0,
1911.
1942.
1943.
1944,
1945,
19/46,
1947.
1916.
1919.
1950.
1951,
C **
501
5f)3
501
505
507
509
511
C **
601
603
60U
605
606
607
609
643
645
INPUT FORMAT STATEMENTS
FORMATC 20AU )
FORMATC 2110t 6E10.0 )
FORMATC BK10.0 )
FOKftATC 1615 )
FORMATC «c no. EIO.O ) )
FORMATCI10»2Elu,OiI10)
FORMATC 1615 )
OUTf'ljT FORMAT STATEMENTS
FORMATCIH) ,:55Xt 'DEEP RESERVOIR MODEL 1 //( 25X t ?0 A«) )
FORMAT C /// 2IX. 9HFIRST DAY 110 / 2 1 X , 9HFIMAL DAY IlO //
A 21X» 9HNORMAL 02 F10.3 / 20X, 10HMAXIMUM EL HO, I )
FORMATC // ?2X, HHEX 9EPJH 1PE15.3 /
A 1MX, 12HEVAP COEFF A E 1 5 , 3 /
B IPX, JRHF.VAP COEFF B E15.3 /
C 22X, 8HMIN STAH OPF15.3 // 20X, 10HSW EX COEF F-15,3 )
FORMATC // 20X»lOHStG NUhllER 110 /
A 22Xi HHTF.MP PTS I 10 / 2?Xt BMDAvS Ol.iT 110 /
B 19X» HHOUTPUT FREQ 110 / lyx, 13HVERT PRT FREO 110 /
C 22X, OHtAFE OUT 110 / 19X. UMNUn OUTLETS IlO /
0 SOX, JOHREPEAT XEQ IjO / 1&X, j^lHXEH O'JTPUT INT IlO /
E 19X, HHOHS PER DAY 110 )
i
FORMATC // ?«X, 36HOUTLET ELEVATION fFF WIDTH /
A C 130, 1P2E15.3 ) )
FORMATC / i3x» 62HNO ELEVATION SEC AREA CULM vo
*L DELTA VOL »6X,iTEMP(C)i//(Ii5«OPFl5.1,lf«El5.3))
FORMATC // 17x. 13HAREA COtFF Cl 1PE15.3 / t7x, 13HAREA COEFF C2
A El5.3 / 17X, 13MAREA COtFF C3 EJ5.3 )
FORMATC // lax. 26Hr,E^ERAL SYSTEM INFORMATION //
A 2lX» i9HRESt.RVOIR ELEVATION FiO,2» aH M 17X»
B 16HSURFACE AIR TErtP F12.2. bH OEG C /
C 25X, 15HSURFACE ELEMENT K10,2, 2H M isx,
D 18HSURFACE WATER TtMP H2.2, 6H DEG C /
E 21X, 19HTOTAL SYSTEM INFLOW f- 1 0 . 1 • H» CMS liX,
F 1UHEVAPORIZATION RATE 1PE12.2, «h CMS /
G 20X, 20MTOTAL SYSTEM UUULC* OPFJO.1, <4H C.MS 15X»
H 16MCULM EVAPORIZAT10N F12.3, 2H M /
K 2«X. IMItLFv IHERMOCLINF. H0.1, 2H M ,
L 15X« iHMlfiFLOh TkMPtRATUi'f (• 1 ? . 2 1 6H DEri C /
M 2SX, ISMRO^JJSTRE AH TE^P OPF10.?» 6H n£G C, 12Xi
N ITHLOi-EST MJXEO ELEV F12.1, 2H M /
0 2hX, l«HRtTENTION TIME FlO.li 5H DAYS i
p 16X, UHOBJECTIVE TEMP na.a, 6h otc c )
FORMATC /// I8xt aansuRFACE HEAT EXCHANGES '//
A 37Xi 3HUNS lPE13,3ii}H KC/M2/S /
B 37X, 'irifJNA, H3.'i> PM KC/MtVS /3flXt 2HQK, p 1 J . 3 « BH KC/M?/S /
C 38X, ?HQE, E13.3, 6H KC/M2/S / 38x, J?NTCi E13.it 6H KC/M2/S )
159
-------
1952,
1953.
H55,
1956.
1957,
1950.
1959.
19&0.
1961.
1962,
1963.
1964,
1965.
1966,
1967,
1960.
1969,
1970,
1971,
1972.
1973.
1971,
1975,
1976,
1977.
1978,
1979.
I960,
1981,
1982,
1963,
1984,
1985.
1986,
1987,
1988,
1989,
1990,
1991,
1992,
1993,
1994,
1995.
1996.
1997.
1998.
1999.
2000.
2001,
'2002,
2003.
2004.
2005,
2006.
2007,
2008.
2009,
2010,
2011,
2012.
649 FORMAT( /// 2'iX, 15
AELEV FLO* TfcM
B ( P5X. 2110, OPF10.1.
653 FORMATC / 25X, 36HSU"MARY OF OUTPUT FOR SIMULATION DAY
A 5X,. IBHfXECUTION INTERVAL 15 }
OUTFLOWS // 33X. 57HNO
OtM f.RAD /
it 1PU5,? ) )
ELEM
15
651 FORMAT ( / fix, 120HNO ELEVATION TEMP DEC C TE'-'P
IF HORZ OUT HOMZ IN "ATE OF CHG OIFK COtK
2AR ' HAK / ) -
655 FORMATC HO, OPM5.li
lP2Elb.3i OPF7,2i .F6.2 )
THE FILE «AMGf is
&r>9 FORMATC /// lox. ISHERROR IN FILE i (0*TA( 1 ,2) .CLO( 1 ) ,KT( 1 ) )t
A (OATA(1,3) np.5BT(in • f 0» T A ( 1 , SI , wRT f 1) i OPT ( I ) •
B EAC1)>« (DATA(l»b) tQSCU tQNSCl) ) ,(DATAtli7) tOATCn .i'JC(l) )
REAL A.P(2920)i CLDC2920), WSC29SO), OBTC2920), '.iHT(?9?0).
A OPT(2920). QS(29aO), QATC2920), QNS(2920). WCC2920), l-A(2920)i
B ETC2920)
REAL CAT, LOG, MU» LAMBDA
REAL ALPH(6)t BETAC6), AT»'0(1), BT^OCDi DUST(«»2)
DATA ALPH / 5, 70. 1.00. 0.757, -5, «1, -J5, 29, -30. «3/(
A BETA/ 0.620,0.8'l2,l.in7,l.«59,l.8')8,2.4«9/,
8 ATKO/ 1.18.2,20,0. 95iO. 3'j / »
C HTWQ /-0.77,-0,97,-0.75,-0,45/,
D DUST /O. Oh, 0,06,0. 05,0, 07,0, 06. 0.10.0. 07.0, Ofl /
VPS(THA) B 2.171BE8 * EXP( -4157,0 / ( THA + 239,09 ) )
IOUIT a 0
C ** CHECK ON ATMOSPHERIC PRESSURE
IF( INDFX(l) ,GT. 0 ) GO TO 103
TE.MP = 1013.0 » 10,0 ** ( -S.25E-5 * RF.SFL )
DO 101 J a NGOi MINT
»PCJ) = TkMP
101 CONTINUE
C »* GENERAL INPUT DATA CHECKS
160
-------
2013,
2014,
2015.
2016,
2017,
2018,
2019,
2020,
2021,
2022,
2023,
2024,
2025.
2026,
2027,
202B,
2029,
2030,
2031,
203R,
2033.
203
-------
2070,
2075,
2076,
2077,
2078.
2070.
2000,
2001.
2062,
2003,
2080,
2085.
2086,
2087,
206B,
2089,
2090,
209J,
2092,
2093,
209«,
2095.
2096,
2097.
2090,
2099,
2100.
2101.
2102,
2103,
2100.
2105.
2106.
2107,
2100,
2109,
2110.
2111.
2112,
2113,
2110.
2115.
2116.
2117.
2118,
2119.
2120.
2121,
2122.
2123.
2120,
2125,
2126.
2127.
2128.
2129,
2130.
2131.
2132.
2133.
2134.
DO 133 K = 1, NOBS
SlJMfJ = 0,0
RSUM = 0,0
N s NN + K
M B 1
IF( CLD(N') .IT. 0.1 ) GO TO 127
M a g + INT( ( CI.O(N) » 0.101 ) / 0,«0 )
127 CS = 1,0 • 0,/>5*CLIHN) ** 2
C ** ENTEH HOUR LOOP
HSS ) GO TO
*• cos(cn\[;) *
» ( H7.3
AL
3.9.15 ) »*
00 131 J = li Nh'KS
TJMt = TIME + 1,0
IF I TlMfc .L.E., H5H .OH. TIN
AL = ARSlu< SII.(CONt) * S!
A COS( 0.?62 * T\"-t ) )
IKC AL .I.E. 0.0 .OR, AL . Gf.. 1,57 ) 00 in 131
TEMP = AP(N) / 1013,0
CM = TEMP / ( SIN(AL) *
A ( -1.253 ) )
TEMP a 0,17 * EXP( -fl.fHS * CM ) + 0.129
AI = EXP( » C O.'lb1! + O.li'l * »C(N) ) * TEMP * CM )
TEMP = 0.021 * EXPC "0.721 * CM ) + p.179
All = EXP( - ( 0,0h!i * 0.1JO + KC(N) ) * TEMP * CM )
00 a 0.33 * SIN(AL) / K ** 2
RSO = ATWn(l) ? ( 57.3 * AL ) ** BTWO(l)
RFO = AT^O(M) * ( 57.3 « AL ) ** BT-OOO
IFf «FO ,GT. 1.0 ) HFO = 1.00
MM = i
IF( CM ,GT. 1.5 ) MM c 2
TEMP a All * 0.5 * ( 1.0 "AI - OUST(KK.HM) )
' TEMP = TEMP / ( 1.0 - O.'i * RSO'* ( 1.0 - AI * DUST(KKiHH)
GTWO = 00 * TEMP * CS
SUMO a SUMO + 0,5 * ( DONE + UTWO )
RTv.0 = QT^O » ( 1.0 «, RFO )
RSUM = RSUM + 0,5*( HONE + RTwO )
GONE = QTwO
RONE = RTWO
131 CONTINUE
RTE'"P = 0,0
IFC SUMO ,r,T. o.o j KTEHP = KSU»
IF( INDEXC7) ,LE. 0 ) US(N) = Sij1
ONS(M) = RTEMP * QS(N)
133 CONTINUE
135 CONTINUE
C ** NET ATMOSPHERIC
DO 1U9 J = KGO, MINT
OAT(J) = 1.233t-t6 * ( 1.0 * 0.17 * CLD(J) ** 2 >
A * ( PBT(J) + 273.0 ) ** 6
109 CONTINUE
C** CALCULATE EQULI8RIUM TEMPERATURES
00 169 J a SCO, NINT
N a IFIXC PTEMH 5/5+1
TA B 5.95E5 * ( A * B » ws(J) )
LAMdDA = 1.17E-3 + TA * ( OtTA(N) + 6,lf-0 * AP(J) )
SUMO
/ MRS
162
-------
2135,
2136.
2137.
3130.
2139,
2100.
2141.
21«2.
21«3,
2146.
21«7.
21«9.
2150,
2151.
21'J2.
2153.
2156,
2157,
2158,
2159,
2160.
2161,
2162.
2163,
2161,
216S.
2167,
2168.
2169,
2170,
2171,
2172,
2173,
2170.
2175,
2176.
2177.
2178.
2179,
2180,
2181.
2182,
2183,
218«,
2185,
2186,
21fl7,
21B8,
2189,
2190,
2191,
2192,
2193,
219U,
2195,
HU = 0.6 * fJMS(J) f (VAT(J) » V,M>E-2 - TA *
A ( ALPH(N) " EA(.J) - 6.1E-4 » At'(J) * DOT(J) )
ET(J) = MU / LAMBDA
PTKMP = ET(.I)
If I PTPMP ,LT, 0.0 ) PTf-.MP s 0.0
IF( PTEMP ,GT, 29,9 ) PTEUP = 29.9
169 CONTINUE
c ** M
A «S(J)i ETfJJi J = K, MAX )
171 CONTINUE
IF( ITAPE ,LE. 0 ) RKTUHN
00 175 J s NGll, MINT
AP(J) = 6.1E-« * AP(J) •
175 COUTINUK
wRITECITAPt:) lYMflDAY.tOAYrNOBS
00 177 J = NGO» MINT
««ITE(ITAPE) ONS(j),OAT(J),AP(J)iDQT(J),E.4(J)|WS(J)
177 CONTINUE
FILE. ITAPE
ITAPf
RETURN
60!
Hl ,30Xs IM£TEQ»OLOGIC DATA1/)
651 FORMAT(3X» 93HNO NET SOLAR NET ATf'OS
1UB tA HIND EQ TEMP
* //(I5,7F13.5))
AT PRESS
PRY BL
67! FORMATt // 20X, 37HSOME NECESSARY PARAMETERS ARE MISSING //
A 22X. 17H** PROGRAM HALTED )
END
SUBROUTINE SUBC
COMMON/ABLK/ ABAR(200)t AHtA(200), DCUOO)» DtNSC200), OHK200),
A OVOL(200)t OZ(ZOC). 07.1(200), OHI(200), OHO(2ftO), T(200),
B TOOTC200), TFX(200), THK200), vOL(200). Z(200), ZMIDC200)
COMMON/BBLK/ A, AT» BB, Ev, NAVGi QC» QE, ON, ONA» CMS, O1*'
COMMON/CHLK/.DST(36b), ROOLC365), QIN(365)» RESTH(365), TJN(36S)
COHHON/DBLK/ ORODZ(S), ELOuT(5), NiOu(S)i QOT(365,3)i TOUT(36S,3)i
A TSPfC(.US), KOT(5)
COMMON/FBLK/ EuPCS), .OllP(S), TuP (b) , wu!J(5) , 100'uT C50) , QORO(i6b)
COMMON/NDv/ Al, A?, A3, DfLT, OuIN, OTPY?, D7.T, fO"Ax, El.TC, EVA,
A EVAP, EXCO, Gf-AX, G^IN, C.S«n, JAT, IGT, lOAYt I--.JX, IK'TP, IC'-ti
B IPRT, ITAPE. lino. IVAL, I.DAY, MAXK. «AXP. N-LfTs, sous, ^c>ns,
C NTCi NREP, NSt), NSEO, NUM. I.UKE, NUMP, SUSIt 'iT^IBS, N.XEQ, 'JI,
163
-------
2196.
2197,
2199.
2200.
3201,
2202.
2203,
H204,
2205,
2206,
2207,
2200,
2209.
2210,
2211,
.2212.
2213,
2211,
2215,
2216,
2217,
2210,
2219,
2220,
2221.
2222.
2223,
2224,
2226,
2227,
2228,
2229.
2230.
2231,
2232,
2233,
2234,
2235.
2236.
2237,
2238,
2239,
2240,
2211 ,
2242.
2213.
2244,
2245.
2246,
2247,
2246,
2249,
2250,
2251.
2252,
2253,
2254,
2255.
2256,
D ROUT. Rf:S(-L« RLFN« SDZ. SHfcAT, -STAIiLt, VfJNf ( VSU't, VTOI'i INT,
fc Cli C2. T3
CnMM[ir4/nBUO/IHUG
CUMHON/TKMf'KH/Tf MP A V . Tf>U V ( 100}
COMHC"! CINr-l.fUJ65.lt.) ,CL A". (100 • 16) ,COTF'Ln(36bi 16J ,AV<200) t'H200) »
*Fr.E(20<» iP(200) »S(c?oni5) iS'<(200)
COMMON/LAK/KCON»DU,F 1 »E2 i NO*IJAY « XSOZ i XOZ TOP i X ATOP i XVTOPiNHOUR
2*( TA + 2fl3.0 ) ) /
( C3 / 3.0 ) * X ** 3
DIMKNSION XTfMP(16)
'RO(TA) B 1000,0 - (UlA « 3.9H )
A ( 503.57 * ( TA + 67,26 ) ) )
AF(X) = Cl + C2 * X + C.4 » X ** ?
Vr(X) = Cl * X +( C2 / 2.0 ) * X ** ?
C ** CALCULATE SOME H1SCKLLANEOUS OUAHTITUS
1BU6 = 0
TA s 1,0 / SOZ
on 105 j = i i MAXE
OZI(J) = TA
TKX(J) = T(J)
ABARCJ) s 0.5 * ( AREA(J) + AKEA(J+1) )
105 CONTINUE
OELT B 3600.0 * FLOATC 24 /
PTBY2 B 0.5 * OELT
EVAP =0,0
IMIX = 1
IF(TCMAXt:)-T(n.CT. .1)
NHOR = 24 / NOHS
NHXfJ = H4 / NXE3 I
NAVG e ( NHXO i, 1 ) t NHOB + 1
C ** INITIAL OUTPUT TAPE WRITE
IFC ITAPE ,LE. 0 ) GO TO 119
WRITEUTAPE) IOAY» -LDAY. SDZi NOUTS
c ***** ENTER DAILY INTERVAL LOOP *****
119 00 279 L = IDAYi LOAY
IFCL.KQ.174) STOP
IF(IBUG.EO.l) *HITE(6. 1002) L
1002 FORMATC/i ******OAy NUMBER ' 1 15. i ******!/)
RESEL = POOL(L)
TSPECCL) = TIN(L)
QI = QIN(L)
NOWDAY=L
c ** SURFACE ELEMENT PROPERTIES
NUME a POOLCL) / SOZ + 1.0
IFC POOLCL) - ZCNUfiE) ,LT, 0.75 * SDZ )
NUKP = NUME * 1
NUM s NUME « l
NULL = NUM •• i
ATOP = AFt POOL(L) )
VSilM = VF( POOL(L) )
VTOP a VSUM » VOLCNUME)
DZT = POOL(L) " ZCNUMt)
• 1
164
-------
22S7.
2338.
2259,
2260,
2261,
2262,
2263.
22641.
226'j,
2266,
2267,
2268,
2269,
2270.
2271,
OZTOP a 0.5 * ( SDZ + !'/T )
PASS VARIABLES T0 S'.JWO'JTl'If. LAKCON
XSD£=SOZ
2273,
2274.
2275.
2276,
2277,
2278.
2279,
2260,
2281,
2282,
2283,
2284.
2285,
2266,
22S7,
2268,
2289,
2290,
2291,
2292,
2293,
2294.
2295,
2296,
2297,
2298,
2299,
2300,
2301,
2302.
2303,
2304.
2305,
2306,
2307,
2308,
2309,
2310,
2311,
2312.
2313.
231U,
2315.
2316,
2317,
XATOP=A1UP
XVTOPsVTOP
lf"l = Ul
IF(L.Et).LOAY)
)»VOI.(NUME)
***** ENTEH EXECUTION INTERVAL LOOP *****.
DO 271 Msi, NXEQ
DO 163 Jell HAXE
AV(J) ~ 0,0
GHI(J) = 0.0
QHO(J) n 0.0
FEE(J) = 0.0
S>"(J) = 0,0
163 CONTINUE
MH = ( M i 1 ) * NHXQ
IF( MOD(NHifjHoU) ,EO. 0 ) CALL SUf>0( TFXCNUME) +-DELT *TDOT{NUME))
164 EVAP = F.VAP + EV * OELT
EVA a EV * ATOP
C ** CALCULATE THE DENSITY PROFILE
• DO 165 J = 1i
DENSCJ) = «0( TFXCJ) )
165 CONTINUE
OENS(NUMP) = OENS(NUME)
c »* LOCATE THF.RMOCLINE
NTC s NUME
TA = 0,0 •
00-169 J a 1 , HUM
TB = DZI(J) * ( TFXCJ+1) • TFX(J) )
IF( TB ,LT, TA ) GO TO 169
NTC o J
TA = TO
169 CONTINUE .
ELTC = Z(NTC)
C ** CALCULATE THE DIFFUSION COEFFICIENT
00 175 J a 1, NUM
DCU+1) .= *1
TA =(2.0 * DZI(J) * C OtNS(J) « OENS(J+1) ))/ C DENS(J)
A + OENSCJ+1) )
IF( TA ,LE, GS-iH ) GO TO 175
DCCJ+1) = A2 * U ** A3
175 CO'JIItJUE
OC(l) a 0,0
DC(NUMP) a 0,0
C ** CALCULATE RATE OF HORIZONTAL ENERGY INPUT
165
-------
3318,
3319,
3320,
2321,
2322,
2323,
2324,
2325,
2326,
2327,
2326,
2329,
2330,
233t,
2332,
2333,
2334,
2335,
2330,
2337,
2338,
2339,
2310,
2311,
2342,-
2343,
2340,
2345,
2306,
2347,
2348.
2359,
2350,
2351,
2352,
2353,
2354.
2355,
2356,
2357,
2358,
2359,
2360.
3361,
2362,
2363,
2364,
2365.
2366,
2367,
2368.
2369,
2370,
2371.
2372.
2373,
2374,
2375,
2376,
2377.
2378.
CALL SUBHC Li FEE. 200 )
CALL SUbECM.L)
C ** CALCULATE RATE OF SOLAR ENERGY INPUT
211 TA a RESEL " 0,3
TB = RESEL. " EOHAX
DO 213 J = 1, NU'1E
K a-MJMP « J
' IFC ZCK) ,LT. T3 ) CO TO 215
SK(K) = KXP( EXCO' * ( FEtCJ) " QHO(J) * OENS(J) * TCJ) + S*(J)
TA c TB
K a J » 1
IFC VERT ) J91, 193, 192
191 K a J
192 TC = TC + VERT * TCK) * DENS(K)
193 K = J
VERT a VERT + OHICJ) - QHO(J)
IFC VERT ) 190, 196. 195
19U K = J + 1
195 TC = TC •» VERT « TCK) * DENSCK)
196 TO = DVOL(J)
IFC J ,EO. 'NU"E) TD a VTOP
TDOTCJ) = TC / C DEMSCJ) * TO )
197 CONTINUE
GO TO 301
c ** FORH SOLUTION MATRICES
220 DO 221 J a I. NUHE
PCJ) = FEECJ) + S^CJ)
221 CONTIMUE
PCNUHE3 = P(NUME) + SHEAT * ATOP
00 2?5 J s 1. NU"
-------
2379.
23BO,
2301.
2382.
2383,
23(14.
2385,
23H6,
2387.
2380,
23S9.
2390,
2392,
2393.
239t>,
2396,
2397,
2390,
2399,
2000.
2401.
2102,
2403,
2404.
2405.
2406.
2107,
2408,
2109,
24JO,
2411,
2112,
2413,
2415,
2416,
2417,
2410.
2419,
2420,
2421,
2422,
2423,
2424,
2425,
2426,
2427,
2428,
2429,
2430,
2431,
2432.
2433.
243(1,
2435.
2436,
2437,
2438,
2439,
* 0£N3(J»1) )
TA = 0,0
QV1 = 0.0
00 229 J = 1» MUM
QV2 = QV1 + OHI(J) - QHO(J)
TO a DZKJ)
IFC J .CO, MUM } TD - 1.0 / DZTOP
T8 s ARKA(J+1) * DC(J+1) * TO
S ( J i 1) = » T A
IP( fiVl .C-T, 0.0 ) 3(J«1) a « ( TA + OVJ * OENS(J»l) )
SCJ.3) B » TO
IFC -GV2 ,i.T, 0,0 > SMi.i) = " ( TB -
'TC = RHO(J)
IFC Ovl ,l.T, 0.0 ) TC = TC " QV1
IF( QVH ,(JT, 0.0 ) TC = TC + OV2
S(Ji?) = TA + TH + TC * OtKSCJ)
OV1 = QV2
TA = TH
229 CONTlNUf
StNUMEil) = » TA
If I QVi'.OT, 0,0 ) S(NUME,1) - o ( TA + OV1 * OENS(NUM) )
OV2 = «V1 + QHI(NUME) " QMOCNUME)
TC = QHOCNUME.) + ()V?.
IF( QVi ,LT. 0.0 ) TC = TC •> QV1
SdJUMf.2) = TA + TC * OENS(NUHE)
S(NUME.3) = 0.0
PCI) a P(l) » C 8(1,2) * BCD + 5(1.3) * 8(2) )
00 235 J a 2, K'UMK
P(J) = PCO) « ( S(JiJ) *. B(Jtl) + S(J,2) * B(J) + S(J,3) *
A B(J*1) )
235 CONTINUE
00 239 J = It NUME
sr.i. ) ) = fiTRy? * Of Ji 1}
TA B OVOL(J)
IFC J ,EO. NUME- ) TA = VTOP
SCJ.2) = OTI1Y2 * S(.J,a) + OENS(J) * TA
S(J.3) = OTBY2 * SCJ.3)
239 CONTINUE
C ** 50LV8. FOR FINAL TEMPERATURES
PCI) B PCI) / 5(1.2)
S(1.3) = 5(1.3) / S(U2)
00 245 J = 2. NUME
TA = S(J»2) - SCJ.l) *
P(J) = ( P(J) " S(J,1)
S(J,3) = S(J,3) / TA
245 CONTINUE
TDOT(NUHE) = P(NUME)
T(NUME) = H(NUMK) + OTHY2
DO 251 J s 2i NU^E
N s NUHP • J
TOOT(N) = PCN) . SCN.3) * TDOTCN+1)
T(N) n H(N) «• DTBY2 * TDOT(N)
?.51 CONTINUE
T(NUMP) a
SCJ-1.3)
* P(J-l)
) / TA
C »*** SMOOTH THE
TFXC1) B TCI )
TFX(NUME) = TCNUMF.)
167
-------
2440,
2441.
2442,
2443,
2444,
244b,
2446,
2447,
244fl,
2449,
2450,
24M,
2452,
2453,
2455,
2456,
2457,
2458,
2459,
2460,
2461.
2462.
2463,
2464,
2465,
2466,
2467,
246B,
2469,
2470,
2471.
2472,
2473,
2474,
2475,
2476.
2477,
2478,
2479,
2480,
2461,
2482,
2483,
2484,
2485,
2486,
2487,
2488,
2489,
2490,
2491,
2492,
2493,
2494,
2495,
2496.
2497,
2498,
2499,
2500,
DO 25 J J = 2 1 NUM
T'FXM) = 0,25 * ( T(J-l) » 2,0 * t(J)
253 CONTINUE
DO ?.'.'> U J a 1, NUME
I(J) = TFX(J)
254 CONTINUE
C ** MIX THE RESERVOIR AS REQUIRED
TCJ+1) )
*WRITE(htlOOri) NIIMf; , (T(LJ) tLJ=l tMJMP)
1000 FORMAT (I SUQC--NUMK =1 tr;/(20K6,2)>
I MIX s NU«F.
GTEM a GM1N
IF( L .LT, 75 ) GTEM = -1.0E>3
256 DO ?S7 J = It MULL
KN = J
GRAO •- ( T(J*1) -. T(J) } * DZKJ)
IF( CRAO ,BT. GTfcH .AND. UHAD ,LT. GMAX ) GO TO 257
GO TO 258
257 CONTINUE
NN = NUM
GRAD a ( T(MUMf) - T(NllM) ) / DZTOP
IF( GRAD ,GT, GTEM .AND, GRAD ,LT, GMAX ) GO TO 301
258 IMIX = NN
GTEH B -l.OE-3
TA s VTOf * T(nUHE)
DO 2'59 J = IMIX t NUM
TA = TA + OVOU(J) * T(J)
259 CONTINUE
TA = TA / ( VSUM - VOLCIMIX) )
00 2hO J = iMlXt NUMfc
TfJ) = TA '
TFX(J) s TA
260 CONTINUE
IF(IOUG.EO.l) WRITE(6»1003) IMIX tNUHE t (T ( JL) t JLsiMIX tNU^E)
1003 FOHMATCt TE"P HAS BEEN CHANGtO FROMt,iG,i TO i , I5/(20F'b.2) )
GO TO 2b6
C ** UPDATE FOH ELEMENT INCREASE
501 DO 302 J = NUMEt MAXE
TCJ) = T(NUME)
TOOT(J) s TDOT(NUMK)
TKX(J) = T(NUME)
302 CONTINUE
IFClHi.lG.E'J.l) wPITE(6tl001) Lt M, i
1001 FORHAT(I SUHC--OAYiSThPiIMIXi'-lAXE= '
C ** CALCULATE DOWNSTREAM TEMPERATURE
TA a 0.0
DO 265 J o It NOUTS
TA = TA + QOTCL»J) * TOUT(LtJ)
265 CONTINUE
OST(L) s TA / QOUT
RESTM(L) - VSUM /(AKAXKQItOOUT) * 8.64E4 )
00 «00 JLel.MAXE
400 TEMLEV(JL)=TFX(JU)
C HIX ALL LEVfcLS FROM IMIX TO NUME
168
-------
2501,
2502.
2503.
fl?0
2505.
250<>,
2507.
2508,
2509.
2510,
2511,
2512.
2513.
251 it,
2515,
2516,
2517.
2510,
2519.
2520.
2521,
2S22,
2523,
2524.
2525,
2526,
2527,
2528.
2529,
2530.
2531,
2532.
2533.
2534.
2535,
2536,
2537,
2538,
253V,
2540.
2543,
2544.
2545.
2547.
2548.
2549,
2550.
2551.
2552.
2553.
2554.
2555.
2556.
2557,
2558,
2559.
2560,
2561,
DO 420 Jl.= l , KCO.N
XTEMi'(JL)MO.
00 430 JL = IMIX t'UlME
XXsl)VOL(JL)
IF(.JL.EO.NIME) XXsVTOP
DO 400 JrfsliKCON
XTF.MPCJK)=XTf."P(JK)tCUAK(Jl. i JK)*XX
CONTINUE
DO 450 JLsl.KCON
DO "60 JKsIHIXililJME
00 460 JL-l.KCOM
430
450
iFdHUG.LG. 1) .M X TE'-lP
1004 FORM AT ( I SuSCr-JMIXtNuMf. iXTt:nP=' , 21 1 0/7* 0 .4 , K8.1 i BFH.il)
CALL LAKCON
C ** CHECK FOR OuTPijT INTERVAL
IA = 0
IF( M ,NE, IVAL ) GO TO 271
IFC >'OD(L»IPRT) ,EO. 0 .OR. L ,EO. IDAY ) IA = 1
DO 263 J s 1. NSO
IF( IDOUT(J) .EG, L ) IA = 1
263 CONTINUE
267 IFC IA ,GT, 0 ) CALL PRNT(L»M)
IF( ITAHE ,r,T. 0 ) rfRITKCIUPE) Li NUMEl ( TFX(J), J = 1, NIJMK
271 CONTINUE
C CALCULATE OUTFLOW CONCENTRATIONS FOR DAY U
FLOOUT=O,
• 00 520 JL=1»KCON i
52° XTEHP(JL)=0.
DO 530 JL=liNUnE
IF(OHO(JL).EQ.O.) GO TO 530
530
550
909 FORMAl(lHl,//3bX»lLAKE OUTFLOW COHCEMKA'TI ONS I i //)
303
819
608
DO 540 JK=1,KCON
XTEMP(JK)=XTEHP(JK)+OHO(JL)*CLAK(JLiJK)
CONTINUE
00 550 JL=liKCON
COT>LO(L(JL)=XTEMP(JL)/FLOOUT
279 CONTINUE
KKITE(6.621)fJ. nsT(J)» J = IDAY, LPAY )
621 FORMATflHl ,//30X, "OUTFLOW TM'HERATURES C CKS'TIGRAOE ) I //
*7C DAY TEMP t)/(7d7,f 0,2)))
DO 303 I=IDAY,LOAY
nRnh(h,Bl<») I.aOTd t 1) • (C.OTFl.O(I ,LJ) »L J=l tKCON)
DO
FLOW
H M1 uf£ H
(CFG) (MG/L)
(MG/L)
bOO
S'H3»M NO?TV' KOJ-N P04-P
TOT M C^LOP H^H HMI2
(f-G/L) (^.G/L) (MG/L) (M
(f'G/L) C-'G/L) (^G/L) (M
FORMATc »*Y
* PHYTO COLIFOHMS
* HHI3'/ I NUMBER
»G/L) (MG/L) ("f
*G/L) (MG/L)'/)
IF( ITAPE ,LE. 0 ) RETURN
wRITE(ITAPf) ( TSPEC(J), J = IOAY, LT-AY )
KRITtUTAPE) ( ( i'JOT(J,K),K = 1, tiOuTS ), J = IDAY, L04Y )
wRITt(ITlPE) ( ( TOUTCJ,«)•* = 1,.'-OUTS), J = IOAY, LOAY )
[TAPE) ((CllTf-LO(J»K)il<=l,KCO*.),J=IOAY,LOAY)
169
-------
256?,
2563,
256'!.
2565.
2566,
2'j67,
2568,
2569,
2570,
?S7J,
2572,
2573,
2-570,
2575.
2576,
2577,
2570,
2579.
2500,
2581,
2582,
2583,
2531,
2585,
2586,
25B7,
2588,
2589,
2590,
2591,
2592,
•MT f\~t
C. J f J •
259a,
2595.
2596,
2597,
2598,
2599,
2600,
2601,
2602,
2603.
260«,
2605,
'2606,
2607,
2608,
2609,
2610,
2611,
2612,
2613.
2614,
2615,
2616.
2617.
2616,
2619,
2620,
2621,
2622,
END FILt ITAPK
RETURN
t.W)
SUBROUTINE SIJHO( TA )
COM*.ON/H»LK/ A, AT. H»i KV. NAVG. UC. OE« RN, GK>», QMS, 0*
COKMON/NOV/ 41, Ai?. Ai, OtLTt DOT- » DTHY2» OZT» FO'UXt (LTCf EVA,
A EVAP, EXCO, CMAX, r,M!N, GSKM, 1AT, JRT, l.'IAY. P'lX, IMPi IONF»
B IPRTi ITM-'f. IT.-0, IVAUi t.OAY, MAXE» HAXf'i NLMS, f-'Onli. MOUTS»
C NTC» KifJKPt r.'SO, HSE(J« KUMi MlrC, Mil1*1, Nl'Sti fiTHIhSi f.'XHOi OT<
D oouTi REStL. RLEN, so/, SHKAT. STAHU^ VOM- . VSUM, VTOP..IMT,
-E Cli C2» C3
RfAL OATA(8,6)
C ** CALCULATE HV, KOSi ES
HV s 597,0 - 0,57 * TA
ROS = 1000.0 - (((TA • 3,98 ) ** 2*( TA + 283,0 ). ) /
A ( 503,57 * ( TA + 67,26 ) ) )
ES = a.mse.o* EXPC -4157,0 / ( TA + 239,09 ) )
C *» READ hiEATHER RECORD FROM UNIT V
DO 103 J = li MAVG
READ(INT) ( DATA(J,K)t K a li 6 )
103 CONTINUE
C ** AVERAGE INPUT DATA AS REQUIRED
IF( NAVG .If.. 1 ) GO TO 115
TC B 1,0 / FLOAT ( NAVG ) ,
DO 109 K B 1, 6
T8 o 0,0
DO 10? J = If NAVG
TB B TB + DATA(J.K)
107 CONTINUE
DATAC1»K) = TC * TB
109 CONTINUE
115 QNS s DATA(1,1)
ObA «= DATACI .2)
AT = OATA(litt)
EA = OATAd.5)
ttS s DATAd .6)
C ** CALCULATE OEt OCi AND QW
EV B ( KS » BR + A ) * ( ES " EA )
IF( FV ,LT, 0.0 ) EV = 0.0
OE = ROS * HV * EV
RB s DATAd, 1) * ( TA K AT ) / ( ES » EA )
OC B OE * RD
QW = 7,S6E«2 + 1.17E.3 * TA
ON = QNS + QNA - QW
RETURN
END
SUBROUTINE SUBE( M, L )
COMHON/ABL^X A8AR(200). AKF.A(?OC). DC(?00)t l:ENS(200), CHT(200)»
A DVOL(200). t)Z(?On), DZI(200)t «HI{?00), OHn(^on), T(?(!OJ,
B TDOT(200), TKX(?00). THI (200) , • VdU( 200) i /(200)i Znin(200)
170
-------
2623,
2620.
3625,
2626,
2627,
262».
2629,
2630,
2631,
2632.
2633.
2630,
263S,
2636,
2637,
2636,
2630.
2600,
2601,
2602,
26U3,
2600,
260b.
2606,
2607,
2606,
2609,
2650.
2651,
26b2,
2653,
?650.
" S/ - f
26U5,
2656,
2657,
2656,
265<>,
2660,
2661,
2662,
2663,
2660,
2665,
2666,
2667,
2666,
2669,
2670.
2671,
2672,
2673,
2670,
267b,
2676,
2677.
2678,
2679,
2660,
2681,
2662.
2633.
COMMOM/CULK/ D3K36S). POOL ( 36'il i QIN(365)« RESTH(365), TIN(365)
COMMON/OHLK/ OHODZ('J)» F-LOUT(S), NOU(5)i OOT(365»3)» TOl'TO&H.3) •
A TSPtCObSJi WOKS)
*i!SKNOU(3)
COMMON/FBLK/ EUP(5)» <3UP('.i)i TUP (5) i HJP ( S) • IDOUT(SO)i GOHOO6S)
COHMON/NOV/ 'A!, 4?, A3, DKUTi DOIM, 07RY2. DZT, ft)M*x, HTC» EVA,
A tVARi txcn. f.HAXt GfJNf r,b*H, uTi IHT, nuYt i"ix, IMP* lONt,
» IPKTi ITAPfci It'ftOt IVALi U'-'AY, "••AXTt MAXPi 'JLKTUi MOOSi NOUTSt
C NTC, S"EP« MSOt NHt.r. » NUM» f^UI'f:, MUVPi K-USIi MKI3S, MX£(J» Qli
0 OOUTi RESFLt KLCNi SOZ? ShEAT, SUhLt« VOMti VSUMi VTOf'i INT.
E Clt C2t C:f
COMMON/OUUG/IDUR
RKAL TOHDC200)
C **** SUM TOTAL. OUTFLOW
QOUT = 0.0
QSPU=0.
Do 101 J a li NOUTS
QOUT B ROUT + QOT(LiJ)
OOT(UiJ) = 0,0
101 CONTINUE.
IF- (IBUG.EQ.D »RITF.(6i 1000) U.OOUT
1000 FOUMATC ENTERING SUBE. ON CAY I»I6»I OOUT sltE20,8)
00 10 Jnl, NOUTS
tc I TRoMnii( j j £0,!)) CO TO 2
NOU< J)^4UMfi '
ELOUT(J)sZ(NUME>
GO TO 10
2 CONTINUE
00 b ,Jl=lfNUME
IF(i:UOUT(J),GT,Z(JL)) GO TO 5
NOU( J)=JL
GO TO 10 ,
5 CONTINUE
NOU( J)=NUME
10 CONTINUE
*
C **** ESTIMATE TEMP AND FIND HIGHEST OUTLET
MAX = NOUTS
00 100 J = It MAX
TGUKLiJ) s 0.0
K c NOU(J)
TOUTCLiJ) = TFXCK)
IFC L.EO. lOAY ) GO TO 100
If 1 OOT(L-liJ) .GT. 0,0 ) TOUKLiJ) = TOUTtL-lO)
100 CONTINUE
IFC "OD^SEG.2> ,tQ. 0 ) GO TO 107
C IF NOT OPERATING TO MEET OBJECTIVE. DISTRIBUTE 'EVENLY ,
DO 11 JL=1. NOUTS
11 QOKL« JL)=OOUT/NOUTS
GO TO 121
C **»» OPERATE TO MKET OBjECTIVt.
171
-------
36ns,
2666.
2687.
3600,
3689,
2690.
3603.
3693.
269S.
3696,
3697.
3690,
3699,
2700,
3701.
3702.
2703,
270rt,
270S,
3706,
2707,
3700.
3709,
3710,
3711,
3713,
3713,
271U.
271S.
3716,
2717,
3718,
2719,
3730,
3731.
3723.
2723.
3724,
2725,
3726,
2737.
3736,
2739,
2730,
3731,
2732,
2733,
273«,
273b,
3736.
3737.
273P.
3739.
3700.
37«1.
2702,
3713.
27U«.
107 TORJ = ( CHUT * TSPF.CCL) " QSPL * TOUT (1.1NOUTS J ) /
A ( GOUT - QSPL )
MAX = NOUTS » 1
1F( TOBJ ,GT. T
-------
3715,
,EO. 0 } IKJIT1! c
3717.
27«8.
27*19.
2750,
2751,
2752,
2753,
2750,
27S5,
2756,
2757,
2758,
2759,
2760,
2761,
2762,
2763,
276".
2765,
2766,
2767,
2768,
2769,
2770,
2771.
2772.
2773,
277«,
277b.
2776.
2777,
2778,
2779,
2780,
2781.
2782,
2783.
278«,
2785,
2786,
2787,
2788,
-2789,
2790,
2791,
2792,
2793,
2794,
2795,
2796,
2797,
2798,
2799.
2800,
2801,
2802.
2803,
260U,
2805,
131 IFC N ,NC, 1 ,AN[), N ,Nt.. NljMt ,ANO.
A O.S * UNITO
IFUBUG.fc'G.l) miTEC6i 1005) TA
100S FORMATS TA f'OH OT sliE20.fl)
DT = S'JHTC ua.O * UNIT" / TA ** 0,5 )
IFC ICRAY ,r;T, o ) GO ro 139
TA = -7MIDW + OT
IK TA ,GT, ZCMihK) ) GO TO 139
00 135 K a 'i , NUKE
JHAX = NUhE •• K
, IK Z(JMAX) ,LT. TA } GO TO 139
135 CONTINUE
139 TA = ZMIDCN) i OT
IK TA ,LT. Z(2) ) GO TO 1«7
DO J'J3 K a 'I, NU'iP
1PC Z(K) ,UT. TA ) GO TO l')3
JMIN a K « I
GO TO 1&7
1<|3 CONTINUE
JHIN a NUHE
C ** DISTRIBUTE OUTFLOWS
1«7 CONTINUE
TA s VOLCJMAX+1) • VOUtJMIN)
IF( JMAX ,GE. NUHE ) TA = V3UM P VOL(JMIN)
TA = ODEB / TA
157 00 163 K = JMIMi JMAX
TQHO(K) a TA * DVOt(K)
IFC K ,EO, K'UME ) TOHO(K) s TA * VTOP
OHQ(K) = QHO(K) + TQHO(K)
163 COMllNUt '
IKIBUG.EQ.n WRITE(6ilOOa) JMIN, JMAXi ICRAYiOT tUNITQ
1002 FORMATC JHINiJhAXilCRAy.OTiUNITO =lt3j5i2E20,8)
GO TO 225
C ** CONVECTIVE MIXED OUTFLOW
> GO TO 107
**********
205 IFC IMIX ,LE,
TA = DENSC1 ) •
IK TA ,LE. 0,0 ) GO TO 107
HOES s 0,0
TC c 0.1S05
IFC N ,EO. NUHE ) TC = 0,07«2
209 DT = RESEL - Z(IfMX)
OCRIT = TC * DT * SORTC DT * TA )
ail QCRAY = COTCUtJ)
IFCIHUG.EO.l) *'«ITEC6i!006> OCRIT,CCRAY
1006 FORMATC1 OCRlTiOCRAY *T ST'TE-iEuT 2ll =i|2El6,8)
IFC OCRIT ,Gfc, UNITO ) GO TO 215
QCRAY = OOT(LiJ) * QCRIT / UNITO
ODtR s UOTCUJ) « UCRAY
ICRAY s I
UNITO = QOEH / >sOTCJ)
IFCIBijG.EO.l) hRITt'C6»1007) OCRAY . C30f 0. u^ITO
1007 FORHATO ICRAY=1 » QCH AY > DDEH i o.U TG= I i Jtlf.,8)
215 TA s OCRAY / ( VSUM « VOf
DO iM9 K = I^IX» N'UM
TtJHO(K) - TA * DVOL(K)
OMO(K) s OhO(K) + TOHD(K)
219 CONTINUE
173
-------
2806,
2007,
2808,
2809,
2810,
2811.
2812,
2813.
2814,
2815,
2816,
2817,
2818.
281-).
2821,
2822,
2823,
2824.
2825.
2826,
2827.
2828.
2829,
2830,
2831,
2832,
2833,
283«.
2835.
2836,
2S37,
2838,
2839,
2840.
2841,
2812.
2643.
2844.
2845,
2846,
28U7,
2848,
2849.
2850,
28S1,
2852,
2853,
2854.
2855.
2656,
2857,
2856,
2859.
2860,
2861,
2662,
2663.
2664,
2665,
2866,
TQHO(NU'-if) = TA * VTOP
OHO(NUf-t) = OHCUNl.'Hi;) + TOHtHNUMK)
IF( ICRAY ,11, 0 ) GO TO 225
JMAX = mix «• i
N = I MIX i. 1
MAX = JMAX
GO TO 124
C ** CALCULATE OUTFLO* TF.nPtRATURE
?25,TA = 0.0
TB = 0.0
00 229 K = it MUMh
TA s TA + TUHIHK) * TfX(K)
TB = TP t TOHCUK)
229 CONTINUE
TOUT(LiJ) = TA / TO
299 CONTlNUt
RKTURN
END
SUBROUTINE SUBGCNPi DATA< N )
COHMON/ABLK/ AF1ARC200), AHtA(200)i UC(2nO)i 0^
A nVOLC200)i 07(200). 0X1(200)) HKl(POO), OhO(200)» T(?00)t
B TOOT(200), TFX(200)i THI(2000t VULC200)i Z(200)» Z«IO(200)
REAU OATA(N)
C ** DEFINE END POINTS
DH = 0.0
• Mai i
00 104 J a 2, NP
NLO = M + 1
DO 101 K = NLOi N
IF( DATAfK) ,EQ. 0.0 ) GO TO 101
DH a ( DATA(K) - UATA(M) ) / ( Z(K) » Z(H) )
M a K
GO TO 102
101 CONTINUE
c ** INTERPOLATE BETWEEN POINTS
102 DO 103 K a MO. M
DATA(K) = DATA(K«1) + DH * DZCKM)
103 CONTINUE
104 CONTINUE
RETURN
END
SUBROUTINE SUHHC Li FEEi M )
CO"MON/A(HK/ 48AR(HOO). ARF4(
COt'MON/ORUK/ ORODZJS). tLOUT(5), N0lj(5), QOT(3h5.3)e TOUT(J65.3),
A TSPfcC(i65). KOT(S)
COMHON/FI'l.K/ KUP(b), QUP(S), TUP'(b) .KljP(b) i !!>OUT(50), CORO(36S)
174
-------
2867,
286fi,
3869,
2070.
2871.
2872.
2873.
2870,
2875,
2876,
2877,
287P,
2879,
2880.
2881.
28«2.
2883,
2364,
2085,
2886.
2887,
2888.
2889,
2890,
2891.
2892.
289J.
289«,
2895,
2896.
2897,
2899,
2900,
2901,
2902,
2903,
290«,
2905,
2906.
2907,
2908.
2909,
2910,
29J1,
2912,
2913,
291«,
2915.
29J6,
2917,
2918.
2919,
2920,
2921.
2922.
2923.
292u,
2925,
2926.
2927.
COMI',ON/NOV/ Al, A2« A.Si OKLTi Oi)IH» OTHY;>, D/T, EIVUX, F.l.TCi KVA»
A KVAPi EXCOi GMAX, GM1M, GSWH, lAT. IBTi TOAYi \ *' I X . 1'iTP. lOMEi
B IPRTt ITAPt, IThOi tVALi Ll'AY, MAXtt ."AXPt M.l.'ry, t:pqr«« '-'OUISi
C MTCi S'HEt't NSt). NSI-.r, i NUM. Nl.lMt, MH'P, NILS I » STHIUS. >;Xf.'!i Oil
D OOUTf Rf-Sfl.t RUf.Nt S02) SnEATi STAIil.F, VO'-t t VSUMi VTl>P» IMTi
t Cli C2. C:4
COMhON/OHUG'/IHUG
REAL FEK(M)
RO(TA) s 1000. 0 - (((TA » 3.90 ) ** ?*( TA t 20:5,0 ). ) /
A ( '503.57 * ( TA + 67.?^ ) ) )
,|M1M a i
JMAX = NIJME
C ** FIND ENTRY UKVEl.
RUP a ROC TIN(L) )
00 J09 J = It NIJME
N s J
IFC RUP ,GE, DtNSCJ) ) GO TO 113
109 CONTINUE
C ** CHECK REGIONS
113 IFC N ,L,T. IMIX .OR, IMIX + « «GT. NUfE ) Go TO 119
JMIN s IMJX
TA c 01 * DKLT
IFC VSUM m VOL(JHIX) ,GT. TA ) GO TO J29
DO 115 J = •; (."JME
JMIN s NuHP «J
IFC VSUM « VOU(JMIN) ,r,T, TA ) GO TO 129
115 CONTINUE
GO TO 129
C ** ESTABLISH THE DENSITY GRADIENT
119 MA> B N 4- 7
IFC MAX ,GT. MIME ) MAX = NUME
TA = . BETA(N-7»«AX,OtNS,200)
IFC TA ,GT. 0.0 ) GO TO 127
NLO = N
NUP a N
123 IFC NLO ,GT, 1 ) NLO = NLO • 1
IFC NUP ,LT. NUM ) NUP = NUP * 1
TA - ( DENS(NUO) » OENS(MIJP) ) / ( ZMIO(NUP) «
IFC TA ,GT. 0.0 ) r,o TO 127
IFC NLO ,LK, 1 ,AND, NUP ,GE, NyM ) GO TO 129
GO TO 121
C ** CALCULATE WITHDRAWALS
127 TA = SQRTC TA )
DfcNOM=AREA(N)
OT = SQ'^TC 12.0 * U\ITl3 / TA )
IFLO a OT / SnZ
IFC 2 * IFLO .OF, NUM ) GO 10 129
175
-------
2928,
2929,
2930,
2931,
2932.
2933,
293«,
2935.
2936.
2937.
2938.
2939,
29UQ,
29«2l
29«3.
2940,
29«b,
2906,
29-'<
aid
Environmental Protection Agency
Set of six volumes: Volume I - Final Report, Volume II - Data
Report, Volume III - Verification Report, Volume IV - User's Manual for Steady-
state Stream Model, Volume V - User's Manual for Dynamic Stream Model, Volume VI -
User's Manual for Stratified Reservoir Model.
Three existing mathematical models, capable of representing water quality in rivers
and lakes, have been modified and adapted to the Spokane River Basin in Washington
and Idaho. The resulting models were named the Steady-state Stream Model, the
Dynamic Stream Model, and the Stratified Reservoir Model. They are capable of
predicting water quality levels resulting from alternative basinwide wastewater
management schemes, and are designed to assist EPA, State, and local planning
organizations to evaluate water quality management strategies and to establish
priorities and schedules for investments in abatement facilities in the basin.
Physical data and historical hydrologic, water quality and meteorologic data were
collected, assessed and used for the model calibrations and verifications. The
modified models are all capable of simulating the behavior of various subsets of up
to sixteen different water quality constituents. Sensitivity analyses were con-
ducted with all three models to determine the relative importance of a number of
individual model parameters. The models were provided to the EPA as computer source
card decks in FORTRAN IV language, with accompanying data decks. All development
work on, and applications made with, these models were fully documented so as to
permit their easy utilization and duplication of historical simulations by other
potential users. A user's manual with a complete program listing was prepared for
each model.'
i'l. N1 -jtily ' 'r,s.
?.r. :•'<••• at .• C'.-'v..
Send To:
WATER RESOURCES SCIENTIFIC INFORMATION CENTER
U.S. DEPARTMENT OF THE INTERIOR
WASHINGTON, D. C. 2O24O
E. John Finnemore
Systems Control, Inc.
-------
|