HomeMy WebLinkAboutAPA575ALASKA RESOURCB<:i T,T'RRARY
U.S.DEPT.OF Il~TERIOR
~lASKA STATE DOC
s
Over/Under (AREEP Version)
Model User's Manual
Volume XI
November 1982
Prepared for the Office of the Governor
State of Alaska
Division of Policy Development and Planning
and the Governor's Policy Review Committee
under Contract 2311204417
()Battelle
Pacific Northwest Laboratories
"
LEGAL NOTICE
This report was prepared by Battelle as an account of sponsored
research activities.Neither Sponsor nor Battelle nor any person acting
on behalf of either:
MAKES ANY WARRANTY OR REPRESENTATION,EXPRESS OR
IMPLIED,with respect to the accuracy,completeness,or usefulness of
the information contained in this report,or that the use of any informa-
tion,apparatus,process,or composition disclosed in this report may not
infringe privately owned rights;or
Assumes any liabilities with respect to the use of,or for damages result-
ing from the use of,any information,apparatus,process,or composition
disclosed in this report.
C1&g5~
<riA {;p
f<3S'~
v ~{,
RAILBELT ELECTRIC POWER ALTERNATIVES STUDY;
OVER/UNDER (AREEP VERSION)MODEL USERS MANUAL
Vol ume XI
A.L.Sl avi ch
J.J.Jacobsen
November 1982
Prepared for the Office of the Governor
State of A1 aska
Division of Policy Development and Planning
and the Governor1s Policy Review Committee
under Contract 2311204417
Battelle
Pacific Northwest Laboratories
Richland,Washington 99352
SUMMARY
The Alaska Railbelt Electric Power Alternatives Study is an electric
power planning study for the State of Alaska,Office of the Governor and the
Governor's Pol icy Revi ew Committee.Begun in October 1980,and extendi ng into
April 1982,the study's objectives are to forecast the demand for electric
power through the year 2010 for the Railbelt region of Alaska and to estimate
the monetary,socioeconomic,and environmental costs of all options (including
conservation)that could be used to supply this power.
This document,Volume XI,is one in a series of 17 reports listed
below.It describes changes which were made in this project to the EPRI
Over/Under Capacity Planning model to produce the Alaska Railbelt
Electric Energy Planning (AREEP)model.Model operations on the Alaska
Department of Administration Anchorage Data Center main frame computer are
described.Also included in the document is a revised listing of the model
code.Users of this document are expected to have the original documentation
on the Over/Under Model available.
RAILBELT ELECTRIC POWER ALTERNATIVES STUDY
iii
I
\
I!
Volume I
Volume II
Volume III
Volume IV
Volume V
Volume VI
Volume VII
-Railbelt Electric Power Alternatives Study:Evaluation of
Railbelt Electric Energy Plans
-Sel ecti on of El ectri c Energy Generati on Alternati ves for
Consideration in Railbelt Electric Energy Plans
-Executive Summary -Candidate Electric Energy Technologies for
Future Application in the Railbelt Region of Alaska
-Candidate Electric Energy Technologies for Future Application
in the Railbelt Region of Alaska
-Preliminary Railbelt Electric Energy Plans
-Existing Generating Facilities and Planned Additions for the
Railbelt Region of Alaska
-Fossil Fuel Availability and Price Forecasts for the Railbelt
Region of Alaska
Vol ume VII I
Vol ume VI II
Vol ume IX
Volume X
Vol ume XI
Vol ume XI I
Vol ume XI II
Vol ume XIV
Vol ume XV
Volume XVI
Vol ume XVII
-Rail belt [1 ectri city Demand (RED)Model Speci fi cati ons
-Appendix -Red Model User's Manual
-Alaska Economic Projections for Estimating Electricity
Requirements for the Railbelt
-Community Meeting Public Input for the Railbelt Electric Power
Alternatives Study
-Over/Under (AREEP Version)Model User's Manual
-Coal-Fired Steam-Electric Power Plant Alternatives for the
Railbelt Region of Alaska
-Natural Gas-Fired Combined-Cycle Power Plant Alternative for
the Railbelt Region of Alaska
-Chakachamna Hydroelectric Alternative for the Railbelt Region
of Al aska
-Browne Hydroelectric Alternative for the Railbelt Region of
Alaska
-Wi nd Energy Alternati ve for the Rail belt Regi on of Al aska
-Coal-Gasification Combined-Cycle Power Plant Alternative for
the Railbelt Region of Alaska
iv
TABLE Of CONTENTS
SUMMARY • • • • • • •
1.0 INTRODUCTION.• ••••••••••••
2.0 DESCRIPTION OF THE MODEL •• • • • • • • • •
DEMAN D-UN CE RTA I NTY.•• • ••••••
CAPACITY-DECISION • • • • • • • • • • • • • • • •
PRODUCTION-SIMULATION.• • • • • • • • • • • • • •
FIXE D-CHARll:.• • • • •••••••••••
TERMINAL-VALUE • • • • • • • • • • • • • • • • •
CONSUME R-P REFE RENCE • ••••••••••••
3.0 DATA INPUT • • ••.•• • • • • • •
PRIMl\RY INPUT DATA FILE • •••••••••••
SECONDARY INPUT DATA FILE • • • • • • • • • • • • •
De 1 i vered E1ectri city •• • • • • • • •
Load Management and Conservation • • • • • • • • •
4.0 DATA OUTPUT ••••••••••••••••••
CAPAC lTY AND ENERGY GENERATION (CPRT)•••••••
COST SUMMARY REPORT (CSUM)• • • • • • • • • • • • •
ANCHORAGE-COOK INLET -FAIRBANKS-TANANA VALLEY INTERTIE REPORT •
PRODUCTI ON DETA IL REP ORTS • • • • • • •
PRODUCTION COST REPORTS •••••••••••••
DATA FILE OUTPUT.• • • • • • • • • • • • • • • •
5.0 OVERVIEW OF THE COMPUTER PROGRAM • • • • • • • • • • •
MAIN PROGRAM.• • • • • • • • • • • • • • • • •
SUBROUTINES • • • • • • • • • • ••••••
Subroutine INCONS -(MOD13050)• • • • • • • • • •
Subrouti nes SETPAR -(MOD13570).• ••••••
Subrouti nes READSF -(MOD13930).• • • • • • • • •
Subroutines DEMPYR -(MODJ.5200).• • • • • • • • •
Subrouti nes DETL DC -(MOD16080).• • • • • • • • •
Subroutines FAIRCK -(MODl7620).• • • • • • • • •
Subroutines FLORDR -(MOD18570).• ••••••
Subroutines SVNUMS -(M0D19400).• • • • • • • • •
v
iii
1.1
2.1
2.1
2.2
2.2
2.2
2.2
?.2
3.1
3.1
3.14
3.14
3.21
4.1
4.1
4.4
4.7
4.11
4.12
4.12
5.1
5.1
5.4
5.4
5.5
5.6
5.7
5.7
5.7 -
5.7
5.7
Subroutines SVENG -(MOD20280)•· ·
··· · ·
··5.8
Subroutines DEMPRT -(MOD20700)•··· ······5.8
Subroutines WRTSUM -(MOD21830)•···· ·
·· ··5.8
Subroutines WRTINT -(MOD23700)•······ ···5.8
6.0 PROGRAM OPERATION .·· · ··· · ···· ····6.1
DATA FILES . .
.·· ·
·· · ··· ·
·· ·· ·
6.1
RUNNING THE PROGRAM ··· ··· · ·
·······6.3
AREEP MODEL ERROR MESSAGE · ··· ·
······ ·
·6.3
APPENDIX A:AREEP QUI CK REFE RENCE INPUT · ·
··· ·····A.I
APPENDIX B:AREEP SOURCE CODE ············ ·
B.1
vi
·LIST OF FIGURES
1.1 AREEP Diagram
1.2 Electrical Demand and Supply Interactions
3.1 Example Primary Input Data File.
3.2 Example Secondary Input Data File
4.1 CPRT Report •
4.2 CSUM Report •
4.3 INTR Report •
6.1 AREEP File Assignments
6.2 AREEP EXEC 2 Command File
LIST OF TABLES
5.1 Subroutines in Order of Call
vii
1.3
1.5
3.2
3.15
4.2
4.5
4.8
6.2
6.4
5.2
1.0 INTRODUCTION
The purpose of this report is to describe the Over/Under (AREEP Version)
Model.This model was used in the Rai1be1t Electric Power Alternatives Study
to balance the demand and supply of electricity over the 1980-2010 time
horizon.
The Over/Under (AREEP Version)Model (AREEP-A1aska ~ai1be1t f1ectric
Energy f1anning was developed by modifying an existing model,the
Over/Under Capacity Planning Model,which was originally developed for the
Electrical Power Research Institute (EPRI)by Decision Focus,Incorporated
(EPRI 1978).
This document deals only with the modifications made to the model as part
of the Rai1be1t Electric Power Alternatives Study.In addition to this
report,the reader is expected to have the following EPRI documents describing
the Over/Under Capacity Planning Model:
-Caza1et,E.G.,C.E.Clark and T.W.Keelin.1978.Costs and
Benefits of Over/Under Capacity in Electric Power System Planning.
Prepared by Decision Focus,Incorporate,for the Electric Power
Research Institute,Palo Alto,California.
-Clark,C.E.,T.W.Keelin and R.D.Shure 1979.Users Guide to
the Over/Under Capacity Planning Model.Prepared by Decision Focus,
Incorporated,for the Electric Power Research Institute,Palo Alto,
California.
The principal modifications made to the model as part of this study
include the following:
-The demand uncertainty portion of the model was restructured to
allow the user to input three forecasts of annual peak demand (MW)
and annual energy (GWh).The probability tree method used in the
original model was eliminated.
-Provisions were made to allow the fuel costs and heat rate for each
technology to be input directly.In the original model the fuel
1.1
costs were assumed to be included with the variable cost data.
Annual fuel costs are entered directly for the first 15 years of the
time horizon.An annual fuel escalation rate is entered to
represent escalation during the last 15 years of the time horizon.
-The model was modified to explicitly include up to 7 hydroelectric
projects.Previously,only a single hydroelectric technology could
be evaluated.
-Three additional output reports were developed and can be selected
if desired.These outputs provide data on the Anchorage-Cook Inlet
and Fairbanks-Tanana Valley load centers.
-Data input and output files were designed to allow the model to be
more easily used with the RED electrical demand model (RED -Railbelt
Ilectrical Qemand).The peak demand and annual energy requirements
are output from the RED model in a format that can be read by the
AREEP model.The AREEP model outputs the annual prices of
electricity in a format that can be read by the RED model.
-The data input necessary to describe the financial status of the
system was reduced.
The primary function of the AREEP model is to compute the price of
electricity.In general,the computational procedure used by AREEP to
determine the price of electricity for a particular case is presented in
Figure 1.1.The first step is to adjust the consumption forecast for
transmission line losses and unaccounted energy.This adjustment determines
the amount of energy that must be generated.Because the AREEP model
considers the Rai1be1t an intertied electrical system,the peak demands and
annual energy from each of the three load centers are added together and a
single annual load duration curve is developed for the combined Rai1be1t area.
The next step in the computational procedure is to develop a schedule for
new additions to generating capacity.Generating capacity additions are based
upon the need to meet the forecast annual peak demand,with an allowance for
line losses over the time horizon of the analysis,as well as a reserve margin
1.2
CAPACITY
ADDITIONS
PRODUCTION
SIMULATION
•DISPATCHES GENERATING ALTERNATIVES
BASED UPON VARIABLE OPERATING COST
•LOSS OF LOAD PROBABILITY
•MAKES CAPACITY DECISIONS BASED
UPON:
-DESIRED MIX OF ALTERNATIVES (INPUT)
-PLANNING RESERVE MARGIN (INPUT)
{
•ADJUST FOR LOSSES AND UNACCOUNTED
ENERGY
•COMBINE DEMANDS FROM LOAD CENTERS
•DEVELOP LOAD-DURATION CURVES
{
{
•PEAK DEMAND
•ANNUAL ENERGY
DATA INPUT
AND ASSUMPTIONS -'--------.t DATA INPUT
•DESCRIPTION OF GENERATING
ALTERNATIVES
•EARLIEST AVAILABILITY
OF ALTERNATIVES
•FINANCIAL ASSUMPTIONS
•CAPITAL,O&M,FUEL COSTS
•DESIRED MIX OF ALTERNATIVES
•PLANNING RESERVE MARGIN
PRODUCTION
COSTS
•COMPUTES ANNUAL COST OF POWER
•LEVEll ZED COST OF POWER
•PRESENT WORTH OF PLAN
•ANNUAL COST OF POWER
FIGURE 1.1.AREEP Diagram
that allows for extra capacity in the event of unscheduled downtime of
generating plants.The model accounts for retirement of existing plants.
Once the schedule of new plant additions is established,the capital cost
and fixed cost portion of the electricity production cost can be computed.As
indicated in Figure 1.1,this information is computed and used to forecast the
production cost of electricity.
The next step in the computational procedure is choosing the available
generating alternatives that will be used to generate electricity during any
particular year.The model decides this based upon the relative variable
operating costs for the alternatives.The alternative with the lowest
operating costs is selected to be used (dispatched)to generate electricity
first,followed by the alternatives with the next lowest variable cost.The
generating alternatives are dispatched in this order until the annual energy
demand is satisfied.
1.3
Finally,the information on the amount of electricity produced by each
generating technology is then used to compute the annual variable costs of
producing electricity for the Railbelt.As shown,the total annual costs of
power to the consumer is produced by adding the total annual fixed costs that
are computed earlier to the total annual variable costs.
The demand for electricity is partially determined by the price of
electricity.Since the price of electricity is determined by the types and
performance of the facilities used to generate electricity,electricity demand
forecasts may require some interaction between the demand and supply
forecasting models.
The interaction between the supply model (AREEP)and the demand model
(REO)is represented in Figure 1.2.Initially,a price of electricity is
assumed as input to the electrical demand model (REO Model).Using this
price,as well as other input data and assumptions,the REO model produces
forecasts of peak demand and annual energy for the Railbelt.The AREEP model
uses these forecasts of peak demand and annual energy as input data and
produces a schedule of plant additions to the electrical generation system,as
well as a new price of electricity to the consumer.REO is then rerun with
the new price assumptions.If the two demand forecasts are relatively close,
then supply and demand are said to be in equilibrium and the process is
halted.On the other hand,if the two demand forecasts are not relatively
close,the REO and AREEP models then are rerun,producing a new price and
demand forecast.
This process is continued until the demand forecasts of two successive
iterations of REO are relatively close.In actual practice,the model user
quickly develops an understanding of how the two models relate,and
equilibrium is reached within two or three model runs.
The remainder of this report is divided into five chapters.Chapter 2
presents an overview of the model.Chapter 3 presents the data input format
for the model.Chapter 4 describes the additional output files available from
the AREEP model.Chapter 5 gives information of the new subroutines that were
added as part of the modification process,as well as the subroutines that are
no longer used.Chapter 6 presents information on the operation of the model
on the computer system.
1.4
INPUT DATA
AND ASSUMPTIONS
•PEA K DEMAND
•ANNUAL ENERGY
START
,------------1
I INPUT DATA COST OF I
AND ASSUMPTIONS •POWER
I I
I •SCHEDULE OF CAPACITY ADDITIONS I
•PRESENT WORTH OF PLAN
1 -------,
FIGURE 1.2.Electrical Demand and Supply Interactions
1.5
2.0·'DESCRIPTION·OF:THE:MODEL
The purpose of this chapter is to present an overview of the
modifications that were made to the Over/Under Capacity Planning Model as part
of the Railbelt Electric Power Alternatives Study.The modified model is
referred to as the Over/Under (AREEP Version)model or AREEP.
As described in the Users Guide (EPRI 1979);the Over/Under Capacity
Planning Model included 6 submodels:
-demand-uncertainty model
-capacity-decision model
-production-simulation model
-fixed-charge model
-terminal-value model
-consumer-preference model
As part of the model modification process for this study,the
demand-uncertainty model was extensively modified.The capacity-decision and
production-simulation models were modified slightly for this study.The
fixed-charge,terminal-value,and consumer-preference models were not
changed.The terminal-value model is not employed as part of the modeling
methodology used in the Railbelt study.Each of these models is briefly
discussed in this section.
DEMAND-UNCERTAINTY
In the original model the demand-uncertainty model created a
demand-probability tree.As indicated above,this submodel was extensively
modified as part of the Railbelt study.As part of the modeling methodology
used in this study,electrical demands are forecasted over the time horizon of
the study using a series of economic activity mOdels and an electrical end-use
model.The end-use model developed as part of this study is called REO -the
B.ailbelt Ilectrical Qemand model (see Volume VII!).
The REO model can provide three demand forecasts (low,medium,and high)
to the AREEP model when operating in the uncertainty mode.It is assumed that
there is a 75%probability that the true forecast is higher than the low
2.1
i
forecast;a 50%probability that the true forecast is higher than the medium
forecast;and a 25%probability that the true forecast is higher than the high
forecast.When the RED model is not operating in the uncertainty mode,all
three forecasts are the same.(a)
CAPACITY-DECISION
Few changes were made to the capacity decision model~The method used to
select what type of capacity to add at any point in time involves three stages:
initial planning and studies,licensing,and construction and startup remains
the same.The primary change was the inclusion of six additional hydroelectric
techno logy II slots II that allow up to seven hydroe 1ectri c proj ects to be
evaluated in a single model run.
PRODUCTION-SIMULATION
As with the capacity-decision model,few changes were made to the
production-simulation model.One change was made to allow fuel price data to
be input directly rather than to be included as a part of the variable cost.
Another modification provides for the computation of a load duration curve for
each year of the planning horizon.
FIXED-CHARGE
No changes were made to the fixed-charge model.The data input
requirements for this model were reduced.·For example,only a single cost of
capital is required.
TERMINAL-VALUE
The terminal-value model was not used as part of this study.No
modifications were made to this model.
CONS UME R-P RE FE RE NCE
No changes were made to the consumer-preference model.
(a)Large industrial load is data'input to RED.Unless the low,medium,and
high case industrial demand is set equal to the same number,the three
forecasts will differ.
2.2
3.0 DATA INPUT
As with the original Over/Under model,the AREEP version is a batch
program.It uses two data files for input.The primary data file
is prepared by manipulating an existing input file with a text editor
utility.Several nondata labels are included in the file to help format data
entries and to enhance readability.The secondary data file,containing.
forecasts of peak demand and annual energy for the Railbelt,is available
from the RED model program.
PRIMARY INPUT DATA FILE
An example primary data file is illustrated in Figure 3~1.This is the
primary data file for Case lA (Base Case Without Upper Susitna),as presented
in Volume I of the study series.The data entries in this file are located in
the correct fields to be read by.the program.In editing such a file,care
must be taken to place values in these same fields.Appendix A of this report
presents a quick guide to the data-entry fields.General rules for data entry
include the following:
1.Values must be inserted in the correct column ranges (fields).
Numbers that include a decimal point need not be right-
justified.Numbers with no decimal point must be
right-justified.
2.Any value,unless otherwise noted,can be a decimal.
3.In "decimal percent"values,1.00 equals 100%.
4.Years are four-digit integers,as in "1980".
5.Data input lines are serially ordered,but their line numbers
are arbitrary.Any five integers can be used for the line
numbers,as long as the order of the lines remains the same.
Figure 3.1 and the following text explain the changes made to the data
input format in the AREEP version of the Over/Under Capacity Planning Model.
3.1
3.2
. - -DEMAND AND ENERGY FOR EACH PERIOD OF EACH PATH AND
THE CONSERVATION DATA ARE ON THE SECONDARY FILE
'!'POET
T
ooooooooooo
Q
o
o
o
o
oooooo
o
oooooooo
o
o
T
o
1980
50
1
1
1
o
PDET
T
ooooooooooooo
oooooooo
oo
ooo
ooo
o
o
PS-YEARLY-MWINC
T T 5.
FGCC -----
300
.02
T
100
1988
50
1
1
2
o
File
BEGIN----WINOOW----END
.20 1980,2045 .20
F&GCD
266oo
-8oo
-1
-8
-6oo
-18
-19oo
-33
-102
-65
ooooo
oo
oooooo
TPCOS
T
CD Fe
T T
FCST
69oooo
oo
-4o
-5o
oooo
oo
o
oooo
-25oo
-21ooooo
800 266
.33 0
T T
200 70
1988 1980
50 50
1 1
1 1
4 4
o 0
Input Data
PCOS
T
RMINC
0.0
ACSTooooooooooo
,0
o
o
ooooooooooooooooo
1000
.35
T
200
1988
50
1
1
4
o
Primary
CONS.DISC
0.03
139oooooooooooo
o
oooooo
o
o
ooooooooo
INTR
T
RMBAS
0".0
FINOUT
T
oo
+178ooo
ooooo
oo
oooooo
o
o
oo
oo
oooooo
AOGCC ANGCC
CSUM
T
PRICES
T
"1000
o
T
70
1983
50
1
1
1
o
ANGCT
82o
+90oo
oooooo
o
-16o
-16oo
o
-18oo
o
-32
oooo
o
o
oo
178 1000o.10
T T
50 200
1983 1983
99999 50
1 1
1 1
2 3
o 0
FIGURE 3.1.Example
AOGCT
379o
-110oo
oooo
oo
oo
-9
-14
-14o
o
-32o
-18o
-19
-53o
-58o
o
-26oo
379
o
T
25
1983
99999
1
1
1
o
THOR CONSTANT-$-SYS
OTT
LOW---HIGH---INC
.30 .30 .10
00100 TITLE:RAILBEL'l'PLAN 1A:BASE CASE W/O UPPER SUSITNA -1-7-82CHA
00110 *
00120 *FYR
00130 *1980
00140 *
00150 PRM:
00160 *
00170 *
00180 REPORTS:CADD
00190 *T
00200 *
00210 REPORTS:CPRT
00220 *T
00230 *
00240 ***************************DEMAND UNCERTAINTY ***************************
00250 *
00260 *
00270 *
00280 *
00290 2NDARY FILE:***.***
00300 *
00310 *************************CAPACITY-DECISION (CD)*************************
00320 *
00330 TECHNOLOGY:
00340 CAPFYR(MW)
00350 ADD+1(MW)
00360 ADD+2 (MW)
00370 ADD+3 (MW)
00380 ADD+4(MW)
00390 ADD+5 (MW)
00400 ADD+6(MW)
00410 ADD+7 (MW)
00420 ADD+8 (MW)
00430 ADD+9(MW)
00440 ADD+10(MW)
00450 ADD+11(MW)
00460 ADD+12(MW)
00470 ADD+13(MW)
00480 ADD+14(MW)
00490 ADD+15(MW)
00500 ADD+16(MW)
00510 ADD+17(MW)
00520 ADD+18(MW)
00530 ADD+19(MW)
00540 ADD+20(MW)
00550 ADD+21(MW)
00560 ADD+22(MW)
00570 ADD+23 (MW)
00580 ADD+24(MW)
00590 ADD+25(MW)
00600 ADD+26(MW)
00610 ADD+27(MW)
00620 ADD+28(MW)
00630 ADD+29(MW)
00640 ADD+30(MW)
00650 *
00660 CAPLIM(MW)
00670 MIX-LONG RN
00680 RES MARGIN
00690 SIZE (MW)
00700 1ST YR AVL
00710 ADD JUS(MW)
00720 STUDIES (YR)
00730 LICENSE(YR)
00740 CONSTR.(YR)
00750 STARTUP (YR)
00760 *HYDRO TECHNOLOGIES
00770 HYDRO TECH:AEHYD ACHAK AALLI TRANS
00780 CAPFYR(MW)46 0 0 0 0 0 0
00790 ADD+l (MW)12 0 0 0 0 a 0
00800 ADD+2 (MW)a 0 0 0 0 0 0
00810 ADD+3 (MW)0 0 0 0 0 0 0
00820 ADD+4 (MW)0 a a 0 a a 71
00830 ADD+5(MW)a a a a a a a
00840 ADD+6(MW)0 a a
a a 0 a
00850 ADD+7(MW)0 a a 0 a 0 0
00860 ADD+8(MW)90 a 0 a a a a
00870 ADD+9(MW)a a a 0 0 a 0
00880 ADD+lO(MW)0 a a a a a a
00890 ADD+11 (MW)a a a a 0 0 0
00900 ADD+12(MW)0 a a a 7 a 204
00910 ADD+13(MW)a a 0 a a a
a
00920 ADD+l4 (MW)a a a
a a a a
00930 ADD+15(MW)7 a 0 a a a a
00940 ADD+16(MW)a a
a a a 0 108
00950 ADD+17(MW)0 a a a a a 0
00960 ADD+18(MW)0 a a
a a a a
00970 ADD+19(MW)0 a a a 0 0 a
00980 ADD+20(MW)0 0 0 0 0 0 a
00990 ADD+21(MW)0 0 0 0 0 0 0
01000 ADD+22(MW)0 0 0 330 0 0 0
01010 ADD+23(MW)0 0 0 0 0 0 0
01020 ADD+24(MW)0 0 0 0 0 0 0
01030 ADD+25(MW)0 0 0 0 0 0 0
01040 ADD+26 (MW)0 0 0 0 0 a 0
01050 ADD+27(MW)0 0 0 0 0 0 0
01060 ADD+28(MW)0 0 0 0
0 0 0
01070 ADD+29(MW)0 0 0 0 0 0 0
01080 ADD+30(MW)0 0 0 0 0 0 0
01090 *
01100 CAPLIM(MW)155 0 0 330 7 a 2000
01110 MIX-LONG RN 0 a 0 .20 0 0 0
01120 RES MARGIN T T T T T T F
01130 SIZE(MW)7 90 7 330 0 0 0
01140 1ST YR AVL 1996 2003 2003·2003 2010 2010 2010
01150 ADD JUS(MW)50 99999 99999 50 50 99999 5
01160 STUDIES(YR)4 4 4
4 4 4 a
01170 LICENSE(YR)2 2 2 2 2 2 a
01180 CONSTR.(YR)2 3 3 3 3 1 1
01190 STARTUP (YR)0 a 0 a 0 0 a
01200 *
FIGURE 3.1.(contd)
3.3
01210 ***********************PRODUCTION SIMULATION (PS)***********************
01220 *
01230 TECHNOLOGY:AOGCT ANGCT AOGCC ANGCC ACST FCST F&GCD FGCC -----
01240 *
01250 MAINT-PEAK .300 .300 .300 .300 .300 .300 .300 .300 .300
01260 1-F.O.R..92 .92 .92 .92 .943 .943 .92 .92 .92
01270 EO AVAIL .89 .89 .85 .85 .863 .863 .85 ..85 .85
01280 *
01290 VC (M/KWH)4.4 4.4 1.6 1.6 0.6 0.6 4.4 1.6 0
01300 VCESC/YR .02 .02 .02 .02 .02 .02 .02 .02 .02
01310 ENV(M/KWH)0 0 0 0 0 0 0 0 0
01320 HR(BTU/KWH)12200 12200 8000 8000 10000 10000 12200 8000 0
01330 FTU 1 2 1 2 4 5 6 3
10
01340 *HYDRO TECHNOLOGIES
01350 HYDRO TECH:AHHYD ----------ACHAK AALLI -----TRANS
01360 *
01370 MAINT-PEAK .300 .300 .300 .300 .300 .300 .300
01380 1-F.O.R..95 .95 .95
.95 •95 .95 ..95
01390 EO AVAIL .94 .94 .94 .94 .94 .94 .94
01400 •
01410 VC(M/KWH)0 0 0 0 0 0 0
01420 VCESC/YR 0 0 0 0 0 0 0
01430 ENV(M/KWH)0 0
0 0 0 0 0
01440 *
01450 UTIL FACTOR •.50 .44 .50 .50 .50 .50 0
01460 •-FUEL COST CONSIDERATIONS -
01470 FUEL TYPE:1 2 3 4 5 6 7 8 9 10
01480 FUEL COST (S/MMBTU)
01490 FYR 0.44 loll 5.51 1.31 1.60 6.25 1.13 1.00 2.00 ***
01500 FYR+l 0.46 1.09 5.51 1.34 1.63 6.38 1.15 1.00 2.00 ***.
01510 FYR+2 0.45 1.10 5.51 1.37 1.66 6.50 1.17 1.00 2.00 ***
01520 FYR+3 0.46 1.09 5.51 1.40 1.69 6.63 1.19 1.00 2.00 .**
01530 FYR+4 0.47 1.10 5.51 1.43 1.72 6.67 1.21 1.00 2.00 ***
01540 FYR+5 0.54 1.10 5.51 1.46 1.75 6.90 1.23 1.00 2.00 ***
01550 FYR+6 0.61 1.37 5.51 1.49 1.78 7.04 1.24 1.00 2.00 ***
01560 FYR+7 0.68 1.58 5.51 1.52 1.81 7.18 1.26 1.00 2.00 ***
01570 FYR+8 0.76 1.68 5.51 1.55 1.84 7.32 1.29 1.00 2.00 ***
01580 FYR+9 0.89 1.87 5.51 1.58 1.87 7.47 1.31 1.00 2.00 ***
01590 FYR+10 1.46 2.11 5.51 1.62 1.91 7.62 1.33 1.00 2.00 ***
01600 FYR+ll 1.58 3.59 5.51 1.65 1.94 7.77 1.35 1.00 2.00 ***
01610 FYR+12 1.79 3.68 5.51 1.68 1.98 7.93 1.37 1.00 2.00 ***
01620 FYR+13 1.93 3.76 5.51 1.72 2.01 8.09 1.39 1.00 2.00 ***
01630 FYR+14 2.07 3.85 5.51 1.76 2.05 8.25 1.41 1.00 2.00 ***
01640 FYR+15 4.24 3.94 5.51 1.79 2.08 8.41 1.44 1.00 2.00 ***
01800 *
01810 FC ESC/YR .02 .02 .00 .021 .018 .02 .0160 .0000 .0000 ***
01820 *
01830 VARIABLE G-A (M/KWH):8.13
01840 •
01850 L.D.C.-.10 .20 .30 .40 .50 .60 .70 .80 .90 1.00
01860 *PEAK .765 .670 .590 .540 .500 .465 .425 .385 .335 .260
01870 *VMLDC .040 .100 .120 .120 .120 .120 .120 .110 .090 .060
01880 *PEAK WIDTH:.025
01890 *
01900 EMERGENCY ACTIONS AND UNSERVED ENERGY
01910 *
01920 TYPE:INRUPT INTIE1 INTIE2 VLT RD VOL C1 VOL PB VOL C2 DE
01930 CAPACITY(MW)0 0 0 0 0 0 0 ***
01940 AVAILABILITY .90 .90 .90 .90 .90 .90 .90
.**
01950 CAP PROP TO DEM\T T T T T T T ***
01960 OUT(T)/VAR(T)COST\T T T T T T T
T
01970 COST (M/KWH)70 48 48 100 300 400 500 1000
01980 COST.ESC/YR .0000 .0000 .0000 .0000 .0000 .0000 .0000 .0000
01990 *
FIGURE 3.1.(contd)
3.4
AFUDC
.076
20
30
0.0 .
0.0
o
.014
13
20
30
CWIP
0.0
0.0
0.0
923
.014
6.6
20
20
LOSS AND UNACC:.080
25
35
0.0
0.0
0.0
0.0
607
.014
2.5
REGULATORY LAG (YRS): 0
TRANS
CASH PCT.INT.PMTS:1.00
20
30
lTC-NOR
T
25
50
0.0
0.0
0.0
0.0
1943
.014
15.3
o 1000
.014 .014o0
0.0
20
30
25
50
ITC
0.0
0.0
0.0
0.0
0.0
1892
.014
15.3
7710
.014
22
20
30
25
50
DESC/YR:.0140
0.0
0.0
0.0
0.0
923
.014
6.6
4053
.014
6.5
20
30
25
50
0.0
0.0
0.0
0.0
o
.014
22
923
.014
6.6
INFLATION
.000
MAR.TAX RATE:
.0535 .0535 .0535 .0535 .0697 .0535 .0535
HYDRO TECHNOLOGIES
ACHAK AALLI
0.0
0.0
0.0
0.0
607
.014
2.5
o
.014
22
0.0
0.0
0.0
0.0
2610
.014
22
607
.014
2.5
FYR-ASSETS
.624E09
RATE-BASE GROWTH FYR-1:.000
02000 **************************FIXED CHARGE (FC)*****************************
02010 *
02020 TECHNOLOGY:AOGCT ANGCT AOGCC ANGCC ACST FCST F&GCD FGCC -----
02030 *
02040 CC (S/KW)
02050 CCESC/YR
02060 OM (S/KW-YR)
02070 *DELAYS:
02080 STUDIES
02090 LICENSE
02100 *
02110 *DISTR
02120 TL 24 20 20
02130 BL 35 30 30
02140 *FIXED-CHARGE RATES:
02150 .0490 .0535 .0535
02160 *
02170 HYDRO TECH:AEHYD
02180 *
02190 CC(S/KW)
02200 CCESC/YR
02210 OM (S/KW-YR)
02220 *DELAYS:
02230 STUDIES
02240 LICENSE
02250 *
02260 TL 25 25
02270 BL 50 50
02280 *FIXED-CHARGE RATES:
02290 .0399 .0399 .0399 .0399 .0399 .0399 .0490
02300 *
02310 DISTRIBUTION CC(S/GWH):4000
02320 *
02330 GENERAL:
02340 *
02350 *
02360 *YEAR FYR +3 +6 +9 +12 +15 +18
02370 *EXIST.DEBT .495E09 .415E09 .364E09 .319E09 .279E09 .245E09 .214E09
02380 *EX.DEBT INT ••239E08 .187E08 .164E08 .144E08 .126E08 .110E08 .960E07
02390 *EX.RATE BASE .454E09 .381E09 .334E09 .292E09 .256E09 .224E09 .197E09
02400 *
02410 *
02420 *
02430 *HIST.CAP.COST:.030
02440 *
02450 *FUTURE CAPITAL COST:.030
FIGURE 3.1.(contd)
3.5
Line Number
Old New
100 100
Ii)I
120-130
150-160
180-190
120-130
150-160
180-220
AREEP (Over/Under Version)Modifications
TITLE -No change (NC)
FYR -NC
THOR -NC
CONSTANT-$-SYS -NC
CONS.DISC -NC
CD -NC
FC -NC
PS -NC
YEARLY -NC
MWINC -This must now be a decimal value greater than
zero.
PRM -NC
LOW-HIGH-INC-NC
RMBAS -NC
RMINC -NC
BEGIN -NC
WINDOW -NC
END -NC
REPORTS -The AREEP version has three additional
output reports:CPRT,CSUM,and INTR.The table
below shows which models are required to make the
various reports meaningful.
3.6
I
j
l
i
Line Number
Old New
Output
Report
AREEP (Over/Under Version)Modifications
Models that must be run for
output to be meaningful
CPRT
CSUM
INTR
CD
X-
X
X
PS
X-
X
X
FC
X
if
230-400 None
CPRT -the capacity and energy generation report.One
tabTe is printed for each planning reserve margin and
each demand path.
CSUM -the cost summary report.One table is printed
for each planning reserve margin and each demand path.
INTR -the Anchorage-Fairbanks intertie report.One
table is printed for each planning reserve margin and
each demand path.
CADD -NC
PRICES -NC
FINOUT -NC
PCOS -NC
TPCOS -NC
PDET -NC
TPDET -NC
DEMAND UNCERTAINTY
TREE -Not used (NU)as input parameters in the AREEP
version
PERIODS -NU
.YRS/PERIOD -NU
3.7
Line Numberora·New
440 330
770
AREEP (Over/Under Version)Modifications
BRANCHES -NU
T.PROB -NU
FULL?-NU
PATHS -NU
PERFECT?-NU
PATHS:-NU
FYR DEMAND (MW)-NU
GROWTH PROBABILITIES:-NU
SHORT TERM (YRS)-NU
LONG-TERM (YRS)-NU
TECHNOLOGY:-NC
HYDRO TECH:-In the AREEP version line 330 may
contain up to 9 generating technologies.Line 770 may
contain up to 7 hydro technologies (technologies 10
through 16 are assumed to be hydro technologies).In
AREEP technology names beginning with an IIA II are
assumed to be located in the Anchorage-Cook Inlet
area,whereas technology names beginning with an IIF II
are assumed to be located in the Fairbanks-Tanana
Valley area.
3.8
Line Number
Old New
450 340
780
460-570 350-640
790-1080
580 650
1090
590 660
1100
600 670
1110
610 680
~1120I<
~620 690~1130I,630 700[,
~1140
"~640 710
1150
~650 720I1160
660 730l~)u 1170f:r
~670 740
I\i 1180
680 750
1190
AREEP (Over/Under Version)Modifications
CAPFYR(MW)-NC
ADD+1(MW)-NC
These lines must be blank,except for the asterisk(*)
in column 7 and the line number in columns 1-5.
CAPLIM(MW)-NC
MIX-LONG RN -Note that in AREEP the entries on lines
670 and 1110 should add to 1.0.
RES MARGIN -NC
SIZE (MW)-NC
1ST YEAR AVL -NC
ADD JUS(MW)-NC
STUDIES(YR)NC
LICENSE(YR)-NC
CONSTR.(YR)-NC
STARTUP(YR)-NC
3.9
None 1450 UTIL FACTOR -annual capacity factor in decimal
percent for hydro technologies (technologies
10 through 16).
None 1470-1790 FUEL COST ($/MMBTU)-fuel cost in dollars per million
BTU for each fuel type beginning in FYR.Entries must
be made for FYR and may be made for up to thirty more
years.For years beyond the last entry costs are
escalated as specified in line 1810.
Line NumbermerNew
720 1230
1350
730 1250
1370
740 1260
1380
750 1270
1390
770 1290
1410
780 1300
1420
790 1310
1430
None 1320
None 1330
AREEP (Over/Under Version)Modifications
PRODUCTION SIMULATION
TECHNOLOGY:-NC
HYDRO TECH:-for hydro technologies 10 through 16.
MAINT-PEAK -the limitation on this value does
not apply to technologies 10 through 16.
l-F.O.R.-NC
EQ AVAIL -NC
VC(M/KWH)-fuel costs for technologies 1 through 9
are entered separately;refer to line 1330.
VCESC/YR -fuel cost escalation for technologies
1 through 9 are entered separately;refer to line 1810.
ENV(M/KWH)-NC
HR(BTU/KWH)-heat rate for technologies 1 through 9.
FTU -fuel type used by technologies 1 through 9.
This entry should be an integer 1 through 9
corresponding to one of the fuel type price streams
defined in lines 1470 through 1790.A fuel type of 10
indicates no fuel used.
3.10
Line Number
Old New AREEP (Over/Under Version)Modifications
None
None
810
830-850
870-890
None
1800 This line must be blank except for the asterisk (*)in
column 7 and the line number in columns 1 through 5.
1810 FC ESC/YR -real fuel cost escalation rate per year as
a decimal percent.This escalation rate applies only
to the years subsequent to the last entry in lines
1490-1790.
1830 VARIABLE G-A(M/KWH}-NC
None The contents of these lines do not exist as data input
parameters in the AREEP version.
1850-1860 L.O.C -load-duration curve data.These data are
entered in the same format as in the original model.
Since the AREEP version deals with the entire year,
the load duration curve description given in line 1860
should represent the entire year.This should be a
typical load duration curve since AREEP calculates
load duration curves for each demand path and year.
This·is done to keep the load duration curve
consistent with the peak load and annual energy input
data.P.ENRG and P.YR do not exist as data input
parameters in the AREEP version.
1870 VMLOC -Percent of the load duration curve (LOC)
adjustment area corresponding to 0-10%,10-20%,etc.
as a decimal percent.These values must add to 1.0.
The AREEP version uses the VMLOC values to adjust the
LOC entered on line 1860 to fit a particular year's
peak demand and annual energy.Given the peak demand
(Peak)and annual energy (Energy)for a particular
year,a yearly load factor (YLFR)is calculated
YLFR =Energy
Peak *8.76.
The area under the typical LOC presented in line 1860
is calculated in AREEP.The area under the LOC (YLF)
and the YLFR calculated should be equal.If they are
not equal (within 1%of each other),a new LOC is
defined by decreasing or increasing the area under
each segment of the typical LOC by the corresponding
YMLOC percentage of the difference between YLF and
YLFR.
3.11
Line Number
Old New AREEP (Over/Under Version)Modifications
900 1880 PEAK WIDTH -NC
940 1920 TYPE -NC
950 1930 CAPACITY(MW)-NC
960 1940 AVAILABILITY -NC
970 1950 CAP PROP TO OEM?-NC
980 1960 OUT(T)/VAR(F)COST?-NC
990 1970 COST(M/KWH)-NC
1000 1980 COST.ESC/YR -NC
FIXED CHARGE
1040 2020 TECHNOLOGY:-NC
2170 HYDRO TECH:-for hydro technologies 10 through 16.
1060 2040 CC ($/KW)-NC
2190
1070 2050 CCESC/YR -NC
2200
1080 2060 9M($/KW-YR)-NC
2210
1100 2080 STUDIES -NC
2230
1110 2090 LICENSE -NC
2240
1130 2110 DISTR -NC
1140 2120 TL -NC
2260
1150 2130 BL -NC
2270
3.12
None 2140-2150 FIXED-CHARGE RATES -revenue requirements for each year
2280-2290 as a percent of installed capital cost in decimal
percent.
1160 None FIXED-CHARGE PROFILES -NU
1170 None 1 -NU
1180 None TL/2 -NU
1190 None TL -NU
1200 None TL+1 -NU
1210 None BL -NU
AREEP (Over/Under Version)Modifications
EXIST.DEBT -NC
EX.DEBT INT.-NC
EX.RATE BASE NC
RATE-BASE GROWTH FYR-1 -NC
REGULATORY LAG(YRS)-NC
2370
2380
2390
2410
2360
Line Number
Old New
1280
1290
1300
1310
1320
1230 2310 DISTRIBUTION CC($/GWH)-NC
DESC/YR -NC
LOSS AND UNACC -NC
1250-1260 2330-2340 FYR ASSETS -NC
INFLATION -NC
ITC -NC
ITC-NOR -NC
CWIP -NC
AFUDC -NC
YEAR -NC
3.13
Line Number
Old New AREEP (Over/Under Version)Modifications
SECONDARY INPUT DATA FILE
An example secondary data file is illustrated in Figure 3.2.This is the
secondary data file for Case 1A as presented in Volume I of the study series.The
following is a description of the fields in the secondary input data file.
Delivered Electricity
For each area (Anchorage-Cook Inlet,Fairbanks-Tanana Valley and
Glennallen-Valdez)and for each five year increment from the first year of the
model run (FYR1,the required peak demand in megawatts and annual energy in
gigawatt hours are entered for each demand path (low,medium,and high)as
follows:
YEAR
LOW -(Low demand path)
PEAK (MW)
ANN (GWH)
FUTURE CAPITAL COST -The cost of capital in decimal
percent.NOTE:This should be with inflation rates
and full cost escalation rates.
decimal
decimal
Value Type
Integer
3.14
Columns
2 - 5
8 -16
17 -25
HIST.CAP.COST -NC
MAR.TAX RATE -NC
CASH PCT.INT.PMTS -NC
INTEREST COVERAGE -NU
COST OF COMM -NU
COST OF PREF -NU
COST OF DEBT -NU
PCT.ASSETS -NU
MAR.COST -NU
None
2430
2450
1360
1340
None
*
- - - - -DELIVERED ELECTRICITY - - - - -
3.15
38.6
47.2
125.7
143.4
162.8
183.7
208.2
2025.7
2423.5
3008.5
3686.0
4089.5
4555.3
5366.6
486.6
665.1
1154.5
1156.8
892.5
793.3
794.4
8.5
10.3
28.5
32.4
36.7
41.2
46.6
113.4
155.0
269.0
269.5
208.0
184.9
185.1
414.9
496.4
616.2
736.7
819.4
914.8
1081.0
38.6
47.2
92.6
110.4
129.8
150.7
175.2
2025.7
2423.5
3008.5
3607.6
4011.1
4476.9
5288.1
486.6
665.1
1154.5
1156.8
892.5
793.3
794.4
8.5
10.3
20.8
24.7
28.9
33.5
38.8
113.4
155.0
269.0
269.5
208.0
184.9
185.1
414.9
496.4
616.2
728.2
810.9
906.3
1072.5
38.6
47.2
59.6
77.3
96.7
117.6
142.1
486.6
665.1
1154.5
1156.8
892.5
793.3
794.4
2025.7
2423.5
3008.5
3533.1
3936.6
4402.4
5213.7
8.5
10.3
13.0
16.9
21.2
25.7
31.1
PATHS:LOW KED HIGH
YEAR PEAK(MW)ANN(GWH)PEAK(MW)ANN(GWH)PEAK(MW)ANN (GWH)
*
********************DEMAND AND ANNUAL ENERGY ****************
*
FIGURE 3.2;Example Secondary Input Data File
ANCHORAGE:
1980 414.9
1985 496.4
1990 616.2
1995 719.7
2000 802.4
2005 897.8
2010 1064.0
*FAIRBANKS:
1980 113.4
1985 155.0
1990 269.0
1995 269.5
2000 208.0
2005 184.9
2010 185.1
*GLENNALLEN :
1980
1985
1990
1995
2000
2005
2010
*
...- - - -
LOAD MANAGEMENT AND CONSERVATION ....--0 __
"YEAR ANN(GWH)PEAK(MW)T-COST(1980$X 1000)P-COST (M/KWH)
"ANCHORAGE:
"LOW:
1980 0.0 0.0 0.0 0.0
1981 0.0 0.0 0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0
0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0
0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0 0.0 0.0
1991 0.0 0.0
0.0 0.0
1992 0.0 0.0
0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0 0.0 0.0
1995 0.0 '0.0 0.0 0.0
1996 0.0 0.0
0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0 0.0 0.0
1999 0.0 0.0
0.0 0.0
2000 0.0 0.0
0.0 0.0
2001 0.0 0.0 0.0 0.0
2002 0.0 0.0 0.0 0.0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0 0.0 0.0
2005 0.0 0.0
0.0 0.0
2006 0.0 0.0
0.0 0.0
2007 0.0 0.0
0.0 0.0
2008 0.0 0.0
0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0 0.0 0.0
*MED:
1980 0.0 0.0
0.0 0.0
1981 0.0 0.0 0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0 0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0
0.0 0.0
1989 0.0 0.0
0.0 0.0
1990 0.0 0.0
0.0 0.0
1991 0.0 0.0 0.0 0.0
1992 0.0 0.0
0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0
0.0 0.0
1995 0.0 0.0
0.0 0.0
1996 0.0 0.0 0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0 0.0 0.0
1999 0.0 0.0 0.0 0.0
2000 0.0 0.0 0.0 0.0
2001 0.0 0.0
0.0 0.0
2002 0.0 0.0 0.0 0.0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0 0.0 0.0
2005 0.0 0.0 0.0 0.0
2006 0.0 0.0 0.0 0.0
2007 0.0 0.0 0.0 0.0
2008 0.0 0.0 0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0
0.0 0.0
*
FIGURE 3.2.(contd)
3.16
HIGH:
1980 0.0 0.0 0.0 0.0
1981 0.0 0.0 0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0 0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0 0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0 0.0 0.0
1991 0.0 0.0 0.0 0.0
1992 0.0 0.0 0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0 0.0 0.0
1995 0.0 0.0 0.0 0.0
1996 0.0 0.0 0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0 0.0 0.0
1999 0.0 0.0 0.0 0.0
2000 0.0 0.0 0.0 0.0
2001 0.0 0.0
0.0 0.0
2002 0.0 0.0 0.0 0.0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0 0.0 0.0
2005 0.0 0.0 0.0 0.0
2006 0.0 0.0 0.0 0.0
2007 0.0 0.0 0.0 0.0
2008 0.0 0.0 0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0 0.0 0.0
*FAIRBANKS:
*LOW:
1980 0.0 0.0 0.0 0.0
1981 0.0 0.0 0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0 0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0 0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0 0.0 0.0
1991 0.0 0.0 0.0 0.0
1992 0.0 0.0 0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0 0.0 0.0
1995 0.0 0.0 0.0 0.0
1996 0.0 0.0 0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0 0.0 0.0
1999 0.0 0.0
0.0 0.0
2000 0.0 0.0 0.0 0.0
2001 0.0 0.0 0.0 0.0
2002 0.0 0.0 0.0 0.0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0 0.0 0.0
2005 0.0 0.0 0.0 0.0
2006 0.0 0.0 0.0 0.0
2007 0.0 0.0 0.0 0.0
2008 0.0 0.0 0.0 0.0
2009 0.0 0.0
0.0 0.0
2010 0.0 0.0 0.0 0.0
*
FIGURE 3.2.(contd)
3.17
MED:
1980 0.0 0.0 0.0 0.0
1981 0.0 0.0 0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0 0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0
0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0 0.0 0.0
1991 0.0 0.0
0.0 0.0
1992 0.0 0.0
0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0 0.0 0.0
1995 0.0 0.0 0.0 0.0
1996 0.0 0.0
0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0
0.0 0.0
1999 0.0 0.0 0.0 0.0
2000 0.0 0.0
0.0 0.0
2001 0.0 0.0 0.0 0.0
2002 0.0 0.0 0.0 0.0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0 0.0 0.0
2005 0.0 0.0 0.0 0.0
2006 0.0 0.0 0.0 0.0
2007 0.0 0.0 0.0 0.0
2008 0.0 0.0 0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0 0.0 0.0
*HIGH:
1980 0.0 0.0
0.0 ·0.0
1981 0.0 0.0
0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0
0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0 0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0 0.0 0.0
1991 0.0 0.0 0.0 0.0
1992 0.0 0.0 0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0 0.0 0.0
1995 0.0 0.0 0.0 0.0
1996 0.0 0.0 0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0
0.0 0.0
1999 0.0 0.0
0.0 0.0
2000 0.0 0.0
0.0 0.0
2001 0.0 0.0 0.0 0.0
2002 0.0 0.0 0.0 0.,0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0 0.0 0.0
2005 0.0 0.0
0.0 0.0
2006 0.0 0.0
0.0 0.0
2007 0.0 0.0
0.0 0.0
2008 0.0 0.0 0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0 0.0 0.0
*
FIGURE 3.2.(contd)
3.18
GLENNALLEN :..
LOW:
1980 0.0 0.0 0.0 0.0
1981 0.0 0.0 0.0 0.0
1982 0.0 0.0
0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0 0.0 0.0
1985 0.0 0.0
0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0 0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0 0.0 0.0
1991 0.0 0.0 0.0 0.0
1992 0.0 0.0 0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0 0.0 0.0
1995 0.0 0.0 0.0 0.0
1996 0.0 0.0 0.0 0.0
1997 0.0 0.0
0.0 0.0
1998 0.0 0.0
0.0 0.0
1999 0.0 0.0 0.0 0.0
2000 0.0 0.0 0.0 0.0
2001 0.0 0.0 0.0 0.0
2002 0.0 0.0 0.0 0.0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0 0.0 0.0
2005 0.0 0.0
0.0 0.0
2006 0.0 0.0
0.0 0.0
2007 0.0 0.0 0.0 0.0
2008 0.0 0.0 0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0 0.0 0.0..
MED:
1980 0.0 0.0 0.0 0.0
1981 0.0 0.0
0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0 0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0
0.0 0.0
1988 0.0 0.0 0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0
0.0 0.0
1991 0.0 0'.0 0.0 0.0
1992 0.0 0.0 0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0
0.0 0.0
1995 0.0 0.0 0.0 0.0
1996 0.0 0.0'0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0 0.0 0.0
1999 0.0 0.0
0.0 0.0
2000 0.0 0.0 0.0 0.0
2001 0.0 0.0 0.0 0.0
2002 0.0 0.0 0.0 0.0
2003 0.0 0.0
0.0 0.0
2004 0.0 0.0
0.0 0.0
2005 0.0 0.0
0.0 0.0
2006 0.0 0.0 0.0 0.0
2007 0.0 0.0 0.0 0.0
I
2008 0.0 0.0 0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0 0.0 0.0..
FIGURE 3.2.(contd),
I;~3.19
'1
)
i~
HIGH:
1980 0.0 0.0 0.0 0.0
1981 0.0 0.0 0.0 0.0
1982 0.0 0.0 0.0 0.0
1983 0.0 0.0 0.0 0.0
1984 0.0 0.0
0.0 0.0
1985 0.0 0.0 0.0 0.0
1986 0.0 0.0 0.0 0.0
1987 0.0 0.0 0.0 0.0
1988 0.0 0.0
0.0 0.0
1989 0.0 0.0 0.0 0.0
1990 0.0 0.0 0.0 0.0
1991 0.0 0.0 0.0 0.0
1992 0.0 0.0
0.0 0.0
1993 0.0 0.0 0.0 0.0
1994 0.0 0.0
0.0 0.0
1995 0.0 0.0 0.0 0.0
1996 0.0 0.0 0.0 0.0
1997 0.0 0.0 0.0 0.0
1998 0.0 0.0
0.0 0.0
1999 0.0 0.0
0.0 0.0
2000 0.0 0.0
0.0 0.0
2001 0.0 0.0
0.0 0.0
2002 0.0 0.0
0.0 0.0
2003 0.0 0.0 0.0 0.0
2004 0.0 0.0
0.0 0.0
2005 0.0 0.0
0.0 0.0
2006 0.0 0.0 0.0 0.0
2007 0.0 0.0 0.0 0.0
2008 0.0 0.0
0.0 0.0
2009 0.0 0.0 0.0 0.0
2010 0.0 0.0 0.0 0.0
FIGURE 3.2.(contd)
3.20
MED -(Medium demand path)
PEAK (MW)
ANN (GWH)
HIGH -(High demand path)
PEAK (MW)
ANN (GWH)
Columns
27 -35
36 -44
46 -54
55 -63
Value Type
decimal
decimal
decimal
dec ima 1
The program uses linear interpolation to calculate the values for the
years between those years entered.
load Management and Conservation
For each area (Anchorage-Cook Inlet,Fairbanks-Tanana Valley,and
Glennallen-Valdez),for each demand path (low,medium and high),and for each
year of the forecast period,including FYR,the annual energy savings in
gigawatt hours,the peak demand savings in megawatts,the total cost in
thousands of FYR dollars,and the power cost in mills per kilowatt hours
resulting from load management and conservation activities are entered as
follows:
Columns Value Type
2 -
5 integer
7 -
16 decimal
17 -26 decimal
39 -48 decimal
YEAR
ANN (GWH)
PEAK (MW)
T-COST
(FYR $XlOOO)
P-COST (M/KWH)54 -63
3.21
decimal
4.0.DATA OUTPUT
This chapter describes the three new reports produced by the AREEP
version of the Over/Under model.These reports are called the Capacity and Energy
Generation report (CPRT),the Cost Summary report (CSUM),and the
Anchorage-Cook Inlet-Fairbanks~Tanana Valley Intertie report (INTR).The
figures used to illustrate the reports are AREEP outputs for Case lA (Base
Case Without Upper Susitna),as presented in Volume I of the study series.In
addition to describ1ng these reports,differences from the original reports of the
EPRI Over/Under model are noted and the AREEP output data file used by the RED
model is described.
CAPACITY AND ENERGY GENERATION (CPRT)
Tables:1 per PRM,per tree path
The CPRT report (Figure 4.1)shows the capacity in megawatts and the energy
generation in gigawatt hours for the technology types and years of the
planning horizon.
Each table in the report contains a summary line at the top with these entries:
BY YEAR -the planning horizon for this table.
PRM -the planning reserve margin for this table.
TREE PATH -the demand path (LOW,MEDIUM,or HIGH)for this table.All
ones represent LOW demand,all twos represent MEDIUM demand,and all
threes represent HIGH demand.
Beneath this top summary line,there are up to twelve columns of data,
depending on the number of technology types with capacity and energy
generation available.The column headings are as follows:
YEAR -the year in which capacity (energy generation)is available.
Additions and retirements are made as of the beginning of the year.
DEMAND -the total demand in megawatts for that year.This is the sum of
the data input demand for the three areas,(Anchorage-Cook Inlet,
Fairbanks-Tanana Valley and Glennallen-Valdez)times COINF,times
(1 +ELOSS),where ELOSS is the "loss and unaccounted for"data input
value and COINF is the "coincidence factor",set in subroutine INCONS.
4.1
I!F
RAILBELT PLAN lA:BASE CASE W/O UPPER SUSITNA -1-7-112CHA CPRT REPORT
PEAK DEMANO ~CAPAClfY (M~)BY YEARt 1980-2010,PIHoI:0.300,TREE PATH-222222
YEAR DEMAND HYDIW ADGCr ANGCT AO~CC ANGCC ACSr fCST F&GCO FGCC
1980 562.46.379.112.tI.139.o.691.266.o.
1981 589.58.379.82.o.139.o.69.266.o.
1982 615.58.2&9.172.178.139.O.&9.2&6.o.
1983 641.58.269.172.1111.139.o.69.258.O.
1984 667.129.269.172.118.139.O.69.258.o.
1985 693.129.269.112.1711.139.o.69.258.o.
1986 744.129.269.172.178.139.O.69.257.O.
1987 796.129.269.172.i711.1 :)9.o.65.249.o.
1988 847.219. 269.172. 178.139.O.65.243.O.
19119 8911.219.269.172.178.139.O.fiO.243.o.
1990 949.219.21>9.112.178.139.O.60.243.O.
1991 914.219.269.172.178.139.o.60.225.100.
1992 998.430.269.156.178.139.200.60.206.100.
~1993 1022.430.260.156.176.139.200.60.206.100 •.1994 1047 •430.246.140.178.139.200.60.206.100.N
1995 1071."37.232.140.178.139.200.60.113.100.
1996 1076.545.232.140.118.339.200.60.71.100.
1991 1082.545.232.140.178.339.200.260.6.100.
19911 1081.545.200.122.178.339.200.260.6.100.
1999 1092.545.200.122.178.339.200.260.6.100.
2000 10911.545.182.122.118.339.200.260.6.100.
2001 1114.545.182.122.178.3391.200.260.6.100.
2002 1130.875.163.90.178.339.200.235.6.100.
2003 1146.875.110.90.178.339.200.235.6.100.
2004 11&2.815.110.90.178.339.200.235.6.100.
2005 lOll.875.52.90.171l.339.200.214.6.100.
2006 1214.875.52.90.178.339.200.214.6.100.
2001 1250.1175.52.90.118.339.200. 214.6.100.
2008 128&.975.26.90.178.339.200.214.6.100.
2009 1322.875.26.90.178.339.200.214.6.100.
2010 1358.875.2&.90.118.339.200.214.6.200.
FIGURE 4.1.CPRT Report
RAIL8ELt PLAN lA:BASE CASE WID UPPER SUSITNA -1-7-82CHA CPRT REPORT
ENERGY GENERATION (GWH)8Y YEAR:1980-201(J,PRM=0.300,TREE PATH~222222
YEAR ENERGY IIYORO ADGCr ANGCr AOGCC ANGCC ACS!FeST F&GCI>FGeC
1980 2755.
1981 2881.254.2013.4.o.46.o.537 •27.o.
1982 3008.254.763.2.1366.20.o.537.66.o.
1983 3134.254.835.4.1368.32.o.537.104.o.
1984 3260.254.940.1.1373.13.o.5J7 •t43.o.
1985 3387.254.405.4.1400.865.o.459.o. o.
1986 3629.254.1338.7.1403.62.o.537.27.o.
1987 3810.254.1423.17.1400.105.o.537 •133.o.
1988 4112.648.1237 •'7.1400.45.o.537.238.o.
1989 4354.648.1344.11.1402.67.o.496.386.o.
1990 4596.648.953.45.1410.1080.o.457.3.o.
-l:=>1991 4130.648.1861.11.1410.245.o.496.1.51..1992 4864.619.14q.o•1410.19.1578.421.o.2.w 1993 4991.619.957.1.1410.28.1584.436.o.3.
1994 5131.679.964.1.1390.38.1611.443.o.5.
1995 5265.710.12.79.1105.1057.1611.496.o.197 •
1996 5299.710.1.9.209.2235.1611.496.o.29.
1997 5333.110.o.1.29.966.1611.2013.o.3.
1998 5368.110.o.1.32.992.1611.2019.o.4.
1999 5402.710.o.1.37.1020.1611.2020.o.4.
2000 5436.71 ().o.1.40.1045.1611.2026.o.4.
2001 5520.710.o.1•49.1110.1611.2034.o.5.
2002 5603.2155.o.o.5.164.1611.1668.o.o.
2003 5687.2155.o.o.6.116.1611.1138.o.o.
2004 5771.2155.o.o.7.189.1611.1809.o.o.
2005 5855.2155.o.o.12.360.1611.1716.o.1.
2006 6035.2155.o.o.16.531.1611.1722.o.1.
2001 6216.2155.o.o.20.702.1611.1121.o.1.
2008 6397.2155.o.o.24.875.1611.1730.o.2.
2009 6518.2155.o.1.10.1049.1611.1732.o.20.
2010 6758.2155.o.o.3.1222. 1611.1134.o.33.
FIGURE 4.1.(contd)
ENERGY -the total energy generation in gigawatt hours required for that
year.This is the sum of the data input energy generation for the three
areas,(Anchorage-Cook Inlet,Fairbanks-Tanana Valley,and
Glennallen-Valdez)times (1 +ELOSS).
HYDRO -The capacity and energy generation for all hydro technologies
(entered on line 770 of the data input)are combined in this column.
TECHNOLOGY TYPES -The next several columns are the technology names
entered on line 330 of the data input.Data in these columns are the
capacity (energy generation)available from each of these technology
types.If a technology has no capacity (energy generation)for every
year of the planning horizon,then the technology will not be listed in
the table.
COST SUMMARY REPORT (CSUM)
Tables:1 per PRM,per tree path
The CSUM report (Figure 4.2)shows the total electrical requirement costs
broken down by deliverea energy and load management and conservation.This
report combines the costs derived from the model and the costs supplied from
the secondary input data file.
The top line of each table in the report contains the following entries:
PRM -the planning reserve margin for the table.
TREE PATH -the demand path (LOW,MEDIUM,or HIGH)for this table.All
ones represent LOW demand,all twos represent MEDIU~I demand,and all
threes represent HIGH demand.
The column headings for this table are as follows:
YEAR -the year for which the costs are shown,as of the end of that year.
TOTAL ELECTRICAL REQUIREMENTS:
ANNUAL ENERGY -the energy generation in gigawatt hours required for that
year.This is the sum of the ANNUAL ENERGY entries under the DELIVERED
ENERGY and the LOAD MANAGEMENT AND CONSERVATION headings.
PEAK -the peak demand requirements in megawatts for that year.This is
the sum of the PEAK entries under the DELIVERED ENERGY and LOAD
MANAGEMENT AND CONSERVATION headings.
TOTAL COST -the total costs of energy in FYR millions of dollars for
that year.This is the sum of the TOTAL COST entries under the DELIVERED
ENERGY and LOAD MANAGEMENT AND CONSERVATION headings.
4.4
HAILBELT PLAN lAI BASE CASE WID UPPER SUSITNA -1-1-92CHA CSUM REPORT
,PRII:0.300 TREE PATH:222222
LOAD MANAGEMENT AND
rOtA~ELECTRICAL REQUIREMENTS OELIIIEREI>'ENERGY CONSERVATION ELECTRICITY
ANNUAL TOTAL POWER ANNUAl,.TOrAL POWER ANNUAL TOTAL POWER
YEAR ENERGY PEAK COST COST ENERGY PEAK COS'I'cos'r ENERGY PEAK COST COST
(GIrIH)(Mil)19808 -'1/KIIH (GWH)(Mil)19808 -M/KIIH (Gill")(MW)1980$-M/KWH
MILLIONS MILLIONS M1LLIONS
1980 2155.562.113.23 41.1 2155.562.113.23 41.1 o.o.0.00 0.0
1981 2881.589.118.64 41.2 2881.589.118.64 41.2 o. o.0.00 0.0
1982 3008.615.129.79 43.2 3008.&15.129.79 43.2 o.o.0.00 0.0
1983 3134.641.135.54 43.2 3134.&41.135.54 43.2 o.o.0.00 0.0
1984 3260.6&7.136.22 41.8 3260.667.136.22 41.8 o.o.0.00 0.0
1985 H81.693.127.89 31.8 33IH.693.121.89 37.8 o.o.0.00 0.0
1986 3629.744.139.21 38.4 3629.744.139.21 38.4 o.o.0.00 0.0
1987 3810.196.155.25 40.1 3810.196.155.25 40.1 o.o.0.00 0.0
1988 4112.847.180.20 43.8 4112.847.180.20 43.8 o.o.0.00 0.0
1989 4354.898.204.09 46.9 4354.898.204.09 46.9 o.o.0.00 0.0
1990 4596.949.193.02 42.0 4596.949.193.02 42.0 o.o.0.00 0.0
1991 4730.974.218.61 46.2 47)0.974.218.61 46.2 o.o.0.00 0.0
1992 4864.998.258.16 53.1 4864.,998.258.16 53.1 o. o.0.00 0.0
1993 4997.1022.267.80 53.6 4991.1022.261.80 53.6 o.o.0.00 0.0
1994 5131.1047 •279.44 54.5 5131.1041.279.44 54.5 o.o.0.00 0.0
+::>1995 5265.1011.320.29 60.8 5265.1011.320.29 60.8 o.o.0.00 0.0.1996 5299.1076.339.58 64.1 5299.1076.339.58 64.1 o. o.0.00 0.00119975333.1082 •355.52 66.1 SUl.1082.355.52 66.1 o. o.0.00 0.0
1998 53611.1081.361.12 61.3 5368.1081.361.12 61.3 o.O.0.00 0.0
1.,99 5402.1092.376.26 69.1 5402.1092.376.26 69.1 o.o.0.00 0.0
2000 5436.1098.381.7 R 10.2 5436.1098.381.-,0 70.2 o.o.0.00 0.0
2001 5520.1114.388.00 10.3 5520.1114.388.00 10.3 o.o.0.00 0.0
2002 5603.tl30.418.64 14.1 5603.1130.418.64 14.1 o.O.0.00 0.0
2003 5681.1146.423.4&14.5 5681.1146.423.46 14.5 o.o.0.00 0.0
2004 5111.1162.428.88 14.3 5111.1162.428.88 14.3"o.O.0.00 0.0
2005 5855.1118.436.12 14.6 5855.11 78.436.12 14.6 o. o.0.00 0.0
2006 6035.1214.449.34 74.5 6035.1214.449.34 14.5 o. o.0.00 0.0
2001 6216.1250.462.62 74.4 6216.1250.462.62 14.4 o.o.0.00 0.0
2008 6391.1286.4'16.46 14.5 tt191.11.86.47&.46 14.5 o. o.0.00 0.0
2009 6518.1322.491.05 14.1 6519.1322.491.05 14.1 o.o.0.00 0.0
2010 6158.1358.515.32 16.3 &158.1358.515.12 76.3 O.O.0.00 0.0
PIITC 5414.43 5414.43 0.00
LPC 58.0 58.0 0.0
FIGURE 4.2.CSUM Report
POWER COST -the total power cost in FYR mills per kilowatt hour for that
year.This is the TOTAL COST entry divided by the ANNUAL ENERGY entry,
times a scaling factor of 1000.
DELIVERED ENERGY:
ANNUAL ENERGY -the delivered energy generation requirements in gigawatt
hours for that year.This is the sum of the data input annual energy for
the three areas (Anchorage-Cook Inlet,Fairbanks-Tanana Valley,and
Glennallen-Valdez)times (1 +ELOSS)where ELOSS is the 1I10s s and
unaccounted for ll data input value.
PEAK -the delivered energy peak demand requirements in megawatts for
that year.This is the sum of the data input demand for the three areas
(Anchorage-Cook Inlet,Fairbanks-Tanana Valley,and Glennallen-Valdez)
times COINF,times (1 +ELOSS)where COINF is the II co incidence factor ll
set in subroutine INCONS.
TOTAL COST -the total cost of delivered energy in FYR millions of
dollars for that year.This is.the POWER COST entry times the ANNUAL
ENERGY entry,divided by a scaling factor of 1000.
POWER COST -the cost of delivered energy in mills per FYR killowatt hour
for that year.This is the sum of the V+E+O entry and the FIXED entry
under the FYR DOLLARS heading of the PRICES report.
LOAD MANAGEMENT AND CONSERVATION ELECTRICITY:
ANNUAL ENERGY -the amount of energy generation in gigawatt hours
displaced by load management and conservation activities for that year.
This is the sum of the data input load management and conservation energy
entries for the three areas (Anchorage-Cook Inlet,Fairbanks-Tanana
Valley,and Glennallen-Valdez).
PEAK -the amount of peak demand in megawatts displaced by load
management and conservation activities for that year.This is the sum of
the data input load management and conservation peak demand entries for
the three areas times COINF,where COINF is the II co incidence f~ctorll set
in subroutine INCONS.
TOTAL COST -the total cost of load management and conservation
activities in FYR millions of dollars for that year.This is the sum of
the data input load management and conservation total cost entries for
the three areas divided by a scale factor of 1000.
POWER COST -the cost of load management and conservation activities in
FYR mills per kilowatt hours for that year.This is the TOTAL COST entry
divided by the ANNUAL ENERGY entry,times a scale factor of 1000.
4.6
The bottom of the table contains two summary lines:
PVTC -The present value of the TOTAL COST column.That is,
LR [(1 +INFLA)i]PVTC =TC FYR +i:l TC FYR+i 1 +CDSC
where:TC FYR =total cost for the first year of the model
LR =number of years in the planning horizon
TC FYR+i =total cost in year FYR+i of the planning horizon
INFLA =data input value:"annual inflation rate"
CDSC =data input value:"consumer discount rate"
**NOTE:In the study,INFLA was set equal to zero and CDSC equal to 3 percent,
the ureal"discount rate.The same results will be forthcoming if a
consistent set of nominal rates--e.g.,seven percent and ten percent,
respectively--are used.
LPC -Levelized power ~ost.That is,
LPC =(PVTC x 1000)1
LR [(1 +INFLA)i]AE FYR +i~l AE FYR+i 1 +CDSC
where:AEFYR =annual energy for the first year of the model
AEFYR+i =annual energy for year FYR+i of the planning
horizon
and LR,INFLA,CDSC are as above.
ANCHORAGE-COOK INLET -FAIRBANKS-TANANA VALLEY INTERTIE REPORT (INTR)
Tables:1 per PRM,per tree path
The INTR report (Figure 4.3)shows the peak demand and energy requirements for
the Anchorage-Cook Inlet,Glennallen-Valdez,and Fairbanks-Tanana Valley areas
4.7
Fc~'
RAILBELT PLAN lAg BASE CASE W/O UPPER SUSITNA -i-1-82CHA
PRH=0.300 fREE PATH=222222
ANCHORAGE
PEAK INSTALLED ANNUAL ANNUAL
OEMANl)CAPAC I n ENE:RGlt GEN~RATlON LOLl'
Yfi:AR (Mw)(/0110 (GwlI)(Gvlln OAlt5/10 YR
1980 457.3 646.0 222"'.4
1981 475.3 658.0 231 7.2 2.316.4 10.593
1982 493.3 816.0 H05.()H04.9 0.356
1983 511.3 816.0 H92.R 2492.7 1.001
1984 529.2 816.0 2580.6 2580.6 0.201
1985 547.2 916.0 2"611.4 2928.3 1.283
1986'515.4 "816.0 2804.5 3064.3 2.145
1987 603.5 816.0 2940.7 3200.1 6.701
1988 631.7 906.0 3076.9 3336.7 2.356
1989 659.8 906.0 3213.0 3472.6 4.334
1990 688.0 906.0 3349.2 4136.)0.207
1991 113.0 906.0 3482.4 4182.0 0.091
-Po 1992'738.0 1097.0 )615.7 4435.3 0.000.1993 163.1 1088.0 3748.9 4558.8 0.001ex>1994 788.1 1058.0 3882.2 4611.1.0 0.003
1995 813.1 1051.0 4015.4 4572.1 0.016
1996 831.9 1251.0 4106.8 4771.4 0.016
1991 850.7 1251.0 41911.1 3317.1 O.OOS
1998 869.4 1201.0 4299.5 3345.5 0.023
1999 888.2 1201.0 4380.8 3371.7 0.025
2000 907.0 1183.0 4412.2 3406.4 0.043
2001 928.6 ,1183.0 4577.3 3480.8 0.048
2002 950.2 1462.0 4682.4 3935.1 0.002
2003 971.8 1409.0 4787.6 3948.4 0.007
2004 993.4 1409.0 4892.7 3961.7 0.012
2005 1015.0 1351.0 4997.8 4138.0 0.0"18
2006 1052.0 1351.0 5178.3 4312.6 0.140
2007 1089.1 1351.0 5358.8 4488.3 0.224
2009 1126.1 1325.0 5539.3 4&65.0 0.537
2009 1163.2 1325.0 5719.9 4826.0 0.860
2010 1200.2 1325.0 5900.4 4991.1 0.275
FIGURE 4.3.INTR Report
RAIL8ELT PLAN lA:BASE CASE W/O UPPER SUSI!NA -1-7-82CHA
PRM=0.]00 TREE PATH=222222
FAIRBANKS INTERTIE
PEAK INSTALLED ANNUAL ANNUAL MAXIMUM ENERGY
DEMAND CAPACIU ENERGY GF.NH<ATION CAPACITY TRANSFER
YEAR (MW)(Hw)(GWH)(Gwll)(MW)lGi/H)
1980 122.5 335.0 525.5
1981 131.5 335.0 564.1 564.1 0.0 0.0
1982 140.4 335.0 602.11 602.6 0.0 0.0
1983 149.4 327.0 641.2 641.2 0.0 0.0
1984 158.4 321.0 679.8 679.8 0.0 O.p
1985 167.4 327.0,718.3 458.3 0.0 259.9
1986 192.0 326.0 824.0 564.0 0.0 259.8
1987 216.6 .H4.0 929.7 669.7 0.0 259.4
1988 241.3 308.0 1035.4 775.4 0.0 259.8
1989 265.9 303.0 1141.1 881.1 0.0 259.6
1990 290.5 303.0 1246.9 459.7 0.0 787.1
1991 290.6 385.0 1247.4 547.8 0.0 699.6
1992 290.7 366.0 1247.9 428.2 0.0 819.6
199]290.8 366.0 1248.4 438.4 0.0 809.9
1994 291.0 366.0 1248.1i 448.0 0.0 800.8.j::>1995 291.1 333.0 1249.3 692.7 0.0 556.1.
1.0 1996 277 .8 231.0 1192.3 524.6 46.8 667.6
1997 264.5 366.0 1135.2 2016.2 0.0 -881.0
1998 251.2 366.0 1078.1 2022.1 0.0 -944.0
1999 231.9 366.0 1021.0 2024.1 0.0 "1003.1
2000 224.6 3&6.0 963.9 2029.7 0.0 -1065.8
2001 219.7 366.0 942.5 2039.0 0.0 -1096.5
2002 214.1 341.0 921.0 1'&68.4 0.0 -747.4
2003 209.7 341.0 899.11 1738.8 0.0 -839.2
2004 204.1 341.0 878.2 1809.2 0.0 -931.0
2005 199.7 320.0 856.8 1716.5 0.0 -859.8
2006 199.7 320.0 857.0 1722.1 0.0 -865.1
2007 199.8 320.0 857.2 1727.7 0.0 -870.5
2008 199.8 320.0 857.5 1731.8 0.0 -874.3
2009 199.9 no.o 857.7 1"151.5 0.0 -S93.1
2010 199.9 420.0 858.()1766.6 0.0 -908.7
FIGURE 4.3.(contd)
I:~i'T,
1-
together with the installed capacity and energy generation available from the
Anchorage-Cook Inlet and Fairbanks-Tanana Valley technologies.The intertie
portion of the report gives the amount of energy transferable from the
Anchorage-Cook Inlet technologies to the Fairbanks-Tanana Valley area or from
the Fairbanks-Tanana Valley technologies to the Anchorage-Cook Inlet and
Glennallen-Valdez area,for each year of the planning horizon.
The top line of each table in the report contains the following entries:
PRM -the planning reserve margin for the table.
TREE PATH -the demand path (LOW,MEDIUM,or HIGH)for this table.All
ones represent LOW demand,all twos represent MEDIUM demand,and all
threes represent HIGH demand.
The column headings for this table are as follows:
ANCHORAGE:
YEAR -the year of the planning horizon for which the other values on
that line apply.
PEAK DEMAND -the peak demand requirements in megawatts for that year for
Anchorage-Cook Inlet and Glennallen-Valdez.This is the sum of the data
input demand entries for Anchorage-Cook Inlet and Glennallen-Valdez times
(1 +ELOSS),where ELOSS is the "loss and unaccounted for"data input
value.
INSTALLED CAPACITY -the capacity in megawatts available for that year
from Anchorage-Cook Inlet technologies.An Anchorage-Cook Inlet
technology is identified in lines 330 and 770 of the input data by a
technology name beginning with 'AI.
ANNUAL ENERGY -the annual energy requirements in gigawatt hours for that
year for Anchorage-Cook Inlet and Glennallen-Valdez.This is the sum of
the data input annual energy entries for Anchorage-Cook Inlet and
Glennallen-Valdez times (1 +ELOSS),where ELOSS is the "loss and
unaccounted for"data input value.
ANNUAL GENERATION -the annual energy generation in gigawatt hours from
Anchorage-Cook Inlet technologies for that year.
LOLP -the yearly expected loss-of-load probability in days per
10 years~This is the probability that aemand will exceed the available
capacity of all plants and emergency actions (not including unserved
energy),multiplied by 3652.5,the number of days in ten years.
4.10
FAIRBANKS:
YEAR -the year of the planning horizon for which the other values on
that line apply.
PEAK DEMAND -the peak demand requirements in megawatts for that year for
Fairbanks-Tanana Valley.This is the data input demand entry for
Fairbanks-Tanana Valley times (1 +ELOSS),where ELOSS is the "loss and
unaccounted for"data input value.
INSTALLED CAPACITY -the capacity in megawatts available for that year
from Fairbanks-Tanana Valley technologies.A Fairbanks-Tanana Valley
technology is identified in lines 330 and 770 of the input data by a
technology name beginning with IF I •
ANNUAL ENERGY -the annual energy requirements in gigawatt hours for that
year for Fairbanks-Tanana Valley.This is the data input annual energy
entry for Fairbanks-Tanana Valley times (1 +ELOSS)where ELOSS is the
"loss and unaccounted for"data input value.
ANNUAL GENERATION -the annual energy generation in gigawatt hours from
Fairbanks-Tanana Valley technologies for that year.
INTERTIE:
MAXIMUM CAPACITY (MW)-If positive,this is the excess capacity (after
satisfying Anchorage-Cook Inlet and Glennallen-Valdez capacity
requirements)available from Anchorage-Cook Inlet technologies to fill
unsatisfied Fairbanks-Tanana Valley capacity requirements in that year.
If negative,this is the excess capacity (after satisfying
Fairbanks-Tanana Valley capacity requirements)available from
Fairbanks-Tanana Valley technologies to fill unsatisfied Anchorage-Cook
Inlet and Glennallen-Valdez capacity requirements in that year.
ENERGY TRANSFER (GWH)-If positive,this is the excess energy (after
satisfying Anchorage-Cook Inlet and Glennallen-Valdez energy
requirements)available from Anchorage-Cook Inlet technologies to fill
unsatisfied Fairbanks-Tanana Valley energy requirements in that year.If
negative,this is the excess energy (after satisfying Fairbanks-Tanana
Valley energy requirements)available from Fairbanks-Tanana Valley
technologies to fill unsatisfied Anchorage-Cook Inlet and
Glennallen-Valdez energy requirements in that year.
PRODUCTION DETAIL REPORTS (POET and TPDET)
The tables for the POET and TPDET reports are identical to those
described in the Over/Un~er Users Guide with the exception that,in the AREEP
version,all hydro technologies are combined and are labeled together under
the name of the first hydro technology (Technology #10).
4.11
PRODUCTION COST REPORTS (PCOS and TPCOS)
The tables for the PCOS and TPCOS reports are identical to those
described in the Over/Under Users Guide with the exception that in the AREEP
version,the hydro technologies are broken out by their proportional
contribution to total hydro energy.
DATA FILE OUTPUT
One data file is written by the program for use by the RED model.This
file contains the power cost for delivered energy in FYR dollars per kilowatt
hour,for the MEDIUM demand path of every planning reserve margin (PRM).This
is the same as the POWER COST column under the heading DELIVERED ENERGY of the
CSUM report,divided by a scale factor of 1000.The complete format of the
file is as follows:
Record No.Field Format
1 PRM F5.3
2 PC FYR F10.4
3 PC FYR +l F10.4
etc.etc.etc.
•••
•••
•••
LR+2 PCFYR+LR FlO.4
where:
PRM =planning reserve margin for the following set of costs
PC FYR+i =power cost ($/kWh)for delivered energy under the MEDIUM
demand path in year FyR+i
FYR =first year of the model run
LR =number of years in the planning horizon.
Records 1 through LR+2are repeated for every planning reserve margin of
the model run.
4.12
5.0 OVERVIEW OF THE COMPUTER PROGRAM
The AREEP version of the Over/Under model consists of the main program,a
Block Data subroutine,and 63 additional sUbroutines.Of these 63
subroutines,12 are new,37 have been modified from the original model,and 8
are unchanged from the original model.The remaining 6 routines are original
routines not used in the AREEP version,but which have been included in the
source code.All AREEP additions to the original Over/Under code are
identified with a distinct set of line numbers beginning with the characters
"MOD".Original source lines not used in the AREEP version have been
commented out;i.e.,a "C"is in column one of each of these FORTRAN
statements.Appendix B gives a complete listing of the AREEP source code.
MAIN PROGRAM
In the AREEP version,the main p~ogram has been extensively modified.A
major change to the original Over/Under model is the elimination of the Demand
Uncertainty model and the corresponding provisions to directly input demand
and energy values for various demand growth possibilities.Other
modifications include a restructuring of the primary data input file format
with provisions for up to 16 technologies and separate fuel cost input,and
the fitting of load duration curves for each year.
Table 5.1 lists the subroutines included in the AREEP version by order of
call.In reference to the original Over/Under model,the subroutines have
been categorized as follows:
New -new subroutine
Mod -modified subroutine
UC -unchanged subroutine
NU -original subroutine,but not used
5.1
TABLE 5.l.Subroutines in Order of Call
Subroutine Line Number of Call New Mod UC NU
INCONS MOD01680 -X-
SETPAR MOD02900 X
READSF MOD03870 X
DEMPYR MOD04250 X
DETLDC MOD04670 X
FALPHA 3230 X
INICEP 3660 X
INTEG 3670 X
INTEG 3680 X
SGROW 3740 X
J SORDER 3750 X
SCPRS 3930 X
SCPROB 3950 X
CAP CON 4430 X
FAIRCK MOD05460 X
FLORDR MOD05850 X
LORDER MOD05870 X
LORDER 4860 X
PR~IGN 4880 X
PRODUC 5380 X
CAP PRE 21760 X
BALPRE 21770 X
BALLDC 21930 X
HYDRO 21980 X
BALERU 22000 X
PRTPD 22290 X
EXPEN 22360 X
EVC MOD09340 X
PRTAPC 22400 X
CEXS 5670 X
CEXD MOD06850 X
PRMGN 6510 X
CPLAN 6560 X
DSTAT 38540 X
DIFF 46460 X
INTEG 46510 X
DSTAT 39070 X
DIFF 46460 X
INTEG 46510 X
AMWUP 39310 X
5.2
TABLE 5.1-(cont'd)
Subroutine Line Number of Call New Mod UC NU
PRODUC 6830 XCAPPRE21760XBALPRE21770XBALLDC21930 XHYDRO21980XBALERU22000XPRTPD22290XEXPEN22360XEVeMOD09340XSVNUMSMOD09400XSVENGMOD09470XPRTAPC22400X
DPRNT 7530 XDEMPRTMOD07290XPROLEV7570XLEVEL20650 XLEVEL20840X
TERFIX 7640 XFOMESC7760XTERM7810 XPRMGN45840X
CEPMOD 7880 XSTART7890XCAPCUR7900XAMORT7910XFXCHAR7920XFXCHRL7930XFXCWIP7940XCAAHOR7950XDIST7960XPLMEXC7970XCOMFIN7980XFIXITC34808 XQOST34200XFIXITC34480XQOST34580XNORITC34900X
CEPFIX 7990 XFIXOM8050XPRTFIN8320XWRTPRC.8750 XWRTSUMMOD07630XWRTINTMOD07690XPTCOST9790XPTCOST10010X5.3
SUBROUTI NES
Each of the new AREEP subroutines is described in this section.These
descriptions follow the order in which the subroutines are called.The
subroutine name in each heading below is followed in parentheses by the
program line number where that subroutine begins.
Subroutine INCONS -(MOD13050)
This subroutine sets the values for various parameters.These variables
and their values are as follows:
5.4
These parameters are various years in the
planning horizon.They are used in computing
expected demand growth rates (lines MOD4920
MOD6670 -MOD6700,and MOD06850 of the main
program).
ALPHA was formerly calculated in subroutine
FALPHA.Refer to page B-18 of the Over/Under
Users Guide for a description of this
parameter.ALPHA is currently used in line
3380 and in Subroutine CEXD (called on line MOD6850)
Coincidence factor.This is used as a
multiplier to adjust the sum of the input peak
demand for the three areas (Anchorage-Cook
Inlet,Fairbanks-Tanana Valley,and
Glennallen-Valdez).
ALLINT =260.(GWh)This parameter is used in subroutine BALERU to
restrict the amount of energy transferred from
Anchorage-Cook Inlet to Fairbanks-Tanana
Valley in years 5-9 (1985-1989).That is,in
years 1985-1989,up to 260 GWh of energy can
be transferred from Anchorage-Cook Inlet to
Fairbanks-Tanana Valley.For years 1-4
(1981-1984),it is assumed that no energy can
ALPHA =0.5
COINF =0.97
FCPER1 =20.
FCPER2 =5.
FCPER3 =6.
5.5
The following parameters are former data input variables:
Subroutine SETPAR -(MOD13570)
CAPACITY MULTIPLIER
HYDRO PROBABILITIES:
In AREEP,normal weather conditions are assumed
for each year.
The maximum available energy from the hydro
technologies.The HYEN array is not used in
the AREEP version.
The number of branches on a path is set to 1.
The number of demand paths is 3 (low,medium,
high).
The probability of the middle path (medium)in
the 3 path system is 0.5.
The number of years per period is set to 5.
The number of periods is set to 6.
These are not used in the AREEP version.
be transferred from Anchorage-Cook Inlet to
Fairbanks-Tanana Valley.For 1990 and on,the
only limitation on energy flow from
Anchorage-Cook Inlet to Fairbanks-Tanana Valley
is the amount available after satisfying the
Anchorage-Cook Inlet area and
Glennallen-Valdez area requirements.
NP =6
NYPP =5
NB =1
NSCEN =3
HYEN(l)=O.
HYEN(2)=O.
HYEN(3)=O.
HYMULT(l)=1.0
HYMULT(2)=1.0
HYMULT(3)=1.0
HYPROB(l)=0.0
HYPROB(2)=1.0
HYPROB(3)=0.0
Q =0.5
RSNOT =.FALSE.
PERFCS =.FALSE.
This subroutine sets the values of former input parameters.These
variables and their values are:
HYINC =O.NORMAL WEATHER HYDRO ENERGY.INCREASE PER MW
ADDED (MWH)
FTIME(l)=1.0 P.YR.In AREEP,the peak season is 100%of
the year.
FENG(1)=1.0 P.ENRGo In AREEP,100%of annual energy
demanded is in the peak season.
PRERT =.150 PCT.ASSETS -PREF.Percent of assets
financed by preferred stock.
DBTRT =.490 PCT.ASSETS -DEBT.Percent of assets
financial by debt.
5.6
Subroutine READSF (MOD013930)
This subroutine reads the secondary input file containing the average
energy and peak demand values for each area,path and period.The average
energy and peak demand are combined for the three areas (Anchorage-Cook Inlet,
Fairbanks-Tanana Valley and Glennallen-Valdez).The conservation and load
management data for each area,path and year are read and combined for the
three areas.
INTEREST COVERAGE
Interest -coverage ratios.
COV(l)=2.0
COV(2)=3.0
COV(3)=4.0
COV(4)=5.0
COV(5)=6.0
COV(6)=7.0
NOTE:The following are former input variables that are set in AREEP (lines
MOD03550 -MOD03620 of the main program)to the data input value FUTURE
CAPITAL COST.
COC -COST OF COMM
PRECOV -COST OF PREF
EMBPRE -MAR.COST OF PREF
AINT -COST OF DEBT
EMBDRT -MAR.COST OF DEBT
EMBCOM -MAR.COST OF COMM
~
Subroutine DEMPYR -(MOD15200)
This subroutine calculates the yearly demand and energy from the input
period demand and energy.The method is linear interpolation from one period
to the next.
Subroutine DETLDC -(MOD16080)
This subroutine calculates load duration curves for each year of each
demand path,given the input load duration curve and the annual energy and
peak demand values for each year of each path.
Subroutine FAIRCK -(MOD17620)
This subroutine determines if any nonhydro Fairbanks-Tanana Valley
technologies exist with capacity for each of the years 1-9 (1981-1989).If
such technologies exist,then the two least-cost nonhydro Fairbanks-Tanana
Valley technologies are forced first in the loading order for 1981-1989.
Because the Anchorage-Cook Inlet and Fairbanks-Tanana Valley intertie is
restricted in the years 1981-1989,all Fairbanks-Tanana Valley energy
requirements are satisfied by Fairbanks-Tanana Valley technologies in
years 1-4 (1981-1984)and all Fairbanks-Tanana Valley energy requirements,
minus ALLINT gWh,are satisfied by Fairbanks-Tanana Valley technologies in
years 5-9 (1985-1989).
Subroutine FLORDR -(MOD18570)
This subroutine is a modification of subroutine LORDER.In FLORDR,the
two least-cost nonhydro Fairbanks-Tanana Valley technologies are forced first
in the loading order;then the remaining technologies are loaded in the order
of increasing cost.
Subroutine SVNUMS -(MOD19400)
This subroutine determines the total installed capacity and energy
generation attributable to Anchorage-Cook Inlet and Fairbanks-Tanana Valley
technologies for a given year in the planning horizon.This information is
used later by subroutine WRTINT in producing the INTR report.
5.7
~
Subroutine SVENG (MOD20280)
This subroutine stores the energy generation for each technology and each
year of the planning horizon.This information is used later by subroutine
DEMPRT in producing the CPRT report.
Subroutine DEMPRT -(MOD20700)
This subroutine prints an output table to report CPRT.
Subroutine WRTSUM -(MOD2l830)
This subroutine prints an output table to report CSUM.When called under
the medium demand path,this subroutine also outputs a set of power costs to a
data file for subsequent use by the RED model.
Subroutine WRTINT -(MOD23700)
This subroutine prints an output table to report INTR.
5.8
6.0 PROGRAM OPERATION
This chapter describes how to run the AREEP program on the Anchorage Data
Center's IBM computer.It assumes that the user is familiar with CMS
(Conversational Monitor System)file manipulation commands and text editing
procedures on the computer system.
DATA FILES
Input data file to and output data files from the AREEP program are
predetermined by the file assignments made when the program was installed.
Figure 6.1 gives the current file assignments for the AREEP program.Thus
before the program is run,the input files (those files with an access of
"read")must already exist in the user1s disk directory and they must have the
same filenames and filetypes as specified in Figure 6.1.
After execution of the program,the output files (those files with an
access of "write")are available in the user's disk directory and these output
files have the filenames and filetypes listed in Figure 6.1.
The two input files to the program can be prepared by editing the
"template"files AREEP DTF and RED OAT.The usual procedure is to copy the
input file to a new file with a different filename and/or filetype (e.g.,
COPYFILE AREEP DTF *AREEP OLD =)and edit the original file (e.g.,AREEP
DTF).Another means of generating the RED OAT file is to run the program
RED.Finally there are 42 files available with the filetype of DTF and
filenames ranging from 001 to 045 which can be copied to AREEP DTF.There are
also 6 files available with the filename RED and the filetypes of MIA,M1B,
M2A,M2B,MM3, MM4,respectively,which can be copied to RED OAT.These
48 files were used in the analyses described in Volume I of the study series.
The 14 output files are created when the program is run.An execution of
AREEP will erase any previously created files of the same filenames and
filetypes.Thus to save results from a run,it is necessary to copy the
output files to new file~with different filenames or filetypes (e.g.,
CO'PYFILE INTR PHT *INTR OLD =).
6.1
,
"!;
:l
,I!
~;
FORTRAN Type of
Filename Filetype File Description Unit #Access
CD _______--_-.._-----------------------~-------------------
FINOUT OUT report 1 write
CADD OUT report 2 write
PDET OUT report 3 write
peos OUT report 4 write
AREEP DTF primary input 5 read
TREE OUT report and system error 6 write
messages
PRICES OUT report 7 write
TPDET OUT report 8 write
TPCOS OUT report 9 write
TCOST OUT report 10 write
DEBUG OUT report 11 write
CPRT PRT report 12 write
CSUM PRT report 13 write
INTR PRT report 14 write
AREEP DAT data output 19 write
RED DAT secondary input (available 20 read
from program RED)
FIGURE 6.!.AREEP File Assignments
6.2
RUNNING THE PROGRAM
The AREEP program has been installed to run from a user1s terminal.
Although there is no user/program dialog,the process is interactive in the
sense that once the command is given to execute AREEP,the terminal is tied up
until the processing stops.AREEP is run by invoking what is called an lI exec ll
file.An annotated listing of the EXEC #2 command file currently used to
invoke AREEP is given in Figure 6.2.
The steps in running AREEP are as follows:
1)Log on to the system.
2)Prepare the input files.
3)If necessary rename or copy the input files to files which conform to the
filename and filetype conventions given in Figure 6.1.
4)Invoke the AREEP program lI exec ll file.The command for this is IIAREEp lI
•
5)After processing,one of the following two messages will appear:
IISUCCESSFUL FINISW -This means that the program has terminated
normally.All report files are printed at the central site.
II!!UNSUCCESSFUL FINISH II -This means that something has caused the
program to abort.The report files are not printed •.Refer to the
output file TREE OUT for any system error messages.
6)The output files are available in the user1s disk directory.They may be
listed or edited from the terminal.
7)Rename or copy any output files which should be saved before the next
AREEP run.
AREEP MODEL ERROR MESSAGE
In the AREEP version of the Over/Under Capacity Planning Model,one model
error message has been added to those described on pages 5-12 and 5-13 of the
Over/Under User1s Guide.
6.3
&TRACE OFF
&IF X&l =X?&GOTO -INFO
----------Displaygreeting
CLRSCRN
&BEGPRINT 8
AREEP
A LASKA
R AILBELT
ELECTRICAL
ENERGY
PLANNING
MODEL
----------Make fileassignments
*OUTPUT FILE (PRINT)
FI FT01FOOl DISK FINOUT OUT AI (RECFM FM LRECL 132 BLOCK 132
*OUTPUT FILE (PRINT)
FI FT02FOOI DISK CADD OUT Al (RECFM FM LRECL 132 BLOCK 132
*OUTPUT FILE (PRINT)
FI FT03FOOI DISK PDET OUT Al (RECFM FM LRECL 132 BLOCK 132
*OUTPUT FILE (PRINT)
FI FT04FOOI DISK PCOS OUT Al (RECFM FM LRECL 132 BLOCK 132
'*INPUT FILE
FI FT05FOOI DISK AREEP DTF AI
*OUTPUT FILE (PRINT -ALSO HAS SYSTEM ERROR MESSAGES)
FI FT06FOOI DISK TREE OUT Al (RECFM FM LRECL 132 BLOCK 132
*OUTPUT FILE (PRINT)
FI FT07FOOI DISK PRICES OUT Al (RECFM FM LRECL 132 BLOCK 132*OUTPUT FILE (PRINT)
FI FT08FOOI DISK TPDET OUT Al (RECFM FM LRECL 132 BLOCK 132*OUTPUT FILE .(PRINT)
FI FT09FOOI DISK TPCOS OUT AI (RECFM FM LRECL 132 BLOCK 132*OUTPUT FILE (PRINT)
FI FTI0FOOI DISK TCOST OUT AI (RECFM FM LRECL 132 BLOCK 132
*OUTPUT FILE (PRINT)
FI FTIIFOOI DISK DEBUG OUT AI (RECFM FM LRECL 132 BLOCK 132*OUTPUT FILE (PRINT WITH CARRIAGE CONTROL)
FI FT12FOOI DISK CPRT PRT Al (RECFM FM LRECL 132 BLOCK 132*OUTPUT FILE (PRINT WITH CARRIAGE CONTROL)
FI FT13FOOI DISK CSUM PRT A1 (RECFM FM LRECL 132 BLOCK 132*OUTPUT FILE (PRINT WITH CARRIi\GE CONTROL)
FI FT14FOOI DISK INTR PRT AI (RECFM FM LRECL 132 BLOCK 132
*OUTPUT FILE (DATA)
FI FT19FOOI DISK AREEP DAT AI
*INPUT FILE
FI FT20FOOI DISK RED DAT AI
----------Execute AREEPAREEP
FIGURE 6.2.AREEP EXEC 2 Command File
6.4
----------Successful run -
-&IF &RETCODE NE 0 &GOTO -DONE
6.5
----------Display thefollowingwhen
user types
nAREEP ?n
----------Type errormessage
II UNSUCCESSFUL FINISH
SUCCESSFUL FINISH
FIGURE 6.2.contd
Print reports
at central site
AFTER EXECUTION OF AREEP,THE STATUS OF THE RUN IS TYPED.IF THE
STATUS IS SUCCESS,THEN THIS EXEC SPOOLS THE 3 'PRT'AND 10 lOUT'
FILES TO THE LINE PRINTER.
NOTE THAT ALL SYSTEM ERROR MESSAGES GO TO THE FILE ITREE OUT'.
&EXIT 0
&TYPE AREEP
&EXIT 0
*
-INFq
CLRSCRN
&BEGPRINT 11
THIS EXEC RUNS THE AREEP PROGRAM.ALL FILE ASSIGNMENTS ARE MADE
AND THE AREEP PROGRAM IS CALLED BY THIS EXEC.NO INTERACTIVE DIALOG
OCCURS IN EITHER THIS EXEC OR THE AREEP PROGRAM.
-DONE
&TYPE &RETCODE
&TYPE AREEP
&EXIT
*
CP SPOOL PRT SYSTEM
*PRINT FINOUT OUT Al
PRINT CADD OUT A1
PRINT POET OUT A1
PRINT PCOS OUT AI
PRINT TREE OUT AI
PRINT PRICES OUT A1
PRINT TPDET OUT Al
PRINT TPCOS OUT Al
PRINT TCOST OUT AI
PRINT DEBUG OUT AI
PRINT CPRT PRT Al (CC
PRINT CSUM PRT Al (CC
PRINT INTR PRT AI (CC
*CP SPOOL PRT *CLOSE
*
6.6
This message is:
The sUbroutine DETLDC has a limit of 10 iterations for calculating the
load duration curve for a given year and demand path.Usually 2-5 iterations
are enough.If the limit of 10 iterations is exceeded,then the program will
stop and this message will appear on the TREE OUT report.Check the input
L.D.C.values (primary data input file,lines 1860-1880)for errors and the
input annual energy and peak demand values (secondary input file,lines 7-34)
for inconsistencies.
XLDC =----YEAR =----'
YLFK = _
PATH =-----'
XALF =
SUB DETLDC:ITERATION LIMIT OF 10 REACHED
APPENDIX A
AREEP QUICK REFERENCE INPUT
APPENDIX A
AREEP QUICK REFERENCE INPUT
FC Fixed-charge model included (T or F,
column 59).
General Parameters
First year of model (integer,
columns 10-13).
Title of model run (alphanumeric,
columns 13-72).
Highest planning reserve margin to be
evaluated (decimal percentage,
columns 21-25).
Increment of planning reserve margin
between LOW and HIGH (decimal percentage,
columns 27-31).
A.l
Lowest planning reserve margin to be
evaluated (decimal percentage,
columns 14-18).
MWINC Megawatt increment (decimal value greater
than 0,columns 72-77).
FYR
TITLE
LOW
INC
THOR Terminal horizon,in years (integer,
columns 18-21).
CONSTANT-$-SYS Constant dollars in TCOST and TREE reports
($)and cost levelization with respect to
constant system size (SYS)(T or F,
columns 33 and 37).
CONS.DISC Consumer discount rate (decimal
percentage,columns 45-49).
CD Capacity-decision model included (T or F,
column 55).
PS Production-simulation model included (T or
F,column 64).
YEARLY Production costing every year (T or F,
column 71).Costing once per period is
done if F is entered.
HIGH
130
100
New
160
line
130
Old
100
160
Old
190
Line
New
190
220
RMBAS
RMINC
BEGIN
WINDOW
END
CADD
PRICES
FINOUT
PCOS
TPCOS
POET
TPDET
CPRT
CSUM
INTR
General Parameters
Reserve-margin base differential (decimal
percentage,columns 37-42).
Reserve-margin increment (decimal
percentage,column 45-50).
Planning reserve margin before the
beginning of a "window"(decimal
percentage,columns 56-60).
Range of years over which planning reserve
margins are varied according to
LOW-HIGH-INC (integer,columns 64-67 and
69-72).
Planning reserve margin after the end of a
"window"(decimal percentage,
columns 73-77).
Capacity-additions report (T or F,
column 21).
Cost-to-consumers-by-year report (T or F,
column 31).
Fixed-charge financial report (T or F,
col umn 41).
Production-cost report (T or F,column 51).
Terminal-production cost report (T or F,
column 59).
Production-detail report (T or F,
column 69).
Terminal-production detail report (T or F,
column 77).
Capacity &energy report (T or F,
co lumn 21).
Cost-summary report (T or F,column 31).
Anchorage-Fairbanks intertie report (T or
F,column 41).
A.2
Line
Old New
Capacity-Decision (CD)
General Parameters
Technology names.(alphanumeric,
columns 18-23,24-29,30-35, 36-41,42-47,
48-53,54-59,60-65, 66-71,for line 330,
columns 18-23,24-29,30-35,36-41,42-47,
48-53,54-59,for line 770),Technologies
#10-16 (line 770)are energy limited.A
technology name beginning with an IA I is
considered an Anchorage technology,
sjmi1ar1y a name beginning with an IF I is
considered a Fairbanks technology.
Rated capacity at beginning of FYR (same
columns as lines 330 and 770).
Capacity to be added or retired in various
years after FYR (same columns as lines 330
and 770).Up to thirty ADD lines can be
used.
MIX-LONG RN Target long-run technology mix (same
columns as lines 330 and 770).Entries on
lines 670 and 1110 should total to one.
TECHNOLOGY
HYDRO TECH
CAPFYR(MW)
1ST YR AVL First year model can make decisions to
install or delay plants (integer,same
columns as lines 590 &1130).
ADD JUS(MW)Planning reserve margin justification for
adding a new plant (same columns as
lines 330 and 770).Five 9 1 s means don1t
-add under any circumstances.
A.3
CAPLIM(MW)Capacity limit for each technology (same
columns as lines 330 and 770).Five or
six 9 1 s should be entered when capacity is
unlimited.
RES MARGIN Technologies to be included in reserve-
margin calculations (T or F,columns 23,
29,35,41, 47, 53,59,65, 71,for
line 680 and columns 23,29,35,41,47,
53,59 for line 1120).
SIZE(MW)Plant sizes (integer,columns 19-23,25-29,
31-35,37-41,43-47,49-53,55-59,61-65,
67-71,for line 690 and columns 19-23,
25-29,31-35, 37-41,43-47,49-53,55-59
for line 1130).Use zero for "sma ll
p1ant".
330
770
660
1100
670
1110
690
1130
680
1120
700
1140
710
1150
440
590
450
600
610
630
640
620
340
780
460-570 350-640 ADD
790-1080
Line
Production Simulation (PS)
0·1 d-New
Capacity-Decision (CD)(contd)
Lead time for studies (integer greater
than or equal to 1,same columns as
lines 330 and 770).
Lead time for licensing (integer greater
than or equal to 1,same columns as
lines 330 and 770).
A.4
General·Parameters
One minus the force outage rate (same
columns as lines 330 and 770).
Equivalent availability,or maximum-
capacity factor (same columns as lines 330
and 770).
Lead time for construction (integer
greater than or equal to 1,same columns
as lines 330 and 770).
Lead time for startup (integer greater
than or equal to 0,same columns as
lines 330 and 770).
Same as lines 330 and 770 (not read by
program)•
Variable cost in mills/kWh (same columns
as lines 330 and 770).Fuel cost for
technologies 1-9 may be entered
separately;see line 1330.
Heat rate in Btu/kWh (same columns as
1ine 330).
Fraction of annual maintenance scheduled in
peak season (same columns as lines 330 and
770).
Variable-cost escalation per year (same
columns as lines 330 and 770).Fuel cost
escalation for technologies 1-9 may be
entered separately;see line 1810.
Environmental cost in mills/kWh (same
columns as lines 330 and 770).
STUDIES (YR)
LICENSE (YR)
VC (M/KWH)
EQ AVAIL
CONSTR (YR)
l-F.O.R.
VCESC/YR
STARTUP (YR)
ENV (M/KWH)
TECHNOLOGY
HYDRO TECH
MAINT-PEAK
HR (BTU/KWH)
740
1180
720
1160
730
1170
1260
1380
1270
1390
750
1190
1230
1350
1250
1370
1290
1410
1300
1420
1310
1430
1320
720
770
750
740
660
730
670
650
780
790
680
Old New
Production Simulation (PS)(contd)
Line
1480-1790 FUEL COST
($/MMBTU)
Variable general and administrative costs
in mills/kWh (columns 28-33).
Fuel type used.Indicates one of the fuel
types defined in lines 1490-1810.A fuel
type of 10 indicates that no defined fuel
type is used (integer,1-10,same columns
as line 330).
General Parameters
A.5
Fuel Cost in dollars/mmBtu for each of nine
defined fuel types and each year beginning
with FYR (columns 18-23,24-29,30-35,
36-41,42-47,48-53,54-59,60-65,
66-71).Up to thirty-one (including.FYR)
lines can be entered.
Names of emergency actions and unserved
energy (alphanumeric,columns 22-28,
29-35,36-42,43-49,50-56,57-63,64-70,
71-77).The last column is reserved for
unserved energy.
Load duration curve data represented as
percent of peak demand at 10%of the
time,20%of the time etc.,for peak and
off-peak seasons,(decimal percent,
columns 15-19,20-24,25-29,30-34,35-39,
40-44,45-49,50-54,55-59,60-64).
Utilization factor for technologies 10-16
(decimal percent,same columns as
line 770).
Fuel cost escalation per year from the
last year entered in lines 1480-1790
(decimal percent,same columns as lines
1480-1790)•
Percentage of the load duration curve
adjustment area corresponding to 0-10%of
the time,10-20%of the time,etc.
(decimal percent,same columns as
line 1860).These values must add to 1.
Percent of the time corresponding to
demand midway between peak demand and
demand at 10%of the time (decimal
percent,columns 20-24).
UTIL FACTOR
FTU
VMLDC
FC ESC/YR
TYPE
PEAK WIDTH
VARIABLE G-A
(M/KWH)
PEAK
1330
1450
1810
1860
1830
1920
1880
1870
810
900
940
Line
Old New
Production Simulation (PS)(contd)
Demand-serving or demand-reducing capacity
of emergency actions (same columns as
line 1920 except for unserved energy).
Probability that emergency action CAPACITY
will be available when needed (same
columns as line 1920 except for unserved
energy).
Emergency-action CAPACITY grows in
proportion to demand growth (T or F,
columns 28,35,42, 49,56,63,70).
A.6
General Parameters
Annual cost escalation (same columns as
line 1920).
Same as 1ines 330 and 770 (not read by
program)•
Capital cost per kilowatt (same columns as
lines 330 and 770).
Fixed operating and maintenance cost per
kilowatt per year (same columns as
lines 330 and 770).
Cost allocated to "ou tage"or "var iable"
cost category (T or F,columns 28,35,42,
49,56,63,70,77).
Cost in mills/kWh (same columns as
1ine 1920).
Capital cost escalation rate per year
(decimal percentage,same columns as
lines 330 and 770).
Annual cost of delay after completion of
studies,as percent of capital cost
(decimal percent,same columns as lines
330 and 770).
Annual cost of delay after completion of
licensing,as percent of capital cost
(decimal percent,same columns as
lines 330 and 770).
AVAILABILITY
OM($/KW-YR)
CAPACITY (MW)
CAP PROP TO
DEM?
COST(M/KWH)
COST .ESC/YR
OUT(T)/VAR(F)
COST?
STUDIES
CC($/KW)
TECHNOLOGY
HYDRO TECH
CCESC/YR
LICENSE
1930
1940
1950
1980
1960
1970
2060
2210
2080
2230
2020
2170
2040
2190
2050
2200
2090
2240
960
950
970
990
980
1000
1040
1060
1110
1070
1080
1100
Fixed Charge (FC)
DESC/YR Distribution capital-cost escalation rate
per year (decimal percent,columns 48-53).
LOSS AND UNACC Loss and unaccounted for,equal to one
minus the ratio of energy sold to energy
generated (columns 73-77).
Old New
Fixed Charge (FC)(contd)
Line
General Parameters
Book life in years (integer,same columns
as lines 2120 and 2260).
A.7
Revenue requirements for each year as
percent of capital cost (decimal percent,
first entry on line 2150,for
"distribution,"is columns 11-16 and
remaining columns are the same as
lines 330 and 770).
Tax life in years (integer,first entry
for "distribution"is columns 13-16 and
remaining columns are the same as
lines 330 and 770).
Percent of construction work in progress
that is included in rate base (decimal
percent,columns 62-67).
Total utility assets at the beginning of
the first year (decimal percent,
columns 19-27).
Annual inflation rate (decimal percent,
columns 35-40).
Investment tax credit rate (decimal
percent,columns 43-48).
Investment tax credit normalization (T or
F,column 58).
Capital cost of non-generating facilities
(columns 30-35).
Annual rate at which allowance for funds
used during construction compounds
(decimal percent,columns 72-77).
BL
FIXED-CHARGE
RATES
DISTRIBUTION
CC ($/GWH)
AFUDC
TL
INFLATION
ITC
ITC-NOR
CWIP
FYR-ASSETS
2130
2270
2150
2290
2310
2120
2260
2340
1140
1230
1150
1260
LineaTa---New
Fixed Charge (FC)(contd)
General Parameters
A.8
MAR.TAX RATE Marginal tax rate (decimal percent,
columns 45-49).
CASH PCT.INT.Percent of interest payments made with
PMTS operating cash flows (decimal percent,
columns 73-77).
2450 FUTURE CAPITAL Cost of capital (decimal percent,
COST columns 28-32).
EX.RATE BASE Existing rate base (decimal exponential,
same columns as line 2370).
Historical cost of capital (decimal
percent,columns 22-26).
EXIST.DEBT Debt existing during the FYR (year 1),
three years after FYR (year 4),etc.
(decimal exponential,columns 22-29,
30-37,38-45,46-53,54-61,62-69,70-77).
EX.DEBT INT.Interest on EXIST.DEBT (decimal
exponential,same columns as line 2370).
HIST.CAP.
COST
RATE-BASE Growth rate of the rate base from the year
GROWTH FYR-l prior to FYR (FYR minus 1)to the FYR
(decimal percent,columns 41-45).
REGULATORY LAG Regulatory lag for rate base changes
(YRS)(integer,columns 76-77).
2380
2390
2410
2370
2430
1300
1290
1320
1310
1340
~~,
APPENDIX B
AREEP SOURCE CODE
B.l
DIMENSION GWOW(11J,Ql(4),EVALUE(31,J),ISCOWD(10),TITLE(15),
+tlY,",ULT(3)
C ~****DATA AND COMMUN STATEMENTS FOR SET DECISIONS *****
DIMENSION LEAD(lb,3),RETIRE(lb,31),LSTAGE(1&,3),CEP(1&,31,3),
~STAPRT(lb,2),COSTl7,5),TTOCOS(31),TTECOS(31),TTOOS'(31),TTlOS(31}
OI~ENSION CEXUEM(~S),PRMG(25),SCPR(10),ISNt10,10},lSP~(10)
LOGICAL DECOET,FFS,AVL(lb),RSCEN,PERFCS,OUTC(8),SIDE
C *****END OF DIMENSION AND oATA STATEMENTS fHOM CAPPLAN*~***
DIMENSION TKNAM(10,2),AJ(lb),CCAP78(1&],VCESl1b),LO(9,30J,
+CAPLIM(1&),AMIX90(lb),NSIZE(lb),FCNIOC(lb),VC(1&),TTENGY(30),
+ENV(lb),DFP(lb),6FO(lb),PLAN(lb),PERM(1&),CONSIR(16),1TTCO~(3U),
+STARTD(lb),'Ll1b),~L(lb),fC1(lb),FCTL(lb),fCTLH(lb),
+FCTLl(lb),FCBL(lb),COC(b),AINT(b),YEAkS(5),FCLEV(1&),
~FIXPHC(100),VARPRC(100),EPR06(S),EGR1(5),EGR14(5),TEHMIX(lb),
+HYPR08(3),CLDCCiSOO),IAVYR(lb),FCESC(10),VCESC(lb),DEMFUk(JO),
+HYEN(3),OUTCAP(8),OUTAV(8),OUTCST(ij',HYkNC3),OUTESCl8)
OIMENSION LOAD(9),AVAIL(i,2J,ALF(2),CAP(lb),PKMAIN(lb),
-tNSMAL (1 b),6LDC (12,2),OdLOC (12),TFC (100),P",A II'"(1b,2),t1A (7,2),
+RRMl30),SIZEllb),OEM(30),FENG(2),FTIME(2),lS(30),FOANOM(lb)
LUGICAL APCOEl,HPwOD(J,2),CURO,FINUET,HUNFIN,RUNp~,PPOET,NANYO,
+LVZ,HLJNOEC,TERMIN,RMYES(lb)~SCHEO(Jb),UCUcM(7),PHCS
C **~**FINANCIAL DIMENaION AND COM~ON STATEMtNT~*****
COMMUN ICll ITCRAI,NCONM,PHURZN,HO~IlN,INFLA,NPHDS,NGTcC,Ld(loJ,
+OUTRT,FAIAOJ,ITCNOH,TAXMAR,EYRT,PHEHT
COMMON IC~I EXCPLM(100),CWIP(lOO),CC,OI~T(100),LAGH{lb)
+,AFUDC(100J,DITC(100),CAPCST(16),OI~V5Tl100),kT~AS~(10OJ,
+FCWIP(lb,13),NCON(16),FAFUOC(lb,lj),LENl100),PC~IP,~ONOR1(100),
+EGHO(100),ASSETSlI00),EXCOST(100),fIXCHG(100),ASS78
~,AAMOHT(100),CLJRtAP(lb,100),FCESC,AOOION(100),O~PREC(1OU),
+TAXES(100),CUVER(100),~ATINT(100),UELTA(100),COFCAP(100),
+RETINT(100l,PHEFEW(100),COFCOM(100),ADDPdNl100).
COMMUN IC21 CUV(b),COC,AINT;PRECUV(b)
COMMUN IWRITEI WRI(3)
DIMENSION Lfl1&)
DIMENSION Ib]ART(lb),CAP78(lb},EOEbll7),OUTTYP(8,2}
OIMENSION EUIN~(7J,RBE(7)
INTEbER HURIZN,PHURlN
REAL ITCWAl,INFLA
C PROGHAM CAPPLAN(INPUr,OuTPUT,lT,TAPE~=TT,pufr,TA~E3=PDET,PCO~,00000010
C +TAPE4=PC05,fINOUT,TAPE1=FrNOUT,CAOU,TAPE2=LADU,DEdU~,lAPE11=U~dU~,00000020
C +PRtCES,TAPE7=PRICES,rpCO~,TAPE9=TPCOS,TPOET,lAPE8=TPOEl,TCUSI,00000030
C +TAPE10=TCOST)00000040
C INCLUDE (AREEPPk)MUD00010
C ~~~*~DIMENSIUN AND OATA STATEMENTS FROM CAPPlAN *****00000050
C - ---- ----- - - - - - - - - - - - - - --- - ---~MOOOOU20CM00000.50
C --NOTE:THE ARRAYS ASSOClATE.n vllTH TEcttN()LOGH.~""0000040
C HAVE DIMENSIONS INCkEAS~D FkOM 10 TO 1&.MOOOOO~O
C ADDITIONALLY,THE ARRAY HA(~)HAS BEEN MOOOOObO
C REDIMENSIONED TO HA(7,2)AND 2 NEW AkHAYS,M0000070
C HCUTIL(7)AND HYENPR(7),HAVE ~EEN CkEATEU.Mu000060
C (HYENpIH7)IS OECLA~ED IN SUIHiOLJTlNE PIWlhJC}.MOD00090
C THIS IS TO ACCOMMODATE UP 1U 7 HYO~OELECrRIC M0000100
C TECHNOLOGIES RATHER THAN THt 1 ALLOWED IN M0000110
(C THE ORIGINAL PFWGfUM.MOD00120
C M0000130
C ---- -~- - - - - - - - - - - - - - - - - - - - - - - ---M0000140OOOOOObO
00000070
00000080
00000090
00000100
00000110
00000120
00000130
00000140
000001S0
00000IbO
00000170
00000180
00000190
00000200
00000210
00000220
00000230
00000240
00000250
00000200
00000270
00000280
00000290
0000030u
00000310
00000320
00000330
00000340
00000350
00000300
00000370
00000380
00000390
00QU0400
00000410
00000420
00000430
-----------
FOSSIL FuEL ARRAYS
GLENNALLEN PEAK OEMANu ANO eNERGY
ALSO YEARLY DEMAND AN!l ENEHGY
ANCHURAGEoFAIHUANKS INTtRTIE REPORT INPUT FLAb
COST SUMMARY REPORT INPUT FLAG
CAPACITY P~INTOUT INPUT FLAG
ACAP(30J,FCAP(30),AGEN(30),fGE~(30),XLULP(30)
ANCHURAGf,FAIRUANKS PEAK DEMAND AND ENERGY AHHAYS
FPEAK(3,11),FENE(3,11),APEAKl3,11),AENEl3,11)
ANCHORAGE,FAIRBANKS YEAkLY DEMAND AND ENERGY
FPYRLy(j,30),FEYRLYl3,30),AP~RLYl3~3u),AEYHLY(3,30)
PI __....._._01
--N~W ARRAYS FU~ADoITIUNAL HYDRO T~CHNOLOGIES
- -ANCHO~AGE,FAIRBANKS INST~LLEO CAPACITY AND
.ANNUAL GENERATION AkRAYS
----_..---
- -VARIAULE MWINC IS HEAL TO ACCOMMODATE SMALL SYSTEMS
MwINC,MTINC
OEMAND,ENERGY,AND GHO~TH ARRAYS
OIMENSION Hk(lb),IF1U(1&),FC(31,10),FUE~C(10)
B.2
REAL
DIMENSION PEAKDM(3,11),AVENGY(3,11),Y~LYOMl3,30),ACTGH(30)
DIMENsION
LOGICAL CSUt-i
DIMENSION
LOGICAL INTR
LOGICAL CPRT
DIMENSION
--YEARLY ENERGY ARRAY
DIMENSION YHLYEH(j,30)
LOAD DURATION CU~VE COMPUTATION RELATEO ARRAYS
DIMENSION VMLOC(10),XLoC(3,30,12),XALF(3,30),FYLOC(12)
.SECUNOARY INP~T FILE NAME AkHA'
DIMENSION SFILE(SJ
CONSEHVATION INPUT ARRAYS (LOw,MEO,HIGH)
DIMENSION AECUNS(3,31),PKCONSl3,31),TCCONS(3,31),PCCONS(3,31)
DIMENSION GPEAKl3,11),GENEl3,11),GPyRLYl3,~O),bEyRLYl3,30)
------- - - ----- - ---- ---------------MOU00150MllOOOlbO
I-1UOOOI10
,,>\0000160
MlI000190
M!l000200
MOOOOi!10
1'10000220
1'10000230
M0000240
M0000250
M00002&0
-- --~- -~--•-- - - - - ----- - - - - ------=-M0000270LOGICALWRT,CNOOL,CNSYS,PTPCU5,prpUET,SYMM,TRUE,FALSE,RSNUr,LITC~R00000440
EUUIVALENCElCAP18(1),FCNIOC(I»000004~0
---- - - - -~- --- - - ----- - - - - ------~-MUD002801'10000290
"'0000300
1'10000310
M0000320
M0000330
MOu00340
M00003~o
1'100003&0
1'10000310
M0000380
M00003'!0
1'10000400
M0000410
M0000420
1'10000430
1'10000440
M0000450
1400004&0
1'10000410
1'10000460
M0000490
MU000500
1'\0000510
110000520
MUOOO!l30
----- - - -~~--~--------------- - -----M0000540I~00005~0 .
1'100005&0
I'\Uo00570
MODOO!l60
MOOOO~~O
MOOOO&OO
MOi)OO&10
'''0000&20
"'!lOOO&30
j"OOOO&40
MODOO&50
1'10000&&0
110090&10
1'10000&80
1'10000&90
c
c
C
C
C
C
C
C
C
C
C
C
C
c
c
C
c
c
C
C
c
C
C
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
DATA FYR 13HFYRI
DATA FC,FUfSC 13l0*O.0,10*0.ul
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C
C
C
C INDICES OF FAIR~ANkS NUN-HYDWO TECHNOLOGIES
C AVAILABLE WITH CAPACITY FOR YEARS 1-9
DIMENSION ITFAIR(9,9)
C INDICES OF THE 2 LEAST COST FAIRBANKS TECHNOLOGI~S
C FOR THE q YEARS 1981-1989
DIMENSION LCFAIR(2,9)
M0000700
M(J000110
1'10000720
M(Ju00730
MOD00140
MOD00750
M00001bO
M0000710
M0000780
M0000790
1'10000800
"'0000&10
M0000820
1'10000830
MU000840
M0000850
MU0008&0
Mu000870
M0000880
M0000890
1'10000900
M0000910
MOOOOll20·
M0000930
M0000940
MOD00950
000004&0
00000410
00000480
00000490
00000500
00000501
00000502
00000503
00000510
00000520
00000530
00000540
00000550
00000500
00000510
00000580
MOD009bO
1'10000970
1'\0000980
M(J000990
MOUOI1100
MOOOlo10
1'10001020
,1400010.50
MOQOI040
1'10001050
MOOOI0bO
1"10001070
MOUOI080
1'100010'*0
MOO.OI100
NEW ARRAY FOR EACH TECHNOLOGY'S YEAkLY GENERATION.
SUBROUTINE SVENG STORES INTO THE ARRAY AND THE
ENEWGY TABLE IS PRINTEO IN SUijKDUTINE DEMPHT
HCUTIL •CAPACITY UTILIZATION FACTOR
HYENPR PWO~OWTION OF TOTAL hYuRO ENERGY
(DECLARED IN SUBWOUT1NE PWOOUC)
----------------------------.--------.-----------•FLAG THAT INDICATES IF THERE EXISTS FAIRBAN~S NUN-
HYDRO TECHNOLOGIES FOR YEARS 1-9
----------------------------
OPEN UUTPUt ~ILES WITH CARRIAGE CONTROL E~UAL TO
LiSt (fOR THE LINE PRINTE~)
B.3
LOGICAL FAIR(9)
DIMENSION TECHEN (1&,30).
DIMENSION HCUTIL(7)
DATA LCFAIR 11d*01
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C - - - --- - • - - --- -•- - - - - - - --- - ---C *****END OF FINANCIAL DIMENSION AND COMMON STATEMENTS .t***
c
DATA TTENGY,TTTCOS,ISN,PMAIN,HA/30*O.,30*O.,100*0,32tO.,14*0.1
DATA CEP,NSMAL,AVAIL,SCPH,ISPN/1488*O.,1&*O,18*0.,10tO.,10*01
UATA RETIRE,DtMFOW/49b*0.,3t*0.1
DATA GROW,EVALUE,TTOCOS,TTECOS/ll*0.,93*0.,31*0.,31*0.1
DATA TTOOS,TTEOS,PRMG,VCES/31*0.,31*0.,25*0.,lb*0.1
DATA YEAR5,OU'C~P,LOAD,RRM,QEM/5*0.,8*0.,9*0,30*O.,30*0.1
DATA ENS16,CFT,AMM,TVC,CSOUT,CSENV/0.,0.,0.,U.,0.,0.1
C DATA LAGR,LEN/l&*0,100*11
DATA CLDC/l.2~q,1.0b,.b90,.74,.bl,.S,.41,.34,.29,.2&,
+1.880,1.182,.159,.502,.34&,.250,.190,.151,.127,.116,
+2.S1 6 ,1.217,.b4J,.37?,.241,.161,.123,.09b,.079,.071,
+3.171,1.1q9,~S48,.2q8,.la4,.125,.0~1,.010,.057,.050,
+j.824,1.154,.474,.249,.149,.100,.012,.05~,.044,.039,1450*u.1
DATA TRUE,FAL~E,AUO/.TRUE.,.FALSE.,jHAOOI
C
C
C
C
C
C
C
C
C - - - -
,,.
f,
i
c THE FILlNAMES AWE ASSIG~EO OU1S1U~THE P~OGRAM
C
C
C OPEN lUNIT=I,CAWRIAGECONTROL:'LIST',tiTATUS='WE~')
C OPEN (UNIT=2,CA~RIAGECONTROL='LIST',STATUS:'NEW')
C OPE~(UNIT:3,CAkHIAG£CONT~Ol:'LIST',STATUS:'NlW')
COPEN (UNIT=4,CARRIAGECONTROL='LIST',STATUS='NEW').
C
C UNIT 5 IS THE INPUf FILE
C PRINT STAfEMENT OUfPUT GOES TO LOGICAL FILE 'FOR~PkINT1,
C SO THE CC fEATURE FOR HiE PRINTER IS Ulll'JE wITH THE
C VAX COMMANU LANGUAGE OUTSIDE THE tX~CUTION OF THE
C PROGRAM
C
C OPEN (UNIT=7,CARRIAGECONTROL:'LI~f',STATUS='NEw')
C UPtN (UNIT=8,CARRIAGECONTROL~'LIST',STATuS='~Ew')
COPEN (UNIT=9,CARRIAGECONTROL='LIST',STATUS='NEw'1
COPEN lUNIT=10,CARkIAGECONTROL:'LIST',STAfUS='NEW')
C OPEN (UNIT=11,CARwIAGECONTRUL='LlST',STATuS='N~w')
C
C --- - - - -•------ - - - - --- ----•-~---~--C --UNIT 12 ADDED FOR CAPACITY PRINTOUT
C OPEN (UN IT=12,CAl'll<I AGECON THOl;I FORTH AN',S TAr us=I ~JE.w')
C ....Ui'lIT 1:s AOIlEO FOR raUL cuST SUMMARY Rf.POIH
C OPEN (UNIT=13,CA~RIAGECONrkOL~'FO~TWAN',srATUS=~NEW')
c ...UNIT 14 ADuED FOR ANCHOHAGf ..FAIR~ANKS INTERTIE REPORT
COPEN (UN1T=14,CARHIAGECONfROL;:'FOHTHAN',SfA TUS:'~d::lNl)
C --- - ---•----- ----•--- - - - - - --- - -c ~___-__- -c ~---• ------~- - ------ -
c ...UNIT 19 ADDED FOR REO/(RATE)INPUT FILE 'AkEEP.OAT'
C THIS FILE CONTAINS THE UELIVEHED PO~Ek CO~T FUR
C EACH PR~ANU PLANNING YlAR UNOE~THE MEDIUM PAT~
C lFIL~IS WRITTEN TO IN SUtUWtlTINE WRTSlIM)C .
C OPEN (UNIT=19,CAHRIAGECONTROL~'LIST',STATUS;'NEW')
CC Q ---~~-----c ___~~________ __0 ---
c -.__~__--•--~----c -- - - _ _ --~- ----- -
C
C
C ----=-----~-.-- - - - --- - - -~- --- - --- - -c •-UP TU 1&TEChNOLUGIES
C NGTEC=10
NGTEC=1&
NCONM=12
C 00 8824 MIKE=I,10
00 8824 MIKE=1,lb
Bb~q LAGH(MIKE)=O
C --__ -__--_-_ ----0 •-Q --_-----------
00 8B28 MIKE=1,100
~B2B LEN(MIKE)=1
C ~EA~IN DATA ~EWUIREMtNTS
WEAUl5,4700J(TITLtlI),[=1,1~)
READ (~,4702 J YEARS l1),!THOW,CI~DUL,CNS YS,CUSC,KIINDEC,RUNF 1 N,
-tHllNPR,LVZ,MWIlIIC
REAU(S,4704)PKML,PRMH,PRMI,RMBAS,RMINC,PRMUEf,lfRMYR,
i-ILRMYR,PRMAFT
8.4
M0001110
110001120
MOD01l30
M0001140
MUIlOl150
1"100011&0
M0001110
140001180
MOD011~0
M0001200
M0001210
'"'0001220
MOD01230
M00012110
1'10001250
MOOOI2&0
MODOl210
M00012HO
MD001290
M0001300
MUOOB10
M0001320
Mal)01 ::s3 0
MOIl'01540
M0001350
M00013&0
M0001370
M0001380
MUOOIHO
M00014UO
MOD01410
1140001420
M0001430
MOOOU40
1'10001450
M00014&O
MU001470
MOOOI4~0
M0001490
1"10001500
M0001510
1'10001520
00000590
M0001530
00000&00
00000&10
i-lOD01540
00000&20
MUl)OlSS0
00000&30
00000&40
00000&50
00000&&0
00000&70
00000&60
00000&90
000007uO
00000710
MOOOl5bO
MOoOl510
MOOOl580
M00015CJO
M0001&00
MUOOI&10
1'10001&20
1'40001&30
MOOOlb40
00000720
MOOOI&50
MOOOI&bO
1'40001&70
1'40001&80
M0001&90
1'40001700
."'0001710
1'40001720
MOOOl730
1'40001740
1'10001750
"'00017&0
000007~0
00000740
00000750
000007&0
00000710
000P0780
00000790
1'40001770
M0001780
""0001790
M0001800
MOOOlblO
M0001820
1'40001830
1'40001840
M0001850
1'400018&0
M0001810
MU001880
MOOOl690
."'<JOO 1900
"'0001910
MOPOl920
MOoOl930
1110001940
MUOOl950
MODOICj&O
M0001970
I"\U001980
M0001990
1'40002000
1'40002010
M0002020
MU002030
---.-
B.5
- -MODIfICATIONS TO THE INPUT STkUCTURE
I~FOkMATION FOR THE FIRST 9 TEC~NOLOGIE5 IS HEAD,
------..--------------------------------------------
--.".---.-------------------
NPPI=NP +I
---.----- - --- -----
USE THE ISPN ARRAY FOR PATH INDEX
(IF THE NUMBER OF PATHS IS ONE,ASSUME MEO PATH=2)
READ PEAK OlMANO AND AVERAGE ENERGY FOR EACH PERIOD
OF EACH PATH
--THE ~OLLOWING PARAMETERS ARE NOW INITIALIZED
IN SUBROUTINE INCONS
READ(5,4708)NP,NYPP,NB,Q,RSNOT,NSCEN,PERFCS
ALLIr~T,
NP,NYPP,NB,Q,RSNOT,NSCEN,PE~fC~,COINF)
--CAPACITY PRINTOUT INPUT FLAG -CPHT
- -AND COST SUMMARY REPORT INPUT FLAI;-CSUM
- -AND AI~CHORAGE-FAIIHtANKS lHTEIHIE REPORT fLAG -HUIC
READ (5,470b)CPRT,CSUM,INTH
UO 47131 1=1,3
IF (NSCEN .EQ.I)ISPN(I)=2
If (NSCfN .EQ.3)ISPN (1).1
CONTINUE
GET CONSTANTS
CALL INCONS (ALPHA,FCPERI,FCPER2,FCPER3,
VARIAuLE ALLINT - •CONTAINS THE ANCHOHAGE -FAI~ANKS
INIERTIE LIMITATION FOR Y~S 5-~
HEAD(S,470&)OECOET,PRCS,FINOET,APCOET,PTPCUS,PPOET,PTPDET
00 4713 1=1,10
IF(NB.NE.3)REAO(S,4710)ISPN(I),(ISN(I,J),J.I,10)
IF(NB.EQ.3)REAO(S,4712)ISPN(I),(ISN(I,J),J=I,10)
CONTINUE
REAO(S,4714)(EPROB(I),I=I,Sl
HEAO(S,4716)DEM78,NyF,(EGH1(1),I=I,5)
REAO(5,4716)NYL,(EGRI4(I),I=I,5)
....
__ _ _ _ _ _ ____ _•_ ___._c _
C
C
c
C
C
C
C
C
C
C4713
C
C
C
C - - - --- - - - - -
C
C
C
C
C
C ---- - - -•----•- --- - - - - - -•-- - •-- - - - -C - -DATA ~ow ON THE SECONUAkY FILE -
C
C SECONOA~Y FILE NAME
HEAO (5,47102)sFILE
SfILt(S)=O.O
c
c
C
C
C
C
C
C
C
C
C
C
C
c
c
c
c
47131
C
C
C
C
C
C
B.6
READ (5,47201)((lKNAM(I,J),J=I,2),I=10,lbJ
READ (5,47~~)(CCAP7~(I),I;10,lb)
UO Ll7251 J=2,31
READ (5,412b)FNAME,(CAPLIM(I),I=10,16)
IF (foNAME .IIIE.AL>u)GO TO Ll7271
00 Ll7291 K=10,lb
472~1 CEP(K,J,NS)=CAPLIM(K)
47 <!':i 1 COI"H 1 NUl:.
REAO (S,Ll72b)FNAME
'11211 CUNTINUE
HI:.AL>(5,1l722)(CAPLII"I(I),I=10,lb)
HEAD (~,472c)(AMIX90(I),I:l0,lb)
MlJ0020QO
Mu002050
MlJ0020bO
00000800
i"'U002010
OOOOOiHO
M000208u
0000082u
00000830
000008110
00000850
000008bO
MU002090
OOOOOIHO
00000880
MOIJ02100
00000890
00000900
M0002110
M0002120
M0002130
M0002140
/010002150
OOOOO'Ho
00000920
M00021bO
00000930
MOIJ02170
00000940
M0002180
"'0000950
M0002190
000009bO
M0002200
00000910
M0002210
00000980
M0002220
00000990
1'10002230
00001000
1"10002240
00001010
MuD02250
MOOO~2bO
M0002210
M0002280
M0002~':hl
M0002300
M0002310
M0002320
/010002.330
1'10002340.
M0002350
M00023bO
MOL>OcB10
MOOOcBaO
IF 'ADO +'FOR 30 YEARS,SKIP COMMENT LINE
READ (5,472b)FNAME
IHEN THE INFORMATIuN FIlM THE WEMAINING 7 HYPHO
lECHNOLOGIES 1~READ.
HEAn(5,4720)((TKNAM(I,J),J~1,2),1=1,lu)
HEAP (5,4720)((TKNAM(I,J),J=1,2),I=1,9)
RlAD(~,Q722)(CCAP78(I),I=1,10).
HEAD (5,4722)(CCAP78(I),I=1,9)
LR=Nf'*NYPP
LRPl=LR-t1
NS=3
00 Ll72S J=2,31
kEAIJ(S,472b)FNAME,(CAPLIM(I),I:I,10)
HEAD (S,Q72b)FNAME,(CAPLIM(I),I=1,9)
IF(~NAME.NE.AL>O)GOTO 4727
00 11729 K=I,10
L>U 4729 K=I,9
CEP(K,J,NS)=CAPLIM(K)
CONTINUE
c
c
C
C
C
c
C
11729
4725
C
C
C
c -~-- - - ---•------ --- - ----~------ -~-
4127 CONTINUE
C READ(5,4722)(CAPLIM(I),I=1,10)
WEAD (S,1l722)(CAPLIM(I),I;1,9)
C REAO(5,4722)(AMIX90(I),I:l,10)
READ (5,4722)(AMIX90(1),I;1,9)
C REAO(5,4728)(RMYES(I),I=1,10)
READ (5,4728)(RMYES(I),I=1,9)
C READ(5,4730)(NSJlE(1),I=1,10)
READ (5,Ll730)(NSIZE(I),I=1,9)
C REAO(S,4730)(IAVYN(I),I=I,lO)
READ (5,4730)(iAVYR(I),I=I,9)
C READ(~,4722)(AJ(IJ,I:l,lO)
READ (5,4722)(AJ(I),I:l,9)
C REAO(5,Ll722J(PLANlI),I:1,lO)
READ (S,Ll722)(PLAN(I),I=I,9)
C READ(5,4722)(PERM(I),I:l,lO)
READ (5,Ll722)(PEkM(I),I=t,9)
C READ(5,4722)(CON51RlI),I=1,10)
READ l5,4722)(CONSTR(I),I;1,9)
~REAO(5,4722)(STARTO(I),I=1,lO)
wEAD (5,4722)(~TAwTO(I),I:l,9)
C
c - - - - _ - _ - - _ -•--- --_ - --_ _ _~_0 _------
8.7
1'10002390
r1000~400
/010002410
1110002420
1'10002430
H0002440
140002450
M00024&0
MU002 161II
00001020
1'10002480
000010311
1'10002490
00001040
M0002S00
00001050
1'10002510
000010&0
1'10002520
00001070
1400025:50
1'10002540
M00025S0
M0002~&0
1'10002570
tot0002580
140002590
tot0002bOO
1'10002&10
M0002b20
M0002b30
1010002&40
1110002&50
1'10002000
1'10002&70
M0002b80
M0002&90
140002700
HU002710
M0002720
1'10002730
1110002740
M0002750
1-100027&0
1010002770
M0002780
1'10002790
IoIU002800
MOOOc810
M0002820
M00028:50
MOD02840
1'40002850
1I100028bO
M0002870
00001080
1'10002880
IF 'FYR +'FOR 30 YEARS,SKIP COMMENT LINE
HEAD (5,412&)fHAME
READ (5,47301>
00 47272 J=I,31
HEAD (5,472&)FNAHE,(FC(J,I),I=I,9)
IF (FNAME .NE.FYH)GO TU 47213
CONTINUE
C
IYFOE=31
GO TU 47214
READ (5,4722)(liRll),Ul,9)
wEAD (S,4730)UF'rU{I),I=1,9)
c - - - - - - --- - - - - - - - -.---- -
C
C
HEAD (5,47301 J
READ (5,4122)(PKMAINCI),1=10,lb)
READ (5,4722)(OFU(I),I=10,lb)
READ (5,4722)(DFP(I),I=10,lb)
wEAO CS,4734)(VClI),I=10,lb)
READ (~,4722)(VCcSCCI),l=lO,lb)
READ (5,4722)(ENV(I),I=IO,lb)
C HYOkO CAPACITY UTILIZATION FACTORS
READ (S,4734)(HCUTIL(I),I~1,7)
c
c - - - - - - - - - - - --- - --- ---- --------.'.
HEAO('i,473b)OM
C - -THE FOLLUwlNG VA~lABLE~ARt INIT!ALllEO IN
47272
C
C
C
~EAO (S,472ij)(~MYES(I),l=lO,lb)
HEAD (5,4730)(NSIZE{I),I=10,lb)
READ (5,4730)(IAVYR{I),I=10,lb)
HEAD l~,q122)(AJll),I=10,lb)
READ (5,4122)(PLAN(I),I=IU,lb)
REAO (5,4722)(PEHM(l),I=lO,lb)
wEAD l5,4122)(CONSTR{I),I;lO,lb)
READ (5,4722)(STAHTO(I),I:;lO,lb)
C
C REAO(5,4732)(PKMAIN(I),I=I,10)
HEAD (5,4132)(PKMAIN(1),I~1,9)
C READ(S,4722)(DFu(1),I=I,10)
wEAD l5,4722)(DFO(I),I=I,9)
C HEAO{S,4722)(OFP(I),I=I,10)
!'lEAD (5,4122)(OFP{I),I=1,9)
C REAO(5,4734)(VC(I),I=I,10)
wEAD (5,4734)(VC(I),I=I,9)
C REAO(S,4722)(VCESC(I),I=I,10)
HEAD (5,4722)(VCESC(I),I=I,9)
C HEAO(5,4722)(ENV(I),I=I,10)
READ (5,4122)(ENV(I),1=1,9)
C
47213 IYFOE=J - 1
117iH4 CO/llTINUE
Rf.AD (5,4722)(FUtSClI),I=I,'H
~;i'"
'1>;.ii
,I
\!
c
c
C
c
c
C
C
C
C
c
c
C
C
C
c
C
c
c
c
c
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
SU~ROUTINE SETPAR
REAU(S,4738)(HYPRUBCI),I-1,3)
HEAD(5,4740)(HY~NlI),1-1,3)
REAO(S,4740)(HYMULTCI),1=1,3),HYINC
'READC5,q742)(dLUC(I,1),1=2,11),FENGtl),FTIM~ll)
CALL S~TPAR (HYPRUB,HY£N,HYMULT,HYINC,fENG,FIIME,
•COV,PRERT,D~TRT)
READ (5,4742)(BLUC(I,1),I~2,11)
~~_G ~__•~_ -__•_--•_-___=_~~
•-VMLDC REPLACES OFF-PEAK LOC
OFF-PEAK LOC IS ASSuM£D EQUAL TU PEAK LOC
REAO(S,4744)(BLOClI,2),I=2,11)
~EAO (5,4744)(VMLDC(I),1=1,10)
_=___~_ _•_a _•___ _G •__________~~_c _
REAO(5,q74bJP~
REAO(5,4748J(lOUTIYP(I,J),J=I,2),1-1,8)
REAO(S,47S0)COUTCAP(I),I=I,7)
HEAO(5,4750)(OUTAV(I),I=1,7)
READ(5,4752)(UCOEM(I),I=I,7)
READC5,4752)(OUTCll),I=I,8)
READ(5,4750)(OUTCST(I),I=1,8)
READ(5,4750)(OUTESC(I),I=I,8)
REAU(5,4732)(FCNIUC(I),1=1,10)
READ (5,4732)(FCNIOC(I),I;I,9)
REAO(5,4722J(FCESC(I),I_l,10)
READ (5,4722)(FC~SC(I),l=l,q)
REAO(5,4722J(FOANUM(I),I=I,10)
READ (5,4722)(FOANOM(I),I~I,9)
REAO(5,4734)(tiTAPRT(1,1),I~1,10)
READ (5,4734)(STAPRT(I,1),I-l,9)
READ(5,q722J(~TAPRr(I,2),I;t,10}
READ (5,4722)(~TAPRT(I,2),I-1,9)
READ(5,4754}lTO,(IL(I),I-t,10)
READ (5,4754}LTO,(TL(I),I=1,9)
riEAO(5,47~&}LBO,(BL(I),1=1,10)
REAl)(5,475&)LbO,(aL(l),l;l,~)
REAO(5,4758JDf1,(fC1(1),1=1,10)
READ (5,4758)Ofl,(FCl(I),I=I,9)
_______- - _-_.__-- -__-__c _'-_ -_- - - _-~
- -THE I~PUTS RELATING TO ~lXEU CHA~GE PROfILES AND
cUSTS OF CAPITAL HAVE BEEN MUUIF1EO SO lHAT
ONLY CERTAIN VALUES NEED 8f INPUT.THE
RtMAININ~VALUES ARt AS&UM~D TO ~E EllH~~TH~
SAME FOR ALL RUNS DR EYUAL TO ONE OF TH~INPUr
VALUES.
REAO(5,4158}Of2,tFCTLH(IJ,I=1,10)
READ (5,4758)Of2,(FCTLHlI),1=1,9}
REAO(5,4758}D~3,(fCT~(I),I;1,10)
REAO (5,4758)Of3,(FCTL(I),I=I,9}
READ(5,4758JOF4,(~CTL1(I),I=1,10)
READ (5,4758)Of4,(FCTL1(1),I=I,9)
REAO(5,4758)OF5,(fC~L(I),I;I,10)
~EAO (5,4158)DFS,(FC8L(I),1=1,9)
B.8
MU()02tl90
00001090
00001100
00001110
00001120
"'0002900
MOD02910
MO()02920
M0002Q;i0
M0002940
M00029':10
00001130
M00029&0
M000297<1
140002980
00001140
00001150
000011&0
00001170
00001 lISu
00001i90
00001200
00001210
M0002990
00001220
M0003000
00001230
1'10003010
00001240
MO()03020
00001250
M0003030
000012&0
MU()03040
00001270
MOOOlOSO
00001280
M00030&0
00001290
1'10003010
M0003080
1'10003090
M0003100
I~0003110
1'0\0003120
MU003130
,1110003140
MOD03150
00001300
1'100031&0
00001310
M000317-0
00001320
M0003180
00001330
M0003190
,"10003200
WEAO (S,4730l)
READ (5,472~)(fCNIDC(I),1~10,lb)
REAO (5,4722)(FClSC(I),I~10,1&)
READ (5,472a)(FOANDM(I),I;IO,lb)
READ (5,4734)(STAPRT(I,l),I-IO,lb)
WEAD (5,4722)(STAPRT(I,2),I=10,lb)
READ (5,4734)(TL(I),I=10,16)
HEAD (5,4722)(BL(I),I=IO,lb)
READ (5,4734)(FCi(I),I=IO,lb)
c READ (5,4722)(FCTLH(I),I=IO,l&)
C HEAD (5,4722)(fCTL(I),I=IO,lb)
C READ (S,472i)(FC1Ll(I),1=IO,16)
C READ (5,4722)(FCUL(I),I=10,16)
C
C
C fIXEO-CHAWGE PROFILE VALUES THE SAME FOR EACH TECHNOLOGY
C
OF2=DFI
OF3=OFI
DF4=OFt
DF5=OFI
00 47280 1=1,16
FCTLH(I)=FCt (1)
FCTL(I)=FCI (I)
FCTLI (I):;:FC1 (1)
FCIJL(I)=FCI (I)
47280 CONTII~UE
C
HEAD(S,47bO)OlSTHA,OISESC,ELOSS
REAO(S,47b2)ASS78,INFLA,ITCRAT,LITCNk,PCWJP,ARATE
READ(S,47b4)(EUEBT(I),I:;:I,7)
READ(S,47&b)(EOINT(I),I=I,1)
REAO(5,41&b)(RBE(I),I=I,1)
REAO(5,47b8)IJGR~,LAGREG
HEAO(5,4170JCOC~IS,TAXMAR,FAIAOJ
C - -CUV,PHEwT,AND OBT~T INITIALltED IN SUBHOUTI~E
C SE TPAH ABOVE.
e UNLY EMbCOM IS READ INi cue,PRECOV,EMIJPRE,
C AINT,ANO EMBORT A~E SET TO THIS INPUT VALUE.
C
e REAU(5,4712)(COV(I),J=I,b)
c HEAO(S,4714)(COC(l),I=I,6),EMIJCOH
C REAO(5,411b)(PRECUV(I),I=I,b),PRERT,~MIJPHE
C READ(S,477b)(AINTlI),1=I,b),OBTRT,EMBOkT
C
READ (5,41741)EMIlCOM
fMIiPHE=EMBCOM
EMIJOWT=EMBCIJM
00 47281 l=l,b
COC(I)=EMliCOM
PRECOV(I)=EMUCOM
AINT(I)=HltjCOM
47281 CONTII'~UE
C
C - - - - - - - - - - -~- •~- - --- - - - - ----~-- - - -ql00 FORMAT(12X,15A4J
4702 FOWMAT(II~X,F~.O,4x,I4,
B.9
MOOOJ210
MUu03220
M0003230
MlJ003240
M00032S0
1>1001)32&0
1'10003210
..,OU03280
",o003290
M0003300
MOD03310
MOU03320
1'10003330
""'0003340
MOOOHSO
MOOOHbO
."1000.5310
MOU03380
MOU03390
1'40003400
140003410
H0003420
H00034JO
M0003~40
MOOOJ450
M00034bO
,"10003410
M0003460
00001340
000013~O
000013bO
00001310
00001380
00001390
00001400
M0003490
M0003500
M0003510
M0003520
MlJOOJ530
00001410
00001420
00001430
00001440
M0003540
M0003550
1>I0003SbO
M0003570
MOu03S80
MuU03S90
M0003bOO
M0003610
"'0003&20
MOD03b30
M0003640
00001'150
000014&0
lit
"'ii
c - -~-- - ------ ----"--------~~--- - --~-
c - -M~INC IS NOW REAL
C .8x,2(3X,LIJ,7X,F5.3,2x,2C3X,LIJ,4K,LI,6X,LI,16)
.8X,2C3X,Ll),7X,F5.3,2X,2(3~,Ll),4X,Ll,bX,Ll,Fb.O)
c - _~_ __--- --- - - - -G -•---_-----------
4104 FORMATCII13X,F5.2,lX,2CIX,F~.~),3K,~C2X,Fb.3),5X,F5.2,
.3X,I4,IH,I4,F5.2 J
4700 FORMAT(III1X,3(~X,Ll),2CqX,Ll,7X,LI))
C47118 FORMATClllllqX,I2,10X,I2,qX,12,4X,f5.3,6~,Ll,5X,I2,9X,Llll)
4710 FORMAT(51x,12,2X,1011)
c ------- -0 _-~--c -~--~~~-_----~=---
C
47101 fORMAT (lX,/)
q7102 FORMAT (111111,18X,SA4)
C
C ------ - - --- - -------~----~----~-----4712 FOWMAT(22X,12,2X,10Il)
4714 FORMAT(/47X,SllX,f5.3))
471b FORMAT(laK,F6.0,23X,I2,SCIX,FS.3)
4718 FORMATC45X,12,5(II,FS.3))
4720 FORHATCII117X,10CA4,A2))
47201 FORMAT C/17X,7CA4,A2»
c -- - - - - - --•------- -~---e ------ - - ---4722 FORMAT(17X,10F6.0)
472b FORMATC&~,A3,8X,10F6.0)
4728 FORMATCI7X,10(SX,Ll))
4730 FORMAT(17X,10(lX,IS))
c - - - - - - - - - - --c • - - --- ---------~-----
C
473Q1 FORMAT (II)
C - __._- _ - -~- --- --_---~~--~e _-c -~----~
4132 FORMAT(1111111X,10Fb.0)
4734 FORMAT(117X,lUF6 0 0)
473b FORMAT(/27X,F~.i J
4738 FORMArC/25X,3(2X,F7.3),19X)
474h FaHMAr(2SX,3(2X,F7.0),1~X,3PF6.0
4742 FORMAT(1114X,10FS.3,F7.3,F6.3)
4744 FOHMAr(14X,10F5.3)
q/4t>FORt-1ATCl9X,FS.3).
4148 FO~MAT(11121X,8(A4,A3))
4750 FOHMAT(21X,Uf7.0 I .
4752 FORMAT(21X,8(bX,Ll)J
4754 FORMAT(1112X,14,IX,~6F&.0
C475b FORMAT(12X,14,IX,10~6.0/)
41~b FORMAT C12X,14,lX,~F&.O,/)
4758 FORMATCI0K,f6.3,1X,10F6.3)
4160 FORMAT(/2~X,F6.0,12X,F6.4,19X,F5.3)
47b2 FOHMATCII18X,~9.2,5X,2(2X,F&.3),9X,Ll,3x,Fb.3,4X,Fb.3
4704 FORMAT(1121X,7E8.j)
4700 FO~MATl21X,7E6.3 J
47bij fURMAT(/40X,F~.3,30x,12)
4770 FORMATC/21X,F~.3,18X,F5.3,23K,F~.2
4772 FURMAT(/24X,6F5.1 )
4774 FURMAT(24X,bF~.3,18X,F5.3)
47/41 FURMAT (/27X,F5.0)
4770 FnRMAT(24X,6f~.3,7X,FS.3,6X,F5.3)
C _****INITIAL UPERATIONS ***********************************
B.l0
M0003650
MU0036bO
00001470
1-10003&70
1'10003&60
00001tl8CJ
00001490
00001"00
00001510
00001520
110003&90
1"10003700
MU0037\0
."10003720
M0003730
1"10003740
00001550
00001540
00001550
000015&0
00001570
1'10003750
MU0037&0
00001580
00001590
00001600
00001610
MUD03770
110003780
MOOO.H90
M0003800
00001620
00001630
00001&40
00001&50
00001660
110001670
00001660
00001690
00001100
00001710
00001720
00001130 .
00001740
1'40003810
00001750
00001760
00001770
00001760
00001790
00001800
00001610
00001820
00001830
1"10003820
110001640
00001850
C
c - - - - - - - ---•- - ------- --~-----------c
c - •RtAU ~ECONOARY FILE AND AOJU~T DE~ANO AND ANN ENEHbY
C
CALL READSF (~FILt,NPPl,PEAKDM,AVENGY,LRPl,
C.AECONS,PKCONS,TCCONS,~CCONS)
C ADDITIONAL PARAMET~RS fOR SUdRUUTINE wkTINT
•AECONS,PKCONS,TCCONS,PCCONS,FPEAK,FENf,APEAK,AENE,
C ••ADDITIONAL PARAMET~kS FOR GLENNALL~N
•GPEAK,GENE)
C
DO 1 I=l,NSCEN
IlO 1 J=I,NPPl
PEAKOM(l~PN(I),J)=PEAKOM(lSPN(I),J)*COJ~F*(I••ELOS~)
AVENGY(ISPN(I),J);AVENGY(ISPN(I),J)*(l.~ELO~~)
FPEAK(ISPNlI),J)=FPEAK(lSPN(I),J)*(I.+ELOSS)
FENElISPNlI),J)~FENE(ISPN(I),J)*(I.+ELOSS)
APEAK(lSPN(I),J)~APEAK(ISPN(I),J)*(I.+EL~SS)
AENE(ISPN(I),JJ=AENE(ISPN(I),J)*(I.+ELOSS)
C ••CALCULATIONS FOR GLENNALLEN
GPEAK(ISPNlI),J)=GPEAK(ISPN(I),J)*(I ••ELOSS)
GENE(ISPN(l),JJ=GENE(ISPN(I),J)*(I.+ELOSS)
CONTINUE
C
1)0 3 I=I,NSCEN
00 3 J=l,LRPI
PKCUN~(ISPN(I),J)=PKCONS(ISPN(I),J)*COINF
3 CONTINUE
C
DEM78=PEAKOM(ISPNl2),I)
AVE78=AVENGYlISPN(2),I)
FP78=FPEAK(ISPN(2J,I)
AP78=APEAK(ISPN(2i,l)
FE78=FENElISPN(2),I)
AE78=AENE(lSPN(~),1)
c ••CALCULATIONS FOR GLENNALLEN
GP78=GPEAK(ISPN(2J,I)
GE78=GENE(ISPN(2),I).
c
C CALCULATE DEMAND AND ENERGY PER YfAR
CALL OEMPYR (PEAKUM,AVENby,YwLYOM,YWLYEN,I~PN,NYPP,NP,N~ClN,
C AIJOIT lONAL PARAI-IETEHS FOw Su~wOlll INt \'lIHINT
+fPEAK,FENE,APfA~,AENf,FPYkLY,ftYRLy,APYRLY,AtYRLY,
C ADDITIONAL PARAMETERS fOw GL~NNALLEN
+bP~AK,GENE,GPYRLy,GEYRLY)
C
C - - - - -~- - --- -------- - -~-~--------WIH (ll =FALSE
wHT(2l=FALSE
tlRH3)=FALSE
CURO=TRiJE
NPMAX=10
RATE1=.8
~RITE(I,50501)(TI1LE(1),1=1,IS)
~RITE(2,50502J(TI'LE(I),I=I,15)
B.ll
M0003tl30
1"l000.5840
MU003850
M00038bO
MU003tll0
"'0003880
M0003890
M0003900
M0003910
M0003920
1"0003930
1"10003940
"'0003950
M0003960
M0003970
M0003980
1'40003990
M0004000
1'010004010
M0004020
M00040.50
M0004040
MOD04050
MOOOlfO&O
1'40004070
""0004080
M0004090
M(JD04100
1>\0004110
M0004120
M0004130
1'40004140
M0004150
M00041&0
1"0004170
M0004180
1"0004190
M0004200
M0004210
M0004220
MU004230
M0004240
M0004250
M0004200
1'\0004270
MOll04280
H0004290
M0004300
M0004310
000018&0
00001870
00001880
00001890
00001900
00001910
00001920
00001930
c .-__ _ ___ - - _-_-___ _ _______~___D _~___
8.12
00001940
00001950
000019&0
00001970
00001QlSO
00001990
00002000
oOOU2010
000021120
-00002030
00002040
00002050
000020&0
00002070
00002060
00002090
00002100
00002110
M0004320
140004330
00002120
PlQ004340
MOD04350
MOD043&0
140004370
M0004380
140004390
M0004400
140004410
00002130
00002140
00002150
000021&0
00002170
00002180
00002190
00002200
MOD04420
140004430
00002210
00002220
M0004440
,"10004450
00002230
00002240
00002250
0000C!2&O
00002270
M00044bO
000022~0
M0004470
00002290
00002300
M0004480
00002310
00002320
OOOOcB,SO
EVALUE .GT.30')
10 TREE *******************
FORMAT«10Il)J
wRITE(11,7500)(OUfC(I),I=I,8),(OCOEM(IJ,I=I,7),(OUTAV(I)~1=1,8),
+lOUTCST(I),I=1,8)
FORMAT('OUTC,uCUEM,OUTAV,OUTCST:',lX,8Ll,I,,7LI/8F7.3/8F7.0)
C
'J21
00 9212 I=I,NSCEN
wRITE (11,qa1!)1,(YRLYOM(lSPN(I),J),J:l,LR)
~212 CONTINUE .
q211 FORMAT (lX,'YEARLY oEMANO,PATH ',11,':',&(F8.0,lX),J,
1 4(25X,&(F8.0,IX),/»
WRIT~(3,50503)(TITLE(I),I;1,15)
WWIT~(4,50504)(TITLE(I),I=1,15)
wRITE(7,50507)(TITLE(I),1=1,15)
WRITE(8,50508)(TIiLE(I),I=I,15)
~RITE(9,50509)(TITLE(I),I=1,15)
WRITE(10,50510)(TI1LE(I),1~1,15)
WRITE(11,50511)(TITLE(I),I~I,lS)
PRINT 5050&,(TITLE(K),K=1,15)
50501 FORMAT(/15A4,'FINOUT W~PUkT')
50502 FORMAT(/15A4,'CADD REPORT')
50503 FORMAT(/15A4,'POET REPORT')
50504 FQWMAT(/15A4,'PCOS REPORT')
5050b FORMAT(/15A4,'TREE REPURT')
50507 FOWMAT(/15A4,'PRICES REPORT')
50508 FOWMAT(/15A4,'TPDET REPORT')
5Q509 FURMAT(/15A4,'TPCOS REPORT')
50510 FOWMAT(/15A4,'TCOST riEPORT')
50511 FOriMAT(/lSA4,'-DEBUG REPORT')
c - ---•--~- ---- ----- - - - --------•~---C
C WRITE(11,921)l(ISN(I,J),J.1,10),I=I,10)
C --- - - --- - ---.-- - --- - ------ - ---- - -~-C
7~OO
C
C *****WARNING STATEMENTS PRINTEO
IFlNYPP*NP.GT.30)PRINT 7775
7775 FORMAT('CAUTIUN DIMENSION OF
C
C IF(NP.GT.IO.ANO ••NOT.ijSNOT)PRINT 7714
C7774 FOWMAT('CAUTION:UIMEM~ION OF GROW .GT.10')
CC --_- _ _ - - - _-_- -____ _ _ _ ___••c _•_ -_--
C
C *****~EGIN MAIN PRUGI~AM ***********************************
C
C*****ONCE ONLY CALCULATIONS *****
TMIX;O.
C - -UP TU 1&TECHNOLOGIES
C 00 2 1=1,10
00 2 1=1,1&
2 TMIX=TMIX+AMIX90(1)
C DO q 1=1,10
00 q 1;1,1&
~AMIX90lI);AMIX90(1)/TMIX
WATE2;1.-RAfEI
C SCHEUULE MAINTE~ANCE AND CALCULATE AVAILAbILIIIE~
OBLOC(I)=PW
B.13
UO 30 1=3,11
ALf(J)=ALF(J)+.05*(BLOClI,J)tOlOClI+l,J»
ALF(J)=ALf(J)+.5*l.I-P~)*(~L~Cl2,J)+~LUC(3,J»
ALF(Jl=ALF(J)+.5*Pw*(~LDC(I,J).BLDC(2,J»
00 35 1=1,12
~LOC(I,J)=BLOC(I,J)/ALF(JJ
00002340
i'1lJ0044QO
00002.350
OOOO~:S&u
00002370
00002380
00002390
0000240U
00002410
00002420
MlJ004500
000024.30
I4U004510
00002440
00002450
1'40004520
000024&0
00002470
00002480
00002490
00002500
00002510
00002520
MU004530
M0004540
00002530
1'40004550
MlJ0045&0
MOOOtlS70
M00045liO
00002540
M0004590
1'40004&00
00002550
MOOO.tlbl0
."U004b20
0000~5bO
00002570
00002580
00002590
00002&00
1'40004630
00002&10
00002b20
00002b30
00002&40
00002&50
000026&0
MU004b40
00002b70
MU004650
M00040&0
/010004&70
M0004&8U
,.,0004&90
1'40004700
00002&80
---...---- -- ---- -.------.-.------
NOW CALCULATE LuC'S FOH EACH YEAR
CALL UtTLOC (blOC,PW,VMLOC,YHLYDM,YRLYEN,U~M18,AVE78,LH,NSCEN,
ISPN,XLUC,XALf,FYLOC,fYALf)
CONTINUE
20
C
C
C'SO
C
C
C
C3S
C
40
C
C
+
C
C
C DO 10 1=1,10
00 10 1=1,10
YMAINT=I.-DFPlll/DFO(IJ
IF(fTIME(11.Gl.0.JPMAIN(I,11=YMAlNT*PKMAlNlIJ/fTIME(11
IF(FTIME(11.LT.l.)PMAIN(1,~)=YMAjNT*ll.-PKMALNll)11
+(l.-fTIME(l»
00 12 J=1,2
IF(PMAIN(I,J).Ll.o ••0R.PMAIN(I,JJ.GT.l.)PRINT ~,I
PMAIN(I,J)=l.-PMAIN(I,Jl
C IF(I.NE.I0)AVAIL(1,J)=uFO(I)
IF (1 .LT.10)AVAILU,J)=OFO(l)
C IF(I.EU.I0)HA(J)=OFO{I)*PMAIN(I,J}
IF (1 .GE.10)HAll-9,J)=UFO(I)*PMAIN(I,J)
12 CONTINUE .
C IF(I.NE.I0.AND.PMAIN(I,1).LT.PMAINlI,2»PRINT 4,1
IF (I .LT.10 .AND.PMAIN(I,l).LT.PHAIN(I,2)J PHINl 4,1
III CONTINUE
4 FURMAT('WARNING:MOkE MAINTENANCE IS SCHEDULED IN PEAK SEA~UN',
+'THAN IN OFF PEAK SEASON FO~TECH"~LuGY',13,'.')
5 FO~MAT('WARNING:SEASONS A~E TOO SHUkT FOk',
+'TECHNOLOGY',13,'MAINENANCE 10 BE fUllY SCHEDULED')
C WRITE(11,b)«PMAIN(I,J),1=1,10),J=1,2),«AVAIL(I,J),I=l,q),
C +HA(J),J=1,2)
WRITE (11,&)«PMAIN(I,J),I=I,1&),J=I,2),«AVAIL(I'J),1=1,~),
+J=1,2),«HA(I,J),I:l,7),J=1,2)
C6 fOkMAT('PMAIN(I,J),AVAIL(I,J)'/(10F&.3»
b FORMAT ('PMAIN(I,J),AVAIL(I,J),HA',1,8f&.3,1,8fb.3,1,8F&.3,1,
+8F&.3,1,9F&.3,1,9F6.3,1,7Fb.3,1,7Fb.3)
C
C - - - - - - - - - - - - - - - - --- - -C ~CALE LOC'S SO THAT pEAK:l/(LOAO FACTOR)
C - - - - - - --- - - - - - - - -C - -S~T .UP BLOC ARRAY fOR SUBROUTINE OETlDC
C 00 40 J=1,2
C PEAK AND OFf PEAK ASSUMED THE SAME
00 40 J=I,1
C ALflJ)=O.
6LOC(l,J)=I.
00 20 1=3,12
olUC(15-I,JJ=bLOC(14-1,J)
6LOC(2,J)=(bLDCl3~J)'RLOC(1,J»/2.
c -_~__ _ _...e ----- -~---->~-_=--=
CT0T78=O.
B.14
00002&90
000027(10
00002710
00002720
00002730
M0004710
M0004720
00002740
MOD04nO
,..0004740
00002750
M0004750
M00047&0
1010004710
000027&0
MU004780
00002770
00002780
00002190
00002800
00002810
00002820
00002830
00002640
M0004190
00002850
000028&0
00002870
00002880
00002890
00002900
00002910
00002920
000029.50
00002940
0000d950
000029&0
Q0002970
00002980
M0004800
l'I0004810
M0004d20
0000299(1
00003000
000u3010
00003020
0000.30.50
00003040
M0004830
M0004840
000030~0
M00048~0
M00048&0
t-W004870
1140004880
000030&0
00003070
H31
-p _->WI CD----..------
---------------~-------
- -DU LOUP FINAL VALUES CHANGED TO 1&FOk ~p TO 1&
TECHNOLOGIES
IFlFENG(I).lT ••OOOS.OR.FTIME{I).LT ••0005)GU\O
VLF=FTIME(I)*ALf{IJ*{I ....FENG(2)/FfNG(I»
GOlD 7932
YlF=ALF(2)
CONTINUE
EN7R=OEM76*8.7&*YLF
DU 70 1=1,10
00 70 1=1,1&
SIZE(I)=FLOATlNSIZE(I»
IF{RMY~S(I»CTOT78=CTOT78+CCAP78(I)
NSIZE(I)=IFIX(FLOAT(NSIZE(I»/A~WINC••5)
00 75 1=1,3
00 75 J=I,2
RPIWO <I,J)=tIYPRlIB III .G·r ••OOOS.AND.(FTIME(J).I:H ••00050 AND.
+FENG(J).GT ••0005)
00 77 1=1,10
00771=1,1&
VC(I)=VC(I)/luOO.
fNV{I)=ENV{I)/l000.
DO 76 1=1,8
OUTCST(I)=OUTCST{1)/l000.
NH=O
DO 79 1=1,3
IF{HYPROB<Ir.LT ••1I005)GOTO 79
NH=NH"'1
COrHINUE
IF(NH.NE.l)bOTQ 7~3
00 792 1=1,3·
IF(Hyr~OB(I).bT••0005)NHY=1
CONTINUE
17
C
15
10
C
C
C
C
79
78
c -_-_-- ---_--c -_0 c _--~______~__-~--
C --MWINC IS REAL
C AMWINC=FLUAT(MWINC)
AMwINC=MwlNC
EN78=OEM78*6.7b*FYALF
ENS78=EN78*ll.-ELUSS)
H2
793
C
C --...---C ••yLF FU~JHE FIH~l YEAR'S LOC IS fYALF FROM ~UU OEILDC
C
C
C
C
C7931
Cl932
C
C
DBLOC(2)=O.1-PW
00 &0 1=3,12
&0 D6LOC(I)=0.1
FENG(2)=1.-FENGll)
FTIME(2)=I.-FTIMEll)
C
C - - - -...- ------ - - - -...----~_0 ~--
C --- - -~---•--Q ~---~------~------
C
C SlGMA=O.
C SIGI4::0.
C GL=O.
C AL=O.
C 00 7810 1=1,5
C AL=AL+EPFWIHIJ*EGWltHI)
C GL=GL+EPROd(IJ*EGR1(I)
C SIGI4=SIGI4+EPROBlIJ*EGR14(1)*EGRI4(1)
C7810 SlGMA=SI~MA+EPROB(1)*EGR1(IJ*EGH1(1)
C SI~MA=SI~MA-GL*GL-
C SIG14=SIGI4-AL*AL
C IF(LR.GT.3.ANO.LR.LT.12)GOTO 7811
C IF(LR.LE.3)~IGALR=SlGMA
C IF(LR.GE.12JSIGALK.S1G14
C Goro 7812
C7611 SIGALR=SIGMA+lSIG14-SIGMA)*FLOAT(Lk-3)/9.
C1612 CONTINUE .
C CALL FALPHA(CLOC,SIGMA,SIGALR,NP,NPMAX,ALPHA)
C SIGMA=5QWT(~IGMA)
C GROw (1)=AL
C GC=2.*(AL-GL)/FLOAT(NYL-NYF)
c •--- - --•- -•- - --- • - - - - - - - - - - -------
C
C CALCULATE AL FRUM ExPECTED DEMAND (PATH=2)
AL=(YRLYOM(2,lFIX~FCPER1»-UEM78)/(OEM1a*FCPER1)
c
c - - - ---- - - - - --- - - • - - - - - - - - --- - - -wRITE(11,8001JYLF,ALPHA,SIGMA,SIGALH,6L,Al,GC
8001 FORMAT('YEAHLY LOAD FACTOR,ALPHA,SIGMA,SlGALk,GL,AL,GC:'1
+2F7.4,5E12.4,2X,10L1)
EVALUEU,2)=0.
OF=1.1(1.+CDSC)
NVCPP=l
IF(LVZ)NVCP~=NYPP
lBU)=l.
fH(2)=Q/2.
fU(3)=l.-IJ
IH (4)=Ql (2)
BETA=l.-ALPHAc - - - - - - _•- _-_ - -•- ,••- -G _•~-~
c
C I)LTA=5IGMA/SQWT(Q)
C IF(NB.EQ.2)OLTA=5lGMA
c
c - - - - - - - ----- - - - - - - - - - - - - - - ---- - - - -AIF=INFLA+l.
I)LR=fJF **LR
ALR=AIF**LR
LRP2=Lk+2
lJMM=Ot-I*1 00 o.
LEAUMI\l=100000
LEADMX=1
C 00 &5 1=1,10
DO &5 1=1,1&
LEAO(I,1)=IFIX(PLAN(I)+.5)
LSTAGE(l,l)=LEAO(l,l)
LEAO(I,2)=IfIX(PEkM(!)+.S)
LSTAGE(I,2)=LeAU(I,2)
lEAO(1,3J=IfIX(CONSrR(I)+srARTO(1)+.5)
B.15
000030"0
00003090
00003100
00003110
00003120
00003150
00003140
00003150
000031bO
00003170
00003180
00003190
00003200
00003210
00003220
00003230
00003240
00003250
000032bO
MU004890
M0004900
M0004910
1"10004920
MOl>04930
M0004940
00003210
00003280
00003290
00003300
00003310
00003320
00003330
00003340
00003350
000033bO
00003310
00003380
M0004950
M0004f1bO
00003390
00003400
MOl>04970
1'10004980
000034110
00003420
000034.50
00003440
00003450
00003400
00003410
00003480
M0004990
00003490
U0003500
00003510
00003520
00003530
B.16
LSTAG~(I,3);IfIX(LUNSTH(I).o5)
AVL(I)-AJ(I).LE.90000
IF(.NOT.AVL(I»GOIO &5
L-O
00 6b ISTAG-l,NS
IF(LEAOMN.GJ.LEAOlI,ISTAG»LEAOMN-LEAO(I,ISTAG)
bb L=L+LEAO(l,ISTAG)
IF(LEAOMX.LT.L)LEAOMX-L
bi CONTINUE
C ...-~---- --•--~-
00003540
00003550
000035&0
0000357CJ
00003560
00003590
00003&00
00003010
00003&20
MOIJOSOOO
00003&30
M0005010
M0005020
00003&40
00003&50
MOD05030
00003&&0
00003&70
00003&80
I'IUOOS040
MOOOSOSO
•..,00050&0
00003690
00003700
00003710
00003720
000037.S0
00003740
00003750
000037&0
00003770
00003760
00003790
00003800
00003810
00003820
00003830
00003840
00003tt50
00003860
00003670
00003880
00003890
00003900
00003910
00003920
00003930
000039110
00003950
00003900
MU005010
1"10005080
MU005090
1'10005100
1'10005110
110005120
1"10005130
..
_Cl .,Cl:>__cD _
.--.-..IFFYW-IFIXlYEARS(I)••5)
CALL INICU'lCEP,RE TIRE,LR,LWP1,LEAO,NS)
CALL INTEG(RETIRE,I,LR)
CALL INTEGlCEP,NS,LR)
PATH PRUBAijlLlTlE~
Oil b51 J=I,3
.If (NSCEN .HJ·.1)SCPH(J);'l.O
IF (I\ISCE'".EQ.3)SCPIHJJ;:;I~l(J...1)
CONTINUE
kSCEN-.NOT.kS!'l(Jl
IF(.NOT.RSCEN1GOTU &7
fNYL-FLOAT (NYL)
IiNYL-FNYL/2.+.5
CALL SGROW(NP,AL,~SCEN,ISN,ISPN,CLOC,ALPHA,N~,OLTA,NYL,NYPP)
CALL SOROERlCLUC,I~CORO,lSPN,NSCEN)
SYMM-TRUE
IF(NSCEN.EQ.l}SYMN~FALSE
NSCENIi-(NSCEN+l)/2
CENTER-2.
IFlN8.fQ.2)CENTER~I.S
00 &9 J-l,NSCENH
Ll-ISCORO(J)
L2-ISCORU(NSCEN+I-J)
DU &8 I=l,NP
Cl-FLOAl(ISNlLl,Il)-CfNTEW
C2=FLOAT(ISN(L2,I»-CENTER
I~(J.EQ.NSCEN/2+l)C2~0.
IF(ABS(Cl+C2).GT ••0001)SYMM=FALSE
CONTINUE
CONTINLJE
WWITE(11,71}SYMM
FOWMAT('SYMMETRIC SCENARIOS:',Ll)
If(SYMM1CALL SCPRS(SIG14,AL,SCPR,NSCEN,N5Ct~H,ISCORU,SYMM,CLOC,
+IS"'N)
IFl.NOT.SYNM)CALL SCPRUd(EGWI4,EPROd,SCPR,NSCEN,CLOC,1~CONU,
~CLOC(11),CLOC(21),CLOC(31»
b~l
c
C
C
C
C
c -__--__ - - --•- - ---c --..-- - --=
C
C
C
C
C
C FINO SELECTEO TREE PATH PROBABILITIES.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
Cb8
C69
C
C7l
C
C
C
C
C - - --- --•-- -
C
C
C MuD051~O
C -- - - - - - - - - - - - - - - - - - - - - --- - - - - - - - - -MOD05150
C 00003970
wRITE(11,8002)(CLUCCI),I:21,27),(CLOC(!),I.31,37)00003980
~HITE(11,8003)(ISCORO(I),I;I,10),(CLOC(I),J:l,10),(SCPH(I),I=I,10)00003990
c - - - - - - - - - - - - - - - - - - - - - - - - - --- - - - -
B.17
00004000
00004010
00004020
00004030
00004040
00004050
00004C/&0
00004070
00004080
00004090
00004100
00004110
00004120
0000'1130
00004140
00004150
000041&0
M0005160
MOD05110
00004170
MOD05180
IIIu005190
MOOOS200
M0005210
00004180
00004190
M0005220
MOOOS250
M0005240
00004200
MOD052~O
00004210
00004220
00004c!30
0000424C/
00004250
00004260
00004C70
00004280
00004290
MUDOS2bO
M0005270
."'iJOOS280
M0005290
00004300
MOOO~300
M0005310
00004310
00004320
OOO()~3.S(j
00004340
00004350
--.-----------------------
- -CURRECTION fOR wHEN CUSC=I~fLA------------.----------------
SGRO:AL
PHURlN=LR ...l
NPRO~:LH
HORIZN=PHOHlN+ITHUR
ILfYR=IffYW+HUHIZN-l
PVAEN=O.
~U 7970 I=l,HURIZN
If(CNDUL)PVAEN=PVAEN+(I.+FLOA1(1-1)*AL)*(Of*AIF)**(J-l)
C
C - - - - - -
C
C
C
c - - - - - - - - - - - - - - - - - - - - - -
C - -OU LOUP Fl~AL VALUES CHAN6E.D TO 1&FOR THE 1&
C TECHNOLOGIES
C DO 79&0 1=1,10
DO 79&0 1=1,1&
IAVYH(I)=IAVYH(I)-IFFYH+l
LB(I)=IFIX(liLlI)+.5)
LT(I)=IFIX(TLlI)+.S)
NCON(I)=IFIX(CONSIR(I)+.5)
LAGR(I)=LAGHEG .
ISrAHT(I):IFIX(STAkTD(I)+.5l
7%()CONTINUE
OA:(1.+1NFLA)*Of
IF(.NOT.CNOOL)OA:uF
IF (CUSC .EQ.INFLA)ANHE;;1.0
C ANIlE=(I.-UA)/(I.-0A**(LH+ITHOW ...l)
IF (COSC .N~.INFLA)ANIZE~(I.-OA)/(l.-DA**(LR ...ITHOR+1J)
8ij02 FORMAT('CUM,EGR:'/(7F9.5»
8005 FOHMAT('ISCORO,~CGR,SCPR;'/I0I7,(/10F7.q»
07 CONTINUE
C *****UNCE ONLY FINANCIAL CALCULATIONS *********************
ITCIWR:O
IF(LITCNR)ITCNOW:l
WHITE(II,113)ITCNOR,EMBOHT
113 FORMAT('ITCNOH,EMbDRT ',13,5X,F5.4)
EQRT=I.-PRERr-OBTkT
CC:OB TH T*EMliORT +(flRERT *EMBPRE+EQIH *E.MbCOH)I (1.-TA XMAR)
~RITE(II,7935)(COV(I),I=I,&),(COC(I),I;1,&),(PRECOV(I),1=1,&),
+(AINT(I),I=I,b)
WRITE(11,7937)08TkT,PRERT,EQRT,TAXMAR,CC
wRITE(II,7941J(EOINT(I),I:l,7),(EOEAT(I),I=I,7),(WbE{I),1:1,7)
7935 FORMAT('COV,COC,PRECOV,AINT'/(bF8.4»
7437 FORMAT('D~THr,PkEHT,EQRT,TAXMAR,CC~/l0f8.4J
7q~1 FORMAT('EDINT,EOE~T,RBE'/(7El0.4»
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -•
C
C SGRO=GL
C
c --~- -----~•-~--~.-~-.-------~-~=----
B.18
DFINAL=D~M76*(1.+GFINAL)
CALL CAPCONlARATE,CAP78,ISTA~T,CONSTN)
00004300
00004370
00004380
00004390
00004400
1'10005320
M0005330
00004410
MU005340
l'o\Oj)0~350
00004420
000044$0
MU0053&O
1'101)05310
,.lODOS3ttO
00004440
00004450
00004460
09004470
·u0004480
00004490
00004500
1'100053'90
MU005400
MIJ005410
M0005420
M0005430
M0005440
M00054S0
1\o100054bO
1'10005470
MU0054l!0
MU005490
M0005500
M0005510
M0005520
MU005530
1'10005540
M00055S0
MU0055&0
1"10005570
M00055dO
MU005590
•.,u005&OO
1'10005&10
""'0005&20
1'10005630
1'10005&40
i"OOO'ib50
M00056bIJ
MOOiJ5&70
•.,0005&80
M0005690
Ioli)OO~700
M0005710
1"10005720
MOUOS7:S0
DETERMINE IF THERE EXISTS FAIRbANKS NON-HYDRO
TECHNOLOGIES ~ITH CAPACITy FOR YEANS 1-9.
IF SO,THEN THE TECHNULO~Y NUMbE~S
ARE RETURNEO IN A~kAY ITFAIR.
CALL FAIRCK lTKNAM,FAIR,ITFAIN,CCAP78,CtP,NEIIRl)
FUEL C05T CON8IUEHATION5
- -SET FUEL TYPE TO 10 AND HEAl RATE TO 0 fON THE
HYDRO TECHNOLOGIES
THIS INSURES THAT THE FUEL CUST CALCULATIONS
GIVE 0 FUEL COST FOK THE HYONO TECHNOLUGIES
--------------------------~--------
DO 79b4 1=10,1&
IFTU(l)=10
IiRlI);O.O
7964 CONTINuE
C
C
C
C
C
C
C
C
C
C
C
C
C
c ~-~-- -~----------~--------~~-~-----
C --MTINC IS REAL
C AMTINC;FLUAl(MTINCJ
AMTINC;MTINC
lJO 79&5 1=1,'1
FCTY;FClIyFOE,lFTU(I})*(I.+FUESC(IFTU(I»)**lHUHIZN-IyFDE)
C UNITS CONVERSION
FCTY=(FCTY*HRlI»)/I000000.
74&5 VC~H(I);(VC(I)*ll +VCESCll»)**(HONllN-lJ)•FCTY
00 7(1)8 IYR=l,LR
00 7980 1=1,9
IF (I YN .(;1.1I yFlJE -1))GO 10 797'::J
FCIYR=(HR(I)*fClIY~.1,IFrulI)))/I000000o
GO Tll 7980
c -- --=--•------------------~~=-----
C
C
C UU 79&5 1;1,9
C79&S VCESlI);VC(IJ*ll.+VCESC(I»**lHORIZN-l)
C 00 7968 IYk;l,LR
C 00 7960 1=1,9
C1980 CLDClI);VC(I)*(1.+VCESC(I»**IYR
C CALL LOROERlCLOC,lNV,LO(l,IYR»
C79b8 CONTINUE
C -- - --- - - - - - - - - ----- -~------~---~
C
C
C
C
C
C
797u IF(.NOT.CNDULJPVAEN;PVAEN+(1 ••FLOATll-1)*AL)*Of**ll-l)
C CHANGE PVAEN INIO ~NEN~Y A~U ADJUST FUN L08S~So
PVAEN;PVAEN*EN78*ll.-ELOSS)
GFINAL;FLOATlHUkI1N-l)*AL
~TINC;IFIXl1.~+GfINAL)*M~INC
i
lI
B.19
5IOE=LDEC.GE.8
009999 IUEC=I,LDEC
P~M=PRML+fLOA'(IOtC-l)*PRMI
PRINT 1988
PRINT 1989
IFCCNUOL)PRINT 1990,IFFYR,IFFYR
IFl.NOT.CNUOLJPRINT 1991,IFFYH
M0005740
rot0005750
M00057&u
M0005770
1'10005780
1'10005790
1'10005800
MOOOS610
1'10005820
MOU05630
1'40005840
M0005850
foI0005800
1'10005870
""0005890
""0005900
M0005910
M0005920
00004~10
00004520
00004530
00004540
00004550
00004500
00004570
00004580
00004590
00004000
00004010
00004b20
000046311
00004040
00004050
00004000
0000401ll
00004060
00004&90
00004700
00004710
00004720
00004HO
00004740
00004750
00004760
00004770
00004780
u0004790
00004800
00004bl0
00004820
00004830
00004840
00004850
000048&0
00004870
00004880
00004890
RESERVE MARGINS
-------------------------*****ENU OF ONCE UNLY FINANCIAL CALCULATIONS **********_****
MANYU=P~MH.GT.(~RML+.OOOOOOl).ANO.PkMI.GT••OOOOOOl
IF(.NOT.MANYDJGOTO 1100
LOEC=lfIX«(PkMH-P~ML)/PRMI+l.0001)
GOTO 1110
LOEC=1
C
7'1&8 CONTINUE
C
C - --- - -C
IF(ITHOW.Ll.1)GUTU 1&0
TEWMIN=THIIE:
CIJI<OE.M=OFINAL
CALL LUROER(VCES,lNV,LOAO)
IACTYR=IFFYW+LR+IIHOH
CALL PRMGN(PRMUEF,PRM,PRMAFT,IfRMYW,lLkMYR,lACTYH,PR~GIN)
CFTOT=OFINAL*(I.+PRMGIN)
C
C 00 H5 IY=l,LEADM~
C PWMG(IY)=PHM-RM~AS+FLOAT(IY)*~MINC
C b5 CONTINUE
C INITIAL CALCULATIONS DEPENOING ON PRM AND INITIALItATIONS
FFS=T1WE
TfNGY=U.
TTC05=0.
C JC1=0
IERMV=O.
rE~MF::O.
C ERMARG=O.
rEWME=O.
TEHMO=O.
C F INIl THE:TERMINAL VAlUABLE C05T EEVC(M/KWH).
C
1100
C
C LOOP OVER PLANNING
C
1110
7975 CONTINUE
FCIY~:FC(lYFDt,IFTU(I)J*ll ••FU~~ClIFrU(IJ)J**llYR-lIYFO~-l)J
C UNITS CONVEWSIUN
FCIYR=(FCIYk*HH(!J)/I000000.
7Qao CLUC(I)=(VClI)*Cl.+VCESClIJ)**IYR)o+FCIYR
C
C IF IYR bETWtEN 1 AND 9 l1981 -19b9)AND If THE~c f.XISrS
C FAIR~ANKS NON-HYDHO TECHNOLOGIES,LOAD THE 2 LEAST COST
C FAIRHAN~S NUN-HYDRO TECHNOLOGIES FIk~T CI.t.CALL fLORU~J
C
IF (IYR .LT.10 .ANO.FAIR(IYH»
*CALL FLOROH (~LDC,ENV,Lu(l,IYk),ITFAlkll,IY~),LCFAIk(l,lYRJ)
IF (IYR .GE.10 .UR ••NOT.FAIHlIYH)J
•CALL LOHDER (CLDC,ENV,LOll,IYH»
li~
c -- -~- - --Q ~~~-~---~~~=~-c --00 LOUP FINAL VALUES INCHEA~tO lu 1&FOR THt It>
C TECHNOLOGIE~
C DO 7&I=l,tO
00 7&I=l,lE>
SCHEO(I)=AMIX90lIJ oLT o .000000l
CAPll)-CFTOT*AMIX90(I)
7&IF(SCHEOlI»CAP(IJ=Oo
ICOUNT=O
TMIX=I"
SHORT=O.
a7 CONTINUE
C 00 80 1=1,10
00 80 1=1,1&
IFlSCHEO(I)JGUTU ~O
IF(TMIX.LT ••OOOOIJGOTO 81
IF(HMYES(I)CAP(I)=CAP(I)+AMIX90(1)*~HUHT/TM!X
IflCAP(I).Lf.CAPLiM(Il+.l)GOTO 60
CAP(l)=CAPLIMlI)
SCHEO (l)=TRUE -
IHI CONTINUE
IClJUNT=ICOUNT+l
TMIX=O.
eFT=O.
C 00 90 1=1,10
DO 90 1=1,1&
IfloNUT.RMYES(I»bOTO 90
CFT:::CF1.CAP(I)
IF(.NOT.SCHfOlI»lMIX=TMIX+AMIX90(I)
'H)CONTINUE
SHOIH=CF TOT-cF T
ICOUNT=ICOUNT+l
IF(SHOHT.LE ••I.ANO.SHORT.GE.-.l)GOTU 63
IF(ICOUNT.GT.l0JGOTO 61
GOTO 87
81 PRINT 82,PRM,TMIX,5HORT
82 FORMAT('WARNING:THERE IS INSUfFICIENT IEkMINAL CAPACITY tU~'.
+'PHM =',F5.3,'.TMIX ~',F&.3,'.','ShURT ;;',fl0.0)
IH CONTINUE
CTOT=O.
C DO 80 1=1,10
00 8&1=1,1&
~h CTOT=CTOT+CAPlI)
C 00 69 1-1,10
00 8q 1=1,16
TEkMIX(I)=CAPlI)/CTOT
~q CONTINUE
15(1)=0
YEARSlll=YEARS(ll+FLOAT(Lk+ITHOH-l)
IYI(=I
11"=1
DEM(1)=OFINAL
~RMlI)=CFT/OFINAL·l.
OU 84 1=1,7
IFl.NUT.OCOtMlI»~KM41N(I)=UUTCAP(I)
8q IF(OCOEM(I)PKMAIN{I)=OUTCAP(I).DFINAL/UEM7~
C -- ---- ----~G ---~-_-=-_$__~=___~=-~
8.20
M00059.s0
MOu05940
"'0005950
u0004900
MUD059&0
00004910
U0004920
00004930
00004940
00004950
OOU04~&0
00004910
00004980
MOOOS910
00004990
00005000
00005010
00005020
00005030
00005040
00005050
000050&0
00005010
OOOOfl080
00005090
MOOOfl980
00005100
00005110
00005120
000-05130
00005140
000051~0
000051&0
00005110
00005180
00005190
00005200
00005210
00005220
00005230
00005240
MOD059'10
00005250
0000~200
MUOO&OOO
00005270
00005280
00005290
00005300
00005310
0000532u
00005330
00005340
00005350
000053&0
00005:HO
MOOO&010
B.21
- •FOR THE TERMINAL HOHIZO~ASsu~t dloe,YLF,AND ALF
AHE THE SAME AS FOR THE ME~PATH Of ThE LAST
yEAR OF THE PLANNING HORIZUN
00 79321 1=1,2
ALFCI)=XALfClS~NC2),LH)
00 79321 J=1,12
BLDCCJ,1)=XLOClISPN(2),lR,J)
CONTINUE
YLF=ALF (l)
1&0
C
C
C
C
C
C
C
c
e
c
C
C
C
C
C
C1904
C
1'10000020
1'10000030
1'1000&040
""0000050
1'1000&000
1'1000&070
MOOO&080
1'1000&090
1'1000&100
l"uDO&110
MOOOb120
_____- _-•.- - - - • - - - - -_~- - - - - - - - --MOD06130
CALL PROOUC(IYR,CAP,MTINC,AMTINC,OfP,NSMAL,LUAO,AVAIL,ClDC,00005380
+PKMAIN,OUTAV,CUkOEM,YLF,FENG,FTIME,HYPkO~,ALf,~LOC,OdlOC,P~,PMAIN,00005390
+HYEN,PTPUET,RkM,OEM,TKNAM,OUTTYP,NH,NHY,IS,IP,NP,NYPP,NVCPP,YEAKS,00005400
________- - - _ - - - - - - - - - - _ - - - - - - - - - --MODO&140
+RPROO,VC,ENV,UUTCST,PTPCOS,TEHMIN,lVC,AMH,lTHOH,VC~SC,HYMULT,DfO,00005410
+HA,OUTESC,OUTC,CS~NVT,CSOUTT,PRM)00005420
+RPROO,VC,~NV,HR,IFTU,FC,IYFDE,OLJTeST,PTPCOS,TERMIN,TVC,AMM,ITHOR,MUOObl~O
••ADDEO PARAMETEH •HCUTIL MOOO&I&O
+VCESe,FUESC,HYMULT,OFO,HA,OUTESC,OUTC,CSENVT,CSOUTT,PRM,HCUTIL,1'1000&170
• •ADDITIONAL PAHAMETERS FOR SUdHUUTINE wHTINT 1'1000&180
+ACAP,AGEN,FCAP,FGEN,XLOlP,INTR,MOOO&190
• •ADDITIONAL PARAMETERS FUR ANCHORAGE·FAlkdANKS MOOO&200
LIMITlO INTERTIf CAleULArIO~S 1'1000&210
+LCFAIR,FEYRLY,ALLINT,MODOb220
• •AUOITIONAL PARAMETERS FUN CP~T HEPUWT -ENERbY TAHLE MUOO&~30
+CPRT,TECHEN)MOOO&240
c - -•- - - - - - - --- - - - - --- - - - --- - -MOOOb~SOYEAHS(1)=YEAHSC1)·FLOATCLR+ITHOW~I)00005430
EEVC=AMM+OM 0000544u
CSOItT T=CSOuTT'"1 000.1 CCUROEM"'YLF *8.7&)00005450
CSENVT=CSENVT*1000.ICCUHOEM*YLF*6.7&)000054bO
CONTINUE .00005470
TEHMIN=FALSE 00005460
C *****5TAHT VISITATION **"'***00005490
C --- - - - - - - -••-- - -c -- - - - - - - - - - - - - ---MOOu&200C1'1000&270
C'1'1000&280
C IP=O 00005500
C N=1 00005510
C UU 1910 I=I,N~00005520
C1910 ISCI)=O 00005530
C IFC.NOT.HSCEN}GOTU 1909 00005540
C - - - - - - • - • - - • • - - • - - - - • • - • - - - - • - -MUOO&2~u
NSC=O 00005550
1900 IP=l 000055bO
1401 NSC=NSC+l 00005570
C - - - - • - - - -••- • - • - - - - - - - - - - - • - -MOOOb300
C MODO&310
C MODO&320
C IF(NSC.GT.10)uOTO 1960 00005580
IF (N5C .1;1.NSCEIO GO TO 1980 1'1000&330
IFCISPN(N5C).LE.NbCE~)GU'O 1904 00005590
GOTD 1901 00005600
IFCISCIP).NE.lSN(NSC,IP).OR.PfHFCS)GOTU 1906 ~0005&10
IP=IP+1'00005&20
79321
8.22
GOlD 1'105
1908 IP=IP+l
1905 IF(IP.GT.NP)GO[U 1900
GOlD 1931
c - ---- ---~- - - - ----- --------•----=-•
C
C
C 1 909 CONTINUE
C1920 IP=IP+l
C IF(IP.EQ.NP)GOIO 1940
C lS(IP)=NB
C1930 N=N+1
C
C - - - - - - - • - - - -•- ---~--~-- --- - - ------1 q:Sl CONTINUE
C IY=NYPP*IP+l
C *****LOGIC FORwAkD *****
IR=(lP-l)*NYPI-'
AIP=AIF**(lH)
00005030
00005b~0
MU006340
00005650
00005600
14U006350
00005&70
00005b~0
MOOO&3&0
MODOb370
00005090
00005700
00005110
00005720
MOOO&360
MuOO&390
MOOOoQOU
00005730
000051QO
00005750
000051&0
00005170
M0000410
M0006420
00005760
00005790
00005800
00005810
00005820
00005830
00005840
MUOO&430
MUOO&440
1"1000&450
00005850
000058&0
OOOO!)lt/O
00005880
00005890
00005900
00005910
00005920
000059:.10
00005940
00005950
00005900
00005970
00005980
00005990
0000&000
00000010
0000&020
0000&030
0000&040
00000050
000060&0
000u6010
6010 1904
-DO 1'107 1=IP,NP
IS (l)=15PN (NSC)
IS(I)=I5NlNSC,X)
FFS=T1WE
CGk=OeO
IFlPEHFCS)CALL CEXS(ALPHA,B~TA,NYP~,NP,DL1A,I5,
+DEMFO~,GC,NYL,FNYL,DEM76,N6,AL,LR)
~---------
C
C
C
C
C
1900
1901
C1907
c
C CALCULATE PROBAUILITltS AND GROwTH kATEs
c --- - - - - - -•--- - --~-------~--~~----~-
C
C
C IF(Nb.EQ.2)GOIO 193bl
C IFlNB.EQ.l)bOfO 1~3b7
C PR=I.
C 00 1935 X=I,N~
C IS1=15(1)+1
C1935 PR=PH*Ql(IS1)
C GUTll 193&5
C19301PR=.5**IP
C GRUW(IP+l)=ALPHA*bHOW(IP)+BETA*AL+OLTA*2.*lFLOATlIS{IP»-1.5)
C GOIO 19368
Clq3b5GRUW(IP+l)=ALPHA*GROW(IP)+BErA*AL+fLUAT(I8(IP)-~)*OLTA
C GOIU 19308
CI9301PR=t.
C GMUW(IP+1)=bRUWll)
C19So8CGR=O.
C 151=IS(IP)
C IF(IP.~Q.l)b010 19~72
C 00 1937 I=2,IP
C19S7 CGR=CGR+FLOAIlNYPP)*GROW(l)
C193/2CONTINUE
C
C IF(.NOT.RSC~N)GO'U 1925
C FINO SELECTED lREt PA1H ~RANCH P~OBABILITY.
I
C PH=O.
C UO 1927 1=1,10
C IF(ISPN(I).~T.NSCtN)GOTO 1927
C ~O 192b IT=1,lP
C IF(IS(IT).NE.ISN(l,IT»GOTO 1927
C192b CONTINUE
C PR=PR+SCPR(I)
C 1927 CON TlNUE
C 1925 CONTINUE
C ----•- - - - - - -------------- - -•~-- - --
C
C PERIOD PR06ABILITY IS THE SAME AS THE PATH PROBABILITY
PR=SCPR(NSC)
C
ISl=IS(IP)
C
C - - -•- --- - - - - - - - - - - - - -------~~- - ---
C BEGIN LOOP OVER YEA~S IN PERIOD
C
ALOOPF=AIP
DO 1938 ILOUP=1,NYPP
ALOOPF=ALOOPF*AIF
IYH=(IP-1)*NYPP+IlOOP
FIYR=FLOA T(IYH)
IYRP1=IYlh1
c -- - - ---- - - - ----- - --- - - - - - --- ---
C
C
C GCOH=GC*(FIYH-HNYL)
C IF(IYR.GT.NYL)GCOH=O.
CC I __ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _•__ _
IYEAH:IFIX(Y~ARS(I)+.5)+IYHc _ - _ - _ _ __- _ - _ - - -•.--~c - - _ -
C
C
C CGR=CGH+GROw(IP+1)
C GCSUH:GC*FIYR*(FIYR-FNYL)/2.
C IF(IVR.GE.NYL)GCSUM=O.
C CUHOEI":(1.+CGR+GC~UM)*OEM78
C EGRO(IYk)=GHOW(lP+l)tGCOk
2~000 FOwMAT('HMYES,Iy~,CUROEM,TOTCAP'/10L1,I4,
+2F10.0,F6.3)
C CUROGW=GRUwlIP+1)
Cc _ _ _ _ _ _ __- _ - _ - - - - --_ - - - _ _ --c - --- - - -
C
C CALCULATE GROwTH
C
IF (IYk .LE.IFIXlFCPEH2»ACTGR(IYk,:AL
IF (IYk .GT.IFIXlFCPEk2»ACTGR(IYR)=
*(Y~LYOM(ISPN(N~C),IYH)-YRLYOM(ISPN(NSC),IYH-IFIX(FCP~R2»)/
*lDEM78*fCPtW2)
CURUEM:YHLYOMlISPN(NSC),IYR)
CUHUGR=ACTGRlIYR)
IF (IYk .EY.1)Eb~O(I)=lYHLYOM(ISPN(NSC),l)-OEM78)/OEM7U
IF (IYW .NE.1)EbkOlIYH)=
B.23
00006080
00006090
00006100
00006110
0000b120
0000Q1:.50
00006140
000061S0
00006160
M0006460
MOOOb470
/010006480
1010006490
,"I000b500
I'\OU06510
....000&520
1'10006550
00006170
0000b180
OCl006190
00006200
0000&210
00006220
00006230
00006240
1010006540
MOOOb550
M00065bO
00006250
00006260
MOOOb570
MOOOt>580
00006210
M000659il
1"10006&00
1'10006610
0000&280
0000&290
00000300
00006310
00006320
00006330
uOOO&j40
00006350
MUDOb620
•.,OOO&b30
MUDObb40
1010006&50
,"l£J00b6bO
MUOOb010
fo'IODObb80
HQOOb690
....000670u
M0006710
1-10006720
MOD06HO
M0006740
c
IF(.NOT.RUNOEC)G010 2035
IF(.NOT.RUNPf()GOTU 110
MOI>0&7Sll
MODO&7bu
I1UOO&77 0
i"1UOO&760
,"'0000790
0000&3bO
0000&370
00000360
00000390
MUOO&600
,...0006810
MUOO&82u
OOOObliOO
00000410
0000&1120
0000&430
0000&440
0000bll50
000004bO
0000&470
0000&480
1'1000&830
,..,000&840
1'1000&850
1'100068&0
1"000tl870
MCJOOb880
000061190
0000&500
0000&510
00000520
0000&530
0000&540
1"1000&690
1'1000&900
0000&55"0
0000&5bO
M0006'HO
MOD00920
1'10006930
0000&~70
0000b580
0000&590
00006&00
MOOO&940
1'4000&950
1'1000&960
0000b&.10
MU000970
0000&020
0000bl:l30
0000&&110
0000tl&50
0000&0&0
0000&670
0000&&1:10
0000&&90
------------..--~-----
B.24
C
C _____---•- ----~-e -- - ---~--~_-=-~--
C
C SET DECISIONS FOR IYR
C
*(YkLYOM{ISPN(NSC),lYH)-Y~LYUH{ISPN(NSC),lY~-I»/
*OEM76
CGR=CGR +EGHU(IYk)
C
C
00 11123 I;I,LEAOMX
IF{IYR+I-l.GT.LW)GOTU 11124
CALL PRMGN(PRMBEF,PRM,PHMAFT,IFRMYR,ILHMYR,IFFy~+IYR~I-l,
+PRMGIN)
11123 PRMG{I);PRMbIN+FLUAT(I)*RMINC-RM~AS
111~4 CONTINUE
C ------------- - - - --•- -.'--=----~----C --ADD AMWINC TO CPLAN ~ARAMETER LIST
CALL CPLAN(I'k,NS,LRPl,LEAOMN,LEAOMX,LEAO,CCAP78,RETlRE,
C +!AVYR,TKNAM,FFS,AVL,CEP,CEXUEM,PRMw,AJ,CAPLIM,AMIXYO,SIll,HMVES)
+IAVYW,TKNAM,FFS,AVL,CEP,CEXOEM,PWMG,AJ,CAPLIM,AMIX90,SI~l,riMYES,
+AMWINC)
c -~=~~------ - ---------~~-~e --=~--•-
C
C
C IF{.NOT.RSCEN.OH ••NOT.~ERF(5)GOTO 11110
C DO 12111 I;I,LEADMX
C IF(IYR+I-l.bT.LR)bOTO 11122
Cl~111CEXnEM(lJ:OEMfUw(lYR+I-l)
C GOTO 11122
Cll110CONTINUE
C CALL CEXD{LEAUMX,NYPP,IYR,CUROE~,AL~HA,BETA,AL,CUROGR,
C +NYL,GCOR,NP,GC,IP,CEXUEM,OEM78)
Cl1122CONTINUE
C -----~-•-~- --- - - ----- - - ------ --
C
CALL CEXO (LEAOMX,NYPP~IYR,CUROEM,ALPHA,~E1A,AL,CUHOGR,NP,
*CEXOEM,DEM78,FCPfR3)
c ---- - • - - - --- - - -------- - - --------
C - -UO LllOP FINAL VALUES IfIICRUSElI 10 1&FoR THE 10
C Tl:.CHNOLOGIES
C 00 2030 1;1,10
00 2030 1=1,10
20S0 IF{RMYES(I»10TCAP;TOTCAP.CEP{I,IYRPl,NS)-R~TlRE{l,IYkP1)
HRM(IYW);lOTCAP/Dl:.~(IY~)-I.
IVCYR:(IP-l)*NYPP+(NYPP+2)/2
IF(IP.EQ.l)lVCYW;NYPP/2
IF(IP.EQ.l.ANU.NYPP.EY.l)IVCYR=1
IF(NVCPP.EY.1.ANO.IYR.NE.IVCYk)GOTU 1938
c --- - - -----•2035 CONTINUE
ffS;FALSE
TOTCAP=CT0f78
OEM(IYR);CUkOl:.M
8.25
---------------------.----
- -stT BLOC,ALF,VLF TO THE IYW YEAH VALUES
CONTINUE
AMS=(AMM+OM)/ll.-tLOSS)
ENYEAR=CU~DlM.YLF*8.70
TVC=lVC+OM*ENYEAR/I000.
TTTCOS(IYH):TVC .
TTOUS(IYR+l1=CSOUT
TTEOS(IYR+l1=CSfNV
TTENGY(IYH)=ENYEAR
J:YRA=LR-S
TENGY=.OOOOOI
1TC05=0.
DO 109 1:1,2
ALF(I):XALf(ISPN(NSC),IYR)
00 109 J:l,12
BLOC(J,I):XLOC(ISPN(NSC),IYR,Jl
CONTINUE .
YLF=ALF (1)
0000&700
00000710
0000&720
0000&730
0000&740
MOOo09l:Hi
0000&750
------M000099u
MOD07000
0000b7&O
00000710
00000780
00000790
0000&800
- - - - ----- - --- --M0007010
0000&810
0000&820
- - - - - - --- ---- - - --M00070~01>10007030
1'10007040
MODII70~O
1'10007000
1'10007070
M0007080
M0007090
M0007100
M0007110
- - - --- - - - - - --•-.'- - - - - - - - ----- - - - - -M0007120CALLPROOIJC(IYR,CAP,MWINC,AMWINC,uFp,NSIZE,LO(I,IYR),AVAIL,CLOC,00006830
+PKMAIN,OUTAV,CUROEM,YLF,FENG,FTI~E,HYPHDU,ALf,ULDC,D~LOC,P~,PMAIN,00000840
+HYHN,PPOET,kRM,DEM,TKNAM,O~TTYP,NH,NHy,IS,Ip,NP,NYP~,NVCPP,YEAWa,00000850
- - - - - - - - - - - - - - - - - - - - - - - - - - - ---- - --MU001130
+~PRUO,VC,ENV,OUTCST,APCOET,TERMIN,TVC,AMM,ITHUH,VCESC,~yMULT,OfO,11000&800
+HA,OUTESC,UUTC,CSENV,CSOUT,PHM)·0000&870
+RPROO,VC,ENv,HR,IFTU,FC,IYFOE,OlJTCST,APCOET,TEwMIN,TVC,AM~,JTHO~,MOD071QO
--HCUTtL ADDED TO PARAM~TtR LISr M0007150
+VCESc,FUESC,HYMULT,OFO,HA,OUTESC,oulC,CSENV,CSOUT,PRH,HCUTIL,MOU071bO
- -AUOITIUNAL PARAMETERS fOR SUdROUTINE WHTINT M0007170
+ACAP,AGEN,FCA~,FGtN,XLOLp,INTR,M000718u
- •AUOITIONAL PARAMETERS FOR ANCHOwAGE -FAIkBANKS M0007190
LIMITED jNTERTIE CALCULATIONS M0007200
+LCFAIR,FEYRlY,ALLINT,M0007210
- -AUDITIONAL PARAMETERS FOR CPHT HEPORT -ENER6Y rAHLE M0007220
+CPRT,TECHENl MU007230
M0007~40
1'10007250
0000&880
0000&890
00000900
00000910
0000092'0
0000&930
00011&940
0000&950
0000&9&0
·0000&970
0000&960
1()9
211.H
C
C
C
C
C
11 ()
C
c
c
C
c
C
C
C FINO CAP ~OR PRODUCTION CUSTING
00 2()j2 IC=I,7
IF(.NUT.OCOEMIIC»)PKMAIN(IC):OUTCAP(IC)
2032 IF(OCDEM(IC»~KMAIN(IC)=OUTCAP(IC)*CUHUEM/UEM78
C DO 19373 IC=I,10
DO 1~373 IC=I,lb
19373 CAP(IC)=CCA~78(IC).CEP(IC,IYHP1,N5)-RETl~E(IC,IYRP1)
C --- - - - - - - - - - --- ----- - - - - -C - -HYRN IS NO LONGER USED UY PRODUC
C IF(HYEN(2).LT ••S)GOTO 19370
C 00 19374 1=1,3
C PpjHYEN(I)/HYEN(2J
Cl~374HYRN(I)=HYEN(I)+(CEP(10,IYRP1,NS)
C ?-RETIRE(10,IYRP1)J*HYINC*PP
C -~- - - - --- -~-•--- - --1937b CONTINUE
C
C - - - - - - - - --•-- - -C
C
8.26
-~---------------~-----~----~---
2043
00006990
00007000
00001010
00007020
00007030
00007040
00007050
00007000
00007070
00007080
00007090
00007100
00007110
00007120
00007130
00007140
000071 SO
00007160
IF(NVCPP.EQ.l.0R.lYR.NE.llGOTO 2500 00007170
G=EN78/ENYEAR 00007160
EVALUE(1,2)=G*TVC*10.**6 00007190
TTOCOS(1)=CSOUT*G*10.**0 00007200
TTECOS(1)=CSENV*G*10.**0 00007210
CONTINUE 00007220
VALUE=TVC*10.**b 00007230
EVALUE(IY~+1,IS1)=VALU£*AIF**(IYRl 00007240
Tl0COS(IYR+l)=CSOUT*10.**b*AIF**IYR 00007250
TTECOS(lYR+l)=CSENV*10.**6*AIF**IYk 00007260
IF(NVCPP.EQ.1)GOTU 1938 00007270
IF(ILOOP.NE.llGOTO 19378 00007260
PRINT 1q9b,IYEAR,~GRO(IYR),AMS,OEM(IYR).RRM(IYR),PR.(IS(I),1=1,IPl00007290
GO TO 1938 00007300
IF(ILOOP.EQ.NYPP)GOTO 1938 00007310
PRINT 1997,IYtAW~EGRO(IYR),AMS,UE~(IYR),RRM(IYR)00007320
00007330
00001340
000073~O
00007360
00007370
00001380·
00007390
00007400
00007410
00007420
00007430
00007440
00007450
00007460
00007470
00001480
00007490
Oo007~00
00007~10
00007520
00007530
00007540
MlI0072&0
TEC09=0.
TOCOS=O.
IF(IY~.LT.LR-5.ANu.(LVZ.OR.(NYPP.LE.8)l)GOln
00 2039 I;IYRA,LR
TTCOS;TTCOS+TITCOS(l)
TECOS=TECOS+TIEOSlI+1l
TOCOS=TOCOS+TTOOsII+1)
TENGY;TENGY+TTENGY(I)
IF(TENGY.GT ••OOOllGOTO 2041
IYIU=IYRA-l
IF(IYRA.GE.1)GOTO 2037
TAM=TTCOS*100U./TENGY
TEM;TECOS*l~OO./TENGY
TOM=TOCOS*1000.IT~NGY
CONTINUE
CONTINUE
IF(NVCPP.NE.1)GOTlI 19375
AAF=AIFuUVCYR)
IF(IP.NE.l)G010 1~19
G=EN76/ENYEAR
TTOCOS(1J=TTOCOS(IVCyR+l)*G/AAf
TTECOS(l)=TTECOS(IVCYR+ll*G/AAF
fVALUE(1,2l=EVALUE(IVCyR+l,IS1)*G/AAF
CONTINUE
ET;EVALIIE (IVCYR+l,IS1 l
UO 1939 I=l,NYPP
FRACTN=(UEM(IYR+1-Il/DEM(IVCYR)J*Alf**(IY~~1-IJ/AJf**IVCYR
EVALIJE (IYIH2-1,151 l=ET*FRACTN
TTUC09(IYW+2-I);TfOCOS(lVCYR.ll*FRACrN
TT~CUS(IYR+2-I)=TIECOS(IVCYR.ll~FWACTN
CONT HillE
CONTINUE
IF(IP.NE.~PlGUTO 19380
IF(OECOETlCALL UPRINT(YEARS,TKNAM,IS,NP,IYH,LEP,UE~,PR,PRM,
+OECOET,RETIRE,NS.CTOT78,RRM,IFRMYR,ILRMYR)
t 9 59
l'H7S
~059
~500
1919
C
C
1 W5li
19578
c
2043
C
C PWINT 1 LOGIC
C
2041
C
C - -CAPACITY AND ENtRGY PRINTUUT RUUIINE -DEMP~T
IF (CPRT)CALL DEMPHT (TITLE,YEAHS,lKNAM,lti,NP,IYN,CEP,~tM,OEM78,
+PRM,RETIRE,NS,CCAP1M,
C ADDITIONAL VARIABLES FOR THE ENERGY TABLE
•AVf7a,YRLYfN,r~CHEN)
C
C _ _ _ _ - - ---•-e - - - - - - - - --- -----~- --
IF(ITHOR.LT.IJGOTO 40003
IF(.NOT.HUNFIN)GOfO 19380
CALL PHOLEV(FC1,FCTLH,FCTL,FCTL1,FCHL,LT,L~,Ofl,OF2,Of3,
.OF4,OF5,LTD,L~O,Of,0F.LEv,FCLEV)
C WRITE(11,40000)
C WRITE(11,40001)(FCLEV(I),I;1,10),OFLEV
C WRITE (11,4Q001)lFCLEV(I),I;l,l&),OrLEV
40000 FORMAT('LEVELI2ED"FIXEO CHARGE RATES TO LB A~O LdAVE fOR'
C .,'TECHS 1 To 10,DIST.THEN wRITE TERMIX(j),I=1,10.~)
+I'TECHS 1 TO 1&~UIST.THEN WRITE TEHMIX(I),I=l,l&.')
C40001FOHMAT(11F7.5J
40001 FORMAT (17F7.5)
CALL TERFIX(LBAVE,OF,L8,LBO,FCLEV,OFLEV,FC~SC,TERMIX,
+LR,CAPCST,UISFC,TfC,ITHOR)
C WRITE(11,40001)(FCLEV(I),1;1,10),OFLEV
C wRITE (11,40001)lFCLEV(I),I;l,l&),OFLEV
C wRITE(11,40001)(TERMIX(I),1=1,10)
C WRITE (11,40001)lTERMIXlI),l=l,lo)
C WRITE(11,4000~)(TFC(I),I=1,ITHOR)
40002 FORMAT('TERFIXTFC:'/((10F8.0»)
c - - - - - --- - - - -~- -•- - - - - - - - - - - - - ---~-C - -CALCULATE CUHY FOR 7 HYDHO TECHNOLUGIES
C CUHY=CCAP78(10)+CEP(10,LHP1,NS)+RETIRE(10,LRP1)
CUHY=O.O
00 11117 1=10,1&
CUHY=CIlHY +CCAP"18(I)+CEP(I,LRP1,NS)+RI;T1REU,LRPt)
11117 CONTINUE "
C - - - - - - -_..- - - - - --- --'.- --- - - • - - - - - --FOMRET=O.
00 11118 1=1,9
CAP(I)=CCAP78lI)+CEP(I,LRP1,N5)-REfIRE(I,LWP1)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -C .
C --COUE CORRECTIUN FOR THE CASE wHEN TOTCAP=CUHY
Cit t 18fOMRE T=FO'-1HE T+FOANOM (l)*CAP (l)I (TO TCAP-CI'H n
C - - - - - - - - - --- - - - - - - - - - - - - - - - - -IF (TOTCAP -CUHY .Lf ••00001J GO TO 11118
FOMHET=FOMRET +FUANUM(I)*CAP(IJ/(TOTCAP -CUHY)
1111li CONTINUE
C -- - - -- - - - -----
C ----------------
C
C
C EGHO(LHP1)=~AIE1*GROW(NP+1)+RATE2*AL
~GRO(LHPl)=kA1El*~GHO(LR)+HATE~*AL
C
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -CALL FOMESC(CLOC(501),CLOC(601),FCE5C,CAP,CTuT,CUHY,LR,
+ITHOk,FOANDM,fEkMIX)
B.27
M0001270
MOU07280
M0007290
MOD01300
M000731U
M0007320
1>40007330
MOD073110
00001550
000015&0
00007510
00007580
00007590
00007&00
1'40001350
00007&10
00001&20
M0007360
00007630
M0007310
00007&40
00001&50
000010&0
140001380
00007&70
MOU07390
00007&80
00007&90
M000740u
140007410
00001700
M0007420
140007430
i'IIO"D011140
l'401>07450
1'100074&0
00001710
00007120
000071.50
1'40007470
MOU07480
MODOH90
000017110
M0007500
M0007510
/1010007520
1"10007550
1"10007540
M0007550
M01>075&0
M0007570
00007150
MU007580
1"10007590
MU007000
000071&0
00001710
00 7q3q I;LWP2,HOWIZN
7q34 EGRO(1);EGRU(I-l)*RATE1.AL*RATf2
C *****CALL TERMINAL VALUE MODEL *****
CALL TERMlrAM,EEVC,DF,AIF,OL~,ALR,LR,lTHOR,AL,RATE1,KAlc2,
.OEM,EGRO,YLF,CUHy,TOTCAP,CLOC(201),Pk~,~~M,TFc,lE~MVC,VAHP~C,
.EN7n,CGR,DEM76,CLUC,CLOC(601),CLOC(501),OfLEv,OISE~C,UIS,~A,
+PRMBEF,PRMAFT,IFFYR,IFRMYR,ILHMYR,LUAVE,CLUC(701),C
.TUM,TEM,TERMEC,TERMOC,CSENvr,CSOUTT)
qnOOJ CONTINUE
C *****FINANCIAL CALCULATIONS THAT DEPEND UN DECI~IONS *******
CALL CEPMuOlCLOC(401),NS,CEP,LHP1,ISIAkT,CLOC,TERMIX)
CALL START(LAGREG,SGRU,~GRU,EOINT,RijE,EDEHI,COCHIS)
CALL CAPCURlCtP,N~)
CALL AMORT
IF(LAGREG.EW.O)CALL FXCHAR(FCl,fCTLH,fcTL,FCTL1,fC~L,LT)
IF(LAGHEG.NE.O)CALL FXCHRLlFC1,FCTLH,FCTL,FCTL1,FChL,LT)
CALL'FXCWIP
CALL CAAHORlCLUC,rERMIX)
CALL OISTlL~O,LTO,OF1,OF2,OF3,Of4,OF5,EN78,OISTHA,ARATE,UI~E~C)
CALL PLMEXClCEP,STAPRT,NS,LSTAGE)
CALL COMFIN(LAGREb,EMBORT,EM6PWE,EMBCUN)
CALL CEpFIXlCLDC(401),NS,CEP,LkPl,15TART)
C
C
C
C
C
CALL FIXOMlFIXCHG,LRP1,CEP,RETIRE,NS,CCAP76,FOANOM,INFLA,
+FCESC,HOR Ilrj)
C **********END Of FINANCIAL SUbMOOEL ******************
AAF;I./AIF
GCUM;I.
PVfNGY;O.
OOf';I./I1F
ANNFX;O.
ANNEX;O.
00 19400 I;I,HOHILN
C HEWE,T~RMINAL FIX~O CHARGES STAHr STORAGE IN CLOC(200+PHO~lN+l).
IF{1.GT.PHOkZN)Fl.CHG(I);FIXCHG(I)+CLOC(20U~I)
UOF=UOF*OF
AAF;AAF*AIF
ENERGY;EN78*GCUM
ANNEX;ANNEX+EACoS1(IJ*OOF
ANNFX:ANNFX+FIXCHG(I)*DOf
FIXPRC(l);FIXCHG(I)/lENERGY*AAF)
IF(CNOOL)PV~NGY;PVENGY+ENERGY*AAF*unf
IF (.NuT .CNOOL>PVlUGY=PVENG Y+ENEkGY *lluF
lQQOU GCUM;GCUM+EGRU(l)
TE~MF=TERMF.PK*AN~FX
C CHANGE ENERGY GtNERATlO INTO ENE~GY SAL~~
PVENGY;PVENGY*ll.·£LUSS)
ANNEX;ANNEX/PVENGY
ANNFX=ANNFX/PVEwGY
c
IF(FINOET.ANO.RUNfIN)CALL P~TFIN(IfFYR,ILfYR,CURu,ANNFX,
+ANNlX,IS,NP,RUNFIN,PRM)
C
B.28
00007780
0000779<7
00001800
00007810
00007820
00007830
00007840
00001850
000078bO
0000187lJ
00007860
00007890
00007900
00007910
00007920
00007Q.sO
00007940
00007950
000079&0
00007970
00007980
00007990
00008000
00006010
000118020
00008030
00008040
00008050
00008060
00008070
00006080
00008090
000081 00
00008110
00008120
00008130
00006140
000081~0
000061&0
0000811lJ
00008180
000081911
00008200
00008210
00008220
00006230
00008240
000082:'0
000082&0
00008il0
00008280
00008290
00008300
00008310
00008320
00008330
00008340
IPI:.IW=l
ICOlJNT=O
.ANrJEC=O.
ANNOC=G.
ANN\lC=O.
OOf=l./OF
ISE=2
GCUM=l.
AAF=l./AIF
00 1938&I=l,LRPI
AAF=AAF.tAIF
OOF=IJOF.tOF
ENERGY=EN76*GClJM
VARPRClI)=EVALUE(l,ISE)/lENERGY.tAAf)
GCUM=~CUM+EbHO(l)
C THE PRESENT VALUE OVE~THE PLANNING HOHIlON IS ACCUMULATEU
C IN ANNEC,ANNde,AND ANNVC.THIS IS DONE FUW EACh THEE PATh.
AIIINEC=ANNEC+DUF*TfECOS(I)
ANNOC=ANNOC+OUF*TTOCOS(I)
ANNVC=ANNVC+DUF.tEiALUE(I,ISE)
IF(I.EQ.l)ISE=I~(l)
ICOUN1=ICOUNT+l
IF(ICOUNT.L~.NYPP)GOTO 1938&
IPERO=IPEWO+l
ICOUNT=1
ISE=IS UPEfW)
1 'J 58&CON TI NUE
C TE~MEC,TERMOC,AND TI:.RMVC ARE PRESENT VALUES fROM THE TEHMIIIIAL
C VALUE MOOEL.TERME,TERMO,AND TERMV ACCUMULATI:.1HE
C EXPECTED PRESENT VALU~S OVER ALL TREE PATHS.
TEHME=TERME+PR*lANNEC+TEHMEC)
TEkMO=TERMO+PW*(ANNOC+TEHMOC)
TERMV=TERMV+PH*(ANNVC+TE~MVC)
ANNVC=(ANNVC+TERMVC)/PVfNGY
C ERMARG=ERMAWG+PR*RHM(LR)
TOTCG=ANNVC+ANNfX
C CHANGE PRICES FRON GENERATION COST INTU SALES PRICE.
00 19384 I=I,HOkIZN
VARPHC(l).VARPHClIJ/(l.-ELOSS)
l~384 FIXP~C(I)=FIX~RC(l)/(I.-ELOSS)
IFlPRCS)CALL WRTPRC{FIXP~C,VAHPRC,AIf,IFFYk,lLFYR,HOkIlN,IS,NP,
+PRM,ANNVC,ANNfX,OMMJ-------------.------------------ -CUST ~UMMARY REPORT ROUTINE
(CSUM)CALL wRISUM lFIXPRC,VARP~C,YRLYOM,OEM78,YRLY~N,AVE78,
IfFYR,L~,PRM,IS,NP,INFLA,COSC,ISPN,N~C,A~CON5,
PKCON~,lCCONS,PCCON~,TIrLE)----------------------------------.------- -AIIICHORAGE·FAIR~ANKS INTEHTIE k~PURT
(INTRJ CALL WRIINT (TITLE,T~NAM,CCAP78,AP78,FP78,AE7b,fE78,
APY~Ly,~PYHLy,AEY~Ly,fEYkLy,ACA~,AbEN,fCAP,fGtN,.LULP,
)FfYR,LW,PHM,1~,NP,ISPN,N5C,
--AUUITIONAL PARA~ETERS fO~GLENNALLEN
GP7~,GE18,GPYRLy,GEYRLYJ
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -lQj80 CONTHWE
B.29
00008350
000083&0
00008310
OU00838U
0000839u
00008400
00008410
00008420
0000843u
00008440
00008450
OU0084&0
00008470
00008480
00008490
00008~OU
00008510
OU008520
00008530
00008540
00008550
000085&0
00008570
00008580
00008590
00008600
00008&10
00008620
00008630
00008640
00008&50
00008&60
00008&70
00008680
00008&110
00008700
00008710
00008720
0000873u
00001'140
0000875(/
000087&0
140007&10
M0007620
140007630
140007640
M00016~O
M0007&60
MOD07670
1'40007680
MOOOlb90
M0007700
MU007710
l'I0007720
MOIl077 .sO
1400017110
00008770
GO TO 1908
B.30
IFlRSCEN)GOTO 190~
IF(IP.EQ.NP)GUTO 1950
GO TO 1920
15 UP)=NB+l
IS(IP)=IS(IPj-l
IF(IS(IP).Ew.NB)GUTO 1953
FFS=TlHJE
CONTINUE
IF(IS(IP).NE.O)GOTO 1930
158=2
IF(IP.NE.l)lS~=ISlIP-l)
00008-lIl0
00008190
u0008800
00008810
00008820
00008li30
00008840
00008850
00008800
00008870
00008880
00008890
00008900
00008'110
00008920
00008930
00008940
00008950
00008900
00006970
00008'180
0000l)9~0
MUD07750
M00071&O
M0001770
00009000
01>009010
00009020
00009030
00009040
00009050
000090&0
00009010
00009080
00009090
00009100
M0007780
MODO 1790
M0001800
"'01.>07810
00009110
00009120
00009130
00009140
00009150
000091&0
00009170
00009180
00009190
00009200
00009210
00009220
000092.50
00009240
00009250
00009200
00009~10
c
C END OF ANNUALIZED FIX~O AND VARIABLE CUST LOGIC
C
C
C PRINT LOGIC 2
C
cc ----_- __- _ -_-e 0 _ •______~_____ ___ - _
C IY=NYPP*IP+l
C *****LOGIC BACK *****
C DISCUUNTING
C IF(NYPP.EQ.l)GOTO 19105
C NYPPM1=NYPP-l
C 00 1910 J=I,NB
C 00 1910 I=I,NYPPMl
C 1910 EVALUE(IY-I,J)=EVALUE(IY-I,J)+DF*EVALU~(IY+I-I,J)
c 19705 CONTINUE
C TAKE EXPECTED VALUE AND OI5COllNT
C IF(NB.EQ.2)GOTO 1913
C rFlNd.fQ.l)GOTO 1914
C ETEMP=OF *(bl*(E VALIJE 1I Y-NYPP+l,3)+EVALIJE (1 Y-NYPP+l,1))12.
Ct +ll.-Y)*EVALUclIY-NYP~.1,2)
C GUTU 1915
C 1'113 ETc~P=DF*(EVALUElIY-NYPP+l,I)+EVALUE(lY~NYPP+l,2»/2.
C IOIlTO 1915 .
IF(NVCPP.Nt.l)GOTO 19394
IYEH;IVCYR+IFIX(YEARS(I)+.5)
IMR=IVCYR
IF(IP.EQ.NP)PWINT 1995,IYER,EGHO(IMR),A~5,UEM(IMR),kRM(IMM),
+ANNVC,ANNFX,TUTCG,PR,(IS(I),I=I,IP)
IF(IP.NE.NP)P~INT 199&,lYER,EGHO(IMR),AM5iUEM(!MW),RRM(IMk),
+PR,(IS(I),I=I,IP)
GOTO 19397
19394 IF(IP.NE.NP)GOTO 19398
PRINT 1998,IYEAR,EGRO(IYR),AMS,DEM(IYR),WRM(IYH),
+ANNVC,ANNFX,TUTCG
Goro 19391
19398 PRINT 1991,IyEAR,tGRO(IyR),AMS,OEM(IYR),RRM(lYH)
19391 CONTINUE
C
C *************************
C ~- - - - - - - - - -c
C
C
C
C
C1940
C1950
C
C
C1953
C
C
(
C
Ii.I
B.31
\10009280
0000'12'10
Ou00930<l
MOD07820
MOD078.50
00009310
0000932<1
M0007840
00009330
00009340
0000'1350
00009360
00009370
0000'1380
00009390
00009400
00009410
00009420
00009430
00009440
00009450
00009460
00009470
00009480
00009490
00009500
00009510
00009520
00009530
00009540
00009550
00009560
00009570
00009580
0000'1590
00009600
00009610
00009b20
00009&30
00009640
00009050
000096&0
00009bl0
0<100'1680
00009&90
00009700
00009710
00009720
00009730
u0009740
00009750
000097&0
00009770
00009780
0000'1190
00009800
00009610
--.-------~---------------------.-
199b
1997
199/1
3995
C 1974 ETEMP=OF~£VALUE(IY-NYPP.l,l)
C 1975 EVALUE(IY-NYPP,I~e)=EvALUE(IY-NYPP,ISB)+E1EMP
C ~***************.*****
C
C
C IP=IP-l
C IF(IP.NE.O)GOIO 1~50
C -- - - - - - -•---
1980 CONTINUE
C *****END OF VI~ITATIUN *****
1'88 FORMAT(//uX,'PRODUCTION bY YEAH',12X,'LEVELllEO PklCtS',
.+'(M/KWH)',4X,'PiWe .TREE')
1989 FORMAT('YEAR G~Ow V+E+O DEMAND
+'V+E+O fIXED TOTAL',10X,'PA1H')
1990 FORMAT(08X,'(M/K~H-',I4,'~l',2X,'(~~)',10X,
+'(LEVELIZED ',14,'DOLLARS)'/)•
1991 FURMAT(06X,'(M/KWH-',I4,'$)',2X,'(MW)',6X,
+'(lEVElIZED CUR~ENT OOlLAkS)'/J
1995 FORMAT(14,Fb.3,F08.2,F9.0,fb.3,7X,-3~F7.2,2F7.2,OPF8.3,
+2X,30!1)
FORMAT(I4,Fb.3,F08.2,F9.0,Fb.3,28X,F8.3,2X,30Il)
FORMAT(I4,Fb.3,F08.2,F9.0,F&.3)
FOHMAT(I4,F&.3,FOU.2,F9.0,Fb.3,7X,-3PF7.2,2F7.2)
FORMAT(/'EXPECTEO PRICES(M/~WH)',10X,8X,-3PF7.2,2F7.2/
+'ANNUAl COS)TO CUNSUMfHS(~Ml',5X,bX,-bP3Fl.0//
+'PLANNING RlSERVE MARGIN;',OPF8.3)
FORMAT('EXPECTEU RESERVE MARGIN;',F8.3)
FORMAT(10X,l5 A4)
399b
:5997
C
C
C
C ACCUMULATE lEVElllED COSTS FOR ~HINTOUT
C
IF(.NOT.SIDElCOST(IDEC,ll=PRM
IF(CNSYS)FHACrN=ENS76/(PVAEN*1000000.)
IF(.NOT.CNS~SJFRACTN=ANIZE/l000000.
IOTHER=1
ICOUO=IUEC
IF (SluE)IOTliEl<=O
If (SlUE)leOUO-l
IF(.NOT.CNSYS)GG=PV~EN*ANIZE
IF(CNSYS)GG=ENS78
COST(lCOUO,IOIHER+l)=TERMf*Ft<ACTN
COST(ICOUD,IOIHER+2):(TER~V-TERME-TEkMO)*FkACTN
COST(ICOUO,lOlHEH+3)=TERME*FRAC1N
CO~T(lCOUD,I01HER.4)=TERMO*FRACTN
IF(.NOT.SIOE)bOTO 3999
00 4001 1=1,4
4001 COST(2,I)=COST(1,Il*1000./GG
00 4002 J=I,2
COST(J,5)=0.
on 40UJ 1=1,4
4003 CUST(J,':i)=C()SI (J,~)+CUST(J,l)
4n02 CONTINUE
CAll PTCOST(SlOE,CNDOL,PVAEN,CUST,IO~c,JFFYR,lfRMYR,ILRMYN,PkM,
+ANIZE,CNSYS,ENS78)
·S9'l9 CONTINUE
iJ:
III
C CALCULATE PRICE Of ENtHGY
C
TEHMV=TERMV/PVAEN
TEHMF=TERMF/PVAEN
EPVHEQ=TEHMF+IERMV
POE=EPVHEQ
C
C ANNUALIZE EXPECTED CHARGES
C
C EANREQ HAS UNITS lMILLS/KW~)*1000e
EANREQ=TERMV+TERMF
O=OMMtrGG
TV=TERMVflGG
TF=TERMFflGG
E=EANREQ*GG
C
PRINT 3Q9S,TERMV,IERMF,EANREQ,TV,Tf,E,PRM
C
9999 CONTINUE
IF(.NOT.SIOE)CALL PTCOST(SIOE,CNDOL,PVAEN,COST,LOEC,IFfYR,
+IFRMYR,ILRMYR,PRM,ANIZE,CNSYS,ENS18)
99999 CONTINUE
wIn TE (l 0,3998J
3998 FORMATlll'OVER/UNuER CAPACITY PLANNING MOotL'1
+'UPDATED ~Y DECISION FOCUS,INC.8/8/79.'J
wR HE (l 0,399tH )
399tl1 FORMAT (II'OVER/UNDER CAPACITY PLAN~lNG MOUEL - -AREEP VEHsION'1
+'MOOIFItO ~Y BATrELLE NORTHWEST.2/1/82.')
STOP
END
B.32
00009M20
0000983U
0000984u
00009850
00009800
00009&10
000011880
00009890
00009900
00009910
00009920
00009930
00009940
00009950
0000990()
00009970
0000998u
00009990
00010000
00010010
0001U020
000101130
00010040
00010050
000100&0
MU0078~0
MOD078bO
MOD07810
00010070
00010080
C *******************************************************-
C *-C *ELECTKIC POWER HESEARCH INSTITUTE *
C **C *OVEIOtJNIJEtl CAPACITY PLANNING MUDt.L -
C **C *UEVELOPEO UNDER RP-II07 *
C **C *COSTS AND ~ENEFITS OF OVEH/UNOER CAPACITY *
C *IN lLECTRIC POWER SYSTEM PLANNING *
C **C *VERSION -DATED 8/8119 *
C **
C ********************************************************
C *•
C *ATTACHMENT ij •
C **C *THE FOLLOwING IS A NOTICE OF COPYRIGHT,•
C *AVAILABILITY UF SUBJECT MATTER,ANO OISCLAIMER *
C *WHICH MUST BE INCLUDED IN THE PROLOGUE Of THE *
C *CODE,IN ALL PRINTOUTS Of THE CODE,ANO IN REPURTS *
C *MADE FROM THE CODE.*
C **C *(ClIt'YIHGHT)1976 ELECTRIC POWER WESEARCH *
C *INSTITUTE,INC.*
C **C *EPRI RESERVES ALL RIGHTS IN THE CODE.*
C *THE CODE OW ANY PORTION THEREOF MAY NOT BE *
C *.tlEPtlUOUCEO IN ANY fORM WHATSOEVER ~ITHOUT THE *
C *CONSENT OF tPRI.SUCH CONSENT HAVING BEEN *
C *UBTAINED,CHANGt~OR MODIFICATIONS HAY bE MADE IN *
C *THE CODE PRUVIDED THAT WtlITTEN NOTICE AND A *
C *DETAILED OESCHIPTION Of ANY SUCH CHAN&ES Ok *
C *MOOIFICATIONS aHALL BE TRANSMITTED TO EPRI ~ITHIN *
C *ONE MONTH A~TtR SUCH CHANGES OR MOOIFICATIONS ARE *
C *MADE AND PRUVID~O FURTHER THAT,UPUN THE wRITTEN *
C *REQUEST OF EP~I,l~E CODE,AS CHAN~tO OR MOOlfIEO,*
C 1<SHALL BE GIVEN A NEW OESIGi\lA TION SuFF"!CIENTLY *
C 1<DIFFERENT FROM ITS CUtlRENT DESIGNATION AS TO *
C *PREVENT MISTAKE,CONFUSION,OR UECEPTIuN A~*
C 1<dE TWEEN THE CUHRENT~OOE AND THE COUE AS CHAN~~D *
C *OR MODIFIED.*
C **C 1<A LICEN~E UNOER EPRI'S RIGHTS I~THE *
C *CODE CAN BE OUTAINEO DIRECTLY FROM EPkI.1<
C **C *RfblUESTS FOR THE CuUE SIIUULO lit *
C *ADDRESSED TU:*
C **C 1<MH.EUGENE OA THAN 1<
C 1<ENEkGY ANALYSIS &ENVIRONMENT DIVISION *
C *ELECTtlIC pOwER RESEARCH INSTIrUTt *
C *3412 HILLVIEw AVENUE *
C *PALU ALTO,CAlIFOkNIA 94304 *
C 1<*
C ~(41~)8~5-2629 *
C 1<*
8.33
00010090
00010100
00010110
00010120
00010130
00ul0140
00010150
00UI0160
00010170
00010160
00010190
00010200
00010210
00010220
00GI0230
00010240
00010250
00010260
00010270
0001021S0
00010290
00GI0300
00010310
00010320
00010330
00010340
00010350
00010360
00010370
00010380
00010390
00010400
00010410
uOOl0420
00010430
00010440
00010450
00010460
00010470
IiOOl04bO
00010490
00010~00
00010510
00010SeO
00010530
0001054u
000105';)0
00010560
00010570
00010580
00010590
00010000
00010610
00010&CO
00010030
00010&40
00010&50
00010&&0
00010&10
U0010<O
00010b90
IlIJ010700
0001071 0
00010720
00010730
00010740
0001075U
000107&0
1l001077U
00010780
00010790
00010600
00010810
00010820
00010830
00010840
00010850
000108&0
00010870
00010880
00011010
MOD07880
M0007890
1010007900
M0007910
M0001920
UOOll020
00011030
000110460
(j00ll0~O
000110&0
0001107"
000110~0
1'10007930
1'10007940
01l01109l,
00011100
00011110
00011120
8.34
DIMENSIONS RELATING TO THE NUMtiE~OF TECHNOLOGIES
HA~E BEEN MOoIFIED TO ACCOMMOUAIE UP TO 7 hYDRO
TECHNOLOGIE~.
COMMON IC31 EXCPLM(100),C~IP(100),CC,DINT(10u),LAGk(1&)
•,AFUDC(100),VITCl100),CAPCSTl16),OINVST(100J,HJ~ASE{100),
•FewIPl16,13),NCON(16),FAFUOe(16,13),LEN(100),PC~I~,~ONORTllOO),
•EGRO(100r,AS~ET5l100),EXCOST(100),FIXCH'(100),ASS78
•,AAMORT(100),CURCAP(1&,100),FC~SC,AOOION(100),DEP~EC(100),
+TAXES(100),COVER(100),RATINT(100),DEL1A(100),COFCAP(1GO),
+RETINT(100),PKfFEH(100),COFeOM(100),ADDPON(100),OUMMY(250)
- -FCESe WAS NOT ORIGINALLY OIMEN~IONEU HERE ~
DIMENSION FCESC(1b)
DATA EXCPLM,FCWIP~FAFUOC,AAMORT,AOOIlIN/100*0.,20~*O.,20e*O.,
+100*0.,100*0.1
DATA OUMMY/250*OQI _
END
_ _____e ___••_____ ___ _ ___ _•
----~----..-.----~----.-----------
C
C
C
C
C
C
C '"N~I1HlR EPRI,ANY MEMBEH UF EPRI NOR ANY "C "PERSON OR ORGANIZATION ACTING ON BEHALF OF ANY UF "C "THEM:*C **C *(1)MAI\ES ANY r4AHRANTy OR '"C *REPReSENTA TION ~HAT~UEV~k,EXPHE~S *C "OR IMPLIED,l'I1 T11 HESPEn TO TtH:"C *ACCURACY,COMPLETENESS OR *C '"USEFULNESS OF THE.CODE OR ANY *C '"POtl fION 1 HERt:.Of;'"C '",;,
C '"l2)MAKES ANY WAiolRANTy OF "C "MERCHANTAIHL ITY UR FITNESS FOR ANY "C '"PU~POSE wITH RESPECT TO THE.COOE;*
C *flR *C '"*c ,:,0)ASSUMES ANY LIABILITY wHATSOEvER *
C *WITH RESPECT TO ANY USE OF THE.CODE *C *UR ANY POMTION THEHEOF OR wITH *C 1<RESPECT TO ANY DAMAGES WHICH MAY *
C I<HE~ULTFROM SUCH USE.*
C I<*
C ***"****************************************************
BLOCK UA TA
~i:":!
J:,j,i;
c
B.35
DIMENSION FCLEV(lb),LB(lb),TFC(100),FCESC(1b),lEWMIX(lb),
+CAPC.ST (1b)
00020010
00020020
00020030
00020040
00020050
000200&0
00020010
00020060
MU007950
M0001960
110001910
M00079tHl
00020090
00020100
00020110
00020120
00020130
OOO~0140
00020150
MU001990
000201&0
00020170
M0008000
MOD06010
M0008020
MUOOtlO:SO
M0008040
00020180
00020190
00020200
1010008050
00020210
00020UO
00020230
00020240
00020250
Mu0080&0
1010008070
MU0060tlO
00020260
00020210
00020260
1010008090
00020290
00020300
00020310
00020320
00020330
00020340
THE WEIGHTED AVERAGE FIXED CHARGES IN UOLLAkS PER
CONTINUE.
OFLBM:i.-DI5C**LBAVE
DFLEV=OFLEV*(1.-01SC**LBO)/DFL6M
00 10 1=1,111
00 10 I=l,lb
FCLEV(I)=FCLEV(!)*(1.-DISC**L8(IJ)/DFL6H
C
on 30 J=l,L{iMAX
TFC(J)=O.
C 00 20 1=1,10
uo 20 1:::1,10
TFC(J)=CAPCSTlI)*(I ••FCESC(I»**(LH+J)*FCl~V(I)*TEkMIX(1)*1000.
++TFC(J).-
20 CONTINuE
30 CONTINUE
RETlIHN
E.NU
C
C LEVELIZE TO CUMMON LBAVE HORIZON.
C
BAVE=O.
C DU 5 1=1,10
00 5 1=1 db
5 BAVE=HAVE+FLOAT(Ltl(I»*TERMIX(I)
LaAVE=IFIX(~AVE+.~)
C - -BYPASS SOME CODE TO AVOID DIVI~ION BY ZERO FOk THE.
C CASE WHEN OISC=l (I.E.INPUT COSC=O)
C THE EFFECT IS NOT Tu ~ISCOuNT OFLI;V AND FCLEV
IF (DISC .EU.1.0)GO TO 11
10
C
C CALCULATE
C t4EGAWATT.
C
C
11
C
SUMROUTINE TE~FIX(LBAVE,OISC,Ld,LBD,FCLEV,OFLEV,FCESC,TERMIX,
+LR,CAPCST,OISfC,TFC,LBMAX)
C
C THIS SUBROUTINE CHANGtS THE LEVELIZEO FIXED CHARGE RATES INTO
CRATES LEVELIZEO OVER LeAVE YEARS.JHI;N WE ESCALATEU LEVELIZtO
C FIXED CHARGE IS CALCULATED AND STORED IN TFC.N~lf THAT ThE
C wEIGHTED AVERAGE 15 CALCULATEO USI~G TERMIX.
C
C ---- ---- - - -•- - - --- - ------- - - --C - -DIMEN~IONS AND 00 LOOP FINAL VALUES MODIfIED TU
C ACCU~MOOATf 16 TECHNOLObIES.
C ------ - - - - ----- - - - - - - - - --.0 _ _ _ _
c
B.36
UIMf~SION FC1l1b),FCTLH(1&),FCTL(1&),FCTL1(1&),FCUL(1b),LTll&),
+LB(1&),FCLEV(I&),POINT(3),SLuPE(3),ITIME(4),OIfF(3)
00020350
00020J&0
00020370
00020380
00020390
00020400
00020410
!'1UOO&100
M0008ll0
M0008120
1'010008130
00020420
000204.50
00020440
00020450
000204&0
MuDo8140
00020470
00020480
00020490
00020S0U
00020510
00020520
00020530
00020540
00020550
000205&0
00020510
00020580
00020590
00020&00
00020blO
OOOaObaO
00020&30
u0020640
00020&50
00020&&0
·00020&70
00020&8U
00020b90
00020700
00020710
00020720
00020730
000a0740
00020750
000207&0
00020770
00020780
00020790
00020800
00020810
00020620
00020830
00020840
00020850
000208&0
DO 30 J=1,3
SLOPf(J)=OIfFlJ)/FLOAT(ITIME(J+l)-ITIME(J)-1)
POINT(a)=F2~+~LUP~(2)_FLUAT(ITl~E(2).I)
PUINT(1)=FC1(1)+SLOPE(I)-FLUAT(ITIME(1)+1)
POINT(3)=FC1Ll(I)+SLOPE(3)-FLOAT(ITIME(3)+1)
CALL LEVEL(POINT,~LOPE,ITIME,OI8C,FCLEYlI»
CONTINUE100
C
C FINO DlSTRI~UTIUN POINT ANU SLOPE INPUTS FOR SUBkUUTINE L~VEL.
C
ITIME(l)=O
C 00 100 1=1,10
00 100 1=1,1&
ITIME (2)=L HI)12
ITIME(3)=LHll
"ITIME(4)=LBU)
DO 10 J=1,3
10 IF(ITIME(J+l)-ITIME(J).LE.l)PRINT 20
20 FO~MAT(IWAHNING:TIME IS INCONSISTENT IN SUBHOUTINE PROLEY.')
DIFF(1)=fC1(I)-FCfLH(I)
F2B=FCTLH(I)-lFCTLH(I)-FCTL(I»/FLOAT(ITIMf(3)-111ME(2»
OIFf(2)=f28-FCTL(I)
OIfF(3)=FCTL1lI)-FC~L(I)
:so
IT IME (2)=LTO/2
ITIME(3)=LTO
ITIME(4)=LBli
00 40 J=1,3
40 IF(lTIME(J+l)-ITIMf(J).LE.l)PRINT 20
OIFf(l)=DF1-0fo2
F2B=OF2-(DF2-0F3)/FLOAT(ITIMf(3)-ITIME(a»
ilIFF (2)=F21i-Of3
DIFF (3)=DF4-Df5
00 50 J=I,3
5U SLOPE(J);OlFFlJ)/fLOAT(I1IME(J+l)-ITlNEeJ)-1)
POINT(2)=F2d+HLuPt(2)-FLOATlITIMEl2)+I)
POINT(l)=OFl+SLOPt(1)*FLOAT(ITIMEl1)+1)
POINT(3)=UF4+SLUPE(3)*FLUAT(ITI~~(3)+1)
CALL LEVEL(POINT,SLOPE,ITIME,OISC,OfLEV)
RETllRN
END
~u~~UUTINE PRUL~YlFC1,FCTLH,FCTL,FCTL1,FCBL,LT,LB,Df1,Of~,UF5,
+OF4,OFS,LTO,L~D,DisC,UFLEy,FCLEY)
C
C THIS SUBHOUTIN~LEYELIZES THE FIXE~CHANGE PHOrlLES FOR
C DISTRIBUTION AND ALL TEN TECHNOLOGIES,AND STn~ES THEM
C IN OFLEY AND FCLEV,RESPECTIVELY.
C
C __~____---- _~---G -----~•- ---Q -
C - -DIMENSIONS ANU OU LOOP FINAL VALUES MODIFIED 10
C AC~OMMOOATE 1&TfCriNOLOGIES.
C ~~----------~---~-•-----~~---~
C
C FINO POINT AND SLUPE INPUTS FOR SU6ROUTINE LEyEL.
C
B.37
SUBROUTINE LEVEL(~OINT,SLOPE,ITIMt,DISC,fLEVELJ
C
C THI~'UBHOUTINE FINUS THE LEVELIlED FIXED ChA~6E RAlE
C (FLEVEL)EQUIVALENT TU A GIvf~FIXED CHAH~E PRUfILE
C UNOER DISCOUNT HAlE DISC.
C
FLEVEL=O.
DISSlJ~'=O.
DISFAC=I.
00 50 J=I,3
ITLOW=ITIME (J J +1
ITHIGH=ITIME(J+l)
DO 40 I=ITLOW,ITHIGH
OISFAC:UI~FAC*OISC
DISSUM=OI5SUM+DISFAC
FLEVEL:FLEVEL+(POINT(J)-FLOAT(I)*SLOPE(J)l*UISfAC40CONTINUE
50 CONTINUE
FLEVEL=FLEVEL/OIS~UM
RETlJHN
END
0002087U
00020880
00020/:)9u
00020900
00020910
00020920
00020930
OU020940
00020950
000209&0
00020910
00020980
00020990
00021000
00021010
00021020
00021030
00021u40
00021050
000210&0
00021070
00021080
00021090
DIMENSION POINT(3),SLOPE(3J,ITIME(4)c
DIMENSION CEPllb,31,3),REfIREllb,31),LEAO(lb,3)
SU6~UUTIN~INIC~PlCEP,~ETIH~,LR,LRP1,LEAO.NS)
8.38
00021100
11000815U
.'100081&0
II1U008110
1'10008180
1110008190
00021110
00021120
00021130
(.10021140
0002115U
000i:!11&0
MU008200
00021170
00021180
00021190
00021200
00021210
00021UO
(10021230
00021240
00021250
000212&0
M0008210
00021270
00021280
00021290
00021300
00021310
00021320
00021330
00021340
00021350
000213&0
00021370
00021380
HETIwE.ANDefP
REMOVE RETIREMENT~FRUM CEP AND PUT THEM INTO HETIkE.
DO 10 1=1,10
00 10 1=I,1b
00 lC1 IY=2,LRPI
IFlc~PlI,Iy,N~).GE.O.)GOTO 10
RETIRElI,lY):-CEPlI,IY,NS)
CEPlI,IY,NS)=U..
CONTINUE
C
C
C THIS SUBROUTINE INITIALIZES
C
C
C
10
C
C PUT INITIAL COMMITEO AUDITIONS INTO PRIO~COMMITMENT STAGES
C AS wELL.
IFlNS.EQ.l)6010 50
00 40 1=1,10
DO 40 I=I,1b
00 40 IS=2,NS
lSTAGE=NS+2-IS
0'0 30 IV:l,LR
IFlCEPlI,IY,l~TAG£).LT••Ol)GOTO 30
IYP=IY-LEAOlI,ISTAGE)
IF(IYP.LT.l)IYP:l
CEP(I,IYP,ISTAGE-l)=CEPlI,IYP,ISTAGE-l)+CEPlI,IY,ISTAGEl
CONTINUE
CONTINUE
CONTINUE
I<ETURN
END
30
q()
50
c ---~------ - - - - - -~-----~---------C - -OIMEN~IONS HAVE BEEN MUDIFIED ANI>00 LOOP fINAL
C VALUES INCREASED TO ACCO~MODATf THE 7 HYOkO
C TECMNOLOGIES e '
C ----------- --- - - -------~-~
il
l,
8.39
----------
---~---------
INCLUDE (ARtEPPR)
HCUTIL •CAPACITY UTILIZATION FACTOR (INPUT)
HYENPH -PROPORTION OF 'TUTAL HYORU ENERGY (LOCAL)
OIMENSION·HCUTIL(7),HYENPR(7)
-•MwINC IS REAL TU ACCUMMOUATE SMALL SYSTEMS
REAL I'1wINC
FOSSIL FUEL ARRAYS
OIMENSIUN Hk(lb).IFTU(lb),FC(31,10),FUESC(lO)
••ANCHU~AGE-FAIRijANKS INT~kTIE R~PURT Ak~AYS
OIMENSION ACAP(30),AGEN(30),FCAP(30),fGEN(30),XXLOLP(30)
LOGICAL INTI<
LOGICAL PPOtT,RPRUO(3,2),lRUE,FALSE,APCOET,TEkMIN~OUTC(8J
+,UUNE
SUBROUTINE PRUOuC(IYR,CAP,MWINC,AMWINC,OFP,NaIZE,luAO,A~AIL,CLDC,00021390
+OUTCAP,OUlA V,l,;UkO!::M,YLF , F E.NG,F TIME,HYPHO&,ALF ,blOC,OBLUC,pw,i>"lA IN,OOO~1 q 0 0
+HYEN,PPOET,kRM,UEM,TKNAM,OU1TYP,NH,NHY,I&,lP,NP,NYPP,NVCPP,Y!::A~&,00021410_- - - - - - • - --- --.0.__~MIJ008220
+RPROO,VC,tNV,UUTCST,APCDET,TERMIN,TVC,AMM,LBMAX,VCESC,HYMULT,DfO,00021420
+HA,OUTESC,OUTC,CSENV,CSOUl,PRM)u0021430
+HPROo,VC,ENV,HR,IfTU,FC,lYFOE,OUTCST,APCOEl,TEHMIN,TVC,AMM,ll1MAX,MOD08230
+VCESC,FUESC,HYMUL1,DFO,HA,OUTE5C,OUTC,CS£NV,CSOOT,PkM)MOD08240
+VCESC,FuESC,HYMulT,OFO,HA,OUTESC,OUTC,C5ENV,CSOuT.PHM,HCUTIL,M0008250
-•ADOITIONAL PARAMElEkS FOR SUbkOUTINE WkTINT MOOO~260
+ACAP,AGEN,FCAP,F~EN,XXLOLP,INTR,M0008270
••A~OITIONAL PARAMETERS FOR ANCHORAGE •F~IR8ANK5 H0008280
lIMITto INTERTI!::CALCULATIONS M00082~0
+LCFAIR,FEYRLY,ALLJNT,MOOO~300
.~-ADDITIONAL PARAMET,RS FOR CPRT REPORT ~ENERGy TAbLE MOD08310
+CPRT,TECHEN)M0008320
MOD08nO
M0008340
M0008350
000214QO
00021450
00021460
00021Cl10
- -•--- - - ---•- -•-M00083&0
- -DIMENSIONS HAVE BEEN MUDIFIEO fa ACCOMMODATE THE M~008370
7 HYDRO TECHNOLOGIES.M0008380
DIMENSION DFP(1&),NSIZE(1b),NPLANT(9),IREM(9),LUAO(9),AVAIL(9,2),00021480
+OUTCAP(7J,OUTAV(7),ITYP(100),ICAP(100),AVCAP(100,2),fENG(2),00021490
+FTIME(2),HYPROB(3).AlF(2),BLOC(12,2J.O~LUC(12),CAP(lb),00021500
+CLDC(1500),HyEN(3J,ENCAPlI00),fOUT(100,3,2J,00021510
+OUTOUT(3,2),OUTXl(],2),HYENLM(3,2),00021520
+RRM(30),DEM(30),TKNAM(1b,2),OUTTYP(8,2),IS(30),YEARS(5),VC(lb),00021530
+ENV(I&),OUTCSl(~),VCESC(lb),HYMULT(3),OkEM(9),ICA(100,2J,OfO(lbJ00021540
+,PMAIN(10,2),HAl2),MHY2(2),ITYP1(100),OUTESC(8)00021550
- -DIMEN~ION OF HA(2)MODIFIED TO HA(7,2)MOD08390
+,PMA IN (1 b,2),HA (7.2),MHY 2 (2),ITYP 1 (100),0111 ESC (8)M0006Q 00
- - - -•-•------MUuO~410
M0008lf20
1'10008430
M0008440
...,0008450
fo10008ljbO
,'10008470
fo1UD06Q60
."10006490
M0008500
000215bO
00021570
00021560
MOD06510
I'IU006520
M0008530
--•-•----MU008540
M0008550
MU0085bO
.M0008570
M0006560
------------------
c
C
C
C
C
C
C
C
c
C
C
C
C
C
C
C
C THIS SUHROUTINE CALLS THE PRODUCTION ENEkGY,PWOUUCTION C05lING,
C AND PRODUCTION PRINTOUT SU~~OIJTINES.
C
C
C
C
C
C
C
C
C
c
c
c
c
C
C
C
!"l
c ---0 0 _.__~_-___________~_=_=e -=----
c -~---- -------- - - - -----•=--------C ~-ANCHUWAGE-FAI~HANKS rNTERTI~CALULATION A~~AYS
C 2 LEAST COST NUN-HtORO fAIRHANKS TECHNOLOGIEb
C fOR YEAR 1-9 (1981-1989)-~LCFAlk
C ANNUAL ENERGY FOR FAIkBANKS - -F~YkLY
C uSED ay SUdkOUTINE 8ALE~U
DIMENSION LCFAIR(~,9),fEYRLY(3,30)
C
C --fUR C~RT REPOWT -ENERGY TABLE
C TtCHEN STUREO IN SUBROUTINE 5VENG
LOGICAL CPRf
DIMENSION TECHEN~1b,30)c -_•____-- --•-~-c ~-_-0 ~=_=_e _-~-~-_
DATA ITYPl/100*01
DATA TRUE,FALSE,NCAP51/.TRUE.,.FALSE.,01
C
C CALL P~UDUCTION COSTING MOOEL(CAPAOO,CUROEM)
C
C
C
C
00 10 K=1,l00
00 10 1=1,3
00 10 J=I,2
10 EOUT(K,I,J)=O.
C
ENYEAR=CU~OtM*YLF*8.7&
OONE=FALSE
00 105 J=1,2
IF(FENG(J).LT ••0005.0R.FTIME(J).Lf ••000~)bUTU 105
C CALCULATE CAPACITIES FUR SUHROUTINE BALEkU.
CALL CAPPRE(OfP,CAP,MWINC,NSIlE,NPLANT,lREM,J,AVAIL,OREM,PMAIN)
CALL BALPRE(NPLANT,LOAO,MwINC,IREM,NblZE,A~AIL,OUTCAP,OUTAV,
+ITYP,ICAP,AVCAP,NCAPS,OREM,ICA,OFO,J)
IF(NCAPS.~T.l00)P~INT 18,NCAPS
lti FOkMAT('WARNI~G:',17,'PLANTS EXCEEDS DI~ENSIONS.')
C -~---------- ---~---•-~----• -~-
C
C -~DETERMINE THE FIRST PLANT THAT IS NOT ONE OF THE
C 2 LEA~r _COST NUN-HYOHU fAIR~ANKS T~CHNOLOGIE~
C FUk THIS YEAR (IYk=1-9)
C
c rcp IS USED IN SUbROUTINE ~ALEWU 10 utTEw~lN~wHEh THE 2 L~A~T
C CUST FAIRbANKS TECHNOLObY PLANTS HAVE UEcN EXHAU~TEll l~rHE
C LOAOING ORDER
C
ICP=O
IF (TERMIN .uw.IYR .GE.10)GU TO 20
C
DO 19 K=I,NCAPS
IF (ITYP(K).EQ.LCFAIR(l,lYR).OR.ITYP(K).EY.LCFAIR(c,IYRJ)
'/r ICP=K
IF (ITYPlK).NE.LCFAIRl1,lYW).ANO.!TYP(,,).NE.LCFAlk(c,lY~))
'I\'GO TU 20
19 CONTINUE
20 CONTINUE
B.40
1'100085"*0
1"10008600
1"10008610
MU008620
MlJ008630
M0008b40
1"10008650
M0008&bO
MlJ008610
.'1U008&80
1'40008690
i"'Uu08700
M0008710
MUD08720
00021581
00021590
00021&00
00021&10
00021&20
u0021b:SO
00021&40
00021650
000216&0
il0021b70
U0021&80
00021690
00021100
00021710
00021720
00021730
00021740
00021750
000217&0
00021770
00u21780
00021790
00021800
MU008730
''''U00874i1
1'10008750
MU0087&0
r"'000877 0
."0008780
l"tOOOIH':lO
'''0008800
."U008IUO
,,\0006820
1"10008830
M00081140
M0008850
I'1U0088&U
MOQ08870
M0008&80
M0008890
."'0008900
MU008910
1'1000&920
HYE.NR=O.O
00 62 K::10,16
HVENR=HYENR +CAPlK)*HCUTIL(K-9)
62 COI'HINUE
HYENL=HYENR*FENG(J)*3.76
HYENEX WILL BE USEO FOR CALCULATIN~PROPORTIUNS BELOW
IF (I .EQ.2 .ANO.J .EQ.1)HYENEX=HYENL
IF (HYtNL .LT ••0005)GO TO 80
MlliHYR=O
1)0 72 K=10,lb
MWHYR=MwHYR +IFIX(CAP(K)*HA(K-9,J)*HYMULT(I)/AMWINC +.5)*~wINC
72 CONTINUE .
MWHV=MlliHVR
C
C
40
50
8
c
C
C
C
C
C
C
C
C
lill
c
C
C
til
EN=ENYEAR*FENG(J)
TIM=6.7b*FTIMc(J}
IF(J.NE.1}GOTU 50
NCAPS1=NCAP::i
00 40 I=1,NCAPS1
ITYP1(I)::ITYPlU
CONTINUE
IF(NCAPS.GT.NCAPS1)PRINT 8
FORMAT('WARNING:PEA~SEASON HAS FEW~R PLANT~THAN OFF "
+'PEAK SEASON.')
DO 100 1::1,3
IF(HYPRUB(I).LT ••OOOS)GOTO 100
CALL 6ALLOC(J,EN,IIM,ALF,BLOC,OijloC,PW,AMwINC,CLOC,IPEAK,lNTUT1)-------------------------.--~------ -INCORPORATE ALL HYDRO TECHNOLO~IES IN CALCULAIIN~
HYE ....L AN\)MWHY
HYENL::HYEN(I)*FENG(J)
IF(HYENL.LT ••OOOS}GOTO 80
MWHY=IFIX(CAf'(10)*HA(J)*HVMULT(I)/AMWINC ••5)*MWINC
____~__•.0 •=_G ~
IF(I.EQ.2)MHY2(J)=MWHV
CALL HVORO(MwHV,HVENL,TIM,AMWINC,IPEAK,CLOC,ENTOTl)
CONTINUE
CALL BALERU(J,NCAPS,ICAP,AVCAP,EN,TIM,AMW!NC,CLOC,lPEAK,
+ENTOTl,XLOLP,UUTEN,EftCAP,
ADOITIONAL PARAMEHRS FUk THE UMITED INTEIHIE
CALCULATlON::i
+IYR,ICP,IS,fEYRLY,ALLINr)---------~----.-----~-
K~=l
,'JCAPSM=NCAPS 1-1
Kl=O
00 85 K=I,NCAt'~1
IF(J.EQ.l.UR.OONE}GOrO 82
IF(ITYP(K-K1).EQ.lrVP1(K»GOTO 82
00 81 II=K,NCAPSM
LAS T=NC AP~1 +K-Il
ICA(LAST,J)=rCA(LAST-l,J)
ICA(K,J)=O
Kl=Kl+1
8.41
MlIo08'HO
"',UOOli9QO
00021810
00021820
00021830
00021840
000218~O
000218bO
00021870
00021880
00021890
00021900 .
00021910
00021920
00021930·
MUOOa9S0
M0008960
M0008970
00021940
00021950
U00219bO
M0008980
M0008990
11'I0009000
MOO{/9010
1'010009020
MU009030
folU009040
M00090~0
M0009060
M0009070
/010009080
M0009090
1'1000'1100
MU009110
M0009120
00021910
00021980
00021990
00022000
00022010
MOOOi130
Mll009140
1"10009150
MU0091bO
M0009170
00022020
00022030
00022040
00022050
00022060
00022070
00022080
0002209(J
00022100
00022110
00022120
B.42
c -------~~- -~--- - - --- - - ------ ---- --
C --__- --•-_-•--- - ---- - - _~---a ----=-
C
C CALL EVC(NTPO,NLP,I{YP1,VC,ENV,UUTCST,TVC,~OUT,Iy,VC~SC,OlJTESC,
C +OUTC,CSENV,CSOUT)
C
c ----- - - ----- - - - - - - - - - - - - - -~--- ----
C ----- - - - - - - - - - ----•- ----- --- -~----C - -SlU~E YEARLY ENERGY GENERATIUN FOR EACH TEChNOLOGY
C foOR THE CPiH REPUkT (ENEi;GY TA6Lt.)
IF (.NUT.T~RMIN .AND.CPRJJ
•CALL SVENG (IYk,EOUT,lTYP1,NLP,TECHEN)
00022130
00022140
000221~O
00022160
00022110
000U180
00022190
00022200
00022210
00022220
OOOl22jO
00022240
00022250
00022260
00022270
00022280
00022290
00022300
00022310
00022320
000223jO
00022340
00022350
M0009160
M000919U
MOU09200
1010009210
1010009220
M0009230
101001.19240
/010009250
/o10009l~0
1010009270
1010009280
000223bO
0002i:B70
1010009290
MOD09300
i~0009310
M00093iW
000U360
U0022390
MU009330
....0009341.1
i~0009350
M00093~0
1'10009370
M00093/j0
MOOU9390
MU009400
I'IU009410
1010009420
M00094jO
M0009440
1'10009450
MOD094&O
1'10009470
CONTINUE
fUUT(K,I,J)=O.
IF(ITYP(K2).Nt.ITYP1(K»GOTO 65
EOUT(K,I,J)=ENCAPlK2)
K2=K2+1 .
CONTINUE
UUTOUT(I,J)=OUTEN
OUTXL(I,J)=XLULP
HYENLM(I,J)=HYENL
IF(J.EQ.2)DONE=TRUE
COIHINUE
CONTINUE
----------------
CALL EVC (N1PU,NLP,ITYP1,VC,ENV,HH,IFTIJ,FC,IYFOE,OUTCST,TVC,EOUT,
+Iy,VC~SC,FUESC,(IUrESC,UUTC,CSENV,C~OUT)
- -SlORE YEARLY HfSULTS FO~SU6HOUTINE WRTINT
IF (.NOT.TENMIN .ANO.INTR)
+CALL SVNUHS (lYH,TKNAM,CAP,EOUT,ITYP1,NLP,OUTxL,
+ACAP,AG~N,fCAP,fGEN,XXLOLP)
106
85
c -__-- - ---~-_--~••- ----__----•c ----
C - -CALCULATE THE PROPORTION OF EACH HYDRU T~CHNOLOGIE5
C CONTRIBUTION TO TOTAL HYDRO ENERGY
C (U::iED FOR CO~TING)
00 110 K=I,7
IF (HYENEX .Ll ••0001)HYENPR(K)=O.O
IF (HYENEX .LT ••0001)GO TO 110
HYENPH(K)=CAPlK+9J*HCUTIL(Kl*FENGll)*8.7b/HYfNEX
110 CONTINUE
C .
C HYENPR IS UbEU IN SUBROUTINE EXPEN FOR COSTING
CALL EXPEN(fTIME,HYPROB,~PROD,HYENLM,OUTUUr,NCAPS1,MMMM,
C .OUTXL,ITYP1,NTPO,NLP,EOUT)
+OuTXL,ITYP1,NTPO,~lP,EOUT,HYfNPR)
C
C
C
82
100
lOS
C
400 FORMAT('(EOUTlPK,UPK),HYURU=I,3);'/(~F9.0»
C *****END OF IN~Ek LUOP *****
IFl.NUT.PPDET1GOTO 108
CALL PRTPO(MHY2,HYENLM,NCAPS1,ICA,MWINC,ITYP1,NSIZE,AVAIL,
.RRM,OEM,TKNAM,EUUT,OUTTYP,OIITAV,OUTOUT,OUTxL,FTIME,
+HYPR06,NH,NHY,IS,IYR,IP,NP,NYPP,NVCPP,YEARS,TEHMIN,DfO,PRM)
CONTINUE
IY=IYR
IF(TERMIN)IY=NP*NYPP+L8MAX
MMMM=MAXO(MHY2(1),MHY2(2»
c
• •••••• • • • •~• • • • -•- • -•• •~•-• • ••g --
CALL PkTAPC(YlARb,I8.NVCPP.1Yk,NP,IP.EOUT,tTy~\,CAP,OllrCAP,+AMM,ENYEA~,OUTXL,APCOET,TVC,NYPP.TKNA",UUT'YP,NLP,NTPO,TtR~IN,+LBMA){,P~'1)
RETURN
END
B.43
1'10DO~480
00022qOO
00(121410
00022420
000221110
00022440
,
,I
~
C
SUBWUUTINE LORDtRlVC,ENV,LOAU)
DIMEN~ION VClI0),tNV(lO),LOAOl9l,INOEX(9)
C FINO LOAOING OROEH FO~EXISTING CAPACITIE~BASlD ON VARIABLE AND
C ENVIWONMENTAL COST
C LOAO(l)=b MEANS fHAT THE FIRST CAPACITY TO BE LUADEO 15
C CAPACIty &0
ILOW=1
DO 10 1=1,9
10 INDEX(I)=1
00 /10 J=I,9
00 20 1=1,9
IFlINOEXlI)oEY.o)Goro ao
IF(VClI}+ENV(l).LT.~C(ILUW)+f~V(ILOW»ILOW;I
20 CONTINUE
LOAOlJ)=ILOW
INDEX (lLOW)=0
00 30 1=1,9
IFlINOEX(I).Ew.I)ILOW=I
IF(INOEX(I).EY.l)G010 40
30 CONTINUE
4il CONTINUE
IH:.TUWr..
END
8.44
000221150
000224bO
00022470
00022/180
00022/1'10
00022500
00022510
OOOU520
00022530
00022~40
00022550
000225&0
00022570
i)002~'580
00022590
00022&00
00022&10
00022&20
00022030
00022&40
00022&50
00022&&0
00022&70
00022&80
C
SUBRUUTINE CAPP~ElOFP,CAP,~~INC,NSIZE,NPLANT,IREM,J,AVAIL,ON~M,
-tPI4AIN)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - --C - -OlM~NSIONS HAVE ~EEN MOOIFIED TO ACCOMNOOATE TH~
C 1 HYDRO TECHNOLOGIES.
C •_ _ _ _ _ _ - - _-_ - - - - --- --- - _ - - - - -_- -G
u0022b90
0002270u
00022710
MOOU"J490
M0009S00
M0009510
M0009520
00022720
00022730
MU009530
M0009540
M0009550
M00095&0
00022140
00022750
000227&0
00022110
00022780
00022790
M0009510
MOD09~60
000221i00
"'0009590
00022610
M0009&00
00022&20
1'40009&10
000212830
M0009&20
MOD09b30
00022840
M0009&40
000221i50
000228&0
00022610
--M~INC IS REAL TO ACCOMMOUATE SMALL SYST~MS
REAL MI'4INC
B.45
_ _ _ _ _ ___ _ _ ____ _ ___ _e _ _ ___
CONTINUE
RETlJkl'l
END
DIMENSION OFPll&),CAP(I&),NSIZE(9),NPLANT(9),IREM(9),AVAILl9,2),
"PMAIN(lb~2),OkEM(~)
--MUDIFICATIONS FON MwINC REAL
NPLANT(I)=IFIX(CAP(I)*PMAIN(I,J»/(NSIZE(I)*MWINC)
NPLANT(I)=(CAP(I)*PMAIN(I,J»/(NSIZE(I)*MWINC)
DREM(I)=(CAP(I)*PMAIN(I,J)-FLOATlNPLANT(I)*NSI~Ell)*HwIhC»
DREM(I)=(CAP(I)*PMAIN(I,J)-(NPLANT(I)*N51ZE(I)*MWINC»
IHEM(Il=IFIX(OREM(I)*AVAIL(I,J)/FLOAT(MWINC)...5)
IHEM(I)=IFrX(UREMiIl*AVAIL(l,JJ/H~lNC••s}
IF(DREM(I).LE.FLOAT(NSIZE(Il*MWINC»IREM(I}=IFIX(OkEM(III
IF OJREM(I}.LE.U~SIZE(I)*MWINC»IHEM(I);:IFIX(UHE~lU)1
..MwINC ...5)
"FLOAT(MWINC)...5)
-~--------------------
c
c
c
c
C
C
c
C
10
c -- - - - - - - - - - - - - - - - ---- ---C NSrZE -ROUNDOFf ~IZE TO NEAREST MwINC.
C NPLANT -NUMBER Of PLANTS OF SIZE NSIlE.
C I~EM -DERATED ~EMAINOER IN MWINCS TO BE USED ~ITH AVAILABILITY 1.0
00 10 1=1,9
IF(NSIZE(I).EW.O)NPLANT(I);O
IF(NSIZE(IJ.EU.O)bOTU 9
C9
9
C
C .00022880
00U22&'I0
00022900
MllOOqb~O
M0009b6U
MllOO9bl0
.-..,0009680
MOD09b90
00022910
0002292u
00022950
MOOO'J700
M0009710
MODlin 20
MODon 30
000U940
00022950
000229&0
00022970
00022980
00022990
00023000
00023010
00023020
00023030
00023040
00023050
00023060
00023070
00023060
00023090
00023100
00023110
00023120
00023130
00023140
00023150
000231&0
MOD09740
MOD09750
M0009760
00023170
00023180
00023190
00023200
M000977u
00023210
00023220
00023230
00023240
000232S0
00023260
OU023270
MOD09780
M0009790
'00023280
MUU09800
ITS
_~_·om=
WHICH 11~CLI.IUES
THEY ARE NON·ZERO).
AVAILA~ILITY ~AVCAP)AND
IS HETuRN~O AS NCAPS.
=--~=~--~-~---~
•-Ib IS NOW THE BASE FOR OUTAGE UAJA
ITYP(i'l)=lo+r
ITYP(N)::1b+I
B.46
- -MWINC IS REAL TO ACCOMMODATE SMALL SYSTEMS
HEAL MwINC
OIMENSION NPLANT(9),LOAO(9),NSI1E(9),AVAIL(9,2)
DIMENSION ItAP(10ij),IRE~(9),AVCAP(100,2),I1YP(100)
OIMENSION OUTCAP(7),OUTAV(7),ICA(100,2),DREti(Q),OFO(16)
••MOOIFICATIONS FOR MWINC REAL
IF (OREM(L).LE.IN&IZE(L)*MWINC))AVCAP(N,J)::OFO(L)
IF(UHE~(L).LE.fLOAT(I\ISIZElL)*MWINC»)AVCAP(N,J)~OfO(L)
ITYP IN)::L
CONTINUE
110 00 1::1,7
M~OU1::1FIX(UUICAPlI)/MWINC••5)
MWOUT::IFIX(UUTCAPlI)/FLOAT(MW1I\1C).e5)
IF(MWOUT.EQ.0)60TU 60
N::I\I.1
ICAP(N)::MWOllT
ICA(N,JS)::ICAP(N)*MWINC
DU 50 J::l,2
AVCAP(N,J)::UUIAV(I)
__ _ _ _ _ _ _ _ _ _ ___ _•_c-•__c _~__ _c c ____•
____ _ _ ___ _ _ _ ___~_0 ___~__ _ _ _ _~_
~__.__~_____~___-_c ~•~__
UUTPUT PLANT LIST IS ~TOREO IN ICAP,
SEVEN TYPES OF tMER6ENCY ACTIONS (IF
ASSOCIATED WITH EACH CAPACITY IS ITS
TYPE.THE TOTAL NUMijEK OF CAPACITIES
1..,::0
00 40 1::1,9
L::LOAO(I)
IF(NPLANT(L).EU.O}GOTO 30
NP::NPLANT(L)
00 20 K::l,NP
N::N+l
ICAP(N)::NSIZE (L)
ICA(N,JS}::ICAP(N)*MwINC
UO 15 J::l,2
AVCAPlN,J)::OFO(L)
ITYP(I\U=L
IF(IREM(L).EU.O)GOTO 40
N::N+1 .
ICAP(N)::IRtH(L)
ICA(N,JS)::IC~~(N)*MWINC
00 35 J::l,2
AVCAP(N,J)::1.0
40
C
~()
C
C
C
C
C
35
05
15
20
30
C
C THIS SUBROUTINE LOAUS PLANTS IN LOADING UROER fOR SU~ROUTIN~HALERU.
C
C
C
C
C
C
SUBNUUTINE bALPNElNPLANT,LUAO,MWINC,lREM,NSIZE,AVAIL,
+OUTCAP,UUTAV,ITYP~lCAP,AVCAP,~CAPS,DNEM,lCA,uFO,JS)
C INCLUDE (ANEEPPR)
c - - - ---- - ----------- - -C - -Dl~tN~ION Of UFU INCRtASEo TO 1&~UR THt UP TU Ib
C POaSI~LE lECHNO~OGIES.
C ~_~- - --- -~-- - - -0 ---=- - ----
,
I
l
c --•_ _ ___ _ _ _ _ _ _ _ ___ _ ___ _ ____ ____ _ __
bO CONTINUE
NCAPS=N
I F lNCAPS.GT.1UO)PHINT 110
.110 FORMAT('DIMEN~lUN~ARE GREATER THAN U1 IN SUBR 8ALPRE')RETURN
ENO
8.47
MU009tH 0
00023c!90
00023300
00023310
00023320
0002.B30
00023340
~
e
;;UflROllTI NE UALLUC lJ,EIIl,THI,ALF ,BLoe,OBLOC,I"I~,AMw i NC,CLue,1t'EAK,
+ENTOT1)
C INCLUDE (AREEPPR)
OIMENSION BLOCl12,2),DBLOC(12),CLOCl1500),ALr(2)
C THiS SUBROUTINE TURNS THE LOC INTO A COMPLEM~NTAWY
C CUMULATIVE DISH<IIjUTIUN FOR SUBROUTINE BALERU.OUTPUT'
C IS STORED IN CLOC.~ACH INOEX UNIT ~EPWESENT~ONE MWINC.
e CLOC UP TO BASE LUAO =1.0.
ICLOCS=IFIXlEN*BLUC(12,J)/(TIM*AMwINC)+1.S)
00 100 I=1,ICLOCB
100 CLOCl!)=1.0
C CALCULATE POINTS ON THE COMPLEMENTARY CIW,ULATIVE
X=FLUAT(ICLIJCB)
NCLOC=ICLDCti+l
CN=fLOA HNCLllC)
YNEW=1.1
DO 120 Jl=l,l1
NLOC=13-Jl
NN=NCLDC
XNEw=BLDClNLOC-l,J)*FLOATlICLDCB-l)/~LDCll~,J)+1.0
YNEw=YNEw-DdLOC(NLOC)
IF(xNEw.LE.CN)GOTD 120
DELTAX=X-XNEw
SLOPE=OBLUClNLDC-l)/OElTAX
00 110 I::NN,l500
CLOC(I)=SLUPE*(FLUATlI)-X)+YNEw
NCLOC=NCLDC+l
CN=FLOAT(NCLDC)
IF(XNE~.LE.CN)GOrU 120
110 CONTINUE
120 X=XN[w
IPI::AK=NCLOC
00 125 I=IPlAK,l~OO
125 CLOC(I)=O.
AREA=O.
UO 130 I=2,IP~AK
l~O AREA=AREA+lCLUClI-l)+CLDClI»/2.
ENTOTl=AREA*TlM*AMWINC
141)CONTINUE
RETuRN
ENU
B.48
0002335u
000233&0
00023310
1'l0009820
0002338u
00023390
ilOl>23400
00023410
U002~420
00023430
000i3440
000234~0
000234&0
00023470
00023480
00023490
00023~OO
00023510
00023520
00023530
U0023540
00023550
000235&0
00023570
00023580
00023590
U0023&00
00023&10
00023&20
00023&30
00023&40
00023&50
00023&&0
00023&70
00023b80
00023&90
00u23700
00023710
00023720
00023730
00023740
00023750
C
8.49
000237&0
00023770
1'10009830
000237tsO
00023790
M0009840
MOD09850
MOOOIl8&0
00023800
1"10009670
00023810
00023820
00023830
00023840
0002J850
000238&0
00023870
00023860
00023890
000231100
00023910
00023920
00023930
00023940
00023950
000239&0
00023970
00023980
00023990
00024000
U0024010
00024020
00024030
00024040
00024050
000240&0
00024010
00024080
00024U90
00024100
_ _ ___ • _c ___ _ -_
•____ _____~c _~_ _ _
- -AMwINC MAY BE LESS THAN
IHYCAP=MwHY/AMwINC
IHYCAP=MwHY/lfIX(AMWINC)--------.------
-------.--.-.--
C
C
C
SU6ROUTIN~HYOHO(MWHy,HYENL,TIM,AMWINC,IPEAK,CL~C,ENTOT1)
INCLUDE (AR£EP~R)
DIMENSION CLOC(1500)
C WEMUVE PEAK HYDRO FROM CURVE
C
C
IFlIHYCAP.LE.O)HY~NL=O.
IF(IHYCAP.LE.O)GOro 190
ALIM=HYENL/(TIM*AMwINC)
AREA=O.
IPEAK1=IPEAK-1
00 150 I=1,I~EAK1
AOLD::AREA
ICIlG=IPEAK-I
AREA=AREA+lCLUC(ICHG+1)+CLUC(ICHG)-CLOC(ICHG+IHYCAP+1)-CLOC(ICHG+
+IHYCAP»I2.
IF(AREA.QE.ALIM)GUT01&0
150 CONTINUE
IhO IF(A8S(AOLU-ALIM).LT.A8SlA~EA-ALIM»ICHG=ICHG+1
00 170 I=ICHG,I~EAK
170 CLOC(I)=CLOC(I+IHYCAP)
IF(AREA.LT.ALIM)HYENL=AREA*TIH*AMWINC
IF(IHYCAP.GT.IPEAK-ICHG)IHYCAP=IPEAK-ICHG
IPEAK=IPEAK-IHYCA~
00 180 I=IPEAK,1500
180 CLDC(I)=O.O
AREA=O.
IF(IPEAK.LT.2)GOTU 40
00 2&I=2,IPEAK
2&AREA=AREA+(CLUC(I-l)+CLDC(I»/2.
40 CONTINUE
ENTOT1=AREA*TIM*AM~INC
ENTOT1=ENTUT1+HYENL
1QO CONTINUE
RETURN
l:.NO
~
c
SUBROUTINE tlALE~UlJ,NCAPS,ICAP,AVCAP,EN,TIM,AMWINC,CLOC,IPEA~,
+ENTUT1,XLOLP,DUTE~,ENCAP,
c -~~- - - - - - - - ---~-•- ---------=---C - -ADOITIONAL PARA~ETERS FUR THE LIMITEO INT~NTIt
C CALCULATIONS
+IYR,ICP,ISS,FtYHLY,AlLINT)c _____-_•---_• ----~-e -_e ___c ~-_~==_
C INCLUDE (ARfEPPH)
DIMENSION CLOCNw(750)
DIMENSION ICAP(100),AVCAP(100,2),CLOC{lS00),ENCAPll00)
c _~_~___--._--.~---•-----_~-=e -~----~
C
C FAIRBANKS ANNUAL tNERGY,PATH ARRAYS
DIMENSION FEYHLy{3,30),lSSljO)c _ _ _____- - _••---.--- - - _~__----_~-0 -
C INPUTS
C CAPACITIES IN LOAOING ORDER:ICAP(NCAPS)
C PROBABILITIES Ot CAPACITY AVAIlAdILITY:AVCAPlNCAPS)
C
C COMPLEMENTARY CUMULATIVE LOC fROM 6ALLOC ANI>HYORO;CLOC(UYYl)
C OUTPUTS
C ENERGY FOR EACH CAPACITY;ENCAPlNCAPS)
C XLOLP
C OUTAGE ENERGY;UUTEN
970 FORMATl(10F7.4»
IF(IPEAK.GT.7~0)PHINT 610
c ----e -- -•- - - - - -~- ---------~----~~~
C --INITIALIZATION FOR T~E ANCHORA~E-FAIHaAN~S
C LIMITED INTERTIE CALCULATIONS
C
CfE=O.
C RFGEN IS THE AMOUNT OF GENERATION THAT MUSl COME FROM fAIWBANK~
C 2 lEAST cosr TECHNOLOGIES
RFGEN=O.
IF (ICP .EQ.·0)GO TO 1
If (IYR .GE.1 .A~O.IYR .lE.4)RFGEN~FEYHL'{ISS(l),IYR)
IF (IYR .GE.5 .AND.IYR .lE.~)RfGEN=FEYHLY(ISS{I),JVR)pALlINT
IF (RFGEN .lE.O.J RFGEN:O.
CONTINUE
CC _~__ ___-- _ -__~~•_-0 -____-~---_~--_
IHIGHX=1
DIFINC={EN-ENIUT1J/(TIM*AM~INC)
AOIFl=UIFINC
IAOO=IFIXlDIFINC)
I IABS=IABS 1I AOO)
FINC=DIFINC-FlUAT(IADO)
00 400 I=I,NCAPS .
C INTE~RATE UNDERlUC TO FIND EXPECTED ENERGY SEHV~D BY CAP.I.
IlOIIIX=IHIGHX+1
IHIGHX=IHIGHXTICAPlI)
AREA=O.O
00 250 IA=ILOl'lX,IttIGHX
2~O AREA=AREATlCLUClIA-l)+CLUClIA»/2.0
C Cll~REC T FUR fH SeRE.T 1Z A TI ON ERf<Ok
AAOO=O.
B.50
00024110
00024120
00024130
M00096ilO
...,OU09890
MOU09900
1010009910
MOOOQ920
M0009930
00024140
00024150
M0009940
l"'00099~0
~100099&0
MQ009 cHO
M0009980
000241&0
00024170
00024180
00024190
00024200
00024i10
00024220
U0024250
00024240
00024250
000242&0
M0009990
M0010000
M0010010
M0010020
1110010050
M0010040
M0010050
11100100&0
M0010070
M00100dO
M0010090
M0010l00
1'40010110
1'10010120
M0010130
00024270
000242dO
00024290
00024300
00024310
00024320
00024330
00024340
00024350
00024300
00024370
000243dO
00024390
00024400
00024410
8.51
C
C
ENCAP(I)=AVCAP(I,JJ*AREA*IIM*AMWINC
ENCAP(JJ=ENCAP(I)+ENCOH
00024420
00024430
00024,.40
00024450
000244&0
00024470
00024480
00024490
00024~00
00024510
00024520
00024530
00024540
.00024550
000245&0
00024570
00024580
00024590
M0010140
1"10010150
MODI01&0
MUOI0170
HOOI0180
MODI0190
1'10010200
PlCJ010210
MOOI0220
MOOI0230
MOOI0240
1'10010250
MOOI02&0
""'0010270
MUDI02t10
1'10010290
MOOI0300
1'10010310
""0010320
1010010330
""0010340
MOOI0350
MOD103&O
MOOI0370
M0010380
00024600
00024&10
MUOI0390
MOOI0400
MOOI0410
M0010420
M0010430
"10010440
00024&~0
00024&30
00024&40
00024&50
000c4&bO
00024&70
IF (I .GT.ICP)RFGEN=O.
IF (RFGEN .ELl.0.)GO TO 225
IF (CFE .GE.kFGEN .AND.I .lE.ICP)ENCAP(I)=O.
IF (CFE •GE.HFGEN .AND.I .lE •Ie ..)AVVCAP=O.
IF (eFE .•GE.NFGEN .AND.I .LE.ICP)GO To 230
C
C SUHTNACI OFF WHAT wE 00 NOT NEED FROM FAIkBANKS TECHNULOGIES
ENCAP(I)=RFGEN -(CFE -ENCAP(I»
AVVCAP=ENCAP(I)/(AREA*TIM*AMwINC)
GO TO 230
ENCAP(IJ=AVCAP(I,J)*AREA*TIM*AMWINC
ENCAP(I)=ENCAP(I)+ENCOR
C ACCUMULATE THE fAIRBANKS GENERATED ENERGY wE HAVE SO fAR
CFE=CFE +ENCAP(IJ
IF (CFE .LE.HfGEN)GO 10 229
C
IF(IIABS.EQ.O}Goro 22U
IF(IAOO.LT.O)GOJO 210
DO 205 K=l,lIA~S
ITEMP=IHIGHX-K
IF(ITEMP.LJ.l)ITENP=l
205 AADO=AADD-(CLOC(ITEMP.l)+CLOC(ITEM~)/2.
bOlO 220
210 DO 215 K=l,IIABS
215 AADU=AAOD+(CLOC (ltnGHX+~-I)+ClDC (IhIGlIHK)J Ii.•
220 ICORH=IHIGHX-IFIX(SIGN(I.,OIFINC)+.5)*(IIAdS+I)
IF(ICORH.LJ.l)ICOkH=1
ICORM=ICORH+IFIX(~IGN(1.,DIFINC)••5)
AOIFH=O.
AOIFH=-FINC*(tlDClICOHM)+FINC*ABS(CLOC(ICOkH)-CLUC(ICORN»)
AD IF tl=AU IFH+AADO
ENCOR=(ADIFL+ADIFH)*TIM*AMWINC
ADIFL=-ADIFti
C FIND ENERGY
C - --•- - - - - - - - - - - --- - - - - - - • - - - -C - -CALCULATIONS FOk ENEkGY CON~IOEkING lIMITATIONS
C OF THe.ANCHORAGE -FAIRBAfoIKS INTER1 IE
C
C
22'::l CONTINUE
C
C
229 AVVCAP=AVCAP(I,J)
c
djn CONTHWE
c
C --- - - - - - -•- - - - - - - - - - - - - - -•- - - - - ---C CALCULATE NEw CLUt
IPEAK=IPEAK+!CAP(IJ
C IS=ILO\,;X-l
JGHX=IHIGHX
DO 300 JJ=IGHX,JPEAK
JJI~EVi=JJ-ICAP l I)
IF(JJNEw.LT.I)JJNEw=1
c ---- ---•- - -~- ------------•---- ----
C
300 CLOCNW(JJ-IGHX+I)=AVVCAP*CLDC(JJ)+(I.-AVVCAP)*
C300 CLDCNw(JJ-I~H~+l)=AVCAP(I,J).CLOC(JJ)+(I.-AVCAP(l,J)*C _______•_ __•_ _____e _~_ ___~_c 0 _____
+CLDC(JJNEW)
00 350 K=IGHX,IPEAK
550 CLDC(K)=CLDCNW(K-IGHX+l)
400 CONTINUE
IF(IPEAK.GT.1500)PRINT bOO
C CALCULATE XLOLP AND OUTAGE ENEHGY
XLOLP=CLOC(IHIGHX)*3&52.5
I1ilGHX=IH 1 GHX+1
AHEA=O.O
00 ~OO JJ=IHIGHX,lPEAK
SilO AREA=AHEA+(CLOC(JJ-l)+CLDC(JJ»I2.
AREA=AREA+AU II'L
OUTEN=AREA*TIM*AMWINC
C
bOU FORMAT('WAHNING:CLDC DIMENSIONS EXCEEOED,SUBHOUT1NE HALEHU~)
blO FOk~AT('WARNING:CLDCNW DIMENSIuNS EXCEEOED,SUtiWOUTINE dALEHU')
RETURN
END
B.52
00024b80
MUOI04S0
fotOOlOl4bO
,"'uO 1 014 1 iI
0002l4&90
MOIH0460
00024100
00024710
000i!4720
00024730
0002474U
00024750
000247&0
00024770
00024180
00024190
00024800
00024&10
00024820
00024630
00024640
00024850
000248&0
00024810
DIMENSION HYENPR(7)
B.53
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C
C THIS SUBROUTINE FINDS THE EXPECTEU OUTPUT ENERGY BY TECHNOLOGY
C ANU EMERGENCY ACTION,AND STORES IT IN £OU1(1,1,2),I;I,•••,NTPO.
C NLP IS THE NUM~EH OF THE LAST PROUUCTIO~TECHNULOGY.THE
C YEARLY EXPECTED LULP IS ALSO COMPUTED ANU IS STORED IN
C OUTXLl1,2).
C
00024660
MODI0490
MOOI050U
00024890
140010510
140010520
MuOl0530
00024900
00024910
00024920
/110010540
MOOI05!)!J
"10010560
I>lODI0~70
MUOI0580
140010590
MOOI0bOO
00024930
00024940
000249:'0
00024960
00024970
00024980
00024990
00024991
00025000
00025010
00025020
00025030
00025040
00025050
00025060
00025070
00025080
00025090
000i5100
00025110
00025120
00025130
00025140
00025150
000251&0
00025170
00025180
00025190
00025200
00025210
00025220
00025230
00025240
00025250
00025260
00025270
00025280
00025290
000253UO
00025310
------------------SUBROUTINE EXPEN(fTIME,HYP~08,RPkOO,HY[~LM,OUTOUT,NCAPS,MWHY,
_ -HYENPR(7)ADDED TO PAHAMETER LIST
.UUTXL,ITYP,NTPO,NLP,EOUT)
.OUTXL,ITYP,NTPO,NLP,EOUT,HYENPR),
c
C
C
DATA NFIR/OI
00 50 1;1,3
IF(HYPRQB(IJ.LT ••u005)GOTO 50
IF(RPROO(I,1).ANO.RPROD(I,2»GOTO 10
GOTO 20
10 HyENLM(I,I);HYENLM(I,1)+HYENLM(I,2)
OUTUUT(I,I);OUTOU1(I,1)+OUTOUT(I,2)
OUTXL(I,1);OUrXL(1,1)*FTIME(1J+OUTXL(I,2)*FTIMEl2)
00 15 1\;I,NCAP5
15 EOUT(K,I,I)=EUUT(K,I,1)+EOUT(K,I,2)
GOTO 30
20 IFl.NOT.RPROOlI,2»GOTO 30
HYENLM(I,I);HYENLM(I,2)
OUTOUT(I,I);UUTOUf(I,2)
OIlTXU!,1 );UUT XL (I ,2)
00 25 K;I,NCAPS
2S EOUT(K,I,IJ;EOUT(K,I,2)
30 CONTINUE
50 CONTINUE
C fAKE EXPECTED VALUES
liYENLM (l,2);0.
UUTour <l ,2)=0.
OIlTXL(I,2);0.
DO 35 K;I,NCAPS
35 EOUT(K,I,2);0.
UO 551;1,3
HYENLM(I,2);HYENLM(t,2)+HYPRO~(IJ*HY[NL~(1,1)
lhlTOUT <1,2)=OIlTlIlJl (1,2).HYPROa U)*OIJTOUT (I,I)
UUTXL(1,2);OUIXL(I,2)+HYPRO~(I)*OUTXL(I,1)
DO 40 K=I,NCAPS
40 EOUT(K,1,2);EOUT(K,I,2)+HYPROU(I)*EOUT(K,I,I)
55 CONTINUE
C
c - - - - - - - • -•- - - - - - - - - - - - --- - --- - - - - -
C INCLUDE (AREEPPR)
DIMENSION FTHIE (2),HYPROB (3),HYENLM(3,2),0UTOIIl (3,2),OUTXL (3,iD,
.eOUT(100,3,2),ITyP(100)
LOGICAL RPRODl3,2~
C - - - - - - - --••- - - - - - • - - - - - - - - - •-- - - - -
C
C HYtNPR -EACH HYDRu TECHNOLDGY'~PROPowTlOh
C (6ASEOON CAPACITy)lIF TOTAL
C HYDRO ENERGY
00025320
00025HO
00025340
00025350
M0010b10
'"'0010020
MOU10b30
1"10010&40
M001005u
M00100&O
000253&0
00025310
00025380
00025390
00025400
1'10010&70
00025410
1"0010680
M0010&~0
00025420
00025430
00025440
00025450
000254&0
00025470
00025460
00025490
00025500
00025510
00025520
140010700
MUOI0710
M0010720
HOOI0130
M0010740
MOOI0750
1400107&0
00025530
00025540
00025550
140010710
000255bU
OU025570
00025580
00025590
00025&00
00025610
00025020
00025&30
00025b40
00025&Su
00025&&0
00025&70
00025&80
M0010760
M0010790
140010600
NEXT,
IfIISEWT
~EMAINDER OF THE CODE HAS BEEN
MODIFIED TO ACCOMMODATE THE 1&TECHNOLOGIES.
NOTE THAT 1&IS ~OW THE BASE fOk tHE OUtAGE
DATA.
....THE
K1=0
N=O
DO 80 K=l,NCAPS
IF(K.EQ.l)GOTO bO
IF(ITYP(K).GT.l0)Kl=K
IF llTYP(K).GT.16)Kl=K
IF(ITYP(K).GT.10)GOrO 120
IF (ITYP(K).GT.16)GO TO 120
IF (K .EQ.1)GO TO bO
IF(ITYP(K).EQ.ITYP(NFIR»GOTO 70
CONTINUE
NFIR=K
N=N+1
ITYP(N)=ITYP(NFIR)
EOUT(IIl,1,2)=EOUT(NFIR,1,2)
G010 80
EOUT(N,1,2)=EUUT(N,1,2)+EOUT(K,~,2)
CONTINUE
B.54
IF(MWHY.GT.1)N=N+1
IF (MVlHY .LE.1)100 TO 140
NHS=N
DO 125 K=1,7
IF (HYENPR(K).LE.0.0)GO TO 125
N=N ..1
CONTINUE
CONTINUE
NLP=N
IF(K1.EQ.0)Goro IbO
IF(~.EQ.Kt)G010 200
IF (N .GE.Kl)GO TQ 200
DO 150 K=Kl,NCAPS
N=N+1
ITyP (N)=IlYP (K)
EOUT(N,1,2)=EUUT(K,1,2)
GOTO IbO
00 210 K=Kl,NCAPS
NN=N+I'lCAP~-K+l
ITYPlNfII)=ITYPlNN ..1)
EOUT(NN,1,2)=EOuTlNN-1,1,2)
N=N+NCAPS ..Kl+l .
COI'lTlNUE
IF(M~HY.GT.l)EUUTlNLP,1,2)=HYENLM(1,2)
IflMW~Y.GT.l)lTYPlNLP)=lO
IF (M~HY .LE.t)60 TO 1b5
UO Ib3 K=1,7
IF (HYENPR(K).LE.0.0)GO TO lb3
12';;
1110
bO
C
C
C EXPECTED ENERGY OuTPUIS ARE NOw INOElED ~Y I=1,J=2.
C ACCUMULATt CAPACIliES OF THE SAMt TYPE FUR PWINTUUT.
C PEAK HYDRO AS THE LAST PMOO~CTION TEC~NOLUbY AND AUU
C UNSERVED ENERGY AS THE LAST OUTAGE TYPE.
C
C
C
C
C
C
C MOO
C
100
C
C
150
200
70
80
C
C120
120
210
NtiS=NHS +1
ITYP(NI1S)=9 +K
EOUT(NHS,1,2)=HYENPR(K)*~YENLM(1,2)
163 CONTINUE
Ib5 CONTINUE
1'4=111+1
C lTYP(III)=18
ITYP (1'4)=24
EOUT(N,1,2)=OUTOUT(1,2)
NTPO=N
WETUkN
ENO
B.55
M0010810
1'10010820
MOOI08SiJ
MOl>10840
MOOI08!lO
00025690
00025700
MOOI0860
00025710
00025720
00025730
00025740
8.56
SllbROUTINE E.VC lNfPO,NLP,ITYP,VC,I:NV,Hk,IfTIl,fC,IYl'OE,OlJTCST,TVc.
•EUlJT,IYR.VCESC,FUESC,OUTE5C,O~TC,C&ENV.CSOUT)
c ------ - --•----- •--• - - - ----- ----- --c
C FOSSIL FUEL AkRAYS
DI~ENSION HR(16),IFTU(lb),FC(31,10),FUESCll0)
I"'OU 1 0870
MOOI0880
0002S7~O
00025760
1'10010890
1"1(1)10900
MODl 0·91 0
MooI0920
M0010930
1040010940
MOD109~O
00025770
0002~180
0002~190
MOD109bO
1040010910
M001098u
foIODI0990
MOl>11000
MOOll010
00025800
00025810
00025820.
00025&30
00025840
00025850
00025860
00025810
00025880
00025890
00025900
00025910
00025920
00025930
MODII020
i\t0011030
M0011040
M0011050
,-tOOllObO
1>10011 070
1'10011080
P'lOul10ll0
1'40011100
MOOI1110
140011120
110u11130
00025940
1'40011140
M0011150
00025950
0002590u
00025910
00025980
OU0259110
00020000
M0011lbO
00026010
CSENV=O.
C80UT=0.
00 10 I=I,NLP
l=ITY~(1)
FOSSIL FUEL CUNSIDERATIONS
IF CIYH .GT.lIYFOE·l»GO TO ~
fCIyR=(HRlLJ*FClIYR+l,IfTUCLJ»/1000000.
GO TO b
CONTINUE .
fCIYR=FC(lY~Dt,lFTU(L»*(l.+FUESC(IfTU(L}»**(lY~-(IYfOl·1J)
UNITS CONVERSION
FCIYH=CFCIYN*HR(LJ)/l000000.
CONTINUE
EOUTlI,2,1)=EOUT(I,1,2)*(CVC(L)*(I.+VCESC(L»**jYR)•FCl~R)
EOUT(I,2,I)=EOUTCI,I,2)*VC(L)*Cl.+VCESC(L1J**IYR
----•-- - - -~-•g -
-----~-------------------~------- -
5
b
C
C
C
c -- ---~----~---- - -----~__ -0 -~- -----
C INCLUDE CAREEP~R)
C ----- - ----- - - --.•- -------- - --------C --DIMENSIONS MODIFIED TO ACCUMMOUATE lb TECHNOLOGItS
DIMENSION EOU11100,3,2),OUTCST(8),ITYPI1uOJ,VCllb),ENV(1bJ,
+VCESC(16),OUTESC(b)
LOGICAL OU1C(8)
c
c --w --- --- - - --- - - - - - - --_- - - - - - - - -
c -- - - - - - - - • - - - - - - --- - - - - - - - - - - ---c
C THIS SUBROUTINE FINDS THE EXPECTED VARIA~LE PROOUCTION
C AND ENVIkONMENTAL COSTS BY TECHNOLOGY AND STURES THE~IN
C EOUT(I,J,K).J AND K INDEX THE FULLuwING VAHIA~lE~:
C J,K=I,2 EXPECTED PRODUCTION ENERGY
C 2,1 PRODUCTlON COST
C 2.2 ENVIRONMENTAL COST
C 3,1 TOfAl VARIABLE COSf
C TOTAL VARIABLE CO~T TOTAL IS TVC IN MILLIONS.Of CONsrANT I.
C
c ----- - - - - - - - - - - - - -----~---- - -~-- --C
C SUBROUTINE EVClNTPO,NLP,I1YP,Vc,ENv,nUTCST,TVC,EUU1,IYk,VCE~C,
C .UUTESC,OUTC,C~ENV,CSOUT)
C
C
C
C
EOUT(1,2,2)=EnU1CI,I,2)*~NV(l)
EOUT(I,3,1)=EOUTCI,2,2)+EOUTI1,2,1)
CSENV=CSENV+EUUT(1,2,2)
lu CONTINUE
NLPP1=NLP+1
DO 30 1=NLPP1,NTPU
C ~-Ib IS NU~THE ~AS£FO~OUTAGE UATA
C L=ITYPII)·10
30
35
40
L=ITYP (I)-10
EOUl (I,3,1)=EUUT (I,1 ,2hOllTCS T (Ll *1l.+nlllE~C (L))**1 YW
IF(OUlC(L})CSUUT:CSOUT+EUUT(I,3,1)
CONTINUE
TIIC=O.
-DO 35 I=l,NTPU
lIlC=TVC+EOUT(I,~,l}
CONTINUE
~ETlJHN
END
8.57
""'0011110
0002b020
00020030
00020040
0002&050
0002&0&0
00026070
000260lHI
0002&090
00026100
SU~ROUIINE tiURO~RlSCGR,ISCUWD,ISPN,MHCEN)
DIMENSION SCGw(10J,ISCORO(10),ISPN(10)
LOGICAL USEU(10)
C
C THI~SU8HOUTINE·owOE~~SCENA~IOS BY AVERAGE GRUWTH RATE.
C ISCURO(J)=I MEANS THAr SCE~ARIO 1 HAS rHE J TH L~wEST AVERAGE
C GRUwTH RAIE.
C
DAIA ILOW/OI
IF(NSCEN.NE.IJGUTO 5
DO 7 1=1,10
II=I
IFllSPN(I).EQ.l)GUTO 8
7 CONTlNUE
8 ISCORU(l)=II
GOIO 100
5 00 10 1=1,lu
I SCORO (I)=0
USED(I)=ISPN(l).Gl.NSCEN
10 IF(.NOT.USEU(l))ILUW=1
1>0 110 J=I,N~CEN
00 20 1=1,10
IF(uSEU(I))GQTO 20
IF(SCGH(I).LT.SCGH(ILOW))ILOW=I
20 CONTINUE
ISCORO(J)=ILOW
USEO(ILOW)=.THUE.
C
no 30 1=1,10
IF(.NOT.USEU(I))ILOW=I
IF(.NUT.USEO(I))GOIO 40
30 CONTINUE
40 CONTINUE
100 CONllNUE
RETURN
END
B.58
1)002&110
\)002&120
000~&1.S0
0002&140
OOO~&150
0002&1&0
u002&170
0002&1~0
000~&181
0002&190
0002&200
0002&210
0002&220
0002&230
0002&2110
0002&250
0002&200
0002&270
0002b280
0002&290
0002&300
0002&310
0002&320
0002&330
0002&340
0002&350
0002b3&0
0002&370
00020380
0002&390
0002&400
0002&410
001)2&420
0002&430
0002&440
0002&450
B.59
C
C THIS SUBROUTINE FINOS THE AVERAGE GRO~TH HATE fOR EACH SCENARIO.
C THE COMPUTATION IS DONE ACCORDING TU
C EOUATION C-1 ON PAGE C-4 OF THE OVER/UNDER
C REPORT.THIS EQUATION IS EXPANDED,HO~EVE~,Tn REPRESENT
C MULTIPLE YEARS PEW PENIOD.THE GROWTH IS CALCULATED
C AND AVERAGED OVER A P~RI~O OF NYL YEAkS.
C
C
DO 15 J=l,NN
TEMP=O.
SUBROUTINE SGHOW(NP,AL,NSCEN,ISN,ISPN,SCGR,ALPHA,N~,DLTA,~YL,NYPP)00026460
DIMENSION SCGk(10J,ISN(10,10),lSPN(1U)u0026470
00026480
00026490
00026500
00026510
00026520
00026530
00026540
00026550
00026560
00026570
00026580
00026590
00026600
0002&610
0002&&20
0002&630
0002&640
0002&650
00026660
00026670
00026680
0002&&90
0002&700
0002&710
0002&720
0002&730
0002&740
0002&750
0002&7&0
0002&77(/
0002&780
DO 20 1=1,10
IF(ISPN(I).GT.NSCENlGOTO 20
SUM=O.
NN=1+(NYL-l)/NYPP
DO 11 L=l,J
K=ISN(I,L)-2
IF(NB.EQ.2.ANO.K.EQ.0)K=1
TEMP=TEMP+FLOAT(K)*ALPHA**(J-L)
CONTINUE -
NR=NYPP
IF(J.EQ.NN)Nk=NYL-{NN-l)*NYPP
SUM=SuM+(AL+DLTA*TEMP)*FLOAT(NR)
SCGR(I)=SUM/FLOAT(NYL)
CUNTINUE
RETURN
ENU
C
C
11
C
15
C
20
8.60
C
C FIND THE POINT ON THE CUMULATIVE FOR EACH SCENARIO.
C
SLUPE=(CUM(IPJ-CUM(IP-l»/(EGR(IP)-EGR(IP-l»
SCCUM(L)=CUM(IP)-SLOPE*(EGR(IP)-SCGk(L»
Ll=lSCORO(N5CEN)
SCPR(Ll)=POELTA+l.-~CCUMlLl)
CONTINUE
HETU~N
END
IP=.:!
DO 40 I=l,NSCf.N
L=ISCORlHI)
IF(SCGR(L).LE.EGRlIP).UR.IP.GI.7)GUTO 30
IP=IP+l .
GOTO 20
IF(NSCEN.GT.1JGOTU S
l=ISCORO (l)
SCPkO)=l.
GOTO 100
CUI>I(1)=O.
CUM(7)=1.
CUM(a)=EP~OB(1)/2.
EGIH2)=EG~14(l)
00 10 1=3,&
CUM(I)=CUM(I-l)+(£PROB(I-l)+EPR06(1-2»/2.
EGR(I)=EGR14l1-1)
I=ISCORO (tl
IF(SCGR(I).LT.EGRl2»EGRCl)=EGR(2)-2.*(EGR(2)-SCGR(1»
I=ISCORO(NSCEN)
IF(5CGR(I).GT.EGRl&»EGR(7)=EGH(&)+2.*(~CGW(I)-EGRlb»
Ll=ISCOROCl)
PDEL TA=SCCU~l (L 1)
00 7U I=2,N~CEN
L2=ISCORO (I)
OELTA=(SCCUM(L2)-tiCCUM(L1»/2.
SCPR(L1)=POcLTA+OELTA
L1=L2
PDELTA=OELTA
SU6RDIlTINE 5CPROBlEGR14,EPHOB,SCPR,NSCtN,SCGH,lSCUkD,SCCUM,CUM,0002b790
+EGR).0002b800
UIMENSION EGR14(5J,EPRUB(5J,SCPR(10),SCI.R(10),lSCOkO(10),&CCUM(10)0002b810
.,CUM(1),EGHl7J 0002b~20
0002b830
0002&840
0002&850
0002&8&0
0002&870
0002&880
U002&890
0002&900
0002&'110
0002&920
0002&9.50
0002&940
0002&950
0002&9&0
0002&970
il002&980
0002&990
00027000
00027010
00027020
00027030
00027040
00027050
000270&0
00027070
00027080
00027090
00027100
00027110
00027120
00027130
Oil027140
00027150
OOOiH 1&0
00027170
00027180
00027190
00027200
00027210
0002722il
00027230
0002724u
00027250
000272&0
00027270
00027260
0002729U
00il27300
5
70
C
10
C
C THIS SUBROUTINE FINOS THE P~OBABILITY FOR tACH SCENARIO THAT WILL
C BE RUN.
C
1110
C
30
qO
C
C FINO SCENARIO PkOaAbILITIES
C
20
---.-..-.--.---
- -VAX VERSION - -
IFcvAR.LT.1./10.*-SO)GOTO 100
00027310
00027320
00021330
00027340
00027350
00027300
00027370
00027380
00027390
00027400
00027410
00027420
00027430
00027440
00027450
00027400
00027470
00027480
00027490
00027500
00027510
00027520
M0011180
M0011190
M0011200
MOD11210
MOOl1220
M0011230
M0011240
1'10011250
M00112bO
M0011270
00027530
00027540
00027550
00027500
00027570
00021580
00027590
00027000
00027010
00027020
00027030
00027&4U
00027b50
00027000
00027070
00027080
00027b90
0002770'0
00027710
00027720
0002773u
00027740
00\)27750
0002771>0
00027770
10.--50 IN THE ABOVE STATE~ENT 15 REfLAC~U WITH 10.**3H
IN IHE STATEMENT BELUw.10.*_3ij IS APPHOXI~ATfLY
THE lARGEST REAL NUMBER HEPRESENIATION FOH THE vAX
IF (VAR .LT.1./10.**38)GO TO 100
Cno
C
C
C
C
C
C
C
10
C
C
C
C MAKE INITIAL PROBABilITY ASSIGNMENTS
C
IF(NSCEN.GT.2)GOTU 10
00 5 1=1,10
5 SCPR(I)=.S
GOTO 800
OOD=2*NSCEN~.NE.N~CEN
NUMHER=NSCENH
IFCOUO)NUMijER=NSCENH-l
CONST=FLUAT(NUMBEW+l)/2.
IF(OOD)CONST=lFLOATCNUMBEk)+.5)/2.'
ALPHA=O.
IiETA=O.
B.61
SUBROUTINE ~CPRS(VAR,EV,~CPR,NSCEN,~SCEN~,ISCORD,SYMM,SCGW,ItiPN)
DIMENSION SCPW(10),ISCORDCI0),SCGW(10),ISP~CI0)
LObICAL SYMM,UDO
C
C THIS SUBROUTINE ASSIGNS SCENARIO PROBABILITIES wHEN lHE
C SCENARIOS ARE SYMMETRIC WITH RESPECT TO lHE CENT~R TWEE PATh.
C WHENEVER POSSIBLE THE PH08ABILITIES ARE ASSIGNED IN A wAY
C TllAT THE MEAN AND VARiANCE OF THE AVERAGE De-HAM
C GROWTH THROUGH rHE LONG RUN YEAR NYl ARE THE SAME fOR THE
C SCENARIOS AS THEY ARE FOR THE FULL PROBABILITY TREE.
C A SIMPLE TRIANGULAR SCHEME FOR ASSIGNING THESE PROBABILITIES
C IS USEO.WHENEVER THIS SCHEME FAILS TO ASSIGN A CONSISTENT
C SET OF PROBABILITIES,THE SCENARIO PRObABILITIES ARE ASSIGNED
C INSTEAD USING SUBWOUTINE SCPROB.SCPROB IS AL.SO USED WHENEVER
C THE SCENARIOS ARE NOT SY"'METRIC.
C
PTOT=O.
DUNE=1.
SIG=SQRT(VAR)
00 20 I=I,N::»Ct::N
J=I sco~n (Il
PTOT=PTOT+EXPl-(AbSl§CGR(J)-EV)/SIu)*_UUNE)
2u CONTHJUE
DO 2S I=l,NSCI:N
J=rSCORO(I)
25 SCPR(J)=EXPl-lAUSlSCGR(J)-EV)/SIG)**OUNE)/PTUl
~RITEC11,520)(SCPk(I),I=I,10)
C
C CALCULATE PROBABILITY ADJUSTMENTS FOR PROPER VARIANCE.
C
c
ALPHA=(VAR-ALPHAJ/6ETA
B.62
000277tSO
000217':10
00027800
00027810
00027820
00027830
00027840
00027850
00021860
U002787U
00027880
00027890
00027900
00027910
00027920
00021930
00027940
00027950
00027900
00027970
00027980
00027990
00028000
00028010
00028020
00028030
0002d040
00028050
000260&0
00026070
00028080
00028090
00028100
00028110
00028120
00028130
00028140
00028150
000281&0
00028170
0002lH80
00028190
00028200
00028210
00028220
00028230
00028240
00028250
00028260
00028270
00028260
00028290
00028300
00028310
00028320
00028330
00028340
100
WRITE(11,510)V~RF,VAR
wRITE(11,520)(SCPH(I),I=1,10)
PTOT=O.
UO 90 1=1,10
IF(ISPN(l).GT.NSctN)GOrO 90
PTOT=PTOr+SCP~(ll _
IF(SCPR(I).GT.1.0.0R.SCPR(I).LT.0.lGOTO
CONTINUE
IF(ABS(PTOT-l.).Gl ••0000001)GOTO 100
WrHTE(l1,530}
GOTO 800
IF(AB5«VARF-VAR)/VAR).GT ••00000llGOTU 70
WRITE(11,50u)VARF,VAR .
GOTO 80
J1=ISCURD(N~CENHl
IflODOlSCPR(Jll=SCPR(J1l.ALPHA*FLOAllWUMdE~l/2.
00 tlO 1=1,NUMbEH
J=lSCORD(NUMB~R+I-I)
4LPHA=ALPHA+2.*~CPR(J)*(SCGW(J)-EV)**2
BETA=~ETA+2.*(CONST-FLOAT(I»*(SCbR(J)-EV)**2
tlO CONTINUE
C
VARf=O.
00 00 1=1,10
If(ISPN(Il.GT.NSCENlGOTO &0
VARF=VARf+SCPR(I)*(SCGR(ll-EVJ**2
oll CONTINUE
C
C
C CIIECK IolESUL TS FOIol CONSISTENCY.
C
C
100 SYMM=.FALSE.
vil'llTE(l1,540)
DO 50 I=l,NUMBER
J1=ISCOWD(N~CEN-NlJMBERilI}
J2=ISCORD(NIlMBER+1-Il
SCPR(J1l=SCPRlJ1l+ALPHA*{CONST-fLOAT(IlJ
SCPR(J2l=SCPRlJ2l+ALPHA*(CONST-FLOAT(I»
50 CONTINUE
C
C
500 FORMAT('SCENA~IO VARIANC~',E10.tI,'E~IJALS LONG RUN "
+'VARIANCE ',~10.q,'.')
510 FORMAT('SCENAHIO V4RIANCE ',E10.4,'OafS NOT EQUAL LONG "
+'RUN VARIANCE ',~lO.4,'.')
520 FORMAT('SCPR(IJ IN SUBROUTINE SCPRS:'/10F7.3)
550 FORMAT('SCENAHIO ~R08ABILITIES ASSIGNED CONSiStENTLY ~ITH 'I
.'LONG RUN MtAN ANU VARIANCE IN SUdROUTINE ~cPRS.')
90
C
70
C
C CHECK TO SEE THAT PWO~4BILITIES ARE ALL BETWEEN 0 AND 1
C AND THAT THEY SUM Tn 1.IF THEY ARE NOT OR tf THEY DO NOT
C SUM TO 1,USE SUBROUTINE SCPHOB INSTEAD.
C
80
\;
"I
5~O FORMAT(ISC~NAHIO ~ROBA~ILITIES ARE ASSI&NEU IN SUUkOUTINE I,
+'SGI<UVi.I)
C
800 CONTINUE
C
RETURN
END
B.63
000283':iO
000283&0
00028370
0002C:l380
0002tt390
0002C:l40b
00028410
,:,.
~I
"
"
SUHROUTINE FIXOM(fIXCHG,LRP1,CEP,RETIRE,~S,CCAP78,FOANDM,FLA,
+FCESC,ItiORl)
CTHIS SUBROUTINE AUDS fIXED 0 AND M CUSTS INTU FIXChG
C TtHlOUGH THE TERMINAL HORIZON.
C ---- ----- ----- -~- --- --~-."- - - - - - -
C - -DIMENSIONS AND DO LOOP FINAL VALUES MODIFIED TO
C ACCOMMODATE THE 1&TECHNULUGIES
C --- - - --- - - ----------------_.---
DIMENSION FIXCHG(100),CEP(lb,31,3),CCAP78(lb),fOANDM(lb),
+FCESC(lb),~IZllb),~ETIRE(1&,31),CAP(1&)
DATA CAP/l&*O.1
C
C 00 5 1=1,10
00 5 1=1 d&
5 KIZ(1)=1000.
DO 20 J=I,IHORI
FXG=O.
C 00 10 1=1,10
00 10 I=I,lb
IF(J.GT.LRPl)GOTO 15
CAP(I)=CCAP78(I)+CEP(I,J,NS)-RETIRE(I,J)
15 CONTINUE
COST=FOANOMlI)*RIZ(I)
FXG=FXG+CAP(IJ*COST
RIZ(I)=RIZ(l)*(I.+FCESC(IJ)*(I.+FLA)
10 CONTINUE
FIXCHG(J)=FIXCHG(J)+FXG
C ~RITE(11,100)J,FIXCHG(J),FXG
20 CONTINUE
100 FORMAT('J,FIXCHG(J),FXG:',I5,~&P2FI0.2)
RETLJHN
END
B.64
U0028420
00028430
00028440
000284~O
MU011280
MllD11290
MOOI1300
MOO1l310
000284&0
00028470
00028471
00021:S480
00028490
MOD11320
00028500
00028510
00028520
00028530
MODllnO
00028540
00028550
000C!65&O
00028570
000C!8580
00028590
0002dbOO
00028&10
00028&20
00028&30
00028&40
00028&50
00028660
8.65
c - - - - - - --- - - - - - - - - - - - - - - - - - - - - - - - - -20 CONTINUE
C~RITE(11,90J
C WRITE(11,100)tTEROAM(I),I=I,LbMAX)
C WRITE(11,too)tFOM~ET(I),I-l,LbMAX)
911 FOWMA T('1 EIWAM (I J ,FOMHE T(I): ' )
lUO FllRMAT((lOFb.l)
WET URN
t::NO
SUBRIJIITINE FO .....ESC lFOMRE T,TEtWAM,fCESC ,CAt',TOTCAP,ClJHY ,lk,
~l~MAX,FOANOM,lERMiX)
C
C THIS SUUROUTINE E:iCALATES,BUT DOES NOT INFLATE,FIXEO
C ()ANO M COSTS FUR TERMINAL ADDITIONS (lEHOAM)AND FOR
C RETIREMENTS (FUHRET)TO THE APPROPRIATE YEAk.
C
C -.- ---- - -"c - -~- - --- - - - - - - -----•
C - -DIMENtiIONS AND 00 LOOP FINAL VALUES MODIfIED TU
C ACCUMMODATE Ib TECHNULOGIES.
C - - - - - - - - - - - - - - - - - - - - - - - --- - -
00028b70
00028b80
0002ijb90
00028700
00028710
00028720
00026730
1'010011340
1'10011350
M00113bO
MOD11370
00028740
000287~0
000287&0
00028770
00028780
00028790
Oil028800
00028810
00028820
00028830
MOD11380
I'IUOI1390
MOD11400
1'10011410
00028840
00028850
1'010011420
1'10011430
000268bO
1>10011440
M0011450
MOU114bO
M0011470
00028870
00028880
00028890
00028900 .
00028910
00028920
00028930
00028940
OIMENSION FOMHET(100),TEROAM(100},FCESC(lbJ,CAP(16),
~FOANOM(lb),TEHMIXtI6)
DO 20 J=I,LtlMAX
FOMRET(.J)=O.
TEROAM(J)=O.
00 10 1=1,9
CAP(I)=TOTCAP*TERM1X(IJ
RIZ=(I.+FCESCtI»**(LR+J)
TEHOAM(J)=TEROAM(J)~FOANOM(I)*RIZ*TEHMIX(I)
----------------------------------
--------------------- -------I
i - -SKIt'NEXT CALCULATION IF TUTCAP=CUHY
IF (lOTCAP -cum .LT ••00001)GO TO 10--------------------------- -----FOM~ET(J)=FUMHET(J)+FOANOM(I)*RIl*CAP(I)/(TOTCAP-CUHY)
CONTINUE
- -U:iE ALL 7 HYDRU TECHNOLOGIES
TfHOAM(J)=TERUAM(J)+FOANOM(10)*(I.+FCESC(10)}**tLH+J)*TEHMIX(10)
00 15 1-10,1&
TEROAM(J)=TERUAM(J)+FOANDM(I)*(l.+FCESC(I»**(LR+J)*TERMIX(I)
1 ';j CONTI NUE
C
c
C
10
C
C
C
C
II'".
"j"OCr_
,:i::{;
SUBHUUTIN~~TARTlLAGREG,SGRO,~GRO,EDIN1,Rb~,ED~BT,COChIS)
C****************************************
C
C PUT THE INITIAL RATE ~ASE IN THE PROGRAM.ALS~THE EX1STINb
C DEBT INTEREST.CALCULATE THE FIKED CHAkGE UN THE EXISTING
C RA~E BASE
C
C***************************************c -~__ _ ___-_- _ _•_--_0 _~____~_•0 -•---
C - -OIMENSIONS MUDIFIED TO ACCOMMODATE THE 1&TECHNOLOGIES
c --~--- --- - - --=- --- --- ------ -•- - - --COMMON IC11 ITCRA1,NCONM,PHORlN,HOHIZN,lNFLA,NPR05,NGTEC,LBl1b),
+OBTRT,FAIADJ,lTCNUR,TAXMAR,E~RT,PRERT
COMMON IC31 EXCPLM(100),CWIP(100),CC ,DINTll001,LA~R(1&)
•,AFUOC(100),UITCll00),GAPCSTllb),DINVST(tOo),RTBASE(100),
+FCWIP (lb,13),NCON(l&),f'AFUDC (l&,13),LEN (tOO),PCwIt',BONOkl (100),
+EGROll00),ASSETSll00),ExCUSTl100),fIXCHG(100),AS578
+,AAMORT(100),CURCAP(1&,100),ESC(lb),AOOION(100),OEPREC(100),
+TAXES(100),COVER(100),RATINT(1001,DELTA(100),COFCAP{100),
+~ETINT(100),PHEFEH(100),COFCOM(100),ADOPONl100)
DIMENSION EDINT(7),R6E(7),EOE8T(7)
INTEGER HORIZN,PHOR1N
K=O
00 101 l=l,HOHIZN
AFUOC(I):O.
EXCPLM(Il=O.
AOOPON(I)=O.
AOOIUN(I):O.
TAXES(I)=O.
BONORT(ll=O.
OEPflEC(I)=O.
OlTC(I)=O.
lOl CONTINUE
DO 10 1=1,7
BNEXT=(.9**3)*R8ElI)
OlNEXT={.9**3J*EOiNTlI)
ONEXT=(.9**3)*EOEBT(i)
IF(1.EQ.7)GO TU 30
11=1+1
81~El(T;RBE(l1)
IHNEXT=EDINT(l1)
ONEXT=EOEBT(ll)
3tl CONTINUE
H:3
SDEBT=(EDEB1(1)-0~EXT)/FLOAT(Jl)
SINT=(EOIN1(I)-OINEXT1/FLOAT(Jl)
00 20 J=l,Jl
K=K"l
WETINT (K);SIN"I
IWNORT (K);5UEI:lT
Z=FLlIA T(3)
ZZ=FLOAT(J)
HTBASE(K);R~E(I)-lZl-1.)*(~"E(I)-8NEXT)/Z
DINTlKl=Eul~T(I)-lZZ-l.)*(EDINT(l)-DINEXT)/Z
211 CONTINUE
10 CllNT1I~UE
K=K+1
B.66
00028950
000289&0
00028970
00028980
00028990
00029000
00029010
00029020
M0011480
1'40011490
Jl40011500
00029030
00029040
00029050
00029000
0002<1070
00029080
00029090
00029100
00029110
0002'H20
00029130
00029140
00029150
0002'HbO
00029170
00029180
00029190
00029200
00029210
00029220
00029230
00029240
00029250
000292&0
00029210
00029280
00029290
00029300
00029310
00029320
00029330
00029340
00029350
0(,10293&0
00029370
00029380
0002<.j390
00029400
00029410
00029420
0002<.j430
00029440
00029450
000294bO
00029470
1I002911bO
00 35 I=K,HURIZN
J=I-l
RTUASE(I)=.9*~TBA~E(J)
DINT(I)=.q*OINT(JJ
RETINT(I)=.l*UINTlJ)UON~Rr(I)=BONURT(J)*.9
CONTINUE
B.67
00029490
00029500
00029510
00029~20
00029530
00029540
00029550
000295&0INTHEFIXEOCHARGEDASSOCIATEDWITH00029570
INITIAL ~ATE bASE 00029580
\00029590IF(LAGREG.EG.O)GU TO 40 00029600
K=O I 00029&10CHARGE=~BE(l)*(COCHIS+.02)00029620
00 SO I=l,LAGUEG 00029630
K=K+l 00029&40FIXCHG(K)=CHA~GE*((1+5GRO)**(LAGREG+I_I»/((1+6GRO)*.(LAGk~G+I-I»00029650
FIXCHG(K)=FIXCHG(K)+.05*RBE(1)00029660OEPREC(K)=OtP~EC(K)+.05*WBE(1)00029670
CONTINUE 00029680
CONTINUE 00029690
L=HORIZN-LAGREG 00029700
K=LAGREG 00029710
00 bO I=l,L 00029720
K=K+l 00029730FIXCHG(K):(COCHIS+.02)*RTBASE(I)00029740
CONTINUE 00029750
K=LAGREG+l 000297bO
FIXCHG(K)=FIXCHG(K)+.05*WBE(1)00029770
OEPREC(K):UEPkEC(K}+.05*RBE(l)00029780
00 70 I=2,L 00029790
K=K+l 00029800FIXCHG(K)=FIXCHG(K)+RTdASE(K_IJ_RTBASE(K)00029810
DEPREC(K):UEPkEC(K)+RTBASE(K_IJ_RTBASe(K)00029820
CONTINUE 00029830
RETURN 00029840
END 00029650
35
C
C pur
C THE
C
50
40
bO
70
~UBROUTINE CA~CONlARATE,C~P78,lSTAHT,CUN~T~)
C****************************************
C
C THIS SUUROUTINE CO~VEHrS CAPITAL SPENOIN~F~OM $76 10 THE
C CAPITAL REQUIRED fOR A PLANT TURNED ON IN 78.THI~ROUTINE
C ALSO CALCIILATES THE S~READ OF AFUOC AND CWIP OVER TIME.C <
C********************************************
C --__-_ -•---~--~------- --~e -~-~
C - -DIMENSIONS HAVE BEEN MODIFIED TO ACCOMMODATE THE
C 7 HYDRO TECHNOLOGIES.
C ------ ------ ------~-~---•-•---COMMON ICll I1CHAT,NCONM,PHORIN,HOHIZN,JNFLA,N~ROS,NGTEC,L~(16J,
+DBTRT,FAIAOJ,lTCNUR,TAXMAR,EQRT,PRtRT
COMMON IC31 EXCPLMlI00),CwIPlI00),CC ,OINTlI00),LAGR(10)
+,AFUUC(100J,DITClIOO),CAPCSTllb),DINvSTl100),HTBASElI00),
+fCWIP(lb,13),NCON(10)rFAFUOC(I&,13),LEN(100),PCWIP,~ONORT(IOO),
+EGRO(100),ASSETSlI00),EXCOST(100),FIXCHG(100),ASS78
+,AAMORT(101l),CURCAP(lb,100),ESCllb),AOOION(100),OEPREC(100),
+TAXES(100),CQVER(100),RATINT(100),DELTAlI00),COFCAP(100),
+RETINT(100),PREFER(100),COFCOM(100),AODPONlI00)
DIMENSION CAP78(lb),ISTART(I&),CONSTHlI6)
INTEG~H HORIZN,PHURZN
~EAL INFLA
DO 10 I:::l,NGTf.C
Nl=CONSTR(l)
NCON(I):::Nl+1STAkTlI)
IF(ISTART(I).lQ.O)GO TO 15<
N3:::IIICONM+l
Jl:::1START(1)
00 20 J:::l,Jl
N4=1'l3-J
FCWIP(I,N4)=1000.
20 CONTINUE
15 CONTINUE
N3:::NCONM-Nl-ISTAHI(I)
Z=FLOA HNll
U()30 J=l,Nl
N4=N3+J
FC~lPlI,N4J=1000.*FLOAT(J)/Z
~Ii CONTINIlE .
FCWIP(I,NCONM+l)=lPCWIP-l.)*1000.
N3=NCONM-NI-I~TAHI(I)
FAFUDC(I,N3J:::O
51:::0.
UO 40 J:::l,Nl
N5:::N3+J
N6:::N5-J
S2:::ARATE*l(.5*(1.-PCWIP)*1000./Nl)+FAFUDC(I,N&»
52;S2+FAFUDC(I,N8J+I000.*(I.-PCwIP)/FLOAT(Nl)
F AFIJI)C (I,N~):::52
ljn CONTINUE
IFlISTART(IJ.lU.OJ GO TO SO
Jl=ISTART (1)
No=NCON~I-J1
DU &0 J:::l,Jl
1117=tJo+J
B.68
00029600
0002~870
000298&0
00029890
00029900
00029910
00029920
00029930
1'10011510
MOD11520
,..0011530
MOD1l540
00029940
00029950
00029900
00029970
00029980
00029990
0003001i0
00030010
00030020
00030030
00030040
00030050
00030000
00030010
00030080
00030090
00030100
00030110
00030120
00030130
00030140
00030150
000301&0
00030170
00030180
00030190
00030200
00030210
00030220
00030230
00030240
00030250
00030200
00030270
00030280
00030290
00030300
00030310
00030320
00030330
00030340
000303'30
000303&0
00030370
00030380
F AF UOC (I,N7)=:)2
&0 CONThUE
50 CONTINUE
FAFUOC(I,NCONM+l)=_S2
C***************************************C
C CHANGE TtIE CAPlT AL CO:)T FROM $18 TO A
C 78 SURT-UP
C
C*****************************************fil=O.
DO 70 J=I,Nl
fil=Sl+(l/FLUA1(Nl»*«(I.+INFLA)*(1.+ESC(I»)**(_NI_I5T~kT(I)+J»70 CONTINUE '
CAPCST(I)=Sl*CAP7U(I)
10 CONTINUE
RETURN
fNO
B.69
00030390
00030400
00030410
00030420
00030430
00030440
00030450
000304&0
00030470
00030480
00030490
00030500
00030510
00030520
00030530
00030540
00030~SO
000305&0
SUBROUTINE AMORT
C~***********************************************
C
C THIS SUBHOUTINE CALCULATES THE RATE 8A~E THAT IS AFUDC,ANO TH~
C PROFIT ANO TAXE~THAT RESULT FRUM ITS AMORTIZATION.C .
C************************************************
C -~- - -•- •-- - -~- - - -•••-~---~--- --~-~
C - -DIMENSIONS MUD IF lED TO ACCOMMOOATE 1&TECHNOLOGIES
C •- -~-- - - •~--- ---•---------~-------COMMON IC11 ITCHAI,NCONM,PHOHZN,HORIZN,JNFLA,NPROS,NGTEC,L8(lb),
+OB1RT,FAIAUJ,lTCNUR,TAXMAR,EW~T,PRERT .
COMMON IC31 EXCPLM(lOO),cwIP(lOO),CC ,OINTllOO),LA6R(lb)
+,AFUOC(lOO),OIICll00),CAPCST(1&),OINVST(100),kT~ASf(100),
•FCWIP(lb,13),NCON(lb),FAFUDC(lb,13l,LEN(100),PCWIP,DONOR1(100),
+EGWO(100),ASSETS(100),EXCOST(100),FIXCHG(100),AS578
+,AAMORT(100),CURCAP(lb,100),ESC(1&),AUDION(100),OfPHEC(100),
+TAXES(100),COVER(100),RATINT(lOO),DELTA(100),COFCAP(100),
+WETINT(100),PNEFER(100),COFCOM(100),AOOPONllOO)
INTEGEH HORIZN,PHURZN
C DATA AAMORT/l00*0.1
00 10 I=I,HURIZN
AAMORT(I}=O.
10 CONTINUE
00 20 !=I,NGTE:.C
L2=Lt:I(I)
FAC=(-FAFUDC(I,NCONM+l)-1000.*(1.-PC~IP»/FLOATlL2)
U=LAGIHI)
N=U
00 30 J=l,NPROS
N=N+LEN(J)
IF(CURCAP(I,J).LE ••Ol)GO TO 30
Oil 40 K=I,L2
M=IIl+l\
AAMO~T(M)=AAMURT(M).fAC*CURCAP(I,J)
4il CONTINUE
.50 CONTINUE
20 CONTINUE
RETURIIl
END
B.70
00030570
00030580
00030590
00030bOO
00030&10
00030&20
00030&30
MOOl1550
MOD115&0
M0011570
00030&40
00030&50
00030&&0
00030&70
00030&60
00030&90
00030700
00030710
00030720
00030730
00030740
00Q30750
000307&0
00030770
00030780
00030790
00030800
00030810
00030620
00030830
00030840
00030850
000308bO
00030870
00030880
00030890
00030900
00030910
00030920
00030~30
B.71
00030'140
00030950
000309&0
lHUU5ANUS00030970
00030'180
00030990
00031000
M0011580
M0011590
MOD 11000
00031010
00031020
00031030
00031040
00031050
000310&0
00031070
00031080
00031090
00031100
0003111 0
00031120
00031130
00031140
00031150
000311&0
00031170
00031180
00031190
00031200
00031210
00031220
COMMUN ICll ITCRA1,NCONM,PHORlN,HOwIZN,INFLA,NPROS,NGTEC,LB(lh),
+OBTRT,FAIAOJ,ITCNOR,TAXMAR,EQRT,PHERT
COMMON IC31 EXCPLM(100},CWIP(100),CC ,UINTlIOO},LAGR{I&)
+,AFUOC(IOO),DITCllOO},CAPCSr(16}~UINVST(100),RleASE(10OJ,
+FCWIP(1&,13),NCON(1&),FAFUOC(1&,13),LEN(100),PCWIP,BONURT(toOJ,
+EGR0(100),AStiETSlI00),EXCOST(IOO),FIXCtIlH100),ASS78
+,AAMORT(100},CURCAP(16,100),ESClI6),ADOIONllOO),OEPREClIOO),
+TAXES(lOO},COVER(lOO),RATINT(lOO),DELTA(IOO),COFCAPll00),
+RETINT(lOO),PkEFE~llOO},COFCOM(lOO),AOOPONlIOO)
DIMENSION C~Pll0,31,1)
REAL INFLA
L=O
DO 20 I=l,NPHOS
Ll =LEN 1I)
L=L+l
00 40 K::l,NGTEC
FAC=(ll ••INfLA)*ll.+ESC(K»)**lL-l)
CURCAPlK,L}=(CEP(K,I+l,NS)-CEPlK,I,NS»*CAPCSTlK)*FAC
CONTINUE
CONTINUE
RETUHN
END
SUBRUUTINE CAPCUR(CEP,NS)
C**********************************************
C
C THIS FUNCTION CONVERTS THE CAPITAL PRUGRAM IN ME~AWATTS INTU
C UF DOLLARS.INFLATION IS APPLIED,YIELDING CUR~ENT OOLLARS.
C
C**********************************************
C - - - - - - --- - • - --- - --- - - - - - ----- -C - -DIMENSIONS 1400lFII::O TO ACCOMMIlUAfE 1&TECHNOLOGIES
C - - - - - --- - - - - - - - - - - - - - -•-.---- - -~
C
40
20
,
t:
~
SUBROUTINE fXCHARlFC1,FCTLrl,fCTL,FCTL1,fCHL,LTl 00031230
c******************************************00031240
C 00031250
C CALCULATE 'THE FIXED CHARGES aEFO~f CONSIUERATIUN Of ~XTHA 000312&0
C FINANCIAL COSTS,'wITH NO RfGULATIO~Y LAG.00031270
C 00031280
C******************************************00031290
C =-=- - ---•- --- - --------------------MOOll&10
C - -DIMEN~IONS MODIFIED TO ACCO~MOOATE 1&TECHNOLU&lE5.MOD11&20
C -- - - --- --~------•------ ----•-----.MOOl1630
COMI.,ON ICll HCRAT ,NCONM,PHOHZN,HOf<lZN,INFLA,NPROS,NGTfC ,Lb (1&),00031300
+DBTHT,FAIADJ,ITCNOR,TAXMAH,EQRT,PREHl 00031310
COMMON IC31 EXCPLM(100),CWIPl100),CC ,DINT(100),LAGkl1&)00031320
•,AFUOC(100),DITClI00},CAPCSTl1&),OINVST(100),RT8ASE(100),00031330
+FCWIP(1&,13),NCO~(1&),FAFUOC(1&,13),LEN(100),PCWIP,80NDkl(100),00031340
+EGRO(100),ASSETSl100),EXCOST(100),FIXChG(100),ASS78 00031350
•,AAMORT(100),CURCAP(1&,100),ESCl1&),ADOIONlI00),OEPHEC(\00),000313&0
+TAXES(10Q),COVER(100),RATINTl100),OELTAlI00),COFCAPl100),00031310
+RETINT(100),PHEFEf«100),COFCOM(100),AOOPONlI00)00031380
DIMENSION FCll1b),FCTLHl1&),FCTL(1&),FCTL1'llb),FCBL(I&),Ll(I&)00031390
INTEGE~HOWIZN,PHORZN 00031400
00 10 1=1,NGTEC 00031410
L1=LBlI)-LTlIJ 00031420
L2=LT(I)/2 00031430
L3=LT(I)-L2 00031~40
Z=FLOATlLl)00031450
IZ=FLOATlL2)000314&0
ZZZ=FLOATlL3)00031470
DO 20 J=I,NPROS 00031480
IF(CURCAPlI,J).LE ••Ol)GO TO 20 00031490
K=O 00031500
DO 40 N=I,J 00031510
40 K=K+LENlN)00031520
70 CONTINUE 00031530
SAV=1000.*CIIRCAP(l,J)00031540
00 30 L=I,L2 00031550
K=K+l 00031560
FIXCHG(K)=FIXCHGlK)+SAV*(FCll1J-FLOAT(L-1)*lFC1(!)-fCT LH(I»/Zt)00031570
30 CONTINUE 00031580
DO 35 L=1,L3 00031590
K=K+1.00031&00
FIxCHG(K)=FIXCHGlK)+SAV*lfCTLHl!)-FLUAT(L-1)*lFCTLH(I)-FCTLlI»)1 00031610
+ZZZ)00031620
35 CONTINUE 00031&30
IF(Ll.LE.O)GO TO 52 00031640
00 50 L=1,Ll 00031&50
K=K+1 00031b60
fIXCHb(K):FIXCHG(K)+SAV*(fCTL1l1)-fLOAT(L-l)*lFCTL1ll)-fCbLlI))/Zl00031bl0
50 CUNTINUE 00031b~0
52 CONTINUE 00031&90
20 CONTINUE 00031700
10 CONTINUE 00031110
RETURN 00031720
£NO 00031730
B.72
SlJtiROUTINE F XCHRL lFC 1,FCTLH,FC TL,FCTL1 ,FCIjL,LT)00031740
C~~~~*~~*~~***~*********************************00031750
C 000317&0
C CALCULATE THE FIX~D CHARGES BEfUHE CONSIOERATION OF EXTRA 00031770
C FINANCIAL COSTS,CONSIDERING REbULATQ~Y LAG 000317dO
C 00031790
C*******************************************00031800
C - - •---• - - - - - - - - - - - - - - - - - - --MU011b40
C --DIM~N~IONS MUOIFIED TO ACCOMMOUATE 1&TECHNOLOGieS.~ODl1&45
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - -M0011&50COMMONIC11I1CRAr,NCONM,PHORtN,HOHIZN,INFLA,NPkOS,NGTEC,L8(1o),00031810
+DBTRT,FAIADJ,lTCNuR,TAXMAR,EQRT,PHERT 00031820
COMMON IC31 EXCPLM(100),CWIP(100),CC ,UINTlI00),LAGR(I&)00031630
+,AFUOC(100),LlITC{100),CAPCST(1&),OINVST(100),Hl8ASE(100),00031640
+FCwIP(I&,13),NCO~(1&),FAFUUC(1&,13),LEN(100),PCWIP,80NDHT(100),00031650
+EGRO(100),ASSETS(100),EXCQST(100),FIXCHG(100),ASS7&000318&0
+,AAMUHT(100),CUkCAP(I&,100),ESC(16),AUOION(100),DEPREC(100),00031870
+TAXES(100),COVER(100),RATJNT(100),DELTA(100),COFCAP(100),00031880
+HEIINTCI00),PREFEH(100),COFCOM(100),ADDPON(100)00031890
DIMENSION FC1{1b),FCTLH(16),FCTL(16),FCTL1{1&),FCBL(16),Ll(16)00031900
INTEGER HORIZN,PHORZN 00031910
00 10 I=l,NGTEC 00031920
Ll=L8CI)-LT(I)00031930
L2=LTCI)/2 00031940
L3=LT(I)-L2 00031950
Z=FLOAT(Ll)000319&0
ZZ=FLOAT(L2)00031970
ZZZ=FLOAT(L3)'00031980
DO 20 J=I,NPRUS 00031990
IF(CURCAP(I,J).LE ••Ol)GO TU 20 00032000
K:LAGR(I)00032010
00 40 N=1,J 00032020
40 K=K+LEN(N)00032030
70 CONTINUE 00032040
SAV=1000.*ClIRCAP(l,J)00032050
00 30 L=I,L2·000320&0
K=K+l 00032070
FACTOw=l.00032080
N2=LAGRCI)00032090
N7=K+l 00032100
00 &0 N=I,N2 00032110
N7=N7-1 00032120
IF(N7.LE.O)FACTO~;FACTOR+.045 00032130
IF(N7.GT.0)FACTOW=FACTOW+EGWO(N1)00032140
bU CONTINUE 00032150
FIXCHG(K)=FIXCHG(K)+SAV*FACTOk*(FC1(I)-(L-l)*(FC1(I)-FCTLHlI))ILL)00032100
3D CONTI~UE 00032110
00 35 L=I,L3 000321ijO
K=K+l 00032190
FACTOR:l.00032200
00 45 IIl=I,N2 00032210
FACTOH:FACTOR+EGRU(K+1-III)00032220
q~CONTINUE 00032230
FIXC~G(K)=FIXCHG(K)+SAV*FACTOR*(FCTLH(I)-(L-l)*(FCTLH(I)-fCTL(I»00032240
+/ZZl)00032250
3~CONTI~UE 00032260
IF(Ll.L~.O)GU TO 52 00032210
8.73
I
q8
~Il
sa
20
10
00 50 L=1,L1
K=K+l
fACTO~=l.
00 4t!III=l,N2
FACTOR=FAC10R+EbROlK+l-IIX)
CONTINUE
FIXCHGlKl=FXXCHGlKl+SAV*FACTOH*lFCTLllIl-lL-1l*lfCTLllXl-FCBLlX»
+/l)
CONTINUE
CONflNUE
CONTINUE
CONTINUE
RETURN
Hill
8.74
00032280
000322<jO
00032300
0003231u
00032320
00032330
0003a340
00032350
00032360
00032370
00032380
00Q32390
00032400
00032410
FUNCTION QOST(COV~~,COSTD,COSTP)
C************************************************************
C*****THIS SUB~UUTINE CONVERTS T~E INTEREST CD~EWAGE INTU A
C*****COST·OF CAPITAL AND AN INTEREST kATE.
C*****
C************************************************************
C - - - - - - - - - - - --~- - - - _ - - - -_- --- - -C • -DIM~NSION UF L8 MODIFIED TO ACCUMMODATE 16 T~CH.
C -- - -~- - - - - - - - - - - - - - - - - ------ - --CO~MON ICll ITCRAJ,NCONM,PHORlN,HORIZN,INfLA,NPROS,NGTEC,LB(l&),
+OBTRT,FAIADJ,lTCNUR,TAXMAR,EURT,PRERT
COMMON IC21 CUV(&J,CCCOV(b),D6TCOV(bJ,PHECOV(&)
INTEGER HORIZN,PHURZN
lJOST=CCCOV(1)
COSTD=OB TCOV (1)
COlHP=PRECOV (1)
IF(CUVER.LT.COVlIJ)GO TO 10
N=O
00 20 M=l,b
IF(COVER.GE.COVlM»N:N+l
20 CONTINUE
1l0ST=CCCOV(b)
COSTU=DIHCOV (&)
CUSTP=PRECOV(b)
IF(N.EQ.blGO TO 10
FAC=(COVER-COV(N)J/(COV(N+l)-COV(N»
ijn~T=CCCOV(~)+FAC*(CCCOV(N+1)-CCCOV(N»
COSTP=PRECOV(N)+FAC*(PRECOV(N+1)-PRECOV(N»
COSTU=OdTCOV(N)+FAC*(OBTCOV(N+1)-OBTCOV(N»
10 tlETUkN
END
8.75
00032420
00032430
011032/440
000321.150
00032/4&0
00032410
MOD11&bO
I04UI>11 &10
MOO 11 &80
00032480
00032490
00032500
00032510
00032520
00032530
00032540
00032550
000325&0
00032570
00032580
00032590
0003~&00
00032&10
00032&20
00032&30
00032640
00032&50
00032&&0
OU032&70
00032&8U
00032690
SUBROUTINE FX~wIP
c~******************************************.
C
C CALCULATE C~IP ANO REVENUE HE~UIREMENTS ~N CWIP,AND PUT RE~UIHED
C AMOUNT IN THE RAT~bA5E e
C
C*******************************************C ~_~_-----------~~----~_•__~•G ~e _e _
C -~DIMENSIONS MODIFIED TO ACCOMMOOATE·10 TECHNOlO~IESe
C ----~---- -~- -•~------~------~-~--Q
COMMON ICll ITCHAI,NCONM,PHOHlN,HOHIlN,INFlA,NPROS,NGTEC,l~Clb),
+OBTRT,F4IAOJ,ITCNUR,TAXMAR,EQRT,PRERT
COMMON IC31 EXCPLM(100),cwIP(100),cc ,OINT(100),lAGHllb)
•,AFUOC(100),UITCII00),CAPCST(lb),OINVST(100),RT~ASE(100),
•FC~IP(lb,13),NCONC10),FAFUOCC16,13),LEN(100),PCWIP,BOhokT(lOOJ.
+EGRO(100),ASSETSlI00),EXCOST(100),FIXCHG(100),ASS78
•,AAMORT(100),CURCAP(16,100),ESC(16),ADDION(100),DEPREC(100),
+TAXES(100),COVER(100),RATINT(100),OElTACI00),COFCAP(100),
+RETINT(100),PREFER(100),COFCOM(100),AOoPONlI00)
INTEGER HORIZN,PHURZN
C DATA CWIP,OINVST/100*0.,100*0.1
DO 101 I=l,HORIZN
OINVSTCl)=O.
Cl'lIP(I)=O.
101 CONTINUE
IF(PCWIP.GT ••99999)GO TO 102
FIXCHG(l)=FIXCHG(l)+CC*CWIPCI)*PCwIP/Cl.-PCWIP)
102 CONTINUE
UO 10 I=I,NGH:C
SAVE=1000.IFlOAT(NCON(I»
00 20 J=l,NPIWS
IF(CURCAP(I,JJ.LE ••01)GO TO 20
K=O
00 30 N=I,J
30 K=K+lENCN)
3~CONTINUE
Nl=MINO(K,NCONCI)J
N2=NCONM-N1
N3:K-tH
no 40 N=1,Nl
N4:N3+N
1~5=N2 ..N
SAV=FCWIP(I,N5)*CURCAP(I,JJ*PCWIP
FIXCHG(N4)=fIXCHGlN4)+SAV*CC
RTBASE(N4)=WTdA~ElN4)+SAV
0INVST(N4):OINVSTlN4)+SAvE-CuRCAPCI,J)
CwIP(N4)=CWIPIN4J+CURCAP(I,J)*FCWIPCI,NS)*(1.-PCWIP)
411 CONTINUE
IF(lAGR(IJ.~Y.O)GO 1U 50
L1=lAGR(I)
N5=N4
UO bO N=1,ll
NS=N!;)+l
SAV=FCWIP(l,NCONMJ*CURCAP(I,Jl*PCwlP
FIXCHGCNSl=FlxCHGlNS)+SAV*CC
R1bASE(N5)=~TdASElN5)+SAV
CWIP(NS):CwIPlN5)+CURCAP(I,J)*FCWIPCI,NCUNM)*Cle-PCwIP)
B.76
00032700
00032710
00032720
00032730
00032740
0003cH50
000327&0
M0011b90
MODl1700
MOD 11710
00032770
00032780
00032790
00032800
00032810
Q0032820
00032830
00032840
00032850
000321:1&0
00032670
00032880
00032890
00032900
00032910
00032920
00032930
00032940
00032950
000329&0
00032970
00032980
00032990
00033000
00033010
00033020
00033030
00033040
00033050
000330&0
00033010
00033080
00033090
00033100
00033110
00033120
00033130
00033140
0003:S150
00033160
00033110
00033180
00033190
00033200
00033210
00033220
00033230
oil
50
20
10
CONTINUE
CONTINUE
CONTINUE
CONTINUE
RETURN
END
8.77
00033240·
00033250
000332bO
00033270
00033280
00033290
SU~WOUTIN~fIXITClAVAILT,CUMITC,CC,ITCRAT,kTU,AAMORT,RAIINl,OlNVS100033300
+,OITC,oeTRT,TAXMAK)
C*******************************************
C
C TillS SUBROUTINE CALCULATES TJE ITC ASSUCIATED
C WITH A PARTICULAR INVESTMENT PROGRAM
C
C*••**********************·****************·
REAL ITCRAT
AVAILT=(RTQ*TAXMA~*(CC-(RArlNT*06TRl»/2.).AVAllT+AAMO HT/2.
CUMITC=ITCRAT*OINVST+CUMITC
OITC=AMIN1(CUMITC,AVAILT)
AVAILT=AVAILT-OITC
CUMITC:CUMIIC-OITC
RETURN
ENO
B.78
00033310
00033320
00033330
00033340
00033350
000333&0
00033310
000333ljO
00033390
00033400
00033410
00033420
00033430
00033440
000]3450
SUtHlOlJTINE COMF IN (LAGRI:::G,EI'18URT ,EMUPHE,EMI:lCOl'oj)
C_**_***************************************
C
C THIS SU8ROUTINE CALCULATES THE ASSETS,RATEBAS~AMO INTEREST ~AYMENTS
C OF THE CUMPANY.INTEREST CUVE~AGE IS CALCULATED.
C EXT~A FlNANCIAL CHAHGtS ARE ADDED,AND ITC IS tiUdTRACTED.
C
C******************************************
c - -•-•- - - - -•----- - - - --- - -•--- -$-C - -DIMENSIONS MODIFIED TO ACCOMMODATE 1&TECHNULObIES
C •- - - - - - - - - --- - - - - - -•-- - ----- -COMMON ICll ITCRAT,NCONM,PriORlN,HORIlN,INFLA,NPRDS,NGTEC,lBCI6),
*OBTRT,FAIAOJ,lTCNOR,TAXMAR,EQRT,PRERT
COMMON IC31 EXCPLM(100),C~lP(100),CC ,DINT(100),LAGRC1&)
*,AFtJUCCI00),OITC(100),CAPCST(16),OINVS1(100),RT6ASEC100),
*FCwIP(16,13),NCON(16),FAFUOCCI6,13),LEN(tOO),~CWIP,BONOR1(100),
+EGRO(100),ASSETS(100),EXCOSTCI00),fIXCHGCI00),ASS78
*,AAMORT(100),CURCAP(16,100),ESCCI6),ADOIONCI00),DEPHEC(100),
*TAXESC1(0),COVER(100),RATINT(100),DELTACI00),COFCAP(100),
+RETINT(100),PREFERC100),COFCO~(100),AOOPONCI00)
COMMON I~RITEI WRT(3)
INTEGER HORIZN,PHORZN
REAL ITCRAT
LOGICAL WRT
N4=O
EMD=O.
EMP=O.
DO 10 I=l,NGTEC
00 20 J=I,NPHOS
IF(CURCAPCI,J).LE ••Ol)GO To 20
K=1
DU 30 N=I,J
30 K=K+LE.NCN)
35 CONTINUE
L=K-l
IF(L.EQ.O)GO TO 45
Nl:::MINOCL,NCON(I»
N3=K-Nl-1
1)0 40 N=l,Nl
N4=N3+N
N5=NCONM-Nl+N .
AFUOC CN4)=AFUI.lC (N4)+CUHCAP C1,J)-F AFlIllC CI,N~)
Ill)CONTINUE
4~CONTINUE
IFCLA6H(I).lQ.U)uU TO 4&
L=LAGR CI)
00 47 II=I,L
N4:::N4*1
AFUnC(N4)=AfUOCCN4)*CUHCAP(I,J)*fAFUOC(I,NCONM)
47 CONTINUE
4!i COl'll HIUE
SAVE=(l 000._PCWlPi-F AFuoe (l,NCONM))*CllRCAP U ,J)ILU (I)
L1=LlHIl
N3=K*LAGR(1)-1
00 50 N=1,Ll
1\l4=N3i-N
RTBASE(N4)=~TdA5ElN4)+SAVE*lL6(I)+1-N)
8.79
000H4&()
00033470
00033480
00033490
00033500
00033510
1)0033520
00033530
I'4UOl1720
1'10011730
M0011740
00033540
00033550
00033560
00033570
00035580
00033590
00033600
00033&10
01)033620
00033&30
.00033640
00033&50
000336bO
00033661
00033662
00033663
00033610
00033680
00033690
00033700
00033710
00033720
00033730
00033740
00033750
00033760
00033770
00033780
000331'10
00033800
00033810
00033820
00033~30
00033840
00033850
000338&0
00033810
00033680
00033t190
00033900
00033'H0
00033920
00033930
00033940
00033950
000339&0
OEPREC(N4)=UEPREClN4)+SAVE
50 CONTINUE
211 CONTINUE
10 CONTINUE
RA TINT (1)=E~lIWRT
AT=O.
eI:;/).
C****~********************************************************
C*****
c**********************************************.**************
C IF (WRT(3»PRINT,*INTEREST COVER INTERtST RAIE DELIA AOOINI*
CALL FIXITC(Al,CI,CC,ITCRAT,RTBASE(l),AAMOkT(l),RATINT(l),
+OINVST(l),DITC(l),OBTRT,TAXMAR)
IAXES(l)=RTBASE(l)*(CC-(RATINT(l)*OBIRT»*IAXMAR
ASSETS(l)=RIBASE(l)*AFUDC(l).
AAA=A8S78~ASScTS(1)
OTHERA=AMAX1(o.,AAA)
ASSETS(l)=ASSeTS(l)+OTHERA
AVAIL=FIXCHGll)-OITC(1)-(.02*ASSETSC1»
OADO=08TRT*(ASSETS(1)-ASS78)+80NDRT(1)
AODINT=RATINTll)*OADD
DINT(l)=OINT(l)+AUDINT
COVER(l)=AVAIL/(OlNT(l)*FAIAOJ)
COFCUM(l)=UuST(COVER(l),kATINT(l),PREFER(l»
COFCAP(l)=(OeTRT*~ATINT(l»+
+«(PRERT*P~EFtR(l»+EQRT*(COfCOM(l»)/(l.-TAXMAR)
OELTA(l)=COfCOM(l)-EMBCO~
EXCIIS T (1)=EtiRhDEL TA(1)*RTBASE (1)/(1.-TA XMAR)
111=1
SAVl=OAOO*(RAJINTll)-EMBORT)
I9=31+LAGREG .
IJK:MINO(IQ,HORIZN)
JJJ=2+LAGREG
00 11 KJI=JJJ,IJK
AODION(KJI)=AOOIO~(KJI)+SAVI
11 CONTINUE
PADO=(ASSETS(I)-ASS78)*PHERT
SAVP=PADD*(PRtFEHll)-EMBPRE)
DO 111 KJI=JJJ,HO~IlN
AOOpON(KJI)=AOOPON(KJI)+SAVP
111 CONTINUE _
EXCOST(I)=EXCuST(l)tAOOPON(l)/(I.-TAXMAH)+ADOION(I)
C******************·*.***~************************************
C****.
C***********.********.******.************··*·***·*··**********
IF(WHT(3»PRINT 901,III,CUVE~(I),RATINT(1),OELTA(1),ADDlhJ
901 FORMAT(I4,F~.2,2FI0.4,E12.4)
00 bO N=2,PHO~ZN
SAV=CC+EMO+lOELTAlN-l)*EY~T+EMP*PREHT)/(l.-TAXMAW)
:iSS=kTBASE(N)
TTT:RATINT (N-l)
CALL FIXITClAT,Cl,SAV,ITCRA1,SSS,AAMUHT(N),TTT,OINVST(N).
+DITC(N),O~TR"TAXMAR)
TAXES(N)=(RIBASE(N)*lSAV-(RATINT(N-l).Dl'ilRl»)*TAX~AN)
++AAMIlRT(N)-UITC(N)
ASSETS(N)=AFUOC(N)+RT6ASElN)+OTHERA
AVAIL=FIXCHG(N)+EXCOST(N-I)-OITC(N}-(.02*ASSElS(N})
8.80
00033970
00033980
00033990
00034000
00034010
00034020
00034030
00034040
00034050
000340&0
00034070
00034080
000340QO
00034100
00034110
00034120
00034130
00034140
00034150
000341&0
00034170
00034160
000341QO
00034200
00034210
00034220
00034230
00034240
00034250
00034200
00034270
00034280
00034290
00034300
00034310
00034320
00034330
00034340
00034350
000343&0
00034370
000343ijO
000343<jO
00034400
00034410
00034420
00034430
00034440
00034450
00034400
00034470
00034480
OOO:!S4490
000346500
00034510
00034520
00034530
AODINT=ADOINT~0~TkT~RATINT(N-IJ~(ASSETS(N)-AS5ETS(N-1))
ADDINT=AOOINT~HATINT(N-1)~80NORT(N)
OINT(N)=DINT(N)~ADOINT
COVEH(N)=AVAIL/(DINTlN)~FAIAOJ)
CUFCOM(N)~QOST(COVER(N),RATINT(N),PREFER(NJ)
COFCAP(N)=OUTRT*RATINT(N).
...(PRERT*PREFlH(NJ+EQRT*COFCOM(N»/(I.-TAXMAk)
UADO=OBTRT~(ASSETS(N)-ASSETS(N-l»+BONURT(N)
SAVJ=OAOD*(WATINT(N)-fMBURT)
19=N+LAGREG+31
IJK=MINO(I9,HORIZN)
JJJ=N+l+LAGHEIi
00 12 KJI=JJJ,IJK
AOOION(KJI)=AODION(KJI)+SAVl
12 CONTINUE
PAOD=(ASSETS(N)-A~SETS(N-l»*PRERT
SAVP=PADO*(PktFER(N)-EM8PRE)
00 122 KJl=JJJ,HORIZN
ADOPON(KJI)=AOOPON(KJI)+SAVP
122 CONTINUE
EMO=OBTRT*((UINT(N)/(ASSETS(NJ*DUTRT»-EMBURT)
tiELTA(N)~COFCOM(NJ-EM8eOM
EMP=AOOPON(N)/(PRERT*(ASSETH(N)-ASSETS(l»J
c**~*********************************************~*****~******
C**~**
C****************************~*****************~**~******.****
IF(WRT(3»~RINT 901,N,COVER(N),RATINT(N),UELTA(N),ADOINT
EXCOST(N)=(DELTA(N)*EQRT*RTBASE(N)+ADDPON(N»/(I.-TAXMAR)
......AODION(N)
bU CONTINUE
SAV=OELTA(PHORZN)*.8
IJK=PHORZN+l
00 70 N=IJK,HURIZN
SAV=SAV*.8 .
EXCOSr(N)=SAV*RT8ASE(N)+AOOIO~(N)+AODPON(N)/ll.-TAX~AR)
70 CONTINUE
IF(ITCNOH.EY.l)CALL NORITC
00 80 N=l,HORIZN
FIXCHG(NJ=FIXCHG(N)+EXCP~M(N)-(OITC(N)/(I.-TAXMAR)+EXCUST(N)
80 CONTINUE
C**********************~**t********************~**************
c"'*"'~~
C*************************************************************
IF(.NUT.WRT(1J)GO TU 89
C PRINT,*PE~lOU FIXEU COST ITe EXTwA COSTS PRlLIM COST~'"
UO 88 I=1,HOHIIN
PRINT902,I,FIXCHG(I),OITC(I),EXCOST(I),ExePL~(1)
IHI CONTINUE
8"CONTINUE
IF(.NOT.WWT(2JJ GU TO 85
C PRINT,*PERIUD ASStTS RATEbASE AFooe •CWIP INTlWlST*
00 82 N=l,HURIZN
PRINT 900,N,ASSETH(N),kTBASE(N),AFUOC(N),CwIPlN),01NTlN)
82 CONTINUE
d'l eONUIHlE
c*****~**********************~***********************~***~****
C*****
B.81
00034540
00034550
00034560
00034570
00034580
00034590
00034600
00034b10
00034620
00034b30
00034640
000346~0
00034&&0
00034610
00034680
00034&90
00034700
00034710
00034720
00034730
00034740
00034750
000347&0
00034770
00034780
00034790
00034800
00034810
00034820
00034830
00034840
00034850
00034860
00034870
00034880
00034890
00034900
00034910
00034920
00034930
00034940
00034950
000349&0
00034970
00034980
00034990
00035000
00035010
00035020
00035030
00035040
00035050
000350&0
00035010
00035080 .
00035090
00035100
C*************************************************************
quO FOHMAT(I5,5l2X,E1u.3»
q02 FORMAT(I5,4l2x,E10.3»
RETURN
END
B.82
00035110
00035120
00035130
00035140
000351~0
5UBRuurIN~UIbT(LbO,LTO,Fl,F2,f3,F4,f5,~1~7U,u15TRA,AWATt.,ul~~~C)
C*******************************************
C*****
C*****THIS SUBkUUTINE HANDLES DISTRIButION CAPITAL.RATE BASE,
C*****CWIP ANU AFUUC A~~INCREASED,AND FIXED CNARGES AkE ADDED.
C*****CONSTRUCTION.Tl~~15 TWO YEARS.
C*****
C*******************************************C _ _ - -_~~- - - - - - - - - - __--•_c -- ---
C - -OJM~NS~UNS MODIFIEO TO ACCU~MOOATE 16 TECHNOLO~I~S.
c - - --- - • - --•- - - - - - - - -•-- - - - - - - -COMMON IC11 ITCRAT~NCONM,PHOHZN,HOHIlN,INFLA,NPROS,NGTEC,LB(lb),
+DBTRT,FAIAOJ,ITCNO~,TAXMAR,EQRT,PREHT
COMMON ICj/·EI..r4M~100),CwIP(100),CC ,OINT(lOO),LAGR(lb)
+,AFUOC(lOO),DIT~(100),CAPCST(16),OINVST(lOO),kT6ASE(10U),
•FCWIP(lb,lJ),NCON(lb),FAFUDC(16,13),LEN(lOO),PCWIP,BONORT(100),
+E&RU(100),AS5ETSl!OO),EXCOST(100),FIXCHG(100),ASS78
+,AAMOkT(10~),CUHC~P(16,100),ESC(16),ADOION(100),OEPRECllOO),
+TAXES(100),r.OVER(tOO),~ATINT(100),OELTA(10U),COFCAP(100),
+HETINT(100),P~E'ERll00),COFCOM(100),AOOPON(100)
DIMENSION OfllJeK.".,l.,.,)
INTEGER PHflH;M#lJri~T ,,~I
REAL INFLA
FAC2=1.+ARATE/a.
FACl=(1.~(5.*ARATt/4.)+(3.*(ARATE**2.)/B.»
F AC=ll.+II~fLAJ *(1.+0 ISESC)
G=EGIW (1).
UH~r.KS(1)=~·JJRA*tN78*(I.+G)*FACCWIP(l)=C~l'iliJ+.~*DBUCKS(l)*FAC*(l.-PCWIP)
RTBASE(1):PTRISE(1)+.5*OBUCKS(1)*PCwIP
AFUIlC 11)=I\F!lI)C (U+OBUCKS (1)*FAC 1*Ct.-PCvHP)
OINVST(1)=OlNVSr(1)+.5*OBUCKS(1)
UO 20 I=2,PHUkZN
G=G9EGRU(I).
FAC=FAC*(l.+INFLAJ*(I.~OISESC)
DBUCKS(I)=OIS1RA*~N78*(I.+G)*FAC
AFUOClI)=AFUDC(I)+DBUCKS(I)*FAC1*(1.-PCwIp)
CWIP(I)=CwIP(l)+DtlUCKS(I)*(l.-PC~IP)
kTBASE(I)=R1BASE(1)+DBIJCKS(I)*PC~IP
AFUOC(I-I)=AFUDC(I-1)+.5*DBUCKS(I)*FAC2*(1.-PCWIP)
CWIP(I-l)=CWIP(I-l)9,5*DBIJCKS(I).(I.-PCWIP)
RTBASE(I-1)=RTBASE(1-1)+.5*l>~UCKS(I)*PCwIP
UINVST(I)=OINVST(I)+.5*OBUCKS(I)
OINV5T(I-l)=OlNVSr(I-l)~.5*nBUCKS(I)
2il CONT I f\lUE
FAC=FAC*(l.+INFLAJ*(l.+OISESC)
G~G+~GRO(PHURlN+l)
OHUCKS (PHIlRZN 9 1)=0ISTRA*EN18*Ct ....G)*FAC
AFUDC{PHUNZN)=AFUOC(PHURlN)+.5*D8UCKS(PHORZN+l)*fAC2*(1.-PCWlP)
cw IP (PHIiR ZN)=CW 1P lPHORZN)+OBUCKS (PHORZN+1)*.~*11.-pcw 1 P)
RTBA5E(PHOHZN)=RTtlAS~(PHUHlH)*.5*OUUCK8(PHURlN+l)*PCWlP
o INVS T (PtiIlRO!N)=1)I NV 5 T (PHORlN)+.5 *DeUCK 5 (f'IWRZN+l)
DO 70 I=I,PHU~ZN
LS=L TO/2
L2=LTU-L3
U=UW-L Til
F21=(F2-Fl)/FLOATlL3)
B.83
000351bO
00035170
00035180
00035190
00035200
0003521U
00035220
00035230
M0011150
M00111bO
MOD11770
00035240
00035250
00035260
00035270
00035280
00035290
00035300
0003531U
00035320
00035330
00035340
00035350
00035360
00035310
000353&0
00035390
00035400
00035410
00035420
00035430
00035440
00035450
00035460
00035470
00035480
00035490
00035500
00035510
00035520
00035530
00035540
00035550
000355bO
00035510
00035580
00035590
00035bOO
00035610
00035620
00035b30
000351)40
00035650
00035660
00035&70
00035680
00035b90
30
40
50
00
70
F32={F3-F2)/FLOATlL2)
F54=(F5-F~)/(FLOAT{Ll»
ASAVE=(FAC1-l.)*OBUCKS(I)/fLOAT(L8U)
K:I
OlJ 30 J=1,L3
K=K-tl
FI XCHG (K)=F LXCHG (K)-t (Fl-lJ-l)*F 21)*OtiliCKS (l)
AAMORT(K)=AAMURT(K)..ASAVE
CONTINUE
DO tlO J=1,L2
K=K-tt
FIXCHG(K)=FIXCHG(K)-t(F2-(J-1)*F32)*OBUCK5(I)
AAMORT(K)=AAMORT(K)-tASAVE
CONTINUE
Olj 50 J=1,L1
K=K ...1
FIXCHG(K)=FIXCHG(K)+(F4-(J-1)*F54)*O~UCKS(1)
AAMORT(K)=AAMORT(K)+ASAVE
CONTINUE
RBSAVE=08UCKSlI)*fACl/fLOAl(LBO)
DO &0 J=l,LBO
DEPREC(I+J)=OePREC(l+J)+RBSAVE
RT6ASE(I+J)=RIBAS~(I"'J)+FLOAT(LaO+1-J)*RbSAVE
CONTINUE
CONTINUE
RETURN
ENIl
B.84
00035700
00035710
00035720
·00035730
00035740
00035150
000357&0
00035770
000351t10
000351"J0
00035600
u0035810
00035820
00035830
00035840
00035850
000358&0
00035870
00035680
00035t190
00035900
00035910
00035920
00035930
00035940
00035950
00035960
SUtHWIITINE CAAHOR lAl)AHO~,Ai"lIX90)
C*********************************************
C*****
C*****THIS SUBROUTINE fINDS THE CwIP AND AfUDC,THE RATE bASE
C*****AND FIXED CHA~GE ADDITIONS CONIRlbUTfD Tn TH~YEA~S
C*****BEFORE THE PLANNING HORIZON CO~TRIBUTEU BY CAPACITY
c*****ADDED AFTER THE PLANNING HORIZON.ADAHUR REPWESENTS THE
C*****AMOUNT Of MEGAWATTS AUDED PER YEAR AFTER THE hORIZON,
c*****WITH THE TECHNUluGY PE~CfNTS dEIN~DETERMINED BY
C*****AMIX90.
C*****
C*******************************************
C - - - - - - --- - - - - - - - ------- - - - --C - -OI~ENSIONS MUOIFIED TO ACCU~MOUATE 16 TEChNOLOGIES.
C - - - - --- - - - - ----- - - --- - - - • - - - ---
COMMON ICll ITCRAl,NCUNM,PHURZN,HOkIZN,INFlA,NPROS,~GTEC,L~llb),
+nBTRT,fAIAOJ,lTCNDR,TAXMAR,EQRT,P~E~T
COMMON IC31 EXCPlM(lOO),CWIP(lOO),CC ,DINTlIOO),LAGR(lb)
+,AFUDC(100),OITClIOO),CAPCST(16),OINVST(lOO),kT6ASE(100),
+FCWIP(lb,13),NCON(lb),FAfUDC(16,13),LEh(100),PC~IP,80NORIlIOO),
+EGRO(100),ASSETS(10~),EXCOST(lOO),FIXCH~(100),ASS7b
+,AAMORT(lOU),CURCAP(16,100),ESC(16),ADDION(100),OEPHEC(100),
+TAXES(100),CQVER(100),RATINT(100),OELTA(lOO),COFCAP(100),
+~ETINT(100),PkEFER(100),COFCOM(100),ADDPUNlI00)
DIMENSION AOAHUR(l),AMIX90(16)
INTEGER PHO/(ZN
REAL INfLA
00 80 I.l,NGTa::C
FAC=(l.+INFLA)*ll.+ESC(I»
~ASE.CAPCST(Ii*1000.*AMIX90(I)*(FAC**(PHORlN+NCQN(I»)
J1 .NCON (I)-l
IF(Jl.LE.O)GO TO 80
00 60 J=I,Jl
c*********************~******~**************
C*****
C*****THIS LOOP Goa::s BACKWARDS OVER TIME.
C*****.
C*******************************************
bAtiE·BASE/FAC
Ll=Jhl-J
DBASE·BASE*ADAHU~lL\l
SS.DBASE/FLOAI(NCUN(I»
1)0 so K=I,J
IlIl·PHORZN+K-J
N2.NCONM+K-NCUN(IJ
SAVE.FCWIP(I,N2)*UBASE/IOOO.
CWIP(Nl).CWlPlNI)+SAVE
AFUDC(Nl).AfUUC(Nl)+FAFUOC(I,N2)*(I.-PC~IP)*lObASE/1000.)
RTBASE(Nl).RTBASflNl)+PCwIP*SAVE
FIXCHG(NIJ=fIXCHGlN\)+PCwIP*CC*SAvE
DINVST(Nl).UlNVST(Nl)+SS
~()CONTINUE
bIJ CONTINUE
IHI CONT INUE
~ETURN
ENU
B.85
000:5~91U
000359/tO
00035990
00036000
00036010
000360~O
00036030
00036040
00036050
000360bO
00036010
0003&060
MOO1l1ltO
MOO1l190
MOOlltlOO
00036090
0003610(1
00036110
0003&120
0003&130
00036140
00036150
00036160
00036170
00036160
00036190
0003&200
00036210
00036220
00036230
0003&240
000362f)0
00036260
00036210
0003&280
00036290
00036300
0003&310
0003b320
0003&330
00036340
00036350
00036360
00036310
0003b360
00036390
00036400
0003b410
0003642u
00036430
0003b440
00036450
00036460
00036410
00u36480
00036490
B.86··
COMMUN ICll IICHAl,NCONM,PHORZN,HOWIZN,lNFLA,NPROS,NGTfC,Ltlllb),
+DBTRT,FAIADJ,ITCNUR,TAXMAR,E~RT,PWEHT
C*****••**.*••*.******.**.*····.**••**·*****
C*****
C*****THIS SlIBNOUTINE LALCULATES ThE fXTNA CHAkbES ASSOCIATED wiTH
C*****DELAYS IN PRE-CONSTRUCTION PROCESSES LIKE SIUDIES AND
Cu",*.LICENSING.THE COSTS ASSOCIATED wITH NOHfolAL lIt<lING
C****.IS CONTAINED IN THE CAPITAL COST.
C.*.**
C****.****.*********************************
DIMENSION ClP(lb,31,1),STAPkT(16,1),L~TAb~(16,1)
COMMON IC31 EXCPLM(100),CWIP(100),CC ,UINT(lOO),LAGR(lo)
+,AFlJOC (100),onc llOO),CAPCST (16),OlNVST (1 00),kTIiASI:.(100),
+FCWIP(16,13),NCON(16),FAFUDC(16,13),LEN(100),PcwIP,BONOH1(100J,
"+EGRO(100),ASSETS(100),EXCOST(100),FIXCHG(100),AS578
•,AAMORT(lOU),CURtAP(16,lOO),ESC(16),AOOrON(lOO),OEPRI:.C(100).
+TAXES(100),COVER(100),RATINT(100),OELTA(100),COFCAP(100),
+RETINT(100),PREFEH(100),COFCOM(100),AOUPON(100)
INTEGER PHORZN,HOHIZN
REAL INFLA
IF(NS.EQ.l)GU fO 89
DO 10 I-l,HORIZN
EXCPLM(l)-O.
111 CONTINUE
NSI-NS-l
Oil 70'1-1,NGTt::C
CINFLA-l.
DO 60 K-l,NSI
c*******************************************
C*****"
C*****THIS LOOP ITTERATES ~ACKWAROS OVER STAGES,FHUM
c~****CUNSTRUCTION TO LICENCING TO •••
C**~**
C*******************************************
KSAVE-N5+1-1'.
LSAVt=LsrAG~(I,KSAVE)
CINFLA=ll.+INfLA)**L'AVE*CINfLA
LOUP=PHORZN-L~AVE
FAC=l./(l.+INfLA)
Oil 50 J=l,LOOP
FAC=FAC*(l.+INFLAJ
SAVE=(CEP(I,J,KSAVE·l)-CEP(l,J+LSAVE,KSAVEJ)*lOOU.*CAPC~Tl!)
tXCPLM(J)=E~CPLM(J)+SAVE*CINFLA*STAPRT(I,NS-~)*FAC
~II CONTINUE
bll CONTINUE
71)CONTINUE
lS9 CONTINUE
HE T IJI~N
ENU
I
C
C
C
SlJIHWIIT!NE PLMEXC lCEP,STAPIH ,I~S,LST AbE)__G _~___~$-_
-DIMENSluNS MOUIFIEO TU ACCOMMODATE Ib TEC~N~LObIE5--~-----~---------~--~------
00036500
'>\0011810
MOOl1820
1'10011830
0003&510
0003b520
00031:1530
0003&590
U003b550
0003&500
0003&570
00030580
0003&590
0003&600
0003&010
00036620
00030b30
000366110
0003&650
0003.6b60
00036&70
0003&&~0
0003&690
00036700
0003&710
00036720
00036no
0003&HO
00036750
00036760
00036770
00036780
00036790
0003&800
0003&810
00036820
00036830
00036840
000368S0
0003b860
00036870
00036880
00036890
00036900
00036910
00036920
0003&930
00036940
00036950
0003&960
0003&970
0003b980
0003&990
SUbROUTINE wOHITC
C******************************************
C*****THIS SUbrOuTINE NORMALIZES INVESTMENT TAX CREDITS;THAl IS
e*****~THE TAX SAVINGS OIIE TO ITe IS USED TO HEUUCE THE kEVENUE
C*****REQUIREMENT bY AN EQUAL A~OUNT OVER THE BUOK lIFE Of THE
c*****PLANT.THERE IS A CHECK TO DETERMINE THAT CUMULATIVE CUSrUMEri
e*****SAVINGS ARE LESS THAN OR EQUAL TO THE C~MPANY'S TAX SAVINGS.
C*****
C******************************************
C -- - --- - - - - - - - - --- -~- - - - - --- - - -C - -OIMENtiIONS MODIFIED TO ACCO~MOOATE 1&TEChNOlUGIES
C ~- --- - --- - - - - - - - - - - - - - - - - - - - - --- - -COMMON ICll ITCRAf,NCONM,PHORlN,HOHIZN,INFLA,NPHOS,NGTEC,lu(lb),
.UBTRT,FAIADJ,lTCNOR,TAXMAR,EQ~T,PREHT
COMMUN IC31 EXCPLM(100),CwIP(100),CC ,OINTlIUO),lA&h(l&)
+,AFUDC(100),DITClI00),CAPCST(1&),DINVST(100),kT8ASE(100),
•FCwIP(1&,13),NCON(1&),FAFUOC(1&,13),LEN(100),PCwIP,bONORT(lUOJ,
+EGRU(100),ASSETS(100),EXCOST(100),FIXCHG(100),ASS76
+,AAMORT(100),CURCAP(1&,100),ESC(1&),AOUIO~(100),OEPHEC(IOU),
.TAXES(100),COVEk(100),RATINT(100),DElTA(100),COFCAP(100),
+RErINT(100),PREFEH(100),COFCOM(100),AODPON(100)
DIMENSION SAVE(100J
REAL ITCRAT
INTEGER HORIIN,PHORZN
00 20 I=1,HORIZN
~(l SAVE (I)=0.
UO 711 I=l,NGTEC
L1=L1HIl
Z=FLOA TCL t)
00 &0 J=l,NPHUS
IF(CURCAP(I,J).LE ••01)GO TO &0
K=O
DO 40 N=l,J
&10 K=K+lEN(N)
STORE=ITCRA1*1000.*CURCAP(I,J)/Z
DO SO L=l,Ll·
K=K"'1
SAVE(K)=SAVE(K)+STORE
50 CONTINUE
&0 CONTINUE
70 CUNTINUE
CllMTAK=OITC(IJ
C\lMPAS=SAVEllJ
00 80 I=I,HIlHIIN
OITC(I)=AMINl(CUMPAS,CUMTAK)
11=1+1 .
IF(I.EU.HORIZN)bOTO 80
ClIMf AK=CUi"l TAK +0 ITC (11 )-011 C (I)
C\lMPAS=CllMPASi-SAVE (11)-OIlC (I)
tlll CONTINUE
RE.T1JkN
END
B.87
00037000
00037u10
000370C!0
00037030
00037040
00037050
000370&0
00037070
00037080
"'00118410
M0011850
MOU118&O
00037090
00037100
00037110
00037120
00037130
00037140
00037150
000371&0
00037170
00037180
OU037190
00037200
00037210
00037220
00037230
00037240
00037250
000372&0
00037270
00037280
00031290
000373uO
00031310
00037320
00031330
00037340
U0031350
000373&0
0003737<J
00037380
00037:590
000374UO
00037&11U
00037420
0003H30
00031440
00037450
00031400
00037470
00037480
SU~ROUTINE PRMGN(~RM~EFfPRM.PRMAfTfIF~MY~.lLNMYRflACTYHf
+PRMGIN)
C
C THIS SUBROUTINE CUMPUTES THE PLANNING RESERVE MARGIN PRMGIN
C THAT SHOULD BE US~O DEPENUING ON THE CALENDAR rEAR IACTYk.
C lHIS COMPUTAT[ON 15 MADE BASEO ON THE DATA sET ENTRIES IN
CLINE 1&0.
e
PRMGIN=PRMAFT
IF(lACTYR.LE.ILHMYR)PRMGIN~PRM
IF(IACTYR.Ll.lFRMYR)PRMGIN;PHMBEF
RETURN
END
B.88
00037490
00037500
00031510
00037520
00031530
00037540
00037550
000375&0
00037570
00037580
00037590
00037&00
00037610
SUBROUTINE CPLAN(IYRDEC,NS,L~,LEAOMN,LEAUMX,LtAO,CCA~7H,~lTIK~,
B.89
c - - - - - --- - - -•- - - - - - - - - - - - - - - - - - - - - -C - -AM~INC AUDEo TO PARAkET~H LIST
C +IAVYR,TKNAM,fFS,AVL,CEP,CEXOEM,PkMG,AJ,C~PLIM,AMIX90,SIZE,W~VE~)
+IAVYR,TKNAM,FFS,AVL,CEP,CEXOEM,PRMb,AJ,CAPLIM,AMIX90,SIZE,kMYE~,
+AMWINC)
00031&20
1'40Dl1d7<l
M001181HI
00037030
I'1U011690
MOD11900
M0011910
00037&40
M0011920
1'40011930
M0011940
00037650
00037&&0
00031'070
00037&dO
00037690
00037700
00037710
U0037720
00037730
000377QO
00037750
00037760
00037170
00037780
00031790
00037800
00037810
1'40011950
00037820
00037830
000378QO
00037850
000378&0
00037070
00037880
00037890
00037900
00037910
00037920
00037930
000379QO
00037950
000379611
00037970
00037980
00037990
00038000
00038010
00038020
MOol19&0
00038030
000380QU
00038050
00038000
00038070
00038080
YEAN,SEt AVAILAHLf MtGAWATTS UY
AMW(I,IS)-MW
STAGE IS ..l.
LEAO(I,IS)-YtARS NEEOED TO COMPLETE STAGE IS FROM
STAGE 15-1.
IT IS A FIRSl FORWARD STEP,REMOVE UNNECESSARY COMMITMENTS.
IF(.NOT.FFS)GOTO u
00 b 1=1,10
00 &1=1,16
IYwFP=I AVYR 1I)
on b IST=l,NS
ISTAGE=NS+l-IST
IYRFC=IYROEC+LEAOlI,ISTAGE)
IF(IYRFC.LT.IYRFPJIYHFC=IywFP
IYWFP=lYRFP-L~AU(I,ISTAGE)
IF(lY~FC.GT.LW)GOI0 {)
IF(IYWFC.EQ.IJGOTU 5
00 Q IY;IYRfC~L~
CEP(I,IY,ISTAbe)=CEP(I,IYRFC-1,ISTAGE)
GOTO b
UO 3 IV=1,Lk
CEP(I,IY,ISTAGE)=U.
CONTINUE
2 3
2 j
til Al:jES
1 2 3 CEPlI,IY,IS)-Mw OF TYPE I THAT HAVE CUMPLETED STAGE IS
BY YEAR IV.
AVAILABLE TO COMMIT TO SIAGE IS FRO~
C
C
c - -.-- - - - - - - - - - - --- - - - - --- -
C
C --- -- - - - -•- - ---- - - - - - - - -C - -DIMENSIONS ANO 00 LOOP ~INAL VALUES HAVf bEtN
C MUOIFIED TO ACCOMMOOATE THE 16 TEtHNOLUGIES.
LOGICAL AVLl10),AVLLYR(16),AMWAVL(16,3),fFS,RMYESl1b),T,f
DIMENSION LEAU(1b,3),PLAN(1&),CCAP78(1&),R~TIRE(16,31),
+CEP(1b,31,3),CEXOEM(25),PRMG(25),AJ(lb),CAPLIM(lb),AHW(1&,3),
+ERRUR(16),AMIX90(1&),SIZE(16),TKNAM(16,2),IE~(lb),IAVYk(16)
DATA f,AMW,AMWAVL/.FALSE.,Q8*0.,q8*.FALSE.1
DATA TI.TlWE.1
C
C
C
C
C
C
C
C
C IF
5
3
b
C
C FO~THE FINST LYN,COMPUTE CAPACITY ALREADY PLANNED ~OT~bY
C TYPE AND IN TOTAL.
a LYR=IYRDEC+LEAOMN
IF(LYH.GT.LN)bOTO QOO
TPLAN=O.
00 15 1=1,10
DO 1~I=l,lb
TEP(I)=O.
PLAN(I)=CCAP7d(I)~NETINE(1,LYR).CE~(I,LYN,NS)
IF(NMVES(IJ)TPLAN=TPLAN+PLAN(I)1S
C
C FIJI{f1il:FIRST APPLICAtiLE
C TYPE ANn STAGE.
C
C
2'5
23
8.90
000360~O
00038100
1'40011970
00038110
00038120
0003tH30
00038140
00038150
00038160
00038170
00038180
00038190
00038200
00038~10
00058220
00038230
00038240
00038250
00038260
00038270
00038280
00038290
00038300
00038310
00038320
00038330
00038340
00038350
000383&0
00038370
00038380
0003lB90
00038C100
00038C110
M0011960
00038C120
00038C130
00038C1C10
00038450
00038C1&0
00038470
00038480
00038490
00038500
00038510
00038520
00038~50
00038SClO
00038550
000385&0
00036570
0003ij~80
000385'10
i"lIJD1199lJ
00038&00
00038&10
00038b20
[)O :SO 1=1,10
OU 30 I=1,1b
IFl.NOT.AVLlIJ)60TO 30
IYRFP=IyRDEC
IFlNS.EQ.1)b010 23
DO 25 IST=2,NS
ISTAGE=14S+Z-IS T
C lY~FC IS THE FIRST YEAR THAT MEGA~ATTS IN STAGE ISTAGE-l
C COULD COME ON LINE.
IYHFP=IyRFP+LEAOlI,ISTAGE)
I YRFC=IYRFP
IFlIYRFC.LT.IAVYklIJ)IyRFC=IAVYRlI)
IF(IYRfC.GT.LR)GOtO 30
ISP~I::V=ISTA£:iE-1
AMi~(I,1ST AGE)=CEP l I ,'IYRDEC,I SPREV)-CtP (I,IYIH'C,ISTAGE)
IYRFC=IYRFP+LlAD(i,1).
IFlIYKFC.LT.IAVYRlI»IYRFC.IAVYH(I)
IF(IYHFC.GT.LR1GOI0 30
AMW(I,11=CAPLIMlI)-CCAP78(1)+.RETIRE(I,IYHFC)-CEP(I,IYHFC,l)
CONTINUE
C
C
C INITIALIZE AVAILABLE TYPES fOR LYR.
e DO 40 1:1,10 .
00 40 1=1,16
AVLLYR(I)=F
IF(.NOT.AVLlIJ.OR.REQAOO.LT.AJ(I).OH.LYk.LT.IAVYHlI»GOTU 40
lYRFC=IYRDEC
DO 35 IST=1,NS
ISTAGE=NS+1-IST
IVRFC=IYRFC+LEAU(l,ISJAGE)
AMWAVL(I,ISTAGE)=IYRFC.LE.LYR.ANO.AM~ll,I5TAbE).GE••l
35 IF(AMwAVLlI,ISTAGl»AVLLYR(I)=T
40 COIHHllIE
e
e
30
C
C
C
C FINO TARGET CAPACITY fOR LYR AND CO~PUTE TOTAL AUDITIONS
e RlYUIRED TO ~EET THE PLANNING RESERVE MARGIN.
20 L=LYR-IYRDEC
TARGET=eExOEMlL)*ll.+PRMGlL»
REQADO:TARGET-1PLAN
IF(RE~AOO.L~.O.)GOTO 300
IF(L.N~.50.0R.IYRUEC.NE.l)GOTO55
CALL DSTAT(CEP,T,f,F,LYR,lYROEC,L,R~WAOU,TARbET,
+TPLAN,AOO,IIYP,TKNAM,AJ,PlAN,ERROR,AMW,L~,lSIAGE,
~TEp,AVL,AVLly~,AM~AVL)
C FIND FIRST AVAILA~Ll JYPE.IF NONE A~E AVAILAblE,SKIP TO
C rliE NeXT LYR.
c~s UU 60 1=1,10
~5 UO &0 1=1,1b
IF(.NOT.AVLLYR(I)JGOTO 60
ITYP=I
GOTO 70
h1(~··1.,t
;1
·'1
'I
IF(ADD*l.j.GT.AMWLITYP,ISTAGE»ADO;AMWlITYP,ISlAGE)
cO'O'- - - - - - - - - - - - - - - - - - - - - - -....-............
B.91
0003663(t
00038640
000380~0
00038&00
00038670
MOD12000
00038680
00038090
00038100
00038110
00036720
00038730
00038740
000387~0
00036160
00038770
00038780
00038190
00038800
00036810
00038820
00038830
MOD12010
M0012u20
00038640
M0012030
MU012040
00038850
000388&0
00038870
00038880
000388911
00038900
00038910
110036920
00038930
00038940
00038950
000389&0
00036970
00036980
00038990
00039000
00039010
00039020
00039031l
00039040
00039050
00039000
00039010
00039080
00039090
00039100
00039110
00039120
00039130
00039140
THEN RETURN TO AOoFOREACHTYPE.
- -USE AMWINC (INPUTTED A8 MWINC)INSTEAD OF 50.
IFlAOD.LT.~0.JAOD·50.
IF (ADD .LT.AMWINC)ADO.AMWINC
IFlL.NE.50.UR.IYRUEC.NE.l)GOTO 190
CALL OSTAT(CEP,T,f,F,LYR,IYROEC,L,WEYAoO,TARbET,
+lPLAN,ADD,ITy~,TKNAM,AJ,PLAN,ERROR,AMw,LH,ISTAGE,
+TE~,AVL,AVLLYH,AMWAVL)
NO MORE ADOIIIUN~ARE HEQUIRED GOTO ~EXT LYR.
IF(REQAOU.LE.O.)GUTO 300
------------------
<ill
c
C
C
bO CONT limE
GO TO 300
100
C
C FIND AMOUNT OF CAPACITY TO BE ADDED.
AOO.5 IZE (I TYP)
c
C llPUATE.
REQAOD.REQAOU-ADo
PLAN(lTYP).PLANlllYP).AoD
AMWlITYP,ISTA6E).AMw(ITYP,ISTAGE)-AUU
IFlAMW(ITYP,ISTAGE).LE ••l)AMWAVLlITYP,ISTAbf);.FALSE.
C
C IF IRREVOKABLE COMMITMENTS ARE REQUIREO,MAKE THEM.
C IF NOT,MAKE TENTATIVE COMMITMENTS.
IYRFC.lYROEC
ou J20 IST.ISTAGE,NS
1~0 IYRFC.IYRFC+LEAO(lTYP,IST)
IF(lYRFC.LT.LYR)GUTO.170
IYRADO-IYRDEC1'LEAU(ITYP,ISTAGE)
00 130 IY.IYRAUU,LR
130 CEPlITYP,IY,ISTAGE):CEP(ITYP,lY,ISTAGE)+AOU
IF(ISTAGE.Eu.NS)GUTO 180
170 TEP(ITYP).TlPlIIYP)+AOU
180 CONTINUE
C
8u
C
C FIND MOST ADVANCEO STAGE wITH AVAILABLE CAPACIIY.If NO
C CAPACITY IS AVAILABLE,GO BACK TO CHOUSE ANOTHtR ITYP.
ISTAGE-NS1'l
IS l"AGE.I 5 TAGE-l
IFlISTAGE.Gl.0)GOTO 100
AVLLYRlITYP)••FAL~E.
GOlu ss
IFl.NOT.AMWAVL(ITYP,I5TAGE»GOTO 90
c
C FINn AVAILABLE TY~E WITH HIGHEST ERROH.
C70 DU 60 1.1,10
70 ou 60 1.1,10
IF(.NOT.AVLLYH(I)J60T6 80
ER~OR(I).TAHGET*AMIX90(1)-PLAN(I)
IF(ERRUR(I).Gr.ERHUR(ITY~»ITYP.I
COIHWUE
C £F
lQO
C
C HE-CHECK AVAILAUILITY
C MOHE CAPACITY.
•
C UU 200 1;1,10
DO 200 1::1,1&
200 IF~REQAnD.LT.AJlI)AVLLVR(I):.FAL5E.
GOIO 55
C
C IF NO MORE OECI~IONS ARE REQUIRED IN THIS DECISION YEAR,
C RETURN TO THE MAIN PRUGRA~..
300 IF(L.EQ.LEADMX.OR.LYR.fQ.LR)GOTO 400
C
C IF MORE DECISIONS ARE REQUIRED IN THIS DECISION YEAR,UPDATE
C FOR THE NEXT LEAD YEAR AND RETURN TO COMPUTE ~EW RE~UIREO
C ADDITIONS.
LYR=LYR+l
TPLAN=O.
C DO 310 1=1,10
DO 310 1=1,1&
PLAN(I)=CCAP7ij(I)-RETIRElI,LYR)+CEPlI,LYR,NS)+TEPlI)
310 IF(RMYES(I»)TPLAN=TPLAN+PLAN(I)
CALL AMWUP(NS,AVL,IYRDEC,LYR,LEAD,CEP,RETIRE,AMw)
GOTO 20
C
till 0 CONTINUE
~ETU~N
END
B.92
00039150
M0012050
000391&0
00039170
00039180
00039190
00039200
00039210
00039220
00039230
00039240
U0039250
000392bO
00039270
00039280
MODI20&O
00039290
00039300
OP039310
00039320
00039330
000393140
00039350
00039360
:iUtlROUT INE CEliO (LEAOMX,NYPP,IYI<,CUkOE~,ALPHA,bE TA,AL,CllIHJGR,
~NP,CExOEM,OEM78,FC~ER3)
C :iUHROUTINE CEXO(LeADMX,NYPP,IYR,CURDEM,ALPHA,HfTA,AL,CUWDGR,
C +Ny~,GCOR,NP,GC,IP,CEXDEM,DEM78)c --•- - _ - -•- - _ - - _0 ____ _ _ ____e ____$
DIMENSION C~XUEM(25)
C
C THIS SUBROUTINE CALCuLATES ThE CONDITIONAL ~XPECTED DEMANU
C tiIVEN THE CURRENT ANO LONG RUN DEMAND GROWTH RATES.CEXOEMlI)
C IS THE EXPECTED DEMANO IN MEGAWATTS I YEAkS FROM THE PRESENT.
C
L=1
CEI0EM(L)=CURDEM
00 10 I=2,LEAUMX
C If(IYR-1~I.GE.IP*NYPP+1)GOTO 20
IF (I .GE.IFIX(fCPER3»GO TO 20
L=I
C IF(IYR-UL.GT.NYLJGQTll 8
C GCOR=GCOR~GC
C GOTO 10
Cd GCOR=O.
C10 CEXDEM(L)=CEXOEM(L-l)+(CUROGR+GCOR)*DEM7H
10 CEXOEM(L)=CEXOEM(L-\)+CUROGR*OEM78
C
20 00 40 JP=I,NP
CUROGR=CURObR*ALPHA+AL*BETA
00 30 I=I,NYPP
L=L+l
If(L.GT.LEADMX.OR.IYH-l+L.GT.NP*NYPP)GOTO ~O
C IF(IYR-1+L.GT.NYL)GOTO 25
C GCOR=GCUH+GC
C Goro 30
C25 GCOR=O.
C30 CEXDEM(L)=CEXDEM(L-1)+(CUROGR+GCOR)*UEM78
30 CEXOEM(L)=CEXUEM(L-1).CUROGR*DEM78
lIO CONTINUE
50 CONTINUE
RETURN
END
8.93
MOOI~07u
MOD12080
00039370
00039380
M.OD12090
00039390
00039400
00039410
00039420
00039430
00039440
00039450
00039400
00039470
00039480
r>\0012100
00039490
00039500
00039510
00039~20
00039530
00039540
M0012110
00039550
000395&0
00039570
00039580
00039590
00039&00
00039&10
00039&20
00039&30
00039&40
00039650
M0012120
000396&0
00039670
00039680
000391:190
LYR.SPECIFICALLY,
BY THE AMOUNT Of
lYW THAT WAS NOT
"~";',»:
.~
SUBWOUTINE AMWUPlNS,AVL,IYRDEC,LYR,LEAU,CE~,kETlkE,AM~)C G _____ -•-••_=----~-~~-__~-e ~--
C - -DIMENSIONS AND 00 LOOP FINAL VALU~S HAVE bEEN
C MUOIFIEO ~O ACCOMMOOATE THE 16 TECHNOLOGIES.
DIMENSION AMWllb,j),CEP(16,31,3),R~TIRE(lb,31),LEAD(l&,3)
LOGICAL AVL(lb)
C
C TtHS 511BRlJUTHIE UPIlATt5 AMw FOR THE NEw
C AMW FOR EACH TYPl AND STAGE IS INCwEASEO
C CAPACITy THAT IS AVAILABLE TO CO~MIT FOR
C PREVIOUSLY AVAILAbLE.
C
DATA ISTAGE/OI
C 00 330 1=1,10
DO 330 1=1,1&
IF(.NOT.AVllI»GOTO 330
IYRFC=IYROEC
I Y1~C=L YH
IF(NS.EQ.l1GOTO 325
00 j21l I5=2,NS
15 TA6E=NS+2-lS
lYRFC=IYRFC+LEAD(I,ISTAGE)
IF(IYRfC.GE.LYR1GOTO 330
lYRC=IYRC-LEAD(I,15TAGEl
IF(IYRC.LT.2)GOTO 320
AMW(1,ISTAGE)=AMWlI,ISTAGE1+CEP(I,IYRC,ISTAGE-l)
+-CEPlI,IYRC-t,ISTAGE-l)
320 CONTINUE
325 IYRFC=IYRFC+LtAD(I,l)
IFlIYRFC.6E.LYR)GOTO 330
IYHC=IYRC-LEAOlI,l)
If(lYRC.LT.2)GOTO 330
AMW(I,l)-AMwlI,l)+RETIRE(I,IYRC)-RETIkECl,IYRC-l)
330 CONTINUE .
RETLJWN
ENO
B.94
0003'HOO
''10012130
M0012140
MU012150
00039710
00039720
00039730
00039740
000397~0
000397&0
00039770
000397~0
00039781
00039790
M0012160
00039800
00039lHO
00039820
00039630
00039640
00039850
000398&0
00039870
00039880
00039890
000399(,0
00039910
00'039920
00039930
00039940
00039950
000399bO
00039910
00039980
00039990
00040000
8UbRUUTIN~OPRINTlYEARS,TKNAM,IS,NP,rYH,C~p,U~M,Pk,PRM,D~CUET,
+HETIHE,NS,CTUT7H,~RM,IFRMYH,IL~MYH)
C
C THIS SUBROUTINE PRINIS OUT CAPACITY AUOITION~10 ThE
C kEPORT CADO.
C
C - - - - - - - - ------~- - ---- - ------•C - -uIMENSIONS AND 00 LOOP FINAL VALU~S HAVE BEEN
C MODIFIED TO ACCOMMOOATE THE lb 1ECHNOLOGIES.
C ~--~- - - - - - - - - • - - - - - - - - - - -----DIMENSION YEARS(51,CEP(16,31,3),OEMl30),TKNAMl16,2),
+RHM(30),IS(30),TPRINT(16,30),TNAMl16,2),REIIRf(16,31)
LOGICAL AnOEO(16),OECOET,T,F
DATA T,F,6LANK/.TRUE.,.FALSE.,lH /
OAIA TNAM,TPRINT/3Z*0.,460*0./
TOTAL-O.
C 00 3 1-1,10
DO 3 1-1,16
3 TOTAL=TOTAL+CEP(I,IYH+l,NS)-RETIHE(I,IYR+1J
C
IF(OECOET)WRITElZ,90)
IFYR=IFIXlYlAHSll»+l
LYEAR=IFYR+IYR-l .
wRITE(2,10u)IFYH,LYEAR,TOTAL,IFRMYH,ILRMYR,PRM,llS(I),I.l,NP}
IF(.NOT.OECOE1)GOTO 150
C 00 10 1=1,10
DO 10 1=1,16
ADDEO (I)=F
IF(CEP(I,IYH+l,NSJ+HETIRE(I,IYH+l}.GE ••l)AUO~D(I)=T
10 CONTINUE
IIiAT=O
C·00 20 1=1,10
00 20 1=1,1b
IFl.NUT.ADOEOlIl)GOTO 20
IHAT=IHAT+l
rNAtH IHA T ,1)=TKNAM (I,1)
INAM(IHAT,2).TKNAM(I,2)
DO 15 J=1,IYR
15 IPHINT(IHAT,J)=CEP(I,J+l,NS)-CEP(I,J,NS)-RtTIRE(I,J+l)
..RETIRE (I,J)
20 CONTINUE
C
IF(IHAT.NE.Olb010 35
TNAMll,1)-I!LANt(
TNAM (1,2).BLANK
IHAT-l
C - -UP TU 15 TECHNOLOGIES ON A LINE
C3S IFlIHAT.GE.b)GOTO 355
S':i IF lIlIAT .G£.15)GO TU 355
~~ITE(2,120)((TNAM(I,J),J=1,2),I=1,lhAT)
GOTII ~65 .
3':iS wRITE(2,125)(lTNAM(I,J),J-l,2),I=1,IHAT)
36'i CON TI I~IJE
l>u 37 K=l,lYR
IYEA~=IFIX(YEAW~ll)l+K
C If(IHAT.GE.6)~OTO 315
IF (IHAT .GE.15)GO TO 375
B.95
00040010
00040020
00040030
00040040
00040050
00040060
1'10012170
1010012180
1010012190
MOl)12200
00040070'
00040060
00040090
00040100
00040101
00040110
00040120
MU012210
00040130
00040140
000401~0
OU040160
00040170
00040180
00040190'.00040200
M0012220
00040210
00040220
00040230
00040240
00040250
MOD12230
000110200
00040270
00040260
00040290
00040300
00040310
00040320
00040330
00040340
00040350
00040300
00040310
00040380
MOD12240
00040390
M00122';O
00040400
OU040410
00040420
00040430
00040440
000404~0
00040460
M0012260
:S7S
37
31l
C411
411
450
470
911
1110
C+*,
C
120
BO
125
135
140
145
150
WRITE(2,130)IYEAW,OEM(K),WRM(K),(TPWINT(I,K),I~I,IHAT)
GOTO 37
WRITEl2,13S)IYEAR,DEM(K),RRM(K),(TPR1NT(I,K),I=1,IHAT)
CONTINUE
IF(IYR.EQ.l)GuTO 40
00 30 l=l,lHAT
00 30 J=2,IYR
TPRINT(I,l)=TPRINT(I,l)+TPRINT(I,J)
IF(IHAT.GE.b)bOTO 450
IF (IHAT .GE.15)GO TO 450
WRITE(2,140)(TPRINT(I,1),1;1,IHAT)
GOTU 470
WRITE(2,145)(TPRINT(I,1),1;1,IHAT)
CONTINUE
FORMAT(//)
FORMATl'CAPACITY ADDEO ',I4,'·',I4,';·,F7.0,'M~',
PRM =*,F5.3,*,LYRM =*,F5.3,*,TREE PATH =*,lX,3011)
+',PkM(',14,'·',I4,')=',Fb.3,',TRtf PAT~~',3011)
••FURMATS MODIFIED FOR 14 OR 16 TECHNOLOGIES PER LINE
FORMAT(/'YEAR ','OEMAND ','RM ',14(1X,A4,A2»
FORMAT(I4,1~,F7.0,2X,F5.3,2X,14F7.0)
FORMAT(/'vEAR ','DEMAND ','RM ',lb(A4,A2»
fORMAT(I4,IX,F7.0,lx,F5.3,2X,lbF&.0)
FORMAT(/'TOTALS',15X,14F7.0)
FORMAT(/'TOTALS',14X,lbFb.0)
CONTINUE
RETURN
END
8.96
OU040470
00040480
Ou0404ljO
00040500
00040510
00040520
00040530
00040S40
00040550
MOD12270
000405&0
00040570
0004051;0
00040590
00040000
00040&lU
00040b20
00040030
1-10012280
00040&40
00040050
00040&&0
00040&70
00040080
00040&90
00040700
00040710
00040720
B.97
c -w ---...---.........-----------w ...--c ......MWINC IS REAL TO ACCOMMODATE ~H1ALL SYSTHIS
WEAL M..,INC
C -...-----............-......-............-... ......------.........
OATA ILYR,lFYR,KN/O,O,OI
C THIS SUBROUTINE PRINT~OUT PRODUCTION DETAIL TU THE fILE
C ~OET(W=3)OR TPOEf(W=b).
\\1=3
IF CTEWMIN)W=8
IF(NH.NE.l)GOTO 5
I1=NHY
12=11
GOTO 8
5 11=1
12=3
8 CONTINUE
lYR1=IFIX(Yl:.ARS(11)
IF(NVCPP.NE.l1GOTO 9
IFYR=IYR1+(IP-lj.NYPP+l
ILYR=IFYR+NYPt"-1
IF(IP.En.l)IfYR=IFYR-l
q IAYR=IYR1+IVR
wRITE.(1'4,731J
IF(NVCPP.EG.l.ANO ••NOT.TERMIN)GOTO 30
wRITE(w,bl1JIAYR,HRM(IVR),PRM,(IS(1),I;I,I~)
GOTU 40 _
j/l ~wIIE(W,b131IfYW,lLYR,RRM(IYR),PRM,(IS(1),I=I,IPl
'10 CONTINUE
~IHTE (W,731)
IF(NH.EQ.l)bUTO 4~
wIHTE(w,621)
GOTO 44
42 WRITE(w,b22J
'14 CONTINUE
IF(MWHY(IJ.LT.l.ANO.MWHY(2).LT.l)GOTO 45
IF(NH.EQ.l)GUIO '11
WNIT~(W,&25)lHVPRU~(1),I=11,I21
1>010 46
47 wRITE(w,623)(HYPRUti(I),I=11,I2}
tHl CUNT IJ'JIJE
45 CONT l140E
IF(NII.EQ.llGUIO bO
00040730
000401411
00040150
M0012290
MUD12300
M0012310
M0012320
MOOI2330
00040760
00040770
00040760
00040790
00040800
00040810
00040820
M0012340
M0012350
MOOI2360
M0012310
00040821
00040830
00040840
00040850
000406bO
00040870
00040880
00040890
00040900
00040910
000lt0920
OOOItOHO
OOOltOqltO
00040950
00040960
00040970
00040980
00040990
00041000
000UOI0
00041020
000ltl030
000lt10ltO
00041050
OOOItlObO
00041070
00041080
00041090
000ltl100
000lt1110
000lt1120
00041130
000411110
00041150
00041160
OOOlt1170
000111180
00041190
w ~OIMEN~IONS MODIFIED TO ACCOMMODATE THE 7 HYUNu
Tl:.CHNOLOGIES.
SlJt:UWUTINI:.PRJ Pli (r'1WHY,HVENLM,NCAPS,I CAP,M\IIINC.IlV P,NS Ill:.,AIJ AIL,
+WRM,OEM,TKNAM,EUUI ;OUTTy~,OIJTAV,OUTOUl ,OIlTXl.,FHME,
+HYPR06,NH,N"Y,IS,IYR,IP,NP,NYPP,NVCPP,YEAR~,lE~MIN,OF~,~R~l
INCLUDE (ARE.EPPR)
UIMENSIUN HYENLM(3,2),ICAP(100,2),ITYP(1001,
...NSIZE(lb),AVAIL(q,2),T~NAM(16,2),
+EOUT (1 00,3,2),OIlT t yp (8,2),OU r AV (7),OU TOUT(3,cn ,
+OUTXL(3,2),HVPRUBl3),IS(301,YEARS(Sl,fTIMEl2),MWHY(2)
DIMENSION Tl:.Nl3,2J,RRM(30),DEM(30),OUTXLL(j),OFOl16)
LOGICAL TERMIN .
INTEGER W
-------------------------
-------------------------
c
c
c
c
c
B.98
c - ------------- - --- ------~--~-~----b007 WR1TE(W,bbl)OUTiYP(L,I),
+OUTTYP(L,2),OUTAVlL),(ICAP(NCAPS-KN+K,J),J;1,2),
+((EOUT(NCAPS-KN+K,I,J),J;I,2),I;11,12)
6008 CONTINUE
C - - ----- - - - - - - - - - • - - - --- - ---.~~----
00041200
00041210
00041220
00041230
00041240
0001&1250
000412&0
00041270
000412~0
00041290
00041300
00041310
00041320
00041330
00041340
00041350
000413&0
00041370
00041360
000413QO
00041400
00041410·
00041420
00041430
MUD12380
M0012390
1010012400
00041440
M0012410
M0012420
00041450
M0012430
M0012440
0004111&0
00041470
00041480
..,0012450
Ml10124&0
00041490
00041!i00
00041510
00041!i20
00041530
00041540
000415~11
0001l1!i&0
00041!:J70
00041580
00041~90
0110111&00
00041bl0
00041&20
00041&30
00041b40
00041&50
UOOlll&&O
00041b70
------------
- -lb IS NOW THE BASE FOR UUTAGE UATA
L=ITYP(NCAP5-KN+K)-10
L=lTYP(NCAPS-KN+K)-16
_ _e _____.•___ _ _ ___c _•c _____
- -AVOID PRINT OUT IF KN;O
IF (KN ,EQ.0)GO TO 600~
DO b007 K=I,KN
wRITE (W,b31)
wRITECW,(41)
GOIO 65
WR1n(~,b34)
wRITE(W,bIl4)
1F(MWHY(I).LT.l.AND.MWHY(2).LT.l}GIJTO 50
WRITE(w,bS2)TKNAM~10,1),
+TKNAM(10,2},(MWHY(I),I;I,2),((HYENLM(I,J),J=I,~),
+1=11,12)..
CONTINUE
WRlTE(w,731)
DO b002 K=I,NCAP~
L=ITYP (K)
IF(L.6T.l0)GOTO bOOS
KN=NCAPS-K
IF(lCAP(K,I),LE.N~lZE(L)*MWINC)GOTU bOOI
WRITE(W,bb2)TKNAMlL,I),
+TKNAM(L,2),(lCAP(~,J),J=I,2),((EOUT(K,I,J},J.l,2},
+1=11,12)
GOIO b002
WRITE(w,6bl)(TKNAM(L,J),J;I,2),DFO(L},(JCAP(~,J),J:l,2),
+((EOUTlK,l,J),J=I,2),1.11,12)
CONTINUE .,
wRITE (W,131)
bOOI
bO
bOOS
C
C
C
C
C
50
1>5
1>002
WRITE(w,b71)(UUTTYP(8,J),J;I,2),((UUrUUT(I,J),J=I,2),I;11,12)
00 bOOq 1=11,12
DO 6009 J=I,2 .
TEN(l,J}=HYENLM(I,J)+OUTOUT(I,J)
DO 600q K=I,NCAPS
TEN(I,J)=TEN(l,J)+EOUT(K,I,J)
6009 CONTINUE
wRITElW,b~l)llTENll,J),J=1,~),1~11,12)
wk11E(W,bijl)(lOUTXL(I,J),J=I,2),1=11,12)
WR1TE(w,731)
DO bOlO 1=11,12
bOlO TEN(I,l)=TE~(I,I)+TEN(I,~)
WRITt(w,711)(IEN(I,I),I=II,12)
00 bOeO 1=11,12
bU20 OUTXLL(I)=OUTxLl1,1)*FTIME(I)+uuTXLlI,2)*FIIME(2)
wRITE(w,721)(UUIXLL(I),1~11,I2)
b13 FO~MAT('PROu.Of-TAIL ',14,
+'-',14,',R~=',F&.3,',PRM=',F&,3,',1WEE PAT~=',IX,3011/)
btl FU~MAT('PRUU.OETAIL ',14,',kM=',Fb.3,',~NM=',fb,3,
+',T~EE PATH =',1X,30I1/}
621 FORMA H 16)(,,CAPAC.l TV lMI'l}, ,15X,'t'lolI.J[IIICTlUN L:NEkbY lGl'lt1}, }
b22 fOkMAT(lbX,'CAt'ACITY(~W}',1X,'PkOOUCrION~~EHGYlG~HJ'}
b25 FOkMAf(15X,'(NOkM wEATHEk}',3X,'HYO t'RO~=',F5.3}
b2S fUHMAT(15X,'(NOkM WEATHER}',3X,)('hYO PkOB=',F~.3,3X)}
b31 fORMAT(19X,'SL:ASON',4X,3(&X,'5EASON',5X»
b41 FOkMAT('PLANT5 AVL PEAK OFF t'K ',3(4X,'PEAK',
+3X,'OFF PK'}}
b34 FORMAT(19X,'SEASON',4X,&X,'SEA50N',5X)
b44 FORMAT('PLANTS AVL PEAK OFF P~',4X,'PEA~',
+3X,'UFF PK'}
b52 FORMAT(/A4,A2,4X,4X,2I1,1X,3(F6.0,F9.0})
bb1 FOHMAT(2A4,fb.3,217,IX,3(F6.0,F9.0})
602 FOkMAT(2A4,2X,4X,2I7,lX,3(F6.0,f9.0})
b71 FORMAT(2A4,2X,19X,3(F8.0,F9.0}}
b81 FOkMAT('LOLP(OAYS /10 YR}',13X,3(f8.2,F9.2)}
b91 FORMAT(/'TOTAL',24X,3(F8.0,F9.0})
711 FOkMAT('YL:A~LY TOTAL',17X,3l6X,F9.0}}
721 FOkMAT('YEAkLY LOLP(DAYS/10 YR)',&X,3(HX,F9.2}}
131 FOl<MAT(''J
I'/kITElI'I,13lJ
RETURN
END
B.99
00041btlO
00041b9lJ
00041100
00041110
00041120
000.41730
00U41740
00041750
000417&0
00041770
00041160
000111790
000lH600
000111810
00041820
000111830
00041840
00041850
000418&0
00041870
00041880
00041890
00041900
c _=___ ___-•e -~=--•--------~~Q g ~-----
c - - - - - ---~--- - --------- -~-- --
B.100
000411110
00041920
00041930
M0012470
00041940
,,",U012480
MOD12490
00041950
000419&0
00041970
M0012500
00041980
00041990
00041'191
00042000
00042010
00042020
00042030
00042040
00042050
000420&0
00042070
00042080
00042090
00042100
00042110
00042120
00042130
00042140
00042150
000421&0
00042170
00042160
00042190
00042200
00042210
00042220
00042230
00042240
00042250
000422&0
00042270
00042280
00042290
M0012S10
M0012520
M0012530
1'10012540
000423UO
MU012550
M00125&0
00042310
00042320
00042330
00042340
"00042350
000423&0
-------------------~.---~~-
- -CHECK IF CAP(l)EQUALS lEHO
INTEGER w
lOGICAL TERMIN
DATA llYR,lFYN/O,ul
WRITE(w,160)TKNAM(l,I),
+TKNAM(L,2J,CAP(l),EOUT(I,I,2J,CF,EuUT(I,2,1),EOUT(I,2,2)
+,EOUT(I,l,IJ
TOT(I)=TOT(I)+CAPlLJ
TUT (2)=TOT(2)+EIlIlT (J,1 ,2)
TOT(3)=TOT(3)+EUU1(I,2,1)
CF=o.
IF (CAP(l).E~.0.)GO TU 45
CF=EOUT(I,I,2)/(8.76*CAP(l»
45 CONTINUE
c _____ _ _~- - - _ --- --e ________~_~=~W --
C - -DIMENSIONS MOOIFIEO TU ACCOMMUOATE 1&"TEChNUlUGIES.
DIMENSION YEAkS(SJ,IS(30),EOUl(100,3,2),ITYP(100),
+CAP(lb),OUTCAP(7),
.OUTXl(3,2),lKNAM(I&,2),UUTTYPl~,2),lUT(5),TOIOUTl3)
W=4
IF(TERMIN)W=9
AMM=TVC*1000./ENY~AR
IYN1=IFIX(YEARS(I)
IF(NVCPP.~E.l)GOTU 10
IFYR=IYR1+(IP-l)*NYPP+l
ILYR=IFYR+NYPP-l
IF(IP.EQ.l)IFYR=IFYR-l
lQ IAYR=IYR1+IYR
C
C -- - - -
C
SUH~DUTINE PNIAPClYEAHS,lS,NVCPP,IYH,NP,IP,~UUT,ITYP,CAP,UUICAP,
.AMM,~NY~AR,UUIXL,APCOET,TVC,NYPP,T~NAM,OUTIYP,NLP,NTPU,TEkMIN,
+lBMAX,PRM)
C INCLuDE (AREEPPR)
lOGI~AL APCDET
IF(.NOT.APCOE1)GOI0 400
IF(APCOET)WNITEtW,120)
IF(NVCPP.NE.l.DR.1ERMIN)GOTO 20
wRITE(~,100)IFYN,IlYR,ENYEAR,AMM,PRM,(IS(I),I=I,IP)
GOTO 30
20 WRITE(W,110)IAYk,ENYEAR,AMM,PRM,(IS(I),I=I,IP)
50 IF(.NOT.APCOEl)GOTO 400
wRITE (1'1,130)-
WHITE (w,140)
IF(TERMIN)IYR1=IAYR-NP*NYPP-LdMAX
WlH TE (w,1 SO)IYH 1
wHnEO'~,130)
00 4()1=1,5
40 101(1)=0$
on 50 I=1,NlP
L=ITYP(I)
c
C THIS SIIHROUIINE PNINTS THE PRODUCTION CUST TABLES OUI TO THE
C REPO~T PCOS(W=4)OR TPCOS(W=9).
C
c - ----------------------------- - ---
c - - - - - - - - - - -•C --CHECK IF OllTCAP (Ll E(H1ALS ZEIW
CF=O.
IF (OUTCAP(L).EQ.0.)GO TO 5&
CF=EOUT(I,I,2)/(8.7&*OUTCAP(L»
'5f>CONTINUE
00042370
00042380
000423~0
00042400
00042410
00042420
00042430
00042440
00042'150
M0012570
roI0012~81)
00042400
M0012590
M0012&00
00042470
M0012&10
M0012b20
M0012&30
M0012640
00042480
MOD12650
M00126bO
00042490
00042500
00042510
00042520
00042530
00042540
00042550
000425&0
00042570
00042580
00042590
00042600
00042610
00042620
00042&30
00042&(10
00042650
000426&0
00042&70
00042680
00042b90
00042700
00042710
00042720
00042730
00042740
00042750
00042760
00042770
MOU12&70
M0012&80
roI0012b90
00042780
1'10012700
00042790
----..-IS NOW THE ~ASt FOW OUTAGE OATA
------------
--It1
L=nvp (I)-10
L=ITYP(I)-1&
--FURMATS 160-210 MUUIFIEO TU SHUW 3 PLACES TO lHE
WIGHT OF THE UECIMAL uN THE PWICES OUTPUT
F(J~MAT(A4,A~,11~,F7.0,2X,F8.0,2x,FH.~,SX,Fb.O,4X,F6.0,ObX,fb.O}
FORMAT (A4,A2,11X,F7.0,2X,FH.0,2X,f8.3,3t,F8.3,2x,F8.3,4X,F8~3)
FO~MAT(/'SYST~M TUTAL',4X,F8.0,2X,f8.0,2x,f8.3,5X,F6.0,4X,
c - - --- - - - -
C
C
C
C
100 FOkMAT('ANNUAL PRUO ',14,'-',14,':',FH.O,'GwH,',F&.I,
+'M/KwH,PHM=',Fb.3,',TWEE PATH=',lX,3011)
110 FORMAT('ANNUAL PRUD ',14,':',Fd.0,'GwH,',fb.l,
+'~/KWH,PRM=',F6.3,',TkEE PATH=',lx,30IIJ
lc!u FORMAT(/)
130 FORMAT('')
140 FOR~AT('TECHNUL"GY',&X,'CAPACITV',4X,'ENERGV',2X,
+'CAPACITV',2X,'v/O COST',2X,'ENV CUST',2x,'TUTAL COST')
150 FORMAT(20X,'(MW)',5X,'(GwH)FACTU~',5X,'(',I4,'OOLLAkS -
+,'MILLIUNS)')
TOT(4)=T~T(4)+EUUI(I,2,2)
TUT(5)=TUT(S)+EuUI(I,3,1)
50 CONTII~UE
CF=TOT(2)/(~.7&*TUT(I»
wRIT~(w,170}TOT(I},TOT(2),CF,(TOT(I),1=3,5)
NLPPl=NLP+l
00 55 1=1,3
55 TOTUUT(I)=O.
no 70 I=NLPP1,NTPU
WRITE(W,180)OUTTVP(L,I),
+OUTTVPCL,2),OUTCAP(L),EOUT(I,I,2),Cf,EOUTC1,3,1),
+EOUT(1,3,1l
TOTOUT(I)=TOTUUT(l)+OUTCAP(L)
Goru &0
57 CONTINUE
wHrTE(W,190)(~UTTYP(L,J),J=1,2},EOUT(I,1,2),~OUT(I,3,1),
+EUUT(1,3,1)
bO COIHINUE
TOTOuT(2)=TUTOUT(2)+eOUT(I,1,2)
TOTOUrC)=TOTUUT(J)+EOUT(Y,3,1)
70 CONTINUE .
wRITE(~,20~)(TOTOUT(I),I=I,3),TOIUUT(3)
TUT(1)=TOT(l)+TOTUUT(I)
TOT(2)=TOT(a)+TOTuUT(2)
TOT(3)=TOT(J)+TOTUUT(3)
TOT(5)=TOT(5)+TOTUUr(3)
WRITE(w,210}(10T(I),1=1,5)
c - ----
C
C
Clo0
IhO
Cllll
B.10l
B.102
MODI2710
00042800
MOOI21c!O
00042810
MUOI2130
00042820
MODI2740
00042830
MOD12750
00042840
1'100121&0
MOOI2110
00042850
000428bO
00042810
~~e os:>_~~c __~~Q C __c ~e c ==__~_
CUNTINUE
RETURN
ENO
FOHMAT (/'~YS1EM IOTAL·,4X,F8.0,2X,Fij.0,2X,Fij.3,~X,F8.3,2X,
.Fb.O,ObX,Fb.O/)
.F8.3,4X,F8.3IJ
FORMAr(2A4,8X,F8.U,2X,F8.0,~X,F8.3,3X,Fij.O,14X,FU.O)
FORMAl (2A4,8X,F8.0,2X,F8.0,2X,F8.3,3X,FB.3,14X,F8.3)
FORMAT(2A4,18X,F8.0,13X,F8.0,14X,F8.o)
FORMAT (2A4,18X,F8.0,13X,F8.3,14X,F8.3)
FORMAT(/'OUTAGE TOTAL',4X.F8.0,2X,F8.0,13X,fU.0,14X,F6.0)
FORMAT (/'OUTAGE TOTAL',4X,F8.0,2x,F8.0,13X,F8.3,14x,F8.3)
FURMAT(/'TOTAL',11X,f8.0,2X,F8.0,13X,F8.0,~X,F8.0,U4X,F8.0)
FORMAT (/'TOTAL',lIX,F8.0,2X,F8.0,13X,F8.3,2X,f8.3,4X,f8.3)
170
C
C180
Iii\!
C191)
190
C200
200
C210
210C co os:>-='_.CI _
400
B.103
c
C THIS SUBROUTINE PHINTS THE FINANCIAL OUTPUT TO THE REPORT
C fINtJUT.
C
000428/;tO
MlJDliH80
M0012790
MOOt2800
00042890
00042900
00042910
00042920
00042930
00042940
00042950
000429&0
00042970
00042'H10
00042990
00043000
00043010
00043020
00043030
00043040
00043050
000430&0
00043070
00043060
00043090
00043100
00043110
00043120
00043130
00043140
00043150
000431&0
00043170
00043180
00043190
00043200
00043210
00043220
00043230
00043240
00043250
000432&0
00043270
000432(10
00043290
00043300
00043310
000163320
00043330
00043340
00043350
0001633&0
00043310
00043380
000163HO
ASSElS',CUSTS
- -DIMENSIONS MODIFIEO 10 ACCOM~OOA1E 1&TECHNULUGIE~--------------..---------- ----
-----------------------------bUtlRUUTINE PHTFINlIFFY~,ILFYR,CURD,ANNFt,ANNEX,IS,NP,FIMOtT,PWM)
FOIH4AT ('')
FORMAT('FINANCES ',111,'-',I4,':LEVEL FC;',-3Pf8.1,
~,M/KWH,PkM=',OP~&.3,',THEE PATH.',IX,30Ll)
fORMAT(/1I3X,I4,'OOLLARS IN MILLIONS'/)
FURMAT(/41X,'CURRE~T DOLLARS IN MILLIONS'/)
FORMAT(]X,'INIERSl INTERST COST Of Ex FIN',13X,
~'RA1E',13X,'ITC FIXED')
FORMAT('YEAH COVERAGE NATE CAPITAL
+'~ASE INTERST USEO CHARGE'/)
FORMAT(I4,2X,~8.2,2F8.3,-bPF8.0,-6PF9.0,-bP3F8.0,-bPF~.0)
FOI(MAT(I'I,2bX,-6PF8.0,9X,-bP2F8.0,8X,-bPFQ.O)
CONTINUE
RETlJRN
t:.1Il0
COMMON ICll ITCRA1,NCONM,PHORZN,HORIlN,INFLA,NP~OS,NGTEC,L6(lb),
~06TRT,FAIADJ,ITCNOR,TAXMAR,EWRT,PRE~l
COMMON IC31 EXCPL~I(100),CWIP(100),CC ,OINTll00),LAG~llb)
~,AFUOC(100),OITClI00),CAPCST(1&),OINVST(luO),RTBASE(100),
~FCwIP(lb,13),NCON(lb),FAFUOC(lb,13),LENlIOO),PCWIP,BONOHl1100),
•EGRU(100),ASSETS(100),EXCOSTlI00),fIXCHG(100),AS578
•,AAMORT(100),CUHCAP(1&,100),ESC(lb),AUOION(100),OEPkEC(100),
~lAXE5(100),COVEH(100),RATINT(100),OELTA(100),CUFCAP(100),
~RE TINTll 00),PREFElo((1 00),CilFCOM II 00),AllOPON (t 00)
INTEGE~PHORZN,HO~IZN
LOGICAL CURU,FINO~T
DIMENSION Ib(:iO)
lCl
100
1~0
21lu
150
C
C
C
120no
140
40
IF(.NOT.FINOE1)GOTO 10
wRITEll,100)
WRITE(I,110)IFFYR,ILFYR,ANNFX,PRM,(ISll),I=I,NP)
IF(.NOT.FINOET)Goro 200
IF(CUtW)GUlU 20
wRITE(I,120JIFFYR
!iOTO 30
wR ITE (t,130)
wHITEU,140)
WRITEll,IS0)
00 '10 I=l,PttOI(ZN
IY=IFFYIHI-l
w~lTE(I,lbO)Iy,COVER(I),HATINT(I),COfCAP(I),~xCOST(I),
~A5SETS(I),RTBASE(I),DINT(I),OITC(1),FIXCH~(1)
i'lRIlEU,lOOJ
bOTO 200
C PI =PHOWlIHl
C 00 SOC I=Pl,HORlZN
C 11=IFFYIHI-l
C 50 wRITE(I,180)!Y,EXCUSl(I),RTBASE(I),OINT(I),FJXCHG(I)
C
100
1111
20
30
SUBROUTINE WRIPRClFIXPRC,VARPRC,AIF,IFFYR,ILfYK,HOkIlN,IS,NP.
+PRM,ANNVC.ANNFX,OMM)
OIMENSION FIXPRC(IOO),VARPRC(100),IS(30)
INTEGER HORIZN
C
C THIS SUHROUTINE PRINT~OUT PRICE~6V YEAR FUk EACH COMPLETE
C TREE PATH.OUTPUT GOES TO THE REPORT PRICES..
C
C ANNTOT;4NNVC+ANNFX
\OlRITE(7,140)
wRITE(7,100)IFF~R,ILF~R,ANNVC,ANNFX,PkM,(IS(I),I~1.NP)
IlRITEO,110)
wRITE(7,120)IFFYR
WRITE.0,140)
ty=IFFYR
AF=l.
OMF=OMM
C
00 10 I=l,HORIZN
VARP=VARPRC (1)
TOT=V4RP+fIXPHC(IJ
OMF =Ot-1Mll AF
VF =VARPRC (l)*AF
FF=f I XPRC (I)dF
IF;VF+FF+UMF
WRITE(7,130)IY,VARP,FIXPRCll),TOT,VF,FF,TF
AF:AF*AIF
10 IY:;IY+l
wRITE(7,140)
100 FORMAT('PRICES(M/KWH)',I4,'-',14,'=',-3PFb.l,'V+E+O,',
+F&.l,'FIX,','PRM:;',OPF5.3,',TREE PATH:',3011)
110 FORMAT(/'YEAR',2(7X,'V+E+O FIXED TUTAl'»
120 FORMAT(11X,'(M/KWrt -',14,'DOLLARS)',&x~
+'(M/KWH -CURRENl DOLLA~S)')
130 FORMAT(I4,2(9X,-3P3F7.1»
1/111 FOI<I-1AT ('')
RETURN
f:NU
B.104
00043400
00043410
00043420
00043430
00043440
00043450
000434&0
0004'3470
000£1341:10
00043490
00043500
00043510
00043520
00043530
00043540
00043550
000435&0
00043570
00043580
00043590
00043600
00043&10
00043&20
00043b30
00043&40
00043&50
00043b&0
00043670
00043&80
00043&90
00043700
00043710
00043720
00043730
00043740
00043750
00043700
0004.5770
B.l05
C
10 wRITEl10,370)PRM,t(COST(I,J),J~1,S),I~1,2)
GOTO 800
C
C wRITE SUMMARY TABLE "IN STANOARU fORM
C ~RITE CUSTS IN MILLIONS OF DOLLAR~PER YEAR.
C
20 wRITE(10,20u)
c
C
C THIS SUBROUTINE pWINTS OUT ThE SUMMARY CUST TO CONSU~EHS IN
C FIXEO COST~VARIAULE ~OST,REVENUE REQUIHENENT,ENVIHONMENTAL
C CIIST,OUTAGE COST,AND TOTAL COST CATAGOiHES FOR EACh
C PLANNING RESERVE MARGIN.IF THE~E ARE 8 OR ~ORE PLA~NING
C RESERVE MARGINS,ThE TRANSPOSE OF THIS TAULE IS PRINTEU.
C
C wRITE SUMMARY TABLE WHEN THERE ARE 8 OR MONE PLANNING RESERVE
C MAWGINS.
C
000437lW
U0043790
00043800
i)0043~10
00043820
00043b30
00043840
00043850
00043tloO
00043870
00043880
00043&90
00043900
00043910
00043920
000439C!1
00043930
000439110
00043950
000439&0
00043970
00043980
000113990
000411000
000411010
000411020
000114030
00044040
00044050
00044000
00044070
00044080
00044090
00044100
00044110
00044120
00044130
0001llH40
000411150
000ll41bO
000114170
0001l1l180
0001l1l190
000114200
000114210
00044220
00044230
00044240
00044250
0004112&0
00044270
00044280
000114290
00044300
00044310
00044320
00044330
SUBROUTINE f'"rCO~H tSIOE,CNUOL,PVAEN,CIJST ,NIIM,IFFYW,IFRI'iY~.
+ILRMYR,PRM,ANIZE,~NSYS,EN78)
LOGICAL SiOE,CNDOL,CNSYS
OIMEN~ION CUS1(7,S),SUM(l)
DATA FRAC/O.I
IF(.NOT.SIDE)bOTO 20
IF(NUM.NE.1)GOTO 10
wRlTE(lO,201l)
VlRITE(lo,200)
If(CNUOL)~RIT~(10,300)IFFYR
IF(.NOT.CNOOL)wRI1El10,310)
IF(CNSYS)wRIT~(10,315)IFFYR
IF (.Nor .CNSYS)wWI1E (10,317)
wRITE (10,3201
wRHE(10,330)
WRITE (lO,Hu)
wRITE(lO,350)
wRITEl10,300)IFNMYR,ILRMYR
WRITE(10,4UO)lFkMYR,ILRMYR
wRITE(lo,200)
wRITE(10,405)lCOS1(I~1)rl~1,NUM)
WRITE(lO,200)
IFl.NUT.CNDOL)WNI1E(10,1l10)
IF(CNOOL)wNIT~(10,415)IFFYR
IF(CNSYS)wRITE(10,1l17)IFFYR
IF(.NOT.CNSYS)WWITE(10,41~)
wRITE (lO,1I20)
wRlTf.(}O,200)
wRITE(10,1I30)lCOS1(I,2),I=1,NUH)
WRIT~(10,440)lCOST(I,3),I=1,NUM)
wRITE(l0,200)
00 "SO I=1,NllM
]0 SUM(l)=CosrlI,2)+COST(I,5)
wKITEl10,1I50)lSUMtI),I=I,NUM)
WRITE(10,~OO)"
WRITE(10,4bO)lCUS1(I,Il),I=1,NUM)
wRITEl10,1I70)lCOST(I,5),I=1,NUM)
C
B.106
0004434U
000443ju
000443&0
00044370
00044380
00044390
00044400
00044410
00044420
00044430
00044440
00044450
000444&0
00044470
00044480
00044490
00044500
00044510
00044520
00044530
00044540
00044550
000445&0
00044570
00044580
00044590
00044&00
00044&10
00044&20
00044&30
00044&40
00044&50
00044&&0
00044&70
00044&80
00044&90
00044700
00044710
00044720
00044730
00044740
000447::i0
000447&0
00044770
00044780
00044790
00044/j00
00044bl0
00044820
00044830
00044840
00044850
000448&0
00044870
000448liO
00044890
00044900
TOTAL')
COST'»
wIUfE(lO,ZOIl)
00 40 I=l,I~UM
~UM(I)=SUM(1)+CUS1(I,4)+CU~I(I,5)
WRITE(10,460)lSUM(I),I=1,NUM)
NUM1=NUM-l .
IF(NUMl.LT.l)GOTO 47
DO 45 I=l,NUMl
SUM(I)=~UM(I+l)·SUM(I)
~RITE(lO,490)(SUMlI),I=1,NUMl)
CONTINUE
45
47
C
C wWXfE COSTS IN MILLS/KWH
C
40
wrUTE(l0,200)
i'/IH TE (l 0,200)
IF(.NOT.CNOOL)WRIrE(10,410)
IF(CNDOL)WRITE(lO,415)IFFYR
~~IHn;(l0,425)
VlR ITE (l 0,(00)
IF(CNSYS)FRAC=1000./EN7&
IF(.NOT.CNSYS)FRAC=lOOO./(PVAEN*ANIZt)
lJU 50 I=l,NUM
UO &0 J=2,5
bO COST(I,J)=CUST(I,J)*FRAC
50 CONTINUE
C
wRITE(10,530)(CUST(I,2),I=I,NUM)
wRITE(10,540)lCOSI(I,!),I=1,NUM)
WIHTE(t0,200)
00 70 I=l,NUM
70 SUM(I)=COST(I,2)+COST(I,3)
WRITE(10,5S0)lSUMlI),I=1,NUM)
WRITEllO,(00)
WRITE(10,5&0)(CdSI(I,4),1=1,NUM)
WRITE(lO,570)(COSl(I,S),I=1,NUM).
WRITE (l0,200)
00 liO I=l,NUt-1
80 SUM(I)=SUM(I)+COST(I,4)+C05T(I,S)
WRITE(10,S80)l5UMlI),I=1,NUM)
IF(NUMl.LT.l)bUTO"87
00 85 I=I,NUMl _
85 SUM(I)=SUM(I+l)-SUM(I)
WRITE(10,590)lSUMlI),I=1,NUM1)
tl7 CONTINUE
C
C
2f\O FOkMAT('')
300 FOWMAT(28X,'LEVELIZEO ',14,'DOLLARS')
310 FOkMAT(27X,'LEVELIZEO CURRENT DOLLARS')
315 FORMAT(20X,I4,'SYSTEM SIZE')
317 FURMAl(17X,'CURkENT SYSTEM SIZE')
321)FOIH4AHI211,'MILLIlJNS Of DOLLARS PEW V£AW',llx,
+'MILLS PE~KILO~ATT-HDUR')
330 FORMAT('PLAN~lNG')
3110.FOHr,lAT('WESlRVE',c:!('FIXEI)VAR ENV OUTAGE
!50 FOHMAT('MARGIN ',~('CUST COST CO~T COST
360 FOHMAJ('(',I4,'·',I4,')'1)
,510
C
1100
1105
IHO
41'i
1117
1118
420
1125
1130
11110
450
'100
'HO
4BO
1190
5~O
5110
550
560
570
580
590
IillO
FOWMAT{25x,'PLANNING RESERVE MARGIN (',III,I-',III,')')
fORMAT{23X,7Fb.3)
FORMAT{'LEVELIZ£U CURRENT ~COST,')
FORMAT{'LEVELIZEO ',14,'~COST,')
FORMAT(III,'SYSTEM SIZE,')
FORMAT{'CURkENT SYSTEM SIZE,')
FORMATt'MILLIONS UF S PER YEAR ',7f~.3)
FORMAT('MILLS PER KILOWATT-HOUR')
FORMAT{'FIXEO COST ',7f8.0)
FORMAT{'VARIA~LE COST ',7fS.0)
FOWMAT('REVENUE REQUIREMENT ',7F8.0)
FORMAT{'ENVIRONMENTAL COST ',7F8.0)
fOWMAT{'UUTAGE COST ',7F6.0)
FORMAT{'TOTAL COST TO CONSUMERS',7FS.0)
FOWMAT{'CHANGE IN TOTAL COST ',IiX,bF8.U)
FORMAT{'FIXED COS1 ',7F8.2)
FORMAT{'VARIAbLE COST ',7F6.2)
FO~MAT{'REVENUE REQUIREMENT ',7F6.2)
FOWMAT{'ENVIRUNMENTAL COST ',7Fb.2)
FO~MAT('UUTAGE CO~T ',7f8.2)
FURMAT{'TOTAL COS1 TO CONS~MERS',7F6.2)
FORMAT('CHANGE IN'TOTAL COST ',IIX,6F8.2)
CONTINUE
RETURN
END
B.l07
0001111910
000114920
00044930
00044940
000449~0
00041i9&0
00044970
00044980
00044990
00045000
00045010
00045020
000450311
00045040
00045050
000450&0
00045070
00045060
00045090
00045100
00045110
00045120
00045130
00045140
00045150
000451&0
00045170
SUBRU1ITIN~TEHM(AMM,EEVC,UF,AIF,OLH,ALN,LR,l~MAX,AL,ALP"A,
+BETA,OEM,EGHO,YLF,CUHY,TOTCAP,FIXCHG,PkM,RHM,TfC,
+TEHMVC,VARPkC,EN78,CGN,OEM7a,AOAHOH,TEROAM,FOMREJ,OFLEV,UE5C,
+DISTRA,PHMBEF,PRMAFT,IFFYH,lFRMYR,ILRMYR,l~AVE,OlS,
+TOM,TEM,TERMEC,IEHMOC,CSENVT,CSOUIT)
DIMEN5ION OEMl30),EGRO(100),FIXCHG(100),RkM(~0),AOAHOR(100),
+VARPkC(100),TFC(100),TEROAM{100),FOMRET{100),OIS{100)
LOGICAL LON6
C
C THIS SUBRUUTINE CUMPU1ES THE TERMINAL FIXED ANU
C VARIABLE CHARGES.INPUT FOR VA~rA6LE C05T I~lHE CUNMENT
C VARIABLE CUST AMM IN FYR M/KWH AND lH~LO~G RUN VARIABLE eUST
C EEvCo INPUT FOR THE FIXED COST
C IS THE TERMINAL FIXED CHARGE TFC IN $/MW-YR AND SY~TEM CAPACITY.
C SYSTEM CAPACITY IS IISEU TO RETIRE LR CAPACITY (EXCEPT HYUkU)
C AT A LINEAR RAIE OVER THE dOOK LIFE o OUTPUT A~E ThE lERMINAL
C TE~MEC,TERMOC,TERMVC,AND FIXCHGo
C
C
C
rERMVC:;:O.
TERMEC:;:G o
TEI~MOC:;:O •
OOF:;:OLI<
AAf:;:ALR
GCUM:;:I.+CGR
TEC:;:EEVC*1000.
C:oAMM*1000.
REXIHE:;:(TOTCAP-CUHY)/FLOAT{L~AVE)
SYSCAP:;:TOTf;:AP
C
FCT:;:Oo
AOOT;:O.
kEIT:;:I).
C
00 100 I:;:1,LlH1AX
r"ONE:;:I-LiiA VI:.
LONG:;:MO~~.GT.O
I>DF;:UDF*OF
AAf:;:AAF*AIF
bCUM:;:GCIIM+E6RO(Lk+11
ENEHGY=EN78*GCUM
HHO:oFLOAT(I)/fLOAT(L6MAX)
Im=l.
IF(I.LT.2)NH=fLuAr(I)/2.
C
CI
C CALCULATE VARrAdL~C05rs
C
ECTEHP=AAF*lNERGY*«1.-NHU)*TE~+RHU*CSE~VT)*lOOO.
ucrE~p=AAF*ENtRGY*«1.-RHU)*TOM+NHU*CSUUTT)*1000.
TERMEC=TE~MEC+UUF*ECTEMP
TE~MOC=TERMOC+DPF*ocrEMP
VCTEMP=AAF*ENERGY*«1.-RHO)*C+RHO*TEC)
TEHMVC:oTEHMVC+DPF*VCTEMP
VARPNClLR+l+IJ=VC1EMP/(EN~RGY*AAF)
C
B.108
00045-180
00045190
00045200
00045210
00045220
00045230
00045240
00045250
000452&0
00045270
00045280
00045290
00045300
00045310
00045320
00045330
00045340
00045350
000453&0
00045370
00045380
00045390
00045400
00045410
00045420
00045430
00045440
00045450
000454&0
00045470
00045480
00045490
00045500
00045510
00045'il20
00045530
00045540
00045'ilSO
000455&0
00045570
00045560
00045590
00045&00
00045610
00045&20
00045&.s0
00045&40
00045&50
00045600
00045&70
0004'5&60
00045&90
00045700
00045710
00045720
.000457.s0
00045740
C :iE f UP ANIl CALCULATE f UED CO~TS
AOUCST=TFC(l)*AAF
UISCST=OISTNA*(1.+0ESC)**(LR*I)*AAf*OFLEV
FOMW=FOMHEf(IJ*AAf
TEHO=TL:ROAMlIJ*AAf
IF(LONG)RETINE=O.
SYSCAP=SYSCAP-RETIHE
IF(LONG)SYSCAP=SYSCAP-AOAHOH(MOkE)
OEMA~O=OEM7&*GCUM
CALL PHMGN(PRMBEF,PHM,PRMAFT,IFRMyR,ILHMYR,IfFyR.I+LR,
+PRMGIN)
kM=WH*PHMGIN+ll.-HH)*RRM(LH)
IF(RM.GT.PRMGIN)RM~PRMGIN
TAHGET=(1.+HMJ*OEMAND
AOU=TARGET-SYSCAP
IF(AOIl.LT.o.)AOU=O.
AOMIlJR (I)=ALJO
AOUT"=AOOT+AOO
HE TT=RETT+RETlHE
IF(LUNG)RETT=HETT+AOAHOR(MLJkE)
OIS(I)=ENERGY*OISLST
FCT=FCT+AOD*AOOCS1+ENERG1*OISCST
IF(LUNG)FCT=FCT-AOAHOR(MUHE)*TFC(MORE)*ALH*AIF**MORE-OISlMOHE)
FIXCHG(LR+I+1)=FC1+(ADOT*TERO-RETT*FOMR)*1000.
SYSCAP=SYSCAP+AOO"
100 CONTINUE
I<ETURN
EN!)
B.109
00045750
000457&0
00045770
00045780
00045790
00045&00
00045810
00045820
00045830
00045840
00045850
0004~8&O
00045ti70
00045800
00045890
00045900
00045910
00045920
00045930
00045940
00045950
000459&0
00045970
00045980
00045990
0004&000
0004&010
0004&020
--- - --------"==~------~=--~~-------
'SU~ROUTINE INIEG(MAT~IX,NSTGS,LR)
B.110
0004b030
M0012810
MODtC!820
MOD12830
,MODt2840
00046040
0004b050
0004bObO
00046070
M0012850
00046080
0004&090
0004&100
0004bll0
00046120
0004&130
----~==~~~-
--DIMENSIONS AND 00 LOOP FINAL VALUES HAVE 8EfN
MOUIFIED TO ACCOMMODATE THE 7 HYDRO TEChNUlOGIES.
~EAL MAfWIXllb,31,1)
00 20 IS=I,NSTGS
ISTAGE=NSTGS+I-IS
00 15 1:0:1,19
00 IS I=I,lb
/)0 10 IY=I,lR
MATRIX(I,IY+l,I5TAGE)~MATRIX(I,lY+1,ISTAGf)+MATRIX(I,1Y,lSTAGEJ
CONTINUE
CONTINUE
RETURN
END
=_5 ____ --~-~
c
c
C
C
c
Itl
15
20
SU~WOUTINt UI~F(MArMIX,NSTGS,L~)
c - - - - - - - - - - - - - - - --- - - - - --•- ----C - -DIMEN~IONS AND DU LOOP FINAL VALUES MUUIFIEU TU
C ACCOMMODATE THE 1&TECHNOLOGIES.
REAL MATRIX(lb,Jl,ll
UO 20 IS=I,NsrG~
ISTAGE=NSTGS+I-IS
C DO 15 1=1,10
OU 15 1=1,lb
UO to IYE=I,LM
IY=LR+I-I '(E
to MATRIX(I,1~+1,15TAGE)=~ATkIX(I,IV+l,lSTAGE)-kATRlX(I,1Y,ISTAGE)
15 CON'fINUE
20 CONTINUE
RETlJllN
EI'lO
8.111
00040140
M00128bO
1-10U12870
MOU128tlO
0004&150
0004&1&0
0004&1"/0
0004&180
MU012890
0004&190
0004&200
0004&210
0004&220
00040230
0004&240
0004&2~0
SUBROUTINE USTAT(CEP,Ll,L2,L3,LYR,IYHDlC,L,R~QADD,TARGET,
+TPLAN,AOO,llYP,TKI~AM,AJ,PLAN,ERROR,AMW.LRP1,ISTAGE,
+TEP,AVL,AVLLYH,AM~AVL)
c ~------ - - - - ---- - - - -----0 -~-.-----
C - -OIMENSIUNS AND 00 LOOP fINAL VALUES hAVE btt~
C MUDIFIED TO ACCOMMODATE THt 1&TEC"NOLUGJE5.
C ~~-- --- -•.-------- -•- --------~$--DIMENSION CEPl1b,51,3),TKNAM(lb,2),AJ(16),PLAN(lbJ,ERRUR(lb),
+AMW(lb,3),TtPl16)
LOGICAL Ll,L2,L3,AVL(lb),AVLLYH(I&),AMWAVl(16,3)
WH ITn 11,1 OO}
~RITE(11,110}LYR,IYROEC,L
wRITE(11,120)REQAUO,TARGeT,TPLAN
~RITE(11,130)AOD,JTYP,ISTAGE
WRI1E(11.140}l(TK~AM(I,J),J=I,2),1=1,lb)
wkITE(11,150).
~RITE(11,200)(AJ(I),I;I,16J,(PLAN(I),I=t,lb},
+(ERRUR(I),I=l,l&),(TEP(IJ,I=l,I&)
WRITEC11,(10)
wRITE(11,200)l(AMw(I,IS),I=1,16),IS=1,3)
WRITEUl,220)
WRITE(11,250}(AVLlI),I=t,lb),(AVLLrH(I),1.1,1&},
+«AMWAVL(I.IS),1=1,1&),IS~t,3)
IF(.NOT.L1.ANU ••NOT.L2.ANO ••NOT.L3)GOTO 20
CALL OIFF(C£P,3,LkPl)
wRITE(11,2&0)
IF(Ll)WHITEll1,300)«CEP(I,IY,1),1=1,1&),IY=1,LRPl)
IF(L2)WHITEll1,300)«CEP(I,IY,2),I=1,1&),IY=1,LRP1}
IF(L3}WRITE(11,300)«CEP(I,lY,3},I=1,1&),IY=1,LRP1}·
CALL INTEG(CEP,3,lRP1)
20 wRITE(11,400)
100 FORMAT(/'OECISION1STATUS'/)
110 FOWMAT('LYR =',13,'IYHOEC ;',13,'L ~',13)
120 FORMAT('HEQAOO ~',F8.0,'TARGET =',F8.0,'TPLAN =',
.F8.0)
130 FORMAT('AUD =',F8.0,'Mw OF TECHNOLOGY',I2,'fHOM STAG~',I~}
1QO FORMAT(8~,1&(lX.A4,A2»
150 fURMAT('AOD JUST,PLAN,ERROR,TEP:')
200 fORMAT«ijX,1&f7.0»
210 FORMAT('AMW 1 2 3:')
220 FOkMAT('AVL,AVLLYR,AMWAVl 1 2 3:')
~~o FO~MAT«8l,16l&X,L1)})
2bO FOHMAT(/'CEP Ll L2 L3:')
300 FOR~A'(/(8X,lbF7.0»
LillO FOR~'ATl'')
HETukN
END
8.112
000q&2bO
0004&270
0004b2ijO
M0012900
MUD12(HO
M()012920
M0012930
000Q&290
0004&300
0004&310
000Q&320
OOOLlb330
00046340
0004&350
0004&3&0
0004&370
0004b380
0004&3~0
0004&400
000Q&410
0004&420
0004&430
0004b1l40
0004&450
00040'1&0
0004&470
000Ll&480
0004&490
0004&500
0004&510
00046520
0004&530
000465QO
0004&550
0004&5&0
00046570
0004&580
0004&590
0004&&00
0004&tllO
0004&&20
0004&&30
OOOLl&&40
0004&&50
0004&&&0
0004&&70
0004&bijO
·SUbROUTINE fALPHAlCLaC,SIGMA,SlGAL~,NP,NPMAX,ALPHA)
DIMENSION CLOC(IO,I)
C
C THIS SUBROUTINE FINDS ALPHA FO~USE IN GtNERAIING THE PRO~AHILITY
C TkEt.
IF(NP.NE.l)GOTO 20
ALPHA=.73
GOlD 100
20 CONTINUE
C
no 1 I=2,NPMAX,2
INP=I
IF(NP.LE.INP)GUIO 2
1 CONTINUE
2 INC=1IllP/2
IF(IIIP.EO.INP)GOIO 4
00 3 1=1,10
3 CLOC(I,INC)=(CLDC(I,INC).CLDC(I,INC-I»/2.
4 CONTINUE
RATIO=SIGALk/SIGMA
IF(RATIO.LT.CLOC(1,INC).ANU.RATIO.GT.CLOC(10,INCJ)GOTO 5
IF(RATIO.GE.CLOC(1,INC»ALPHA=1.0
IF(RATIO.LE.CLOC(10,INC»AtPHA=-.8
GOIO 100
C
~00 10 1=2,10
111=1
IF(RATIO.Gf.CLOC(N,INC»GOTO 40
10 CONTINUE
411 REALN=FLOAT(NJ-(RATIU-CLOC(III,INC»/(CLOC(N-I,INCJ-CLOC(N,INC»
ALPHA=I.-(~£ALN-l.)*.2
C
100 CONTINUE
RE.TURN
EIIID
B.113
00040&9U
00046700
00040710
000140720
00046730
0004b7lfO
OU046750
00046760
00040710
0004&780
00046790
00046800
U0046!UO
00046820
00046830
0004684U
0004b8~0
00046660
00040870
00046880
00046890
00046900
00046910
0004&6920
00046930
00046940
0004&6950
00046960
00046970
0004&960
00046990
00047000
00047010
0004&702U
0004&7030
C
C
c,:
c
1
t!
C
10
5
15
SUBROUTINE CEPMUDlCEPTEM,NS,CEP,LRPl,I~TAR1,AOAHOH.AMIX~0)00041040
=_~~-_~_--~-•-----"._----•-----MU012940
--DIMENSIONS AND DO LOOP FINAL VAL.UE~MUulFlfD TO MOD1295u
ACCOMMODATE THE 1&TECHNOLObIES.M00129&0
~-- - -0 __~------~--- -----~k0012910
DIMENSION CtP(I&,)I,I),CEPTEM(16,1),ISTAkT(I&),AUAH~R(I),AMIX~U(1)00047050
00 2 1=1,10 00041ubO
00 2 1=1,16 MOD129~0
IF(ISTART(I).EQ.O)GOTO 2 00047070
DO 1 IY=I,LHPI 00047060
CEPTEM(I,IY)=CEP(I,IY,NS)U0047090
CONTINUE 00047100
00 15 1=1,10 00047110
00 15 1=1,1&M0012990
IF(ISTART(I).EU.O)GOTO 15 00041120
00 10 lY=t,LRPI 00047130
IYP=IY-ISIAHT(I)00047140
IF(IYP.LT.l)GUTO 10 00047150
CEP(I,IYP,NS)=CEPll,IY,NS)000471&0
CONTINUE -00047170
DO 5 IY=t,LRPI 00047160
IYP=IY-ISTAHl(I)00047190
IF(IYP.GT.O)~OTO 15 OU041200
CEP(I,LRPl+IYP,NS);AOAHOR(IY)~AMlX90(I)+CEP(I,LRPl+1YP-1,NS)00047210
CONTINUE 00047220
RETURN 00047230
ENO 00047240
B.114
C
C
C
C
C
111
20
sUBRUUTINE CEPFIX lCEPH.M,NS,CEP,LRP1,ISTA~r)_____ _ _ _ _ _ _ _ _ _ _ ___ _ _ _ _ ___ _c _ _ _ _
- -DIMfN~IUNS ANO UO LOOP fiNAL VALut MOUIFltO TU
ACCOMMOuATE 1&TECHNOLOGIES-.------.-- ---- -- ------- --
DIMENSION CEPrEM(I&,LHP1),CEP(16,31,1),I5TAR1(16)
00 20 1=1,10on201=1,1&
IF(ISTART(I).EQ.O)GOTO 20
00 10 IY=I,LRP1
CEP(I,IY,NS)=CEPTtM(I,IY)
CONTINUE
RETUWN
END
B.115
00047250
I",U013000
/040013010
M0015020
M0013030
000472&0
00U41210
MOO 13040
000472tlO
00041290
00047300
00047310
00047320
00047330
SUBHUUTINE CEXS(ALPHA,~E1A,NYPP,NP,OLTA,IS,CExOEM,~C,NYL,fNYL,
.OEM78,NO,AL,L~)
C
C THIS SUBHOuTINE FINDS THE CLAIHVOYANT'8 O~MANO FURECAST fOK
C EACH SELECTED THEE PATH.C .
DIMENSION IS(30),CEXDEM(30)
C
CGR=O.
IiRt4=AL
00 300 J=t,NP
IYR=(J-ll *NYPP
GRW=ALPHA*G~W+BETA*AL
IF(NB.EQ.2)GRt4:GRw+2.*OLTA*lFLOAT(ISlJ»cl.S)
IF(NB.EY.3)GR~=bRW.OLTA*FLOAT(IS(J)-~)
C
DO 200 I=l,NYf'P
CGR=CGH+GRW
IYk=IYR.t
FIYR=FLOAl (lYH)
G5UM=GC*FIYR*lFIY~-FNYL)/2~
IF(IYR.GT.NYL)GSUM.O.
CEXDEM(IY~)=(1.+CGR+GSUM)*OEM78
i:!OO CON1INUE
300 CONTINUE
C
WRITE111,3SII)
wRITE(11,400)lCEXDEM(Il,I=t,LR)
350 FORMAT('CEXOEM UNDER PERfECT DEMAND fOkECAST:')
400 fOWMAT((10f8.0»
RETURN
END
B.116
0001173110
000473::)0
OOOIl7:ioO
00047;S70
0004138U
000473'10
00041400
000117410
00047420
00047430
00047440
00047450
000474bO
00041470
00047480
00047490
00047500
00047510
00047520
00047530
00047540
00047550
OOO/USbO
00047570
00047580
00047~90
00047&00
00047&10
00041620
00047&30
00047b40
00047&50
SUtH/OllTINE INCONS (ALPHA,FCI"ER 1,FCPi;1<2,f Cl'tiU.
+ALLINT,
•NP,NYPp,N&,Q,RSIIlOT,NSCEN,PEI<FC5,C~lNF)
c
C
C THIS SU~WUUTINE INITIALItES VAWIuUS CONSTANTS
C AND FURMER INPUT PAkA~ETt~S
C
C
LOGICAL WSNOT,PERfCS.
C
C
ALPHA=0.5
FCPEIH=20.0
FCPER2=5.0
FCPEFl3=b.O
c
C --ALLOWABLE GENERATION FRUM ANCHORAGE 10 FAIRBANKS
C IN YEARS 5-9 (ASSUME 0 ALLOWABLE IN YEAR~1-4)
C
ALL lIH=2bO.
C
C
C NUMBER OF PER IUDS
NP=6
c
C NUMBER OF YEAI<S PER PERIUD
NYPP=5
C
C NUMBER OF BWANCHES
I~B=1
c
C 1 -PROBABILITY FUR THE MIDDLE BWANCH (MEO PATH)OF THE
C 3 PATH SYSTEM
1]=0.5
c
C CALCULATIONS FOI<fULL OEMANUl -(NUT USEO IN ThIS PROGkA~
C VERSION;ONLY INCLUDED HERE FOR COMPLETENESS)
RSNOT=.F AUiE..
C
C NUMBER OF PATHS
NSC[f~=3
C
C PERFECT FURECASTING1 -(NOT USED IN THIS PHUGRAM VERSION;
C ONLY INCLUOEO HERf FOk CU~PLETEN~5S)
PEHFCS=.FALSE.
c,
C COINCIUENCE FACTOI<
C(lINt-=u.'0
c
RETlJkN
ENU
B.117
1'40013050
I'IU&)13uoO
1'401>13070
1010013080
1'40013090
M0013100
M0013110
M0013120
MU013130
1'40013140
M0013150
M00131bO
M0013170
,'10013180
M0013190
M0013200
,"10013210
101(101 3.220
1010013230
1010013240
1'40U13250
M00132bO
MU013270
1010013280
MOU13290
M0013300
1'40013310
1010013320
MOD1H31i
M0013340
MU013350
,..0013360
/>10013370
M0013380
1010013390
1010013400
MOO}j410
M0013420
1010013430
.'10013440
M0013450
MOOn460
M0013470
M0013480
M0013490
;40013500
MU013510
1"0013520
,'10013530
MU013S40
M0013~50
....00135&0
SU~kOUTINt SErPAH (HYPRO~,HYEN,"YMULT,HYINC,ffNG,FTINE.
c --PARAMtTEHS COV,PHEkT,AND u~T~T AODED
•COV,PRtHT,U8TkT)
~
C
C THIS SUBROUTINE INITIALIlES THE VALIIES OF VArilAbLES
C ELIMINATto FWOM THE INPUT STHtAM
C
C
OIMENSION HYPHOu(3),riYENl3l,HYMULT(3J,fENGla),fTIME(2l
c
OIMENSlON COV lb)
C
C
1>0 5 J=1,3
HYEN(J)=lJ.O
HYMlJL TlJ)=I.lI
5 CONTINUE
c
HYPROB U)=0.0
HYPIWtH2)=1.0
HYPRlJU (J)=0.0
c
HYIt~C=O.O
~
FlIME U )=1.0
FEr~b(l)=1.0
c
PHERT=.150
OM T1H=.4QO
UO 10 J=I,b
COVlJ)=FLOAT(J·l)
10 CONTINUE
C
RETURN
END
B.118
I,",OOU570
,-,,00135aO
1>10013590
.",OOI3bOO
I-IU013b10
,"OO1.Sb20
MU013030
i'10013oQO
MOO 13050
~OOI.sobO
M0013b70
MOD13bliO
MU013b90
M0013100
MU013710
I'ICl013720
M0013730
M0013740
MUU13150
,"I00l.5700
MIJO 1377 0
l"'OiH3180
,"10013190
MU01:saOO
MOOntllO
""'0 I)}3820
M0013650
MUOl:5840
MOO\36~O
MOD13libO
MU013870
,,",UI)13680
140013890
MU013900
I1UI.>1 391 0
MU013920
PARAMETER DESCRIPTION:
OPEN (UNIT=20,NAME;SFILE,STATUS='OLO',REAOONLY)
READ DELIVERED ELlCIRICITY DATA
1'10013930
1't0013940
M0013'1S0
IotU013'1bO
M0013970
10\0013980
1'40013990
M0014000
I~0014010
M0014020
M00140:S0
1'40014040
M()(}140~0
M00140&0
MOU14010
M00140bO
1"10014090
...,0014100
M0014110
1"10014120
Moo14no
1"10014140
MUD14150
."I001 'U&0
10\0014170
1'40014180
M0014190
1"10014200
M0014iHO
1140014220
MU014230
M0014240
M00142~0
1400142&0
MOD14210
,"1001421:10
MU0142'10
1>10014300
1"10014310
M0014320
MU014330
1'40014340
M0014350
."'01)143&0
MIl014310
MU014380
MUOl4390
1'40014400
M0014410
10\0014420
1"10014430
M0014440
1>10014450
."'00144&0
MOD14470
·10\001441:10
i"'0014490
(SFILE,NPP1,PEAKOM,AVENGY,LRP1,
A~CONS,PKCONS,rCCONS,PCCONS,
FPEAK,FENE,APEA~,AENt,
GPEAK,GE .....E)
FILE NAME OF SECONDARY FILE (INPUT)
THE NUMBER OF PEw!ODS PLUS 1
R~SULTING TOTAL DEMAND ARkAY FOR EACH PATH AND
EACH PERIOD
RE5UL1ING TOTAL AVERAGE ENERGY ARRAY FOR EACH
pATH AND EACH PERIOD
PLANNING HORIZON PLUS 1
- -RE~ULTING YEARLY TOTAL AVERAGE ENERGY FOR CONSERVAlION
- -RESULTING YEARLY TOTAL DEMAND FOR CONSE~VATION
RESULTING YEARLY TOTAL COSlS fOR CONSERVATION
- -RESULTING YEARLY TOTAL POwER CoSTS FO~CONSERVATION
B.119
00 2 J=1,I~PPl
READ (20,101)FPEAK(1,J),FENE(1,J),FPEAK(2,J),fENE(2,J),
*FPEAK(J,J),FENfl3,J)
ClJNTINUE
FA IIH3Ar~K~
READ l20,105)
00 1 J=1,NPP1
WEAU (20,101)APEAK(1,J),AENE(1,J),APEAK(2,J),AENE(2,J),
*APEA~(3,J),AE~f(3,J)
COIHINllE
ANCHORAGE
READ (20,100)
SUBRUUTINE R~AOSF
T
T
T
OIMENSION ~FILE(5J,PEAKDM(3,11),AVENGY(3,11)
UIMENSION FPEAK{3,11),FENE(3,11),APEAK(3,11),AENE(3,11)
DIMENSION GPEAK(3,11),GENE(3,11)
DIMENSION AECON~(j,31),PKCONS(J,31),TCC()NS(3,31),PCCONS(3,31)
THIS SUBROUTINE READS THE SECONDARY fILE CONTAINING
AVERAGE ENER~Y AND PEAK DEMAND VALUES FOk EACH AREA,
EACH PATH ANO EACH PEHIOD.
THE AVERAGE ·ENE~GY AND PEAK DEMAND AR~COMBIN~O
FOR ALL AREAS (ANCHuRAGE,FAI~HAN~S AND GLENNALLEN)
THE CONSERVATION OATA FUR EACli UF THE AREAS IS ALSO
READ.FkOM THIS SECONDARY FILE.
AVENGY
SFILE
NPP1
PI::AKDM
LRP1
At-CONS
P~CONS
rCCONS
PCCUNS
1
C
C
c
C
2
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c
C
C
C
C
C
WEAl)(20,10b)
READ (20,107)
8.120
M0014500
MOD14510
M0014520
""'0014530
"'Ou14540
M0014550
M00145&0
"'0014510
M001458u
M0014590
MU014&00
M0014&10
140014&20
MOOt46:50
140014640
M0014&50
140014060
/00\0014&10
140014&80
M0014690
M0014100
140014110
M0014720
140014730
MOU14140
M00147~O
M00147611
140014170
140014760
1'40014190
1'40014800
140014810
140014620
M0014830
140014840
1'10014850
1'100148&0
MOD14810
140014880
140014890
M0014900
M0014910
JIol0014920
MOOI49,SO
!"iU014940
M00111<iSO
1400149&0
M0014910
"'0014980
1'010014990
M0015000
MU015010
140015020
140015030
1'40015040
.M0015050
MOOI50&O
GPEAK(I,J)~GENE(1,J),GPEAKC2,J),GENE(2,J),
GPE~KC3,J),GENEC3,J)
HEAl)CONSERVAIION AND LOAO MANAGEMENT OATA
(J (INUEX)=1,LUw;=a,MEO;;3,HIGH)
00 11 1=1,3
IHJ 11 J=I,LtlPl
AECONS<I,J)=u.
PKCllNSU,J)=O.
TCCONS (I,J J =0.
PCCONS(I,J)=O.
CONTINUE
READ (20,10b)AlC,PKC,TCC,PCC
AECONS(J,K)=AECON~(J,K)+AEC
PKCON5(J,K)=PKCON~(J,K)+PKC
TCCONS(J,K)=TGCON~(J,~)+TCC
t"CCONS(J,K)=PCCON5(J,K)+pce
GO TO 480
CONTINUE
COIllTINllE
CONTINUE
00 10 1=1,3
ou lu J=l,Nt'Pl
PEAKOM(I,J)=O.
AVENGY(l,J)=O.
CUNTINUE
00 15 1=1,3
00 15 J=I,NPPl
PEAKOMCl,JJ=PEAKOMC1,J)+APEAK(I,J)+FPEAK(I,J)
AVENGY(I,JJ=AVtNGYCI,J)+AENECI,J)+FENECI,J)
PEAKOM(l,JJ=PEAKOMCI,~)+GPEAK(I,J)
AVENGY(I,J)=AV~NGYCI,J)+GENE{I,J)
CONTINUE
DO 500 1=1,3
tlE'.AI>(20,105)
DO 4'10 J=1,3
READ (20,10~)
00 480 K=I,LRt"l
GLENI~ALLEI'1
READ (2u,105)
DO 3 J=l,NPf'l
READ (20,101)
*CONTINUE
C
e
C
470
C
''''HI
4'111
SUI)
10
C
11
C
C
:s
c
c
15
C
C
C
C
C
C
C
r:
c
c
c
11111
101
105
lOb
107
1118
C
FO~MAT (7(1)
FU~MAT (7X,3(2F9.0,lX»
FOWMAT (I)
Fn~MAT (III)
FO~I"AT (IX)
FORMAT (bX,2FIO.0,12X,FIO.O,5X,F10.U)
RETIJHN
END
B.121
M0015u70
M0015080
M001~OqO
1-10015100
"'001511 0
MUD15120
MiJ01S131l
MU01514U
MOI>1S1~O
1'100151&0
pUJ015110
1'10015180
/110015190
B.122
- -FUH GLENNALLEN
OIMEN~ION GPEAKl3,11),GENE(~,11),GPYRLY(3,30),GEYkLY(3,30)
THIS SUB~UUTINE CALCULATES Y~AkLY U~MANO AND YEARLY ENER.
FOR ~ACH PATH FROM THE OEMAND AND AVERAGE
ENERGY FOij EACH PERIOU.
THE METHOD IS LINEAR INTERPULATION FRO~ONE PI:.kl0D
TO TH~NEXT.
ANCHORAGE
FA If./IlANi'\S
GLENNALLEN
ANCHORAGE
FAIRBANKS
GLENNALLEN
....
~PEAKUM(ISPN(l),J-l)
-AVENGYllSPN(I),J-l)
·..
••••••• • •fOR ANCHORAGE
••••••••FOR FAIRaANK~
••••0 • ••fOR GLENNALLrN
G)e •G
...
..
......
..
...
• • • • • • 0 • •
• • • •••t)
• • • • •...0
••••
••
NUMB~R OF YEARS PER PEHIOU
NUMBER Of PERIODS
NU~lBE.R OF PATHS
YEARLY DEMAND TO BE CALCULATED
FOf.l ANCHOHAGE
FUH fAIRBANKS
• • • • • • • • • • • • • • • •F~R GLENNALLEN
YEARLY AVERAGE ENERGY TO BE CALCULATED
••••f lJ~
•••••••FOR
o • • ••• • • • ••• ••• ••0 •FOW
• • • • •e _ • •e _..c ••fUN
~• •••• • • • • • • •••fO~
• • ••• • • • • • • • •••fOH
AVERAGE ENERGY BY PATH AND PERIUD
PAtH INDEX ARRAY
•••
PEAK P~MANU BY PATH AND PERIOO
OEMPYR (PEAKDM,AVENGY,YRlYDM,YRLYEN,ISPN,NYPf',NP,H5CEN,MOUI5200
fPEAK,FENE,API:.AK,AENE,FPYHLy,FEYRLy,APYRly,AE'~LY,M001~210
GPI:AK,bENE,GPYWLY,GEYRLY)M001~220
"'0015230
l'o1UOI52 'W
MOU152~0
M00152&0
1'10015210
'''10015280
."'001 ~C!90
M001S300
M001~310
MOOI 'H20
140015530
M0015340
MU015350
M00153&0
MOU15370
1"10015380
MOU1S390
r-l0015400
140015410
1140015420
1'10015430
M0015440
M0015450
1'\00154&0
MU015410
M00154tiO
"1U015490
MOOI5~OO
M0015510
1"10015520
M0015530
M0015540
M0015550
1'100155&0
jYt0015570
M0015580
foII0015590
M0015&00
140015&10
1140015&20
,'1001'5&30
MOOI5&4u
,"10015&50
M001~b&(j
1140015&10
1140015&80
M0015t>90
1110015700
i"'OO 1')71 0
1'10015120
1'10015130
1"10015740
M0015750
MOiH 57bO
·...
PEAKDM(3,il),YRLYOM(3,30),ISPNlI0)
AVENGY(j,11),YRLYEN(3,jO)
APEA~(3111),FPEAK(3,11),AENE(1,11),FENE(3,11)
APYRLY(3,30),FPYRLYl3,30),AEYRLY(3,30),FtYkLY(3,3U)
00 50 I=I,NSCt'.N
IYf.I=o
NPP1=I~P +1
IJU 40 J=2,NPPI
UELTA:PI:A~DM(ISPN(I),J)
XINCR=OI:LTA/FLOAT(NYPP)
UELTA=AVENGY(ISPNll),J)
DIMENSION
DIMENSION
OIMI:.NSIOIIi
UIMENSION
SlJl:HHJUTINE
+
+
c
c
c
c
c
c
C
C
C
c
C
C
C.
C VARIAliLES:
C
C PEAKIHi
C APEAK
C FPEAK
C GPEAK
C AVI:NGY
C AENt:.
C HNE
C GENt:.
c
C YRLYOM
C Af'YHLY
C FPYRLY
C GPYRLY
C YRLYEN
C AEYRLY
C FEYRI.Y
C GEYRLY
C
C ISPN
C
C NYPf'
C
C NP
C
C I\ISCt::III
C
C
XINCk2=OELTA/FLOATlNYPP)
OELTA=APEAKlISPN(IJ,J)-APEAK(ISPN(l),J-l).
XINCR3=OELTA/FLOATlNYPP)
DELTA=FPEAKlISPN(I),J)-FPEAK(ISPN(l),J-l)
XINCR4=OfLTA/FLOAT(NYPP)
DELTA=AENE(ISPNlI),J)•AENE(ISPN(I),J-l)
XINCR~=OELTA/FLOAllNYPP)
OELTA=FENE(ISPN(I),J)-FENE(ISPN(I),J-l)
XINCkb=OELTA/FLUAT(NYPP)
~- -FUR GLENNALLEN
OELTA=GPEAKlISPN(I),J)-GPEAK(ISPN(I),J-l)
XINCR7=OELT~/FLOAT(HYPP)
OELTA=GENE(ISPNlI),J)•GENElISPN(I),J-l)
XINCR8=OELTA/FLOATlNYPP)
DO 30 K=l,NYPP
IYI<=IYlot ...1
Y~LYOMlISPNlI),IYR):PEAKOM(lSPN(I),J-l)+K*XINCI<
YkLYlN(I~PN(I),lYR)=AVENGY(ISPN(I),J-l)+K*xINCw2
APY~LYlISPN(I),IYR)=APEAKlISPN(I),J·l)K*XINCR3
FPYRLYlISPN(I),IYR):FPEAK(ISPN(I),J-l)K*XINCk4
AEYRLYlISPN(I),IYR):AENE(ISPN(I),J-l)K*XINCR5
FEYR~Y(ISPN(I),IYR)=FENE(ISPN(I),J.l)K*XI~CR&
C - -FOR GLENNALLEN
GPYRLYlISPNII),IYR):GPEAKlISPN(I),J-I)...K*XINCR1
GfYRLYlISPN(I),IYR):GENE(ISPN(I),J-l)...K*XINCk8
30 CONrINUE
40 CONTINUE
50 CONTINUE
C
RETU~N
END
B.123
M001S710
MO.U 15 7 80
,",Uu15190
MUD15800
MU015lH 0
MOi>15820
i40D 158,S0
M0015640
l't0015850
M001!:i~&O
140015810
M0015880
1400151)'10
MU015'HI0
,ItU015~10 .
MU015920
1"10015930
M001594u
,It0015950
l'100159&0
140015970
1'10015980
1'10015990
1'1001&000
1'1001&010
MU01&020
1'1001&030
M001&040
M001&iJ50
M001&0&0
M001&070
PARAMETER OESCRIP1ION:
CALCULATE LOC FUR FIRST YEAR
8.124
l'!UD160tlO
I'IUO 1&0'10
l'1UUlblOO
1'\0016110
,'1UOl&120
MOUlo130
,'1001&1110
I-IOU1&150
1'1001&1&0
,'.001&11 II
14001&180
1'1001&190
MOOl&200
..,001&210
1'1001&220
M001&230
M001&240
1'4001&250
MOOl&260
MOOlb270
MOOlb280
M(J016290
1'1001&300
1'01001&310
MOiH&32f1
MOOl&330
1'1001&3110
1'10016350
1'100163&0
M0016370
f'lU01631:iO
MClOl&390
1'1001&1100
MOOl&1I10
MOOl&1I20
"'"'00101130
1,",001&440
M0016450
I"l001611&0
M00161170
1'1001&480
MOOlb490
M001&!:)Ou
1'1001&510
1'10016520
Mi)01&530
1'1001&540
M001&550
f'lU0165&0
1'\001&570
1'1001&580
11001&590
1'1001&&00
M001&&I0
1'1001&&20
"1'\001&&30
1'1001&640
INPUT LOAU DURATION CURVE
INPUT PEAK dOTI1
INPUT ARRAY OF OECIMAL PERcENTAGES Of AREA TO
INCREASE OR OECREASE LOC AREA BY
YEARLY DEMAND (EACH YEAR OF EACH PATh)
Y~ARLY AVERAGE ENERGY (EACH yEAH OF EACH PATH)
FIHST YEAR OEMAND
rlMST YEAR AVERAGE ENERGY
TOTAL NUMBEK Of YEARS IN PLANNING HORIZON
NUMBER OF PATHS
ARMAY IIF INDEXES FOR PATHS
kESULTIN~LUC CORYES FOR EAtH YEAR OF E.ACH PATH
RE~ULTING AREAS UNDER LOC'S FOR EACn YEAR Of eACH PATH
UN RETURN,THEY AWE THE YLF VALUES CALCULATEU
fROM THE AVE ENERGY ANU DEMAND fOk THE GIVE.N
PATHANO YEAR
RESULTING FIRST YEAR LOC
RESULTING FIRST YEAR AREA UNDER LOC
ON RETURN,IT IS THE YLF VALliE CALCULA TEO fiWM
THE AVE ENERGY AND DEMAND fOR THf GIVtN PATH
SIJBIWIJT1 NE.DE.TlUC'(BLOC,PI~,V~ILl)C,Y"'L YOM,YRl YI:.N,111:1418,AVI:78,
+lR,NSCfN,ISPN,XLOC,XAlF,FYLOC,FYALf)
NITEW=NITEH ...1
IF (NITER .lE.10)GO TO 32
PRINT 31,(tYLOC(I),1=1,l2),FYALF,YLFK
UIMEN5ION BLOC(12,2),VMLDC(10),yRLYOM(3,30l,YkLYENl3,30)
DIMENSION ISPN(10J,XLOC(3,30,12),XALF(3,30),FYLOC(12)
THIS SUaRIIUT!NE CALC~LATE.S LOAO DURATION C~HVESFOR EACH
YEAH OF EACH PATH GIV~N THE.INPUT LOAD OIIRATIO~CU~VE.
AND THE.UEMANo ANO AVEHAGE ENERGIES FOR EACH YEAM Uf
EACH PATH.
00 5 1=1,12
FYlDC(I)=BlOC(I,l)
CONTINUE
COMPUTE YEA~LY LOAD FACTOW fROM AVERAGE ENtRGY AND PEAK DEMAND
YLf~=AVE78/(OtM78*8.7b)
TUlE.RANCE FOR CUNVERGENCE IS IX OF YlFK
TOLEH=.OI*YLFI<
N 1 H.R=O
BLUC
pw
VMLDC
FYLOC
FYALF
YNLYOM
YRLYEN
OEM78
AVE78
L~
N::iCEN
ISPN
XLOC
XALF
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
(;
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
i
C
C
C
30
REPEAT THE PRUCEDURE fOR EACH YEA~U~~ACH PAlH
TRY AGAIN ~ITH MOUIFIEO LOC
GU TO 3U
YLfK=YNLYEN(ISPN(KJ,L)/lYRLYUM(I9PNlK),L)*8.7b)
TIJLEN=.OI*YI..FK
N i TI:.~=O
MllOl&b5u
14001&&00
M001&b10
14001&&dO
0'40010b90
14001&700
,.,01)10710
MOIJlb720
1"1001b730
MOOl&HO
MODl&7:;\)
M£JOlb7&0
14001&710
14001b780
MOOlbHll
MOOlb800
MOOl0810
MOOlb820
14001&830
MuDl&840
MOOlb850
1"1001&8&0
MUI>1b670
M001&860
MOOlb8~O
M001&900
14001&910
MuOl&920
MUOlb930
MOOlbCJ40
MU01&9S0
M001&9bO
14001&910
1'40010960
r",oo 1 b9\10
140017000
MOOI1010
1"10017020
MOOI7iJ.SO
M0017040
1>101>17050
1'100170&0
1'4001"1070
M0017060
1'10011090
MOOI7100
1"10017110
1"10011120
MOD 171.~O
MOIlI1140
Mli0171S0
/0\00171&0
/0110017170
140017180
MUD 1 71 ~O
140017200
14U011210
(.SUB OETLDC:I1E~ATION LIMIT OF 10 HEAChEn',I,
,FIR~T YtAR;FYLOC~',1,
12Fb.3,1,
•FYALF=',F7.4,'YLFK=',F7.4)
NITER=i\ll HN +1
IF lNITER .Le.10)Gil TO b~
PRiNT bl,~,L,lXLOC(ISPN(KJ,L,I),1=1,12J,~ALF(ISPNlK),LJ,YLfK
STOP .
f1lrlMAT (.~IJU VETLDC:ITE.~ATIOt-l LHlll Of lU REACHE.IJ',I,
XDIFF=YLFK -FYALf
IF (A6S(XUIFF).LE.TOLER)GU TO 50
AREA=XUIFF*VMLOC(l)
FYLDC(3)=FYLOC(3)+2.*(AREA/.l)
FYLOC(2)=(FYLUCll)•FYLOC(3»/2.0
00 1\5 1=4,12
ANEA=XOIFF*VHLUClI-2)
fYLUCll)=FYLOClI)•(AREA/.l)
CONTINUE
CONT HHJE
FYALF=O.O
Oil 40 1=3,11
FYALF=FYALf +.05*(FYLOC(I)•FYLUC(I+l»
CUNTINUE
FYALF=FYALF +.5*l.1 -PW)*(FYLOC(2)+FYLUC(3»
FYAL~=FYALF +.5*P~*lFYLOC(1)+FYLOC(~»
00 CJO K=I,N~CI:.N
DO 85 L=l,LN
00 55 1=1,12
XLDClISPN(KJ,L,I)=~LOC(I,l)
CIlIHINLlE
CONTINUE
SET fYALF TO THE 'CURNECT'YLF
FYALF=YLFI\
NORMALIZE LOC V~LUES
lill 51 1=1,12
FYLUC(I)=FYLOCl!J/FYALf
COIHIIWE
:HUP
FIlkl4A T
1
2
3
c
C
')11.
t:
C
hI
.it
C
C
.s~
40
C
611
C
c
1\5
C
(;
"il
c
C
C
C
C
B.125
C
f>2
b'l
c
c
70 .
c
C
1i0
C
iH
C
i\S
9lJ
L:
1 'PATH=',11,'YfAR=',12,'XLOC:',I,
2 12Fti.3,1,
3 'XALf=',F7.4,'YLFK=',F7.4)
CONTINUE
XALF(iSPN(K),L)=O.O
00 65 1=3,11
XALFlISPN(KJ,L):XALF(ISPNlK),L)?
+.05*(XlOC(ISPNlK),L,I)+XLOC(ISPN(K),L,l+l»)
CUNTINUE
~ALF(I5PN(K),L)~XALF(15PN(K),L)••5*(.1 -Pw)*
+(XLOC(lSPN(K),L,2)•~LUC(lSPNlK),L,3)
XALF(ISPN(K),L):XALFllSPN(K),L)••5*P~*
+(XLOC(ISPN(KJ,L,I)+XLUC(IIP~(K),L,2))
XOIFF=YLfK -XALF(ISPN(K),L)
IF (ABS(XOIFF).LE.rOLER)GO TU ijO
AREA=XOIFF*VMLUC(l)
xLOC(lSPN(K),L,3)=XLOC(ISPN(K),L,3)+2.*(AREA/.I)
XLDC(ISPN(~),L,2)=(XLOC(ISPN(k),L,1)+XLOtlI5PN(K),L,3»/2.0
OU 70 1=4,12
AREA=XOIFF*VMLOC(I-2)
XLOC(ISPNlKJ,L,I)=XLOC(lSPN(K),L,I)~(AREA/.I)
CUNTINlJf .
GO TlI 60
CUNTINUE
SET XALF TU THI::'CORRECT'YLF
XALf(ISPN(KJ,L)=YLFK
UO 81 1=1,12
XLDC(ISPN(KJ,L,IJ=XLOC(ISPNlK),L,l)/XALf(lSPN(K),L)
CONTINUE .
CONTINUE
corn WUE
1~I::TIlHN
END
B.126
1'10017220
MIJU172's0
1"'1001721.10
,'10u 1 U50
I'\U017260
Mu017270
,-IulH 721$0
,'1001729()
MODI noo
MOOI7310
MOOI7320
M0017330
M0017340
M0017350
MiJOIHtiO
MOOl7370
MOOI7360
1110017390
rol00171.100
,""Oul1410
M0017420
M(J011430
1'100171.140
1'100114650
MOO 11400
110017470
Ml1017460
MOu17490
Ml1011500
/010017510
MU017520
MOU17~BO
M00l1~40
"'U017550
,MU017560
MOIH 7':J70
1'10017560
M0017':J90
1'<I0017bOO
l~uul7bl 0
1
I
I
j
1
1
SlIBHOUT!NE fAIRCK (TKNAM,FAlf(,ITFAIH~CCAP7b,CEP,WI:TIkl:)
TNAME IS USEO TO ACCESS ALL THE CHAkACTERS
TN A TECHNOLOGY NAME
ONLY IIIITEWE.STEO II~THE Fll-tl:lT 9 TECHNOLOGIE::i,~/~tl(;11 AHE
A:i~Ut·IEU l ()1:11:.NUN-HYDRO
M0011&20
M0011b:S0
,",0017&110
MOU17b50
O\O\0017&bO
tot0017b70
""0011&80
M0011b90
MOOl7100
1'10011710
MuOI7120
MUD 111050
'0101)117110
,.,0011750
MODl11bO
MOOI1770
1010011180
MOOI7190
,"1':"011800
M0011810
110D11820
tot00178:S0
1'100118110
M0011850
M00176bO
M0011870
1010011880
1010017890
MOD17900
MODI7910
,\1uD17920
1010017930
MODl7940
MOOI79~O
MOOI79bO
"'UOl797u
M0017ytJO
""uO 17990
MODl1'1~3
"'10011'1'15
MOD18uOO
M0018010
MIJ018020
M0018030
MOOliSOIlO
r400180~O
I,,\U018060
"'0018070
MU018080
M0018()~0
M0018100
1010016110
'''0018120
M00181.s0
M00181110
.\1(1)181 ~o
1'100181&0
ARRAY O~TEC~NOLOGY NAMES
RETURN ARRAY OF NON-HYO~U TECH~OLOGY NU~bEHS
ASSUCIATEO wITH FAIR~ANKS
EAC~YEAH'S RETIHEMENTS
EACH YEAR'S ADOITIONAL CAPACITY
FIRST YtAR CAPACITY
FLAG TO INDICATE IF FAIR~A~KS NO~-HY~RO
T~CHNULUGIES EXIST
FAIR
CE'"
TKNAM
THIS SURROUrlNE O~TERMINES If THER~EXISTS NON-hYUHO
lECHNOLUGlE8 ~Ok FAIRtlAN~5 (INOICATEU tiY THE llCHNOLU'Y
NAME tlEGI~NING wITH AN 'F')
ANU IF CAPACIlY EXISTS FOH EACH Of THESE lECHhOLOGlfS
fOR YEARS 1-9 (19bl-19b9)
FOR SllC~1 TECHNOLOGIES,lHE TECHNOLOGY NUMEll::R 15 Sl Uh'EIJ
IN ITF A11'1
un 2 1=1,9
l)U 1 J=1,9
.TTfAHUI,JJ=O
CONTINUE
IHR(J)=O
CONTINUE
LOlaCAL FAIR(9)
OIMENSIUN TKNAM{lb,2),ITFAIR(9,9),ITFR(9)
OIMENSION CCA~78(lb),CEP{lb,31,~),RETIRE(lb,31)
LOGICAL*l lNAME{b),BLNK,FCHR,ACHk
EQUIVALENCE (XNAM1,TNAME{1»,(XNAM2,lNAME(~»
UATA BLNK,FCh~,ACHH I'','F',IA'I
00 3 J=1,9
fAIR(J)=ofAl.Sf.e
corn I NOr::
lTfAIR
RETlI~E
CCAP78
VAlUABLES
3
c
c
c
C
C
C
C
C
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c
c
C
c
B.127
c
C
'3
c
i>
c
C-
10
C
C
C
C
C
It1
15
20
C
C
I1F=O
on 10 1=1,9
XNAMl=TKrJA~I(I,1)
XiI,IAM2=TK NArH 1,2)
00 5 J=l,b
IF (TNAl-1E(J).EQ.BLl\IK)GO TO 5
GO TO b .
CUNTINUE
!ECHNOLOGY NAME ALL 8LANKS,50 SKIP IT
GO TO 10
COIHINllE
CHECK IF FI~S!NON-HLAl\IK CrlA~AC!ER IS 'F'
(THIS INUICAT~S A FAIkdANKS TtCH~OLO~Y)
IF (JNAME(JJ .NE.FCHR)Go TO 10
I1f=1TF +1
ITFW(ITF)=I
CONT Ii-HIE
CHECK IF CAPACITY IS AVAILABLE FOR EACH OF THE fAIk~ANKS
TECHNULOGIES IN EACH YEAR 1-9
If (ITF .LE.0)GU TO 20
DO 15 J=1,9
11=0
00 14 I=I,In
CAP=CCAP78(ITFR(IJ)•CtP(ITfR(I),J+l,3)-RETIRE(ITFk(I),J+l)
IF (CAP .LE.0.)GO TO 14
IT=IT +r
IT~AIReIT,J)=lTFH(I)
CONTINUE
IF (IT .GE.1)FAIReJ);oTRU£.
CONTINUE
CONTINUE
RETlJl-tN
END
B.128
.\10lH tll III
MuOltlldO
M0018190
MUU18200
MOOltl210
M00182211
MU018c?3u
...OOlB2/HI
M0018c?50
MOO 182bO
M0018210
MOO 1 tl2lHI
M0018290
M0018300
M001831u
014(1018320
MU018330
1'10018340
MOOltl3~O
""00183bO
1'10018310
1'010018380
1'100183'10
1'10018400
P1U018410
,-'0018420
,,",0018430·
""'0018440
1'10018450
1'\00164&0
MOl>18470
0140018480
MOOl8490
1-.0018500
1'10018510
MOLl185c?0
MOOltlS30
M0018540
M0018~50
M00185bO
UEltHMIN£2 LEAST COST FAIR»ANKS rECHNULDGIE5
:iUl:llWUTINI:.fLORDk (VC,ENV,LOAn,ITFAlk,LCfAHI)
8.129
I'i0016570
MlIU185dO
MOll 18'::J90
MOOUltlO(i
I'I(JI)l8b 10
MUU186cO
M0018bo50
140U18040
MOu18650
1'10018060
1'100186/0
1'10018680
1'40016690
""OU18700
MOD18710
,"lOO 18720
MOll167050
1'10018740
1'10018750
MOU16760
10\0018770
1'10018780
1'10018790
1010018800
""'0018610
1'10018820
1'10018830
M0018840
MOt)}8tlSO
1010018800
1"10018810
MQU18880
1'10018890
Mu018900
1"10018'110
1'10018920
1"10018930
,"10018940
,"lOU 1 8950
1"10018900
MOOI897U
MOOI8~8U
....UOI8990
MUOliOOO
~10019010
,"lIJU 1 9U20
1'10019030
M001'1040
M001905il
M00190bO
l"lUU 1 '1il1 0
M0019060
MOLl190'l0
MlJ019100
MOU19110
1'11101'1120
l'lOOI'1131l
ANRAY Of lECHNULOGY NUMbERS ASSOCIATt.D WITH FAIHBANKS
2 LEA~T CUST FAlkRAN~S TECHNOLOGlfS WITH CAPACITY
IS:l
DO 7 l=t,2
IF (LCFAIR(1).EIJ.0)GO TU 8
ILO~~=l
lHl 1 1=1,9
INOF.X(l)=1
HilS SOIlt(llUlINE 15 A MOOIFICAT!(IN OF 8UtlHlIl1T11llt::LOkDEk.
UNUER CE~TA1N CUN~ITIONS,THIS SUHkOIJTI~~IS CALLED TO
MOOIFY THE NOKMAL LOAUIN'OHO~R TO FURCE THf 2 LI:.A5T
COST ~U~-HYu~O FAIRBANKS TtCH~OLOGIE5 WITH CAPACITY fIkST
IN THE LOADING OHuER.
no b I=1,~
[NOi:X(I)=1
DIMENSION VC (9),EI~V (9),LOAU (9),INUl:X (q)
UIMENSION 11FAlk(~),LCFAlN(2)
AVOW [)OUBLE CUIJNIING If ONLY 1 fAIHIjf\NK5 lECHNOLObY
IF (K .E"'.2 .AI~O.LCfAUt(l).EY.IHAIklILUW»GO TO 4
LCFAIR(KJ=IIFAIR(ILOW)
INOEX(lLOW)=O
ou :5 1=1,'l
IF (ITFAHI(I).t::t1.0)Gil TO 4
IF lINDEX l I J .EiJ.1)ILOIli=I
If (WDEX(lJ .EU.1)GO HI II
CONT Hili'/:
CONTI 1\jIJE
J)O II K=I,~
00 2 1=1,9
IF (ITFAIIHll .1:.t1.0)Gu TO 21
IF (I I'lllE X (I).EU.0)GO ru 2
IF (VC(ITFAIRll)+ENV(lTfAIR(l».LT.*VC(ITFAIR(lLO~»)+ENV(ITfAIRlILOW»)lLUW~I
CON JlNUE
CONTINUE
VAHIAliLt.S
1 TF AI R
LCFAIk
C
~
21
C
C
b
c
c
c
r.
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c
C
C
C
7
U
C
9
10
C
20
.so
till
LUAO(l)-LCfAII«I)
INDEXCLCFAI~(l»=O
IS-IS +1
CONT HillE
CONTINUE
uo q 1-1,'1
IF (lNOEX(I).EU.1)ILOw=I
IF (INUEX(I).E[~.1)GO TO 10
CONTINUE
CONTINUE
00 till J_lS,9
DO 20 1-1,~
IF(INOExCl).Eu.O)GOTO 20
IF(VC(I)tENV(l).LT.VC(ILUW)tENV(ILO~»IlU~~I
CONTINUE
LOAO(J)=ILOW
INUFX(lLOwJ-O
DO ~o 1-1,9
If(INOE~(I).Eij.1)lLO~-I
IF(INOEX(I).Ew.l)bOTO 40
CONTINUE
CONTINUE
REJUI<N
END
8.130
MU01'11QO
[,,01>1 'H 50
MIJU1'Hbli
l'tUO 191 7 0
M0019180
MOul'1190
;-10019200
M0019210
.'1l10 19220
MU019c30
M00192t10
1"10019250
M00192bO
MOU19i70
,'tU01921:10
MUU19290
1'10019300
MOU19,510
MOiHl,l3C!lJ
MU019330
1'10019340
lIt0019350
1'100193&0
1>111019370
l,,\u019360
M00193<J0
B.131
SUIHHlUT!NE ~Vl'llJMS (I Yf~,TK NAM,CAP,£0111 ,IT YP 1,NLP,OUT XL,
+ACAP,AbEN,FCAP,FbEN,XLOLP)
SAVE LOLP FUR THIS YEAR
~LULP(IYR)=uuIXL(IH,IP)
M0019qOO
..,OOI9Ql0
MUIH9Q20
M0019431J
M0019Q41l
MOIH 9Q~O
."'lllH 9QbO
MOOt9Q70
''1UOI9480
MU019490
MU019S01l
MU019S10
M001952lJ
MllD19S311
M0019540
MU019550
10100195&0
PlOIH 9510
MU019580
Mu019590
MlI019bOO
,'10019&10
MUOt9&20
MOU19&30
1010019&40
M0019&50
M0019&&0
M01>19b10
MOD19&81i
M0019b90
M0019100
M0019110
M0019120
MU019730
M0019140
M0019750
M01H97&0
M~019170
M00197tHi
1'10019183
(10019165
1110019790
."'00 19ijOO
M0019810
MU019li20
1'10019830
MOD198QO
MOD1'1850
l",u0198bu
M0019d10
MU019880
1'10019890
MU019900
MD019910
MU019920
/010019930
MOD19<f40
CUHHENT YEAH
ARRAY UF TECNOLOGY NAMES
!NSTALLED CAPACITY F~R EACH TECHNULOGY
ARkAY CONTALNINGTHE ENEN&Y GEN~kATION fOR EACH TECH.
ARRAY INDEXING fOUT ACCORDING T~TECHNOLOGY
hUMBER OF TECNOLOGIES USED
ARNAY CONTAINING LOSS OF LUAD PHO~A~ILITY
suaROlilINE OUTPUT OF INSTALLEU CAPAcITY FOR ANC~tuI<AliE
••••••••••••••••0 •••••FAIHHANKS
SU&ROUTINE Ou1PUT OF ENERGY GENERATION fOR ANCHU~AGE
• • • • • • • • • • • • • • • • • • •••~AIkBANKS
SU~ROUTI~E OUTPUT OF LOSS OF LOAD PkOBAbILITY
THIS SUBROUTINE CALCULATES ANO SAVES THE DATA
RtLEVANT TO THE A~CHOkAGE-fAINBANKS INr~riTIE
REPOHT GENERATED BY SUbHOUrlNf ~RTINT.
IN ESSENCE,EACH lECH~OLOGY'S INSTALLED
CAPACITY AND ENEHGY bENERArIO~IS CATAGUkllEU
A~ANCHURAGE OR FAIkBANKS DEPENOING ON THE
FIRST NON-dLANK CHARACTER IN THE TECHNULOGY
NAME (A OR F).
ACAPLIYR)=O.O
FCAP(lYf.I.I=O.O
AI1I::f>J(lYtO=O.O
UNL Y INTEf.lE~H:D IN HiE FOLLOWING SIJH~CIHPT5 UF f01i1 AIIIO ourxL
(StE SUbRUUIINE EXPEN)
IH=1
IP=2
OIMENSION TKNAM(1b,2J,CAP(1b),EOUT(100,3,2),ITYP1(100)
OIMENSION OUTXL(3,2),ACAP(30),fCAPl30),A~EN(30),FGfN(30)
OIMEN810N ~LOLP(30)
TNAME IS USf.U TO ACCESS EACH CHARAcra:.w
IN A TECHNULO~Y'5 NAME.
LOGICAL*1 TNAHE(&),8LNK,FCHR,ACHR
EYU!VALENCE lXNAM1,TNAME(I),(XNAM2,TNAME(~»)
DATA BLNK,FCHR,ACHR_I'','F','A'I
IYR
lKNAM
CAP
fOUT
nYP1
NLP
OIJTXL
ACAP
FCAP
AGEN
FGEN
XLOLP
VARIABLES:
C
C
C
C
c
(;
c
c
C
C
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c
C
C
C
c
c
c
c
C
C
c
C
c
c
C
4S
41
49
~(J
FGEN(IYW}=O.O
00 50 I=l,NLP
L-ITYPlll}
XNAM1=TKNAt-I(L,1)
XNAM2=TKNM\{L,2}
Ull 45 J=l,&
IF lTNAME(JJ .EQ.BLNK}GO TO 45
GO TO 47
CUNTINUE
TECHNOLOGY NAME ALL 8LANKS,50 S~IP
GO TO 50
CONTINUE.
TECHNULObY NOT A5S0CIATEII WITH ANCHOkAGE UW FAlk'IiANKS,sn SKIP
IF (TNAI'11:.(J).!"lE.ACHN .AND.II-.AM£(J}QNEoFCHi-l}GO 10 So
IF (TNAHE(J).NE.ACHN}GO TO 49
ANCHORAGE
ACAP(IYkJ=ACAPlIYR)~CAP(l}
AGI:.N(lYkJ=AGENlIYR}~EOUT(I,lH,IP)
GO TO 50 .
FAIRBANKS
CON TI NUt:
FCAPlIVR}=fCAPlIYR}+CAP(l)
F6~N(IVR)=FGENlIYR)+EUUT(I,Ih,JP)
ClINTII~UE
RE.TLJk'N
I:':NlI
8.132
MIJ0199S0
M00199bll
l"1UI)19970
M0019';160
1'100199<10
MU020000
M0020010
MOUjil0021J
/'10020030
1'10020040
M00200S0
MOD200bO
M0020070
1010020080
M0020090
M0021i100
1'10020110
1'10020120
1'10020130
M0020140
M0020150
"'00201&0
1"1002017u
1100201&0
1'10020190
1"100202011
MU020210
1"10020220
MOU202:iO
,..,0020240
MUD202SIJ
11100202&0
MU020c!70
SUI.HWIITINE SVE:.NG lIYR,EIlUT,HYP1,NLf',JECtlfl'i)
DIMENSION EUUr(JOo,3,2),ITYP1(100),TECHf~(lb,30)
ilEHIRN
END
IH=1
IP=2
MU020280
MOU20290
110020300
MU020310
l"IOOC!0:S2u
1"10020330
I"IOu203t10
MOl)20350
M00203&0
M0020370
""OD20380
1'100203'10
,10\00204110
M002il410
1'40020420
1>10020430
1'401)20440
l'lu0204:)u
1"100204&0
110020470
",,01>20480
M00204'10
1'10020500
MOl)20510
,'40020520
MOl)20530
1'10020540
110020550
1400205&0
1'10020570
140020580
140020590
1'10020&00
M0020&10
i'40020b20
140020&30
1'100201)40
M0020&5'0
M0020&&0
1'10020&70
1'40020080
..,0020&90
CUIU~ENT Yl:.AR
ANNAY CUNrAINING THE ENERGY GENEHA1IO~FUW EACH OLUGY
ARRAY INDEXING Eour ACCOROINb TO TEChNOLOGY
THE NUMhE~OF rECHNOL061ES USED
ENEHGY GEHERATED FON fAtH TECHI'iULUbY AND EACH YtA~
THIS SUBRUIITINE SAVES THE ENEHGY 6ENE:.RATIU~fO~E:.ALH TECHNOlUGY
AND EACtl YEAR
IlNLY INTERESTED IN THE FOLLOWING SUH~CHI"T~Uf fUUT
(SEE SUtiHUUTINE EXPEN)
VARIABLES
IHI 5 I =1 ,t &
TECHEN(I,llR)=O.O
5 CONTINUE:.
IYR
fOUT
ITYP1
iIlLP
TECHEN
DO 50 I=1,NLP
L=l TYP1 (1)
TECHEN(L,I~R)=EOUT(I,IH,IP)
')u CONTItJlJf
C
C
c
C
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
B.133
911BHUUTINE UEHPNT (rITlE,YEARS,TKNAM,IS,NP,IYR,CEP,DEM,P~~78,
+PRM,HETlwE,N9,CCAP7B,
+AVE78,YRLYEN,IECH~N)
C
C
C
c THIS ~UBROUTINE SEIS UP THE ~AIA FUN PWINTINb
C (fOk EACri TECn~OLOGV)
C THE CAPACITY 81 YEAR AND ENEHGY bENtKATJON HY YEAH.
e
C
DIMENSION TITLE(1~),YEARS(5),CEP(lb,jl,3),UEM(30),'KNAM(lb,2)
UIMENSION IS(30),WETIRE(lb,31),CEPCUM(Jl),CCAP78(lb)
DIMENSION YNLVEN(3,30),TECHEN(lb,30i
C
C LOCAL VAHIAtllES
OIMENSION TECCAP(10),INDTEC(9)
LOGICAL AUOlDtlb),T,F
C
UATA T,FI .TRUE.,.FALSE.I
c
c
C OUTPUT UNI T NUt-lI1EN
LOUT=12
c
C DETERMINE TtCHNOLUGIES USED
NT::O
00 5 I=I,lb
ADDEO (l J::f
If (CCAP78lI)+CEP(I,IYR.l,NS)+HETIRt(I,IYk+l).LI ••1)
*GO TU S
AIJl)EO (I J::T
If (1 .GE.10)GO TO 5
NT::NT +1
INDIEC (Nl)::I
'3 CONTINUE
C
e
C CAPACITY
(;
C WRITE HEADINGS .
WHITE (LOUT,100)TITLE
IFYR::IFIX(VEANS(lJ)
lYlAH::IFYR +1VN .
w'lNlTE (LOIJI,1l0)IFYFI,LVEAR,PHM,(l:;(I),I::l,NP)
wRITE (LOllT,US)(TKNAMlINOTfC(I),1),TKNAMlINUlE:CU),2),1=1,Nl)
~R1TE (lOUT,120).
c
c
llYR::IYIHl
IHI ~o J=l,llYN
LYtA~::IFYR +(J-l)
It:.CCM'(1l::0.0
00 30 1=10,lb
IF (.I"Of.AIJOED(1»Gil TO 30
TECCAP(l)=TtCCAP(l)+CCAP78(1)+CE~(I,J,Nb)-k~TIkt(I,J)
50)CUIH INllf
8.134
1'100207011
MIlD20710
I'-IU02u720
M00207jO
11010020740
rolOOC!07~o
'0100207&0
1'40020770
1'10020760
i,,0020 7'10
M0020800
M0020810
1'10020820
M00206jO
MU020840
M()D208~0
M00208bO
MOD20870
1'10020880
,'010020890
MU020900
,.,0020910
l'l0020920
MU020930
i>lOD20'140
1'10020950
MOD2u9&0
,'010020970
M0020980
MUD20990
MU021000
1'10021010
M0021020
1'10021030
1'10021040
M00210S0
MOU210&(/
i"'10U21070
MU0210liO
"'uU21090
MU02110u
/'110021110
MOU21120
1'10U21 l:SO
roluU21l40
MU021l:J0
MU021lo0
MOil21170
1'10021180
,.,0021185
11I0021190
,.,0021200
MUU21210
M(J021~20
1'40021230
M0021240
1010021250
...
MU1)212&0
MOu21270
MU02121:10
1"10021290
"'0021300
(o\ul)21310
M0021320
""'0021330
,,",0021340
M0021350
M0021.SbO
iWI0021370
M00213110
,'10021.590
M0021400
,'10021410
1010021420
M0021430
M0021440
M0021450
M00214&0
140021470
M002141:10
M0021490
MU021500
1"10021510
MU~21~2u
1010021530
1"01.>21 !:Ill 0
r4OU215S0
M00215&0
1'10021570
1'100215811
140021590
1'10021&00
,MuD21 &10
1"10021&20
M0021&30
'"'0021&40
1'010021&50
jol0021&bO
1"10021&10
M0021&8U
1'10021&90
MOOiH700
M0021710
1'10021720
M0021730
M0021740
M0021750
1'100217&0
Mi,l021710
M002178IJ
1'010021790
,,",0021800
140021810
M0021620
',A4,A2)J
',AQ,A2»
('1',1~ALj,3bX,'CPRT wEPORT')
(t I,'PEAK DEMAND &CAPACITY (MW)bY YEAH:',
2X,14,'-',I4,',PRI"'=',Fo •.s,',THEE.PATH."
3011,/,IX)
('','ENERGY GENERATION (GWH)BY YtAk:"
2X,I4,'-',ILI,',PRM=',F&.3,',TREt PATH:"
:SOI1,/,UJ
('O','YEAR',2X,'~EMANU ',4X,'HYOkO ',9(2X,'
('0','YI:.AR',2X,'ENEI(GY ',4X,'HYDkO ',9(2)(,'
(PO
(lX,14,2X,~d.0,4X,F8.0,9(2X,F6.0)
(lX,I4,2X,r8.0)
CONTINUE
IF (J .Eu.1)
wRITE (LUUT,12S)LYEAH,DEM78,TECCAP(lJ,
(TECCAP(INO'EC(l).I),I~I,~T)
IF (J .Nt:.1)
~~HITE (LOUT 1125)LYEAR,OEM(J-ll,TECCAf'll)'
(T~CCAP(INOTEC(I).I),I~I,Nl)
ENERGY GENERAtiUN JAdLE
wlHTE HEADINGS
RETURN
ENU
CONTINUE
F Of<r"l AT
FOWrO\AT
FOl'lMAT
FORMAT
FOt/MAT
~RITE (LOUT,130)IFYR,AVE78
wRITE (LOUT,lllOl TITLE
LYEAR=IFYR ...lYR
WRIJE (LOUT,111)lFYR,LYEAR,PR~,(lS(I),I:l,NP).
wRITE (LOUT,11o)(TKNAM(INUTEC(I),ll,TKNAM(INDTECll),2),I=1,NTJ
WRITE (LUIJT,120)
FOt<f1A T
FORMAT
1
2
FORMAT
1
DO Ljl)I=l,NT
TECCAP(I.l)=CCAP7~(INOTEC(I»•
CEP(INUTEC(I),J,NSJ -REJIKE(IND1EC(1),J)
00 bO J=I,IYH
LYEAR=lFYR +J
HYlNG=O.O
OU ~5 I=10,t"b
IF (.NOT.AUDEO(I»GU TO 5S
HYENG=HYE~G +fECHEN(I,J)
CONTINuE
WRITE (LUUI,12~)LYEAR,YRLYEN(IS(l),J),hYENG,
...(fECHI;N(lfllDTt:C(I),J),I~l,Nl)
CONTINUE
55
.Ill
.,0
*LlO
C
**
**C
C
50
C
C
C
C
C
C
c
C
11~
110
l~O
12'1
13u
C
c
c
c
C
100
110
B.135
PARAMETER O[SCHIPfIONS:
TIII~tiU~ROUTINE PRODUCES THE FINAL COSI 5U~MAAY
TAbLE HEPORT
LOUT:13
IYR:IFFYR
FACTOR=(1.0 ~IHFLA)/ll.0 *COSC)
~UBHU'11INE wHI~U~(FIXPHC,VA~PkC,YRLYUM,OEM7b,YMlYt~,AVt76,
•IFFYR,lR,PHM,I~,NP,INFLA,COSC,1~PN,~5C,
•AECUNS,~KCONS,lCCONS,PCCUNS,T!Tlf.)
1"10U21~30
MOU21840
1010021850
i>lOU218bO
M0021ti70
1'10021880
1»0021890
1'10021900
M0021910
M0021920
M0021930
M0021940
M0021950
M00219&O
MU021970
1"10021980
MU021990
M0022000
M0022010
MuD22020
M0022030
""0022040
MUU22050
M00220bO
1'10022070
MOD22080
M00220~O
MUDU100
1'40022110
1'10022120
MOD2213u
M{)022140
MOOi:!2150
'"'0022160
MUD2c!170
1'40022180
MUL>22190
1"10022200
MOOUc!10
MOU22220
M00222:S0
r!IJ02224U
MOOU250
Pl00222bO
MOOc?2270
Mul.l22280
1'40022i:!'#11
MlJ02i:?300
1'10022310
1'10022320
M0022330
M0022340
MlJ022350
MOOi:!23&0
PlIJIJ22370
t"lnOa:S80
1'10022390
ARRAY OF FIXED PRICES BY YEAR
ARRAY OF VARIABLE PR1CES By YEAR
YEAkLY OEMANO dY PATH
FIRST YEAH OEMAND
YEAklY ENERGY BY PATH
FIRST YEAR ENEHGY
FIRST YEAR
PLANNING HORIZON 8Y YEAR
RESERVE MARGIN
AMkAY.INDEXING THE PERIODS of EACH PATH
NUMBER OF PERIOOS
INfLATIO~RATE
.CUNSUM~R DISCOUNT RATE
AMfiAY INUEXING THE PATH
CURkENT PATH
YtA~LY AVERAGE ENEWny FO~CONS~RVA110N
Y~ANLY OEMAND FO~CONSEkVATIU~
llAkLY TOTAL COST FOR CONaEHVATIUN
YtARLY POwER COST FUR CONSfRVA1IUN
INPUT TITLE UF RUN
THIS SUBROUTINE ALSO OUTPUTS PO~ER C05T~fOR EACH
PHM ANO PLANNING YEAk 'INDER ThE MEDIUM PATH.
THE OUTPUT FILE IS 'AREEP.OAT'(UNIT 19).
THIS FILE IS USED dY PROGRAM WEU VIA P~UGHAM
RAfE.
DIMENSION FIXPRC(100),VARPRC(100),YRLYOM(3,30),YRLYEN(3,3~}
DIMENSION IS(lu),lS~N(10),TITLE(15}
DIMENSION A~CUNS(3f31},PKCDNS(3,31},TCCU~S(3,31}.PCCON5(3.31J
REAL INFLA
OUTPUT HEAIHNb5
~RITt (LOUJ,100)TITLE
fUWMAT ('l',i~Aq,I&X,'CSUM REPORT')
~RITE lLOUT,1(1)~RM,(IS(l),I=l,NP)
FOMrlAT ('PN,.l:',Fb.3,27X,
1 'TkEE PATH:',3011)
wlBTE lLOUT,lOS)
FIXPI<C
VARPKC
YfiLYDM
LlEM76
YRLYJ:.N
A1It:.18
IFFYH
LR
PHM
IS
r~p
WFLA
COSC
ISP~
NSC
AECONS
PKCur~s
TCCONS
PCCIIN:i
TITLE
IOU
101
c
C
c
c
c
C
C
C
C
C
C
C
r;
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
B.136
....
rOTAl
NOTE:FIXPRC AND ~AkPRC ARE IN THE UNITS Of $/KwH
L IS THE PATH (l=LUw;2=MEO;3=HIGH)
L=ISPN(NSC)
DELIVEREll
100EPC=(FI~PRC(1)+VARPRC(1))/1000.
TOUECO=TOO~PC*AVE18/1000.
1'10022'100
l'IOOC!2410
."lOU224i:!0
M(lll2~1'30
Mli022440
1'-100221450
MU02i:!4&O
P'.Ol>2214 7 0
,.,UU2i:!460
M002214911
MOIJ22';)UO
M0022510
MllDC!2520
l"'002255u
MUIl22540
MOD225~O
MUU225bO
M0022570
M00225liO
M00225"'0
1'\0022bOO
",,0022&10
M0022b20
M0022&.s0
MOU2264u
I1U022&50
M0022&bO
MO()22&10
M0022&80
M0022b90
M0022700
Muil22711J
110022720
MlI022730
1'-10022740
M0022750
MU0221bO
.'1002271/1
M00227l:l0
M00227911
1'10022600
MOD22tlll1
MOD22!l21J
M002283U
MU0228 /40
M00228'iO
MOOi:!28bO
i"IOOi:!2tll/l
M002268u
M0022890
MOU2290u
/1010022910
M0022920
M0022930
MOU2i:!940
M0022'1~()
M00229&0
fIRST YEARSPEClALCASE
CUNSE.RVA TIIJN
COPVTC=TCC
CULPC=AECONSlL,l)
PRESENT VALUE VAHIA~LES
I>I:LIVEREO
UEPVTC=TOUE.CO
OELPC=AV!::7li
LOAU MANAGEMENT ANU CONSERVATION
TCC=TCCON5(L,I)/1000.
IF (AECUNS(L,I).t~.0.)PCC=O.
IF (AECONS(L,I).NE.0.)PCC=TceON~(L,I)/AtCONS(L,I)
TOTAL
10AE=AVE7~+AECONS(L,l)
rOPK=IlEM7tl +Pi\CO,'lS(L,1)
TOCO=TOOECU +Tee
rIJPc=rOCO/TOAI:.*1000.
IF IHIS IS THE MEDIUM PATH THEN WRIT~OuT P~M
10 AREEf'.l>AT
IF (L .EiJ.2)wRIIE (19,121)fiRM
FORMAT (F5.3)
f£JIoII-1A r ('II',8uX,1 'JX,'LUAU MAi~AlitMt:.NI ANil')
wRITE (LOIJT.t10)
fORMAl'(5X,4)(,'TlJTAL ELECTriICAL REIHllHEMt:IH:i ',3)(tlOX,7X,
1 'OELIVEkED ENE~GV',10X,4X,3X,'CONStk~ATION EL~CTKICITV')
WHITE (U1UT,115)
FORMAT ('O',4X,3(4X,'ANNUAL',2X,5x,2X,'TOTAL',
1 2x,'PU~EW',2X,3X»
~RI1E (LOIJl,120)
FORMAT (lX,'ytAR',3l4X,'ENtWGY',2X,'PEA~',2X,'C~~T ',2X,
i 'CUSI ',~X,!X»
WRITE (LOUT .125)II YR,1=l,3)
FORMAT (5X,3(4X,'(liv'lH)',2X,'(MW)',2X,'',14,'$-',
1 2x,'M/KWH',2X,3X))
WRITE (LOUTtl2b)
FURMAT (5X,3(19X,'MILLIONS',13X),I,IX)
105
12f>
C
C
C
120
115
110
125
C
C
C
C
C
C
C
C
C
C
127
C
C
C
C
C
C
C
c
C
c
C
C
B.137
C
150
C
C
C
C
C
C
151
C
(;
C
C
C
C
C
C
c
c
c
c
C
C
C
C
C
C
C
TOPVTC=TOCU
TOLPC=rOAE
W~lTE lLOUT,I~O)IYR,TUAE,TUP~,TDCU,TuPC,AVf18,OEM18,lUDtCO,
~TUOEPC,AECONSlL,I),P~CUNS(L,I),TCC,PCC
FOHMAT llX,I4,3(4X,Fo.O,~X,f5.0,2X,F8.~,~X,fb.l,cX~3X)}
IF I HIS IS THE MEUlU""!lATH THEI~I'lHITt OIiT HIt
powt~COST FO~THIS YtA~(1ST LONVEkT 1~~/~~H)
TO AREEP.OAT
TOUEPC=TOOE~C/l000.
IF (L .EQ.Z)wRIIE 119rl511 TUOEPC
FOHI-4AT (FlO.4)
NOW REPEAT fU~EACH rEA~OF THE PLA~NING HUkllUN
Pf'ACT=l.O
00 50 J=l,LIoI
IYk=IYR ..1
PFACT=PFACT*FACTO~
TOOEPC=(FIXPHC(J ..l)..VAHPHC(J+l»/1000.
TOOECO=TOO£PC*Y~LYEN(L,J)/1000.
TCC=TCCONSlL,J·l)/1000.
IF (AECONSlL,J.l).Ew.0.)PCC=O.
IF lAECONSlL,J+l).NE.0.)PCC=lCCONS(L,J+l)/AECONSlL,J.l)
TOAE=YRLYE~lL,J)•AECONS(L,J"l)
TOPK=YHLYOMlL,J)•9KCONSlL,J.l)
TUCO=TOOECO ..TcC
TOPC=TOCO/TUAt~10UO.
OEPVTC=UEPVIC •(IUOECO~PFACT)
uELPC=DELPC ..(YHLYEN(L,J)*PFACT)
COPVTC=COPV1C •(ICC*PFACT)
cnLPC=CULPC •(AECONS(L,J+l)*PFACT)
TllPVTC=TOPVTC •(TOCO*PFACT)
TOLPC=TOLPC ..(TOAE*PFAC1)
~~I~ITE (LlHlT,l~O)tYW,rUAE,TOPK,TUCO,TUPC,YI<LYEN(L,J),
...YRLYI)I'l(L,J),TOIJECO,rU[)EPC,At.C(J1~S(L,J"l),
+PKCUN5(L,J.l),fCC,PCC
IF THIS IS THE MEDIUM PATH fH~N nRlfE UUT THt
POwE~CUST FUR THtti YEAH (151 CONVENT TU $/K~H)
IU AN~EP.OAT
TUOtPC=TonEPC/lOOO.
B.138
M0022910
M00229dO
i~00229'1(j
MOU23000
MOilC!30l0
14002302U
MOJ)~3().50
140023040
1"10023050
10100230&0
MUIJ23010
M0023080
MOOC!:S08~
M0023090
1010023100
M0023110
Mu023120
M002.HSO
M0023l4li
M(l0231~O
M0023100
M0023110
M00231.8(/
1'40023190
M0023200
1'10023210
MU0232~O
M0023230
MU023240
1>100232';)0
M00232bO
I-IU023270
1010023280
Mu0232'iu
M002330u
MOU2HlO
1>10023320
MUD23330
M002B4iJ
MOD233')O
MOOa.BoO
I~002337li
"IU02338(1
M002B90
M0023400
I~002341U
1'\0023420
M0023430
,-10023440
MOU23 t l'='U
M00234&1i
M0023410
."'U023480
1'1I00234'111
MU023')uu
MOD23S10
MOU23S1'::1 ,
I
j
C
C
50
c
C
C
C
155
1bO
C
IF (L .EI~.2)I'IkIIE (19,151J lUUEPC
CONTINUE
LEVELIZEO COS IS
UELPC=DEPVrC/UELPC*1000.
IF (COLPC .NE.u.l COLPC=CIlPVrC/COLPC*lOOO.
rULPC=TUPVTC/IOLPC*1000.
~RITE (LOUT,l~SJ rOPVTC,OEPVTC,COPVTC
W~lT~(LOUT,lbO)rOLPC,OELPC,COLPC
FORMAT ('O','~V1C',3(18X,F9.2,13X)
FORMAT (''I'LPC',3(29X,Fb.l,~X)
RETUIW
EN!)
B.139
1'10023520
1'40023530
1'10023540
MOl>235SU
M0023':>&U
M002357U
MOLl25580
MU023590
MIl023bOU
Mu023b10
MU023620
MlJLl25tdO
M0023640
M0023b511
MOD2.s6bu
1'I0..>23b10
M0023680
M0023b9U
PARAMETEk OESCRIPtIONS:
DIMENSION GPyRLY(J,30),GEYRLY(J,30)
THIS ROUTINt PHooUeE~THE ANCH~RAGE-fAIRhANKB INJEkTIE kEPUHT
GLENNALLEN DEMANO AND ANNIIAL ENEkGY ADOEU TO
THE ANCHORAGE FIGURES.THE INTENTIE CALCULATIUNS
ARE BASEO UN THE~E SUMS.
1'010025700
I~OL>2J710
M002372lJ
,>\Qui37 :50
MU025140
1010023750
M0023760
0\10023770
1'010023780
P\002:57'H
MU025&OO
.>\002381 lJ
M00231:120
M0023(130
MOU23t:1110
1"10023850
MU0231:100
M0023H70
1'401)23&/:10
1>\002:5/:1'10
MU023900
1'\002.5910
101002.5920
MU~23930
M002394ii
."u023'1,:)O
MU023900
M~U23970
MU023980
Mll023990
10100240(1(1
M0024010
M0024020
M0024030
MU024040
1'1002110':10
MlJ024UblJ
PtuD2',u/70
MOD'=?4080
1010024090
MU02410u
1'10024110
MLJU.=?4120
MOD24130
1"(1)24141}
M00241~0
tol0024160
MlJI>241/u
M00241~O
10\0024190
M00242uO
1'110024210
MU024220
M0024250
M0024211ij
M002112~0
M0024253
ARRAY OF TECHNOLOGY NAMES
FIRST YEAR CAPACITY
fIRST Y~AR PEAK UEMAN~fUR ANCHURAGE
• • • • • ••• •••••FAIRbANKS
• • • • • • • • • • •••GLENNALLEN
FIRST YEAR AHNUAL ENERGY FUR ANLhURAbE
• • • • • • • • • • • •••fAlk8AN~S
• • • • • • • • • • • •••GLtNNALLEN
YEARLY PEAK DEMAND FOR ANCHURAGt
• • • • • • • • •••FAIRbANKS
• • • • • • • • •••GLENNALLEN
YEARLY ANNUAL ENERGY fOR ANCHURAGE
• • • • • • • • • •••fAlkuANKS
• • • • • • • • • •••bLENNALL~N
INSTALLED CAPACITY FOR ANCHORAG~
• • • • • • • • •••FAIH~AN~~
ENERGY GENERATIO~FOk ANCHOHAbE
•••••••••••FAIW~ANKS
LUSS OF LOAD PHOBAdILITY
flRST YEAH
PLA~NING HU~I10N
RI::.SERVE ~IAI~GIN
A~RAY INDEXING THE PERIODS Of EACH PATh
NUt:jflEI'I OF PER IUDS
A~WAY INOEXI~G THE PATH
CIiFiFiENT PATH
OI~I::.NSION APYHLy(j,30),FPY~LY(J,30J,AEYkLY'3,30),~~YkLYlj,jO)
UIMI::.N510N ACAP{30J,AGEN(50),fCAP(30),FGEN(jO),XLULP(j~J
UIMENSION IS(10J,lSPN(10),TITLE(15),CCAP78{1b),T~NA~(tb,2)
OIMENSION C~AX(30),ETwAN5(30)
TKNM-I
CCAP7!'
AP78
FP7it
GP78
AE7/i
FU8
bE7a
APYRLY
FPYRLY
GPYRLY
AEYRLY
FURLY
GErHLV
AC Af"
FC AI"
AGEiIl
FGEN
XLOLP .
IFFYR
Ul
PI~/.1
IS
NP
ISPlI/
Ni;C
TNAnE IS LJSl'.U TO ACCE~5 ALL nil::
CHARACTl::.kH IN A JI::.CHNOLOGY NAME
LOGICAl*1 To'UI1E(6J,I:iLNK,fCHw,ACI-lR
I::.WUIVALENCE (XNAM1,THAME(I»,(X~AM2,rNAME(~»
SllBRlIll1lNE WR lINT (T I TLE,TKNAM,eCAP 7li,AP71:1,f PHI,A1::7 tl,f17 Ii,
•APYRLy,FPY~Ly,AtYRLY,fEY~Ly,ACAP,A~th,
•FeAP,fGEN,~LOLP,IfFYH,Lk,PkM,I5,NP,lbPN,
+!liSC,
+GP7li,GE78,GPYRLY,bEYRLY)
c
C
C
C
c
c
c
Ce
C
c
e
e
C
C
C
C
c
C
c
e
c
e
C
e
c
C
C
C
C
C
C
C
C
c
e
C
C
C
C
e
C
C
C
C
8.140
l'1lJD24255
1"10024200
r10L)24UU
MOD24i!/j0
M0024c90
1"\0024300
MU02431li
MIJ0243c!O
MlJD243jO
l'I0024.HO
1'100243)0
MOD243bO
MODc!437tl
MlJ024380
1'10024390
",00244011
M002441u
1'400C!4420
M00244,S0
M0024440
MODc!44~0
MOD244&0
1'100241110
I\\OD24481;
MOD244'111
M0024S00
M0024510
1'10024520
MOOC!4530
1'40024540
1'10024550'
M00245bO
1'10024570
MOOC!4580
1'10024590
M0024bOO
M0024&10
MU024b20
M0024b30
M0024&40
MlJ024b50
1I100240bO
1'10024&70
1'10024013
MOD24b75
M0024b811
M0024b90
1'10024700
""'0024710
1'10024720
MuD24723
1'10024725
1'010024730
toI0024740
1'10024750
M00247bO
1'10024770
YEARS IN PLANNING HORIZON
UO ~u l=I,LR
IY~=Uk ~1
APNGP::APYHLY{ISPN(NSC),I)+GPYHLY(ISPN{N~C),l)
AENbE::AEYRLY(ISPN(NSC),I)~GEYRLY(ISPN{NSC),I)
WRllE (LtJUI ,l15)IYH,APNGP,
ACAP{I),
AfNGE,
AGEJ'H I),XLOLP (I)
ANCHlIHA·GE
uUTPur HEAOINGS
WRITE (LOuT,100)rIllE
wRiTE (LOUT,101J PRM,(IS{I),I::l,NP)
WRlT~(LOllT ,l1l2)
wlHH (LOIJT,lO~)
FIRST YEAR
APNGP:AP7/j ~GP78
AENGE=AE78 ~G~78
WRITE (LOUT,110)iYR,APNGP,ACAP78,AENGE
UATA RLNK,FCH~,ACNH I'','F','A'I
OIHPUT UNIT *
LOLJ1=14
IYR::IFFYf(
[)()10 I::l,lb
XNAM1::TKI~AM(I,1)
XNAM2::T KNAM (I,cD
DO 5 J=I,6
IF (TNAMf{J).EQ.tiLNK)GO TO 5
GO TO 6
COIHINOt:.
TECHNOLOGY NAME ALL BLANKS,SKIP IT
GU TU lU
CONTINUE
TECHNOLObY NOT ASSOCIATED ~ITH ANCHURAGe ow FAIH~ANKS,tiKIP IT
IF (TNAl-1t:.(J).NE.ACHR .ANO.TNAME(J).NE.fCHfl)(,0 Tu 10
If (TNAME(J).NE.ACHH)GO TO 9
ANCHORAGE
ACAP78=ACAP76 +CCAP78(I)
GO 10 1.0
FAIRtiAf>IKS
CONTINUE
FCAP78::FCAP78 +CCAP18{I)
c()r~TINtJE
DETERMINE FIR~T Y~AR CAPACITY FOR ANCHORAGt ANO fAIkbAN~~
ACAP7R::0.U
FCAP7R::O.(J
+
~
+
CUNlINliE20
C
(;
c
C
C
C
C
5
C
&
C
C
C
C
9
10
C
C
C
C
c
C
C
C
B.141
lYR=IFFYR
A~CHURAGE-FAI~UANKS INIEKTIE CALCULAtIONS
FIRST YEAR
wRITE (LOUT~110)lYR,FP7~,FCAP78,FI:7~
FAIRBANKS AND INHRTIE OUTPUT
tiEAOING:i
wRITE (LOIJTrlOO)1ITLE
~RITE (LOUT,101)PRM,(IS(I),I=l,NP)
wRITI:(LOUT,202)
~RITE (LOUT,2(5)
1'10024780
roI0024790
M00211800
MU0214810
MOLl24820
MU024830
1'10024640
MOU24850
M(J024U&0
MUU2111110
M(,024li60
1'10024890
MOil24900
M0024'HO
l'1U024'120
1'111024930
MU024940
rollJ024950
M0024960
M0024970
MuO~4q60
iol00249QO
MU025000
1'100251110
Ml1025020
MOO~5030
1'10025040
'40025050
Mll0250&O
1010025070
MUO~')080
M0025090
MU025100
10\0025110
M002~120
HUO~SljO
M0025140
1010025150
M00251&0
MOU25170
MlJU~5180
i"l0025190
MOU2~200
M0025210
101002522"0
MlI025230
1"100252140
MOD25<!SIi
M00252bO"
MOD25270
M002~2Iil1
M002529u
M01l2~300
M(JO~5310
MOO~5:S20
MII02533l1
MOOc!534il
,,
IYR,fPYRLY(ISPNINSC),IJ,fCAPll).
FEYRLY(I~PN(NSC),J),FGEN(I),CMAXII).
fTRANSlI)
('l',I~A4,~&X,'INTR REPU~T')
('PHM=',Fb.3,15X,'TK~E PATH=',3011)
('0',24X,'ANCHURAGE'J
l'O',bX,'PEAK ',2X,'INSTALL~D',~X,
,ANNUAL ',2X,'ANNUAL ',5X,I,
7X,'UEMAND ',2X,'CAPACITY ',2X,'EN~kGY
2X,'GtN£HATIUN',5X,'LULP ',1,
lA,'YtAw',~X,'(MwJ ',2X,'(Mw)'.2X,
,(G~HJ ',2X,'(GWH)',5X,'DAYS/I0 YW')
1'0',14,2X,FI0.l,2x,Flu.l,2X,flO.l)
(lX,I4,2x,FI0.1,2X,FI0.1,2x,FIU.1,2X,~10.1,~x,
FI0.3)
(IOI,24X,'FAIHBANKS',30X,'lNTERTIE'J
('O',bX,1 PEAK ',2x,'INSTALL~O',dX,
I ANNUAL ',2X,'ANNUAL ',5X,'MAXIMUM I,
EACH YEAR tN PLANNING HURIZON
OU 70 l=l,LH
IYR=IYR +1
WRIIE ILUUI,210)
FORMAT
FORI-lAT
fORMAT
FO~14A T
1
2
3
4
5
fllHMAT
FllWMAT
1
FOkMAT
FOkMAT
1
•
+
CONTINUE
00 50 l=l,U<
ADIFFC=ACAP(I)-(APYRLY(lSPN(N~C),I)•GPYRLIIISPNIN~C),l»
FOIFFC=fCAP(I)-FPYRLY(tSPN(NSC),I)
CI-IAX(I)=O.o
IF (AI>!FfC .GE.O••ANO.FIlIFFC .Ll.0.)
*C~AX(I)=AMINl(ABSIAUIFFC),A~SlfUIFFC»
IF (AOIFfC .LT.O••AND.FDIFFC .GE.0.)
*CMAX(I)=-1.O*AMINl(A8S(AOIffC),A8S(fuIFFC)J
AUIFFE=AG~N(I)-(AEYRLY(ISPN(NSC),I)+GEY~LYIISPNlN~C),I»
FOIFFE=FGEN(I)-FEyHLY(ISPN(NSC),I)
ETRANS(J)=O.o
IF (AOIFfE .bE.O••AND.FOlffE .LT.0.)
•EJRANS(l)=AMINl(AijS(ADlFF~),ABS(FOlffEJ)
IF (AOIFfE .LT.o ••AND.FUIFFE .bE.0.)
+ETRANS(I)=-1.0*AMINt(A~S(AOIFFE),ABS(FOlfFEJ)
CONTINUE
202
205
un
115
70
C
C
100
101
10~
105
c
C
C
C
C
C
C
50
C
C
C
C
C
8.142
tU:.TUHN
ENO
FORMAT (lX,14,2X,fl0.1,2X,F10.1,2X,F10.1,2X,flO.1,~X,
1 FI0.1,2X,flO.I)
I'
f
C
210
c
2
:5
'4
5
()
1
Ii
2X,'E~E~GY '~/,
1X,'DEMAND ',2X,'CAPACITY ',dX,
•tNt~GY ',2X,'bENE~ArlON',5X,'CAPACIrV ',2X,
•THANSfEK ',1,
1X,'YtAk',2X,'(MII'I)',2X,'(1'\1'1)',2X,
•(GwH)',2X,'(13,m)',5X,'Hlw)',2X,
,(bl'itl), )
MU025350
M00253bO
140025370
MlJUib3/j0
M002~390
1'10025400
1'10025410
1'10025420
Mi}02~430
M002~440
,,",0025450
MU0254bO
1'10025470
B.143