United States
Environmental Protection
Agency
Office of
Solid Waste &
Emergency Response
EPA/530-SW-84-010
June 1984
Solid Waste
&EPA
DRAFT
The Hydrologic
Evaluation of Landfill
Performance (HELP) Model
Do not remove. This document
should be retained in the EPA
Region 5 Library Collection.
Volume II. Documentation for
Version I
Technical Resource Document
for Public Comment
-------
THE HYDROLOGIC EVALUATION OF LANDFILL
PERFORMANCE (HELP) MODEL
Volume II. Documentation for Version 1
by
/
P. R. Schroeder, A. C. Gibson, and M. D. Smolen
U.S. Army Engineer Waterways Experiment Station
Vicksburg, MS 39180
Interagency Agreement Number AD-96-F-2-A140
Project Officer
<^73>
D. C. Ammon
Solid and Hazardous Waste Research Division
Municipal Environmental Research Laboratory
Cincinnati, OH 45268
MUNICIPAL ENVIRONMENTAL RESEARCH LABORATORY
OFFICE OF RESEARCH AND DEVELOPMENT
U.S. ENVIRONMENTAL PROTECTION AGENCY
CINCINNATI, OH 45268
OFFICE OF SOLID WASTE AND EMERGENCY RESPONSE
U.S. ENVIRONMENTAL PROTECTION AGENCY
WASHINGTON, DC 20460
.
Region 5, Library (Pt-uJ)
77 West Jackson Boufevafd, 12th NO*
Chicago, ft 60604*3590
-------
DISCLAIMER
This report was prepared by P. R. Schroeder, A. C. Gibson, and M. D.
Smolen of the U.S. Army Engineer Waterways Experiment Station, Vicksburg,
Mississippi under Interagency Agreement AD-96-F-2-A140. The EPA Project
Officer was D. C. Ammon of the Municipal Environmental Research Laboratory,
Cincinnati, Ohio.
This is a draft report that is being released by EPA for public comment
on the accuracy and usefulness of the information in it. The report has
received extensive technical review but the Agency's peer and administrative
review process has not yet been completed. Therefore, it does not neces-
sarily reflect the views or policies of the Agency. Mention of trade names
or commercial products does not constitute endorsement or recommendation for
use.
ii
-------
FOREWORD
The Environmental Protection Agency was created because of increasing
public and governmental concern about the dangers of pollution to the health
and welfare of the American people. Noxious air, foul water, and spoiled land
are tragic testimony to the deterioration of our natural environment. The
complexity of the environment and the interplay between its components require
a concentrated and integrated attack on the problem.
Research and development is the first necessary step in problem solution;
it involves defining the problem, measuring its impact, and searching for
solutions. The Municipal Environmental Research Laboratory develops new and
improved technology and systems to prevent, treat, and manage wastewater and
the solid and hazardous waste pollutant discharges from municipal and commun-
ity sources; to preserve and treat public drinking water supplies; and to min-
imize the adverse economic, social, health and aesthetic effects of pollution.
This publication is one of the products of that research—a vital communica-
tions link between the researcher and the user community.
The Hydrologic Evaluation of Landfill Performance (HELP) program was
developed to facilitate rapid, economical estimations of the water movement
across, into, through, and out of landfills. The program is applicable for
evaluation of open, partially closed, and fully closed sites by both designers
and permit writers.
FRANCIS T. MAYO
Director
Municipal Environmental Research
Laboratory
iii
-------
PREFACE
Subtitle C of the Resource Conservation and Recovery Act (RCRA) requires
the Environmental Protection Agency (EPA) to establish a Federal hazardous
waste management program. This program must ensure that hazardous wastes are
handled safely from generation until final disposition. EPA issued a series
of hazardous waste regulations under Subtitle C of RCRA that is published in
40 Code of Federal Regulations (CFR) 260 through 265 and 122 through 124.
Parts 264 and 265 of 40 CFR contain standards applicable to owners and
operators of all facilities that treat, store, or dispose of hazardous wastes.
Wastes are identified or listed as hazardous under 40 CFR Part 261. The
Part 264 standards are implemented through permits issued by authorized states
or the EPA in accordance with 40 CFR Part 122 and Part 124 regulations. Land
treatment, storage, and disposal (LTSD) regulations in 40 CFR Part 264 issued
on July 26, 1982, establish performance standards for hazardous waste land-
fills, surface impoundments, land treatment units, and waste piles.
The Environmental Protection Agency is developing three types of documents
for preparers and reviewers of permit applications for hazardous waste LTSD
facilities. These types include RCRA Technical Guidance Documents, Permit
Guidance Manuals, and Technical Resource Documents (TRD's). The RCRA Technical
Guidance Documents present design and operating specifications or design eval-
uation techniques that generally comply with or demonstrate compliance with
the Design and Operating Requirements and the Closure and Post-Closure Require-
ments of Part 264. The Permit Guidance Manuals are being developed to describe
the permit application information the Agency seeks and to provide guidance to
applicants and permit writers in addressing the information requirements.
These manuals will include a discussion of each step in the permitting process,
and a description of each set of specifications that must be considered for
inclusion in the permit.
The Technical Resource Documents present state-of-the-art summaries of
technologies and evaluation techniques determined by the Agency to constitute
good engineering designs, practices, and procedures. They support the RCRA
Technical Guidance Documents and Permit Guidance Manuals in certain areas
(i.e., liners, leachate management, closure covers, water balance) by des-
cribing current technologies and methods for designing hazardous waste facil-
ities or for evaluating the performance of a facility design. Although
emphasis is given to hazardous waste facilities, the information presented in
these TRD's may be used in designing and operating non-hazardous waste LTSD
facilities as well. Whereas the RCRA Technical Guidance Documents and Permit
Guidance Manuals are directly related to the regulations, the information in
these TRD's covers a broader perspective and should not be used to interpret
the requirements of the regulations.
iv
-------
This document is a first edition draft being made available for public
review and comment. It has undergone review by recognized experts in the
technical areas covered, but Agency peer review processing has not yet been
completed. Public comment is desired on the accuracy and usefulness of the
information presented in this manual. Comments received will be evaluated,
before publication of the second edition. Communications should be addressed
to Docket Clerk, Room S-212, Office of Solid Waste (WH-562), U.S. Environmental
Protection Agency, 401 M Street, S.W., Washington, D.C. 20460. The document
under discussion should be identified by title (e.g., "The Hydrologic Evaluation
of Landfill Performance (HELP) Model").
-------
ABSTRACT
The Hydrologic Evaluation of Landfill Performance (HELP) program was
developed to facilitate rapid, economical estimation of the amounts of surface
runoff, subsurface drainage, and leachate that may be expected to result from
the operation of a wide variety of possible landfill designs. The program
models the effects of hydrologic processes including precipitation, surface
storage, runoff, infiltration, percolation, evapotranspiration, soil moisture
storage, and lateral drainage using a quasi-two-dimensional approach. In this
document, the theories and assumptions upon which the HELP model is based, the
solution techniques employed, and the internal logic of the computer program
are presented and discussed in detail.
This report was submitted in partial fulfillment of Interagency Agreement
Number AD-96-F-2-A140 between the U.S. Environmental Protection Agency and the
U.S. Army Engineer Waterways Experiment Station. This report covers a period
from April 1982 to August 1983, and work was completed as of August 1983.
VI
-------
CONTENTS
Foreword iii
Preface iv
Abstract vi
Figures viii
Tables ix
Acknowledgments x
1. Program Identification 1
2. Engineering Documentation 3
3. Program Documentation 36
4. System Documentation ..... 58
5. Operating Documentation 62
References ....... 69
Appendices
A. HELP Source Program Listing 71
B. Program Variables 204
C. Organization of the HELP Model 238
D. Comparison with Results of DRAINFIL Model 249
vn
-------
FIGURES
Number Page
1 Typical hazardous waste landfill profile 5
2 Relationship between runoff, precipitation, and
retention 8
3 SCS rainfall-runoff relation normalized on retention
parameter S . 10
4 Relationship between SCS curve number and minimum
infiltration rate (MIR) for various vegetative
covers 13
5 Error in lateral drainage computation as a function
of interval period and head 29
6 Exte.ut of nonlinearity in drainage curves . 30
7 General relation between soil-water, soil texture,
and hydraulic conductivity 37
viii
-------
TABLES
Number Page
1 Constants Used in HELP Model 33
2 Soil Variables for Default Soil Data Input 34
3 Climatologic Characteristics for Default Input 35
4 Typical Leaf Area Index Distributions for Various
Vegetative Covers 38
5 Manual Climatologic Input 41
6 Listing of Default Cities and States 42
7 Default Climatologic Input Variables 43
8 Manual Soil Characteristics Input 43
9 Default Soil Characteristics Input 45
10 Default Soil Characteristics 46
11 Design Data Input 47
12 Daily Output Variables 48
13 Output of Monthly Totals 50
14 Output of Annual Totals 51
15 Output of Average Values 54
16 Output of Peak Daily Values 57
17 Data Files and Device Numbers 60
18 Job Control Cards 63
ix
-------
ACKNOWLEDGMENTS
The authors would like to express their sincere appreciation to
Mrs. Cheryl Lloyd, Mr. Thomas E. Schaefer, Jr., and Dr. Joe M. Morgan of the
Environmental Engineering Division, U.S. Army Engineer Waterways Experiment
Station, for their many contributions to the development of this document.
-------
SECTION 1
PROGRAM IDENTIFICATION
PROGRAM TITLE
Hydrologic Evaluation of Landfill Performance Model
PROGRAM CODE NAME
HELP
WRITERS
Paul R. Schroeder, Anthony C. Gibson, and Michael D. Smolen
ORGANIZATION
U.S. Army Engineer Waterways Experiment Station (WES)
DATE
August 1983
UPDATE
None Version No.: 1
SOURCE LANGUAGE
IBM 360/370 and CDC Extended FORTRAN IV
AVAILABCLITY
A complete program listing is provided in Appendix A. Source cards and
magnetic tape are available from the Office of Data Base Service, National
Technical Information Service (NTIS). The program is addressable on the U.S.
Environmental Protection Agency National Computer Center system. Computer
accounts for the system are available through NTIS.
ABSTRACT
The Hydrologic Evaluation of Landfill Performance (HELP) model is a quasi-
two-dimensional, deterministic, computer-based water budget model. The model
was developed and adapted from the U.S. Environmental Protection Agency HSSWDS
1
-------
model and the U.S. Department of Agriculture CREAMS Hydrologic model. The HELP
model computes runoff by the Soil Conservation Service runoff curve number
method. Evapotranspiration is computed by a modified Penman method developed
by Ritchie and adapted for Limiting soil moisture in the manners of Shanholtz
and Saxton. Percolation is determined by applying Darcy's Law for saturated
flow with modifications for unsaturated conditions. Lateral drainage is com-
puted analytically from a linearized Boussinesq equation which is corrected to
agree with numerical solutions of the Boussinesq equation for the range of
design specifications used in hazardous waste landfills. The model uses clima-
tologic and design input data in the form of daily rainfall, mean monthly
temperatures, mean monthly solar radiation, leaf area indices, soil character-
istics, and design specifications to perform a sequential daily analysis to
determine runoff, evapotranspiration, percolation, and lateral drainage for
the landfill (cap, waste cell, leachate collection system, and liner) and to
obtain daily, monthly, and annual water budgets.
-------
SECTION 2
ENGINEERING DOCUMENTATION
NARRATIVE DESCRIPTION
The Hydrologic Evaluation of Landfill Performance (HELP) model was devel-
oped to help hazardous waste landfill designers and evaluators estimate the
magnitudes of components of the water budget and the height of water saturated
soil above barrier soil layers. This quasi-two-dimensional, deterministic
computer-based water budget model was developed and adapted from the U.S. Envi-
ronmental Protection Agency Hydrologic Simulation Model for Estimating Perco-
lation at Solid Waste Disposal Sites (HSSWDS) (1,2) and the U.S. Department of
Agriculture Chemical Runoff and Erosion from Agricultural Management Sys-
tems (CREAMS) Hydrologic model (3). The HELP model performs a sequential
daily analysis to determine runoff, evapotranspiration, percolation, and
lateral drainage for the landfill (cap, waste cell, leachate collection
system, and liner) and obtain daily, monthly, and annual water budgets. The
model does not account for lateral inflow and surface runon.
The HELP model requires climatologic data, soil characteristics, and
design specifications to perform the analysis. Climatologic input data con-
sist of daily precipitation values, mean monthly temperatures, mean monthly
solar radiation values, leaf area indices, evaporative zone depth, and winter
cover factors. Soil characteristics include porosity, field capacity, wilting
point, hydraulic conductivity, water transmissivity evaporation coefficient
and Soil Conservation Service (SCS) runoff curve number for antecedent mois-
ture condition II. Design specifications consist of the number of layers and
their descriptions including type, thickness, slope, and maximum lateral dis-
tance to a drain, if applicable, and whether synthetic membranes are to be
used in the cover and/or liner. The HELP model maintains five years of
default climatologic data for 102 cities throughout the United States. Any of
seven default options for vegetation may be specified. The model also stores
default soil characteristics for 21 soil types for use when measurements or
site specific estimates are not available.
The model is ordinarily used in the conversational mode. This enables
users to interact directly with the program and receive output through the
terminal immediately. Use of the model does not require prior experience with
computer programming; though, some experience would assist the user in logging
on the computer system and manipulating data files. The model can also be run
in the batch mode; however, this requires more computer programming experience
and extreme care in preparation of input data files.
-------
The definition sketch of a typical closed landfill profile is shown in
Figure 1. The sketch shows six layers—three in the cover or cap and three in
the waste, drain, and liner system. Two subprofiles or modeling units for
water routing are shown. A subprofile consists of all layers between (and
including) the landfill surface and the bottom of the top barrier soil layer,
between the bottom of a barrier soil layer and the bottom of the next lower
barrier soil layer, or between the bottom of the lowest barrier soil layer and
the bottom of the lowest soil layer considered. In the sketch, the top sub-
profile contains the layers of the cover, and the bottom subprofile is
composed of the waste, drain, and liner system at the base of the landfill.
Four types of layers are shown in the sketch: vertical percolation, lateral
drainage, waste, and barrier.
Vertical percolation layers (e.g., layer 1 on Figure 1) are assumed to
have great enough hydraulic conductivity that vertical flow in the downward
direction (i.e., percolation) is not significantly restricted. Lateral
drainage is not permitted, but water can move upward and be lost to evapotran-
spiration, depending upon the specified depth of the evaporative zone. Per-
colation is modeled as being independent of the depth of water saturated soil
(i.e., the head) above the layer. Layers designed to support vegetation
should generally be designated as vertical percolation layers.
Lateral drainage layers are assumed to have hydraulic conductivity high
enough that little resistance to flow is offered. The hydraulic conductivity
of drainage layers should be greater than or equal to the hydraulic conductiv-
ity of the overlying layer. Vertical flow is modeled in the same manner as
for a vertical percolation layer; however, lateral outflow is allowed. This
lateral drainage is considered to be a function of the slope of the bottom of
the layer, the maximum horizontal distance that water must traverse to drain
from the layer, and the depth of water saturated soil above the top of the
underlying barrier soil layer. (Note: a lateral drainage layer may be under-
lain by only another lateral drainage layer or a barrier soil layer.) The
slope at the bottom of the layer may vary from 0 to 10 percent, and the maximum
drainage distance may range between 25 and 200 feet. Layers 2 and 5 on
Figure 1 are lateral drainage layers.
Barrier soil layers serve the purpose of restricting vertical flow.
Thus, such layers should have hydraulic conductivity substantially lower than
for vertical percolation, lateral drainage, or waste layers. The program
limits the direction of flow in barrier soil layers to downward. Thus, any
water moving into a barrier layer will eventually percolate through. Perco-
lation is modeled as a function of the depth of water saturated soil (head)
above the base of the layer. The program recognizes two types of barrier
layers; those composed of soil alone and those composed of soil overlain by an
impermeable synthetic membrane. In the latter case, the user must specify some
membrane leakage fraction. This factor may be thought of simply as the frac-
tion (range 0 to 1) of the maximum daily potential percolation (i.e., the per-
colation that would occur in the absence of the membrane) through the layer
that is expected to actually occur on a day with the membrane in place and with
the same head on the barrier layer. The net effect of specifying the presence
of a membrane is to reduce the effective hydraulic conductivity of the layer.
-------
O
QC
O.
03
O
CO
o:
UJ
PRECIPITATION
EVAPOTRANSPIRATION
4
VEGETATION j RUNOFF
ill I Illi Hint linili .,il i in iii, ili]i)ll||l|
uj CD VEGETATIVE LAYER
LATERAL DRAINAGE LAYER
BARRIER SOIL LAYER
WASTE LAYER
LATERAL DRAINAGE
(FROM COVER)
SLOPE
DC
UJ
O
O
o
0.
o
PERCOLATION
(FROM BASE OF COVER)
u.
o
o:
a.
co
ID
co
UJ
Q
, ,-^^^A, rxn,AiKiAoir i AN/C-D
LATERAL DRAINAGE LAYER
LATERAL DRAINAGE
(FRQM BASE Qp LANDF)LL)
BARRIER SOIL LAYER
DRAIN
SLOPE
ce
UJ
MAXIMUM DRAINAGE DISTANCE
PERCOLATION (FROM BASE OF LANDFILL)
Figure 1. Typical hazardous waste landfill profile.
5
-------
The program does not model aging of the membrane. Layers 3 and 6 shown on
Figure 1 are barrier layers.
Water movement through a waste layer is modeled in the same manner as for
a vertical percolation layer. However, identifying a layer as a waste layer
indicates to the program which layers should be considered part of the landfill
cap or cover (see Figure 1), and which layer should be considered as part of
the liner/drainage system. Layer 4 shown on Figure 1 is a waste layer.
If the topmost layer of a landfill profile is identified as a waste layer,
the program assumes that the landfill is open. In this case, the user must
specify an SCS runoff curve number and the fraction (a factor that may vary
from 0 to 1) of the potential surface runoff that is actually collected and
removed from the landfill surface.
METHOD OF SOLUTION
The HELP model was developed to estimate daily water movement on the sur-
face and through the landfill. Precipitation is partitioned into runoff,
evapotranspiration, percolation, and subsurface lateral drainage to maintain a
continuous water balance. The HELP model computes runoff by the Soil Conser-
vation Service (SCS) runoff curve number method (4) and percolation by Darcy's
Law for saturated flow (5) with modifications for unsaturated conditions.
Lateral drainage is computed analytically from a linearized Boussinesq equa-
tion, corrected to agree with numerical solutions of the non-linearized
Boussinesq equation for the range of design specifications used in hazardous
waste landfills (6). Evapotranspiration is determined by a modified Penman
method developed by Ritchie (7) and adapted for limiting soil moisture condi-
tions in the manner of Shanholtz et al. (8) and Saxton et al. (9). Solution
principles are described in detail below.
Mathematical modeling may deal with deterministic and stochastic vari-
ables, A stochastic variable is one whose properties are governed by purely
random-time events and sequential relations as well as functional relations
with other hydrologic variables. A deterministic variable is one whose tem-
poral and spatial properties are known; i.e., it is assumed that the behavior
of such a variable is definite and its characteristics can be predicted. The
HELP model is deterministic in concept insofar as the model treats all vari-
ables and their relationships as being definitely known, although often with
empirical relationships. However, the results of 20 years of simulation should
not be considered as simulation through a 20-year period since the effects of
aging of the landfill are not modeled. The simulation results should be used
to demonstrate the probabilities of various outcomes for the given character-
istics of the landfill.
Runoff
During a given rainfall, water falling on a waste disposal site is con-
tinually intercepted by trees, plants, root surfaces, etc. However, infiltra-
tion and evapotranspiration also occur simultaneously throughout the period.
Once rain begins to fall and the initial requirements of infiltration are
-------
fulfilled, natural depressions collect the excess rain to form small puddles.
In addition, a film of water begins to build up on permeable and impermeable
surfaces within the waste disposal site. This stored water collects in small
rivulets and is hence conveyed into small channels, and, thus, surface runoff
is produced.
The SCS curve number technique presented in Section 4 of the National
Engineering Handbook (4) was selected to model the runoff process because (10):
a. It is a well established reliable procedure.
b. It is computationally efficient.
c. The required input is generally available; and
d. Various soil types, land use and management practices can be con-
veniently handled.
The procedures were developed from observed runoff-rainfall relationships for
large storms on small watersheds, as presented in the following paragraphs (4).
Runoff was plotted as a function of rainfall on arithmetic graph paper
having equal scales, yielding a curve that becomes asymptotic to a straight
line with a 45° slope at high rainfall as shown in Figure 2. The equation of
the straight line portion of the runoff curve, assuming no initial abstraction
or lag between the times when runoff and rainfall starts, is
Q = Pf - S1 (1)
where
Q = actual runoff, inches
P' = maximum potential runoff or actual rainfal1 after runoff starts,
inches
S1 = potential maximum retention by any means after runoff starts,
inches
S' is a constant for a particular storm because it is the maximum retention
that can occur under existing conditions of watershed characteristics and rain-
fall intensity if the storm continues indefinitely. The relation between pre-
cipitation, runoff, and retention (the difference between the rainfall and
runoff) at any point on the runoff curve was found to be
£_=Q_ (2)
s' p' ( '
-------
RAINFALL, P
Figure 2. Relationship between runoff, precipitation, and retention.
where
F = actual retention after runoff starts, inches
= P' - Q
Substituting for F,
P' - 0 = Q_
S' ' P1
(3)
where P' is the actual rainfall when initial abstraction does not occur.
-------
If initial abstraction were considered, the runoff curve would be trans-
lated to the right, as shown in Figure 1, by the amount of precipitation
which occurred prior to the start of runoff. This amount of precipitation is
the initial abstraction. Therefore, to form the relationship with initial
abstraction analogous to Equation 3, the initial abstraction would be sub-
tracted from the precipitation.
P' = P - I (4)
3-
Equation 3 becomes _ a _ , .
S' ~
where
P = actual rainfall, inches
I = initial abstraction, inches
3.
In the SCS derivation (4), the maximum retention parameter, S', in Equation 5
is termed S, but both parameters are equal.
S = S' (6)
Equation 6 has been corrected from the SCS derivation (4) .
Rainfall and runoff data from a large number of small experimental water
sheds empirically indicated that (4)
I = 0.2S (7)
3.
Substituting Equations 6 and 7 into Equation 5 and solving for Q,
(P - 0-2S)2 ,
(P + 0.8S)
Performing polynomial division on Equation 8 and dividing both sides of
the equation by S,
£ = L 19 1.0
S"S" ' ~
Equation 9 is the normalized runoff- rainfall relationship for any S and is
plotted in Figure 3.
The potential maximum retention parameter excluding initial abstraction,
S, was transformed into runoff curve numbers, CN, to make interpolating,
averaging, and weighting operations more nearly linear, as follows:
-------
Q/S 1.0 —
Ia/S = 0.2 —•*
Figure 3. SCS rainfall-runoff relation normalized on retention parameter S.
1000
CN =
S + 10
(10)
10QO
CN
(ID
The retention parameter, S, for a given soil varies as a function of the
soil moisture in the following manner which differs slightly from the CREAMS
documentation (3) in that the water content below the wilting point was not
included in their soil moisture term:
S = S
mx
SM - WP
UL - WP
(12)
10
-------
where
S = maximum value of S, inches
mx
SM = soil water content in the vegetative or evaporative zone, inches
UL = upper limit of soil water storage and defined as the storage
capacity at saturation, inches
WP = wilting point of the soil or the lowest naturally occurring soil
water content, inches
Since soil water is not distributed uniformly throughout the soil profile
and since the soil moisture near the surface influences infiltration more
strongly than that located elsewhere, the retention parameter should be depth-
weighted. The soil profile of the vegetative or evaporative depth is, there-
fore, divided into seven segments. The thickness of the top segment is set
to equal one-thirtysixth of the thickness of the vegetative or evaporative
depth and the thickness of the second segment is five-thirtysixths of the
thickness of the vegetative or evaporative depth. The thickness of each of
the bottom five segments is defined as one-sixth of the thickness of the
vegetative or evaporative depth. The evaporative depth is specified by the
user and is the maximum depth from which moisture can be removed by evapo-
transpiration, but this depth cannot exceed the depth to the top of the upper-
most barrier soil layer. The depth-weighted retention parameter is computed
with the following equation (3):
S = S
mx
1 -
(13)
where
W. =
J
SM. =
UL.
J
WP.
J
weighting factor for segment j
soil water content of segment j, inches
saturated capacity of segment j, inches
wilting point of segment j, inches
The weighting factors decrease with the depth of the segment in accordance
with the following equation from the CREAMS development (3):
W.
J
= 1.0159
-4.16
-4.16
- e
(14)
11
-------
where
D. = depth to bottom of segment j, inches
VD = vegetative or evaporative depth, inches
Therefore, the weighting factors for segments 1, 2, 3, 4, 5, 6, and 7 are
0.111, 0.397, 0.254, 0.127, 0.063, 0.032, and 0.016, respectively.
The maximum value of S, S , is the value of S at the lowest soil mois-
ture content which corresponds to antecedent moisture condition I (AMC-I) in
the SCS method (4). S is related to the curve number for AMC-I, CM , as
c i i mx I
follows:
Generally, the curve number for a watershed is determined for average moisture
conditions (AMC-II) in the SCS method and the curve number is termed CM .
CNT can be estimated from Figure 4 which was developed from the relationship
between soil hydrologic group and minimum infiltration rate (4,11) presented
in Table 6 and from the CN values for various combinations of soil type and
vegetation type (4) . In the CREAMS development (3) , CN was related to CN
by the following polynomial:
CNr = -16.91 + 1.348(CNn) - 0.01379(CN.[I)2 + 0 .0001 177(CNIJ;)3 (16)
Summarizing the procedures used in the HELP model to determine daily run-
off, the approach is:
a. Knowing CN for the site, compute CN and S using Equations 16
, , r 1J- . i I mx
and 15, respectively.
b. Compute the daily depth-weighted retention parameter, S..
c. Compute the daily runoff, Q , by Equation 8.
Infiltration
Infiltration is equal to the difference between the daily precipitation,
the sum of the change in surface storage of precipitation (snow), the daily
runoff, and the surface evaporation. If the mean daily temperature is below
32°F, precipitation is stored on the surface as snow and does not contribute
to infiltration or runoff until the mean daily temperature exceeds 32°F.
The daily snowmelt is computed as follows (4):
Mi =
0 for T. s 32 or SNO l = 0
0.06(Ti - 32) for T± > 32 and SNO^ >0.06(Ti - 32) (17)
SNOi_1 for T. >32 and SNO <0.06(T± - 32)
12
-------
100
80
c/) 60
(E
LU
CO
D
LU
3 40
20
-BAREGROUND
•ROW CROP (FAIR)
GRASS (POOR)
I
0.1
0.2 0.3
MIR, IN./HR
0.4
0.5
where
Figure 4. Relationship between SCS curve number and minimum
infiltration rate (MIR) for various vegetative covers.
M. = amount of snowmeLt on day i, inches
T. = mean temperature on day i, °F
SNO = amount of snowwater at end of day i-1, inches
SNO. =
i
, + PRE - ESS for T. s32
l-l i i i
SNO. - M. for T. >32 and ESS. < M. + PRE.
SNO. , - ESS. for T. >32 and ESS, >M. + PRE.
i-l 11 ill
where PRE. = actual precipitation on day i, inches
ESS. = surface water evaporation on day i, inches
(18)
13
-------
The dally runoff, Q., is computed from Equation 8 using the net rainfall in
inches, P., where
P = PRE_L + SNO l - SNO. - ESS. (19)
Therefore, the net daily infiltration is computed as follows:
IN. = P. - Q. (20)
where IN. = infiltration on day i, inches
Evapotranspiration
The evapotranspiration from a landfill cover is a function of the energy
available, the vegetation, the soil water transmissivity, and the soil water
content. The potential evapotranspiration is computed by a modified Penman
method developed by Ritchie (7) and used in CREAMS (3).
1.28 A.H.
E
o. (A. + G)25.4 (21)
where
E = potential evapotranspiration on day i, inches
A. = slope of saturation vapor pressure curve on day i
H. = net solar radiation on day i, langleys
G = psychrometric constant which is assumed to remain constant at
0.68
A. is computed with the following equation:
53Q4 (21.255 - 5304/TK±)
Ai = ~T e X (22)
TK.
where TK. = mean temperature in °K on day i. H. is computed by the following
equation:
(1 - L)R.
Hi = 58.3 (23)
where
L = albedo for solar radiation, which is assumed to remain constant
at 0.23
R. = solar radiation on day i, langleys
14
-------
Daily mean temperatures and solar radiation values are interpolated from
mean monthly temperatures and solar radiation values by fitting the monthly
values to a simple harmonic curve with an annual period using Fourier analy-
sis (12). The form of the equation is
V. = V + A cos I 2 7r^1.TT °"J'' \ + B sin
where
V. = interpolated value of day i
V = average annual value
A = coefficient of the cosine term
B = coefficient of the sine term
ND = number of days in a year
The coefficients of the equation are computed as follows:
12
A = 12 X V- cosr" "' '""'I (25)
h = l
12
B = TT y vu sinl^-^ ^-1 (26)
where
V, = mean monthly value for month h
The daily potential evapotranspirative demand as calculated in Equa-
tion 21 is exerted first on water available on the surface, either snow or
precipitation. If adequate water is present on J:he surface to satisfy the
demand, water is not taken from the soil column for evapotranspiration. Any
demand in excess of the surface water is exerted on the soil column in the
forms of soil evaporation and plant transpiration when above freezing. That
portion of the potential evaporative demand that is met by evaporation of
surface moisture, ESS, is given for day i by
2 for E sSNO + PRE-
ESS. = °i °i 1~1 1 (27)
SNO. , + PRE. for E >SNO. , + PRE.
i-l i o. i-l i
ES. + EP. = 0 for T. «32
15
-------
where ES. = actual soil evaporation on day ±, inches
EP. = actual plant transpiration on day i, inches
The model computes soil evaporation and plant transpiration separately.
The potential soil evaporation through the surface is predicted by the follow-
ing equation when evaporation is not limited by transmission of water to the
surface:
-0.4 LAI.
ES = E e X (29)
i i
where
ES = potential soil evaporation on day i, inches
LAI. = leaf area index, on day i, of actively transpiring plants
measured on a scale of 0 to 3
1 During the nongrowing or dormant period, the LAI, which is based on the
leaf area of actively transpiring plants, would be equal to zero. However,
the actual winter cover would not be bareground as a LAI index as used in
Equation 29 implies. This dead or dormant vegetative cover would reduce the
heating of the soil surface in the same manner as actively transpiring plants
and, therefore, would similarly reduce the potential soil evaporation. The
potential soil evaporation for winter cover is computed as follows:
-0.4 WCF
ES = E e v '
°i °l
where WCF = winter cover factor
= 0 for bareground and for row crops
= 1.8 for an excellent grass stand
= 1.2 for a good grass stand
= 0.6 for a fair grass stand
=0.3 for a poor grass stand
Soil evaporation occurs in two stages. Stage one evaporation is con-
trolled only by the energy available, while stage two evaporation is limited
also by water transmission through the soil. In stage one,
ESI. = ES (31)
°
16
-------
where ESI. = stage one evaporation from soil on day i, inches.
Stage one evaporation occurs when the total-to-date of the soil evaporation
less the infiltration is less than the upper limit for stage one evapora-
tion, U. The limit represents the quantity of water that can be readily trans-
mitted to the surface. The total of soil evaporation less infiltration, ES1T,
is computed as follows:
i
ES1T. = 3"^ ES, - IN. (32)
i / ^ k k
k=m
where
ES = soil evaporation on day k, as computed in Equation 35, inches
1C
m = last day when ES1T equalled zero
The upper limit of stage one evaporation in inches, U, is (3)
U =
where
/aporation in incnes, u, is <.j;
9 (ag - 3)°'42 /25.4 (33)
a = soil transmissivity parameter for evaporation given in Table 6,
S / i U • J)
mm/day
When ES1T. is greater than the upper limit for accumulated stage one soil
evaporation (U), in inches, stage one evaporation stops and stage two evapo-
ration starts. Stage two evaporation from the soil is computed by Equation 34
(3).
ES2i = ag | t1."- - (t_. - l)1Xi | /25.4 (34)
where
ES2. = stage two soil evaporation for day i, inches
t. = days since stage one evaporation ended
Since the daily total of soil evaporation, surface evaporation, and plant
transpiration cannot exceed the daily potential evapotranspiration, the daily
soil evaporation is
17
-------
ES. =
ESI.
ES2.
for ES1T. E
o. i i i 10.
i i
E - ESS. for ES1T. :>U and ESS. + ES2 >E
o. i i i 10.
(35)
The potential plant transpiration is computed as follows:
E LAI .
EP
o.
(36)
where EP = potential plant transpiration on day i, inches
i
The actual plant transpiration is equal to the potential plant transpiration
except when Limited by low soil moisture or when the daily total of the sur-
face evaporation, soil evaporation, and plant transpiration exceeds the daily
potential evapotranspiration.
EPD, =
i
EP for EP + ESS + ES E
o. i i o. i i o.
i 11
(37)
where EPD. is the actual plant transpiration demand in inches on day i. The
actual evapotranspiration varies as a function of the soil moisture and the
plant transpiration demand as shown by Shanholtz and Lillard (8); Saxton,
Johnson, and Shaw (9); and Sudar, Saxton, and Spomer (13). Using the relative
evapotranspiration rate curves for no-tillage areas given by Shanholtz and
Lillard (8), the following relationship was developed.
EP. = EPD
[
1-
SM. - WP
- (4
(38)
where EP. is the actual plant transpiration in inches on day i. If EP. as
computed by Equation 38 is less than zero, it is set to equal zero; ana if
greater than EPD., it is set to equal EPD.. The soil moisture, field capacity
and wilting point values used in Equation 38 are depth weighted as follows:
SM. =
W(j) SM.(j)
(39a)
18
-------
W(j) FC(j) (39b)
WP(J) (39c)
j«l
where j refers to the number of a segment and W(j) is the weighting factor as
used in Equation 13 and computed in Equation 14.
The leaf area indices used in the model are typical values for a year
without severe dry periods during the growth season. The model uses leaf area
indices for thirteen dates throughout the year to compute twelve rates of
change in the leaf area index as follows:
DLAI(m to n) = LAI("> ~_ ^ (m> (40)
where DLAT (m to n) = the daily rate of change in the typical leaf area
index between day m and day n
LAI(n) = typical leaf area index on day n
The daily leaf area indices are computed as follows:
LAI.
LMi-l + DLAI- for SMi-l >CRITS or OLATi sO
(41)
1 LAI. . for SM. . sGRITS and DLAI. > 0
i-1 i-l i
where LAI. = leaf area index computed for day i
DLAI. = daily rate of change in the leaf area index for day i as com-
puted in Equation 40 for i between m and n
GRITS = critical soil water content below which plant growth is
stopped due to inadequate soil water
= WP + 0.1(FC - WP) (42)
Example: Given the following typical LAI values, a LAI on day 109 of 1.60,
and a soil water content greater than the critical soil water con-
tent for plant growth:
Date LAI
60 0
80 1.0
100 1.7
120 2,3
140 2.8
LAI on day 110 would be:
19
-------
h DLAIno
= (2.3 - 1.7)
(120 - 100)
= 1.63
The total evapotranspiration (ET) is equal to the sum of the evaporation
from the soil (ES) and the plant transpiration (EP):
ES. + EP. when (ES. + EP.) s (E - ESS.)
°1 X (43)
E - ESS. when (ES. + EP.) > (E - ESS.)
i i
The evapotranspiration is distributed throughout the evaporative zone of the
soil cover by the following equation (3):
i i
where
ET.(j) = evapotranspiration from segment j on day i, inches
W(j) = weighting factor for segment j from Equation 14
This water extraction profile predicted by Equation 44 agrees very well
with profiles measured for permanent grasses by Saxton, Johnson and Shaw (9).
The depth of the extraction is the specified evaporative depth described previ-
ously. The thicknesses of the segments are the same as those used to determine
the depth-weighted retention parameter for the SCS runoff curve number method.
Soil moisture storage
As water enters the soil, it contributes its volume to either evapotran-
spiration, storage, drainage, or percolation. In the HELP model, a daily time
interval is used to evaluate the components of the water balance equation. In
general terms, soil moisture storage is computed as follows:
SJ^ = SMi_1 + 1/2 (IN - PEi - ET± + IN.^ - PE±_1 - ET^) (45)
where
SM. = soil moisture storage at midday i, inches
SM. , = soil moisture storage at midday i-1, inches
IN. = infiltration during day i, inches
PE. = percolation and drainage from landfill during day i, inches
ET. = evapotranspiration during day i, inches
20
-------
IN. = infiltration during day i-1, inches
PE
= percolation and drainage from landfill during day i-1, inches
ET = evapotranspiration during day i-1, inches
Soil water is distributed among as many as nine layers and among seven
segments in the vegetative or evaporative zone. The model treats segments and
layers in an equivalent manner, and considers the landfill as being composed
of a minimum of seven segments and a maximum of sixteen segments (seven in the
vegetative or evaporative plus one for each additional layer below this zone).
The model initially distributes the soil water as follows for a landfill
composed of eight segments; seven segments in the vegetative zone plus a bar-
rier soil layer:
For segment 1 (top)
SM (1) = SM (1) + 1/2 [DR (1) - DR (2) - ET._. (1)
1 1 J- 111. _1.L 11 / i r \
L 1 (46a)
DR±(1) - DR1(2) - ET_.
where
DR.(l) = infiltration during day i, IN. from Equation 20, inches
DR (2) = drainage out of segment 1 and into segment 2 during day i,
inches
DR. (1) = infiltration during day i-1, IN._ , inches
DR. ,(2) = drainage out of segment 1 and into segment 2 during day i-1,
inches
For segment j; j = 2 to 6
SMi(j) = SM^Q) + 1/2 DR±_
DR±(j) - DR±(j
(46b)
For segment 7
SM1(7) = SM^^?) + 1/2 DR^?) - PE±_1 - ET (7)
x (46c)
+ DR±(7) -
For segment 8 (barrier)
-i
±(7) - PE^^ - ET1(7)I
SM±(8) = SM^jCS) = FC(8) (46d)
21
-------
The model assumes that the soil moisture storage or content of a barrier layer
always remains at field capacity but treats the layer as being saturated for
computing percolation.
After distributing the water from the top to the bottom, the model checks
the seven segments above the barrier soil to insure that the soil moisture
storage of each segment does not exceed the saturated capacity or porosity.
If it does, the storage is set equal to the saturated capacity arid the excess
is added to the soil moisture storage of the segment directly above. Any
excess storage in the top segment is added to the surface runoff.
Vertical flow
The vertical flow submodel assumes that the soil profile consists of dis-
crete segments that are homogeneous with respect to hydraulic conductivity,
total porosity, and field capacity. The soil profile is broken into as many
as three subprofiles or modeling units. The top subprofiLe is composed of the
seven segments of the evaporative zone, as discussed previously in the sections
on runoff and soil moisture storage, plus one segment for each soil layer
between the evaporative zone and the top barrier soil layer, and one segment
for the top barrier soil layer. The second subprofile consists of one segment
for each soil layer between the top barrier soil layer and the second barrier
soil layer plus one segment for the second barrier soil layer. The third sub-
profile is composed of one segment for each layer below the second barrier soil
layer. The vertical flow submodel simulates vertical water routing and perco-
lation through the top subprofile or modeling unit before repeating the process
for the second and third subprofiles.
The rate of flow downward out of each segment is assumed to follow Darcy's
Law.
, dh fi-,\
q = k -jj- (47)
where
q = rate of flow, inches/day
k = hydraulic conductivity, inches/day
h = gravitational head, inches
1 = length in the direction of flow, inches
Free outflow is assumed from each segment above the barrier soil layer and,
therefore,
dh/dl = 1 (48)
and
q = k (49)
This assumption is reasonable as long as the hydraulic conductivities of the
segments above the barrier soil layer are similar or increase with increasing
depths of the segments.
22
-------
The hydraulic conductivity used in Equations 47 and 49 is a function of
soil moisture and varies from zero to the saturated hydraulic conductivity
value, k . The unsaturated hydraulic conductivity, k , is defined by the
following linear function of soil moisture:
k = k (SM. - MDC)/(UL - MDC) (50)
US!
where
MDC = minimum soil water content, vol/vol, for drainage to occur
The minimum soil water content for drainage to occur is the field capacity for
all soils below the evaporative depth and for all sands and gravels in the
evaporative zone. For agricultural soils and clays in the evaporative zone,
MDC is set to equal the field capacity when the profile is drying and to equal
yesterday's soil water content but not greater than the field capacity when
the profile is wetting.
Routing of moisture from segment to segment is accomplished by a storage
routing procedure computed at the mid-point of the time interval. Mid-point
routing was selected to obtain an accurate and efficient simulation of simul-
taneous incoming and outgoing drainage processes. The mid-point routing pro-
cedure tends to provide relatively smooth, gradual changes that resemble the
actual flow process. This procedure avoids the more abrupt changes that result
from applying the full amount of moisture to a segment at the beginning of the
time step. The process is smoothed further by using time steps that are
shorter than the period of interest.
Mid-point storage routing proceeds as follows. The drainage rate from
segment j can be written as
DR (j + 1) = k (j) (SM (j)-MDC(j))/(UL(j)-MDC(j)) (51)
1 SI
DR.(j + 1) = drainage rate from segment j during time step i,
inches/day
SM.(j) = soil moisture content of segment j at mid-point of the
time step i, inches
This drainage rate can be computed from the equation of continuity.
b.'jz.
where
AS = change in moisture storage in segment between mid-points of
previous and present time steps, inches
I, = inflow to segment during previous time step, inches
23
-------
!„ = inflow to segment during present time step, inches
0, = outflow from segment during previous time step, inches
0« = outflow from segment during present time step, inches
Equation 52 may be rewritten in terms of soil moisture and drainage rates as
follows:
SM (j) - SM (j) = 1/2 [DR (j) + DR (j) - DR (j + 1)
(53)
- DR^U + D]
The outflow drainage terms, DR(j + 1), of Equation 53 should each include a
term for evapotranspiration. Therefore, the change in storage is written as
BALi(j) = [DR±(j) - DRi(j + 1) - ET±(j)] DT (54)
where
BAL.(j) = change in moisture storage in segment j during time step i,
inches
ET.(j) = evapotranspiration rate from segment j during time step i,
inches/day
DT = time step, days
Equation 53 may be rewritten as follows:
SM..(j) = SM^tj) + BAL.._1(j)/2 + BAL.,(j)/2 (55a)
or
SM (j) = SM (j) + BAL (j)/2 +
(55b)
DT
Equation 55b may be substituted into Equation 51 to solve simultaneously for
drainage rate and soil moisture. The resulting drainage is
DR,(j + 1) = 2k. (j) [SM (j) + BAL , (j)/2 + DR. (j)DT/2
i s i l il i
- ETi(j)DT/2 - MDC(j)]/[2(UL(j)-MDC(j)) + kg(j)DT]
Moisture routing proceeds sequentially from the top segment to the bottom
segment, assuming free drainage at the bottom of each segment. An estimate of
infiltration from the SCS runoff equation provides the inflow to the top seg-
ment, and an a priori estimate of drainage from the bottom segment of the sub-
profile is used to obtain a moisture balance in the bottom segment of the
subprofiLe. The percolation from the barrier soil layer of one subprofile is
used as the drainage into the next subprofile. Because drainage into a seg-
ment is dependent only on the segment above, a segment may receive more
24
-------
moisture than it can hold. If the moisture content of a segment is greater
than its total porosity, the excess moisture is added to the segment above it.
In this way, the moisture contents of segments are corrected by backing up
water from bottom to top. If the entire profile becomes saturated, any excess
moisture at the surface is added to the runoff for the day.
After the moisture content of each segment is corrected for excess water
content, the total head or thickness of the water column in the profile is
computed by comparing segment moisture contents with their corresponding total
porosities. The head computation begins at the bottom of the profile. Total
head (TH) in inches is computed as
TH = TS(j) [(SM(j) - FC(j))/(UL(j) - FC(j))] (57)
j=m
where
TS(j) = thickness of the segment j, inches
The heads computed within consecutive segments are accumulated from the lowest
segment above the barrier soil layer, n, of the subprofile. When a segment,
m, that is not saturated is encountered while moving up the subprofile, TH is
set equal to the accumulated head.
The percolation through a barrier soil layer is also computed using
Darcy's Law as given in Equation 47 where
d^ TH + TS(n+l)
dl TS(n+l)
and
TS(n+l) = thickness of the barrier soil layer, inches
Therefore ,
QPERC - *.(„*„ <»>
where
QPERC = percolation rate through the barrier soil layer, inches/day
Lateral Flow
The lateral drainage submodel is based on the Boussinesq equation which
may be written as
25
-------
where
f = dimensionless drainable porosity
t = time, days
h = gravitational head, inches
K = effective saturated lateral hydraulic conductivity, inches/day
x = Lateral position in the direction of drainage, inches
<* = dimensionless slope
R = recharge flux perpendicular to lateral flow, inches/day
The recharge flux is equal to the infiltration rate less the evapotranspira-
tion rate.
For application in the Lateral drainage submodel, a steady-state
assumption,
dh = 0 (6L)
dt
is used. This assumption is justified if the time step is selected suffi-
ciently short so that there is LittLe change in head. With the steady-state
assumption, Equation 60 reduces to
where
y = thickness of water profile at x, inches
= h - ojx
The boundary conditions are
h = 0 at x = 0 (63a)
4^- = 0 at x = L (63b)
dx
where
L = lateral distance from the crest to the drain, inches
Equation 62 was Linearized by Skaggs (6) to the following form:
2Ky(y + e*L)
QLAT = - ~ -- (64)
L
26
-------
where
y = thickness of water profile above barrier soil at crest, inches
y = average thickness of water profile above barrier soil layer
between x = 0 and x = L, inches
QLAT = lateral drainage rate, inches/day
The lateral hydraulic conductivity of a multilayered subprofile is com-
puted as follows:
m
ks(J)
(65)
m
E
j=n
where
d(j) = thickness of saturated soil in segment j, inches
n = number of segment directly above barrier soil layer
m = number of segment containing the surface of the saturated soil
or top of the water profile in the soil subprofile
Although Skaggs (6) used an elliptical profile in the linearization of
Equation 62, the shape of the profile deviates from an ellipse as y, L, and en
vary. To provide accurate estimates of lateral drainage rate for <* in the
range of 0 to 10 percent, L from 25 ft to 200 ft, and y as large as five feet,
a correction factor was developed to adjust Equation 64 to agree with numeri-
cal solutions of the Boussinesq equation (Equation 60). With the correction
factor, Equation 64 may be written as
2C Ky (y +p,L)
QLAT = -2 (66)
L"
where
Cl = 0.510 + 0.00205e*L (67)
and
L = drainage distance, inches
The variable, y , is unknown during the simulation; therefore, a relationship
between y and y was developed of the following form:
Y0 = C2 y (68)
27
-------
where
0.16
(69)
(.i)
VaL/
Therefore, the final form of Equation 64 is
2 (0.510 + 0.00205 aL) Ky
V W +
L
Linkage Between Vertical and Lateral Flow Submodels
Two assumptions are used to link the vertical and lateral flow submodels:
1) The steady-state assumption that change in head is not a function
of time and
2) That the drainage rate estimated at the mid-point of the time inter-
val is effective throughout the time interval.
For these assumptions to hold, the computational time interval must be suffi-
ciently small so there is little change in head. Because the magnitude of
change in head with time (8h/9t) increases with increasing head, as shown in
Figure 5, the computational time step in the model is set to provide accept-
able accuracy for most of the expected values of head. The accuracy of esti-
mating percolation is not very sensitive to the size of time step because the
percolation rates at higher heads are smaller than the lateral drainage rates
and because the higher heads last for much shorter periods of time than the
lower heads. Therefore, acceptable time steps for lateral drainage are also
acceptable for percolation. As shown in Figure 5, four equal time steps per
day yield acceptable accuracy for heads less than 30 inches.
The second assumption, that the drainage rate at the midpoint of the time
step is applicable throughout the time step, is also dependent on selecting a
time step that is sufficiently small. As shown in Figure 6, nonlinearity is
not a problem when the time step is less than one day.
Convergence Scheme
The drainage rate from the bottom of the profile must be equal to the sum
of lateral flow and vertical percolation. The two flow submodels are aligned
by an iterative procedure that works as follows:
1) An a_ priori estimate of the drainage rate from the bottom profile
segment is obtained; on the first iteration this is estimated to be
the drainage rate from the previous time step.
2) A moisture balance is computed for each profile segment.
28
-------
.040
for 15 days
for 16 days
for 17 days
for 17 days
for 18 days
O
12468
TIMESTEPS PER DAY
.040
— .030
-020
a:
o
cc.
• I timestep
4 timesteps
X 12 timesteps
2O 30 40
for 15-18 DAY DRAINAGE PERIOD
10
AVERAGE 7
12" Sand loyer, k = 340 in/day, f = .07
48" Loom loyer , k = 3.4 in/day , f = .15
24" Clay loyer, k = ,0034 in/day, f = 0
50
Figure 5. Error in lateral drainage computation as a function of
interval period and head.
29
-------
fsond = .07 ksand = 340 in/day
8 -'5 k,oam= 3,4 in/day
L = 1800 in slope = .03
loam above 12 of sand
I I I I I l l
2345678
9 10 I I 1213 14 15 16 17 18 19 20
DAYS
Figure 6. Extent of nonLinearity in drainage curves.
-------
3) The average head for the profile (y) and the effective lateral con-
ductivity K are computed.
4) Lateral flow and percolation through the barrier layer are computed,
and
5) If the sum of lateral flow and vertical percolation is not accept-
ably close (± 5 percent) to the initial estimate of drainage rate
used in step 1, a new estimate is obtained, and the new estimate of
drainage rate is returned to step 1. If the convergence criterion
is met, summaries are obtained and computation begins on the next
time step.
The new estimate of drainage rate, referred to in step 5, is obtained by
comparing the previous estimate with the computed value for the sum of lateral
flow and percolation. If the computed rate is too high, it is used as the top
of an acceptable range of values, and it is averaged with the previous low
estimate. If the computed value is too low, it is taken as the bottom of the
range and is averaged witli the previous high estimate. In this way, the best
estimate is approached from one side at a time. When consecutive estimates
are acceptably close (<5 percent), the iteration is ended.
LIMITATIONS, ASSb'MPTIONS, AND CONSTANTS
The HELP model is a deterministic , quasi-two dimensional model that devel-
ops a long-term water balance based on historical or simulated daily rainfall
records. The HELP model is no more complex than a manual tabulation of mois-
ture balance, but the HEIP model makes available a more complete data base and
a state-of-the-art system for computing an accurate water budget over a wide
variety of climatic, soil, and vegetative conditions. Infiltration of water
through the soil surface is calculated using the SCS runoff curve number tech-
nique. The SCS technique relates runoff to soil type, land use, soil slope,
and management practices using daily rainfall records. Hie actual rainfall
intensity, duration, and distribution are not considered. Factors such as
slope and surface roughness, which would be important if individual rainfall
or storm events were used, are considered in the context of the land use/land
management factors used in the selection of the SCS runoff curve number. The
SCS technique developed for watersheds and large plots of land is assumed to
provide good estimates of infiltration for landfills. The retention parameter,
S, used to calculate the runoff curve number, can be computed from a depth-
weighted average of soil moisture in the soil profile.
The evapotranspiration submodel is based on a modified Penman relation-
ship which relates evapotranspiration to the available energy based on daily
temperature and daily solar radiation. The model does not use actual daily
temperature and solar radiation values; instead, mean daily temperature and
solar radiation values interpolated from mean monthly temperature and solar
radiation data are used. Similarly, daily leaf area indices, the other main
variable controlling evapotranspiration, art- interpolated from 13 values scat-
tered throughout the year. Consequently, calculated daily evapotranspiration
31
-------
values may be quite different from actual daily values. However, computed and
actual monthly and annual totals of the daily evapotranspiration should be
similar.
The vertical water routing, percolation, and lateral drainage submodels
contain several assumptions. Drainable volume of water in soil can be defined
by an estimate of field capacity and total porosity. Drainable soil water,
that in excess of field capacity, drains freely through the soil profile at a
rate defined by Darcy's Law with a hydraulic gradient equal to one and a
hydraulic conductivity that is a function of soil moisture content. The unsat-
urated hydraulic conductivity is assumed to be a linear function of soil mois-
ture between total porosity and minimum storage capacity for drainage.
Because Darcy's Law is assumed, there can be no direct channels to quickly
route water vertically from the surface to the water table. Water in excess
of the total porosity of a segment is assumed to belong to the segment above.
Excess water from the top segment is added to the surface runoff for the time
step. Vertical routing, lateral drainage, and percolation through a barrier
soil layer occur at a uniform rate through the time step. Equal amounts of
infiltration and evapotranspiration occur in each time step within a day. The
lateral drainage and vertical percolation are assumed to be at steady-state,
i.e., head is constant during a time step. The approximation to the Boussinesq
equation developed by Skaggs (6) for the range of design specifications for
landfills is assumed to estimate lateral drainage adequately when used with
appropriate correction factors. Barrier soil layers remain saturated and
percolation through barrier soil layers is not restricted or aided by segments
below the barrier soil.
The model uses several simplifying assumptions and assigns constants for
several variables. Table 1 contains the constants used in modeling the hydro-
logic processes. Table 2 lists the variables which are assigned values when
default soil data input is used. Correction factors, which adjust the default
hydraulic conductivity of the top layer for the various vegetation types, are
also listed in Table 2. Table 2 also contains the coefficients that are used
to calculate the default runoff curve numbers as a function of vegetation.
The model assumes that vegetation has no other effects on the soil character-
istics, such as porosity, field capacity, and wilting point. The model also
assumes that surface runon does not occur, and that the water table is below
the landfill. The model does not simulate the effects of aging on the landfill
system and, therefore, the simulation run demonstrates the range and frequency
of results for a given condition of the landfill. When using an impermeable
liner, a leakage fraction is used by permitting only that fraction of the
potential daily percolation through a barrier soil layer to actually percolate
on that day. This use oi leakage fraction is identical to the effect of
reducing the hydraulic conductivity of the barrier soil. Typical leaf area
indices used in the default climatological data for excellent grass and a good
row crop are listed in Table 3. Winter cover factors and correction factors
for poorer stands of vegetation are also given in Table 3.
32
-------
TABLE 1. CONSTANTS USED IN HELP MODEL
Constant
Value Used
Functions
AB
0.2 S
SWUL(j) WP(j) + FC(j)
2
for j S 7
FC(j) for j > 7
GRITS WP + 0.1 AWC
GMA 0.68
ALB 0.23
The initial abstraction for SCS curve number method
accounts for losses of water (interception) before
infiltration or runoff occurs, where S is the
retention parameter.
The initial soil water content of the top seven
segments is assumed to be halfway between the wilt-
ing point and the field capacity. The soil water
contents of all other segments start at field
capacity.
The soil water content below which plant growth is
stopped is assumed to be the wilting point plus
one-tenth of the plant available water capacity.
The psychrometric constant is used in computing
evapotranspiration.
The albedo for solar radiation is used in computing
evapotranspiration.
33
-------
TABLE 2. SOIL VARIABLES FOR DEFAULT SOIL DATA INPUT
Variables
Functions
XRC(KSOILn)
XPOROS(KSOILn)
XCON(KSOILn)
XFC(KSOILn)
XMIR(KSOILn)
XWP(KSOIL)
RC(n) = XRC(KSOILn)/20
CON(n) -3.1
PORO(n) =0.75 XPOROS(KSOILn)
FC(n) =0.75 XFC(KSOILn) +
0.25 XWP(KSOILn)
CORECT(KVEG)
XAO(KVEG)
XA1(KVEG)
XA2(KVEG)
These six variables are taken directly from
Table 10 according to the soil type (KSOILn)
selected for layer n
Where
XRC = hydraulic conductivity
XPOROS = porosity
XCON = evaporation coefficient
XFC = field capacity
XMIR = minimum infiltration rate
XWP = wilting point
These four variables are affected when soil
layer n is compacted
Where
RC(n) = hydraulic conductivity of layer n
CON(n) = evaporation coefficient of layer n
PORO(n) = porosity of layer n
FC(n) = field capacity of Layer n
This factor corrects RC(1) for vegetation in
the vegetative layer of the soil cover. The
hydraulic conductivity RC(1) becomes the
effective hydraulic conductivity when multi-
plied by the appropriate coefficient for the
vegetation type, KVEG, which is 1.0, 5.0, 4.2,
3.0, 1.8, 1.9, and 1.5 for bareground, excel-
lent grass, good grass, fair grass, poor grass,
good row crop, and fair row crop, respectively.
These three variables are coefficients used to
calculate the SCS curve number as follows:
CN-AMC II = XAO(KVEG) + XAl(KVEG) XMIR(KSOILl)
+ XA2(KVEG) [XMIR(KSOILl)]
KVEG
1
2
3
4
5
6
7
XAO
97.14
81.49
89.90
90.01
92.18
84.75
93.36
XA1
XA2
-23.57
-58.96
-32.92
-43.12
-25.11
-36.45
-19.21
-50.00
-144.76
-68.05
-48.33
-58.93
-156.30
-67.86
34
-------
TABLE 3. CLIMATOLOGIC CHARACTERISTICS FOR DEFAULT INPUT
Portion of Growing
Sea son
0.0
0.1
0.2
0.3
0.4
0.5
0.6
0.7
0.8
o.y
1.0
Excellent
Grass
Winter 1.8
LAI of Actively
Excellent Grass
0.00
1.84
3.00
3.00
3.00
3.00
3.00
2.70
1.96
0.96
0.50
Winter Cover Factors,
Good Fair Poor
Grass Grass Grass
1.2 0.6 0.3
Transpiring Vegetation
Good Row Crop
0.00
0.15
0.40
2.18
2.97
3.00
2.96
2.92
2.30
1.15
0.50
GR
Row
Crops Bareg round
0.0 0.0
Note: XGR is a factor to correct the LAI values for poorer stands of vegeta-
tion. The above values are multiplied by 1.0, 0.67, 0.33, 0.17, 1.0,
0.5, and 0.0 for excellent grass, good grass, fair grass, poor grass,
good row crop, poor row crop, and bareground, respectively.
35
-------
SECTION 3
PROGRAM DOCUMENTATION
PROGRAM CAPABILITIES AND DATA INPUT
The HELP model is a quasi-two-dimensional, deterministic, computer-based
water budget for landfills. The model performs a daily sequential analysis to
estimate runoff, evapotranspiration, lateral drainage, percolation, and water
storage from daily precipitation data. The model can handle water routing
through or storage in up to nine soil or waste layers; as many as three of the
layers may be barrier soil or restrictive layers. The simulation period can
range from 2 to 20 years.
The model has limits on the order that layers can be arranged in the land-
fill profile. As discussed in Section 2, each layer must be described as being
one of four types: vertical percolation, lateral drainage, waste, and barrier
soil. The model does not permit a vertical percolation layer or a waste layer
to be placed below a lateral drainage layer. A barrier soil layer may not be
placed directly below another barrier soil layer. The top layer may not be a
barrier soil layer. If a barrier soil layer is not placed directly below the
lowest lateral drainage layer, the lateral drainage layers in the lowest sub-
profile are treated by the model as vertical percolation layers. No other
restrictions are placed on the order of the layers.
The lateral drainage equation was developed for the expected range of
hazardous waste landfill design specifications. Permissible ranges for slope
and maximum drainage length of the drainage layer are 0 to 10 percent and 25
to 200 feet. Accurate estimates of the lateral drainage rate were obtained
for heads up to 5 feet on the base of the drainage layer or on the top of the
barrier layer.
Several other design variables have limits for the values which may be
specified. The SCS runoff curve number for AMC-II can range between 20 and
100. SCS runoff curve numbers may be selected by the procedures outlined in
the National Engineering Handbook (4). The liner leakage fraction and the
fraction of potential runoff for open sites can range between 0 and 1.
Several relationships must exist between the soil characteristics of a
layer and of the soil subprofile. The porosity, field capacity, and wilting
can theoretically range from 0 to 1 in units of volume per volume, but the
porosity must be greater than the field capacity and the field capacity must
be greater than the wilting point. The relation between soil type and soil
characteristics is shown in Figure 7. Typical values for various soils are
listed in Table 10 which contains the default soil characteristics (14, 15,
16).
36
-------
0.30
3.60
^.- .-...„ «..„. .„,* ...,-....,. s . UNAVAILABLE WATER',,,.
SAND
SANDY
LOAM
LOAM
SILT
LOAM
CLAY
LOAM
CLAY
DECREASING HYDRAULIC CONDUCTIVITY
Figure 7. General relation between soil-water, soil texture,
and hydraulic conductivity (14).
The hydraulic conductivities of the layers of a subprofile above a barrier soil
layer should increase with increasing depth or at worst be similar (within an
order of magnitude) to the layers above. nThe evaporation or water transmis-
sivity coefficient ranges from 3.1 mm/day " for compacted soils of low trans-
missivity to 3.3 for sands to about 5.5 for highly organic soils (3, 7). The
coefficient must be greater than 3 mm/day " . Several of the soil character-
istics for some layers are not used by the model; these include the porosity,
wilting point, and evaporation coefficient of barrier soil layers, and the
wilting point and evaporation coefficients of all layers below the evaporative
zone.
The only climatologic variables that have limited ranges of values are
the leaf area index and winter cover factor. Leaf area indices may range from
0 to 3 where zero is bareground and three represents the maximum possible vege-
tative cover. The leaf area index is the ratio of the leaf area of vegetation
to the soil surface area. Typical leaf area indices for various vegetative
covers are listed in Tables 3 and 4 (3). The annual leaf area index distribu-
tions in the tables are normalized by the growing season at the location of
interest. Typical growing seasons are available in various references includ-
ing the U.S. Department of Agriculture publication, "Climate and Man, Year-
book of Agriculture" (17). The winter cover factor is defined in terms of leaf
area index.
37
-------
TABLE 4. TYPICAL LEAF AREA INDEX DISTRIBUTIONS FOR VARIOUS VEGETATIVE COVERS
Portion of Growing
Season
0.0
0.1
0.2
0.3
0.4
0.5
0.6
0.7
0.8
o.y
1.0
Corn
0.00
0.09
0.19
0.23
0.49
1.16
2.97
3.00
2.72
1.83
0.00
Oats
0.00
0.42
0.84
0.90
0.90
0.98
2.62
3.00
3.00
3.00
0.00
LAI*
Wheat
0.00
0.47
0.90
0.90
0.90
0.90
1.62
3.00
3.00
0.96
0.00
Grass
0.00
1.84
3.00
3.00
3.00
3.00
3.00
2.70
1.96
0.96
0.50
Soybeans
0.00
0.15
0.40
2.18
2.97
3.00
2.96
2.92
2.30
1.15
0.50
* LAI values for good crops and excellent grass stands.
Extracted: from Knisel (3).
38
-------
Sources for other climatologic variables are readily available. Precipi-
tation and temperature data are available from local libraries and from the
National Weather Service through the Director of the National Climatic Center,
NOAA, Federal Building, Asheville, N.C. 28801. Mean monthly solar radiation
(insolation) values can be obtained from the "Climatic Atlas of the
United States" (18) and from Table 2 of the HSSWDS User's Guide (1) for
selected cities.
PROGRAM OPTIONS
The program has options only in the input and output routines. Climato-
logic data and soil characteristics may be specified by the user or selected
from default data bases. Several other options are also available in the
input routines as will be discussed below. Design data must be specified by
the user. The optional output routines provide summaries of daily values,
monthly totals and annual totals of various simulation variables. Average
monthly and annual totals, and peak daily values are produced for all simula-
tions.
Input Options
Climatologic data may be specified by either manual or default options.
Five years of default precipitation data are available for 102 cities, as are
one set of monthly mean temperatures and solar radiation, winter cover factor,
and leaf area indices for each city. This set of climatoLogic data, other
than precipitation, is used for each of the five years of precipitation data.
If the manual option is used, the user has the option of supplying one set of
any climatologic variable except precipitation which would be used for all
years of simulation, or the user can specify a separate set of values for each
year of simulation. The manual option also provides the user with optional
routines to check or correct the values previously specified. The user does
not need to enter the years of precipitation data in chronological order since
the program sorts the years and arranges them in increasing chronological
order. The program skips over years without data during the simulation.
Soil characteristics may also be specified by either manual or default
options. With both options the design data are specified by the user. In the
default option the user may override the default runoff curve number by speci-
fying a curve number. The manual soil characteristics input option provides
the user with routines to check or correct previously specified values or pre-
viously selected values from the default data base.
Output Options
Four types of output can be obtained from the program: daily values,
monthly totals, annual totals, and a summary of the simulation. Output of
daily values is optional and includes date, indicator for freezing tempera-
tures, precipitation, runoff, evapotranspiration, total lateral drainage from
all drainage layers in the cap or cover, percolation from the base of the
cover, head on top of the barrier soil layer at the base of the cover, total
lateral drainage from all drainage layers in the waste cell and liner/drain
39
-------
system at the base of the landfill, percolation from the base of the landfill,
head on top of the barrier soil layer at the base of the landfill, and soil
water content of the evaporative zone. Output of monthly totals is also
optional. The totals of the daily values for each month are given for the
following variables: precipitation, runoff, evapotranspiration, lateral
drainage from each subprofile, and percolation through the bottom of each sub-
profile. Output of daily values and monthly totals are output options only
when detailed output is requested. Detailed ouput always includes annual
totals of the variables listed for monthly output and a summary. The summary
of the simulation is always produced, and includes monthly and annual aver-
ages, and peak daily values for the variables listed for the optional output
along with several other variables. The variables are described later in this
section of the documentation.
INPUT VARIABLES
Three types of input are used in the model: climatologic, soil, and
design data. Tables 5 and 7 list the cLimatologic input variables for the
manual and default options, respectively. The manual and default input vari-
ables for soil characteristics are given in Tables 8 and 9, respectively, and
Table 10 lists the design variables. The HELP User's Guide (19) provides a
more complete discussion of input requirements.
Manual Climatologic Input
Climatologic variables are shown in Table 5. The user may specify from 2
to 20 years of daily precipitation values, one year for each year of simula-
tion desired. Twelve monthly mean temperatures and twelve monthly mean solar
radiation values may be specified for one year or each year of simulation.
Thirteen leaf area indices, the corresponding Julian dates, and a winter cover
factor may also be specified for one year or each year of simulation. Only
one evaporative zone depth may be specified for the simulation.
Default Climatologic Input
The model stores default climatologic data for 102 cities. By specifying
the desired state and city from Table 6, the user is supplied daily precipita-
tion data for years 1974 through 1978, one set of monthly mean temperature and
solar radiation values, and sets of leaf area indices and winter cover factors
for a good row crop and an excellent stand of grass. Actual leaf area indices
and winter cover factor used during the simulation are selected or corrected
from the default sets after the vegetation type is specified; the correction
factors are given in Table 3. The input variables are summarized in Table 7.
Manual Soil Data Input
Soil characteristics must be specified for each layer in the design. The
required characteristics, listed in Table 8, include porosity, field capacity,
wilting point, evaporation coefficient, and hydraulic conductivity.
40
-------
TABLE 5. MANUAL CLIMATOLOGIC INPUT
Variables
Functions
NYEAR
TEMP(M)
RADI(M)
GR
LDAY13(K)
XLAI13(K)
The year of the precipitation data to be entered.
The daily precipitation values in inches where I is the
number of the year of data being entered (between 1 and
20), J is the line number for the year of data being
entered (between 1 and 37), and K is the number of the
value on the line of data being entered (between 1 and
10).
The monthly mean temperatures in degrees Fahrenheit where
M is the number of the month (between 1 and 12).
The monthly mean solar radiation values in langleys where
M is the number of the month (between 1 and 12).
The winter cover factor.
The Julian date of the leaf area index values where K is
the number of the value (between 1 and 13).
The leaf area index value where K is the number of the
value (between 1 and 13).
RDRPTH
The evaporative zone depth in inches.
41
-------
TABLE 6. LISTING OF DEFAULT CITIES AND STATES
Default Data
Alaska
Annette
Bethel
Fairbanks
Arizona
Flagstaff
Phoenix
Tucson
Arkansas
Little Rock
California
Fresno
Los Angeles
Sacramento
San Diego
Santa Maria
Colorado
Denver
Grand Junction
Connecticut
Bridgeport
Hartford
New Haven
Florida
Jacksonville
Miami
Orlando
Tallahassee
Tampa
W. Palm Beach
Georgia
Atlanta
Watkinsville
Hawa i i
Honolulu
Idaho
Boise
Pocatello
is Provided Only for
Illinois
Chicago
E. St. Louis
Indiana
Indianapolis
Iowa
Des Moines
Kansas
Dodge City
Topeka
Kentucky
Lexington
Louisiana
Lake Charles
New Orleans
Shreveport
Maine
Augusta
Bangor
Caribou
Portland
Massachusetts
Boston
Plainf ield
Worcester
Michigan
E. Lansing
Sault Ste. Marie
Minnesota
St. Cloud
Missouri
Columbia
Glasgow
Great Falls
Nebraska
the Following Cities
Nevada
Ely
Las Vegas
New Hampshire
Concord
Nashua
New Jersey
Edison
Seabrook
New Mexico
Albuquerque
New York
Central Park
Ithaca
New York City
Schenectady
Syracuse
North Carolina
Greensboro
North Dakota
Bismarck
Ohio
Cincinnati
Cleveland
Columbus
Put-in-Bay
Oklahoma
Oklahoma City
Tulsa
Oregon
Astoria
Medford
Portland
Pennsylvania
Philadelphia
Pittsburgh
and States
Rhode Island
Providence
South Carolina
Charleston
South Dakota
Rapid City
Tennessee
Knoxville
Nashvil l.e
Texas
Brownsville
Dallas
El Paso
Midland
San Antonio
Utah
Cedar City
Salt Lake City
Vermont
Burl ington
Montpelier
Rn 1- I and
*\Ll L J-dLlU
Virginia
Lynchburg
Norfolk
Washington
Pul Iman
Seattle
Yakima
Wisconsin
Madison
Wyoming
Cheyenne
Lander
Puerto Rico
San Juan
Grand Island
North Omaha
42
-------
Variable
KCITY
KSTATE
KVEG
RDEPTH
TABLE
The
The
The
The
7. DEFAULT CLIMATOLOGIC INPUT VARIABLES
Function
name of a city given in Table 6.
name of a state given in Table 6.
vegetation type (between 1 and 7).
evaporative zone depth in inches.
TABLE
8. MANUAL SOIL CHARACTERISTICS INPUT
Variable
PORO(ILAY)
FC(ILAY)
WP(ILAY)
RC(ILAY)
Function
The porosity of soil Layer ILAY in vol/vol where ILAY is the
number of the layer from the top (between 1 and 9) .
The field capacity of soil layer ILAY in vol/vol.
The wilting point of soil layer TLAY in vol/voL.
The saturated hydraulic conductivity of soil layer ILAY in
CON(ILAY)
inches/hr.
The evaporation coefficient of soil layer ILAY in mm/day ' .
-------
Default Soil Data Input
The default soil characteristics are listed in Table 9. The only vari-
able used to obtain default soil characteristics is the number of the soil
type or texture. Default soil characteristics are provided for 21 textures.
The numbered soil textures, labeled KSOIL in the program, and their corre-
sponding soil characteristics are listed in Table 10. Soil texture numbers 22
and 23 are used to specify characteristics manually.
Design Data Input
The design variables given in Table 11 describe the landfill system.
These variables include the number of layers, the thickness of each layer, a
descriptor for each layer, the slope and maximum drainage distance at the base
of each drainage system, and the total surface area of the landfill. Three
other design variables may also be required: the SCS runoff curve number for
antecedent moisture condition II, the liner leakage fraction, and the open
waste cell potential runoff fraction. The SCS runoff curve number is optional
for default soil characteristics input except when the waste cell is open; the
curve number is required for manual input of soil characteristics. The liner
leakage fraction must be specified whenever a synthetic liner is used in the
design. The potential runoff fraction for open sites is used when the top
layer is a waste layer.
OUTPUT VARIABLES
The output is composed of input information and simulation results. All
of the input data except daily precipitation values are always reported; daily
precipitation values are printed only when the daily output option is used.
This section presents only a discussion of output variables for simulation
results.
Daily Output
The variables for daily output are listed in Table 12. All of these var-
iables, except precipitation, are computed daily. Daily values for precipita-
tion, runoff, evapotranspiration, percolation, and drainage are used to com-
pute the monthly and annual totals. Due to the limited number of variables
which can be printed across a page, daily values of drainage and percolation
from each subprofile are not always printed for each simulation. Lateral
drainage values for all subprofiles completely above the top waste layer are
totaled and called cover drainage; lateral drainage values from all other sub-
profiles are also totaled and reported as base drainage. Percolation values
are given only for subprofiles containing either the base of the cover or the
base of the landfill. These two percolation values represent the daily
amounts of percolation through the base of the cover and through the base of
the landfill. Only two heads are reported; the heads on barrier layers at the
base of the cover and at the base of the landfill.
44
-------
TABLE 9. DEFAULT SOIL CHARACTERISTICS INPUT
Variable
Function
KSOIL(ILAY) The soil texture number (between 1 and 23) for soil layer
ILAY where ILAY is the number of the layer from the top
(between 1 and 9).
PORO(ILAY) The user-specified porosity of soil layer ILAY in vol/vol
for soil textures 22 and 23.
FC(ILAY) The user-specified field capacity of soil layer ILAY in
vol/vol for soil textures 22 and 23.
WP(ILAY) The user-specified wilting point of soil layer ILAY in
vol/vol for soil textures 22 and 23.
RC(ILAY) The user-specified hydraulic conductivity of soil layer ILAY
in inches/hr for soil textures 22 and 23.
CON(ILAY) The user-specified evaporation coefficient of soil layer
ILAY in mm/day ' for soil textures 22 and 23.
45
-------
TABLE 10. DEFAULT SOIL CHARACTERISTICS
Soil
HELP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Texture
USDA
CoS
CoSL
S
FS
LS
LFS
LVFS
SL
FSL
VFSL
L
SIL
SCL
CL
SICL
SC
SIC
C
Waste
Barrier
Barrier
Class
uses
GS
GP
SW
SM
SM
SM
SM
SM
SM
MH
ML
ML
SC
CL
CL
CH
CH
CH
Soil
Soil
MIR*
in/hr
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
.500
.450
.400
.390
.380
.340
.320
.300
.250
.250
.200
.170
.110
.090
.070
.060
.020
.010
.230
.002
.001
Porosity
Vol/Vol
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
351
376
389
371
430
401
421
442
458
511
521
535
453
582
588
572
592
680
520
520
520
Field
Capacity
Vol/Vol
0.174
0.218
0.199
0.172
0.160
0.129
0.176
0.256
0.223
0.301
0.377
0.421
0.319
0.452
0.504
0.456
0.501
0.607
0.320
0.450
0.480
Wilting
Point
Vol/Vol
0.107
0.131
0.066
0.050
0.060
0.075
0.090
0.133
0.092
0.184
0.221
0.222
0.200
0.325
0.355
0.378
0.378
0.492
0.190
0.360
0.400
Hydraulic
Conductivity
in/hr
11.95
7.090
6.620
5.400
2.780
1.000
0.910
0.670
0.550
0.330
0.210
0.110
0.084
0.065
0.041
0.065
0.033
0.022
0.283
0.000142
0.0000142
CON**
mm/day
3.
3.
3.
3.
3.
3.
3.
3.
4.
5.
4.
5.
4.
3.
4.
3.
3.
3.
3.
3.
3.
3
3
3
3
4
3
4
8
5
0
5
0
7
9
2
6
8
5
3
1
1
* MIR = Minimum Infiltration Rate
** CON = Evaporation Coefficient
46
-------
TABLE 11. DESIGN DATA INPUT
Variable
Function
LAY
THICK(ILAY)
LAYER(ILAY)
FLEAK
FRUNOF
CN2
TAREA
SLOPE(ILAY)
XLENG(ILAY)
The number of soil layers.
The thickness of soil layer ILAY in inches where ILAY
is the number of the layer from the top (between 1
and 9.
The descriptor of soil layer ILAY (between 1 and 5).
The leakage fraction through the synthetic liner
(between 0 and 1).
The potential runoff fraction for open sites (between
0 and 1).
The SCS runoff curve number for antecedent moisture
condition II (between 20 and 100) (optional if default
soil characteristics are used).
The surface area of the landfill in square feet.
The slope at the base of soil layer ILAY in percent.
The maximum drainage distance at the base of soil layer
ILAY in feet.
47
-------
TABLE 12. DAILY OUTPUT VARIABLES
Variable
Function
IDA
NSTAR
PRE(IDA)
RUN
ETT
CHED
CPRC
CORN
BHED
BPRC
BDRN
SW
The Julian date.
An indicator that the mean temperature is below 32°F.
The daily precipitation value in inches.
The daily runoff in inches.
The daily evapotranspiration in inches.
The head on the base of the cover in inches.
The percolation through the base of the cover in
inches.
The lateral drainage from the cover in inches.
The head on the base of the landfill in inches.
The percolation through the base of the landfill in
inches.
The lateral drainage beneath the cover of the landfill
in inches.
The soil water content in the evaporative zone in
vol/vol.
48
-------
Monthly Totals
Daily values for the variables listed in Table 13 are totaled for each
month to show monthly effects on the water budget. These values are averaged
by month for all years of simulation. The output of each year of monthly
totals is optional.
Annual Totals
Daily values for the variables listed in Table 14 are totaled for each
year to show yearly effects on the water budget. Several variables are also
reported to permit computation of the change in water storage in the Landfill
profile and to check that all of the water added to the profile has been
accounted. The water budget check should equal zero if all computations were
performed precisely. The percent values are computed as the percent of the
annual precipitation. The reported annual totals are averaged with the totals
of the other years of simulation to obtain the average results of the
simulation.
Averages
The averaged monthly and annual totals of water budget components
reported by the program are listed in Table 15. The values are obtained by
computing the arithmetic mean of totals from the various years of simulation.
Peak Daily Values
Peak daily values are reported for the variables listed in Table 16 to
provide information for sizing collection and treatment facilities for runoff
and drainage, and for evaluating the landfill design.
49
-------
TABLE 13. OUTPUT OF MONTHLY TOTALS
Variable
Function
PREM(J)
RUNM(J)
ETM(J)
PRC3M(J)
DRN3M(J)
PRC2M(J)
DRN2M(J)
PRCIM(J)
DRNIM(J)
The total precipitation, in inches, during month J where J
is the number of the month (between 1 and 240).
The total runoff, in inches, during month J.
The total evapotranspiration, in inches, during month J.
The total percolation, in inches, through the base of the
top subprofile during month J.
The total lateral drainage, in inches, from the top sub-
profile during month J.
The total percolation, in inches, through the base of the
second subprofile from the top during month J.
The total lateral drainage, in inches, from the second sub-
profile from the top during month J.
The total percolation, in inches, through the base of the
third subprofile from the top during month J.
The lateral drainage, in inches, from the third subprofile
from the top during month J.
50
-------
TABLE 14. OUTPUT OF ANNUAL TOTALS
Variable
Function
PREA(IYR)
TPREA
FPREA
RUNA(IYR)
TRUNA
FRUNA
ETA(IYR)
TETA
FETA
PRC3A(IYR)
TPRC3A
FPRC3A
DRN3A(IYR)
TDRN3A
FDRN3A
PRC2A(IYR)
The total precipitation, in inches, during year IYR where
IYR is the number of the year (between 1 and 20).
The total precipitation, in cu. ft., during year IYR.
The total precipitation, in percent of the total precipita-
tion.
The total runoff, in inches, during year IYR.
The total runoff, in cu. ft., during year IYR.
The total runoff during year IYR, in percent of the total
precipitation during year IYR.
The total evapotranspiration, in inches, during year IYR.
The total evapotranspiration, in cu. ft., during year IYR.
The total evapotranspiration during year IYR, in percent of
the total precipitation during year IYR.
The total percolation, in inches, through the base of the
top subprofile during year IYR.
The total percolation, in cu. ft., through the base of the
top subprofile during year IYR.
The total percolation through the base of the top subprofile
during year IYR, in percent of the total precipitation
during year IYR.
The total lateral drainage from the top subprofile, in
inches, during year IYR.
The total lateral drainage from the top subprofile, in
cu. ft., during year IYR.
The total lateral drainage from the top subprofile during
year IYR, in percent of the total precipitation during year
IYR.
The total percolation, in inches, through the base of the
second subprofile from the top during year IYR.
(Continued)
51
-------
TABLE 14. (Continued)
Variable
Function
TPRC2A
FPRC2A
total
DRN2A(IYR)
TDRN2A
FDRN2A
PRCIA(IYR)
TPRC1A
FPRC1A
DRNIA(IYR)
TDRN1A
FDRN1A
OSWULE
TOSW
PSWULE
The total percolation, in cu. ft., through the base of the
second subprofile from the top during year IYR.
The total percolation through the base of the second sub-
profile from the top during year IYR, in percent of the
precipitation during year IYR.
The total lateral drainage from the second subprofile from
the top, in inches, during year IYR.
The total lateral drainage from the second subprofile from
the top, in cu. ft., during year IYR.
The total lateral drainage from the second subprofile from
the top during year IYR, in percent of the total precipita-
tion during year IYR.
The total percolation, in inches, through the base of the
third subprofile from the top during year IYR.
The total percolation, in cu. ft., through the base of the
third subprofile from the top during year IYR.
The total percolation through the base of the third subpro-
file from the top during year IYR, in percent of the total
precipitation during year IYR.
The total lateral drainage from the third subprofile from
the top, in inches, during year IYR.
The total lateral drainage from the third subprofile from
the top, in cu. ft., during year IYR.
The total lateral drainage from the third subprofile from
the top during year IYR, in percent of the total precipi-
tation during year IYR.
The total soil water storage in the landfill at the begin-
ning of year IYR, in inches.
The total soil water storage in the landfill at the begin-
ning of year IYR, in cu. ft.
The total soil water storage in the landfill at the end of
year IYR, in inches.
(Continued)
52
-------
TABLE 14. (Concluded)
Variable
Function
TPSW
OLDSNO
TOSNO
SNO
TSNO
BAL(IYR)
TBAL
FBAL
The total soil water storage in the landfill at the end of
year 1YR, in cu. ft.
The total snow water present at the beginning of year IYR,
in inches.
The total snow water present at the beginning of year IYR,
in cu. ft.
The total snow water present at the end of year IYR, in
inches.
The total snow water present at the end of year IYR, in
cu. ft.
The water budget balance for year IYR, in inches.
The water budget balance for year IYR, in cu. ft.
The water budget balance for year IYR, in percent of the
total precipitation during year IYR.
53
-------
TABLE 15. OUTPUT OF AVERAGE VALUES
Variable
Function
APREM(J)
ARUNM(J)
AETM(J)
APRC3M(J)
ADRN3M(J)
APRC2M(J)
ADRN2M(J)
APRCIM(J)
ADRNIM(J)
APREA
TAPREA
FAPREA
ARUNA
The average monthly precipitation, in inches, for month J of
the simulation period where J is one of the twelve months of
a year.
The average monthly runoff, in inches, for month J of the
simulation period.
The average monthly evapotranspiration, in inches, for month
J of the simulation period.
The average monthly percolation, in inches, through the base
of the top subprofile during month J of the simulation
period.
The average monthly lateral drainage, in inches, from the
top subprofile for month J of the simulation period.
The average monthly percolation, in inches, through the base
of the second subprofile from the top during month J of the
simulation period.
The average monthly lateral drainage, in inches, from the
second subprofile from the top during month J of the simula-
tion period.
The average monthly percolation, in inches, through the base
of the third subprofile from the top during month J of the
simulation period.
The average monthly lateral drainage, in inches, from the
third subprofile from the top during month J of the simula-
tion period.
The average annual precipitation, in inches, for the simula-
tion period.
The average annual precipitation, in cu. ft., for the simu-
lation period.
The average annual precipitation for the simulation period,
in percent of the average annual precipitation for the simu-
lation period.
The average annual runoff, in inches, for the simulation
period.
(Continued)
54
-------
TABLE 15. Continued
Variable
Function
TARUNA
FARUNA
AETA
TAETA
FAETA
APRC3A
TAPC3A
FAPG3A
ADRN3A
TADN3A
FADN3A
APRC2A
TAPC2A
FAPC2A
The average annual runoff, in cu. ft., for the simulation
period.
The average annual runoff for the simulation period, in per-
cent of the average annual precipitation.
The average annual evapotranspiration, in inches, for the
simulation period.
The average annual evapotranspiration, in cu. ft., for the
simulation period.
The average annual evapotranspiration for the simulation
period, in percent of the average annual precipitation.
The average annual percolation, in inches, through the base
of the top subprofile for the simulation period.
The average annual percolation, in cu. ft., through the base
of the top subprofile for the simulation period.
The average annual percolation through the base of the top
subprofile for the simulation period, in percent of the
average annual precipitation.
The average annual lateral drainage, in inches, from the top
subprofile for the simulation period.
The average annual lateral drainage, in cu. ft., from the
top subprofile for the simulation period.
The average annual lateral drainage from the top subprofile
for the simulation period, in percent of the average annual
precipitation.
The average annual percolation, in inches, through the base
of the second subprofile from the top for the simulation
period.
The average annual percolation, in cu. ft., through the base
of the second subprofile from the top for the simulation
period.
The average annual percolation through the base of the
second subprofile from the top for the simulation period,
in percent of the average annual precipitation.
(Continued)
55
-------
TABLE 15. Concluded
Variable Function
ADRN2A The average annual lateral drainage, in inches, from the
second subprofile from the top for the simulation period.
TADN2A The average annual lateral drainage, in cu. ft., from the
second subprofile from the top for the simulation period.
FADN2A The average annual lateral drainage from the second subpro-
file from the top for the simulation period, in percent of
the average annual precipitation.
APRC1A The average annual percolation, in inches, through the base
of the third subprofile from the top for the simulation
period.
TAPC1A The average annual percolation, in cu. ft., through the base
of the third subprofile from the top for the simulation
period.
FAPC1A The average annual percolation through the base of the third
subprofile from the top for the simulation period, in
percent of the average annual precipitation.
ADRN1A The average annual lateral drainage, in inches, from the
third subprofile from the top for the simulation period.
TADN1A The average annual lateral drainage, in cu. ft., from the
third subprofile from the top for the simulation period.
FADN1A The average annual lateral drainage from the third subpro-
file from the top for the simulation period, in percent of
the average annual precipitation.
56
-------
TABLE 16. OUTPUT OF PEAK DAILY VALUES
Variable
Function
PPRE
TPPRE
PRUN
TPRUN
PPRC3
TPPRC3
PPRC2
TPPRC2
PPRC1
TPPRC1
PSNO
TPSNO
PSW
DSW
The peak daily precipitation value, in inches, for the sim-
ulation period.
The peak daily precipitation value, in cu. ft., for the
simulation period.
The peak daily runoff value, in inches, for the simulation
period.
The peak daily runoff value, in cu. ft., for the simulation
period.
The peak daily percolation, in inches, through the base of
the top subprofile for the simulation period.
The peak daily percolation, in cu. ft., through the base of
the top subprofile for the simulation period.
The peak daily percolation, in inches, through the base of
the second subprofile from the top for the simulation
period.
The peak daily percolation, in cu. ft., through the base of
the second subprofile from the top for the simulation
period.
The peak daily percolation, in inches, through the base of
the third subprofile from the top for the simulation period.
The peak daily percolation, in cu. ft., through the base of
the third subprofile from the top for the simulation period.
The peak daily snow water, in inches, present during the
simulation period.
The peak daily snow water, in cu. ft., present during the
simulation period.
The peak soil water content in the evaporative zone, in
vol/vol, during the simulation period.
The minimum soil water content in the evaporative zone, in
vol/vol, during the simulation period.
57
-------
SECTION 4
SYSTEM DOCLTMENTATION
COMPUTER EQUIPMENT
The HELP model consists of approximately 5,000 cards with 80-column card
length. The model is equipped to run on IBM (International Business Machines)
360/370 Extended FORTRAN IV computer systems.
The default clitnatoLogic data file is approximately 24,000 cards with
80 column card length. The model is designed to run with or without the
default climatologic data attached.
PERIPHERAL EQUIPMENT
The following equipment is necessary to run the model in the time-sharing
mode:
telephone
120 voltage electrical outlet
portable computer terminal
The following equipment is necessary to run the model in the batch mode:
keypunch machine 029
card reader/puncher
line printer
SOURCE PROGRAM
The source program listings of the main program and each subroutine are
given in Appendix A.
VARIABLES AND SUBROUTINES
The variables used in the program, the subroutines in which the variables
are used, and the definitions of the variables are presented in Appendix B.
58
-------
DATA STRUCTURES
The data files used by the program and the device numbers, which are used
to read or write information, are listed in Table 17.
(1) The default data file called PRE3 stores five years of daily precip-
itation values, 12 monthly mean temperature values, 12 monthly mean
solar radiation values, 13 leaf area index values for excellent
grass, and 13 leaf area index values for good row crops for
102 cities across the United States. The format for the precipi-
tation data is 10 values per record with 37 records per year. The
formats for temperature and solar radiation are 12 values per
record. The formats for the LAI values are two date values and two
leaf area values per record for 13 records.
(2) The data file called TAPE4 stores the daily precipitation data to be
used in simulation. The maximum storage for the default option is
five years, and the maximum storage for the manual option is
20 years.
(3) The data file called TAPE5 stores the soil characteristics and
design data input from the user.
(4) The data tile called TAPE7 stores monthly mean temperatures to be
used in the simulation.
(5) The data file called TAPES stores the name of the cities and states
available for the default climatologic input option.
(6) The data file called TAPE11 stores the name of the selected city and
state when using the default climatologic input option.
(7) The default data file called TAPE12 stores the soil characteristics
given in Table 10, seven sets of three coefficients to compute the
SCS runoff curve number for the seven vegetation types, and seven
coefficients to adjust the hydraulic conductivity for the presence
of roots in the top layer for the default soil characteristics input
option.
(8) The data file called TAPE13 stores monthly mean solar radiation val-
ues to be used in the simulation.
(9) The data file called TAPE14 stores the leaf area indices to be used
in the simulation.
(10) The data file called TAPE15 stores the winter cover factors to be
used in the simulation.
(11) The data file called TAPE16 stores the evaporative zone depth to be
used in the simulation.
59
-------
TABLE 17. DATA FILES AND DEVICE NUMBERS
Data
(1)
(2)
(3)
(4)
(5)
(6)
(7)
(8)
(9)
(10)
(11)
Files
PRE3
TAPE4
TAPE5
TAPE7
TAPES
TAPE11
TAPE 12
TAPE 13
TAPE 14
TAPE15
TAPE 16
Input
Output
Device No.
9
4
5
7
8
11
12
13
14
15
16
10*
6**
* Device number 10 reads data input from the terminal when the interactive
method is used and it reads data input from cards when the batch method is
used.
** Device number 6 prints output to the terminal when the interactive method
is used and it prints output to the highspeed printer when the batch method
is used.
60
-------
STORAGE REQUIREMENTS
The entire program requires 240K characters or bytes of storage and the
default climatologic data file (PRE3) requires 1520K bytes of storage on the
360/370 configuration of IBM MVS/OS system.
MAINTENANCE AND UPDATE
Maintenance and updates will be provided by authors as needed. There
have not been any updates to date.
61
-------
SECTION 5
OPERATING DOCUMENTATION
OPERATOR INSTRUCTIONS
The program is stored on the 3350/350 disk drive and is operated under
the 360/370 configuration of IBM MVS/OS system of the National Computer Center.
OPERATING MESSAGES
There are two forms of messages: system and program. The system mes-
sages are produced by the IBM 360/370 Computer System. No special programming
messages are produced. If any messages occur while operating the system, con-
tact the authors.
ERROR RECOVERY
The user must rerun the program when a malfunction occurs. If difficulty
is encountered, contact the authors for additional help.
RUN TIME
For the interactive method, execution should occur within seconds of
issuing a command. However, the run time for the batch method depends on the
number of years of daily precipitation entered. A run time of four minutes
should be provided for 20 years of manual climatologic input. To run five
years of simulation with default climatologic input, the run time should not
exceed 30 seconds.
JOB CONTROL CARDS
The HELP model can be run in the batch and remote batch modes to reduce
computer costs. To run the HELP model in the batch mode on the NCC IBM
360/370 computer system, the user must prepare a punched card deck of control
cards and sequential input cards. The control cards are separated into two
steps. An example card deck for running the HELP model with default data is
given in Table 18. In the remote batch mode, a punched card deck is not
required but the user must produce a file or on-line data set of the control
cards and input data in sequential order.
62
-------
TABLE 18. JOB CONTROL CARDS
Control Cards Step 1
(1) //userid JOB (accuidM.Muserid),lastname,PRTY=l,TIME=4,PASSWORD=password
(2) /*ROUTE PRINT RMTxxx
(3) //STEP1 EXEC PGM=IEBGENER
(4) //SYSIN DD DUMMY
(5) //SYSPRINT DD SYSOUT=A
(6) //SYSUT2 DD DSN=useridacc.AFILE,
// DISP=(NEW,PASS,DELETE),SPACE=(TRK,(10,5)),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120),
// UNIT=DISK
(7) //SYSUT1 DD *
Sequential Input Cards
(1) 1
(2) YES
(3) NO
(4) CALIFORNIA
(5) LOS ANGELES
(6) 4
(7) 10
(8) 2
(9) YES
(10) BATCH SAMPLE
(11) DEFAULT CASE DATA
(12) 20 OCTOBER 1982
(13) 1
(14) NO
(15) 24
(16) 1
(17) 7
(18) NO
(19) NO
(20) 10000
(21) 3
(22) 5
(23) NO
(24) YES
(25) 4
Control Cards Step 2
(1) /*
(2) //STEP2 EXEC PGM=LEM3
(3) //STEPLIB DD DSN=mastidmastacc.HYDRO.LOAD,DISP=SHR
(Continued)
63
-------
TABLE 18. (Concluded)
Control Cards Step 2 (Continued)
(4) //FT10F001 DD DSN=useridacc.AFILE,UNIT=DISK,
// DISP=(OLD,DELETE,DELETE),
// SPACE=(CYL,(10,2)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
(5) //FT06F001 DD SYSOUT=A
(6) //FT04F001 DD DSN=useridacc.TAPE4,DISP=SHR
(7) //FT05F001 DD DSN=useridacc.TAPES,DISP=SHR
(8) //FT07F001 DD DSN=useridacc.TAPE7,DISP=SHR
(9) //FT08F001 DD DSN=mastidmastacc.TAPES,DISP=SHR
(10) //FT09F001 DD DSN=mastidmastacc.PRE3,DISP=SHR
(11) //FT11F001 DD DSN=useridacc.TAPEll,DISP=SHR
(12) //FT12F001 DD DSN=mastidmastacc.TAPE12,DISP=SHR
(13) //FT13F001 DD DSN=useridacc.TAPE13,DISP=SHR
(14) //FT14F001 DD DSN=useridacc.TAPE14,DISP=SHR
(15) //FT15F001 DD DSN=useridacc.TAPE15,DISP=SHR
(16) //FT16F001 DD DSN=useridacc.TAPE16,DISP=SHR
64
-------
The example batch card deck for running the HELP model is for a very sim-
ple case using default climatologic and soil characteristics input options.
Climatologic data from Los Angeles, California, using default vegetation
type 4 (fair grass) with a root zone depth of 10 inches were used. Lines 10,
11, and 12 are the title of the simulation run. The design has one layer;
24 inches thick, layer type 1 (vertical percolation layer) and composed of
soil texture 7 characteristics (loam and very fine sand, LVFS). The layer is
not compacted and the default runoff curve number is not overridden. The
surface area is 10,000 sq ft. Output of monthly totals and a summary are
requested for 5 years of simulation. Information on user input is provided in
the User's Guide for the HELP Model (19).
The instructions for preparing the card deck are as follows (20):
Control Cards Step 1
Card (1)
a. //userid—The user's identification name.
b. JOB—The word JOB indicates that it is the job card.
c. (accuidM, Muserid)—The account name plus the utilization identifier
plus the letter M and the letter M followed by the user's
identification.
d. lastname—The user's last name.
e. PRTY—The priority of the job where
1 = overnight processing time
2=4 hours processing time
3=2 hours processing time
4=1/2 hour processing time
5 = 1/4 hour processing time
f. TIME—The maximum core time to be used in minutes.
g. PASSWORD—The user's password.
Card (2)
/*ROUTE PRINT RMTxxx—Prints the output to the high speed printer
number xxx. This card is omitted if the user wishes the output to
be mailed to him.
65
-------
Card (3)
a. STEP1—Processes the step 1 cards first.
b. EXEC PGM=IEBGENER—Specifies that the system program named
IEBGENER enters the data found in the file called AFILE.
Card (4)
Card (5)
//SYSIN DD DUMMY—A dummy data definition statement is used to
specify the input facilities.
//SYSPRINT DD SYSOUT=A—The specific output from the program is to
be on device 6.
Card (6) (shown as 4 lines in Table 18)
a. //SYSUT2 DD DSN=useridacc.AFILE,—AFILE is the name of the data set
or file containing the sequential input cards and useridacc is the
user identification followed by the account name.
b. // DISP=(NEW,PASS,DELETE),—The disposition of the AFILE is a new
data set to be passed to STEP2 for more processing and to be deleted
when the program is finished.
c. SPACE=(TRK,(10,5)),—Requests space for the data set (AFILE). The
type and size of this space are 10 primary and 5 secondary tracks.
d. // DCB=(LRECL=80,RECFM=FB,BLKSIZE=3120),—The data card block has
80 column records, the records have fixed blocks, and the block
size is 3120.
e. // UNIT=DISK—AFILE is to be stored on a DISK device.
Card (7)
//SYSUT1 DD *—This indicates to the system that data are on the
next card.
Control Cards j>tep 2
Card (1)
/*—This indicates a comment card.
Card (2)
a. //STEP2—Processes the Step 2 card second.
66
-------
b.
Card (3)
a.
b.
Card (4)
a.
b.
c.
Card (5)
Card (6)
Card (7)
Card (8)
Card (9)
EXEC PGM=LEM3—Specifies that the executable module of the HELP
model (LEM3) be run.
//STEPLIB DD—The program exists in a private library.
DSN=mastidmastacc.HYDRO.LOAD,DISP=SHR—The data set name is HYDRO
and loads it in a shared private library. The author's identifica-
tion name and account are mastid and mastacc, respectively.
(shown as 3 lines in Table 18)
//FT10F001 DD DSN=useridacc.AFILE,UNIT=DISK,~The system reads data
from a data set called AFILE with device 10 trom the user's account
and stores data on a disk device.
// DISP=(OLD, DELETE, DELETE),--The disposition of AFILE is old, and
is to be deleted from processing and to be deleted when the program
is finished executing.
// SPACE=(CYL,(10,2),DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)—Requests
space for data set AFILE. The type and size of this space are
10 primary cylinders and 2 secondary cylinders. The data card block
has 80 column records, the records have fixed blocks, and the block
size is 3120.
//FT06F001 DD SYSOUT=A—The output is printed on device 6.
//FT04F001 DD DSN=useridacc.TAPE4,DISP=SHR—Reads or writes to the
data set TAPE4 on the given account in a shared private library.
//FT05F001 DD DSN=useridacc.TAPES,DISP=SHR~Reads or writes to the
data set TAPES on the given account in a shared private library.
//FT07F001 DD DSN=useridacc.TAPE7,DISP=SHR—Reads or writes to the
data set TAPE7 on the given account in a shared private library.
//FT08001 DD DSN=mastidmastacc.TAPES,DISP=SHR—Reads or writes to
the data set TAPES on the given account in a shared private library,
67
-------
Card (10)
//FT09F001 DD DSN=mastidmastacc.PRE3,DISP=SHR—Reads or writes to
the data set PRE3 on the given account in a shared private library.
Card (11)
//FT11F001 DD DSN=useridacc.TAPEll,DTSP=SHR—Reads or writes to the
data set TAPE11 on the given account in a shared private library.
Card (12)
//FT12F001 DD DSN=mastidmastacc,TAPE12,DISP=SHR—Reads or writes to
the data set TAPE12 on the given account in a shared private
library.
Card (13)
//FT13F001 DD DSN=useridacc.TAPE13,DISP=SHR—Reads or writes to the
data set TAPE14 on the given account in a shared private library.
Card (14)
Card (15)
Card (16)
//FT14F001 DD DSN=useridacc.TAPE14,DISP=SHR—Reads or writes to the
data set TAPE13 on the given account in a shared private library.
//FT15F001 DD DSN=useridacc.TAPE!5,DISP=SHR—Reads or writes to the
data set TAPE15 on the given account in a shared private library.
//FT16F001 DD DSN=useridacc.TAPE16,DISP=SHR—Reads or writes to the
data set TAPE16 on the given account in a shared private library.
68
-------
REFERENCES
1. Perrier, E. R., and A. C. Gibson. Hydrologic Simulation on Solid Waste
Disposal Sites. EPA-SW-868, U.S. Environmental Protection Agency,
Cincinnati, OH, 1980. Ill pp.
2. Schroeder, P. R., and A. C. Gibson. Supporting Documentation for the
Hydrologic Simulation Model for Estimating Percolation at Solid Waste
Disposal Sites (HSSWDS). Draft Report, U.S. Environmental Protection
Agency, Cincinnati, OH, 1982. 153 pp.
3. Knisel, W. J., Jr., Editor. CREAMS, A Field Scale Model for Chemical
Runoff and Erosion from Agricultural Management Systems. Vols. I, II,
and III, Draft Copy, USDA-SEA, AR, Cons. Res. Report 24, 1980. 643 pp.
4. USDA, Soil Conservation Service. National Engineering Handbook, Sec-
tion 4, Hydrology. U.S. Government Printing Office, Washington, D.C.,
1972.
5. Freeze, R. A., and J. A. Cherry. Groundwater. Prentis-HalL, Englewood
Cliffs, N.J., 1979. 604 pp.
6. Skaggs, R. W. Modification to DRAINMOD to Consider Drainage from and
Seepage through a Landfill. Draft Report, U.S. Environmental Protection
Agency, Cincinnati, OH, 1982. 21 pp.
7. Ritchie, J. T. A Model for Predicting Evaporation from a Row Crop with
Incomplete Cover. Water Resources Research, Vol. 8, No. 5, 1972.
pp. 1204-1213.
8. Shanholtz, V. 0., and J. B. Lillard. A Soil Water Model for Two Con-
trasting Tillage Practices. Bulletin 38, Virginia Water Resources
Research Center, VPISU, Blacksburg, VA, 1970. 217 pp.
9. Saxton, K. E., H. P. Johnson, and R. H. Shaw. Modeling Evapotranspira-
tion and Soil Moisture. In: Proceedings of American Society of Agricul-
tural Engineers 1971 Winter Meeting, St. Joseph, MI, 1971. No. 71-7636.
10. Williams, J. R., and W. J. LaSeur. Water Yield Model Using SCS Curve
Numbers. Jour, of the Hydraulics Div., ASCE, Vol. 102, No. HY9,
pp. 1241-1253, 1976.
11. Li, E. A. A Model to Define Hydrologic Response Units Based on Charac-
teristics of the Soil-Vegetative Complex Within a Drainage Basin. M.S.
Thesis, Virginia Polytechnic Institute and State University,
Blacksburg, VA, 1975. 124 pp.
69
-------
12. Kothandaraman, V., and R. L. Evans. Use of Air-Water Relationships for
Predicting Water Temperature. Illinois State Water Survey, Urbana,
Report of Investigation 69, 1972. 14 pp.
13. Sudar, R. A., K. E. Saxton, and R. G. Spomer. A Predictive Model of
Water Stress in Corn and Soybeans. Transaction of American Society of
Agricultural Engineers, p. 97-102, 1981.
14. Lutton, R. J., G. L. Regan, and L. W. Jones. Design and Construction of
Covers for Solid Waste Landfills. PB 80-100381, EPA-600/2-79-165,
U.S. Environmental Protection Agency, Cincinnati, Ohio, 1979.
15. England, C. B. Land Capability: A Hydrologic Response Unit in Agricul-
tural Watersheds. ARS 41-172, Agricultural Research Service, USDA, 1970.
16. Breazeale, E., and W. T. McGeorge. A New Technic for Determining Wilting
Percentage of Soil. Soil Science, Vol. 68, pp. 371-374, 1949.
17. USDA. Climate and Man Yearbook of Agriculture. United States Department
of Agriculture, U.S. Government Printing Office, 1941. 1248 pp.
18. Environmental Science Services Administration. Climatic Atlas of the
United States. U.S. Dept. of Commerce, NOAA, National Climatic Center,
AshevilLe, NC, 1974. 80 pp.
19. Schroeder, P. R., J. M. Morgan, T. M. Walski, and A. C. Gibson. Hydro-
logic Evaluation of Landfill Performance (HELP) Model: Volume I. User's
Guide for Version 1. Draft Report, Municipal Environmental Research
Laboratory, U.S. Environmental Protection Agency, Cincinnati, OH, 1983.
20. IBM. IBM OS FORTRAN IV (H extended). Compiler Programmer's Guide.
International Business Machines Corporation, New York, New York, 1974.
70
-------
APPENDIX A
HELP SOURCE PROGRAM LISTING
71
-------
1. C
2. C XXXXXXXXXXXXXXXXXXXXXXXXXMAIN**XXXXXXXXXXXXXX*XXXXXXXX
3. C
4. C
5. C THE MAIN PROGRAM DIRECTS THE PROGRAM TO ACCEPT INPUT OF
6. C CLIMATOLOGIC DATA, OR SOIL CHARACTERISTICS AND DESIGN
7. C INFORMATION, TO RUN THE SIMULATION AND PRODUCE OUTPUT,
8. C AND TO STOP THE RUN.
9. C
10. COHMON/BLK1/KCDATA,KSDATA,KFLAG,IFLAG,KVEG,
11. 1 101,102,103,104,105
12. DIMENSION VALUEC10),KLMC74)
13. C
14. C PRINTING OF HEADING
15. C
16. WRITE(6,11)
17. 11 FORMATC1H //1X,66(1H*)/lX,66(1HX)/1X,IHx,64X,1HX
18. 1/1X,1HX,8X,47H HYDROLOGIC EVALUATION OF LANDFILL PERFORMANCE
19. 29X,1HX/1X,1HX,25X,14HHELP VERSION 1,25X,IHx/lX,IHX,
20. 364X,1HX/1X,1HX,26X,11H WRITTEN 3Y,27X,1H*/1X,
21. 21H*,27X,10H ,27X,1H*/1X,
22. 31HX,24X,17HPAUL R. SCHROEDER,23X,1HX/1X,
23. 41HX,25X,14H AUGUST, 1983 ,25X,1HX/1X,
24. 41HX,64X,1H*/1X,1H*,2SX,7H OF THE,29X,IHx/lX,IHX,15X,
25. 512H WATER RESOU,22HRCES ENGINEERING GROUP,15X,1H*/1X,IH*,
26. 120X,24HENVIRONMENTAL LABORATORY,20X,1HK/1X,
27. 61H*,15X,34H USAE WATERWAYS EXPERIMENT STATION,15X,1H*/1X,
28. 71HX,26X,12HP.O. BOX 631,26X,IHx/lX,1HX,23X,13HVICKSBURG, MS,
29. 86H 39180,22X,1HX/1X,1HX,64X,1HX/1X,66(1H«)/1X,1HX,64X,1HX/1X,
30. 11HX,14X,36H USER'S GUIDE AVAILABLE UF'ON REQUEST,14X,IHx/lX,
31. 21HX,15X,35HFOR CONSULTATION CONTACT AUTHORS AT,14X,IHx/lX,
32. 31HX,15X,34H (601) 634-3709 OR (601) 634-3710 ,15X,1H*/1X,
33. 41H*,64X,1HX/1X,66(1H*)/1X,66(1H*)//)
34. KCDATA=0
35. KSDATA=0
36. KFLAG=0
37. IFLAG=0
38. 101=0
39. 102=0
40. 103=0
41. 104=0
42. 105=0
43. KVEG=8
44.
45. 60 REWIND 4
46. REWIND 5
47. REWIND 7
48. REWIND 11
49. REWIND 14
-------
50. REWIND 15
51. REWIND 13
52. REWIND 16
53. REWIND 16
54. WRITEC6,70)
55. 70 FORMATdH //1H ,4H1.1 ,29HDO YOU WANT TO EMTER OR CHECK,
56. 5 26H DATA OR TO OBTAIN OUTPUT //
57. 1 32H ENTER 1 FOR CLIMATOLOGIC INPUT,/
58. 2 7X, 32H2 FOR SOIL OR DESIGN DATA INPUT,/
59. 3 7X,51H3 TO RUN THE SIMULATION AND OBTAIN DETAILED OUTPUT,/
60. 4 7X, 22H4 TO STOP THE PROGRAM,4h AND,/
61. 5 7X,48H5 TO RUN THE SIMULATION AND OBTAIN ONLY SUMMARY ,
62. 6 7HOUTPUT.///)
63.
64. READC10,80)CKLMCJ),J=1,74)
65. CALL SCAN(NO,VALUE,74,KLM)
66. 80 FORMATC74A1)
67. KANS=VALUE(1)
68. IFCKANS.GT.l) GO TO 82
69. WRITEC6,40)
70. 40 FORMATC1H //44H 1.2 DO YOU WANT TO USE DEFAULT CLIMATOLOGIC,
71. 1 6H DATA /1X,16HENTER YES OR NO.//)
72. CALL ANSWER(IANS)
73. KCDATA=0
74. C
75. C KCDATA=1 IF DEFAULT CLIMATOLOGIC DATA IS USED.
76. C
77. IF(IANS.EQ.O)KCDATA=1
78. IF(KCDATA.EQ.O) CALL MCDATA
79. IFCKCDATA.EQ.l) CALL DCDATA
80. GO TO 60
81. 82 IFCKANS.GT.2) GO TO 84
82. WRITE(6,50)
83. 50 FORMATdH //4H 1.3,3SH DO YOU WANT TO USE DEFAULT SOIL DATA/
84. 1 1X,16HENTER YES OR NO.//)
85. CALL ANSWER(IANS)
86. KSDATA=0
Q ~7 f*
&&'. C KSDATA = 1 IF DEFAULT SOIL CHARACTERISTICS ARE USED.
89. C
90. IF(IANS.EQ.O)KSDATA=1
91. IF(KSDATA.EQ.O) CALL MSDATA
92. IF(KSDATA.EQ.l) CALL DSDATA
93. GO TO 60
94. 84 IFCKANS.EQ.5)102=1
95. IFCKANS.EQ.6)101=1
96. IFCKANS.EQ.7)103=1
97. IFCKANS.EQ.8)104=1
98. IFCKANS.EQ.9)105=1
99. IFCKANS.GE.5.AND.KANS.LE.9)CALL SIMULA
-------
100. IFCKANS.EQ.3) CALL SIMULA
101. IFCKAHS.EQ.4) GO TO 90
102. GO TO 60
103.
104.
105. 90 WRITE(6,100)
106. 100 FORMATC1H //38H 1.4 ENTER RUNHELP TO RERUN PROGRAM OR/1X,
107. 1 39HENTER LOGOFF TO LOGOFF COMPUTER SYSTEM.///)
108. STOP
109. END
-------
1.
2. SUBROUTINE ANSWER(IANS)
3. C
<\. C THIS ROUTINE ASSIGNS YES OR NO ANSWER TO QUESTION
5. C
6^ DIMENSION LISTAC2)
7. DATA LISTA/3HYES,2HNO/
8. 5 READdO,21)KANS
9. 21 FORMATCA4)
10. DO 1 1=1,2
11. IF(KANS.EQ.LISTA(I))GO TO 2
12. 1 CONTINUE
13. WRITE(6,4)KANS
1<+. 4 FORMATdH /1H ,A<+,32H INAPPROPRIATE COMMAND-TRY AGAIN//)
15. WRITE(6,3)
16. 3 FORMATdH ,15HENTER YES OR NO//)
17. GO TO 5
18. 2 IF(KANS.EQ.LISTA(2))GO TO 6
19. IANS=0
20. RETURN
21. 6 IANS=1
22. RETURN
23. END
-------
1. C
2. c xxxxxxxxxxxxxxxxxxxxxxxxx AVROUT xxxxxxxxxxxxxxxxxxxxxxxxx
3. C
4. C
5. C SUBROUTINE AVROUT COMPUTES VERTICAL WATER ROUTING OR
6. C DRAINAGE THROUGH THE SEGMENTS ABOVE THE BARRIER
7. C LAYER OF A SUBPROFILE.
<> C
9." SUBROUTINE AVROUTCDRIN, NSEGB, NSEGL , E, DT, BALY, BALT,
10. 1 SWULY,QDRN,IBAR,QPERCY,QLATY,DRNMAX,ISAND)
11.
12.
13. COMMON/BLK7/5THICK(16),UL(16),FCULU6),WPUL(16),
14. 1 SWUL(16),RCUL(16)
15.
16.
17. DIMENSION DRINC17),EC 16),BALYC16),BALTC16),SWULY(16)
18. DIMENSION SWULYEC16)
19.
20. C
21. C SWLIM IS THE LOWEST SOIL WATER CONTENT AFTER DRAINAGE
22. C AND IS EQUAL TO THE FIELD CAPACITY OR
23. C YESTERDAY'S SOIL HATER CONTENT WHICHEVER IS SMALLER.
24. C
25. DO 10 J=NSEGB,NSEGL
26. SMLIM=FCUL(J)
27. SWULYEU)=SWULY(J)-KBALY(J)/2.0)
28. IF(SUULYE(J).LT.FCUL(J))SWLIM=Sl>!ULYE(J)
29. IF(J.GE.S)SWLIM=FCUL(J)
30. IF(ISAND.EQ.1)SWLIN=FCUL(J>
31. C
32. C DRNMAX IS THE TOTAL DRAINABLE WATER IN A SEGMENT
33. C TODAY AND IS EQUAL TO THE SOIL WATER CONTENT AT THE
34. C BEGINNING OF THE DAYCSUULY + BALY/2) PLUS DRAINAGE INTO
35. C THE SEGMENT(DRIN) MINUS EVAPOTRANSPIRATIONCE) AND THE
36. C LOWEST SOIL WATER CONTENT FOR DRAINAGEC SWLII1) .
37. C
38. DRNMAX=SWULY(J)-SWLIM+D?vIN(J)-E(J) + ( BALYC J)/2.0)
39. IF(DRNMAX.L T.0.0)DRKMAX = 0.0
40. IF(DRINCJ).LE.0.0) GO TO 4
41. Vl= 1.0+((RCUL(J)XDT/2.0)/(UL(J)-SWLIM))
42. V2= (RCUL(J)*DT)/(UL(J)-SWLIM)
43. V3= ((BALY(J)+DRIN(J)-E(J))/2.0)+SWULY(J)-SWLIM
44. C
45. C DRINCJ+1) IS THE DRAINAGE OUT OF SEGMENT J.
46. C
47. DRIN(J+1)= V2*V3/V1
48. GO TO 6
49.
-------
50. ^ DRINCJ + l) = U2.0X(SWULY(J)-FCUL(J)))+BALY(J)-t-
51. 1 DRIN(J)-EU))KRCUL(J)*DT/(2.X(ULU)-FCUL(J)) +
52. 2 RCUL(J)KDT)
53.
54. 6 IF(DRIN(J-H).GT.(RCULU)*DT))DRIN(J + 1)=RCUL(J)XDT
55. IFCDRINU + 1).GT.DRNMAX)DRIN(J+1)=DRNMAX
56. IF(DRIN(J+1).LT.O.O)DRIN(J+1)=0.0
57. 10 CONTINUE
58.
59. C
60. C IBAR=0 WHEN THERE IS A BARRIER LAYER.
61. C
62. IF(IBAR.EQ.O)GO TO 15
63. C
64. C QDRN IS THE COMBINED ESTIMATE OF LATERAL DRAINAGE
65. C AND PERCOLATION WATERS FROM BASE OF DRAIN LAYER.
66. C
67. IF(QDRN.LE.O.O)GO TO 12
68. DRIN(HSEGL+1)=QDRN*DT
69. IF(DRIN(NSEGL+1).LE.DRNMAX)GO TO 15
70. IF(DRIN(NSEGL+1).GT.DRNMAX)DRIN(NSEGL-U)=DRNMAX
71. C
72. C CORRECTS COMPONENTS OF QDRN WHEN DRAINAGE IS
73. C LIMITED BY DRNMAX.
74. C
75. QLATY=QLATY*DRNMAX/DT/QDRN
76. QPERCY=QPERCYXDRNMAX/DT/QDRN
77. QDRN=DRNMAX/DT
78. GO TO 15
79.
80. 12 QDRN=0.0
81. QLATY=0.0
82. QPERCY=0.0
83. DR!N(NSEGL+1)=0.0
84. 15 CONTINUE
85.
86.
87. C
88. C COMPUTES THE CHANGE IN STORAGE(BALT) AND THE
89. C MIDDAY SOIL WATER CONTENT.
90. C
91. DO 20 J=NSEGB,NSEGL
92. BALT(J)=DRINCJ)-DRINU-H)-E(J)
93. SUULCJ)=SWULY(J)+(BALY(J)+BALT(J))/2.0
94.
95. 20 CONTINUE
96.
97.
98. RETURN
99. END
-------
00
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
is!
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
xxxxxxxxxxxxxxxxxxxxxxxxx CNTRLD xxxxxxxxxxxxxxxxxxxxxxxxx
SUBROUTINE CNTRLDCIUNIT, IUNITT, IUNITB)
SUBROUTINE CNTRLD SETS CONTROL VARIABLES FOK OUTPUT.
COMMON/BLK4/LAYER(10),THICK(9),IAY
COMMON/BLK6/NSEG1,NSEG2,NSEG3,VDEPTH,RDEPTH
IUNIT IS THE NUMBER OF SUBPROFILES.
IUNIT=1
IF(NSEG2.GT.O)IUNIT=2
IF(NSEG3.GT.O)IUNIT=3
IUNITT IS THE NUMBER OF SUBPROFILES ABOVE THE
TOP WASTE LAYER.
IUNITB IS THE NUMBER OF SUBPROFILES BELOW THE
BOTTOM WASTE LAYER.
IUNITT=2
IUNITB=3
IWT^O
IWB = 0
ESTABLISHES THE LOCATIONS OF THE TO? AND BOTTOM WASTE LAYERS
DO 10 1=1, LAY
K = LAY-H-I
IF(LAYER(K).EQ.4)IWT=K
IF(LAYER(I).EQ.4)IWB=I
10 CONTINUE
IF(IWT.EQ.O) GO TO 20
IF(IWT.LE.(LAY-NSEG3)) IUNITT=1
IF(IWT.LE.CLAY-NSEG3-NSEG2))IUNITT=0
IF(IWB.GT.(LAY-NSEG3-NSEG2)) IUNITB=2
-------
50. IF(INB.GT.(LAY-NSEG3)) IUNITB=1
51.
52. RETURN
53.
54. 20 IUNITT = IUNIT
55. IUNITB=0
56.
57. RETURN
58. END
-------
~
o
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14 .
15.
16.
17.
IS.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34 .
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
C
C
C
C
C
C
10
20
C
C
C
C
C
C
30
XXKXXXXXXXXXXXXXKXXXXXXX CONVRG XXXXXXXXXXXXXXXXXXXXXXXM
SUBROUTINE CONVRG(KK,X1 ,X2, EST, EPS ,MFLAG, TO?, DOT)
SUBROUTINE CONVRG IS USED TO TEST THE DRAINAGE
ESTIMATE AND GENERATE NEW ESTIMATES.
MFLAG=1
TESTS CLOSENESS OF ESTIMATE.
IF(X2.LT.0.00005)X2=O.OOC05
IF(ABS(X1-X2).LT.(EPS*X2)) RETURN
IF(ABS(X1-X2).LT.(EPS/10.))RETURN
MFLAG=0
IF(KK.GT.l) GO TO 20
SETS RANGE OF ESTIMATES.
IF
-------
oo
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
is!
16.
17.
18.
19.
20.
21.
22.
23.
25!
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
C
C
C
10
20
C
C
C
C
XX***X*XXXXK*XK***X*K*XXX* DATFIT XXXXXXXXXXXXXXXXXXXXXXXXX
SUBROUTINE DATFIT(M,D,AC,A,B)
REAL DC12)
PI =3.14159
SUMD =0.0
AM =FLOAT(M)
DO 10 1=1,M
SUMD =SUMD+D(I)
CONTINUE
AC
AN
SUMA
SUMB
DO 20 1=1
TI
TH
FCOS
FSIN
SUMA
SUMB
CONTINUE
=SUMD/AM
= 1.0
= 0.0
= 0.0
,M
=FLOAT(I)-0.5
=2.0XPIXANXTI
=COS(TH/AM)
=SIN(TH/AM)
=SUMA+D(I)XFCOS
=SUMB+D(I)XFSIN
=2.0/AMXSUMA
=2.0/AMXSUMB
A
B
RETURN
END
FUNCTION COMPUT(AC,A,B,I,N)
=FLOATCI)-0.5
=FLOAT(N)
=6.233185XAI/AN
=AC+AXCOS(ANG)+BX5IN(ANG)
AI
AN
ANG
COMPUT
RETURN
END
FUNCTION SUBPROGRAM COMPUT COMPUTES THE DAILY TEMPERATURE
OR SOLAR RADIATION VALUE FROM THE FITTED CURVE.
-------
1. C
2. C XXXXXXXXXXXXXXXXXXXXXXXXX DCDATA XXXXXXXXXXXXXXXXXXXXXXXXX
3. C
4. SUBROUTINE DCDATA
5. C
6. C THIS SUBROUTINE PREPARES CLIMATOLOGIC INPUT FILES FROM THE
7. C DEFAULT CLIMATOLOGIC DATA TAPE.
8. C TAPE9 CONTAINS DEFAULT RAINFALL,TEMPERATURES,SOLAR RADIATION
9. C AND LAI FOR 102 CITIES.
10. C TAPE 9 CONTAINS A LIST OF THE DEFAULT CITIES.
11. C TAPE 11 CONTAINS THE NAME OF THE SELECTED CITY AND THE
12. C NUMBER OF THE CITY ON TAPE 9.
13. C TAPE 4 CONTAINS THE SELECTED PRECIPITATION VALUES.
14. C TAPE 7 CONTAINS THE SELECTED TEMPERATURES,
15. C
16. C TAPE 13 CONTAINS THE SELECTED SOLAR RADIATION VALUES.
17. C TAPE 14 CONTAINS THE SELECTED LEAF AREA INDICES AND
18. C VEGETATION TYPE.
19. C TAPE 15 CONTAINS THE WINTER COVER FACTOR.
20. C TAPE 16 CONTAINS THE EVAPORATIVE ZONE DEPTH.
21. C
22. C
23. COMMON/BLK1/KCDATA,KSDATA,KFLAG,1FLA(3,KVEG
24. DIMENSION XGRC7), WCFC7), ICITYC18),LISTCC99),PREC(10),
25. 1TEMP(12),RADI(12),LDATEG(13),AREAG(13?,AREAR(13),LDATER(13),
26. 1LDAY13(13),XLAI13(13),LISTS(41),VALUEC10),KLM(74)
27.
28. DATA LISTS/4HALAS,4HARIZ,4HARKA,4HCALI,4HCOLO,4HFLOR,4HGEOR,
29. 14HHAWA,4HIDAH,4HILLI,4HINDI,4HIOWA,4Hi
-------
50. 3 WRITE(6,5)
51. 5 FORMATUH ,/5H 2.1 ,37HDO YCU WANT A LIST OF DEFAULT CITIES/
52. 1 IX, 16HENTER YES OR NO./)
53. CALL ANSWER(IANS)
54. IF(IANS.EQ.l) GO TO 40
55. 7 REWIND 8
56.
57. WRITE(6,10)
58. 10 FORMATC1H /48H DEFAULT DATA IS PROVIDED ONLY FOR THE FOLLOWING,
59. 118H CITIES AND STATES/1X,26X,4H //)
60. REWIND 8
61. DO 20 1=1,38
62. READC8,30)(ICITY(K),K=1,18)
63. WRITE(6,35)(ICITY(K),K=1,18)
64. 35 FORMATC1H ,18A4)
65. 20 CONTINUE
66. REWIND 8
67. 30 FORMATC18A4)
68. 40 URITE(6,50)
69. 50 FORMATdH /4H 2.2,32H ENTER NAME OF STATE OF INTEREST///)
70. READ(10,60)KSTATE,K1,K2,K3,K4
71. 60 FORMATC5A4)
72. DO 70 1=1,41
73. IF(KSTATE.EQ.LISTSCD) GO TO 90
74. 70 CONTINUE
po 75. WRITE(6,80)KSTATE,K1,K2,K3,K4
^ 76. 80 FORMATC1H /4H 2.3,33H THERE ARE NO DEFAULT VALUES FOR ,5A4//)
77. GO TO 3
78. 90 WRITEC6,100)
79. 100 FORMATC1H /4H 2.4,31H ENTER NAME OF CITY OF INTEREST///)
80. READ(10,60)KCITY,K5,K6,K7,K8
81. DO 110 K=l,102
82. IF(KCITY.EQ.LISTC(K))GO TO 120
83. 110 CONTINUE
84. WRITE(6,80)KCITY,K5,K6,K7,K8
85. WRITE(6,5)
86. CALL ANSWER(IANS)
87. IF(IANS.EQ.O) GO TO 7
88. GO TO 90
89. 120 REWIND 9
90. DO 150 MCITY=1,102
91. READ(9,130)LSTATE,LCITY
92. 130 FORMAT(A4,1X,A4)
93. IF(KSTATE.EQ.LSTATE.AND.KCITY.EQ.LCITY) GO TO 160
94. READC9,140)
95. 140 FORMAT(200(/))
96. 150 CONTINUE
97.
98. WRITE(6,155)KCITY,K5,K6,K7,K8,KSTATE,K1,K2,K3,K4
99. 155 FORMATC1H /5H 2.5 ,10A4,28H CANNOT BE FOUND ON DEFAULT /
-------
100. 1 IX, 23HCLIMATOLOGIC DATA FILE./)
101.
102. REWIND 9
103. GO TO 3
104.
105. 160 REWIND 11
106. REWIND 4
107. URITEC11,165)KCDATA
108. 165 FORMATCI5)
109. WRITE(11,170)KSTATE,K1,K2,K3,K4,KCITY,K5,K6,K7,K8
110. 170 FORMAT(10A4)
111. WRITE(11,180) MCITY
112. 180 FORHATU4)
113. REWIND 11
114. DO 200 K=l,185
115. READ(9,190)NYEAR,(PREC(J),J=1,10),ICOUNT
116. WRITE(4,190)NYEAR,(PREC(I),I=1,10),ICOUNT
117. 190 FORMAT(I10,10F5.2,I10)
118. 200 CONTINUE
119. REWIND 7
120. REWIND 4
121. REWIND 13
122. C
123. C LYEAR=0 INDICATES THAT ONLY ONE SET OF VALUES ARE GIVEN
124. C IN THE DATA FILE AND THAT THIS IS THE LAST SET OF VALUES ON
125. C THE DATA FILE.
126. C
127. LYEAR=0
128. READ(9,210) (TEMPCI),1=1,12)
129. 210 FORMATC12F5.1)
130. WRITE(7,220)LYEAR,(TEMP(I),I=1,12)
131. 220 FORMAT(I5,12F6.1)
132. REWIND 7
133. LYEAR=0
134. READ(9,230) (RADI(I),1=1,12)
135. 230 FORMATC6F6.1/6F6.1)
136. WRITE(13,220)LYEAR,CRADI(I),I=1,12)
137. REWIND 13
138. LYEAR=0
139. DO 250 1=1,13
140. READ(9,240) (LDATEGCI),AREAGCI),AREAR(I),LDATERCI) )
141. 240 FORMAT(I3,2F5.2,1X,I3)
142. 250 CONTINUE
143. REWIND 9
144. REWIND 5
145. READ(5,252,END=255)IVEG
146. 252 FORMAT(15(/),I3)
147. REWIND 5
148. GO TO 258
149. 255 IVEG=0
-------
150. REWIND 5
151. 258 IFdFLAG.EQ.l.AND.KVEG.GE.l.AND.KVEG.LE.7)GO TO 300
152. 260 MRITE(6,270)
153. 270 FORMATdH //5H 2.6 ,36H SELECT THE TYPE OF VEGETATIVE COVER,
154. 1//31H ENTER NUMBER 1 FOR BARE GROUND
155. 2/14X,21H2 FOR EXCELLENT GRASS
156. 3/14X,16H3 FOR GOOD GRASS
157. 4/14X,16H4 FOR FAIR GRASS
158. 5/14X,16H5 FOR POOR GRASS
159. 6/14X,20H6 FOR GOOD ROW CROPS
160. 7/14X,20H7 FOR FAIR ROW CROPS/)
161. 280 FORMATC74A1)
162. READdO,280)(KLM(J),J = l,74)
163. CALL SCANCNO,VALUE,74,KLM)
164. KVEG = VALUEU)
165. IF(KVEG.GE.1.AND.KVEG.LE.7) GO TO 295
166. WRITE(6,290)KVEG
167. 290 FORMATdH //5H 2.7 ,I4,31H INAPPROPRIATE VALUE TRY AGAIN///)
168. GO TO 260
169. 295 WRITEC6.305)
170. 305 FORMATdH ,/5H 2.8 ,25HIF YOU ARE USING DEFAULT ,
171. 1 29HSOIL DATA AND THIS VEGETATION/9H TYPE IS ,
172. 2 36HNOT THE SAME AS USED IN THE DEFAULT ,
173. 3 16HSOIL DATA INPUT,/lX,21HYOU SHOULD ENTER THE ,
174. 4 38HTHE SOIL DATA AGAIN OR CORRECT THE SCS/
«> 175. 5 21H RUNOFF CURVE NUMBER./)
176. 300 GR=l','CF(KVEG)
177. IFCKVEG.LE.5) GO TO 320
178. DO 310 1=1,13
179. LDAY13d)=LDATER(I)
180. XLAI13(I)=AREAR(I)XXGR(KVFEG)
181. 310 CONTINUE
182. GO TO 340
183. 320 DO 330 1=1,13
184. LDAY13(I)=LDATEG(I)
185. XLAI13(I)=AREAG(I)*XGR(KVEG)
186. 330 CONTINUE
187. WRITE(6,332)
188. 332 FORMATdH /5H 2.9 ,33HENTER THE EVAPORATIVE ZONE DEPTH ,
189. 1 10HIN INCHES. //1X,24HCONSERVATIVE VALUES ARE'-/
190. 2 10X,20H4 IN. FOR BAREGROUND/9X,
191. 3 21H10 IN. FOR FAIR GRASS/
192. 4 9X,26H18 IN. FOR EXCELLENT GRASS/)
193.
194. READdO,280)(KLM(J),J = l,74)
195. CALL SCAfUHO,VALUE,74,KLM)
196. RDEPTH=VALUE(1)
197. REWIND 16
198. WRITE(16,335)RDEPTH
199. 335 FORMATCF8.2)
-------
200. REWIND 16
201. REWIND 14
202. 340 DO 360 1=1,13
203. WRITE(14,350)LYEAR,LDAY13(I),XLAI13(I)
204. 350 FORMAT (I5,I8,F8.2)
205. 360 CONTINUE
206. LYEAR=0
207. WRITE(15,370HYEAR,GR
208. 370 FORt'1AT(I5,F8.2)
209. WRITE(14,380)KVEG
210. REWIND 14
211. 380 FORriAT(I3)
212. REWIND 15
213. k'RITE(15,370HYEAR,GR
214. REWIND 15
215. KFLAG=1
216. IFLAG=0
217. RETURN
218. END
CO
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxxx DLAIS XXXXXXXXXXXXXXXXXXXXXKXXXX
3. C
4 C
5! C SUBROUTINE DLAIS COMPUTES THE DAILY POTENTIAL CHANGES
6. C IN THE LEAF AREA INDEX FOR A YEAR.
7. C
8. SUBROUTINE DLAISCDLAI,XLAI1)
9. DIMENSION DLAK367)
10. COMMON/BLK10/LDAY13C13),XLAI13(13)
11.
12. C
13. C XLAI1 IS THE LEAF AREA INDEX FOR THE FIRST DAY OF THE YEAR.
14. C
15. XLAI1=XLAI13(13
16. DLAI(1)=0.0
17.
18. DO 20 1=1,12
19. J=I+1
20. DXLAI=XLAI13U)--XLAI13(I)
21. DLDAY = FLOAT(LDAY13(J)-LDAY13(D)
22. DELAI=DXLAI/DLDAY
23. IDAY = LDAY13(im
24. JDAY=LDAY13(J)+1
25.
26. DO 10 K=IDAY,JDAY
27. DLAI(K)=DELAI
28. 10 CONTINUE
29. 20 CONTINUE
30. RETURN
31. END
-------
00
CO
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
XXXXXXXKXXKXXXXXXXXXXXXX DRAIN xxxxxxxxxxxxxxxxxxxxxxxx
SUBROUTINE DRAIN CONTROLS THE COMPUTATION OF VERTICAL
WATER ROUTING, LATERAL SUBSURFACE DRAINAGE AND
PERCOLATION FOR A SUBPROFILE.
SUBROUTINE DRAINC FIN, ITER , DRN , PRC, ET, NSEGB , NSEGE, L AYB,
1 LAYE,BALY,HED,FLEAK,ADDRUN,QDRN,BALT,QPERCY,QLATY,
2 ISAND)
COMHON/BLK7/STHICKC16),ULC16),FCULa6),WPUL(16),SWUL(16)
1 RCULU6)
COMMON/BLK4/LAYER(10),THICK(9),LAY
COMMON/BLK3/SLOPEC9),XLENG(9)
DIMENSION SWULY(16),ET(16),BALY(16),BALT(16),DRINC17),E(
IBAR=0
LAT = 0
NSEGL=NSEGE
IBAR=1 IF THERE IS A BARRIER LAYER, NSEGL IS THE NUMBER
t
16)
OF
THE LOWER NON-BARRIER SEGMENT IN THE SUBPROFILE, AND NSEGE
IS THE BOTTOM SEGMENT OF THE SUBPRCFILE.
LAYD=LAYE-1
IF(LAYER(LAYE).EQ.3.0R.LAYERCLAYE).EQ.5)IBAR=1
IF(IBAR.EQ.1)NSEGL=NSEGE-1
LAT=1 IF THERE IS A LATERAL DRAINAGE LAYER.
DO 10 L=LAYB,LAYE
IF(LAYER(L).EQ.2)LAT=1
10 CONTINUE
IF(LAYER(LAYB).EQ.3.0R.LAYERCLAYB).EQ.5)NSEGL=NSEGE
IFCLAYER(LAYE).EQ.2HAT = 0
IF( NSEGL. EQ. NSEGE) IBAR=0
DT IS THE MODELING PERIOD AND F AND E ARE INFILTRATION
AND EVAPOTRANSPIRATION OCCURRING DURING THE PERIOD.
DT=1./FLOAT(ITER)
F=FIN*DT
-------
50. DO 20 J=NSEGB,NSEGE
51. SWULYCJ)=SWUL(J)
52. E(J)=ETCJ)XDT
53. 20 CONTINUE
54.
55. EP5=0.05
56. ADDRUN=0.0
57. HED=0.0
58. PRC=0.0
59. DRN=0.0
60. IF(LAT.EQ.O)QLAT=0.0
61. IF(LAT.EQ.O)QLATY=0.0
62. DO SO K=1,ITER
63. TH=0.0
64. EXCESS=0.0
65. KK=0
66. C
67. C KK IS THE COUNTER FOR THE ITERATIONS IN THE
68. C CONVERGENCE ROUTINE.
69. C
70. 30 KK=KK+1
71. MFLAG=0
72. DRIN(NSEGB)=F
73. C
74. C AVROUT COMPUTES FREE DRAINAGE, VERTICAL WATER ROUTING.
30 75. C
^ 76. CALL AVROUTCDRIN,NSEGB,NSEGL,E,DT,BALY,BALT,SWULY,
77. 1 QDRN,IBAR,QPERCY,QLATY,DRNMAX,ISAND)
78.
79. IF(IBAR.EQ.O)QPERC=DRINCNSEGL+1)/DT
80. IF(IBAR.EQ.O)QPERCY=QPERC
81 C
82! C PROFIL DISTRIBUTES WATER BACK UP THE SUBPROFILE
83. C WHEN A SEGMENT IS SUPERSATURATED.
84. C
85. CALL PROFILCKK,EXCESS,NSEGB,NSEGL,SWULY,E,BALT,DRIN,BALY)
86. IF(IBAR.EQ.O) GO TO 65
87. C
88. C HEAD COMPUTES THE GRAVITATIONAL HEAD ON THE
89. C TOP OF THE BARRIER LAYER.
90. C
91. CALL HEADCTH,NSEGB,NSEGL,QOUTMX,E,DRIN,DT)
92.
93. IFCQOUTMX.GT.(DRNMAX/DT))QOUTMX=DRNMAX/DT
94.
95.
96. IF(LAT.EQ.O.AND.LAYER(LAYE).EQ.3)QPERC=RCUL
-------
100. 1 /STHICK(NSEGE)
101. IF(TH.LE.O.O)QPERC=0.0
102. IF(LAT.EQ.O.AND.QPERC.GT.QOUTMX)QPERC=QOUTMX
103. C
104. C LATKS COMPUTES THE EFFECTIVE LATERAL HYDRAULIC CONDUCTIVITY.
105. C
106. IF(LAT.EQ.l) CALI LATKSCTH,NSEGB,NSEGL,ELKS)
107. C
108. C LATFLO COMPUTES THE LATERAL DRAINAGE RATE AND PERCOLATION
109. C RATE IF THERE IS A LATERAL DRAINAGE LAYER.
110. C
111. IFCLAT.EQ.l) CALL LATFLOCLAYD,NSEGE,TH,FLEAK,ELKS,QLAT,
112. 1 QPERC,QOUTMX,LAYE)
113. C
114. C QPERC IS THE PERCOLATION RATE THROUGH THE BOTTOM OF THE
115. C SUBPROFILE AND QLAT IS THF. LATERAL DRAINAGE RATE FROM
116. C THE LATERAL DRAINAGE LAYER.
117. C
118. QDR = QPERC+QLAT
119.
120. CALL CONVRG(KK,QOR,QDRN,EST,EPS,MFLAG,TOP,BOT)
121.
122. QDRN=EST
123.
12
-------
150. QLATY=(QLATY+QLAT)/2.0
151. QDRN=QLATY+QPERCY
152. GO TO 30
153. C
154. C REINITIALIZES SOIL WATER CONTENTS AND CHANGES IN STORAGE.
155. C
156. 65 IF(NSEGB.EQ.DSWUL(D=SWUL(D-EXCESS
157. I F(NSEGB.EQ.1)DRIN(D=DRIN( D-EXCESS
158. I F( NSEGB. EQ. 1) B ALT (D=B ALT (D-EXCESS
159. DO 70 J=NSEGB,NSEGL
160. BALYU)=BALT(J)
161. SWULY(J)=SWUL(J)
162. 70 CONTINUE
163. MFLAG=1
164. C
165. C SUMS THE PERCOLATION AND DRAINAGE FOR A DAY OF SIMULATION.
166. C
167. ADDRUN=ADDRUN+EXCESS
168. PRC=PRC+QPERCY*DT
170! HED=HED+TH*DT
171. IFCIBAR.EQ.O)GO TO 80
172. GO TO 32
173. 75 QDRN=QPERCY+QLATY
174.
175. 80 CONTINUE
176.
177. RETURN
178. END
-------
1. CXXXXXXXXXXXHXXXXXXXXXXXXX DSDATA XXXXXXXXXXXXXXXXXXXXXXXXX
2. C
3. SUBROUTINE DSDATA
4. COnMON/BLKl/KCDATA,KSDATA,KFLAG,IFLAG,KVEG
5. C
6. C THIS SUBROUTINE PREPARES SOIL DATA INPUT FILES
7. C DATA TAPE.
8. C TAPE12 CONTAINS DEFAULT SOIL DATA
9. C TAPES CONTAINS THE SELECTED DEFAULT DATA AND DESIGN
10. C INPUT
11. DIMENSION ITITLEC3,40),XMIR(21),XPOROS(21),XRC(21),
12. 1 XCONA(21),XAOC7),XA1(7),XA2C7),CORECTC7),
13. 2KLM(74),VALUEUO),THICK(9),KSOIL(9),PORO(9),FC(9),
14. 3WP ( 9 ), RC ( 9 ) , CON ( 9) , Al-JC ( 9 ), L AYER (10 ), XFC ( 21), XWP (21)
15. IFLAG=0
16. WRITEC6,l
-------
50. 2 1SHLATERAL DRAINAGE, ,
51. 3 24HBARRIER SOIL, AND WASTE.//
52. 4 1X,24HLATERAL DRAINAGE IS NOT ,
53. 337HPERMITTED FROM A VERTICAL PERCOI.ATIQN/7H LAYER./
54. 456H BOTH VERTICAL AMD LATERAL DRAINAGE IS PERMITTED FROM A ,
55. 57HLATERAL/16H DRAINAGE LAYER./IX,21 HA BARRIER SOIL LAYER ,
56. 642HSHOULD BE DESIGNED TO INHIBIT PERCOLATION./1X,
57. 7 39HAN IMPERMEABLE LINER MAY BE USED ON TOP ,
58. 8 27H OF ANY BARRIER SOIL LAYER./11H THE UASTE ,
59. 750HLAYER SHOULD DE DESIGNED TO PERMIT RAPID DRAINAGE /1X,
60. 821HFROM THE WASTE LAYER./)
61. 1
-------
100. 170 FORMATdH ,4H4.3 ,33HTHE LAYERS ARE NUMBERED SUCH THAT/
101. C
102. C START OF LOOP TO ENTER THICKNESSES AND SOIL TEXTURES
103. C OF THE LAYES.
10
-------
150. 327HDRAINAGE LAYER.—TRY AGAIN.//)
151. GO TO 211
152. 216 CONTINUE
153. IF(LAYER(1).EQ.3.0R.LAYER(1).EQ.5)WRITE(6,222)
154. 222 FORMATC6H 4.12 ,22HTHE TOP LAYER MAY NOT ,
155. 1 24HBE A BARRIER SOIL LAYER./ )
156. IF(LAYER(1).EQ.3.0R.LAYER(1).EQ.5)GO TO 211
157. GO TO 218
158. 217 CONTINUE
159. IF(LAYER(ILAYM1).NE.3.AND.LAYER(ILAYM1).NE.5)GO TO 218
160. IF(LAYERCILAY).NE.3.AND.LAYERCILAY).NE.5)GO TO 218
161. U!RITE(6,224)
162. 224 FORMATC6H 4.14 ,21HA BARRIER SOIL LAYER ,
163. 1 33HMAY NOT BE PLACED DIRECTLY BELOW /
164. 2 28H ANOTHER BARRIER SOIL LAYER./)
165. GO TO 211
166. 218 CONTINUE
167. IF(LAYERCILAY).EQ.5)LINER=LINER+1
168. WRITE(6,230)ILAY
169. 230 FORNATdH ,/3SH 4.15 ENTER SOIL TEXTURE OF SOIL LAYER, 12,1H.)
170. IF(ILAY.EQ.l) URITE(6,240)
171. 240 FORMATC1H ,/6H 4.16 ,33HENTER A NUMBER (1 THROUGH 23) FOR,
172. 1 9H TEXTURE ,23HCLASS OF SOIL MATERIAL.//4X,
173. 249HXXCHECK USER'S GUIDE FOR NUMBER CORRESPONDING TO ,
174. 1 12H50IL TYPE.**//)
175. READ(10,120) (KLM( J ),J-l, 74 )
176. CALL SCANCNO,VALUE,74,KLM)
177. KSOILCILAY)=VALUE(1)
178. ISOIL=KSOIL(ILAY)
179. IF(ISOIL.GE.1.AND.ISOIL.LE.23) GO TO 260
180. WRITE(6,250) ISOIL
181. 250 FORMATC1H ,/6H 4.17 ,I3,23H INAPPROPRIATE SOIL TEXTURE,
182. C
183. C ROUTINE TO ENTER MANUAL SOIL CHARACTERISTICS
184. C FOR SOIL TEXTURES 22 AND 23.
185. C
186. 19H NUMBER--,10HTRY AGAIN.//)
187. GO TO 218
188. 260 IF(ISOIL.LT.22) GO TO 268
189. URITE(6,261)
190. 261 FORMATC1H ,5H4.18 ,31HENTER THE POROSITY OF THE LAYER,
191. 1 12H IN VOL/VOL.//)
192. READ(10,120) (KLN(J),J=l,74)
193. CALL SCAIUNO,VALUE,74,KLM)
194. PORO(ILAY)=VALUECU
195. 262 FORnATdH ,5H4.19 ,31HENTER THE FIELD CAPACITY OF THE,
196. 118H LAYER IN VOL/VOL.//)
197. U'RITE(6,262)
198. READ(10,120) (KLMCJ),J-1,74)
199. CALL SCANCNO,VALUE,74,KLM)
-------
200. FC(ILAY)=VALUEd)
201. URITE(6,263)
202. 263 FORMATdH ,/6H 4.20 ,30HENTER THE WILTING POINT OF THE,
203. 118H LAYER IN VOL/VOL.//)
204. READ(10,120) (KLMCJ),J=1,74)
205. CALL SCANCNO,VALUE,74,KLM)
206. l.!PCILAY)=VALUECl)
207. WRITE (6,264)
208. 264 FORMATC1H ,/6H 4.21 ,32HENTER THE HYDRAULIC CONDUCTIVITY,
209. 127H OF THE LAYER IN INCHES/HR.//)
210. READ(10,120) (KLMCJ),J = 1,74 )
211. CALL SCANCNO,VALUE,74,KLM)
212. RC(ILAY)=VALUE(1)
213. WRITEC6,265)
214. 265 FORMATdH ,/6H 4.22 ,22HENTER THE EVAPORATION ,
215. 139HCOEFFICIENT OF THE LAYER IN MM/DAY**.5.//)
216. READ(10,120) CKLMCJ),J=l,74)
217. C
218. C ASSIGNS THE DEFAULT SOIL CHARACTERISTICS TO THE LAYER.
219. C
220. CON(ILAY)=VALUEC1)
221. GO TO 219
222. 268 RCCILAY)=XRCCISOIL)
223. CONCILAY)=XCONA(ISOIL)
224. PORO(ILAY)=XPOROS(ISOIL)
225. FC(ILAY)=XFCCISOIL)
226. UPCILAY)=XWPCISOIL)
227. IFCISOIL.GE.19) GO TO 219
228. 269 WRITEC6,270) ILAY
229. 270 FORMATdH ,/6H 4.23 ,13H1'S SOIL LAYER,12,11H COMPACTED/
230. 117H ENTER YES OR NO.//)
231. IF(LAYER(ILAY).EQ.3.0R.l.AYER(ILAY).EQ.13)URITE(6,275)
232. 275 FORMATdH ,/6H 4.25 ,25HTHE BARRIER SOIL LAYER IS,
233. 1 21H GENERALLY COMPACTED.//)
234. IF(ILAY.EQ.l) WRITE(6,280)
235. 280 FORMATC5H 4.24,39H THE VEGETATIVE SOIL LAYER IS GENERALLY,
236. 115H NOT COMPACTED.//)
237. CALL ANSMER (IAHS)
238. IFCIANS.EQ.l) GO TO 219
239. GW=PORO(ILAY)-FC(ILAY)
240. PAW=FC(ILAY)-WP(ILAY)
241. FC(ILAY)=UP(ILAY)+0.75«PAW
242. PORO(ILAY)=FC(ILAY)+0.75KGW
243. RC(ILAY)=RC(ILAY)/20.0
244. C
245. C INPUT IS COMPLETED. NEXT, CHECK TO SEE IF THE BOTTOM
246. C LAYER IS A BARRIER SOIL LAYER.
247. C
248. CON(ILAY)=3.1
249. 219 ILAY=ILAY+1
-------
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267 .
268.
269.
270.
271.
272.
273.
274.
275.
276.
277 .
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
220
221
322
225
226
227
228
C
C
C
C
229
290
390
400
410
420
1
1
2
3
4
1
1
2
1
1
2
3
3
1
2
3
4
5
IF(ILAY.LE.LAY) GO TO 190
ILAYM1=ILAY-1
IF(LAYERCILAYMl).NE.2) GO TO 225
IF(ILAYM1.GE.9) GO TO 221
WRITE(6,220)
FORMATC1H ,/6H 4.26 ,30HA BARRIER LAYER SHOULD BE USED
,11H BELOW THE /
31H BOTTOM LATERAL DRAINAGE LAYER.//22H DO YOU WANT TO ENTER
25HDATA FOR A BARRIER LAYER/17H EMTER YES OR NO.//1X,
48I1IF NO IS ENTERED, THE MODEL ASSUMES THAT LATERAL/
47H DRAINAGE DOES NOT OCCUR FROM THE BOTTOM LAYER.//)
CALL ANSUER(IANS)
IF(IANS.EQ.l) GO TO 225
LAY=LAY+1
GO TO 190
WRITE(6,322)
FORMATC1H ,/6H 4.27 ,32HA BARRIER LAYER SHOULD HAVE BEEN,
11H SPECIFIED./1X,
48HTHE MODEL ASSUMES THAT LATERAL DRAINAGE DOES NOT/
29H OCCUR FROM THE BOTTOM LAYER.//)
IFCLINER.EQ.O) GO TO 229
U'RITE(6,227)
FORMATC1H ,/6H 4.28 ,32HUHAT FRACTION OF THE AREA DRAINS,
9H THROUGH ,21HLEAKS IN THE MEMBRANE/1X,
40HOR WHAT FRACTION OF THE DAILY POTENTIAL ,
23HPERCOLATION THROUGH THE/14H BARRIER SOIL ,
30HLAYER OCCURS ON THE GIVEN DAY/1X,
322HENTER BETWEEN 0 AND I.//)
READ(10,120) (KLMCJ),J=1,74)
CALL SCANCNO,VALUE,74,KLM)
FLEAK=VALUE(1)
IF(FLEAK.GE.O.O.AND.FLEAK.LE.l.O) GO TO 229
WRITE(6,228)
FORMATC1H ,/6H 4.29 ,31HIHAPPROPRIATE VALUE—TRY AGAIN.//)
CHECKS IF THE VEGETATIVE TYPE HAS ALREADY BEEN ENTERED
DURING THIS SESSION.
GO TO 226
CONTINUE
CONTINUE
IF(LAYERC1).EQ.4) GO TO 451
IF (KFLAG.EQ.1.AND.KVEG.GE.1.AND.KVEG.LE.7) GO TO 443
WRITEC6,420)
FORMATdH //42H 4.30 SELECT THE TYPE OF VEGETATIVE COVER.,
1//31H ENTER NUMBER 1 FOR BARE GROUND/
214X,21H2 FOR EXCELLENT GRASS/
314X,16H3 FOR GOOD GRASS/
414X,16H4 FOR FAIR GRASS/
514X,16H5 FOR POOR GRASS/
-------
300. 614X,20H6 FOR GOOD ROW CROPS/
301. 714X,20H7 FOR FAIR ROW CROPS///)
302. READ(10,120) (KLM(J>,J=l,74)
303. 430 FORMATC74A1)
304. CALL SCANCNO,VALUE,74,KLM)
305. KVEG=VALUE(1)
306. IFCKVEG.GE.1.AND.KVEG.LF..7) GO TO 450
307. WRITE(6,440) KVEG
308. 440 FORMATC1H //5H 4.31,I4,30H INAPPROPRIATE VALUE-TRY AGAIN///)
309. GO TO 410
310. 450 WRITE(6,445)
311. 445 FORMATC1H ,/6H 4.32 ,25HIF YOU ARE USING DEFAULT ,
312. 1 21HCLIMATOLOGIC DATA AND/1X,5HTHIS ,
313. 2 39HVEGETATION TYPE IS HOT THE SAME USED IN/1X,
314. C
315. C CORECT ADJUSTS THE HYDRAULIC CONDUCTIVITY FOR VEGETATION.
316. C
317. 3 39HTHE CLIMATOLOGIC DATA INPUT, YOU SHOULD/1X,
318. 434HENTER THE CLIMATOLOGIC DATA AGAIN./)
319.
320. 443 IFLAG=1
321. IF(KSOILU).LT.22)RC(l)=CORECT(KVEG)*RCa)
322. WRITE(6,446)
323. 446 FORMATC1H /5H 4.33,36H DO YOU WANT TO ENTER A RUNOFF CURVE/1X,
324. 1 3SHNUMBER AND OVERRIDE THE DEFAULT VALUE/
^ 325. 2 17H ENTER YES OR NO./)
°° 326. CALL ANSWER(IANS)
327. IF(IANS.EQ.O) GO TO 447
328.
329. ISOIL=KSOIL(1)
330. CN2=(XAO(KVEG)+XAl(KVEG)*XMIRCISOIL)+XA2(KVEG)*
331. lXt1IR(ISOIL)**2)
332. GO TO 455 ,
333. 447 WRITE(6,448)
334. 448 FORMATC1H /5H 4.34,31H ENTER SCS RUNOFF CURVE NUMBER ,
335. 1 21HCBETWEEN 15 AND lOO'l./)
336. C
337. C OPEN IS CALLED WHEN THE TOP LAYER IS A WASTE LAYER.
338. C
339. READ(10,120)(KLM(J),J=1,74)
340. C
341. C WRITES THE SELECTED AND ENTERED DATA ON DATA FILE TAPE 5
342. C WHICH HAS ITS LINES NUMBERED.
343. C
344. CALL SCANCNO,VALUE,74,KLM)
345. CN2=VALUE(1)
346. GO TO 455
347. 451 CALL OPENCCN2,FRUNOF)
348. 455 JCOUNT=4
349. REWIND 5
-------
350. DO 458 J=l,3
351. WRITE(5,30> (ITITLE( J , I), 1 = 1 ,40 )
352. 458 CONTINUE
353. WRITEC5,460HAY,LINER,FLEAK,FRUNOF,CN2,JCOUNT
354. 460 FORMATC2I2.3F12.6,I7>
355. JCOUNT=5
356. WRITEt5,470KTHICKU),J = l,9>,JCOUNT
357. 470 FORMAT(9F7.2,17)
358. JCOUNT=6
359. WRITE(5,4SOHPORO,JCOUNT
360. 480 FORNAT<9F7.4,I7)
361. JCOUNT=7
362^ WRITEt5.4SOMFCtJ),J=l,9>,JCOUNT
3*3. JCOUHT=8
364. WRITE<5,480)CWP(4),J=1,9),JCOUNT
365, JCOUNT=9
366. WRITE(5.485)(CONCJ),J=1.9),JCOUNT
367. 485 FORMAT(9F7.3,I7)
368. JC€UNT=10
369. WRITE* 5,490 KRC(J),J = 1, 5 ),JCOUNT
370. C
371. C SITE IS CALLED TO SECURE DESIGN DATA.
372. C
373. 490 FORMAT(5F13.8,I7>
374. JCOUNT=11
375. WRITE(5,500)(RC(J),J=6,9),JCOUNT
376. 500 FORMAT(4F13.8,I7)
377. CALL SITE(LAYER,LAY,KVEG,ISAND)
378. KFLAG=0
379. RETURN
380. END
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxxx ETCHK xxxxxxxxxxxaxxxxxxxxxxxxx
3. C
4. C
5. C SUBROUTINE ETCHK CORRECTS THE PLANT TRANSPIRATION FOR LIMITING
6. C SOIL WATER CONDITIONS IN THE MANNER OF SAXTON AND SHANHOLTZ.
7. C
8.
9. SUBROUTINE ETCHKCET,ETT,ESS,EP,ES,WF,HALT)
10.
11. COMMON/BLK7/STHICKC16),ULC16>,FCULC16),WPUL(16),SWUL(16)
12. 1 .RCULU6)
13. DIMENSION ETC 16),WF(7),BALTC16)
14. C
15. C COMPUTES THE DEPTH WEIGHTED PLANT AVAILABLE WATER CAPACITY
16. C IN VOL/VOL.
17. C
18. PAWC=0.0
19. DO ID J=l,7
20. PAWC=PAWC+WF)
21.
22. 10 CONTINUE
23. C
24. C COMPUTES THE RATIO OF ACTUAL OR LIMITED PLANT TRANSPIRATION
25. C TO POTENTIAL PLANT TRANSPIRATION.
3 26, C
28." IF(PEFF.1T.O.O)PEFF = 0.0
30! IF(PEFF.GT.1.0)PEFF = UO
31. EXTBA=0.0
32. ETT=ESS
33. C
34. C COMPUTES ACTUAL EVAPOTRANSPIRATION ^ROM EACH SEGMENT ft»D,
35. C IF GREATER THAN THE WATER AVAILABLE IN A SEGMENT, THE
36. C DEMAND IS DISTRIBUTED TO LOWER SEGMENTS UNTIL DRY.
37. C
38. DO 30 J=l,7
39. PAWCUL=SWULC,n+BALT(J)/2.-WPULCJ>
4l! EXTRA=0.0
42. IF(ETCJ).LT.PAWCUL) GO TO 20
43. EXTRA=ET(J)-PAWCUL
44. ET(J)=PAUCUL
45. 20 IFCETCJ).LT.0.0)ETCJ>=0.0
46. ETT=ETT+ETCJ)
47. 30 CONTINUE
48. RETURN
49. END
-------
1.
2.
3.
4 .
5.
6.
7.
8.
9.
10.
11.
12.
13.
14 .
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
C
C
C
C
C
C
C
C
C
C
C
C
C
XXXXXXXXXXXXXXXXXXXXXXXXX ETCOEF XXXXXXXXXKXXXXXXXXXXXXXX
SUBROUTINE ETCOEF COMPUTES COEFICIENTS FOR
SUBROUTINE ETCOEFCWF, CONA, STAGE1 , STHICK)
COMMQN/BLK9/CONUL(16)
DIMENSION WF(7),STHICK(16)
COMPUTES THE EFFECTIVE DEPTH-WEIGHTED
EVAPORATION(TRANSMISSIVITY) COEFFICIENT.
CONA=0.0
DO 10 J=l,7
10 CONA=CONA-KWF(J>XCOHUL(J)/STHICK(J>>
IFCCONA.LT.3.1)CONA=3.1
COMPUTES THE UPPER LIMIT OF STAGE ONE SOIL
STAGEl=C9.0*(CONA-3.0)*xo.42>/25.4
RETURN
END
EVAPOTRANSPIRATION
EVAPORATION.
-------
1. C
2. C XXXXXXXXXXXXXXXXXXXXXXXKK EVAPOT xxxxxxxxxxxxxxxxxxxxxxxxx
3. C
4. C
5. C SUBROUTINE EVAPOT COMPUTES DAILY SURFACE EVAPORATION,
6. C SOIL EVAPORATION AND POTENTIAL PLANT TRANSPIRATION.
7. C
8. SUBROUTINE EVAPOT(SWULE,ET,PINF,SMO,T,ES1T,TET,ESS,WF,EP,ES)
9. COMMON/BLK8/PRE(370),TMPF(366),RAD(366),DLAI(367),GR,XLAI1
10. COMMON/BLK11/ETO(366),XLAI,STAGE1,CONA,RAIN,RUN,IDA
11.
12. DIMENSION ETC16),WF(7)
13.
14. EP=0.0
15. ES=0.0
16. ES1=0.0
17. ES2=0.0
18.
19. ESS=ETO(IDA)
20.
21. SURFSW=SNO+RAIN-RUN
22. C
23. C COMPUTES SURFACE EVAPORATION; IT IS LIMITED BY THE
24. C POTENTIAL DEMAND, RAINFALL AND SNOW. SURFACE EVAPORATION
25. C IS SUBTRACTED FROM THE INFILTRATION OR SNOW.
26 C
2?! IF(ESS.GT.SURFSW)ESS=SURFSW
28. IF(ESS.LT.O.O)ESS=0.0
29.
30. PINF=RAIN-RUN-ESS
31.
32. IF(PINF.GE.O.O) GO TO 10
33.
34. SNO=SNO+PINF
35.
36. PINF=0.0
37. C
38. C SOIL EVAPORATION AND PLANT TRANSPIRATION IS NOT
39. C PERMITTED IF THE TEMPERATURE IS BELOW 32 DEGREES F.
40. C
41. 10 IF(TMPF(IDA).LE.32.0) GO TO 20
42.
43. IF(ESS.GE.ETOdDA)) GO TO 20
44.
45. ALAI=XLAI
46.
47. IF(ALAI.LT.GR)ALAI=GR
48. C
49. C EXCESS ET DEMAND IS EXERTED ON SOIL EVAPORATION AFTER
-------
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
C
C
C
C
C
C
C
C
C
C
DETERMINING THE SURFACE EVAPORATION
LESS THAN THE STAGE 1 LIMIT; ELSE,
ESO = ETO(IDA)*EXPC--0.4XALAI)
IFCES1T.GE. STAGED GO TO 30
ES1=ETOCIDA)-ESS
IF(ES1.GT.ESO)ES1=ESO
ES1T=ES1T+ES1-PIHF
IF(ES1T.LT.O.O)ES1T = 0,-0
T = 0.0
ES=ES1
GO TO 40
NO EVAPQTRANSPIRATION OCCURS; ONLY
EVAPORATION OCCURRED.
20 TET=0.0
EP=0.0
ES^O.Q
ES1T=ES1T-PINF
IFCES1T.LT.O.O>ES1T=0.0
GO TO 50
COMPUTES STAGE 2 SOIL EVAPORATION.
30 T=T+1.0
ES2=CONAX(TX*0.5-(T-1.0)xx0.5)/25.4
; STAGE
STAGE 2
SURFACE
IFCES2.GT.(ETO(IDA)-ESS))ES2=ETO(IDA)-ESS
C
IF(ES2.GT.ESO)ES2=ESO
ES1T=ES1T+ES2-PINF
IF(ES1T.LT.O.O)ES1T=0.0
ES=ES2
-------
100. C COMPUTES POTENTIAL PLANT TRANSPIRATION.
101. C
102. 40 EP=ETO(IDA)*XLAI/3.0
103.
104. IFCEP.GT.(ETO(IDA)-ES-ESS))EP=ETOCIDA)-ES-ESS
105.
106. TET=ES+EP
107. C
103. C DISTRIBUTES THE EVAPOTRANSPIRATION.
109. C
110. 50 DO 60 J=l,7
111.
112. ETCJ)=TETXWFCJ)
113. IF(ETU).LT.O.O)ET(J)=0.0
114. 60 CONTINUE
115.
116. RETURM
117. END
-------
1.
2.
3.
ft.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14,
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
XHXXXXXKXXKXXKXXHXXK*X->fX HEAD XXXXXXXXXXXXXXXXXXXXXXXX
SUBROUTINE HEAD COMPUTES THE GRAVITATIONAL
HEAD ON THE TOP OF THE BARRIER LAYER.
SUBROUTINE HEADCTH, NSEG3,HSEGL , QOUTMX, E,DRIN, DT)
C
C
C
C
C
C
C
C
C
C
C
C
COMMON/BLK7/STHICK(16),UL(16),FCUL(16),WPULC16),
1 SWULC16),RCUL(16)
DIMENSION E(16),DRIN(17)
GRVWAT=0.0
TH=0.0
ESAT=0.0
COMPUTES HEAD FROM THE BOTTOM TO THE TOP UNTIL A
IS REACHED THAT IS NOT SATURATED.
DO 10 J=NSEGB,NSEGL
SEGMENT
ESAT IS EVAPOTRANSPIRATION FROM THE SEGMENTS CONTRIBUTING
TO HEAD IN A HALF OF A TIME PERIOD.
K=NSEGL+NSEGB-J
ESAT=ESAT+E(K)/2.0
IF(SWUL(K).LE.FCUL(K))GO TO 20
XHEAD=STHICK(K)X(SWUL(K)-FCUL(K))/CUL(K)-FCULCK>)
GRVWAT IS THE QUANTITY OF DRAINABLE WATER
CONTRIBUTING TO HEAD AT MIDPERIOD.
GRVWAT=GRVWAT+SWUL(K)-FCUL(K)
IFCXHEAD.GT.STHICK(K))XHEAD=STHICK(K)+SWUL(K)-UL(K)
C
C
C
C
TH=TH+XHEAD
XHEAD=XHEAD+0.005
IF(XHEAD.LT.STHICKdO) GO TO 20
10 CONTINUE
QOUTMX IS THE TOTAL DRAINABLE WATER AT THE END
OF THE TIME PERIOD.
-------
50. 20 QOUTMX=(GRVWAT-ESAT+DRIN(K)/2.0)/DT
51. IF(GRVWAT.LE.O.O)QOUTMX=0.0
52. IFCQOUTMX.LT.0.0>QOUTMX = 0 . 0
53. RETURN
54. END
-------
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
2ft.
25.
^ 26.
o 27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
xxxxxxxxxxxxxxxxxxxxxxxxx LATFLO xxxxxxxxxxxxxxxxxxxxxxx
SUBROUTINE LATFLO COMPUTES THE LATERAL DRAINAGE
AND PERCOLATION FROM THE LATERAL DRAINAGE LAYER.
SUBROUTINE LATFLO ( LAYD, NSEGE, TH, FLEAK, ELKS, DRN, PRC,
1 QOUTMX,LAYE)
COMMON/BLK3/SLOPE(9),XLENG(9)
COMMON/BLK7/STHICK(16),ULC16),FCULC16),WPUL(16),
1 SWUL(16),RCUL(16)
COMMON/BLK4/LAYER(10),THICK(9),LAY
IF(TH.GT.O.O) GO TO 10
NO DRAINAGE AND PERCOLATION IF THE HEAD IS ZERO.
DRN=0.0
PRC=0.0
RETURN
COMPUTES THE TWO CORRECTION FACTORS FOR LATERAL DRAINAGE.
10 IFCSLOPE(LAYD).EQ.O.O) GO TO 15
CF= ( SLOPEC L AYD) *XLENG(LAYD)XO. 00205*12. 0/1 00.0)+0. 510
CYBAR=(THX100.0/SLOPECLAYD)/XLENG(LAYD)/12.0)**0.16
GO TO 20
15 CF=0.65
CYBAR=1.0
20 IF(CYBAR.GT.(0.65/CF))CYBAR=0.65/CF
COMPUTES THE DRAINAGE RATE.
DRN=2.0*CFXELKS*THX((TH*CYBAR)-v
1 (SLOPEC LAYD) XXL EHG(LAYD)*12. 0/1 OO.O))/
2 CXLENG(LAYD)xi2.0)**2.
COMPUTES THE PERCOLATION RATE.
PRC^RCUL ( NS EGE)*(TH+STHICK( NSEGE ))/STHICK( NSEGE)
RECOMPUTES THE PERCOLATION RATE WHEN USING
A SYNTHETIC MEMBRANE.
IF(LAYERCLAYE).EQ.5)PRC-PRC*FLEAK
-------
o
DO
50. QOUT=DRN+PRC
51. IF(QOUT.LE.QOUTMX)GO TO 30
52. C
53. C RECOMPUTES THE DRAINAGE AND PERCOLATION RATES WHEN LIMITED
54. C BY THE AVAILABLE DRAINABLE WATERCQOUTMX).
55. C
56. DRN=DRN*QOUTMX/QOUT
57. PRC=PRC*QOUTMX/QOUT
58.
59. 30 RETURN
60. END
-------
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14 .
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
C
C xxxxxxxxxxxxxxxxxxxxxxxxx LATKS xxxxxxxxxxxxx
C
C
C SUBROUTINE LATKS COMPUTES EFFECTIVE LATERAL
C HYDRAULIC CONDUCTIVITY.
C
SUBROUTINE LATKSCTH
COMMON/BLK7/STHICKC
,NSEGB,NSEGL,ELKS)
16),UL(16),FCUL(16),WPULC16),
1 SWUL(16),RCUL(16)
ELKS=0.0
IFCTH.LE.0.0) GO TO
H = TH
DO 20 J=NSEGB,NSEGL
K=NSEGL+NSEGB-J
IF(H.LE.O.O) GO TO
IFCH.GT.STHICKCK))
30
30
GO TO 10
ELKS=ELKS+RCUL(K)XH/TH
GO TO 30
10 ELKS=ELKS + RCUL(K)*STHICK(K)/TH
H = H-STHICK(K)
20 CONTINUE
30 RETURN
END
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxxxxx MCDATA xxxxxxxxxxxxxxxxxxxxxxxxx
3. C
ft.
5.
6. SUBROUTINE MCDATA
7. C
8. C THIS SUBROUTINE PREPARES THE MANUAL CLIMATOLOGIC INPUT FILE
9. C
10. C
11. COMMON/BLK1/KCDATA,KSDATA,KFLAG,IFLAG,KVEG
12.
13. DIMENSION ZRAINC10 ), KLMC74), VALUEC10 ), JYEARC20 )
14. 1 ,RAIN(20,37,10)
15.
16. REWIND 11
17. WRITE(11,5)KCDATA
18. 5 FORMATCI5)
19. REWIND 11
20.
21. KKOUNT=0
22. WRITE(6,10)
23. 10 FORMATC1H //1X,66(1H*)/14X,32HUSE ONLY ENGLISH UNITS OF INCHES,
24. 19H AND DAYS/22X,26HUNLESS OTHERWISE INDICATED//1X,23(1H8),
25. 2 20HANSWER ALL QUESTIONS,22(1HS)/1X,66(IHx)/lX,
26. 311X,44HA VALUE xxt1UST*x BE ENTERED FOR EACH COMMAND/
27. 4 20X,28HEVEN WHEN THE VALUE IS ZERO./1X,66(1H*)//)
28. 15 WRITE(6,20)
29. 20 FORMATC1H //45H 3.1 DO YOU WANT TO ENTER PRECIPITATION DATA/
30. 1 1X,16HENTER YES OR NO.//)
31. CALL ANSWER(IANS)
32. IF(IANS.EQ.l) GO TO 170
33. URITE(6,30)
34. 30 FORMATC1H //1X,29(1HS),8H NOTICE , 29C1HS)//4X,13HPRECIPITATION,
35. 148H INPUT WILL ACCEPT XXTWENTY** (20) YEARS MAXIMUM/
36. 220X,28HAND XXTWO**(2) YEARS MINIMUM//)
37. WRITE(6,40)
38. 40 FORMATUH //1H ,66(1HX)/1H ,66(1HX)//
39. 110X,42HWHEN PRECIPITATION DATA ARE TO BE ENTERED,/!OX,
40. 243HTEN DAILY VALUES ARE TO BE ENTERED PER LINE/
41. 310X,32HAND 37 LINES OF VALUES PER YEAR./
42. 410X,42HIF ALL TEN VALUES ARE ZEROES (0), ONLY ONE/
43. 510X,24HZERO (0) NEED BE ENTERED,17H BEFORE RETURNING/
44. 610X,13HTHE CARRIAGE./10X,13HIF A LINE IS ,
45. 730HPARTIALLY FILLED WITH DATA AND/1 OX,14HTHE REMAINDER ,
46. 8 28HIS TO BE FILLED WITH ZEROES,/I OX,16HONLY A CARRIAGE ,
47. 9 19HRETURN IS REQUIRED.//1X,66(1H*)/lX,66(IHx)//)
48. REWIND 4
49. INEW=0
-------
50. WRITE(6,50)
51. 50 FORMATdH /47H 3.2 DO YOU WANT TO CORRECT OR ADD TO EXISTING
52. 119HPRECIPITATION DATA/1X,16HENTER YES OR NO.//)
53. CALL ANSWER(IANS)
54. IF(IANS.EQ.O) GO TO 175
55. NYEAR=0
56. ICOUNT=0
57. INEW=1
58. DO 60 1=1,10
59. 60 ZRAIN(I)=0.0
60. DO 80 J=l,740
61. WRITE(4,70)NYEAR,(ZRAIN(I),I=1,10),ICOUNT
62. 70 FORMAT(I10,10F5.2,I10)
63. 80 CONTINUE
64. REWIND 4
65. WRITE(6,90)
66. 90 FORMATdH /1H ,4H3.3 ,28HYOU ARE ENTERING A COMPLETE ,
67. 130HNEW SET OF PRECIPITATION DATA.//)
68. IKOUNT=1
69. 95 DO 160 I=IKOUNT,20
70. WRITE(6,100)
71. 100 FORMATdH /1H ,4H3.4 ,32HENTER THE YEAR OF PRECIPITATION ,
72. 119HDATA TO BE ENTERED./1X,
73. 237HENTER 0 (ZERO) TO END RAINFALL INPUT.//)
74. READ(lO.llO) (KLM(J),J=1,74)
75. 110 FORMAT(74A1)
76. CALL SCAN(NO,VALUE,74,KLM)
77. NYEAR=VALUE(1)
78. IF(NYEAR.EQ.O)GO TO 164
79. IFCI.EQ.DGO TO 118
80. DO 115 M=1,KKOUNT
81. KONT=M
82. IF(NYEAR.EQ.JYEARCM))GO TO 360
83. 115 CONTINUE
84. 118 WRITE (6,120) NYEAR
85. 120 FORMATdH /1H ,4H3.6 ,29HENTER TEN DAILY PRECIPITATION,
86. 116H VALUES PER LINE/27H AND 37 LINES PER YEAR FOR ,I4,1H./)
87. JYEAR(I)=NYEAR
88. KKOUNT=I
89. DO 150 K=l,37
90. WRITEC6.130) K
91. 130 FORMATdH ,4H3.7 ,11HENTER LINE ,I2,1H.)
92. READ(10,110) (KLM(J),J=1,74)
93. CALL SCAN(NO,VALUE,74,KLM)
94. DO 135 L=l,10
95. RAIN(KKOUNT,K,L)=VALUE(L)
96. 135 CONTINUE
97. 140 FORMAT(I10,10F5.2,I10)
98. 150 CONTINUE
99. 160 CONTINUE
-------
100. 164 REWIND 4
101. DO 163 I=1,KKOUNT
102. DO 161 J=l,37
103. WRITER,140) JYEAR(I),(RAIN(I,J,K),K = 1,10),J
104. 161 CONTINUE
105. 163 CONTINUE
106. REWIND 4
107.
108. 165 IF(KKOUNT.GT.O)CALL SORTYRCKKOUNT)
109.
110. 170 CALL PRECHK(KKOUNT)
111. REWIND 4
112.
113. GO TO 400
114. 175 IADD=0
115. 180 WRITE(6,190)
116. 190 FORMATC1H /1H ,4H3.8 ,30HDO YOU WANT TO ADD OR REPLACE
117. 1 20HADDITIONAL YEARS OF /1X,
118. 1 43HPRECIPITATION VALUES IN THE EXISTING DATA /1X,
119. 2 16HENTER YES OR NO./)
120. CALL ANSWER(IANS)
121. IF(IANS.EQ.l.AND.IADD.EQ-l) GO TO 395
122. IFCIANS.EQ.DGO TO 170
123. IF(IADD.EQ.l) GO TO 220
124. KKOUNT=0
125. IADD=1
126. DO 210 1=1,20
127. DO 205 J=l,37
128. READ(4,200,END=215)JYEAR(I),(RAIN(I,J,K),K=1,10)
129. 200 FORNAT(I10,10F5.2)
130. 205 CONTINUE
131. 210 KKOUNT=I
132. 215 REWIND 4
133. 220 URITE(6,230)KKOUNT,(JYEARU),J = 1,KKOUNT)
134. 230 FORMATUH /5H 3.9 ,14HDATA EXIST FOR,13,
135. 1 9H YEARS: ,5(I4,2H )/3(31X,5(I4,2H )/))
136. 240 IFUKOUNT.GE.20) GO TO 290
137. WRITE(6,100)
138. READ(10,110)(KLM(J),J=1,74)
139. CALL SCANCNO,VALUE,74,KLM)
140. NYEAR=VALUE(1)
141. IF(NYEAR.LE.O) GO TO 395
142. DO 250 I=1,KKOUNT
143. KONT=I
144. IF(NYEAR.EQ.JYEARCI)) GO TO 360
145. 250 CONTINUE
146. KKOUNT=KKOUNT+1
147. WRITE(6,120) NYEAR
148. JYEAR(KKOUNT)=NYEAR
149. DO 280 K=l,37
-------
150. WRITEC6,130) K
151. READC10,110)(KLM(J),J=1,74)
152. CALL SCANCNO,VALUE,74,KLtl)
153. DO 275 L=l,10
154. RAIN(KKOUNT,K,L)=VALUE(L)
155. 275 CONTINUE
156. 280 CONTINUE
157. GO TO 180
158. 290 l','RITE(6,300)
159. 300 FORMATUH /6H 3.10 ,34HTWENTY YEARS OF PRECIPITATION DATA/1X,
160. 1 26HHAVE ALREADY BEEN ENTERED./24H DO YOU WISH TO REPLACE ,
161. 2 18HANY YEARS OF DATA/1X,16HENTER YES OR NO.//)
162. CALL ANSWER(IAtfS)
163. IF(IANS.EQ.l) GO TO 395
164. WRITE(6,310)
165. 310 FORriATClH /1H ,5H3.11 .30HENTER THE YEAR TO BE REPLACED./)
166. READ(10,110) (KLM(I) , 1 = 1, 74 )
167. CALL SCANCNO,VALUE,74,KLM)
168. NOYEAR=VALUEC1)
169. DO 330 I=1,KKOUNT
170. KONT=I
171. IF(NOYEAR.EQ.JYEARCI)) GO TO 340
172. IFCI.EQ.20) WRITEC6,320)NOYEAR
173. 320 FORMATUH /6H 3.12 , I4,29H IS NOT IN THE EXISTING DATA.//)
174. 330 CONTINUE
175. GO TO 290
176. 340 U'RITE(6,100)
177. READ(10,110) (KLM(J),J=l,74)
178. CALL SCANCNO,VALUE,74,KLM)
179. NYEAR=VALUE(1)
180. DO 345 I=1,KKOUNT
181. IF(NYEAR.EQ.JYEARCI)) GO TO 360
182. 345 CONTINUE
183. WRITEC6,120)NYEAR
184. JYEAR(KONT)=NYEAR
185. DO 355 L=l,37
186. WRITE(6,130)L
187. READC10,110) CKLMCJ),J=l,74)
188. CALL SCANCNO,VALUE,74,KLM)
189. DO 350 K=l,10
190. RAINCKONT,L,K)=VALUECK)
191. 350 CONTINUE
192. 355 CONTINUE
193.
194. GO TO 290
195. 360 WRITE(6,370) NYEAR
196. 370 FORMATdH /1H ,4H3.5 ,I4,28H ALREADY EXISTS IN THE DATA./1X,
197. 1 41HDO YOU WANT TO REPLACE THE EXISTING DAfA/lX,
198. 2 16HENTER YES OR NO./)
199. CALL ANSWER(IANS)
-------
200. IKOUNT=KKOUNT+1
201. IFCIANS.EQ.l.AND.INEW.EQ.DGO TO 95
202. IFCIANS.EQ.1.AND.KKOUNT.GE.20) GO TO 290
203. IFdANS.EQ.DGO TO 180
204. URITEC6,120)NYEAR
205. DO 380 L=l,37
206. IJRITE(6,130) L
207. READ(lO.llO) ( KLMU ) , J = l, 74 )
208. CALL SCANCNO, VALUE, 7<+,KLM)
209. DO 375 K=l,10
210. RAINCKONT,L,K)=VALUE(K)
211. 375 CONTINUE
212. 380 CONTINUE
213. IFCINEW.EQ.DGO TO 95
214. IFCKKOUNT.GE.20) GO TO 290
215. GO TO 180
216. 395 REWIND 4
217. DO 399 I=1,KKOUNT
218. DO 397 J=l,37
219. k'RITE(4,140) JYEARCI >, (RAINCI, J,K> ,K = J, 10) , J
220. 397 CONTINUE
221. 399 CONTINUE
222. REWIND 4
223. GO TO 165
224.
225. 400 CALL MTRLYR(KKOUNT)
226.
227. RETURN
228. END
-------
1.
2. C
3. C xxxxxxxxxxxxxxxxxxxxxxxxx MSDATA xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
4. C
5. C SUBROUTINE MSDATA ACCEPTS THE USER INPUT OF SOIL
6. C CHARACTERISTICS AND DESIGN INFORMATION.
7. C
8.
9. SUBROUTINE MSDATA
10.
11. COMMON/BLK1/KCDATA,KSDATA,KFLAG,IFLAG,KVEG
12.
13. DIMENSION ITITLE(3,40),KLM(74),VALUEdO),THICK(9),PORO(9),
14. 1 FC(9),tJP(9),RC(9),CON(9),LAYER(10)
15. WRITE(6,10)
16. 10 FORMATdH /1H ,4H5.1 ,31HDO YOU WANT TO CORRECT OR CHECK/1X,
17. 1 34HTHE EXISTING DESIGN AND SOIL DATA/1X,
18. 2 16HENTER YES OR NO.//)
19. CALL ANSWER(IANS)
20. IFCIANS.EQ.O) GO TO 510
21.
22. WRITE(6,20)
23. 20 FORMATdH /46H 5.2 YOU ARE ENTERING A COMPLETE NEW DATA SET.//)
24. WRITE(6,30)
25. 30 FORMATdH //1X,66(1H*)/14X,25HUSE ONLY ENGLISH UNITS OF,
26. 1 16H INCHES AND DAYS/2 OX,16HUULESS OTHERWISE,
27. 2 10H INDICATED//lX,23dHit),20HANSWER ALL QUESTIONS,
23. 3 22dHS)/lX,66dH*)/]2X,
29. 4 44HA VALUE XXMUSTX* BE ENTERED FOR EACH COMMAND/
30. 5 20X,28HEVEN WHEN THE VALUE IS ZERO ./1X , 66 dHX )//)
31. WRITEC6.40)
32. 40 FORMATdH //23H ENTER TITLE ON LINE ],/
33. 1 45H ENTER LOCATION OF SOLID WASTE SITE ON LINE 2/
34. 2 34H AND ENTER TODAY'S DATE ON LINE 3.//V)
35. DO 60 J = l,3
36. READ(10,50)(ITITLE(J,I),I=1,40)
37. 50 FORMATC80A1)
38. 60 CONTINUE
39. URITE(6,70)
40. 70 FORMATdH ,/5H 5.3 ,32HFOUR TYPES OF LAYERS MAY BE USED,
41. 1 15H IN THE DESIGN:/23H VERTICAL PERCOLATION, ,
42. 2 18HLATERAL DRAINAGE, ,
43. 3 24HBARRIER SOIL, AND WASTE.//
44. 4 1X,24HLATERAL DRAINAGE IS MOT ,
45. 5 44HPERHITTED FROM A VERTICAL PERCOLATION LAYER./1X,
46. 6 54HBOTH VERTICAL AND LATERAL DRAINAGE IS PERMITTED FROM A,
47. 7 8H LATERAL/16H DRAINAGE LAYER./22H A BARRIER SOIL LAYER ,
48. 8 42HSHOULD BE DESIGNED TO INHIBIT PERCOLATION./1X,
49. 9 39HAN IMPERMEABLE LINER MAY BE USED ON TOP ,
-------
50. 1 27H OF ANY BARRIER SOIL LAYER./11H THE MASTE ,
51. 2 50HLAYER SHOULD BE DESIGNED TO PERMIT RAPID DRAINAGE /1X,
52. 3 21HFROM THE WASTE LAYER.//)
53. WRITE(6,75)
5ft. 75 FORMATdH /7H RULES://27H THE TOP LAYER CANNOT BE A ,
55. 1 19HBARRIER SOIL LAYER.)
56. WRITE(6,80)
57. 80 FORMATC30H A BARRIER SOIL LAYER MAY NOT ,
58. 1 29HBE PLACED ADJACENT TO ANOTHER /
59. 2 20H BARRIER SOIL LAYER./20M ONLY A BARRIER SOIL,
60. 3 47H LAYER OR ANOTHER LATERAL DRAINAGE LAYER MAY BE/
61. $ 48H PLACED DIRECTLY BELOW A LATERAL DRAINAGE LAYER./
62. 5 40H YOU MAY USE UP TP 9 LAYERS AND UP TO 3 ,
63. 6 20HBARRIER SOIL LAYERS.//17H ENTER THE NUMBER,
64. 7 26H OF LAYERS IN YOUR DESIGN.//)
65. C
66. C INITIALIZES THE DATA FILE VARIABLES.
67. C
68. DO 90 1=1,9
69. THICK(I)=0.0
70. PORO(I)=0.0
71. FC(I)=0.0
72. WP(I)=0.0
73. LAYERd) = 0
74. RC(I)=0.0
75. CONCI)=0.0
76. 90 CONTINUE
77. LINER=0
78. FLEAK=1.0
79. FRUNOF=1.0
80. LAYERdO) = 0
81. 100 READdO,110KKLM(J),J=l,74)
82. 110 FORMATC74A1)
83. CALL SCANCNO,VALUE,74,KLM)
84. LAY = VALUEd)
85. IF(LAY.EQ.l) GO TO 130
86. IF(LAY.GT.1.AND.LAY.LE.9) GO TO 150
87. WRITE(6,120)
88. 120 FORMATdH /1H ,4H5.6 ,27HYOU MAY HAVE 1 TO 9 LAYERS.///)
89. GO TO 100
90. 130 WRITE(6,140)
91. 140 FORMATdH /1H ,4H5.5 ,31HSOIL LAYER 1 IS THE ONLY LAYER./)
92. GO TO 170
93. 150 WRITE(6,160)LAY
94. 160 FORMATdH /1H ,4H5.4 ,33HTHE LAYERS ARE NUMBERED SUCH THAT/
95. C
96. C STARTS LOOP TO ENTER THE SOIL CHARACTERISTICS OF THE LAYERS.
97. C
98. 1 30H SOIL LAYER 1 IS THE TOP LAYER/
99. 2 15H AND SOIL LAYER,12,21H IS THE BOTTOM LAYER./)
-------
100. 170 ILAY=1
101. ISAND=0
102. WRITE(6,175)
103. 175 FORMATC1H /5H 5.7 ,32HIS THE TOP LAYER AN UNVEGETATED ,
104. 1 21HSAND OR GRAVEL LAYER/17H ENTER YES OR NO./)
105. CALL ANSWERCIANS)
106. IF(IANS.EQ.O)ISAND=1
107. 180 WRITEC6,190)ILAY
108. 190 FORMATC1H /1H ,4H5.8 ,29HENTER THICKNESS OF SOIL LAYER,12,
109. 1 11H IN INCHES.)
110. READC10,110)CKLMCJ),J=1,74)
111. CALL SCANCNO,VALUE,74,KLM)
112. THICKCILAY)=VALUEC1)
113. IFCTHICKCILAYKGT.O.C) GO TO 210
114. URITEC6.200)
115. 200 FORMATC1H ,4H5.9 ,36HTHICKNESS MUST BE GREATER THAN ZERO.)
116. GO TO 180
117. 210 WRITEC6,220)ILAY
118. 220 FORMATC1H /1H ,5H5.10 ,32HENTER THE POROSITY OF SOIL LAYER,12,
119. 112H IN VOL/VOL./)
120. READC10,110)CKLMCJ),J=1,74)
121. CALL SCANCNO,VALUE,74,KLM)
122. PORO(ILAY)=VALUE(1)
123. WRITEC6,230)ILAY
124. 230 FORMATC1H /44H 5.11 ENTER THE FIELD CAPACITY OF SOIL LAYER,
125. 112,12H IN VOL/VOL./)
126. READC10,110)CKLMCJ),J = 1,7'+)
127. CALL SCANCNO,VALUE,74,KLM)
128. FCCILAY)=VALUEC1)
129. WRITE(6,240)ILAY
130. 240 FORMATUH /43H 5.12 ENTER THE WILTING POINT OF SOIL LAYER,
131. 1 I2,12H IN VOL/VOL./)
132. READ (10,110)(KLM(J),J=1,74)
133. CALL SCANCNO,VALUE,74,KLM)
134. L'JP(ILAY)=VALUE(1)
135. WRITEC6,250)ILAY
136. 250 FORMATC1H /1H ,5H5.13 ,32HENTER THE HYDRAULIC CONDUCTIVITY,
137. 1 14H OF SOIL LAYER,12,14H IN INCHES/HR./)
138. READ(10,110)(KLMCJ),J=l,74)
139. CALL SCANCNO,VALUE,74,KLM)
140. RC(ILAY)=VALUE(1)
141. WRITE(6,260) ILAY
142. 260 FORtlATdH /1H ,5H5.14 ,21HEHTER THE EVAPORATION,
143. 2 26H COEFFICIENT OF SOIL LAYER,I2/20H IN (MM)/(DAY**0.5)./)
144. READ(10,110)(KLM(J),J=1,74)
145. CALL SCANCNO,VALUE,74,KLM)
146. CONCILAY)=VALUEC1)
147. 270 U'RITE(6,280)ILAY
148. 280 FORMATC1H /6H 5.15 ,30HENTER THE LAYER TYPE FOR LAYER,12,1H./)
149. IF(ILAY.EQ.1)WRITEC6,290)
-------
150. 290 FORMATC1H /47H 5.16 ENTER 1 FOR A VERTICAL PERCOLATION LAYER,
151. 1 /12X,31H2 FOR A LATERAL DRAINAGE LAYER,/
152. 2 12X.27H3 FOR A BARRIER SOIL LAYER,/
153. 3 12X,23H4 FOR A WASTE LAYER AND/
154. 4 12X,31H5 FOR A BARRIER SOIL LAYER WITH/
155. 5 14X,21HAN IMPERMEABLE LINER./)
156. READ(10,110)CKLM(J),J=1,74)
157. CALL SCANCNO,VALUE,74,Kim
153. LAYER(ILAY)=VALUE(1)
159. IF(LAYERCILAY).LT.1.0R.LAYERCILAY).GT.5)WRITE(6,295)LAYERCILAY>
160. 295 FORMATC1H /5H 5.17,I5,27H INVALID VALUE—TRY AGAIN/)
161. IF(LAYERCILAY).LT.l.OR.LAYERCILAY).GT.5) GO TO 270
162. IFCILAY.EQ.DGO TO 302
163. ILAYM1=ILAY-1
164. IF(LAYERCILAYM1).EQ.3.0R.LAYER(ILAYM1).EQ.5)GO TO 320
165. IF(LAYER(ILAY).EQ.2) GO TO 330
166. IF(LAYER(ILAY).EQ.3) GO TO 330
167. IF(LAYERCILAY).EQ.5) GO TO 310
168. IFCLAYERCILAYM1).NE.2)GO TO 330
169. WRIT EC 6,300)
170. 300 FORHATC1H /1H ,5H5.19 ,35HEITHER A LATERAL DRAINAGE LAYER OR /
171. 1 1X.33HA BARRIER SOIL LAYER MUST FOLLOW /1X,
172. 210HA LATERAL ,27HDRAINAGE LAYER.--TRY AGAIN.//)
173. GO TO 270
174. 302 IFCLAYER(l).NE.3.ANO.LAYERC1>.NE.5)GO TO 330
175. l!RITE(6,305)
176. 305 FORMATC1H /6H 5.18 ,22HTHE TOP LAYER MAY NOT ,
177. 1 24HBE A BARRIER SOIL LAYER./)
178. GO TO 270
179. 320 IFCLAYER(ILAY).HE.3.AND.LAYERCILAY).NE.5)GO TO 330
180. WRITE(6,325)
181. 325 FORMATUH /6H 5.20 ,21HA BARRIER SOIL LAYER ,
182. 1 33HMAY NOT BE PLACED DIRECTLY BELOW /
183. 2 28H ANOTHER BARRIER SOIL LAYER./)
184. GO TO 270
185.
186. C
187. C SOIL CHARACTERISTICS INPUT IS COMPLETED. CHECKS TO SEE IF
188. C THE BOTTOM LAYER IS A BARRIER SOIL LAYER.
189. C
190. 310 LINER=LINER+1
191. 330 ILAY=ILAY+1
192. IFCILAY.LE.LAY) GO TO 180
193. ILAYM1=ILAY-1
194. IF(LAYER(ILAYf1l).NE.2) GO TO 370
195. IFCILAYM1.GE.9) GO TO 350
196. WRITE(6,340)
197. 340 FORMATUH /1H ,5H5.21 ,30HA BARRIER LAYER SHOULD BE USED,
198. 1 25H BELOL-J THE BOTTOM LATERAL/16H DRAINAGif LAYER.//1X,
199. 2 21HDO YOU WANT TO ENTER ,
-------
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226 .
227 .
223.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241 .
242.
243.
244.
245.
246.
247.
248.
249.
C
C
C
C
3 25HDATA FOR A BARRIER LAYER/17H ENTER YES OR NO.//
4 1X,40HIF NO IS ENTERED, THE MODEL ASSUMES THAT/1X,
5 54HLATERAL DRAINAGE DOES NOT OCCUR FROM THE BOTTOM LAYER.//)
CALL ANSWERCIAHS)
IF(IANS.EQ.l) GO TO 370
LAY=LAY+1
GO TO 180
350 WRITE(6,360)
360 FORMATdH /1H ,4H5.22,33H A BARRIER LAYER SHOULD HAVE BEEN,
1 11H SPECIFIED./1X,
155HTHE MODEL ASSUMES THAT LATERAL DRAINAGE DOES NOT OCCUR /
1 1X,22HFROM THE BOTTOM LAYER.//)
370 IF(LINER.EQ.O) GO TO 410
380 WRITE(6,390)
390 FORMATdH /46H 5.23 WHAT FRACTION OF THE AREA DRAINS THROUGH,
1 22H LEAKS IN THE MEMBRAKE/1X,
2 40HOR WHAT FRACTION OF THE DAILY POTENTIAL ,
3 23HPERCOLATION THROUGH THE/14H BARRIER SOIL ,
4 30HLAYER OCCURS ON THE GIVEN DAY/1X,
5 22HEHTER BETWEEN 0 AND I.//)
READ(10,110)(KLM(J),J=1,74>
CALL SCANCNO,VALUE,74,KLM)
FLEAK=VALUE(1)
IFCFLEAK.GE.O.O.AND.FLEAK.LE.l.O'; GO TO 410
WRITEC6.400)
400 FORMATdH /1H ,5H5.24 ,31HINAPPROPRIATE VALUE--TRY AGAIN.//)
OPEN IS CALLED WHEN THE TOP LAYER IS A WASTE LAYER.
GO TO 380
410 CONTINUE
IFCLAYER(l).EQ.4) CALL OPEN(CN2,FRUNOF)
IF(LAYERd) .EQ.4) GO TO 440
420 WRITE(6,430)
430 FORMATdH /6H 5,25 ,37HENTER THE SCS RUNOFF CURVE NUMBER FOR,
1 27H THE DESIGN VEGETATIVE SOIL/1X,20HAND VEGETATIVE COVER,
2 40H UNDER ANTECEDENT MOISTURE CONDITION II./
3 21H (BETWEEN 15 AND 100)/)
READdO,110)(KLMCJ),J = l,74)
WRITES THE ENTERED DATA ON DATA FILE TAPE 5
WHICH LINES ARE NUMBERED.
CALL SCANCNO,VALUE,74,KLM)
CN2=VALUEC1)
440 JCOUNT=4
-------
250. REWIND 5
251. DO 445 J = l,3
252. WRITE(5,50) (ITITLECJ,I),1=1,40)
253. 445 CONTINUE
254. URITE(5,450)LAY,LINER,FL£AK, FRUNOF, CN2, JCOUNT
255. 450 FORMAT(2I2,3F12.6,T7)
256. JCOUNT=5
257. WRITE(5,460)(THICK(J),J=1,9),JCOUNT
258. 460 FORMAT(9F7.2,I7)
259. JCOUNT=6
260. URITEC 5,470)(PORO(J),J = 1,9),JCOUNT
261. 470 FORMAT(9F7.4,I7)
262. JCOUHT=7
263. WRITE(5,470)(FC(J),J=l,9),JCOUNT
264. JCOUNT=8
265. URITE(5,470)(WP(J),J=1,9),JCOUNT
266. JCOUNT=9
267. HRITE(5,480)(CON(J),J=1,9),JCOUNT
268. 480 FORt1AT(9F7.3,I7)
269. JCOUNT=10
270. URITE( 5,490)(RC(J),J=1,5),JCOUNT
271. 490 FORMAT(5F13.8,I7)
272. JCOUNT=11
273. C
274. C SITE IS CALLED TO SECURE DESIGN DATA.
275. C
276. WRITE(5,500)
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxxx MTRLYR xxxxxxxxxxxxxxxxxxxxxxxxx
3. C
4. C
5. C SUBROUTINE MTRLYR ACCEPTS USER INPUT OF CLIMATOLOGIC
6. C DATA OTHER THAN PRECIPITATION.
7. C
8. SUBROUTINE MTRLYR(KKOUNT)
9. COMMON/BLK1/KCDATA,KSDATA,KFLAG,IFLAG,KVEG
10.
11. DIMENSION KLM(74),VALUE(10),TEMP(12),RADI(12),
12. 1 LDAY13(13),XLAI13(13),JYEAR(20)
13. REWIND 4
14. DO 3 I=1,KKOUNT
15. READ(4,5)JYEAR(I)
16. 5 FORMAT(I10,36(/))
17. 3 CONTINUE
18. REWIND 4
19. WRITE(6,8)
20. 8 FORMATC1H /36H 8.1 DO YOU WANT TO ENTER OR CORRECT/
21. 1 25H OTHER CLIMATOLOGIC DATA/i7H ENTER YES OR NO./)
22. CALL ANSWER(IANS)
23. IFCIANS.EQ.DGO TO 740
24. C
25. C xxxxxx TEMPERATURES xxxxxx
O f p
27! WRITE(6,10)
28. 10 FORMATC1H /43H 8.2 DO YOU WANT TO ENTER TEMPERATURE DATA/
29. 1 1X,16HENTER YES OR NO./)
30. CALL ANSWER(IANS)
31. IF(IANS.EQ.l) GO TO 210
32. REWIND 7
33. WRITE(6,20)
34. 20 FORMATC1H /44H 8.3 DO YOU WANT TO ENTER A DIFFERENT SET OF/
35. 2 1X,35HMOHTHLY TEMPERATURES FOR EACH YEAR//1X,
36. 3 16HENTER YES OR NO.//1X,
37. 4 43HCIF NO IS ENTERED, THE PROGRAM WILL USE THE/1X,
38. 5 41HSAME SET OF MONTHLY TEMPERATURES FOR EACH/1X,
39. 6 20HYEAR OF SIMULATION.)/)
40. CALL ANSWER(IAHS)
41. IF(IANS.EQ.l) GO TO 160
42. C
43. C xxxx MULTIPLE SETS OF TEMPERATURES xxxx
44. C
45. REWIND 7
46. DO 150 I=1,KKOUNT
47. WRITE(6,30)JYEAR(I)
48. 30 FORMATdH ,4H8.4 ,31HENTER MONTHLY TEMPERATURES FOR ,I4,1H.)
49. IF(I.EQ.l) GO TO 50
-------
50. WRITE(6,40)
51. 40 FORMATC1H /42H 8.5 DO YOU WANT TO USE THE SAME VALUES AS,
52. 1 19H THE PREVIOUS YEAR/1X,16HENTER YES OR NO./)
53. CALL ANSWER(IANS)
54. IF(IANS.EQ.O) GO TO 130
55. 50 URITE (6,60) JYEAR(I)
56. 60 FORMATUH /37H 8.6 ENTER MONTHLY VALUES FOR JANUARY,
57. 1 8H THROUGH,6H JUNE ,I4,14H IN DEGREES F./1X,
58. 2 36HENTER ALL 6 VALUES IN THE SAME LINE./)
59. READ (10,90)CKLMCJ),J=1,74)
60. CALL SCANCNO,VALUE,74,KLM)
61. DO 70 M=l,6
62. 70 TEMP(M)=VALUE(M)
63. WRITEC6,SO) JYEAR(I)
64. 80 FORMATC1H /42H 8.7 ENTER MONTHLY VALUES FOR JULY THROUGH,
65. 1 10H DECEMBER ,I4,14H IN DEGREES F./1X,
66. 2 36HENTER ALL 6 VALUES IN THE SAME LINE./)
67. READC10,90)CKLMCJ),J=1,74)
68. 90 FORMATC74A1)
69. CALL SCANCNO,VALUE,74,KLM)
70. DO 100 M=7,12
71. Ml=M-6
72. 100 TEMPCM)=VALUECM1)
73. WRITEC6,110)TEMPCl),TEMPC7),TEMPC2),TEMP(8),TEriPC3),TEMPC9),
74. 1 TENPC4),TEMPC10),TEMPC5),TEMPU1),TEMPC6),TEMP(12)
75. 110 FORMATC1H /44H 8.8 THESE ARE THE INPUT TEMPERATURE VALUES./
76. 1 10X,9HJAN.-JUNE,7X,9HJULY-DEC./
77. 2 6(11X,F6.1,9X,F6.1/))
78. WRITE(6,120)
79. 120 FORMATC1H /4H 8.9,28H DO YOU WANT TO CHANGE THEM/1X,
80. 1 16HENTER YES OR NO./)
81. CALL ANSWERCIANS)
82. IFCIANS.EQ.O) GO TO 50
83. 130 WRITE(7,140) JYEARCI),CTEMPCM),M=1,12)
84. 140 FORMAT(I5,12F6.1)
85. 150 CONTINUE
86. REWIND 7
87. GO TO 210
88. C
89. C XXXXXK ONE SET OF TEMPERATURES XKXXXX
90. C
91. 160 WRITE(6,170)
92. 170 FORMATC1H /47H 8.10 ENTER THE MONTHLY TEMPERATURES IN DEGREES,
93. 1 3H F./40H TO BE USED FOR ALL YEARS OF SIMULATION.//1X,
94. 2 38HENTER VALUES FOR JANUARY THROUGH JUNE./
95. 3 37H ENTER ALL 6 VALUES IN THE SAME LINE./)
96. READ(10,90)(KLM(J),J=l,74)
97. CALL SCANCNO,VALUE,74,KLM)
98. DO 180 M=l,6
99. 180 TEMPCM)=VALUECM)
-------
100. WRITE(6,190)
101. 190 FORMAT dH /35H 8.11 ENTER MONTHLY VALUES FOR JULY,
102. 1 8H THROUGH,23H DECEMBER IN DEGREES F./
103. 2 37H ENTER ALL 6 VALUES IN THE SAME LINE./)
104. READ(10,90)(KLM(J),J=1,74)
105. CALL SCANCNO,VALUE,74,KLM)
106. DO 200 M=7,12
107. Ml=M-6
108. 200 TEMPCM)=VALUE(M1)
109. WRITE(6,110)TEMPd),TEMP(7),TEMP(2),TEMP(8),TEMP(3),TEMP(9),
110. 1 TEMP(4),TEMPdO), TEMPO), TEMP dl), TEMFC 6 ), TEMP d2)
111. WRITE(6,120)
112. CALL ANSWER(IANS)
113. IF(IANS.EQ.O) GO TO 160
114. LYEAR=0
115. REWIND 7
116. WRITE(7,140)LYEAR,(TEMP CM),M = 1,12)
117. REWIND 7
118. C
119. C *xxxxx SOLAR RADIATION xxxxxx
120. C
121. 210 WRITE(6,220)
122. 220 FORMATdH /42H 8.12 DO YOU WANT TO ENTF.R SOLAR RADIATION,
123. 1 6H DATA/1X,16HENTER YES OR NO./)
124. CALL ANSWER(IANS)
125. IFUANS.EQ.l) GO TO 675
126. WRITE(6,230)
127. 230 FORMATdH /46H 8.13 DO YOU WANT TO ENTER A DIFFERENT SET OF /
128. 1 1X,45HMONTHLY SOLAR RADIATION VALUES FOR EACH YEAR/1X,
129. 2 16HENTER YES OR NO./)
130. REWIND 13
131. CALL ANSWER(IANS)
132. IF(IANS.EQ.l) GO TO 330
133. C
134. C xxxxxx MULTIPLE SETS OF SOLAR RADIATION xxxxxx
135. C
136. DO 320 I=1,KKOUNT
137. WRITE(6,240) JYEAR(I)
138. 240 FORMATdH /36H 8.14 ENTER MONTHLY SOLAR RADIATION ,
139. 1 11H VALUES FOR,I4,1H.)
140. IF(I.EQ.l) GO TO 250
141. WRITE(6,40)
142. CALL ANSWERdANS)
143. IFCIANS.EQ.O) GO TO 310
144. 250 WRITE(6,260) JYEARd)
145. 260 FORMATdH /46H 8.15 ENTER MONTHLY SOLAR RADIATION VALUES FOR/
146. 1 1X.21HJANUARY THROUGH JUNE ,I4,17H IN LANGLEYS/DAY./1X,
147. 2 36HENTER ALL 6 VALUES IN THE SAME LINE./)
148. READ(10,90)(KLM(J),J=l,74)
149. CALL SCAN(NO,VALUE,74,KLM)
-------
150. DO 270 M=l,6
151. 270 RADI(M)=VALUE(M)
152. WRITEC6,280) JYEARCI)
153. 280 FORNATdH /46H 8.16 ENTER MONTHLY SOLAR RADIATION VALUES FOR/
154. 1 1X,22HJULY THROUGH DECEMBER ,I4,17H IN LANGLEYS/DAY./1X,
155. 2 36HEHTER ALL 6 VALUES IN THE SANE LINE./)
156. READdO,90)(KLMU),J = l,74)
157. CALL SCAN(NO,VALUE,74,KLM)
158. DO 290 M=7,12
159. Hl=M-6
160. 290 RADI(M)=VALUE(M1)
161. URITEC6,300)RADId),RADI(7),RADIC2),RADI(8),RADIC3),RADI(9),
162. lRADI(4),RADIdO),RADI(5),RADIdl),RADI(6),RADId2)
163. 300 FORMATdH /41H 8.17 THESE ARE THE INPUT SOLAR RADIATION,
164. 1 8H VALUES./10X,9HJAN.-JUNE,7X,9HJULY-DEC./
165. 2 6dlX,F6.1,10X,F6.1/))
166. l'JRITE(6,120)
167. CALL ANSWERdANS)
168. IF(IANS.EQ.O) GO TO 250
169. 310 WRITEd3,140) JYEARCI) ,(RADI(M),M = 1,12)
170. 320 CONTINUE
171. REWIND 13
172. GO TO 675
173. C
174. C xxxxxx ONE SET OF SOLAR RADIATION xxxxxx
175. C
176. 330 WRITEC6,340)
177. 340 FORNATdH /46H 8.18 ENTER THE MONTHLY SOLAR RADIATION VALUES,
178. 116H IN LANGLEYS/DAY/35H TO BE USED FOR ALL YEARS OF SII1ULA,
179. 2 5HTION./39H ENTER VALUES FOR JANUARY THROUGH JUNE./1X,
180. 3 36HENTER ALL 6 VALUES IN THE SAME LINE./)
181. READ(10,90)(KLMU),J = 1,74)
182. CALL SCANCNO,VALUE,74,KLM)
183.
184.
185. DO 350 M=l,6
186. 350 RADI(M)=VALUECM)
187. WRITE(6,360)
188. 360 FORMATC1H /46H 8.19 ENTER MONTHLY SOLAR RADIATION VALUES IN ,
189. 1 /40H LANGLEYS/DAY FOR JULY THROUGH DECEMBER./1X,
190. 2 36HENTER ALL 6 VALUES IN THE SAME LINE./)
191. READ(10,90)(KLM(J),J=1,74)
192. CALL SCAHCNO,VALUE,74,KLM)
193. DO 370 M=7,12
194. Ml=M-6
195. 370 RADI(M)=VALUE(M1)
196. KiRITE(6,300)RADI(l),RADI(7),RADI(2),RADir8),RADI(3),RADI(9),
197. 1 RADI(4),RADI(10),RADI(I>),RADI(11),RADI(6),RADI(12)
198. WRITE(6,120)
199. CALL ANSUERCIANS)
-------
200. IF(IANS.EQ.O) GO TO 330
201. LYEAR=0
202. WRITE(13,140)LYEAR,(RADI(M),M=1,12)
203. REWIND 13
204. C
205. C ****** EVAPORATIVE ZONE DEPTH xxxxxx
206. C ****** ONLY ONE VALUE CAN BE SPECIFIED ******
207. C
208. 675 WRITE(6,680)
209. 680 FORMATC1H /1H ,5H8.20 ,32HDO YOU WANT TO ENTER EVAPORATIVE,
210. 1 13H ZONE DEPTHS/lX,16HENTr:R YES OR NO./)
211. CALL ANSWER(IANS)
212. IF(IANS.EQ.l) GO TO 330
213.
214. 690 WRITE(6,700)
215. 700 FORflATdH /1H ,5HS.21 ,33HENTER THE EVAPORATIVE ZONE DEPTH ,
216. 1 9HIN INCHES/40H TO BE USED FOR ALL YEARS OF SIMULATION./)
217.
218. HRITE(6,710)
219. 710 FORT1AT(/1H ,24HCONSERVATIVE VALUES ARE:/
220. 1 10X,20H4 IN. FOR BAREGROUND/9X,
221. 2 21H10 IN. FOR FAIR GRASS/
222. 3 9X,26H18 IN. FOR EXCELLENT GRASS/)
223.
224. READ(10,90)(KLM(J),J=1,74)
225. CALL SCANCNO, VALUE, 74,KLM)
226. RDEPTH=VALUE(1)
227.
228. WRITE(6,720)RDEPTH
229. 720 FORMATC1H /1H ,5H8.22 ,4HTHE ,
230. 1 25HEVAPORATIVE ZONE DEPTH IS,F7.2,1H./1X,
231. 2 43HDO YOU WANT TO CHANGE IT ENTER YES OR NO./)
232.
233. CALL ANSUER(IANS)
234. IF(IANS.EQ.O) GO TO 690
235. REWIND 16
236. WRITE(16,730)RDEPTH
237. 730 FORMAT(F8.2)
238. REWIND 16
239. C
240. C xxxxxx WINTER COVER FACTORS xxxxxx
241. 380 WRITE(6,390)
242. 390 FORMATCIH /48H 8.23 DO YOU WANT TO ENTER WINTER COVER FACTORS/
243. 1 1X,16HENTER YES OR NO./)
244. CALL ANSWER(IANS)
245. IF(IAHS.EQ.l) GO TO 480
246. REWIND 15
247. WRITE(6,400)
248. 400 FORMATCIH /1H ,5H8.24 ,32HDO YOU WANT TO ENTER A DIFFERENT,
249. 1 13H WINTER COVER/22H FACTOR FOR EACH YEAR/
-------
250. 2 1X,16HENTER YES OR NO./)
251. CALL ANSWERUANS)
252. IFUANS.EQ.l) GO TO 460
253. C
254. C xxxxx* MULTIPLE WINTER COVER FACTORS xxxxxx
255. C
256. DO 450 I=1,KKOUNT
257. 410 WRITE(6,420)JYEAR(I)
253. 420 FORMATUH /39H 8.25 ENTER THE WINTER COVER FACTOR FOR,
259. 1 I5,21H (BETWEEN 0 AND 1.3).)
260. READUO,90)(KLM(J),J = 1,74)
261. CALL SCANCNO,VALUE,74,KLM)
262. GR=VALUE(1)
263. WRITE(6,430)GR
264. 430 FORMATUH /40H 8.26 THE WINTER COVER FACTOR ENTERED IS,
265. 1 F5.2,1H./
266. 2 26H DO YOU WANT TO CHANGE IT,3X,16HENTER YES OR NO./)
267. CALL ANSWERUANS)
268. IF(IANS.EQ.O) GO TO 410
269. WRITE(15,440) JYEARU), GR
270. 440 FORMAT(I5,F8.2)
271. 450 CONTINUE
272. GO TO 480
273. C
274. C xxxxxx ONE WINTER COVER FACTOR xxxxxx
275. C
276. 460 WRITEC6.470)
277. C
278. 470 FORMATUH /46H 8.27 ENTER THE WINTER COVER FACTOR TO BE USED/
279. 1 29H FOR ALL YEARS OF SIMULATION./)
280. READ(10,90)(KLM(J),J=1,74)
281. CALL SCAHCNO,VALUE,74,KLM)
2S2. GR=VALUE(1)
283. URITE(6,430)GR
284. CALL ANSWER(IANS)
285. IF(IANS.EQ.O) GO TO 460
286. LYEAR=0
287. WRITE(15,440) LYEAR,GR
238. REWIND 15
289. C XMKKXX LEAF AREA INDICES xxxxxx
290. C
291. 480 WRITE(6,490)
292. 490 FORMATUH /48H 8.28 DO YOU WANT TO ENTER LEAF AREA INDEX DATA/
293. 1 1X,16HENTER YES OR NO./)
294. CALL ANSWERUANS)
295. IF(IANS.EQ.l) GO TO 740
296. REWIND 14
297. WRITE(6,500)
298. 500 FORflATUH /42H 8.29 13 LEAF AREA INDICES MUST BE ENTERED,
299. 1 7H FOR A /1X,
-------
300. 1 19HYEAR OF SIMULATION./35H EACH INDEX IS COMPOSED OF THE DATE,
301. 2 19H OF THE MEASUREMENT/31H AND THE LEAF AREA MEASUREMENT./1X,
302. 3 54HXXREMEMBER TO START WITH DAY 1 AND END WITH DAY 366.x*)
303. WRITE(6,510)
304. 510 FORMATC1H /41H DO YOU WANT TO ENTER A DIFFERENT SET OF /1X,
305. 1 32HLEAF AREA INDICES FOR EACH YEAR/1X,
306. 2 16HENTER YES OR NO./)
307. CALL ANSUERCIANS)
303. IF(IANS.EQ.l) GO TO 630
309. C
310. C xxxx*x MULTIPLE SETS OF LEAF AREA INDICES xxxxxx
311. C
312. DO 620 I=1,KKOUNT
313. U'RITEC6,520) JYEARCI)
314. 520 FORHATC1H /1H ,5H8.30 ,2SHENTER LEAF AREA INDICES FOR ,I4,1H./)
315. IFCI.EQ.l) GO TO 530
316. WRITEC6,40)
317. CALL ANSWER(IANS)
318. IF(IANS.EQ.O) GO TO 590
319. 530 DO 550 K=l,13
320. URITE(6,540) K
321. 540 FORMAT(4SH 8.31 ENTER TWO VALUES PER LINE—THE JULIAN DATE/
322. 1 30H AND THE LEAF AREA MEASUREMENT,11H FOR INDEX ,I2,1H./)
323. READC10,90)CKLMCJ),J=1,74)
324. CALL SCANCNO,VALUE,74,KLM)
325. LDAY13(K)=VALUEC1)
326. XLAI13(K)=VALUEC2)
327. 550 CONTINUE
328. WRITEC6.560) JYEARCI)
329. 560 FORMATC1H /46H 8.32 THESE ARE THE INPUT DATES AND LAI VALUES,
330. 1 5H FOR ,14,1H./15X,4HDATE,10X,3HLAI)
331. DO 580 K=l,13
332. WRITEC6,570)LDAY13CK),XLAI13CK)
333. 570 FORMAT(10X,I8,7X,F8.2)
334. 5SO CONTINUE
335. WRITEC6,120)
336. CALL ANSWERCIANS)
337. IF(IANS.EQ.O) GO TO 530
338. 590 DO 610 K=l,13
339. WRITEC14,600) JYEARCI),LDAY13CK),XLAI13CK)
340. 600 FORMAT(I5,I8,F8.2)
341. 610 CONTINUE
342.
343. WRITE(14,615)KVEG
344. 615 FORMATCI3)
345.
346. 620 CONTINUE
347. REWIND 14
348. GO TO 740
349. C
-------
350. C ****** ONE SET OF LEAF AREA INDICES ******
351. C
352. 630 WRITE(6,640)
353. 640 FORMATC1H /45H 8.33 ENTER THE LEAF AREA INDICES TO BE USED /
354. 1 1X.28HFOR ALL YEARS OF SIMULATION.//)
355. DO 650 K=l,13
356. URITE(6,540)K
357. READ(10,90)CKLM(J),J=1,74)
35S. CALL SCANCNO,VALUE,74,KLN)
359. LDAY13(K)=VALUE(1)
360. XLAI13(K)=VALUE(2)
361. 650 CONTINUE
362. URITE(6,560) JYEAR(l)
363. DO 660 K=l,13
364. U'RITE(6,570)LDAY13(K),XLAI13(K)
365. 660 CONTINUE
366. URITEC6,120)
367. CALL ANSWER(IANS)
368. IF(IANS.EQ.O) GO TO 630
369. LYEAR=0
370. DO 670 K=l,13
371. 1-;RITE(14,600) LYEAR, LDAY13(K), XLAI13CK)
372. 670 CONTINUE
373.
374. WRITEU4,615)KVEG
_ 375. REWIND 14
M 376.
00 377. 740 RETURN
378. END
-------
1. C
2. C xxxxxxxxxxxxxxxxxx* OPEN xxxxxxxxxxxxxxxxxxxxxxxxxx
3. C
4. C
5. C SUBROUTINE OPEN ACCEPTS INPUT DESCRIBING THE
6. C RUNOFF CONDITIONS FOR AN OPEN LANDFILL.
7. C
8. SUBROUTINE OPENCCN2,FRUNOF)
9. DIMENSION KLMC74),VALUEC10)
10.
11. WRITE(6,10)
12. 10 FORHATUH /5H 7.1 ,3SHEHTER THE SCS RUNOFF CURVE NUMBER FOR
13. 1 16HTHE SOIL TEXTURE/1X,
14. 2 31HAND AVERAGE MOISTURE CONDITION ,
15. 3 23HOF THE TOP WASTE LAYER./
16. 4 21H (BETWEEN 15 AND 100)/)
17.
18. READ(10,20)CKLM(J),J=l,74)
19. 20 FORMATC74A1)
20. CALL SCANCNO,VALUE,74,KLM)
21. CN2=VALUE(1)
22.
23. WRITE(6,30)
24. 30 FORHATdH /5H 7.2 ,37HWHAT FRACTION OF THE DAILY POTENTIAL ,
25. 1 22HRUNOFF DRAINS FROM THE/8H SURFACE,IX,
26. 2 21HOF THE WASTE LAYER /1X,
27. 3 22HENTER BETWEEN 0 AND I.//)
28. READ(10,20)(KLM(J),J=1,74)
29. CALL SCAN(NO,VALUE,74,KLM)
30. FRUNOF=VALUE(1)
31.
32. RETURN
33. END
-------
1. C XMXXXXXXKXXXXXXXXXKKX OUTAVG XXXXXXXXXXXXXXXXXXXX*
2. SUBROUTINE OUTAVGCLMYR,IUNIT,IUNITT )
3. C
4. C SUBROUTINE OUTAVG COMPUTES AND PRINTS THE AVERAGED
5. C RESULTS FOR THE SIMULATION.
6. C
7. COMMON/BLK5/TAREA,LINER,FLEAK,FRUNOF,CN2
8. COr'iMON/BLK12/PRClM(240),PRC2fK240),PRC3M(240},
9. 1 DRN1M(240),DRN2M(240),DRN3M(240),RUNM(240),
10. 2 PREM(240),ETM(240)
11. COMMON/BLK13/PRC1AC20),PRC2A(20),PRC3A(20),
12. 1 DRN1A(20),DRH2AC20),DRN3A(20),RUNA(20),PREAC20),
13. 2 ETA(20),JYEAR(20),BAL(20),OSWULE,PSWULE
14. DIMENSION APRC1MC12), APRC2M( 12), APRC3MC12 ), ADRN1M( 12 ),
15. 1 ADRH2M(12),ADRN3M(12),ARUNM(12),APREM(12),AETM(12)
16. C
17. C INITIALIZES AVERAGED MONTHLY VARIABLES.
18. C
19. DO 10 M=l,12
20. APRC1M(M)=0.0
21. APRC2M(M)=0.0
22. APRC3M(M)=0.0
23. ADRN1M(M)=0.0
2^». ADRH2M(M) = 0.0
25. ADRN3M(M)=0.0
26. ARUKM(M)=0.0
27. APREM(M)=0.0
28. AETM(M)=0.0
29. 10 CONTINUE
30. XYR=FLOAT(LMYR)
31. DO 30 M=l,12
32. DO 20 I=1,LMYR
33. C
3
-------
50. C
5l! APRC1A=0.0
52. APRC2A=0.0
53. APRC3A=0.0
54. ARUNA=0.0
55. APREA=0.0
56. AETA=0.0
57. ADRN1A=0.0
58. ADRH2A=0.0
59. ADRN3A=0.0
60. C
61. C COMPUTES AVERAGED ANNUAL VARIABLES IN INCHES.
62. C
63. DO 40 I=1,LMYR
64. APRC1A=APRC1A+PRC1A(I)/XYR
65. APRC2A=APRC2A+PRC2A(I)/XYR
66. APRC3A=APRC3A+PRC3A(I)/XYR
67. ADRN1A=ADRN1A+DRN1A(I)/XYR
68. ADRN2A=ADRN2A+DRN2A(I)/XYR
69. ADRN3A=ADRN3A+DRN3A(I)/XYR
70. ARUNA=ARUMA+RUNA(I)/XYR
71. APREA=APREA+PREA(I)/XYR
72. AETA=AETA+ETA(I)/XYR
73. 40 CONTINUE
74. C
75. C COMPUTES AVERAGED ANNUAL VARIABLES IN CU. FT. AND IN
76. C PERCENT OF AVERAGE ANNUAL PRECIPITATION.
77. C
78. TAPREA=TAREA*APREA/12.0
79. FAPREA=100.0
80. TARUNA=TAREA*ARUNA/12.0
81. FARUNA=TARUNA*100.0/TAPREA
82. TAETA=TAREA*AETA/12.0
83. FAETA=TAETA*100.0/TAPREA
84. TAPC3A=APRC3A*TAREA/12.0
85. FAPC3A=TAPC3A*100.0/TAPREA
86. TAPC2A=APRC2A^TAREA/12.0
87. FAPC2A = TAPC2A5<100.0/TAPREA
88. TAPC1A=APRC1A*TAREA/12.0
89. FAPC1A=TAPC1AX100.0/TAPREA
90. TADN3A=ADRN3A^TAREA/12.0
91. FADN3A=TADN3A*100.0/TAPREA
92. TADH2A=ADRN2A^TAREA/12.0
93. FADN2A=TADN2A*100.0/TAPREA
94. TADN1A=ADRN1AXTAREA/12.0
95. FADN1A=TADN1A5UOO.O/TAPREA
96. C
97. C PRINTS HEADING FOR AVERAGE MONTHLY RESULTS AND PRINTS
98. C AVERAGED MONTHLY PRECIPITATION, RUNOFF AND EVAPOTRANSPIRATION.
99. C
-------
100. WRITE(6,45)
101. 45 FORMATUH ,6(/),lH ,70UH*)/)
102. WRITE(6,50) JYEARU ) , JYEAR( LMYR)
103. 50 FORMATUH ///4X,26HAVERAGE MONTHLY TOTALS FOR
104. 1 15,8H THROUGH,I5/)
105. WRITE(6,120)
106. 120 FORMATUH , 24X , 24H J AN/ JUL FEB/AUG MAR/SEP ,
107. 1 23HAPR/OCT MAY/NOV JUN/DEC/24X,6(3H )/)
108. WRITE(6,130) (APREM(J),J=],12)
109. 130 FORMATUH /23H PRECIPITATION (INCHES),
110. 1 6(3X,F5.2)/23X,6(3X,F5.2)/)
111. WRITE(6,140) (ARUHMCJ),J=l,12)
112. 140 FORMATUH /16H RUNOFF (INCHES),7X,
113. 1 6(2X,F6.3)/23X,6(2X,F6.3)/)
114. WRITE(6,150) (AETMCJ),J=l,12)
115. 150 FORMATUH /19H EVAPOTRANSPIRATION , 4X, 6 (2X, F6 . 3)/
116. 1 6X,8HUNCHES),9X,6(2X,F6.3)/)
117. IFUUNIT.EQ.3) GO TO 280
118. IFUUNIT.EQ.2) GO TO 210
119. IF(IUNITT.EQ.O) GO TO ISO
120. C
121. C ONE SUBPROFILE, COVER.
122. C
123. WRITE(6,160) (APRC3MCJ>,J=l,12)
124. 160 FORMATUH /22H PERCOLATION FROM B ASE, 2X, 6 F8 . 4/1X,
125. 1 17HOF COVER (INCHES ),6X,6F8.4/)
126. WRITE(6,170) (ADRN3PK J),J = l,12)
127. 170 FORMATUH /22H DRAINAGE FROM BASE OF, IX, 6F8 . 3/1X,
128. 1 14HCOVER (INCHES),8X,6F8.3/)
129. GO TO 340
130. C
131. C ONE SUBPROFILE, NO COVER.
132. C
133. 180 WRITE(6,230) (APRC3M(J),J=l,12)
134. WRITE(6,250) (ADRN3MCJ),J=l,12)
135. GO TO 340
136. 210 IFUUNITT.GT.O) GO TO 260
137. C
138. C TWO SUBPROFILES, NO COVER.
139. C
140. WRITE(6,220) (APRC3M(J),J=l,12)
141. 220 FORMATUH /21H PERCOLATION FROM TOP, 3X, 6F8 . 4/1X,
142. 1 16HBARRIER (INCHES ),7X,6F8.4/)
143. WRITE(6,230) (APRC2MCJ),J=l,12)
144. 230 FORMATUH /22H PERCOLATION FROM BASE, ?.X, 6F8 . 4/1X,
145. 1 20HOF LANDFILL (INCHES),3X,6FS . 4/)
146. WRITE(6,240) (ADRN3MCJ),J=l,12)
147. 240 FORMATUH /18H DRAINAGE FROM TOP, 5X, 6F8 . 3/1X,
148. 1 16HBARRIER (INCHES),6X,6F8.3/)
149. URITE(6,250) (ADRN2MCJ),J=l,12)
-------
150. 250 FORMATUH /22H DRAINAGE FROM BASE OF, IX, 6F8 . 3/1X,
151. 1 17HLANDFILL (INCHES),5X,6F8.3/)
152. GO TO 340
153. 260 IFUUNITT.GT.l) GO TO 270
154. C
155. C TWO SUBPROFILES, COVER AND BASE.
156. C
157. WRITE(6,160) (APRC3MCJ),J=l,12)
158. l-JRITE(6,230) C APRC2MU ), J-l, 12)
159. WRITE(6,170) (ADRN3IK J),J = 1,12)
160. WRITE(6,250) (ADRN2MCJ),J=l,12)
161. GO TO 340
162. C
163. C TWO SUBPROFILES IN COVER.
164. C
165. 270 WRITE(6,220) (APRC3MCJ),J-l,12)
166. WRITE(6,160) (APRC2MCJ),J=l,12)
167. l-JRITE(6,240) (ADRN3PK J ), J = l, 12 )
168. U'RITE(6,170) (ADRN2MC J ) , J = l, 12)
169. GO TO 340
170. 280 IF(IUNITT.GT.O) GO TO 310
171. C
172. C THREE SUBPROFILES IN BASE.
173. C
174. WRITE(6,220) C APRC3MU ), J = l, 12)
175. WRITE(6,290) (APRC2MCJ),J=l,12)
176. 290 FORMATC1H /21H INTERMEDIATE BARRIER,3X,6F8.4/1X,
177. 1 20HPERCOLATION (INCHES),3X,6F8.4/)
178. WRITE(6,230) (AFRCIMCJ),J=l,12)
179. URITE(6,240) (ADRN3MCJ),J = l,12 )
180. l-!RITE(6,300) ( ADRN2IK J ), J = l, 12)
181. 300 FORHATCIH /21H INTERMEDIATE BARRIER,2X,6F3.3/1X,
182. 1 17HDRAINAGE (INCHES),5X,6F8.3/>
123. WRITE(6,250) (ADRN1MCJ),J=l,12)
184. GO TO 340
185. 310 IF(IUNITT.GT.l) GO TO 320
186. C
187. C THREE SUBPROFILES, ONE IN COVER AND TWO IN BASE.
188. C
189. WRITEC6.160) (APRC3MCJ),J=l,12)
190. WRITE(6,290) ( APRC2MC J ) , J ~-l, 12 )
191. WRITE(6,230) (APRC1MCJ),J = l,12 )
192. WRITE(6,170) (ADRN3HCJ),J=l,12)
193. WRITE(6,300) (ADRN2MCJ),J=l,12)
194. WRITE(6,250) (ADRN1M(J),J=l,12)
195. GO TO 340
196. 320 IFCIUNITT.GT.2) GO TO 330
197. C
198. C THREE SUBPROFILES, TWO IN COVER AND ONE IN BASE.
199. C
-------
200. WRITE(6,220) (APRC3MCJ),J=l,12)
201. WRITE(6,160) ( APRC2MU ), J = l, 12 )
202. WRITE(6,230) (APRCliK J),J = l,12)
203. URITE(6,240) (ADRH3M(J),J=l,12)
204. WRITE(6,170) ( ADRN2MU ), J = l, 12)
205. WRITE(6,250) (ADRN1M(J),J=l,12)
206. GO TO 340
207. C
208. C THREE SUBPROFILES IN COVER.
209. C
210. 330 URITE(6,220) (APRC3MCJ),J=l, 12)
211. URITEC6,290) (APRC2MC J ), J = .l, 12)
212. WRITE(6,160) (APRC1MCJ),J=l,12)
213. WRITE(6,240) ( ADRN3MU ), J = l, 12 )
214. WRITE(6,300) (ADRN2MCJ),J=l,12)
215. WRITE(6,170) (ADRNlfU J),J = l,12)
216. C
217. C WRITES HEADING FOR AVERAGE ANNUAL RESULTS AND PRINTS AVERAGE
218. C ANNUAL PRECIPITATION, RUNOFF AND EVAPOTRANSPIRATION.
219. C
220. 340 WRITE(6,350)
221. 350 FORMATCIH /1H ,70(1H*),12(/),1H ,70(1H*)/)
222. WRITE(6,410) JYEARC1),JYEARCLMYR),APREA,TAPREA,FAPREA
223. 410 FORMATC1H ///4X,25HAVERAGE ANNUAL TOTALS FOR,15,
224. 1 8H THROUGH,I5/2X,70UH-)/39X,SH(INCHES),4X,
225. 2 9HCCU. FT.),4X,7HPERCENT/39X,8(1H-),4X,9(1H-),4X,
226. 3 7(lH-)/4X,13HPRECIPITAT!OH,22X,F6.2,6X,F9.0,4X,F6.2)
227. WRITE(6,420) ARUNA,TARUNA,FARUNA
228. 420 FORMATC1H /4X,6HRUNOFF,29X,F7.3,5X,F9.0,4X,F6.2)
229. WRITE(6,430) AETA,TAETA,FAETA
230. 430 FORMATC1H ,/4X,18HEVAPOTRANSPIRATION,17X,F7.3,5X,F9.0,
231. 1 4X,F6.2)
232. IFCIUNIT.EQ.3) GO TO 540
233. IFCIUNIT.EQ.2) GO TO 490
234. IF(IUNITT.EQ.O) GO TO 460
235. C
236. C ONE SUBPROFILE, COVER.
237. C
238. WRITE(6,440) APRC3A,TAPC3A.FAPC3A
239. 440 FORMATC1H ,/4X,25HPERCOLATION FROM BASE OF ,
240. 1 5HCOVER,5X,F7.4,4X,F9.0,4X,F6.2)
241. WRITE(6,450)ADRN3A,TADN3A,FADN3A
242. 450 FORHATdH ,/4X, 22HDRAINAGE FROM BASE OF ,
243. 1 5HCOVER,8X,F7.3,5X,F9.0,4X,F6.2)
244. GO TO 600
245. C
246. C ONE SUBPROFILE, BASE.
247. C
248. 460 WRITE(6,470) APRC3A,TAPC3A,FAPC3A
249. 470 FORMATUH ,/4X, 25HPERCOLATION FROM BASE OF ,
-------
250. 1 10HLANDFILL ,F7.4,4X,F9.0,4X,F6.2)
251. WRITE(6,480) ADRN3A,TADN3A,FADN3A
252. 480 FORMATC1H ,/4X,22HDRAINAGE FROM BASE OF ,
253. 1 8HLANDFILL,5X,F7.3,5X,F9.0,4X,F6.2)
254. GO TO 600
255. 490 IF(IUNITT.GT.O) GO TO 520
256. C
257. C TWO SUBPROFILES, NO COVER.
258. C
259. WRITE(6,500) APRC3A,TAPC3A,FAPC3A
260. 500 FORMATC1H ,/4X,23HPERCOLATION FRON TOP BARRIER,7X,F7.4,
261. 1 4X,F9.0,4X,F6.2)
262. WRITEC6,470) APRC2A,TAPC2A,FAPC2A
263. WRITE(6,510) ADRN3A,TADN3A,FADN3A
264. 510 FORMATC1H ,/4X,31HDRAINAGE FROM TOP BARRIER LAYER,4X,F7.3,
265. 1 5X,F9.0,4X,F6.2)
266. WRITEC6,480) ADRN2A,TADN2A,FADN2A
267. GO TO 600
268. 520 IF(IUNITT.GT.l) GO TO 530
269. C
270. C TWO SUBPROFILES, COVER AND BASE.
271. C
272. WRITE(6,440) APRC3A,TAPC3A,FAPC3A
273. WRITE(6,470) APRC2A,TAPC2A,FAPC2A
274. WRITEC6,450) ADRN3A,TADN3A,FADN3A
275. WRITE(6,480) ADRN2A,TADN2A,FADN2A
276. GO TO 600
277. C
278. C TWO SUBPROFILES IN COVER.
279. C
280. 530 WRITEC6.500) APRC3A,TAPC3A,FAPC3A
281. WRITE(6,440) APRC2A,TAPC2A,FAPC2A
282. URITE(6,510) ADRN3A,TADN3A,FADN3A
283. WRITE(6,450) ADRN2A,TADH2A,FADN2A
284. GO TO 600
285. 540 IF(IUNITT.GT.O) GO TO 570
286. C
287. C THREE SUBPROFILES IN BASE.
288. C
289. WRITE(6,500) APRC3A,TAPC3A,FAPC3A
290. WRITE(6,550) APRC2A,TAPC2A,FAPC2A
291. 550 FORMATUH , /4X, 21HIHTERMEDIATE BARRIER ,
292. 1 11HPERCOLATION,3X,F7.4,4X,F9.0,4X,F6.2)
293. WPxITE(6,470) APRC1 A , TAPC1 A , FAPC1 A
294. WRITE(6,510) ADRN3A,TADN3A,FADH3A
295. WRITE(6,560)ADRN2A,TADN2A,FADN2A
296. 560 FORMAT (1H , /4X, 21HKUERMEDI ATE BARRIER ,
297. 1 8HDRAINAGE,6X,F7.3,4X.F9.0,4X,F6.2)
298. WRITE(6,480) ADRN1A,TADN1A,FADN1A
299. GO TO 600
-------
300. 570 IF(IUNITT.GT.l) GO TO 580
301. C
302. C THREE SUBPROFILES, ONE IN COVER AND TWO IN BASE.
303. C
30
-------
1. C
2. c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx OUTDAY xxxxxxxxxxxxxxxxxxxx
3. C
4. C
5. C SUBROUTINE OUTDAY PRINTS DAILY RESULTS OF THE SIMULATION.
6. C
7. SUBROUTINE OUTDAYCIUNIT,IUNITT,IUNITB,RUN,IDA,JYEAR,PRE)
8.
9. COMMON/BLK15/PRC1,PRC2,PRC3,DRN1,DRN2,DRN3,
10. 1 SW,ETT,NSTAR,HED1,HED2,HED3,IYR
11.
12. DIMENSION JYEARC20),PRE(370)
13.
is! IF(IUNIT.EQ.l) GO TO 40
16.
17. IFUUNIT.EQ.2) GO TO 60
18. C
19. C THREE SUBPROFILES
20. C
21. IF(IUNITT.GT.O) GO TO 10
22. C
23. C THREE SUBPROFILES IN BASE.
24. C
25. CDRN=0.0
26. BDRN=DRN1 +DRN2 +DRN3
27. CPRC=0.0
28. BPRC=PRC1
29. CHED=0.0
30. BHED=HED1
31. GO TO 90
32.
33. 10 IF(IUNITT.GT.l) GO TO 20
34. C
35. C TWO IN BASE, ONE IN COVER.
36. C
37. CDRN=DRN3
38. BDRN=DRN2+DRN1
39. CPRC=PRC3
40. BPRC=PRC1
41. CHED=HED3
42. BHED=HED1
43. GO TO 90
44.
45. 20 IF(IUNITT.GT.2) GO TO 30
46. C
47. C ONE IN BASE, TWO IN COVER.
48. C
49. CDRN=DRN3+DRN2
-------
50. BDRN=DRN1
51. CPRC=PRC2
52. BPRC=PRC1
53. CHED=HED2
54. BHED=HED1
55. GO TO 90
56. C
57. C THREE SUBPROFILES IN COVER.
58. C
59. 30 CDRN=DRN3+DRN2+DRN1
60. BDRN=0.0
61. CPRC=PRC1
62. BPRC=0.0
63. CHED=HED1
64. BHED=0.0
65. GO TO 90
66. C
67. C ONE SUBPROFILE.
68. C
69. 40 IF(IUNITT.GT.O) GO TO 50
70. C
71. C ONE SUBPROFILE IN BASE, NO COVER.
72. C
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97. CDRN=0.0
98. BDRN=DRN3+DRN2
99. CPRC=0.0
C
C
C
50
C
C
C
60
C
C
C
CORN =0.0
BDRN=DRN3
CPRC=0.0
BPRC=PRC3
CHED=0.0
BHED=HED3
GO TO 90
ONE SUBPROFILE IN COVER, NO BASE.
CDRN=DRN3
BDRN=0.0
CPRC=PRC3
BPRC=0.0
CHED=HED3
BHED=0.0
GO TO 90
TWO SUBPROFILES.
IF(IUNITT.GT.O) GO TO 70
TWO SUBPROFILES IN BASE, NO COVER
-------
100. BPRC=PRC2
101. CHED=0.0
102. BHED=HED2
103. GO TO 90
104.
105. 70 IF(IUNITT.GT.l) GO TO 80
106. C
107. C ONE IN COVER, ONE IN BASE.
108. C
109. CDRN=DRN3
110. BDRN=DRN2
111. CPRC=PRC3
112.
113. BPRC=PRC2
114. CHED = HED3
115. BHED=HED2
116.
117. GO TO 90
118. C
119. C TWO SUBPROFILES IN COVER, NO BASE.
120. C
121. 80 CDRN=DRN3+DRN2
122. BDRN=0.0
123. CPRC=PRC2
124. BPRC=0.0
125. CHED = HED2
126. BHED=0.0
127. C
128. C PRINTS HEADING
129. C
130. 90 IF(IDA.EQ.l) WRITE(6,100) JYEAR(IYR)
131.
132. 100 FORMATC1H /////1H ,71(1H*)//lH ,17H DAILY OUTPUT FOR,I5//
133. 1 44H DAY RAIN RUNOFF ET COVER COVER COVER ,
134. 2 27H BASE DEEP BASE SOIL/24X,7HHEAD
135. 3 40HPERC. DRAIN HEAD PERC. DRAIN UATER/
136. 4 7X.39HIN. IN. IN. IN. IN. IN.
137. 5 25HIN. IN. IN. IN/IN/12H ,
138. 6 33H ,
139. 7 27H /)
140. C
141. C PRINTS DAILY RESULTS, x INDICATES FREEZING TEMPERATURES.
142. C
143. WRITEC6,110)IDA,NSTAR,PRE(IDA),RUN,ETT,
144. 1 CHED,CPRC,CDRN,BHED,BPRC,BDRN,SM
145. 110 FORNATCIH , I 3 , Al,F6.2,F6.3,F6.3,F7.1,F7.4,F7.3,
146. 1 F7.1,F7.4,F7.3,F7.4)
147.
148. RETURN
149. END
-------
1. C
2. C HXXXXXKXXXXXXXXXXXXXXXXK OUTMO xxxxxxxxxxxxxxxxxxxxxxxxx
3. C
4.
5. C
6. C SUBROUTINE OUTMO PRINTS MONTHLY TOTALS.
7. C
8.
9. SUBROUTINE OUTMOCMONTHE,JYEAR,IYR,IUNIT,IUNITT)
10.
11. COMMON/BLK12/PRC1M(240),PRC2M(24G),PRC3M(240),DRN1M(240),
12. 1 DRN2M(240),DRN3M(240),RUNM(240),PREM(240),ETM(240)
13.
14. DIMENSION JYEARC20)
15.
16. C
17. C PRINTS HEADING FOR MONTHLY RESULTS AND PRINTS
18. C MONTHLY PRECIPITATION, RUNOFF AND EVAPOTRANSPIRATION.
19. C
20.
21. WRITE(6,5)
22. 5 FORMATdH ,6C/),1H ,70dH*),/)
23.
24. WRITE(6,10)JYEAR(IYR)
25. 10 FORMATC1H //1H ,/23X,18HMONTHLY TOTALS FOR,I5/)
26.
g 27. WRITE(6,20)
28. 20 FORMATdH ,/25X,24HJAN/JUL FEB/AUG MAR/SEP ,
29. 1 23HAPR/OCT MAY/NOV JUN/DEC/24X,6(8H <-<-<-<-<-<-*•)/)
30.
31. MONTHB=MONTHE-11
32.
33. WRITE(6,30)(PREM(J),J=MONTHB,MONTHE)
34. 30 FORMATdH ,/23H PRECIPITATION (INCHES),
35. 1 6(3X,F5.2)/23X,6(3X,F5.2)/)
36.
37. WRITE(6,40)(RUNMCJ),J=MONTHB,MONTHE)
38. 40 FORMATCIH ,/16H RUNOFF (INCHES),7X,
39. 1 6(2X,F6.3)/23X,6(2X,F6.3)/)
40.
41.
42. WRITE(6,50)(ETM(J),J=MONTHB,MONTHE)
43. 50 FORMATdH ,/19H EVAPOTRAHSPIRATION , 4X, 6 ( 2X, F6 . 3)/lX,
44. 1 5X,8H(INCHES),9X,6(2X,F6.3)/)
45.
46. IF(IUNIT.EQ.3) GO TO ISO
47. IF(IUNIT.EQ.2) GO TO 110
48. IF(IUNITT.EQ.O) GO TO 80
49.
-------
50. C
51. C ONE SUBPROFILE, COVER.
52. C
53.
54. WRITE(6,60)(PRC3M(J),J=MONTHB,MONTHE)
55. 60 FORMATdH ,/22H PERCOLATION FROM BASE,2X,6F8.4/1H ,
56. 1 17HOF COVER (INCHES),6X,6F8.4/)
57. WRITEC6,70MDRN3M(J),J=MONTHB,MONTHE)
53. 70 FORMATdH ,/22H DRAINAGE FROM BASE OF,IX,6F8.3/1H ,
59. 1 14HCOVER dNCHES ) ,8X, 6 F8 . 3/)
60. GO TO 240
61.
62. C
63. C ONE SUBPROFILE, NO COVER.
64. C
65.
66. 80 WRITEC6,130KPRC3M(J),J=MONTHB,MONTHE)
67. WRITE(6,150)(DRN3M(J),J=MONTHB,MONTHE)
68. GO TO 240
69.
70. 110 IF(IUNITT.GT.O) GO TO 160
71.
72. C
73. C TWO SUBPROFILES, NO COVER.
74. C
75.
76. WRITE(6,120MPRC3M(J),J=MONTHB,MONTHE)
77. 120 FORMATdH ,/21H PERCOLATION FROM TOP,3X,6F8.4/1H ,
78. 1 16HBARRIER (INCHES),7X,6F8.4/)
79.
80. WRITEC6,130)(PRC2MCJ),J=MONTHB,MONTHE)
81. 130 FORMATdH ,/22H PERCOLATION FROM BASE,2X,6F8.4/1H ,
82. 1 20HOF LANDFILL (INCHES),3X,6F8.4/)
83.
84. WRITEC6,140HDRN3MCJ),J=MONTHB,MONTHE)
85. 140 FORMATdH ,/18H DRAINAGE FROM TOP, 5X, 6F8 .3/1H ,
86. 1 16HBARRIER (INCHES),6X,6F8.3/)
87.
88. WRITE(6,150)(DRN2MCJ),J=MONTHB,MONTHE)
89. 150 FORMATdH ,/22H DRAINAGE FROM BASE OF, IX, 6F8.3/1H ,
90. 1 17HLANDFILL (INCHES),5X,6F8.3/)
91. GO TO 240
92.
93. 160 IF(IUNITT.GT.I) GO TO 170
94.
95. C
96. C TWO SUBPROFILES, COVER AND BASE.
97. C
98.
99. WRITE(6,60)(PRC3M(J),J=MONTHB,MONTHE)
-------
100. WRITE(6,130)(PRC2M(J), J=MONFHB,MONTHE)
101. MRITE(6,70KDRN3MCJ),J=MONTHB,MONTHE)
102. WRITE(6,150HDRN2M(J),J=MONTHB,MONTHE)
103. GO TO 240
104.
105. C
106. C TWO SUBPROFILES IN COVER.
107. C
108.
109. 170 WRITE(6,120)CPRC3M(J),J=MONTHB,MONTHE)
110. WRITEC6,60)(PRC2M(J),J=MONTHB,MONTHS)
111. WRITE(6,140)(DRN3M(J),J=MONTHB,MONTHE)
112. WRITE(6,70KDRN2M(J),J=MONTHB,MONTHE)
113. GO TO 240
114.
115. 180 IF(IUNITT.GT.O) GO TO 21t)
116.
117. C
118. C THREE SUBPROFILES IN BASE.
119. C
120.
121. WRITE(6,120MPRC3MCJ),J=MONTHB,MONTHE)
122. WRITE(6,190)(PRC2M(J),J=MONTHB,MONTHE)
123. 190 FORMATUH ,/21H INTERMEDIATE BARRIER, 3X, 6F8 . 4/1H
124. 1 20HPERCOLATION (INCHES),3X,6F8.4/O
125. WRITE(6,130)CPRC1MCJ),J-MONTHB,MCNTHE)
126. WRITE(6,140)(DRN3M(J),J=MONTHB,MONTHE)
127. WRITE(6,200)(DRN2M(J),J ^ONTHB , MONTH E)
128. 200 FORMATC1H ,/21H INTERMEDIATE BARRIER,2X,6F&.3/1H
129. 1 17HDRAINAGE (INCHES),5X,6F8.3/)
130. WRITEC 6,150)(DRN1M(J),J-MONTHS,MONTHE)
131. GO TO 240
132.
133. 210 IF(IUNITT.GT.l) GO TO 220
134.
135. C
136. C THREE SUBPROFILES, ONE IN COVER AND TWO IN BASE.
137. C
138.
139. WRITE(6,60HPRC3M(J),J=MONTHB,MONTHE)
140. WRITE(6,190)(PRC2M(J),J=MONTHB,MONTHE)
141. WRITE(6,130HPRC1M(J),J=MONTHB,MONTHE>
142.
143. WRITE(6,70)(DRN3M(J),J=MONTHB,MONTHE)
144. MRITE(6,200)(DRN2M(J),J=MONTHB,MONTHE)
145. WRITE(6,150)(DRN1M(J),J=MONTHB,MONTHE)
146. GO TO 240
147. 220 IFCIUNITT.GT.2) GO TO ,?30
148.
149. C THREE SUBPROFILES, TWO IN COVER AND ONE IN BASE.
-------
150. C
151.
152. MRITE(6,120KPRC3M(J),J=MONTHB,MONTHE)
153. WRITE(6,60XPRC2ri(J),J=MONTHB,MONTHE)
154. WRITE(6,130)(PRClM(J),J=riONTHB,MONTHE>
155.
156. WRITE(6,140)(DRN3ri(J),J=MONTHB,MONTHE)
157. WRITE(6,70)(DRN2r-HJ),J=MONTHB,MONTHE)
158. HRITE(6,150HDRNir-UJ),J=MONTHB,MONTHE)
159.
160. GO TO 240
161.
162. C
163. C THREE SUBPROFILES IN COVER.
164. C
165.
166. 230 MRITE(6,120MPRC3M(J),J=MONTHB,MONTHE)
167. WRITE(6,190)(PRC2M(J),J=MONTHB,MONTHE)
168. WRITE(6,60XPRC1MCJ),J=MONTHB,MONTHE)
169.
170. WRITE(6,140XDRN3M(J),J=MONTHB,MONTHE)
171. WRITE(6,200HDRN2M(J),J=MONTHB,MONTHE)
172. WRITE(6,70HDRH1M(J),J=M!3NTHB,MOHTHE)
173.
174. 240 WRITE(6,250)
175. 250 FORMATdH /1H , 70 (1H*), 6(/))
176. RETURN
177. END
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxx OUTPEK XXXXXXXXXHXXXXXXXXXXXXXX
3. C
4.
5. C SUBROUTINE OUTPEK PRINTS PEAK DAILY RESULTS
6. C FOR THE SIMULATION.
7.
8.
9. SUBROUTINE OUTPEKCLMYR,IUNIT,IUNITT,JYEAR)
10.
11. COMMON/BLK5/TAREA,LINER,FLEAK,FRUNOF,CN2
12. COnMON/BLK14/PPRCl,PPRC2,PPRC3,PDRNl,PDRN2,PDRN3,PRUN,PPRE,
13. 1 PSW,DSW,PHED1,PHED2,PHED3,PSNO
14.
15. DIMENSION JYEARC20)
16.
17. C
18. C PRINTS HEADING,CONVERTS RESULTS FROM INCHES TO
19. C CU. FT., AND PRINTS PRECIPITATION AND RUNOFF.
20. C
21.
22. WRITE(6,5)
23. 5 FORMATUH /////1H ,70(1H*)>
24.
25. WRITE(6,10)JYEAR(l),JYEAR(LriYR)
26. 10 FORMATUH ,/15X,21KPEAK DAILY VALUES FOR,
27. 1 15,8H THROUGH,I5/5X,62(lH-)/42X,
28. 2 8H(INCHES),5X,9H(CU. FT.)/42X,8(1H-),5X,9(1H-))
29.
30. TPPRE=TAREA*PPRE/12.0
31. WRITE(6,20)PPRE,TPPRE
32. 20 FORMATdH /, 7X, 13HPRECIPITATION, 21X, F6 .2,8X, F9 .1)
33.
34. TPRUN=TAREA*PRUN/12.0
35. HRITE(6,30)PRUN,TPRUN
36. 30 FORMATCIH /7X,6HRUNOFF,28X,F7.3,7X,F9.1)
37.
38. TPPRC3=TAREA*ppRC3/12.0
39. TPPRC2=TAREA*PPRC2/12.0
40. TPPRC1=TAREAXPPRC1/12.0
41. TPDRN3=TAREA*PDRN3/12.0
42. TPDRN2=TAREAXPDRN2/12.0
43. TPDRN1=TAREA*PDRN1/12.0
44. TPSNO=TAREAXPSNO/12.0
45.
46.
47. IF(IUNIT.EQ.3) GO TO 140
48. IFCIUNIT.EQ.2) GO TO 90
49. IF(IUNITT.EQ.O) GO TO 60
-------
50.
51. C
52. C ONE SUBPROFILE, COVER.
53. C
54.
55. WRITE(6,40) PPRC3,TPPRC3
56. SO FORHATdH ,/7X,25HPERCOLATION FROM BASE OF ,
57. 1 5HCOVER,5X,F7.4,6X,F9.1)
53. WRITE(6,50)PDRN3,TPDRN3
59. 50 FORMATC1H ,/7X,22HDRAINAGE FROM BASE OF ,
60. 1 5HCOVER,7X,F7.3,7X,F9.1)
61.
62.
63. WRITE(6,55)PHED3
64. 55 FORMATC1H ,/7X,21HHEAD ON BASE OF COVER , 14X,F6 .1)
65.
66. GO TO 200
67.
68. C
69. C ONE SUBPROFILE, BASE.
70. C
71.
72. 60 WRITE(6,70) PPRC3,TPPPC3
73. 70 FORMATC1H ,/7X,25HPERCOLATION FROM BASE OF ,
74. 1 10HLANDFILL ,F7.4,6X,F9.1)
75.
76. WRITE(6,80)PDRN3,TPDRN3
77. 80 FORtlATClH >/7X,22HDRAINAGE FROM BASE OF ,
78. 1 8HLANDFILL,4X,F7.3,7X,F9.1)
79.
80. WRITE(6,85)PHED3
81. 85 FORMATC1H ,/7X, 24HHF.AD ON BASE OF LANDFILL,11X,F6.1)
82. GO TO 200
83.
84. 90 IFCIUNITT.GT.O) GO TO 120
85.
86. C
87. C THO SUBPROFILES, NO COVER.
88. C
89.
90. WRITEC6,100) PPRC3,TPPRC3
91. 100 FORMATC1H ,/7X,28HPERCOLATION FROM TOP BARRIER,7X,
92. 1 F7.4,6X,F9.1)
93. WRITE(6,70) PPRC2,TPPRC2
94. WRITE(6,110)PDRN3,TPDRN3
95. 110 FORMATUH ,/7X,31HDRAINAGE FROM TOP BARRIER LAYER,3X,F7.3,7X,F9.1)
96. URITE(6,80) PDRN2,TPDRN2
97. WRITE(6,115)PHED3
93. 115 FORMATC1H ,/7X,25HHEAD ON TOP BARRIER LAYER,10X,F6.1)
99. WRITE(6,85)PHED2
-------
100.
101. GO TO 200
102.
103. 120 IF(IUNITT.GT.l) GO TO 130
104.
105. C
106. C TWO SUBPROFILES, BASE AND COVER.
107. C
108.
109. WRITE(6,40) PPRC3,rppRC3
110. URITE(6,70) PPRC2,TPPRC2
111. WRITE(6,50)PDRN3,TPDRN3
112. WRITE(6,80) PDRN2.TPDRN2
113. WRITE(6,55)PHED3
114. WRITE(6,85)PHED2
115.
116. GO TO 200
117.
118. C
119. C TWO SUBPROFILES IN COVER, NO BASE.
120. C
121.
122. 130 URITE(6,100> PPRC3,TPPRC3
123. IJRITE(6,40) PPRC2,TPPRC2
124. WRITE(6,110)PDRN3,TPDRN3
125. WRITE(6,50) PDRN2,TPDRN2
126. WRITE(6,115)PHED3
127. LJRITE(6,55)PHED2
128.
129. GO TO 200
130.
131. 140 IFCIUHITT.GT.O) GO TO 170
132.
133. C
134. C THREE SUBPROFILES IN BASE.
135. C
136.
137. WRITE(6,10Q) PPRC3,TPPRC3
138. WRITE(6,150) PPRC2,TPPRC2
139. 150 FORMATC1H ,/7X,21HINTERNEDIATE BARRIER
140. 1 IIHPERCOLATION,3X,F7.4,6X,F9.1)
141. WRITE(6,70) PPRC1,TPPRC1
142.
143. WRITE(6,110)PDRN3,TPDRN3
144. WRITEC6.160) PDRN2,TPDRM2
145. 160 FORMATCIH ,/7X,21HINTERMEDIATE BARRIER
146. 1 8HDRAINAGE,5X,F7.3,7X,F9.1)
147. WRITE(6,80) PDRN1,TPDRN1
148. WRITE(6,115)PHED3
149. WRITE(6,165)PHED2
-------
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
C
C
C
165 FORNATC1H ,/7X,21HHEAD ON INTERMEDIATE ,
1 7HBARRIER,7X,F6.1)
WRITE(6,85)PHED1
GO TO 200
170 IF(IUNITT.GT.l) GO TO 180
THREE SUBPROFILES, ONE IN COVER AND TWO IN BASE.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
C
C
C
C
C
C
WRITE(6,40) PPRC3,TPPRC3
WRITE(6,150) PPRC2,TPPRC2
WRITE(6,70) PPRC1.TPPRC1
MRITE(6,50)PDRN3,TPDRN3
URITE(6,160) PDRN2,TPDRN2
WRITEC6,80) PDRH1,TPDRN1
WRITE(6,55)PHED3
URITE(6,165)PHED2
WRITE(6,85)PHED1
GO TO 200
180 IFCIUNITT.GT.2) GO TO 190
THREE SUBPROFILES, TWO IN COVER AND ONE IN BASE.
WRITE(6,100) PPRC3,TPPRC3
WRITE(6,40) PPRC2,TPPRC2
WRITE(6,70) PPRC1,TPPRC1
WRITE(6,110)PDRN3,TPDRN3
WRITE(6,50) PDRN2,TPDRN2
WRITEC6,80) PDRN1,TPDRN1
URITE(6,115)PHED3
WRITE(6,55)PHED2
WRITE(6,85)PHED1
GO TO 200
THREE SUBPROFILES IN COVER
190 WRITE(6,100) PPRC3,TPPRC3
WRITE(6,150) PPRC2,TPPRC2
WRITE(6,40) PPRC1,TPPRC1
WRITE(6,110)PDRN3,TPDRN3
-------
200. WRITE(6,160) PDRN2,TPDRN2
201. WRITE(6,50) PDRN1,TPDRN1
202.
203. C
204. C PRINTS SNOW AND VEGETATIVE SOIL WATER CONTENT.
205. C
206.
207. 200 WRITEC6,210)PSNO,TPSNO
208. 210 FORMATC1H ,/7X,10HSNOW WATER,24X,F8.2,6X,F9.1)
209.
210. WRITE(6,220)PSUI
211. 220 FORMATUH ////7X,13HMAXIKUM VEG. ,
212. 1 20HSOIL WATER (VOL/VOL),7X,F7.4)
213.
214. WRITE(6,230)DSW
215. 230 FORMATC1H ,/7X,24HMINIMUM VEG. SOIL WATER ,
216. 1 9H(VOL/VOL),7X,F7.4)
217.
218. WRITE(6,2'tO)
219. 240 FORMATC1H /1H ,70(1HX)/1H ,70(IHx),6(/))
220.
221. RETURN
222. END
oo
-------
1. C
2. C XXXXXXXXXXXXXXXXXKXXXMHXX OUTSD
3. C
4.
5. C SUBROUTINE OUTSD PRINTS THE SOIL
6. C CHARACTERISTICS AND DESIGN INFORMATION.
7.
8. SUBROUTINE OUTSDCKVEG,CONA,ULE,SWULE,RDEPTH,ISAND)
9.
10. COMMDN/BLK2/PORO(9),FC(9),WP(9),CON(9),RC(9)
11. COMMON/BLK3/SLOPE(9),XLEIiGC9)
12. COMMON/BLK4/ LAYERU 0 ), THICKC 9), LAY
13. COnMON/BLK5/TAREA,LINER,FLEAK:,FRUHOF,CN2
14. IF(ISAND.EQ.1)URITE(6,5)
15. IFCKVEG.LT.1.0R.KVEG.GT.7) GO TO 80
16. 5 FORMATUH /12X,33H THE TOP LAYER IS AN UNVEGETATED
17. 1 21HSAND OR GRAVEL LAYER./)
18. C PRINTS VEGETATION TYPE USED FOR INPUT OF
19. C DEFAULT SOIL CHARACTERISTICS.
20. C
21.
22. IFCKVEG.EQ.1)URITE(6,10)
23. 10 FORMATUH /32X,11HBARE GROUND/)
2ft. IF(KVEG.EQ.2)URITE(6,20)
25. 20 FORMATUH /30X, 15HEXCELLENT GRASS/)
26. IF(KVEG.EQ.3)WRITE(6,30)
27. 30 FORMATUH /32X, 10HC-OOD GRASS/)
28. IFCKVEG.EQ.<+)WRITE(6,<+0)
29. ^0 FORMATUH /32X,10HFAIR GRASS/)
30. IF(KVEG.EQ.5)WRITE(6,50)
31. 50 FORMATUH /32X,1CHPOOR GRASS/)
32. IF(KVEG.EQ.6)URITE(6,60)
33. 60 FORMATUH /31X,13HGOOD ROW CROP/)
34. IF(KVEG.EQ.7)WRITE(6,70)
35. 70 FORMATUH /31X.13HFAIR ROW CROP/)
36.
37. C
38. C PRINTS SOIL CHARACTERISTICS AND DESIGN INFORMATION
39. C FOR EACH LAYER.
40. C
41.
42. 80 DO 170 1=1,LAY
43. WRITE(6,90)I
44. 90 FORMATUH //33X,5HLAYER, I2/33X,7UH-)//)
45.
46. IF(LAYER(I).EQ.1)WRITE(6,100)
47. 100 FORMATUOX,26HVERTICAL PERCOLATION LAYER)
48. IF(LAYER(I).EQ.2)WRITE(6,110)
49. 110 FORMATUOX,22HLATERAL DRAINAGE LAYER)
-------
50. IF(LAYER(I).EQ.3)WRITE(6,120)
51. 120 FORMAT(10X,18HBARRIER SOIL LAYER)
52. IF(LAYER(I).EQ.4)WRITE(6,130)
53. 130 FORMATdOX.llHWASTE LAYER)
54. IF(LAYER(I).EQ.5)WRITE(6,140)
55. 140 FORMAT(10X,29HBARRIER SOIL LAYER WITH LINER)
56.
57. K=I+1
58. IF(LAYER(I).EQ.2.AND.LAYER(K).NE.2)WRITE(6,:i50)SLOPE(I),XLENG(I)
59. 150 FORMAT(10X,5HSLOPE,31X,1H=,F9.2,8H PERCENT/
60. 1 10X,15HDRAINAGE LENGTH,21X,1H=,F8.1,5H FEET)
61.
62. WRITE(6,160)THICK(I),CON(I),POROCI),rC(I),WP(I),RCCI)
63. 160 FORMAT(10X,9HTHICKNESS,27X,1H=,F9.2,7H INCHES/
64. 1 10X,23HEVAPORATION COEFFICIENT,13X,1H=,F10.3,12H MM/DAY**0.5/
65. 2 10X,SHPOROSITY,28X,1H=,F11.4,3H VOL/VOL/
66. 3 10X,14HFIELD CAPACITY,22X,1H=,Fll.4,8H VOL/VOL/
67. 4 10X,13HWILTING POINT,23X,1H=,Fll.4,SH VOL/VOL/
68. 5 10X,37HEFFECTIVE HYDRAULIC CONDUCTIVITY =,F15.8,
69. 6 10H INCHES/HR///)
70.
71. 170 CONTINUE
72. C
73. C PRINTS OTHER SITE DESIGN DATA AND SIMULATION DATA.
74. C
75.
76. WRITE(6,175)
77. 175 FORMATC1H //25X,23HGENERAL SIMULATION DATA/25X,23(1H-)//)
78. U'RITE(6,180)CN2,TAREA,RDEPTH
79. 180 FORMAT(10X,23HSC5 RUNOFF CURVE NUMBER,13X,1H=,Fll.2/
80. 2 10X,19HTOTAL AREA OF COVER,17X,1H=,F9.0,7H SQ. FT/
81. 1 10X,22HEVAPORATIVE ZONE DEPTH,14X,1H=,Fll.2,7H INCHES)
32.
83.
84. IF(LAYERU).EQ.4)WRITE(6,190)FRUNOF
85. 190 FORMAT(10X,25HPOTENTIAL RUNOFF FRACTION,11X,1H=,F15.6)
86. IF(LINER.GT.O)URITE(6,200)FLEAK
87. 200 FORMAT(10X,22HLINER LEAKAGE FRACTION,14X,1H=,F15.6)
88. WRITE(6,210)CONA,ULE,SUULE
89. 210 FORMAT(10X,37HEFFECTIVE EVAPORATION COEFFICIENT =,F12.3,
90. 1 12H MM/DAY^X0.5/10X,24HUPPER LIMIT VEG. STORAGE,12X,
91. 2 1H=,F13.4,7H INCHES/10X,20HINITIAL VEG. STORAGE,16X,
92. 3 1H=,F13.4,7H INCHES///)
93.
94. REWIND 11
95. READ(11,215)KCDATA
96. 215 FORMATCI5)
97.
98. IF(KCDATA.EQ.O) GO TO 240
99.
-------
100. C
101. C PRINTS CITY AND STATE SELECTED FOR DEFAULT
102. C CLIMATOLOGIC INPUT WHEN THIS OPTION WAS USED.
103. C
10
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxxx OUTYR xxxxxxxxxxxxxxxxxxxxxxxx
3. C
4.
5. C SUBROUTINE OUTYR PRINTS THE ANNUAL TOTALS
6. C FOR A YEAR OF SIMULATION RESULTS.
7.
8. SUBROUTINE OUTYRCIYR,IUNIT,IUN1TT,5NO,OLDSNO)
9.
10. COMMON/BLK13/PRC1A(2Q),PRC2A(20),PRC3AC20),DRN1A(20),
11. 1 DRN2A(20),DRN3A(20),RUNA(20),PREA(20),ETA(20),JYEAR(20) ,
12. 2 BAL(20),OSWULE,PSWULE
13.
14. COMMOH/BLK5/TAREA,LINER,PLEAK,FRUNOF,CN2
15.
16. TPREA=TAREA*PREA(IYR)/12.0
17. FPREA=100.0
18. URITE(6,5)
19. 5 FORNATC1H ,6(/),lH ,70(1H*)/)
20.
21. C PRINTS HEADING AMD PRECIPITATION IN INCHES,
22. C CU. FT. AND PERCENT OF THE ANNUAL PRECIPITATION.
23.
24. HRITE(6,10)JYEARCIYR),PREACIYR),TPREA,FPREA
25. 10 FORMATC1H ///22X,17HANNUAL TOTALS FOR,I5/
26. 1 2X,70(lH-)/39X,8H(INCHES),4X,9H(CU. FT.),
27. 2 4X,7HPERCENT/39X,8(1H-),4X,9(1H-),4X,
23. 3 7(lH-)/4X,13HPRECIPITATION,22X,
29. 4 F6.2,6X,F9.0,4X,F6.2)
30.
3]. C CONVERTS RESULTS FROM INCHES TO CU. FT. AND TO
32. C PERCENT OF THE ANNUAL PRECIPITATION AMD PRINTS
33. C RUNOFF AND EVAPOTRANSPIRATION.
34.
35. TRUNA=TAREA*RUNA(IYR)/12.U
36. FRUNA=TRUNA*100.0/TPREA
37.
38. WRITE(6,20)RUNA(IYR),TRUNA,FRUNA
39. 20 FORMATdH ,/4X, 6HRUNOFF, 2 3X, F7 . 3 , 5X, F9 . 0 , 4X, F6 . 2)
40.
41. TETA=TAREA*ETACIYR)/12.0
42. FETA=TETAX100.0/TPREA
43. URITE(6,30) ETA(IYR),TETA,FETA
44. 30 FORHATCIH ,/4X,18HEVAPOTRANSPIRATION,17X
45. 1 ,F7.3,5X,F9.0,4X,F6.2)
46.
47. TPRC3A=PRC3A(IYR)XTAREA/12.0
48. FPRC3A=TPRC3A*100.0/TPREA
49.
-------
50. TPRC2A=PRC2A(IYR)*TAREA/12.0
51. FPRC2A=TPRC2A*100.0/TPREA
52.
53. TPRC1A=PRC1ACIYR)*TAREA/12.0
54. FPRC1A=TPRC1A*100.0/TPREA
55.
56. TDRN3A=DRH3A(IYR)XTAREA/12.0
57. FDRH3A=TDRN3A*100.0/TPREA
58.
59. TDRN2A=DRN2A(IYR)*TAREA/12.C
60. FDRH2A=TDRH2A*100.0/TPREA
61.
62. TDRN1A=DRN1A(IYR)*TAREA/12.0
63. FDRN1A=TDRM1AX100.0/TPREA
64.
65.
66. IFCIUNIT.EQ.3) GO TO 140
67. IFCIUNIT.EQ.2) GO TO 90
63. IF(IUNITT.EQ.O) GO TO 60
69.
70. C ONE SUBPROFILE, COVER WITHOUT 3ASE.
71.
72. k'RITE(6,40) PRC3ACIYR),TPRC3A,FPRC3A
73. 40 FORMATC1H ,/4X, 25HPERCOLATION FROM BASE OF ,
74. 1 5HCOVER,6X,F7.4,4X,F9.0,4X,F6.2)
75.
76. WRITE(6,50) DRH3A(IYR),TDRN3A,FDRN3A
77. 50 FORMATUH ,/4X, 22HDRAINAGE FROM BASE OF ,
78. 1 5HCOVER,8X,F7.3,5X,F9.0,4X,F6.2)
79.
80. GO TO 200
81.
82. C ONE SUBPROFILE, BASE WITHOUT COVER.
83.
84. 60 WRITE(6,70) PRC3ACIYR),TPRC3A,FPRC3A
85. 70 FORMATCIH ,/4X,25HPERCOLATION FROM BASE OF ,
86. 1 11HLANDFILL ,F7.4,4X,F9.0,4X,F6.2)
87. WRITE(6,80) DRM3A(IYR),TDRU3A,FDRN3A
8S. 80 FORflATClH ,/4X, 22HDRAINAGE FROM BASE OF ,
89. 1 8HLANDFILL,5X,F7.3,5X,F9.0,4X,F6.2)
90. GO TO 200
91.
92. 90 IF(IUNITT.GT.O) GO TO 120
93.
94. C TWO SUBPROFILES IH BASE, NO COVER.
95.
96. WRITE(6,100) PRC3ACIYR),TPRC3A,FPRC3A
97. 100 FORMATC1H ,/4X,28HPERCOLATION FROM TOP BARRIER,8X,F7.4
98. 1 ,4X,F9.0,4X,F6.2)
99. WRITE(6,70) PRC2ACIYR),TTRC2A,FPRC2A
-------
100. WRITEC6,110) DRN3AdYR),TDRN3A,FDRN3A
101. 110 FORMATdH ,/4X,31HDRAINAGE FROM TOP BARRIER LAYER,4X,F7.3
102. 1 ,5X,F9.0,4X,F6.2)
103. WRITE(6,80) DRN2AdYR), TDRN2A, FDRN2A
104. GO TO 200
105.
106. 120 IF(IUNITT.GT.l) GO TO 130
107.
108. C TWO SUBPROFILES, COVER AUD BASE.
109.
110. WRITE(6,40) PRC3AdYR),TPRC3A,FPRC3A
111. WRITE(6,70) PRC2AdYR),TPRC2A,FPRC2A
112. WRITE(6,50) DRN3ACIYR),TDRM3A,FDRN3A
113. WRITE(6,80) DRH2ACIYR),TDRN2A,FDRN2A
114. GO TO 200
115.
116. C TWO SUBPROFILES IN COVER, NO BASE.
117.
118. 130 WRITE(6,100) PRC3ACIYR),TPRC3A,FPRC3A
119. ;,'RITE(6,40) PRC2A(IYR),TPRC2A,FPRC2A
120. WRITE(6,110) DRN3A(IYR),TDRN3A,FDRN3A
121. WRITE(6,50) DRN2ACIYR),TDRH2A,FDRN2A
122. GO TO 200
123.
124. 140 IF(IUNITT.GT.O) GO TO 170
125.
126." C THREE SUBPROFILES IN BASE, NO COVER.
127.
128. WRITE(6,100) PRC3ACIYR),TPRC3A,FPRC3A
129. WRITEC6,150) PRC2ACIYR),TPRC2A,FPRC2A
130. 150 FORMATdH ,/4X, 21HINTERMEDI ATE BARRIER ,
131. 1 IIHPERCOLATION,4X,F7.4,4X,F9.0,4X,F6.2)
132. WRITE(6,70) PRC1ACIYR),TPRC1A,FPRCIA
133.
134. WRITE(6,110) DRN3ACIYR),TDRN3A,FDRM3A
135. WRITE(6,160) DRN2A(IYR),TDRH2A,FDRN2A
136. 160 FORMATdH ,/4X, 21HINTERMEDIATE BARRIER ,
137. 1 8HDRAINAGE,6X,F7.3,5X,F9.0,4X,F6.2)
138. WRITE(6,80) DRH1A(IYR),TDRN1A,FDRN1A
139. GO TO 200
140.
141. 170 IF(IUNITT.GT.l) GO TO 180
142.
143. C THREE SUBPROFILES, TWO IN BASH AND ONE IN COVER.
144.
145. WRITE(6,40) PRC3ACIYR),TPRC3A,FPRC3A
146. URITE(6,150) PRC2A(IYR),TPRC2A,FPRC2A
147. WRITE(6,70) PRC1A(IYR),TPRC1A,FPRCIA
148. WRITE(6,50) DRN3ACIYR),TDRN3A,FDRH3A
149. WRITE(6,160) DRN2A(IYR),TDRN2A,FDRN2A
-------
150. WRITE(6,80) DRN1AC IYR) , TDRN1A, FDRN1A
151. GO TO 200
152.
153. 180 IFCIUNITT.GT.2) GO TC 190
155. C THREE SUBPROFILES, ONE IN BASE AND TWO IN COVER.
156.
157. WRITE(6,100) PRC3A( IYR) , TPRC3A, FPRC3A
158. WRITEC6.40) PRC2AC IYR) , TPRC2A , FPRC2A
159. 1-JRITE(6,70) PRC1 A( I YR ) , TPRC] A , FPRC1 A
160. WRITE(6,110) DRN3A(IYR),TDRM3A,FDRN3A
161. WRITE(6,50) DRN2AC IYR) , TDRN2A, FDRN2A
162. WRITEC6,80) DRN1AC IYR) , TDRN1A, FDRN1A
163. GO TO 200
164.
165. C THREE SUBPROFILES IN COVER, NO BASE.
166.
167. 190 WRITE(6,100) PRC3AC IYR) , TPRC3A, FPRC3A
168. WRITE(6,150) PRC2AC IYR) , TPRC2A , FPRC2A
169. WRITE(6,40) PRC1 A ( IYR ) , TPRC1 A , FPRC1 A
170. WRITE(6,110) DRN3A(IYR),TDRH3A,FDRN3A
171. WRITE(6,160) DRN2AC IYR) , TDRN2A , FDRN2A
172. WRITE(6,50) DRN1AC IYR) , TDRN1 A , FDRN1 A
173.
174. C PRINTS STORAGE TERMS AND BUDGET BALANCE.
175.
176. 200 TBAL=TAREA*BAL(IYR)/12.0
177. FBAL=TBAL^100.0/TPREA
178.
179. TOSNO=TAREAXOLDSNQ/12.0
180. TPSW=PSWULEXTAREA/12.0
181. TOSW=OSWULE*TAREA/12.0
182. U'RITE(6,202)OSHULE,TOSW
183. 202 FORMATC1H ,/4X,llHSOIL WATER ,
184. 1 16HAT START OF YEAR, 8X, F6 . 2 , 6X, F9 . 0 )
185.
186. WRITEC6,203)PSMULE,TPSW
187. 203 FORMATUH ,/4X,18HSOIL WATER AT END ,
188. 1 7HOF YEAR,10X,F6.2,6X,F9.0)
189.
190. WRITE(6,204)OLDSNO,TOSNO
191. 204 FORMATUH , /4X, 20HSNOW WATER AT START ,
192. 1 7HOF YEAR,8X,F6.2,6X,F9.0)
193.
194. TSNO=TAREA«SNO/12.0
195. WRITE(6,205)SNO,TSNO
196. 205 FORMATC1H /4X,25HSNOW WATER AT END OF YEAR,
197. 1 10X,F6.2,6X,F9.0)
198.
199. WRITE(6,210)BAL(IYR),TBA'_,FBAL
-------
200. 210 FORMATUH ,/4X, 27HANNUAL WATER BUDGET BALANCE,8X,F6.2
201. 1,6X,F9.0,4X,F6.2)
202.
203. WRITE(6,220)
20
205.
206. RETURN
207. END
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxxx POTET XXXXKXXXX>;XXXXXXXXXXXXXXXX
3. C
4.
5. C SUBROUTINE POTET COMPUTES THE DAILY POTENTIAL
6. C EVAPOTRANSPIRATION VALUES FOR A YEAR OF SIMULATION.
7.
8. SUBROUTINE POTET(ETO)
9. CQMMON/BLK3/PRE(370),TMPF(366),RAD(366),DLAI(367),GR.XLAI1
10.
11. DIMENSION ETOC366)
12.
13. DATA G,ALB/0.68,0.23/
14.
15. DO 10 1=1,366
16.
17. C CONVERTS TEMPERATURE VALUE FROM DEGREES
18. C FAHRENHEIT TO DEGREES KELVIN.
19.
20. TK=(CTMPFCI)-32.0)X5.0/9.0)+273.0
21.
22. C COMPUTES SLOPE OF VAPOR PRESSURE CURVE, A, AND NET
23. C SOLAR RADIATION, H, AND POTENTIAL EVAPOTRANSPIRATION, EFO.
24.
25. A=(5304./(TKXTK))XEXP(21.255-(5304./TK))
26. H=(l-ALB)XRAD(I)/58.3
27. ETO(I)=1.28*AXH/((A+G)*25.4)
28. IF(ETO(I).LT.O.O)ETO(I)-0.0
29. 10 CONTINUE
30. RETURN
31. END
-------
00
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
PRECHK
SUBROUTINE PRECHK(KKOUNT)
C
C
SUBROUTINE PRECHK IS USED TO CHECK AND CORRECT
MANUAL PRECIPITATION INPUT.
DIMENSION IMYEAR(20),RAIN(2Q,37,10),
1 KLM(74),VALUE(10)
WRITE(6,10)
10 FORMATUH /1H ,4H9.1 ,36HDO YOU WANT TO CHECK OR CORRECT THE ,
1 29HPRECIPITATION VALUES ENTERED/1X,16HENTER YES OR NO.//)
CALL ANSWER(IANS)
IF(IANS.EQ.l) RETURN
KKOUNT=0
READS ALL PRECIPITATION DATA.
REWIND 4
DO 40 1=1,20
DO 30 J=l,37
READ(4,20,END=50)IMYEAR(I),(RAIN(I,J,K),K = 1.,10)
20 FORMAT(I10,10F5.2)
30 CONTINUE
KKOUNT=I
40 CONTINUE
REWIND 4
50 IF(KKOUNT.EQ.O) GO TO 260
WRITES YEARS OF PRECIPITATION DATA.
55 WRITE(6,60)KKOUNT,(IMYEAR(I),I=1,KKOUNT)
60 FORNATUH /1H ,4H9.2 ,14HDATA EXIST FOR,13,
1 9H YEARS: ,4(5(14,2H )/))
70 WRITE (6,80)
80 FORHATUH /1H ,4H9.3 ,25HENTER YEAR TO BE CHECKED./)
READ(10,90) (KLM(J),J=1,74)
90 FORNAT(74A1)
CALL SCANCNO,VALUE,74,KLM)
NYR=VALUE(1)
ISET IS THE NUMBER OF THE YEAR TO BE CHECKED.
NYR IS THE YEAR TO BE CHECKED.
DO 100 1=1, KKOUNT
ISET=I
-------
50. IF(NYR.EQ.IMYEAR(I))GO TO 120
51. 100 CONTINUE
52. WRITEC6,110) NYR
53. 110 FORFIATCIH /5H 9. 4 ,14HDATA FOR YEAR ,I4,15H ARE NOT IN ~HE,
5$. 1 11H DATA.FILE./)
55. GO TO 70
56. 120 WRITEC6,130)IMYEARCISET)
57. 130 FORMATUH /1H ,4H9.5 ,13HTHE DATA FOR ,14,5H ARE://)
58.
59. C PRINTS PRECIPITATION DATA FOR YEAR TO BE CHECKED.
60.
61. DO 140 J=l,37
62. WRITE(6,135)IMYEAR(ISET),CRAIN(ISET,J,K),K=1,10),J
63. 135 FORMATUH , 110 ,10F5 . 2,110 )
64. 140 CONTINUE
65. WRITE(6,150)
66. 150 FORMAT(1H /5H 9.6 ,40HDO YOU WANT TO CHANGE OR CORRECT ANY OF
67. 1 13HTHESE VALUES/1X,16HENTER YES OR NO.//)
68. CALL ANSWER(IANS)
69. IFCIANS.EQ.l) GO TO 230
70. 160 WRITE(6,170)
71. 170 FORMATUH /1H ,4H9.7 ,35HEHTER NUMBER OF LINE TO BE CHANGED./)
72. READ(10,90)CKLMCJ),J=1,74)
73. CALL SCANCNO,VALUE,74,KLM)
74. JSET=VALUE(1)
i— 75 _
to 7&! C JSET IS THE NUMBER OF LINE TO BE CORRECTED.
77.
78. IFCJSET.GE. LAND. JSET. LE. 37) GO TO 190
79. WRITEC6,180)
80. 180 FORMATC1H /5H 9.8 ,37HLINE NUMBERS MUST RANGE FROM 1 TO 37./
81. 1 1X,10HTRY AGAIN./)
82. GO TO 160
83. 190 WRITE(6,200)
84. 200 FORMATC1H /46H 9.9 ENTER THE TEN DAILY PRECIPITATION VALUES./)
85. READ(10,90)(KLM(J),J=1,74)
86. CALL SCANCNO,VALUE,74,KLM)
87.
88. C REPLACES PRECIPITATION VALUES IN ARRAY RAIN.
89.
90. DO 210 K=l,10
91. RAIN(ISET,JSET,K)=VALUE(K)
92. 210 CONTINUE
93. l!RITE(6,220)
94. 220 FORMATdH /6H 9.10 ,30HDO YOU MANT TO CHANGE ANOTHER ,
95. 1 1SHLIHE OF THIS YEAR/1X,16HENTER YES OR HO./)
96. CALL ANSWERCIANS)
97. IF(IANS.EQ.O) GO TO 160
98. 230 WRITE(6,240)
99. 240 FORMATCIH /45H 9.11 DO YOU WANT TO CHECK OR CORRECT ANOTHER,/
-------
100. 1 30H YEAR OF PRECIPITATION VALUES/17H ENTER YES OR NO./)
101. CALL ANSWER(IANS)
102. IFCIANS.EQ.O) GO TO 70
103.
1(K*. C WRITES ALL PRECIPITATION DATA ON TAPE <+.
105. REWIND 4
106.
107. DO 250 I-l.KKOUNT
103. DO 250 J=l,37
109. WRITEC4,255)IMYEARCI},(RAINCI,J,K),K=1,10),J
110. 255 FORMATCI10,10F5.2,I10)
111. 250 CONTINUE
112. REWIND f\
113. RETURN
114. 260 WRITE(6,270)
115. 270 FORflATUH /45H 9.12 THE DATA FILE CONTAINS NO PRECIPITATION,
116. 1 8H VALUES./)
117. RETURN
118. END
-------
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
1*.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
C
C
C
C
C
XXXXXXXXXXXXXXXXXXKXXXXXX PROFIL XXXMXXXXXXXXXXXXXXXXXXXX
SUBROUTINE PROFIL DISTRIBUTES WATER IN A SUBPROFILE
FROM SUPERSATURATED SEGMENTS TO THE SEGMENTS
DIRECTLY ABOVE THE SUPERSATURATED SEGMENTS.
SUBROUTINE PROFIL CKK, EXCESS, NSEGB,NSEGL , SWULY, E, BALT,DRIN,
1 BALY)
COMMON/BLK7/STHICKC16),UL(16),FCULC16),WPULU6),
1 SWUL(16),RCUL(16)
DIMENSION SWULYU6),E(16),BALT(16),DRIN(17),BALY(16>
EXCESS=0.0
DO 10 J=NSEGB,NSEGL
K=NSEGL+NSEGB-J
EXCESS IS THE EXCESS WATERC ABOVE SATURATION) IN THE SEGMENT
DIRECTLY BELOW THE SEGMENT BEING EVALUATED.
S=SWUL(K)+EXCESS+(BALT(K)/2.0)
EXCE=EXCESS
EXCESS=S-UL(K)
IF (EXCESS. GT.0.05GO TO 5
EXCESS=0.0
Sl'JUL(K)=S-(BALT(K)/2.0)-EXCE/2.0
GO TO 8
THE DRAINAGE AND CHANGE OF STORAGE ARE RECOMPUTED
TO ACCOUNT FOR THE REDISTRIBUTION OF SOIL WATER.
5 IF(BALY(K).LT.0.00001)BALY(K)=0.0
BALT(K)=UL(K)-SUULY(K)-(BALY(K)/2.0J
SUUL(K)=UL(K)-(BALT(K)/2.0)
GO TO 9
8 BALT(K)=2X(SUUL(K)-SWULY(K))-BALY(K)
9 DRIN(K)=BALTCK)+DRIN(K+1)+E(K)
10 CONTINUE
THE EXCESS IN THE TOP SEGMENT OF A SUBPROFILE
IS KEPT IN THE TOP SEGMENT.
SWUL(NSEGB)=SWUL(NSEGB)+EXCESS
-------
50. BALT(NSEGB)=BALT(NSEGB)+EXCESS
51. DRIN(NSEGB)=DRIN(NSEGB)+EXCESS
52. RETURN
53. END
-------
1. C
2. C xxx*xxxx*xxxx*xxxxxx*xxxx READCD
3. C
4. C
5. C SUBROUTINE READCD READS A YEAR OF CLIMATOLOGIC
6. C DATA DURING A YEAR OF SIMULATION.
7 . C
8. SUBROUTINE READCDCNYEAR,ND,ISET,JSET,KSET,LSET,MSET,NT)
9. COriMON/BLKl/KCDATA,KSDATA,KFLAG,IFLAG,KVEG,
10. 1 101,102,103,104,105
11. COMMON/BLK4/LAYER(10),THICK(9),LAY
12. COriMON/BLK8/PRE(370>,TMPF(366),RAD(366),DLAI(367),GR,XLAIl
13. COMf10N/BLK10/LDAY13C13),XLAI13(13)
14. DIMENSION TMPFN(12),RADIM(12),TENP(12),RADI(12)
15. C
16. C READS PRECIPITATION DATA.
17. C
18. DO 20 K=l,37
19. J=10*K
20. I = J-9
21. READ(4,10)NYEAR,(PRE(N),N=I,J)
22. 10 FORf1ATCI10,10F5.2)
23. 20 CONTINUE
24. C
25. C DETERMINES IF THE YEAR IS A LEAP YEAR.
*> s p
27." ND=LEAPCNYEAR,NT)
28. IF(ISET.GT.O)GO TO 90
29. C
30. C ISET=1 IF ONLY ONE SET OF TEMPERATURES IS TO BE USED FOR
31. C ALL YEARS OF SIMULATION.
32. C
33. NDA=366
34. M=12
35. C
36. C READS MEAN MONTHLY TEMPERATURES AND COMPUTES DAILY
37. C TEMPERATURES IN DEGRESS FAHRENHEIT.
7 G f*-
39." READ(7,30)LYEAR,(TEMPCI),I = 1,12)
40. 30 FORMAT(I5,12F6.1)
41. IFCLYEAR.LE.O)ISET=1
42. IF(LYEAR.LE.O) REWIND 7
43. CALL DATFITCM,TEMP,TO,T1,T2)
44. DO 40 1=1,12
45. TMPFMCI)=COMPUT(TO,T1,T2,I,M)
46. 40 CONTINUE
47. IF(I01.EQ.1.0R.I03.EQ.1.0R.I05.EQ.1)GO TO 75
48. C
49. C PRINTS MEANS MONTHLY TEMPERATURES.
-------
50. C
51. WRITE(6,50)
52. 50 FORMATUH ,/14X,35HMONTHLY MEAN TEMPERATURES, DEGREES ,
53. 1 10HFAHRENHEIT)
54. MRITE(6,60)
55. 60 FORMATC1H /1H ,2X,7HJAN/JUL,5X,7HFEB/AUG,5X,7HMAR/SEP,5X,
56. 1 7HAPR/OCT,5X,7HMAY/NOV,5X,7HJUN/DEC/3X,7H ,
57. 2 5(5X,7H ))
53.
59. WRITEC6,70)(TMPFKCI),I=1,12)
60. 70 FORMATC1H ,FS.2,5F12.2)
61.
62. 75 DO 80 1=1,NDA
63. THPF(I)=COMPUT(TO,T1,T2,I,NDA)
64. 80 CONTINUE
65. C
66. C READS MEANS MONTHLY SOLAR RADIATION AND COMPUTES DAILY
67. C SOLAR RADIATION VALUES IN LANGLEYS PER DAY.
68. C
69. 90 IF(JSET.GT.O)GO TO 130
70. C
71. C JSET=1 IF ONLY ONE SET OF SOLAR RADIATION VALUE IS
72. C TO BE USED FOR ALL YEARS OF SIMULATION.
73. C
74. READC13,30) LYEAR,(RADI(I),I=1,12)
75. IF(LYEAR.LE.O)JSET=1
76. IF(LYEAR.LE.O) REWIND 13
77. CALL DATFIT(M,RADI,RO,R1,R2)
78. DO 100 1=1,12
79. RADIfKI)=COMPUT(RO,Rl,R2,I,M)
80. 100 CONTINUE
81.
82. IFCI01.EQ.1.0R.I03.EQ.1.0R.I05.EQ.DGO TO 115
83. WRITE(6,110)
84. 110 FORMATC1H ,/12X,32H MONTHLY MEANS SOLAR RADIATION, ,
85. 1 16HLANGLEYS PER DAY)
86. C
87. C PRINTS MEAN MONTHLY SOLAR RADIATION VALUES IN
88. C LANGLEYS PER DAY.
89. C
90. WRITE(6,60)
91. WRITE(6,70)(RADIM(I),I=1,12)
92. 115 DO 120 1=1,NDA
93. RAD(I)=COMPUT(RO,R1,R2,I,NDA)
94. 120 CONTINUE
95. 130 IF(KSET.GT.O) GO TO 180
96. C
97. C KSET=1 IF ONLY ONE SET OF LEAF AREA INDICES IS
98. C IS TO BE USED FOR ALL YEARS OF SIMULATION.
99. C
-------
100. IF(I01.EQ.1.0R.I03.EQ.1.0R.I05.EQ.1)GO TO
101. WRITE(6,140)
102. 140 FORMATdH /27X,21HLEAF AREA INDEX TABLE//
103. 1 30X,4HDATE,8X,3HLAI/30X,4H ,7X,4H )
104. C
105. C READS LEAF AREA INDICES.
106. C
107. 145 DO 170 1=1,13
108. READC14,150)LYEAR,LDAY13(I),XLAI13(I)
109. 150 FORMATd5,I8,F8.2)
110. C
111. C PRINTS LEAF AREA INDICES.
112. C
113. IFd01.EQ.1.0R.I03.EQ.1.0R.I05.EQ.l)GO TO 170
114. WRITEC6,160) LDAY13(I),XLAI13CI)
115. 160 FORMATdH ,30X,13,6X,F5.2)
116. 170 CONTINUE
117. C
118. C READS VEGETATION TYPE WHEN ONLY ONE SET OF LEAF AREA
119. C INDICES IS USED FOR ALL YEARS OF SIMULATION.
120. C
121. READ(14,300)KVEG
122. 300 FORMATd3)
123. IFCKVEG.LT.1.0R.KVEG.GT.7) GO TO 175
124. C
125. C PRINTS VEGETATION TYPE USED FOR CLIMATOLOGIC
126. C INPUT WHEN DEFAULT OPTION WAS USED.
127. C
128. IF(I01.EQ.1.0R.I03.EQ.1.0R.I05.EQ.1)GO TO 175
129. IF(KVEG.EQ.1)WRITE(6,310)
130. 310 FORMATdH /32X,11HBARE GROUND/)
131. IF(KVEG.EQ.2)WRITEC6,32Q)
132. 320 FORMATdH /30X, 15HEXCEL L ENT GRASS/)
133. IF(KVEG.EQ.3)WRITE(6,330)
134. 330 FORMATdH /32X,10HGOOD GRASS/)
135. IF(KVEG.EQ.4)WRITE(6,340)
136. 340 FORMATdH /32X,10HFAIR GRASS/)
137. IF(KVEG.EQ.5)WRITE(6,350)
138. 350 FORMATdH /32X,10HPOOR GRASS/)
139. IF(KVEG.EQ.6)WRITE(6,360)
140. 360 FORMATdH /31X,13HGOOD ROW CROP/)
141. IF(KVEG.EQ.7)WRITE(6,370)
142. 370 FORMATdH /31X,13HPOOR ROW CROP/)
143. 175 CONTINUE
144.
145.
146. IF(LYEAR.LE.O)KSET=1
147. IF(LYEAR.LE.O) REWIND 14
148. C
149. C CALLS SUBROUTINE DLAIS TO COMPUTE POTENTIAL
-------
150. C DAILY CHANGES IN THE LEAF AREA INDEX.
151. C
152. CALL DLAIS(DLAI,XLAI1>
153.
154. 180 IF(LSET.GT.O) GO TO 210
155. C
156. C LSET=1 IF ONLY ONE WINTER COVER FACTOR IS
157. C USED FOR ALL YEARS OF SIMULATION.
158. C
159. READ(15,190) LYEAR,GR
160. 190 FORMAT(I5,F8.2)
161. C
162. C READS AND PRINTS WINTER COVER FACTOR.
163. C
164. IF(LYEAR.LE.O)LSET=1
165. IFCLYEAR.LE.O) REWIND 15
166. IF(I01.EQ.1.0R.I03.EQ.1.0R.I05.EQ.1)GO TO 210
167. WRITE(6,200)GR
168. 200 FORMATC1H ,23X,21HWINTER COVER FACTOR =,F8.2)
169. C
170. C IF NEW TEMPERATURE OR SOLAR RADIATION VALUES ARE READ,
171. C MSET=1 AND NEW DAILY POTENTIAL EVAPOTRANSPIRATION
172. C VALUES MUST BE COMPUTED.
173. C
174.
_ 175. 210 IF(ISET.LE.O.OR.JSET.LE.O)MSET=1
ox 176. RETURN
°" 177. END
178. C
179. c XXXXXXXXXXXXXXXXMXXXXXX LEAP XXXXXXXXXXXXXXXH-XXXXXXXX
180. C
181. C
182. C INTEGER FUNCTION SUBPROGRAM LEAP DETERMINES
183. C WHETHER A YEAR IS A LEAP YEAR.
184. C
185. INTEGER FUNCTION LEAPCYEAR,FLAG)
186. INTEGER YEAR,FLAG
187. C
188. C IF DIVISIBLE BY FOUR, YEAR IS A LEAP YEAR AND FLAG IS SET
189. C TO 0; ELSE, YEAR IS NOT A LEAP YEAR AND FLAG=1.
190. C
191. IF(MOD(YEAR,4).EQ.O) GO TO 10
192. LEAP=365
193. FLAG=1
194. RETURN
195.
196. 10 CONTINUE
197. LEAP=366
198. FLAG=0
199. RETURN
-------
200.
END
-------
1. C
2. C XXKXHXXX*XXXX*KXKXXXXXX** READSD XXXXXXXXXXXXXXXXXXXXXXHXX
3. C
4. C
5. C SUBROUTINE READSD READS DATA FILE TAPE 5 FOR SOIL
6. C CHARACTERISTICS AND DESIGN INFORMATION.
7. C
8. SUBROUTINE READSD(KVEG,ISAND)
9.
10. COMMON/BLK2/PORO(9),FC(9),WP(9),CON(9),RC(9)
11. COMMON/BLK4/LAYER(10),THICK(9),LAY
12.
13. COMMON/BLK5/TAREA,LINER,FLEAK,FRUNOF,CN2
14. COMMON/BLK3/SLOPE(9),XLEN3(9)
15. DIMENSION ITITLEC3,40)
16.
17. REWIND 5
18. 1>!RITE(6,5)
19. 5 FORMATC1H ,6(/),lH ,70(1H*)/1H ,70C1H*)//)
20. DO 20 J=l,3
21. READ(5,15)CITITLE(J,I),I=1,40)
22. 15 FORMAT(80A1)
23. WRITEC6,10)(ITITLECJ,I),I=1,40)
24. 10 FORMATC1H ,60A1)
25. 20 CONTINUE
_ 26. WRITE(6,25)
-------
50. READ(5,90)TAREA
51. 90 FORMATCF12.0)
52.
53. READ(5,100KLAYER(J),J
5*. 100 FORMAT(9I7)
55.
56. READ(5,40HSLOPE(J),J =
57.
58. READ(5,110KXLENGCJ),J
59. 110 FORMAT(9F7.1)
60.
61. READ(5,150) KVEG,ISAND
62. 150 FORMATC2I3)
63. REWIND 5
64. RETURN
65. END
-------
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
is!
16.
17.
18.
19.
20.
21.
22.
23.
24 .
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
XXXXXXXXXXXXXXXXXXXXXXXXX RUNOFF XXXXXXXXXXXXXXXXXXXXXXXXX
SUBROUTINE RUNOFF
SUBROUTINE RUNOFF(WF,RAIH, RUN, SMX)
COMMON/BLK7/STHICK(16),UL(16)FCUL(16)UPUL(16),SWUL(16),RCUL(16)
COMMON/BLK5/TAREA,LINER,FLEAK,FRUNOF,CN2
DIMENSION WF(7)
WTSM=0.0
COMPUTES DEPTH-WEIGHTED EFFECTIVE SOIL WATER CONTENT
IN VOL/VOL.
DO 10 1=1,7
SW=SWUL(I)
IF(SUUL(I).GT.UL(I))SW=UL(I)
WTSM=WTSM+ ( WF( I ) x ( SW-WPUL ( I ) )/ ( UL ( I ) -WPUL ( I ) ) )
10 CONTINUE
COMPUTES STORAGE RETENTION PARAMTER.
S=SMXX(1.0-WTSM)
COMPUTES INITIAL ABSTRACTION.
AB=0.2XS
IFCS.LT. 0.0)5=0
IF(RAIN.LT.AB) GO TO 20
COMPUTES RUNOFF.
RUN = ((RAIN-AB)XX2)/(RAIN-t-0.8XS)
RUN=RUN*FRUNOF
RETURN
20 RUN=0.0
-------
50. RETURN
51. END
-------
NJ
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47 .
48.
49.
C
C
C
C
C
C
C
C
1
2
3
4
7
5
6
10
9
11
12
14
24
16
13
8
17
19
20
21
XXXXXXXXXXXXXXXXXXXX SCAN XXXXXXXXXXXXXXXXXXXXXXXXX
SUBROUTINE SCAN IS USED TO READ ALL UNFORMATTED
NUMERIC INPUT FROM THE USER. 76 COLUMNS MAY BE USED
FOR A LINE OF INPUT CONTAINING UP TO 10 VALUES.
SUBROUTINE SCAN (NO,VALUE,M7,KLM)
DIMENSION VALUE(10),KLM(76),NUM(10)
DATA IPOINT,IPLUS,MIHUS/1H.,1H+,1H-/
DATA NUM/1HO,1H1,1H2,1H3,1H4,1H5,1H6,1H7,1H8,1H9/
DO 1 1=1,10
VALUE(I)=0.
NCOL=1
N = l
KPT = 0
IF(KLM(NCOL).NE.MINUS)GO TO 4
SGH=-1.
GO TO 5
IF(KLrUNCOL).NE.IPLUS)GO TO 6
SGN=1.
VALUE(N)=0.
GO TO 8
IF(KLM(NCOL).NE.IPOINT)GO TO 9
GO_TO 7
ICOMP=NUM(1)
IF(KLM(NCOL).EQ.ICOMP) GO TO 13
ICOHP=NUM(K+1)
NCOL=HCOL-H
IF(NCOL-K7)2,16,16
NO=N-1
RETURN
SGM=1.
VALUE(N)=K
NCOL=NCOL+1
IF(NCOL-K7)17,18,18
IF(KLMCNCOL) .NE. IPOINDGO TO 20
KPT = 1
GO_TO 8
ICOMP=NUM(1)
IF(KLM(NCOL).EQ.ICOMP)GO TO 23
-------
a_
^
i
z z z
CO ^> UlN^ ^
r-H UJ CMUJ LLI
•-v -3 -.33
r-4 CO —I SO —I —I
-t- r-Kt CM< <
i^ ^> ••> >
v^ r-4 II IT) II II
E CM ^N
-------
1. C
2. C XXXXXXXXXXXXXXXXXXXXXXXHX SDCHK XXXXXSXXXKXXXXXXXXXXXXXXX
3. C
4. C SUBROUTINE SDCHK IS USED TO CHECK AMD CORRECT SOIL
5. C CHARACTERTICS AND DESIGN INFORMATION FOR MANUAL INPUT.
6. C
7.
8. SUBROUTINE SDCHK
9. DIMENSION ITITLEC3,40),THICK(9),PORO(9),FCC 9),WP(9),
10. 1 RC(9),LAYER(10),SLOPE(9),XLENG(9),VALUE(10),KLM(74)
11. 2 ,CON(9)
12.
13. 5 REWIND 5
14. INEUI=0
15. WRITE(6,10)
16. 10 FORMATdH /1H ,5H10.1 ,29KTHE DESIGN AND SOIL DATA AR£://1X,
17. 1 10HCTHE LAST ,
18. 1 48HNUMBER OF EACH LINE OF DATA IS THE LINE NUMBER.)//)
19. C
20. C READS DATA FILE TAPE 5 AND PRINTS THE VALUES.
21. C
22. DO 40 J=l,3
23. READ(5,20)(ITITLE(J,I),I=1,40)
24. 20 FORMATC60A1)
25. K'RITE(6,30)dTITLE(J,I),I = l,40)
26. 30 FORMATC1H /1H , 6HTITLE = /1X, fiOAl)
27. 40 CONTINUE
28.
29. READ(5,50)LAY,LINER,FLEAK,FfJUNOF,CN2,JCOUNT
30. 50 FORMAT(2I2,3F12.6,I7)
31. WRITE(6,60)LAY,LINER,FLEAK,FRUKOF,CN2,JCOUNT
32. 60 FORMATC1H /1H ,40H» OF LAYERS, tt OF LINERS, LINER LEAKAGE ,
33. 1 25HFRACTION, RUNOFF FRAC7ION/1X,
34. 2 26HFOR OPEN SITES, AND CN-II:/lX,212,3F12.6,17 )
35.
36. READ(5,70)(THICKU),J = 1,9),JCOUNT
37. 70 FORMAT(9F7.2,I7)
38. WRITE(6,80)(THICK(J),J=1,9),JCOUNT
39. 80 FORMATdH /1H , 12HTHICKNESSES :/1X, 9F7 . 2 ,17 )
40.
41. READ(5,90)(PORO(J),J=1,9),JCOUNT
42. 90 FORMAT(9F7.4,I7)
43. WRITE(6,100)(PORO(J),J=1,9),JCOUNT
44. 100 FORMATC1H /1H ,11HPOROSITIES:/lX,9F7.4,17)
45.
46. READ(5,90)(FC(J),J=1,9),JCOUNT
47. WRITEC6,110)(FC(J),J=1,9),JCOUNT
48. 110 FORMATdH /1H ,17HFIELD CAPACITI ES :/1X, 9F7 . 4 ,17 )
49.
-------
50. READ(5,90)(WP(J),J = 1,9),JCOIJNT
51. WRITEC6,120)(WPCJ),J=1,9),JCOUNT
52. 120 FORMAT(1H /1H ,15HMILTING POINTS:/lX,9F7.4,17)
53.
54. READ(5,130)CCON(J),J=1,9),JCOUNT
55. 130 FCRNAT(9F7.3,I7)
56. l'JRITE(6,140)(CONCJ),J = l,9),JCOUNT
57. 140 FORMATdH /1H ,25HEVAPORATIOH COEFFICIENTS=/!X,9F7.3,17)
58.
59. READ(5,150)(RCU),J = 1,5), JCOUNT
60. 150 FORMAT(5F13.8,I7)
61. WRITE(6,160)(RC(J),J=1,5),JCOUNT
62. 160 FORMATdH /1H ,25HHYDRAULIC CONDUCTIVITIES:/lX,5F13.3,16)
63. READ(5,170)CRC(J),J=6,9),JCOUNT
64. 170 FORMAT(4F13.8,I7)
65. HRITE(6,175)(RCCJ),J=6,9),JCOUNT
66. 175 FORMATdH ,4F13.8,I7)
67.
68. READ(5,180) TAREA,JCOUNT
69. 180 FORMAT(F12.0,I7)
70. WRITE(6,190> TAREA,JCOUNT
71. 190 FORMATdH /1H ,13HSURFACE AREA'/IX, F12 . 0 ,17)
72.
73. READC5,200)CLAYERCJ),J=l,9),JCOUNT
74. 200 FORNATUOI7)
75. WRITE(6,210KLAYER(J),J = 1,9),JCOUNT
76. 210 FORHATC1H /1H ,12HLAYER TYPES:/lX,1017)
77.
78.
79. READC5,70)(SLOPE(J),J=1,9),JCOUNT
80. WRITE(6,220)(SLOPE(J),J=1,9),JCOUNT
81. 220 FORMATdH /1H ,13HLAYER SLOPES =/!X, 9F7 . 2,17 )
82.
83. READ(5,230)(XLENGU),J = 1, 9) .JCOUNT
84. 230 FORMAT(9F7.1,I7)
85. WRITE(6,240)(XLENG(J),J=1,9),JCOUNT
86. 240 FORMATdH /1H ,23HLAYER DRAINAGE LENGTHS:/1X, 9F7 .1,17)
87.
88. READ(5,245)KVEG,ISANO
89. 245 FORMATC2I3)
90.
91.
92. REWIND 5
93.
94. 250 WRITE(6,260)
95. 260 FORMATdH /1H ,5H10.2 ,32HDO YOU WANT TO CHANGE ANY LINES/
96. 1 1X,16HENTER YES OR NO./)
97. CALL ANSWER(IANS)
98. IF(IANS.EQ.l) GO TO 340
99. IF(INEW.EQ.l) GO TO 269
-------
100. U'RITEC6,261)
101. 261 FORMATC1H /1H ,5H10.3 ,26HDO YOU WANT TO CHANGE THE ,
102. 1 6HTITLE/1X,16HENTER YES OR NO./)
103. CALL AHSWER(IAHS)
104. IFCIANS.EQ.l) GO TO 269
105. URITEC6,262)
106. 262 FORMATC1H /6H 10.4 ,23H ENTER TITLE ON LIME I,/
107. 1 45H ENTER LOCATION OF SOLID WASTE SITE ON LINE 2/
108. 2 34H AND ENTER TODAY'S DATE ON LINE 3./)
109. DO 264 J = l,3
110. READC10,20)CITITLECJ,I),I=1,40)
111. 264 CONTINUE
112. INEW=1
113. GO TO 250
114. 269 INEW=1
115. WRITE(6,270>
116. 270 FORMATCIH /1H ,5H10.5 ,29HENTER THE NUMBER OF THE LINE./)
117. READC10,280)CKLMCJ),J=1,74)
118. 280 FORMATC74A1)
119. CALL SCANCNO,VALUE,74,KLM)
120. JCOUNT=VALUEC1)
121. IFCJCOUNT.LT.4.OR.JCOUNT.GT.15)GO TO 250
122. C
123. C READS THE NUMBER OF THE LINE TO BE CHANGED.
124. C
125. 310 WRITEC6,320)JCOUNT
126. 320 FORHATC1H /1H ,5H10.6 ,30HENTER THE DATA VALUES FOR LINE,
127. 1 I3,1H./1X,29HDO NOT ENTER THE LINE NUMBER.//)
12S. C
129. C READS THE VALUES OF THE LINE.
130. C
131. READC10,280)CKLMCJ),J=1,74)
132. CALL SCANCNO,VALUE,74,KLM)
133.
134. IFCJCOUNT.EQ.4) GO TO 321
135. IFCJCOUNT.EQ.5) GO TO 322
136. IFCJCOUHT.EQ.6) GO TO 324
137. IFCJCOUNT.EQ.7) GO TO 326
138. IFCJCOUNT.EQ.8) GO TO 323
139. IFCJCOUNT.EQ.9) GO TO 330
140. IFCJCOUNT.EQ.10) GO TO 332
141. IFCJCOUNT.EQ.il) GO TO 334
142. IFCJCOUNT.EQ.12) GO TO 336
143. IFCJCOUNT.EQ.13) GO TO 337
144. IFCJCOUNT.EQ.14) GO TO 339
145. IFCJCOUNT.EQ.15) GO TO 342
146. C
147. C ASSIGNS THE NEW VALUE TO THE VARIABLE READ.
148. C
149. GO TO 250
-------
150. 321 LAY=VALUE(1)
151. LINER=VALUEC2)
152. FLEAK=VALUE(3)
153. FRUNOF=VALUE(4)
154. CN2 = VALUE(5)
155.
156. WRITE(6,311)
157. 311 FORnATdH /6H 10.7 ,39HIT IS RECOMMENDED THAT YOU REENTER ALL
15S. 19HSOIL DATA/4511 IF YOU WANT TO CHANGE THE NUMBER OF LAYERS; ,
159. 2 10HOTHERWISE,/40H YOU MUST CHANGE LINES 5 THROUGH 11 AND ,
160. 3 14H13 THROUGH 15.)
161.
162. GO TO 250
163.
164. 322 DO 323 J=l,9
165. THICK(J)=VALUE(J)
166. 323 CONTINUE
167. GO TO 250
168. 324 DO 325 J=l,9
169. PORO(J)=VALUE(J>
170. 325 CONTINUE
171. GO TO 250
172. 326 DO 327 J=l,9
173. FC(J)=VALUE(J)
174. 327 CONTINUE
175. GO TO 250
176. 328 DO 329 J = l,9
177. WP(J)=VALUE(J)
178. 329 CONTINUE
179. GO TO 250
180. 330 DO 331 J=l,9
181. CON(J)=VALUE(J)
182. 331 CONTINUE
183. GO TO 250
184. 332 DO 333 J=l,5
185. RC(J)=VALUE(J)
186. 333 CONTINUE
187. GO TO 250
188. 334 DO 335 J=6,9
189. K=J-5
190. RC(J)=VALUE(K)
191. 335 CONTINUE
192. GO TO 250
193. 336 TAREA=VALUE(1)
194. GO TO 250
195. 337 DO 338 J=l,9
196. LAYER(J)=VALUE(J)
197. 338 CONTINUE
198.
199. WRITE(6,312)
-------
200. 312 FORMATC1H /6H 10.8 ,33HYOU MAY ALSO NEED TO CHANGE LINES,
201. 1 14H 4, 14 AND 15./1X,24HIF YOU CHANGE THIS LINE.)
202.
203. GO TO 250
204. 339 DO 341 J = l,9
205. SLOPE(J)=VALUE(J)
206. 341 CONTINUE
207. GO TO 250
208. 342 DO 343 J = l,9
209. XLENG(J)=VALUECJ)
210. 343 CONTINUE
211. GO TO 250
212. C
213. C WRITES THE NEW DATA FILE WITH THE CORRECTED VALUES.
214. C
215. 340 REWIND 5
216. IF(INEW.EQ.O) GO TO 360
217. DO 345 J=l,3
218. WRITE(5,20)(ITITLE(J,I>,I-1,40)
219. 345 CONTINUE
220. JCOUNT=4
221. WRITEC5,50)LAY,LINER,FLEAK,FRUNOF,CN2,JCOUNT
222. JCOUNT=5
223. WRITEC5,70)(THICK(J),J=1,9),JCOUNT
224. JCOUNT=6
225. WRITEC5,90)(POROCJ),J=1,9),JCOUNT
226. JCOUNT=7
227. WRITEC5,90)CFCCJ),J=1,9),JCOUNT
228. JCOUNT=8
229. WRITE(5,90)CWPCJ),J=1,9),JCOUNT
230. JCOUNT=9
231. WRITEC5,130)CCONCJ),J=1,9),JCOUNT
232. JCOUNT=10
233. WRITEC5,150)CRCCJ),J=l,5),JCOUNT
234. JCOUNT=11
235. WRITE(5,170)CRCCJ),J=6,9),JCOUNT
236. JCOUNT=12
237. WRITE(5,180) TAREA,JCOUNT
238. JCOUNT=13
239. WRITEC5,200)(LAYERCJ),J=l,9),JCOUNT
240. JCOUNT=14
241. WRITEC5,70)(SLOPECJ),J=l,9),JCOUNT
242. JCOUNT=15
243. URITEC5,230)(XLENG(J),J=1,9),JCOUNT
244. WRITE(5,245)KVEG,ISAND
245. REWIND 5
246. WRITE(6,350)
247. 350 FORMATC1H /6H 10.9 .33HDO YOU WANT TO CHECK THE DATA SET,
248. 1 7H AGAIN/1X,16HENTER YES OR NO.//)
249. CALL ANSWER(IANS)
-------
250. IF(IANS.EQ.O)GO TO 5
251. 360 RETURN
252. END
-------
1. C
2. C XXXXKXXXXXXXXXKXXKXXHXXKXX SEGMNT
3. C
4 C
5'. C SUBROUTINE SEGMNT ASSIGNS THICKNESS, AND SOIL
6. C CHARACTERTICS TO THE SEGMENTS.
7. C
8. SUBROUTINE SEGMNT
9.
10. COMMON/BLK2/PORO(9),FC(9),WP(9),CON(9),RCC9)
11.
12. COMMON/BLK4/LAYER(10),THICK(9),LAY
13. COMMON/BLK6/NSEG1,NSEG2,NSEG3,VDEPTH,RDEPTH
14. COMMON/BLK7/STHICK(16),UL(16),FCUL(16),WPUL(16),
15. 1 SWUL(16),RCUL(16)
16. COr,nON/BLK9/COHUL(16)
17. DIMENSION RCULSC16)
1 O f\
19! C INITIALIZES THE NUMBER OF SEGMENTS IN EACH SUBPROFILE AND
20. C SETS THE EVAPORATIVE DEPTH EQUAL TO TWICE THE ROOT ZONE
21. C DEPTH.
22. C
23. NSEG1=0
24. NSEG2=0
25. NSEG3=0
H- 26. EDEPTH = RDEPTH
§ 27.
28. THICK1=0.0
29.
30. DO 5 J=l,16
31. 5 STHICK(J)=0.0
32. C
33. C SETS THE EVAPOTATIVE DEPTH EQUAL TO THE DEPTH TO THE
34. C THE TOP OF THE TOP BARRIER LAYER IF LESS THAN TWICE THE
35. C ROOT ZONE DEPTH.
36. C
37. DO 10 J=1,LAY
38. LAY1=J
39. IF(J.EQ.l) GO TO 15
40. IFCLAYER(J).EQ.3.0R.LAYER(J).EQ.5) GO TO 20
41. 15 THICK1=THICK1+THICK(J)
42. IF(THICK1.GT.EDEPTH)N5EG1=N5EG1+1
43. 10 CONTINUE
44. C
45. C SETS THE NUMBER OF SEGMENTS IN THE TOP SUBPROFILE EQUAL
46. C TO 7 PLUS THE NUMBER OF LAYERS BELOW THE EVAPORATIVE
47. C DEPTH AND ABOVE THE BOTTOM OF THE TOP BARRIER LAYER.
48. C
49.
-------
50. NSEG1=NSEG1-1
51. 20 NSEGl=HSEGl+8
52. VDEPTH=1HICK1
53. IF(VDEPTH.GT.EDEPTH)VDEPTH=EDEPTH
54. IF(LAYl.GE.LAY) GO TO 60
55. LAY2=LAY1+1
56. C
57. C SETS THE NUMBER OF SEGMNTS IN THE SECOND 5UBPROFILE
53. C EQUAL TO THE NUMBER OF LAYERS BETWEEN THF BOTTOM OF THE
59. C EVAPOTATIVE DEPTH AND ABOVE THE BOTTOM OF THE BARRIER LAYER.
60. C
61. DO 30 J=LAY2,LAY
62. NSEG2=NSEG2+1
63. IF(LAYER(J).EQ.3.0R.LAYER(J).EQ.5) GO TO 40
64. 30 CONTINUE
65.
66. 40 LAYS=LAY1+NSEG2
67. IFCLAYS.GE.LAY) GO TO 60
68. LAY3=LAYS+1
69. C
70. C SETS THE NUMBER OF SEGMENTS IN THE THRID SUBPROFILE EQUAL
71. C TO THE NUMBER OF LAYERS REMAINING.
72. C
73. DO 50 J=LAY3,LAY
74. 50 NSEG3=NSEG3+1
75. C
76. C ASSIGNS THE THICHNESS OF THE TOP SEVEN SEGMENTS.
77. C
78. 60 STHICK(1)=VDEPTH/36.0
79. STHICK(2)=5.0*VDEPTH/36.0
80. DO 70 J=3,7
81. 70 STHICK(J)=VDEPTH/6.0
82.
83. IFCNSEG1.EQ.7) GO TO 110
84. THICKl^O.O
o c f*
86.' C ASSIGNS THE THICHNESS OF THE REMAINING SEGMENTS IN THE
87. C TOP SUBPROFILE.
88. C
89. DO 80 J=1,LAY1
90. THICK1=THICK1+THICK(J)
91. IF(THICKl.LE.VDEPTH) GO TO 80
92. STHICK(8)=THICK1-VDEPTH
93. LAY1M1=J
94. IF(J.EQ.LAYl) GO TO 110
95. GO TO 90
96. 80 CONTINUE
97. STHICK(8)=THICK(LAY1)
98. GO TO 110
99. 90 IF(NSEG1.LT.9)GO TO 110
-------
100. DO 100 J=9,NSEG1
101. LAY1M1=LAY1M1+1
102. 100 STHICK(J)=THICK(LAY1M1)
103. 110 IF(LAYl.GE.LAY) GO TO 141
104. NSEG23=NSEG1+1
105. MSEG2E=NSEG1+NSEG2
106. LAY2B=LAY1
107. C
IDS. C ASSIGNS THE THICHHESS OF THE SEGKNTS IN THE SECOND SUBPRO-
109. C PROFILE.
110. C
111. DO 120 J=NSEG2B, NSEG2E
112. LAY2B=LAY2B+1
113. 120 STHICKCJ)=THICK(LAY2B>
114.
115. LAY3B=LAY1+NSEG2
116. IF(LAY3B.GE.LAY) GO TO 140
117. NSEG3B=NSEG2E+1
118. N5EG3E=MSEG2E+MSEG3
119. C
120. C ASSIGNS THICKNESS TO THE SEGMHTS OF THE THRID SUBPROFILE.
121. C
122. DO 130 J=NSEG3B,NSEG3E
123. LAY3B=IAY3B+1
124. 130 STHICK(J)=THICK(LAY3B)
125.
oo 126. 140 DEPSEG = 0.0
M 127. DEPTHS=0.0
128. DEPTHL=THICK(1)
129.
130. K=l
131. NSEG3E=NSEG1+NSEG2+NSEG3
132. C
133. C COMPUTES THE EFFECTIVE SOU. CHARACTERISTICS OF THE SEGMENTS,
134. C AVERAGED BY THICKNESS OF A 'SEGMENT IN MULTIPLE LAYERS.
135. C
136! DO 170 J=1,NSEG3E
137. UL(J)=0.0
138. UPUL(J)=0.0
139. FCUL(J)=0.0
140. COMUL(J)=0.0
141. RCULS(J)=0.0
142. DEPTHS=DEPTHS+STHICK(J)
143. 150 IF(DEPTHS.LE.DEPTHL) GO TO 160
144. DSEG=DEPTHL-DEPSEG
145. DEPSEG=DEPTHL
146. UL(J)=PORO(K)>;DSEG + UL(J)
147. FCUL(J)=FC(K)*DSEG+FCUL
-------
150. RCULS
151. K=K+1
152. DEPTHL=DEPTHL+THICK(K)
153. GO TO 150
154. 160 DSEG=DEPTHS-DEPSEG
155. UL(J)=PORO(K)*DSEG-t-UL(J)
156. FCUL(J)=FCCK)*DSEG+FCUL(J1
157. WPUL(J)=WP(K)*DSEG-H-1PUL(J>
158. CONUL(J)=CON(K)XDSEG+CONUL(J)
159. RCULS(J)=RC(K)XDSEG+RCULS''.J)
160. DEPSEG=DEPTHS
161. 170 CONTINUE
162. C
163. C CONVERTS THE HYDRAULIC CONDUCTIVITY FROM IN/HR TO IN/DAY.
164. C
165. DO 175 J=1,NSEG3E
166. 175 RCUL(J)=(RCULSCJ)*24.)/STHICK(J)
167. C
168. C INITIALIZES THE SOIL WATER CONTENT OF THE SEGMENTS.
169. C
170. DO 190 J=1,NSEG3E
171. IFCJ.GT.7) GO TO 180
172. SUUL(J)=(FCUL(J)+WPUL(J))/2.0
173. GO TO 190
174. 180 SUUL(J)=FCUL(J)
H- 175. 190 CONTINUE
00 176.
W 177. RETURN
178. END
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxxx SIMULA
3. C
4. C
5. C SUBROUTINE SIMULA DIRECTS THE RUNNING OF THE SIMULATION
6. C AND PRINTING OF OUTPUT, AND PERFORMS THE ACCOUNTING ON THE
7. C RESULTS.
o p
9'. SUBROUTINE SIMULA
10.
11. COnMON/BLKl/KCDATA,KSDATA,KFLAG,IFLAG,KVEG,
12. 1 101,102,103,104, 105
13. COMriON/ELK4/LAYER(10),THICK(9),LAY
14.
15. COMMON/BLK5/TAREA,LINER,FLEAK,FRUNOF,CN2
16.
17. COMMON/BLK6/NSEG1,NSEG2,NSEG3,VDEPTH,RDEPTH
13.
19. COMMON/BLK7/STHICKC16),UL(16),FCUL(16),WPUL(16),
20. 1 SHUL(16),RCUL(16)
21.
22. COKMON/BLK8/PRE(370),TMPF(366),RAD(366),DLAI(367),GR,XLAI1
23.
2,
29. 2 PREM(2^0),ETM(2^0)
30.
31. COMMON/BLK13/PRC1AC20),PRC2A(20),PRC3A(20),DRN1A(20),
32. 1 DRN2A(20),DRN3A(20),RUMA(20),PREA(20),ETA(20),
33. 2 JYEAR(20),BAL(20),OSU'ULE,PSWULE
3<+.
35. COMMON/BLK1<^/PPRC1,PPRC2,PPRC3,PDRN1,PDRN2,PDRN3,PRUN,
36. 1 PPRE,PSM,DSW,PHED1,PHED2,PHED3,PSNO
37.
38.
39. COMMON/BLK15/PRC1,PRC2,PRC3,DRN1,DRN2,DRN3,
-------
50. REWIND 4
51.
52. DO 20 1=1,20
53. READ(4,10,END=30)
5$. 10 FORMAT(36(/))
55. KKOUNT=I
56. 20 CONTINUE
57. C
58. C LMYR IS THE NUNBER OF YEARS OF SIMULATION.
59. C
60. 30 WRITE(6,40) KKOUNT
61. REWIND 4
62. 40 FORMATC1H /5H11.1 ,37HHOl
-------
100. REWIND 16
101. C READS SOIL CHARACTERISTICS AND DESIGN INFORMATION.
102. C
103. CALL READSD(KVEG,ISAND)
104. C
105. C ASSIGNS THICKNESSES AND SOIL CHARACTERISTICS TO SEGMENTS.
106. C
107. CALL SEGMNT
108. C
109. C COMPUTES MAXIMUM STORAGE RETENTION PARMETER.
110. C
111. C2=CN2*CN2
112. C3=CN2*C2
113. CN1= -16.911 + 1.3481*CN2 - 0.013793XC2 +
114. 1 0.00011772XC3
115. SMX=(1000./CN1>-10.0
116.
117. IMO=0
118. ULE=0.0
119. FCULE=0.0
120. UPULE=0.0
121. C
122. C COMPUTES SOIL CHARACTERISTICS OF THE EVAPORATIVE ZONE.
123. C
124. DO 60 J=l,7
_ 125. ULE=ULE+UL(J)
oo 126. FCULE = FCULE+FCULU)
=* 127. UPULE=t>!PULE+WPUL(J>
128. 60 CONTINUE
129. C
130. C CRITS IS THE LOWEST SOIL WATER CONTENT IN INCHES THAT
131. C PERMITS PLANT GROWTH.
132. C
133. CRITS=WPULE+0.1*CFCULE-WPULE)
134. C
135. C INITIALIZES ACCOUNTING VARIABLES.
136. C
137. CALL ETCOEF(WF,CONA,STAGE1,STHICK)
138.
139. DO 70 1=1,240
140. PRC1M(I)=0.0
141. PRC2M(I)=0.0
142. PRC3t1(I)=0.0
143. DRN1M(I)=0.0
144. DRN2M(I)=0.0
145. DRH3M(I)=0.0
146. RUKMd^O.O
147. PREM(I)=0.0
148. ETM(I)=0.0
149. 70 CONTINUE
-------
150.
151. DO 80 1=1,20
152. PRC1A(I)=0.0
153. PRC2A(I)=0.0
154. PRC3ACI)=0.0
155. DRN1A(I)=0.0
156. DRN2A(I)=0.0
157. DRN3A(I)=0.0
158. RUNA(I)=0.0
159. PREA(I)=0.0
160. ETA(I)=0.0
161. BAL(I)=0.0
162. 80 CONTINUE
163.
164. PPRC1=0.0
165. PPRC2=0.0
166. PPRC3=0.0
167. PDRN1=0.0
168. FDRN2=0.0
169. PDRN3=0.0
170. PRUN=0.0
171. PPRE=0.0
172. P5ND=0.0
173. PHED1=0.0
174. PHED2=0.0
_ 175. PHED3 = 0.0
o° 176.
"-1 177. SWULE = 0.0
178. DO 90 J=l,7
179. SWULE = SWULE +SWULCJ)
ISO. 90 CONTINUE
181. 05WULE=0.0
1S2. NSEG=NSEG1+NSEG2+N5EG3
183. PStJ = SUULE/VDEPTH
18$. DSW = SUULE/VDEPTH
185. DO 100 J=1,NSEG
186. OSWULE=OSWULE+SWUL(J)
187. 100 CONTINUE
188.
189. YSUUL1=0.0
190. DO 102 J=1,NSEG1
191. YSWUL1=YSWULH-SUUL(J)
192. 102 CONTINUE
193. IFOISEG2.EQ.O) GO TO 109
195. NSEG2E=NSEG1+NSEG2
196. YSMUL2=0.0
197. DO 104 J=NSEG2B,NSEG2E
198. YSWUL2=YSWUL2+SMUL(J)
199. 104 CONTINUE
-------
200. IFCNSEG3.EQ.O) GO TO 109
201. NSEG3B=MSEG2E-H
202. NSEG3E=NSEG2E+NSEG3
203. YSUUL3=0.0
204. DO 106 J=NSEG3B,NSEG3E
205. YSWUL3=YSUUL3+SWUL(J>
206. 106 CONTINUE
207. 109 CONTINUE
208. DO 110 J=l,16
209. BALT(J)=0.0
210. BALYU) = 0.0
211. ET(J)=0.0
212. 110 CONTINUE
213.
214. ISET=0
215. JSET=0
216. KSET=0
217. LSET=0
218. MSET=0
219. SNO=0.0
220. LFLAG1=0
221. LFLAG2=0
222. LFLAG3=0
223. YSHO=0.0
224. DRN1=0.0
225. DRN2=0.0
oo 226. DRN3 = 0.0
00 227. OLDSHO = 0.0
228. ES1T=0.0
229. T=0.0
230. ADDRUN=0.0
231. EXtlAT2 = 0.0
232. EXWAT1=0.0
233. QDRN3=0.0
234. QDRN2=0.0
235. QDRN1=0.0
236. QPRCY3=0.0
237. QPRCY2=0.0
238. QPRCY1=0.0
239. QLATY3=0.0
240. QLATY2=0.0
241. QLATY1=0.0
242.
243. C
244. C PRINTS SOIL CHARACTERISTICS AND DESIGN INFORMATION.
245. C
246. IFCI01.EQ.O.AND.I03.EQ.O.AND.I05.EQ.O)
247. 1 CALL OUTSD(KVEG,CONA,ULE,SWULE,RDEPTH,ISAND)
248. C
249. C SETS CONTROLS FOR PRINTING OUTPUT.
-------
00
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277 .
278.
279.
230.
281.
282.
283.
2S4.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
120
C
C
C
C
C
C
C
C
C
CALL CNTRLD.(IUNIT,IUNITT,IUNITB)
REWIND 4
REWIND 7
REWIND 13
REWIND 14
REWIND 15
START YEARLY LOOP FOR SIMULATION. IYR IS THE NUMBER
OF THE YEAR.
DO 190 IYR=1,LMYR
M01 = l
IMO IS THE NUMBER OF THE MONTH.
M01 IS THE NUMBER OF THE MONTH OF THE YEAR.
IMO=IMO-H
READS AND PRINTS CLIMATOLOGIC DATA FOR YEAR OF SIMULATION
CALL READCD(NYEAR,ND,ISET,JSET,KSET,LSET,MSET,NT)
JYEAR(IYR)=NYEAR
XLAI=XLAI1
IF(IYR.GT.l.AND.MSET.GT.O) GO TO 120
COMPUTES DAILY POTENTIAL EVAPOTRANSPIRATION VALUES FOR
YEAR OF SIMULATION.
CALL POTET(ETO)
START DAILY LOOP FOR SIMULATION.
IDA IS THE DAY OF THE YEAR OF SIMULATION.
DO 160 IDA=1,ND
COMPUTES THE MONTH OF YEAR FOR THE DAY OF SIMULATION,
COMPARES IT WITH YESTERDAY'S MONTH, M01 AND INCREMENTS
IMO IF DIFFERENT.
MO-MONTH(IDA,NT)
IF(MO.HE.MOl) IMO=IMO+1
M01=MO
COMPUTES SNOWFALL AND SNOWMELT AND ADJUSTS RAIN
ACCORDINGLY.
A
MO
-------
300. CALL SNOU(IDA,SNQ,RAIN,DSNO,IT,ADDRUN)
301.
302. IF(SNO.GT.PSNO)PSNO=SNO
303. C
304. C NSTAR INDICATES FREEZING TEMPERATURES.
305. C
306. NSTAR=ISTAR(IT)
307. C
303. C COMPUTES RUNOFF.
309. C
310. CALL RUNOFFCUF,RAIN,RUN,SMX)
311.
312.
313. IF(SWULE.LT.CRITS.AND.DLAKIDA).GT.O.O) GO TO 130
314. C
315. C COMPUTES DAILY LEAF AREA INDEX.
316. C
317. XLAI = XLAI + DLAKIDA)
318. IF(XLAI.LT.O.O) XLAI=0.0
319. C
320. C COMPUTES SURFACE AND SOIL EVAPORATION AND POTENTIAL PLAHT
321. C TRANSPIRATION.
322. C
323. 130 CALL EVAPOTCSWULE,ET,PINF,SNO,T,ES1T,TET,ESS,WF,EP,ES)
324. C
325. C COMPUTES PLANT TRANSPIRATION WHEN SOIL WATER CONTENT LIMITS
326. C PLANT TRANSPIRATION AND DISTRIBUTES EVAPOTRANSPIRATION
327. C AMONG TOP SEGMENTS.
328. C
329. CALL ETCHK(ET,ETT,ESS,EP,ES,WF,BALT)
330. ITER=4
331. IF(LFLAGl.GT.O) GO TO 133
332.
333. NSEG1B=1
334. NSEG1E=NSEG1
335. NSEG1D=NSEG1E
336. LAY1B=1
337. LAY1E=LAY - NSEG2 - NSEG3
338. IF(LAYER(LAY1E).EQ.5.0R.LAYER(LAY1E).EQ.3)HSEG1D=NSEG1E-1
339. IF(LAYER(LAY1E).EQ.5.0R.LAYER(LAYIE).EQ.3)
340. 1 YSUUL1=YSWUL1-SUUL(NSEG1E)
341. LFLAG1=1
342. C
343. C COMPUTES LATERAL AND VERTICAL WATER ROUTING IN THE TOP
344. C SUBPROFILE.
345. C
346. 133 CALL DRAINCPINF,ITER,DRN3,PRC3,ET,NSEG1B,
347. 1 NSEG1E,LAY1B,LAY1E,BALY,HED3,FLEAK,ADDRUN,
348. 2 QDRN3,BALT,QPRCY3,QLATY3,ISAND)
349. C
-------
350. C ACCOUNTING IS PERFORMED,
351. C
352. IFCHED3.GT.PHED3) PHED3=HED3
353.
35-+. SWULE = 0.0
355. DO 140 J = l,7
356. SUULE = SHULE+SUULU)
357. 140 CONTINUE
353. Sll = SUULE/VDEPTH
359. IF(SU.LT.DSH) DSU=5H
360. IF(SW.GT.PSIJ) PSU=SW
361. C
362. C EXCESS WATER ADDED TO THE TOP SEGMENT IS DIVERTED TO RUNOFF.
363. C
364. RUN=RUN+ADDRUH*FRUNOF
365. C
366. C COMPUTES SOIL WATER CONTEUT IN THE TOP SUBPROFILE.
367. C
363. ADDRUN=ADDRUN*(1.0-FRUNOF)
369. SUULE1=ADDRUH
370. DO 141 J=1,NSEG1D
371. SWULE1 = SWULE1+SI.'ULCJ)
372. 141 CONTINUE
373.
374. C
375. C COMPUTES DAILY CHANGE IN HATER STORAGE, OUTFLOW
376. C AND BALANCE FOR THE TOP SUBPROFILE.
377. C
378. DST01 = SLJULE1-YSUUL1 + SNO-YSNO
379. DOUT1=RUN+ETT+DRN3+PRC3
380. DBAL1=PRE(IDA)-DST01-DOUT1
381.
•TOO f»
383! C IF BALANCE IS TOO LARGE, OUTFLOW IS LARGE ENOUGH AND
384. C INCREASE IN STORAGE IS LESS THAN THE PRECIPITATION,
335. C THE OUTFLOWS ARE CORRECTED.
386. C
387. IF(ABS(DBAL1).LT.0.00001) GO TO 144
388. IF(ABS(DOUT1).LT.0.00001) GO TO 142
389.
390. IFC(PRECIDA)-DSTOl) .LT.0.0) GO TO 142
391. RATI01=(PRE(IDA)-DST01)/DOUT1
392. RUN=RUH*RATI01
393. ETT=ETT*RATI01
394. DRN3=DRU3*RATI01
395. PRC3=PRC3*RATI01
396. GO TO 144
397. C
398. C THE CHANGE IN SOIL WATER STORAGE IS CORRECTED.
399. C
-------
400. 142 XSU1=SWULE1-ADDRUN
401. SW'JLE1=ADDRUN
402. DO 143 J=1,NSEG1D
403. SIJUL(J)=SI-JUL(J)-HDBAL1XSUULCJ)/XSM1)
404. SUULE1=SUULE1+SWUL(J)
405. 143 CONTINUE
406.
407.
408. C
409. C INITIALIZE VARIABLES FOR NEXT TIME PERIOD.
410. C
411. 144 YSNO=SNO
412. YSMUL1=SWULE1
413.
414. C
415. C PERFORM ACCOUNTING OF MONTHLY AND ANNUAL TOTALS AND
416. C PEAK VALUES FOR THE TOP SUBPROFILE.
417. C
418. RUNM(IMO)=RUNM(inO)+RUN
419. RUNA(IYR)=RUNA(IYR)+RUH
420. IF(RUN.GT.PRUN) PRUH=RUN
421.
422. ETM(IMO)=ETMCIMOUETT
423. ETA(IYR)=-ETA(IYR) + ETT
424.
425. PREM(iriO)=PREM(IMO)+PRE(IDA)
426. PREA(IYR)=PREA(IYR3+PRE(J.DA)
427. IF(PRECIDA).GT.PPRE) PPRE=PRE(IDA)
428.
429. PRC3M(IMO)=PRC3M(IMOHPRC3
430. PRC3A(IYR)=PRC3A
-------
450. IF(LAYER(LAY2E).EQ.5.0R.LAYER(LAY2E).EQ.3)
451. 1 YSUUL2=YSWUL2-SWUL(NSEG2E)
452. LFLAG2=1
453.
454. C
455. C SETS INFOLU EQUAL TO PERCOLATION FROM TOP SUBPROFILE.
456. C
457. 154 FIN2=PRC3
458.
459. C
460. C COMPUTES LATERAL AND VERTICAL WATER ROUTING
461. C IN THE SECOND SUBPROFILE FROM THE TOP.
462. C
463. CALL DRAIN(FIN2,ITER,DRN2,PRC2,ET,NSEG2B,
464. 1 NSEG2E,LAY2B,LAY2E,BALY,HED2,FLEAK,EXWAT2,QDRN2,BALT,
465. 2 QPRCY2,QLATY2,ISAHD)
466.
467. IF(HED2.GT.PHED2) PHED2=HED2
468.
469. C
470. C COMPUTES SOIL WATER CONTENT IN THE
471. C SECOND SUBPROFILE FROM THE TOP.
472. C
473. SWULE2=0.0
474. DO 145 J=NSEG2B,NSEG2D
475. SWULE2=SUULE2+SWUL
-------
500. 146 XSU2=SWULE2
501. SWULE2=0.0
502. DO 147 J=NSEG2B,NSEG2D
503. SUULU)=SIJUL(J>-KD3AL2*SUUL(J)/XSW2)
504. SLJULE2=SUULE2 + SWUL(J>
505. 147 CONTINUE
506.
507. C
508. C INITIALIZES VARIABLES FOR THE NEXT TIME PERIOD.
509. C
510. 148 YSWUL2=SWULE2
511.
512.
513. C
514. C PERFORM ACCOUNTING OF MONTHLY AND ANNUAL TOTALS AND
515. C PEAK VALUES FOR THE SECOND SUBPROFILE FROM THE TOP.
516. C
517. PRC2M(IMO)=PRC2M(IKO)+PRC2
518. PRC2A(IYR)=PRC2A(IYR)+PRC2
519. IF(PRC2.GT.PPRC2) PPRC2=PRC2
520.
521. DRN2M(IMO)=DRN2M(IMO)+DRN2
522. DRN2A(IYR)=DRN2A(IYR)+DRU2
523. 1FCDRN2.GT.PDRH2) PDRN2=DRN2
524.
525. IFCNSEG3.LE.O) GO TO 150
526.
527. C
528. C CONTROLS SIMULATION OF THIRD SUBPROFILE FROM THE TOP.
529. C
530. ITER=1
531. IFCLFLAG3.GT.O) GO TO 156
532. NSEG3B=NSEG2E-U
533. NSEG3E=NSEG2E+NSEG3
534. HSEG3D=NSEG3E
535. LAY3B=LAY2E+1
536. LAY3E=LAY
537. IF(LAYER(LAY3E).EQ.5.0R.LAYER(LAY3E).EQ.3)NSEG3D=NSEG3E-1
538. IF(LAYER(LAY3E).EQ.5.0R.LAYER(LAY3E).E'3.3)
539. 1YSUUL3=YSWUL3-SWUL(NSEG3E)
540. LFLAG3=1
541.
542. C
543. C SETS INFLOW EQUAL TO PERCOLATION FROM
544. C SECOND SUBPROFILE FROM THE TOP.
545. C
546. 156 FIN1=PRC2
547.
548. C
549. C COMPUTES LATERAL AND VERTICAL WATER ROUTING IN
-------
550. C THE THIRD SUBPROFILE FROM THE TOP.
551. C
552. CALL DRAIN(FIN1,ITER,DRN1,PRC1,ET,NSEG3B,
553. 1 NSEG3E,LAY3B,LAY3E,BALY,HFED1,FLEAK,EXWAT1,QDRN1,BALT,
554. 2 QPRCY1,9LATY1,ISAND)
555.
556. IF(HEDl.GT.PHEDl) PHED1=HED1
557.
558. C
559. C COMPUTES SOIL WATER CONTENT IN THE THIRD
560. C SUBPROFILE FROM THE TOP.
561. C
562. SWULE3=0.0
563. DO 149 J=NSEG3B,NSEG3D
564. SU'ULE3 = SWULE3 + SWULU)
565. 149 CONTINUE
566.
567. C
568. C IF BALANCE IS TOO LARGE, OUTFLOW IS LARGE ENOUGH AND
569. C INCREASE IN STORAGE IS LESS THAN THE PRECIPITATION,
570. C THE OUTFLOWS ARE CORRECTED.
571. C
572. DST03=SWULE3-YSWUL3
573. DOUT3=DRN1+PRC1
574. DBAL3=PRC2-DST03-DOUT3
575.
576. IFCABS(DBAL3).LT.0.00001) GO TO 153
577. IF(ABS(DOUT3).LT.0.00001) GO TO 151
578. IF((PRC2-DST03).LT.O.O) GO TO 151
579. RATI03=(PRC2-DST03)/DOUT3
5SO. DRN1=DRN1XRATI03
581.
582. PRC1=PRC1*RATI03
583. GO TO 153
584. C
585. C THE CHANGE IN SOIL WATER STORAGE IS CORRECTED.
586. C
587. 151 XSW3=SWULE3
588. SWULE3=0.0
589. DO 152 J=NSEG3B,NSEG3D
590. SWUL(J)=SUUL(J)-KDBAL3XSUUL(J)/XSU3>
591. SWULE3=Sl-JULE3 + SWUL(J)
592. 152 CONTINUE
593.
594. C
595. C INITIALIZES VARIABLES FOR NEXT TIME PERIOD.
596. C
597. 153 YSWUL3=SWULE3
598.
599.
-------
600.
601. C
602. C PERFORM ACCOUNTING OF MONTHLY AND ANNUAL TOTALS AND
603. C PEAK VALUES FOR THE THIRD SUBPROFILE FROM THE TOP.
604. C
605. PRClM(IMO)=PRClM(IM(mPRCl
606. PRC1A(IYR)=PRC1A(IYRHPRC1
607. IF(PRC1.GT.PPRC1)PPRC1=PRC1
608.
609. DRN1M(IMO)=DRN1M(IMO)+DRN1
610. DRNlACIYR)=DRNlA(IYR)-tDRNl
611. IF(DRN1.GT.PDRN1)PDRN1=DRN1
612.
613. C
614. C CALLS SUBROUTINE OUTDAY IF DAILY OUTPUT IS DESIRED.
615. C
616. 150 IFCIDAILY.EQ.DCAIL OUTDAYCIUNIT,IUNITT,IUNITB,RUN,IDA,
617. 1 JYEAR,PRE)
618. C
619. C END OF DAILY LOOP.
620. C
621.
622. 160 CONTINUE
623. PSWULE=ADDRUN
624.
625. C
626. C COMPUTES TOTAL SOIL WATER STORAGE.
627. C
628. DO 170 J=1,NSEG
629. PSWULE=PSWULE+SWUL(J)
630. 170 CONTINUE
631.
632. C
633. C COMPUTES YEARLY WATER BUDGET BALANCE CHECK.
634. C
635. BAL(IYR)= OSWULE-PSWULE+OLDSNO-SNO+PREACIYR)-RUNA(IYR)
636. 1 -PRC1A(IYR)-PRC2A(IYR)-PRC3A(IYR)-DRN1A(IYR)
637. 2 -DRN2A(IYR)-DRN3A(IYR)-ETA(IYR)
638.
639. IF(NSEG3.GT.O)BALCIYR)=BAL(IYR)+PRC2A(IYR)+PRC3ACIYR)
640.
641. IF(NSEG2.GT.O.AND.NSEG3.EQ.O)BAL(IYR)=BALCIYR)+
642. 1 PRC1A(IYR)+PRC3A(IYR)
643.
644. IF(NSEG2.EQ.O)BALCIYR)=BAL(IYR)+PRC1A(IYR)+PRC2A(IYR)
645.
646.
647. C
648. C CALLS SUBROUTINE OUTMO IF MONTHLY OUTPUT IS DESIRED.
649. C
-------
650. IFdMONTH.EQ.DCALL OUTMCK IMO, JYEAR, IYR,
651. 1 IUNIT,IUNITT)
652. C
653. C CALLS SUBROUTINE OUTYR TO PRINT ANNUAL TOTALS.
654. C
655. IF(I02.EQ.O.AND.I03.EQ.O)
656. 1 CALL OUTYR(IYR,IUNIT,IUNITT,SNO,OLDSNO)
657.
658. C
659. C INITIALIZES VARIABLES FOR THE NEXT YEAR.
660. C
661. OSWULE=PSUULE
662. OLDSNO=SNO
663.
66
-------
00
700.
701.
702.
703.
704.
705.
706.
707.
708.
709.
710.
711.
712.
713.
714.
715.
716.
717.
718.
719.
720.
721.
722.
723.
724.
725.
726.
727 .
728.
C
C
C
C
C
C
C
C
C
C
C
10
20
C
C
C
INTEGER CALC12),FLAG
CALC12) ARE THE JULIAN DATES OF THE LAST DAY
OF EACH MONTH OF A LEAP YEAR.
DATA CAL /31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366/
JTMP =JDAY
ADJUSTS JULIAN DATE FOR JULIAN DATES AFTER JANUARY.
IF(JDAY.GT.CALU)) JTMP=JDAY+FLAG
COMPARES ADJUSTED JULIAN DATE WITH ARRAY OF JULIAN DATES
FOR THE LAST DAY OF EACH MONTH TO DETERMINE MONTH.
DO 10 1=1,12
IFCJTMP.LE.CAL(I)) GO TO 20
CONTINUE
I =1
CONTINUE
MONTH =1
RETURNS NUMBER OF THE MONTH.
RETURN
END
-------
1. C
2. C xxxxxxxxxxxxxxxxxxxxxxx SITE xxxxxxxxxxxxxxxxxxxxxxxxx
3. C
4. C
5. C SUBROUTINE SITE READS DESIGN INFORMATION FROM THE USER.
6. C
7. SUBROUTINE SITECLAYER,LAY,KVEG,ISAND)
8. DIMENSION LAYERC10),KLM(74),VALUEC10),SLOPE(9),XLENG(9)
9. C
10. C INITIALIZES ARRAYS.
11. C
12. DO 5 J=l,9
13. SLOPE(J)=0.0
14. 5 XLENG(J)=0.0
15.
16. 20 FORMATC74A1)
17. C
18. C READS TOTAL SURFACE AREA.
19. C
20. WRITE(6,25)
21. 25 FORMATC1H /1H ,4H6.1 ,37HENTER THE TOTAL AREA OF THE SURFACE,
22. 1 15HIN SQUARE FEET.//)
23.
24. READ(10,20)(KLMCJ),J=1,74)
25. CALL SCANCNO,VALUE,74,KLM)
26. TAREA=VALUEC1)
27. C
28. C READS SLOPE AND DRAINAGE LENGTHS FOR THE LOWEST
29. C LATERAL DRAINAGE LAYER IN EACH SUBPROFILE.
30. C
31. DO 50 ILAY=1,LAY
32. ILAYP1=ILAY+1
33. IF(LAYER(ILAY).NE.2.0R.LAYER(ILAYP1).EQ.2) GO TO 50
34. WRITE(6,30)ILAY
35. 30 FORMATC1H /4l\\ 6.2 ENTER THE SLOPE AT THE BASE OF SOIL ,
36. 1 5HLAYER,I2,13H, IN PERCENT.//)
37.
38. READ(10,20)(KLM(J),J=1,74)
39. CALL SCANCNO,VALUE,74,KLM)
40. SLOPE(ILAY)=VALUE(1)
41.
42. WRITE(6,40)
43. 40 FORMATC1H /41H 6.3 ENTER THE MAXIMUM DRAINAGE DISTANCE ,
44. 1 15HALONG THE SLOPE/1X,26HTO THE COLLECTOR, IN FEET.//)
45.
46. READ(10,20)(KLMU),J = 1,74)
47. CALL SCANCNO,VALUE,74,KLM)
48. XLEHG(ILAY)=VALUE(1)
49.
-------
50. 50 CONTINUE
51. JCOUNT=12
52. WRITE(5,60)TAREA,JCOUNT
53. 60 FORMAT(F12.0,I7)
54. JCOUNT=13
55. WRITE(5,70)(LAYERU),J = 1,9),JCQUNT
56. 70 FORHATC10I7)
57. JCOUNT=14
53. MRITE(5,80HSIOPE(J),J = 1,9),JCOUNT
59. JCOUNT=15
60. WRITEC5,90)(XLENG(J),J=1,9),JCOUNT
61. 80 FORHAT(9F7.2,I7)
62. 90 FORMAT(9F7.1,I7>
63. WRITE(5,100)KVEG,ISAND
6^. 100 FORMATC2I3)
65. REWIND 5
66. RETURN
67. END
O
o
-------
1. C
2. C XXXXXXXXXXXXXXXXXXXXXXXXX SNOW XXXXXXXXXXXXXXXXXXXXXXXXX
3. C
4 C
5! C SUBROUTINE SNOW ADJUST THE RAINFALL FOR FREEZING
6. C TEMPERATURES, AND COMPUTES SNOW ACCUMULATION AND SNOUMELT.
7. C
8. SUBROUTINE SNOWCIDA,SNO,RAIN,DSNO,IT,ADDRUN)
9. COMMON/BLK8/PRE(370),TMPF(366),RAD(366),DLAI(367),GR,XLAI1
10.
11. IF(TMPF(IDA).GE.32.0) GO TO 10
12. C
13. C ADDS PRECIPITATION TO SNOW STORAGE MEN FREEZING AND
14. C SETS RAINFALL TO ZERO.
15. C
16. SNO=SNO+PRE(IDA)+ADDRUN
17. RAIN=0.0
18. DSNO=PRE(IDA)
19. IT=1
20. RETURN
21. C
22. C COMPUTES SNOUMELT, THEN SUBTRACTS IT FROM SNOW STORAGE
23. C AND ADDS IT TO RAINFALL.
24. C
25. 10 CONTINUE
26. XNELT=0.06X(TMPF(IDA)-32.0)
27. IF(XHELT.GT.SNO) XMELT=SHO
28. SNO=SNO-XMELT
29. RAIN=PRE(IDA)+XMELT+ADDRUN
30. DSNO=-XMELT
31. IT=2
32. RETURN
33. END
-------
1. C
2. C XXXXXXXXXXXXXXXXXXXXXXXXX SORTYR XXXXKXXXXXXXXXXXXXXX*XXXX
3. C
4. C
5. C SUBROUTINE SORTYR SORTS THE YEARS OF PRECIPITATION DATA
6. C INTO CHRONOLOGICAL ORDER.
7. C
8. SUBROUTINE SORTYR(KKOUNT)
9. DIMENSION IMYEARC20),RAINC20,37,10),JYEARC20)
10. IF(KKOUNT.LT.2)RETURN
11. REWIND 4
12. DO 30 I=1,KKOUNT
13. DO 20 J=l,37
14. C
15. C READS THE PRECIPITATION DATA FILE, TAPE 4.
16. C
17. READC4,10)IMYEAR(I),(RAIN(I,J,IO,K = l,l(n,ICOUNT
18. 10 FORMAT(I10,10F5.2,I10>
19. 20 CONTINUE
20. JYEAR(I)=IMYEAR(I)
21. 30 CONTINUE
22. REWIND 4
23. KK=KKOUNT-1
24. C
25. C SORTS THE YEARS; JYEAR IS SORTED.
i-o 26. C
° 27. DO 50 1=1,KK
28. LEAST=JYEAR(I)
29. 11=1+1
30. DO 40 J=II,KKOUNT
31. IFCLEAST.LT.JYEAR(J)) GO TO 40
32. LEAST=JYEAR(J)
33. JYEAR(J)=JYEAR(I)
34. JYEAR(I)=LEAST
35. 40 CONTINUE
36. 50 CONTINUE
37. REWIND 4
38 C
39.' C WRITES THE PRECIPITATION DATA IN CHRONOLOGICAL ORDER.
40. C
41. 60 DO 90 N=1,KKOUNT
42. DO 80 I=1,KKOUNT
43. IFCJYEARCN).NE.IMYEAR(I)) GO TO 80
44. DO 70 J=l,37
45. WRITE(4,10)JYEAR(N),CRAIN(I,J,IO,K=1,10),J
46. 70 CONTINUE
47. GO TO 90
48. 80 CONTINUE
49. 90 CONTINUE
-------
50. REWIND
51. RETURN
52. END
-------
Variable
APPENDIX B
PROGRAM VARIABLES
Subroutine/Common
Definition
A
AB
AC
ADDRUN
ADRN1A
ADRN1M(12)
ADRN2A
ADRN2M(12)
ADRN3A
ADRN3M(12)
AETA
COMPUT, DATFIT
POTET
RUNOFF
COMPUT, DATFIT
DRAIN, SIMULA,
SNOW
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
The coefficient of the cosine term for
computing the daily values of temperature
or solar radiation.
The slope of the vapor pressure curve.
The initial abstraction of precipitation,
in inches.
The annual average of the mean monthly
temperature or solar radiation values.
The excess infiltration which is added to
runoff, in inches.
The average annual lateral drainage from
the third subprofile from the top, in
inches.
The average monthly Lateral drainage val-
ues from the third subprofile from the
top, in inches.
The average annual lateral drainage from
the second subprofile from the top, in
inches.
The average monthly lateral drainage val-
ues from the second subprofile from the
top, in inches.
The average annual Lateral drainage from
the top subprofiLe, in inches.
The average monthly lateral drainage val-
ues from the top subprofile, in inches.
The average annual evapotranspiration, in
inches.
204
-------
Variable
AETM
AI
ALAI
ALB
AM
AN
AN
ANG
APRC1A
APRC1M(12)
APRC2A
APRC2M(12)
APRC3A
APRC3M(12)
APREA
APREM(12)
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
OUTAVG
COMPUT
EVAPOT
POTET
DATFIT
COMPUT
DATFIT
COMPUT
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
The average monthly evapotranspiration
values, in inches.
The midpoint of the month or day.
The daily effective leaf area index.
The albedo for solar radiation, set to
equal 0.23.
The number of iterations in an annual
period, 12 for monthly values.
The number of iterations in an annual
period, 365 or 366 for daily values.
The number of years in the period of the
harmonic function, set to be 1.0.
The argument of the sine and cosine terms
of the harmonic equation.
The average annual percolation from the
third subprofile from the top, in inches.
The average monthly percolation values
from the third subprofile from the top,
in inches.
The average annual percolation from the
second subprofile from the top, in
inches.
The average monthly percolation values
from the second subprofile from the top,
in inches.
The average annual percolation from the
top subprofile, in inches.
The average monthly percolation values
from the top subprofile, in inches.
The average annual precipitation, in
inches.
The average monthly precipitation values,
in inches.
205
-------
PROGRAM VARIABLES (Continued)
Variable
AREAG(13)
AREAR(13)
ARUNA
ARUNM(12)
B
BAL(20)
BALT(16)
BALY(16)
BDRN
BHED
BLK1
BLK2
BLK3
BLK4
Subroutine/Common
DCDATA
DCDATA
OUTAVG
OUTAVG
COMPUT, DATFIT
BLK13
AVROUT, DRAIN,
ETCHK, PROFIL,
SIMULA
AVROUT, DRAIN,
PROFIL, SIMULA
OUTDAY
OUTDAY
DCDATA, DSDATA,
MAIN, MCDATA,
MSDATA, MTRLYR,
READCD, SIMULA
OUTSD, READSD,
SEGMNT
DRAIN, LATFLO,
OUTSD, READSD
CNTRLD, DRAIN,
LATFLO, OUTSD,
READCD, READSD,
SEGMNT, SIMULA
Definition
The leaf areas of the default LAI for
excellent grass.
The leaf areas of the default LAI for
good row crops.
The average annual runoff, in inches.
The average monthly runoff values, in
inches.
The coefficient of the sine term for com-
puting the daily values of solar radia-
tion or temperature.
The annual water budget balance check, in
inches.
The change in water storage for a segment
today, in inches.
The change in water storage for a segment
yesterday, in inches.
The daily lateral drainage from the base
of the landfill, in inches.
The daily head on the barrier soil layer
at the base of the landfill, in inches.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
206
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
BLK5
BLK6
BLK7
BLK8
BLK9
BLK10
BLK11
BLK12
BLK13
BLK14
BLK15
BOT
BPRC
CAL(12)
OUTAVG, OUTPEK,
OUTSD, OUTYR,
READSD, RUNOFF,
SIMULA
CNTRLD, SEGMNT,
SIMULA
AVROUT, DRAIN,
ETCHK, HEAD,
LATFLO, LATKS,
PROFIL, RUNOFF,
SEGMNT, SIMULA
EVAPOT, POTET,
READCD, SIMULA,
SNOW
ETCOEF, SEGMNT
DLAIS, READCD
EVAPOT, SIMULA
OUTAVG, OUTMO,
SIMULA
OUTAVG, OUTYR,
SIMULA
OUTPEK, SIMULA
OUTDAY, SIMULA
CONVRG, DRAIN
OUTDAY
MONTH
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
A common block of variables to store and
pass information.
The lower limit of the iterative solution
in the convergence technique.
The daily percolation from the base of
the landfill, in inches.
The Julian date of the last day of each
month of a leap year.
207
-------
Variable
CDRN
CF
CHED
CN1
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
OUTDAY
LATFLO
OUTDAY
SIMULA
The daily lateral drainage from the cover
of the landfill, in inches.
The correction factor for the lateral
drainage equation.
The head on the barrier layer at the base
of the cover, in inches.
The SCS runoff curve number for the site
under AMC-I.
CN2
CON(9)
CONA
CONUL(16)
CORECT(7)
CPRC
GRITS
CYBAR
C2
BLK5, DSDATA,
MSDATA, OPEN
SDCHK
BLK2, DSDATA,
MSDATA, SDCHK
BLK11, ETCOEF,
OUTSD
ETCOEF, SEGMNT
DSDATA
OUTDAY
SIMULA
LATFLO
SIMULA
The SCS runoff curve number for the site
under AMC-II.
The soil evaporation (trapsmissivity)
coefficients, in mm/day ".
The effective soil evaporation (transmis-
sivityX coefficient for the landfill, in
/ i U • ,5
mm/day
The product of the segment thickness and
the evaporation coefficient which is used
to compute CONA.
Correction factors to adjust the
hydraulic conductivity of soil for dif-
ferent types of vegetation.
The daily percolation through the bottom
of the landfill cover, in inches.
The soil water content below which plant
growth stops, in inches.
The factor to convert the average thick-
ness of water profile to the thickness
of water profile at crest.
The square of the SCS runoff curve
number.
C3
D(12)
SIMULA
DATFIT
The cube of the SCS runoff curve number.
The mean monthly values of temperature or
solar radiation to be fitted to a curve.
208
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
DBAL1
DBAL2
DBAL3
DELAI
DEPSEG
DEPTHL
DEPTHS
DLAI(367)
DLDAY
DOUT1
DOUT2
DOUT3
DRIN(17)
DRN
DRNMAX
DRN1
SIMULA
SIMULA
SIMULA
DLAIS
SEGMNT
SEGMNT
SEGMNT
BLK8, DLAIS
DLAIS
SIMULA
SIMULA
SIMULA
AVROUT, DRAIN,
HEAD, PROFIL
DRAIN, LATFLO
AVROUT, DRAIN
BLK15
The daily water budget check for the top
subprofile, in inches.
The daily water budget check for the
second subprofile from the top, in
inches.
The daily water budget check for the
third subprofile from the top, in inches.
The daily rate of change in the leaf area
index.
Depth to the top of a segment, in inches.
Depth to the bottom of a layer, in
inches.
Depth to the bottom of a segment, in
inches.
The daily changes in leaf area index.
The difference in Julian dates between
two adjacent specified LAI values.
The sum of the daily outflow from the top
subprofile, in inches.
The sum of the daily outflow from the
second subprofile from the top, in
inches.
The sum of the daily outflow from the
third subprofile from the top, in inches.
The vertical drainage into a segment, in
inches.
The daily lateral drainage from a sub-
profile, in inches.
The maximum drainage from a segment, in
inches.
The daily lateral drainage from the third
subprofile from the top, in inches.
209
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
DRN2
DRN3
DRN1A(20)
DRN1M(240)
DRN2A(240)
DRN2M(240)
DRN3A(20)
DRN3M(240)
DSEG
DSNO
DST01
DST02
DST03
DSW
DT
BLK15
BLK15
BLK13
BLK12
BLK13
BLK12
BLK13
BLK12
SEGMNT
SIMULA, SNOW
SIMULA
SIMULA
SIMULA
BLK14
AVROUT, DRAIN,
HEAD
The daily lateral drainage from the
second subprofile from the top, in
inches.
The daily lateral drainage from the top
subprofile, in inches.
The annual lateral drainage values from
the third subprofile from the top, in
inches.
The monthly lateral drainage values from
the third subprofile from the top, in
inches.
The annual lateral drainage values from
the second subprofile from the top, in
inches.
The monthly lateral drainage values from
the second subprofile from the top, in
inches.
The annual lateral drainage values from
the top subprofile, in inches.
The monthly lateral drainage values from
the top subprofile, in inches.
The partial thickness of a segment, in
inches.
The daily change in snow, in inches.
The daily change in storage in the top
subprofile, in inches.
The daily change in storage from the
second subprofile, in inches.
The daily change in storage from the
third subprofile, in inches.
The minimum vegetative soil water content
during the simulation, in vol/vol.
The time increment for modelling lateral
drainage and percolation, in days.
210
-------
Variable
DXLAI
E(16)
EDEPTH
ELKS
EP
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
DLAIS
AVROUT, DRAIN,
HEAD, PROFIL
SEGMNT
DRAIN, LATFLO,
LATKS
ETCHK, EVAPOT,
SIMULA
The difference in leaf area between two
adjacent, specified LAI values.
The evapotranspiration values from the
segments for a time period, in inches.
The evaporative zone depth, in inches.
The effective lateral hydraulic conduc-
tivity, in inches/day.
The daily potential plant transpiration,
in inches.
EPS
ES
CONVRG, DRAIN
ETCHK, EVAPOT,
SIMULA
The convergence criteria tolerance.
The daily soil evaporation, in inches.
ESAT
ESO
HEAD
EVAPOT
The evapotranspiration from the saturated
zone, in inches.
The daily potential soil evaporation, in
inches.
ESS
ETCHK, EVAPOT,
SIMULA
The daily evaporation at the surface, in
inches.
EST
CONVRG, DRAIN
The estimate of the combined percolation
and Lateral drainage from a subprofile,
in inches.
ESI
EVAPOT
The daily stage one soil evaporation, in
inches.
ES1T
ES2
EVAPOT, SIMULA
EVAPOT
The accumulative sum of soil evaporation
less infiltration, in inches.
The daily stage two soil evaporation, in
inches.
ET(16)
ETA(20)
ETM(240)
DRAIN, ETCHK
EVAPOT, SIMULA
OUTAVG, OUTYR,
SIMULA
OUTAVG, OUTMO,
SIMULA'
The daily evapotranspiration values from
the segments, in inches.
The average evapotranspiration values, in
inches.
The monthly evapotranspiration values, in
inches.
211
-------
Variable
ETO(366)
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
ETT
EXCE
EXCESS
EXTRA
EXWAT1
EXWAT2
FADN1A
FADN2A
FADN3A
FAETA
FAPC1A
BLK11, POTET
BLK15, ETCHK
PROFIL
DRAIN, PROFIL
ETCHK
SIMULA
SIMULA
DRAIN
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
The daily potential evapotranspiration
values, in inches.
The daily total evapotranspiration, in
inches.
Quantity of water above saturation in the
segment directly below the segment under
consideration, in inches.
Quantity of water above saturation in the
top segment of a profile, in inches.
Evapotranspiration from a segment in
excess of the plant available water, in
inches.
Quantity of water above saturation in the
top segment of the second subprofile, in
inches.
Quantity of water above saturation in the
top segment of the third subprofile from
the top, in inches.
The infiltration during the time period,
in inches.
The average annual Lateral drainage from
the third subprofile from the top, in
percent of the average annual
precipitation.
The average annual lateral drainage from
the second subprofile from the top, in
percent of the average annual
precipitation.
The average annual lateral drainage from
the top subprofile, in percent of the
a \7 P T a tr f» annual nT*£»fl n-i 1-a 1- i nn
average annual precipitation.
The average annual evapotranspiration, i
percent of the average annual precipita-
tion.
in
The average annual percolation from the
third subprofile from the top, in percent
of the average annual precipitation.
212
-------
PROGRAM VARIABLES (Continued)
Variable
FAPC2A
FAPC3A
FAPREA
FARUNA
FBAL
FC(9)
FCOS
FCUL(16)
FCULE
FDRN1A
FDRN2A
FDRN3A
FETA
FIN
FIN1
Subroutine/Common
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTYR
BLK2, DSDATA,
MSDATA, SDCHK
DATFIT
BLK7
SIMULA
OUTYR
OUTYR
OUTYR
OUTYR
DRAIN
SIMULA
Definition
The average annual percolation from the
second subprofile from the top, in per-
cent of the average annual precipitation.
The average annual percolation from the
top subprofile, in percent of the average
annual precipitation.
The average annual precipitation, in per-
cent of the average annual precipitation.
The average annual runoff, in percent of
the average annual precipitation.
The water budget check, in percent of the
average annual precipitation.
The field capacities of the layers, in
vol/vol.
The cosine of the mid-monthly fractional
part of an annual period.
The field capacities of the segments, in
inches.
The field capacity of the evaporative
zone, in inches.
The annual Lateral drainage from the
third subprofile from the top, in percent
of the annual precipitation.
The annual lateral drainage from the
second subprofile from the top, in per-
cent of the annual precipitation.
The annual Lateral drainage from the top
subprofile, in percent of the annual
precipitation.
The annual evapotranspiration, in percent
of the annual precipitation.
The daiLy infil.tration, in inches.
The daily percolation into the third sub-
profile from the top, in inches.
2L3
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
FIN2
FLAG
FLEAK
FPRC1A
FPRC2A
FPRC3A
FPREA
FRUNA
FRUNOF
FSIN
GR
SIMULA
LEAP, MONTH
BLK5, DRAIN,
DSDATA, LATFLO,
MSDATA, SDCHK
OUTYR
OUTYR
OUTYR
OUTYR
OUTYR
BLK5, DSDATA,
MSDATA, OPEN,
SDCHK
DATFIT
POTET
BLK8, DCDATA,
MTRLYR
The daily percolation into the second
subprofiLe from the top, in inches.
Used to convert the number of day to 366
for a leap year, set to 0 for a leap year
and to 1 for other years.
The liner leakage fraction.
The annual percolation from the third
subprofile from the top, in percent of
the annual precipitation.
The annual percolation from the second
subprofile from the top, in percent of
the annual precipitation.
The annual percolation from the top sub-
profile, in percent of the annual precip-
itation.
The annual precipitation, in percent of
the annual precipitation.
The annual, runoff, in percent of the
annual precipitation.
The fraction of potential runoff which
runs off an open waste site.
The sine of the mid-monthly fractional
part of an annual period.
The psychrometric constant, set to equal
0.68.
The winter cover factor.
GRVWAT
GW
H
HEAD
DSDATA
LATKS
The gravity water in the subprofile, in
inches.
The gravity water of a layer, in vol/vol.
The head above a segment, in inches.
214
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
H
HED
HED1
HED2
HED 3
POTET
DRAIN
BLKL5
BLK15
BLK15
ANSWER, CNTRLD,
COMPUT, DATFIT,
DCDATA, DLAIS,
DSDATA, MONTH,
MCDATA, MSDATA,
MTRLYR, OUTAVG,
OUTSD, POTET,
PRECHK, READCD,
READSD, RUNOFF,
SCAN, SDCHK,
SIMULA, SORTYR
The net solar radiation, langleys.
The daily head on the base of the drain-
age layer, in inches.
The daily head on the base of the third
subprofile from the top, in inches.
The daily head on the base of the second
subprofile from the top, in inches.
The daily head on the base of the top
subprofile, in inches.
Used as a counter.
IADD
MCDATA
A control variable to show whether addi-
tional years of precipitation data were
entered.
LANS
I BAR
ICITY(18)
ANSWER,
DSDATA,
MCDATA,
MTRLYR,
SIMULA,
DCDATA,
MAIN,
MSDATA,
PRECHK,
SDCHK
AVROUT, DRAIN
DCDATA
Set equal to 0 for an input of yes and to
1 for an input of no.
A control variable to indicate whether a
barrier layer is used in the subprofile.
Used to read and write the default cities
and states from a data file of 37 lines
with 18 sets of four alphanumeric charac-
ters.
ICOMP
SCAN
Used to determine if an alphanumeric
character is a number.
ICOUNT
DCDATA, MCDATA,
SORTYR
The count of a line or record of precip-
itation data.
215
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
IDA
IDAILY
I DAY
I FLAG
II
IKOUNT
ILAY
ILAYM1
ILAYPI
IMO
IMONTH
IMYEAR(20)
INEW
INEW
101
102
EVAPOT, OUTDAY,
SIMULA, SNOW
SIMULA
DLAIS
BLK1
SORTYR
MCDATA
DSDATA, MSDATA,
SITE
DSDATA, MSDATA
SITE
SIMULA
SIMULA
PRECHK, SORTYR
MCDATA
SDCHK
BLK1
BLK1
Counter for the Julian date of a year of
simulation.
A control variable to indicate whether
daily output is desired.
A control variable used to compute daily
leaf area indices.
A control variable to indicate that the
vegetation type has been assigned.
Counter for sorting the years of data.
Control variable for replacing a year of
the existing precipitation data.
Counter for the number of layers.
The number of the layer above the layer
being considered.
The number of the Layer below the layer
being considered.
Counter for the month of the simulation
period.
A control variable to indicate whether
monthly output is desired.
The years of simulation.
A control variable to indicate whether a
completely new precipitation data set is
being entered.
A control variable to indicate whether
lines of soil data were changed.
A control variable that indicates whether
to print only summary of input and
output.
A control variable that indicates whether
to print only output and summary without
input.
216
-------
PROGRAM VARIABLES (Continued)
Variable
103
104
105
I SET
I SET
ISOIL
ISTAR(2)
IT
ITER
ITITLE(3,40)
IUNIT
Subroutine/Common
BLK1
BLK1
RLK1
Definition
IPLUS
IPO I NT
I SAND
SCAN
SCAN
AVRO
DSDATA, MSDATA,
OUTSD, READSD,
SDCHK, SIMULA,
SITE
PRECHK
READCD, SIMULA
DSDATA
SIMULA
SIMULA, SNOW
DRAIN, SIMULA
DSDATA, MSDATA,
READSD, SDCHK
CNTRLD, OUTAVG,
OUTDAY, OUTMO,
OUTPEK, OUTYR,
SIMULA
A control variable that indicates whether
to print only summary of output.
A control variable that indicates whether
to print only input and output without
summary.
A control variable that indicates whether
to print only output without input and
summary.
The character, + .
The character, . .
A control variable that indicates whether
the top Layer is an unvegetated sand or
gravel layer.
Counter for year of precipitation data to
be checked.
Control variable to indicate whether
multiple years of temperature data are
used.
Soil texture number for a layer.
Character array used to indicate freezing
temperatures.
Control variable to indicate whether the
temperature is below 32°F.
The number of iterations used to model
drainage per day.
The title consisting of 3 records with
40 characters per record for the name of
the site, the Location of the site, and
the date of the run.
The number of subprofiles used in the
design.
217
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
IUNITB
IUN1TT
IVEG
IWB
IWT
IYR
J
JCOUNT
JDAY
JDAY
JSET
JSET
JTMP
CNTRLD, OUTDAY,
SIMULA
CNTRLD, OUTAVG,
OUTDAY, OUTMO,
OUTPEK, OUTYR,
SIMULA
DCDATA
CNTRLD
CNTRLD
BLK15, OUTMO,
OUTYR
AVROUT, DCDATA,
DLAIS, DRAIN,
DSDATA, ETCHK,
ETCOEF, EVAPOT,
HEAD, LATKS,
MAIN, MCDATA,
MSDATA, MTRLYR,
OPEN, OUTAVG,
OUTMO, PRECHK,
PROFIL, READCD,
READSD, SDCHK,
SEGMNT, SIMULA,
SITE, SORTYR
DSDATA, MSDATA,
SDCHK, SITE
DLAIS
MONTH
PRECHK
READCD, SIMUTA
MONTH
The number of subprofiles below the cover
of the Landfill.
The number of subprofiles in the cover of
the landfill.
The default vegetation type.
The number of the bottom waste layer.
The number of the top waste layer.
The counter for the years of simulation.
A counter.
Line number for the soil and design data.
A control variable used to compute daily
leaf area indices.
The Julian date of a year of simulation.
Counter for line of precipitation data to
be corrected.
Control variable to indicate whether
multiple years of solar radiation data
are used.
The Julian date of a year of simulation.
218
-------
PROGRAM VARIABLES (Continued)
Variable
JYEAR(20)
KANS
KANS
KCDATA
KCITY
KFLAG
KK
KK
KKOUNT
KLM(74)
Subroutine/Common
BLK13, MCDATA,
MTRLYR, OUTDAY,
OUTMO, OUTPEK,
SORTYR
CNTRLD, DCDATA,
DLAIS, DRAIN,
HEAD, LATKS,
MCDATA, MTRLYR,
OUTAVG, OUTSD,
PRECHK, PROFIL,
READCD, SCAN,
SDCHK, SEGMNT,
SORTYR
ANSWER
MAIN
BLK1, OUTSD
DCDATA, OUTSD
BLK1
CONVRG, DRAIN,
PROFIL
SORTYR
MCDATA, MTRLYR,
PRECHK, SIMULA,
SORTYR
DCDATA, DSDATA,
MAIN, MCDATA,
MSDATA, MTRLYR,
OPEN, PRECHK,
SCAN, SDCHK,
SIMULA, SITE
Definition
The years of simulation.
A counter.
A variable read for user input of yes or
no.
A control variable to direct the program
to accept input, perform the simulation,
or stop.
Control variable to indicate whether
default climatologic data are used.
The first four characters of the name of
the selected default city.
A control variable to indicate that the
vegetation type has been assigned.
A counter of the iterations used for con-
vergence in the drainage routine.
A control variable for the number of
years of precipitation data to be sorted.
The number of years of precipitation
data.
A string of 74 alphanumeric characters
read to determine numeric input values
from the user.
219
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
KONT
KPT
KSDATA
KSET
KSOIL(9)
KSTATE
KVEG
Kl
K2
K3
K4
K5
K6
K7
K8
MCDATA
SCAN
BLK1
READCD, SIMULA
DSDATA
DCDATA, OIJTSD
BLK1, OUTSD,
READCD, READSD,
SDCHK, SIMULA
SITE
DCDATA, OUTSD
DCDATA, OUTSD
DCDATA, OUTSD
DCDATA, OUTSD
DCDATA, OUTSD
DCDATA, OUTSD
DCDATA, OUTSD
SCAN
DCDATA, OUTSD
DRAIN, MCDATA
Control variable for replacing years of
existing precipitation data.
Control to add the next digit of a number
to the previously read digits.
Control variable to indicate whether
default soil characteristics are used.
Control variable to indicate whether
multiple years of Leaf area indices are
used.
The soil texture numbers of the layers.
The first four characters of the name of
the selected default state entered.
The vegetation type for default data
options, equals 8 if manual options are
used.
The second four characters of the state
entered.
The third four characters of the state
entered.
The fourth four characters of the state
entered.
The fifth four characters of the state
entered.
The second four characters of the city
entered.
The third four characters of the city
entered.
The fourth four characters of the city
entered.
The fifth four characters of the city
entered.
A counter.
220
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
LAT
LAY
LAYB
LAYD
LAYE
LAYER(IO)
LAYS
LAY1
LAY IB
LAY IE
LAY1M1
LAY2
LAY2B
LAY2B
LAY2E
DRAIN
BLK4, DSDATA,
MSDATA, SDCHK,
SITE
DRAIN
DRAIN, LATFLO
DRAIN, LATFLO
BLK4, DSDATA,
MSDATA, SDCHK,
SITE
SEGMNT
SEGMNT
SIMULA
SIMULA
SEGMNT
SEGMNT
SEGMNT
SIMULA
SIMULA
A control variable to indicate whether a
lateral drainage layer is used in the
subprofile.
The number of layers in the landfill
profile.
The number of the top layer of the sub-
profile.
The number of the bottom lateral drainage
layer of a subprofile.
The number of the bottom layer of a sub-
profile.
The layer type descriptor numbers of the
layers in the landfill.
The number of the bottom layer of the
second subprofile from the top.
The number of layers in the top subpro-
file.
The number of the top layer of the top
subprofile.
The number of the bottom layer of the top
subprofile.
The number of the layer above the bottom
layer of the top subprofile.
The number of the top layer of the second
subprofile from the top.
Counter for the layers in the second sub-
profile from the top.
The number of the top layer of the second
subprofile from the top.
The number of the bottom layer of the
second subprofile from the top.
221
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
LAYS
LAY3B
LAY3B
LAY3E
LCITY
LDATEG(13)
LDATER(13)
LDAY13(13)
LEAST
LFLAGl
LFLAG2
LFLAG3
LINER
LISTA(2)
LISTC(99)
LISTS(Al)
LMYR
SEGMNT
SEGMNT
SIMULA
SIMULA
DCDATA
DCDATA
DCDATA
BLK10, DCDATA,
MTRLYR
SORTYR
SIMULA
SIMULA
SIMULA
BLK5, DSDATA,
MS DATA, SDCHK
ANSWER
DCDATA
DCDATA
OUTAVG, OUTPEK,
SIMULA
The number of the top layer of the third
subprofile from the top.
Counter for the layers in the third sub-
profile from the top.
The number of the top Layer of the third
subprofile from the top.
The number of the bottom layer of the
third subprofile from the top.
The four character name of the city read
from the default climatologic data file.
The Julian dates of the 13 default LAI
values for excellent grass.
The Julian dates of the 13 default LAI
values for good row crops.
The Julian dates of the 13 LAI values
used in the simulation.
The last year that was arranged in order.
A control variable for initializing the
top subprofile.
A control variable for initializing the
second subprofile from the top.
A control variable for initializing the
third subprofile from the top.
The number of synthetic liners used in
the design.
Keyword storage for the words yes and no.
Keyword storage for the first four char-
acters of all default cities.
Keyword storage for the first four char-
acters of all default states.
The number of years to be simulated.
222
-------
PROGRAM VARIABLES (Continued)
Variable
LSTATE
LYEAR
M
M
MFLAG
MONTHE
M01
MSET
Ml
M7
N
Subroutine/Common
READCD, SIMULA
Definition
nCDATA
DCDATA, MTRLYR,
REACD
DATFIT
MCDATA, MRTLYR,
OUTAVG, READCD
DCDATA
CONVRG, DRAIN
MINUS
MO
MONTHS
SCAN
SIMULA
OUTMO
OUTMO
SIMULA
READCD, SIMULA
MTRLYR
SCAN
COMPUT
Control variable to indicate whether mul-
tiple years of winter cover factors are
used.
The four character name of the state read
from the default climatologic data file.
Control variable to indicate whether mul-
tiple years of climatologic variables,
other than precipitation, are used.
The number of monthly divisions in an
annual period, 12.
A counter.
The number which corresponds to the
selected default city/state.
Control variable to indicate whether the
drainage satisfied the convergence
criteria.
The character, -.
The number of the month for the date.
The number of the first month of a year
of simulation.
The number of the last month of a year of
simulation.
The number of the month of a year for
yesterday.
Control variable to indicate whether
multiple years of temperature or solar
radiation values are used.
A counter.
The number of characters in the input
string or array, 74.
Number of divisions in an annual period,
12 for months, etc.
223
-------
Variable
N
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
READCD, SCAN
SORTYR
A counter.
NCOL
ND
SCAN
READCD, SIMULA
A counter.
The number of days in the year of simula-
tion.
NDA
NO
MOYEAR
NSEG
NSEGB
READCD
DCDATA, DSDATA,
MAIN, MCDATA,
MSUATA, MTRLYR,
OPEN PRECHK,
SCAN, SDCHK,
SIMULA, SITE
MCDATA
SIMULA
AVROUT, DRAIN,
HEAD, LATKS,
PROFIL
The number of days in a leap year.
The number of numeric values entered on a
line of record interpreted by subroutine
SCAN.
The year of the precipitation data to be
replaced.
The number of segments.
The number of the top segment of a sub-
profile.
NSEGE
NSEGL
DRAIN, LATFLO
AVROUT, DRAIN,
HEAD, LATKS,
PROFIL
The number of the bottom segment of a
subprofile.
The number of the lowest segment of a
subprofile, which is not a barrier layer.
NSEG1
NSEGIB
NSEGID
NSEGIE
NSEG2
BLK6
SIMULA
SIMULA
SIMULA
BLK6
The number of segments in the top sub-
profile.
The number of the top segment in the top
subprofile.
The number of the lowest segment of the top
subprofile, which is not a barrier layer.
The number of the bottom segment in the
top subprofile.
The number of segments in the second sub-
profile from the top.
224
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
NSEG2B
NSEG2D
NSEG2E
NSEG3
NSEG3B
NSEG3D
NSEG3E
NSTAR
NT
NUM(IO)
NYEAR
NYR
OLDSNO
OSWULE
PAW
PAWC
SEGMNT, SIMULA
SIMULA
SEGMNT, SIMULA
RLK6
SEGMNT, SIMULA
SIMULA
SEGMNT, SIMULA
BLK15
READCD, SIMULA
SCAN
DCDATA, MCDATA,
READCD, SIMULA
PRECHK
OUTYR, SIMULA
BLK13
DSDATA
ETCHK
The number of the top segment in the
second subprofile from the top.
The number of the lowest segment of the
second subprofile from the top, which is
not a barrier layer.
The number of the bottom segment in the
second subprofile from the top.
The number of segments in the third sub-
profile from the top.
The number of the top segment in the
third subprofile from the top.
The number of the lowest segment of the
third subprofile from the top, which is
not a barrier layer.
The number of the bottom segment in the
third subprofile from the top.
The indicator for freezing temperatures.
Control variable to indicate whether the
year is a leap year.
The ten numeric characters.
The year of simulation.
The year of precipitation data to be
checked.
The snow water at the start of the year
of simulation, in inches.
The soil water storage throughout the
landfill at the start of the year of sim-
ulation, in inches.
The plant available water capacity of a
layer, in vol/vol.
The plant available water capacity of the
evaporative zone, in inches.
225
-------
PROGRAM VARIABLES (Continued)
Variable
PAWCUL
PDRN1
PDRN2
PDRN3
PEFF
PHED1
PHED2
PHE03
PI
PINF
PORO(9)
PPRC1
PPRC2
PPRC3
PPRE
PRC
Subroutine/Common
ETCHK
BLK14
BLK14
BLK14
ETCHK
BLK14
BLK14
BLKL4
DATFIT
EVAPOT, SIMULA
BLK2, DSDATA,
MSDATA, SDCHK
BLK14
BLK14
BLK14
BLK14
DRAIN, LATFLO
Definition
The plant available water storage of a
segment, in inches.
The peak daily lateral drainage from the
third subprofile from the top, in inches.
The peak daily Lateral drainage from the
second subprofiLe from the top, in
inches.
The peak daily lateral drainage from the
top subprofile, in inches.
The plant transpiration efficiency for
limiting soil water conditions.
The peak daily head on bottom of the
third subprofile from the top, in inches.
The peak daily head on the bottom of the
second subprofile from the top, in
inches.
The peak daily head on the bottom of the
top subprofile, in inches.
A variable set to equal IT, 3.14159.
The daily infiltration, in inches.
The porosity of a layer, in vol/vol.
The peak daily percolation from the base
of the third subprofile from the top, in
inches.
The peak daily percolation from the base
of the second subprofile from the top, in
inches.
The peak daily percolation from the base
of the top subprofile, in inches.
The peak daily rainfall, in inches.
The daily percolation from a subprofile,
in inches.
226
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
PRC1
PRC1A(20)
PRCIM(240)
PRC2
PRC2A(20)
PRC2M(20)
PRC3
BLK15
BLK13
BLK12
BLK15
BLK13
BLK12
BLK15
PRC3A(20)
PRC3M(240)
PRE(370)
PREA(20)
PREC(IO)
PREM(240)
PRUN
PSNO
PSW
BLK13
BLK12
BLK8, OUTDAY
BLK13
DCDATA
BLK12
BLK14
BLK14
BLK14
The daily percolation from the third sub-
profile from the top, in inches.
The annual values of percolation from the
third subprofiLe from the top, in inches.
The monthly values of percolation from
the third subprofiLe from the top, in
inches.
The daily percolation from the second
subprofile from the top, in inches.
The annual values of percolation from the
second subprofile from the top, in
inches.
The monthly values of percolation from
the second subprofiie from the top, in
inches.
The daily percolation from the top sub-
profile, in inches.
The annual values of percolation from the
top subprofile, in inches.
The monthly values of percolation from
the top subprofile, in inches.
The daily precipitation values for a year
of simulation, in inches.
The annual precipitation values, in
inches.
The precipitation values on a line of
input data, in inches.
The monthly precipitation values, in
inches.
The peak daily runoff, in inches.
The peak daily snow water, in inches.
The peak soil water content in the evap-
orative zone, in vol/vol.
227
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
PSWULE
QDR
QDRN
QDRN1
BLK13
DRAIN
AVROUT, DRAIN
SIMULA
QDRN2
SIMULA
QDRN3
QLAT
QLATY
QLATYL
QLATY2
QLATY3
QOUT
SIMULA
DRAIN
AVROUT, DRAIN
SIMULA
SIMULA
SIMULA
LATFLO
The soil water storage throughout the
landfill at the end of a year of simula-
tion, in inches.
The sum of the computed lateral drainage
and percolation rates during a time
interval, in inches/day.
The sum of the estimated lateral drainage
and percolation rates during a time
interval, in inches/day.
The sum of the estimated Lateral drainage
and percolation rates for the third sub-
profile from the top for a time interval,
in inches/day.
The sum of the estimated lateral drainage
and percolation rates for the second sub-
profile from the top for a time interval,
in inches/day.
The sum of the estimated Lateral drainage
and percolation rates for the top subpro-
fiLe for a time interval, in inches/day.
The computed lateral drainage rate for a
time interval, in inches/day.
The estimated lateral drainage rate for a
time interval, in inches/day.
The lateral drainage from the third sub-
profile from the top for the previous
time period in inches/day.
The lateral drainage from the second sub-
profile from the top for the previous
time period, in inches/day.
The Lateral drainage from the top subpro-
file for the previous time period, in
inches/day.
The sum of the computed Lateral drainage
and percolation rates for a time inter-
val, in inches/day.
228
-------
Variable
QOUTMX
QPERC
0PERCY
QPRCY1
QPRCY2
OPRCY3
RAD(366)
RADI(12)
RAD1M(12)
RAIN
RAIN(20,37,10)
RATI01
RATI02
RATI03
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
DRAIN, HEAD,
LATFLO
DRAIN
AVROUT, DRAIN
SIMULA
SIMULA
SIMULA
BLK8
DCDATA, MTRLYR,
READCD
REACD
BLK11, RUNOFF
SNOW, SIMULA
MCDATA, PRECHK,
SORTYR
SIMULA
SIMULA
SIMULA
The maximum drainage rate for a time
interval, in inches/day.
The computed percolation rate for a time
interval, in inches/day.
The estimated percolation rate for a time
interval, in inches/day.
The percolation from the third subprofile
from the top for the previous time
period, in inches/day.
The percolation from the second subpro-
file from the top for the previous time
period, in inches/day.
The percolation from the top subprofile
for the previous time period, in inches/
day.
The daily solar radiation values for a
year of simulation, in lang leys.
The monthly solar radiation values for a
year of simulation, in lang leys.
The curve-fitted computed monthly solar
radiation values, in langleys.
The sum of the daily rainfall minus the
change in snow water storage, in inches.
The rainfall values for the simulation
period, in inches.
The ratio of the outflow to the computed
outflow used to balance the water budget
in the top subprofile.
The ratio of the outflow to the computed
outflow used to balance the water budget
in the second subprofile from the top.
The ratio of the outflow to the computed
outflow used to balance the water budget
in the third subprofiie from the top.
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
RC(9)
RCUL(16)
RCULS(16)
BLK2, DSDATA,
MSDATA, SDCHK
BLK7
SEGMNT
The hydraulic conductivities of the
layers, in inches/hr.
The hydraulic conductivities of the seg-
ments, in inches/day.
The product of the hydraulic conductivity
RDEPTH
RUN
RUNA(20)
RUNM(240)
RO
Rl
R2
SGN
SLOPE(9)
SMX
BLK6, DCDATA,
MTRLYR, OUTSD,
READCD
EVAPOT, OIITDAY,
RUNOFF, SIMULA
BLK13
BLK12
READCD
READCD
READCD
PROFIL
RUNOFF
SCAN
BLK3, SCDHK,
SITE
RUNOFF, SIMULA
and segment thickness to compute the
hydraulic conductivity of the segment, in
inches /hr.
The evaporative zone depth, in inches.
The daily runoff, in inches.
The annual runoff values, in inches.
The monthly runoff values, in inches.
The average annual solar radiation, in
Langleys.
The coefficient of the cosine term for
computing the daily solar radiation
values.
The coefficient of the sine term for com-
puting the daily solar radiation values.
The soil water content of a segment, in
inches.
The SCS soil water retention parameter,
in inches.
The multipliers for the sign of the data
being used.
The slopes at the interface between a
barrier soil layer and a lateral drainage
layer.
The maximum SCS soil retention parameter,
in inches.
230
-------
Variable
SNO
SSLOPE
STAGE1
STHICK(16)
SUMA
SUMB
SUMD
SURFSW
SW
SW
SWLIM
SWUL(16)
SWULE
SWULE1
SWULE2
SWULE3
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
EVAPOT, OUTYR,
SIMULA, SNOW
BLK5, SITE
ETCOEF, EVAPOT,
SIMULA
BLK7, ETCOEF
DATFIT
DATFIT
DATFIT
EVAPOT
BLK15
RUNOFF
AVROUT
BLK7
EVAPOT, OUTSD,
SIMULA
SIMULA
SIMULA
SIMULA
The daily snow water storage, in inches.
The surface slope, in percent.
The upper limit of stage one soil evap-
oration, in inches.
The thickness of the segments, in inches.
The sum of the products of the values to
be fitted to a curve and the cosine of
its location in the annual period.
The sum of the products of the values to
be fitted to a curve and the sine of its
location in the annual period.
The average of the values to be fitted to
a curve.
The water available at the surface, in
inches.
The soil water content of the evaporative
zone, in vol/vol.
The soil water content of segments of the
evaporative zone, in inches.
The lower limit of soil water content
that can drain on a given day, in inches.
The soil water contents of the segments,
in inches.
The soil water content of the evaporative
zone, in inches.
The soil water content of the top subpro-
file, in inches.
The soil water content of the second sub-
profile from the top, in inches.
The soil water content of the third sub-
profile from the top, in inches.
231
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
SWULY(16)
SWULYE(16)
TADN1A
TADN2A
TADN3A
TAETA
TAPC1A
TAPC2A
TAPC3A
TAPREA
TAREA
TARUNA
TBAL
TDRN1A
AVROUT, DRAIN,
PROFIL
AVROUT
EVAPOT, SIMULA
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
OUTAVG
BLK5, SDCHK,
SITE
OUTAVG
OUTYR
OUTYR
The soil water contents of the segments
for the previous time period, in inches.
The soil water contents of the segments at
the end of the previous time period, in
inches.
The number of days since stage one soil
evaporation stopped.
The average annual lateral drainage from
the third subprofile from the top, in
cu. ft.
The average annual lateral drainage from
the second subprofile from the top, in
cu. ft.
The average annual lateral drainage from
the top subprofile, in cu. ft.
The average annual evapotranspiration, in
cu. ft.
The average annual percolation from the
base of the third subprofile from the
top, in cu. ft.
The average annual percolation from the
base of the second subprofile from the
top, in cu. ft.
The average annual percolation from the
base of the top subprofile, in cu. ft.
The average annual precipitation, in
cu. ft.
The surface area of the landfill, in
sq. ft.
The average annual runoff, in cu. ft.
The average water budget balance, in
cu. ft.
The annual Lateral drainage from the
third subprofile from the top, in cu. ft.
232
-------
PROGRAM VARIABLES (Continued)
Variable
TDRN2A
TDRN3A
TEMP(12)
TET
TETA
TH
TH
THICK(9)
THICK1
TI
TK
TMPF(366)
TMPFM(12)
TOD
TOSNO
TOSW
Subroutine/Common
OUTYR
Definition
OUTYR
DCDATA, MTRLYR,
READCD
EVAPOT, SIMULA
OUTYR
DATFIT
DRAIN, HEAD
LATFLO, LATKS
BLK4, DSDATA,
MSDATA, SDCHK
SEGMNT
DATFIT
POTET
BLK8
READCD
CONVRG, DRAIN
OUTYR
OUTYR
The annual lateral drainage from the
second subprofile from the top, in cu.
ft.
The annual lateral drainage from the top
subprofile, in cu. ft.
The mean monthly temperatures for a year
of simulation, in degrees Fahrenheit.
The evapotranspiration when not limited
by low soil moisture, in inches.
The annual evapotranspiration, in cu. ft.
The date in terms of fraction of an
annual period.
The head on the base of a subprofile, in
inches.
The thicknesses of the layers, in inches.
A variable used to compute the thickness
of the evaporative zone.
The midpoint of a division of the
harmonic period.
The daily temperature, in degrees Kelvin.
The daily temperatures for a year of
simulation, in degrees Fahrenheit.
The computed mean monthly temperatures,
in degrees Fahrenheit.
The upper limit of the iterative solution
in the convergence technique.
The snow water at the start of the year
of simulation, in cu. ft.
The soil water storage throughout the
landfill at the start of the year of sim-
ulation, in cu. ft.
233
-------
Variable
PROGRAM VARIABLES (Continued)
Subroutine/Common Definition
TPDRN1
TPDRN2
TPDRN3
TPPRC1
TPPRC2
TPPRC3
TPPRE
TPRC1A
TPRC2A
TPRC3A
TPREA
TPRUN
IPS NO
TPSW
TRUNA
TSNO
TO
OUTPEK
OUTPEK
OUTPEK
OUTPEK
OUTPEK
OUTPEK
OUTPEK
OUTYR
OUTYR
OUTYR
OUTYR
OUTPEK
OUTPEK
OUTYR
OUTYR
OUTYR
READCD
The peak daily lateral drainage from the
third subproflLe from the top, in cu. ft.
The peak daily lateral drainage from the
second subprofile from the top, in cu.
ft.
The peak daily lateral drainage from the
top subprofili , in cu. ft.
The peak daily percolation from the third
subprofile from the top, in cu. ft.
The peak daily percolation from the
second subprofile from the top, in cu.
ft.
The peak daily percolation from the top
subprofile, in cu. ft.
The peak daily precipitation, in cu. ft.
The annual percolation from the third
subprofile from the top, in cu. ft.
The annual percolation from the second
subprofile from the top, in cu. ft.
The annual percolation from the top sub-
profile, in cu. ft.
The annual precipitation, in cu. ft.
The peak daily runoff, in cu. ft.
The peak daily snow water storage, in
cu. ft.
The soil water storage throughout the
landfill at the end of the year of simu-
lation, in cu. ft.
The annual runoff, in cu. ft.
The snow water storage at the end of the
year of simulation, in cu. ft.
The annual average of monthly mean tem-
peratures, in degrees Fahrenheit.
234
-------
PROGRAM VARIABLES (Continued)
Variable
Tl
T2
UL(16)
ULR
VALUE(10)
V DEPTH
Subroutine/Common
READCD
READCD
BLK7
OUTSD, SIMULA
DCDATA, DSDATA,
MAIN, MCDATA,
MSDATA, MTRLYR,
OPEN, PRECHK,
SCAN, SDCHK,
SIMULA, SITE
BLK6
Definition
The coefficient of the cosine term for
computing the daily mean temperatures, in
degrees Fahrenheit.
The coefficient of the sine term for com-
puting the daily mean temperatures, in
degrees Fahrenheit.
The porosities or saturated capacities of
the segments, in inches.
The maximum soil water storage in the
evaporative zone, in inches.
Numeric values of input read by use of
subroutine SCAN.
The thickness of the evaporative zone, in
inches.
VI
V2
V3
WCF(7)
WF(7)
WP(9)
WPUL(16)
AVROUT
AVROUT
AVROUT
DCDATA
ETCHK, ETCOEF,
EVAPOT, RUNOFF,
SIMULA
BLK2, DSDATA,
MSDATA, SDCHK
BLK7
A partial solution of the vertical water
routing equation.
A partial solution of the vertical water
routing equation
A partial solution of the vertical water
routing equation.
The winter cover factors for the seven
default vegetative types, in units of
leaf area index.
Weighting factors for proportioning the
evapotranspiration among the 7 segments
and for determining weighted average soil
water content.
The wilting points of the layers, in
vol/vol.
The wilting points of the segments, in
inches.
235
-------
PROGRAM VARIABLES (Continued)
Variable
WPULE
WTSM
XAO(7)
XA1(7)
XA2(7)
XCONA(2l)
XFC(21)
XGR(7)
XHEAD
XLAI
XLAI1
XLAI13(13)
XLENG(9)
XMELT
Subroutine/Common
SIMULA
RUNOFF
DSDATA
Definition
DSDATA
DSDATA
DSDATA
DSDATA
DCDATA
HEAD
BLKll
BLK8, DLAIS
BLK10, DCDATA,
MTRLYR
BLK3, SDCHK,
SITE
SNOW
The wilting point of the evaporative
zone, in inches.
The depth-weighted soil water content of
the evaporative zone, in vol/vol.
A coefficient used to compute the SCS
run-off curve number for AMC-II as a
function of default vegetation and soil
type.
A coefficient used to compute the SCS
run-off curve number for AMC-II as a
function of default vegetation and soil
type.
A coefficient used to compute the SCS
run-off curve number for AMC-II as a
function of default vegetation and soil
type.
The soil evaporation (transmissivity)
l]
coefficients for,the 21 default soil
types, in mm/day
The field capacities of the 21 default
soil types, in vol/vol.
The factors to adjust the default leaf
area indices for lesser stands of
vegetation.
The incremental head of a segment, in
inches.
The daily Leaf area index.
The leaf area index of the first day of a
year of simulation.
The leaf area indices for a year of simu-
lation.
The maximum drainage distances at the
base of the lateral drainage layers, in
feet.
The daily snowmelt, in inches.
236
-------
PROGRAM VARIABLES (Concluded)
Variable
XMIR(21)
XPOROS(21)
XRC(21)
XSW1
XSW2
XSW3
XWP(21)
XI
X2
YSWUL1
YSWUL2
YSWUL3
ZRAIN(IO)
Subroutine/Common
DSDATA
DSDATA
DSDATA
SIMULA
SIMULA
SIMULA
DSDATA
CONVRG
CONVRG
Definition
XYR
YEAR
YSNO
OUTAVG
LEAP
SIMULA
SIMULA
SIMULA
SIMULA
MCDATA
The minimum infiltration rates of the
21 default soil types, in inches/hr.
The porosities of the 21 default soil
types, in vol/vol.
The hydraulic conductivities of the
21 default soil types, in inches/hr.
The daily excess soil water in the top
subprofile in inches.
The daily excess soil water in the second
subprofile from the top, in inches.
The daily excess soil water in the third
subprofile from the top, in inches.
The wilting points of the 21 default soil
types, in vol/vol.
The computed value to be checked by the
convergence procedure.
The previous estimate of the computed
value that was produced by the conver-
gence procedure.
The number of years of simulation.
The year of simulation.
The snow water storage of yesterday, in
inches.
The soil water storage of yesterday in
the top subprofile, in inches.
The soil water storage of yesterday in
the second subprofile from the top, in
inches.
The soil water storage of yesterday in
the third subprofile from the top, in
inches.
The ten precipitation values on a line of
data, in inches.
237
-------
APPENDIX C
ORGANIZATION OF THE HELP MODEL
The HELP program consists of a hierarchial series of subroutines. The
main program directs the input options, starts the simulation, and stops the
program as shown in Figure C-l. Subroutine SIMULA controls the simulation run
and output by sequentially calling a series of subroutines as shown in Fig-
ure C-2. Calculation of daily values for temperature, insolation, and leaf
area index is controlled by subroutine READCD as shown in Figure C-3. The
water routing techniques used for simulation are conducted by subroutine DRAIN
as shown in Figure C-4. The functions of each of the subroutines are des-
cribed briefly below.
MAIN
MAIJJ is the main program that directs control to various subroutines for
entering climatologic data, soil characteristics and design information, and
running the simulation.
ANSWER
Subroutine ANSWER reads a record of input that requires an input of
either YES or NO, and then sets the variable IANS to equal 0 if the input is
YES, and to equal I if the input is NO.
AVROUT
Subroutine WROUT contains a water routing and storage algorithm that
allows water to drain vertically from upper to lower segments. Darcy's Law,
conservation of mass and the assumption of free drainage out of each segment
are incorporated into the method of solution. A moisture balance is computed
for each segment at the midpoint of the routing time interval (DT). An £
priori estimate of the drainage rate from the bottom segment of the profTle is
used to compute the moisture balance in the bottom segment. The first esti-
mate of the drainage rate from the bottom segment is that computed in the pre-
vious time step. If that estimate is not acceptably close to the subsequent
estimate from subroutine LATFLO, an improved estimate is obtained by subrou-
tine CONVRG.
238
-------
M
A
I
N
DEFAULT OPTION
CLIMATOLOGIC
INPUT
MANUAL OPTION
MCDATA
DESIGN INPUT
MANUAL OPTION
SIMULA
PRECHK
SORTYR
MTRLYR
DEFAULT OPTION
DSDATA
OPEN
SITE
OPEN
SITE
SDCHK
Run simulation and
obtain outpui results.
STOP
SIMULA
Run simulation and obtain
summary output.
Figure C-l. Overall Program Control.
239
-------
s
I
M
U
L
A
READSD
SEGMNT
ETCOEF
OUTSD
CNTRLD
o
^
«<"
o
o
o
o
o
o
READCD
POTET
MONTH
SNOW
RUNOFF
EVAPOT
ETCHK
DRAIN
DRAIN
DRAIN
OUTDAY
OUTMO
OU
TYR"
OUTAVG
OUTPEK I
Once for each subprofile.
Figure C-2. Subroutines Controlled by SIMULA.
240
-------
R
E
A
D
C
D
LEAP
•f" DATFIT
COMPUT
DATFIT
COMPUT
DLAIS
' For daily temperatures.
> For daily solar radiation values.
Figure C-3. Subroutines Controlled by READCD.
-------
N5
J>
NJ
D
R
A
I
N
AVROUT
PROFIL
No barrier layer.
o
Q.
O
5'
o
A
ET
n
HEAD
LATKS
L AT FLO
CONVRG
Estimate does not equal
computed drainage rates.
Figure C-4. Subroutines Controlled by DRAIN.
-------
CNTRLD
Subroutine CNTRLD sets control variables describing the location of the
subprofiles as being part of the cover or the waste, liner, and drainage sys-
tem. These control variables are used in the output routines to identify
simulation results.
COMPUT
The function subprogram COMPUT computes values from the equations of
smooth harmonic curves derived from a curve fitting method. The equations fit
mean monthly values of temperature and insolation with smooth curves having
annual periods. These equations are used to determine mean daily temperature
and insolation.
CONVRG
Subroutine CONVRG compares the previous estimate of drainage rate with
the current estimate of drainage rate. If consecutive estimates are not
within a preset tolerance, a new estimate is computed and returned to subrou-
tine AVROUT.
DATF1T
Subroutine DATFIT determines the equations of smooth harmonic curves,
which pass through the 12 mean monthly values of temperature and insolation
for each year of simulation. These equations are used in subroutine COMPUT to
compute daily values for temperature and insolation.
DCDATA
Subroutine DCDATA reads the data for default climatologic input.
DLAIS
Subroutine DLAIS computes daily potential changes in the leaf area index
for a year of simulation.
DRAIN
Subroutine DRAIN divides each day into a preset number of equal time
intervals, ITER, to improve the accuracy of the lateral drainage algorithm.
The program computes average daily values for gravitational head in the pro-
file, the lateral drainage rate, and the rate of percolation through the bar-
rier layer. Soil moisture estimates returned from this program are not
average daily values, but estimated moisture contents corresponding to the
243
-------
midpoint of the last time step for each day. Computations are performed by
calling subroutines AVROUT, PROFIL, HEAD, LATKS, LATFLO, and CONVRG in a loop
that terminates when a convergence criterion is satisfied.
DSDATA
Subroutine DSDATA reads soil textures, layer descriptions, and layer
thicknesses for the default soil characteristics input option.
ETCHK
Subroutine ETCHK examines the daily soil water content of the evaporative
zone and recalculates daily plant transpiration when plant evaporative demand
is high and soil water content is low.
ETCOEF
Subroutine ETCOEF computes the effective evaporation or transmissivity
coefficient of the evaporative zone and the upper limit for stage one soil
evaporation.
EVAPOT
Subroutine EVAPOT computes daily surface evaporation, soil evaporation,
and potential plant transpiration. The subroutine then determines how the
total evapotranspirative demand is distributed among the seven segments of
the evaporative zone.
HEAD
Subroutine HEAD computes the gravitational head available in the profile
to drive lateral flow and percolation through the barrier. The computation
proceeds from the top of the barrier layer accumulating head from saturated
segments. When a segment is encountered in which the moisture content is
lower than the total porosity, the appropriate fraction of the segment thick-
ness is added to the estimate of head and the procedure ends.
LATFLO
Subroutine LATFLO computes the lateral flow rate based on a linearization
of the Boussinesq equation. All computations are performed at the midpoint of
the time step.
244
-------
LATKS
Subroutine LATKS computes the effective lateral hydraulic conductivity
for the saturated portion of the profile. The effective conductivity is a
thickness-weighted average of the hydraulic conductivities of the segments or
fraction of segments used in the head computation.
LEAP
The integer function subprogram LEAP determines whether the year being
simulated is a leap year.
MCDATA
Subroutine MCDATA reads precipitation input for the manual cliraatologic
input option.
MONTH
The integer function subprogram MONTH determines the month of a year for
a Julian date given an indicator as to whether the year is a leap year.
MSDATA
Subroutine MSDATA reads user input for runoff curve number, soil charac-
teristics, layer descriptors, and layer thicknesses.
MTRLYR
Subroutine MTRLYR reads user input for mean monthly temperature and
insolation, Leaf area index, winter cover factor, and root zone depth.
OPEN
Subroutine OPEN reads user input for SCS runoff curve number and daily
potential runoff fraction when the waste cell of the landfill is open.
OUTAVG
Subroutine OUTAVG calculates average monthly and annual results from the
monthly and annual results of the simulation and then prints the averages.
245
-------
OUTDAY
Subroutine OUTDAY prints daily results of the simulation.
OUTMO
Subroutine OUTMO prints monthly totals of the simulation results.
OUTPEK
Subroutine OUTPEK prints peak daily results of the simulation.
OUTSD
Subroutine OUTSD prints the input soil characteristics and design infor-
mation.
OUTYR
Subroutine OUTYR prints annual totals of the simulation results.
POTET
Subroutine POTET computes daily potential evapotranspiration values for a
year of simulation.
PRECHK
Subroutine PRECHK is used to check and correct precipitation values for
manual climatologic input.
PROFIL
Subroutine PROFIL checks each profile segment, beginning at the bottom of
the profile, for moisture content greater than the pore space available in the
segment. When excess moisture is encountered in a segment, the segment mois-
ture content is set equal to the total porosity of the segment and the excess
moisture is distributed to the segment above.
READCD
Subroutine READCD reads the climatologic data files one year at a time
during the simulation and prints the climatoLogic input.
246
-------
READSD
Subroutine READSD reads the data file containing the soil characteristics
and design information.
RUNOFF
Subroutine RUNOFF determines the daily storage retention parameter and
computes the daily runoff.
SCAN
Subroutine SCAN examines an array of 76 alphanumeric characters, which
are read from interactive input, and converts the array into an array of ten
floating point values. SCAN is used for reading all numeric inputs from the
user.
SDCHK
Subroutine SDCHK is used to check and correct soil characteristics and
design information for the manual input option.
SEGMNT
Subroutine SEGMNT divides the landfill profile into segments and assigns
soil characteristics to the segments. This subroutine also assigns the ini-
tial soil water contents of the segments.
SIMULA
Subroutine SIMULA directs the simulation, calling subroutines to read
data, print input, compute water budget components, and print output. The
accounting procedures for the water budget are performed in this subroutine.
SITE
Subroutine SITE reads user input for surface area, drainage slopes, and
maximum drainage distances.
SNOW
Subroutine SNOW computes daily snow storage and daily snowmelt.
247
-------
SORTYR
Subroutine SORTYR sorts the years of precipitation data into chronolog-
ical order.
248
-------
APPENDIX D
COMPARISON WITH RESULTS OF DRAINFIL MODEL
Both the HELP and DRAINFIL3 models were developed to simulate the hydro-
logic performance of landfills. The two models are similar with respect to
the manner in which lateral drainage is estimated, but are otherwise quite dif-
ferent with respect to the solution techniques employed. Data requirements
are generally similar, except that DRAINFIL uses hourly precipitation data
while HELP requires only daily total precipitation. In order to compare
results produced by the models, simulations were performed for both a landfill
cap (cover) system and a liner/drain system. The designs selected were based
on draft design guidance documents prepared by the U.S. Environmental Protec-
tion Agency. Historical precipitation data for Seattle, Washington were used
for all the simulations.
INPUT
Three types of input are used by the HELP model: climatologic and vege-
tation data, design information, and soil characteristics. Input data are
summarized below.
Climatologic Input
The climatologic and vegetation input are described below and partially
listed in Tables D-l, and D-2.
Precipitation: 25 years of daily values (1951 to
1975) for the open landfill and
21 years of daily values (1955 to
1975) for the landfill cap
Temperature: One set of 12 mean monthly values
(see Table D-l)
Solar Radiation: One set of 12 mean monthly values
(see Table D-l)
a Skaggs, R. W. Modification to DRAINMOD to consider drainage from and seep-
age through a landfill. Draft Report, U.S. Environmental Protection Agency,
Cincinnati, OH, 1982. 21 pp.
b U.S. Environmental Protection Agency. Draft RCRA Guidance Document, Land-
fill Design, Liner Systems, and Final Cover. Washington, DC, 1982. 33 pp.
249
-------
TABLE D-l. TEMPERATURE AND SOLAR RADIATION DATA
Month
Mean Monthly
Temperature
(degrees Fahrenheit)
Mean Monthly
Solar Radiation
(langleys/day)
January
February
March
April
May
June
July
August
September
October
November
December
40.13
41.08
45.08
51.07
57.45
62.49
64.87
63.92
59.92
53.93
47.55
42.50
69.80
148.61
267.86
395.57
497.55
546.46
529.20
450.39
331.14
203.42
101.45
52.54
250
-------
Leaf Area Index:
Winter Cover Factor:
Evaporative Zone Depth:
Design Information
One set of 13 values describing a
year, particularly the growing
season; typical of a poor grass
for the cap and of bare.ground for
the open waste cell (see Table D-2)
One value describing the leaf area
index of dormant winter cover (see
Table D-2)
6 inches for a poor grass (for land-
fill cap) and 2 inches for bareground
(for open site),
The design information for the landfill cap and liner/drain system are
summarized below.
Landfill Cap:
Thickness of vegetative layer
Thickness of drain layer
Thickness of barrier soil layer
Slope of barrier soil layer
Maximum drainage distance
SCS runoff curve number
Liner/Drain System:
Thickness of waste layer
Thickness of drain layer
Thickness of barrier soil layer
Slope of barrier soil layer
Maximum drainage distance
SCS runoff curve number
Soil Characteristics
2 ft
1 ft
2 ft
3%
175 ft
50, poor runoff potential
9 ft
1 ft
2 ft
2%
25 ft
20, no runoff permitted
The soil properties of the various layers are as follows:
Top Foot of Vegetative Layer:
Porosity
Field capacity
Wilting point
Hydraulic conductivity
Evaporation (transmissivity) coefficient
Bottom Foot of Vegetative Layer:
same as above except
Field capacity
Drain Layers:
Porosity
Field capacity
0.5 vol/vol
0.47 vol/vol
0.15 vol/vol
1.417 X 10 in./hr
4.8 mm/day
0.45 vol/vol
0.50 vol/vol
0.38 vol/vol
251
-------
TABLE D-2. LEAF AREA INDICES AND WINTER COVER FACTORS
Date
1
92
104
116
128
140
152
164
176
188
200
213
366
Winter Cover Factor
Landfill Cap
Leaf Area Index
0.00
0.00
0.30
0.50
0.50
0.50
0.50
0.50
0.45
0.33
0.16
0.08
0.00
0.30
Open Waste Cel 1
Leaf Area Index
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
0.00
252
-------
Wilting point 0.15 vol/vol
Hydraulic conductivity 14.17 in./hr,.
Evaporation (transmissivity) coefficient 3.3 mm/day
Barrier Soil Layers:
Porosity 0.50 vol/vol
Field capacity 0.49 vol/vol
Hydraulic conductivity 1.417 X 10 in./hr
Waste Layer:
Porosity 0.50 vol/vol
Field capacity 0.45 vol/vol
Wilting point 0.15 vol/vol
Hydraulic conductivity 1.417 X 10~ in./hr
Evaporation (transmissivity) coefficient 3.8 mm/day
RESULTS AND DISCUSSION
Monthly and annual totals were generated for the following water budget
components: precipitation, runoff, evapotranspiration, lateral subsurface
drainage, and percolation through the bottom of the barrier soil layer.
Annual totals of each component for the simulation period were averaged to
obtain the average annual water budget. Table D-3 shows average annual water
budgets produced by the HELP and DRAINFIL models for both the landfill cap and
the open waste cell/liner/drain system. Results are given in inches (vol/
landfill area) and in percent of the average annual precipitation.
The results produced by the two models are very similar; though, the HELP
model tends to predict somewhat higher evapotranspiration than the DRAINFIL
model. Consequently, the estimates of lateral drainage and seepage produced
by the HELP model are somewhat smaller than estimates from the DRAINFIL model.
Two causes for the difference in the estimate of evapotranspiration are
apparent:
1) The HELP model estimates evapotranspiration by a modified Penman
relationship while the DRAINFIL model uses a Thornwaithe relationship adjusted
with pan evapotranspiration data.
2) The DRAINFIL model routes water vertically down the soil profile to
the water table much faster than the HELP model; this removes water from the
evapotranspiration zone of the soil profile before the water can be used to
satisfy the evapotranspirative demand. Consequently, less evapotranspiration
is predicted by DRAINFIL.
The seepage (percolation) estimate produced by the HELP model is less
than the seepage predicted by the DRAINFIL model. As noted above, this is
caused, at least in part, by the combination of the slower vertical drainage
rates down and higher evapotranspiration predicted by the HELP model. Another
cause of the smaller seepage estimates is the assumption used in the HELP
model that barrier soil layers always remain at saturation, that is, that the
drainable porosity of barrier soil layers is always zero. The DRAINFIL model
assumes a drainable porosity of one percent. This assumption permits water to
seep from a barrier soil layer after drainage into the layer ceases, thus
yielding greater estimates of seepage. Both models use Darcy's Law to compute
seepage (percolation) from barrier soil layers.
253
-------
TABLE D-3. AVERAGE ANNUAL WATER BUDGETS PREDICTED BY THE HELP AND
DRAINFIL MODELS
Average Annual Water HELP
Budget Component (Inches)
For the Landfill Cap
Precipitationb 37.70
Runoff 7.04
Evapotranspiration 16.59
Lateral Drainage 12.77
Seepage 1.31
Total Accounted For 37.71
For the Open Landfill
Precipitation6 37.05
Runoff 0.00
Evapotranspiration 14.42
Lateral Drainage 21.58
Seepage 1.04
Total Accounted For 37.04
o
(Percent )
100.00
18.66
43.99
33.88
3.48
100.01
100.00
0.00
38.91
58.25
2.80
99.96
DRAINFIL
0
(Inches) (Percent )
37.70
6.87
15.74
13.78
1.39
37.78
37.05
0.00
12.64
23.57
1.11
37.32
100.00
18.22
41.75
36.55
3.69
100.21
100.00
0.00
34.12
63.62
2.99
100.73
a Percent of average annual precipitation.
b For Seattle, WA, 1955-75.
c Percolation from base of cover.
d Excluding difference in initial and
e For Seattle, WA, 1951-75.
f Percolation from base of landfill.
final soil
moisture storage.
254
-------
The estimate of evapotranspiration is somewhat sensitive to the specified
thickness of the evaporative zone. In the simulations reported herein, evap-
orative zone depths were set to equal the minimum thickness reasonable for the
specified vegetative conditions in order to estimate the maximum likely seep-
age and lateral drainage. As a result, evapotranspiration estimates were,
perhaps, small for the design. Increasing evaporative depths would increase
estimates for evapotranspiration, and decrease estimates of seepage, lateral
drainage and, perhaps, runoff. To illustrate this point, the input evapora-
tive zone depths were increased from 6 inches for the cap and 2 inches for the
open site to 8 inches and 6 inches, respectively. The latter values are
thought to be more typical. Results for simulations with these evaporative
depths are shown in Table D-4. For the open site, evapotranspiration
increased by about 1.7 inches and consequently, lateral drainage decreased by
about 1.5 inches. Seepage decreased by about 0.2 inches. For the landfill
cap, evapotranspiration increased by about 0.7 inches while lateral drainage,
seepage and runoff decreased by about 0.5, 0.1 and 0.1 inches, respectively.
Lateral drainage and seepage decrease because less water reaches the drainage
and barrier soil layers when evapotranspiration increases. Increasing the
evapotranspiration also decreases the soil moisture content near the surface
which increases infiltration and reduces the runoff slightly.
The runoff potential of the landfill cap used in the simulations was very
small, typical of well-cultivated agricultural fields. Most landfills would
have considerably greater runoff potential. A SCS runoff curve number of 80
would generally be more representative than the 50 used in the simulation with
the HELP model. The curve number of 50 was used to match the runoff potential
used in the simulation with the DRAINFIL model. A small runoff potential was
used to estimate the maximum likely seepage and lateral drainage as small
evaporative depths were used. Using both 6- and 8-inch evaporative zone
depths for the landfill cap, simulations were run using a runoff curve number
of 80 to compare with the results shown in Tables D-3 and D-4. Results for
these simulations are presented in Table D-5. The runoff increased by about
2.1 inches while lateral drainage, evapotranspiration and seepage decreased by
about 1.8, 0.2 and 0.1 inches, respectively. Changes in the evapotranspira-
tion on runoff mainly affect the estimates of lateral drainage in this design.
CONCLUSIONS
Simulation results produced by the HELP and DRAINFIL models were found to
be very similar, although the HELP model predicted somewhat higher evapo-
transpiration and lower lateral drainage and seepage tor the two cases inves-
tigated. Seepage, lateral drainage, and evapotranspiration estimates produced
by the HELP model were found to be somewhat sensitive to the evaporative zone
depth, a parameter which is difficult to estimate with confidence, and the SCS
runoff curve number.
a Schroeder, P. R., J. M. Morgan, T. M. Walski, and A. C. Gibson. Hydrologic
Evaluation of Landfill Performance (HELP) Model: Volume I. User's Guide
for Version 1. Draft Report, Municipal Environmental Research Laboratory,
U.S. Environmental Protection Agency, Cincinnati, OH, 1983.
255
-------
TABLE D-4. AVERAGE ANNUAL WATER BUDGETS PREDICTED BY THE HELP MODEL WHEN
TYPICAL EVAPORATIVE (ROOT) ZONE DEPTHS ARE USED
Average Annual Water For the Landfill Cap For the Open Landfill
Budget Component
Precipitation
Runoff
Evapo transpiration
Lateral Drainage
Seepage
Total Accounted For
(Inches) (Percent ) (Inches)
37.70b 100.00 37.05°
6.93 18.38 0.00
17.30 45.89 16.06
12.23 32.45 20.10
1.24d 3.29 0.876
f 37.70 100.01 37.03
(Percent )
100.00
0.00
43.34
54.25
2.36
99.95
a Percent of average annual precipitation.
b For Seattle, WA,
c For Seattle, WA,
d Percolation from
e Percolation from
1955-75.
1951-75.
base of cover.
base of landfill.
i
f Excluding difference in initial and final soil moisture storage.
TABLE D-5. AVERAGE ANNUAL WATER BUDGETS PREDICTED BY THE HELP MODEL WHEN
A TYPICAL RUNOFF CURVE NUMBER IS USED FOR THE LANDFILL CAP
Average Annual Water 6-inch Evaporative Depth 8-inch Evaporative Depth
Budget Component (Inches) (Percent3) (Inches) (Percent3)
Precipitation
Runoff0
Evapo transpiration
Lateral Drainage
Seepage
Total Accounted For
37.70 100.00 37.70
9.03 23.95 9.20
16.41 43.52 17.08
11.04 29.28 10.28
1.20 3.18 1.11
6 37.68 99.93 37.68
100.00
24.41
45.32
27.26
2.94
99.93
a Percent of average annual precipitation.
b For Seattle, WA, 1955-75.
c SCS runoff curve number of 80.
d Percolation from
base of cover.
e Excluding difference in initial and final soil moisture storage.
*U.S. GOVERNMENT PRINTING OFFICE : 1984 0-421-545/11813 256
------- |