The URL can be used to link to this page

Home My WebLink AboutOver-Under (AREEP Version) Model User's Manual Vol. XI 19821X ewNJOA 2 2 r e = a a 4 a = aA ~~ 8 = e g = & 3 = 2 = oe 8 yg 2 = 6 & 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 by Battelle as an account of sponsored Sponsor nor Battelle nor any person acting OR REPRESENTATION, EXPRESS OR accuracy, completeness, or usefulness of this report, or that the use of any informa- omposition disclosed in this report may not hts; or h respect to the use of, or for damages result- ation, apparatus, process, OF composition RAILBELT ELECTRIC POWER ALTERNATIVES STUDY; OVER/UNDER (AREEP VERSION) MODEL USERS MANUAL Volume XI A. L. Slavich J. J. Jacobsen 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 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 Policy Review Committee. Begun in October 1980, and extending 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 Volume I - Railbelt Electric Power Alternatives Study: Evaluation of ailbelt Electric Energy ans Volume II - Selection of Electric Energy Generation Alternatives for Consideration in Railbelt Sfectrie Energy Plans Volume III - Executive Summary - Candidate Electric Energy Technologies for Future Application in the Railbelt Region of Alaska Volume IV - Candidate Electric Energy Technologies for Future Application in the Railbelt Region ot Alaska Volume V - Preliminary Railbelt Electric Energy Plans Volume VI - Existing Generating Facilities and Planned Additions for the Rai lbelt Region of Alaska Volume VII - Fossil Fuel Availability and Price Forecasts for the Railbelt Region of Alaska iii Volume Volume Volume Volume Volume Volume Volume Volume Volume Volume Volume VIII - Railbelt Electricity Demand (RED) Model Specifications VIII - Appendix - Red Model User's Manual IX - Alaska Economic Projections for Estimating Electricity equirements for the Railbelt X - Community Meeting Public Input for the Railbelt Electric Power Alternatives study XI - Over/Under (AREEP Version) Model User's Manual XII = Coal-Fired Steam-Electric Power Plant Alternatives for the ailbelt Region o aska XIII - Natural Gas-Fired Combined-Cycle Power Plant Alternative for the Railbelt Region of Alaska XIV. = Chakachamna Hydroelectric Alternative for the Railbelt Region of Alaska ENE SEEN AEN SE ELT XV - Browne Hydroelectric Alternative for the Railbelt Region of Alaska XVI - Wind Energy Alternative for the Railbelt Region of Alaska XVII - Coal-Gasification Combined-Cycle Power Plant Alternative for the Railbelt Region of Alaska iv TABLE OF CONTENTS SUMMARY) —:_s] (2 ie] «(eo (e/f« (a) «© [e) s [se s/s’ 6 [= lal © | (ttt 7.0 INTRODUCTION « 3. 3. .-+ « « © © + 6 © * © 6 « 1.1 2.0 DESCRIPTION OF THE MODEL. . . . . 2. ee ew ee es 2.1 DEMAND-UNCERTAINTY . 2. 1 ew we we ee ee ee 2:1 CAPACITY=DECISION- 3 — 3° 2 5 ew ms we ce Ue Uh Ue 2.2 PRODUCTION-SIMULATION «= =. = «2 6 1s we ew we 2.2 FIEXEID=CHARGE Feria ef) tee) Ta eee at Tot 3 io) ae) sr £2 WERMINAL <VALUE yey ee eg ee se Bee CONSUMER-PREFERENCE . 2 2 « 8-5 6 6 «© © © 6 8 © @ 252 3.0 DATA INPUT al Th sa! ee ee ie 3.1 PRIMARY INPUT DATA FILE fel hee ei 35.1 SECONDARY INPUT DATA FILE Ee hele elt se Lt ILS 3.14 Delivered Electricity . . 2. 2. 2. 2 we we we we ee 3.14 Load Management and Conservation . . . . . «© «© « 3.21 4.0 DATA OUTPUT . .. . oes 6 mie «2 ©] s 6 4.1 CAPACITY AND ENERGY GENERATION (CPRT) oe too eel ee 4.1 COST SUMMARY REPORT (CSUM) . 4 « 2 3 «9 @ # «6 es 4.4 ANCHORAGE -COOK INLET - FAIRBANKS-TANANA VALLEY INTERTIE REPORT . 4.7 PRODUCTION DETAIL REPORTS arama as mm a SO A 4.11 PRODUCTION COST REPORTS feta ag lator tose oe 4.12 DATA FILE OUTPUT. . . . ee ee ee mee 4.12 5.0 OVERVIEW OF THE COMPUTER PROGRAM . . . . . 1 ee eee 5.1 MAIN PROGRAM. 3. 3 « « « « «© © « &@ w «8 6 «© » «@ « Sed SUBROUTINES . . . ._.. .« « «= * © © © es = we & 5.4 Subroutine INCONS - (0013050) ee ee se se 5.4 Subroutines SETPAR - (M0D13570) . . . 2. «© «© «© «© « « 5.5 Subroutines READSF - (MOD13930) . . . 2. 2. 2. we ee 5.6 Subroutines DEMPYR - (MOD15200) . . . . . 2. 2. we ee 5.7 Subroutines DETLDC - (MOD16080).. . ........ 57 Subroutines FAIRGK = (MODIL7620) . = <>. «3. @ «6 «= % St Subroutines FLORDR - (MOD18570) .. . . .. 6... Be. Subroutines SVNUMS - (MOD19400) . . . ....... 5.7 Subroutines SVENG - Subroutines DEMPRT - Subroutines WRTSUM - Subroutines WRTINT - 6.0 PROGRAM OPERATION DATA FILES <= =e RUNNING THE PROGRAM AREEP MODEL ERROR MESSAGE (MOD20280) . (M0D20700) . (MOD21830) . (MOD23700) . ° APPENDIX A: AREEP QUICK REFERENCE INPUT APPENDIX B: AREEP SOURCE CODE vi WRrPA TAWA AA HN mim wwe © @ oo 1.1 1.2 3. See 4.1 4.2 4.3 6.1 6.2 5.1 LIST OF FIGURES AREEP Diagram . . 2. 1. wee Electrical Demand and Supply Interactions . Example Primary Input Data File. . . Example Secondary Input Data File . fs CPRT Report lls! le |e Nall al ell 2 Wall a ell GSUM Report || ci lie: isl 6) te | east] || lle Imtk ROPE 4). 4 elUmtCU lle AREEP File Assignments AREEP EXEC 2 Command File ..... LIST OF TABLES Subroutines in Order of Call Sila vii 1.3 1.5 3.2 3.15 4.2 4.5 4.8 6.2 6.4 bee 1.0 INTRODUCTION The purpose of this report is to describe the Over/Under (AREEP Version) Model. This model was used in the Railbelt 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-Alaska Railbelt Electric Energy Planning 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 Railbelt 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: - Cazalet, 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. Shur. 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 Tall 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 Electrical Demand). 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 Railbelt an intertied electrical system, the peak demands and annual energy from each of the three load centers are added together and a new additions to generating capacity. single annual load duration curve is developed for the combined Railbelt area. The next step in the computational procedure is to develop a schedule for 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 led Generating capacity additions are based @ PEAK DEMAND @ ANNUAL ENERGY DATA INPUT CAPACITY ADDITIONS PRODUCTION SIMULATION PRODUCTION COSTS © ANNUAL COST OF POWER © ADJUST FOR LOSSES AND UNACCOUNTED ENERGY © COMBINE DEMANDS FROM LOAD CENTERS © DEVELOP LOAD-DURATION CURVES DATA INPUT AND ASSUMPTIONS © DESCRIPTION OF GENERATING ALTERNATIVES @ EARLIEST AVAILABILITY OF ALTERNATIVES @ FINANCIAL ASSUMPTIONS © CAPITAL, O&M, FUEL COSTS © DESIRED MIX OF ALTERNATIVES @ PLANNING RESERVE MARGIN ®@ MAKES CAPACITY DECISIONS BASED UPON: - DESIRED MIX OF ALTERNATIVES (INPUT) - PLANNING RESERVE MARGIN (INPUT) BASED UPON VARIABLE OPERATING COST © LOSS OF LOAD PROBABILITY © COMPUTES ANNUAL COST OF POWER © LEVELIZED COST OF POWER © PRESENT WORTH OF PLAN © DISPATCHES GENERATING ALTERNATIVES 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 (RED) is represented in Figure 1.2. Initially, a price of electricity is assumed as input to the electrical demand model (RED Model). Using this price, as well as other input data and assumptions, the RED 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. RED 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 RED 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 RED 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 e PEAK DEMAND © ANNUAL ENERGY INPUT DATA COST OF AND ASSUMPTIONS AREEP ——* * power © SCHEDULE OF CAPACITY ADDITIONS © PRESENT WORTH OF PLAN 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 RED - the Railbelt Electrical Demand model (see Volume VIII). The RED 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 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. (2) 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 technology "slots" that allow up to seven hydroelectric projects to be evaluated in a single model run. PRODUCT ION-S IMULAT ION 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. F IXED-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 REFE 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 1A (Base Case Without Upper Susitna), as presented in Volume I of the stuay 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 00100 TITLE: RAILBELT PLAN 1A: BASE CASE W/O UPPER SUSITNA - 1-7-82CHA 00110 * 00120 * FYR THOR CONSTANT-$-SYS CONS.DISC cD FC PS-YEARLY-MWINC 00130 * 1980 0 tT: 5 0.03 rc f 2 . 5. 00140 * 00150 PRM: LOW-~-HIGH--~INC RMBAS RMINC BEGIN--~-WINDOW-~~~END 00160 * 30 +30 -10 0.0 0.0 -20 1980,2045 .20 00170 * 00180 REPORTS: CADD PRICES PINOUT PCOS TPCOS PDET TPDET 00190 * T T t = T Zz 7 00200 * 00210 REPORTS: CPRT CSUM INTR 00220 * z a r 00230 * 00240 *teRRRRARKRARERRRRAERAERAERE DEMAND UNCERTAINTY ***#*## 22828 e eR RRR RR RR REE R EH 00250 * 00260 * ~- - DEMAND AND ENERGY FOR EACH PERIOD OF EACH PATH AND 00270 * THE CONSERVATION DATA ARE ON THE SECONDARY FILE 00280 * 00290 2NDARY FILE:***, *** 00300 * 00310 k#ekAAARAAAAAARARRARARREE CAPACITY-DECISION (CD) *#®####RRERRERAEREEREREEE 00320 * 00330 TECHNOLOGY: AOGCT ANGCT AOGCC ANGCC ACST FCST F&GCD FGCC =---~ 00340 CAPFYR(MW) 379 82 0 139 0 69 266 0 0 00350 ADD+1 (MW) 0 0 0 0 0 0 0 0 0 00360 ADD+2 (MW) -110 +90 +178 0 0 0 0 0 0 00370 ADD+3 (MW) 0 0 0 0 0 0 -8 0 0 00380 ADD+4 (MW) 0 0 0 0 0 0 0 0 0 00390 ADD+5 (MW) 0 0 0 0 0 0 0 0 0 00400 ADD+6 (MW) 0 0 0 0 0 0 =i 0 0 00410 ADD+7 (MW) 0 0 0 0 0 “4 -8 0 0 00420 ADD+8 (MW) 0 0 0 0 0 0 -6 0 0 00430 ADD+9 (MW) 0 0 0 0 0 5 0 0 0 00440 ADD+10 (MW) 0 0 0 0 0 0 0 0 0 00450 ADD+11 (MW) 0 0 0 0 0 0 -18 0 e 00460 ADD+12 (MW) 0 -16 0 0 0 0 -19 0 0 00470 ADD+13 (MW) =9 0 0 0 0 0 0 0 0 00480 ADD+14 (MW) -14 -16 0 0 0 0 0 0 0 00490 ADD+15 (MW) =e 0 0 0 0 0 33 0 0 00500 ADD+16 (MW) 0 0 0 0 0 0 -102 0 0 00510 ADD+17 (MW) 0 0 0 0 0 0 -65 0 0 00520 ADD+18 (MW) -32 -18 0 0 0 0 0 0 0 00530 ADD+19 (MW) 0 0 0 0 0 0 0 0 0 00540 ADD+20 (MW) -18 0 0 0 0 0 0 0 0 00550 ADD+21 (MW) 0 0 0 0 0 0 0 0 0 00560 ADD+22 (MW) 29 =32 0 0 0 -25 0 0 0 00570 ADD+23 (MW) =53 0 0 0 0 0 0 0 0 00580 ADD+24 (MW) 0 0 0 0 0 0 0 0 0 00590 ADD+25 (MW) -58 0 0 0 0 -21 0 0 0 00600 ADD+26 (MW) 0 0 0 0 0 0 0 0 0 00610 ADD+27 (MW) 0 0 0 0 0 0 0 0 0 00620 ADD+28 (MW) -26 0 0 0 0 0 0 0 0 00630 ADD+29 (MW) 0 0 0 0 0 0 0 0 0 00640 ADD+30 (MW) 0 0 0 0 0 0 0 0 0 00650 * 00660 CAPLIM(MW) 379 1000 178 1000 1000 800 266 300 0 00670 MIX-LONG RN 0 0 0 -10 235 +33 0 02 0 00680 RES MARGIN ~ Tt fz, if iv z iT z r 00690 SIZE(MW) 25 70 50 200 200 200 70 i00 0 00700 1ST YR AVL 1983 1983 1983 1983 1988 1988 1980 1988 1980 00710 ADD JUS(MW) 99999 50 99999 50 50 50 50 50 50 00720 STUDIES (YR) 1 1 1 1 » z 1 ys 1 00730 LICENSE (YR) x 1 az 1 L 1 az L 1 00740 CONSTR. (YR) 1 - 2 3 4 4 4 2 L 00750 STARTUP (YR) 0 0 0 0 0 0 0 0 0 FIGURE 3.1. Example Primary Input Data File 6154 00760 * HYDRO TECHNOLOGIES 00770 HYDRO TECH: AEHYD ----- ----- ACHAK AALLI ----- TRANS 00780 CAPFYR(MW) 46 00790 ADD+1 (MW) 12 00800 ADD+2 (MW) 00810 ADD+3 (MW) 00820 ADD+4 (MW) 00830 ADD+5 (MW) 00840 ADD+6 (MW) 00850 ADD+7 (MW) 00860 ADD+8 (MW) 00870 ADD+9 (MW) 00880 ADD+10 (MW) 00890 ADD+11 (MW) 00900 ADD+12 (MW) 00910 ADD+13 (MW) 00920 ADD+14 (MW) 00930 ADD+15 (MW) 00940 ADD+16 (MW) 00950 ADD+17 (MW) 00960 ADD+18 (MW) 00970 ADD+19 (MW) 00980 ADD+20 (MW) 00990 ADD+21 (MW) 01000 ADD+22 (MW) 01010 ADD+23 (MW) 01020 ADD+24 (MW) 01030 ADD+25 (MW) 01040 ADD+26 (MW) 01050 ADD+27 (MW) 01060 ADD+28 (MW) 01070 ADD+29 (MW) 01080 ADD+30 (MW) 01090 * © NHOU GED DDOCC OOD OOO CONC OCOD OOO DOO CCOD v o HOS SCESCDDDDDDDCOCOC COCO DCOC COCO OOOO OOO 000 NHOO SGODDDCOCDDDOCCOCODODOC COCO COC OOOO COCO Ce SECOCSCDDDDDOCDORBDDDDOC CCC OOO OOO CCO SCHON CODDCOCDDDDDDBDQODDDONICOCOCOCOCOOCOCOCCO CHES SCOKDDDBDDRDD ODOC OCOCOCOCOC COC ODOC OOO CC0D v ° SCOCCOCSCCDDDDDDOMRODO BROCCO OCOOHOCOO 01100 CAPLIM(MW) 15 330 2000 01110 MIX-LONG RN +20 0 01120 RES MARGIN x F 01130 SIZE(MW) 90 330 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 0 01170 LICENSE (YR) 2 2 2 2 2 2 0 01180 CONSTR. (YR) 2 3 3 3 3 1 1 01190 STARTUP(YR) 0 0 0 0 0 0 0 01200 * FIGURE 3.1. (contd) 3.3 01210 01220 01230 01240 01250 01260 01270 01280 01290 01300 01310 01320 01330 01340 01350 01360 01370 01380 01390 01400 01410 01420 01430 01440 01450 01460 01470 01480 01490 01500 01510 01520 01530 01540 01550 01560 01570 01580 01590 01600 01610 01620 01630 01640 01800 01810 01820 01830 01840 01850 01860 01870 01880 01890 01900 01910 01920 01930 01940 01950 01960 01970 01980 01990 RRRERRARERKERKKRKKKKKEK PRODUCTION SIMULATION (PS) *****#eeeRRRRARKRE REAR * TECHNOLOGY: AOGCT ANGCT AOGCC ANGCC ACST FCST F&GCD FGCC ----~ * MAINT-PEAK 300 .300 .300 .300 .300 .300 .300 .300 .300 1-F.0.R. «92 692-692. .92.- 943.943 92s «92.92 EQ AVAIL -89 «.89° 685) 685.863 8638S BSS * Vc (M/KWH) 4.4 4.4 1.6 1.6 0.6 0.6 4.4 1.6 0 VCESC/YR .02 02.02 «02, .02-s«02s «0202.02 ENV (M/KWH) 0 0 0 0 0 0 0 0 0 HR(BTU/KWH) 12200 12200 8000 8000 10000 10000 12200 8000 0 PTU 1 2 1 2 4 5 6 3 10 * HYDRO TECHNOLOGIES HYDRO TECH: AHHYD ----- ----- ACHAK AALLI ----- TRANS * MAINT-PEAK .300 .300 .300 .300 .300 .300 .300 1-F.0.R. 095 695.9595 95S OS EQ AVAIL 194 «94.9494 94948 * Vc (M/KWH) 0 0 0 0 0 0 0 VCESC/YR 0 0 0 0 0 0 0 ENV (M/KWH) 0 0 0 0 0 0 0 * UTIL FACTOR .50 .44 .50 .50 .50 .50 0 = - FUEL COST CONSIDERATIONS - FUEL TYPE: 1 2 3 4 5 6 7 8 9 10 FUEL COST ($/MMBTU) FYR 0.44 1.11 5.51 1.31 1.60 6.25 1.13 1.00 2.00 *** PYR+1 0.46 1.09 5.51 1.34 1.63 6.38 1.15 1.00 2.00 *** FYR+2 0.45 1.10 5.51 1.37 1.66 6.50 1.17 1.00 2.00 *** FYR+3 0.46 1.09 5.51 1.40 1.69 6.63 1.19 1.00 2.00 *** FYR+4 0.47 1.10 5.51 1.43 1.72 6.67 1.21 1.00 2.00 *** FYR+5 0.54 1.10 5.51 1.46 1.75 6.90 1.23 1.00 2.00 *** FYR+6 0.61 1.37 5.51 1.49 1.78 7.04 1.24 1.00 2.00 *** FYR+7 0.68 1.58 5.51 1.52 1.81 7.18 1.26 1.00 2.00 *** FYR+8 0.76 1.68 5.51 1.55 1.84 7.32 1.29 1.00 2.00 *** FYR+9 0.89 1.87 5.51 1.58 1.87 7.47 1.31 1.00 2.00 *** FYR+10 1.46 2.11 5.51 1.62 1.91 7.62 1.33 1.00 2.00 *** FYR+11 1.58 3.59 5.51 1.65 1.94 7.77 1.35 1.00 2.00 *** FYR+12 1.79 3.68 5.51 1.68 1.98 7.93 1.37 1.60 2.00 *** PFYR+13 1.93 3.76 5.51 1.72 2.01 8.09 1.39 1.00 2.00 *** FYR+14 2.07 3.85 5.51 1.76 2.05 8.25 1.41 1.00 2.00 *** FYR+15 4.24 3.94 5.51 1.79 2.08 8.41 1.44 1.00 2.00 *** * FC ESC/YR +02 .02 .00 .021 .018 .02 .0160 .0000 .0000 *** VARIABLE G-A (M/KWH): 8.13 L.D.C.- .10 .20 .30 .40 .50 .60 .70 .80 .90 1.00 * PEAK .765 .670 .590 .540 .500 .465 .425 .385 .335 .260 * VMLDC .040 .100 .120 .120 .120 .120 .120 .110 .090 .060 * PEAK WIDTH: .025 * EMERGENCY ACTIONS AND UNSERVED ENERGY * TYPE: INRUPT INTIE] INTIE2 VLT RD VOL Cl VOL PB VOL C2 UE CAPACITY (MW) 0 0 0 0 0 0 0 #ee AVAILABILITY -90 .90 -90 90 .90 90 -90 0 *ee CAP PROP TO DEM\ Y f 7 T en T T ake OUT(T)/VAR(T) COST\ T a = = ud ey 7 T COST (M/KWH) 70 48 48 100 300 400 500 1000 COST. ESC/YR .0000 .0000 .0000 .0000 .0000 .0000 .0000 .0000 FIGURE 3.1. (contd) 3.4 02000 KARKRAAKRRARKRAKRAAREAEHKE PTXED CHARGE (FC) *## 88 RR RRERRRRARR RRR ERE RE RE ERE 02010 * 02020 TECHNOLOGY: AOGCT ANGCT AOGCC ANGCC ACST FCST F&GCD FGCC ----- 02030 * 02040 CC($/KW) 607 607 923 923 1892 1943 607 923 0 02050 CCESC/YR 2014 .014 .014 .014 .014 .014 .014 .014 .014 02060 OM($/KW-YR) 2.5 2.5 6.6 6.6 15.3 15.3 2.5 6.6 13 02070 * DELAYS: 02080 STUDIES 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 02090 LICENSE 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 02100 * 02110 * DISTR 02120 TL 24 20 20 20 20 20 20 20 20 20 02130 BL a0 30 30 30 30 30 30 20 30 30 02140 * FIXED-CHARGE RATES: 02150 20490 = .0535 .0535 .0535 .0535 .0535 .0535 .0697 .0535 .0535 02160 * HYDRO TECHNOLOGIES 02170 HYDRO TECH: AEHYD ----- ----- ACHAK AALLI ----- TRANS 02180 * 02190 CC($/KW) 2610 0 0 4053 7710 0 1000 02200 CCESC/YR 2014 .014 .014 .014 .014 .014 .014 02210 OM($/KW-YR) 22 22 22 6.5 22 0 0 02220 * DELAYS: 02230 STUDIES 0.0 0.0 0.0 0.0 0.0 0.0 0.0 02240 LICENSE 0.0 0.0 0.0 0.0 0.0 0.0 0.0 02250 * 02260 TL 25 25) 25 25 25 25 25 02270 BL 50 50 50 50 50 50 35 02280 * FIXED-CHARGE RATES: 02290 +0399 .0399 .0399 .0399 .0399 .0399 .0490 02300 * nase DISTRIBUTION CC($/GWH): 4000 DESC/YR: .0140 LOSS AND UNACC: .080 02320 * 02330 GENERAL: PYR-ASSETS INFLATION ITC ITC-NOR CWIP AFUDC 02340 * +624E09 -000 0.0 = 0.0 076 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 ooa0e : EX. RATE BASE .454E09 .381E09 .334E09 .292E09 .256E09 .224E09 .197E09 aaa * RATE-BASE GROWTH FYR-1: .000 REGULATORY LAG(YRS): 0 cao *HIST.CAP.COST: .030 MAR.TAX RATE: 0.0 CASH PCT.INT.PMTS: 1.00 440 * 02450 *PUTURE CAPITAL COST: .030 FIGURE 3.1. (contd) S50 Line Number Old New 100 100 120-130 120-130 150-160 150-160 180-190 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. 320 Line Number 01d New AREEP (Over/Under Version) Modifications Output Models that must be run for Report output to be meaningful co PSC CPRT X x CSUM Xx xX Xx INTR xX X CPRT - the capacity and energy generation report. One table 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 230-400 None TREE - Not used (NU) as input parameters in the AREEP version PERIODS - NU YRS/PERIOD - NU 3.7 Line Number Old New 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 440 330 TECHNOLOGY: - NC 770 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 "A" are assumed to be located in the Anchorage-Cook Inlet area, whereas technology names beginning with an "F" are assumed to be located in the Fairbanks-Tanana Valley area. 3.8 Line Number ‘ Old New AREEP (Over/Under Version) Modifications 450 340 CAPFYR(MW) - NC 780 460-570 350-640 ADD+1(MW) - NC 790-1080 580 650 These lines must be blank, except for the asterisk(*) 1090 in column 7 and the line number in columns 1-5. 590 660 CAPLIM(MW) - NC 1100 600 670 MIX-LONG RN - Note that in AREEP the entries on lines 1110 670 and 1110 should add to 1.0. 610 680 RES MARGIN - NC 1120 620 690 SIZE (MW) - NC 1130 630 700 1ST YEAR AVL - NC 1140 640 710 ADD JUS(MW) - NC 1150 650 720 STUDIES(YR) - NC 1160 660 730 LICENSE(YR) - NC 1170 670 740 CONSTR.(YR) - NC 1180 680 750 STARTUP(YR) - NC 1190 3.9 Line Number Old New 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 None 1450 None 1470-1790 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. 1-F.0.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 T 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. UTIL FACTOR - annual capacity factor in decimal percent for hydro technologies (technologies 10 through 16). FUEL COST ($/MMBTU) - fuel cost in dollars per million BIU 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. 3.10 Line Number Old New None 1800 None 1810 810 1830 830-850 None 870-890 1850-1860 None 1870 AREEP (Over/Under Version) Modifications This line must be blank except for the asterisk (*) in ) column 7 and the line number in columns 1 through 5. 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. VARIABLE G-A(M/KWH) - NC The contents of these lines do not exist as data input parameters in the AREEP version. L.D.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 loaa and annual energy input data. P.ENRG and P.YR do not exist as data input parameters in the AREEP version. VMLDC - Percent of the load duration curve (LDC) 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 VMLDC values to adjust the LDC 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 - _ Energy YLFR = Beak * 8-76. The area under the typical LDC presented in line 1860 is calculated in AREEP. The area under the LDC (YLF) and the YLFR calculated should be equal. If they are not equal (within 1% of each other), a new LDC is defined by decreasing or increasing the area under each segment of the typical LDC by the corresponding VMLDC 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 DEM? - 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 OM($/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 S12 Line Number did New AREEP (Over/Under Version) Modifications 1160 None FIXED-CHARGE PROFILES - NU 1170 None J - NU 1180 None TL/2 - NU 1190 None TL - NU 1200 None TL+1 - NU 1210 None BL - NU None 2140-2150 FIXED-CHARGE RATES - revenue requirements for each year 2280-2290 as a percent of installea capital cost in decimal percent. 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 1280 2360 YEAR - NC 1290 2370 EXIST. DEBT - NC 1300 2380 EX.DEBT INT. - NC 1310 2390 EX.RATE BASE - NC 1320 2410 RATE-BASE GROWTH FYR-1 - NC REGULATORY LAG(YRS) - NC 3.13 Line Number Old New AREEP (Over/Under Version) Modifications 1340 2430 HIST. CAP. COST - NC MAR.TAX RATE - NC CASH PCT. INT. PMTS - NC 1360 None INTEREST COVERAGE - NU COST OF COMM - NU COST OF PREF - NU COST OF DEBT - NU PCT. ASSETS - NU MAR. COST - NU None 2450 FUTURE CAPITAL COST - The cost of capital in decimal percent. NOTE: This should be with inflation rates and full cost escalation rates. 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 (FYR), the required peak demand in megawatts and annual energy in gigawatt hours are entered for each demand path (low, medium, and high) as follows: Columns Value Type YEAR 2-5 Integer LOW - (Low demand path) PEAK (MW) 8 - 16 decimal ANN (GWH) 17 - 25 decimal 3.14 kekeneneneeeeeeeEEE® DEMAND AND ANNUAL ENERGY *****teeeaeeeeee * —= = = DELIVERED ELECTRICITY - - - - ~ * PATHS: LOW MED HIGH YEAR PEAK(MW) ANN(GWH) PEAK(MW) ANN(GWH) PEAK(MW) ANN(GWH) * ANCHORAGE: 1980 414.9 2025.7 414.9 2025.7 414.9 2025.7 1985 496.4 2423.5 496.4 2423.5 496.4 2423.5 1990 616.2 3008.5 616.2 3008.5 616.2 3008.5 1995 719.7 = 3533.1 728.2 3607.6 736.7 3686.0 2000 802.4 3936.6 810.9 4011.1 819.4 4089.5 2005 897.8 4402.4 906 .3 4476.9 914.8 4555.3 2010 1064.0 5213.7 1072.5 5288.1 1081.0 5366.6 * FAIRBANKS: 1980 113.4 486.6 113.4 486.6 113.4 486.6 1985 155.0 665.1 155.0 665.1 155.0 665.1 1990 269.0 1154.5 269.0 1154.5 269.0 1154.5 1995 269.5 1156.8 269.5 1156.8 269.5 1156.8 2000 208.0 892.5 208.0 892.5 208.0 892.5 2005 184.9 793.3 184.9 793.3 184.9 793.3 2010 185.1 794.4 185.1 794.4 185.1 794.4 * GLENNALLEN: 1980 8.5 38.6 8.5 38.6 8.5 38.6 1985 10.3 47.2 10.3 47.2 10.3 47.2 1990 13.0 59.6 20.8 92.6 28.5 125.7 1995 16.9 77.3 24.7 110.4 32.4 143.4 2000 21.2 96.7 28.9 129.8 36.7 162.8 2005 25.7 117.6 33.5 150.7 41.2 183.7 2010 31.1 142.1 38.8 175.2 46.6 208.2 FIGURE 3.2. Example Secondary Input Data File 3519 LOAD MANAGEMENT AND CONSERVATION = =~ - = ~ * P-COST (M/KWH) T-COST(1980$ X 1000) PEAK (MW) YEAR ANN(GWH) ANCHORAGE: * ececocceoec CCC CCC CSCO COSCO OCO COCO OOCDGSe eeeccc CoC CCC COC CC OC OCC COG OCOOCOO eeepc DD COCO COC OOO COO C OSGOOD COOCCOCOD SODDCOCCCCOCOOCDO COO COC COSoO CCCCOCCD eceecoC CC OCC OOOO OOO OCC oOeD OCOGD0eG ecoecccDD CC OOO COCO OC COSC OOO COC OOCD00So eeoCDD CCDC COCO OCOOODOOC CC OSCOCCOCSOCSCS eCSCCDCOC COCO DCCC OCO COCO CCC COO OCC D0DS LOW: 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 eceoccn0DDC COC COCO COO OC OOOO COC CC0RG eSD9DD90900CCCCOCCCCOCC OCC OCC CCCCCCSD eceecece eC C CCC OOOO OO OOOO COOOCOCORe eSeCCDDD DOO C COC OCC OCC OOOO OC OCC COOO ececececDCCCCCC COCO OO OCC C OOO Coe OCOOD ecceccc0cc CC COC OCC COO OOOO COCO CoCOOS eoccceccC CC COC OOO OOO COCO CCCOCCCOSGCGCSG eCDDDDDDCCO DCC COC OCC OOOO COCCCODCOS 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 MED: (contd) FIGURE 3.2. 3.16 eceecee eo oC COC COO OOO OOO OOO COCO OCO ecococecoeoee CCC COCO OOOO OOOO OCCCCOOO eooeeeececoc cee eee CODD CCC eD99000 eococoece ee coc CCC COCO OCCOC CCC CCC COCO eceeoeecoCCcC CCC CCC OCC CCOCCAOCCCOD eooDDD CCDC CC CCC COCO OCC COC OCC CCOOSO eoecaeepoD COC OOD COC OCOCO OOOO OO DOC OCoO CSOCCCCOCCOCCC CC OCC COCO OCC COC OCOCOeGCOo HIGH: 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 PAIRBANKS: LOW: 1980 1981 1982 1983 e2CDDDDDCCOC COCO OCO OCC OCOCOCOCOCOCODO eococcn90DCD CC OCC C CCC OOOO COC OCC COCO COD ececeoecoo0C CC CCOCOC COCO OOOO OOCOOCO0D ecoocecccc CC CCC CCC C OO DOO OCOCOCCCDOO0O ecoeecc99c CC CCC CCC COCO OOO OCOOCCC COCO ecocc0c0ccC CC CCC COCO OCC COCO COCCOCOOCOD eceoececg9DC COCO COCO OOO COCO OOCOCCCOCOD eCCDDDCC OCC CCC COCO OOOO O COCO CCC CoD 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 (contd) FIGURE 3.2. 3.17 ececc9cc CCC CCC OCC CO00dSG GeGGGGCOCD ecocececcoccC CCC CCC COC COs COCO COCCOS eeseescosescscecoC COD CCCOCO COD COCOCRG eccececcc cc CSCC COC COCO CCe COCO OCOOCD eccececec CoCo COC OOOO OCOCO OCOCOCOCOCCD SPECCSDSCC COCO COCD OOO OOO C0D COG CCOCCCSD 2289909090900900000000000 Coee C0000 ecseecceoe ccc CCC CODCOD C COCO OCOD OCCOO 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 MED: ecseeeeccecceC COD GOGO OO OOOO COCO CCGO ee9erescncccC CCC CSCC CODCOD CCC OCOCOD eeeeeecccCc CCC OOOO OC COC OCC OCC COD eccececc0cC9 CCC CDC CCC CCC ODO COCO DCOO eceeeec090c CCC CCB OC OCC OCCA CCOCOCOOG eSeCCDeCDDDCC COCO OCOC COCO OCOC COC COO CCO C0 - d SeCCCDDDC COSCO OCOCOC ODOC OO OOO CCC COCO HIGH: 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 (contd) FIGURE 3.2. 3.18 GLENNALLEN: LOW: 1980 1981 1982 1983 eVccTeC COCO CC CCC COCO COO C OCC OCCCOCOO ececcccecc CCC CCC CCC CCC COC COC OCC oO ececcecce CCC CCC COC COBO COO OOO COO00 eoccececco CCC CCC C OCC COC COCCOCCCCO @PeSCCDDOCOCCCOCOC OOOO OCO COCO OOCCC OO SCCCDDDODCCOC COCO DC ODOC OC COC OC OCCCCDO PSCCDDCCOCCOCOCC CCC COCO CCC OOO OCCOD eocccoeC CC ODOC COCO COO OCOCC COC OOO COCOCD 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 MED: eccc009cC COCO BF OCC OOOO OCC COC OCCCCCCOCe eccoccePeC CCC DCCC OOOO C CC OCC COCO CCOD eccceeDD COC COD OCOCOOOC CCC CCC COCO OD ecccece CCC CCC OCC OCC OC CCC OC OCC OCCCOCD ecrecDcQDDDOC COCO COCO OOOO OOOO OCCCCODO SOCCCCOCC COO D OCC COCO OCC OCOD OOCCCCoO SSDDDDDD DDO COCD DDO BOO OCD COCO OCOCCe SCPCCDDDODC COC COCO O DOOD COCO COCCOCOCOODO 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 (contd) FIGURE 3.2. 3.19 eooecccscocacc eee DCe SC CCOCRODCD00 CT Tr) eceeec COC Ce OOCC OCC OCA COCGOCCAOSCOCO ecooccc CCC CCC CC CCC CO COCO CCOCOCCO SCOCODDDDDDDDODDOCOCOCO OCOCOGOCOOOCDODO SCODSTDDDDDDCDDCODDSCCOD CO CCDC OCOCCOO POCCTDDCCOOCDCCODOCOOCO COO GCOOCCO0O eCDDDDDCC ODOC CCC OC COOOD COCO CCOCOCCOOS BOANMEON OF DHOCHAAMTFNOKODHCHAMTNHOr DHS YVDDDDDDDDDDAAAADADAAANDGOOOOSSOSOSOH AANADAAAHDANAHAAAANANANHAOOCOSCOOSCOCSCSCSO BAA HAHAHAHA HAMA HAHAH AAMAAANNANNNANNANNNNNN (contd) FIGURE 3.2. 3.20 Columns Value Type MED - (Medium demand path) PEAK (MW) 27 - 35 decimal ANN (GWH) 36 - 44 decimal HIGH - (High demand path) PEAK (MW) 46 - 54 decimal ANN (GWH) 55 - 63 decimal 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 YEAR 2-5 integer ANN (GWH) 7 - 16 decimal PEAK (MW) 17 - 26 decimal T-COST 39 - 48 decimal (FYR $ X1000) P-COST (M/KWH) 54 - 63 decimal 3.21 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 1A (Base Case Without Upper Susitna), as presented in Volume I of the study series. In addition to describing 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 2'v RAILBELT PLAN PEAK DEMAND & YEAR 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 DEMAND 562. 589. 615. 641. 667. 693. 744, 796. 847, 898, 949. 974, 998, 1022, 1047. 1074. 1076. 1082, 1087. 1092, 1098, 1114, 1130, 1146. 1162. 1178. 1214, 1250, 1286. 1322. 1358, 1A: BASE CASE W/O UPPER SUSITNA = 1-7=82CHA 1980-2010, PRM= CAPACITY (Md) BY YEARS HYDRO 46. 58. 58. 58. 129. 129, 129, 129. 219. 219. 219, 219, 430, 430, 430. 437. 545. 545. 545. 545. 545. 545. 875. 875. 875. 875. 875. 875. 875. 875. 875. aAoGcT 379. 379. 269, 269. 269, 269. 269, 269. 269, 269. 269, 269, 269. 260. 246. 232. 232. 232. 200, 200, 182. 182, 163. 110, 110, 52. 52. 52. 26. 26. 26. ANGCT AOGCC 82. Oo. 82. 0. 172. 178, 172. 178, 172. 178. 172. 178, 172. 1768, 172. 178. 172. 178. 172. 178. 172. 178, 172, 178, 156. 178, 156, 176. 140, 178, 140, 178, 140, 178, 140, 178. 122. 178, 122, 178, 122. 178. 122. 178. 90. 178. 90, 178, 90. 178, 90. 178, 90. 178, 90. 178, 90. 178. 90. 178, 90. 178, FIGURE 4.1. 0,300, TREE PATH= 222222 ANGCC 139. 139. 139. 139. 139, 139, 139. 139, 139. 139. 139. 139, 139, 139, 139, 139. 339. 339. 339. 339. 339. 339. 339, 339. 339. 339, 339. 339. 339. 339. 339. CPRT Report ACST FCST 69, 69. 69. 69. 69. 69. 69. 65. 65. 60. 60. 60. 60. 60. 60. 60. 60. 260. 260. 260. 260. 260. 235. 235. 235. 214. 214, 214. 214, 214, 214. F&GCD 266. 266. 266. 258. 258, 258. 257. 249, 243. 243. 243. 225. 206. 206. 206, 173. 71. 6. 6. 6. 6. 6. 6. 6. 6. 6. 6. 6. 6. 6. 6. CPRT REPORT FGCC o. o. 0. 0. 0. 0. 0. 0. 0. o. 0. 100. 100, 100, 100, 100, 100. 100, 100, 100, 100, 100. 100, 100, 100, 100, 100, 100, 100, 100, 200. e'v RAILBELT PLAN 1A: BASE CASE W/0 UPPER SUSITNA = 1=-7-82CHA ENERGY GENERATION (GWH) BY YEAR? YEAR 1980 19861 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 ENERGY 2755. 2881. 3008. 3134, 3260. 3387. 3629. 3870, 4112, 4354. 4596, 4730. 4864, 4997, 5131. 5265. 5299, 5333. 5368, 5402. 5436. $520. 5603, 5687, 5771. 5855. 6035. 6216, 6397. 6578. 6758. HYDRO 254. 254. 254. 254. 254. 254. 254. 648, 648. 648. 648. 679. 679. 679. 710, 710, 710. 710, 710. 710, 710, 2155. 2155. 2155. 2155. 2155. 2155. 2155. 2155. 2155. AOGCT 2013. 763. 835. 940, 405. 1338. 1423, 1237. 1344, 953. 1861, 749, 857. 964, 12. 1980-2010, ANGCT 4. 2. 4. 1. 4. 7. 17. 1. PRM= AQGCC 9. 1366. 1368, 1373, 1400, 1403. 1400, 1400. 1402. 1410. 1410, 1410. 1410, 1390. 1105, 209, 29. 32. 37. 40. 49, 5. 6. 7. 12. 16. 20, 24, 10, 3. FIGURE 4.1. 0.300, TREE PATH= 222222 ANGCC 46. 20. 32. 13. 865. 62. 105, 45. 67. 1080, 245. 19. 28, 38. 1057. 2235. 966. 992. 1020. 1045, 1110, 164. 176. 189, 360, S31. 702, 875. 1049, 1222, (contd) ACST 0. Oo. 0. oO. 0. 0. 0. 0. 0. 0. 0. 1578. 1584, 1611. 1611. 1611. 1611, 1611. 1611. 1611. 1611. 1611. 1611. 1611. 1611. 1611. 1611. 1611. 1611. 1641, FCST 537. 537. 537. 537, 458. 537. 537. 537. 496. 457. 496. 427. 436. 443. 496, 496, 2013, 2019, 2020. 2026. 2034, 1668. 1738, 1809, 1716. 1722. 1727. 1730. 1732, 1734, CPRT REPORT FGCC 0. oO. 0. oO. 0. 0. 0. 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 MEDIUM 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 unaer 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 SY RAILBELT PLAN PRN= YEAR 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 PvTC Lec 0.300 1A: BASE CASE W/O UPPER SUSITNA = 1-7-R2CHA TREE PATH= 222222 TOTAL ELECTRICAL REQUIREMENTS ANNUAL ENERGY (Gai) 2755. 2881. 3008, 3134. 3260. 3387. 3629, 3870. 4112. 4354. 4596. 4730. 4864. 4997, 5131. 5265. 5299, $333. 5368. 5402. 5436. 5520. 5603. 5687. 5771. 5855. 6035. 6216. 6397. 6578. 6758. PEAK (Mw) 562. 589. 615. 641, 667. 693. 144, 7196. 847, 898. 949, 974. 998, 1022. 1047, 1071. 1076. 1082, 1087. 1092, 1098. 1114, 1130. 1146, 1162. 1178. 1214, 1250. 1286, 1322. 1358. TOTAL cost 19808 - MILLIONS 113,23 118.64 129.79 135.54 136.22 127.89 139.21 155.25 180.20 204.09 193.02 218.61 258.16 267.80 279.44 320.29 339.58 355.52 361,12 376.26 381.78 388.00 418.64 423.46 428.88 436.72 449.34 462.62 476.46 491.05 515.32 5474.43 POWER cost M/KWH 41.1 41.2 43.2 43.2 41.8 37.8 38.4 40.1 43.8 46.9 42.0 46.2 53.1 53.6 54.5 60.8 64.1 66.7 67.3 69.7 70.2 70.3 14,7 74.5 74.3 74.6 74.5 74.4 74.5 74,7 76.3 58.0 ANNUAL, ENERGY (GWH) 2755. 2881. 3008, 3134, 3260. 3387. 3629. 3870. 4112. 4354. 4596, 4730. 4864. 4997. 5131. 5265. 5299, 5333. 5368, 5402. 5436. 5520. 5603. 5087. 5771. 5855. 6035. 6216. 6397. 6578, 6758, DELIVERED ENERGY PEAK caw) 562. 589, 615. 641. 667. 693. 744, 196. 847. 898. 949, 974. 998, 1022, 1047, 1071. 1076, 1082, 1087. 1092, 1098, 1114, 1130. 1146. 1162. 1178, 1214. 1250. 1286. 1322. 13568. FIGURE 4.2. CSUM REPORT TOTAL POWER cost cosr 19808 - M/KWH MILLIONS 113.23 41.1 1186.64 41.2 129.79 43.2 135.54 43.2 136.22 41.8 127.89 37.8 139.21 38.4 155.25 40.1 180,20 43.8 204.09 46.9 193.02 42.0 218.61 46.2 258.16 53.1 267.80 53.6 279.44 320.29 339.58 355.52 361.12 376.26 381.78 388.00 418.64 423.46 428.88 436.72 449.34 462.62 476.46 491.05 515.32 5474.43 CSUM Report LOAD MANAGEMENT AND CONSERVATION ELECTRICITY ANNUAL ENERGY (GWH) 0. oO. 0. 0. oO. oO. oO. oO. 0. Oo. 0. oO. 0. PEAK (MW) 0. 0. 0. 0. 0. 0. 0. 0. oO. o. 0. 0. TOTAL cost 19808 - MILLIONS 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0,00 0.00 0.00 0.00 0,00 0.00 0.00 0.00 0.00 0.00 0.00 POWER cost M/KWH coccocoeecooecoccoocococoooooccooOoSD ui 6) Sele: oe) ei feel Ole 61 ele. sa. lelial © a @ 01 8) ss) 6 6 le fal & cooecoocoocococoooSe ooo OoCOoOCCOCOCOCOSD o ° 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: LOAD 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 "loss and unaccounted for" 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 "coincidence factor" 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. MANAGEMENT AND CONSERVATION ELECTRICITY: ANNUAL ENERGY - the amount of energy generation in gigawatt hours displaced by loaa 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 “coincidence factor" 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 i _ 1 + INFLA PVTC = Tryp + Peeve (Ho + COSC ) i=l where: TCeyp = total cost for the first year of the model LR = number of years in the planning horizon Ter vee 4 = 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 "real" 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 cost. That is, LPC = (PVTC x 1000)/ LR i ‘ 1+ INFLA “Fryar * 5 seve ( + CDSC ) | where: AEFYR annual energy for the first year of the model AEFyr+; = 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 8° RAILBELT PLAN 1A: BASE CASE W/O UPPER SUSITNA = 1°7-82CHA PRN= YEAR 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 0.300 TREE PATH= 222222 ANCHORAGE PEAK INSTAGLED ANNUAL ANNUAL DEMAND CAPACITY ENERGY GENERATION (Mw) (Mw) (Gwit) (GwH) 457.3 646.0 2229.4 475.3 658.0 2317.2 2316.4 493.3 816.0 2405.0 2404.9 $11.3 816.0 2492.8 2492.7 $29.2 816.0 2580.6 2580.6 547.2 816.0 2668.4 2928.3 575.4 816.0 2804.5 3064.3 603.5 816.0 2940.7 3200.1 631.7 906.0 3076.9 3336.7 659.8 906.0 3213.0 3472.6 688.0 906.0 3349.2 4136.3 713.0 906.0 3482.4 4182.0 738.0 1097.0 3615.7 4435.3 763.1 1088.0 3748.9 4558.8 788.1 1058.0 3882.2 4693.0 813.1 1051.0 4015.4 4572.1 831.9 1251.0 4106.8 4774.4 850.7 1251.0 4198.1 3317.1 869.4 1201.0 4289.5 3345.5 888.2 } 1201.0 4380.8 3377.7 907.0 1183.0 4472.2 3406.4 928.6 1183.0 4577.3 3480.8 950.2 1462.0 4682.4 3935.1 971.8 1409.0 4787.6 3948.4 993.4 1409.0 4892.7 3961.7 1015.0 1351.0 4997.8 4138.0 1052.0 1351.0 5178.3 4312.6 1089.1 1351.0 5358.8 4488.3 1126.1 1325.0 5539.3 4665.0 1163,2 1325.0 5719.9 4826.0 1200.2 1325.0 5900.4 4991.7 FIGURE 4.3. INTR Report LOLP DAYS/10 YR 10.593 0.356 1,007 0.201 1.283 2.145 6.701 2.356 4.334 0.207 0.091 0.000 0.001 0,003 0.016 0.016 0.008 0.023 0.025 0.043 0.048 0.002 0.007 0,012 0.078 0.140 0.224 0.537 0.860 0.275 6°v RAILBELT PLAN 1A: BASE CASE W/O UPPER SUSIINA = 1=7=82CHA TREE PATH= 222222 PRM= YEAR 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 0,300 PEAK DEMAND (Mw) 122.5 131.5 140.4 149.4 158.4 167.4 192.0 216.6 241.3 265.9 290.5 290.6 290.7 290.8 291.0 291.1 277.8 264.5 251.2 237.9 224.6 219.7 214.7 209.7 204.7 199.7 199.7 199.8 199.8 199.9 199.9 INSTALLED CAPACITY (Hw) FAIRBANKS ANNUAL ANNUAL ENERGY GENERATION (GwH) (GwH) 335.0 525.5 335.0 564.1 564.1 335.0 602.6 602.6 327.0 641.2 641.2 327.0 679.8 679.8 327.0 718.3 458.3 326.0 824.0 564.0 314.0 929.7 669.7 308.0 1035.4 717524 303.0 1141.1 BB1.1 303.0 1246.9 459.7 385.0 1247.4 547.8 366.0 1247.9 428.2 366.0 1248.4 438.4 366.0 1248.4 448.0 333.0 1249.3 692.7 231.0 1192.3 524.6 366.0 1135.2 2016.2 366.0 1078.1 2022.1 366.0 1021.0 2024.1 366.0 963.9 2029.7 366.0 942.5 2039.0 341.0 921.0 1668.4 341.0 899.6 1738.8 341.0 878.2 1809.2 320.0 856.8 1716.5 320.0 857.0 1722.7 320.0 857.2 1727.7 320,0 857.5 1731.8 320.0 857.7 1751.5 420.0 858.0 1766.6 FIGURE 4.3. (contd) INTERTIE MAXIMUM CAPACI CMW) TY eccoceoceccocooocoooaoocooocecooosooco e 6 6 6 6 6 8 O16 © Ce 6 6 6 6 46 0 @. 6! © 6 0)'6) 680s eceoscoocoooscoooooc@moooSooOSoOoOcCSOSCOSOSSCS ENERGY TRANSFER (GwH) 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. Al] 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 'A'. 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-Valaez 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-lanana 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-lTanana Valley technologies. A Fairbanks-Tanana Valley technology is identified in lines 330 and 770 of the input data by a technology name beginning with 'F'. 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 "Joss 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 (PDET and TPDET) The tables for the PDET and TPDET reports are identical to those described in the Over/Under 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 ] PRM F5-3 2 Plevp F10.4 5 ; PCE ves] F10.4 etc. etc. etc. e e e e e e e e e LR+2 PlevRsLR F10.4 where: PRM = planning reserve margin for the following set of costs PCevR si = 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+2 are 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 program 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.1. Subroutines in Order of Call Subroutine Line Number of Call New Mod UC INCONS MODO 1680 X SETPAR MOD02900 X READSF MOD03870 X DEMPYR MOD04250 X DETLDC MOD04670 X FALPHA 3230 INICEP 3660 X INTEG 3670 X INTEG 3680 X SGROW 3740 x SORDER 3750 X SCPRS 3930 X SCPROB 3950 X CAPCON 4430 x FAIRCK MOD05460 X FLORDR MOD05850 X LORDER MOD05870 X LORDER 4860 X PRMGN 4880 X PRODUC 5380 X CAPPRE 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 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 Subroutine PRODUC CAPPRE BALPRE BALLDC HYDRO BALERU PRTPD EXPEN EVC SVNUMS SVENG PRTAPC DPRNT DEMPRT PROLEV LEVEL LEVEL TERF IX FOME SC TERM PRMGN CEPMOD START CAPCUR AMORT FXCHAR FXCHRL FXCWIP CAAHOR DIST PLMEXC COMF IN FIXITC QOST FIXITC QOST NORITC CEPFIX FIXOM PRTFIN WRTPRC WRT SUM WRTINT PTCOST PTCOST TABLE 5.1. 6830 21760 21770 21930 21980 22000 22290 22360 M0D09340 MOD09400 MOD09470 22400 7530 MOD07290 7570 20650 20840 7640 7760 7810 45840 7880 7890 7900 7910 7920 7930 7940 7950 7960 7970 7980 34808 34200 34480 34580 34900 7990 8050 8320 8750 MOD07630 MOD07690 9790 10010 5.3) (cont'd) Line Number of Call New ~< >< >< >< Mod >< >< >< >< >< OK OO <>< >< >< >< >< ~OK OOK OK OOK OOK OOK OK ~< >< >< < >< >< >< >< >< >< >< >< SUBROUTINES 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: ALPHA = 0.5 FCPER1 = 20. FCPER2 = 5. FCPER3 = 6. COINF = 0.97 ALLINT = 260. (GWh) 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 M0D6850) 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) . 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). 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 5.4 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. The following parameters are former data input variables: =z =< uv in " on =z nan OQ m =z " w RSNOT = .FALSE. PERFCS = «FALSE. The number of periods is set to 6. The number of years per period is set to 5. 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. These are not used in the AREEP version. Subroutine SETPAR - (0013570) This subroutine sets the values of former input parameters. These variables and their values are: HYEN(1) = HYEN(2) = HYEN(3) = HYMULT(1) HYMULT(2) HYMULT (3) HYPROB(1) HYPROB(2) HYPROB(3) 0. 0. 0. 1.0 1.0 1.0 0.0 1.0 0.0 The maximum available energy from the hydro technologies. The HYEN array is not used in the AREEP version. CAPACITY MULTIPLIER HYDRO PROBABILITIES: In AREEP, normal weather conditions are assumed for each year. 5.5 HYINC = 0. NORMAL WEATHER HYDRO ENERGY INCREASE PER MW ADDED (MWH) FTIME(1) = 1.0 P.YR. In AREEP, the peak season is 100% of the year. FENG(1) = 1.0 P.ENRG. 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. COV(1) = 2.0 INTEREST COVERAGE cOv(2) = 3.0 Interest - coverage ratios. COv(3) = 4.0 cov(4) = 5.0 COV(5) = 6.0 5) 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 READSF (M0D013930) 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. 5.6 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 - (M0D16080 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 - (M0D17620 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 - (M0D18570 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 - (M0D19400 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. Sal Subroutine SVENG (M0D20280) 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 - (M0D21830) 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 user's 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 DAT. 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 DAT 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 DIF. 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 DAT. 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 files with different filenames or filetypes (e.g., COPYFILE INTR PRT * INTR OLD =). 6.1 FORTRAN Type of Filename Filetype File Description Unit # Access FINOUT out report Z write CADD out report 2 write PDET out report 3 write PCOS 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 ll 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.1. AREEP File Assignments 6.2 RUNNING THE PROGRAM The AREEP program has been installed to run from a user's 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 "exec" file. An annotated listing of the EXEC #2 command file currently used to invoke AREEP is given in Figure 6.2. 1) 2) 3) 4) 5) 6) 7) The steps in running AREEP are as follows: Log on to the system. Prepare the input files. If necessary rename or copy the input files to files which conform to the filename and filetype conventions given in Figure 6.1. Invoke the AREEP program "exec" file. The command for this is "AREEP". After processing, one of the following two messages will appear: "SUCCESSFUL FINISH" - This means that the program has terminated normally. All report files are printed at the central site. "Il UNSUCCESSFUL FINISH" - 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. The output files are available in the user's disk directory. They may be listed or edited from the terminal. 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 User's Guide. 6.3 &TRACE OFF &IF X&l = X? &GOTO -INFO wore oe ne e= Display greeting CLRSCRN &BEGPRINT 8 AREEP -- A LASKA R AILBELT E LECTRICAL E NERGY P LANNING MODEL ---------- Make file assignments = OUTPUT FILE (PRINT) FI FTO1FOO1 DISK FINOUT OUT Al (RECFM FM LRECL 132 BLOCK 132 « OUTPUT FILE (PRINT) FI FTO2F001 DISK CADD OUT Al (RECFM FM LRECL 132 BLOCK 132 a OUTPUT FILE (PRINT) FI FTO3F001 DISK PDET OUT Al (RECFM FM LRECL 132 BLOCK 132 = OUTPUT FILE (PRINT) FI FTO4F001 DISK PCOS OUT Al (RECFM FM LRECL 132 BLOCK 132 2 INPUT FILE FI FTO5SFO01 DISK AREEP DTF Al id OUTPUT FILE (PRINT - ALSO HAS SYSTEM ERROR MESSAGES) FI FTO6FO01 DISK TREE OUT Al (RECFM FM LRECL 132 BLOCK 132 = OUTPUT FILE (PRINT) FI FTO7F001 DISK PRICES OUT Al (RECFM FM LRECL 132 BLOCK 132 = OUTPUT FILE (PRINT) FI FTO8FO01 DISK TPDET OUT Al (RECFM FM LRECL 132 BLOCK 132 = OUTPUT FILE (PRINT) FI FTO9FO01 DISK TPCOS OUT Al (RECFM FM LRECL 132 BLOCK 132 a OUTPUT FILE (PRINT) FI FT1OFOO1 DISK TCOST OUT Al (RECFM FM LRECL 132 BLOCK 132 z OUTPUT FILE (PRINT) FI FT11F001 DISK DEBUG OUT Al (RECFM FM LRECL 132 BLOCK 132 G OUTPUT FILE (PRINT WITH CARRIAGE CONTROL) FI FT12F001 DISK CPRT PRT Al (RECFM FM LRECL 132 BLOCK 132 Zz OUTPUT FILE (PRINT WITH CARRIAGE CONTROL) FI FT13F001 DISK CSUM PRT Al (RECFM FM LRECL 132 BLOCK 132 = OUTPUT FILE (PRINT WITH CARRIAGE CONTROL) FI FT14F001 DISK INTR PRT Al (RECFM FM LRECL 132 BLOCK 132 - OUTPUT FILE (DATA) FI FT19FOO1 DISK AREEP DAT Al = INPUT FILE FI FT20F001 DISK RED DAT Al ween e en Execute AREEP AREEP FIGURE 6.2. AREEP EXEC 2 Command File 6.4 ~&IF &RETCODE NE 0 &GOTO -DONE crocessso= Successful run - Print reports at central site CP SPOOL PRT SYSTEM * PRINT FINOUT OUT Al PRINT CADD OUT Al PRINT PDET OUT Al PRINT PCOS OUT Al PRINT TREE OUT Al PRINT PRICES OUT Al PRINT TPDET OUT Al PRINT TPCOS OUT Al PRINT TCOST OUT Al PRINT DEBUG OUT Al PRINT CPRT PRT Al (CC PRINT CSUM PRT Al (CC PRINT INTR PRT Al (CC * CP SPOOL PRT * CLOSE * &TYPE AREEP -- SUCCESSFUL FINISH &EXIT 0 * a Type error message -DONE &TYPE &RETCODE &TYPE AREEP -- !! UNSUCCESSFUL FINISH &EXIT * Seana Display the following when user types "AREEP ?" -INFO 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. 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 '‘OUT' FILES TO THE LINE PRINTER. NOTE THAT ALL SYSTEM ERROR MESSAGES GO TO THE FILE 'TREE OUT'. &EXIT 0 FIGURE 6.2. contd 6.5 This message is: SUB DETLDC: ITERATION LIMIT OF 10 REACHED PATH = >» YEAR = >» XLDC = XALF = 1 | | WERK = 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. 6.6 APPENDIX A AREEP QUICK REFERENCE INPUT Qld Line New APPENDIX A AREEP QUICK REFERENCE INPUT General Parameters 100 130 160 100 130 160 TITLE FYR THOR CONSTANT-$-SYS CONS .DISC cD FC PS YEARLY MWINC LOW HIGH INC Title of model run (alphanumeric, columns 13-72). First year of model (integer, columns 10-13). Terminal horizon, in years (integer, columns 18-21). Constant dollars in TCOST and TREE reports ($) and cost levelization with respect to constant system size (SYS) (T or F, columns 33 and 37). Consumer discount rate (decimal percentage, columns 45-49). Capacity-decision model included (T or F, column 55). Fixed-charge model included (T or F, column 59). Production-simulation model incluaed (T or F, column 64). Production costing every year (T or F, column 71). Costing once per period is done if F is entered. Megawatt increment (decimal value greater than 0, columns 72-77). Lowest planning reserve margin to be evaluated (decimal percentage, columns 14-18). 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 190 Line New 190 220 RMBAS RMINC BEGIN WINDOW END CADD PRICES FINOUT PCOS TPCOS PDET 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, column 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, column 21). Cost-summary report (T or F, column 31). Anchorage-Fairbanks intertie report (T or F, column 41). A.2 Line General Parameters TECHNOLOGY HYDRO TECH CAPFYR(MW) ADD CAPLIM( MW) MIX-LONG RN RES MARGIN SIZE (MW) 1ST YR AVL ADD JUS(MW) Old New Capacity-Decision (CD) 440 330 770 450 340 780 460-570 350-640 790-1080 590 660 1100 600 670 1110 610 680 1120 620 690 1130 630 700 1140 640 710 1150 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 'A' is considered an Anchorage technology, similarly a name beginning with an 'F' 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. Capacity limit for each technology (same columns as lines 330 and 770). Five or six 9's should be entered when capacity is unlimited. Target long-run technology mix (same columns as lines 330 and 770). Entries on lines 670 and 1110 should total to one. 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). 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 “small plant". First year model can make decisions to install or delay plants (integer, same columns as lines 690 & 1130). Planning reserve margin justification for adding a new plant (same columns as lines 330 and 770). Five 9's means don't add under any circumstances. A.3 New Old Line General Parameters Capacity-Decision (CD) (conta) 650 660 670 680 720 1160 730 1170 740 1180 750 1190 STUDIES (YR) LICENSE (YR) CONSTR (YR) STARTUP (YR) Production Simulation (PS) 720 730 740 750 770 780 790 1230 1350 1250 1370 1260 1380 1270 1390 1290 1410 1300 1420 1310 1430 1320 TECHNOLOGY HYDRO TECH MAINT-PEAK 1-F .0.R. EQ AVAIL VC (M/KWH) VCESC/YR ENV (M/KWH) HR (BTU/KWH) 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). 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 ana 770 (not read by program). Fraction of annual maintenance scheduled in peak season (same columns as lines 330 and 770). 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). 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. 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). Heat rate in Btu/kWh (same columns as line 330). A.4 Line Old New General Parameters Production Simulation (PS) (contd) 900 940 1330 1450 1480-1790 1810 1830 1860 1870 1880 1920 FTU UTIL FACTOR FUEL COST ($/MMBTU) FC ESC/YR VARIABLE G-A (M/KWH) PEAK VMLDC PEAK WIDTH TYPE 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). Utilization factor for technologies 10-16 (decimal percent, same columns as line 770). 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. Fuel cost escalation per year from the last year entered in lines 1480-1790 (decimal percent, same columns as lines 1480-1790). Variable general and administrative costs in mills/kWh (columns 28-33). 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). 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). 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. A.5 Line General Parameters Production Simulation (PS) (contd) Old New 950 1930 960 1940 970 1950 980 1960 990 1970 1000 1980 Fixed Charge (FC) 1040 1060 1070 1080 1100 1110 2020 2170 2040 2190 2050 2200 2060 2210 2080 2230 2090 2240 CAPACITY (MW) AVAILABILITY CAP PROP TO DEM? OUT(T)/VAR(F) COST? COST (M/KWH ) COST .ESC/YR TECHNOLOGY HYDRO TECH CC($/KW) CCESC/YR OM( $/KW-YR) STUDIES LICENSE 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). Cost allocated to "outage" or "variable" cost category (T or F, columns 28, 35, 42, 49, 56, 63, 70, 77). Cost in mills/kWh (same columns as line 1920). Annual cost escalation (same columns as line 1920). Same as lines 330 and 770 (not read by program). Capital cost per kilowatt (same columns as lines 330 and 770). Capital cost escalation rate per year (decimal percentage, same columns as lines 330 and 770). Fixed operating and maintenance cost per kilowatt per year (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). A.6 Old Line New General Parameters Fixed Charge (FC) (contd) 1140 1150 1230 1260 2120 2260 2130 2270 2150 2290 2310 2340 TL BL FIXED-CHARGE RATES DISTRIBUTION CC($/GWH ) DESC/YR LOSS AND UNACC FYR-ASSETS INFLATION ITC ITC-NOR CWIP AFUDC Tax life in years (integer, first entry for "distribution" is columns 13-16 and remaining columns are the same as lines 330 and 770). Book life in years (integer, same columns as lines 2120 and 2260). 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). Capital cost of non-generating facilities (columns 30-35). Distribution capital-cost escalation rate per year (decimal percent, columns 48-53). Loss and unaccounted for, equal to one minus the ratio of energy sold to energy generated (columns 73-77). 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). Percent of construction work in progress that is included in rate base (decimal percent, columns 62-67). Annual rate at which allowance for funds used during construction compounds (aecimal percent, columns 72-77). A.7 Line General Parameters EXIST. DEBT EX. DEBT INT. EX. RATE BASE RATE-BASE GROWTH FYR-1 REGULATORY LAG (YRS) HIST. CAP. COST MAR. TAX RATE CASH PCT. INT. PMTS 01d New Fixed Charge (FC) (contd) 1290 2370 1300 2380 1310 2390 1320 2410 1340 2430 -- 2450 FUTURE CAPITAL COST 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). Interest on EXIST. DEBT (decimal exponential, same columns as line 2370). Existing rate base (decimal exponential, same columns as line 2370). Growth rate of the rate base from the year prior to FYR (FYR minus 1) to the FYR (decimal percent, columns 41-45). Regulatory lag for rate base changes (integer, columns 76-77). Historical cost of capital (aecimal percent, columns 22-26). Marginal tax rate (decimal percent, columns 45-49). Percent of interest payments made with operating cash flows (decimal percent, columns 73-77). Cost of capital (decimal percent, columns 28-32). A.8 APPENDIX B AREEP SOURCE CODE c PROGRAM CAPPLAN(INPUT,QUTPUT,1T,TAPES=IT,PUET, TAPE S=PDET,PCUS, 00000010 c +TAPES=PCOS,F INOUT, TAPELSFINOUT,CADU, TAPE 2SCADU,DESUL, TAPELI=VE BUG, 00000020 c +PRICES, TAPE7=PRICES, TPCOS, TAPEY=TPLOS, TPUET, JAPES=TPLDEIT,TCUST, v0000050 c +TAPE10=TCOST) 00000040 c INCLUDE (AREEPPR) mMuD0001U C xekee DIMENSIUN AND DATA STATEMENTS FRUM CAPPLAN kaxtx 00000050 C fee ee ke ee ee ee we ee ee ee ee He eee eH eee MUDUOUZO Cc muvG00 so c w= NOTES THE ARRAYS ASSOCIATED WITH TECHNOLOGIES #0000040 c HAVE DIMENSIONS INCREASED FROM 10 TO 16. ™0000050 c ADDITIONALLY, THE ARRAY HA(e) HAS BEEN 40000060 c REDIMENSIONED TU HA(7,2) AND 2 NEW AKKAYS, “0000070 ¢c HCUTIL(7) AND HYEWPR(7), HAVE BEEN CKEATED. MUv00080 c CHYENPR(7) IS DECLARED IN SUBROUTINE PRUDUC), M0000090 c THIS IS TO ACCOMMODATE UP TO 7 HYDROELECTRIC Mmu000100 c TECHNOLOGIES RATHER THAN THE 1 ALLOWED IN m0D00110 c THE ORIGINAL PROGRAM, m0000120 c 0000130 C -e eee ee ee ee ee ee ee ee eee eee ee ee ee ee = MOD00I4O DIMENSION GROW(11),01(04) -EVALUE (31,5), 1SCORD(10),TITLE(15), 00000060 +HYMULT (3) 00000070 C xkkee DATA ANO COMMUN STATEMENTS FOR SET DECISIONS xanne 00000080 DIMENSION LEAD (1673) ,RETIRE (16,31) -LSTAGE (16,3) -CEP(16,31,3), 00000090 +STAPRT (16,2) -COST(7,5),TTOCOS(31),TTECUS(31),TIUOS(31),TTEUS(S1) 00000100 DIMENSTON CEXDEM(25) »PRMG(25),SCPR(10),ISN(10,10),1SPN(10) vooodite LOGICAL DECUVEI,FFS,AVL(16),/RSCEN,PERFCS,0UIC(8), SIDE 00000120 C «ake ENO OF DIMENSION AND DATA STATEMENTS FROM CAPPLANK&ka® 00000130 DIMENSION TKNAM(16,2),AJ(16) ,CCAP78(16),VCES(16) -L0(9, 50), 0000014u +CAPLIM(16),AMIX90 (16) pWSIZE (16) ,FONIDC (16) -VC(16), 1 TENGY (30), 00000150 +ENV(16),OFP(16) -DFO(16) ,PLAN(16) ,PERM(16),LONSTR(10),TTTCUS(50), 00000160 +STARTO(16)+ IL (16) ¢BL (Clo) ¢FC1 (16) FCTL(16),FCTLH(16), 00000170 +FCTL1(16),FCBL(16),COC (6) ,AINT(6),YEAKS(9) »FCLEV(16), 00000180 +F IXPRC (100) ,VARPRC (100) ,EPROB(S) -EGR1(5),EGRI4(5),TERMIX(16), 00000190 +HYPROB(3),CLDC (1500) , IAVYR(16) »FCESC (16), VCESC (16) ,DEMFUK( 350), 00000200 +HYEN(3),OUTCAP(8) eOUTAV(8) -OUTCST (5) -HYRN( 5) -OUTESC (8) 00000210 DIMENSION LOAD (9) ,AVAIL( 9,2) ¢ ALF (2) ,CAP(16),PKMAIN(16), 0000022u +NSMAL (16) - BLOC (1262) sUdDLDC(12)¢TFC(100) ,PmMAING16¢2) HALT 22), 00000230 +RRM(30),STZE(16) ,VEM(30) -FENG(2) pFTIME (2) ,15(30) -FUANDM(16) 00000240 LUGICAL APCOEV,RPKOD (3,2) ,CURD,/FINDET, RUNFIN, RUNPR,PPDET,;MANYD, 00000250 +LVZ,RUNDEC, TEKMIN,;RMYES(16), SCHED (16) ,UCUEM(7) »PRCS 00000260 C xaeee FINANCIAL DIMENSION AND CUMMUN STATEMENTS #&eeRa 00000270 CUMMUN /C1/ ITCRAT,NCONM,PHURZN,/HORIZN, INFLA,NPKUS,NGTEC,LB(16), 00000280 +DOBTRT,FAIADJ, ITCNOR, TAXMAR,EGRT,PRERT 00000290 COMMUN /C$/ EXCPLM(100),-CWLP(100) ,CC,DINT(100) ,LAGR(16) 00000300 + ,AFUDC(100),01TC (100) ,CAPCST (16) -DINVSI (100) ,RTBASE (100), 00000310 + FCWIP(16,15),NCON(16) ,FAFUDC (16,15) ,LEN(100),PCHIP,BONURI (100), 00000320 + EGRO(LU00) ,ASSETS(100) ,EXCUST (100) -FIXCHG(100),ASST& 00000330 + ,AAMORT (100) ,CURCAP (16,100) ,FCESC,AUNIUN(100) -DEPREC(100), 00000340 +TAXES (100) ,COVER (100) -RATINT (100) ,DELTA(100) ,COFLAP (100), 00000550 +RETINT (100) ,PREFEK (100) ,COFCUM(100) ,ADDPUN(100) 00000400 COMMUN /C2/ CUV(6),COC,AIWT,PRECUV(6) 00000370 COMMUN /WRITE/ WRI (3) 00000380 DIMENSION LT(16) 00000390 DIMENSTON ISTART(16) -CAP78(16) ,EDE1(7) ,UUTTYP (8,2) 000u0400 DIMENSION EDINT(7),RBE(7) 00000410 INTEGER HURIZN,PHURZN 00000420 REAL LTCKAT,INFLA 00000430 B.1 an00 an ano aa aaaagan o a ° ANANAAMR AAMAAN aaa a - = CAPACITY PRINTOUT INPUT FLAG LOGICAL CPRT = =~ COST SUMMARY REPORT INPUT FLAG LOGICAL CSUs @ © ANCHURAGESFAIRBANKS INTERTIE REPORT INPUT FLAG LOGICAL INTR = © VARTABLE MWINC IS REAL TO ACCOMMUDATE SMALL SYSTEMS REAL MwINC, MTINC 40D00150 MUD001600 M0000170 40000160 mMUD00190 MODO0O020uU MOV00210 MUD00220 Mu000250 mud00240 moD00250 mMOv00260 mO000270 LOGICAL WRT, CNDOL¢CNSYS,-PTPCUS,PTPUET «SYMMs TRUE, FALSE, RSNUT,LITCNROOOUO44O EQUIVALENCE (CAP78(1),FCNIOC(1)) eff ee ee ew we we we we ew ewe ee ee eee ee wr hO Oe ee eo ew DEMAND, ENERGY, AND GROWTH ARRAYS DIMENSION PEAKDM(3,11), AVENGY(3,11)¢ YRLYUM(3-¢30), ACTGRK(30) = = YEARLY ENERGY ARRAY DIMENSION YRLYEN (4,30) LOAD DURATION CURVE COMPUTATION RELATED ARRAYS DIMENSION VMLODC(10),XLOC(3,30,12),XALF (3,50) -FYLOC (12) SECONDARY INPUT FILE NAME ARRAY DIMENSION SFILE(S) CONSERVATION INPUT ARRAYS (LOw,MED,HIGH) OIMENSION AECUNS (5,31) /PKCONS( 3,31) + TCCONS(3, 31) -PCCONS(3, 31) = = ANCHORAGE, FAIRBANKS INSTALLED CAPACITY AND ANNUAL GENERATION ARRAYS DIMENSION ACAP(50),FCAP(30),AGEN(30) -FGEN(30),XLULP (30) ANCHURAGEs FAIRBANKS PEAK DEMAND AND ENERGY ARRAYS DIMENSION FREAK (3,11) ,FENE (3,11) -APEAK (3,11) ,AENE (5,11) ANCHOKAGE, FAIRBANKS YEARLY DEMAWD AWD ENERGY DIMENSION FRYKLY (5,30) ,FEYRLY(5, 30) ,APYRLY (3,30) pAEYRLY(5, 50) ~ = GLENNALLEN PEAK DEMANU AND ENERGY ALSO YEARLY DEMAND AND ENERGY OIMENSION GPEAK (3-11),GENE(S,11),GPYRLY(3, 50) ,GEYRKLY (3,30) FOSSIL FUEL ARRAYS DIMENSTON HR(16), IFTUC16), FC(31,10), FUESC(10) = = NEW ARRAYS FOR ADDITIONAL HYDKO TECHNOLOGIES B.2 00000450 mUuD00280 MUDU0290 40000300 0000310 40000320 MOD00330 M0000340 M0D00350 M0000360 0000370 MOD00380 M0000390 M0D00400 MO000410 mod0042u 0000430 MOD0044G 0000450 M0D0U460 m0000470 MUD00460 MOD00490 MU000500 mOD00510 “0000520 Mvu000530 MUD00540 M4OD00550 MODU0S60 u000570 mMUD005860 mOD00590 MOD00600 MUD00610 MO0V00620 0000650 MUD00640 m™OD006S0 MU000660 0000670 m™OD00680 40000690 MANNMM AA ann oanaan aa aana oa maanaaNNA HCUTIL = CAPACITY UTILIZATION FACTOR MOD00700 HYENPR = PROPORTION OF TOTAL HYLRO ENERGY MO000710 (OECLARED IN SUBROUTINE PRODUC) 40000720 DIMENSION HCUTIL(7) 00007350 . M0000740 - see fe we ee ew we we we we ew we ww ee we we ew er wee ew ew we ew we M000075U yf eee eve e2n eee eee eeeree eee eee e eee eee eee m0D00760 - ° FLAG THAT INDICATES IF THERE EXISTS FAIRBANKS NUN- m0000770 HYDRO TECHNOLOGIES FOR YEARS 1-9 0000780 0000790 LOGICAL FAIR(9) ; 0000800 0000610 INDICES OF FAIRBANKS NON@HYDKO TECHNULOGIES mov00820 AVAILABLE WITH CAPACITY FOR YEARS 1*9 0000830 DIMENSION ITFAIR(9,9) MoD00840 INDICES OF THE 2 LEAST COST FAIRBANKS TECHNULOGIES 0000850 FOR THE 9 YEARS 1981-1989 Mu000860 DIMENSION LCFAIR (2,9) M0D00870 MOD00880 = = NEW ARRAY FOR EACH TECHNOLUGY'S YEARLY GENEKATION, ™0000890 SUBKOUTINE SVENG STORES INTO THE ARRAY AND THE 0000900 ENERGY TABLE IS PRINTED IN SUHKOUTINE DEMPRT 0000910 moD00920 DIMENSION TECHEN(16,30) - 0000930 ma000940 wee te ee et ee ew ee ee we ee te ee ee ee ee ee we = 0000950 aexex END OF FINANCIAL DIMENSION AND CUMMON STATEMENTS «eanx 00000460 00000470 DATA TTENGY, TTTCUS, ISN, PMAIN,HA/3080,, 3000, 10080, 52404, 1480,4/ 00000480 DATA CEP, NSMAL, AVAIL, SCPRy ISPN/1488%0,,16%0,18%0.,1080.,1080/ 00000490 DATA RETIRE, DEMFOK/996%0.,30%0./ 00000500 DATA GROW, EVALUE, TTOCOS, TTECUS/11*0,,9340.,31"0.,3180./ 00000501 DATA TTOOS, TTEOS,PRMG, VCES/3180.,5140,,25%0,,1040./ 00000502 DATA YEARS, OUICAP/LOAD, RRM, DEM/S80 0,840.7 940, 30800, 3080./ 00000503 DATA ENS76,CFT,AMM,IVC,CSUUT pCSENV/0 4, 0.400, Ve VarUe/ 00000510 DATA LAGR/LEN/16#0,10081/ 00000520 DATA CLDC/1.249, 16067 890, 74, oOLy oS 041 yo 54y o29, 026, 00000530 $1,880, 151820 467595 65024 53465 6250, 1907p 151, ol 27 pal lb, 00000540 $2,518, 10217 4 604$4 63757 62417 01675 01234 .096, 2079, 071, 00000550 4321715101997 6948, 6298, 6184, 125, 0041, 070, 00577 050, 00000560 $5.824,1.0154 5 6474, 5240, 61497100, 60727 055, 6044, 039, 14508U./ 00000570 DATA TRUE,FALSE, AUU/. TRUE oy FALSE“, SHADD/ 00000580 eet te et ee ee ee ee eee ee ee ee ee eee ee = = 0000900 0000970 MUD00980 ~ DATA FYR /3HFYR/ mMUd00990 DATA FC, FUESC /310#0.0,108U,U/ MuD01000 40001010 cee et ee ee ee ee ee ee ee ee ee ee eee ee ee = MOD0I020 DATA LCFAIR /18%0/ 40001050 mOv01040 we ec tc ee ee ee ee ee ee ee ee ee ee ee ee ee = 001050 MUD01060 cece ce ee ee ee ee ee eee ee ee ee ee ee ee He = | 0001070 40001080 OPEN UUTPUT FILES WITH CARRIAGE CUNTROL EWUAL TO muD01090 LIS} (FOR THE LINE PRINTER) MO001100 B.3 ANMANANANAANAANMNANANeAANMNAANAMNMNAAMAANANAAANANAAMAAANANOA c b624 THE FILENAMES AKE ASSIGNED OUTSIVE THE PROGRAM OPEN CUNIT=1,CARRLAGECUNTROL='LIST', OPEN (UNIT=2,CARRIAGECONTROL='!LIST!, STATUS='WwEW') TATU OPEN CUNIT=3,CARRIAGECONTROL='LIST',STATU NEW) wew') OPEN (UNITS4,CARRIAGECONTRUL='LIST',STATUS='NEW!) UNIT 5 IS THE INPUT FILE PRINT STATEMENT OUTPUT GUES TO LOGICAL FILE SO THE CC FEATURE FOR THE PRINTER IS LOWE WITH THE VAX COMMAND LANGUAGE OUTSIDE THE EXECUTION OF THE PROGRAM OPEN (UNIT=7,CARRIAGECONTROLS'LIST',STATUS='NEW!) OPEN CUNT T=8,CARRLAGECONTROLS'LIST',STATUS='wEW') OPEN (UNIT=9,CARRIAGECONTROLS'LIST',STATUS='NEW!) OPEN CUNITS10¢CARKIAGECONTROL='LIST',STATUS="NEW!) OPEN (UNITS11,CARKITAGECONTROL='LIST',STATUS='NEW') © © UNIT 12 ANDED FOR CAPACITY PRINTOUT OPEN CUNIT=12,CARRIAGECONTHOLS*FORTRAN',STATUS='NEW!) © © UNIT 15 ADDEO FOR TOTAL CuST SUMMARY REPORT OPEN (UNITS13,CARRIAGECONTKULS FORTRAN’ sSTATUS='NEW!) © © UNIT 14 ADUVED FOR ANCHORAGE=FAIRBANKS INTERTIE REPURT ‘FOROPRINT!, OPEN (UNIT=14,CARRIAGECONTROLS*FORTRAN!',STATUS='NEWE) = = UNIT 19 ADDED FOR RED/(RATE) INPUT FILE THIS FILE CONTAINS THE DELIVERED POWFRK COST FUR EACK PRM ANU PLANNING YEAR UNUER THE MEDIUM PATH (FILE IS WRITTEN TO IN SUBROUTINE WRTSUM) OPEN (UNIT=19,CARRTAGECONTROLS'LIST!',STATUSS'NEW') -2f e282 ee ee we ee ew ew ewe ew we ew = = UP TU 16 TECHNOLOGIES NGTEC=10 WGTEC=16 NCONM=12 00 86824 MIKE=1,10 DO 6824 MIKE=1,10 LAGR (MIKE) =0 C see ee sc ticmecee cise see awe 6826 DO 66286) MIKE=1,100 LEN(MIKE)=1 C READ IN DATA REWULREMENTS READ (5,4700) (TITLEC(I), 151,15) "AREEP.OAT® READ (05,4702) YEARS(1) , ITHOR/ CNDUL s CNSYS,/CUSC ,RKIINDEC ¢ RUNF LNG +RUNPRK,LVZ,MWINC REAV (5.4704) PKML,PRMHsPRMI ¢RMBAS,RMINC,PRMGEF , LFRMYRe *+ILRMYR,PRMAFT B.4 MOD01110 0001120 M0D01130 my001140 M0D01150 M0001160 m0001170 MUD01180 MOD01190 “0001200 m0D01210 40001220 0001230 MOD01240 “0001250 0001260 m0D01270 MOov01280 mM0D001296 M0001300 0001310 mOD01320 0001530 MODUL S46 m™UD01350 mU001 360 MUD013570 MOD01380 MU001390 m0001400 MO001410 0001420 M0001430 m0001440 ™U001450 0001460 MOD01470 40001460 M0001490 40001500 MODO1S10 6001520 00000590 MULv01530 00000600 00000610 M0001540 00000620 4OV001550 00000630 00000640 00000650 60000660 00000670 00000680 00000690 000007U0 READ (5,4706)DECDET,PRCS,FINDET,APCDET,PTPCUS,PPDET,PTPDET o000u071LYO Cee eee ee tt ee ee eee eee eee ee = MOD01S00 c = = CAPACITY PRINTOUT INPUT FLAG © CPRT M0001570 c = = AND CUST SUMMARY REPORT INPUT FLAG = CSUM ™0001980 c = = AND AWCHORAGE-FAIRBANKS INTERTIF REPORT FLAG = INTK M0D01590 READ (5,4706) CPRT, CSUM, INTR 40D01600 C eee ee ee ee ee ee ee eee eee ee ee ee ee ee = = MUDOIOIO C ee eee ee ete ee ee ee eee eee ee ee ee ee = MOD0LE20 c - = THE FOLLOWING PARAMETERS ARE NOW INITIALIZED M0001630 c IN SUBROUTINE INCONS mOD016040 c READ (5,4708)NP,NYPP,NB,Q,RSNOT,NSCEN,PERFCS 00000720 c M0001650 c GET CONSTANTS 40001660 c 0001670 CALL INCONS (ALPHA,FCPER1,FCPER2,FCPERS, MOD01680 - = VARIABLE ALLINT = © CONTAINS THE ANCHORAGE = FAIBANKS MO001690 INTERTIE LIMITATION FUR YRS 5-9 0001700 + ALLINT, 40001710 + NP,NYPP,NB,Q,RSNUT,NSCEN, PERFCS,COINF) MODO1720 c 40001730 Cee ee ee ee ee eee eee ee eee ee eee ee = = = MO001740 C eee eee ee tet eer ee ee eee eee ee eH = MOD0ITSO G 0001760 € 00 4713 I=1,10 00000730 c TF (NB NE. 3) READ (5/4710) 1SPN(1),(ISN(I,J) ,J¥1-10) 00000740 c IF (NB CEQ 63) READ (524712) LSPN(I) 6 CISN( I,J) eJ=1010) 00000750 C4713 CONTINUE 00000760 c REAU(S, 4714) (EPROK(I),1=1,5) 00000770 c READ (5,4716)DEM78,NYF, (EGRI(1)-151,5) 000p0780 ic READ (S¢471 6 NYL, (EGRIG(I), 11,5) 00000790 C eee eee er et ee eee ee ee ee ee ee eee eee ee = = MOD0ITTO c M0001780 c USE THE ISPN ARRAY FOR PATH INDEX 40001790 c (IF THE NUMBEK OF PATHS IS ONE, ASSUME MED PATH=2) M0001800 c MO001610 DO 47131 T=1,3 0001620 IF (NSCEN .EQG, 1) ISPN(I)52 0001830 IF (NSCEN .EU, 3) ISPN(I)SI MUu001840 47131 CONTINUE ™O001850 c M0001860 G M0001870 (a READ PEAK DEMAND AND AVERAGE ENERGY FUR EACH PERIUD Mu001680 ic. OF EACH PATH M0001890 Cc MUD001900 NPPL=NP + 1 m0D01910 c 0001920 C ee ee eee ee et eee eee ee ee ee eee eee ee ee = MODUII30 c = = DATA WOW ON THE SECONDARY FILE = 0001940 Cc MuD01950 c SECONDARY FILE NAME 0001960 READ (5,47102) SFILE 46001970 SFILE(5)=0,0 MU001980 c 40001990 C see eee ee tr et ee ee ee ee ee ee ee eee ee eee = MOD02000 C eee eee et te te eee ee ee ee eee ee eee ee = = MUD02010 c - - MUDIFICATIONS TO THE INPUT STRUCTURE MU002020 c INFOKMATION FOR THE FIRST 9 TECHNOLOGIES IS READ, ™U002030 B.5 c THEN THE INFORMATIUN FOR THE KEMAINING 7 HYDKU MUD02040 c TECHNOLUGIES 15 READ. mu002050 Cc M0D02000 c READ (57/4720) CCTKNAM( 15), J=1/2),1=1-10) 00000800 READ (5,4720) (CTKNAM(I,J),J=1,2),1=1,9) ™0D02070 c READ (5, 4722) (CCAP78(1),1=1,10) vououaly READ (5,4722) (CCAP76(1),1#1,9) mUDO208u LR=NP«NYPP 0000062u LRPISLR41 00000830 NS=3 00000840 vO 4729 J=e,31 0000085u c READ (544726) FNAMEs (CAPLIM(I) 121/10) 00000866 READ (5,4726) FNAME, (CAPLIM(I) »-1=169) mu002090 IF (FNAME.NE.AUD)GUTO 4727 00000870 Cc DO 4729 kK=1,10 0v000680 OU 4729 K=1,9 MUuU02100 4729 CEP(K,J,NS)=CAPLIM(K) 00000890 4725 CONTINUE 00000900 i en TT 0) c Mu002120 c IF "ADD ** FOR $0 YEARS, SKIP COMMENT LINE 40002130 READ (5,4720) FNAME mMOD02140 C eee ee ee ee eh ee eee ee ee eee eee ee ee ee = MUDO2ISO 4727 CONTINUE oooo09glu c READ (5, 4722) (CAPLIM(1),1=1,10) 00000820 READ (5,4722) (CAPLIM(I),/1Isi+9) MUD62160 Cc READ(S,4722) (AMIX90(1),1=1,10) 00000930 READ (5,4722) (AMIX90(1),181-9) MUv02170 c READ (5,4728) (RMYES(1),1=1,10) 00000940 READ (5,4728) (RMYES(I),1=1,9) moD02180 c READ (5,4750) (WSIZE(1),1=1,10) 00000950 READ (5,4730) (NSIZE(1),151,9) MO0D02190 c READ (5,4730) (LAVYK(1)/I=1,10) 00000960 READ (5,473) CLaVYR(T),121,9) MOD02200 c READ (59,4722) (AJ(T), 151,10) 00000970 READ (5,4722) (AJ(I) 151-9) MUDU2210 c READ (5,4722) (PLAN(I) -T#1,10) 00000980 READ (5,4722) (PLANCI),1=1-9) MUVO2220 c READ (5,4722) (PERM(1),151,10) 00000990 READ (5,4722) (PEKM(I),I=1-9) mMud02230 c READ(S,4722) (CONSIR(I),1=1,10) 00001000 READ (05,4722) (CONSTR(I),Te1,9) mMuv02240 c READ (5,4722) (STARTO(1I),I=1,10) 00001010 READ (5,4722) (STARTU(I),151,9) mudD02250 Cc MUD02260 READ (5,47201) (CIKNAM(T,J),J=1,2),T=10, 16) mMov0227u READ (59,4722) (CCAP78(I),1=10,16) MUD02280 vO 47251 J=2,31 MuD022e9U READ (5,4720) FNAME, (CAPLIM(I),1=10,16) MOD02300 IF (FNAME ,NE. ADV) GO TO 47271 ; MoD02310 DO 47291 K=10,16 MUv0e S20 47291 CEP(K,J,NS)=CAPLIM(K) 40002330 47251 CONTINUE MOU02340 READ (5,4726) FNAME MOD02350 472741 CONTINUE MOD02360 READ (5,4722) (CAPLIM(L),I=10,16) MODU2370 READ (5/4722) (AMLX90(1)¢1=10,16) 40002380 B.6 ono READ READ READ READ READ READ READ READ (5,472) (5,4750) (5,4730) (5,472e) (59,4722) (35,4722) (S,4722) (95,4722) C(RMYES(1),1=10,10) (NS1ZE (I), 1=10,16) CIAVYR(I),1210,16) (AJ(1), 1510,16) (PLAN(I),I=10,16) (PERM(1),1=10,16) (CONSTR(I), 110,16) (STARTO(I) ,1510,16) READ (5,4732) (PKMAIN(I) ,T31-10) READ (5,4732) (PKMAIN(I), 151-9) READ (S, 4722) (VFU(1), 151,10) READ (5,4722) (DFOU(I),1=1,9) READ (5, 4722) (DFP(1),151,10) READ (5,4722) (OFP(I),1=1,9) READ (544734) (VC(I), 131,10) READ (5,4734) (vC(I),1=1,9) READ (5, 4722) (VCESC (1), 151,10) READ (5,4722) (VCESC(I),1=1,9) READ (5, 4722) (ENV(1),1=1,10) READ (5,4722) (ENV(I),1=1,9) READ READ (5,4722) (HRUI)-1T#1,9) (59,4730) CLFTU(I),1=1,9) READ READ READ READ READ (5,47301) (5,4722) (5, 4722) (5, 4722) (5,4734) (PKMAIN(I),1510,16) (DFUCT), 1=10,16) (DFP (1), 1=10,16) (vc(I),1510,16) READ (5,4722) (VCESC(I),1=10,16) READ (5,4722) (ENV(I),1=10,16) HYDRO CAPACITY UTILIZATION FACTORS READ (95,4734) (HCUTIL(I), 151-7) READ (5,47301) DO 47272 J1,31 READ (5/4726) FNAME, (FC(J,1),1%1,9) IF (FNAME .NE, FYR) GO TU 47274 CONTINUE IF 'FYR #' FUR 30 YEARS, READ (5,4726) FINAME TYFDE=31 GO TU 47274 SKIP COMMENT LINE LYFDESJ © 1 CONTINUE READ (5,4722) (FUESC(I),1=1,9) KEAD(5,4736)0M © - THE FULLUWING VARIABLES ARE INITLALIZED IN B.7 M0002390 MO002400 mOVU2410 MOUG2420 mGD02430 MUD02440 m0002450 MOLD02460 MuD02470 00001020 MOD02460 00001030 mMOD02490 00001040 MOD02500 00001050 mod02510 00001060 mud02520 00001070 M0D02550 mod0es4u MOD02550 M0002560 MOD02570 MOD02560 MOL02590 M0D02600 mMUD02610 MOD02620 M0D02630 M0002640 M0D02650 mOD02660 MOD02670 MOD02680 MUD02690 mo0vueT70uU MUD02710 MO002720 MUD02730 mO0002740 40002756 MOD02760 MUD0eTTU 40002780 mMUD02790 MU002800 MUD02B1LO MUO02820 MUD026 50 MU002840 mUD02850 mMO002660 MOD02870 00001080 mMUDG2880 aaonon noanna ao a ONAANMAANMAAANAAOARANAG + © = VMLDC REPLACES OFF*PEAK LDC SUBROUTINE SETPAR READ (5,4758) (HYPRUB(I), 11,3) READ (5/4740) (CHYENCI) , 151-3) READ (5,4740) CHYMULT(1),1=1,3) ,HYINC READ (564742) (OLUC(I,1) 152/11) FENG(1) -FIIME (1) CALL SETPAR (rYPRUB,HYEN,HYMULT,HYINC,FENG,FIIME, COv,PRERT,/OKTRT) READ (5,4742) (BLUC(I,1),1=2,11) OFF=PEAK LOC IS ASSUMED EQUAL TU PEAK LOC READ (5,4744) (BLOC(I,2),1=2,11) READ (5,4744) (VMLOC(I),1=1,10) READ (5,4746) PW READ (5,4748) (CLOUTTYP (I,J) ,J=1,2),151,8) READ (5,4750) (OUTCAP(I),151,7) READ (5,4750) (UUTAV(I), 1=1,7) READ (S,4752) (UCDEM(I),1=1,7) READ (5,4752) (OUTC(I) - 131,8) READ(5,4750) (UUTCST(1) , 11,8) READ (5,4750) (OUTESC(I),1=1,8) READ (5,47 32) (FCNIDC(1) ,1=1,10) READ (5,4732) (FCNIDC(1),181,9) READ (5, 4722) (FCESC(1), 151,10) READ (S5,4722) (FCESC(I),1=1,9) READ (5,4722) (FOANUM(I), 11,10) READ (5,4722) (FOANOM(I),I81,9) READ (59,4734) (STAPRT (1,1) ¢ 121,10) READ (5,4734) (STAPRT(1,1),1=1,9) READ (5,4722) (STAPRI (1,2) ,131,10) READ (5,4722) (STAPRT(I,2),1=1,9) READ (5, 4754)LTD, CIL(L) ¢ 11510) READ (5,4754) LTO, (TL(I) READ(5,4756)LB0, (BL( I), READ (5,4756) L&D, (BL(I READ (5-¢4758)0F 1, (FC1 (1) ( 1 ) , READ (5,4758) DF1,(FCL(T = © THE INPUTS RELATING TO FIXED CHARGE PROFILES AND CUSTS OF CAPITAL HAVE BEEN MULIFLED SO THAT ONLY CERTAIN VALUES NEED BE INPUT, THE REMAINING VALUES ARE ASSUMED TU BE EITHER THE SAME FOR ALL RUNS OR EQUAL TU ONE UF THe INPUT VALUES. READ (S,4756)0F 2, (FCTLH(I),1=1,10) READ (59,4758) DF2, (FCTLH(I),131,9) READ (5,4758) UF 3, (FCTLO( I), 121,10) READ (95,4758) DF3,(FCTL(1I),1=1,9) READ (5/4758) 0F 4, (FCTLICI), L=1,10) READ (5,47586) DF4,(FCTLI(I),1=1,9) READ (5/4758) DFS, (FCBL (I), 121,10) READ (5,4758) DFS, (FCBL(1),1=1,9) B.8 MUDUV2690 00001090 00001100 00001110 00001120 mOD02900 MoD02910 mMov02926 mMOD02930 “0d02940 M0002950 00001130 0002960 MUD02970 MUD02980 00001140 00001150 00001160 00001170 00001186 00001190 00001200 00001210 MUD02990 00001220 MUD03000 00001230 M0D03010 00001240 0003020 00001250 40003030 00001260 MUD03040 00v0ie70 MUD05050 00001280 M0D03060 00001290 MODU307U ™0U03080 MUD03090 MUD03100 MODO3110 “0003120 MUD05130 40003140 M0D03190 00001300 m0003160 00001310 MOD03170 00001520 MOD03180 00001330 MUD03190 40003200 anananan 47280 aannrannanaana 47261 c READ (5,47301) READ (5,4722) (FCNIDC(I),1=10,16) READ (5,4722) (FCESC(I),1=10,16) READ (5,4722) (FOANDM(I),1510,16) READ (5,4734) (STAPRT(Ie1),1510,16) READ (5,4722) (STAPRT(I,2),1=10,16) READ (5/4734) (ILC(I),1=10,16) READ (5,4722) (BL(1),1=10,16) READ (5,4734) (FCI (1), 1=10,16) READ (5,4722) (FCTLH(1),1=10,16) READ (59,4722) (FCIL(I),1=10,16) READ (95,4722) (FCIL1(1),1210,16) READ (5,4722) (FCUL(I),T=10,16) FIXED*-CHAKGE PROFILE VALUES THE SAME FOR EACH TECHNOLOGY OFe2=vF1 DF3=0F1 OF 4=0F 1 OF S=0F1 00 47260 1=1,16 FCTLH(I)=FCi(1) FCTL(I)=FC1I(I) FCTLICT)SFC1(1) FCBL(I)SFC1(1) CONTINUE READ (5,4760)DISTRA,DISESC,ELOSS READ (5,4762)ASS78, INFLA, ITCRAT,LITCNK,PCWIP,ARATE READ (S,4764) (EDEBI(1),1=1,7) READ (S,4766) (EDINI(I),1=1,7) READ (5, 4766) (RBOE(I),151,7) READ (5,4768) BGRU,LAGREG READ (5,4770)CUCHIS, TAXMAN, FALADJ ~ = COV, PRERT, AND OBTRT INITIALIZED IN SUBROUTINE SETPAR ABUVE. UNLY EMBCOM IS READ INs CUC, PRECOV, EMBPRE, AINT, AND EMBORT ARE SET TO THIS INPUT VALUE. READ (5,4772) (COV(I),1=1,6) READ (5,4774) (COC(1),1=1,6),EMBCOM READ (5,4776) (PRECUV(I) » 1=1,6) -PRERT,EMBPRE READ (5,4776) (AINT(1), 151,6) ,OBTRT,EMBDRT READ (5,47741) EMBCOM EMBPRESEMBCOM EMBORT=EMBCUM DO 47261 11,6 COC(1I)=EMBCOM PRECOV(T) =EmMBCOM AINT(I) =EMBCUM CONTINUE C ee ee eee eee ewe eee ewe ee eee wee ee ee ee eee 4700 4702 FORMAT (12xX,15A4) FORMAT (//9X,F4.0,4X,14, B.9 MUD03210 MOU03220 M0003230 MUD035240 40003250 MODU3260 40003270 MOD0 5280 0003290 M0003%500 0003310 MOD03320 M0003330 M0003340 m0003350 M0D03360 0005370 MOD035380 40003390 ™0003400 0003410 M0003420 M0003430 M0003440 40003450 0003460 40003470 MOD034860 00001340 00001350 00001360 00001370 00001380 000013590 00001400 M0D03490 0003500 MUD03510 M0D03520 MU003530 00001410 00001420 00001430 00001440 MOD03540 0003550 MOD0 S560 MOD03570 MOV0 5580 MUD0 S590 MuD0 5600 MODO S610 MUD0 5620 MODU 3630 40003640 00001450 00001460 Cc c - = MWINC IS NOW REAL c PBX 20K LVI TXpF SoS, eke 2( 3X LI) 4X eb ly OXol 1,16) FBX e2CSK LAD TX pF Sede eX ell 3Xeh ld) paXoL Lr oXel leFOo) C © ee ee we ewe eee ke ew ee ee ew ew we ew ew ew ee we we ew ew 4704 FORMATC//1 3X oF S201 Kee CAXeF 262) SX eel eke P66 S$) SXF OD. 2e +3X,14,1H,14,F 3.2 ) 4706 FORMATC//11X, 509K eL 1) p209X pL Ae TXeL1) ) C4708 FORMAT(S/S//LGK L261 OX, 12, 9X, 12,4K FS. 5,6h pL 1 ¢5X, 12, 9X LISS) 4710 FORMAT(S1X-12,2Xe1011) C ee ee ee ee ee ee ee eee ew eee ee ee ee (3 47101 FORMAT (1X%,/) 47102 FORMAT (//////,18X,5A4) c C eee eee wee ese ee eee we ow 4712 FORMAT (22X,12,2x,1011) 4714 FORMAT(C/47X%,501X,F5.3) ) 4716 FORMAT(16X,F6.0,25xX,12,5(1X,F5.3) ) 4718 FORMAT(45X,12,5(1X-F5.3) ) 4720 FORMAT(///17X,10(A4,A2) ) 47201 FORMAT (/17X,7(A4eA2)) C © fr ee we we ew we hw we ewe we eee won 4722 FORMAT(17X,10F6.0 ) 4726 FORMAT(6X,A3,8X,10F 6,0) 4726 FORMAT(17X,10(5X,L1) ) 4730 FORMAT(17X,100i1x,15) ) a | c 47501 FORMAT (//) C w©- ee we wm we ewe ee we we wwe ewe we 47$2 FORMATC(/////17X%,10F 600 ) 4734 FURMAT(/17X,10F 6.0 ) 4736 FORMAT(/27X-Fe.2 ) 4738 FORMAT(/25x%,5(2X,F7.3),19% ) 4740) FURMAT (29%, 362x,F7 20) -19X, 3PFO.0 4742 FORMAT(//14X,10F5.3,F7.5,F6.5 ) 4744 FORMAT(14X,10F5.3 ) 4745 FURMAT(19X,F5.3 ) 4748 FORMAT(///21X%,8(A4,A5) ) 4750 FURMAT(21X,6F7,0 ) . 4752 FORMAT(21X,68(0X,L1) J 4754 FORMAT(//12%,14, 1%, 10F 6.0 ) C4750 FORMAT(12K,14,1X,10F6.0/) 4756 FORMAT (12xX,14,1xX,9F6.0,/) 4758 FORMAT(10X;Fe5,1K,10F 6.3 ) 47To0 FORMAT (/29X%,FO,0,12X,FO.4,19%,F 5.3 ) 4762 FORMATC//18X%, E9626 SK ep 2( 2X pF O03) pIXoL 1 SXeFOLS,4X FOL ) 4764 FORMAT(//21X,7E8,5 ) 4Tob FORMAT(21X,7E68,3 ) 4768 FURMAT(/40X,F9,3,50X,12 ) 4770 FORMATO /21X¢F 5556 18X ¢F 505,230 F SD 4772 FORMAT(/24X,6F5,1 ) 4774 FURMAT(24X,6F5,3,18X,F 5.3 ) 47741 FORMAT (/27X,+5.0) 4776 FORMAT (24X OF Se 3e TX pF S035 OX eF 56S 22 ) ) Comme TNT TIAL OPER AT LONS tie ti itt RRR IRI RTT RR IK B.10 MOD0 36050 MUD0 3660 00001470 MOD0 $6070 O00 3680 00001480 vuv0lago 00001500 00001510 00001520 M™UD03690 m™0003700 Mu003710 “0D03720 MuD03730 0003740 00001550 00001540 00001550 00001560 60001576 mU003750 M0D03760 00001580 00001590 00001600 00001610 MUD03770 0003780 400043790 MOD0 3800 00001620 0000165u 00001640 00001650 00001660 v0v01670 00001660 00001690 00001700 00001710 00001720 00001730 00001740 MODU3810 00001750 00001760 00001770 00001780 00001790 00001800 000018610 00001820 00001630 MUDO 3820 oovuulsdu 00001850 anon on an ao ? + + =~ © READ SECONDARY FILE AND ADJUST DEMAND AND ANN EWERGY CALL READSF (SFILt,NPP1,PEAKDM,AVENGY,LRP1, AECONS, PKCONS, TCCONS, PCCONS) © = AUDITIONAL PARAMETERS FOR SUBRUUTINE WRTINT AECONS, PKCONS, TCCONS,¢ PCCONS« FPEAK sFENE, APEAK » AENE, ~ © ADDITIONAL PARAMETERS FOR GLENNALLEN GPEAK,GENE) OO 1 [=1,NSCEN DO 1 J1,NPP1 PEAKDMCISPN(1)¢J) SPEAKDMCISPN(I),J)*COINF*(1. + ELOSS) AVENGY (ISPN(I) ¢J) SAVENGY(ISPN(I),J)e(1. + ELOSS) FPEAK (ISPN(I),J)3FPEAK(ISPN(I),J)*(1. * ELOSS) FENECISPN(I), J) 3FENECISPN(I),J)*(1. * ELOSS) APEAK (CISPN(I),J)SAPEAK(ISPN(I),J)*(1. © ELUSS) AENE (ISPN(1),J) SAENECISPN(I) J) * (1. + ELOSS) = = CALCULATIONS FOR GLENNALLEN GPEAK CISPN(I),J)=GPEAKCISPN(I) ,J)*(1. * ELOSS) GENE CISPN(1),J)SGENE(ISPN(I),J)*(1, * ELOSS) CONTINUE DO 3 1=1,NSCEN vO 3 J=i,LRPL PKCUNS (ISPN(1)¢J) =PKCONS(ISPN(I),J) *COINF CONTINUE DEM78=PEAKDM(ISPN(2),1) AVETB=AVENGY (ISPN(2) 51) FP78=FPEAK(ISPN(2),1) AP7TH=APEAK (ISPN(2),1) FE7B=FENE (ISPN(2),1) AE7S8=AENE (ISPN(2) 51) = = CALCULATIONS FOR GLENNALLEN GP78=GPEAK (ISPN(2),1) GE78=GENE(ISPN(2) 1) CALCULATE DEMAND AND ENERGY PER YEAR CALL DEMPYR (PEAKUM,AVENGY, YRLYDM, YRLYEN, TSPN,NYPP,NP,NSCEN, ~ + AUDITLONAL PARAMETERS FORK SUBRUUTINE WRTINT FREAK, FENE,APEAK, AENE,FPYRKLY,FEYRLY,APYRLY,AEYRLY, = - AVOTTIONAL PARAMETERS FOR GLENNALLEN bPEAK,GENE,GPYRLY,GEYRLY) WRT (1) =FALSE wRT(2)SFALSE WRT (3) SFALSE CURNSTRUE NPMAX=10 RATEL=.8 WRITE (1,50501) (TITLECT) 151,15) wRITE (2, 50502) (TIILE (1), 1=1,15) B.11 MOD0 S830 MOD0 5640 MOU03650 M000 3860 MODO3870 40005680 0003890 M0003900 MUD03916 6003920 MOD03950 00035940 M0D03950 40003960 MU003970 0003980 M0D03990 46004000 M0004010 0004020 M0004050 MO0D04040 M0004050 ™0004060 MO0004070 M0004080 MU004090 MOD04100 m0004110 m0004120 M0004130 M0004140 MUD0415U ™0004160 40004170 0004160 MU0004190 mMOD04200 MOD04210 mMOD04220 mu004230 mu004240 M0004250 MUDO4260 MUD04270 M0004280 40004290 mU0004300 MO0D04310 00001860 00001870 00001880 00001890 00001900 00001910 00001920 600019306 50501 $0502 90505 50504 50506 50507 5u5u8 50909 su05i0 Susil ANAMA0 gale 9eil Cc - 921 7500 c C xeeee WARNING STATEMENTS PRINTED TO TREE *hxtatannakannaerne T7179 c c c7774 c GC se wee ae se eee se wtaessceceonwecceene eae sis c C keRRK BEGIN MAIN PRUGKAM RRR KRERRERRRRRARR RARER RARER ER c WRITE (3,50505) (TITLE(I),1=1,15) WRITE (4,50504) (TITLE(I),1=1,15) WRITE (7,50507) (TITLE (I), 151-15) WRITE (8,50508) (TITLE (I) 1=1,15) WRITE (9,50509) (TITLE(1), 121,15) WRITE (10,50510) (TITLE(I)/1#1,15) WRITE (11,50511) (TITLE(I),1#1,15) PRINT SO0S06,(TITLECK) -K51,15) FORMAT(/1544,' FINOUT KEPUKT") FORMAT(/1544,° CADD KEPORT') FORMAT(/15A46" POET REPORT") FORMAT(/15A4,' PCOS REPORT') FORMAT(/15A4," TREE REPURT') FORMAT(/15A4," PRICES REPORT") FORMAT(/15A4,° TPDET REPORT") FURMAT(/15A4,! TPCOS REPORT") FORMAT(/15A4," TCOST REPORT") ' FORMAT(/15A4, DEBUG REPORT‘) WRITE (11,921) CCISNCT¢ J) p J=1,10)-131,10) DO 9212 T=i,NSCEN WRITE (11,9211) Ie CYRLYOMCISPN(1),/J),J=1,LR) CONTINUE FORMAT (1X,"YEARLY DEMAND. PATH ',1li,'? 4(29XK,6(F8.0,1K)6/)) FORMAT((1011)) WRITE (11-7500) (COUTCCI) » T5148) ¢ (COCDEM(I) ,- 1=1,7), (OUTAV(I) - 1=1,8), +(OUTCST(1),121,8) FORMAT ('OUTC,UCDEM,OUTAV,QUICST3's1Xs8L1,ikd,7L1/8F7,3/8F7.0) IF (NYPP*NP,GT.30)PRINT 7775 FORMAT('CAUTIUN OIMENSION OF EVALUE .GT. 30°) Crsssemmsece ae = awe SS Sissies S cles «we we = = @ LFC(NP.GT,10.AND, NOT. RSNOT)PRINI 7774 FORMATC*CAUTION: DIMENSION OF GROW .GT. Craeee ONCE ONLY CALCULATIONS *eaa® c c e c 9 C SCHEDULE MAINTENANCE AND CALCULATE AVAILAGILITIES TMIX=0, - °- UP TU 16 TECHNOLOGIES 00 2 151,10 OO 2 Tlelo TMIX=TMIX*#AMIX90(1) 00 9 [=1,10 DO 9 L=1,16 AMIX90(T) SAMIX90(1)/TMIX RATE2=1,-RATEL B.12 "sO0F8.0,1X) ely 00001940 00001950 00001960 00001970 00001960 00001990 00002000 Qvdu2ev10 00002020 00002030 00002040 00002050 v00G2vu60 00002070 00002080 UddU2090 00002100 00002110 M0D04320 MU004330 00002120 MOD043540 0004350 M0004360 0004370 M00043860 M0004390 40004400 40004410 00002130 00002140 00002130 00002160 00002170 00002180 00002190 00002200 MOD04420 MG004430 00002210 00002220 MOD04440 40004450 00002230 00002240 00002250 00002260 00002270 MOD04460 00002260 MO0004470 00002290 00002300 MOD04480 00002310 000023206 00002330 b Ov 10 [51,10 DO 10 I=1,1lo0 YMAINT=1.-DFP IF CF TIME (1) 6610. )PMAINCI, 1) =YMAINT XPKMAIN(IT) JE TIME (1) (1) /DFO(T) IFCFTIME CL) LT Le) PMAIN( Tee) SYMALNT® (1L.-PKMALNGI))/ +(Le-FTIME(1)) 00 12 J=1,2 IF (PMAIN(1,J).L1.0,,OR.PMAIN(I,J).GT.1,)PRINI 5,1 PMAIN(T,J)=1.-PMALN(IeJ) IFCI.NE,1LO)AVAIL(1,J) =UFO(I) IF (1 LT, 10) AVAILCI,J)=0F OCI) IF(1.EG,10)HA (J) SDFO(T)*PMAIN(I,J) IF (I .GE. 10) HACI*9,J)=0FUCT) *PMAIN(I,J) CONTINUE IF CINE SL 0.AND.PMAIN(IT¢1) LT oPMAIN( I 42) ) PRINT 4) TE CT) Le 20 CONTINUE FORMAT C'WARNINGS eANO, PMAIN(I,1) LT. PMAIN(1,2)) PRINT 4,1 MOKE MAINTENANCE IS SCHEDULED IN PEAK SEASUN', +' THAN IN OFF PEAK SEASON FOR TECHNULUGY',13,'.') FORMAT( "WARNINGS SEASUNS ARE TOO SHUKT FOR', +* TECHNOLUGY' +HA( JS), J=1,2) WRITE Cit,6) COPMAINCT¢ J), T=t,16) ,J=Le2)e (AVAIL CI oJ) elEte dy + J=1,2),( (HAC FOKMAT('PMAIN FORMAT (*PMAIN( I,J) AVAIL (1 J) (HAS ¢ Sp BF O63, / BF Oe 35 /p BF Oe 3s /y ¢13,' MAINENANCE TO BE FULLY SCHEDULED') WRITE (14,6) CCPMAIN(T/ J), 12,10) ¢dSte2),(CAVAIL (I,J), 11,9), I,J)/11,7),J#1,2) (1,J),AVAIL( I,J) '/(10F6,3)) + BF 6.37,/,9F 6,3¢/,9F6,3,/,7F6.3,/,1F 0,3) c c C SCALE LPC'S SO THAT PEAK#1/(LOAO FACTOR) c c nw w ce w wu aAmMeannaaenGn 2 c - = SET UP BLDC ARRAY FUR SUBROUTINE bO 40 J21,2 PEAK AND OFF PEAK ASSUMED THE SAME D0 40 Js1,1 ALF(J)=0, BLDC(1,J)=1, vO 20 123,12 BLUC (15-1, J) =bLUC (i4-1,J) BLDC (2,J)=(bLDC(3,J)#RLOC(1,J)) 72. bo 50 1=3,11 ALF CJ) SALF(J)+,05* (BLOC (I,J) #8L0C(1+1,J3)) ALF (J) =ALF (J) *,58(.1°PW) *(BLUC (2,3) +BLUC(3,J5)) ALF CJ) SALF (J), 5ePWe (BLDC(1,J) +BLOC(2,4)) DO $5 I=1,12 BLUC(I,J) SBLDC(I,J)/ALF(J) CONTINUE NOW CALCULATE CALL DETLOC (bLUCs PH, VMLUC, YRLYDM, YRLYEN,UVEM7 8, AVETE,LR,NSCEN, + DBLDC(1)5PW LDC'S FUR EACH YEAR I1SPN,XLDC,XALF,FYLOC,FYALF) B.13 bETLOC OQuuuves4u MUDO4490 00002350 0000256 00002370 00002580 00002390 Quudeduu voouesiu 00002420 MUuv04500 000024350 MUDO4SLU 00002446 00002450 mMuD04S20 v0002460 00002470 00002460 00002490 00002500 00002510 00002520 MUD04530 MOD04540 00002530 M0004550 ™0004560 “0004570 “00045460 vud02s4u mMUD04590 MODU 4000 00002550 mMOD04610 Muv04620 0000e56u 00002570 000025860 00002590 00002600 40004630 00002610 00002620 00002650 00002640 00002650 0000266u MUD04640 00002670 MUD04650 MUD04660 MUD04670 MOU0466u Mu004690 MOD04700 00002680 DBLOC (2)=0,1-PW 00002690 DO 60 I=3,1e 00002700 60 OBLNC(I)50,1 00002710 FENG (2)=1,°FENG(1) 00002720 FTIME(2)51,.-FTIME(1) 00002730 C ee eee ee eee eee eee eee eee eee eee ee ee = = MODONTIO ic * = MWINC IS REAL MOD04720 Cc AMWINCSFLOAT (MWINC) 00002740 AMwINCSMWINC M0OD04730 C f-ee eee eee eee eee ec ee ee eh ewe ee Be ee Be He = = MOD04T4HO CTOT78=0, 00002750 C =e eee ee ee ee we ee eee eee ee eee eee eee = = MOD04TSO c = = DU LOUP FINAL VALUES CHANGED TU 16 FUR UP TU 16 MUDO04760 c TECHNOLOGIES 40004770 c DOU 70 121,10 00002760 0O 70 T=1,16 MUD04780 SIZE(I)SFLOATINSIZE(I)) 00002770 IF CRMYES(I))CTOT78SCTOT78+CCaAP78(1) 00002780 70 NSIZE(I)SIFIX (FLOAT (NSIZE(1)) /AMWINC 4.5) 00002790 00 75 121,353 0v002800 vO 75 J=1,2 00002810 7 RPROD (1, J) =HYPRUBLI) -GT..000S5, AND. (CF TIME (J) GT oe VOUS.AND, 00002620 +FENG(J),GT..0005) : 00002630 c 00 77 151,10 0000264u DO 77 I21,16 M0004790 ve(T)=vc(1)/1v00, 00002850 77 ENV(I)=ENV(I)71000, 00002860 OO 78 121,48 00002870 78 OUTCST (1) S0UTCST(1) 41000, 000028806 NH=0 00002890 00 79 131,3 000029v0 IF CHYPROB(I).LT..V005)GUTU 79 00002910 . NHSNHet 00002920 793 CONTINUE 000029450 IF (NH,NE.1)GUTO 793 00002940 bO 792 I=1,5 00002950 7192 IF CHYPROB(T) 61, .0005)NHy=1L 0000296u 795 CONTINUE 00002970 c 00002460 C fee ee ee ee ete ee eee ee eee ee eee eee ee = MODN4BNN c 2 = YLF FUR THE FIRST YEAR'S LUC IS FYALF FROM SUB DETLDC MOL04810 c M0004820 c IF (FENG(1),LT..000S OR.FTIME(1) LT. .00US)GUIU 7931 00002996 Gc YLFSFTIME (1) ALF (1) (1.*F ENG (2) /FENG(1)) 00003000 c GoTU 7932 vuovusold C7931 YLFSALF (2) 00003020 C7932 CONTINUE 000030450 ic EN7TASDEM7h*5,76OxYLFE 00003040 c MO0D04830 EN7TB=DEM78#5,76x%F YALF mOD04840 ENS7T6=EN7B&(1.7ELUSS) 0000305u c MU004850 Cc eee eer ere reer ee ere eee eee hm ee ee em ee ee ee = MO004860 C e-e eee ee ee et ee ee eee eee eee eee ee ee = MDO4ETO c MOD04660 ic SIGMA=0, 0000 506u c SIG14=0, 00003070 B.14 c GL=0, 00003080 c AL=0. 00003090 c bO 7810 1[=1,5 v0003100 c ALS=AL+EPRUB (I) *EGRI4 (I) 00003110 c GLEGL+EPROB(T) *EGRI(1) 00003120 c SIGI4=SIG1I4+EPROB(I) EGRI4(1) *EGRI4(L) 00003150 C7810 SIGMA=SIGMA+EPROB (I) EGRI (1) eEGRI(1) i 00005140 c SIGMASSIGMAGLeGL 00003150 c SIGIG=SIGI4-AL RAL 00003160 c IF(LR.GT.3.ANU .LROLT.12)G0TO 7811 00003170 c IF (LR.LE.3) SIGALR=SIGMA 00003180 c IF(LR.GE,12)SIGALKSS1G14 00003190 Cc GOTU 7812 00003200 C7811 SIGALRSSIGMA+(SIG14-SIGMA) sFLOAT(LR=3)/9, 00003210 C7412 CONTINUE 00003220 c CALL FALPHA(CLOC,SIGMA,SIGALR,NP,NPMAX,ALPHA) 00003250 c SIGMA=SQRT (SIGMA) 00003240 c GROw(1) SAL 00003250 c GC=2.* (AL =GL)/FLOAT(NYL=NYF) 00005260 C fee ee ee ee er ee ee ee ee eee ee ee ee ee ee = MOD048IN c M0004900 c CALCULATE AL FROM EXPECTED DEMAND (PATH=2) M0004910 AL=(YRLYOM(2,1FIX(FCPERI)) = DEM78)/(DEM78*FUPER1) ™0004920 c M0D04930 Cee eee ee ete tee ee ee ee ee eee eee eee ee = = MUDU4940 WRITE (11,8001) YLF,ALPHA,SIGMA,SIGALR,GL,AL,GC 00003270 6001 FORMATC'YEARLY LOAD FACTOR, ALPHA, SIGMA, SIGALK,GL,/AL,GC3'/ 00003280 +2F7.4,5E12.4,eX%, 1011) 00003290 EVALUE(1,2)=0. 00003300 DF=1./(1,.+C0SC) 000033106 NVCPP=1 00003320 IF (LVZ)NVCPRP=NYPP 00003330 ai(i)ei. 00003340 Q1(2)=G7e, 00003350 gi(3)=1.<0 00003360 Q1(4)=01 (2) 00003370 BETA=1,.°ALPHA 00003380 C eee eee eer ee ee eee eee eee eee eee ee ee = = MOD04950 c 40004960 c DLTASSIGMA/SORT (QO) 000033906 c IF (NB LEQe2e)DLTASSIGMA 00003400 c M0U04970 C - ee eee ee te ee eee eee eee eee eee ee ee = D04980 AIFSINFLA+1. 000035410 DLRSDF**LR 00003420 ALRSAIF aa®LR 00003450 LRP2=LRee 00003440 UMM=0M#1000, 00003450 LEADMN=100000 00003460 LEADMx=1 00003470 c vO 65 121,10 00003480 DO 65 I=1,16 M0D04990 LEAD(T,1)=1IFIX(PLAN(I)+.5) 06003490 LSTAGE (1,1) = EAD(1,1) 00003500 LEAD(I,2) SIF 1X (PERKM(1)+.5) 00003510 LSTAGE(I,2)=LEAD(I,2) 00003520 LEAD (1,3) SIF IX(CONSIR(L) *¢STARTO(I) +,5) 00003530 B.15 on ws oanoo OamNNMNMANANANAMAAMAANNANAANAANAANO LSTAGE (I, 3) SIF IX(CUNSTR(I) 4.5) AVL(I)SAJ(I) LE, 90000 IF C.NOT.AVL(1))G010 65 L=0 00 66 ISTAG=1,NS IF (LEADMN,GI,LEAD(I, ISTAG) DLEADMNZLEAD (I, 1STAG) L=L+LEAD(1,ISTAG) IF (LEADMX,.LT,LJLEADOMXSL CONTINUE IFFYR=SIFIXCYEARS(1)4.5) FNYL=FLOATC(NYL) HNYLSFNYL/2.465 rs CALL INICEP(CEP,RETIRE,LR,LRP1,LEAD,NS) CALL INTEGCRETIREs1,LR) CALL INTEG(CEP,NSsLR) KSCEN=,NOT,KSNUT IF (C.NOT,RSCEN)GOTU 67 FIND SELECTED TREE PATH PROBABILITIES. CALL SGROW(NPs AL + NSCENs ISNe ISPN,/CLUCe ALPHAsNBeLDLTAsNYLsNYPP) CALL SURDER(CLUC, ISCURD, LSPN,NSCEN) SYMMSTRUE IF (NSCEN.EQ.1)SYMNSFALSE NSCENH= (NSCEN*1) 72 CENTER=2, IF (NB,EQ.2)CENTERZ1,5 DO 69 J=1,NSCENH LI=ISCORD(J) L2=ISCURD(NSCENF1=J) OU 66 T=1,NP CISFLOAICISN(L1,1))=CENTER C2=FLUAT(ISN(L2e,I))-CENTER IF (J EQ ,NSCEN/241)C220, IF CABS(C1i*C2) -GT,.0001)SYMM=FALSE CONTINUE CONTINUE WRITE (11,71) SYMM FORMAT('SYMMETRIC SCENARLUS? ',L1) IF (SYMM)CALL SCPRS(SIG14,AL,SCPR,NSCEN,NSCtIVN, ISCURD,SYMM,CLUC, +ISPN) IF (NUT, SYMM)CALL SCPRUB(EGR1I4,EPRUB, SCPR,NSCEN,CLUC, 1SCORD, +CL0C(11),/CLUC C21) ,CLOC(31)) PATH PROBABILITIES DO 651 J=1,3 IF (NSCEN EWU. 1) SCPR(J)51,0 IF (NSCEN .EU,. 3) SCPR(J)SU1(Je1) CONTINUE B.16 00005540 00003550 00005560 00003576 00003560 00003590 00003600 00003010 00003620 MUD0S000 00003630 MOD05010 MOD05020 00003640 00003650 M0D05030 00003660 00003670 00003680 MUuD05040 mODU5050 Mu005060 00003690 00003700 00005710 00003720 00003750 00003740 00003750 00003760 00003770 00003780 00003790 000035600 000038610 00003620 00003830 00003840 00003850 00003860 00003870 00003680 00003890 000035900 00003910 00003920 00003950 0000394u 00003950 00003960 muD0S070 Muv05060 ™u005090 MUuD0S100 M0005110 4U0051e0 M0D05130 c ic c 800 600 o7 wRITE(11,8002) (CLUC(I),I= WRITE (11,6003) (ISCURO(I), 2 FORMAT('CUM,EGR:'/(7F9,5) $ FORMATC'ISCORD, SCGR, SCPRE CONTINUE 21,27), (CLOC(1),1=31, 37) 1s1,10), (CLOC(I), 151,10), (SCPR(T), 1=1,10) 00003990 ) ' 41017, 0/10F7.4)) C sxxee UNCE ONLY FINANCIAL CALCULATIONS xaxakkananarkanan earn 113 ITCNOR=0 IF (LITCNR) ITCNUORS1 WRITE(11,113) ITCNOR,EMBORT FORMATC'ITCNOK,EMbDORT ',135,5XeF524) EQRT=1.<PRERT=UBTRT CCSDBTRI*EMBDRT+ (PRERT *EMBPRE*E ORT *EMBCOM) /(1.=TAXMAR) WRITE (11,7935) (COV(I), 1=1,6),(COC(1),151,6), (PRECOV(I),1=1,6), +(AINTC(I), 11,0) WRITE (11,7957) 0BTRKT,PRERT,EQRT, WRITE (11-7941) (EDINTCI) - T=1,7), (EDERT(I) - 15167), (KBE{I), 1=1,7) TAXKMAR,CC 7935 FORMATC'COV,CUC,PRECOV,AINT'/(6F8,4)) 74937 FORMATC*OBTRT,»PRERT,EQRT, TAXMAR,CC'/10F 8.4) 7941 FORMAT('EDINT,EDEST,RBE'/(7E1U, 2o anNA0 aoan SGRO=GL SGROF=AL PHURZNELREL NPROS=LR 4)) = = DU LOUP FINAL VALUES CHANGED TU 16 FOR THE 16 TECHNOLOGIES . DO 7960 I=1,10 00 7960 121,16 ITAVYR CI) STAVYR(I) “IFFYR*1 LBCI)SIFIX(BL(I) +5) LICL) SIFIXCTLOU1) +65) NCONC(I)SIFIX(CONSIR(1)+.5) LAGR (I) =LAGREG . ISTARTCI)=IFIXCSTARTO(I)+.5) 7960 CONTINUE ann DA=(1.+I1NFLA) *DF IF C.NOT CNOUL)DASUF = = CURRECTION FOR WHEN CUSC=INFLA IF (CUSC ,EG, INFLA) ANIZE=1,0 ANIZE=(1 VA) / (C1. “VAR R(LREITHOREI) ) LF (COSC .Nt, INWFLA) ANIZES(1. HORT ZNSPHORZN+1I THUR ILFYRSIFFYR*HURTZNA1 PVAEN=0, vo 7970 [=1,HURIZN - DAIL, = DAwK(LKe[THORt1)) IF (CNDUL) PVAENSPVAEN#(1,4FLOAT (Lol) *AL) (DF RAIF) ex (Tel) B.17 MUD0S14u 0005150 00003970 00003986 v0004000 00004010 00004020 0000405S0 00004040 0000405u 00004060 00004070 00004080 00004090 00004100 00004110 00004120 00004130 00004140 00004150 - 00004160 M0005160 MOD0S170 00004170 MOD05180 ™U005190 MO005200 M000S5210 00004180 00004190 MOD0S220 MOD0S250 MOD05240 00004200 MuD0S230 vo004elo 00004220 00004230 00004240 00004250 000042600 00004270 000042860 00004296 MUD0S260 M0D0S270 MUD0S280 MOD0S2e90 00004300 MuD05300 MGD05310 00004310 00004320 0006435u 00004340 00004350 7970 TECNOT CNOUL) PVAEN=PVAEN+ (1 .#FLOAT (1-1) ®AL) #DF ee (T=1) 00004560 C CHANGE PVAEN INTO ENERGY AWD ADJUST FOR LOSSES. 00004370 PVAEN=PVAEN*EN78&%(1,°ELOSS) 00004560 GFINALSFLOAT (HORT ZN=1) #AL 00004390 MTINCS=IFIX(1,9¢6F LNAL) *MwINC ; 00004400 Cee eee ee er te ee ee ew ee ee = MUDUSZ2U c = = MTINC IS REAL MODU5350 c AMTINC=FLUAI (MTINC) 00004410 AMTINC=MTINC MUD0S340 C fee ee ee et ee ee eee eee eee ee ew = MOD0SSSU OF INAL=DEM76«(1,4GFINAL) 00004420 CALL CAPCONCARATE,CAP78,ISTART,CONSTR) 0u0044s0 en em meme Te Ty é MU005370 G MOD05360 c VU 7965 121-9 00004440 C796S VCES(T)=VC(1)*(1.+VCESC(I)) &*(HORIZN=1) 00004450 c DO 7968 IYR=1,LR 00004460 c DO 7980 I=1,9 0G@004470 C7980 CLOC(I)SVC(1)*(1.+VCESC(I))**IYR v000448U c CALL LORVER(CLOC,ENV,LO(1,I1YR)) 00004490 C7908 CONTINUE 00004500 ee eT) Cc M0005400 c ~- - DETERMINE IF THERE EXISTS FAIKbANKS NON*HYDRU MUD05410 Cc TECHNOLOGIES wITH CAPACITY FUR YEARS 1°9. mO005420 G IF SO, THEN THE TECHNULOGY NUMBERS MUD054$0 Cc ARE RETURNED IN ARRAY ITFALR, “0005440 c MOD05450 CALL FAIRCK CTKNAM,FAIR, LTFAIR¢CCAP76,CEP,RETIRE) MUD0S460 c MUv0S470 C cee eer eee tre er er ee ee ee eee ee ee ee = = MUDOS4bO C essere eee eee ee ee ee eee He he eee BO Bee ee = MO005490 c “OD055uu c FUEL COST CONSIDEKATIONS MOD0SS10 Cc MOD0SS2u0 c © = SET FUEL TYPE TO 10 AWD HEAT RATE TO U FUR THE MUD05530 iG HYDRO TECHNOLOGIES 0005540 Cc THIS INSURES THAT THE FUEL CUST CALCULATIONS m0005550 c GIVE 0 FUEL COST FOR THE HYDRO TECHNOLUGIES M™UD05560 c a “0005570 DO 79604 1=1U,16 MO009560 IFTUC1L)=10 MUD05590 HR(I)=0.0 MuDUS600 7964 CONTINUE MUD0S610 c 40005620 | MOD0S630 vO 7965 [21,9 m000S640 FCTY=FCC(IYFUE,LFTUCI))«(1. + FUESCCIFTU(I))) ee (HURIZN=IYFDE) M0D05650 c UNITS CONVERSLOW m000S66uU FCTY=(FCTYsHR(1I))/1000U00, MODUS670 7965) VCES(T)SCVECLTI*C1 * VCESCCI))**(HORIZN=1)) + FCTY M0005660 LO 7968 TYRS1,LR 40005690 vO 7980 1=1-9 MOD05T70U IF (CIYR .GT. CLYFUE = 1)) GO 10 7975 M0005710 FCIYRS(HRCT) ®FCUIYR +i, LF TUCT))) 71000000, mUu00S720 GO TU 7980 40005750 B.18 7975 CONTINUE FCIYR=FCCLYFDESIFTUCI) ae (1. © FUESCCIFIUCT)) aa (LYRe(CIYFDE<1)) c UNITS CONVERSIUN FCIYR=(FCLYReHR( ITI) 71000000, 7980 CLOCC(I)S(VC(II#(1. + VCESC(1))**IYR) + FCIYR c -- Cc IF TYR BETWEEN 1 AND 9 (1981 = 1969) AND IF THERE EXISTS c FAIRBANKS NON=HYDRO TECHNOLOGIES, LOAD THE 2 LEAST CUST c FAIRBANKS NUN-HYDRU TECHNULUGIES FIRST (1.6. CALL FLORDR) Cc IF C(IYR ,LT. 10 .AND, FAIRCIYR)) ® CALL FLORDK (CLOC/ENVsLUCLe/IYR) / LTFAIK (1 TYR) LCFAIK (Ie TYR) ) IF (IYR .GE, 10 UR, .NOT, FAIR(IYR)) * CALL LOKDER (CLOC/ENV,LO(1,IYR)) c 7968 CONTINUE (4 Coal el ial elo ere eel allel lo fe leo) a) =) sl a) lal lel fol ol ol i os = a so =) C xaaee END OF ONCE UNLY FINANCIAL CALCULATIONS aanxaaaarnagtnnn MANYU=PRMH.GT. (PRML*+.0000001) .AND.PKMI.GT..0000001 IF(.NOT.MANYD)GOTO 1100 LOEC=IFIX((PRMH=PRML) /PRMI*1.,0001) GOTO 1110 . 1100 LOEC=1 c C LOUP OVER PLANNING RESERVE MARGINS c 1110 SIODE=LDEC.GE.8 DO 9999 TDECEI,LDEC PRMSPRML*FLOAI (IDEC-1) *PRMI PRINT 1988 PRINT 1989 IF (CNUOL)PRINI 1990, IFFYR,IFFYR IFC.NOT.CNDOL)JPRINT 1991,IFFYR DO 45 IY=1,LEADMx PRMG (LY) SPRM*KMBAS*FLUAT (TY) #RMINC 65 CONTINUE INITIAL CALCULATIONS VEPENOING ON PRM AND INITIALIZATIONS FFS=TRUE TENGY=0, TTCOS=0, c JCT=0 TERMV=0, TERMF 30, e ERMARG=0. TERME=0, TERMUSO, FIND THE TERMINAL VARLABLE COST EEVC(M/KWH). NaNnNANoO oOo IF CITHOR,LI.1)GUTU 160 TERMINS TRUE CURKDEMS0F INAL CALL LURDER(VCES,ENV,LUAD) IACTYRSIFFYR¢LR+I THOR CALL PRMGN(PRMBEF «PRM, PRMAFT, IFRMYRK,ILRMYR, LACTYR,PRMGIN) CFTUT=DFINAL#(1.4PRMGIN) B.19 “OD0S740 0005750 MOD0S760 MG005770 M0005780 MGD0S790 MOD0S8U0 MOD05610 MOvD05820 MUD0S830 MO000S840 40005650 M00U5660 M™OD05870 40005890 40005900 MOD0S910 MOD0592U0 00004510 0u004520 00004530 00v0454u 00004550 00004560 00004570 00004580 00004590 00004600 00004610 00004620 00004630 00004640 00004650 00004660 00004670 00004660 00004690 00004700 00004710 00004720 00004750 00004740 00004750 00004760 00004770 0000478u 00004790 00004600 00004810 vodu4dse0 00004830 00004840 00004850 06004660 00004870 00004880 00004890 SS oS LSS SiS sue isucusdencueiSLcuse Sean anenen omens omeneu=ie~wass—emeNUU0S9SO Cc c = = 00 LOUP FINAL VALUES INCREASED Tu 16 FOR ThE 160 “0005940 Cc TECHNULOGIES “0005950 c bO 76 121,10 v0004900 DO 76 I=1,16 MuD0S960 SCHED (I) =AMIX90(T) LT. .0000001 0u004910 CAP(1)=CFTOTeAMIX90(I) 00004920 76 IF (SCHED(I) )CAP(I) 50. 00004930 ICOUNT=0 00004940 TMIX=1. 00004950 SHORT=0, 00004960 67 CONTINUE 00004970 CG DO 60 I=1,1u 00004980 00 80 I[=1,16 M0D05970 IF (SCHED(1))GUTU 40 00004990 IF CTMIX.LT,.00001)GOTO 81 0000S5u00 IF (RMYES(1) )CAP(1) SCAP(1) +AMIX90(1) ®SHURT/IMIX 00005010 IF (CAP(1) LE.CAPLIM(I)*.1)G0TU 60 00005020 CAP(I)SCAPLIM(I) 00005030 SCHED (I) =TRUE 00005040 80 CONTINUE 00005050 ICOUNT=ICOUNT#+1 00005060 TMIX=0, 00005070 CFT=0,. 00005080 c OO 90 151,10 00005090 DD 90 I=1,16 40005980 IF (C.NUT.RMYES(I)) GOTO 90 00005100 CFTSCFI+CAP(T) 00005110 IF (C.NOT.SSCHED(1) ) IMIXSTMIX#AMIX90(I) 00005120 90 CONTINUE 00005150 SHORT=CFTOT*CFT 00005140 ICOUNT=ICOUNT+1 00005150 IF (SHORT .LE ee 1 AND SHORT GE ete) GUTH 83 00005160 IF CICOUNT,G1,10)GUTO 61 00005170 GOTO 87 00005180 61 - PRINT 82,PRM,1MIX,SHURT 00005190 be FORMATC'WARWING? THERE IS INSUFFICIENT TERMINAL CAPACITY FUR’, 00005200 + PRM =9,F5.3,", TMIX 3',FO.3,'.'¢' SHURT =',F 10.0) v0005e10 84 CONTINUE 00005220 cTuT=0, 00005230 Cc OO 8 121,10 . 00005240 OO 66 I=1,16 MOD0S990 86 CTOTSCTOT+CAP LI) 00005250 G DO 89 I=1,10 00005260 OU 89 I=1,10 ™UD06000 TERMIX(I)SCAP(I) /CTOT 00005270 69 CONTINUE 0000526u 1s(1)50 00005290 YEARS (1) =YEARS (1) *FLOAT(LR*LTHOR@1) 00005300 IYK=1 0000551u [p21 vv0us3eu DEM(1)=0F INAL 00005330 RRM(1)=SCFT/UFINAL@1. 000053540 DU 64 1=1,7 00005350 IF CQNUTSOCDEM(T) )PKMAIN(1) SUUTCAP(L) 00005360 44 IF (OCDEM(I) )PRMAIN( IT) SQUTCAP (I) 8OF ANAL /UEM7S 00005376 Cee eee ee ee eee ee ee ee ee ee ee ee ee ee eH = mODObOLY B.20 c = = FUR THE TERMINAL HORIZON ASStiME BLDC, YLF, AND ALF MODQ6v020 c ARE THE SAME AS FOR THE MED PATH OF THE LAST 0006030 Ee YEAR OF THE PLANNING HORIZUN MOD06040 Cc “0006050 DO 79321 1=1,e MOD06060 ALF (1) =XALF C1SPN(2),/LR) MOD06070 DU 79321 J=1,12 M0D06080 BLOC (J, 1) =XLOCCISPN(2),LRe J) ™00060090 79321 CONTINUE MOOO061vU YLF=ALF (1) mU006110 Cc M0006120 Cee eee eee ee eee ee eee eee eee ee ee ew ee ee = 006130 CALL PRODUC(IYR,CAP,MTINC, AMTINC,DFP,NSMAL,LUAD,AVAIL,CLOC, 00005380 +PKMAIN, OUTAV,CURDEM, YLF »FENG- F TIME, HYPRO6,ALF -BLUC/DBLUC, PW, PMAIN, 00005390 +HYEN, PTPDET,RRM,DEM, TKNAM,OUTTYP,NH,NHY,1S,IP,NP,NYPP,NVCPP, YEARS, 0000540U C mee ee ee et ee ee te et tt ee ee eee ee ee = MOI AY C +RPROD,VC,ENV,UUTCST,PTPCOS, TERMIN, }VC, AMM, 1THOR,VCESC,HYMULT,OFO, 00005410 c +HA, OUTESC,OUTC,/CSENVT ,CSOUTT,PRM) 00005420 +RPROD,VC,ENV,HR, IF TU,FC, LYFDE,OUTCST,PTPCOS, TERMIN, TVC,AMM,ITHOR, MUD06150 [ = = AUDED PARAMETER © HCUTIL M0006160 +VCESC,FUESC,HYMULT,DFO,HA,UUTESC,OUTC,CSENVT,CSOUTT,PRM,HCUTIL, MOD06170 c = © AUDITIONAL PARAMETERS FOR SUGRUUTINE WRTINT 0006180 +ACAP,AGEN,FCAP,FGEN,XLOLP,INTR, M0D06190 g @ = ADDITIONAL PARAMETERS FUR ANCHURAGE = FAIRBANKS 40006200 c LIMITED INTERTIE CALCULATIONS MOD06210 +LCFAIR,FEYRLY¢ALLINT?¢ m0D06220 c = = ADDITIONAL PARAMETERS FUR CPRT REPURT = ENERGY TABLE MUD06e30 +CPRT,TECHEN) m0006240 C fee ee eee ee te tee rr ee eee eee ee He eee = = MO006250 YEARS (1) =YEARS(1)@FLOAT(LR#ITHOK=1) 00005430 EEVC=AMM+0M 0000544u CSUUTTSCSOUTT*1000,/(CURDEM*YLF #8.76) 00005450 CSENVTSCSENVT#*1000,/(CURDEM2YLF 26.76) 00005460 160 CONTINUE 00005470 TERMIN=FALSE 000054860 C xexwk START VISITATION seanne 00005490 C eee eee ere eee se ee ee tee tre re eee ee eH He ee = MODOG200 Gc Mu006270 ec MOD06280 c IP=0 00005500 C N=1 0000551u G DU 1910 T=i,NP 00005520 C1910 IS(1)=0 00005530 CG TF (.NOT.RSCENIGUTU 1909 00005540 C see eee ee er ee eee er ee ree eee ee tee ee = MODOG29U NSC=0 00005550 1900 IP=1 00005560 14901 NSC=NSC+1 00005570 C eee eee ee ee ee he ee ete ee ee ee ee eee ee =e = = MU00G300 c 40006310 c MOD06320 c IF(NSC,GT.10)G0OTO 1980 v0005580 IF (NSC .6T. NSCEN) GU TU 19860 MOD06345u Cc IF CISPN(NSC) LE.NSCEN)JGUTO 1904 00005590 Cc bOTU 1901 . 00005600 C1904 LTFCISCEP) NE,ISNONSC,IP).OR,PERFCS)GUTU 1906 v000Selu Cc IP=IP+1 00005620 B.21 c GOTO 1904 900005630 1906 DU 1907 IT=Ih,NP 00005640 1907) IS(I)=1SPw(NSC) MUD06540 Ci907 ISCI)=ISNCNSC,I1) 00005650 FFSsTRUE 00005660 CGk=0.0 MU006350 c IF (PERFCS)CALL CEXS(ALPHA,BETA,NYPP,NP,OLTA,IS, 00005670 € +DEMFOR, GC eNYLeFNYL ¢DEM78-NB,ALeLR) 000056860 c MUD06360 C <= seme Se Relies ecec ee ee e= eS este ee ee Se ele = NOD06S70 GOTO 1905 00005690 19086 IPSIP+l 00005700 1905 IFCIP,GT.NP)GOTU 1900 00005710 GOTO 1931 00005720 C see eer reer eer eee ee ee ee ee eh ee ee ee ee we ge = 40006380 Cc 46006390 c MOD06406 C1909 CONTINUE 00005730 Ci920 IP=IP+1 00005740 c IF CIP.EQ.NP)GUTO 1940 00005750 c IS(IP)=NB 00005760 C1930 N=Nt1 00005770 c MO0D06410 ee DTT y T-1) 1931 CONTINUE 00005760 Cc TY=NYPPaIPe) 00005790 C xxeee LOGIC FORWAKD kane 00005800 IR=(1P=1) *NYPP 00005810 AIPSAIFa«(Ik) 00005820 ¢ 00005650 C CALCULATE PROBABILITIES AND GROWTH KATES 00005840 a |) 11) 1") c MUD0644U c 40006450 c IF (NBLEQ.2)G01U 193561 000058650 c IF (NB.EQ.1)G010 14367 00005460 c PR=1, 00005870 c OO 1935 1=1,NP 00005880 c IS(SIS(I)D +1 00005890 C1955 PREPR*eQ1(TS1) 00005900 c GOTO 19365 * 00005910 Ci9361PR=.S#eIP 00005920 c GRUw(LP+1) SALPHA&GROW(IP) BE TARAL4DL TAR2,% (FLUAT(ISC(IP) )-1.5) 00005930 c GUTO 19368 00005940 C19 S65GRUW(TIP +1) SALPHARGROW (IP) BE TAKAL+FLUAT(IS(IP)=2) *ULTA v0uus95u c GUTU 19368 00005960 Ci9$07PR=1, 00005970 c GRUW(TP+1) =SGRUW(1) 00005940 C19 $08CGRE0, 00005990 c IS1=1S(1P) 00006000 c IFCIPJEQ,1)GOT0 19572 i 00006010 c 00 1937 I=e,1P 00006020 C1957 CGRSCGR+FLOAT(NYPP) *GROW(1) 00006050 C19372CONTINUE 00006040 c 00000050 c IF (.NOT.RSCEN)JGOTU 1925 00006060 C FIND SELECTED TREE PATH BRANCH PRUBABILITY, 0000607u B.22 PR=0, bO 1927 151,10 LIF CISPN(1).GT.NSCEN)GOTO 1927 DO 1926 IT=1,1P IFCISCIT) NE,ISN(L,I1T))GOTO 1927 C1926 CONTINUE c PR=PR+tSCPR(1) C1927 CONTINUE C1925 CONTINUE a c c PERIOD PROBABILITY IS THE SAME AS THE PATH PR=SCPR (NSC) anaan oO ISI=1IS(IP) BEGIN LOOP OVER YEARS IN PERIOD aAanna ALOOPFSAIP DO 1938 ILOUP=1,NYPP ALOOPF =ALOUPF «AIF TYR=(1P=1) «NW YPP*ILOOP FIYR=SFLOAT(IYR) TYRPISIYR+1 GCOR=GC*(FIYR@HNYL) IF CIYR,GT.NYL)GCORS0, onanananna TYEARSIFIXCYEARS(1)+.5)¢1YR c c c c CGRECGR+GROW(1P41) c GCSUM=GCeFIYR* (FIYR=FNYL)/2, Cc IF CLYR,GE.NYL)GCSUM=0, c CURDEM= (1, +CGR+GCSUM) *DEM7S& C EGRO(IYR) =GROW(1P+1)+GCOR 20000 FORMATC*RMYES, TYR/CURDEM,TOTCAP "/10L1,14, +2F10.0/F6.3) CURDGR=GROW(IP #1) CALCULATE GROWTH c c ee c c c IF (1YR LE. IFIXUFCPER2)) ACTGRCLYRK)=AL IF (LYR oT. IFIX(FCPER2)) ACTGR(IYR)= * CYRLYDMCTSPNONSC),IYR) = YRLYOMCISPN(NSC) ¢ TYR@IFIX(FCPER2)))/ * (DEM78xFCPER2) CURDEM=YRLYDMCISPN(NSC),1YR) CURUGREACTGER(TYR) PROBABILITY IF (TYR EU. 1) EGROCI)=CYRLYNMCISPN(NSC),1) © DEM78)/DEM78 IF (IYRK .NE. 1) EGROCIYR)= B.23 00006080 00006090 00006100 00006110 00006120 00006130 00006140 00006150 00006160 m0006460 M0D06470 40006480 M0006490 4G0060500 MOU06510 40006520 M0OD065350 00006170 00006180 00006190 00006200 00006210 00006220 00006250 00006240 MOD06540 m0006550 40006560 00006250 00006260 MUD06570 MOD06580 00006270 M0D06590 mUD06600 MODU6610 0u006280 00006290 000063500 00006310 00006320 00006330 00006540 00006350 MULO6b620 0066630 MUD06640 MOD06650 MUV06660 MUD06070 m™0006680 M0D00690 mMUD06700 MUD06710 0006720 M0D067 50 ™U006740 * CYRLYDMCISPN(NSC)¢1YR) © YRLYDMCISPN(NSC) +1 YR=-1))/ MUODO6TSY * DEM78 MODU6760 CGR=CGR + EGRU(TYK) ™UD06770 c 40006780 C eee ee ee we ee ee eee eee Re Hee Hee ee HH HH = = D007 9U Cc 00006460 C SET DECISIONS FOR IYR 00006370 c 00006380 IF (NOT. RUNUEC)GOIO 2055 00006390 Cece ee ee eee eee eee Be ee Ree ee He ee ee = = MUD06800 c ™UV06810 ( MUD06820 c IF C.NOT.RSCEN.SOR, eNOT.PERFCS)GOTO 11110 00006400 Cc DO 12111 151,LEADMx 00006410 c IF CIYR+I-1.6TeLRIGOTO 11122 00006420 Ci2111CEXNEM(1) =DEMFOUR(LYR+I“1) 00006430 Cc GOTO 11122 00006440 Ci1l110CUNTINUE 00006450 c CALL CEXD(LEADMX,NYPP,IYR,CURDEM, ALPHA sHETA, AL p CURUGRe 00006460 c +NYL,GCOR,NP,GC,IP,CEXO0EM,DEM78) 00006470 Cil122CONTINUE 00006460 C eer e eee eee ee ee er ee Re eee eH eB ee He = = MOD0O8S0 Cc MOD06540 CALL CEXD (LEADMX,NYPP,IYR,CURDEM, ALPHA,BETA,AL,CURUGK,WP, MODG6850 * CEXDEM,OEM74,FCPER3S) 40006860 c 40006870 C see eee eee ee mr ee ee eee HE ee ee ee ee eee = = = 40006880 bO 11123 [=1,LEADMX 00006490 IFCIYR*T#1.GTeLK)GOTU 11124 00006500 CALL PRMGN(PRMBEF,PRM,PRMAFT, IFRMYR,ILRMYR,IFFYR+1YRel@1, 00006510 +PRMGIN) 00006520 11123 PRMG(I)SPRMGIN+FLUAT (IL) &RMINC“RMBAS 00006530 11124 CONTINUE 00006540 Cee ee ee ee ee te ee ee ee eee ee ee ee ee eH = MOD0OKIN c = = ADD AMWINC TO CPLAN PARAMETER LIST mOD06900 CALL CPLAN(I¥K,NS,LRP1,LEAUMN,LEADMX,LEAD,CCAP78, RETIRE, 00006550 c +ITAVYR, TKNAMS FES, AVL CEP, CEXDEMsPRMGe AS eCAPLIM,AMIX90¢SIZE,RMYES) 00006560 +TAVYR, TKNAM,FFS,AVL,CEP,CEXDEM,PRMG,AJ,CAPLIM,AMIX90,SIZE,RMYES, MUDU6910 +AMWINC) “0006920 C fe ee ee ee ee ee eer Ee eee ee ee eee = = M0095 2035 CONTINUE 2 00006570 FFS=SFALSE 00000580 TOTCAP=CTOT78 00006590 OEM(IYR)=CUKDEM 00006600 C see eee ee te te er et tee te ee eee ee ee ee ee = = MUD0O94GN Cc - - DO LUUP FINAL VALUES INCREASED 10 16 Fuk THE 16 ™0006950 c TECHNOLUGIES 40006960 c DO 2030 151,10 00006610 00 2030 I=1,16 MUL06970 2050 TFC(RMYES(I)) TUTCAPSTOTCAP+CEP(I,ITYKP1,NS)-RETIRE(I,IYRPI) 00006620 RRMCLYR)STUTCAP/DEM(TYR) 16 0000663u IVCYR=(1P=1) eNYPP+(WYPP¥2) /2 00006640 IF (IPLEQ 1) LVCYRENYPP/2 00006650 IF CIP.EQ.1 AND NYPP EQ A) IVCYR=1 00006660 IF (NVCPP EUSL AND IYR.NESTVCYR) GOTO 1958 00006670 c 00006660 IF (.NOT.RUNPRIGOTU 110 00006690 B.24 C FIND CAP FOR PRUDUCTIUN COSTING 00006700 vo 20$2 IC=1,7 000v6710 IF (.NOT.OCDEMCIC) )PKMAIN(1C) SUUTCAP (IC) v0v0e720 2032 IF COCDEMCIC) )PKMAIN(IC) SUUTCAP CIC) *CURDEM/UEM78 00006730 c OO 19373 IC51,10 00006740 OO 19373 IC=1,lo MOD06956 19575 CAP(IC)=CCAP76(IC) *CEPCIC,IYRPI,NS)-RETIRECIC,IYRP1) 00006750 C fee ee ee er et er ee ete ete eee ee ee ee ee = = MOD0E99U € = = HYRN IS NO LONGER USED BY PRODUC MODO7UU0 c IF CHYEN(2) LTeeS)GOTU 19376 00000760 c OO 19374 11,3 00006770 c PPSHYEN(I) /HYEN(2) 0000678u C19S74HYRNC(I) SHYEN(1)+(CEP(10,TYRPI,NS) 00006790 c +-RETIRE (10, 1YRP1)) *HYINC®PP 000008600 C fee ee ee ee er ee ee ee eee eee ee ee ee = MODOTOIY 19376 CONTINUE 00006610 c 00006820 C fee eee ee te te ete rte tt tee ee tee ee ee = = MUDOTU2O Cc = = SET BLOC, ALF, YLF TO THE Iyk YEAR VALUES 40007030 c MOD0704U DO 109 11,2 MUDU70S0 ALF (1) sXALF CISPN(NSC),IYR) 40007060 00 109 Js1,12 MO007070 BLOC (J, IJ SXLOCCISPN(NSC),IYReJ) MOD07080 109 CUNTINUE m0007090 YLF=ALF (1) M0D07100 c mu007110 C ree eee ee er et ete er tet eee ee eee ee ee = MODOTI20 CALL PRODUC CIYR, CAP,MWINC,AMWINC /DFP,NSIZE,LUCL,1YR)sAVAIL,CLUC, 00006830 +PKMAIN,OUTAV,CURDEM, YLF ,FENG,FTIME,HYPROU, ALF ,BLUC,DBLUC, PW, PMAIN, 00006840 +HYRN, PPDET, KRM, UEM, TKNAM, OUTTYP, NH NHY, 1S, IP, NPeNYPPeNVCPP, YEARS, 00006850 es 1) c +RPRUD,VC,ENV,OUTCST,APCOET, TERMIN, TVC, AMM, 1 THOR, VCESC,HYMULT,VDFO, 00006860 € +HA,OQUTESC,QUTC,CSENV,CSOUT,/ PRM) 00006870 +RPROD,VC,ENV,HR, IF TU,FC, 1YFODE,QUTCST,APCUET, TERMIN, TVCe AMM, I THUR, MODO714U c - = MCUTIL ADOED TO PARAMETER LIST 0007150 +VCESC,FUESC,HYMULT,0FO,HA,OUTESC,UUTC,CSENV,CSOUT,PRM,HCUTIL, MOD07160 c = = ADDITIONAL PARAMETERS FOR SUSRUUTINE WRIINT Muv07170 +ACAP,AGEN,FCAP,FGEN,XLOLP,INTR, MOD0718u C. = = AUDITIONAL PARAMETERS FOR ANCHURAGE © FAIRBANKS ™0007190 c LIMITED INTERTIE CALCULATIONS MODYT200 +LCFAIR,FEYRLYsALLINT, “0007210 c = = AUDITIONAL PARAMETERS FUK CPRT REPORT = ENERGY TABLE MmOD07220 +CPRT, TECHEN) M0v07250 c MuD07240 C se eee cere ere eee eee eee eee eee ee ee © © © G007250 110 CONTINUE 00006880 AMS=(AMM+0M)/(1.°tLOSS) 00006890 ENYEAR=CURDEM*YLF*8,76 00006900 TVC=TVC+OMAENYEAR/1000, dv0d0e910 TTICOS(IYR)STVC 00006920 TTOUS(LYR+1)=CSOUT 00006930 TTEOS(TYR+1)=CSENV 00006940 TTENGY CIYR) =ENYEAR 00006950 TYRA=LR-5 00006960 2037 TENGY=,000001 00006970 TTCUS=0, 00006980 B52 2039 2041 204s c TECOS=0, Tocos=o0, ITF CIYR LT LRe5S,AND, (LVZ.OR, (NYPP,LE.8)))G0IN 2043 DO 2039 I=IYRA,LR TTCOSSTICUS+TITCOS(1) TECOS=TECOS+TIEUS(I+1) TOCOS=TOCOS+TTOUS(I+1) TENGYSTENGY+TTENGY (1) IF (TENGY,GT,,0001)GOTO 2041 IYRAZIYRA=1 IF (IYRA,GE,1)GOTO 2037 TAM=TTCOS*#1U00,/TENGY TEMSTECOS#1000,/TENGY TOM=TOCOS*1000,/TENGY CONTINUE _ c PRINT 1 LOGIC c 2500 19378 1935& 1919 1939 19375 IF (NVCPP,EQ,1.0R,1YR,NE,1)GUTO 2500 G=EN7T8/ENYEAR EVALUE (1,2) =G*TVC#10,%%6 TTOCOS(1) =CSOUTRG*10, 486 TTECOS(1) SCSENVeGR10, 286 CONTINUE VALUESTVC#10,*%%6 EVALUE CIYR41,151)SVALUERATIF ee (IYR) TTOCOSCIYR41)SCSOUTH1O, ee OeAIFaalYR TTECUSCIYR+1)SCSENVALO HRORATF RR IVR IF (NVCPP.EQ.1)GUTU 1938 IF (ILOOP,NE,1)GUTU 19378 00006990 00007000 00007010 00007020 00007030 v000704U 00007050 00007060 00007070 00007080 00007090 00007100 00007110 00007120 00007130 00007140 00007150 00007160 00007170 00007180 00007190 00007200 00007210 0000722u 00007230 00007240 0000725u 00007260 00007270 00007280 PRINT 1996, 1YEAR,EGROCIYR) -AMS,DEM(IYR) -RRM(IYR) ¢PRe CISC) 6 L=1-¢1P)00007290 GOTO 1938 IF (ILOOP ,EQ.NYPP)GOTO 1938 PRINT 1997, TYEAR,EGROC(IYR) ,AMS,DVEMCIYR) »RRM(IYR) CONTINUE IF (NVCPP,NE,1)GOTU 19375 AAF=AIFae(IVCYR) IF C(IP.NE.1)GOTU 1919 GSENTB/ENYEAR me TTOCOS (1) =TTOCOS(IVCYR#1) eG/AAF TTECUS (1) =TTECOSCIVCYR41) *G/AAF EVALUE (1,2) SEVALUE (IVCYRo1,1S1) *G/AAF CONTINUE ETSEVALUE (IVCYR+1,151) vO 1939 IS1,NYPP FRACTN=(DEM(IYReI=1) /DEMC(IVCYR) )xALF ax (LYRe1ol) SATE ee IVCYR EVALUE(TYR#2-1, ISL) SETRFRACTN TTUCOS(IYR+2-1)STIOCOS(LVCYR#1) eFRACTIN TTECUSCIYR+2eIETIECOS(IVCYR 41) HFRACTN CONTINUE CONTINUE IF CIP.NE,NPJGUTU 19380 IF (DECDET)CALL DPRINI (YEARS, TKNAM,IS,/NP,1YRK,LEP,DEM,PRePRM,y +DECDET, RETIRE, NS,CTOT78,RRM, IFRMYR, ILRMYR) C =—=seca axe wee awinimsease wee See sccoe swe asaaana a B.26 00007300 00007310 00007320 000U0733u 00007340 00007350 00007360 00007370 0000758u 00007590 00007400 00007410 0000742u 00007430 00007440 00007450 00007460 00007470 0v007460 00007490 00007500 0000751U0 00007520 00007530 00007540 MuD07260 -_ 7+ ~~ > c c ~ = CAPACLTY ANDO ENERGY PRINTOUT RUUTINE = DEMPRT IF (CPRT) CALL DEMPRT (TITLE, YEARS¢ TKNAM, 1L9,NPe TYR eCEPPVEM DENT Be + PRM,RETIREsNS,CCAP/H, c - = ADDITIONAL VARIABLES FOR THE ENERGY TABLE + AVE7G,YRLYEN, IECHEN) c (i IF CITHUR.LT.1IGUTO 40003 IF (.NOT.RUNFIN)GOIO 19380 CALL PROLEV(FC1,FCTLH,FCTL,FCTLI,FCHL,LT,Lb,0F1,0F2,LF3, +0F4,0FS5,LT0,L60,0F ,OFLEV,/FCLEV) c WRITE (11,40000) c WRITE (11,40001) (FCLEV(I), 151,10) ,DFLEV Cc WRITE (11,90001) (FCLEV(1),I=1,16) ,DFLEV 40000 FORMAT('LEVELIZED FIXED CHARGE RATES TO LB AND LBAVE FOR ' c +/'TECHS 1 TO 10, DIST, THEN wRITE TERMIX(1),1T=1,10,") +/"TECHS 1 TO lo, DIST. THEN WRITE TERMIX(I),I=1,16.') C40001FORMAT(11F7.5) 40001 FORMAT (17F7.5) CALL TERFIX(LBAVE,OF ,L8,LBD,FCLEV,OFLEV,FCESC, FERMIX, +LR,CAPCST,VISFC, TEC, ITHOR) WRITE (11,40001) (FCLEV(I),1=1,10),OFLEV WRITE (11,40001) (FCLEV(I),/ 11,16) ,DFLEV WRITE (11,40001) (TERMIX(1),1=1,10) WRITE (11,40001) CTERMIX(1), 121,16) WRITE (11,40002) (TFC(I), 151, 1THUR) 0002 FORMATC('TERFIX TFCS'/((10F8,0))) = = CALCULATE CUHY FOR 7 HYORO TECHNULUGIES CUHY=CCAP78(10)#CEP(10,LRP1,NS) #RETIRE(10,LRP1) CuHY=0.0 OO 11117 1=10,16 CUHYSCUHY + CCAP78(1) + CEP(I,LRP1,NS) + RETIRECIeLRP1) 11117 CONTINUE i FOMRETS0, NO 11118 [51,9 CAP(I)=CCAP78(I)+CEP(I,LRP1,NS)@RETIRE(IT/LRPI) ano28nnann = - CODE CORRECTION FOR THE CASE WHEN TUTCAPSCUHY 1L118FOMRETSFUMRET*FOANDM(T) eCAP(I)/(TOTCAP=CUHY) IF (TOTCAP © CUHY .LT, 200001) GO TO 11118 FOMRETSFOMRET # FUANUMC(1) *CAP(I)/(TOTCAP = CUHY) 1118 CONTINUE aannrae 1 c C =e ee ee ee ee et eee tt ee ee ee ee ee ee ee ee c c c EGROCLRP1L) SRATEL®GROW(NP+1) *RATESRAL EGRO(LRPL) SKATEL*®EGRU(LR) + KATE2®AL an CALL FOMESC(CLUC(501),CLDC (601) ,FCESC,CAP,CTUT,/CUHY,LKy +I THOK,FOANDM, FEKMIX) B.27 MOD07270 MOVD07280 MOD07290 M0D07300 MODO7310 MU007320 0007330 MOD07340 00007550 00007560 00007570 00007580 00007590 00007600 MO007350 00007610 00007620 M0D07 360 00007630 M0D07370 00007640 00007650 00007660 M0D07380 00007670 M0007390 00007680 00007690 MUD07400 0007410 00007700 MOD07420 0007430 m™0D07440 M0007450 ™G007460 00007710 00007720 00007730 MOD07470 MODO7480 40007490 00007740 MOD07500 0067510 0007520 M0007535U M0007540 0007550 MOD07S60 MODOTS7U 00007750 MO0UV07S60 0007590 MODO76U0 00007760 00007770 DO 7934 ISLRP2,HORIZN 7934 EGROCL)SEGRU(L-1) eRATEL+AL*RATE2? C seeks CALL TERMINAL VALUE MODEL *xee* CALL TERM(TAM,EEVC,DF,ATIF,OLR,ALR,LR, I THUR, AL, RATEL, KATES, +DEM,EGRO,YLE ,CUHYs TOTCAP + CLOC (201) sPRMZ RRM, TFC TERMVC se VARPRCG +EN7TH,CGR,DEM74,CLUC,CLUC (601),CLOC(501),0FLEV,UVISESC,DI5IRA, +PRMBEF ,PRMAFT, IFFYR, IFRMYR, ILRMYR,LUAVE,CLUC (701), +#TUM, TEM, TERMEC, TEKMOC,CSENVT,CSOUTT) 40003 CONTINUE C keeee FINANCIAL CALCULATIONS THAT DEPEND ON DECISIUNS xtexnne CALL CEPMUDICLOC (401) -NS,CEPeLRPI, ISTART,/CLUC, TERMIX) CALL START (LAGREG, SGRU, BGRU,EDINT, RHE, EVEBI,COCHIS) CALL CAPCUR(CEP,NS) CALL AMORT IF (LAGREG.EW.0) CALL FXCHAR(FC1-FCTLA,FCTILeFCTLI,FCKL SLT) IF (LAGREG ,NE,G) CALL FXCHRL(FC1,FCTLH,FCTL,FCTLi,FCKL,LT) CALL FXCWIP CALL CAAHOR(CLOC, IERMIX) CALL DIST(LBD/LTN,/DF1,DF2,0F 3,0F4,DF5,EN7T8-DISTRA,ARATE,UISESC) CALL PLMEXC(CEP,STAPRT,NS,LSTAGE) CALL COMFIN(LAGREG, EMBDRT, EMBPRE , EMBCOM) CALL CEPFIX(CLDC(401),NS,CEP,LKP1,1START) aaaao CALL FIXOM(FIXCHG,LRP1,CEP,RETIRE,NS,CCAP76,FOANUM, INFLA, +FCESC,HORIZN) C rxeaaneaee END OF FINANCIAL SUBMODEL Kae kaeKKKKReRRRREE AAF=1./A1F GCUM=i, PVENGY=0. DDF=1./0F ANNFXK=0, ANNEX=0, 00 19400 [=1,HORIZN C HERE, TERMINAL FIXED CHARGES START STORAGE IN CLDC(200+PHORZN+1). IF CI .GT.PHORKZN)FIACHG CL) SF IXCHG (1) +CL0C (200e1) DOF =UDF «UF AAFSAAFRAIF 5 ENERGYSEN78*GCUM ANNEX SANNEX#EXCUS1 (1) sO00F ANNFXSANNE X+F 1XCHU (I) #O0F FIXPRC (1) =FIXCHG (1) / (ENERGY *AAF ) IF (CNOOL) PVENGY=SPVENGY +ENERGY RAAF DUE IF (NOT. CNOOL) PVENGY SPVENGY*ENERGY ODF 19400 GCUMSGCUM+EGROU (1) TERMF STERMF +P x ANF X C CHANGE ENERGY GENERATED INTO ENERGY SALES PVENGY=PVENGY*(1,~ELUSS) ANNEXSANNEX/PVENGY ANNF X=ANNFX/PVENGY IF CFINDET.ANDeRUNEFINJCALL PRIFINCIFFYR, ILFYR¢CURD, ANNEX, +ANNEX, IS, NP, RUNFIN, PRM) B.28 00007780 00007790 00007800 00007810 00007620 00007850 00007840 00007850 00007600 00007870 00007680 00007890 0000790U 00007910 00007920 0000795u 00007940 00007950 00007960 00007970 00007960 00007990 00008000 00006010 00008020 00008030 00008040 00008050 00006060 00008070 00006060 000086090 00008100 00008110 00008120 00008130 v000614u 60008150 0000616u 000086170 00008160 00008190 00008200 00008216 00008220 00006230 00008240 00006250 00008260 00006e70 00008260 00008e9u 000063006 00008310 00008320 00008330 00008340 IPEKD=1 IcOunT=o0 ANNEC=0, ANNOC=0, ANNVC=0, ODF=1./0F ISst=2 GCuma1, AAF=1,/AI1F DO 19386 I=1,LRP1 AAFSAAF RAIF ODF =DOF «DF ENERGYSEN78*GLUM VARPRC (I) SEVALUE (1, 1SE) / (ENERGY XAAF ) GCUM=GCUM+EGRU(L) C THE PRESENT VALUE OVEK THE PLANNING HORIZON [S ACCUMULATED C IN ANNEC, ANNOC, AND ANNVC, THIS IS DONE FUR EACH TREE PATH. ANNECSANNEC#OLF « TIECOS(1) ANNOC=SANNOC *DUF x TTOCOS(1) ANNVCSANNVC*#DUF *E VALUE (I, ISE) IF(IT,EQ.1) ISE=IS(1) ICOUNT=ICOUNT+1 IF CICOUNT.LE,NYPP)GOTO 19386 IPERD=IPEROFL ICOUNT=1 ISESISCIPERD) 19586 CONTINUE C TERMEC, TERMUC, AND TERMVC AKE PRESENT VALUES FROM THE TERMINAL C VALUE MODEL, TERME, TERMO, AND TERMV ACCUMULATE THE C EXPECTED PRESENT VALUtS OVER ALL TREE PATHS. c TERMESTERME+PR* (ANNEC+TERMEC) TERMUSTERMO*PR® (ANNOC*TERMUC) TERMVSTERMV+PR* (ANNVC+TERMVC) ANNVC=(ANNVC¢TERMVC) /PVENGY ERMARGSERMARG+PR&RRM(LR) TOTCG=ANNVCE FANNE X C CHANGE PRICES FROM GEWERATION COST INTU SALES PRICE, OO 19364 [s1,HORTZLN VARPRC(L)=VARPRC(1)/(1,-ELOSS) 19384 FLIXPRC(T)SFIXPRC(L)/(1.-EL USS) an naa c Cc £ tree + + IF CPRCS)CALL WRIPRC(FIXPRC,VARPRC,AIF,IFFYK,ILFYR, HURIZN,IS,NP, PRM, AWNVC, ANNE X,UriM) = - CUST SUMMARY REPORT ROUTINE IF (CSUM) CALL wRISUM (FIXPRC,VARPRC, YRLYOM,VEM78, YRLYEN,AVET78, IFFYR, LK, PRM, I1S,NP,INFLA,CUSC,ISPN,NSC,AECONS, PKCONS, ICCUNS, PCCONS, TITLE) = = ANCHORAGESFATRGANKS INTERTIE KEPURT IF (INTR) CALL WRIINT (TITLE, TKNAM,CCAP78,AP78,FP78,AE76,FE78, APYRLY,FPYRLY,AEYRLYsFEYRLY, ACAPs AGEN CAPs E GEN, XLULP, IFFYR,LK,PRM,LS,NP,ISPN,NSL, = = AUDITLUNAL PARAMETERS FOR GLENNALLEN GP78,GE78,GPYRLY,GEYRLY) 19$80 CUNTINUE B.29 00008350 000083600 00008370 0000838u 00008590 v000840u 00008410 00008420 0000845 00008440 00008450 00008460 00006470 00008480 00008490 00008500 00008510 00008520 00006530 000086540 00008550 00008560 00008570 000086580 00006590 00008600 000086610 00008620 00008630 00008640 00008650 00008660 00008670 00008680 000086690 00008700 00008710 000086720 00008730 00008740 00008750 00008760 MOD07610 mMOD07620 MOD07650 MOD07640 MOO007650 mOD07660 MOD07670 MOD07680 MOD07T69"U 0007700 MOD07710 mud0772U MOD07730 MU007740 00008770 PRINT LOGIC 2 ananaac IF (NVCPP, IYERSIVCYR IMRSIVCYR IFCIPCEG,NPIPRINT 1995, TYEReEGROCIMR) sAMS,VEM(IMR) ¢RRMCIMKD + ANNVC, ANNE IFCIP.NESNP)PRINT 1996, 1VYER,EGROCIMR) »AMS,VEMCIMK) pRRMCIMK) , +PR,CIS(I), GOTO 19397 19394 IFCIP.NE.N PRINT 1998,TYEAR,EGROCIYR) »sAMSeDEMCIYR) ¢RRMCIYR)» +ANNVC , ANNE GOTO 19397 19398 PRINT 1997,1YEAR,EGRO(TYR) ,AMS,DEM(LYR) ,RRM(1YR) 19397 CONTINUE c C RARER REAR EEK c c c c IF (KSCEN)G Cc IF CIP.EQ,N c GOTO 1920 C1940 ISCIP)=NB+ C1950 [SCIP)=IS¢ c IFCISCIP). c FFS=TRUE C1953 CONTINUE c IFCIS(IP). c 1SB=e2 c IF CIP.NE ed Cc GO TO 1908 IY=NYPP*IP keaxke LOGIC BA DISCOUNTING IF (NYPP.EQ.1)G NYPPM1=NYPP=1 00 1970 J=1,N6 OO 1970 I=1,NY 19705 CONTINUE TAKE EXPECTED 1F (NBLEG.2)G0T TF (NB .EQ.1)GOT moanmanraneannananeae G+ C GUTU 1975 C 1973 ETEMP=DF*(EVALUECIY@NYPP41,1) +EVALUE (LY°NYPP41,2))/2. C wuTU 1975 END OF ANNUALIZED FIXED AND VARIABLE CUST LOGIC E.1)GOTU 19394 +IFIXCVEARS(1)4.5) X, TUTCG,PR, (IS(1),1=1,1P) 1=1,1P) P)GUTO 19398 X,TOTCG RRR K OTO 1908 P)GUTO 1950 1 IP)=1 Eu.NB)GUTO 1953 NE.U)GOTO 1930 JISH=ISLIP$1) +1 CK *keae O10 19705 PPML 1970 EVALUE (TY¥e1,J)=EVALUE (IY-I,J) oDFxEVALUE(IY+1=-1,J) VALUE AND DISCOUNT O 1973 0 1974 ETEMPSDF ® (Q« (EVALUE (IY=NYPP+i,3)#EVALUECLY=@NYPP41,1))/2. *( Ler) *EVALUECTY<“NYPRh41,2)) B.30 00008780 00008790 uv0u8svu0 00008810 00008620 00008850 00008840 00008850 0v008660 00008870 00008880 00008890 v0008900 000Ga9i0 00008920 00008930 00008940 00008950 06008960 00006970 00008980 00006990 MUuD07750 0007760 MODOTTTU 00009000 00009010 00009020 00009030 00009040 00009050 00009060 00009070 00009080 00009090 00009100 M0007780 m0007790 MODO780U0 MUv078610 00009110 00009120 00009130 00009140 00009150 00009160 00009170 00009180 00009190 Ovdu09200 00009210 00009220 0600925u 00009240 00009250 00009260 00009270 1974 ETEMP=O0F sE VALUE (IY-NYPP+1,1) 1975 EVALUE (IY*NYPP,IS8)SE VALUE (I1Y“NYPP, ISH) tETEMP RRA RR ER RR EE RRR RK IP=IP+1 IFCIP,NE,0)GOIO 1950 c c c C see ee eee ee eee ee ee ee eee ee ee ee ee ew c c c Clieessecesass Saeseicis es sisieis se siceieec cs sisi aie 19860 CONTINUE C «xxx END OF VISITATIUN xanax 1988 FORMAT(//8X,*PRUDUCTION BY YEAR',12X,"LEVELIZED PRICES', +"'(M/KWH)',4X,'PROB TREE*) 1969 FORMATC'YEAR GROW VeE+O DEMAND RM", 4X, +! V+E+O FIXED TOTAL',10X,'PATH') 1990 FORMAT(08X,"(M/KWH=',14,°S)',2k,' (MW) ', LUX, +'(LEVELIZED ',14,' DOLLARS) '/) 1991 FOURMAT(08X,"(M/KWH=',I4,'S)*,2X,9(MW)", 8X, +'(LEVELIZED CURRENT DOLLAKS)'7) 1995) FORMATCI4 , Foc3¢FOK cee F 9.0 FOe Se 7K se SPF7T62,CF7 oe, OPF B63, +2X,3011) 1996) FORMAT(I4,FO.35eF U8 .20F 9.0, F 6035 28X,FK.3,2eK, 5011) 1997 FORMAT(I4,Fo,5,F06,2,F9.0,F6,3) 1998) FORMAT(I4,F6,3¢F08,25F9,0,F 6,55 7Xe—-3PF7,2,2+7,2) 3995 FORMAT(/*EXPECTED PRICES(M/KWH) ',10X,8X,-3PF7.2,2F7.2/ + ANNUAL COST TO CUNSUMERS($m)',5X,6X,-0PSFILU0// +'PLANNING RESERVE MARGING', OPF8,3) 3995 FORMATC'EXPECTED RESERVE MARGIN: ',F8.3) 5997 FORMAT(104,15A4) ACCUMULATE LEVELIZED COSTS FOR PRINTOUT annano IF (NOT, SIDE)COST(IDEC,1)=PRM IF CCNSYS)FRACINZENS78/ (PVAEN®1000000,) IF (NOT SENSTS) ERAS TET ANTEES 000004 IOTHER=1 ICOUD=IDEC IF (SIDE) IOTHERS0 1F (STVE) ICQUuD=1 IF C.NOT,CNSYS) GG=PVAENRANIZE IF (CNSYS)GG=ENS78 COSTCICOUD, IOTHER+1) STERMF RERACTN COST CICOUD, LOTHER+2)= (TERMV=TERME=TERMU) *FRACTN COSTCICOUD, IOTHER+3) STERME®FRACIN COST(1COUD, IOVHER+4)STERMUORFRACTN IF(.NOT.SIDE)GOTO 3999 DO 4001 T=1,4 4001 COST(2,1)=CUST(1,1)*1000./66 DO 4002 Je1,2 COST(J,S5)=0. DO 4005 1=1,4 4005 CUST(S,5)=CUSI (5,9) 4CUST(J,1) 4002 CUNTINUE CALL PTCUST(SILE,CNDOL,PVAEN,CUST,IVEC,IFFYR, IFRMYR,ILRMYR,PRH, +AWIZE,CNSYS,/ENS78) $999 CONTINUE B.3] v0009280 00u0929U 0009300 MODU7820 MUD0785U 00009310 00009320 MUDO7TB40 90009330 0000934u 00009350 000093606 00009370 00009380 00009390 00009400 0v009410 00009420 00009430 00600944u 00009450 00009460 00009470 00009480 00009490 00009500 00009510 00009520 00009530 00009540 00009550 00009560 00009570 00009560 00009590 00009600 00009610 00009620 00009630 00009640 0000965u 00009660 00009670 00009680 00009690 00009700 00009710 00009720 00009730 00009740 00009750 00009760 00009770 00009780 00009790 00009600 00009610 C CALCULATE PRICE OF ENERGY 00009820 c 0000983u TERMV=TERMV/PVAEN 0000964u TERMF=TERMF /PVAEN 00009650 EPVREQ=TERMF +TERMV 00009860 PUE=EPVREQ 00009670 c 000069680 C ANNUALIZE EXPECTED CHARGES 00009890 c 00009900 C EANREQ HAS UNITS (MILLS/KWH) #1000, 00009910 EANREQ=STERMV4+ TERME 00009920 O=0MM&GG 00009930 TV=TERMV®GG 0000994u TF=TERMF *GG 00009950 E=EANREQ*GG 00009960 c 00009970 PRINT 3995, TERMV, IERMF,EANREQ,TV,TF,E,PRM 0000998u c 00009990 9999 CONTINUE 00010000 IF(.NOT.SIDE)CALL PTCOST(SIDE,CNDOL,PVAEN,COST/LVEC, IFFYR, 00010010 +IFRMYR, ILRMYR, PRM, ANIZE,CNSYS,ENS78) 00010020 99999 CONTINUE 00010030 WRITE (10,3998) 00010040 3998 FORMAT(//'OVER/UNUER CAPACITY PLANNING MODEL'/ 00010050 + UPDATED BY DECISION FOCUS, INC, 8/8/79,") 00010060 WRITE (10,39961) mu0U7850 39961 FORMAT (//'OVER/UNUER CAPACITY PLANNING MODEL © © AREEP VERSION'/ MO007860 + "MOUIFIED BY BATTELLE NORTHWEST, 2/1/82,') MU007870 STUP 00010070 END 000100806 B32 SOTMNNANAMTMANMMAMNMAMAMANNGANAMMAMAAMAMAMAAANANANMAANANMAAAAAANNAAAAAAAANAANNA FOO IOI OIG IOI IOI IIIT II IOIIOIDIIGIOIIOIIIOIII III OORT IOI ELECTRIC POWER RESEARCH INSTITUTE OVER/UNDER CAPACITY PLANNING MUDEL DEVELOPED UNDER RPW1107 CUSTS AND BENEFITS OF OVER/UNDER CAPACITY IN ELECTRIC POWER SYSTEM PLANNING VERSION DATED 8/8/19 FIO IOI GIIGIDIGIOIIIDIUIIOIOI III IIOI OCI OUI ATTACHMENT 8 THE FOLLOWING LS A NOTICE OF COPYRIGHT, AVAILABILITY UF SUBJECT MATTER, AND UISCLAIMER WHICH MUST BE INCLUDED IN THE PROLOGUE OF THE CODE, IN ALL PRINTOUTS OF THE CODE, AND IN REPURTS MADE FROM THE CODE, (COPYRIGHT) 1978 ELECTRIC POWER RESEARCH INSTITUTE, INC. EPRI RESERVES ALL RIGHTS IN THE CODE. THE CODE OK ANY PORTION THEREUF MAY NOT BE REPRUDUCED IN AWY FORM WHATSOEVER WITHOUT THE CONSENT OF EPRI, SUCH CONSENT HAVING BEEN OBTAINED, CHANGES OR MODIFICATIONS MAY BE MADE IN THE CODE PRUVIDED THAT WRITTEN NOTICE AND A DETAILED OESCRIPTION OF ANY SUCH CHANGES Ok MOLIFICATIONS SHALL BE TRANSMITTED TO EPRI WITHIN ONE MONTH AFTER SUCH CHANGES OR MODIFICATIONS ARE MADE AND PRUVIDED FURTHER THAT, UPUN THE wRITTEN REQUEST OF EPRI, IHE CODE, AS CHANGED OK MUDIFIEU, SHALL BE GIVEN A NEW DESIGNATION SUFFICIENTLY OIFFERENT FROM ITS CURRENT DESIGNATION AS TO PREVENT MISTAKE, CONFUSION, OR UDECEPTIUN ADS dETWEEN THE CURRENT COVE AND THE CULE AS) CriANGED OR MODIFIED, A LICENSE UNDER EPRI'S RIGHTS IN THE CODE CAN BE OBTAINED DIRECTLY FROM EPRI. REQUESTS FOR THE Cuve SHUULD be ADDRESSED TUs Mk, EUGENE QATMAN EWEKGY ANALYSIS & ENVIRONMENT DIVISION ELECTRIC POWER RESEARCH INSTITUTE S412 HILLVIEW AVENUE PALU ALTO, CALIFOKNIA 94304 (415) 635-2629 ae eR ee ee eh eR Oe OO OO OE OO OF Oe Em OE Ok OE OO tO Ot mt et Om Om Om OO Om OF Ot B.33 00010090 oou10100 00010110 00010120 00010130 00u10140 00010150 00010160 00010170 v0010180 00010190 00010200 00010210 00010220 00010230 00010240 00010250 00010260 00010270 00010280 00010290 00010300 v0010310 00010320 00010330 00010540 00010350 00010360 00010370 00010380 00010390 00010400 00010410 00010420 00010430 00010440 00010450 00010460 00010470 v0010460 00010490 06010500 00010510 00010520 00010530 0001054u 00010530 00010560 00010570 00010580 00010590 00010000 00010610 00010620 00010050 00010640 000106S5u ANAM OMANANMOMAOANMNAANNACAMNANANO aananan * NEITHER EPRI, ANY MEMBER UF EPRI NUK ANY * * PERSUN OR ORGANIZATION ACTING ON BEHALF OF ANY OF ® x THEM: * * * * (1) MAKES ANY WARRANTY OR * * REPRESENTATION WHATSUEVER, EXPRESS * * OR IMPLIED, wITH RESPECT TU THE *& ® ACLURACY, COMPLETENESS oR * * USEFULNESS OF THE CODE OR ANY *& * POKTION THEREOF; * ® * * (2) MAKES ANY WARRANTY OF -* * MERCHANTABILITY UR FITNESS FOR ANY *& & PUKPOSE WITH RESPECT TO THE COVE? * * OR * * * * (3) ASSUMES ANY LIABILITY WHATSOEVER * ® WITH RESPECT TO ANY USE OF THe CODE * * UR ANY PORTION THEREUF UK WITH * ® RESPECT TO ANY DAMAGES WHICH MAY & x RESULT FROM SUCH USE, * * * RARER RAREEERERRAERRREREREARAREERARRERREREEARRERERER BLOCK DATA = = DIMENSIONS RELATING TO THE NUMBER OF TECHNOLOGIES HAVE BEEN MODIFIED TO ACCOMMUDATE UP TO 7 HYDRO TECHNULOGIES. COMMON /C3/ EXCPLM(100) /CwrIP(100) -CC,DINT(10u) sLAGK (16) + ,AFUDC(100),VITC(100) ,CAPCST (16) ,UINVST(100), RIBASE (100), + FCWIP (16,13) ,/NCON(16) -FAFUDC (16,13) sLEN(100) -PCWIP,BUNDRT (100), + EGRO(100),ASSETS(100) ,ExCUST(100),FIXCHG(100),ASS78 + ,AAMORT (100) /CURCAP (16,100) ,FCESC, ADDIGN(100) -DEPRKEC (100), +TAXES(100) -COVER (100) ,RATINT (100) ,VELTA(10U) -COFCAP(100), +RETINT (100) PREFER (100) »COFCUOM(100) - ADUFON(100) ,DUMMY (250) = = FCESC WAS NOT ORIGINALLY DIMENSTUNED HERE 4 DIMENSION FCESC(10) DATA EXCPLM,FCWIP,FAFUDC, AAMORT,ADUIUN/100%0.,208%0,,208%0., +10020,,10080,/ DATA DUMMY/25080,/ END B. 34 00010660 000106070 00010680 00010090 v0010700 00010710 00010720 00010730 00010740 0vu010750 00010700 00010770 00010780 00010790 00010800 00010810 00010820 00010830 00010840 00010650 00010660 00010870 00010880 00011010 MGD07680 M00078690 40007900 M0007910 m0007920 vo0lloeu 00011030 00011040 G001105u 00011060 00011070 00011060 m0007930 mu00794U 0001109060 00011100 00011110 00011120 SUBROUTINE TERFIX(LBAVE,DISC,Ld,LBDO,FCLEV,UFLEV,FCESC, TERMIX, 00020010 +LR,CAPCST,DISFC, TFC, LBMAX) 00020020 c 00020030 C THIS SUBROUTINE CHANGES THE LEVELIZED FIXED CHARGE RATES INTO 00020040 C RATES LEVELIZED OVER LBAVE YEARS. THEN THE ESCALATED LEVELIZED 00020050 C FIXED CHARGE IS CALCULATED AND STORED IN TFC, NOTE THAT THE 00020060 C WEIGHTED AVERAGE 1S CALCULATED USING TERMIX. 00020070 c 00020080 | lh) me! ce} oho! so) uy}! ||| [saline en! fer ie) ml Cw |. | fe! fo) ew} fo [=e] ©) =|) wll |=! MODO79SO c = = DIMENSIONS AND 00 LOOP FINAL VALUES MUDIFIED TO MUD07960 c ACCOMMOVATE 16 TECHNOLOGIES. 0007970 Cee eee eww ee ewe ee ew ewe et www ee ee ee ee we = OD079RO DIMENSION FCLEV(16),L8(16)/ TFC (100) -FCESC (16), TERMIX(16), 00020090 +CAPCST(16) oo020100 Cc 00020110 C LEVELIZE TU COMMON LBAVE HORIZON, 00020120 Cc 000201350 BAVE=0, 00020140 c DO 5 151,10 00020150 DO 5 151,16 MuD07990 5 BAVESHAVE+FLOAT (LOCI) ) *TERMIX(1) 00020160 LBAVESIFIX(BAVE+,9) 00020170 c = = BYPASS SOME CODE TO AVUIL DIVISTUN BY ZERO FOK THE Mov080v0 iii: CASE WHEN DISC51 (I.E. IwPuT CUSC=0) MOD08010 c THE EFFECT IS NOT TU DISCOUNT DFLEV AND FCLEV 0008020 IF (DISC .E€¥, 1.0) GO TO 11 MUD08050 c 40008040 DFLBMS1,-DISCe*®LBAVE 00020180 DFLEV=0FLEV*(1.-01SC**LBD) /DFLEM 00020190 Cc DO 10 I=1,10 00020200 vo 10 [21,16 mop08050 10 FCLEV(I)SFCLEV(I)*(1,.-01SC#*LB(1)) /0FLUM 00020210 c 00020220 C CALCULATE THE WEIGHTED AVERAGE FIXED CHARGES 1N UOLLAKS PER 06020230 C MEGAWATT, 00020240 c 00020250 Cc MUD08060 11 CONTINUE 0008070 C mOD08080 DO 30 J=1,LEMAX 00020260 TFC(J)=0. } 00020270 Cc bo 2u I=1,10 00020280 DO 20 I=1,10 MOD080490 TFC (J) SCAPCST U1) #01, +FCESC(1)) #&(LRtJ) AFCLEV(I) *TERMIX(1) #1000, 00020290 ++TFC(J) 00020500 20 CONTINUE 00020310 30 CONTINUE 00020520 RETURN 00020330 END 00020340 B.35 SUBROUTINE PRULEVC(FC1,FCTILH,FCTIL,FCILi1,FCKL,LT,LB,OF1,UF2,DFS, +DF4,0F5,LTUsLB0, DISC eDFLEVsFCLEV) c C THIS SUBROUTINE LEVELIZES THE FIXED CHARGE PROFILES FOR C DISTRIBUTION AND ALL TEN TECHNOLOGIES, AND STORES THEM IN DFLEV AND FCLEV,RESPECTIVELY. = = DIMENSIONS ANU vU LOOP FINAL VALUES MODIFIED TO ACLOMMODATE 16 TECHNOLUGIES. NONT0A0 +LB (16), FCLEV(16) ,POINT(3),SLUPE(3)/ITIME(4) DIFF (3) ITIME(1)=0 (3 OO 100 131,10 DO 100 I=1,16 ITIME (2) SLT(I) 72 ITIME(3)SLT(1) ITIME (4) =LB(1) DO 10 J=1,3 10 IFCITIMECJ+i eI TIMEC J) LE.L)PRINT 20 20 FORMATC('WAKNIWGs TIME IS INCONSISTENT IN SUBROUTINE PROLEV.*) OIFF(1)SFC1CI)eFCTLH(I) FeBSFCTLH(I) @(FCTLHCI)=FCTL (1) )/FLOAT(ITIME (3) -11TIME(2)) OIFF (2)=F2B-FCTIL (I) OIFF(3)=FCTLICI)=FCHL(I) c C FIND POINT AND SLUPE INPUTS FOR SUBROUTINE LEVEL. c OO 30 J=1,3 30 SLOPE (J) =OIFF CJ) /FLUATCITIME CJ*1) <I TIME (I) =1) POINT (2) =Feb*SLUPE (2) xFLUAT(ITIME (2) 41) PUINT(1)5FC1 (1) +S. OPE (1) eFLUATCITIME (1) 41) POINT(3)=FCTL1I(1) *SLOPE (3) xFLOAT(ITIME(3) +1) CALL LEVEL (POINT, SLOPE, ITIMEsOLSC,FCLEV(1)) 100 CONTINUE Cc C FIND DISTRIBUTIUN POINT AND SLOPE INPUTS FOR SUBKUUTINE LEVEL. c ITIME(2)=LTbse ITIME(3)=LTU [TIME (4)=LBD Du 40 J=1,3 40 IFCLTIME(J¢i) “IS IME(J).LE.L)PRINT 20 OIFF(1)=0F1-dDF2 F 2B=UF 2=(DF2-0F3)/FLOAT(ITIME(3)=ITIME(2)) DIFF (2) =Fen=-DF3 OLFF(3)=0F4-D0FS 00 50 J=1,3 Su SLUPE(J)SD1IFF CJ) /FLOATCITIME (J+1) <1 TINE (J) -1) POINT (2) =FebeSLUPE (2) sFLOAT(CITIME(2) 41) POINT(1) SDF 14¢SLOPE (1) FLOAT C(ITIME(1) #1) POINT (3) =0F 4+4SLUPE (3) eFLUATCITIME(3) 41) CALL LEVEL (POINT, SLOPE, ITIME,DISC,DFLEV) RETURN END B. 36 DIMENSION FC1i (16) eFCTLH(16) -FCTL (16) sFCTL1 (ib) sFCBL (1b) eLTiode 00020350 00020360 00020370 00020360 00020390 00020400 00620410 mu008100 MO008110 MODO8120 400081350 v0020420 00020430 00020440 00020450 v0020460 muD08140 oo0eu4d7u 00020460 00020490 00020500 00020510 00020520 do002u05S0 00020540 00020550 00020560 00020570 00020580 00020590 00020600 00020610 00020620 00020630 v0020640 00020650 00020660 00020670 Quu206e8u 00020090 00020700 00020710 00020720 00020730 00020740 00020750 00020760 00020770 00020760 00020790 00020800 00020810 Ouv20seu 00020830 00020840 00020650 00020660 SUBROUTINE LEVEL(POINT, SLOPE, LTIME,DISC,FLEVEL) c C THIS SUBROUTINE FINDS THE LEVELIZED FIXED CHARGE RATE C (FLEVEL) EQUIVALENT TU A GIVEN FIXED CHAKGE PRUFILE C UNUVER DISCOUNT RAIE O1SC, c DIMENSION POUINT(3),SLOPE(3),ITIME(4) 6 FLEVEL=0, DISSUM=0, DISFAC=i, 00 50 J=1,3 ITLOWSITIME(J) 41 ITHIGHSITIME(J+1) 00 40 I=ITLOW, ITHIGH OISFACSDISFAC*DISC ODISSUMSDISSUM*DISFAC FLEVELSFLEVEL*(POINT(J) =FLUAT(I) *SLUPE(J)) *DISFAC 40 CONTINUE so CONTINUE FLEVEL=FLEVEL/OISSUM RETURN END B.37 00020870 00020860 V002069u 00020900 00020910 00020920 00020950 00020940 00020950 00020960 00020970 00020980 00020990 00021000 00021010 00021020 00021030 00021040 00021050 00021060 00021070 00021086 00021090 SUBROUTINE INICEP(CEP,/RETIREe¢LReL RPI -LEAV,NS) 00021100 C cee eee reer ete ee ee hm ee tee ee ee ee ee eC eC ee M000815u c * - DIMENSIONS HAVE BEEN MUDIFIED Atty DO LOOP FINAL 40006160 c VaLUES INCREASED TO ACCOMMUDATE THE 7 HYDRU MUD0817uU c TECHNOLOGIES. m0008180 C f©e#e eee ee ee ee wee ew Bee = cfc eer ee eS ee ew © ew ee © = MU008190 DIMENSION CEP (16, 31,3) /RETIRE (16,31) -LEAD (16,3) Ouveliloe c 00021120 C THIS SUBROUTINE INITIALIZES CEP AND RETIRE. 00021130 c 00021140 C REMOVE RETIREMENTS FRUM CEP AND PUT THEM INTU RETIKES 00021150 c DO 10 f=1,10 00021160 DO 10 I=1,1o muD08200 DO 10 Tys2,LRP1 00021170 IF (CEPCLe1TY/NS).GE.0.)GUTO 10 00021160 RETIRE(I,1Y)=-CEP(I,1Y,NS) 00021190 CEPCI,IY¥,NS)s0, 00021200 10 CONTINUE 00021210 c 00021220 C Put INITIAL COMMITED ADDITIONS INTO PRIUR COMMITMENT STAGES 00021230 C aS WELL. 00021240 IF(NS.EQ.1)GO10 50 00021250 c 00 40 121,10 00021260 DO 40 121,16 MOD06210 00 40 IS=2,NS 00021270 ISTAGESNS+2-IS 00021280 0O 30 IT¥#i,LR 00021290 IF (CEP(I,IY,1STAGE) .LT..01)6G0TO 30 00021300 TYPSIY*LEAD (Is ISTAGE) 0u021310 IFCIYP,LT.1)1YP=1 00021320 CEP(I,IYP, ISTAGE“1) SCEP(I,IYP,ISTAGE“1)+CEP (Ie 1s I STAGE) 00021330 50 CONTINUE 00021340 40 CONTINUE 00021550 Su CONTINUE 00021360 RETURN 00021370 END 000213860 B.38 aco a0 a aenanaanann aNean AND AO aa c nao SUBROUTINE PRUDUCC(TYR,CAP,MWINC,AMWINC,DFPeNSIZEsLUAD,AVAIL,CLUC, +OUTCAP, OUTAV, CUKOEM, YLF,FENG,FTIME,HYPROB, ALF, BLUC,UBLUC, Pm, PMAIN, +HYEN, PPOET, RKRM,VEM, TKNAM,OUI TYP, NH, WHY, 1S, LP, NPs NYPPeNVCPP, YEARS, +RPROD,VCsENV,UUTCST,APCDET, TERMIN, TVC,AMM,LBMAX,VCESCeHYMULT, UFO, +HA,OUTESC,OUTC,CSENV,CSOUT,PRM) +RPROD,VC,ENV,HR, IF TU,FC,1YFUE,QUICST,APCUET, TERMIN, TVC,AMM,LBMAX, +VCESC,FUESC,HYMULT,DFU,HA, OUTESC,OUTC,CSENV,CSOUT,PRM) +VCESC,FUESC,HYMULT,DFO,HA,OUTESC,OUTC,CSENV,CSOUT,PRM,HCUTIL, = = AUDITIONAL PARAMETEKS FOR SUBROUTINE WRTINT + ACAP,AGEN,FCAP,FGEN,XXLOLP,INTR, ~ = ADDITIONAL PARAMETERS FOK ANCHURAGE = FAIRBANKS LIMITED INTERTIE CALCULATIONS + LCFAIR,FEYRLY,/ALLINT, ~ = ADDITIONAL PARAMETERS FOR CPRT REPORT = ENERGY TABLE +CPRT, TECHEN) INCLUDE (AREEPPR) THIS SUBROUTINE CALLS THE PRODUCTION ENERGY, PKODUCTIUN COSTING, AND PRODUCTION PRINTOUT SUBROUTINES, eee eee ee ee ee ee eee ee ee ee ee ee ew = = DIMENSIONS HAVE BEEN MUDIFIED 10 ACCOMMODATE THE 7 HYORO TECHNOLOGIES, DIMENSION DFP(16),NSIZE(16) ,NPLANT(9),IREM(9),LUAD(9),AVAIL(9,2),¢ +OUTCAP(7) -OUTAV(7) - ITYP(100),1CAP(100) ,AVCAP(100,2),FENG(2), +F TIME (2) ,HYPROB(3),ALF (2), BL0C(12,2),DBLUC(12),CAP(16), +CLUC (1500) ,HYEN(3),ENCAP(100),E0UT(100,3,2), +OUTOUT (3,2) -OUTXL (3,2) pHYENLM( 3,2), +RRM(30),DEM(3U),TKNAM(16,2) ,OUTTYP (8,2) ,18(30),YEARS(5), VC (16), +ENV (16) ,-OUTCST (6) ¢ VCESC (16) -HYMULT (3) »DRKEM(9) -ICA(100,2) ,UFU( 10) +/PMAIN(10,2),HA(2) ,MHY2(2),LTYP1(100) ,OUTESCLS) * = DIMENSION OF HA(2) MODIFIED TO HA(7,2) + /PMAIN(16,2),HA(7,2) MHY2(2),1TYP1 (100) ,QUIESC (8) FOSSIL FUEL ARKAYS OIMENSION Hk(16), IFTUC16), FC(31,10), FUESC(10) HCUTIL = CAPACITY UTILIZATION FACTOR (INPUT) HYENPR © PROPORTION OF TUTAL HYURU ENERGY (LUCAL) DIMENSION HCUTIL( 7), HYENPR(7) LOGICAL PPOET,RPRUD (3,2), TRUE, FALSE, APCDET, TEKMIN,OUTC (6) +, DUNE - = MWINC IS REAL TU ACCUMMOVATE SMALL SYSTEMS REAL MWINC = = ANCHORAGE*FAIRBANKS INTEKTIE REPURT ARRAYS DIMENSION ACAP(30),AGEN(30),FCAP(50),FGEN(30),xxXLOLP(30) LOGICAL INTR B.39 00021390 00021400 00021410 ModD08eeu Qodet4ed 00021430 M0D08230 M0008240 MOD082eSU mMOD08260 40008270 M0008280 MOD08290 40008300 MOD08310 m0008320 MOD08330 M0D08340 MOD08350 00021440 00021450 00021460 00021470 M0D083600 0008370 0008380 00021480 00021490 00021500 00021510 00021520 00021530 00021540 00021550 MUD08390 MUD08400 MO008410 MOD08420 0008430 MOD08440 MUD08450 MOU08460 “0008470 MUDU848O 40008490 ™0008500 00021560 00021570 00021560 M0D08510 muv08S2u M0006550 MuU08540 M0008550 ™Uu008560 M0008570 MuD06580 anannan aoa a nmonanan 1 ee = = ANCHURAGE*FAIKBANKS INTERTIE CALULATIUN ARRAYS 2 LEAST CUST NUN@HYDRO FAITRHANKS TECHNOLOGIES FOR YEAR 1*9 (1961-1989) - = LCFAIR ANNUAL ENERGY FOR FAIRBANKS = = FEYKLY USED BY SUSKOUTINE BALERU DIMENSION LCFAIR (2,9) ,-FEYRLY (3,30) = = FUR CPRT REPORT = ENERGY TABLE TECHEN STUREOD I SUBROUTINE SVENG LOGICAL CPRT DIMENSION TECHENG16, 30) DATA ITYP1/100%0/ DATA TRUE,FALSE,NCAPS1/,TRUE,, .FALSE.,0/ CALL PRUDUCTION CUSTING MODEL (CAPAUD,CURDEM) 0 DO 10 K=i,100 vO 10 1=1,3 vO 10 J2ise EQUT(K,I,J)=0~ ENYEARSCURDEMRYLF 8,76 DONESFALSE DO 105 J=1,2 / IF (FENG (J) 6LT..0005.0R,FTIME(JS) LE..U005)GUTU 105 C CALCULATE CAPACITIES FUR SUBROUTINE BALERU, onmnaaacnaaoe 8 19 20 CALL CAPPRE (OFP,CAP,MWINC,NSIZE¢NPLANT,LREM, de AVAIL, DREM,PMALN) CALL BALPRE (NPLANT,LOAD»MWINC, IREM,NSIZE,AVAIL,OUTCAP, UUTAV, +ITYP, ICAP, AVCAP,NCAPS, OREM, ICA, DFUsU) TF (NCAPS.GT.1U0)PRINT 16,NCAPS FORMATC'WARNINGs ',17,' PLANTS EXCEEDS DIMENSIONS,') © = DETERMINE THE FIRST PLANT THAT IS NOT UNE UF THE 2 LEAST COST NUN@-HYDRU FATRBANKS TECHNOLOGIES FOR THIS YEAR (IYk=1<9) TCP IS USED IN SUBROUTINE BALERU TO DETERMINE WHEN THE 2 LEAST COST FAIRBANKS TECHNULULY PLANTS HAVE BEcN EXHAUSTED IN THE LUADING ORDER IcPso0 IF (TERMIN .UK, IYR .GE. 10) GU TO 20 OO 19 K=1,NCAPS IF (ITYP(K) .EQ, LCFAIR(1,1YR) (UR. ITYP(K) EW. LCFAIR(e,1YR)) * ICP=Kk IF (ITYP(K) ,NE. LCFAIR(1,1YK) AND. ITYP(K) .NE] LCFAIK(2,1YK)) * GO TO 20 CONTINUE CONTINUE B.40 MUD08S90 MOD08600 MO006610 MOD08620 MU0086 3u MUL08040 m™0008650 MO0D08660 ™UD006670 M0D086806 40008690 0008700 40008710 MODG8720 00021581 00021590 00021600 OGv2l610 00021620 00021650 00021640 00021650 00021660 0002167u 00021680 00021690 G0021700 00021710 00021720 00021730 00021740 00021750 00021760 00021770 00021760 00021790 00021800 MUD08730 MUD08740 40008750 MUD08760 MOD0877U ™UD08780 m0D08790 40008800 40008810 4UD06820 MUD08830 MOD 08840 MUV088S0 MUD 0886U0 MUD 08870 m™0008660 M0D08890 40008900 MOD08910 40006920 —_————— c c 40 50 maannoan 0) c c 1 62 Te ENSENYEAR®FENG(J) TIM=6.70*F TIME (J) IF(J.NE.1)GUTU 50 NCAPSI=NCAPS 00 40 I=1,NCAPS1 ITYPICI)SITYPUI) CONTINUE IF (NCAPS,GT.NCAPS1)PRINT 8 FORMAT(*WARNING: PEAK SEASON HAS FEWER PLANTS THAN OFF ', +'PEAK SEASON,") DO 100 1I51,3 IF CHYPRUB(I).LT..0005)GUTU 100 CALL BALLDC(J,EN, 1IM,ALF,6LUC,08LOC,Pw,AMWINC,CLUC, IPEAK,ENTUT1) = = INCURPORATE ALL HYORO TECHNOLOGIES IN CALCULATING HYENL AND MWHY HYENLSHYEN(I) *FENG (J) IF CHYENL«LT..0005)GOTO 80 MWHYSIFIX(CAP(10) *HA(J) *HYMULT (1) /AMWINC#,5) xMWINC HYENR=0,0 DO 62 K=10,16 HYENRSHYENR + CAP(K) ®HCUTIL (K=9) CONTINUE HYENL=HYENR#®FENG (J) 8,76 HYENEX WILL BE USED FOR CALCULATING PROPORTIUNS BELUW IF (I .E8, 2 AND. J EQ, 1) HYENEX=HYENL IF CHYENL .LT. .0005) GO TO 80 MWHYR=0 DU 72 K=10,16 MWHYRSMWHYR + IFIX(CAP(K) ®HA(K#9,J) *HYMULT(I)/AMWINC * 5) ®MWINC CONTINUE MWHY=MWHYR IFCI.EQ,2)MHY2(J) =MWHY CALL HYDRO (MWHY,HYENLs TIMs AMWINCe TPEAKs¢CLOC,ENTOTI) CONTINUE CALL BALERUCJ+NCAPS, ICAP, AVCAPSEN, TIM, AMWINC,CLOCe LPEAK, +ENTOTL, XLOLP,UUTEN,ENCAP, ~- = ADDITIONAL PARAMETERS FUR THE LIMITED INTERTIE CALCULATIONS +IYR,ICP,IS,FEYRLY,ALLINT) Ke=l NCAPSM=NCAPSI1-1 K150 DO 85 K=1,NCAPS1 IF(J.EQ.1.0R.DONE)JGOTO Be IF CITYP(K9K1) EQ .LTYPICKIIGOTO be DO 81 IIT=K,NCAPSM LAST=NCAPS1+KeTI1 ICAC(LAST, J)=ICACLAST=1,J) ICA(K,J)=0 KISKitl B.4] MUD089 30 0008940 ouvoelslyu d0021b20 0ud2e1b3u Ovd21e40 000218650 00021660 00021870 00021880 00021890 00021900 00021910 00021920 00021930 MUD08950 M0D08960 0008970 00021940 00021950 v0021960 MUD0B980 MOD08990 40009000 MODO9010 0009020 4Uu009030 MUD009040 ™0009050 M0009060 40009070 ™0009060 M0D09090 MGD09100 M0009110 40009120 00021970 000219860 0002199U 00022000 00022010 MUuD09130 MOD0914u0 mOD09150 ™0009160 mO0D09170 vd022020 00022030 00022040 00022050 vovd22060 00022070 000220860 00022090 00022100 60022110 00022120 62 as 100 105 c 400 108 eanan 11 oo oon oaneecn Oo aOnN900 = = CALCULATE THE PROPORTION OF EACH HYDRU TECHNOLUGIES 0 +HYPRUBeNH,sNHY¢ 1S, LYRe TP eNPeNYPP»/NVCPP, YEARS, FEKMIN¢DFUsPRM) - eee ee eee ee ew ee eee eee eee ee ew ee ee CONTINUE EOUT(K,I,J)=0. IFCITYP(K2) .NEwITYPI(K))GOTO 65 EOUT(K,1,J) =ENCAP(K2) Kes Keel CONTINUE OUTOUTC(I,J)=0UTEN OUTXL(1,J)=XLULP HYENLM (I,J) SHYEWL IF (J,£U,2) DUNES TRUE CONTINUE CONTINUE FORMAT (* (EQUT(PK,UPK) -HYDRU=1,5)3'/(6F9.0)) C eeee* END OF INNEK LUUP theme IF(,NUT.PPOET)GOTU 108 CALL PRTPU(MHY2,HYENLM,NCAPS1,ICA,MWINC,LTYP1,NSIZE,AVAIL, +RRM, DEM, TKNAM,EUUT ,OUTTYP, QUTAV,OUTOUT,OUTAL,FTIME, CONTINUE Iy= IYR IF (TERMIN) LY=NP*NYPP*LBMAX MMMMSMAXO (MHY2(1) ¢MHY2 (2) ) vu IF 1F CONTRIBUTION TO TOTAL HYDRO ENERGY (USED FUR COSTING) 110 K=1,7 CHYENEX .LI. .0001) HYENPR(K)=0.0 CHYENEX ,LT. ,v001) GO TO 110 HYENPR(K)=CAP(K49) KHCUTIL (K) SFENG(1) #8. 76/NYENEX CONTINUE HYENPR IS USED IN SUBROUTINE EXPEN FUR COSTING CALL EXPEN(FTIME,HYPROB,RPROD,HYENLM, OUTUUT,NCAPS1 ¢ MMMMy *UUTXL, ITYP1,NTPO,NLP,EQOUT) +OUTXLe ITYPIsNTPO, NLP, EUUT,HYENPR) CALL EVCO(NTPOSNLPs TLYPLeVCeENV,UUTCST, TVC,tOUTe IY, VCESC,UUTESC, +0UTC,CSENV,CSUUT) CALL EVC (NIPU,NLP,/ITYPL,VC,ENV, HR, IF TU, FCe IT YFUE,OUTCST,TVC,ENUT, +1YeVCESCeFUESC,QUIESC,UUTCs,CSENV,CSOUT) ttre + IF IF ~ = SIORKE YEARLY RESULTS FOR SUBROUTINE WRIINT C.NOT.TERMIN JAND. INTR) CALL SVNUNS (LYR,TKNAM,CAP,EQUT,ITYP1,WLP,OUTXL, ACAP, AGEN, FCAP,FGEN, XXLULP) ~ = SIORE YEARLY ENERGY GENERATIUN FUR EACH TECHNOLOGY FOR THE CPRT REPORT (ENERGY TABLE) (NUT, TERMIN AND, CPRT) CALL SVENG (IYK,EOUT,LTYP1,NLP, TECHEN) B.42 00022130 00022140 0vd22iS0 v0022160 00022170 00022180 00022190 00022200 00022210 00022226 Qv0e2250 00022240 00022250 v0022260 00022270 00622280 00022290 00022300 00022310 00022320 00022350 00022340 00022350 MOD09180 M000919U MUDO0920U Muv09210 mMOD09220 M0D09230 MODU9240 0009250 M0D09260 mo009270 M0D09280 00022360 00022370 MUD09290 M0D09300 40009310 M0009320 00022360 00022390 MU009330 MUD0934U 0009350 M0D09360 40009370 MOD09 360 MODU9390 MUD09400 MUD09410 MUDO9420 M0D09450 MUD09440 m™U009450 M0009460 40009470 GC weaee wee ett Meneses ase e@ewnecawreseeeenenrcsic«e MNndoCasO CALL PRTAPC(YEARS,1S,NVCPP,LYR,NP,IP,EOUT,TTYPL,CAP,OUTCAP, 90022400 +AMM ENYEAR,OUTXL ,APCOET,TVC,NYPP,TKNAM,UUTTYP,NLP,NTPO,TERMIN, N0022410 +L BMAX,PRM) 90022420 RETURN 90022430 END 00022440 B.43 c 0002245u SUBRUUTINE LORDER(VC,ENV,LOAD) 00022400 DIMENSION VC(10),ENV(10) -LUAD(9) / INVEX(9) o0v2e470 C FIND LUADING ORDER FOR EXISTING CAPACITIES BASED ON VARIABLE AND 00022480 C ENVIRONMENTAL COST 00022490 C LOAD(1)s6 MEANS THAT THE FIRST CAPACITY TU BE LUADED IS o00e225u0 c CAPACITY 66 00022510 ILOwsi 0002eSeu 00 10 [21,9 00022550 10 INDEX(1)=1 00022540 OU 40 Jzi,9 00022550 DO 20 1=1,9 00022560 IF CINDEX(1T)-EW.0) GOTO 20 00022570 IF (VCCI) FENV(L) LT. VC (ILOW) ENV (ILOW) )ILOwal 00022580 20 CONTINUE 00022590 LOAD(J)=ILOW 00022600 INDEX (TLOW) =0 v0022610 bO 30 I=1,9 v0022620 IF CINDEX(1) -E4U.1) ILOWSIT 00022050 IF CINDEX(1) .EU.1)60TO 40 00022640 30 CONTINUE 00022650 40 CONTINUE 00022660 RETURN 00022670 END 00022680 B.44 Cc : 00022690 SUBROUTINE CAPPRE(DFP,CAP,MWINC,NSIZE,NPLANT,;IREM,J,AVAIL,UKEM, Yu022700 +PMAILN) 0u022710 Cee eee ee ete er eee ee ee eee ee ee ee eee - = = = MUuD09490 c = © DIMENSIONS HAVE BEEN MODIFIED TO ACCOMMODATE THE 40009500 c 7 HYORU TECHNOLOGIES, MU0009510 C eee eee ee te ee eee ee ee ee eee ee ee ee ee m0009520 DIMENSION DFP(16),CAP(16),NSIZE(9) -NPLANT(9),IREM(9),AVAIL(9,2), 00022720 +PMAIN(16¢2) ,DKEM(9) 00022730 C ee eee ee ee ee ee ee ee ee ee ee eee ee ee ee = MUD09SSO c - - MWINC IS REAL TO ACCOMMODATE SMALL SYSTEMS MOD09540 REAL MWINC M0009550 Cee ee ee er re ee ee ee ee eee ee ee ee ee ee MOD095E0 C NSIZE = ROUNDOFF D1ZE TO NEAREST MWINC, 00uv2e2740 C NPLANT = NUMBER OF PLANTS OF S1ZE NSIZE. 00022750 C TREM » DERATED REMAINDER IN MWINCS 10 BE USED WITH AVAILABILITY 1.0 00022760 DO 10 151,9 00022770 IF (NSIZE (1) ENO) NPLANT (1) #0 00022780 IF (NSIZE(1)-EU.0)00TU 9 00022790 eS = M0v09570 c - - MUDIFICATIUNS FOR MWINC REAL 40009580 c NPLANT (I) SIFIX(CAP(1I) *PMAIN(I,J))/(NSIZE (1) eMWINC) 000228u0 NPLANTCI)=(CAP(1) *PMAIN(1,J))/(NSIZE (1) *MWINC) 40009590 co DREM(1)=(CAP(1) xPMAIN(I, J) -FLUAT (NPLANT (1) *NSIZE (1) ®MWINC) ) 00022810 9 OREMCI)=(CAP(1) *PMAIN(C I,J) = CNPLANT (I) *WS12E (1) *MWINC)) MOD09600 c IREM(I) SIF IX(DREM(I) AVAIL (1,3) /FLUAT (MWINC)+.5) 00022620 TREMC(I) SIF IX(UREMCI) ®AVAIL (1 ¢J)/MwLNC + 25) MOD09610 (3 IF (DREM(T) ,LE.FLOAT(NSIZE (1) *MWINC)) IREM(T) SIF IX (DKEM(I)/ 00022830 IF (DREM(I) LE. (NSIZE (I) *MWINC)) IREMCI)=IFIX(DREMCI)D/ mu009620 +MWINC + 5) MUD09630 c +FLOAT (MWINC) +.5) 000228640 Cee ee eee ee ee ee ee eee ee ee ee ee ee =H = = = MOD09040 10 CONTINUE 00022450 RETURN : 00022860 ENO 00022670 B.45 SUBROUTINE BALPRE (NPLANT, LUAU, MWINC, IKEM,NSTZE,AVAIL, +UUTCAP,UUTAV,LTYP, ICAP, AVCAP,NCAPS,DREM, 1CA,UFU,JS) INCLUDE (AREEPPR) = = DIMENSION OF DFO INCREASED TU 1o FUR THE UP TU lo POSSIBLE TECHNOLOGIES. DIMENSION NPLANT(9),LOAD(9) sNSITZE (9) eAVAIL (922) DIMENSION ICAP(100),IREM(9) -AVCAP(100,2),1TYP(100) DIMENSION OUTCAP (7), OUTAV(7) ¢ ICA(100-2) ,DREM(9) eDFUCIO) = = MWINC IS REAL TO ACCOMMOLATE SMALL SYSTEMS REAL MWINC THIS SUBROUTINE LOAUS PLANTS IN LOADING ORDER FOK SUBROUTINE BALERU, OUTPUT PLANT LIST IS STOREO IN ICAP, WHICH INCLIVES SEVEN TYPES OF EMERGENCY ACTIONS (IF THEY ARE NON=ZERO), ASSOCIATED WITH EACH CAPACITY IS ITS AVAILABILITY (CAVCAP) AND ITS TYPE, THE TOTAL NUMBER OF CAPACITIES IS RETURNED AS NCAPS,. N=0 vO 40 151,9 LsLuad(1) IF CWPLANT(L).EU.0)GOTO 30 NP=NPLANT(L) DU 20 K=1,NP NSNeL ICAP(N)=NSIZE(L) ICA(N, JS)SICAP(N) *MWINC bO 15 J=1,2 1s AVCAP(N, J) =0FU(L) 20 TTYPCN) SL 30 IF CIREM(L) .E0.0)GUTO 40 NSNeL : ICAP(N)=IREM(L) ICA(N,JS)=ICAP(N) ®MWINC 00 35 J=1,2 AVCAP(N,J)=1.,0 C eee see eee wesc ee ewe eee ew ce ew ewe ee ew ee He ew c = - MUDIFICATIUNS FOR MWINC REAL 35 IF (DREM(L) .LE. (NSIZE(L) *MWINC)) AVCAP(Ne J) S0FU(L) C35) IF (DREM(L) .LE.FLOAT(NSIZE(L) *MWINC) ) AVCAP(N,J)SUFU(L) ITYP(N) SL 40 CONTINUE DU 6b Te1,7 MWOUTSIFIX(QUICAPLI)/MWINC + 25) c MWOUTSIFIX(UUTCAP(I) /FLUOAT (MWINC) +25) IF (MWOUT,EQ,0)GUTU 60 N=N41 ICAP (N) =MwOUT ICA(N,JS)SICAP(N) *MWINC OU 50 J=1,2 annNaNo no aNanNAO $0 AVCAP(N,J)=UUIAV(I) ee c = = lo IS NOW THE BASE FUR OUTAGE DATA c ITYP(N)=1041 ITYP(N) =lotl B.46 000226860 QuUueebYyU 00022900 MUD09650 MOD09660 MUD09670 40009660 M0009690 00022910 v00e292u 00022950 ™UD09700 M0U009710 MODO0972uU M0D097 30 00022940 00022950 00022960 00022970 00022980 00022990 00023000 00025010 00023020 00023030 00023040 00023050 00023060 00023070 00023080 00023090 00023100 00023110 00023120 00023130 00023140 00023150 00023160 0009740 M0D09750 0009760 00023170 00023180 00023190 00023200 mUD0977U vd023521u 00023220 00023230 00023240 00023250 00023260 00025270 MUD09780 ™U009790 00023260 MUD09600 c 60 110 CONTINUE NCAPS=N IF (NCAPS,GT,100)PRINT 110 FORMATC'DIMENSIUNS ARE GREATER THAN UZ IN SUbR BALPRE') RETURN END B.47 MUDO981O 00023290 00023300 000235310 00025320 000255350 00023340 SUBROUTINE BALLUCIS,ENe TIM¢ ALF, 6LUC,DBLDC,rWe AMWINC,CLOC, IPEAKS +ENTOTL) INCLUDE (AREEPPR) DIMENSION BLOC(12,2),DBLUC (12) ,CLUC (1500), ALF (2) C THiS SUBROUTINE TURNS THE LDC INTO A CUMPLENENTARY C CUMULATIVE DISTKIBUTIUN FOR SUBROUTINE BALERU, OUTPUT C IS STORED IN CLOC. EACH INDEX UNIT REPRESENTS ONE MWINC. c C CLOUC UP TO BASE LUAD =1,0. 100 C CALCULATE POINTS UN THE COMPLEMENTARY CUMULATIVE ilo 120 125 140 140 ICLOCBSIFIXCENABLUC (12, J) /(TIM*®AMWINC) 41.5) vO 100 151,TCLOCB CLDC(I)=1.0 X=FLUATCICLDCB) NCLUC=ICLDCb el CN=FLOAT(NCLDC) YNEWwS1.1 00 120 J1si,11 NLOC#13-J1 NN=NCLOC XNEWSBLOC (NLDCo1,J) «FLOAT CICLOCB=1)/HLOC(ie,J) + 1.0 YNEW=YNEW=DGLOC (NLOC) IF (XNEW.LE.CN) GOTO 120 DELTAX=xX=XNEW SLOPE=DBLUC (NLDC#1) /DELTAX bO 110 1=NN,1500 CLOC(I)=SLUPE*(FLUAT(I) =X) + YNEW NCLOCSNCLOCF1 CN=FLOAT(NCLOC) IF (XNEW.LE.CN) GOlU 120 CONTINUE X=XNEW IPEAKSNCLDC DO 125 ISIPEAK,1500 CLOC(1I)=0, AREA=0, vO 130 I=2,1PEAK AREA=AREA+(CLUC(I“1) *CLOC(1)) 7/2. ENTOTLI=AREARTIM®AMWINC CONTINUE RETURN END B.48 0002535u 00023360 00025570 MUD09820 0002438u 00023390 v0023400 00023410 voo2saeu 00023430 00023440 00023450 00023460 00023470 u0025480 00023490 00023500 00023510 00023520 00023530 00023540 00023550 00023560 00023570 00023560 00023590 00023600 000236010 00023620 00025630 000235640 00023650 00023660 00023670 00023080 00023690 v0023700 00023710 00025720 00023730 00023740 00025750 _ i CR oo oo 150 160 170 140 26 40 190 SUBROUTINE HYURUCMWHY,HYENL, TIM, AMWINC, IPEAK,CLOC,ENTOT1) INCLUDE (AREEPPR) DIMENSION CLUC (1500) EMUVE PEAK HYDRO FROM CURVE ~e— ese ee eer eee ew ee ew ee wee ee ee wD HO ewe we ee ew = © AMWINC MAY BE LESS THAN 1 THYCAP=MWHY/AMWINC ITHYCAP=MWHY/IF IX (AMWINC) IF CIHYCAP,LE,U)HYENL=0, IF CINYCAP.LE.9)GOTO 190 ALIM=HYENL/(TIM®AMWINC) AREASO, IPEAKI=IPEAK©1 OG 150 IT=1,1PEAK1 AOLD=AREA ICHG=IPEAK=1 AREAZAREA+(CLUC (ICHG41) #CLUDC (ICHG) -CLDC (ICHG +LHYCAP 41) eCLDC (ICHG+ +IHYCAP))/2, IF (AREA,GEALIM)GUT0160 CONTINUE IF (ABS (AOLD=ALIM),LT.ABS(AREA*ALIM) ) ICHG=ICHG+1 00 170 ITS=ICHG,IPEAK CLOC(I)=CLOC(1+IHYCAP) IF CAREA.LT eALIM) HYENLSAREA®TIMRAMWINC IF CIHYCAP GT, 1PEAKeICHG) IHYCAPSIPEAK=ICHG IPEAK=IPEAK*IHYCAP DO 160 I=IPEAK,1500 CLDC(1)=0.0 AREAZO, IF CIPEAK.LT.2)G60TU 40 DO 26 I=2,1PEAK AREASAREA+(CLUC (1-1) *CLOC(1)) 7/2. CONTINUE ENTOTISAREA*TIM®AMWING ENTOTLSENTOTI+HYENL CONTINUE RETURN END B.49 00023760 00023770 m0D09830 00023780 00023790 MUD09840 M0009850 0009860 000235600 400098670 00025610 00023820 00023850 00023840 000258650 00023660 00023870 00023880 00023890 00023900 00023910 00023920 00023930 00023940 00023950 00023960 00023970 00023960 00023990 00024000 00024010 00024020 00024030 00024040 00024050 00024060 00024070 00024080 v0v24u9u 00024100 SUBROUTINE BALERU(J,NCAPS, ICAP, AVCAP,EN, TIM, AMWINC,CLDC,IPEAK, +ENTUTL, XLOLP,OUTEN,ENCAP, noo CALCULATLUNS +IYRe ICPe 1SS,/FEYRLYs ALLINT) = = AUDITIONAL PARAMETERS FOR THE LIMITED INTERTIE C w©e ee ee ee ee erewewe ere ee eee ene ee eee een ene eeren c INCLUDE (AREEPPR) DIMENSION CLDCNW(750) OIMENSTON ICAP(100),AVCAP(100,2) ¢CLOC(1500),ENCAP (100) FAIRBANKS ANNUAL ENERGY, PATH ARRAY OIMENSION FEYRLY(3,30),1SS(450) oon INPUTS CAPACITIES IN LUADING ORDER: ICAP(NCA OUTPUTS ENERGY FOR EACH CAPACITY$ ENCAP(NCAPS XLOLP OUTAGE ENERGYS UUTEN 70 FORMAT ((10F7,4)) IF CIPEAK.GT.750)PRINT 610 Seeranennoann Ae ec CFE=0, oo 2 LEAST COSI TECHNOLOGIES RFGEN=O, IF (ICP .E€Q@, 0) GU TO 1 $ PS) ) RFGEN IS THE AMUUNT OF GENERATION THAT musi PRUBABILITIES OF CAPACITY AVAILAGILITY® AVCAP(NCAPS) COMPLEMENTARY CUMULATIVE LUC FROM BALLUC AND HYDRO$ CLUCCUYY42) COME FROM FAIRBANKS IF CIYR GE. 1 .AND, IYR .LE. 4) RFGENSFEYRLYCISS(1)-1YR) IF (IyR ,GE. 3 .AND, I¥R LE. 9) RFGEN=FEYRLY(ISS(1),] YR) -ALLINT IF (RFGEN LE. 0.) RFGENSO. 1 CONTINUE C w#-e=es ewe we we ee ew eee wee eee wee eee eee wee ee we ow IHIGHX=1 DIFINC=(EN@*ENTOTI)/(TIM®AMWINC) ADIFLSDIFINC IAODSIFIX(DIFINC) IIABS=TABS(IADD) FINCSDIFINC=FLOAT(IADD) DO 400 T=1,NCAPS C INTEGRATE UNDER LUC TU FINO EXPECTED ENERGY SERVED BY CAP. I. ILOWKSIHIGHX#1 IHIGHX=IHIGHX*ICAP(T1) AREA=0,0 DO 250 TAS1ILOWx, INTGHX 250 AREA=AREA+(CLUC(TA#1) *CLOL (IA) ) 72.0 C CURRECT FUR DISCRETIZATION ERROR AADD=0, B.50 = ~ INITIALIZATION FOR THE ANCHORAGE=FAIRBANKS LIMITED INTERTIE CALCULATIONS 00024110 o002e4120 00024150 MODO98S0 0009890 MOvV09900 MOD09910 M0009920 M0009930 00024140 00024150 MOD09940 40009950 40009960 MQ0U9970 M0009980 00024160 00024170 0002418u 0002419u 00024200 00024210 00024220 00024230 00024240 00024250 00024260 MUD09990 m0010000 ™0010010 mu010020 MU010050 M0010040 40010050 M0010060 0010070 0010080 M0010090 40010100 M0010110 m0010120 M0010150 00024270 00024280 00024290 00024300 0002431u 00024320 00024330 00024340 00024350 00024560 00024370 00024380 00024390 00024400 o002e44iu 205 elu eis 220 c c c c c eo a0 225 c ee9 c 230 c eS DESa Seca ii aCe OSCSO CaCI HOSCEC I ILECiCicE a OOEC ECAC GIO c IF(IIABS.EQ.0) GOTO 220 IFCIADD,LT.0) GOTO 210 bO 205 Ks1,1TABS ITEMP=IHIGHXekK IF CITEMP,LT AD ITTENPSL AADDSAADD~(CLUC (ITEMP 41) #CLUC(ITEMP)) 72, GUTO 220 DO 215 K=1,1TAbS AADDSAADD+ (CLUC (IHIGHX+K=1) *CLOC CIWIGIX+K)) 7/2. ICURHSIHIGHXe1FIX(SIGN(1,,DIFINC)+,5) «(ILABS+1) IF CICORH,LT.1) ICOKH=1 ICORMSICORH+IFIX(SIGN(1.,01F INC) 4,5) ADIFH=0, ADIFH= ADIFHSAUIFH*AADD ENCOR=(ADIFL+ADIFH) es TIM@AMWINC ADIFL=-ADIFH FINO ENERGY + © CALCULATIONS FOK ENERGY CUNSIDERING LIMITATIONS OF THE ANCHORAGE = FAIRBANKS INTERTIE IF (I ,GT. ICP) RFGEN=0, IF (RFGEN ,Eu. 0.) GO TU IF (CFE ,GE. KFGEN ,AND, IF (CFE .GE. RKFGEN .AND. IF (CFE ,GE. KFGEN ,AND, ENCAP (I) SAVCAP (I,J) *AREARTIM®AMWINC EWCAP(I)SENCAP(I) + ENCOR ACCUMULATE THE FAIRBANKS GENERATED ENERGY WE HAVE SO FAR CFESCFE + ENCAP(I) IF (CFE .LE. RFGEN) GO TU 229 SUBTRACT OFF WHAT WE DO NOT NEED FROM FAIRBANKS TECHNULOGIES ENCAP(I)SRFGEN = (CFE = ENCAP(I)) AVVCAP=ENCAP(1)/(AREA®TIM*®AMWINC) GU TO 230 CONTINUE ENCAP(1)=AVCAP(I,J) sAREARTIM®AMWINC ENCAP (IT) SENCAP(I) *ENCUOR AVVCAPSAVCAP(I,J) CONTINUE CALCULATE NEW CLDU c IPEAK=IPEAK*ICAP(1) ISS=ILOWX=1 IGHX=1HIGHX DO 300 JJ=ZIGHX, IPEAK JINEWSJJ~ICAPLI) FINC« (CLOCUICORM) #F INC*#ABS(CLOC (ICOKH) -CLVC (ICOkKM) )) ICP) ENCAP(I)=0, Ich) aAVVCAP=0. IcP) GU TO 230 00024420 00024430 00024440 00024450 00024460 00024470 00024480 00024490 00024500 00024510 00024520 00024530 00024540 . 00024550 00024560 00024570 00024580 00024990 MOO10140 M0D010150 m0010160 M0D10170 40010160 mUD10190 m0010200 mOD10210 M0010220 M0010230 m0010240 M0010250 M0010260 m0D10270 MU010280 MOD10290 MOD10300 M0010310 MU010320 MO010330 M0010340 Mu010350 0010360 40010570 MUD10380 000246000 00024610 MuD10390 40010400 m0D10410 40010420 MUD10430 M0D10440 00024620 00024650 00024646 00024650 00024660 00024670 c Cc 300 c30 c $50 400 cc S00 600 610 IF (JJNEW,LT 21) JJNEWS1 CLOCNW(JJ-IGHX*1)SAVVCAPACLIC(JJ) + C1. 0 CLDCNW(JJ-1bHxe1) SAVCAP (1,3) #CLUC (JJ) + (1 .AVCAP(I,J))* +CLOC (JJNEW) DO 350 K=IGHX, IPEAK CLOC (K) =CLOCNW(K=IGHX+1) CONTINUE IF CIPEAK,GT.1500)PRINT 600 ALCULATE XLOLP AND OUTAGE ENERGY XLOLP=CLUC (IHIGHX) *3652.5 THIGHX=THIGHX+1 AREA=0.0 DO 500 JJSIHIGHX, PEAK AREA=AREA+(CLUC (JJe1) *CLOC(JJ)) 72. AREASAREA+AUIFL OUTENSAREA®TIM®AMWINC FORMAT('WARNINGSCLDC DIMENSIUNS EXCEEDED, SUBRUUTINE BALERU') FOKMATC'WARNINGSCLOCNW DIMENSIONS EXCEEDED, SUBROUTINE BALERU') RETURN END B.52 = AVVCAP)* 00024680 MU010450 MUD10460 MU010470 00024690 MOD10460 00024700 00024710 00024720 00024730 0002474uU 00024750 00024760 00024770 00024780 00024790 00024800 v0024610 00024820 00024830 00024840 00024650 00024860 00024870 aaa aon manann NaANNaAAAO 10 15 20 es 30 $0 SUBROUTINE EXPENCF TIME, HYPROB,RPROD,HYENLM,OUTOUT,NCAPS,MWHY, = = HYENPR(7) AODED TO PARAMETER LIST +UUTXL, ITYP,NTPO,NLP,EQUT) +UUTXL, ITYP,NTPO,NLP,EOUT pHYENPR) 2c eee ee eee ewe ewe wee ewe er ee eer eee ee ew we ew INCLUDE (AREEPPR) DIMENSION FTIME(2),HYPROB(3) ,HYENLM(3,2),OUTUUT (3,2) ,OUTXL (3,2), +E0UT(100,3,2),/ITYP(100) LOGICAL RPRUD(3,2) HYENPR = EACH HYDRO TECHNOLOGY'S PROPORTION (BASED ON CAPACITY) UF TOTAL HYORO ENERGY DIMENSTON HYENPR(7) ee THIS SUBROUTINE FINDS THE EXPECTED OUTPUT ENERGY BY TECHNOLOGY AND NLP YEA OuT EMERGENCY ACTLON, ANO STORES [1 IN EOUTCI,1,2), IS THE NUMBER OF THE LAST PRODUCTIUN TECHNULOGY. T=ipeeeeNTPU, THE RLY EXPECTED LULP IS ALSO CUMPUTED AND IS STORED iN XL(1,2), DATA NFIR/O/ 00 50 151,3 IF (HYPROB(I).LT..0005)GOTO SO IF (RPROD(I,1).AND.RPROD(I,2))GUTO 10 GOTO 20 HYENLM(1,1)=HYENLM(I,1) #HYENLM (1,2) OUTUUT(T,1)=0UTOUI(Ie1)+OUTOUTCI,2) OUTXL (1,1) S0UTXL (1,1) F TIME (1) ¢OUTXL (1,2) «F TIME (2) OU 15 K51,NCAPS EOuUT(K,1,1)=EUuT(K, 1,1) *E0uT(K,1,2) GOTU 30 IF (NUT. RPRUD(I,2))G0TO 30 HYENLM( 1,1) =HYENLM(1 +2) OUTOUT(I,1)=0UTOUT(I +2) OUTXL (1,1) =UUTXL (1,2) DO 25 K=1,NCAPS EOUT(Ke 1,1) =E0UT(K, 1,2) CONTINUE CONTINUE C TAKE EXPECTED VALUES 35 40 35 HYENLM(1,2)=06 OUTOUT (1,2)=0. OUTXL(1,2)20, DU 35 K=1,NCAPS EOUT(K,1,2)=0. DO 55 121,3 HYENLM(1,2) =HYENLM(1,2) #*HYPROB (I) SHYENLM(I,1) VUTUUT (1,2) S0UTOUT (1,2) *HYPROB CI) sOUTOUT (Ie 1) OUTXKL (1,2) S0UTXL (1,2) #HYPROB (I) ROUTXL(I,1) DO 40 K=1,NCAPS EOUT(Ke1,2) SE0UT (Ke 1,2) tHYPROB (IT) REOUT (Ke Te 1) CONTINUE B.53 00024680 0010490 40010500 00024690 muD10510 m0010520 MOD10530 00024900 00024910 00024920 m0010540 40010550 0010560 40010570 MUu010580 ™0D10590 40010600 00024930 00024940 00024950 00024960 00024970 00024980 00024990 00024991 00025000 00025010 00025020 00025030 00025040 00025050 00025060 00025070 00025060 00025090 00025100 d00e5110 00025120 00025150 00025140 00025150 00025160 00025170 00025180 0002519uU 00025200 00025210 00025220 0002523u ovo025240 00025250 00025260 00025270 00025280 _ 00025290 0002530 00025310 aeaannanaca o MOD 60 70 80 cieo 1e0 125 140 150 200 210 100 EXPECTED ENERGY OUTPUIS ARE NOw INDEXED BY I=1,J2, ACCUMULATE CAPACIIIES OF THE SAME TYPE FUR PRINTOUT. PEAK HYDRO AS THE LAST PRODUCTION TECHNOLUGY AND ALU UNSERVED ENERGY AS THE LAST OUTAGE TYPE. = = THE KEMAINDER OF THE CODE HAS BEEN MODIFIED TO ACCOMMODATE THE 16 TECHNOLOGIES, NOTE THAT 16 IS NOW THE BASE FOR THE OUTAGE DATA, K1i=0 N=0 DO 80 K=1,NCAPS IF(K.EQ,1)G0TU 60 IF CITYP(K) GT.10)K15K IF CITYP(K) .GT. 16) Ki=K IFCITYP(K).GT.10)G0TO 120 IF CITYP(K) .GT. 16) GO TO 120 IF (K EQ, 1) GO TO 60 IFCITYP(K) EGeITYPC(NFIR) GOTO 70 CONTINUE NFIRSK NEN41 ITYP(N)SITYPC(NFIR)D EQUT(N, 1,2) =EUUT(NFIR, 1,2) GOTO 80 EOUT(N,1,2)=EUUT(N,1,2) #EQUT (K,1,2) CONTINUE IF (MWHY,.GT.1) SNe] IF (MWHY .LE, 1) GO TO 140 NHS=N DO 125 K=i,7 IF (HYENPR(K) .LEe 0.0) GO TO 125 NSN @ 1 CONTINUE CONTINUE NLP=N IF (K1.,EQ,0)GOTO 100 IF (NZEU.K1)60T0 200 IF (N .GE. Ki) GO TO 200 DO 150 KSK1,NCAPS NENe1 ITYPC(NJSITYP(K) EOUT(N, 1,2) =EUUT(K,1,2) GOTO 160 DO 210 K=K1,NCAPS NNSNtNCAPS@Kti ITYP(UNN)SITYPONN@L) EQUT(NN,1,2)=tOUT (WNe1,1,e) N=N*NCAPS@K1¢1 CONTINUE IF (MWHY GT. 2) EGQUTUNLP,1,2)SHYENLM(1,2) IF (MWHY GT. L)ITYPC(NLP)=10 IF (MwHY .LE. 1) GU TO 165 DO 103 K=1,7 IF C(HYENPR(K) .LE. 0.0) 60 TU 163 NEXT, INSERT 000259320 00025330 00025340 00025350 MUD106010 mO010620 MOV10630 0010640 4003 065u 40010660 0002536u0 00025370 00625380 00025390 00025400 mMU010670 00025410 40010680 40010690 00025420 00025430 00025440 00025450 00025460 00025470 00025480 00025490 00025500 00025510 00025520 40010700 m0010710 M0D010720 46010730 40010740 M0010750 M0010760 00025530 00025540 00025550 MO010770 00025560 00025570 00025580 00025590 00025600 00025610 00025620 00025630 00025640 0002563u 00025660 00025670 0002566u MOD10760 MOD10790 M0010800 163 105 NHS=NHS + 1 ITYP(NHS)59 + K EQUT (NHS, 1,2) =HYENPR(K) *HYENLM (1,2) CONTINUE CUNTINUE N=N+1 ITYP(N)=18 ITYP(N)=24 EOUT(N,1,2)=0UTOUI (1,2) NTPU=N RETUKN END B.55 m0OD10810 mU010620 MOD106 su MOD10840 MUD1065u 00025690 00025700 40010860 00025710 00025720 00025730 00025740 Oanon aanaa AAO anmomnrannannana c c c oan 10 o SUBROUTINE EVCCNTPO,NLP,ITYPe VC, ENV-OUTCSTe TVCPEUUT, IYR,VCESCe +UUTESC,QUTC,CSENV,CSOUT) SUBROUTINE EVC (NIPOsNLPeTTYPeVCeENVeHRe IF Pe FCeLYRDE,OUTCSTs TVCe 2 EUUT, TYR, VCESC,-FUESC, OUTESC,OUTC/CSENV,CSOUT) INCLUDE (AREEPPR) = © DIMENSIONS MOOIFIED TG ACCUMMODATE 16 TECHNOLOGIES DIMENSION EUU1(100,3-2) ,OUICST(O),ITYP(100),vC(160),-ENV( 16), +VCESC (16) ,OUTESC(b) LOGICAL OUTC(S) FOSSIL FUEL ARRAYS DIMENSION HR(16), IFTUC16), FC(31,10), FUESC(10) THIS SUBROUTINE FINDS THE EXPECTED VARIABLE PRUDUCTION AND ENVIRONMENTAL COSTS BY TECHNOLUGY AND STURES THEM IN EQUT(I¢J,K). J AND K INDEX THE FULLUWING VARTABLES® JpKF1i,2 EXPECTED PRODUCTION ENERGY aol PRODUCTION CUST ere ENVIRONMENTAL COST 3,1 TOTAL VARIABLE COSI TOTAL VARTABLE COST TUTAL IS TVC IN MILLIONS OF CONSTANT 6, CSENV=0, CsOuTso, 00 10 [=1,NLP L=ITYP(1) FOSSIL FUEL CUNSIDERATIONS IF (IYR .GT. (IYFUE=1)) GO Tu 5 FCLYR=(HR(L)#FC(IYRe1,IFTUCL)))/1000000. GO 10 6 CONTIWUE : FCTYRSFCCLYFDEsIFIUCL))*(1. * FUESCCIFTUCL)) ae CLYReCIYFDEW1)) UNITS CONVERSION FCIYRS(FCIYR*HR(L)) 71000000, CONTINUE EOUT CLs eet ZEUUT (Tete 2daC(vC(Le(ie * VCESC(L))**1YK) + FCIYR) EOUT(1,2,1)=EUUT(I,1,2) *VC(L)&(1,+VCESC(L)) ee IR EQUT CL, 2/2)5E0UT(L,1¢2) *ENV(L) EOUTCI, 3,1) =€UUT(L,2,2) +E0uT (Leer i) CSENVSCSENV+EUUT(L,2,2) CONTINUE NLPPISNLP FL DO 50 LSNLPP1,NTPU - = 16 IS NOW THE BASE FOR GUTAGE LATA LSITYP(1)-10 B.56 MOD108670 M0010680 00029790 00025760 MO010890 ™G010900 MO010910 MUD10920 MO01093u “6010940 m™0D10950 00025770 00025780 00025790 MUD10960 m001097U MUD10960 40010990 M0011000 0011010 00025800 00025810 000258620 00025830 00025840 00025650 00029860 00025870 00025680 00025890 00025900 00025910 00025920 00025930 Mo011020 mQ011030 MOD11040 mu011050 mM0U11060 mU011070 ™OD11060 4Ov1i1090 MO011100 m0011110 40011120 0011130 00025940 MOD1i1140 MOD11150 00025950 0002596u doue59/U 00025980 00025990 Q0026u0u00 MODI 1160 00026010 99192000 06092000 98092000 92092000 09092000 05092000 0n092n00 0¢€092000 92092000 oLtttaow £s°4 an3 NANL3y 3NNILNOD CUE TILNOFFIALEIAL NdiIN‘ TEI SE 00 *OSIAL 3NNILNOD C14 41) 1NNZ41NOSA=1NNSIC (1) 91ND) 41 MAT#*( (1) 969 3LNDs TT) ¥ CD ISIINO(24T4T) LNNa=C(T E41) 1NOF Ot=(I)dALT=1 Ov St os SUBROUTINE SURDERUSCGR, ISCUKD,ISPN,NSCEN) 00026110 DIMENSION SCGK(10),TSCORD(10),1SPNC10) 00026120 LOGICAL USED(10) 00026150 c 00026140 C THIS SUBROUTINE -ORDERS SCENARIOS BY AVERAGE GRUWTH RATE, 00026150 C ISCURO(JS)=I MEANS THAT SCENARIO I HAS THE J TH LOWEST AVEKAGE 00026160 C GRUWTH RATE, vv026170 c 00026180 DATA TLOW/0¢ 00026161 IF (NSCEN,NE.1)GUTU 5 00026190 00 7 151,10 00026200 I1IsI 00026210 IFCISPN(I).EG.1)GUTO 8 vuv2622e0 T CONTINUE 00026230 4 TSCORD (4) S11 v0020240 GOTO 100 00026250 5 bO 10 I=1,10 00026260 ISCOROD(1) 50 00026270 USED (I) SISPN(1).GI.NSCEN 00026280 10 IF (.NOT.USED(1)) ILOWsI 00026290 )O 40 Je1,NSCEN 00026300 O00 20 1=1,10 00026310 IF (USED(T))GOTO 2u 00026320 IF CSCGRCT) .LT/SCGRCILOW) ) LLOWsT 00026330 20 CONTINUE 00026340 ISCORD (J) =1L0W 00026350 USED (ILOW)=, TRUE, 00026360 c 00026370 DO 30 151,10 00020580 IF (.NOT,USED(1)) [Lows 00026390 IF(.NOT,USED(I))GOTO 40 vovee4o0 30 CONTINUE 00026410 40 CONTINUE 00026420 100 CONTINUE 00026430 RETURN 00026440 END 00026450 B.58 SUBROUTINE SGROW(NP, AL» NSCEN,ISNeISPN, SCGReALPHA, NG, DLTA,NYL,NYPP) 00026460 DIMENSION SCGK(10),1SN(10,10),1SPN(1u) 00026470 c 00026480 C THIS SUBROUTINE FINDS THE AVERAGE GROWSt RATE FOR EACH SCENARIO, 00026490 C THE COMPUTATION IS DONE ACCORVING TU 00026500 C EQUATION Cel ON PAGE C#4 OF THE OVER/UNDER vv0026510 C REPURT. THIS EQUATION IS EXPANDED, HOWEVER, TO) REPRESENT 00026520 C MULTIPLE YEARS PER PEKIOD, THE GRUATH IS CALCULATED 00026530 C AND AVERAGED OVER A PERIUD OF NYL YEAKS. 00026540 c 00026550 c 0002656u DO 20 I=1,10 00u26570 IF CISPNC(I).GTeNSCEN)GOTO 20 00026580 SUM=0, 00v02659U NNZL+(NYL=1) /NYPP 00026600 c 00026610 DO 15 J=i,NN 00026620 TEMP=0, 00026630 c 00026640 DO 11 La1,J 00026650 K=ISN(I,L)-2 V002066U 1F (NB,EQ,2.A4N0,K.EU,0)K=1 000266706 TEMPSTEMP+FLOAT(K) *ALPHA®* (J@L) 00026680 11 CONTINUE 0002669uU c 00026700 NR=WYPP 00026710 IF (CJ eEQ.NNINRENYL=(NN@1) #NYPP 00026720 1s SUM=SUM+# (AL *DLTAxTEMP) «FLOAT (NR) 00026730 c 00026740 SCGR(I)=SUM/FLOAT(NYL) 00026750 20 CUNTINUE 00026760 RETURN 000267706 END 00026780 B.59 SUBROUTINE SCPROB (CEGR14,EPRUB,SCPR,NSCEN,SUGR,1SCURD,SCCUM,CuUM, 00026790 +EGR) 00026800 DIMENSION EGR14(5),EPRUB(5),SCPR(10),SCGR(10), 1SCURD (10), 5CCUM(10) 00026810 +,CUM(7) ,EGR(7) 00026620 c 00026830 C THIS SUBROUTINE FINDS THE PROBABILITY FOR EACH SCENARTO THAT WILL 00026840 C BE RUN, 000260850 c 00026860 IF(NSCEN,GT.A)GOTU 5 00026870 I=ISCORD(1) 00026880 SCPR(I)=1, 00026890 GOTO 100 00026900 5 Cum(1)=0, Quu26910 Cum(7)=1. 00026920 CUM(2) =EPROB(1)/2, 00026950 EGR(2)=EGRI4(1) 00026940 OU 10 I1=3,6 00026950 CUM(T) SCUM(1-1)+(EPROB(I-1) +EPRUB(I-2))/2. 00026960 10 EGR(I)=EGR14( 1-1) 00026970 ISISCORD(1) 00026980 IF (SCGR(I) .LT.EGR(2) )EGR(1)=EGR (2) -2.* (EGR (2) =SCOR(1)) 00026990 ISISCORD(NSCEN) 00027000 IF (SCGR(I) ,GT.EGR(6) )EGR(7)=EGR(6) +2. %(SCGK(1) -EGR(6)) 00027010 c 00027020 C FIND THE POINT UN THE CUMULATIVE FOR EACH SCENARIO, 000270350 c 00027040 IP=e2 00027050 DO 40 I=1,NSCEN 00027060 L=ISCorvD (1) 00027070 20 IF CSCGR(L) .LE.EGRUIP) UR. IP.GI.7)GUTU 30 00027080 IPSIP+l . 00027090 GOTO 20 QuodeT1OU c do0027110 30 SLUPE=(CUM(IP)-CUM(IP#1))/(EGR(IP)-EGR(IP=1)) 00027120 40 SCCUM(L)=CUM(IP)=SLOPE® (EGR(IP)=SCGR(L)) 00027130 c vove7i4u C FIND SCENARIO PROBABILITIES 00027150 c 00027160 LI=ISCORD(1) 00027170 PDELTA=SCCUM(L1) 00027180 DO 70 I1=2,NSCEN . 00027190 L2=1SCORD(I) voo27200 DEL TA=(SCCUM(L2)=SCCUM(L1)) 72. 00027210 SCPR(L1)=PDELTA#DELTA ooveT2eu LisLe 00027230 70 PUELTASDELTA Gove7edu c v0027250 Li=1SCORD(NSCEN) 00027260 SCPR(L1) =PDELTA41.=SCCUM(L1) 00027270 100) CONTINUE 00027260 RETURN 0ude72e9u END 00027300 B.60 SUBROUTINE SCPRS(VAR,EV,SCPReNSCENs NSCENH, ISCORD,sSYMM, SCGR, LSP) DIMENSTON SCPR(10),1SCORD(10),SCGR(10),1TSPN(10) LOGICAL SY¥MM,UDD THIS SUBROUTINE ASSIGNS SCENARIU PROBABILITIES WHEN THE SCEWARIOS ARE SYMMETRIC WITH RESPECT TO THE CENTER TREE PATH. WHENEVER POSSIBLE THE PROBABILITIES ARE ASSIGNED IN A WAY THAT THE MEAN AND VARIANCE OF THE AVERAGE DEMAND GROWTH THROUGH THE LONG RUN YEAR NYL ARE THE SAME FOR THE SCENARIOS AS THEY ARE FOR THE FULL PROBABILITY TREE. A SIMPLE TRIANGULAR SCHEME FOR ASSIGNING THESE PROBABILITIES IS USED, WHENEVEK THIS SCHEME FAILS TO ASSIGN A CONSISTENT SET OF PROBABILITIES, THE SCENARIO PROBABILITIES ARE ASSIGNED INSTEAD USING SUBROUTINE SCPROB. SCPROB IS ALSO USED WHENEVER THE SCENARIOS ARE NOT SYMMETRIC, ANNMAANMAAAAAN IF (NSCEN,GT.2)GOTU 10 00 5 [51,10 5 SCPR(I)=,5 GOTO 800 c c10 IF(VAR.LT.1./10,%*50)G0TO 100 C cee cae cae coe wen wee cue woe ene enw con moe wee won eve ace one c - - VAX VERSION = = c c 10,%*%50 IN THE ABOVE STATEMENT IS REPLACED WITH 10,%*58 c IN THE STATEMENT BELUW, 10.%%56 IS APPROXIMATELY c THE LARGEST REAL NUMBER REPRESENTATION FOR THE VAX c 10 IF (VAR oLT. 1./10.%*38) GO TO 100 c C ene wmw wee wee wee wee wee cee s28 ene cee eee coe ene eee one one c C MAKE INITIAL PRUBABILITY ASSIGNMENTS c PTOT=0, DUNE=1, SIG=SQRT (VAR) DO 20 ITsi,NSCEN J=ISCORN(I) PTOT=PTOTFEXP(=(AbS(SCGR(J) EV) /SIG) * *DUNE ) eu CONTINUE DO 25 I=51,NSCEN JSISCORN(T) es SCPR(J)=EXP (-CABS(SCGR(J)-EV)/S1G) **DOUNE)/PTUI WRITE (11,520) (SCPK(I),I=1,10) c C CALCULATE PROBABILITY ADJUSTMENTS FUR PROPER VARIANCE. c ODD=2*NSCENH,NE.NSCEN NUMBER=NSCENH IF CODD) NUMBERSNSCENH=1 CONSTSFLUAT (NUMBER +1) /2. IF (ODD) CONST= (FLOAT (NUMBER) #25) /26 ALPHA=0, BETAS0, B.61 v002731u 00027320 00027530 00027340 00027350 00027360 00027370 00027380 00027390 00027400 00027410 00027420 00027430 00027440 00027450 00027460 00027470 00027480 00027490 00027500 00027510 00027520 MOD11180 M0D11190 mov11200 mMoD11210 mMod11220 Mo011230 MoDii24u0 mod11250 mMO011260 0011270 00027530 00027540 00027550 00027560 00027570 0u027580 00027590 00027600 00027610 00027620 00027630 00027640 00027650 00027660 00027670 00027080 00027690 00027700 00027710 00027720 00027730 00027740 00027750 00027760 00027770 DO 40 1=1,NUMbER J=ISCORD (NUMBER+1-1) ALPHASALPHA#2,*SCPR(J) « (SCGK (J) HEV) x«2 BETASBETA+2,*(CONST=FLOAT(1)) *(SCGR(J)<EV) eee 40 CONTINUE c ALPHA=(VAR@ALPHA) /BETA c 00 SO I=1,NUMBER JI=ITSCORD (NSCEN=NUMBER*I) J2=ISCORD (NUMBER+1<-1) SCPR(J1)=SCPRCJ1) *ALPHA*® (CONST=FLOAT(I)) SCPR(J2)=SCPR(J2) tALPHA* (CONST *FLUAT(I)) 50 CONTINUE c J1=1ISCURD (NSCENH) IF (ODD) SCPR(J1)SSCPR CJL) *ALPHA®FLUA) (NUMBER) /2, c C CHECK RESULTS FUR CUNSISTENCY. c VARF=0, DO 60 Ts1,10 IF (ISPN(I).GT.NSCEN)GOTO 60 VARF=SVARF+SCPR(1)*(SCGR(1) EV) #*2 60 CONTINUE c IF CABS ( (VARFeVAR)/VAR) .GT.,000001)GUTU 70 WRITE (11-500) VARFe VAR GOTO 80 c 70 WRITE (11,510) VARF,VAR c C CHECK TO SEE THAT PROBABILITIES ARE ALL BETWEEN 0 AND 1 C AND THAT THEY SUM TU 1. IF THEY AKE NOT UR IF THEY DO NOT C SUM TO 1, USE SUBROUTINE SCPRUB INSTEAD. c 480 WRITE (11,520) (SCPR(I), 121,10) PTOT=0, DO 90 121,10 IF CISPN(I).GT-NSCEN) GOTO 90 PTOT=PTOT+SCPR(1) = 1F CSCPR(I) .GT.1.0.0R.SCPR(T) LT.0.)GOTO 100 90 CONTINUE IF (ABS(PTUT=1.).G1..0000001)GOTO 100 WRITE (11,530) GOTO 800 c 100 SYMM=.FALSE. WRITE (11,540) Cc 500 FORMAT(*SCENARIG VARIANCE ',610.4,' EWUALS LUNG RUN ', +'VARITANCE ',E10,4,' 2°) 510 FORMAT(*SCENARTU VARIANCE ',£10.4," DOES NOT EQUAL LONG ', +'RUN VARTANCE ',E1064,' 2°) 520 FORMAT('SCPR(I) Iiv SUBROUTINE SCPRS2'/10F7.3) 550 FORMATC('SCENAKIO PROBABILITIES ASSIGNED CONSISTENTLY WITH '/ +*LONG RUN MEAN ANU VARIANCE IN SUsROUTINE SCPRS.') B.62 00027780 00027790 00027800 00027810 00027820 00027830 00027840 00027850 00027860 00027870 00027660 000275890 00027900 00027910 0002792eu 00027930 00027940 00027950 00027900 00027970 00027980 00027990 00028000 00028010 00028020 00028030 00028040 00028050 00026060 00026070 00028080 00028090 00028100 00028110 00026120 00028130 00028140 00026150 00028160 00028170 00028160 00026190 00028200 00028210 vovebe20 00028230 00026240 00026250 0002826u 00028270 00028280 00028290 00028300 00028310 00028320 00028330 00028340 FORMAT( "SCENARIO PROBABILITIES ARE ASSIGNED IN SUBROUTINE +'SGkUW,') CONTINUE RETURN END B.63 vy 00028350 00028360 00028370 00026380 00026390 00026400 00026410 T J aonanan 19 lo 20 100 SUBROUTINE FIXOM(FIXCHG,LRP1,CEP, RETIRE, NS,/CCAPTB,FOANDM FLAY +FCESC, THORZ) HES SUBROUTINE ADDS FIXED O AND M CUSTS INTU FIXCHG HROUGH THE TERMINAL HORIZON. = = DIMENSIONS AND DO LOOP FINAL VALUES MODIFIED TU ACCOMMODATE THE 16 TECHNULUGIES DIMENSION FIXCHG(100),CEP(16,31,3) /CCAP76(16) ,-FOANDM(i6) + +FCESC (16) ,-RIZ(16) -RETIRE (16,31) ,CAPCi6) DATA CAP/16#0./ DO 5S T=1,-10 DO 5 I[=1,16 RIZ(1)=1000, DO 20 J=1,THORZ FXG=0, vO 10 1[=1,10 DO 10 I=1,16 IF(JS.GT.LRP1)GUTO 15 CAP(1)SCCAP78(1) 4+CEP(I,J,NS) RETIRE (I,J) CONTINUE COSTSFOANDM(I) #RIZ(1) FXGSFXG#CAP (I) *#COST RIZCIDSRIZ(1L) & Ci tFCESC(L))# (i +FLA) CONTINUE FIXCHG (J) SF IXCHG (J) #FXG WRITE (11,100) 0 ,FIXCHG (J) / FXG CONTINUE FORMATC'J,FIXCHG(J) FXG ',15,76P2F10.2) RETURN END B.64 v0028420 00026450 00028440 00026450 M0011280 MoD11290 MUD11300 MOD11310 0002846u 00028470 000286471 00026480 00028490 muD11320 00028500 00028510 00028520 000286530 M0011330 00028540 000286550 0002856u 00026570 00028580 0002859u 00028600 00026610 00028620 000286630 00028640 00028650 00028660 aananaenaann ao 10 aa 15 Cc - 20 c c c 90 100 SUBROUTINE FOMESC (FUMRET, TERUAM,FCESC,CAP, TOTCAP,CUHY;sLR, +LBMAX,FOANDM, TERMIX) THIS SUBROUTINE ESCALATES,BUT DOES NUT INFLATE, FIXED QO AND M COSTS FUR TERMINAL ADDITIONS CTERUAM) ANU FOR RETIREMENTS (FUMRET) TO THE APPROPRIATE YEAR. =~ = DIMENSIONS AND VO LOOP FINAL VALUES MOUIFIEL TU ACCUMMODATE 16 TECHNULUGIES, OIMENSION FOMRET(100),TEROAM(100),FCESC(16),CAP(16), +FOANDM(16),TERMIX(16) DO 20 J=1,LBMAX FOMRET(J TERUAM(J)=0. OO 10 1=1,9 CAP(I)=TOTCAP*TERMIX(I) RIZ=(1,¢FCESC(1)) **(LR+J) TERUAM(J)=TEROAM(J)*#FOANDM(1) #RIZ*TERMIX (I) = = SKIP NEXT CALCULATION IF TUTCAPECUHY IF (TOTCAP = CUHY .LT. .00001) GO TO 10 FOMRET (J) SFUMRET (J) +FOANDM(I) #RIZ*CAP (I) /(TOTCAP*CUHY) CONTINUE = - USE ALL 7 HYDRU TECHNOLUGIES TEROAM( J) =TERUAM(J) +FOANDM(10) *(1,+FCESC(10))®* (LAOS) *TERMIX(10) vO 15 1=10,16 TEROAM(J)=TERUAM(J) + FOANDM(I)*(1,. # FCESC(I)) **(LR4J) eTERMIX(I) CONTINUE CUNTINUE WRITE (11,90) WRITE (11,100) (TEROAM(I), T=1,LBMAX) WRITE (11,100) (FOMRET(I),1=1,LBMAX) FORMAT C'TERUAM(I) sFOMRET(I) 3") FORMAT ((10F6,1)) RETURN END B.65 00028670 00028680 00028090 00028700 00028710 00028720 00026730 MOD11340 MOD1135u MOU11360 MOD11370 00028740 00026750 00028760 00026770 00028780 00028790 00028800 00028810 000286820 00026830 MOD11380 mUD11390 m0011400 0011410 00028840 00026850 Mo011420 m0011430 00028860 mO011440 MOo011450 M0011460 M0011470 00028870 00028880 00028690 00028900 00028910 00028920 00028930 00028940 SUBRUUTINE START (LAGREG, SGRO,5GRO,EDINT, RHE, EDEBT,COCHIS) 00028950 CR RRR RRR RRR RRR RRR RRA RE RRR RRR RRR REKEEEK 00028960 c 00028697U C PUT THE INITIAL RATE BASE IN THE PROGRAM, ALSU THE EXISTING 00028980 C DEBT INTEREST, CALCULATE THE FIKED CHARGE ON THE EXISTING 00028990 C RATE BASE 00029000 c 00029010 CRRA R RRR RARER ERE RRARER ERE REE 00029020 C eee eee ee ee ee ee eee ee ee ee eee ee eH ee = =e = MODII480 c = = VIMENSIONS MUDIFIED TO ACCOMMODATE THE 16 TECHNOLOGIES M0011490 C eee ee ee ee et ee eee eee eee ee ee ee He = = = MOOIISON COMMON /C1/ ITCRAT,NCONM,PHORZN,HOKIZN, INFLA,NPRUS,NGTEC,LB(16), 00029030 +DBTRT,FAIADJ, LTCNUR, TAXMAR,EURT,PRERT 00029040 COMMON /C3/ EXCPLM(100),CWIP(100),CC ,DINT(100),LAGR (16) 00029050 + ,AFUDC(100),VITC(100) ,GAPCST (16) ,DINVST(100),RTBASE (100), 00029060 + FCWIP(16,13)¢NCOW(16) -FAFUDC (16,13) ,LEN(100),PCWIP,BONDKI(100), 00029070 + EGRO(100),ASSETS(100) ,EXCUST(100),FIXCHG(100),ASS76 00029060 + ,AAMORT(100),CURCAP(16,100),ESC(16) -ADDION(100) ,-DEPREC(100), 00029090 +TAXES (100) ,COVER(100) ,RATINT (100) ,DELTA(100) ,COFCAP(10U), 00029100 +RETINT(100) ,PREFER (100) ,COFCOM(100),ALDDPON(100) 00029110 DIMENSION EDINT(7),RBE(7),EDEBT(7) 00029120 INTEGER HORIZN,PHURZN 00029130 K=0 00029140 00 101 I=i,HOKIZN 00029150 AFUUC(I)=0, 00029160 EXCPLM(I)=0. 00029170 ADDPON(1)=0. 000291860 AODIUN(T) 50. 00029190 TAXES(I)=0. 00029200 BONDRT(I)=0. 00029210 DEPREC(I)=0. 00029220 OLTC(1)=0,. 00029230 101 CONTINUE 00029240 DO 10 I=1,7 . 00029250 BNEXT=(,9a%35) *RBECT 00029260 DINEXT=(,9%*3) EDINT(I) 00029270 DNEXT=(.9«%3) sEDEBT (I) 0002926u IFC(I.E0.7) GO TU 30 00029290 TisI+1 00029300 BNEXTSRBE (11) 00029310 DINEXT=EDINT(11) f 00029320 ONEXT=EDEBT (11) 00029330 $0 CONTINUE 00029340 J1s3 00029350 SDEBT=(EDEBI (1) -DNEXT)/FLOAT(Ji) 00029360 SINT=(EDINT (CI) -UINEXT) /FLOAT(J1) 00029370 DO 20 J=1,J1 00029580 K=K+l 00029390 RETINT(K)=SINI 00029400 BONDRT(K)=SvEbT 00029410 Z=FLUAT(3) 00029420 ZZ=FLOAT (J) 00029450 RTBASE (K)SRBE (1) 122-1.) * (RUE (I) ©BNEXT)/Z 00029440 DINT(K) SEVINT CI) -(ZZ=1.) e(EDINT (1) -DINEXT) 7/2 00029450 20 CONTINUE 00029460 10 CUNTINUE 00029470 K=K+l 00029460 B.66 Ow wi 50 40 60 70 Pur THE DO 35 I=K,HURIZN dele. RTBASE (1) =, 9*RTBASE (J) OINT(I)=,9xDINT( J) RETINTCIVS.1*0INTIS) BONORT (I) SBONURT (J) 4.9 CONTINUE IN THE FIXED CHARGED ASSOCIATED WITH INITIAL RATE BASE IF (LAGREG,EQ,0) GU TO 40 K=0 CHARGE SRBE (1) *(COCHIS+,02) 00 50 T=1,LAGKEG KSK+l 00029490 00029500 00029510 00029520 00029530 00029540 00029550 00029560 00029570 00029580 00029590 00029600 00029610 00029620 00029630 00029640 FILXCHG (K) SCHARGE #((1*SGRO) ** (LAGREG*+1-1))/( (1 +8GRO) #* (LAGREG*1=-1)) 00029650 FIXCHG(K)SFIXCHG(K) +, 05*RBE (1) DEPREC (K) =DEPREC(K) +,0S5*RBE (1) CONTINUE CONTINUE L=HORIZN©LAGREG K=LAGREG bO 60 I[51,L K=K+1 FIXCHG(K)=(COCHIS*, 02) #RTBASE(I) CONTINUE K=LAGREG41 FIXCHG (CK) SFIXCHG(K) +,05*RBE (1) DEPREC (K) =VEPREC (K) +,05*RBE (1) 00 70 I=2,t K=Kel FIXCHG(K) =F IXCHG(K) #RTBASE (K=1) -RIBASE (Kk) DEPREC (K) =DEPRKEC (K) #RTBASE (Kel) RTBASE (K) CONTINUE RETURN END B.67 00029660 00029670 00029680 00029690 00029700 00029710 00029720 00029730 00029740 00029750 00029760 00029770 00029780 00029790 00029800 000298610 00029620 00029830 00029840 00029650 SUBROUTINE CAPCONCARATE,CAP78,1START,CUNSTR) CRITI ROOT IIR nanaaanaan 20 15 $0 40 THIS SUBROUTINE CONVERTS CAPITAL SPENDING FROM $76 TU THE CAPITAL REQUIRED FOR A PLANT TURNED ON IN 78. ALSO CALCULATES THE SPREAD OF AFUDC AND CWIP UVER TIME. STR REE RE RRR RRR RRR EERE RRR EER RE RR = = DIMENSIONS HAVE BEEN MUDIFIED 10 ACCOMMODATE THE 7 HYDRO TECHNOLOGIES, COMMON /C1/ LICRAT,»NCONM,PHURZN, HORIZN, INFLAsNPRDS,;NGTECeLB(16), +DBTRT,FAIADJ, ITCNUR, TAXMAR,EGRT,PRERT COMMON /C3/ EXCPLM(100),CWIP(100),CC ,DINT(100),LAGR(16) + ,AFUDC (100) ,DITC(100),CAPCST(16) ,DINVST (100) ,RTBASE (100), + FCWIP(16,13)/NCON(16) -FAFUDC (16513) -LEN(1U0) ,PCWIP,bONDKT (100), + EGRO(100) ,ASSETS(100) ,-EXCOST (100) ,FLXCHG(100),ASS78 + ,AAMORT(100) ¢CURCAP (16,100) ,ESC(16) ,ADDION(100) ,DEPREC(100), +TAXES(100),COVER(100) ,RATINT(100),DELTA(100) ,-COFCAP(100), +RETINT (100) -PREFER (100) -COFCUM(106) ,ADDPON(100) DIMENSION CAP78(10),1START(16) ,CONSTR (16) INTEGER HORLZN,PHURZN REAL INFLA DO 10 I=1,NGTEC NISCONSTR(I) NCONCT)=NI*ISTART(I) IFCISTART(I),€@.0) GO TO 15 N3=NCONM#1 JI=ISTART (I) OO 20 J=1,J1 NGsN3-Jd FCWIP(I,N4)=1000, CONTINUE CONTINUE N3=NCONM=N1-ISTARI (1) Z=FLOAT(NL) bO 30 J=1,N1 NG=N3+J FCWLP(T,N4)=1000,*FLUAT(J)/Z CUNTINUE . FCWIP(1,NCONM4+1)=(PCWIP=1.) #1000, N3=NCONM=N1=ISTARI(T) FAFUDC(I,N3)=0 $1=0, vO 40 J=1,N1 NS=N3¢J NB=NS=I S2=ARATE®((,5*(1,-PCWIP) *1000,/N1) +F AFUDC (1,N6)) S2sS2eFaF UOC (1,N8)+1000.*(1.°PCwIP) /FLUAT (NI) FAFUDC(I,N5)=52 CUNTINUE IFCISTART(1),€0.0) GU TO 50 JI=SISTART(I) No=NCONM=J1 DU 60 J=1,J1 N7TSNO+d B.68 THIS ROUTINE 00029860 00029870 00029860 00029890 00029900 00029910 00023920 00029930 mu011510 m0011520 00115350 M0D11540 00029940 00029950 00029960 00029970 00029980 00029990 000300U0 00030010 00030020 00030030 00030040 00030050 00030060 00030070 00030080 00030090 00030100 00050110 00030120 00030130 00030140 00030150 00030160 00030170 00030180 00030190 00030200 00030210 00030220 00030230 00030240 00030250 v0030260 00030270 00030260 00030290 00030300 00030310 00030320 00030330 00030340 00030550 00030360 00030370 00030380 6u 50 CREEK RRR ERR RRR REAR ERE RRR c c c c FAFUDC(I,N7)=S2 CONTINUE CONTINUE FAFUDC (1, NCUNM+1 )==S2 CHANGE THE CAPITAL COST FROM 78 START*UP $786 TOA CI RRR RI RRR RRR 70 10 Sis0, DO 70 Js1,N1 SL=S1+(1L/FLOAT (NI) eC CCL, FINFLA) &(1,¢ESC(1))) ee (eNISISTAKT(I) #5) ) CUNTINUE CAPCST(1) 351 «CAP78 (I) CONTINUE RETURN END B.69 00030590 00030400 00030410 00030420 00030430 00030440 00030450 00030460 00030470 00030480 00030490 00030500 00030510 00030520 00030530 00030540 000305950 00030560 SUBROUTINE AMORT CIO IOI III III TOI IOI TIA Cc C THIS SUBROUTINE CALCULATES THE RATE BASE THAT 1S AFUDC,AND THE C PROFIT AND TAXES THAT RESULT FRUM ITS AMURTIZATION. c CRRA RARER RAR RRR E RE RRR RARREAR ERE c c c 10 40 50 eo = © DIMENSIONS MODIFIED 10 COMMON /C1/ ITCRATsNCONM,PHURZN,HORIZN, JNFLAsNPRDS,;NGTEC,LB(16), ACCOMMODATE 16 TECHNULOGIES +0DBTRT,FATAUJ, LTCNUR, TAXMAR,EURT,PRERT COMMON /C3/ EXCPLM(100),CWIP(100),/CC ,DINT(100) ,LAGR (16) + ,AFUDC(100),VI1C(100) ,CAPCST(16),DINVST (100) ,WTBASE (100), + FCWIP (16,13) ¢NCOW(16) pFAFUDE (167/13) -LEN(1U0),-PCWIP,BONDRI (100), + EGRO(100),ASSETS(100) ,EXCOST(100) ,FIXCHG(100),ASS78 + »AAMORT(100)¢CURCAP (16,100) ,ESC (16) ,ADDION(100) ,VEPREC(100), +TAXES(100),COVER(100) ,-RATINT (100) ,DELTA(100) ,COFCAP(100), #RETINT(100) ,PREFER (100) ,COFCOM(100) ,ADDPUN(100) INTEGER HORIZN,PHURZN DATA AAMORT/100%0./ OO 10 T=1,HURIZN AAMOKT(I)=0. CONTINUE DU 20 LTsi,NGTEC L2s_5(1) FAC=(-FAFUDC(I,NCUNM#1)=1000.8(1.=-PCWIP))/FLOAT(L2) LI=LAGR(I) NEL1 DU 30 J=i,NPRUS NSN+LEN(J) IF (CURCAP(I,J),LE..01) GU TO 30 DO 40 K=1,Le MENtK AAMORT (M) SAAMURT (M) #F AC®CURCAP (I,J) CONTINUE CONTINUE CONTINUE RETURN END B.70 00030570 00030580 00030590 00030600 00030610 00030620 00030630 M0d11550 M0D11560 MoD11570 00030640 00030050 00050660 00030670 00030080 00030690 00030700 00030710 00030720 00030730 00030740 00030750 00030760 00030770 00030780 00030790 00030800 00030610 00030820 00030830 00030840 00030850 00030860 00030870 00030880 00030890 00030900 00030910 00030920 00030930 a SUBRUUTINE CAPCUR(CEP,NS) 00050940 CII IIIOIOIOIOIUIOICIOOIOTOOT OR TTK 00030950 c 00030960 C THIS FUNCTION CONVERTS THE CAPITAL PRUGKAM IN MEGAWATTS INTU 1HUUSANDSU0030970 C OF DOLLARS, INFLATION IS APPLIED, YIELDING CURRENT DOLLARS, 00030980 c 00030990 Ci HT TTT TR RT TORT RRR RK RK 00031000 C eee eee eee eer eee eee ee eee eee eee ee ee © = MOD11S80 c = - DIMENSIONS MODIFIED TO ACCOMMODATE 16 TECHNOLOGIES m0011590 C eee eer eee e eee et ee ee eee eee ee eee we ee = = = MOD11E00 COMMON /C1i/ TTCRAI,NCONM,PHORZN,HORIZN, INFLA,NPROS,NGTEC,LB(16), 00031010 +tOBTRT,FAIADJ, ITCNUR, TAXMAR,EQRT,PRERT 00031020 COMMON /C3/ EXCPLM(100),CWIP(100),CC ,DINT(100),LAGR(16) 00031030 + ,AFUDC(100),01TC(100) ,-CAPCST (16) ,DINVST (100) ,-RTBASE(100),° 00031040 + FCWIP (16,13) ¢NCON(16) ,FAFUDC (16,15) ,LEN(100),PCWIP,BUNDRI(100), 00031050 + EGRO(100),ASSETS(100) ,EXCOST (100) ,FIXCHis (100) ,Ass78 00031060 + ,AAMORT(100),-CURCAP(16,100),ESC(16),ADDION(100) ,VEPREC(100), 00051070 +TAXES(100) ,COVER(100) ,RATINT (100) ,DELTA(100) ,COFCAP(100), 00051060 +RETINT (100), PREFER (100) ,COFCOM(100),ADUPON(100) 00031090 OIMENSION CEP(16, 51,1) 00031100 REAL INFLA 00031110 L=o 00031120 DO 20 I=1,NPROS 00031130 c LISLEN(T) 00031140 L=L+1 00031150 DO 40 Ks1,NGTEC 00031160 FAC=((1.*INFLA)#(1,+ESC(K))) #e(L=1) 00031170 CURCAP (KeL)=(CEP (Ke Iti ey NS) CEP (Ke IsNS)) *CAPCST (UK) *F AC 00031180 40 CONTINUE : 00031190 eo CONTINUE 00031200 RETURN 00031210 END 00031220 B.71 SUBROUTINE FXCHARCFCI/FCTILA,FCTLeFCTLI sFUKL LT) 00031230 CORR RK EIR RE RIOR IR EKER RRR REE RK EER 00031240 c 00031250 C CALCULATE THE FIXED CHARGES BEFURE CONSIVERATIUN UF EXTRA 00031260 C FINANCIAL COSTS, WITH NO REGULATIORY LAG. 00031270 G 00031280 CRERRRRRERERRR ARERR EERE ERR ERE RE RE RER 00031290 C sere errretr ese ree eee ee eee ee ee ee ew ee ee 0011610 c = © DIMENSIONS MODIFIED TO ACCUMMNDATE 16 TECHNOLUGIES. MO011620 C free eee eee eee eee eee eee eee ee ee ee ee ee 0011630 COMMUN /C1/ TTCRAT,NCONM,PHORZN,HORIZN, INFLAsNPRDS,;NGTECeLB(16), 00031300 +OBTRT,FAIADJ, 1 TCNUR, TAXMAR,EURT,PRERI 00031310 COMMON /C3/ EXCPLM(100),CWIP(100)-CC ,DINT(100),LAGK (16) 00031320 + ,AFUDC(100),DITC(100),CAPCST(16) -DINVST(100),RTBASE(10U), 00031330 + FCWIP (16,13) ¢NCON(16) sFAFUDC (16613) eLEN(100),-PCWIP,BONDRI(100), 00031340 + EGRO(100),ASSETS(100) ,EXCOST(100),FIXCHG(10U),ASS76 00031350 + ,AAMORT (100) ,CURCAP (16,100) ,€SC (16) ,ADDION(100) -DEPREC(10U), 00031360 +TAXES(100),COVER(100),RATINT(100) ,DELTA(100) ,COFCAP(100), 00031370 +RETINT (100), PREFER (100) ,COFCUM(100),ADDPUN(100) 00031380 DIMENSION FC1(16)-FCTLH(16),-FCTL(16),FCTL1(160),FCBL(16),L1(16) 00031390 INTEGER HORIZN,PHORZN 00031400 00 10 I[=1,NGTEC 00031410 LISLB(I)-LTC(I) 00u31420 L2=_T(1)/2 00031430 L3SLT(1)-Le 00031440 Z=FLOAT(L1i) 00031450 ZZ=FLOAT(L2) 00031460 ZZZ=FLOAT(L3) 00031470 DO 20 J=1,NPRUS 00031460 IF (CURCAP(I,J),LE..01) GO TO 20 00031490 K=0 00031500 DO 40 N=1,Jd 00031510 40 K=K+LEN(N) 000315eu 70 CONTINUE 00031530 SAV=1000,*CURCAP(1,J) 00031540 bO 30 L=i,Lle 00031550 K=K+1 00031560 FIXCHG(K)=SFIXCHG(K)+SAVe(FCICI) “FLOAT (L=1)*(FCI(L)eFCILH(1))/Z2) 00031570 30 CONTINUE 00031560 00 35 L=1,L3 00031590 K=K+1 00031600 FIXCHG (kK) =FIXCHG (RK) +SAVeC(FCTLHCI)<FLUAT(L=1) ®(FCTLHCII“FCTIL(I))/ 00031610 +222) 00051620 35 CONTINUE 00031630 IF(LiLE.0) GU TO 52 00031640 00 50 L=1,L1 00031650 K=K¢el1 00031660 FIXCHG(K) SFIXCHG CK) #SAVe(FCOTLI CI) SFLUAT (Lod) ®CFCTLI CT) @FCeL (1) )/2) 00031070 50 CONTINUE 0003160860 Se CONTINUE 00031690 20 CONTINUE 00031700 10 CONTINUE 00031710 RETURW 0u031720 ENU 00051730 B.72 — SUBROUTINE FXCHRLCFC1,FCTLH,FCTL,FCTLiI,FCKL,LT) 00031740 CORIO RII IIIT ITT II 00031750 c 00031760 C CALCULATE THE FIXtD CHARGES BEFURE CONSIDERATION UF EXTRA Qu0sL770 C FINANCIAL CUSTS, CONSIDERING REGULATORY LAG 00031780 c 00031790 CT ITI IORI TOR RTI 00031800 C ex#eeeereecrereertr eee ee ree cece ee © ee =e = = = MODILE40 c = = DIMENSIONS MUDIFIED TO ACCUMMOVATE 16 TECHNULUGIES, mMG011645 Cee eee wee eee ee eee ee ee eee eee eee eee ee = MODI1OSO COMMON /C1/ TICRAT,NCONM,PHORZN,HORIZN, INFLA,NPROS,NGTEC,LB(10), v0031610 +DBTRT,FAITADJs LTCNUR, TAXMAR,EGRT,PRERT 00031820 COMMUN /C3/ EXCPLM(100),CWIP(100),CC ,DINT(100),LAGR(16) 00031640 + ,AFUDC (100) ,DITC(100),-CAPCST(16) -DINVST(100) ,RTBASE (100), 00031840 + FCWIP(16,13) /NCON(16) ,FAFUDC (16,15) ,LEN(100),PCWIP,BONDRT(100), 00031850 + EGRO(100),ASSETS(100),ExCOST(100) ,FIXCHG(100) ,ASS76 00031660 + ,AAMORT(100),CURCAP(16,100),ESC(16),ALUDION(100),DEPREC(10U), 00031870 +TAXES (100) ,COVER(100) -RATINT(100) ,-DELTA(10U) ,CUFCAP(100), 00031860 +RETINT(100) ,-PREFER (100) ,COFCOM(100),ADDPUN(100) 00031890 DIMENSION FC1 (16) ¢FCTLH(16) -FCTL (16) ,FCTL1 (16) -FCBL(16),L1(16) 00031900 INTEGER HORIZN,PHORZN 00031910 DO 10 IT=1,NGTEC 00031920 LISLBCI)@LTCT) 00031930 Les_T(1)/e 00031940 L3=LT(I)-Le 00031950 } Z=FLOAT(L1) 00031960 ZZ=FLOAT(L2) 00031970 ZZZ=FLOAT(L5)* 00031980 DO 20 J=1,NPRUS 00031990 IF (CURCAP(I,J),LE..01) GO Tu 20 00032000 K=LAGR(I) 00032010 bO 40 N=1,J 00032020 40 K=K+LEN(N) 00032030 70 CONTINUE 00032040 SAV=1000,*CURCAP(I,J) 00032050 0O 30 L=1,Le 00032060 KsKel 00032070 FACTON=1, 00032080 N2SLAGR(I) 00032090 N7=K+1 00032100 DO 60 N=1,N2 : 00032110 N7SN7-1 00032120 IF(N7.LE.0) FACTORKSFACTOR+.045 00032130 IF(N7.GT.0) FACTORSFACTOR+EGRO(N7) 00032140 bu CONTINUE 00032150 FIXCHG(K)=SFIXCHG(K) +SAVeFACTORK® (FCI (1) =(L=1) e (FCI (1) -FCTLH(1))722) 00032160 30 CONTINUE 00032170 vO 35 L=1,L3 00032180 K=K+1 00032190 FACTOR=1, 00032200 bO 45 II1=1,Ne 000352210 FACTORSFACTOR+EGRU(K+1-IIT) 00032220 45 CONTINUE 00032230 FIXCHG(K)=SFIXCHG(K)+SAVEFACTORe (FCTLH(L)@(Lel) *(FCTLH(IT)@FCTIL(I)) 00032240 +/222) 00032250 35 CUNTINUE 00032260 TF(L1.LE.0) GU TO 52 00032270 B73 48 $0 Se 20 10 Du 50 L=1,L1 K=Kel FACTOR=1, bU 48 ITIT=1,N2 FACTORESFACTOR*EGRUC(K+1°111) CONTINUE FIXCHG(K) =FIXCHG(K) *SAVAFACTUR*(FCTLICI)-(Lo1) *(FCTLICI) -FCHLCI)) +/7Z) CONTINUE CONTINUE CONTINUE CONTINUE RETURN END B.74 00032260 00032290 00032300 00032310 00032320 00032330 00032340 00032350 00032360 00032370 00032380 00032390 00032400 00052410 = Ce IOI RIOR RII TOTTI TOIT IO Ceaeae THIS SUBRUUTINE CONVERTS THE INTEREST COVERAGE INTU A FUNCTION WOST(COVER,COSTO,COSTP) Cxxxex COST OF CAPITAL AND AN INTEREST KATE, Cerne Co RK RIOR IRR IR RRR IRE IRR RR TRAE c c c 20 10 * = DIMENSION UF LB MODIFIED TO ACCUMMODATE 16 TECH, COMMON /C1/ ITCRAT,NCONM,PHORZN,HORTIZN, INFLA,NPROS,NGTEC,LH(16), +DBTRT,FAIADJ, LTICNUR, TAXMAR,EQRT,PRERT COMMON /C2/ CUV(6),CCCOV(6) ,OBTCOV(6),PRECUV(6) INTEGER HORIZN,PHURZN WUST=CCCOV(1) COSTD=vBTCOV(1) COSTP=PRECOV(1) IF (CUVER.LT.CuUV(1)) GO TU lu =o vO 20 M=1,6 IF (COVER.GE.COV(M)) NSN+) CONTINUE AOSTSCCCOV(6) CUSTD=DBTCOV(6) CUSTP=PRECOV (6) IF(N.EQ.60)G0 TO 10 FAC=(COVER@COV(N))/(COV(Nt1) =COV(N)) WOSTSCCCOV (NN) *FAC* (CCCOV (N41) -CCCOV(N)) COSTP=PRECOV(N) +FAC® (PRECOV (N41) =PRECOV(N) ) COSTD=DBTCOV(N) +FACe(DKTCOV(NO1) -DBTCOV(N)) RETURN END B.75 0u052420 00032430 00032440 00032450 00032460 00052470 ™0D11660 MU0D11670 M0011680 00032480 00032490 00032500 000352510 00032520 00032530 00032540 00032550 00032560 00032570 00032560 00032590 00032600 00032610 00032620 00032630 00032640 00032650 00032660 00032670 00032680 00032690 SUBROUTINE FXCWIP 00032700 CII TIO IOI IORI IOI 00032710 c 00052720 C CALCULATE CWIP AND REVENUE REQUIREMENTS ON CWIP, AND PUT REQUIRED 00032730 C AMOUNT IN THE RATE BASE. 00032740 c 00032750 Ce RRR RRR EERE REE RRR REE RRR ERK 00032760 C fee eee ee ee te ee ee ee eee ee eee ee ee ee = MOD11690 c = © DIMENSIONS MODIFIED TO ACCOMMODATE 16 TECHNOLOGIES. m0011700 C ee eee eee ee ee ee eee eH re ee eee ee ee ee MODLITIO COMMUN /C1/ ITCRA! , NCONM,PHORZN,/HOKIT ZN, INFLAsNPRUS»NGTEC,LB (16), 00032770 +DBTRT,FAIAOJ, ITCNUR, TAXMAR,EQRT,PRERT 00032780 COMMON /C3/ EXCPLM(100),CwIP(100),CC ,-DINTC(100),LAGR(16) 00032790 + ,AFUDC (100) ,VITC(100) ,CAPCST(16) ,DINVST (100), KIBASE(100), 00032600 + FCWIP (16,13) sNCON(16) -FAFUDC (16-13) -LEN(100),-PCWIP,BONDRT(100), 00032610 + EGRO(100),ASSETS(100) ,EXCUST (100) ,FIXCHG(100),ASS78 00032820 + ,AAMORT(100),CURCAP(16,100) ,ESC (16), ADDION(100) ,DEPREC (100), 00032830 +TAXES(100),COVER(100),RATINT(100) ,DELTA(100) ,CUFCAP(100), 00032640 +RETINT (100) -PREFER (100) ,COFCOM(100),ADDPON(100) 00032650 INTEGER HORIZN,PHURZN 00032860 c DATA CWIP,DINVST/100#0.,100%0./ 00032670 DO 101 151,HORIZN 00032860 OINVST(I)=0. 00032890 CwIP(I)=0, 00032900 101 CONTINUE 00032910 IF (PCWIP.GT..99999) GU TO Lue 00052920 FIXCHG(1)=FIXCHG(1)+CC*eCWIP (1) *PCWIP/(1.-PCWIP) 00032930 lve CONTINUE 00032940 bO 10 Ts1,NGTEC 00032990 SAVE=1000,/FLUAT(NCON(T)) 00032960 DO 20 J=1,NPRUS 00032970 IF (CURCAP(I,J),LE..01) GO TO 20 00032980 K=0 00032990 bO 30 N=i,J 00033000 30 KSK+#LEN(N) 00033010 39 CONTINUE 00033020 NI=MINO(K,NCONC1)) 00033030 N2=NCUONM@N1 00033040 N3SKeN1 00033050 00 40 N=1,N1 00033060 NG=N34N : 00033070 NSSN2¢N 00033080 SAV=FCWIP(I+NS) *CURCAP(I,J) *PCWIP 00033090 FIXCHG(N4) =F IXCHG(NG) #SAVeCC 00033100 RTBASE (N4) SKTGASE (NG) SAV 00033110 DINVST(N4) SDINVST (NG) +SAVE xCURCAP (I,J) 00033120 CWIP(N4)=CWIP ONG) *CURCAP (1 ed) *FCWIPCI,NS)*(1.°PCWIP) 00033130 40 CONTINUE 00033140 IF CLAGR(I),EU.0) GU TU 50 00035150 LI=LAGR(I) 00033160 NS=N4 00033170 DO ov N=1,L1 00053180 NSSNS¢t1 00033190 SAV=FCWIP(1,NCONM) sCURCAP(L,J) *PCw1P 00033200 FILXCHG (NS) =F LACHG ONS) #SAVeCC 00033210 RTBASE (NS) =RTBASE UNS) #SAV 00033220 CwIP(NS)=CWIPUNS) *CURCAP (I,J) *FCWIP (1, NCUNM) *(1.°PCWIP) 000332350 B.76 60 so 20 10 CONTINUE CONTINUE CONTINUE CONTINUE RETURN Env B.77 00033240 - 00033250 00033200 00033270 00033260 00035290 SUBROUTINE FIXITCCAVAILT,-CUMITC/CCeITCRAT, RTBU, AAMORT,RATINI,-DENVSTO0U033300 +,DITC,OBTRT, TAXMAK) 00033310 CRI TOOT IOI TOT OROIIOK 00035320 c 00035330 C THIS SUBROUTINE CALCULATES TJE ITC ASSUCIATED 00033340 C w1ITH A PARTICULAR INVESTMENT PRUGRAM 00033350 c 00033360 Ck RRR RA RRR RRR ERE RRR RE ER 00035370 REAL ITCRAT 00033360 AVAILT=(RTO*TAXMAR# (CC@(RATINTROBTRI))/2,.) eAVAILT+AAMORT/2, 00033390 CUMITCEITCRATADINVST#CUMITC 00033400 OITCSAMIN( (CUMITC,AVAILT) 00033410 AVAILT=AVAILT=DITC 00033420 CUMITCSCUNIIC=0ITC 00033430 RETURN 00033440 END 00033450 B.78 SUBROUTINE COMFLNCLAGREG,EMBORT,EMUPRE , EMBL) Cie eT RTT TOT TOR RIOR RR RK aaaNaaAnNaAO 30 35 40 45 47 44 THIS SUBROUTINE CALCULATES THE ASSETS, RKATESASE AMD INTEREST PAYMENTS OF EXTRA FINANCIAL CHARGES ARE ADDED, THE CUMPANY, INTEREST COVERAGE IS CALCULATED, RR RRR RRR ERR KER ERR RRR RRR ERR EIRRERRE = = DIMENSIONS MODIFIED TO ACCOMMODATE 16 TECHNULUGIES COMMON /C1/ TTCKAT,NCONM,PHURZN,HORIZN, INFLA,NPROS,NGTEC,LB(16), +OBTRT,FALADJ, 1 TCNOR, TAXMAR,EURT,PRERT COMMON /C3/ EXCPLM(100),CW1P(100),CC ,ODINT(100) /LAGR (16) + ,AFULC(100),V1TC(100) ,CAPCST(16) ,DINVS1 (100) ,RTBASE (100), + FCWI1P(16-13)¢NCON(16) ,FAFUOC (16713) -LEN(100) -PCWIP,BONDRI (100), + EGRO(100),ASSETS(100) ,EXCUST(100) ,FIXCHG(100),ASS78 + ,AAMORT(100),CURCAP(16,100),ESC(16) ,ADDION(100) ,DEPREC(100), +TAXES (100) ,COVER(100) sRATINT(100) -DELTA(100) ,CUFCAP(100), *RETINT(100), PREFER (100) ,COFCOM(100),ADDPUN(100) COMMON /WRITE/ wRI(3) INTEGER HORIZN,PHURZN REAL ITCRAT LUGICAL WRT N4=0 EmMD=0, EmMPso0, 00 10 I=1,NGTEC bO 20 J=1,NPRDS IF (CURCAP(I,J).LE-.01) GO Tu 20 Kai DU 30 N=1eJ K=K#LEN(N) CONTINUE L=K-1 IF(L.EQ,0) GO TO 45 NISMINO(L,NCON(T)) N3=KeN1-1 bO 40 NB1,N1 NGSN34N NS=NCONM@N1+N AFUDC (N4) SAFULC(N4) *CURCAP (I,J) *FAFUUC (INS) CONTINUE CONTINUE IF(LAGR(I).EQ.0) GU TO 46 L=LAGR(I) OO 47 II=1,t N4=N4e1 AF UDC (NG) SAF UDC (N4) *CURCAP (1, J) #FAFUUC (I ,¢NCONM) CONTINUE CONTINUE SAVE=(1000.*PCWIP+F AFUDC (1, NCONM)) XCURCAP(1,J)/LB(1) LI=LB(T) N3SK+LAGR(1)=1 DO SO N=1,L1 NG=N34N RTBASE (N4) =RTSASE (NG) #SAVE* (LBC) t1-N) B.79 ANO ITC IS SUBTRACTED, 00055460 000353470 000353480 00035490 00033500 00033510 y0033S520 00033530 MUD11720 MU011730 MOD11740 00035540 00033550 00033560 00033570 00035580 00033590 00033600 00033610 00033620 00033630 000335640 00033650 00033660 00033661 00033662 00033663 00033670 00033680 0003369uU 000335700 00033710 00033720 00033730 00033740 00033750 00033760 000335770 00033780 00033790 00033800 000338610 00035620 00033830 00033640 00033850 00033660 000338670 00033860 00033890 00033900 00033910 00033920 00033930 00033940 000335950 00033960 50 20 lo DEPREC (N4) SVEPREC (LNG) +SAVE CONTINUE CONTINUE CONTINUE RATINT (1) SENBURT AT=0, CcI=0, Ck RRR RRR RARER ER RRR RRR RRR RRR RK ERA ER AREER RARE Crnknn . Ci III IO III IOC IOI IO RRR RIO C IF (wRT(3)) PRINT,*® INTEREST COVER INTEREST RATE DELTA ADDINI* 11 111 CALL FIXITC(AT,CI,+CC,eITCRAT,RTBASE (1), AAMOKT(1),RATINT(I), +DINVST(1) -DITCCI) /DBTRT, TAXMAR) TAXES (1) SRTBASE (1) *(CC@(RATINI (1) sDBIRT)) *TAXMAR ASSETS(1) =RIBASE (1) #AFudC (1) AAASASS7B@ASSETS(1) OTHERASAMAX1 (U5, AAA) ASSETS(1)SASSETS(1) #0THERA AVAILSFIXCHG(1)-DITC(1)-(.02"ASSETS(1)) DADD=DBTRT* (ASSETS (1) =ASS78) ¢BONDRT (1) ADDINTSRATINT (1) VADD DINT(1)=0INT(1)+AUDINT COVER(1)=AVAIL/(DINT(1) *FAITADJ) COFCUM(1)=QUST(COVER(1) ,-KATINT(1),-PREFER(1)) CUFCAP (i) =(OBTRT#RATINT(1) D+ + (CPRERT#PREFER(1)) #EQRT* (COFCOM(1)))/(1.°TAXMAR) DELTA(1)=COFCOM(1) -EMBCUM EXCOST (1) SEGRT*DELTA(1) eRTBASE(1)/(1e=TAXMAR) IIl=1 SAVISDADD« (RATINT(L) -EMBURT) [9=31+LAGREG IJK=MINO(T9,HURIZN) JJJ=2+LAGREG OO 11 KJISsJJJ,1JK ADDION(KJ1I) =AUDION(KJI) #SAVI CONTINUE PADD=(ASSETS(1)-A9S78) *PRERT SAVP=PADD & (PREFER(L1) =EMBPRE) DO 111 KJI=JJd,HORTZN ADDPON(KJI) =ADDPON(KJI) #SAVP CONTINUE . EXCOST (1) SEXCUST (1) ¢ADDPON(1)7/01.=TAXMARK) +ADDION(1) CORIO OOOO TTT TOOT TR RR RRR RRR Craxan CIO OIIDIGIGIIIIIOIIUIDIOIOIOIGIIOIIOIIOIUIUIOIOIUIOIOITIDOITIOIIOIO TTI 901 LF (WRT(3)) PRINT 901, 11TIT,COVER(1),RATINT(1),DELTA(1) ,AVDINE FORMAT(I4,F6,e,2F10.4,E12.4) DO e©0 N=2,PHOKZN SAVSCC+EMD+ (DELTAUN@1) *EGRT*EMPePRERT)/(1.°TAXMAR) SSSSKTBASE (NN) TTTSRATINT (vel) CALL FIXITCCAT,C1,SAV,ITCRAT,SSS,AAMURT(N),TTT,DINVST(N), + DITC(N) ,DBIRI,TAXMAR) TAXES (N) =(KIBASE (IV) & (SAV@(RATINT(N@1) eDBIK1)) ®TAXMAR) + +AAMORT(NJ©UITCON) ASSETS (N) =AFUUC (N) ¢KTBASE (N) #G THERA AVAILSFIXCHG(N) FEXCOST (Wel) -OLTC (i) =(.O2*ASSETS(N)) B.80 00033970 00053980 00033990 00034000 00034010 00034020 00034030 00034040 00034050 00034060 00034070 00034080 00034090 00034100 00034110 00034120 00034130 00034140 00034150 00034160 00034170 00034160 00034190 00034200 00034210 00034220 00034230 00034240 00034250 000542600 00034270 00034280 00034290 000343500 000354310 00034320 00034330 00034340 0034350 00034360 00034370 00034380 0003459u 00034400 00034410 00034420 00034430 000354440 00034450 000344600 00034470 00034480 00054490 00034500 00034510 000354520 00054530 ADDINTSADDINT#OBTRTRRATINT (N=1) & (ASSETS (N)-ASSETS(N=1)) ADDINTSADDINT+RATINT (No1) xBUNDRT(N) DINTO(N) =DINT(N) *ADDINT COVER(N)SAVAIL/(DINT UN) FAT AUS) CUFCOM(N) SQUST(COVER(N) -RATINT(N) ,PREFER(N)) COFCAP(N) SDBTRT®RATINT(N) + + (PRERT*PREFER(N) FEQRT*COFCOM(N) )/(1.-TAXMAR) DADDSDBTRT* (ASSETS(N) “ASSETS (N=1)) +B0NURT(N) SAVI=DADD*(RATINTCN) -EMBDRT) I9=N*LAGREG+31 IJK=MINO(I9,HURIZN) JIJENF1 +LAGREG bO 12 KJI=JJJ,IJK ADDION(KJI) =ADDION(KJI)+SAVI le CONTINUE PADD=(ASSETS(N)-ADSETS(No1)) *PRERT SAVPSPADDs (PREFER (N) -EMBPRE) DO 122 KJITZJJJ,HORTZN ADDPON(KJI) SAVDPON(KJI) +SAVP 122 CONTINUE EMD=DBTRT*((DINT(N) /(CASSETS(N) ROBTRT) ) -EMBURT) DELTA(N) SCOFCUM(N) ~EMBCOM EMP=ADDPUN(N)/(PRERT® (ASSETS (N) -ASSETS(1))) Cm RRR RRR RRR RR RRR KR KR RIKER KERR ERROR KER IK Curann CR HRA REE RERRE RRR A ERR ERRRI RE RRIERRRRERRRKRRRERR KERR IF (WRT(3)) PRINT 901,N,COVER(N),RATINT(N) ,DELTA(N) -ADDINI EXCOST(N) S(DELTA(N) AEQRTARTBASE(N) *ADDPON(N) )/ C1 = TAXMAR) ++ADDION(N) 60 CONTINUE SAV=DELTA(PHORZN) *.8 IJK=PHORZNG1 DO 70 NSIJK,HURIZN SAV=SAV#,.8 EXCOST(N) =SAV&RTBASE (N) ADD LON (N) #ADDPON(N) /(1.°TAXMAR) 70 CONTINUE IF CITCNOK,EGU.1) CALL NUORITC DU 80 N=1,HURLZN FIXCHG (N)=FIXCHG (NM) +EXCPLM(N)=(DITC(N)/( 1, *TAXMAR) ) +EXCUST(N) 80 CONTINUE Ce He HI II TTT RRR TTR KERRIER ERE Crrmak Ce ee IOC ITO TOTTORI TOTTORI RITE ARERR TREK IFC.NUT.WRT(1)) GU TU 89 C PRINT,* PEKIOU FIXED COST ITc EXTRA COSTS PRELIM CUST1S* OO 68 I=1,HORIZN PRINT 902,1,FIXCHG(I) ,DITC(T) ,ExCUST(I),-ExCPLM(I) Bu CONTINUE 69 CONTINUE IF(.NOT.WRT(2)) GU TO 65 C PRINT,®* PERIUD ASStTS RATEBASE AFUDC ~ CwIP INTEREST* DO 82 N=1,HURIZN PRINT 900,N,ASSETS(N),RTBASE(N) ,AFUDC(N) sCwIP(N) ,DINT(N) 82 CONTINUE 8s CONTINUE COO IOIUIUIIIIII UII Crraee i B.8] 00034540 00034550 00034560 00034570 00034560 00034590 00034600 00034610 00034620 00034630 00034640 00034650 00034660 00034670 00034680 00034690 00034700 00034710 00034720 00034730 00034740 00034750 00034760 00034770 00034780 00034790 00034800 00034810 00034820 00034830 00034840 00034850 00034860 00034870 00034880 00034890 00034900 00034910 00034920 00034930 00034940 00034950 00034960 00034970 00034980 00034990 00035000 00035010 00035020 00035030 00035040 00035050 00035060 00035070 00035060" 00035090 00035100 CR RRR RRR RR RR ERR RRR RRR RRR RR REE ERE ERE 00035110 900 FORMAT(IS,S(2X%,E10.3)) 00035120 902 FORMAT(IS,4(2x,E10,3)) 00035130 RETURN 00035140 END 00035150 B.82 SUBRUUTINE VIDT(LBD,LTO+FleFeeF3eF4eFS,EN78,UISTRASAKATE ,ULSESC) CII OIOOIIOIUIIIIIIUIIOIO TOI OIOIIIOOk Craann Canxaee THIS SUBKOUTINE HANDLES DISTRIBUTION CAPITAL. RATE BASE, Cxexee CWIP AND AFUVE AKE INCREASED, AND FIXED CHAKGES ARE ADDEL. Cxexexe CUNSTKUCTION TIME TS TWO YEARS, Crtnae Ci III ITOK IO IOI c c c eu = = DIMENSJUNS MODIFIED TO ACCUMMOVATE 16 TECHNOLOGIES, COMMON /C1/ ITCRAT,NCONM,PHORZN, HORIZN, INFLA,NPRUS,NGTEC,LB(16), +DBTRT,FATAQJ, ITCNUR, TAXMAR,EQRT,PRERT COMMON /CS/ CxGPUMLI00) -CWwIP(100),CC ,DINT(100),LAGR(16) + ,AFUDC(100),DITL(100) -CAPCST(16) ,DINVST(100) -RTBASE (100), + FCWIP (16,15) ,NCON(10) ,FAFUDC(16,15),LEN(1U0) -PCWIP,BONDRT (100), + EGRU(100),ASSETS(100) ,EXCUST (100) ,FIXCHG(100),ASS78 + ,AAMORT (1009 ,CURCAP (16,100) ,ESC(16) -ADDION(100) ,DEPREC(100), +TAXES (100) -COVER(100) ,RATINT(100) ,VELTA(10U) ,COFCAP(100), +RETINT (100) ,PREFER(100) ,COFCOM(100),ADDPUN(100) DIMENSION OBUCKwwlew) INTEGER PHORM UART OM REAL INFLA FAC2=1.+ARATE/2, FACL=(1. + (Se *ARATE/49.) (3. (ARATER*2,)/8,)) FACH=(1.¢+1NFLA)*(1.+DISESC) GSEGRO(1) DBUCKS (1) SL, st RARENTBR (1,46) #FAC CWIP CL) SC] 6 b+, OANBUCKS(1) RFACR (1. =PCWIP) RIBASE (1) =FTHASE (1) +.5eDBUCKS (1) ePCWIP AFUDC (1) =AF UDC (1) +0BUCKS(1) eFACI*®(1.-FCWIP) DINVST(1)S01INVST(1)+.5*DBUCKS(1) DO 20 Ts2é,PHORZN G=G+EGRU(I) FACSFAC#(1.+INFLA) *(1.+DISESC) OBUCKSCI) SDISTRA®ENTS* (1, +6) *FAC AFUDC (I) =SAFUDC(1)+DBUCKS(L) #FACix(1.-PCwIP) CWIPCT)=CwIP(1L) +DBUCKS(I) *(1,-PCWIP) RTBASE (I) =RIBASE (1) #0BUCKS(1) *PCWIP AFUDC (1-1) =AFUDC (1-1) +,5*DBUCKS (1) #FAC2%(1.-PCWIP) CWIP(I=1)SCWIP(T-1)+,5*0BUCKS(I)*(1.°PCWIP) RTBASE (1-1) SRIBASE (191) +./S*DBUCKS(I) *PCwIP DVINVST (I) S01INVST(1L)+.SeDBUCKS(1) DINVST(I=1) =DINVST (19-1) +, 5*)BUCKS(I) CONTINUE FAC=FACK(1.+INFLA)®(1,#0ISESC) G=G+EGRO(PHURZN41) DBUCKS (PHURZN+1) SUISTRA®ENTO* (1.46) *FAC AFUDC (PHOR ZN) =AF UDC (PHURZN) +. S*0BUCKS (PHORZN41) eFAC2e(1."PCWIP) CWIP (PHORZN) SCWIP LPHORZN) *UBUCKS (PHORZN4+1)*.5*(1.°PCWIP) RTBASE (PHORZN) SRTBASE (PHURZN) #.S®UBUCKS (PHURZN41) RPCWIP DINVST CPHORZN) SDINVST(PHORZN) #65 *DBUCKS (PHORZNF1) DO 70 [s1,PHURZN L3=LTO/2 Le=LTo-l3 LISLBD-LTD F21=(F2-Fi) /FLOATILS) B.83 00035160 00035170 00035160 00035190 00035200 00035210 00035220 00045230 mO011750 MOD11760 MOD11770 00035240 00035250 00035260 00035270 00035280 00035290 00035300 00035310 00035320 00035330 00035340 00035350 00035360 00035370 00035360 00035390 00035400 00035410 00035420 00035430 00035440 00035450 00035460 00035470 00035480 00035490 00035500 00035510 00035520 00035530 00035540 00035550 00035560 00035570 00039560 00035590 00035600 00035610 00035620 00035630 00035640 00035650 00035660 00035670 00035680 00035690 30 40 $0 60 70 F $2=(F $-F2) /FLUAT (Le) FS4=(FS-F4)/(FLUAT(L1)) ASAVE=(FACL91,) *OKUCKS(1) /FLUAT (LUD) KsI DU 30 J=1,L5 K=Kel FIXCHG (K) =F LXCHG (K) + (F be (Joi) *F 21) *0BUCKS (I) AAMORT (K) =AAMURT (K) tASAVE CONTINUE 00 40) J1,le K=Kel FIXCHG (K) =F IXCHG(K)+(F2=(Je1) #F 32) eDBUCKS (I) AAMORT (K) SAAMORT (K) +ASAVE CONTINUE DOU SO J=t,Li KsKeli FIXCHG(K) SFIXCHGE(K) + (F4"( sel) *F 54) DBUCKS (1) AAMORKT (K) =AAMOURT (K) +ASAVE CONTINUE RBESAVE=DBUCKS(1) #FACL/FLOAT (LBD) DO 60 J=i,LbD DEPREC(I+J)=DEPREC (I+J) +RBSAVE RTBASE (1+J) =SRIBASE CI *J) tFLOAT (LHD +1 =J) eRESAVE CONTINUE CONTINUE RETURN Eno B.84 00035700 00035710 00035720 00035730 00035740 00035750 00035760 00035770 0003578u 00035790 00035800 00035610 00039820 00035830 00035840 00035850 00035860 00035870 00035880 00035890 00035900 00035910 00035920 00035930 00035940 00035950 00035960 SUBROUTINE CAAHURCADAHOR, AMIX90) CII IIR TOOT TOTTI RO IT Crane Chana Crrnnan Crnnnn CrKnaee Craaae Cxaaan Craake Caraae THIS SUBROUTINE FINDS THE CWIP AND AFUDC, THE RATE BASE AND FIXED CHARGE ADDITIONS CONTRIBUTED TO THR YEARS BEFORE THE PLANNING HORIZON CONTRIBUTED BY CAPACITY ADDED AFTER THE PLANNING HORTZUN. AQAHOR REPRESENTS THE AMOUNT OF MEGAWATTS ADDED PER YEAR AFTER THE HORIZON, WITH THE TECHNULUGY PERKCENTS BEING DETERMINED BY AMIX90, Ce TOT TOT TOR RRR GQ lsieeicgicis 6 Seles os 5 Slale oe = = ss sles as\s|\s 6 =o c rr COMMON /C1/ LTCRAT,NCUNM,PHORZN,HORIZN, INFLA,NPROS,NGTEC,LB(16), = = DIMENSIONS MUDIFIED TO ACCUMMOVATE 16 TECHNOLUGIES, +DBTRT,FAIAOJ, LTCNUR, TAXMAREGRT,PRERT COMMON /C3/ EXCPLN(100),CwIP(100),CC ,DINT(100),LAGR(16) + ,AFUDC(100) ,VITC(100) ,CAPCST(16) -OINVST (100), KTBASE (100), + FCWIP(16,13),NCON(16) ,FAFUDC(16,15),LEN (100) ,PCWIP,BONDRI (100), + EGRU(100),ASSE1S(100) ,EXCOST (100) ,FIXCHG (100) ,ASS76 + ,AAMORT(100),CURCAP(16,100),ESC(16),ADDION(100),DEPREC(100), +TAXES (100) ,COVER(100) ,RATINT (100) ,DELTA(100),COFCAP(100), +RETINT (100) PREFER (100) ,COFCUM(100) ,ADDPUN(100) DIMENSTON ADAHOR(1),AMIX90(16) INTEGER PHORZN REAL INFLA OO 80 I=1,NGTEC FACH=(1.+INFLA)*(1.+ESC(1)) BASESCAPCST(1) *1000, 8AMIX9O(L) (FAC Ks (PHORAN+NCON(T))) JI=ENCONCT)=1 IF(J1,LE.0) GU TO 80 DO 60 J=1,J1 CR RRR RE RRR RRR ERK ERR KEE Crrken Cexakee THIS LOOP GOES BACKWARDS OVER TIME, Cranan CRRA K RRR EERE RRIERE RRR ER REE RERRK $0 a) bu BASESBASE/FAC LizJitieJd DBASE=BASE *ADAHUREL1I) SSSDBASE/FLOAI (NCUN(TI)) DU SU K=1,J NISPHORZNeK=J N2=NCONM*K@NCUNC(T) SAVESFCWIP(I,N2) xVUBASE/1000, CWIP(N1)=CWIPLNL) SAVE AFUDC (NL) =AFUUC(N1)+FAFUDC(I,N2)*(1.-PCWIP) ®(DGASE1000,) RTBASE (N1) =KTBASE (N1) *+PCWIP SAVE FIXCHG(N1) SF IXCHG ONL) +PCWIP®CC RSAVE DINVST(NI)SULNVSTONI) +SS CONTINUE CONTINUE CONTINUE RETURN END B.85 00055970 00035980 00035990 00036000 00036010 v0056020 00036030 00030040 00036050 v0036060 00036070 00036080 mO011780 0011790 MUu0118600 00036090 00036100 00030110 00036120 00036130 00036140 00036150 00036160 00036170 00036180 000356190 00036200 00036210 00036220 00036230 00036240 00036250 00036260 00036270 00036280 00036290 00036300 00036310 00036320 00036330 00036340 00056350 00036360 00036370 00036380 000450590 00036400 00030410 0u03e42eu 00036430 00030440 000360450 00056460 00036470 000560460 00036490 SUBROUTINE PLMEXC(CEP, STAPRT sNS»LSTAGE) ee c c = = DIMENSIUNS MULVIFIED TO ACCUMMODATE 16 TECHNOLOGIES c COMMUN /C1/ TICRAT,NCONM,PHORZN,HUKIZN, INFLA,NPRUS,/NGTEC,LU (16), +DBTRT,FALADJ, LTCNUR, TAXMAR,EURT,PRERT Ce RARER RARER AER EERE RARER EERE AKRRERRRER Crrann Caxkee THIS SUBROUTINE CALCULATES THE EXTRA CHAKBES ASSUCIATED WITH Caeeee DELAYS Liv PRE*CONSTRUCTION PROCESSES LIKE STUUIES AND Cexaee LICENSING, THE COSTS ASSOCIATED WITH NORMAL TIMING Cexeee ITS CONTAINED IN THE CAPITAL COST. Crnknan Cee TIT TO TO TTTORRTOTOTOTOTOTOTOTO RTT IK DIMENSION CEP(16,31,1),STAPRT (16,1) ,LSTAGE (16,1) CUMMON /C3/ EXCPLM(100),CWIP(100),CC ,VINT(100),LAGR(10) + ,AFUDC (100) ,VITCL1OU) ,CAPCST(16) ,DINVST (100) ,KTBASE (100), + FCWIP(16,13) sNCON(16) »FAFUDC (16,15) LEN (100),PCWIP,BONDRT (100), + EGRO(100),ASSETS(100) ,EXCOST (100) ,FIXCHG(100),ASS78 + ,AAMORT(100),CURCAP (16,100) ,ESC(16) ,ADDION(100) -DEPREC (100), #TAXES(100),COVER(100) -RATINT(100) ,VELTA(100) ,COFCAP(100), +RETINT (100) ¢PREFER (100) ,COFCOM(100) ,ANUPON(100) - INTEGER PHURZN,HOKIZN REAL INFLA IF(NS.EQ.1) GU 10 89 DO 10 I=1,HURIZN EXCPLM(I)=0. 1) CONTINUE NS1=NS-1 Ou 70 I=1,NGTEC CINFLA=1. DU 60 K=1,NS1 CRRA RRR RRE RRR RIERA RRR ERERE ERK Craaan Cxxeee THIS LOOP ITIERATES BACKWARDS OVER STAGES, FRUM Cree CUNSTRUCTION TO LICENCING TO eee Crrann CRRA RRR RRR REE RER REE RR ERE ERR KSAVE=NS#1=K LSAVESLSTAGE (I, KSAVE) CINFLA=(1.+1NFLA) *#LSAVERCINFLA LOUP=PHOR ZN@LOAVE FAC=1./(1,+INFLA) bO So J=1,L00P FACS=FAC#(1.+INFLA) SAVE=(CEP (Lede KSAVEW1) “CEP CLs JtLSAVE se KSAVE)) *1000,*CAPCST (I) EXCPLM(J)=EXCPLM(J) SAVE RCINFLARSTAPRT (1, NS=K) FAC so CONTINUE 60 CONTINUE 70 CONTINUE 6Y CONTINUE RETURN ENU B.86 00036500 mUD118610 MOU11820 m0011635U 00036510 00036520 00036530 00036540 00036550 00056500 00036570 00030580 000356590 00036600 000366010 00036620 v0030630 00036640 00036650 00036060 00036670 000366050 00036690 00036700 00036710 00036720 00036730 000356740 00036750 00036760 00036770 000367860 00036790 v0036800 00036610 00036820 00036630 00036840 00036850 00036660 00030670 00036880 0003689 00036900 000s6910 00036920 00036930 00036940 v00$6950 00036960 00036970 00036980 00036990 Cranke Crnnne Crean Crank Crean Crarnx Crrnae Cranak Cewmeeerer eee een eceen eee ee newer e ene eee ewe = = DIMENSIONS MODIFIED TO ACCUMMUVATE 16 TECHNOLUGIES ee ee ra ro rn a COMMON /C1/ ITCRAT,NCUNM,PHORZN,HORIZN, INFLA,NPROS,NGTEC,LB(10), c + + + FCWIP(16,135)/NCON(16),FAFUOC(16,13),LEN(100),PCWIP,BONORT (100), + EGRU(100),ASSETS(100) ,EXCUST (100) ,-FIXCHG(100) ,ASS7& + ,AAMORT(100),CURCAP(16,100),ESC(16),ADUION(100) ,DEPREC(100), +TAXES (100) ,COVER(100),RATINT (100) ,-DELTA(10U),COFCAP(100), +RETINT (100), PREFER (100) ,COFCOM(100),ADDPUN(100) 20 40 50 60 70 60 SUBROUTINE WwORITC FORT IOIIOIIOIIIOIIIOIIIOIIOIOIIOIOT IORK I THIS SUBTOUTINE WORMALIZES INVESTMENT TAX CREDITS# THAT 1s 7THE TAX SAVINGS DUE TO ITc IS USED TU REDUCE THE REVENUE REQUIREMENT BY AN EQUAL AMUUNT OVER THE BUOK LIFE OF THE PLANT, THERE IS A CHECK TU DETERMINE THAT CUMULATIVE CUSTUMER SAVINGS ARE LESS THAN OR EQuAL TO THE CUMPANY'S TAX SAVIWNuS, RRR REE REE ERER RRR EAR REE ERER OBTRT,FAIADJ, LICNUR, TAXMAR,EQRT,PRERT COMMUN /C3/ EXCPLM(100),CwIP(100),CC ,DINT(1U0),LAGK (16) AFUDC (100) ,UTTC(100) -CAPCST (16) -DINVST (100) -RKTBASE (100), DIMENSION SAVE(100) REAL ITCRAT INTEGER HORIZN,PHORZN DUO 20 151,HUORIZN SAVE(T)=0, vo 70 Is1,NGTEC L1sL_b (1) Z=FLOAT(L1) DO 60 J=i,NPRUS IF (CURCAP(1I,J),LE..01) GO TU 60 K=0 00 40 N=1,J KSK+tLEN(N) STORESITCRAT#1000,*CURCAP(I,J)/2 DO 50 L=1,L1 K=Kel SAVE (K) =SAVE(K) *STORE CONTINUE CONTINUE CONTINUE CUMTAKSDITC(1) CUMPAS=SAVE (1) DO 80 T=1,HORIZN DITC(L)=AMIN1 (CUMPAS,CUMTAK) 11=I+1 IF CILEQ SHORTZN)JGOTO 80 CUMEAK=CUMTAK*DITCCIID“DIIC(I) CUMPAS=CUMPAS*SAVE(11)-DITC(1) CONTINUE RETURN END B.87 00037000 00037u10 00057020 00037030 00037040 00037050 000357060 0003707u0 00037060 MOD11640 MUD11650 MOU11860 00037090 00037100 00037110 00037120 00057130 00057140 00037150 00037160 00037170 00037180 00037190 00037200 00037210 00037220 00037230 00037240 00037250 00037260 00037270 00037260 00037290 00037300 00037310 00037320 00037330 0003734u 00037550 00037360 00037370 00037380 00037590 000374u0 0003741u 00037420 00037450 00037440 00037450 00037460 00037470 00037460 SUBROUTINE PRMGN(PRMBEF ,PRM,PRMAFT, IFRMYR,ILKMYR, TACTYR, 00037490 +PRMGIN) 00037500 00037510 THIS SUBROUTINE CUMPUTES THE PLANNING RESERVE MARGIN PRMGIN 00037520 THAT SHOULD BE USED DEPENDING ON THE CALENDAR YEAR IACTYK, 00037530 THIS COMPUTAT[ON IS MADE BASED ON THE DATA SET ENTRIES IN 00037540 LINE 160, 00037550 00037560 PRMGINSPRMAFT 00037570 IF CLACTYR.LE/ILKMYR) PRMGINSPRM 00037580 IF CLACTYR.LT,1FRMYR) PRMGINSPRMBEF 00037590 RETURN 00037600 END 00037610 B.88 SUBROUTINE CPLANCLYRDECsNSeLReLEADMN,LEAUMA,LEAD,CCAP7TH, RETIRE, 00037620 C see ee ee ete te te eee eee ee ee eee = MUDI187O c = - AMWINC AVDED TO PARAMETER LISI MUD11880 c +1AVYR, TKNAM,FFS,AVL,CEP,CEXDEM,PRMG,AJ,CAPLIM,AMIX90,SIZE,R“YES) 000376030 +TAVYR, TKNAM,FFS, AVL, CEP ,CEXDEM,PRMGeASsCAPLIM,AMIX90,SIZE,RMYES, mMUDILIBY9O +AMWINC) m0011900 C =e eee ee tee tt tt te et ee eee tee ee = MODII9IO c 00037640 C fee ee ee ee et eee ee ee ee ee ee ee ee MODIII2N c = = DIMEWSIUNS AND 00 LOUP FINAL VALUES HAVE BEEN 40011930 ( MUDIFIEO TO ACCOMMODATE THE 16 TECHNOLUGIES, M0011940 LOGICAL AVL(16),AVLLYR(16) -AMWAVL (16,3) ,FFS,RKMYES(16),T,F 00037650 DIMENSION LEAU (1673) +PLAN(16),/CCAP78(16) /RETIRE (16,31), 00037660 +CEP (16, 31,3) ,CEXDEM(25) ,PRMG (25) ,AJ (16) ,CAPLIM(10),AMW(16,3), 000376070 +ERRUR (16) ,AMIX90(16) pSIZE (16) ¢ TKNAM(16-2),TEP(16),1AVYRK(16) 00037640 DATA F,AMW,AMWAVL/ .FALSE,,48%0,,48%,FALSE,/ 00037690 DATA T/,TRUE,/ 00037700 Cc 00037710 © STAGES 00037720 c 1 2 3 CEP(I,IY,IS)= MW OF TYPE I THAT HAVE CUMPLETED STAGE IS 00037730 c BY YEAR IY. 00037740 C123 AMW(I,IS)= Mw AVAILABLE TO COMMIT TO STAGE IS FRUM 00037750 c STAGE IS-1. 00037760 C12 35 LEAD(I,IS)= YEARS NEEDED TU COMPLETE STAGE IS FROM 00037770 ( STAGE IS-1, 00037780 C IF IT IS A FIRS| FORWARD STEP, REMOVE UNNECESSARY COMMITMENTS, 00037790 IF(.NOT.FFS)GUTO & v0037800 c VO © I=1,10 000378610 bO 6 151,16 ; MoD11950 TYRFP=IAVYR(I) 00037820 vO 6 ISTS1,NS 00037630 ISTAGE=NS+1-IST 00037840 IYRFC=LYRDEC+LEAD(I,ISTAGE) 00037650 IF CLYRFC.LTSIYRFEP) TYRFCSIYRFP 0003786uU IYRFP=1YRFP=LEAU(I,ISTAGE) 00037670 IF CIYRFC.GT.LR)GOTO 6 00037880 IF CIYRFC.EQ.1)GOTU S 00037890 DO 4 IYSIYRFC;LR 00037900 4 CEP(I, IY, ISTALE)=CEP(I,IYRFC=1,1STAGE) 00037910 GOTO 6 00037920 S vU 3 IY=1,Lk 5 06037930 3 CEP(I,1Y,ISTAGE)=0, 00037940 . CUNTINUE 00037950 c 00037900 C FORK THE FIRST LYR, COMPUTE CAPACITY ALREADY PLANNED BUTH BY 00037970 C TYPE AND IN TUTAL, 00037980 4 LYR=TYRDEC+LEADMN 0u037990 IF(LYR,GT,LR)GOTO 400 00038000 TPLAN=0, 00036010 ( 00 15 151,10 00038020 DO 15 I=1,16 MUD11960 TEP(I)=0, 0003805u PLANCI)=CCAP76(IT) RETIRE (LoL YR) tCEPCI,LYRK,NS) 00038040 ‘5 IF CRMYES(1)) TPLAN=TPLAN+PLAN(I) 00038u5U (i 00038060 C FUR THE FIKST APPLICABLE YEAK, SET AVAILABLE MEGAWATTS BY 00036070 C TYPE AND STAGE. 00038060 B.89 oo DO Su 121,10 D0 30 IT=1,16 IF(.WOTSAVLO(T)) GOTO 30 IYRFPSIYRDEC IF(NS.EQ.1)GOTO 23 bO 25 IsT=2,N5 ISTAGE=NS+2-1ST C LYRFC IS THE FIRST YEAR THAT MEGAWATTS IN STAGE ISTAGE“1 C COULD COME ON LINE, IYRFPSIYRFP+LEAUD(1,ISTAGE) IYRFC=LYRFP IF CLYRFC,LT.TAVYR(I)) TYRFCHIAVYR (I) IF CIYRFC.GT.LR)IGOTO 350 ISPREV=ISTAGE=1 eo AMWC I, ISTAGE)=CEPLI, LYRDECe ISPREV) CEP (Te 1VKFC,ISTAGE) es IYRFCSIYRFPtLEAD(I,1) IF CLYRFC.LT.IAVYRAI) )TYRFCSIAVYR(I) IF CIYRFC,GT.LR)GOTO 30 AMW(T,1)=CAPLIM(T) =CCAP78(1I) *RETINE (I, IYRFC)-CEPC(I,IYRFC,1) 30 CONTINUE c ic c C FIND TARGET CAPACITY FOR LYR AND COMPUTE TOTAL AUDITIONS C REQUIRED TO MEET THE PLANNING RESERVE MARGIN. eo LSLYR@ITYRDEC TARGETSCEXDEM(L) *(1,+PRMG(L)) REGADDS=TARGET=TPLAN IF CREQADD.LE.U,)GUTO 300 INITIALIZE AVAILABLE TYPES FOR LYR, bO 40 151,10 DO 40 I=1,16 AVLLYR CL) SF LF C.NOTSAVL(T) OR -REQADO LT. AJ(1) URLYK LT LAVYR(I))GUTU 40 1YRFCSIYRDEC vO 35 IST=1,NS ISTAGE=NS+1-I1ST IYRFCSIYRFC#LEAL (1, ISTAGE) AMWAVL (Te ISTAGE)SLYRFC.LE.LYRANDCAMW(I,ISTALE) GEo od 55 IF CAMWAVL (CI, ISTAGE) JAVLLYR(1)=T 40 CONTINUE ann0 TF(L.NE.SU0 UR, TYRUEC.NE.1)GOTU 55 CALL DSTAT(CEP, Te Fe Fe lL YRe LYRDEC,L,REWAUDs TARGET, +TPLAN, ADD, ITYP, TKIAM,AJS,PLAN,ERKOR,AMW,LK,ISIAGE, +TEP, AVL, AVLLYR, AMWAVL) C FIND FIRST AVAILABLE IYPE, IF NONE ARE AVAILABLE, SKIP TU C THE NEXT LYR. C55) vU 60 T=1,10 55) 0O 60 T=1,1lo IF C.NOT SAVLLYRK(I))IGOTO 60 ITyp=l1 GOTO 70 B.90 00038090 00038100 m0011970 v00386110 00036120 00036130 00038140 00038150 00036160 00056170 00038180 00036190 00038200 00058210 000586220 00036230 00038240 00038250 00038260 vv038270 00038260 00038290 000358500 00038310 00038320 00038330 00038340 000386350 00038360 00038370 00038360 000383590 00036400 00038410 M0011980 00038420 00058430 00038440 0003845u 00038460 000384706 00036480 00038490 00036500 00036510 00036520 00038550 000386540 00058550 00038560 00038570 000386580 0003859u AUDI1990 00038600 00036610 00038620 Co) CONTINUE GOTO 300 c C FIND AVAILABLE TYPE WLTH HIGHEST ERRUR. c70 DU 60 T=1,10 70 Du 60 I=1,16 IF (.WOT.AVLLYR(1))G0TO 80 ERROR (I) =TARKGET#*AMIX90(1)-PLAN(I) IF CERROR( 1) GT ERRURCITYP) IT YP=1 bu CONTINUE : c C FIND MOST ADVANCED STAGE WITH AVAILABLE CAPACITY. IF NU C CAPACITY IS AVAILABLE, GO BACK TO CHOUSE ANOTHER ITYP. ISTAGE=NS+1 90 ISTAGE=ISTAGE~1 IFCISTAGE.G1.0)GOTO 100 AVLLYR(ITYP)=,FALSE, GOTU 55 100 IF (NOT AMWAVLCITYP,ISTAGE))GOTO 90 ( C FIND AMOUNT OF CAPACITY TO BE ADDED, ADD=SIZECITYP) C cee eee ewe ewe eee wee we eee ee ee ee ee ewe = c - © USE AMWINC (INPUTTED AS MWINC) INSTEAD OF 50. c IF (ADD,.LT.50,) AUD=50, IF (ADD LT. AMWINC) ADO=AMWINC G “se eee eee weer wn wee eee eee eee ee ee ewe IF (ADD #1.5.6TAMWLITYP,ISTAGE) ) ADDSAMW(ITYP, ISTAGE) c C UPDATE. REUADD=REGAULD-ADD ~ PLANCITYP) =PLANCITYP) +#A00 AMW(ITYP, LSTAGE) SAMW(ITYP, LSTAGE) “ADD LF CAMWCITYP, ISTAGE) .LEoe1) AMWAVL CITYP, ISTAGE)=eFALSES c C IF IRREVOKABLE COMMITMENTS ARE REQUIRED, MAKE THEM. C IF NUT, MAKE TENTATIVE COMMITMENTS, IYRFC=LYROEC DU 120 ISTSISTAGE,NS 120 IYRFC=TYRFC+LEAD(ITYP, IST) IF CLYRFC.LT.LYR)GUTO. 170 TYRADDSTYRDEC+LEAUCITYP, ISTAGE) OO 130 IYSIYRADO,LR 130 CEPCITYP,IY¥¢TSTAGE) SCEP(ITYPe 1 Ye ISTAGE) +ADD IF CISTAGE ,EU,NS)GUTU 180 170 TEPCITYP)STEPCITYP) +ADD 180 CONTINUE IF (L.NE,50.UR.IYRVEC,NE.1)G0TO 190 CALL DSTAT(CEP, Ts FF, LYR, TYRUECsL,REWADD, TARGET, +TPLAN, ADD, ITYP, TKNAM, AJ, PLAN, ERROR, AMW,LR,ISTAGE, + TEP, AVL, AVLLYR, AMWAVL) C [F NO MORE ADOITIUNS ARE REQUIRED GOTO NEXT LYR, 190 — [FCREQADD.LE.0.)GUTO 30U c C RE*CHECK AVAILAWILITY FOR EACH TYPE. THEN RETURN TO AUD C MORE CAPACITY, B.91 00038630 00058640 00036650 00038000 00038670 M0D12000 00038680 0003869u 00038700 00038710 00038720 000387350 00038740 00038730 00038760 00038770 000387860 00038790 00038500 00036610 00038820 00038630 mOD12010 MO012020 00038640 M0D012030 MUD12040 00038850 00038860 00038870 0003888u 00038890 00048900 00036910 v0038920 00038930 00038940 00038950 00038960 00038970 00038960 00058990 00039000 00039010 000359020 00059030 00039040 00039050 000390600 00039070 00039080 00039090 00039100 00039110 0003912u 00039130 00039140 c bu 200 151,10 DO 200 121,16 200 LF (REGAND. LT. AJCI) DAVLLYR(I) =. FALSE. GOTO 55 G C IF NU MORE DECISIUNS ARE REQUIRED IN THIS DECISION YEAR, C RETURN TO THE MAIN PRUGRAM, 300 IF (CL, EQ, LEADMX,OR.LYR.EQ,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 NEW REWUIRED C ADDITIONS, LYR=LYR+1 TPLAN=0, c DO 310 I[=1,10 00 310 151,16 PLAN(1)SCCAP76(1)-RETIRE(I,LYR) #CEP(I,LYR,WS)+TEP (1) 510 IF (RMYES (1) ) TPLANSTPLAN#PLAN (1) CALL AMWUP(NS, AVL, IYROEC,LYR,LEAD,CEP,RETIRE , AMW) GOTO 20 c 400 CONTINUE RETURN END B.92 00059150 mov12050 00039160 00039170 00039160 00039190 00039200 00039210 00039220 00039230 00039240 00039250 00039260 00039270 00039280 MOD1206U 00039290 00039300 00039310 00039320 00039330 00039340 00039350 00039360 SUBROUTINE CEXD (LEADMX,NYPP,ITYRK,CURKUVEM, ALPHA, GETA,AL,CURUGR, MuD1207u + NP,CEXDEM,DEM78,FCFERS) MU012080 c SUBROUTINE CEXO(LEADMX,NYPP, TYR, CURDEM, ALPHA, BETAs AL» CURDGK, 00039370 ic +NYL,GCUR,NP,GC,IP,CEXDEM,DEM78) 00039300 eee ee ee te re eee ee ee ee ee eee eH = 0012090 DIMENSIUN CEXVEM(25) 00039390 ic 00039400 c THIS SUBROUTINE CALCULATES THE CONDITIONAL EXPECTED DEMAND 00039410 C GIVEN THE CURRENT AND LONG RUN DEMAND GROWTH RATES. CEXDEM(T) 00039420 C IS.THE EXPECTED DEMAND IN MEGAWATTS I YEARS FROM THE PRESENT. 00039430 c 00039440 L=1 00039450 CEXDEM(L) =CURDEM 00039460 DO 10 IT=e,LEALDMX 00039470 c IF (IYRe1+1,GE,IPaNYPP+1)GOTO 20 00039480 IF (I ,GE, IFIX(FCPER3)) GO TO 20 40012100 L=I 00039490 c IFCIYR@14L.GT.NYLIGOTO 8 00039500 Cc GCOR=GCOR+GC 00039510 c GOTO 10 00039520 Co GCOR=0, 00039530 C10 = CEXDEM(L)=CEXVEM(L=1)+(CURDGR*GCOR) *VEM7S 00039540 10 CEXDEM(L)SCEXDEM(L=1) + CURDGR&OEM7S mMo012110 S 00039550 20 DO 40 JP=1,NP 00039560 CURDGR=CURDGR*ALPHA+AL ®BETA 00039570 vO 30 I=1,NYPP 00039580 L=Ltl 00039590 IF (L,GT.LEAUMX OR. IYR=14L.GT,NPaNYPP)GUTO 50 00039600 c IFCLIYR=14L.GT.NYL)GOTO 25 00039610 c GCOR=GCUR+GC 00039620 c GOTO 30 00039650 C25 GCOR=0, 00039640 cso CEXDEM(L) SCEXDEM(L=1) + (CUKUGR*GCOR) *DEM7& 00039650 30 CEXDEM(L)=CEXVEM(L=1) + CURDGR*DEM7S muDd12120 40 CONTINUE ~ 00039660 Su CONTINUE 00039670 RETURN 00039680 END 00039690 B.93 aaa THI aAMw PRE aaOanaAna ic 320 $e5 330 SUBROUTINE AMWUP (INS, AVL, ITYRDECsLYRe LEAD, CEP, RETIRE» AMW) = = VIMENSTONS AND DO LOOP FINAL VALUES HAVE BEEN MUDIFIED TO ACCOMMODATE THE 16 TECHNOLOGIES, OIMENSION AMW(16,5),CEP (16,313) ¢RETIRE (Loe 51) pLEAD (16, 5) LOGICAL AVL(10) S SUBRUUTINE UPDATES AMW FUR THE NEW LYR. SPECIFICALLY, FUR EACH TYPE ANU STAGE IS INCREASED BY THE AMOUNT OF VIOUSLY AVAILABLE, DATA ISTAGE/0/ DO 330 151,10 00 330 Is1,16 IF(.NOT.AVL(IJ)GOTO 330 TYRFC=IYRDEC TYRCSLYR IF(NS.EQ.1)GUTO 325 00 $20 IS=2,NS ISTAGE=NSt29IS LYRFCSLYRFC+LEAD(1,I1STAGE) IF CIYRFC.GE.LYRIGUTO 330 TYRC=IYRC=LEAD(I,ISTAGE) IFCTYRC.LT.2)G0TO 320 CAPACITY THAT IS AVAILABLE TU COMMIT FOR Lyk THAT waS NOT AMW(I, ISTAGE) =AMW(I, ISTAGE) #CEP(I,1YRC,ISTAGE@1) +~-CEP (I, ITYRC#1,1STAGE=1) CONTINUE TYRFCSIYRFC#LEAU (1,1) IFCIYRFC,GE.LYRJGUTO 330 IYRC=TYRC@LEAD(1,1) IFCLYRC,LT.2)G0TO 330 AMW(IT,1)=AMW(1,1) *RETIRE CI, TYRC) “RETIRE (IL, IYRC@1) CONTINUE RETURN END B.94 00039700 mud12130 mMO012140 MUu012150 00039710 00039720 00039730 00039740 00039750 00039760 00039770 00039780 00039781 00039790 muD12160 00039800 000359810 00039820 00039830 00039840 00039850 00039660 00039870 00039880 00039890 00039900 000359910 00039920 00039930 00039940 00039950 00039960 00039970 00039980 00039990 00040000 SUBRUUTINE DPRINTLYEARS, TKNAM,ISsNP,IYR,CEP,UEM,/PRePRMeVECUET, 00040010 +RETIRE, NS, CTUT78,RRMe IFRMYR, ILRMYR) 00040020 c 00040030 c THIS SUBROUTINE PRINTS OUT CAPACITY AVOITIUNS TO ThE 00040040 C REPORT CADD, 00040050 c 00040060 C eff e eee eer eee eee etree ee eee ee ee ee ee ee MODI2A17O c = © DIMENSIONS AND DO LUOP FINAL VALUES HAVE BEEN MUu012180 c MODIFIED TO ACCOMMODATE THE 16 TECHNOLOGIES, mM0D12190 C =e ee eee eee ee er ee eee eee eee ee ee ee MODI2200 DIMENSION YEARS(5) ¢CEP (16,5163) eDEM( 50) ¢TKNAM( 1652) 6 00040070 *RRM(30),15(030),TPRINT (16,30), TNAM( 16-2) ,RETIRE (16,31) 00040080 LOGICAL ADDED(16),0ECDET,1,F ovo4ouse DATA T,F,BLANK/. TRUE er oFALSE se IH / 00040100 DATA TNAM,TPRINT/52%0.,4804%06/ 00040101 TOTAL=0, 00040110 c DU 3 [51,10 00040120 bO 3 121,16 mMuD12210 3 TOTALSTOTAL*CEP(I,/IYR+1,NS) “RETIRE (I, 1IYR+1) 00040130 c v0040140 IF (VECUET) WRITE (2,90) 00040150 IFYRSIFIX(YEARS(1)) +1 0ud4016eu LYEARSIFYR+1YR=1 00040170 WRITE (2,100) IFYR,LYEAR, TOTAL, IFRMYR,e ILRMYRe PRM, (1S(1),1=1,NP) 00040180 IF(,NOT,VECDE1)GOTO 150 , 90040190 c bO 10 121,10 ~ 00040200 dO 10 151,16 mod12220 ADDED (1) SF 000402106 IF(CEPCI,TYR#1,NS) *RETIRE (I, LYR+1) GE..1)AUDED(I)ST 00040220 10 CONTINUE 00040230 THAT=0 00040240 c. DU 20 121,10 00040250 vO 20 I[=1,16 MOD12230 IF (C.NOT.ADDED(I) )LUTO 20 00040260 IHATS=IHAT#1 00040270 TNAMCIHAT, 1) =TKNAM(T 1) 00040260 TNAM(IHAT, 2) =TKNAM(I,2) 00040290 DO 15 J=1,1YR 00040300 15 TPRINTCIHAT,s J) SCEPC Ie Jtl, NS) “CEP CI eo Je NS) RETIRE CI eJt1) 00040310 ++RETIRE (I,J) 00040320 20 CONTINUE i 00040330 Cc 00040340 IF CLHAT.NE,0)GOT0 35 00040350 TNAM(1,1)5BLANK 00040360 TNAM( 1,2) =BLANK 00040370 THAT=1 00040380 c - = UP TU 15 TECHNOLOGIES ON A LINE MUD12240 C35 IF (IHAT.GE.6)G0T0 355 00040390 $5: IF CIHAT .GE, 15) GO TU 355 m0012250 WRITE (2,120) CCTNAM(I,J),J=1,2), 121, THAT) 00040400 GOTu 365 0vu040410 355 WRITE (2,125) (LTNAM(1,J) ,J=1,2),151, THAT) 0004u420 365) CUNTINUE 00040430 DU 37 K=1,1YR 00040440 TYEAR=1LFIX(YEARS(1)) +k 00040450 c IF CIHAT.GE.6)G0TO 375 00040460 IF (IHAT .GE, 15) GO Tu 375 MuD12260 B.95 ars 37 30 c4o0 40 450 470 90 100 Cre, c 120 130 i23 155) 140 145 150 WRITE (2,130) 1YEAR+DVEM(K) ¢RRM(K), CTPRINT (I,K) e151, THAT) GUTO 37 WRITE(2,135) LYEAR,DEM(K) -RRM(K),CTPRINTC(I,K),1=1,1HAT) CONTINUE IFCIYR.EQ.1LIGUTO 40 NO 30 IT=1,1HAl DO 30 J=2,1YR TPRINT CT, 1) STPRINI (Ie 1) +TPRINT(I, J) IF CIHAT.GE.6)G010 450 IF (IHAT .GE. 15) GO TO 450 WRITE (2,140) (IPRINT(I,1),1%1, THAT) GOTU 470 WRITE (2,145) CIPRINT(I,1),1T31, THAT) _ CONTINUE FORMAT(//) FORMATC'CAPACITY ADDED ',14,'=',14,'¢",F7,0," MW', PRM Se,FSe3e%, LYRM =*,F 5.3%, TREE PATH =*,1X, 35011) #9, PRM", TAs 894,14, ") =',F6.3e',) TREE PATH = ', 3011) = = FURMATS MUDIFIED FOR 14 OR 16 TECHNOLOGIES PER LINE FORMATC(/"YEAR ',*DEMAND ',!? RM ',14(1X,A4,A2)) FORMAT(I4,1X,F7,.0¢2X%F5.3,2k,14F7,0) FORMAT(/"YEAR ',"DEMAND ',' RM ',16(A4,A2)) FORMATCI4,1X,F 7.001% ¢F505,2k,16F 6.0) FURMAT(/'TOTALS',15X,14F7,0) FORMAT(/*TOTALS',14X%,16F6.0) CONTINUE RETURN END B.96 vv04o4a7u 00040480 00040490 0004050u 00040510 00040520 00040530 00040540 00040550 MOD12270 00040560 v0040570 00040560 00040590 00040600 00040610 00040620 00040630 0012260 00040640 000406050 00040660 00040670 00040680 00040690 00040700 00040710 00040720 SUBROUTINE PRIPL CAWHY pHYENLM¢NCAPS, ICAP, MWINC,ITYP/NSIZE- AVAIL, 00040730 +RRM,DEM, TKNAM,EUUI,OUTTYP,QUTAV,OUTOUT ,OUTAL FEIME, 00040740 +HYPROB, NH NY, IS, TVRs IP, NPs NYPP¢NVCPP, YEARS, TERMIN, DF U,PRKM) 00040750 (a INCLUDE (AREEPPR) : MOD12290 i Ue 11) Cc = = DIMENSTONS MUDIFIEO TU ACCOMMOUATE THE 7 HYDRO M0012310 c TECHNOLOGIES. MO012320 C eee eee er te ete eee ee eee ee eee ee ee ee ee = MONI 23S0 DIMENSTUN HYENLM(5e2)¢ICAP(100,2),1TYP(100), 00040760 +NSIZE(16),AVAIL(9,2),TKNAM(16,2), 00040770 +EOUT(100,3,2) ,OUTIYP(8,2) ,UUTAV(7) ,UUTOUT (3,2), 00040760 +OUTXL (3,2) sHYPRUB(3),1S(30),YEARS(S),FTIME(2) -MWHY (2) 00040790 DIMENSION TEN(3,2),/RRM(30) ,DEM(30) ,QUTXLL (5) ,0FOL16) 00040800 LOGICAL TERMIN 00040810 INTEGER Ww 000408620 C eee ee eee te te ee eee ee eee eee eee ee = = MODI2540 ( = = MWINC IS REAL TO ACCOMMODATE SMALL SYSTEMS 0012350 REAL MwINC Mu012360 C fee ee ee tte ee eee ee ee ee eee ee ee = MO012570 VATA ILYR,IFYR,KN/0,0,0/ 00040621 C THIS SUBROUTINE PRINTS QUT PRODUCTION DETAIL TU THE FILE 00040830 C POET(W=3) OR TPDET (Ws), 00040840 ws3 00040650 IF (TERMIN) W=8 00040860 IF (NH.NE.1)G0TO 5 00040870 L1=NHY 00040880 l2s11i 00040890 GOTO & 00040900 5 t151 00040910 1253 00040920 8 CONTINUE 00040930 TYRISIFIX(YEARS(1)) 00040940 IF(NVCPP,NE.1)GOTU 9 00040950 IFYR=1LYR1I+(1P21) #WYPP +1 00040960 ILYRSIFYR#NYPP=1 00040970 IF CIPSEQ1) IF YRSIFYR©1 00040980 9 ITAYRSIYRI+1YR 00040990 WRITE (Ww, 731) 00041000 IF (NVCPP,EQ.1 AND. .NUT.STERMIN) GOTO 30 v0dglo1o WRITE (Ww, 611) AYR, KRM(LYR) /PRM, CIS(L),1=1,IP) 00041020 GOTO 40 . 00041030 $0 WRITE (WeOL3IFYR,/ILYR¢RRM(LTYR) PRM, (CIS(1),1=1, IP) 00041040 40 CONTINUE 00041050 WRITE (W,731) 00041060 IF CWHLEQ.1)GUTO 4e 00041070 WRITE (W,621) 00041080 GOTO 44 00041090 42 WRITE (wW,622) 00041100 44 CONTINUE 00041110 IF (MAHY (1) LTO LAND MWHY(2) LT.1)GOTO 45 ouu4giieo IF(NH.EQ,1)GUIO 47 00041130 WRITE (W,625) (HYPRUB(1),T=11,12) voo4aii4ay GOTO 48 v0041150 47 WRITE (w,623) (HYPRUB(I),T=11,12) 00041160 44 CUNTINUE 0vu041170 45 CONTINUE 0004116u IF (WHLEQ,1)GUIO ou 00041190 B.97 60 65 So 6001 6002 c - c 6005 Cc c c c - 6007 6008 c = 0009 6010 6020 o13 oll WRITE (W,631) WRITE (W,641) GOTU 6d WRITE (W,634) WRITE (w,644) IF (MWHY(1) .LT.2 AND MWHY(2),LT.I1)GUTU 50 WRITE (W,652) TKNAM(10, i), +TKNAM(10¢2)¢ (MWHY(T) p TEle2)¢ CCHYENLM( Te J) pde=leede +1=11,12) CONTINUE WRITE (W,731) DO 6002 K=1,NCAPS LSITYP(K) IF(L,6T,10)GOTO 6005 KNSNCAPS=K IF CICAP(K,1),LE.NSTZE(L) *MWINC)GOTU 6001 WRITE (W, 662) TKNAM(Ls 1 ds FTRNAM(L, 2) ¢ CICAP CK, J) SEL ee) ¢ (CEQUT(K Ts) eJF1ee)y +1=I1,12) GOTO 6002 WRITE (W, 661) (TKNAM(L¢ J) JEL ,2) DFOCL) o CICAP (Ke J) ec JEL Pe), +(CEOUT(K, I,J) eJ21-2),1511,12) CONTINUE WRITE (w,731) = + AVOID PRINT OUT IF KN=0 IF (KN EQ. 0) GO TO 6008 DO 6007 K=1,KN = - 16 1S NOW THE BASE FOR OUTAGE DATA LEITYP(NCAPS@KN+K) ~10 LEITYP(NCAPS<KN#K) =16 WRITE (W,661L)OUTTYP(L, 1), +OUTTYP(L¢2) sOUTAVIL) s CICAP(NCAPS=KNtK JS) JEL e2)e + (CEQUT (NCAPS*KNeKe I,J), JF1,2),1511,12) CONTINUE i WRITE (We 671) COUTTYP (B,J) eJele2), CCUUTOUT (Te J) pJebe2),Te1i,12) 00 6009 Ts11,le vO 6009 J1,2 TEN(I, J) =HYENLM(1,J) #0UTOUT(I,J) DO 6009 K=1,NCAPS TEN(T,J) STENCIL, J) *EOUT(K, I,J) CONTINUE wRITE (W,691) (CLTENCI, J) -J=iee),1Fli,1e) WRITE (W,661) (COUTAL (I,J), J=1,2),1=11-12) WRITE (w,731) DO 6010 [511,12 TENCI,1)STEW(L,1)+TEN (1,2) WRITE (W,711) CIENCL,1),1=11,12) bO 6020 Ts11,1e2 OUTALL CT) SOUTAL (1,1) ®F TIME (1) *UUTXL (1,2) *F TIME (2) WRITE (W,721) (UUTXLL (I), 111,12) FURMAT('PROD, DETAIL +'="',1G,", RMZ",F6O.3,! FURMAT('PRUD. DETAIL ',14, + PRM=',FO.3,'5 ",14,', KM= bee's B.98 TREE PATH =*,1x,3011/) PRMs',F6e35 00041200 00041210 00041220 00041230 00041240 voo4ieso v004i26u 00041270 00041280 00041290 00041300 00041310 0004132u 000413350 00041340 00041350 00041360 00041370 00041360 00041390 00041400 00041410 00041420 00041430 m0012380 mu012390 muDi2400 00041440 MOD12410 mo012420 00041450 M0D12430 MOD12440 00041460 00041470 00041480 mu012450 M0012460 00041490 00041500 voo4isiv 00041520 00041530 00041540 00041550 00041560 00041570 00041580 00041590 00041600 00041610 00041620 00041630 00041640 00041650 00041660 00041670 lll o2l eee oes 6e5 o31 64 634 644 652 bol 602 671 661 691 711 tat 731 +', TREE PATH =',1X,30I11/) FORMAT (16X, "CAPACITY (MW) ',15X,*PRUDUCTION ENERGY (GWH) ') FORMAT(16X, "CAPACITY (MW) ', 1X, "PRODUCTION EWERGY (GHH)') FUORMAT(15X,"(NOKM WEATHER) ',35X,"HYD PROU=',FS,3) FURMAT(15X, "(NORM WEATHER) *,3X-3('HYD PRUB=', FS. 5¢3x)) FORMAT (19X, "SEASON',4X,3(6X,'SEASON',5X)) FORMAT('PLANTS AVL PEAK OFF PK ',3(4xX,'PEAK', +3X,'OFF PK')) FORMAT (19X,"SEASON',4X,6X_'SEASON', 5X) FORMAT(' PLANTS AVL PEAK OFF PK ',4X,'PEAK', +3X,"UFF PK') FORMAT C/A4sA2¢4Xs4X,217 1X, 3(F BLU, F920) ) FORMAT (2A4,F6.5,217,1X,3(F6.0,F9.0)) FORMAT (2A4,2X%¢4X 2174 1X7 3(F8.00F9.0)) FORMAT (2A4,2X-19X¢3(F8.0,F9.0)) FORMATC'LOLP(OAYS/10 YR)',13K,3(F8.2,F9.2)) FORMAT(/'TOTAL', 24X,3(F8.0,F9.0)) FORMATC'YEARLY TOTAL',17X,3(8X,F9.0)) FORMATC' YEARLY LOLP(DAYS/10 ¥R)',6X%,3(8X,F9¥.2)) FOKMAT(* ') WRITE (W,731) RETURN END B.99 00041680 00041690 00041700 00041710 00041720 00041730 00041740 0u041i7S0 00041760 00041770 00041780 00041790 00041600 00041810 00041620 000418630 00041640 00041850 00041660 00041870 000416860 00041890 00041900 oo aoonc eu 30 4v SUBKUUTINE PRIAPCCYEARS,s 1S¢NVCPP/ TYR, Nb, IP/EUVUT, LT YP,CAP,UUICAP, +AMM,ENYEAR,UUIXL,APCDET, IVC,NYPP, TKNAM,GUTIYP,NLP,NTPO,TERAIN, +LBMAX,PRM) INCLUDE (ARKEEFPR) LOGICAL APCDET = © DIMENSIONS MODIFIED TU ACCOMMUNATE 16 TECHNULUGIES, DIMENSION YEARS(S),1S(30),EQUI (100,32) ,1TYP(100), +CAP (16) ,OQUTCAP(7)¢ +OUTXL (3,2) ¢ TKNAM(16,2) pUUTTYP (6-2) / 101 (5), TOTOUT (3) INTEGER W LOGICAL TERMIN DATA ILYR,IFYR/0,0/ THIS SUBROUTINE PRINTS THE PRODUCTION CUST TABLES GUT TO THE REPORT PCOS(W=4) UR TPCOS(W=9). we4 IF (TERMIN) W=9 AMM=TVC#1000,/ENYEAR LYRISIFIX(YEARS(1)) IF (NVCPP,NE.LIGOTU 10 IFYREIYR1I+(1P91) eNYPPel ILYRSIFYR#NYPP=1 IF CIP.EG.1) IFYR=IFYR=1 TAYRSIYRI+1IYR IFC.NOT.APCUVET)GOIO 400 TF CAPCDET) WRITE(wW, 120) IF (NVCPP.NE*1-OR,IERMIN)GOTO 20 WRITE (w, 100) IF YR, LLYR,-ENYEAR,AMM,PRM, (1S(I),1=1,1P) GOTO 30 WRITE (W,110) IAYR,ENYEAR,AMM,PRM, (IS(1),1=1,IP) IFC.NOT.APCOET)GOTO 400 wRITE (w, 130) WRITE (w,140) IF CTERMIN) LYRISIAYR=NPRNYPP<LBMAX WRITE CW, 150) TYRI WRITE (W,130) bo 40 1T51,5 TOT(I)=0, dO 50 [=1,NLP L=ITyP(I) = = CHECK IF CAP(L) EQUALS ZERO CF=0, IF (CAP(L) .€4, 0.) GO 10 45 CFSEQUT(I,1,2)/(8.76#CAP(L)) CONTINUE WRITE (W, 160) TKNAM(L,1), +TKNAM(L,2),CAP(L) -EQUT(1,1,2),CF,EUUT(1,2,1) ,EQUT(1,2,2) +,EOUT(I,3,1) TOT(1)=TOT(1) +*CAP(L) TUT C2) STOT (2) tEVUT (Ts te2) TOT(3)=TOT(3) *EUUT (I, 2,1) B.100 O0041glYU 00041920 00041930 mMUD12470 00041940 muD12480 m0012490 00041950 00041960 00041970 m0D12500 00041980 00041990 00041991 00042000 00042010 00042020 00042030 00042640 00042050 00042060 00042070 00042080 00042090 00042100 00042110 00042120 00042130 00042140 00042150 00042160 00042170 00042180 00042190 00042200 00042210 00042220 00042230 00042240 00042250 00042260 00042270 00042260 00042290 m0012510 m0012520 M0012530 m0012540 00042300 mu012550 MOD1256u 00042310 00042320 00042330 00042340 00042350 00042360 so ao ano aa TOT (4) =TUT (4) tE0UI (T,2,2) TUT (S)STOT (5) tEvUl (1,3,1) CONTINUE CFSTOT(2)/(6,7oxTUT(1)) WRITE (W,170) TOT(1),TOT(2),CF, (TOT(I) / 15505) NLPP1ISNLP+1 vo SS I=1,3 TUTOUT (I) =0. DO 70 IT=NLPP1,NTPU = = lo IS NOW THE BASE FOR OUTAGE VATA L=lTYP(I)-10 L=ITYP(I) = 16 IF(L,EQ.8)GUTU 57 = ° CHECK IF OUTCAP(L) EGUALS ZEkU CF=0, IF (OUTCAP(L) .EQ@. 0.) GO TO S6 CFZEUUT(1,172)/(8.76k0UTCAP(L)) 56 CONTINUE oF bd 70 100 llo lev 130 140 150 C c c Clo 160 ci? WRITE (W, 180) OUTTYP(Le1), +OUTTYP(L,2) ,OUTCAP(L) -EOUT (I, tr2) ¢CF,EQUT (1,351) +EOUT(T, 3-1) TOTOUT(1)=TUTUUT (1) +0UTCAP(L) GOTO 60 CONTINUE WRITE (W,190) COUTTYP(LsJ),J=1e2) -EQUT(CI41,2),EQUT(I +301), +E0UT(1,3,1) CONTINUE TOTOUT (2)=TUTOUT (2) +EOUT(I,1,2) TOTOUT (3) STUTUUT(S) +EOUT(T, 3,1) CONTINUE WRITE (Ww, 200) (TOTOUT(I) - 151.3) eTOTUUT (3) TuT(1)=TUT C1) *TUTUUT (1) TUT (2) =TOT (2) +TUTUUT (2) TOT(3)=TOT (3) +TOTUUT (3) TOT(S)=TOT(5) #+TUTUUT (3) WRITE (w,210) (TOT(1),131,5) FOKMATC'ANNUAL PRUD ',14,'=',14,'3',FK.0," GWH,',FO.1, +" M/KWH, PRM=',FOe3,', TREE PATH=',1X,3011) FORMATC( ANNUAL PRUD ',14,'%',F8,0,' GWH,',Fo.1, +' M/KWH, PRMS',FO.3,%, TREE PATHS', 1X, 3011) FORMAT(/) FORMAT(' *) FORMAT (*TECHNOLUGY', 6X, "CAPACITY", 4X, "ENERGY' 2X, +*CAPACITY'-2ks* V/0 COST", 2X,"ENV CUST',»2xe'TUTAL COST") FORMAT (20X," (MW) ",5X,'(GwH) FACTOR',SX,"(',14,' DOLLAKS = ' +,'"MILLIONS) ') = > FURMATS 160-210 MUUIFIED Tu SHOW 3 PLACES TO THE RIGHT OF THE DECIMAL UN THE PRICES OUTPUT 0 FORMATCAG, AS LIX GFT Us eX pF OO, eX ep FUELS, IK ep FOU, 4X ep FOO, UEX, FOU) FORMAT (AG, AS, LIX GFT 0e 2X FB .0, 2K, FH. 5, 3K, FB, Sp 2K, F865, 4K, FH, 3) O FORMATCS*SYSTEM TUTAL Ts 4X FO oO eek Foe Vp 2k yh Bode IK FOe Ue 4X, B.101 00042370 00042360 00042390 00042400 00042410 00042420 00042430 00042440 0004245u MUD12570 m0012580 00042400 M0L12590 MOD12600 00042470 MUD12610 0012620 0012630 0012640 00042480 MOD12650 MOD12660 00042490 00042500 00042510 00042520 00042530 00042540 0004255uU 0004256U 00042570 00042580 00042590 00042600 0u042610 00042620 00042630 00042640 00042650 00042660 00042670 00042680 00042690 00042700 00042710 00042720 00042730 00042740 00042750 00042760 00042770 M0V12670 m0U126860 0012690 0v042780 m0D12700 0004279u 170 c C180 160 C190 190 c200 200 Caio e210 C mene eee ete eC ammeneetesiceneceoteseee te oe = = 400 FORMAT (/*SYSTEM TOTAL 4X ¢F 8.0, 2X oF EUG 2X oF Ke 3, Sef Be5,2%e +F6.0,06X,F6,0/) +F8.3,4X,F8.3/) FORMAT (2AG, BX p FEU, 2K FB. 0, 2K e FB e354 Ske FB e0e L4X,FBLU) FURMAL (2A4,8X,F B00, 2K pF Be 0 eek pF Be 57 SK pF 65, 14K FSS) FORMAT (2A4,18X%,F8.0,135X,F5.0,14%,F 8.0) FORMAT (2A4,16X,F8,0,13X,F6.3,14X,F 8.3) FORMAT (/*OUTAGE TUTAL',4X,F8.0,2X,F8.0,15%¢FS.0,14X,F 8.0) FORMAT (/*OUTAGE TOTAL", 4X,F8.0,2K,F 8.0, 13%, FB 63,1 4X eF 4.5) FURMAT(/*TOTAL', 11X,F8.0,2X,F8.0,13X¢F 6 .0,2X6F 8.0, 04X,F 8.0) FORMAT (/*TOTAL LIX Face Oe eX eF Be Og LSX pF be 3de2KsF Be 3, 4XeFK23) CUNTINUE RETURN END B.102 mo012710 00042800 MOD12720 00042610 muD12730 00042620 mMo0i2740 00042830 “0012750 00042640 MOD12760 M0012770 00042550 00042860 00042870 SUBROUTINE PRIFINUIFFYR, LLFYR,CURDs ANNE Xe ANNEX ¢ TS¢NPeF INVET, PRM) Cc -e= ee we wee eer weer wee eee ee we eee er Hh Or HH HH c = = DIMENSIONS MODIFIED 10 ACCUMMOUATE 106 TECHNULUGIES ed COMMON /C1/ TTCRAT,NCONM,PHORZN,HORIZN, INFLAsNPRUS,NGTEC,LB(16), +DBTRT,FAIADJ, LTCNUR, TAXMAR,EURT,PRERT COMMON /C3/ EXCPLM(100),CWIP(100),CC -DINT(100),-LAGR (16) + ,AFUDC(100) ,OITC(100) ,CAPCST(16) ,DINVST(1U0),KTBASE (100), + FCWIP (16,13) ¢NCON(16) »FAFUNC (167/13) sLEN(100) ,-PCWIP,BUNDKT(100), + EGRO(100) ,ASSETS(100) ,EXCOST(100),FIXCHG(10U),ASS78 + ,AAMORT(100),CURCAP (16,100) ,ESC(16) -ADOTON(100) ,DEPRKEC(100), +TAXES(100),COVER(100),RATINT (100) ,ODELTA(100) ,CUFCAP(100), +RETINT( 100) ,PREFER (100) ,COFCOM(100) ,ADDPON(100) INTEGER PHORZN,HORIZN LOGICAL CURD,FINDET DIMENSION I9(30) ( C THLS SUBROUTINE PRINTS THE FINANCIAL OUTPUT TO THE REPURI Cc FINUUT. c IF (.NUT.FINDET)GOTO 10 wRITE (1,100) 10 WRITE (1,110) IFFYRe ILFYR,ANNFX¢ PRM, (IS(1L) ¢ TEL e NP) IF (.NOT.FINVET)GOTO 200 IF (CURD)GUTU 20 WRITE (1,120) 1FFYR GOTO 30 20 WRITE (1,130) 30 WRITE (1,140) WRITE(1,150) DO 40 I=1,PHOKZN IYSIFFYR+I <1 40 wRITE (1,160) 1Y,COVER(I) »KATINT (1) ,COFCAP(1),ExCOST(1), +ASSETS(I),RIBASE(I) -DINT(I) -OITC(1) sFIXCHG(I) WRITE (1,100) GOTO 200 C PI=PHORZNGe1 C vO S0C 1sP1,HURIZN C IYsIFFYR¢I-1 C 50 WRITE (1,180) 1Y/EXCUST (I) ¢RTBASE (I) -DINT(I) -FIXCHG(I) c 100 FORMAT(' #) 110 FORMATC(* FINANCES ',14,%=',14,*2 LEVEL FC=',-3PF4,1, +" M/KWH, PRMs',UPF6.3,', TREE PATHS',1x, 5011) 120 =FORMAT(/43x,14," DULLARS IN MILLIONS") 130) FORMAT(/41X, "CURRENT DOLLARS IN MILLIONS'Z) 1490 FURMAT(7X,*INIERST INTERST COST OF Ex FIN',13x, +*RATE',13X,'°TTC FIXeO') 150 FORMAT("YEAR COVERAGE RATE CAPITAL cusTs ASSEIS', oe BASE INTERST USED = CHARGE'/) 1o0 = FURMAT(14,2X,+8,2,2F 6,5, -6PF8.0,-6PF9.0,-6F 3F 6.0, -6PF 9.0) loo FORMAT(I4,20X,-0PF6.0,9X,-OP2F8.0,46X,-6PF9.0) 200 CONTINUE RETURN END B.103 00042660 MUD12760 mOD12790 40012600 v004249u 00042900 v0d4e9glu 0004292u 00042930 0004294u 00042950 00042960 00042970 00042980 00042990 00043000 00043010 00043020 00043030 00043040 00043050 00043060 000435070 00043080 00043090 00043100 00043110 00043120 00043130 00043140 00043150 00043160 00043170 00043180 00043190 00043200 00043210 00043220 00043230 000435240 00043250 00043260 00043270 0004352860 00043290 00043300 00043310 00043320 00043350 00043340 00043350 00043360 00043370 00043380 00043390 c SUBROUTINE WRIPRC(FIXPRC,VARPRC,AIF,IFFYR,ILFYR,HUKIZN,IS,NP, +PRM,ANNVC, ANNE X,OMM) DIMENSION FIXPRC(100),VARPRC(100),1S(30) INTEGER HORIZN C THIS SUBROUTINE PRINTS OUT PRICES BY YEAR FUR EACH CUMPLETE C TREE PATH, QOulPUIl GOES TO THE REPORT PRICES, c c a 10 100 10 120 150 140 ANNTOTSANNVC ANNE X WRITE (7,140) WRITE(7, 100) IFFYR, ILFYR,ANNVC,ANNFX,PRM, (I1S(1),1Si,NP) WRITE(7,110) WRITE (7,120) IFFYR WRITE (7,140) LY=1FFYR AF=1. OMF =0MM vO 10 T=1,HURLZN VARP=VARPRC (I) TOT=VARP+FIXPRC (I) OMF S0MMa AF VF=VARPRC (I) #AF FRFSFIXPRCC(L) #AF TF =VF +FF +U0MF WRITE(7, 130) 1Y,VARP,FIXPRC(1),TOT,VF,FF,TF AF SAF AIF Tyslye+i wRITE(7,140) FORMATC'PRICES(M/KWH) "714s '="e 14, ' i", =3PFO.1,' VtEt0,', +Foei,' FIX,',' PRe=',OPFS.3,', TREE PATH= ', 3011) FORMATC(/* YEAR, 2C7K,! VeE+O FIXED TUTAL')) FORMAT(LIX,'(M/KWH = *,14,* DOLLARS) ', 6x, +' (M/KWH = CUKRENT DULLARS)") FORMAT (I4,2(09X%,=3P3F7.1)) FORMAT(® ") RETURW END B.104 00043400 00043410 0004342u 00043430 00043440 00043450 00043460 00043470 00043480 00043490 00043500 00043510 00043520 00043530 00043540 00043550 00043560 00043570 00043580 00043590 00043600 00043610 00043620 00043630 00043640 00043650 00043060 00043670 000435080 00043690 00043700 00043710 00043720 00043730 00043740 00043750 00043760 00043770 aanonnnnaan c 10 c c c c 20 c 50 SUBROUTINE FICUSTISIDE,CNDUL,PVAENSCUST, Nim, LFFYR, LERMY RK, +ILRMYR,PRA,ANIZE,CNSYS,EN78) LOGICAL SIDE,CNDOL,CNSYS DIMENSTUN COST(7,5),SuUM(7) THIS SUBROUTINE PRINTS OUT THE SUMMARY CUST TU CUNSUMEKS IN FIXED COST, VARIABLE COST, REVENUE REQUIREMENT, ENVIRONMENTAL CUST, OUTAGE COST, AND TOTAL COST CATAGORIES FUR EACH PLANNING RESERVE MARGIN, IF THERE ARE 8 UK MORE PLANNING RESERVE MARGINS, The TRANSPOSE UF THIS TABLE IS PRINTED. WRITE SUMMARY TABLE WHEN THERE ARE 8 OR MOKE PLANNING RESERVE MARGINS, DATA FRAC/0./ IFC.NOT,SIDE)LOTO 20 IF (NUM.NE,1)G0TU 10 WRITE (10,200) WRITE (10,200) IF (CNUOL) WRITE (10,500) IFFYR IF (.NOT.CNOUL) WRITE (10,310) IF (CNSYS)WRITE(10,315) IFFYR IF C.NOT CNSYS) WRITE (10,317) WRITE (10, 520) WRITE (10,330) WRITE (10, 340) WRITE (10,350) WRITE (10, 360) 4FRMYR,ILRMYR WRITE (10,370) PRM, ((COST(I,J),J51,5),151,2) GOTO 800 WRITE SUMMARY TABLE I'v STANDARD FORM WRITE COSTS IN MILLIONS OF DOLLARS PER YEAR, WRITE (10,200) WRITE (10,400) IFRMYR, ILRMYR WRITE (10,200) WRITE (10,405) (CUSI (1,1) -L=1,NUM) WRITE (10,200) TF C.NOT.CNDOLJ WRITE (10,410) IF (CCNDOL) wRITE (10,415) IFFYR IF CCNSYS)WRITE (10-417) IFFYR IF (.NOT.CNSYS)WKITE (10,416) WRITE (10,420) WRITE (10,200) WRITE (10,430) (COSI (1,2), 1=1,NUM) WRITE (10,440) (COST (1,3), 1=1,NUM) WRITE (10,200) DO 30 151,NUM SUM(L)=COST(I,2) +C0ST(I, 5) wRITE (10,450) (SUM(L) ,1=1,NUM) WRITE (10,200) WRITE (10,460) (CUS1(1,4),1=1,NUM) WRITE (10,470) (CUST(1I,5),1=1,NUM) B.105 V004S78U 000435790 000458600 00043610 00043820 00043650 00043840 00043650 00043660 000438670 00043880 00043890 00043900 ouv4as9lu 00043920 00043921 00043930 00043940 00043950 00043960 00043970 00043960 00043990 00044000 00044010 00044020 00044030 00044040 00044050 00044060 00044070 00044080 00044090 00044100 00044110 00044120 00044130 00044140 00044150 00044160 00044170 000441860 00044190 00044200 00044210 00044220 00044230 00044240 00044250 00044260 00044270 00044260 00044290 00044300 000443510 00044320 00044330 40 4s 47 c wRITE (10,200) bO 40 1=1,NUM SUM(T)=3UM(1)+CUS1 (1,4) +CUSt (1,5) WRITE (10,460) LSUMCIT) -T=1,NUM) NUM1=NUM=1 IF (NUM1,LT.1)6010 47 00 45 [=1,NuUM1 SUM(I) SSUM(I 41) =SUM(I) WRITE (10,490) (SUMLI) ,-T=1,NuM1) CONTINUE C WRITE COSTS IN MILLS/KWH c ov 50 70 60 85 67 eno 300 310 S15 $17 S20 $30 340 $50 360 WRITE (10,200) ARITE(10,200) IF (WOT, CNDUL) WRITE (10,410) IF (CCNDOLJWRITE (10/415) TFFYR WRITE (10,425) wRITE (10,200) IF (CNSYS)FRAC=1000,/ENT6 IF C.NOT.CNSYS)FRACS1000./ (PVAEN*ANIZE) bU 50 1T=1,NUM vO 60 J52,5 CUST(I,J)=CUST(I,Jd) *FRAC S CONTINUE wRITE (10,5350) (CUST(I,2),1=1,NUM) WRITE (10,5940) (COSI (1,3),1=1,NUM) WRITE (10,200) 00 70 1=1,NUM SUM(I)=COST(I,2)+COST(I, 3) WRITE (10,550) (SUM(I),1=1,NUM) WRITE(10,200) 7 WRITE (10,560) (COSI (1,4),1=1,NUM WRITE (10,570) (COSI (1,5), 1=1,NUM) WRITE (10,200) DO 8O 1=1,NUM SUM(T)=SUM(1) +CUST(I,4)+C0OST(1,5) WRITE (10,580) (SUM(I) ¢ 151,NUM) IF (WUM1,LT,1)GUTO 87 vO 85 1=1,NUML 7 SUM(I)=SUM(1+1)-SUM(T) WRITE (10,590) (SUM( IT) ¢ L=1,NudL) CONTINUE FORMAT(' ') FORMAT (28X,"LEVELIZED ',14," DOLLARS") FURMAT(27X,"LEVELIZED CURRENT DOLLARS') FORMAT (20x,14,' SYSTEM S17E") FORMAT(17X,'CURKENT SYSTEM SIZE') FORMAT(12%,'"MILLIUNS OF DULLARS PER YEARK',11X, +'MILLS PER KILOWATT=HOUR') FORMAT C'PLANNING") FORMAT C'RESERVE',2(' FIXED VAR ENV OUTAGE FURMAT('MARGIN ',e(* cost cost cost cost FORMATC'C's 14e%=",1a,')'/) B.106 TOTAL')) cosTt')) 0004454u 000443350 00044560 00044370 00044380 00044390 00044400 vo044daio 00044420 0004443 00044440 00044450 00044460 00044470 00044460 00044490 00044500 00044510 00044520 00044530 00044540 00044550 00044560 00044570 00044560 00044590 00044600 00044610 00044620 00044630 00044640 00044650 00044660 000446070 00044680 00044690 00044700 00044710 00044720 00044740 00044740 00044750 00044760 00044770 00044780 00044790 00044500 00044610 00044620 00044830 000448640 0004485u 00044860 00044870 0004486u 00044890 00044900 $70 400 405 410 415 417 418 420 425 450 440 450 460 470 480 490 930 s40 950 560 $70 980 590 800 FORMAT (FS.3,3X,5F7.0,1X,5F7.2) FORMAT (25X,"PLANNING RESERVE MARGIN (',14,'=',14,')') FORMAT (23X,7F5,3) : FORMAT('LEVELIZED CURRENT » COST,") FORMAT(*LEVELIZED ',14," » CUST,') FORMAT(I4," SYSTEM SIZE,') FURMAT('CURKENT SYSTEM SIZE,") FORMAT('MILLIONS UF $ PER YEAR ',7F8.3) FORMAT('MILLS PER KILOWATT=HOUR') FORMAT('FIXED COSI ",7F6.0) FORMAT('VARIABLE LUST ',7F8.0) FORMAT C*REVENUE REQUIREMENT ',7F8.0) FORMAT C* ENVIRONMENTAL COST ',7F8.0) FORMATC(' OUTAGE COST ',7F6.0) FORMAT(*TOTAL COST TO CONSUMERS',7F 8,0) FORMAT('CHANGE IN TOTAL COST ",4Xs0F 8.0) FURMAT('FIXED CUST ',7F8.2) FORMATC'VARIABLE COST ',7F8.2) FORMAT( "REVENUE REQUIREMENT *,7F8.2) FORMAT CTENVIRUNMENTAL COST ",7F6.2) FORMAT C*UUTAGE COST ",7F6.2) ' ' FURMATC'TOTAL COST TO CUNSUMERS',7F&.2) FORMATC'CHANGE IN TOTAL COST 14X,0F 8,2) CONTINUE RETURN END B.107 00044910 00044920 00044930 00044940 00044930 00044960 00044970 00044980 00044990 00045000 00045010 00045020 00045030 00045040 00045050 00045060 00045070 00045080 00045090 00045100 00045110 00045120 00045150 00045140 00045150 00045160 00045170 AaAAMAANAAMAMAAAN ‘ aQaan SUBRUUTINE TEKM(AMM,EEVC,DF AIF, OLR, ALR ¢LReL BMAX, AL, ALPHA, +HETA,DEM,EGRO, YLF,/CUHY, TOTCAP,FIXCHG,PKM,RKM, TEC, +TERMVC, VARPKC,EN76,CGR,DEM74, ADAHOR, TEROAM,FOMRE] » UFLEV, DESC, +DISTRA, PRMBEF ,PRMAFT, IFFYR, LFRMYR, ILRMYR,LBAVE ,D1S, +TUM, TEM, TERMEC, TERMOC ,CSENVT,CSOUTT) DIMENSION DEM(30) ¢EGRO(100) ,FIXCHG (100) ,RRM( 50), ADAHOR (100), +VARPRC (100), TFC (100) » TEROAM(100) ,FUMRET (100) ,01S8(100) LOGICAL LONG THIS SUBROUTINE CUMPUIES THE TERMINAL FIXED AND VARIABLE CHARGES, INPUT FOR VARIABLE COST 15 THe CURRENT VARTABLE CUST AMM IN FYR M/KWH AND THE LUNG RUN VARIABLE CUST EEVC. INPUT FOR THE FIXED COST IS THE TERMINAL FIXED CHARGE TFC IN $/MWeYR AND SYSTEM CAPACITY, SYSTEM CAPACITY IS USED TO RETIRE LR CAPACITY (EXCEPT HYDRO) AT A LINEAR RATE UVER THE BOOK LIFE, OUTPUT ARE THE TERMINAL TERMEC, TERMOC,TERMVC, AND FIXCHG. TERMVC=0, TERMEC=0, TERMOC=0. : ODF SDLk AAF=ALR GCUM=1,+CGR TEC=EEVC*1000. C=AMM*1000, RETIRE=(TOTCAP=CUHY) /FLOAT (LBAVE) SYSCAP=TOTCAP FCT=0, ADDT=0, KETT=0, vO 100 I=1,LBMAXx MORESI“LBAVE LUNG=MORE.6T.0 ODF SDDF sbF AAFSAAF «AIF GCUM=GCUMFEGROU(LR*L) ENERGY=EN78*G6CUM RHOSFLOAT(I)/FLOAT(LEMAX) RHEL. IFCI LT 2) RHSFLUAT(I)/2. CALCULATE VARIASLE CUSTS ECTEMPSAAF XENERGY® ((1.eRHU) *TEM*RHURCSENVT) #1000. UC TEMP=AAF RENERGY® ((1,°RKHU) & TOM*#RHURCSUUTT) #1000. TERMEC=TERMEC+DDF EC TEMP TERMUCSTERMUC #DDF ROC TEMP VCTEMP=AAF RENERGY® ((1.°RHO) *C#RHOATEC) TERMVC=TERMVC+DDF RVC TEMP VARPRC(LR+1 +1) =VCTEMP/ (ENERGY ®AAF ) B.108 00045160 00045190 00045200 00045210 00045220 00045250 00045240 00045250 00045260 00045270 000452860 v004529u 00045300 00045310 00045320 00045330 00045340 00045350 00045360 00045370 00045580 00045390 00045400 00045410 00045420 0004543u 00045440 00045450 00045460 00045470 00045480 00045490 00045500 00045510 00045520 00045530 00045540 00045550 00045560 00045570 00045580 00045590 00045600 00045610 00045620 00045650 00045640 00045650 00045660 00045670 00045680 00045690 00045700 00045710 00045720 00045750 00045740 C SET UP ANID CALCULATE FIXED COSTS 100 ADDCSTSTFC(1) *AAF DISCSTSDISTRA*(1,*DESC) xa (LRTI) AAR *DFLEV FOMR=FOMRET (I) #AAF TERUESTERUAM(T) RAAF IF (LUNG)RETIRE=0, SYSCAP=SYSCAP@RETLIRE IF (LONG) SYSCAP=SYSCAP*ADAHOR (MOKE) DEMAND=DEM76*GCUM CALL PRMGN(PRMBEF,PRM,PRMAFT,IFRMYR,ILRMYR, IFFYR+I elk, +PRMGIN) RM=RH*PRMGING (1 ,°RKH) &RRM(LR) IF (RM.GT,PRMGIN) RMSPRMGIN TARGE T=(1,+RM) #DEMAND ADD=STARGET=SYSCAP IF (ADD ,LT.0.)ADD=0, ADAHUR(T)=AUD ADUT=AUDT+ADD RETTSRETT+RETIRE IF (LUNG) RETTSRETT*ADAHUR (MURE) DIS(I)SENERGY*DISLST FCT=FCT+A0D*AUDCSI #ENERGYROISCST IF (LUNG) FCTS=FCT*ADAHOR (MURE) *TFC (MORE) *ALW AATF # #MURE=UIS (MORE) FIXCHG(LReI+1)SFCI+(ADDT*TERO@RETT*®FOMR) #1000, SYSCAP=SYSCAP*ADD CONTINUE RETURN END B.109 00045750 00045760 00045770 00045780 00045790 00045600 00045810 00045820 00045630 0004564 00045850 00045660 00045870 00045880 000458690 00045900 00045910 00045920 00045930 00045940 00045950 00045960 00045970 00045980 00045990 00046000 00046010 00046020 SUBROUTINE INIEG (MATRIX, NSTGS,LR) 00046030 C eee ee ee ee er ee eee ee ee ee ee ee = MUDIeBIO c = © DIMENSIONS AND DO LOOP FINAL VALUES HAVE BEEN MOD12820 c MOVIFIED TO ACCUMMOVATE ThE 7 HYDRU TECHNOLUGIES, M0D12830 C see ee ee ee ee ee eee eee eee eee ee eH eH ee © MUDI2640 REAL MATRIX(16,31¢1) 00046040 DO 20 IS=1,NSTGS 00046050 ISTAGESNSTGS41-1S 00046060 c vo 15 I=1,10 00046070 bO 15 Izi,16 MU012850 DO 10 IY¥=1,LR 00046080 10 MATRIX(1/1Y¥+is ISTAGE) SMATRIX( Le LY tis ISTAGE)+MATRIX(I¢1¥,ISTAGE) 00046090 15 CONTINUE 00046100 20 CONTINUE 00046110 RETURN 00046120 Eno 00046130 B.110 oan 10 15 20 SUBRUUTINE DIFF (MATRIX,NSTGS¢LR) = = DIMENSTONS AND DU LUOP FINAL VALUES MUVIFIEU TU ACCUMMUDATE THE 16 TECHNOLUGIES,. REAL MATRIX(16,51-1) vO 20 IS=1,NSIGS ISTAGE=NSTGS¢#1-I1S DU 15 121,10 bU 15 151,16 OO 10 TYE=1,LR IYSLR+1-IveE MATHIX(T, L¥+l, ISTAGE)SMATRIX(T, TV +1, 1STAGE) -MATRIX(I,1Y,ISTAGE) CONTINUE CONTINUE RETURN END B.111 v0004014U MOD12860 0012870 MO012860 00046150 00046160 00046170 00046180 MUD12890 00046190 000462u0 00046210 00046220 00046230 00046240 00046250 Oana 29 100 110 120 150 140 150 200 elo eeu 250 260 300 4ou SUBROUTINE USTAT(CEP,L1,L2eL3,LYRe LYRUECL ¢ REGADD, TARGET, +TPLAN, ADL, 1TYP, TKIWAM,AJ,PLAN,ERKOR, AMW,LRP1, ISTAGE, +TEP, AVL / AVLLYR, AMWAVL) = = DIMENSTUNS ANDO DO LOOP FINAL VALUES HAVE bEEN MUDIFIED TO ACCOMMODATE THE 16 TECHNOLUGIES, DIMENSION CEP (16, 51,3), TKNAM(16,2),AJ(16),PLAN(16),ERRUK (16), +AMW(16,3),TEPLI6) LOGICAL Li,L2sL3,AVL(16) ,AVLLYR (16), AMWAVL (16,3) WRITE (11,100) WRITE C11, 110)LYR,LYRDEC,L WRITE (11,120) REGAUD, TARGET, TPLAN WRITE (11,130) AD0,1TYP,ISTAGE WRITE (11-140) CCTKNAM(I, J) pJ=1,2)¢151,16) WRITE (11,150) WRITE(11,200) (AS(L), 151,16), (PLAN(I),/1=1,160), +(ERRUR(I),1=1,16), (TEP(I), 151,16) WRITE (11,210) WRITE (11,200) (CAMW(1,1S),151,16),1S=1,3) WRITE (11,220) WRITE (11,250) (AVL(I)/ 151,16), (AVLLYR(1),1=1,16), +(CAMWAVL (Ie¢1S),131,16)-/1S1,3) IF CJNOT.LI.AND. NUT .L2.AND. NUT.L3)GUTO 20 CALL DIFFC(CEPe WRITE (11,260) LRP) IF CLL) WRITE (12,500) ((CCEPCI+1¥e1)/151,16),T¥=1,LKP1) IF (Le) WRITE(11, 300) ((CEP(I,1Y,2),151,160),1¥=1,LRP1) IF (L3)WRITE (11, 300) ((CEP(I+1¥s3) ¢1= OEE 1,LRP1) CALL INTEG(CEP,3,LRP1) WRITE (11,400) FORMAT (/ "DECISION: STATUS'/) ",13e' IYRVEC =',13,' L ='-13) FORMATC'LYR = FORMAT(*REGADD =',F8.0," +F 8.0) FORMAT('AUD =',F8.0,' Mw OF TECHNULOGY', FORMAT (8X, 16(1X,A4,A2)) FUORMAT('ADD JUST, PLAN, ERROR, TEP3') FORMAT ((8X,16F7.0)) FORMAT('*AMW 1 2 33") FURMATC'AVLe AVLLYR, AMWAVL 1 2 33°) FORMAT ((8x,160(6X,L1))) FORMAT(/'CEP Li Le L3s") FORMAI(/(8X,10F7,0)) FORMAT(* RETUKN END ) B.112 TARGET =',F8.0," TPLAN =', l2,' FROM STAGE', Te) 0004626u 00046270 00046260 M0012900 MOD12910 Mad12920 m0012930 00046290 00046300 00046310 00046320 00046330 00046340 00040550 00046360 00046370 00046360 00046390 00046400 00046410 00046420 00046450 0v046440 00046450 00046460 00046470 000464860 00046490 00046500 00046510 00046520 00046530 00046540 00046550 00046560 00046570 00046580 00046590 00046600 00046610 00046620 00046650 00046640 00046650 00046660 00046670 00046680 c SUBROUTINE FALPHALCLOC,SIGMA,SIGALR,NP,NPMAX,ALPHA) DIMEWSION CLOC(10,1) C THIS SUBROUTINE FINDS ALPHA FOR USE IN GENERATING THE PROBABILITY C TREE, 20 vo 10 40 100 IF(NP.NE.1)GOTO 20 ALPHA=.73 GOTO 100 CONTINUE DO 1 [=2,NPMAXKee INPsI IFCNP.LE-INP)GUTO 2 CONTINUE INC=INP72 IF(NP.EQ,INP)GOTO 4 bO 3 151,10 CLDC(T, INC)=(CLOC(I,INC) *CLOC(I,INC#1)) 7/2, CONTINUE RATIO=SIGALR/SIGMA IF (RATIO,LT.CLOC(1, INC) AND ,RATIO.GT.CLDC(10,INC))GOTO 5 IF (RATIO,GE,CLOC(1, INC) )ALPHA=1,0 IF (RATIO.LE.CLOC(10, INC) ) ACPHAS~,8 GOTO 100 00 10 132,10 neI IF (RATIO,GE.CLOC(N,INC))GOTU 40 CONTINUE REALN=FLUAT(N)=(RATIU*CLUC(N, INC) )/(CLUC(N@1,INC)=CLDC(N,INC)) ALPHA=1.*(REALN=1e) #62 CONTINUE RETURN ENO B.113 0004669uU v0u046700 00046710 00046720 00046730 00046740 00046750 00046760 00046770 00046780 00046790 00046800 00046810 00046820 000468306 00046840 00040850 00046860 00046870 00046860 000468690 00046900 00046910 00046926 00046930 00046940 00046950 00046960 00046970 00046980 00046990 00047000 00047010 00047020 000470350 SUBROUTINE CEPMUDICEPTEM,NS,CEP,LRPI,ISTART, AVAHUR, AMIX9O) 00047040 “Bono eee ee ee eee eee eee Bee ee eee eee ee eee = MUDLA940 = = DIMENSIONS AND OO LOOP FINAL VALUES MUDIFIED TO ™001295u ACCOMMODATE THE 16 TECHNOLOUIES, MOD12960 ecrcrr creer eee eee ee ee ee eee Be ee ee ee ee © HGD12970 DIMENSION CEP(16, 41,1) -CEPTEM(16,1)/ISTAKT(16) ,AVAHUR (1) ,-AMIX9U(1) 00047050 ic bO 2 T=1,10 O0U04TVEOU DO 2 I=1,16 40012980 IF CISTART(1).EQ.0)G0TO 2 0047070 00 1 IY=i,LkP1 00047080 i CEPTEM(T- ITY) SCEP(I,1Y,NS) v0047090 2 CONTINUE 0uv47ivU c OO 15 I=1,10 0uu47110 0O 15 T=1,16 40012990 IF CISTART(I).EG.0)GOTO 15 00047120 bO 10 ly=1,LRPL 00047150 ITYP=IY-ISTAKT(I) 00047140 IFCIYP.LT.I)GUTO 10 00047150 CEP(I,1YP,NS)=CEP(I,1Y,NS) 00047160 10 CONTINUE 00047170 OO 5S IY=1,LkP1 00047180 TyP=IY-ISTART(I) 00047190 IFCIYP,GT.0) GOTO 15 0v047200 Ss CEP(I,LRPI+1LYP,NS) SADAHOR (IY) RAMIX90(1) +CEP(A,LRPI+1YP=1,NS) 00047210 15 CONTINUE 00047220 RETURN 00047230 END 00047240 B.114 SUBROUTINE CEPFIX(CEPTEM,NS,CEP,LRP1I,ISTART) 00047250 C seer eee ee ee ee ee rer Ree eee eee ee we = = MDI S000 c =~ = DIMENSTUNS AND vO LOOP FINAL VALUE MODIFIED TO 40013010 c ACCOMMOVATE 16 TECHNOLOGIES m0015020 C seer eer eee eee ee er ee ee tee ee eee eee He = = = MOD13050 OIMENSION CEPTEM(16,LRP1),CEP (1665151), 1STARI(16) 00047260 c vO 2u 121,10 00047270 ov 20 121,16 MuD13040 IFCISTART(I),€@,0)G0TO 20 00047280 DO 10 TY=1,LRP1 00047290 10 CEP(I,IY,NS)=CEPTEM(I IY) 00047300 en CONTINUE 00047310 RETURN 00047320 END 00047330 B.115 SUBROUTINE CEXS(ALPHA, BETA, NYPP,NP,ULTA,1S,CEXVEM, GC, NYL,FNYL, 000473540 +DEM7T&,NB,ALZLR) 00047$30 c 00047 50U C THIS SUBRUUTINE FINDS THE CLAIRVUYANT'S DEMAND FURECAST FUR 00047570 C EACH SELECTED TREE PATH, 00047580 c 00047390 DIMENSION 15(30),CEXDEM( 50) 00047400 y 00047410 CGR=0, 00047420 GRAZAL 000474350 DO 300 J=1,NP 00047440 TYR=(J~1) #NYPP 00047450 GRWSALPHAA&GRWFBETARAL 00047460 IF (NBEQ.2) GRNZGRN+2 6 aDLTA®(FLOATCIS(J))<165) 00047470 IF (NB EU. 3) GRHZGRN*DLTARFLOAT(IS(J) =e) vv0474860 c 00047490 DO 200 IT=1,NYPP 00047500 CGR=CGR+GRW 00047510 IYKSIYR+1 00047520 FIYRSFLOAT(IYR) 00047530 GSUM=GC&FIYR&(FIYK*FNYL) /2. 0004754u IF CLYR.GT.NYL)GSUMS0. 00047550 CEXDEMC(TYR)5(1,+CGR+GSUM) XDEMT8 00047560 200 CONTINUE 00047570 500 CONTINUE 00047560 c 00047590 WRITE (11,350) 000476u00 WRITE (11,400) (CEXUVEM(I),I=1,LR) 00047610 350 FORMAT('CEXOEM UNUER PERFECT DEMAND FORECAST: ') 0vu047b620 400 FORMAT ((10F8,0)) 00047630 RETURN 00047640 ENO 00047650 B.116 anaaana a0 aoan aon aan ga One a a0 oo SUBRUUTINE INCONS (ALPHA,FCPERI,FCPEK2,FCVERS, + ALLINT, + NP, ,NYPP, NB, U,RSNOT,NSCEN,PERFCS,CUINE ) THIS SUBROUTINE INITIALIZES VAKIUUS CONSTANTS AND FURMER INPUT PAKAMETERS LOGICAL RSNUT,;PERFCS ALPHA=0,5 FCPER1=20,0 FCPER2=5,0 FCPER3=6.0 = ALLOWABLE GENERATION FRUM ANCHORAGE TO FAIKBANKS IN YEARS 5-9 (ASSUME 0 ALLOWABLE IW YEARS 1-4) ALLINT=260, NUMBER OF PERLUOS NP=6 NUMBER UF YEARS PER PERIUD NYPP=S NUMBER OF BRANCHES WH 1 = PROBABILITY FUR THE MIDDLE BRANCH (MED PATH) UF THE 3 PATH SYSTEM Q=0.5 CALCULATIONS FOR FULL DEMANU? = (NUT USED IN THIS PROGKAM VERSION; ONLY INCLUDED HERE FOR COMPLETENESS) RSNOT=,FALSE, NUMBER OF PATHS NSCENS3 PERFECT FORECASTING? = (NUT USED IN THIS PROGRAM VERSION; ONLY INCLUDED HERE FUR COMPLETENESS) PERFCS=,FALSE. COINCLUENCE FACTOR COINF=u0,97 RETURN END B.117 4Uu013050 Muv1 35000 MOD1 3070 MO013080 muD13090 mu013100 m0D013110 mu013120 4UD13130 MOD13140 M0D15150 0013160 MU0D15170 40015180 0013190 MG013200 M0D13210 MOD1 5220 M0D13230 M0015240 MOU15250 m™G013260 MUU1$270 MuD1 5280 mUD13290 MO013500 moD13310 M0013320 M0OD13530 m0013540 M0013350 0013360 MOv15570 MOD13360 MUD13590 m0D134u0 M001S5410 MUD13420 M0013450 40013440 0013450 MUD15460 m0013470 M0U13480 MUD13490 40013500 mMuD1S5510 0013520 40013530 mU013540 0015550 ™0D13560 aanonoace a a0 C lo + SUBKUUTING SETPAR (HYPROB,HYEN,HYMULT,HYINC,FENG,FTIME, = = PARAMETERS COV, PRERT, AND UBTIRT ADDED THIS SUBROUTINE INITIALIZES THE VALUES UF VARIABLES CUV, PRERT,UBTRI) ELIMINATED FROM THE INPUT STREAM DIMENSTON HYPRUB (3) -HYEN(3) pHYMULT (5) FENG (2) FT IME (2) DIMENSION COVL6) NO 5 J=1,3 HYEN(J)=0,0 HYMULT (J) 51.0 CONTINUE HYPROB(1)=0.0 HYPROH (2) 21.0 HYPRUB(3)=0.0 HYINC=0,0 FTIME(1)51.0 FENG (1)=1,0 PRERT=.150 OBTRT=.490 bO 10 J=1,6 COV(J)SFLUAT (J41) CONTINUE RETURN END B.118 M0015570 M001 5580 40013590 MOD13600 4UD1 S610 MOD1 S620 MUD1 3630 M001 3640 MOD1 5650 MU01 5000 M0013670 MUD1 3680 MUD1 36090 0013700 MUD1 $710 MG013720 MOU13730 ™0013740 MUD1 3750 MGU157600 MuD1 5770 0013780 40013790 MU01 3800 MULD1 3610 M001 3820 M001 3850 mU01 5840 MOD1 3690 40013860 M001 3870 MUU 13680 40013890 M™U01 5900 40015910 Mu01 34920 ONANAMANANMNMAAGRANAAANAANANANAOAANAAA oO anananac an 2 SUBRO + + + THIS PARAM SFILE NPP1L PEAKOM AVENGY LRPL AECUNS PKCONS TCCONS PCCUNS DIMEN DIMEN OIMEN DIMEN OPEN READ ANCHO READ 00 1 KEAD * conti FAIRB READ vu 2 READ * CONTI UTINE READSF (SFILE,NPP1,PEAKDM,AVENGY,LRP1y AECUNS, PKCONS, ICCUNS,PCCUNS, FREAK, FENE,APEAK,AENE, GPEAK, GENE) SUBROUTINE READS THE SECONDARY FILE CONTAINING AVERAGE ENERGY AND PEAK DEMAND VALUES FUk EACH AREA, EACH PATH ANU EACH PERIOD, THE AVERAGE ENERGY AND PEAK DEMAND Akt COMBINED FOR ALL AREAS (ANCHURAGE, FAIRBANKS AND GLENNALLEN) THE CONSERVATION DATA FUR EACH UF THE AKEAS IS ALSO READ FROM THIS SECONDARY FILE. EATER DESCRIPTIONS = - FILE NAME OF SECONDARY FILE (INPUT) - - THE NUMBER OF PERIODS PLUS 1 - - ReSULTING TOTAL DEMAND ARKAY FUR EACH PATH AND EACH PERIOD RESULTING TOTAL AVERAGE ENERGY ARRAY FOR EACH PATH AND EACH PERLUD - PLANNING HORIZON PLUS 1 RESULTING YEARLY TOTAL AVERAGE ENERGY FOR CUNSERVATION RESULTING YEARLY TOTAL DEMAND FOR CONSERVATION RESULTING YEARLY TOTAL COSTS FOR CONSERVATIUN = RESULTING YEARLY TOTAL POWER COSTS FOR CUNSERVATION SION SFILE(5), PEAKDM(3,11), AVENGY(3,11) SION FREAK(3,11), FENE(3,11), APEAK(3,11), AENE(3,11) SION GPEAK(3,11), GENE( 3,11) SION AECONS(5,31),PKCONS(5,31),TCCONS (3,31) ,PCCONS(3,31) CUNT T=20-/NAMESSF ILE, STATUS="0LD',READUNLY) OELTVERED ELECTRICITY DATA RAGE (20,100) J=1,NPPL (20,101) APEAK(1,J),AENE (1,3) ,APEAK (2,3) ,-AENE (2,5), APEAK (3,3) /AEWE (5.3) NUE ANKS (20,105) J=1,WPPI (20,101) FREAK(1,J) -FENE(1,3),/FPEAK (255) ,FENE(2,J), FREAK (3,J),/FeNe(3,J) NUE B.119 mMUD1 5930 m00135940 m0013950 400159600 M0013970 0013960 40013990 MUD14000 0014010 mu014020 M0014030 0014040 M0014050 40014060 MUD14070 M0014060 MUD14090 mO0014100 M0014110 mud14120 MU014130 M0014140 MOD14150 40014160 0014170 M0014180 MUD14190 M0014200 M0D14210 mM0014220 MUD14230 0014240 M0D14250 40014260 M0D14270 40014280 MOU14290 460145006 m™6D14310 M0014320 M0014330 40014340 m0014350 ™0014360 ™0014370 MO0D14580 M0D14390 MOD14400 MOD1441u0 40014420 MOD144 50 MO014440 m0014450 40014460 40014470 40014480 M0014490 ao aa em aanana a 3 10 11 15 47a 480 490 suo * GLENWALLEN READ (20,105) DO 3 J=i,NPPL READ (20,101) GPEAK(1,J),GENE(1,J),GPFAK (2,3) ,GENE (2,4), GPEAK (3,3) ,GENE CONTINUE bu 10 I=1,3 DU 10 J=1,NPP1 PEAKOM(I,J)=0, AVENGY(I,J)=0. CONTINUE DO 11 I=1,3 OO 11 Jei,LRPL AECONS(I,J)=0, PKCONS(1I,J)=0, TCCONS(I,J) 50, PCCONS(I,J)=0, CONTINUE DO 15 1=1,3 OO 15 J=i,NPP1L PEAKDM(1I,J)=PEAKOM(I,J) AVENGY (I,J) SAVENGY( I,J) PEAKDM(1,J)=PEAKDM(I,J) AVENGY( I,J) =AVENGY (I, J) CONTINUE t+ ot READ CUNSERVAIION AND LOAD MA (J CINUVEX) = 1, LUWw; = READ (20,106) 60 $00 T51,3 READ (20,105) DO 490 J=1,3 READ (20,105) DO 480 K=1,LRPL READ (20,106) AEC,PKC,TCC,PCC AECONS(J,K)=AECONS(JSeK) + AEC PKCONS(J,¢K)=PKCONS(J¢K) # PKC TCCONS(JeK)ETCCONS(IeK) + TCC PCCONS(J,K)=PCCONS(JeK) + PCC GO TO 480 READ (20,107) CONTINUE CONTINGE CONTINUE (3,3) APEAK(I,J) + FPEAK(I,d) AENE(I, 5) + FENEC(I,J) GPEAK (I,J) GENE (Ie J) NAGEMENT DATA 2, MEDS = 3, HIGH) B.120 ™0014500 40014510 m0014520 0014530 M0014540 46014550 M0D14560 mO014570 MOD14580 M0014590 40014600 40014610 40014620 400146350 M0014640 40014650 M0D14660 M0014670 M0014680 M0014690 MUD14700 mOD14710 M0014720 0014750 40014740 MO014750 M0D14760 40014770 M0014780 M0014790 M0U14800 M0014810 M0014620 00148350 M0D14840 0014856 MU014660 0014670 4001468u 0014890 mOD14900 M0014910 mOD014920 MOD14950 MU014940 MU01495uU Mu014960 muD14970 ™G014980 M0OD14990 0015000 Mu01S010 m0015020 M0015030 40015040 m0D15050 m0015060 oon 100 lol 105 106 107 106 FORMAT FORMAT FORMAT FORMAT FORMAT FORMAT RETURN END (704)) (7X, 3(02F9,0,1x)) (4) (s/s) (1x) (6X,2F10,0¢12X,F 10.0, 5X,F 10.0) B.121 0015070 M0D15080 mu015090 0015100 MUD15110 MUD15120 MUV19130 mUuv1S14u muv15150 MOD1S516u 40015170 m0015180 40015190 meaner antonaeannnAnannenanANAMAaNMGNMAGAANNAAAAAAGM ca an SUBRUUTINE DEMPYR (PEAKDM,AVENGY,sYRLYDM, YRLYENS ISPN,NYPR,NP,NSCEN,MUDI15200 + + THIS SUBRUUTINE CALCULATES YEAKLY VEMANU AND YEARLY ENER, FREAK, FENE,APEAK,AENEsFRYRLY-FEYRLY¢APYRLY,AEYRLY,? GPEAK,GENE,GPYKLY,GEYRLY) FOR EACH PATH FROM THE DEMAND AND AVERAGE ENERGY FOR EACH PERIUD, THE METHOU IS LINEAK INTERPULATIUN FROM ONE PEKIOU VARLABLES$ PEAKDM APEAK FPEAK GPEAK AVENGY AENE FENE GENE YRLYDM APYRLY FPYRLY GPYRLY YRLYEN AEYRLY FEYRLY GEYRLY @eupteentagn ISPN NYPP = NP o# NSCEN = DIMENSION DIMENSION UIMENSION DIMENSION DIMENSION TU THE NEXT, PEAK DEMAND BY PATH AND PERIOD ee ee ee ee ew ww ew ew ew) 6FUR ANCHORAGE ee © 8 ee ee we ee oe ew ow) 6FOR FAIRBANKS oe 8 ee ew we ew we ew ow we ow 6 FOR GLENNALLEN AVERAGE ENERGY BY PATH ANU PERIOD eo © © © © © © © © oe © © ew ew ow o_o FUR ANCHORAGE ee 0 ee © ee ww ew ew ww og © FUR FAIRBANKS ee 6 © © we © ew ww ee ww ow « FUR GLENNALLEN YEARLY DEMAND TU BE CALCULATED eo © © © © © © © © © ew © ww ww FUR ANCHORAGE oe ee ee ew ww oe we © © o FUR FAIRBANKS ee ee we we oe © © © © © © FUR GLENNALLEN YEARLY AVERAGE ENERGY TU BE CALCULATED oe © ee © 6 ee ew 8 8 ww ew cw ew © FUR ANCHURAGE ee © © © ee © ee ww ww ww ow oo FOR FAIRBANKS oe © © © © © © © ow ew ew ew ww ew ow FOR GLENWALLEN . PATH INDEX ARRAY NUMBER UF YEARS PER PERIOD NUMBER OF PERIODS NUMBER OF PATHS PEAKDM(3,11), YRLYDM(3,30)¢ ISPN(10) AVENGY(5,11), YRLYEN(35, 50) APEAK(3e11), FPEAK(3,11), AENE(3¢11), FENE(3,11) APYRLY (3,30), FPYRLY(3,30),AEYRLY (3,50) ,FEYKLY (3,30) = FUR GLENNALLEN GPEAK (3411) GENE (3,11) -GPYRLY (3,30) -GEYKLY (3,30) DO 50 IT=1,NSCEN TYR=0 NPPLSWP + 1 DU 40 J=e2,NPPL DELTA=PEAKNMC(ISPN(I),J) = PEAKUMCISPN(1),J=1) XINCRESDELTA/FLUAT(NYPP) DELTA=AVENGYCISPNC1),J) = AVENGY(ISPN(L),J=1) B.122 M0L15210 M0015220 0015230 mMU015240 0015250 M0015260 M0015270 m™u019260 0015290 M0015500 M0D15510 ™0019320 MUD1S536 m00153540 Mu015350 40015360 M0D15370 M0015380 MO015390 M0015400 m0015410 “0015420 M0015430 #0015440 M0015450 6015460 mUD15470 M00154860 40D15490 40015500 “0015510 m0015520 MOD15530 0015540 40015550 ™u015560 40015570 M0015580 40015590 40015600 m0015610 MU015620 M00156 50 MOV15640 0015650 M0D156060 0015670 40015060 M0D15690 m0015700 40015710 m0015720 m0D159750 0015740 M0015750 40015700 50 40 $0 CUN CONTIN RETURN END XINCK2SVELTA/FLOAT(NYPP) DELTAZAPEAKLISPN(I),J) = APEAK(ISPN(1),J"1) XINCR3SVELTA/FLOAT (NYPP) DELTA=FPEAK(ISPN(I),J) = FREAK CISPN(1),J=1) XINCR&SUELTA/FLOAT(NYPP) DELTASAENE(ISPN(I),J) = AENE(ISPN(I),J=1) XINCRSSVELTA/FLOAT (wYPP) DELTASFENE(ISPN(1),J) = FENECISPN(I),J=1) XINCROSUELTA/FLUAT(NYPP) = - FUR GLENNALLEN DELTA=GPEAKCISPN(1),J) = GPEAKCISPN(I),J=1) XINCR7SDELTA/FLOAT (WYPP) DELTASGENE(LSPN(I)¢J) = GENECLISPN(I),J=1) XINCRSSVELTA/FLOAT(NYPP) DO 30 K=1,NYPP TYRSIYR + 1 YRLYDM(ISPN(L)/1YR)SPEAKUMCISPN(T),J-1) + K*XINCK YRLYEN(TSPN(T) p LYR)SAVENGY(ISPN(T),J-1) + KeXINCRK2 APYRLY CISPN(I) TYR) SAPEAKCISPN(I) e Jed) + KeXINCRS FPYRLY(ISPN(I),/1LYR)SFPEAKC(ISPN(I)¢J-1) + KeXINCR4 AEYRLY(ISPN(I), TYR) SAENECISPNCT) Je) + K*XINCRS FEYRLY(ISPN(I),1YR)SFENE(ISPN(I),J-1) + K*XINCRO = - FUR GLENNALLEN GPYRLY(ISPN(I),1YR)SGPEAKCISPN(I),J-1) + K*XINCR7 GEYRLYCISPN(I) /1YR)SGENECISPN(I), Jel) + K*XINCRE CONTINUE TINUE UE B.123 MOD1S770 ™UD15780 m0019790 40015800 M0015810 0015820 40015850 M0015640 40015850 MOD 19860 Mu015870 ™0015880 MOD15590 Muv15900 MUD15910 MOD15920 40015950 M0015946 40015950 M™UD15960 40015970 MUD15980 MUD15990 M0016000 m0016010 MUD16020 M0016030 MOD16040 mOD160Su MGO16060 M0016070 aoaannanannenanaanaNAANAAMAANAANAMAAMAAANAAALA annNaonn 30 SUBROUTINE DETLUC (BLOC,PwW,VNLUC,YRLYDM, YRLYEN,VEMT8,AVETB, + LReNSCEN,ISPNe¢XLOC,XALFeFYLUC,FYALF ) THIS SUBROUTINE CALCULATES LOAD DURATION CURVES FOR EACH YEAR OF EACH PATH GIVEN THE IWPUT LOAD DURATION CURVE AND THe DEMAND AND AVERAGE ENERGIES FUR EACH YEAR UF EACH PATH, PARAMETER DESCRIPIION? BLUC = = INPUT LOAD DURATION CURVE Pw = © INPUT PEAK wlOTH VMLDC = = INPUT ARRAY OF DECIMAL PERCENTAGES UF AREA TO INCREASE UR DECREASE LDC AREA BY YRLYDM = = YEARLY DEMAND (EACH YEAR OF EACH PATH) YRLYEN = = YEARLY AVERAGE ENERGY (EACH YEAR OF EACH PATH) DEM76 = = FIRST YEAR DEMAND AVETH = = FIRST YEAR AVERAGE ENERGY LR = = TOTAL NUMBER OF YEARS IN PLANNING HURIZON NSCEN = = NUMBER OF PATHS ISPN © = ARRAY UF INDEXES FOR PATHS XLDC © © KESULTING LUC CURVES FOR EACH YEAK OF EACH PATH XALF = = RESULTING AREAS UNDER LUC'S FOR EACH YEAR UF EACH PATH UN RETURN, THEY ARE THE YLF VALUES CALCULATED FROM ThE AVE ENERGY AND DEMAND FOK THE GIVEN PATH AND YEAR FYLUC © = RESULTING FIRST YEAR LOC FYALF © = RESULTING FIRST YEAR AREA UNDER LOC ON RETURN, IT IS THE YLF VALUE CALCULATED FRUM THE AVE EWERGY AND DEMAND FUR THE GIVEN PATH DIMENSION BLDC(12¢2)¢ VMLDC(10), YRLYDM(3,30), YRLYEN(3,30) OIMENSION ISPN(10),— XLUC(3¢50,12), XALF(3,50), FYLUC(1e) CALCULATE LUC FOR FIRST YEAR vO S T=1,le FYLOC(T)=BLDC (1,1) CONTINUE COMPUTE YEAKLY LOAD FACTURK FROM AVERAGE ENERGY AND PEAK DEMAND YLFKEAVETS/ (DEM784%8,76) TOLERANCE FOR CUNVERGENCE [S 1% OF YLFK TOLER=.01*YLFK NITER=O NITER=NITER + 1 . IF (NITER .LE. 10) GO TO Se PRINT $1, (FYLDC(1),151,12),FYALF,YLFK B.124 mMUD16060 MUU16090 muDLOLOU MUV16110 MUD1L612eu m0U10130 400160140 0016150 MO010160 0016170 M0D161480 ™U016190 MOD162U0 mU016210 MUD16220 0016230 40016240 0016250 M0016260 m0D10270 MO016280 MUD16290 MOD16300 40016310 M6016320 40016330 MUD16540 M™GD16350 MUD 16300 M0016370 M0D163860 MUD16390 MOD16400 MO0160410 ™0016420 M0010430 40016440 40016450 40016460 m0016470 40016460 MOD16490 MOD16500 MUD16510 MUu0D16520 40016530 40016540 ™G016550 MOD16560 MOD16570 MUD16580 40016590 M0016600 MOD10610 M0D16620 “40016650 MUD1664u ono co oo anna sTuP MOD1665u 51 FORMAT (' SUB DETLOC? ITERATION LIMIT OF 1U REACHED's/y MUD 16660 1 " FIRST YEARS FYLOCS ',/, MOD16670 2 12Fo.5,/, M00 16680 % * FYALF= ',F7.4,° YLFK= ',F7.4) UD 10690 ™0016700 40016710 32 CONTINUE MOD16720 FYALF=0.0 40016730 00 40 153,11 m0016740 FYALF=FYALF + .OS*(FYLDC(I) +# FYLDC(I+1)) m0016750 40 CONTINUE MUD16760 FYALFSFYALF + .5%(,.1 = PW)*x(FYLOC(2) + FYLUC(35)) MOD16770 FYALFEFYALF + ,SePwx(FYLOC(1) + FYLOC(2)) MO0D16780 MOD1679U XDIFF=YLFK = FYALF m0016800 IF C(ASS(XDIFF) .LE, TOLER) GU TO SU MOD16810 AREA=XDIFF*VMLDC (1) M0016820 FYLOC(3)SFYLDC(5) # 2," (AREA/,1) MUD 16850 FYLOC(2)=(FYLOC(1) + FYLUC(3))72.0 40010840 ™0D16850 DO 45 124,12 MUD 16860 ARKEA=XDIFF*eVMLUC (1-2) MUD16870 FYLDC(I)=FYLOC(I) + (AREA/.1) MUD 168480 45 CONTINUE MUD 16890 MOD16900 TRY AGAIN WITH MOVIFIED LUC MOD16910 GO TO 30 MuD1L692U MUD 16930 “0D16940 50. CONTINUE MUD 16950 : SET FYALF TO THE "CORRECT" YLF 4001649600 FYALF=YLFK mOD16970 NORMALIZE LOC VALUES 40016960 bu 51 Is1,1e MU016990 FYLUC(L)=FYLDC(I) ZFYALF mO017000 51 CONTINUE MOD1701L0 0017020 MUD17050 REPEAT THE PRUCEDURE FOR EACH YEAR UF EACH PATH 40017040 MUD17050 MUOLTUBU 00 90 K=1,NSCEN 40017070 00 65 L=1,LR i MUDL7080 00 55 I=1,12 “ MgD17090 XLDCCISPNCK) »Le T)S8L0C (141) MO017100 59 CONTINUE mu017110 mo017120 YLFK=YRLYVEN (ISP (K) ,L)/7(YRLYUM(ISPN(K) ,L) e470) MOD17150 TULER=.01*YLFK muv17140 NITER=O Muv17190 ; 40017160 6u NITERSNITER + 1 M0D17170 IF (NITER eLE, 10) GY TO 62 M0017180 PRINT 61, Kel, UXLUC(ESPN(K) eb el), 131,12), 4ALF(ISPN(K),LI,YLFK MUD17190 slop mov17200 ot FuRMAT (* SU DETLDC? LTERATION LIMI7 QF 10 REACHED',/, MUU017210 B.125 Gc he 6S 70 40 a1 385 90 wun eVSR(XLOCCISPNUK),L/I) + XLDCCISPN(K) Le let)) CALUCCISPN(K) eb ee) + KLUCCISPN(K) sb 6 3)) CXLUCCISPNCKIeL 61) + XLUCCISPN(K) pL 2)) XLOCCISPN(K) -Le2)F(XLOCCISPN(K) ob el) + XLOCKISPN(K) 6b 45)) 7260 ' PATH= ",Ti,' YEAR= ',le leFoe3e/e " XALF= ',F7.4,° YLFR= CONTINUE XALF CISPN(WK),LI=0.0 DO 65 155,11 XALF CISPN(K) ¢L)SXALFCISPN(K)6L) + CONTINUE XALF (ISPN(K),LISXALFCISPN(K),L) + .Se(.1 XALF CISPN(K),/LI=XALFCLISPN(K),L) + .S*PWe XDIFFSYLFEK = XALFC(ISPN(K),L) IF (ABSCXDIFF) LE. TOLER) GO TU Bu AREASXDIFF RVMLIC (1) ALOCCISPN(K),L¢3)SXLUCCISPN(K),L,3) + 2,%(AREA/.1) vO 70 124,12 AREASKDIFF xVMLOC (1-2) XLUC CISPN(K) ¢Le TJ =XLDCCISPN(K) obo T) * (AREAS eI) CONTINUE 60 Tu 60 CONTINUE SET XALF TU THE 'CORRECT' YLF XALF CISPN(K),LISYLFK UO 61 T=1,12 XLOC CISPN(K) ¢b eT) =XLUCCISPNOK) pho 1) /KALECISPN(K) (LD) CONTINUE CONTINUE CONTINUE RETURN END o* xLDCS', ",F7.4) B.126 a = Pw)* MUD17220 mMu017250 mMuD17240 MUD17250 mUD17260 Muv1i727U MUDIT7T2bU ™u017290 0017500 mO017310 MUD17 520 M0017350 M0D17340 m0017350 MUD17400 40017370 MOU17360 MOU17390 m0017400 m0017410 m0017420 0017430 40017440 m0017450 40017460 ™0017470 MOD1 7460 mMGDi7490 m™uv17500 mud17510 Mu017520 0017550 MO017540 ™u017550 MUD17560 MOU017570 MOD17580 “0017590 MOD17600 M0D0176010 AANMGeEANNAANMNANANAGAANANAMAAeAANAANAAAG aoaaa OeO oeaa SUBROUTINE FAIRCK (TKNAM,FAIR,IIFALR,CCAP76,CEP,RETIRE) THIS SUBROUTINE DETERMINES I[F THERE EXISTS NUN@HYDRU TECHNOLUGIES FOR FAIRBANKS (CINUICATED BY THE TECHNULUGY NAME BEGINNING WITH AN 'F") AND IF CAPACITY EXISTS FOR EACH UF THESE TECHNOLOGIES FOR YEARS 19 (1961-1989) FOR SUCH TECHNOLOGIES, THE TECHNOLOGY NUMBEK 1S STURKED IN ITFAIR VARTABLES = = TKNAM = ARRAY OF TECHNULUGY NAMES FAIR = FLAG TO INDICATE IF FAIRBANKS NONR@HYURO TECHNULUGIES EXIST LTFAIR = RETURN ARRAY OF NON@HYDRU TECHNOLOGY NUMBERS ASSUCTAITED WITH FAIRBANKS CCAP78 = FIRST YEAR CAPACITY CEP | EACH YEAR'S ADDITIONAL CAPACITY RETIRE = EACH YEAR'S RETIREMENTS LOGICAL FAIR(9) OIMENSTON TKNAM(16,2),ITFAIR(9,9) -1TFR(9) DIMENSION CCAP78(16) CEP (16/3175) eRETIRE (10,31) TNAME IS USED TU ACCESS ALL THE CHARACTERS IN A TECHNOLOGY NAME LOGICAL*1 TNAME(6),BLNK,FCHR,ACHK EQUETVALENCE (XNAM1,TNAME(1)), (ANAM2, [NAME (9) ) DATA BLINKK,FCHR,ACHR /' ',°F', 9 Abs bO 2 [51,9 OU 1 Se1e9 ITFAIR( Ie J) 50 CONTINUE ITFR(I)=0 CONTINUE DO 3 J=1,9 FAIR(J)=.FALSE, CONTINUE ONLY INTERESTED IN THE FIRST 9 TECHNOLUGIES, WHICH ARE ASSUMED TO KE NUN*HYDRO B.127 MOD17620 M0QD17650 MUD17640 0017650 40017660 MOD1I7070 40017680 MUD176090 M0017700 MOU17710 MU017720 M001775u 40017740 M0D17750 MUD17760U ™U017770 M™0D17760 MULD17790 mu017800 MUD17810 40017820 M0017830 ™0017640 M0D17850 40017860 MOD17870 40017880 40017890 m0017900 M0D017910 0017920 M0D17930 ™0017940 40017950 40017960 MUU1797U M0017960 mu017990 MOD17993 MUU17995 M0D018000 MUD18010 MO0d18020 M0018030 M0016040 m0018050 MUD 18060 M0018070 MUD18060 M0D18090 MO0D18100 M00186110 M0D16120 0018150 MOD18140 40018150 40U18160 c MOD186170 LTF=0 MUU18100 c M0018190 Ov 10 T31,9 MUU18200 XNAMLETKNAMCI 41) MOU1b210 XNAM2=TKNAM(I,2) MO016220 DO 5 J=1,6 MU0162$u IF (TNAME(J) EG. BLK) GO TU 9 40018240 GO 10 © MO0162e50 9 CONTINUE MO0V16260 c TECHNULOGY NAME ALL BLANKS, SO SKIP IT 40016270 GU TO 10 MOD1 6260 2 CONTINUE 0018290 G CHECK IF FIRSI NUOW*BLANK CHARACIER IS 'FE 40018300 c (THIS INDICATES A FAIRBANKS TECHNOLOGY) MUu018310 IF (TNAME(JS) .NE. FCHR) GO TO 10 MOD18320 ITF=11F + 2 MUuD18330 ITFRCIIF) =I 40018340 10° CONTIWUE MOD16350 c 40018360 c CHECK IF CAPACITY IS AVAILABLE FUR EACH UF THE FAIRBANKS MOD18370 Cc TECHNOLOGIES 1N EACH YEAR 1-9 M0018380 c MUD 16390 If CITF LE. ¥) GU TO 20 MO018400 c MUD1B410 00 15 J=1,9 MO0186420 1T=0 0016430 OO 14 I=1,ITF 40016440 CAPSCCAPTH(ITFR(I)) * CEPCITFR(I)¢d+1,3) = RETIRE CITFR(I), Jl) 40018450 IF (CAP .LE. 0.) GO TO 14 MO018460 IT=IT + 1 MuD18470 ITFAIRCIT, JJ=1TFROI) MOU1 8480 ia CONTINUE MUD18490 IF (IT GE. 1) FALR(J) =. TRUE. 40018500 15 CONTINUE MO016510 20° CONTINUE MOv16520 c MUDL8S 30 c MUD18540 RETUKN ™0018550 END MOD18560 B.128 9) OT 1G) C69 De GD ie Ep Oo Ca: IDO ral aaan on SUBROUTINE FLURDR (VC,ENV,LOAD, LIFATK,LCFAIR) THIS SUBROUTINE IS A MODIFICATIUN OF SUBROUTINE LORDER, UNDER CERTALN CUNLITIONS, THIS SUBKOUTIWe LS CALLED TO MODIFY THE NORMAL LOAVING ORDER TU FURCE THF 2 LEAST COST NUN*HYURU FAIRBANKS TeCHWNGLOGIES WITH CAPACITY FIST Iw THE LOADING ORDER, VARIABLES = = ITFaIR = ARRAY OF TECHNULUGY NUMBERS ASSOCTATED WITH FALRKBANKS LCFAIR = 2 LEAST CUST FAIKRANKS TECHNULUGLIFS WI1H CAPACITY DIMENSION VC(9),ENWV(9) -LOAD(9), INDEX(9) DIMENSION ITFAIK(9),LCFAIR (2) DETERMINE 2 LEAST COST FAIRBANKS TECHNULUGIES TLOW=1 bo 1 [51,9 INDEX (1)=1 DO 4 K=1,2 bo 2 121,9 IF CITFAIR(1) «EG. 0) Gu TO at IF CINDEX(IT) EU, 0) GU TU 2 IF (VCCITFAIRCI)) + ENVCLTFAIR(I)) «LT. * VCCITFAIR(ILON)) + ENVCLTFAIR(ILOW))) LLUWeT CONTINUE CONTINUE AVOID DOUBLE CUUNTING IF ONLY 1 FAIRBANKS TECHNOLUGY IF (KR .EU. 2 AND. LOFAIR(1) cE. ITFAIRK(ILUW)) GO TO 4 LCFAIR(KJSITFAIRCILOW) INDEX (ILGwW)=0 bu $ T3149 IF (ITFAIR(I1) .EG. 0) GO TO 4 IF CINVEX(I) .EG, 1) ILOw=I IF (CINDEX(I) .EU, 1) GO TU 4 CONTINGE CONTINUE 00 6 T=1-9 INDEX(1) 51 [S=1 00 7 [Slee IF (LCFAIR(1) .tU. 0) GU TU & B.129 MOD18570 MUD18560 M0018590 M0018006 MO018610 MUL18620 UD 16050 40D18640 M0018650 MUD 18060 MU0D186/0 M0D186860 40016690 MOD18700 M0018710 MUD1872u AUD 187450 46018740 40018750 MUD18760 40018770 4u018780 6018790 ™0018800 40018610 MO018820 M0D156 Su MUD 16840 M00188650 MOD16860 MOD18570 m™OD1866U M0018890 4UD18900 MUD16910 m™UD18920 M0U18930 0018940 MO018950 MUD 18960 M0D16970 MUV18980 mu01899U M0019000 MOD19010 MUv19020 MOD19U030 0019040 M0D19050 m00190600 MUD190TU M00190680 Muv19090 MUU19100 MOUI9IILU MuD19120 MU019130 20 40 40 LOAD(L)SLCFAIR(T) INDEX(LCFAIRN(1)) =0 [SsIs +1 CONTINUE CONTINUE bo 9 [=1,4% IF CINDEX(I) EG. 1) ILOwsI IF (Iwvex(1) -EG. 1) GO To 10 CONTINUE CONTINUE bU 40 J=IS,9 DO 20 1=1,9 IF CINDEX(1).EU.0) GOTO 20 IF (VC(T) ¢ENVCL) LI. VCCILUW) tENVCILOW) ) ILOWsT CONTINUE LOAD (J) =ILOW 1WDFX(CILOW)=0 DO 30 1=1,9 IF CINDEX (1) EQ.1) LLOW=E (FCINDEX(T).Eu.1)60TO 40 CONTINUE CONTINUE RETURW END B.130 MUD19140 0019150 MU019100 MOU19170 M0D19160 MUD19190 MUD19200 MO019210 40019220 MUD19230 M0D019240 MU0D192e50 mMUD19260 MUU19270 MUD19260 M0019290 m0GD19300 40V19510 MU019320 MU019550 MUD19340 40019350 MU019360 M0D19370 MUD19380 M0D19390 AQAANNANANMANAANMANMAeEANAAMAMAMANAANAAAA aaana Hoenaca one o SUBROUTINE SVHUMS CIYR,TKNAM,CAPPEUUT, ITYPL,NLP,UUTXL, + ACAP, AGEN, FCAP,FLEN, XLOLP) - © THIS SUBROUTINE CALCULATES AND SAVES THE DATA RELEVANT TU THE ANCHUKAGE*FAIKBANKS INIERTIE REPORT GENERATED BY SUbKOUI INE WRTINT. IN ESSENCE, EACH TECHNOLUGY'S INSTALLED CAPACITY AND ENERGY GENERATION IS CATAGUKIZED Ad ANCHURKAGE OR FAIRBANKS DEPENDING ON THE FIRST NON=3LANK CHARACTER IN THE TECHNULUGY NAME (A OR F). VARIABLES: IYR - CURRENT YEAR TKNAM - ARKAY UF TECNOLOGY NAMES CAP - INSTALLED CAPACITY FUR EACH TECHNULUGY eOuT - ARRAY CONTAINING THE ENERGY GENCRKATION FOR EACH TECH. [TYP - ARRAY INDEXING EUUT ACCORDING TU TECHNOLOGY NLP - NUMBER OF TECNULUGIES UuStD OUTKL - ARRAY CONTAINING LOSS UF LUAD PROBABILITY ACAP - SUGROUTINE OUTPUT OF INSTALLEU CAPACITY FOR AWCHURAGE FCAP = o 6 6 fe ee 8 wo ew ww 8 ww ww ow 2 ow « FAIRBANKS AGEN - SUBROUTINE GUIPUT OF EWERGY GENERATION FOR ANCHURAGE FGEN = ee 6) 6 FATRBANKS ee © © © oe we we ee ew eo- XLOLP - SUBROUTINE OUTPUT OF LOSS OF Load PROBABILITY DIMENSION TKNAM(16,2), CAP(10), EQUT(100,3,2), ITYP1(100) DIMENSION UUTXL (3-2) ,ACAP (30) ,FCAP( SU), AGEN(30) ,FGEN( 50) UVIMENSION XLOLP(30) TNAME TS USED TO ACCESS EACH CHARACTER IN A TECHNOLOGY'S NAME, LOGICAL#1 TNAME (6) -BLNK,FCHR, ACHR EQUIVALENCE (XNAM1L, TNAME(1)) 4 (XNAM2, TNAME (9) ) DATA BLNK,FCHK,ACHR /' ', °F, *Atys UNLY INTERESTED IN THE FOLLOWING SUBSCRIPTS UF EUUT AND OUTXL (SEE SUBRUUTINE EXPEN) SAVE LOLP FUR THIS YEAR XLULP (TYR) =UUTXLCLH, IP) ACAP(IYR)=0,0 FCAPCIYR)=0.0 AGENCIYR)=0.0 B.131: mvu019400 0019410 MUD19420 m001943u M0D19440 MUD19450 MUD194600 40019470 MUD19480 MUD19490 MUD19500 MUD19510 M0U19520 mu019550 ™0019540 40019550 4001956u MUD19570 MU019580 4U019590 MOU190U0 4UD19610 MUD19620 M0LD19630 MUD19640 ™00196050 MU019660 muD19670 M0D19680 400196090 Mu019700 MOD1971U MUD19720 MU019730 MOU19740 0019750 M0D19760 MUD19770 MUD1978uU M0019783 0019765 mu019790 0019600 M0019810 MUD19820 MUD 19830 M0019840 mOD19650 MUD1986U 40019670 MUD 19880 M0D19690 MOU19900 MODI991LO MUD19920 ™u019930 M0D19940 oa aa Bic 45 47 49g 90 FGE vo CcuN RET END NCTYR)=0.0 Su I1=1,NLP LsITYPitl) XNAMISTKNAM(L,1) XNAM2=TRKNAM(L, 2) bU 45 J=1,6 IF CTNAME(JJ 60. BLNK) GO TO 45 Go TO 47 CONTINUE TECHNOLOGY NAME ALL BLANKS, SO SKIP 60 TO 56 CONTINUE TECHNULUGY NUT ASSOCIATED WITH ANCHORAGE UR FALRKBANKS, FCHR) GO IF (TNAME(J) ,NE. ACHR AND, NAME (J) IF (CTNAME(J) .NE. ACHR) GO TO 49 ANCHORAGE ACAP(LYK)=ACAP(TYR) + CAP(L) AGENCIYR)JZAGENLIYR) + EQUTCI,1n, IP) GO TO SO FAIRBANKS CONTINUE FCAP(IYR)=FCAPC(IYR) + CAP(L) FGENC(IYR)=FGENCIYR) * EUUTC(I,IH, IP) TINUE URN B.132 SO KTP io 30 MUD19950 4uD19960 MU019970 MO0D19980 M0019990 MUv20000 MUD20010 mUV2002U mud20030 M0020040 40020050 M0D200600 40020070 40020080 mO020090 MOV2u100 m0020110 mOD2012u0 400201350 MGD20140 0020150 0020160 MOD2017u mOD20160 MOD20190 mud20200 mMUD20210 m0020220 MUD20250 MOD2024U MUD202e50 MGD20260 MOD20270 AOANNAMANANRNGANAAANN on an anoaana AG SUBROUTINE SVENG CIYR,EQUT,TEYP1,NLRe TECHEN) THIS SUBRUUTINE SAVES THE ENERGY GENERATION FOR EACH TECHNULUGY VARIABLES LYR €0uT 1TYPL WLP TECHEN AND EACH YEAR CURRENT YtAaR ARRAY CUNTAINING THE ENERGY GENERATION FUk EACH ULUGY ARRAY INDEXING EQUT ACCORDING TO TECHNOLOGY THE NUMBEK OF TECHNOLUGIES USED ENERGY GEWERATED FOR EACH TECHNULUGY AND EACH YEAR OIMENSION EQUI (10U,;3¢2)—¢ ITYP1(100), TECHEN(16, 30) ONLY INTERESTED In THE FOLLUWING SUBSCRIPTS UF EUUT TH=1 Ip=2 (SEE SUBRUUTIWE EXPEN) vO S I=1,16 TECHEN(I,IYR)=0.0 5 CONTINUE bu 50 T=1,NLP LSlTyPi(l) TECHEN(L, IVR) SEOUTCI, 1H, IP) 50 CONTINUE RETURN END B.133 MUD2028U mOD20290 0020300 mMUD20510 MUD2Z0S2U m0D20330 mM6O020540 mOD20550 mOD2036u M0020370 mMOD2U 360 MO0D2U390 MOv204U0 mMovev4lu mO0D204e0 MOD20440 MGD20440 mOD20430 m0D2046U mMuD20470 MOD20480 MOD2049U m™0v20500 mod20510 mO020520 MOD20530 m0020540 m™0D20550 m0020560 mOV20570 MOD20560 M0D20590 mOD20600 MO020610 MOD20620 MOoD2e06 30 MUD206040 M0020650 MOD20660 MU0D20670 mOD20080 MUD20690 MQANMACAAA ° an aae oo ocaan ao $9 + + SUBRUUTINE DEMPRT (TITLE, YEARS, TKNAM, IS, NPe LY ReCEP DENS DEMTE, PRM,RETTREsNS,CCAPTb, AVE78,YRLYEN, TECHEN) THIS SUBROUTINE SETS UP THe LATA FUR (FOk EACH TECHNOLOGY) PRINT LG THE CAPACITY BY YEAR ANI) ENERGY GENERATION HY YEAR, DIMENSION TITLE (19), YEARS(5) CEP (1675163) ,VEM( 30) + 1KNAM(16¢2) DIMENSLUN 15( 50), RETIRE (16,31) ,CEPCIIM(31),CCAP7T8(16) DIMENSION YRLYEN( 5,30), TECHEN( 160,30) LOCAL VARTABLES DIMENSION TECCAP(10), INDTEC(9) LOGICAL ADDEDLibO), Te F DATA Ty F/ « TRUE ws oFALSE./ QUTPUT UNIT NUMBER LOUT=1i2 DETERMINE Te NT=O bO S I=1,16 ADDEN(I)= CHNOLUGIES USEU F IF (CCAP76(T) * CEPCIZIYReisNS) + RETIRE CLs 1YK+1) oLTe 01) Go TU ADDED (TI) = IF (1 .GE NT=NT + 1 INDTEC(NT CONTINUE CAPACITY 2 T e 10) GO TO 5 2=1 WRITE HEAUINGS WRITE (LOUT, 100) TITLE IFYKSIFIX(YEARS(1)) LYEAK=IFYR + LYR WRITE (LOUT, wRITe (LOUT, WRITE (LOUT, TLYR=LYR#1 DO 50 J=1,11 110) IFYR,LYEAR,PRM, (I5(1),1=1,NP) 115) CTKNAMCINDTEC (CT) 61) e TKNAMCINDTEC (1) ¢2),1=1,N1) 120) Yk LYEARSIFYR # (J-1) VECCAP(1) bo 30 TF1 =U0,U Urlo IF (,wOFl, AVUEU(I)) GY TO 30 TECCAP(L)STECCAP(L) * CCAPT8(L) * CERCA edeNS) © RETIRE CIS J) CUNTINUE B.134 mU020700 MU020710 MOD2uT20 MOD20750 MOD20740 M0020730 MOO2UTb6U 0020770 MOV20780 M0020790 MOU20600 MOD2081U MOD2U620 m00208650 MUD2084u MGD 20850 MOV20660 mO020670 MOD20680 40020690 MUD20900 MUD20910 MUD20920 MOUD20930 MO0D20940 m6020950 M0D20960 40020970 MUD20980 mUD20990 MudD21000 0021010 mMOD21020 m0021030 MO0D21040 mov210S0 MUD21060 mUD21070 MUD21080 MUD21090 mMuveilud mODe1110 M0D2e1120 mMOv211S0 MUV21140 MOvellsu MUD21160 mO0vU21170 MOD21180 M0021185 MOD21190 m0021200 MUU21210 MUDeleeu Muv21230 MOD21240 mUv2el2>0 40 ao so AAeoenon eo a0 100 110 lit 115 llo 120 125 1s0 DO 40 T=1,NT TECCAP(I+1)=CCAPTSC(INDTEC(I)) + ® CEPCINDIEC(T),JeNS) = RETIRE CINDTEC(1),J) CONTINUE IF (J EU. 1) * | WRITE (LUUT,125) LYEAR, DEM76, TECCAP(1), x (TECCAPCINOTEC(1) 41) ,151,NT) IF (J .Nt, 1) * WRITE (LOUT,125) LYEAR, DEM(J-1), TECCAP(1), * (TECCAPCINOTEC (I) +1),1=1,NI) CONTINUE ENERGY GENERATIUN TABLE WRITE HEADINGS WRITE (LOUT,100) TITLE LYEARSIFYR + LYR WRITE (LOUT,; 111) IFYR,LYEAR,PRM, (IS(1),I=1,NP)- WRITE (LOUT,116) (TKNAMCINUTEC (I) 51) ¢TKNAMCINDTEC(1)¢2),151,NT) WRITE (LOUT,120) WRITE (LOUT,130) IFYR,AVE7S bO 60 J=1,1YR LYEARSIFYR + J HYEWG=0,0 00 95 1=10,16 IF (,NOT, AUDED(I)) GU TO 55 HYENGSHYENG + TECHEN(I,J) CONTINUE WRITE (LOUI,125) LYEAR, YRLYENCIS(1),J) -MYENGe + (TECHENCINDTEC(1),J)-TE1,N1) CONTIMUE FORMAT ('15,1984,3560X,"CPRT REPORT") FORMAT (f ',' PEAK DEMAND & CAPACITY (MW) bY YEARS", 1 2x,14,'=",14,", Pkm= ',FO.5,', TREE PATHS ', 2 BOLL, 4,1) FORMAT (' '," ENERGY GENERATION (GWH) BY YEAK? Lr 1 2X,14,'="+14,', PRM= ',F6.3,', TREE PATHS ', 2 SOLL¢/ 1X) FORMAT ('O',"YEAR'; 2X," DEMAND 's4Xe' HYDKU '49(2X,' 'eA4sA2)) FORMAT C'O's * YEAR"? 2X," ENERGY '¢4X-¢' HYDRO "492K," "eA4,A2)) FORMAT (1X) FORMAT (1X,14,2X,F8.0,4X%,F8.0,9(2X,F 4,0) ) FORMAT (1X,14,2X,r8.0) RETURN END B.135 MuD21260 mMOU21270 MOD21260 mOD21290 ™Uu021 500 MGV213510 MO021320 40021330 MOD21340 ™6021350 MOD21 560 mOD21570 MUD213580 0021390 MOD21400 40021410 MOD21420 MO0D21430 mMUD21440 M0021450 MOD21460 MOD21470 MUD21460 mU021490 MOD21500 mO021510 MUD21520 m0021530 - 40021540 mud21550 MUD21560 0021570 mMOD21560 0021590 mMOD21600 Mud21610 MOD21620 M0D21630 MUD21640 mOD21650 M0021660 mO021670 MOD2168uU MOD21690 mOD21700 mod21710 MOD21720 m0021730 0021740 m0021750 MOD21760 mu021770 MOD2176U ™0021790 MOD21600 m0021810 M0021620 MNeANenaNnnoOeMMANAAAeAVeABAe2ANAMAAMANVKNXAMAANAAANG an c loo lol SUDRUUTINE wWRISUM (FIXPRC,VARPRC, YRLYDM,UVEM76, YRKLYEN,AVETB, + + IFFYR,LR,PRM,1S,NP,INFLA,CUSC, ISPN,NSL, AECUNS, PKCUNS, ICCUNS,PCCUNS, TATLED THIS SUSRUUTINE PRODUCES THE FINAL CUS] SUMMARY TABLE REPURT THIS SUBROUTINE ALSO OUTPUTS POWER COSTS FUK EACH PRM AND PLANWING YEAR UNDER ThE MEDIUM PATH, THe OUTPUT FILE 1S 'AREEP.DAT® (UNIT 19). THIS FILE IS USED BY PRUGRAM KEL VIA PRUGKAM RATE, PARAMETER DESCRIPI IONS: FLXPRCE VARPRC YRLYDM DEM78 YRLYEN AVE78 IFFYR LR PRM 1s NP INFLA cosc ISPN NSC AECONS PKCUNS TCCUONS PCCUNS BIIce eos oenpetvaewaaagn perevuea AKRAY OF FIXED PRICES BY YEAR AKRKAY UF VARIABLE PRICES BY YEAR YEAKLY DEMAND BY PATH FIRST YEAR DEMAND YEARLY ENERGY &Y PATH FIRST YEAR ENERGY FIRST YEAR PLANNING HORIZON BY YEAR RESERVE MARGIN AKRAY INDEXING THE PERIODS UF EACH PATH NUMBER OF PERIUDS INFLATION RATE CUNSUMER DISCOUNT RATE ARRAY INUVEXING THE PATH CURKENT PATH YEARLY AVERAGE ENERGY FOR CONSERVATLUN YEARLY DEMAND FOR CONSERVATIUN YEARLY TOTAL COST FOR CUNSERVATIUN YEARLY POWER CUST FUR CONSERVAITIUN IuPuT TITLE UF RUN DIMENSION FLXPRC(100),VARPRC (100), YRLYDM(3, 30) ,YRLYEN(3,30) DIMENSION IS(10),19PN(10), TITLE (15) DIMENSION AECUNS(5,31),PKCONS(3,31),TCCUNS(3,31),PCCUNS(3, 51) REAL INFLA Lours13 LYR=SIFFYR FACTOR=(1.0 + ITNFLA)/(1.0 * COSC) UUTPUT HEADINGS WRITE (LOUT,100) TITLE FORMAT C'L', 19A4,16X%_,'CSUM REPORT") wRITE (LOUT,101) PRM, (IS(1),1=1,NP) FORMAT c PRKM= ',F6.45,27XK, TREE PATH= *, 45011) WRITE (LOUT,105) B.136 MOD21850 MUV21840 MOD21650 MUV21860 MOD21670 MOD21880 MO0218690 M0D21900 MOD21910 MO0D21920 M0021930 MOD21940 0021950 40021960 Mu021970 M0D21980 MUD2199U MOD22000 MOD22010 mUD22020 MUD22030 MOV22040 MUD22050 MOD22060 MUD22070 MUD22080 MUD22090 MUD22100 mOD22110 MOv22120 MUD22130 “6022140 MODe215u MOv22160 MOD22170 mMOV22160 MU022190 m0D22200 MUD22210 mMOVe2222u MOD22250 MUD22240 MOD22250 AN022200 MOD22270 Muv22280 MOV2e2290 MUD22500 MOD22310 MUU22S20 moD22330 MOD22340 Mud223S0 MUD22360 muv2e2e3T0 MUD22560 MU022590 aa0 aeaaanGs aanan ao on eer a0 105 110 115 120 125 126 1e7 1 1 1 FORMAT (10°, 80XK,19K,"LUAD MANAGEMENT WRITE (LOUT,110) FORMAT (SX,4x," TUTAL ELECTRICAL REQUIREMENTS "DELIVERED ENERGY',10%,4%,3X, "CONSERVATION ELECTRICITY") WRITE (LOUT,115) FORMAT C'0',4X,3 (4X, ANNUALS 2k, 5Ke2XK,! 2x,' POWER',2x,3x)) WRITE (LOUS,120) FORMAT (1X, "YEAR", 3(4X, "ENERGY', 2X," YGUG0 |*rekeskoe WRITE (LOUT,125) (LYR,1=1,3) FORMAT (9%,3(4X," (GAH) ', 2X," CMW) ' exe" 2k," M/KWHY,2X,35K)) WRITE (LOUT, 126) FORMAT (SX,3(19X,"MILLIONS', 13K) ¢/,1X) L IS THE PATH (1=LUWs 2=MED§ 3=HIGH) L=ISPN(NSC) AW") TUTAL ‘ye PEAK',2x,' CUST Well Sig US) =P ",3ee10X,7K, gexke - > IF THIS IS THE MEDIUM PATH THEN WRITE OUT PRM 10 AREEP.DAT IF (L EN, 2) WRITE (19,127) PRM FORMAT (F5.3) NOTES FIXPRC AND VARPRC ARE IN THE UNITS OF $/KWH SPECIAL CASE = = FIRST YEAR DELIVERED TODEPC=(FIXPRC(1) * VARPRC(1))/1000, TOVECOSTODEPC*AVE78/1000, LOAD MANAGEMENT AND CONSERVATIUN TCC=TCCONS(L,1)/1000, IF (AECUNS(L,1) ,tU, 0.) PCL=0, IF CAECONS(L el) .hE. 0.) PCCSICCONDS(L,1)/AECUNS(L,1) TOTAL TUAE=A4VE78 + AECUONS(L,1) TOPKSDEM7TS + PACONS(L1) TOCO=TUDECL + TCC TUPC=TOCU/TUAE®1000, PRESENT VALUE VARIABLES DELIVERED DEPVTC=TOVECU DELPC=AVE78 CUNSERVATIONW copvTc=tcc CULPC=AECONS(L,1) TOTAL B.137 Muv22400 “0022410 MOV22420 MO0V224 SU MuV2244U MOV22490 MUD22460 mUd22470 MUvD22480 mOd22490 MOLv22500 mMO022510 MuD22520 mMouees su mMuD22540 Mod22550 MUD2256U mod2e570 MOUV22580 m0od22590 MOD2260U mMOD22610 MUL22620 MOD22650 MOV2264u MUD22650 MOD2266u MOvV226070 m0022680 400226090 MOD22700 mOv22e710 mUD22720 MUD227 30 MUD22740 MU0D22750 MUD22760 MUD22770 MOD22780 mO022790 MOD22600 MOD2251U MOD2282U MOD226 Su MUD2264U M0022650 m0022600 MO022670 MUD2266u MOD22890 MOL2290U mMUuD22910 MOD22920 MUD22930 MUD22940 MOD22950 MOD22960 150 annann 151 onanaen an OQEAG + + + TOPVIc=TOcU TOLPCSIGAE WRITE (LOUT,150) LYR,TUAE, TURK, TOCU,TUPC/AVE7TB8-DEM7T6, TUDECO, TUDEPC, AECONS(L,1) -PRCONS(L,1), TCC, PCO FORMAT (1X p14, SC4X FOU, eK FS e Op 2kr FP B.epeXe FOL Gg eX, 5X)) ~ - IF VHIS TS THE MEDIUM PATH THEN WRITE OUT The POWER COST FUR THIS YEAR (1ST CONVERT TO &/naH) TU AREEP.DAT TOVEPC=TODEPC/1000, IF (L CEQ, 2) WRITE (19,151) TODEPC FORMAT (F10,4) NOW REPEAT FUR EACH YEAR OF THE PLANNING HUKIZUN PFACT=1.0 DO 50 J=1,LR TYKSIYR # 1 PFACTSPFACT*FACTOR TODEPC=(FIXPRC(J+1) + VARPRC(J+1))/1000, TODECOSTODEPC*YRLYEN(L,J)/1000, TCC=TCCONS(L,J+1)/1000, ITF (AECONS(L,J+1) .Eu. 0.) PCC=0, IF (CAECONS(LsJt1) .NE. 06) PCCSICCONS(L,J+1)/AECONS(LeJ+t1) TOAESYRLYEN(L¢J) + AECONS(L,J+1) TOPKEYRLYDM(L«J) + PKCUNS(L,J+1) TUCUSTODECU + TCC TOPC=TOCO/TUAER1OU0N, DEPVTC=UEPVIC + (IODECO*PFACT) DELPC=DELPC + (YRLYEN(L,J) *PFACT) COPVTC=COPVIC + (ICCxPFACT) COLPC=CULPL + (AECONS(L,J+1)*PFACT) TOPVTCSTOPVIC + (TOCO*xPFACT) TOLPCSTOLPC + (TOAE®PFACT) wkITE (LOUT,150) LYK, TOAE,TUPK, TUCO, TOPC,YRLYEN(L,J), YRLYDM (Le JS) e TOVECO, FUNEPC, AECUNS(LAJF1)y PKCONS(L,J+1),9CC,PCC ~ - IF THIS IS THE MEDIUM PATH THEN WkITE GUT The POWER CUST FUR THIS YEAR (19ST CONVERT TO S/mKwH) 10 AREEP DAT TUDEPCETODEPC/ 1000, B.138 MO0022970 MUD22980 MOD22990 mova 3000 MO0235010 MG023020 MUD23050 M0023040 M002 3050 MOD2 S060 m0LV23070 MUD2 5080 MO0D23085 M0023090 MG0023100 M0025110 MUD2 3120 M0D25150 muD23140 0023150 MUD231600 MU023170 MUD25180 M002 5190 mM0023200 MU02 5210 MUD2 $220 M002 3230 MUD23240 MOv235230 MOD23260 MU02 3270 M002 5280 muDes29u mMUD2330uU muv2edssivu 0023320 mud23335u mM0D2554u 0023350 M002 5560 0023370 MUD2 $3580 muD23590 mU025400 MuD2 S410 m0D23420 M0D23450 40025440 Muve 545u MUv2346U MO023470 M0D2 3480 MUU2 S490 MUD2 35UU mMODeSS1U MOD23515 oOo 50 en 155 160 IF (L QE. 2) WRITE (19,151) TUDEPC CONTINUE LEVELIZED CUSTS DELPC=DEPVIC/VELPC #1000, IF (COLPC .NEs 0.) CULPC=CUPVIC/CUOLPC*1000, TOLPCSTUPVIC/TULPC*1000, WRITE (LOUT,195) TUOPVTIC,DEPVTC,COPVIC WRITE (LOUT,160) TOLPC,OELPC,CULPC FORMAT ('O","PVIC', SC18XeF 9.2, 13K)) FORMAT (* ',* LPC’, 3(29X,FO.1,9X)) RETURW END B.139 MOD2552u0 mMuUd2 $930 MOD23540 m0025550 MUD23560 MOD25570 MUD2 5980 4uD23590 M002 5600 MuD2 5610 MUD23620 MUD2 S050 MUD2 3640 mud02 5650 MUD2 Se6u mMOV2e 5670 M0D23680 MOD256090 MPOOMAGANANNMANAAAMNAANANFAOAMNANAAMNAANAMANMNAeAANAAAMAAN oO Aon +++ + SUBROUTINE WREINT (TITLE, TKNAM,CCAP7&,AP7TH,FP7TG,AETB,FLETB, APYRLY,FRYRLY ss ALYRLY,FEYRLY p ACAP, AGE, FCAP,FGEN,ALULF, IFFYR,LK,PKM,15,1P,15PN, NSC, GP76,GE76,GPYRLY,GEYRLY) THIS ROUTINE PRODUCES THE ANCHURAGE“FALRIANKS INTERTIE KEPURT = = GLENNALLEN DEMANU AND ANNUAL EWERGY ADDED Tu THE ANCHORAGE FIGURES, THE INTERTLE CALCULATLUNS AKE BASED UN THESE SumS, PARAMETER DESCKIPITONSS TKINAM - ARRAY OF TECHNOLOGY WAMES CCAPTS - FIkKST YEAR CAPACITY AP78 - FIRST YeAR PEAK DEMAND FUR ANCHURAGE Fr7¢8 oa ee ee ee ww we ww wo FALRDANKS GP78 = eee . . « © « GLENWALLEN AE7TS - FIRST YEAR ANNUAL ENERGY FUR ANCHURAGE FE7S = 0 © © © © © © ew ww ww ew FALKBANKS GETS - ° ee ©) «GLENNALLEN APYRLY - YEARLY "PEAK DEMAND “FOR ANCHORAGE FPYRLY = oe © ee © eo ew oe FAIRBANKS GPYRLY « ¢ « GLENNALLEN AEYRLY - YEARLY. ANNUAL ENERGY FUK ANCHURAGE FEYRLY = © ee ee ee we ww ow) FALRBANKS GEYRLY - © « 6 = GLENNALLEN ACAP = INSTALLED CAPACITY FUR ANCHORAGE FCAP . ee ee FAIRBANKS AGEN - ENEROY GENERATION FORK ANCHORAGE FGEN - ee . 2 eo 6 « FAIRBANKS XLOLP = LUSS OF LOAD PROBABILITY IFFYR - FIRST YEAR LR - PLANNING HURIZON PRM = RESERVE MARGIN Is - ARRAY INDEXING THE PERILOUS UF EACH PaTh NP = NUMBEK OF PERIODS ISPN - ANKRAY INDEXING THE PATH Nsc = CURRENT PATH VIMENSION GPYRLY(4$,30),GEYRLY (45,30) DIMENSTON APYRLY (5,30) -FPYRLY (5,50), AEYRLY (3, 30) pFEYKLY (5,50) DIMENSION ACAP ($0), AGEN( 50) -FCAP E30) sFGEN( 30) pXLULP( 50) DIMENSION IS(10),1SPN(10), TITLE (15) ,CCAP76(16),TKNAM(160,2) DIMENSION CNAX (30) ,E TRANS (30) TNANE 1S USED TO ACCESS ALL THe CHARACTERS IN A TECHNOLOGY NAME LOGICAL&1 TNANE (6), BLNK-FCHR, ACHR EWUTVALENCE (XNAML, TNAME (1)), (XNAM2, TNAKE (5) ) B.140 4UD2 45700 MO025710 MUD2e $72U 0023750 MUD2e S740 m0023750 MU0235760 MUD23577U m0023780 MO0025790 MUde $600 “0023610 MUD2 S620 MUD2 3530 MUD2$840 MOd2 $850 MUD2 3t60 Mud2 $8670 MOD2 5580 ™0025690 MU0D23900 M002 5910 m0023920 muv2 3930 MODe3940 mud025950 MUD239600 Mud2s970 MuD2 3980 M0023990 mOD24u00 MOD24010 MuD24U020 mMOD24030 MOD24046 moDe4050 MUDe406U mUV24070 MOL24080 MU024090 MUD24100 mG024110 mudedi2u MUV241 $0 MOV24140 mU024150 MUD24160 MUV24170 MOD24180 MU024190 MOD242u0 mod2e4elu MUD24e2eu MUD24250 mMOD24240 MOD24250 mMO0024253 aa200 ao a0 anaa co aa DATA BLIK,FUHR,ACHR /' *,°FY, "ate UUTPUT UNIT & LOUTS14 IYREIFFYR DETERMINE FIRST YEAR CAPACITY FUR ANCHURAGE AND FATRDANKS ACAP78=0.0 ‘ FCAP76=0.0 DO 10 [21,16 XNAML=TKNNAM(IT,1) XNAM2=TKNAM(I,2) DO 5S J=1,6 IF (TNAME(J) .EQ. BLNK) GO TO 5 GO TU 6 CONTINUE TECHNOLOGY NAME ALL BLANKS, SKIP IT GUO To Lo 6 CONTINUE TECHNOLUGY NOT ASSUCIATED WITH ANCHURAGE UR FAIRBANKS, SKIP IT IF (TNAME (J) .WE, ACHR .ANO, TNAME(J) .WEe FCRR) GO 10 10 IF (TNAME(J) .WE. ACHR) GO TO 9 ANCHORAGE ACAP78=ACAP7B + CCAP78(I) 6O 10 10 ui FAIRBANKS 9 CONTINUE FCAP78=FCAF78 + CCAP78(1) 10 CONTINUE ANCHORAGE UUTPUT HEADINGS WRITE (LOUT,;100) TITLE WRITE (LOUT,/101) PRM,CISC(I),T=1,NP) WRITE (LOUT,1u02) WRITE (LOUT,109) FIRST YEAR APNGP=APT4 * GP78 AENGESAE78 + GE78 WRITE (LOUT,110) LYR,APNGP,ACAP78, AENGE YEAKS IN PLANNING HORIZON DO 20 1=1,Lk TYR=LYR ¢ 1 APNGPSAPYRLYCISPN(NSC),1) + GPYRLYCISPN(NSC),1) AENGESAEYRLY(ISPN(NSC),1) + GEYRLY(ISPN(NSC),1) WRITE (LUUI,1195) TYR, APNGP, + ACAP(I), + AENGE, + AGEN(T),XLOLP(I) 20 CONTINUE B.141 MO024255 mOD24260 MOD24270 MuD24eb0 MmoDd24e90 mMu0D24500 mMUD2431u Mud24 seu MUD24350 MOD24540 M0D24330 MGD24360 MOD243T70 MUD24380 M0D024390 mOd24400 MOD2441u MOU24420 MOD2445u MuD24440 MOD24450 MOD24460 MOD24470 mMUD24480 mModed4g0 m0024500 MGD24510 mo024520 m0024550 M0024540 MLD24550 mU024560 MOD24570 mM0D24580 mMOD24590 MOD24600 MOD24610 Mu024620 MOD24030 MOD24640 MUD24650 mM0024660 MOD24670 MOD24673 MaD24675 MOD24680 MOD2469U MUD24700 mOD24710 M0D24720 Mud24725 MUD24725 0024730 MO0D24740 M0D24750 MOD24760 MOD24770 ° Su oan a0 70 c c 100 101 lie 105 110 115 202 20s ANCHOR bo So ADL FOL CMA IF IF AGE-FALKBANKS INTERTIE CALCULATIONS T=1,Lk FFCSACAP(1) = (APYRLYCISPN(NSC),/1) * GPYRLYCISPWW(WSC),1)) FFC=FCAP(1) = FPYRLY({SPN(NSC),1) x(T)=0,0 (ADIFFC GE. 0. .AND, FDIFFC .LT. 0.) CMAX (1) =AMINI (CABS CAUIFFC) ,ABS(FUIFFC)) (ADIFFC .LT. 0, «AND, FDIFFC .GE. 0.) CMAX (I) ="1 .0* AMIN (ABS (ADIFFC) -ABS(FUIFFL)) ADVIFFESAGEN(I) = CAEYRLYCISPNCNSC),1I) + GEYKLYCISPN(WSC),1)) FUIFFESFGEN(L) = FEYRLY(ISPN(NSC) 51) ETR IF If CONTIN LYR=IF FAIRBA HEADIN wRITE WRITE WRITE WRITE FIRST WRITE EACH Y bu 70 IyR WRI + - ANS(I)=0.0 (ADIFFE bE. 0. .AND. FOIFFE .LT. U0.) ETRANS (1) SAMINI CABS(ADIFFE) ,ABSC(FOIFFE)) (ADIFFE .LT. OU. .AND, FDIFFE GE, 0.) ETRANS (1) =01,0*AMINI CABS (ADIFFE) -ABS(FUIFFE)) ve FYR NKS AND INTERTIE OUTPUT GS (LONT,100) TITLE (CLOUT, 101) PRM, CIS(1),1=1,NP) (LouT,20e2) (LOUT, 205) YEAR (LUUT,110) LYR,FP78,FCAPT6,FE7S EAR IN PLANNING HURIZON 1=1,Lk =lyk + 1 TE (LUUT,210) LYReFPYRLYCISPN(NSC),I),FCAP(I), FEYRLYCISPN(NSC),I),FGENCI) »UMAX(I), ETRANS(I) ConTINve FORMAT FORMAT FORMAT FORMAT Veane FORMAT FORMAT i. FORMAT FORMAT Chi", 15A4G,26X%,'INTR REPURT") c' PRM= ',F0,45,15x,° TREE PATH= ',3011) Cho", 24X, "ANCHURAGE ') ('0"',6x,! PEAK ",2x," INSTALLED',2x, " ANNUAL '¢2Xe' ANNUAL "75X54, 7X," DEMAND ',2x,' CAPACITY ',ex,' ENERGY ', 2X,'GENERATIUN',SX,' LULP "al, La, "YEAR eXx,! (Mw) ",2x." (Mw) "12x, s (GwH) ',2x,! (GWH) 's5X-/'DAYS/10 YR") C'O',14,2eX,F10.1,2%,Flu.l,ex,F10.1) CLK Tae 2XgF LO ep AX FIND eX sFIVSL 2X ,FIU 1, OKs Fl0,3) C10", 24X, "FAIRBANKS", 30X,"INTERTIE') ('0',6x,! PEAK ",2xk,' INSTALLED', eX, * ANNUAL 'e2Xe* ANNUAL ',5X_' MAXIMUM *, B.142 MUD24780 MOD24790 MOUV246800 MUD2461uU MUve4dbe0 MUD24830 MO0D24640 MUD2469U MUD24860 MOUD24870 MGV24880 MOD24890 mOvV24900 MUD24910 MUuD244920 MOD249$0 MuD24940 MUD24950 MUD24960 Mu024970 MudD24980 MUD24990 MuDeS0U0 mode2su10 MOd250eu MO0D25u50 MOD25040 muV25050 M0D25060 MOD25070 MOD25U80 mudD25090 MuD2Si0u m0025110 MUD2d120 MUD25150 mud25140 mOD25150 mOv25160 mMOV25170 MUD25180 m0D25190 MOD25200 40D25210 MOD2S5220 M0D25230 MOD25240 MOD2eS250 MOD25260 Mod25270 MOD25260 mMOD2529uU MOV25300 MOD2eS31U MOU25520 Mud25330 MOD25340 c aSenoyuvewn 1 RETURN 2X," ENEKGY ',/, TX," DEMAND ',2X," CAPACITY ', eX, " ENERGY ',eX¢*GENERATLON', 5X," CAPACITY ',2Xe ' TRANSFER ',/, AX, "YEAR, exX,! (Ma) 5, 2ks* Cm) "ex, . (GwH) ',eXx,! (GWH) ',5x,' (Mw) ",ek, . (own) ') FORMAT (AX T4e eke FLD eb e 2XeFiVed eX eFivel seXsFiUed se dXke F10.1¢2x,F 10,1) B.143 m™UD25350 MO0D25360 0025370 MUD23380 40025390 M0D25400 m0025410 MOU25420 0025450 MUuD25440 mMov25450 MUV25460 M0025470