# OAR Box 1828

Prepped by Ollie Stewart



### Document

Number: 

# 7 ) ll-K - (A ) 

# - 2 0

Docket Number: 

# A-83-2 7

Printed 11/12/200811:12:48AM Sheet 7 of 325 P. 1II-K-(A)-2 0



### ENERG YAN D ENVIRONMENTA L ANALYSIS , INC

. 165 5 Nort h For

t Mye rD r Arlington , Virgini a 2220 9 (703) 528-190 0- p 4- -

INDUSTRIA L FUE L CHOIC E ANALYSI S MODE L

USER' S MANUAL

Prepare dfor : U.S . ENVIRONMENTA L PROTECTIO N AGENC Y Offic e o f Ai r Qualit y Plannin g an

dStandard s Researc hTriangl e Park , Nort hCarolin a 2771 1

Prepare dby : ENERGYANDENVIRONMENTA L ANALYSIS , INC . 165 5 Nort hFor t Mye r Driv e Arlington , Virgini a 2220 9

Novembe r 198 4^

r J*

Thi s repor t wa s furnishe dt o th e U.S . Environmenta l Protectio nAgenc y b y Energ y an dEnvironmenta l Analysis , Inc. , Arlington , Virginia , inful fillmen t o f Contrac t Numbe r 68-02-3564 . Th e content s o f thi s repor t ar e reproduce dherei na s receive dfro m th e contractor .

Th e opinions , findings , andconclusion s expresse dar e thos e o f th e autho r andno t necessaril y thos e o f th e U.S . Environmenta l Protectio n Agency .P. 5

r2X

PREFAC E

Th e Industria l Fue l Choic e Analysi s Mode l (IFCAM ) wa s develope db y Energ y an dEnvironmenta l Analysis , Inc . IFCA M ha s bee nuse db

y th e Offic e
o f Ai r Qualit y

Plannin g an

dStandards , U.S . Environmenta l Protectio nAgenc y t o projec t th e nationa l an dregiona l environmental , cos t an denerg y impact s
o f alternativ e Ne w

Sourc e Performanc e Standard s fo r industria l fossi l fuel-fire dboilers . Th e purpos e o f thi s User' s Manua l i s t o provid e informatio nrelate dt o use r options , inpu t fil e format s andunits , outpu t tabl e feature s and program operatin g instructions . A separat e report , Descriptio no f th e Industria l Fue l Choic e Analysi s Mode l (-November*-h98/*f) , present s th e mode l scop e an dcapabilities , mode l logic , key

assumptions , dat a sources , an dreferences . A descriptio no f IFCA

M program

structur e ha s bee nprovide dina thir d report . Th e model' s programs , subroutines , an ddat a file s ar e outlined . Flowchart s ar e als o presente dandthes e illustration s depic t th e sequenc e
o f mode l steps . Referenc e "Industria l Fue l Choic e Analysi s Model : Over vie w andFlowchart s o f Program Structure, " Energ y

andEnvironmenta l Analy sis , Inc. , Arlington , Virginia , prepare dfo r th e U.S . Environmenta l Protec tio nAgenc y

(Industria l Environmenta l Researc hLaborator y an dOffic e o f Ai r Qualit y Plannin g an

dStandards) , Jul y

9 , 1982 .P. 6

TABL E O F CONTENT S

Pag e 1 . INTRODUCTION

1- 1 1. 1 Mode l Overvie w

; 1- 1 1. 2 Use r Option s 1- 2 1. 3 Repor t Organizatio n1- 9

2 . INPU T DATA

FILE S 2- 1 2. 1 Alternativ e NSP S 2- 1 2. 2 Projecte dIndustria l Fossi l Fue l Price s 2- 5 2. 3 Projecte dIndustria l Fossi l Fue l Demand2-1 1 2. 4 Industria l Productio nGrowt hForecas t 2-1 6

3 . OPERATINGINSTRUCTION S 3- 1 3. 1 Introductio n3- 1 3. 2 Industria l Boiler s in198 5 3- 3 3. 3 Fue l Choic e Decision s in198 5 3- 3 3. 4 198 5 IFCA

M Outpu t Table s 3- 8 3. 5 Industria l Boiler s in199 0 3- 8 3. 6 Fue l Choic e Decision s in199 0 3- 8 3. 7 199 0 IFCA

M Outpu t Table s 3-1 5 3. 8 Briefin g Packag e Outpu t Table s 3-1 5

4 . OUTPU T TABLE S .4- 1 4. 1 Regula r Outpu t Table s 4- 1 4. 2 Briefin g Packag e Outpu t Table s 4- 8P. 7

LIS T O F TABLE S

Pag e 1- 1 Industria l Boile r Pollutio nContro l Equipmen t
Option s inIFCA

M -

. 1- 3

2- 1 Specification s fo r IFCA M NSP S Assumption s Inpu t Fil e 2- 4

4- 1 Fue l Typ e Code s Use dinTabl e I X4- 3 4- 2 Pollutio nContro l Equipmen t Code s inTabl e I X4- 5 4- 3 Director y

o f IFCA

M Outpu t Table s 4- 7P. 8

LIS T O F FIGURE S

Pag e 1- 1 IFCA

M Use r Option s 1- 4 1- 2 Federa l Region s o f th e Unite dState s 1- 7

2- 1 NSP S Assumption s 2- 2 2- 2 Oi l an

dGa s Pric e Interpolatio nProgram 2- 7 2- 3 Coa l Pric e Interpolatio nProgra m 2-1 0 2- 4 Oil/Ga s Pric e Presen t Valu e Progra m 2-1 2 2- 5 Coa l Pric e Presen t Valu e Progra m 2-1 4 2- 6 Industria l Fue l DemandProjection s 2-1 7 2- 7 Industria l Productio nActivit y 2-1 9

3- 1 Sequenc e o f IFCA M Progra m Job s 3- 2 3- 2 CALINT(BASEJCL ) 3- 4 3- 3 EC0N(JCL85 ) 3- 7 3- 4 TABLE(JCL85 ) 3- 9 3- 5 CALINT(BASEJCL2 ) 3-1 0 3- 6 EC0N(JCL90 ) 3-1 4 3- 7 TABLE(JCL90 ) 3-1 6 3- 8 IFCAM.AUXILIRY(BRIEFJCL ) 3-1 7P. 9

r A

1 . INTRODUCTIO N

Thi s sectio nsummarize s th e majo r mode l step s an ddescribe s IFCAM' s
use r options . 1. 1 MODE L OVERVIEW Th e Industria l Fue l Choic e Analysi s Mode l (IFCAM ) i s a nenerg y deman d mode l develope db

y Energ y an dEnvironmenta l Analysis , Inc . (EEA) . In additio nt o generatin g industria l boile r fue l mi xestimates , IFCA M project s level s o f ai r emissions , soli dwast e an denerg y consumptio nassociate dwit h emissio ncontrol , andsteam generatin g costs . IFCA M i s a disaggregate dproces s engineerin g model ; model s o f thi s typ e simulat e th e effect s o f specifi c policie s onnew an dexistin g techni ca l alternatives , includin g innovativ e boile r design s andne w pollutio n contro l equipment . IFCA M i s designe dt o asses s th e impac t o f severa l factor s o nfue l choice.decision s inth e industria l sector , includin g fue l prices , energ y

andenvironmenta l policies , an dcapita l andannua l operatin g
an dmaintenanc e (O&M ) cost s o f firin g alternativ e fossi l fuels . IFCA M disaggregate s exogenou s tota l industria l fossi l fue l deman d forecast s int o nin e industria l subsectors . Energ y us e i neac ho f thes e industria l subsector s the ni s divide dint o boile r an dproces s hea t applica tions . Industria l boile r fossi l fue l us e i s subdivide dfurthe r t o reflec t th e
amoun t o f fue l tha t wil l b e use di nne w andexistin g boiler s o f differen t size s andannua l capacit y utilizatio nrates . Existin g boiler s ar e clas sifie daccordin g t o th e typ e o f fue l the y ar e designe dt o fir e an dwhethe r the y ca nb e retrofitte dt o fir e alternativ e fuels . Eigh t siz e classe s and fiv e capacit y

utilizatio nrat e categorie s ar e delineate dfo r bot hnew and existin g boilers . Eac hnew boile r i s site dinanAi r Qualit y Contro l Regio n(AQCR) . New boiler s ar e locate dwithi neac hAQC Raccordin g t o historica l sitin g pat terns . Becaus e stat e environmenta l regulation s fo r existin g an dnew



### 1- 1P.1 0



## — n

boiler s ofte nvary

b y AQCR , IFCA

M applie s curren t regulation s ona nAQC R basis . Thes e regulation s ar e base doncurren t Stat e ai r law s fo r existin g fossi l fuel-fire dboilers . Th e boiler s represente di nIFCA M ar e fire db

y on e o f severa l type s o f fossi l fuels : coal , distillat e fue l oil , residua l fue l oil , o r natura l gas . IFCA

M provide s a choic e betwee n9 coa l type s tha t vary b y sulfur , ash , andBt ucontent . Additionally , fou r residua l fue l oi l type s tha t var y b y sulfu r conten t ar e available . Th e pric e o f eac hfue l typ e canvary b y region . Th e pollutio ncontro l equipmen t option s availabl e inIFCA M ar e pre sente dinTabl e 1-1 . Fo r eac hfue l typ e (i.e. , coal , oil , an dgas) , th e leas t cos t pollutio ncontro l strategy tha t meet s th e recommende dstandar d i s calculated . Th e leas t cos t strategy include s findin g th e lowes t cos t optio ninterm s o f th e boiler , pollutio ncontro l equipment , an dannua l fue l costs . Base donth e characteristic s o f eac hcombusto r (e.g. , size , operat in g rate , pollutio ncontro l requirements) , capita l andoperatin g cost s ar e generate dfo r eac hfue l type . Th e fue l typ e associate dwit hth e lowes t after-ta xpresen t valu e (includin g expecte dfue l expenses ) o f th e tota l
cos t o f generatin g steam ove r th e boiler' s investmen t perio di s selected . 1. 2 USE ROPTION S Figur e 1- 1 summarize s th e majo r IFCA M use r options . "Use r options "
ar e define dt o b e frequen t use r modification s t o a subse t o f th e mode l inpu t files . Th e IFCA M use r option s canb e classifie dintw o groups :

• Alternativ e New

Sourc e Performanc e Standard s (NSPS ) an d

• "Energ y

scenario " specification s Alternativ e NSP S refer s t o alternativ e Federa l ai r emission s standard s fo r sulfu r dioxid e (SOp) , particulat e matte r (PM ) an dnitroge noxid e (N0 x ) emission s from

th e combustiono f coal , distillat e fue l oil , residua l fue l oi l an dnatura l ga s innew industria l boilers . Energ y scenari o specifica tion s ar e exogenou s regiona l projection s of :

• Industria l fossi l fue l price s

• Tota l industria l fossi l fue l deman d

• Industria l productio nactivit y



### 1- 2p.1 1

TABL E 1-1 . INDUSTRIAL BOILE RPOLLUTION CONTRO L EQUIPMEN T OPTION S IN

IFCA M

Pollutan t Technolog y

SO ? Flu e ga s desulfurizatio n Dua l alkal i Lime spra y

dryin g Sodiu m throwawa y
P M Singl e mechanica l collecto r Dua l mechanica l collecto r Sid e stream

separato r Electrostati c precipitato r Fabri c filte r
N O Combustio nmodificatio n Low exces s ai r Stage dcombustio nai r

a Combine dS0 2 /P M

contro l system ; include s a fabri c filter .



### 1- 3P.1 2

' L* 

### FIGUR E 1- 1



# IFCAM Use

r Option s

Industria l Productio n Forecas t

NSP S Industria l Energ y Deman d Forecas t



# IFCA M

OUTPU T



## •Fue l Mi x

•Emission s

•Cost s Industria l Fue l Pric e Forecas t

1- 4P.1 3

A 1.2. 1 Alternativ e NSP S Ther e ar e eigh t industria l boile r siz e classe s inIFCA M (MMBtu/h r hea t input) :

•

•

•

•

•

•

• t 10-3 0 30-5 0 50-7 5 75-10 0 100-15 0 150-20 0 200-25 0 >25 0
Mode l user s ma y

specif y emission s ceiling s b y boile r siz e category , annua l capacity utilizatio nrat e (les s tha no r greate r tha n3 0 percent) , pollutan t (S0 2 andPM ) an

dfue l typ e (residua l fue l oi l an dcoal ) interm s o f pound s
o f emission s pe r millio nBt uo f fue l consumption . Mandator y

scrubbin g canals o b e require dfo r new residua l fue l oi l and
coa l boiler s b

y siz e class . Th e S0 ~ percentag e remova l requiremen t ca nb e fixe d(constan t fo r al l fue l type s regardles s o f sulfu r content ) o r vari abl e (functio no f th e sulfu r conten t o f th e fuel , suc ha s th e curren t electri c utilit y

coal-fire dboile r NSPS) . Th e emission s standards , whe nexpresse da s anemission s ceilin g (lb/MMBtu) , limi t complianc e alternatives . Fo r example , a mechanica l collecto r i s assume dno t t o b e abl e t o compl y wit ha very

lo w (i.e. , 0.0 5 lb/MMBtu ) coa l P

M emission s regulation . A very lo w (i.e. , 0. 2 lb/MMBtu )
coa l S0 2 emission s ceilin g wil l restric t coa l complianc e option s t o scrubb ing low sulfu r coals . Th e alternativ e NSP S assumption s appl y onl y t o new industria l boilers . The y d o no t appl y

t o existin g industria l boilers . "New " industria l boiler s
ar e define dt o b e unit s installe dafte r 1985 . 1.2. 2 Industria l Fossi l Fue l Pric e Forecas t Projecte ddelivere dindustria l fue l price s ar e require dfo r th e followin g fue l types :

• Natura l ga s

• Distillat e fue l oi l



### 1- 5P.1 4

• Residua l fue l oi l

- 3. 0 percen t sulfu r

- 1. 6 percen t sulfu r

- 0. 8 percen t sulfu r

- 0. 3 percen t sulfu r

• Coa l (l bS0 2 /MMBtu )

- bituminou s <1.0 8

- bituminou s 1.08-1.6 7

- bituminou s 1.67-2.5 0

- bituminou s 2.50-3.3 3

- bituminou s 3.33-5.0 0

- bituminou s > 5.0 0

- subbituminou s <1.0 8

- subbituminou s 1.08-1.6 7

- subbituminou s 1.67-2.5 0
Fue l price s ar e require dyear-by-yea r (1985-200 5 a t a minimum ) an db y Federa l regio n(se e Figur e 1-2 ) inconstan t 197 8 $/MMBtu . 1.2. 3 Industria l Fossi l Fue l DemandForecas t Tota l projecte dindustria l fossi l fue l deman di s anexogenou s para meter . IFCA

M ha s no t bee nuse da s a portio no f a "genera l equilibrium " system whic hsimultaneousl y reflect s th e interaction s betwee nth e econom y
andenerg y

markets . IFCA

M doe s no t addres s th e relationshi pbetween overal l industria l productio nan denergy demand . IFCA

M i s a fue l choic e mode l calibrate dt o a nexogenou s forecas t o f tota l industria l fossi l fue l demand . "Tota l industria l fossi l fue l demand " i s define dt o includ e onl y th e su m of :

• Natura l ga s (excludin g leas e an dplan t ga s an

dtransmissio nan

d distributio nlosses ) t Distillat e an

dresidua l fue l oi l t Coa l (excludin g metallurgica l coal ) Projection s ar e require db y Federa l regio nfo r th e beginning an den do f th e simulatio nperio d(e.g. , 198 5 an d1990) . Th e unit s ar e trillio nBtu . Thi s



### 1- 6

### FIGUR E 1- 2 

# Federa l Region s o

f th e Unite d States

REGIO N NAME S
1
. Ne wEnglan d 2
. Ne wYork/Ne wJerse

y 3
. Middl e Atlanti c 4
. South Atlanti c 5

. Midwes

t 6
. Southwes t 7
. Centra l 8
. Nort h Centra l 9
. Wes t 10
. Northwes

tfil e include s projecte dindustria l fossi l fue l combustio ninproces s

heater s a s wel l a s inboilers . Thi s fil e provide s IFCA M wit hanexpectatio no f th e tota l ne t increas e i ntota l industria l fossi l fue l deman ddurin g th e simulatio nperiod . IFCA M estimate s how

muc ho f thi s ne t increas e wil l b e burne db y boiler s an

dho w
muc hwil l b e consume dinproces s heater s b y region . 1.2. 4 Industria l Productio nForecas t Projection s o f industria l productio nactivit y ar e require db

y Federa l regio nan

dindustr y

group . Ther e ar e nin e industr y group s inIFCAM :
t Food t Textile s t Pape r

• Chemical s

• Petroleu

m refinin g

• Stone , clay

an dglas s

• Stee l t Aluminum t Othe r (miscellaneou s manufacturing , agriculture , construction , andmining) . Thi s forecas t i s use dt o disaggregat e th e projection s o f tota l indus tria l energ y

deman db

y industr y

group . Th e industria l productio nforecas t shoul db e consisten t wit hth e macroeconomi c assumption s use dt o deriv e th e forecas t o f tota l industria l energ y demand . Th e industria l productio nforecas t serve s t o allow mode l user s t o
assum e tha t th e distributio no f tota l fossi l fue l deman db y industr y

group withi na regio nwil l no t necessaril y remai nconstan t i nth e future . I t als o permit s th e mode l use r t o assum e that , fo r a specifi c industr y group , expecte dindustria l productio nactivit y wil l increas e o r declin e a t differ en t rate s b

y region . Thi s allocatio nb

y industr y

grou pinIFCA

M i s important . I t i s
assume dtha t th e boiler/proces s heate r distributio no f tota l industria l fossi l fue l deman di s uniqu e fo r eac hindustry . Sinc e th e industr y mi xi s permitte dt o chang e ove r time , tota l projecte dboile r fossi l fue l deman d
ma y increas e a t a differen t rat e tha ntota l projecte dproces s heate r fossi l



### 1- 8P.1 7

fue l demand . Inaddition , i t i s als o assume dtha t th e distributio no f new industria l boile r size s an dannua l capacit y

utilizatio nrate s i s uniqu e fo r
eac hindustr y

group . 1. 3 REPOR T ORGANIZATIO N Th e inpu t dat a fil e specification s (relate dt o th e use r options ) ar e describe dinSectio n2 . Th e IFCA M operatin g instruction s ar e explaine di n Sectio n3 . Th e IFCA

M outpu t table s ar e reviewe dinSectio n4 .



### 1- 9P.1 8

2 . INPU T DAT A

FILE S

Ther e ar e fou r IFCA

M inpu t dat a file s relate dt o use r options :

• Alternativ e NSPS t Projecte dindustria l fossi l fue l price s

• Projecte dindustria l fossi l fue l deman d

• Industria l productio ngrowt hforecas t Thes e dat a file s ar e describe dinthi s section . 2. 1 ALTERNATIV E NSPS Th e alternativ e NSPS dat a fil e i s revise db y mode l user s mor e tha nany othe r singl e IFCA

M inpu t dat a file . Thi s fil e summarize s alternativ e Federa l ai r emission s standard s fo r new industria l fossi l fuel-fire dsteam generator s (revision s o f 4 0 CF RPar t 60 , Subpar t D ) b y siz e clas s (8) , pollutan t (S0 2 , PM , andNO ) andfue l typ e (natura l gas , distillat e fue l oil , residua l fue l oil , andcoal) . NSP S assumption s ar e store dinfile s labele dNSPSDATA ( ) wher e th e fil e name insid e th e parenthese s i s specifie db y th e use r (1- 8 characters ) whe nth e fil e i s created . Th e recor dlengt hfo r thi s fil e i s 8 0 charac ters . I t i s rea dfree-forma t (distinc t dat a item s ar e separate db y a t leas t on e blank ) b

y IFCAM . Figur e 2- 1 present s anexampl e o f thi s file . Use r option s ar e con fine dt o line s 1 , 10 , 11 , 13-15 , an d17-24 :

• Lin e 1 :

Lin e 1 0 Lin e 1 1 Lin e 1 3 Lin e 1 4 User-specifie dname , 1- 8 characters ; mus t correspon d

identicall y

t o character s insid e th e parenthese s p f th e fil e name Residua l fue l oi l S0 2 emission s ceilin g Residua l fue l oi l P

M emission s ceilin g Coa l S0 2 emission s ceilin g (30-day , rollin g average ) Coa l P M emission s ceilin g (greate r tha n0. 3 CU )



### 2- 1COMMAND ? Figur e 2-1
. NSP S Assumption s

US E PAUL.NSPSDATA(ARO130 ) CL R

r o i r o 1

. 2

. 4

. 5

. 6

. 7

. 8

. 9

. 10

. 11

. 12

. 13

. 14

. 15

. 16

. 17

. 18

. 19 , 20

. 21

. 22

. 23

. 24

. COMMAND ? ARO13 0

8 3 0 5 0 7 5 10 0 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 0. 0 0. 0 0. 0 8*0. 0 0. 0 0. 0 0. 0 8*0. 0 9999. 9

9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 0. 0 0. 0 0. 0 0. 0 0. 0 0. 0 15 0 20 0

9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 0. 0 0. 0 0. 0 0. 0 0. 0 0. 0 25 0 100 0

9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 9999. 9 0. 0 0. 0 0. 0 0. 0 0. 0 0. 0 9999

.

9999

. 20. 0 9999

. 9999

. 20. 0 9999

. 9999

. 31. 0 9999

. 5. 0 20. 0 60. 0 0. 0 0. 0 0. 0 0. 0 0. 0 0. 0 9 9 9 9
9 9
9 9999

. 9999

. 20. 0 9999

. 9999

. 20. 0 9999

. 9999

. 31. 0 9999

. 5. 0 20. 0 60. 0 0. 0 0. 0 0. 0
0. 0 0. 0 0. 0 9 9
9 9
9 9
9 9999

. 9999

. 20. 0 9999

. 9999

. 20. 0 9999

. 9999

. 31. 0 9999

. 5. 0 20. 0 60. 0 0. 0 0. 0 0. 0
0. 0 0. 0 0. 0 9 9 9 9
9 9
9 9999. 9 9999. 9 30. 0 80. 0 10. 0 30. 0 80. 0 10. 0 31. 0 120. 0 5. 0 5. 0 70. 0 0. 0 0. 0 0. 0 0. 0 0. 0 0. 0P.2 0

•

• t

• Lin e Lin e Lin e Lin e 

### 2 1 2 2 2 3 2 4 • Lin e 15 : Coa l P

M emission s ceilin g (les s tha no r equa l t o 0. 3 CU )

• Lin e 17 : Residua l fue l oi l S0 2 emission s floo r

• Lin e 18 : Residua l fue l oi l S0 2 emission s recommende dpercentag e

reductio n

• Lin e 19 : Residua l fue l oi l S0 2 emission s minimu m percentag e reductio n t Lin e 20 : Residua l fue l oi l lo w sulfu r (S0 2 ) exemptio nfro m mandator y

scrubbin g requiremen t Coa l S0 2 emission s floo r (30-day , rollin g average ) Coa l S0 2 emission s recommende dpercentag e reductio n Coa l SO o emission s minimu m percentag e reductio n Coa l lo w sulfu r (S0 2 ) exemptio nfrom mandator y scrubbin g requiremen t
"CU " refer s t o annua l capacit y utilizatio nrate . EPA i s considerin g revise dNSP S whic har e a functio no f CU . Tabl e 2- 1 summarizes , fo r eac hline , th e unit s andparamete r value s t o be use di f ther e i s no regulation . I nline s 4 throug h24 , eigh t value s
mus t b e entere dfo r eac hline . Thes e correspon dwit hth e eigh t boile r siz e classe s i nIFCAM , from th e smalles t t o th e largest . Th e uppe r limi t fo r
eac hsiz e clas s (MMBtu/hr ) i s note dinlin e 3 . Line s 1 7 throug h2 4 appl y i f i t i s assume dtha t new industria l residua l fue l oi l and/o r coa l boiler s mus t scrub . Lin e 2 0 permit s lo w sulfu r residua l fue l oi l exemption s from a mandator y

scrubbin g requirement . Lin e 2 4 permit s lo

w sulfu r coa l exemption s from a mandator y

scrubbin g require ment . I f th e minimu

m S0 2 remova l rat e i s non-zero , th e correspondin g S0 2 emission s floo r mus t als o b e non-zero . Th e S0 2 emission s floo r i s usuall y les s tha nth e correspondin g S0 2 emission s ceiling . Th e lo w sulfu r exemp tio nfrom

th e mandator y

scrubbin g requiremen t i s usuall y les s tha no r equa l t o th e correspondin g S0 2 emission s ceiling . Th e minimu m S0 2 remova l rat e mus t alway s b e smalle r tha nth e recommende dS0 2 remova l rate . Th e recom mende dS0 2 remova l rat e ca nneve r excee d"90 " an dth e recommende dand minimu m S0 2 remova l rate s bot hmus t equa l o r excee d"50" .



### 2- 3P.2 1



### TABL E 2-1 . SPECIFICATION S FO RIFCA M NSP S ASSUMPTION S INPU T FIL E

Lin e number(s ) Unit s Paramete r valu e

4-1 6 (lb/MMBtu ) x10 0 9999. 9

17 , 20 , 21 , 2 4 (lb/MMBtu ) x10 0 0. 0

18 , 19 , 22 , 2 3 Percentages 6 

### 0. 0

a 

### I f ther e i s n

o regulation . b 

### E.g. , "70.0" , "90.0" . a

2- 42. 2 PROJECTE D INDUSTRIA L FOSSI L FUE L PRICE S I n IFCAM , fue l choic e decision s fo r ne windustria l fossi l fuel-fire d boiler s ar e mad e base d o n a compariso n o f lif e cycl e costs
. Specifically , th e tota l after-ta x presen t valu e o f th e ne windustria l boile r and pol

lutio n contro l equipmen t capital , O& M and fue l expense s i s calculate d fo r
eac h fue l type
. Th e estimate d after-ta x presen t valu e o f fue l expense s i s base d o n a n exogenou s forecas t o f industria l fue l price s ove r a 15-yea r period

. Th e industria l fue l pric e forecas t varie s b yFedera l regio n and fue l type
. 2.2. 1 Annua l Fue l Pric e Projection s Year-by-yea r fue l pric e projection s fo r th e 198 0 t o 200 5 tim e perio d
ar e usuall yno t available

. Fue l pric e projection s ar e usuall yavailabl e fo r selecte d year s (e.g. , 1985 , 1990 , 1995 , and 2000)

. Value s fo r interme

diat e year s mus t b e interpolate d b yth e IFCA

M model , user . Ther e ar e tw o compute r program s whic h perfor mth e interpolatio n function : PRICES(GR0WTH4 ) fo r oi l and ga s price s and PRICES(ICFGRW ) fo r coa l prices

. Th e inpu t fil e fo r progra mPRICES(GR0WTH4 ) i s 7 8 line s long : 6 fue l type s (natura l gas , distillat e fue l oil , residua l fue l oi l - 4 sulfu r classes ) and 1 3 line s o f dat a fo r each

. 

### 1

. 2

. 3

. 4

. 5

. 6

. 7

. 8

. 9

. 

### 10

. 11

. 12

. 13

. 

### 1 2 1 2 3 4 5 6 7 8 9 1 0 

### 0 1 8 5 

### 10 0 10 0 10 0 10 0 10 0 10 0 10 0 10 0 10 0 10 0 

### 0 2 9 0 

### P8 5 P8 5 P8 5 P8 5 P8 5 P8 5 P8 5 P8 5 P8 5 P8 5 

### 0 3 9 5 

### P9 0 P9 0 P9 0 P9 0 P9 0 P9 0 P9 0 P9 0 P9 0 P9 0 

### 0 P9 5 P9 5 P9 5 P9 5 P9 5 P9 5 P9 5 P9 5 P9 5 P9 5 

### 0 P10 0 P10 0 P10 0 P10 0 P10 0 P10 0 P10 0 P10 0 P10 0 P10 0 

### 0 Ite m 1 i n ro w1 i s th e fue l typ e code : 1 - Natura l ga s 2 - Distillat e fue l oi l 3 - Residua l fue l oi l (3. 0 percen t sulfur ) 4 - Residua l fue l oi l (1. 6 percen t sulfur ) 5 - Residua l fue l oi l (0. 8 percen t sulfur ) 6 - Residua l fue l oi l (0. 3 percen t sulfur )



### 2-5P.2 3

Th e other item s i

nro w 1 shoul dno t b e changed . Ite m 1 inro

w 2 i s th e tota l numbe r o f projecte dyear s wit hdat a value s minu s 2 . I

nthi s example , dat a i s availabl e fo r fou r years : 1985 , 1990 , 1995 , an

d2000 . Fou r minu s tw o equal s two . Th e balanc e o f ro w 2 include s th e projectio nyear s (les s 1,900) , bu t no t includin g th e las t forecas t yea r (al l item s separate db y a space) . Row s 3 throug h1 2 presen t dat a fo r th e te nFedera l regions . Th e firs t ite m i s th e Federa l regio nnumber . The ' nex t ite m i s th e las t forecas t yea r (les s 1,900) . Th e nex t fou r item s ar e th e fue l prices , inconstan t $/MMBt u(eac hseparate db y a space) . Replac e "P85 " wit hth e 198 5 fue l pric e an ds o on . Fue l price s canb e inpu t i nany (i.e. , 1980 , 1982 , 1975 ) constan t (real ) dollars , bu t the y shoul dno t be nomina l (current ) dollars . The y
mus t b e th e sam

e constan t dollar s fo r al l si xfue l types . Row s 14-26 , 27-39 , 40-52 , 53-65 , an d66-7 8 ar e mirro r image s o f row s 1-13 . Th e onl y

differenc e i s th e fue l code . Chang e th e firs t ite m i nro w 1 4 t o 2 (fo r distillat e fue l oil) , inro w 2 7 t o 3 (fo r 3. 0 percen t sulfu r residua l fue l oil) , etc . Thi s i s a

nexampl e fo r 1985 , 1990 , 1995 , an d2000 . However , program PRICES(GR0WTH4 ) i s flexibl e an dth e inpu t fil e coul db e se t upfo r an y numbe r o f year s o r interval s (e.g. , 1986 , 1989 , 1991 , 1999 , 2004 , 2006 , 2010) . Program PRICES(GR0WTH4 ) i s presente dinFigur e 2-2 . Not e lin e 56 . Replac e "? " wit hth e numbe r o f year s betwee nth e next-to-las t an dlas t yea r fo r whic hprice s ar e input . I f price s ar e inpu t fo r 1985 , 1990 , 1995 , an d 2000 , the nreplac e "? " wit h"5" . Not e als o lin e 52 . IFCA M fue l pric e file s ar e in197 8 dollars . I f price s wer e no t inpu t in197 8 dollars , thi s lin e mus t be edite dt o conver t the m t o 197 8 dollars . Lin e 9 2 contain s th e user-specifie dname o f th e inpu t fil e describe dabove . Lin e 9 3 contain s th e user-specifie dname o f th e outpu t file . Th e inpu t fil e name mus t b e "PRICES(0GINP_J " an dth e outpu t fil e name mus t b e "PRICES(0G

_'_) " wher e th e use r fill s i nth e blank s o r delete s thos e no t fille din . Th e inpu t fil e fo r program PRICES(ICFGRW ) i s straightforward . Ther e
ar e 11 0 possibl e coa l type s (1 0 Federa l region s x1 1 coa l type s pe r re gion) . Th e eleve ncoa l type s are :



### 2- 6P.2 4



### Figur e 2-2 . Oi l an

dGa s Pric e Interpolatio nProgra m

US E PAUL.PRICES(CR0WTH4 > CL R COMMAND ? L

1 . //PDJOCST RJO B <NSPSSASDDIND.D098).'OCSTREAM'.TINE»<.30 > 2 . /*ROUT E PRIN T R02 0 3 . / / EXE C FORTXC C 4 . //FORT.SYSI N D D # 5 . C*******»**>**»»»«»»***««**»»**«»*«**« »** **** » 6 . C NAM E NEUICR0HTH 4 7 . C PROCRA M T O CALCULAT E NSP S IFCA M OI L AND CA S FUE L PRIC E CROUT H RATE S 8 . C OUTPUT : ANNUA L FUE L PRICE S (1978»/MMBTU ) FO R1982-203 1 9 . FO RNAT.GAS r DIST . OI L AN D RESIO.OI L ( 4 SULFU RCLASSES ) 10 . C REPLAC E '? ' I N LINE 3 6 UIT H TH E NUMBE ROF YEAR S BETWEEN'TH E NEXT-TO-LAS T AN D 11. C LAS T YEA RFORWHIC H PRICE S AR E INPUT 12 . C •»•»»**»*•»•»»»•»»**»•>»»•»•»»»»**#•»*»•»•»»•»#»#»**»*»•»•»»### • 13 . DIMENSION NSEC(3).IYR(10)iIYD(10).RATE(10)rPRICE!10 ) 14 . DIMENSION FUEL(80.30.3).FU(90).SEV<10.6).IYRINP(9 ) 15 . C 16 ! C 197 8 AVC . PRICE S (197 8 */MMBTU ) B YFEDERA

L REGION 17 . C - NAT . CA S 18 . C 19 . C 20 . C 21 . C 22 . C 23 . C 24 . DATA SEV/2.90.2.54.2.00.1.49.1.85.1.08.1.39F1.24.1.92 r 1,76 r 29 . • 3.50.3.46.3.44.3.33.3.30.3.35.3.22.3.19.3.17.3.16 . 26 . • 1.73.1.73.1.70.1.67.2.13.1.49.1.93.1.44.1.34>1.52 a 27 . » 2.07.2.03.2.02.1.99.2.47.1.81.2.27.1.76.1.86.1.84 . 28 . * 2.32.2.30.2.27.2.24.2.72.2.06.2.32,2.01.2.11.2.09 . 29 . • 2.36.2.34.2.31.2.48.2.96.2.30.2.76.2.23.2.33.2.33 / 30 . EQUIVALENC E (IYR(2).IYRINP(l) ) 31 . DATA IYR/78»9*»0 / 32 . OO 2 1 1=1.8 0 33 . D

O 2 1 J*1.3 0 34 . OO 2 1 KM, 3 35 . 2 1 FUEL(I.J.K)»99 . 36 . 2 2 READ(3»*».END«25)IFUEL.NSE C 37 . URITE(6.29)IFUEL.NSE C 38 . 2 9 F0RMAT(1X,I1.(3(7X.I1>> ) 39 . READ(5.#)NT , (IYRINP(I ) .1=1.NT ) 40 . NT=NT+ 1 41 . NP=>NT* M 42 . NPP»NT* 2 43 . D O 1 Isl.N T 44 . 1 IYD(I*H)=IYR(I)*t* l 45 . IYD(1)=IYR(1 ) 46 . URITE(6»31)(IYD(I).1=1.NP ) DIST . RESID : RESID : RESIO : RESID : 3. 0 1. 6 0. 8 0. 3 X X X X S S S S



### 2- 7P.2 5



### Figur e 2-2 . Oi l an

dGa s Pric e Interpolatio nProgra m

47 . 1 4 READ(5.#)IREC.IYR(NPr7TPTTlCE(I).I=2.NPP ) 48 . D

O 1 3 1=2.NP P 49 . C 30 ! C CONVER T TO 197 8 »/MMBTU 31 . C 32 . 1 3 PRICE(I)'PRICE(I)/1.16 6 53 . IF(IREC.LE.0)URITE(6.40 ) 34 . IF(IREC.LE.0)C O T O 2 2 35 . IYD(NPP)=IYR(NP)* M 56 . IYR(NPP>=lYR(NP>*t- ? 57 . 3 1 FORMAT(9X.I3.1X.(10(2X.I3.2X)) ) 58

. 4 0 FORMA T( ' 0000000000 0 0' ) 59

. PRICE(1)=SEV(IREC.IFUEL > 60
. O

O 2 I=2.NP P 6 1
. 2 RATE(I)=(PRICE(I)/PRICE(I-l))«»(l/(FLOAT(IYR(I)) - 62
. »FLOAT(IYR(I-l))> ) 63
. RATE(1)=PRICE(1 > 64 . WRITE(6.30)IREG. I YD(NPP).(RATE(I), 1 = 1,NPP ) 63 . 3 0 FORMAT(1X,I2.1X.I3.2X.F4.2,1X.(10(F6.4>1X)) > 66 . FUU)=RATE(1 > 67 . R=l . 68 . KY= 1 69 . OO 3 IY=2»8 0 70 . ICHK=IYD(1)+IY- 1 71 . IF(KY.CT.9 ) G O TO 6 72 . IF(ICHK.NE.IYD(KY+l))G O TO 6 73 . R=RATE(KY+1 ) 74 . KY=KY***1 73 . 6 CONTINU E 76 . FU(IY)=FU(IY-1)« R 77 . 5 CONTINU E 78 . IREC-»IFUEL+8*»(IREC-1 > 79 . D

O 9 1-1. 3 80 . ISEC=NSEC(I > 81 . IFUSEC.EQ.0 ) C O T O 9 82 . D O 1 0 I Y= 1.5 0 83 . FUEL(IREC.IY.ISEC)=FU(IY+4 ) 84 . 1 0 CONTINU E 85 . 9 CONTINU E 86 . G O T O 1 4 87 . 2 5 CONTINU E 88 . WRITE(1.24)FUE L 89 . 2 4 FORMAT(8F10.4 ) 90 . STO P 91 . END 92 . //CO.SYSI N D D DSN=PDJNSPS.PRICES(0CINP16),DISP=SH R 93 . //CO.FT01F00 1 DD DSN=PDJNSPS.PRICES(0CSET16),DISP=MO D COMMAND ?



### 2- 8P.2 6

• Bituminou s ICF typ e A

• Bituminou s ICF typ e B

• Bituminou s IC F typ e D

• Bituminou s IC F typ e E

• Bituminou s ICF typ e F

• Bituminou s IC F typ e G t Bituminou s ICF typ e H

• Subbituminou s ICF typ e A

• Subbituminou s IC F typ e B

• Subbituminou s ICF typ e D t Subbituminou s ICF typ e E
EPA i s no t currentl y

usin g bituminou s IC F coa l typ e A andsubbituminou s ICF
coa l typ e A . Thi s inpu t fil e ha s 11 1 rows . Row 1 , ite m 1 , indicate s th e numbe r o f year s o f inpu t prices . Fo r example , i f inpu t price s ar e availabl e fo r 1980 , 1985 , 1990 , 1995 , an d2000 , th e paramete r valu e fo r th e firs t item i n
ro w 1 i s "5" . Th e remainin g value s inro w 1 ar e th e forecas t years , les s 1,90 0 (e.g. , 8 0 8 5 9 0 9 5 100) . Row s 2-11 1 ar e dat a fo r th e 11 0 coa l types . Th e firs t ite m i neac ho f thes e row s i s th e coa l typ e numbe r ( 1 t o 111) . Thi s i s followe db y th e
coa l prices , eac hseparate db y a space , inconstan t $/MMBt ufo r 1980 , 1985 , 1990 , 1995 , and2000 . Row s 2-1 2 ar e th e eleve ncoa l type s fo r Federa l regio n1 . Row s 13-2 3 fo r Federa l regio n2 , etc . I f ther e ar e no coa l price s and. a coa l typ e i s no t applicabl e ina certai nregion , ente r "999.99 " fo r th e coa l pric e fo r eac hyear . Th e firs t yea r mus t alway s b e 1980 . Th e othe r year s ar e inpu t b y th e user , ma y

b e differen t tha n1985 , 1990 , 1995 , and200 0 andma y b e fo r a large r o r smalle r numbe r o f years . Program PRICES(ICFGRW ) i s presente dinFigur e 2-3 . Not e lin e 25 . I f th e inpu t coa l price s ar e no t entere di n197 8 dollars , replac e "1.4 " i nthi s lin e wit hth e appropriat e conversio nfactor . Lin e 4 2 contain s th e inpu t fil e name fo r th e 111-lin e fil e describe dabove . Lin e 4 3 contain s th e outpu t fil e name . Thes e fil e name s mus t b e inth e form "PRICES(COLINP_J " an d"PRICES(CO L J" , respectively , wher e th e blank s ar e fille dinth e use r an dth e use r delete s any blank s no t fille d in .



### 2- 9P.2 7



### Figur e 2-3 . Coa l Pric e Interpolatio nProgra m

US E PAUL.PRICES(ICFGRW ) CL R COMMAND ? L

1 . //PDJICFC RJO B (NSPSSASDDIND.D098 ) .TIME* " (.30 ) 2 . //STEP0 1 EXE C FORTXC C 3 . //FORT.SYSI N D D »

- 4 . C**»»»***»»**»**»*»#»»»*»»*»#»*»*#*##»#«»«##»*»»#» # 5 . C NAME:PRICES(ICFGR0W2 ) 6 . C CALCULATE S DELIVERE D COA L PRICE S FO

RTH E IC

F COA L TYPES . 7 . C OUTPU T I S B YCOA L TYP E (1 0 PE

RRECORD) . B

YYEA R(1 1 RECORD S PE

RYEAR) , 8 . C B

YSECTO R(5 0 YEAR S PERSECTOR) . 9 . C TH E FIRS T YEA ROUTPU T I S EQUA

L TO TH E FIRS T YEA RINPUT PLU S 2 (FO RTH E P

V 10 . C PROGRA M TO CORRECTL YINTERPRE T THI S FILE . TH E FIRS T YEA ROUTPU T SHOUL D B E 32 . 11. C AND THU S TH E FIRS T YEA RINPUT SHOUL D B E 80 ) 12

. C»»*»»»*»»»»*»**• »** *»•#*»•*»**#»••*«•*»»»»»» » 13 . DIMENSION IYR(10),RATE(10)>PRICE(10).FUEL(110.50.3).FU(70 ) 14 . C 15 . READ(1.»)NT . < IYR d ) , 1 = 1 ,NT> 16 . D

O 2 5 ITYP=1,11 0 17 . READ(1.».END=ZS)ICOAL.(PRICE(I).1=1.NT ) 1 8 C 19 ! D O 2 1=2.NT 20 . 2 RATE(I ) = (PRICE(I)/PRICE(I-1))«* » 21 . • (l/(FLOAT(IYR(I))-FLOAT(IYR(I-l>)) ) 22 . C 23 . C CONVER T TO *197 8 2 4
. C 2 5

. FU(1)=PRICE(1)/1. 4 2 6
. KY= 1 2 7
. D O 5 IY=2.7 0 2 8
. ICHK=IYR(1)+IY- 1 2 9
. IF((ICHK.EQ.IYR(KY ) + 1).AND

. (K Y.LT.NT ) )KY=KY-t- l 3 0
. FU(IY)=FU(IY-1)*»RATE(KY ) 3 1
. 5 CONTINU E 3 2
. C 3 3 ! D O 1 0 1=1. 3 3 4
. D O 1 0 IYM.5 0 3 3
. 1 0 FUEL(IC0AL.IY,I)=FU(IY+2 ) 3 6
. 2 5 CONTINU E 3 7
. C 3 8
. WRITE(2.24)FUE L 3 9
. 2 4 FORMATU0F10.4 ) 4 0
. STO P 4 1
. EN D 42 . //CO.FT01F00 1 D D DSN=PDJNSPS.PRICES(COLINP05).DISP=SH R 43 . //CO.FT02F00 1 D D DSN=PDJNSPS.PRICES(COLSET05),DISP=MO D COMMAND ?



### 2-1 0P.2 8

2.2. 2 After-Ta xPresen t Value s Th e annua l fue l pric e forecas t must b e converte dt o a nafter-ta x presen t value . Program PRICES(OGFINL ) convert s th e annua l oi l andga s pric e forecast s t o after-ta xpresen t values . Th e annua l coa l pric e projec tion s ar e converte dt o after-ta xpresen t value s b y program PRICES(ICFFINL) . Program PRICES(OGFINL ) i s liste di nFigur e 2-4 . Edi t th e en do f lin e 1 7 t o indicat e th e IFCA M ru nyea r tha t yo uwis ht o creat e aninpu t oi l and ga s pric e fil e for . Th e mode l use r must ru nthi s program

t o creat e a separat e oi l andga s pric e fil e fo r ever y IFCA M ru nyea r (i.e. , 198 5 and 1990) . Inthi s example , a noi l andga s pric e fil e wil l b e create dfo r a 199 0 IFCA

M run : "NYEAR/90/" . Th e inpu t fil e fo r thi s program i s note dinlin e 94 . Th e inpu t fil e
name i s alway s "PRICES(0 G) " a s discusse dinSectio n2.2.1 . Ther e ar e tw

o outpu t file s create db y thi s program . Bot ho f thes e outpu t file s ar e IFCA M inpu t files . Thes e outpu t fil e name s ar e "abcdeXX.OTH " a s i nlin e 95 , and"TabcdeXX.OTH " a s i nlin e 98 . Th e use r must specif y

th e character s fo r "abcde " an db e consisten t inbot hfil e names . Fo r example , "SET15 " wa s use dinFigur e 2-4 . Replac e "XX " wit hth e valu e fo r NYEA Rinlin e 17 . InFigur e 2-4 , "XX "
wa s replace dwit h"90" . Figur e 2- 5 present s program PRICES(ICFFINL) . Edi t lin e 2 3 t o indicat e th e IFCA M ru nyea r (e.g. , "NYEAR/85/ " o r "NYEAR/90/") . Th e inpu t fil e name i s foundinlin e 100 . Thi s fil e name i s alway s "PRICES(C0 L ) " a s discusse dabove . Ther e ar e two outpu t file s from thi s program : "abcdeXX.FOB " i nlin e 101 , and"TabcdeXX.FOB " inlin e 104 . Th e use r ma y fil l inth e "abcde " stream wit han

y characters , bu t the y mus t b e consisten t fo r bot hfiles . I n Figur e 2-5 , "SET05 " i s used . Replac e "XX " wit hth e valu e fo r NYEA Ri nth e dat a statemen t i nlin e 23 . I nthi s example , replac e "XX " wit h"90" . 2. 3 PROJECTE DINDUSTRIAL FOSSI L FUE L DEMAND Projection s o f industria l fossi l fue l deman dar e require db y Federa l regio nfo r th e beginnin g an dendo f th e simulatio nperio d(e.g. , 198 5 and 1990) . Th e forecast s ar e als o require dfo r th e Petroleu m Refinin g industr y
an dal l othe r industria l group s (includin g mining , construction , agricul ture , fishing , forestry , andothe r manufacturin g sectors) . Th e unit s ar e trillio nBtu .

2-1 1P.2 9



### Figur e 2-4 . Oil/Ga s Pric e Presen t Valu e Progra m

US E PAUL.PRICES(OGFINL ) CLR COMMAND ? L

1 . //PDJOGPV

JO B (NSPSSASDOIND,D098)»TIME=(.30 > 2 . //STEP0 1 EXE C FORTXC C 3 . //FORT.SYSI N DD * 4 . DIMENSION FUEL(80.50.3 ) 5 . READI2.*)FUE L 6 . CAL L OCFINL(FUEL ) 7 . RETUR N 8 . END 9 . SUBROUTIN E OCFINL(FUEL ) 10 . C*»**»#*»**»***»**»**»*»*»**»**» »»** *»*»« ^ F0000 1 11 . C T O COMPUT E PRESEN T VALU E O F VARIOU S INVESTMEN T COMPONENT S F0000 1 12

. C**»»»*»**»#***#***#***##»»**»#**#*»** » #*«*»#»*•###*## » *#•*«»»#»«*••#*»• • 13 . C 14 . DEFINEFIL E 3(1224,80.L.IND).4(1224.S0.L.IND ) 13 . ' DIMENSION DISCNTI3.2).FUEL(80,50,3),FUELPV(80.30.3) . 16 . S FUELOP(80.3 > 17 . DAT

A DISCNT/.12..12..08,.1..1..1/.NYEAR/90 / 18 . WRITE(6,50)NYEAR.DISCN T 19 . 5 0 FORMAT(// ' •*•«*•»#•*#» # 19'.I2. ' BOILE RRU N *»*«»»«#•««####' / 20 . • ' * DISCOUN T RATE S ' .3F8.4./.19X.3F3.4 ) 21 . DO 99 9 IFILE=3. 4 22 . CAL L FLHALF(FUEL0P.FU£LPV.FUEL.2.DISCNT(l,IFILE-2),80.50.3.NYEAR , 23 . & IFILE ) 24 . INO= l 25 . D O 1 3 J=l,5 0 26 . WRIT E (IFILE'IND , 14 ) ((FUELPV d . J.K ) .K= l .3 ) , 1 = 1.80 ) 27 . 50 0 FORMAT(1H1.20X,'YEA R'.12. ' ANNUALIZE D FUE L PRICE S FO RSECTOR',12 ) 28 . DO 13 0 K=3» 3 29 . WRITE(6.500)J. K 30 . WRIT E (6,501 ) (FUELPVd , J.K) . I = 1.80 ) 31 . 13 0 CONTINU E 32 . 1 4 FORMAT(10F8.3 ) 33 . 50 1 FORMAT(/30X.'P V OF FUE L PRICES'/(10F8.3) ) 34 . 1 3 CONTINU E 35 . WRIT E (IFIL E 'IND , 14 ) ((FUELOPd.K ) ,K=1.3 ) . 1 = 1.80 ) 36 . 99 7 FORMAT(1H1»20X.'FU A TES T FUE L PRICE S FO RSECTOR',12 ) 37 . DO 99 8 K=3, 3 38 . WRITE(6,997) K 39 . WRITE(6.501 ) (FUELOPd.K ) , 1 = 1.80 ) 40 . 99 8 CONTINU E 41 . 99 9 CONTINU E 42 . STO P 43 . END



### 2-1 2P.3 0



### Figur e 2-4 . Oil/Ga s Pric e Presen t Valu e Progra m

44 . C**»»*»**»####*##***» #«** »###**#»*»»#»*»**»»»»*»«#*»*#****»#*»###»#»»## » 4 5

. SUBROUTIN E FLHALF(FUELOP,FUELPV,FUEL,NCDISCNT,ND1,ND2.NDS,NYEAR , 46 . & IFILE ) 47 . C*#*»»*»*»*»»*»*»***»**»»*»»»»»«*»*»«»»#*#»»« ^ 48 . C TO CONVER T INPU T YEARL

YFUE L COS T MATRIC S T O AFTERTA

X 49 . t PRESEN T VALUE OF TOTA L FUE L COS T OVEROPERATIN GLIF E 50 . DOUBL E PRECISION SU M 51 . DIMENSION FUEL(ND1,ND2,ND3),DISCNT(3).STORE(50).FUELOP(ND1,ND3) , 52 . & FUELPV(ND1,ND2,ND3 ) 53 . C 54 . C ««•

» ISTAR T I S YEA

RNE W UNIT S WIL L COME I N 55 . C 56 . ISTART= 0 57 . DO 5 IREC=1,ND 1 58 . D

O 5 ISEC=1, 3 59 . R=DISCNT(ISEC ) 60 . LAC=NYEAR-S 4 61 . IF(ISEC.EQ.3)LAC=ISTART+LAC 62 . D

O 5 IYR=LAG.5 0 63 . IF(IYR.EQ.LAG)FUELOP(IREC.ISEC)=FUEL(IREC.IYR.ISEC ) ' 64 . STORE(IYR)=-FUEL(IREC.IYR,ISEC) * 65 . * PVALUE(IYR-LAG+1.IYR-LAG+1.R)*. 5 66 . IF(IYR.GT.LAC)STORE(IYR)=STORE(IYR)+STORE(IYR-1 ) 67 . IF((IYR.EQ.LAC+10).AND.(IFILE.EQ.3) ) 68 . & STORE(IYR)*-STORE(IYR)-STORE(LAC+l ) 69 . FUELPV(IREC,IYR-LAG+1 , ISECMAMAX 1 (STOR E (IYR ) ,-999.0 ) 70 . 5 CONTINU E 71 . RETUR N 72 . END 73 . C**»**»**»**»*#*»*»***»********»***»****»*»**» #** »**»*»* 74 . C 75 . C TO COMPUT E PRESEN T VALUE O F INVESTMENT 76 . C -- - 77 . C 78 . C NS=STARTIN C YEA ROF INVESTMENT 79 . C NE=ENDIN GYEA RO F INVESTMENT 80 . C R=DISCOUN T RAT E 81 . C»**«*#»*»*»**»*»*»»»»»»***»*******»**»*»** ^ 82 . FUNCTION PVALUE(NS,NE,R ) 83 . DOUBL E PRECISION X 84 . C 85 . IF(R.EQ.-l.)R=-.9 5 86 . X=l./(1.+R ) 87 . IFU.NE.l. ) G O TO 1 88 . PVALUE=NE-NS+ 1 89 . RETUR N 90 . 1 CONTINU E 91 . PVALUE=(X*»NE-X**(NS-1))/(X-1. ) 92 . RETUR N 93 . END 94 . //GO.FT02F00 1 D D DSN=PDJNSPS.PRICES(0GSET15),DISP=SH R 95 . //GO.FT03F00 1 DD DSN=PDJNSPS.SET1590.OTH,DISP=(,CATLG,DELETE) , 96 . / / UNIT=DISK.SPACE=(TRK.(25.10).RLSE) . 97 . / / DCB=(RECFM=F,LRECL=80.DSORG=DA ) 98 . //GO.FT04F00 1 DD DSN=PDJNSPS.TSET1590.OTH.DISP=(.CATLC.DELETE) . 99 . / / UNIT=DISK,SPACE=(TRK,(25.10).RLSE) . 100 . / / DCB=(RECFM=F,LRECL=80.DSORG=DA ) COMMAND ?



### 2-1 3P.3 1



### Figur e 2-5 . Coa l Pric e Presen t Valu e Progra m

US E PAUL.PRICES(ICFINL ) CL R COMMAND ? L

1 . //PDJICFF L JO B (NSPSSASDDIND.D098).TIME=(,30 ) 2 . //STEP0 1 EXE C FORTXC C 3 . //FORT.SYSI N

D D» 4 . C»*«#*»*»**»»*»*###*####*»****»**#*«##»»»***#*#»###»«»»#**»»*»»*»###*#*#»#*»#» # 5 . C THI S PROGRAM TAKE S TH E "SET " FIL E FO RDELIVERE DCOA L PRICE S (11 0 IC F COA L TYPES ) 6 . C AN DCREATE S TH E P V FILE S FO RTH E 87 . AN D107 . DISCOUN T RATES . TH E YEA RT O 8 E RUN 7 . C I S SPECIFIE DI N TH E DAT A

STATEMEN T FO R"NYEAR" . I T SHOUL DB E CHANGE DT O IN 8 . C DICAT E TH E DESIRE DYEA R. 9 . C**»*»»*»»*»»*#*»***#**###**»#*»*»»*»*»#»##»#**» ^ 10 . DIMENSIO N FUEL(110.50.3 ) 11 . READ(2.»)FUE L 12 . CAL L ICFINL(FUEL ) 13 . RETUR N 14 . EN D 15 . SUBROUTIN E ICFINL(FUEL ) 16 . C*»*#*»**»*»*»»***»*»*»*»**#*»*»**»***»***»  ^ F0000 1 17 . C T O COMPUT E PRESEN T VALU E O F VARIOU S INVESTMEN T COMPONENT S F0000 1 18 . C** *»»*»**»*»»**»*»*»*»»********»#***»##**»» ^ 19 . C 20 . DEFINEFIL E 3(1683,80.L,IND).4(1683.80.L.IND ) 21 . DIMENSIO N DISCNTI3 . 2 ) .FUELU10 . 50.3 ) ,FUELPV(110 . 50,3 ) , 22 . &

FUELOP(110.3 ) 23 . DAT A

DISCNT/.12,.12,.08,.1,.1,.1/,NYEAR/90 / 24 . WRITE(6,50)NYEAR,DISCN T 25 . 5 0 FORMAT(// ' #••*#•»•»»•»»»» 19'.12. ' BOILE RRUN »»***#•»**•*#**• / 26 . # ' * DISCOUN T RATE S ' .3F8.4,/.19X.3F8.4 ) 27 . D O 99 9 IFILE=3, 4 28 . CAL L FLHALF(FUELOP.FUELPV,FUEL.2.DISCNT(l,IFILE-2).110.50.3,NYEAR , 29 . 8 . IFILE ) 30 . IND= 1 31 . D O 1 3 J=l,5 0 32 . WRITE < IFILE'IND . 14 ) ((FUELPV di J.K ) > K= 1.3 ) . 1 = 1.110 ) 33 . 50 0 FORMAT(1H1.20X.'YEA R'.12. ' ANNUALIZE DFUE L PRICE S FO RSECTOR'.12 ) 34 . D O 13 0 K=3. 3 35 . WRITE(6.500)J. K 36 . WRITE(6.501 ) (FUELPV d, J,K ) . 1 = 1,110 ) 37 . 13 0 CONTINU E 38 . 1 4 FORMAT(10F8.3 ) 39 . 50 1 FORMAT</30X»'P V O F FUE L PRICES'/(10F8.3) ) 40 . 1 3 CONTINU E 41 . WRITEdFILE'IND , 14 ) ((FUELOPd.K ) . K= l.3 ) . 1 = 1.110 ) 42 . 99 7 FORMAT(1H1,20X,'FU A TES T FUE L PRICE S FO RSECTOR'.12 ) 43 . D O 99 8 K=3. 3 44 . WRITE(6.997) K 45 . WRITE(6.501 ) (FUELOP d>K ) . 1 = 1,110 ) 46 . 99 8 CONTINU E 47 . 99 9 CONTINU E 48 . STO P 49 . EN D



### 2-1 4P.3 2



## — n

Figur e 2-5 . Coa l Pric e Presen t Valu e Progra m

50 . C**»«»»##****##*#»*»#»#«*******#*#*#*»»###*»»»*«*»»»»#*##»*#t*##*»*«#««# * 51 . SUBROUTIN E FLHALF(FUELOP.FUELPV.FUEL.NC.DISCNT,NDl,ND2.NDS.NYEAR . 52 . & IFILE ) 53 . C»*»**»**»»*»**»»»»«»***#»*##*»##*»*»»»#**»-»»*»*#**#«#*-»*»#»*#»##»*####t»»*# » 54 . C T O CONVER T INPUT YEARLYFUE L COS T MATRIC S T O AFTERTA X 55 . C PRESEN T VALU E O F TOTAL FUE L COS T OVEROFERATINC LIF E 36 . DOUBL E PRECISIO N SU M 57 . DIMENSION FUE L (NDl .ND2.ND3 ) ,DISCNTO ) ,STORE(30 ) ,FUELOP(ND l ,ND3 ) . 58 . &

FUELPV(ND1,N02.ND3 > 59 . C bi. C »•»

» ISTAR T I S YEA

RNE W UNIT S WIL L COME I

N 61 . C 62 . ISTART= 0 63 . DO 5 IREC=1,ND 1 64 . DO 3 ISEC=1. 3 65 . R=DISCNT(ISEC ) 66 . LAC=NYEAR-8 4 67 . IF(ISEC.EQ.3)LAC=ISTART*t*LA C 68 . DO 5 IYR=LAG,5 0 69 . IFdYR.EQ.LAC)FUELOP(IREC.ISEC)=FUEL(IREC.IYR,ISEC ) 70 . STORE(IYR)=-FUEL(IREC.IYR.ISEC) # 71 . » PVALUE(IYR-LAG+1.IYR-LAG+1,R)*. 5 72 . IF(IYR.CT.LAC)STORE(IYR)=STOREdYR)*STORE(IYR-l ) 73 . IF((IYR.EQ.LAC+10).AND.(IFILE.EQ.3) ) 7 4
. & STOR E ( I YR>=STOREdYR>-STOR E <LAG+1 ) 7 5

. FUELPVdREC.IYR-LAC+l.ISEC)=AMAX l (STOREdYR ) ,-999.0 ) 76 . 5 CONTINU E 77 . RETURN 78 . END 79 . C****»#*»»***#*»»*#»#*»***>*»»***»»***»***»»*****»*»»»*»*****»*» * 80 . C 81 . C T O COMPUT E PRESEN T VALU E O F INVESTMENT 82 . C 83 . C 84 ! C NS=STARTIN C YEA RO F INVESTMEN T 85 . C NE=ENDIN C YEA ROF INVESTMEN T 86 . C R"DISCOUN T RAT E 87 . C •»»»•»»•»#•»**•»**»»*•»**»*»*•»•»**» * *•»»*•»»*#»»»***•»»»•»»*•* » 88 . FUNCTION PVALUE(NS.NE.R ) 89 . DOUBL E PRECISION X 90 . C 91 . IF(R.EQ.-l.)R=-.9 5 92 . Xsl./a.+R ) 93 . IF(X.NE.l. ) GO T O 1 94 . PVALUE=NE-NS+ 1 95 . RETURN 96 . 1 CONTINU E 97 . PVALUE=(X»*»NE-X#»(NS-1))/(X-1. ) 98 . RETUR

N 99 . END 100 . //CO.FT02F00 1 D D DSN=PDJNSPS.PRICES(COLSET05),DISP=SH R 101 . //GO.FT03F00 1 DO DSN=PDJNSPS.SET0590.FOB.DISP=(.CATLC,DELETE) . 102 . / / UNIT=DISK.SPACE=(TRK.(25.10).RLSE) . 103 . / / DCB=(RECFM=F.LRECL=80.DSORC=DA ) 104 . //GO.FT04F00 1 O D DSN=PDJNSPS.TSET0590.FOB,DISP=(.CATLC,DELETE) . 105 . / / UNIT=DISK.SPACE=(TRK,(25.10).RLSE) » 106 . / / DCB=(RECFM=F.LRECL=80.DSORG=DA ) COMMAND ?



### 2-1 5P.3 3

Th e forecas t include s th e su m o f non-metallurgica l coal , natura l gas , distillat e an

dresidua l fue l oi l fo r tota l boile r andproces s hea t fossi l fue l demand . I t exclude s petro-chemica l feedstock s an dnatura l ga s
consume da s leas e an

dplan t fuel . Figur e 2- 6 present s tw o curren t IFCA

M inpu t files . Th e firs t colum n i s th e Federa l regio nnumbe r (se e Figur e 1-2) . Th e secondcolum ni s tota l fossi l fue l demandinth e Petroleu m Refinin g industry . Th e thir dcolum ni s tota l fossi l fue l demandinth e othe r industr y group . Projection s fo r 198 5
ar e include di

nfil e "DEM(RS085) M

an dprojection s fo r 199 0 ar e include din fil e "DEM(RS090)" . Th e sourc e fo r th e value s presente dinFigur e 2- 6 i s th e Middl e Worl dPric e (Cas e A ) o f th e DO E Energy Informatio nAdministra tion' s 198 2 Annua l Energy Outlook . Thi s forecas t i s derive dfro m output s
o f EIA' s Intermediat e Future s Forecastin g System . Th e standar dfor

m o f thi s fil e name i s "DEM( R) " wher e thes e fou r blankspace s ar e define db y th e user . Th e firs t two blan kspace s ar e
a two-characte r scenari o code . I nth e example s presente dinFigur e 2-6 , th e scenari o cod e i s "SO" . Th e las t tw o blankspace s ar e th e ru nyea r (i.e. , "85 " o r "90") . 2. 4 INDUSTRIAL PRODUCTION GROWT H FORECAS T Industria l productio ngrowt hrate s ar e use dt o determin e th e relativ e energ y demandgrowt hrate s betwee nindustr y group s inIFCAM . The y d o no t affec t th e aggregat e energy demandtotals . The y ar e use dt o allocat e thos e total s amon g th e majo r industr y groups . Currently , IFCA

M use s projection s o f U.S . Departmen t o f Commerc e valu e adde ddata , inmillion s o f 197 5 dollars , b y Federa l regio nan

dindustr y group :

• Food

• Textile s

• Pape r

• Chemical s

• Petroleu

m Refinin g

• Stone , clay , an

dglas s

• Stee l

• Aluminu

m t Othe r (miscellaneou s manufacturing , agriculture , construction , an dmining )

2-1 6P.3 4



### Figur e 2-6 . Industria l Fue l Deman dProjection s



# I I COMMAND ? us e *pdJnsps.dem(rso85 > ci r COMMAND ? 1 1 . 2 . 3 . 4 . 5 . 6 . 7 . 8 . 9 . 10 . COMMAND ? COMMAND ? 1 . 2 . 3 . 4 . 5 . 6 . 7 . 8 . 9 . 10 . 1 0. 0 196. 0

2 43. 0 485. 0 3 59. 0 897. 0 4 44. 0 1531. 0 5 101. 0 2217. 0 6 482. 0 2763. 0 7 25. 0 595. 0 8 32. 0 528. 0 9 120. 0 695. 0 1 0 31. 0 419. 0 us e *pdjnsps.dem(rso90 ) 1 1 0. 0 212. 0 2 41. 0 513. 0 3 54. 0 964. 0 4 41. 0 1638. 0 5 94. 0 2369. 0 6 448. 0 3041. 0 7 24. 0 633. 0 8 30. 0 594. 0 9 111. 0 774. 0 1 0 28. 0 483. 0 

### ci r

2-1 7P.3 5

Figur e 2- 7 present s thre e IFCA M inpu t dat a files . "NSPSDATA(DRI75)" , "NSPSDATA(DRI85)" , an d"NSPSDATA(DRI90) " contai nestimate s fo r 1974 , 1985 , an d1990 , respectively . "NSPSDATA(DRI75) " present s valu e adde destimate s b y ro w fo r th e nin e industr y group s (i nth e orde r liste dabove ) an db y colum nfo r th e tenFedera l region s (i nth e orde r show ninFigur e 1-2) . I n thi s example , industry group s 7 (Steel ) an d8 (Aluminum ) us e estimate s fo r tota l Primar y

Metal s an

dindustr y

group2 (Textiles ) use s estimate s fo r industr y grou p9 (Other) . Ro w 1 i n"NSPSDATA(DRI85) " an d"NSPSDATA(DRI90) " ar e conservatio n factor s fo r eac ho f th e nin e industry groups . The y

represen t forecast s o f reduction s i nenerg y

consumptio npe r uni t o f outpu t (1974=1.0) . Derive d industria l productio ngrowt hrate s ar e multiplie db y thes e conservatio n factor s t o estimat e growt hrate s intota l energ y consumptio nb

y regio nan

d industr y group . Row s 2 throug h1 0 correspon dt o th e 9 0 value s show nin "NSPSDATA(DRI75)" . Thes e thre e file s canbe replace do r revise dbu t th e fil e name s mus t
no t chang e i f th e ru

nyear s ar e 198 5 an

d1990 . Industria l productio n estimate s i nconstan t dollar s othe r tha n197 5 dollar s o r indice s ma y b e substitute da s long a s al l thre e file s ar e consistent .

2-1 8P.3 6

rt * «J *

. . •I-

. f-

. « f •ont*. <ons9>*>i n o***s»cors«icO'*">****«s i rt CO->-O N C

O -*•*—0 0 C O *•*** » »• « ••—

< rt *-t CO - 0 *--••-

> 0 * ••"f

r 0 * 0 * « 0 c o «* - i o •*- o N s st-« - NC**»**-*C* v -C-*''r**-**'-iO* ' • I N • • . . r s M 00*50 * •>NNC 9
« * C O CO *• * N S l r s r* s CO

~ c o <s . « o r s Nmi n c o CO*^(S|-^«*^4«0*>~<*»-- , *r 4

• ^ • * o o t s a » • > > o > o *«i

- • * «* • i n no r s No o o o «i

- •tNtna-ONN N l-sCO-aN- * - •N M CO • 0 ^ ••••••Q N r v« f , 0 *s

> N i s r s rs . •« * NNCON-.CONN N rsoocofocoootsrso o N(i)«M^H^«( 0 •« 0 -4 ) rsoo*^<**>Hiors*<*«o o MMrs|O00«l"*** M C
- 0 0 0** * N > 0 r s C M N 0 0 •>in«n-NNNi o

(*>J*^ 4 .....* 4 I D * •« TC

O - 0 --•

C~-t m-a- ^ t o s

o - a N (s i s i •»<*«too»4»«*«tt'0*(h*«» ' C O *

..... . * is.*^)<scooo*«frsrs,^ )

- O I O •*-•

> is

. S l S t - 0 - 0 1 0 T**I « •**•»MCOI O rsr s i o |0.*4......*^* 4 CM O N o

* c o • « i o i o i o N S l 0 0 is

. N C

O - 6 - 0 S t MCs^vf-arrsOOOOO* *

• C O • • • C O **-^ 4 •< 0
. . rt rt rt i n i n c o c o c o «*> •- o « o t o • a « * m i n <

a c o N C- J « t •jj * rt * o N c o c o —— •••- • •^ > •••a ^ »

i n s •«*

•« N « o -o s t lOCOCO*»-«*«f-C0-O»OC 0 N - O N co-os i s>s i >

o IOrt-4COCO*-*-*>*<-* , *<-i*»-- > . S I *

.. . Q l o o co •«* • . r s rs, is
. co i o <s » o « r s ( a • * • * « » < o - o t o s i N i n c

o c o - o

- « N C

O I O i * rt rt rt N

4- > ( J -X.

• M CJ 3
• o o s Q

.

CO 

# \z

•l- J I/ ) 3
• o

is
. CS J -)

o > i

. u

1 0 is
. •r* i.

xt i n a . U l

U l O L U l c •" » T J •*>......o> * c o i n s t N .-«••-••*->.-< i n i n c o « r N • * <>•

•s t s t c o C0**CfC0**CM—•-•• * «|- N <--•-

) O C O •<-* > N N N

^ i s • s t • « C MC M< a C Mc o c o - < > o -

^ - a < a c o > > ••*

- c o ~o- £ s t c o c o <
- NN4-SlN-»*-*0-O N '-<0 > *IO*'^*****<*t*.^*» , <0 > '

•i

. .(M*

. .. . ( M -r t •*IO00* * •C

O • * • * I O U I D I O S i *4-C O -*•*

- -6- 0 I O -OC0C0NO**-O*'*O-OC0- ~ «O«***00*«l'Csl(OC0'*l O G O

• Q O * N r t *-> .f r y*-yl su a - ^ IOC0 M

• < M • N S i n 0 0 C O S I -OW*- ) **>*** N •••u

a. S

kS I 0 0 T

J fs
. • fs
. N N -m ••*• Qr* * « ^ *^* , t ) * ^ t. •**4 ) • * stsn a •*

*

- 0 C O N .-ar t C

O <« J TJ U l

••••N « o ••<- . mi n S i S l - 0 S l 0 0 0 0 C

O inc o o- rtrt m c o i o *•- » c o c o • * • a .

i n 

### c

• • •- > .(0>

. ••C O T J CON-^C O ••m m N o. •*>O*^**00*«l'C0C0«O* » i o i o CM O ••-•

> c o m i o i n rtN'-«**-i**-*''rsrtrtN w i n 3 < •C0»N , " | '***C 0 Nco**ts.io*>*e*»*©«o * N S l «>

•S l fs

. r s N - ^ rt «( • •>N*«fo»**-«*-«fs.rs.ts.*j- r

C O •• v « •<4> •••«* * o * -•i o ** N ••coco m

•NCON**«*©OIOIOC O N i o o o c o c o «* •c o c o i n C0*OSt-"--*0sC0-*«tS t rtrtrtUOrt**—l«»frrtrtrt o

« t •C O ••...c o - r t Nl ) rt N < t •rt (*»> •Cr * »• « frniflN*t-t--*«fio •rs.oosimoo*^>***>*c o COIOIOCNIONCOCOI O N

S i 0 *

«* 0 C O 0 *

N N 0* -

r s o 0 0 •••••0 0 >o- •> o i o ••*-

•ini n *•- « s t N •*- > rs . s t o

o rs , is , N NNN-4-tlOSS S >0« * N 4<O N 0 0 00-4 -

•co« . ...c o C O N 0*

> C O .mStSt N rt|D*a<0 0>»NM O
* * C O 0* > 0 0 N 0 * C

O C O 0 0 m'j-^o-rsrtNCM* * < a o i

. TJ

4 T » U l 0
. U l c

. U l a . U l c

•ON.

. « . or * ^ COfs

. N OT•.O-OTsCL

. rtNN«tO>t>NNN** |s.rs.oors.co*^»-*«r

s -rtN*^<*^-*00*<^*^* N v U l 3 < •C

^ •0 0 * * * •o* ONStSt0000<O-0-0S l iDNCO-ossNininc o rscocooosicom****© - •fs-CONNIONNNC O 0 0 •• I O • t - • • • • rsoo** 1 * 4 • ***

o * .o^o*******

• 0 0 -tO'-m I

O - 0 I O I O -* N - ^ < f >< f c o o o xt * <r- < COSIIO-OCO-OSI-O-OI D |OcMrt^OrtNls.rtrtr t fs
. 0>CO* 1 *t' , *«J " ...* * 0 0 S l C

O CO N 'I O S l SiC O MfiexN» 0 O-iCOOO O .coinio-o*4cois.rs m

^ OOh. ^ O-

( 0 * x t 0 0

••I O ••••I O o o - o r s co • --* t

•• * -o ii)N<-<>tioaMOtf) M

• O —-O00**«fsC0CO< O r s C O «t-NO - coc o ooo o • *

C O 0 0 fs

.
0 * m f s

O S i m m 0* * N
•N C O "C O -Ol O 0 0 rt«0 0»
. N N * • ^ N rm

o o •. C O S l 0 0 fsCC O StNO O •*N N •.. . C O N S l C N O - 0 I H IS ) * M ' M i l S l C* » CO CO N - < N N N-4 )

" * * 0 0 • r- s - . --.c o •- o 0 s c o c o r s C O •— ' ** ^ •»- > S t N*»* « - ^ -r t nt w lfi
<*.

. r> . <x-r> . _:_ •" Q Q Q Q 5 5 

### z z .....•• • >z z • ••••••• • .z z •sc«*«Nco**m*^rs.oocs«a*^Nco**m*<fsoooNSiSS^ NW 

### * f,0 

### ' or 

### ^ coo 

### *' a 

### z z z z —S S ** C I z z E Z 

### o o o o o o o o o o ^ "

2-1 9P.3 7

< «

3 . OPERATINGINSTRUCTION S

3. 1 INTRODUCTION Currently , EP

A i s reviewin g projecte denvironmental , cos t an denerg y impact s o f alternativ e S0 2 NSP S fo r ne w industria l fossi l fuel-fire d boiler s installe dinth e five-yea r perio dfro m 1986-1990 . Th e bas e yea r i n IFCA M i s 1974 . Therefore , th e bas e yea r mus t b e extende dt o 198 5 an dth e projecte dpopulatio no f new industria l fossi l fuel-fire dboiler s installe d fro m 198 6 t o 199 0 mus t b e created . Figur e 3- 1 present s th e sequenc e o f IFCA M file s whic hcontai nth e
necessar y

Jo bContro l Languag e (JCL ) t o ru nth e variou s IFCA

M programs :

• CALINT(BASEJCL )

• EC0N(JCL85 )

• TABLE(JCL85 )

• CALINT(BASEJCL2 ) t EC0N(JCL90 )

• TABLE(JCL90 ) Figur e 3- 1 als o show s th e majo r IFCA M inpu t file s (discusse dinSectio n2 ) whic hca nb e modifie db y th e user . Al l job s mus t be ru

ninth e orde r show

ni nFigur e 3-1 . However , TABLE(JCL85 ) doe s no t nee dt o b e ru nbefor e CALINT(BASEJCL2) . TABLE(JCL85 )
ca nb e ru

na t an y time afte r EC0N(JCL85 ) i s executed . I nfact , TABLE(JCL85 ) doe s no t nee dt o be ru na t al l becaus e EPA' s NSP S analysi s focuse s o nth e outpu t fro

m TABLE(JCL90) , no t TABLE(JCL85) . Th e fil e tha t i s revise dmos t ofte nb y th e mode l use r i s th e NSP S fil e
use dinEC0N(JCL90) . Al l othe r assumption s ar e usuall y hel dconstant . IFCA M projections , base donalternativ e NSP S assumptions , ar e compare dt o
asses s th e projecte denvironmental , cos t an denerg y impacts . A s show

ni n Figur e 3-1 , i f al l inpu t assumption s ar e t o b e hel dconstan t an donl y th e NSP S fil e use dinEC0N(JCL90 ) i s t o b e modified , the ni t i s no t necessar y t o rerunCALINT(BASEJCL) , EC0N(JCL85) , an dCALINT(BASEJCL2) . Revis e th e



### 3- 1P.3 8

FIGUR E 3- 1 

# Sequenc e O fIFCA M Progra m Job s

198 5 Ind

. Fossi l Fue l Deman d DE M (RS085 )

fNSP S U

1990 Ind

. Fossi l Fue l Deman d DE M (RSO90)

(NSP S L Creat e Populatio n of Industria l Boiler s i n 198

5 CALIN T(BASEJCL ) 

# i

Determin e Least-cos t Fue l Type , Emission s an d Cost s fo rEac h Boile ri n 1985

. ECO N (JCL85 )

Creat e Populatio n o f Industria l Boiler s i n 1990

. CALIN T(BASEJCL2 ) 

# I

Determin e Least-cos t Fue l Type , Emission s an d Cost s Fo rEac h Boile ri n 1990

. ECO N (JCL90 ) 

# K

K 1974 Ind

. Prod

.

NSPSDAT A (DRI75 )

198 5 Ind

. Prod

. NSPSDAT A (DRI85 )

198 5 Fue l Pric e File s 

# I

Generat e Outpu t Table s TABL E (JCL85 )

Outpu t Table s

197 4 Ind

. Prod

. NSPSDAT A (DRI75 )

1990 Ind

. Prod

. NSPSDAT A (DRI90 )

1990 Fue l Pric e File s 

# I

Generat e Outpu t Table s TABL E (JCL90 )

Outpu t Table s

3- 2P.3 9

NSP S file , edi t EC0N(JCL90 ) t o incorporat e th e new NSP S fil e name , rerun EC0N(JCL90 ) andthe nrerunTABLE(JCL90) . Th e followin g section s explai nFigur e 3- 1 indetail . 3. 2 INDUSTRIAL BOILER S I N 198 5 Fil e CALINT(BASEJCL ) contain s th e JC L t o creat e th e populatio no f industria l boiler s i n1985 . Thi s fil e i s liste di nFigur e 3-2 . Line s 14 , 15 , 20 , 36 , 43 , 44 , 120,.an d13 4 mus t b e edited . I neac ho f thes e line s i nFigur e 3-2 , ther e i s "XX " whic hmus t b e replace dwit ha scenari o code . Thi s scenari o cod e mus t b e consisten t wit hth e projecte d 198 5 industria l fossi l fue l deman dinpu t fil e (se e Sectio n2.3) . Figur e 2- 6 present s a nexampl e o f these inpu t file s an dinthi s exampl e th e scenari o cod e i s "SO" . Th e scenari o cod e ca nonl y b e tw o character s in length . Eac h"XX " inth e line s liste dabov e mus t b e replace dwit hth e same scenari o code . Fo r example , i f th e mode l use r wishe s t o us e inpu t fil e DEM(RS085) , i t i s necessar y t o replac e eac h"XX " wit h"SO " (th e secon dan d thir dcharacter s insid e th e parentheses) . I f th e mode l use r create dinpu t fil e DEM(RAR85) , i t woul db e necessar y t o replac e "XX " wit h"AR " i nal l o f th e line s liste dabove . 3. 3 FUE L CHOIC E DECISION S I N 198 5 Fil e EC0N(JCL85 ) contain s th e JC L t o mak e fue l choic e decision s fo r industria l boiler s i n1985 . Thi s fil e i s presente dinFigur e 3-3 . Use r option s ar e locate dinline s 3 1 an d3 2 inFigur e 3-3 . User s ca n modif y value s fo r "OGPV" , "CLPV" , "ARO" , and"INDF" . Inthi s example , th e presen t value s o f industria l fue l oi l an dnatura l ga s price s ar e store din file s labele d"SET15 " an dth e presen t value s o f industria l coa l price s ar e store dinfile s labele d"SET05" . I f new fue l price file s ar e create d(a s discusse di nSectio n2.2) , th e revise dfil e name s mus t b e identifie din lin e 31 . Th e scenari o cod e (SC = inlin e 31 ) mus t b e consisten t wit hth e scenari o cod e use dinCALINT(BASEJCL) . I nth e exampl e presente dinFigur e 3-3 , SC=S0 . Th e NSP S assumption s ar e store di na fil e labele db y th e user , NSPSDATA ( ) , a s discusse dinSectio n2.1 . Th e name insid e th e paren these s i s inserte di nlin e 32 , "AR0 = " . Inthi s example , fil e NSPSDATA(AR0142 ) i s t o b e use d(sinc e "AR0=AR0142 " inlin e 32) .



### 3- 3P.4 0

Figur e 3-2
. CALINT(BASEJCL )

COMHAND ? US E PAUL.CALINT(EASEJCL ) CL R COMMAND ? L

1 . 2 . 3 . 4 . 3 . 6 . 7 . 8 . 9 . 10 . 11 . 12 . 13 . 14 . 13 . 16 . 17 . 18 . 19 . 20 . 21 . 22 . 23 . 24 . 23 . 26 . 27 . 28 . 29 . 30 . 31 . 32 . 33 . 34 . 33 . 36 . 37 . 38 . 39 . 40 . 41 . 42 . 43 . 44 . 43 . 46 . 47 . (NSPSSASDDIND.D098)a'CAL8S'»TIME= 1 R02 0 //PDJCAL8 3 JO B /•ROUT E PRIN T II* ***************************
* NAME NSPS:CALIN T * II* II* II* II* //JOBLI B D D DSN=PDJNSPS.NSPSLIBtOISP=SH R II* STEP0 1 »•**##•*»••**•••*«•*•*»••••*•••••••*»*•*•»••••••••*«•••** • //STEP0 1 EXE C PCM»BOIL01FREOION»200 K //FT06F00 1 D D SYSOUT= A //FT1SF00 1 DD DSN=PDJNSPS.NSPSDATA(ECDBTN>.DISP=SH R //FT03F00 1 DD DSN=PDJNSPS.NSPSDATA(BLRDMN83>.DISP=SH R //FT04F00 1 DD DSN*-*PDJNSPS.DEM(PTXX85).DISP=*M0 D //FT20F00 1 D D DSN=PDJNSPS.DEM(PARMXX85).DISP=M0 0 //FT23F00 1 D D DSN*PDJNSPS.NSPSDATA(BOBCOAL)aD!SP=SH R //FT30F00 1 D D DSN=66C0FACfDISP=(iPASS>. » / / UNIT=SYSDA»SPACE=<TRK . U50.50 ) .RLSE ) . / / DC B = (RECFM=FB»LRECL-**80»BLKSIZE-'12000 ) //FT08F00 1 DD DSN=PDJNSPS.DEM(RXX83>»DISP=SH R //FT10F00 1 D D DSN=PDJNSPS.NSPSDATA(B08C0AL),DISP=SH R //FTUF00 1 D D DSN=PDJNSPS.NSPSDATA(NBBCOAL)-DISP--SHR //FT16F00 1 D D DSN=PDJNSPS.NSPSDATA(DRI75),DISP=SH R //FT02F00 1 D D DSN=PDJNSPS.NSPSDATA(DRI83>.DISP=SH R //FT05F00 1 D D *

»

8 5 1 0 .006 2 ,006 2 // • STEP0 Z »«»#**##*#*»»#*»»#*•#»*•*#**»#•#•*•»##•#*##**#»*##«#*#•»»* * //STEP0 2 EXE C PCM=B85002.RECION=183 K //FT06F00 1 DD SYSOUT=*A //FT13F00 1 D D DSN=PDJNSPS.DEH(PTXX85)»0ISP=SH R //FT10F00 1 DD DSN--.PDJNSPS.NSPSDATA(NEWBD6 ) .DISP=SHR //FT11F00 1 D D DSN=-&8.TEM.DISP=(.DELETE > . / / UNIT=SYSDA.SPACE-MTRK . (150.50 ) .RLSE ) » / / DCB=(RECFM=FB.LRECL=80»BLKSIZE'*12000 > //FT09F00 1 D

D DSN=PDJNSPS.NSPSDATA(AQCRCDF),DISP=SH R //FT03F00 1 D

D DSN=PDJNSPS.NSPSDATA(EXB075 ) .DISP--SH R //FT20F00 1 D

D DSN=PDJNSPS.DEM(PARMXX85).DISP=0L D //FT21F00 1 D

D DSN-*PDJNSPS.DEM(PARMXX83).DIS P = SH R //FT04F00 1 D

D DSN=&&CAT1.DISP=(.PASS)

. / / UNIT=SYSDA»SPACE=(TRK.(150.50).RLSE)

. / / DCB=<RECFM=FB»LRECL=80.BLKSIZE=12000 )

3- 4

-^ ^P.4 1 f l

Figur e 3-2
. CALINT(BASEJCL )

48 . // • STEP0 3 ••»•••••»••**»•••*••••»•»*•*#*»»***•»•***•»#**•***#*••*••• * 49 . //STEP0 3 EXE C SORTD.REGI0N"52 K 30 . //SORT.SYSOU T DD DUMM Y 31 . //SORTI N

DD DSN=88CAT1,DISP"(OLD,DELETE ) 32 . //SORTOU T D D DSN=e8CAT2»DISP=(.PASS) , 53 . / / UNIT"SYSDA.SPACE=(TRK.(150.50).RLSE) » 34 . / / DCB=(RECFM"FB.LRECL=80.BLKSIZE"12000 ) 55 . //SORTHK0 1 D D UNIT=SYSDA.SPACE"(TRK.(80)..CONTIC ) 56 . //SORTHK0 2 D D UNIT=SYSDA.SPACE"(TRK,(80).,CONTIC ) 57 . //SORTUK0 3 D D UNIT=SYSDA.SPACE"(TRK.(80)..CONTIC ) 58 . //SORTWK0 4 D D UNIT=SYSDA,SPACE"(TRK,(80)..CONTIC ) 59 . //SORTMK0 5 D D UNIT=SYSDA.SPACE"(TRK.(80)..CONTIC ) 60 . //SORTWK0 6 DD UNIT=SYSDA.SPACE"(TRK.(80)..CONTIC ) 61 . //SYSI N

D D » 62 . SOR T FIELDS=(1.28.CH.A ) 63 . // * STEP0 4 •••»•**•»•»***•••*****••*••••*••*•**»*•«***••*•*•*•»••••• • 64 . //STEP0 4 EXE C PCM=B85003.RECION=100 K 65 . //FT06F00 1 D D SYSOUT= A 66 . //FT02F00 1 D D DSN=S&BOILERS.DISP"(.PASS) . 67 . / / UNIT=SYSDA»SPACE=(TRK»(130.30).RLSE) . 68 . / / DCB"(RECFM"FB.LRECL"80.BLKSIZE"12000 > 69 . //FT01F00 1 D D DSN=SSCAT2.DISP"(OLD.DELETE ) 70 . // * STEP0 S »*•***»•***••***#***#***••• »•** *•«*•••**••**•**••**•• • 71 . //STEP0 5 EXE C S0RTD.REGION"32 K 72 . //SORT.SYSOU T DD DUMM Y 73 . //SORTI N

DO DSN=6&B0ILERS»DISP"(OLD.DELETE ) 74 . //SORTOU T D D DSN=86CAT0.DISP"<.PASS) . 73 . / / UNIT=SYSDA.SPACE"(TRK.(150.50).RLSE) . 76 . / / DCB=(RECFM"FB.LRECL=80.BLKSIZE=12000 ) 77 . //SORTWK0 1 D D UNIT=SYSDA,SPACE"(TRK.(80)..CONTIC ) 78 . //SORTWK0 2 D D UNIT"SYSDA.SPACE"(TRK.(80)>.CONTIC ) 79 . //SORTHK0 3 D D UN1T=SYSDA.SPACE"(TRK,(80)..CONTIC ) 80 . //SORTUK0 4 DD UNIT=SYSDA.SPACE"(TRK.(80)..CONTIC ) 81 . //SORTWK0 5 DD UNIT=SYSDA.SPACE"(TRK.(80)..CONTIC ) 82 . //SORTUK0 6 DD UNIT=SYSDA.SPACE"(TRK.(80)..CONTIC ) 83 . //SYSI N

D D * 84 . SOR T FIELDS"(13.9.CH»A ) 83 . II*

STEP0 6 »»»##*#»#*»**#»»»•#•»*#»•*##•##•*•#*•»*•#«#•»#»«»*•###»#*#« * 86 . //STEP0 6 EXE C PCM"B85004.RECION"S00 K 87 . //FT06F00 1 D D SYSOUT= A 88 . //FT01F00 1 D D DSN=PDJNSPS.NSPSDATA(FILTAOCR).DISP=SH R 89 . //FT02F00 1 D D DSN"PDJNSPS.NSPSDATA(NEUSIPS2).DISP=SH R 90 . //FT03F00 1 D D DSN=88CAT0.DISP"(OLD.DELETE ) 91 . //FT04F00 1 D D DSN=&8CAT1.DISP"(.PASS) , 92 . / / UNIT=SYSDA.SPACE"(TRK.(150.30).RLSE) » 93 . / / DCB»(RECFM"FB.LRECL=80.BLKSIZE»12000 )



### 3- 5P.4 2

Figur e 3-2
. CALINT(BASEJCL )

94 . II*

STEP0 7 »#»»*•##*»»*#»#»#«•##•*##*#»**#•##»•«»*«»»#»»»#*•»•##*»•» # 95 . //STEP0 7 EXE C SORTD.REGI0N"52 K 96 . //SORT.SYSOU T D D DUMM Y 97 . //SORTI N

DD DSN=&8CAT1.DISP=(0LD.DELETE ) 98 . //SORTOU T DD DSN=88CAT2.DISP"(.PASS) . 99 . / / UNIT=SYSDA.SPACE"(TRK.(130.30),RLSE) . 100 . / / DCB"(RECFM"FB,LRECL"80,BLKSIZE"12000 ) 101 . //SORTWK0 1 D D UNIT=SYSDA,SPACE"(TRK.(80)..CONTIC ) 102 . //SORTWK0 2 DD UNIT"SYSDA.SPACE"(TRK.(80).,CONTIC ) 103 . //SORTWK0 3 D D UNIT=SYSDA,SPACE"(TRK,(80)>.CONTIC ) 104 . //SORTWK0 4 DD UNIT=SYSDA,SPACE"(TRK,(80).,CONTIC ) 105 . //SORTHK0 5 D D UNIT=SYSDA,SPACE"(TRK,(80),,CONTIC ) 106 . //SORTHK0 6 D D UNIT=SYSDA,SPACE"(TRK.(80),.CONTIC ) 107 . //SYSI N

D D » 108 . SOR T FIELDS"(1.35.CH.A > 109 . II*

STEP0 8 »»#«»•*•»#»#*##****»»•»»»#•»»*«»»»»•»•••»«»•#••«»»»«•*»»• » 110 . //STEP0 8 EXE C PCM=BOIL05.RECION=100 K 111 . //FT06F00 1 D D SYSOUT" A 112 . //FT02F00 1 D D DSN"88CAT3.DISP"(.PASS) . 113 . / / UNIT=SYSDA,SPACE"(TRK,(150,50),RLSE) , 114 . / / DCB=(RECFM=FB,LRECL=80,BLKSIZE=12000 ) 115 . //FT01F00 1 DD DSN"88CAT2,DISP"(OLD,DELETE ) 116 . II*

STEP0 9 ****•#*•*•**•***••**»# #** ****#*******•*«*•»**•**«•••* • 117 . //STEP0 9 EXE C S0RTD»RECI0N=52 K 118 . //SORT.SYSOU T DD DUMM Y 119 . //SORTI N

D D DSN=S8CAT3.DISP=(OLD.DELETE ) 120 . //SORTOU T D D DSN=PDJNSPS.DEM(B0XX85),DISP=MO D 121 . //SORTUK0 1 D D UNIT=SYSDA,SPACE"(TRK,(80),,CONTIC ) 122 . //SORTUK0 2 D D UNIT"SYSOA,SPACE"(TRK,(80),,CONTIC ) 123 . //SORTWK0 3 D D UNIT=SYSDA,SPACE"(TRK,(80),,CONTIC ) 124 . //SORTWK0 4 D D UNIT»SYSDA.SPACE"(TRK.(80)..CONTIC ) 125 . //SORTWK0 5 DD UNIT=SYSDA.SPACE"(TRK.(80),,CONTIC ) 126 . //SORTHK0 6 DD UNIT»SYSDA.SPACE"(TRK.(80)..CONTIC ) 127 . //SYSI N

D D * » 128 . SOR T FIELDS=(26.10,CH,A,8,9,CH.A.5.3.CH.A.1.2.CH.A ) 129 . II*

STEP1 0 ##»##«*•*#•###•#»»»#**»***»«**•*#***••*•**»••«##*##«#«»•»# # 130 . //STEP1 0 EXE C PGM=BOIL06,RECION=100 K 131 . //FT06F00 1 D D SYSOUT= A 132 . //FT09F00 1 D D DSN=PDJNSPS.NSPSDATA(BOBCOAL),DISP=SH R 133 . //FT04F00 1 D D DSN=8SC0FAC.DISP"(OLD.DELETE ) 134 . //FT08F00 1 D D DSN=PDJNSPS.DEM(BOCXX83).DISP=MO D COMMAND ?



### 3- 6P.4 3



### Figur e 3-3 . EC0N(JCL85 )

COMMAND

? 1
. 2
. 3
. 4
. 3
. 6
. 7. 8
. 9
. 10
. 1 1
. 1 2
. 13
. 14
. I S

. 16
. 17
. 18
. 19
. 2 0
. 2 1
. 2 2
. 2 3
. 2 4
. 2 3
. 2 6
. 2 7
. 28
. 2 9
. 3 0
. 3 1
. 3 2
. 3 3
. 3 4
. 3 3
. 3 6
. 3 7
. 3 8
. 3 9
. 4 0
. 4 1
. 4 2
. 4 3
. 4 4
. COMMAND ? ut e *»>dJntn.tcori<Jcl83 > ci r

1 //PDJEC08 3 JOB (NSPSSASDDIND.D098.t130).'BASE8383»'»PASSW0RD»RUN»TIME*» 3 //JOBLI B DD DSN-PDJNSPS.NSPSLIBiDISP>SH R /•CPUI D EPA 3 /•ROUT E PRINT R02 0 /»CNT L PDJECOfSH

R //ECO PRO C //STEP0 1 EXE C PCM»8,ECOPCM»RECION»800 K //FT06F00 1 D D SYSOUT- A //FT01F00 1 DD DSN»PDJNSPS.FORCAP.DISP**SH R //FT02F00 1 DD DSN>PDJNSPS.FOROMtDISP-SH R //FT03F00 1 DD DSN»PDJNSPS.»CLPV.83.F0BrDISP»SH R //FT08F00 1 DD DSN=PDJNSPS.»0CPV.83.0TH»DISP"SH R //FT20F00 1 D D DSN»PDJNSPS.DEM<PARM*SC.83)»DISP«M0 D //FT21F00 1 D D DSN>PDJNSPS.DEM(PARM&SC.83)rDISP>SH R //FT23F00 1 DD DSN«PDJNSPS.TtCLPV.83.F0B,DISP«SH R //FT28F00 1 D D DSN>PDJNSPS.U0CPV.83.0THfDISP>SH R //FT33F00 1 D D DSN>PDJNSPS.(CLPV.83.F0BrDISP«SH R //FT38F00 1 DD DSN°PDJNSPS.&0CPV.83.0THrDISP-SH R //FTUF00 1 D D DSN-PDJNSPS.DEM(B0&SC.83)>DISP>SH R //FT12F00 1 DD DSN>PDJNSPS.DEM(B0CtSC.83)fDISpaSH R //FT10F00 1 DD DSN>PDJNSPS.NSPSDATA<NEWRET)>DISP<>SH R //FT13F00 1 DD DSN'PDJNSPS.NSPSDATA(&ARO.)>DISP"SH R //FT16F00 1 D

D DSN>PDJNSPS.NSPSDATA(COALS110)t>DISP-SH R //FT17F00 1 DD DSN»PDJNSPS.NSPSDATA(LVEC83 ) r-DISP»SH R //FT30F00 1 DD DSN=PDJNSPS.DEM(SUM*SC.83)»DISP=M0 D //FT14F00 1 D

O DSN-PDJNSPS.DUIN&INDF.(B083)aDISP-M0 D //FT89F00 1 D

D DUMM Y DD SYSOUT»

A DD DUMM Y //FT83F00 1 //FT99F00 1 / / PEN

D // B EXE C PROC»ECO>OCPV>SET13>CLPV*SET03>SC*<SOr / / AR0«AR0142FEC0PCM"S02>INDF*>17 8 //STEP01.FT03F00 1 DD # 0 0 0.547 6 8 3 90 0 10*90 0 2 1 3 10 0 4 0 99999999 9 / »



### 3- 7P.4 4

IND F i s anidentificatio ncode . I f th e use r keep s a lo g o f al l IFCA M
runs , IND F ca nb e use dt o kee ptrac ko f eac hjob . Th e valu e fo r INDF shoul dbe change dfo r eac hIFCA M run . Inthi s example , INDF=178 . Th e valu e fo r IND F mus t b e les s tha nfiv e characters . 3. 4 198 5 IFCA

M OUTPU T TABLE S TABLE(JCL85 ) contain s th e necessar y JC L t o generat e IFCA M outpu t table s fo r 1985 . Se e Figur e 3-4 . Not e lin e 5 ; wher e d o yo uwan t th e outpu t printed ? Use r option s ar e locate dinline s 2 1 and22 . Not e th e valu e fo r IND F inlin e 21 . I t i s th e same valu e a s lin e 3 2 inFigur e 3-3 . Thi s indicate s tha t outpu t fil e 17 8 fro m th e 198 5 fue l choic e decision s wil l b e summarize d
andprinted . Th e valu e i nlin e 2 8 inFigur e 3- 4 shoul dalway s be th e same
a s th e valu e fo r IND F inlin e 2 1 inFigur e 3-4 . Th e valu e o f the scenari o code , SC , mus t be th e same a s tha t use di nEC0N(JCL85) . Inthi s example , SC=S0 . Lin e 2 2 shoul dals o b e edite dt o not e th e name o f th e NSP S fil e (fro m Figur e 3-3 , lin e 32 ) tha t correspond s wit hIFCA M ru n178 . Th e IFCA M outpu t table s produce db y TABLE(JCL85 ) ar e briefl y reviewe d i nSectio n4.1 . 3. 5 INDUSTRIA L BOILER S I N 199 0 Th e JC L necessar y

t o creat e th e populationo f industria l boiler s in 199 0 i s store di nCALINT(BASEJCL2) . Se e Figur e 3-5 . Th e onl y use r optio ni s locate dinlin e 151 . Not e INDF . INDF=15 0 in thi s example . I t coul dbe se t equa l t o th e same valu e use di nth e 198 5 job s (17 8 wa s use dinFigure s 3- 3 an d3-4) . "SC " i s th e sam e scenari o cod e tha t i s use di nCALINT(BASEJCL ) in Figur e 3-2 . I f th e projecte d199 0 industria l fossi l fue l deman dinpu t fil e i s DEM(RS090) , a s inFigur e 2-6 , the nSC=S0 . SC F shoul db e se t equa l t o th e same valu e a s SC . Inthi s example , SCF=S0 . 3. 6 FUE L CHOIC E DECISION S I N 199 0 Th e JC L t o mak e fue l choic e decision s i n199 0 i s i nfil e EC0N(JCL90) . Thi s fil e i s liste dinFigur e 3-6 . Use r option s ar e locate dinline s 3 1 and32 . Th e fue l pric e fil e
name s mus t b e identified . Inthi s example , "SET15 " oi l an dga s price s and "SET05 " coa l price s ar e t o b e used . Thes e fil e name s ar e no t necessaril y th e same fil e name s use dinEC0N(JCL85) . Sectio n2. 2 explain s th e creatio n
o f thes e files . 3- 8P.4 5

Figur e 3-4
. TABLE(JCL85 )

us t *t»djnspf.tibia(Jcl83 ) ci r COMMAND ? 1 1 . //PDJTAB8 3 JO B (NSPSSASDDINDFD098.30I30.30).'TAB8383'.TIME»<1 > 2 . //JOBLI B D D DSN=PDJNSPS.NSPSLIBfDISP=SHR 3 . / / DD DSN»SYS1.VRENTLIBFDISP»SH R 4 . /*CPUI D EPA 3 3 . /»ROUT E PRIN T R02 0 6 . //TA

B PRO C 7 . //STEP0 1 EXE C PCM«&TA8PCMFRECION»700 K 8 . //FT06F00 1 D D SYSOUT»A 9 . //FT01F00 1 DD DSN»PDJNSPS.DEM(B0&SC.83)FDISP»SH R 10 . //FT03F00 1 D D DSN=PDJNSPS.DEM(B0C&SC.83)FDISP=SH R 11 . //FT04F00 1 D D DSN>PDJNSPS.DUIN&INDF.(B083)FDISP«SH R 12 . //FT15F00 1 DD DSN»PDJNSPS.NSPSDATA(&ARO.)FDISP'SH R 13 . //FT20F00 1 D D DSN»PDJNSPS.DEM(PARM85)FDISP=*OLD 14 . //FT21F00 1 D D DSN«PDJNSPS.DEM(PARM83>rDISP-SHR 13 . //FT30F00 1 D D DSN»PDJNSPS.NSPSDATA(COALS110)FDISP*SH R 16 . //FT91F00 1 D D SYSOUT=A F 17 . / / DCB»(RECFM"FBAFLRECL»133FBLKSIZE*»1330 > 18 . //FT85F00 1 D D SYSOUT»A i 19 . / / DCB*(RECFM=FBAFLRECL=133FBLKSIZE"1330 > 20 . / / PEN D 21 . // C EXE C PR0C«TABFINDF«178FSC«S0 F 22 . / / TABPCM=0UTPUTFAR0=AR014 2 23 . //STEP01.FT03F00 1 DD * » 24 . 8 5 23 . i 26 . 3 27 . 11 0 28 . 17 8 29 . / * COMMAND ?



### 3- 9P.4 6



### Figur e 3-5 . CALINT(BASEJCL2 )

US E PAUL.CALINT(BASEJCL2 ) COMMAND ? L CL R

1 . 2 . 3 . 4 . 3 . 6 . 7 . 8 . 9 . 10 . 11. 12 . 13 . 14 . 15 . 16 . 17 . 18 . 19 . 20 . 21 . 22 . 23 . 24 . 23 . 26 . 27 . 28 . 29 . 30 . 31 . 32 . 33 . 34 . 35 . 36 . 37 . 38 . 39 . 40 . 41 . 42 . 43 . 44 . 43 . 46 . 47 . 48 . //PDJCAL9 0 JO B (NSPSSASDDIND.D098.30.30.50).'CAL90'.TIME"0 4

//JOBLI B D D DSN=PDJNSPS.NSPSLIB,DISP"SH R /•ROUT E PRIN T R02 0 //CA L PRO C //STEP0 1 EXE C PCM"BOIL01,COND"(4.LE).RECIONn300 K //FT06F00 1 D O SYSOUT= A //FT13F00 1 D D DSN"PDJNSPS.NSPSDATA(ECDBTN),DISP»SH R //FT16F00 1 DD DSN«PDJNSPS.NSPSDATA(DRI73),DISP"SH R //FT02F00 1 D D DSN=PDJNSPS.NSPSDATA(DRI8CY.),DISP=SH R //FT03F00 1 D D DSN«PDJNSPS.NSPSDATA(BLRDMN8CY.),DISP=SH R //FT04F00 1 D

O DSN»PDJNSPS.DEM(PT&SC8CY.),DISP*M0 D //FT08F00 1 DD DSN»PDJNSPS.DEM(R8SC&CY),DISP=SH R //FT01F00 1 D D DSN»PDJNSPS.DEM(PT8SC8PY.),DISP»SH R //FT10F00 1 DD DSN»PDJNSPS.NSPSDATA(BOBCOAL),DISP"SH R //FT11F00 1 D D DSN«PDJNSPS.NSPSDATA(NBBCOAL),DISP"SH R //FT20F00 1 D D DSN"PDJNSPS.DEM(PAR&SC&CY.),DISP°MO D //FT23F00 1 DD DSN»PDJNSPS.DEM(B0C&SC8PY.),DISP=SH R //FT33F00 1 D D DSN=PDJNSPS.DEM(SUM8SCF8PY.),DISP=SH R //FT30F00 1 D D DSN"88C0LFB,DISP"(.PASS) , / / UNIT=SYSDA,SPACE"(TRK.(10.5).RLSE) . / / DCB"(RECFM"FB.LRECL"80,BLKSIZE"6160 > //STEP0 2 EXE C //FT06F00 1 D D //FT11F00 1 //FT09F00 1 //FT13F00 1 //FT01F00 1 //FT02F00 1 //FT10F00 1 //FT20F00 1 //FT21F00 1 //FT03F00 1 II II PCM"BOIL02,COND"(4,LE),RECION"300 K

SYSOUT= A DSN»PDJNSPS.DEM(PT8SC8CY.>,DISP"SH R DSN=PDJNSPS.DEM(B0C8SC8PY.),DISP"SH R DSN«PDJNSPS.DEM(SUMSSCFSPY.),DISP"SH R DSN"PDJNSPS.DEM(BO&SC&PY.).DISP"SH R DSN»PDJNSPS.DHIN&INDF.(B08PY.),DISP"SH R DSN.88C0LFB.DISP"(OLD.DELETE ) DSN>PDJNSPS.DEM(PAR8SC&CY.).DISP"0L D DSN»PDJNSPS.DEM(PAR8SC8CY.).DISP"SH R DSN»88CAT1,DISP=(.PASS) . UNIT=SYSDA,SPACE"(TRK,(150,10),RLSE) , DCB>(RECFH>FB,LRECL"80,BLKSIZE"12000 ) D D D D DD DD D D DD O D D O D D

//FT08F00 1 D D DSN"PDJNSPS.DEM(B0C8SC8CY.)»DISP"MO D //STEP0 3 EXE C PGH«ICEMAN,C0ND=(4,LE)>RECI0N=S2 K //SYSOU T D D SYSOUT" A //SORT.SYSOU T O O DUMM Y //SORTI N

OO DSN-&»CAT1.DISP"(OLD.DELETE ) //SORTOU T D D DSN=88CAT2.DISP"(.PASS) » / / UNIT"SYSOA.SPACE"(TRK,(99,10),RLSE> , / / DCB"(RECFM"FB,LRECL"80,BLKSIZE"12000 ) //SORTUK0 1 D D UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) //SORTHK0 2 D D UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) //SORTWK0 3 O D UNIT"SYSDA,SPACE"(TRK,(50),.CONTIC ) //SORTUK0 4 D D UNIT»SYSDA.SPACE"(TRK.(50)..CONTIC ) //SORTWK0 5 D D UNIT«SYSDA,SPACE"(TRK,(50),,CONTIC ) //SORTUK0 6 DD UNIT=*SYSDA.SPACE " (TRK , (50 ) ,,CONTIC )



### 3-1 0P.4 7



### Figur e 3-5 . CALINT(BASEJCL2 )

49 . //STEP0 4 EXE C PCM"B90003.COND=(4.LE),RECION=300 K 50 . //FT06F00 1 D D SYSOUT= A 31 . //FT02F00 1 D D DSN"88CAT3,DISP"(.PASS) . 32 . / / UNIT=SYSDA.SPACE"(TRK.(99.10),RLSE) . 53 . / / DCB"(RECFM"FB.LRECL"80,BLKSIZE"12000 > 54 . //FT01F00 1 D D DSN=88CAT2,DISP=(0LD,DELETE ) 55 . //STEP0 3 EXE C PCM=ICEMAN,C0ND"(4,LE),REGI0N»32 K 56 . //SYSOU T DD SYSOUT= A 57 . //SORT.SYSOU T DO DUMM Y 58 . //SORTI N

D D DSN=88CAT3,DISP"(OLD,DELETE ) 59 . //SORTOU T O D DSN=88EXB0IL,DISP"(,PASS) , 60 . / / UNIT"SYSDA,SPACE"(TRK,(99,10),RLSE) , 61 . / / DCB"(RECFM"FB,LRECL"80,BLKSIZE"12000 > 62 . //SORTMK0 1 D D UNIT=SYSDA.SPACE"(TRK,(30)..CONTIC ) 63 . //SORTUK0 2 O D UNIT=SYSDA.SPACE"(TRK,(50),,CONTIC ) 64 . //SORTUK0 3 D O UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) 63 . //SORTUK0 4 DD UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) 66 . //SORTUK0 3 D D UNIT=SYSDA,SPACE"(TRK,(50),,CONTIC ) 67 . //SORTWK0 6 DD UNIT"SYSOA,SPACE"(TRK,(50)..CONTIC ) 68 . //STEP0 6 EXE C PCM=B90004,COND"(4.LE),RECI0N»183 K 69 . //FT06F00 1 D D SYSOUT= A 70 . //FT13F00 1 D D DSN=PDJNSPS.DEM(PT8SC8CY.),DISP=SH R 71 . //FT10F00 1 D D DSN»PDJNSPS.NSPSDATA(NEMBD6),DISP=SH R 72 . //FT11F00 1 D O DSN=88TEM,DISP=(,DELETE) , 73 . / / UNIT=SYSDA,SPACE"(TRK,(99,10),RLSE) , 74 . / / DCB=(RECFM=FB,LRECL"80.BLKSIZE=12000 ) 75 . //FT09F00 1 D D DSN=PDJNSPS.NSPSDATA(AQCRCDF).DISP»SH R 76 . //FT04F00 1 DD 0SN"88CAT1,DISP"(,PASS) » 77 . / / UNIT=SYSDA.SPACE"(TRK.(99.10).RLSE) . 78 . / / DCB»(RECFM=FB.LRECL=80.BLKSIZE=12000 ) 79 . //STEP0 7 EXE C PCM"ICEMAN.COND"(4.LE),RECION"52 K 80 . //SYSOU T D D SYSOUT" A 81 . //SORT.SYSOU T D D DUMM Y 82 . //SORTI N

D D DSN=88CAT1,DISP=(OLD,DELETE ) 83 . //SORTOU T D D DSN«88CAT2,DISP"(,PASS) , 84 . / / UNIT=SYSDA,SPACE"(TRK,(99.10).RLSE) , 83 . / / OCB"(RECFM"FB,LRECL=80,BLKSIZE"12000 > 86 . //SORTMK0 1 D D UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) 87 . //SORTWK0 2 D D UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) 88 . //SORTHK0 3 D D UNIT»SYSDA,SPACE"(TRK,(50),,CONTIC ) 89 . //SORTWK0 4 DD UNIT'SYSDA.SPACE"(TRK,(50),,CONTIC ) 90 . //SORTUK0 5 DO UNIT=SYSDA,SPACE"(TRK,(50),,CONTIC ) 91 . //SORTWK0 6 DD UNIT"SYSDA,SPACE"(TRK.(30),,CONTIC ) 92 . //STEP0 8 EXE C PCM"B90005.COND"(4.LE)>RECION"300 K 93 . //FT06F00 1 DD SYSOUT= A 94 . //FT02F00 1 OD DSN=88CATIN.DISP"(.PASS) . 95 . / / UNIT=SYSDA.SPACE=(TRK,(99.10).RLSE) . 96 . / / DCB"(RECFM=FB.LRECL"80,BLKSIZE"12000 ) 97 . //FT01F00 1 O O 0SN"88CAT2,DISP"(OLD,DELETE )



### 3-1 1P.4 8



### Figur e 3-5 . CALINT(BASEJCL2 )

98 . //STEP0 9 EXE C PCM'ICEMAN.COND"(4,LE),RECI0N=32 K 99 . //SYSOU T DD SYSOUT= A 100 . //SORT.SYSOU T D D DUMM Y 101 . //SORTI N

D D DSN»88CATIN,DISP"(OLD,DELETE ) 102 . //SORTOU T OO DSN»68CAT0.DISP"(.PASS) . 103 . / / UNIT"SYSDA.SPACE"(TRK.(99,10),RLSE) , 104 . / / DCB"(RECFM"FB,LRECL"80,BLKSIZE"12000 ) 105 . //SORTUK0 1 DD UNIT"SYSOA,SPACE"(TRK,(50),,CONTIC ) 106 . //SORTWK0 2 O D UNIT=SYSDA,SPACE"(TRK,(30),,CONTIC ) 107 . //SORTWK0 3 DD UNIT"SYSDA,SPACE"(TRK,(50),.CONTIC ) 108 . //SORTUK0 4 D D UNIT=SYSDA.SPACE"(TRK.(50)..CONTIC ) 109 . //SORTUK0 5 O D UNIT=SYSDA.SPACE"(TRK.(50)..CONTIC ) 110 . //SORTUK0 6 DD UNIT=SYSDA.SPACE"(TRK.(50),.CONTIC ) U l . //STEP1 0 EXE C PCM"B90006.COND"(4.LE).RECION"300 K 112 . //FT06F00 1 D D SYSOUT" A 113 . //FT01F00 1 DD DSN=PDJNSPS.NSPSDATA(FILTAQCR),DISP=SH R 114 . //FT02F00 1 DD DSN=PDJNSPS.NSPSDATA(NEHSIPS2),DISP"SH R 113 . //FT03F00 1 D O DSN"88CAT0,DISP"(OLD.DELETE ) 116 . //FT04F00 1 DD DSN=8*CAT1,DISP"(,PASS) > 117 . / / UNIT=SYSDA,SPACE"(TRK,(99,10),RLSE) , 118 . / / DCB=(RECFM=FB,LRECL"80,BLKSIZE"12000 ) 119 . //STEP1 1 EXE C PGM=1CEMAN,C0ND»(4,LE),RECI0N=52 K 120 . //SYSOU T DD SYSOUT= A 121 . //SORT.SYSOU T 0 0 DUMM Y 122 . //SORTI N

DD DSN»88CAT1.DISP"(OLD.DELETE ) 123 . //SORTOU T D D DSN"88CAT2.DISP"(.PASS) . 124 7 / / UNIT"SYSDA.SPACE"1TRK.(99.10),RLSE) . 123 . / / DCB"(RECFM'FB.LRECL"80.BLKSIZE"12000 ) 126 . //SORTWK0 1 DD UNIT"SYSDA.SPACE"(TRK.(30).,CONTIC ) 127 . //SORTUK0 2 DD UNIT=SYSDA.SPACE"(TRK,(5f),.CONTIC ) 128 . //SORTWK0 3 D D UNIT-SYSDA.SPACE"(TRK.(50).,CONTIC ) 129 . //SORTWK0 4 D D UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) 130 . //SORTUK0 5 D D UNIT°SYSDA,SPACE"(TRK,(50),,CONTIC ) 131 . //SORTUK0 6 0 0 UNIT=SYSDA,SPACE"(TRK,(30),,CONTIC ) 132 . //STEP1 2 EXE C PCM"B90007,COND"(4,LE),RECION=300 K 133 . //FT06F00 1 DD SYSOUT" A 134 . //FT02F00 1 D O DSN"88CAT3,DISP"(,PASS) , 133 . / / UNIT=SYSDA.SPACE"(TRK.(99,10).RLSE) . 136 . / / DCB"(RECFM"FB,LRECL"80,BLKSIZE"12000 ) 137 . //FT01F00 1 D D DSN"88CAT2.DISP"(OLD.DELETE )



### 3-1 2P.4 9

Figur e 3-5

. CALINT(BASEJCL2)

138 . //STEP1 3 EXE C PCM"ICEMAN,COND"(4,LE),RECI0N=32 K 139 . 140 . 141 . 142 . 143 . 144 . 143 . 146 . 147 . 148 . 149 . 150 . 131 . 152 . 153 . 154 . 153 . 156 . 157 . 138 . 159 . 160 . 161 . 162 . 163 . 164 . 163 . 166 . 167 . 168 . 169 . 170 . 171 . 172 . 173 . 174 . 173 . 176 . 177 . 178 . 179 . 180 . 181 . COMMAND ? //SYSOU T D D SYSOUT" A

//SORT.SYSOU T D D DUMM Y //SORTI N

DD DSN"88CAT3,DISP"(OLD,DELETE ) / / D D 0SN"88EXB0IL,DISP"(OLD.DELETE ) //SORTOU T D D DSN=POJNSPS.DEM(B08SC8CY.).DISP"MO D //SORTUK0 1 D

O UNIT=SYSDA.SPACE"(TRK.(50)..CONTIC ) //SORTUK0 2 D

D UNIT"SYSOA.SPACE"(TRK.(50)..CONTIC ) //SORTUK0 3 D D UNIT=SYSDA.SPACE"(TRK.(50)..CONTIC ) //SORTUK0 4 D

O UNIT"SYSDA.SPACE"(TRK.(50)..CONTIC ) //SORTUK0 5 D D UNIT=SYSDA,SPACE"(TRK,(50),,CONTIC ) //SORTWK0 6 D O UNIT"SYSDA,SPACE"(TRK,(50),,CONTIC ) / / PEND // A EXE C PROC=CAL,INDF=150,SCF=SO,SC=SO,PY=85,CY=9 0 //STEP01.FT05F00 1 DD # 0 0 0 9 0 000 3 0.006 2 0.006 2 1* //STEP02.FT05F00 1 DD * 0 5 / • //STEP03.SYSI N

D D * » SOR T FIEL0S"(1,33,CH,A ) / • //STEP03.SYSI N

D D * SOR T FIELDS'(26,10,CH.A.8>9.CH>A.3.3.CH.A.1>2>CH.A > / • //STEP07.SYSI N

D D » SOR T FIELDS"(1.28.CH.A ) / • //STEP09.SYSI N

DO * » SOR T FIEL0S"(13.9.CH.A > 1* //STEP11.SYSI N

O D • » SOR T FIELDS " U,33,CH , A ) / * //STEP13.SYSI N

DD * SOR T FIELDS"(26>10>CH>A.8.9.CH.A>3t3.CH.A>l,2,CH,A ) / *

3-1 3 

# JP.5 0

Figur e 3-6
. EC0N(JCL90 )

•s c *t»dJn§Pi.tcon(Jcl90 > ci r COMMAND

? 1 1 . //PDJECO9 0 JOB (NSPSSASDDINDFD098 F F130)F'BASE9090F'FPASSU0RD>RUNFTIHE- 3 2 . //JOBLI B DD DSN-PDJNSPS.NSPSLIBFDISP»SH R 3 . /*CPUI D EPA 3 4 . /*ROUT E PRINT R02 0 3 . /*CNT L PDJECOFSH R 6 . //ECO PRO C 7 . //STEP0 1 EXE C PCM««,ECOPCM»RECION«800 K 8 . //FT06F00 1 DD SYSOUT' A 9 . //FT01F00 1 D D DSN«PDJNSPS.FORCAPFDISP»SH R 10 . //FT02F00 1 D D DSN»PDJNSPS.FOROHFDISP«SH R 11 . //FT03F00 1 DD DSN«PDJNSPS.4CLPV.90.FOBFDISP»SH R 12 . //FT08F00 1 DD DSN»PDJNSPS.*OCPV.90.OTHFDISP-SH R 13 . //FT20F00 1 DD DSN>PDJNSPS.RUNtINDF(PARM90>FDISP»MO D 14 . //FT21F00 1 DD DSN«PDJNSPS.DEM<PARM*SC.90>FDISP-SH R 13 . //FT23F00 1 DD DSN«PDJNSPS.TJ.CLPV.90.FOB»DISP»SH R 16 . //FT28F00 1 DD DSN«PDJNSPS.T8.OGPV.90.OTHFDISP-SH R 17 . //FT33F00 1 DD DSN»PDJNSPS.*CLPV.90.FOBFDISP«SH R 18 . //FT38F00 1 DD DSN»PDJNSPS.&OCPV.90.OTHFDISP»SH R 19 . //FT11F00 1 DD DSN»PDJNSPS.DEM(BO&SC.90)FDISP=SH R 20 . //FT12F00 1 DD DSN>PDJNSPS.DEH<BOC&SC90 ) FDISP-SH R 21 . //FT10F00 1 D D DSN«PDJNSPS.NSPSDATA(NEHRET)FDISP»SH R 22 . //FT13F00 1 DD DSN«PDJNSPS.NSPSDATA(tARO.)FDISP«SH R 23 . //FT16F00 1 DD DSN«PDJNSPS.NSPSDATA(COALS110)FDISP-SH R 24 . //FT17F00 1 D D DSN»PDJNSPS.NSPSDATA(LVEC90)FDISP»SH R 23 . //FT30F00 1 DD DSN-PDJNSPS.RUNHNDF . (SUM90 ) FDISP-MO D 26 . //FT14F00 1 DD DSN-PDJNSPS.DUINtlNDF.(BO90)FDISP'MO D 27 . //FT89F00 1 D D DUMM Y 28 . //FT90F00 1 DD SYSOUT- A 29 . //FT99F00 1 D D DUMM Y 30 . / / PEN D 31 . // B EXE C PROC«ECOFOCPV«SET13FCLPV»SET03FSC=SO F 32 . / / AR0»AR0142FEC0PCH"S02FINDF«17 8 33 . //STEP01.FT0SF00 1 DD * 34 . 0 33 . 0 36 . 0.347 6 37 . 9 0 38 . 90 0 39 . 10*90 0 40 . 2 41 . 1 5 42 . 10 0 4 0 43 . 99999999 9 44 . / * COMMAND ?

3-1 4P.5 1

Th e valu e fo r th e scenari o code , SC = , mus t b e th e same a s th e scenari o cod e use dinCALINT(BASEJCL) , EC0N(JCL85) , andCALINT(BASEJCL2) . Inth e example , SC=S0 . Th e NSP S inpu t fil e i s usuall y no t th e same fil e tha t i s use di n EC0N(JCL85) . Sectio n2. 1 explain s th e creatio no f thi s inpu t file . Th e
use r store s th e NSP S assumption s inNSPSDATA ( ) . Th e character s insid e thes e parenthese s ar e liste di nlin e 3 2 inFigur e 3-6 , "AR0 = " . In thi s example , th e fil e t o b e use di s NSPSDATA(AR0142) . Th e valu e fo r INDF , anidentificatio ncode , shoul db e uniqu e eac htime EC0N(JCL90 ) i s run . I t doe s no t necessaril y hav e t o b e th e same a s th e valu e use dfo r IND F i nEC0N(JCL85) . 3. 7 199 0 IFCA

M OUTPU T TABLE S Figur e 3- 7 present s th e file , TABLE(JCL90) , wit hth e necessar y JC L t o generat e 199 0 IFCA

M outpu t tables . Not e lin e 5 ; wher e yo uwan t th e outpu t table s printed ? Not e lin e 25 . Th e valu e fo r IND F mus t b e th e same valu e use dfo r IND F inEC0N(JCL90) . Inthi s example , INDF=178 . Lin e 3 2 mus t als o contai nth e same value . Th e scenari o code , SC , mus t als o b e identica l t o th e scenari o cod e use di nEC0N(JCL90) . Inthi s example , SC=S0 . Inlin e 2 6 inFigur e 3-7 , th e name o f th e NSP S fil e i s th e sam e a s tha t use di nEC0N(JCL90) , lin e 3 2 inFigur e 3-6 . Inthi s example , AR0=AR0142 . Th e IFCA M outpu t table s produce db y TABLE(JCL90 ) ar e briefl y sum marize dinSectio n4.1 . I t i s als o possibl e t o generat e "briefin g packag e outpu t tables " (se e Sectio n4.2) . I f thi s i s desire dfo r 199 0 results , th e valu e i nlin e 3 0 i nFigur e 3- 7 shoul db e "1" . I f briefin g packag e outpu t table s ar e no t desired , th e valu e i nlin e 3 0 inFigur e 3- 7 shoul db e se t t o "3" . 3. 8 BRIEFINGPACKAG E OUTPU T TABLE S IFCAM.AUXILIRY(BRIEFJCL) , show ninFigur e 3-8 , i s th e name d f th e fil e wit hth e JC L t o ru

nth e briefin g packag e outpu t tables . 199 0 IFCA M result s
ca nb e compare dfo r u pt o seve nIFCA

M run s (se e Sectio n4.2) . TABLE(JCL90 )
mus t b e execute dfo r eac hIFCA M ru nbefor e th e JC L inFigur e 3- 8 i s run . Not e lin e 3 ; wher e d o yo uwan t t o prin t thes e outpu t tables ?

3-1 5P.5 2



### Figur e 3-7 . TABLE(JCL90 )

COMMAND

? 1
. 2
. 3
. 4
. 3
. 6
. 7
. 8
. 9
. 10
. 1 1
. 12
. 13
. 14
. 15

. 16
. 17
. 18
. 19
. 2 0
. 2 1
. 2 2
. 2 3
. 2 4
. 2 5

. 2 6
. 2 7
. 2 8
. 2 9
. 3 0
. 3 1
. 3 2
. 3 3
. COMMAND ? 1 •r»dJnsp«.Ublt<Jcl90 > ci r

//PDJTAB9 0 JO B (NSPSSASDDINDFD098F30»30F50)F'TAB9090'FTIME-(1 ) //JOBLI B DD DSN«PDJNSPS.NSPSLIBFDISP»SH R / / DD DSN«SYS1.VRENTUBFDISP»SH R /•CPUI D EPA 3 /•ROUT E PRINT R02 0 //TA B PRO C //STEP0 1 EXE C PCM-&TABPCMFRECION>700 K //FT06F00 1 DD SYSOUT»A //FT01F00 1 DO DSN»PDJNSPS.DEM(BO*SC.90)FDISP»SH R //FT03F00 1 DD DSN«PDJNSPS.DEM(BOCtSC.90)iDISP«SH R //FT04F00 1 DO DSN»PDJNSPS.DWIN*INDF.(BO90)FDISP«SH R //FT13F00 1 D

D DSN'PDJNSPS.NSPSDATA(&ARO.)FDISP>SH R //FT20F00 1 DO DSN>PDJNSPS.RUN(INDF.(PARH90)FDISP-OL D //FT21F00 1 DD DSN>PDJNSPS.RUN&INDF.(PARH90)FDISP>SH R //FT30F00 1 D

O DSN>PDJNSPS.NSPSDATA(COALS110)FDISP>SH R //FT91F00 1 DD SYSOUT-A r / / DCB*(RECFM-FBAFLRECL'133FBLKSIZE**1330 ) //FT90F00 1 DD SYSOUT=A F / / DCB«(RECFM-FBAFLRECL»133»BLKSIZE"1330 ) //STEP01.FT30F00 1 DD DSN'PDJNSPS.STORE.TEST178 t / / DISP>(NEMFCATLCFDELETE) F / / UNIT«DISKFSPACE-(TRKF(3F3)) F / / DCB*(RECFM>FBFLRECL-140FBLKSIZE»3640 ) / / PEN

D // C EXE C PR0C-TABFINDF«178FSC*S0 F / / TABPCM»0UTPUTFAR0«AR014 2 //STEP01.FT03F00 1 DD • 9 0 1 1 11 0 17 8 / •



### 3-1 6P.5 3



### Figur e 3-8 . IFCAM.AUXILIRY(BRIEFJCL )

US E PAUL.IFCAM.AUXILIRY(BRIEFJCL ) CL R COMMAND ? L

1 . //PDJBRIE F JO B (NSPSSASDDINDFD098)FPASSWORD=APT»TIME=(»30 ) 2 . /*CPUI D EPA 3 3 . /*ROUT E PRIN T R02 0 4 . //JOBLI B D D DSN=PDJNSPS.NSPSLIBFDISP=SH R 5 . //STEP0 1 EXE C PGM=XBRIE F 6 . //FT01F00 1 D D DSN=PDJNSPS.IFCAM.AUXILIRY(NOTES170)rDISP=SH R 7 . //FT20F00 1 D D DSN=PDJNSPS.RUN172(PARM90>FDISP=SH R 8 . / / D D DSN=PDJNSPS.RUN173(PARM90)FDISP=SH R 9 . / / D D DSN=PDJNSPS.RUN174(PARM90)FDISP=SH R 10 . / / D D DSN=PDJNSPS.RUN177(PARM90)FDISP=SH R 11 . / / D D DSN=PDJNSPS.RUN175(PARM90)FDISP=SH R 12 . / / D D DSN=PDJNSPS.RUN176(PARM90)FDISP=SH R 13 . //FT25F00 1 D D DSN=PDJNSPS.NSPSDATA(AR0132)FDISP=SH R 14 . / / D D DSN=PDJNSPS.NSPSDATA(AR0133)FDISP=SH R 15 . / / D D DSN=PDJNSPS.NSPSDATA(AR0134)FDISP=SH R 16 . / / D D DSN=PDJNSPS.NSPSDATA(AR0141)FDISP=SH R 17 . / / DD ' DSN=PDJNSPS.NSPSDATA(AR0139)FDISP=SH R 18 . / / D D DSN=PDJNSPS.NSPSDATA(ARO140)FDISP=SH R 19 . //FT11F00 1 D D DSN=PDJNSPS.STORE.TEST170FDISP=SH R 20 . //FT12F00 1 D D DS N = PDJNSPS.STORE.TEST172FDISP=*SH R 21 . //FT13F00 1 D D DSN=PDJNSPS.STORE.TEST173FDISP=SH R 22 . //FT14F00 1 D D DSN=PDJNSPS.STORE.TEST174FDISP=SH R 23 . //FT15F00 1 D D DSN=PDJNSPS.STORE.TEST177FDISP=SH R 24 . //FT16F00 1 D D DSN=PDJNSPS.STORE.TEST175FDISP=SH R 25 . //FT17F00 1 D D DSN=PDJNSPS.STORE.TEST176FDISP=SH R 26 . //FT06F00 1 D D SYSOUT=A 27 . //FT05F00 1 D D * 28 . 7 1 COMMAND ?



### 3-1 7P.5 4

Lin e 6 i s th e name o f a user-create dfil e containin g forma t state ments . Thes e statement s contai ncomment s tha t ma y summariz e inpu t assump tion s o r results . Line s 7 throug h1 8 inFigur e 3- 8 ar e IFCA M EC0N(JCL90 ) inpu t fil e
names . The y

contai nth e assumption s fo r th e si xalternativ e NSPS . Th e bas e cas e NSP S assumption s ar e no t include dinthi s list . I f ther e ar e les s tha nsi x"Optio nCases, " onl y lis t th e identificatio ncode s andNSP S fil e name s fo r th e Optio nCases . Lis t thes e fil e name s inth e correc t orde r tha t yo uwan t the m t o appea r inth e outpu t tables . Lis t th e fil e fo r Optio nCas e 1 , the nOptio nCas e 2 , the nOptio nCas e 3 , etc . Unit s 1 1 throug h1 7 contai ndat a generate dfro m TABLE(JCL90) . I f ther e ar e seve nIFCA

M result s t o b e compared , edi t line s 1 9 throug h2 5 t o reflec t th e identificatio nnumber s (INDF ) use dineac hTABLE(JCL90) . Th e bas e cas e INDF i s alway s pu t inlin e 13 , Optio nCas e 1 IND F inlin e 14 , Optio nCas e 2 IND F inlin e 15 , etc . I f ther e ar e les s tha nseve nIFCA M
run s t o b e summarized , delet e th e unuse dlines . Fo r example , i f ther e ar e 4 case s (Bas e Cas e an d3 Optio nCases) , edi t line s 1 9 throug h2 2 anddelet e line s 2 3 throug h25 . InFigur e 3-8 , th e valu e fo r INDF fo r th e Bas e Cas e i s "170" . Lin e 1 9 contain s th e fil e name (th e outpu t fil e create db y runnin g TABLE(JCL90 ) wit h"INDF=170" ) "STORE.TEST170" . Optio nCase s 1- 6 hav e value s fo r IND F
o f 172 , 173 , 174 , 177 , 175 , and176 , respectively , inthi s exampl e (line s 7-1 2 and20-25) . Th e NSP S assumptions , inthi s example , fo r Optio nCase s 1- 6 hav e fil e name s o f AR0132 , AR0133 , AR0134 , AR0141 , AR0139 , an dAR0140 , respectively . Consul t TABLE(JCL90 ) t o chec kth e correc t associatio n betwee nth e valu e use dfo r IND F andth e NSP S assumption s fil e name . Lin e 2 2 contain s th e tota l numbe r o f case s (1-7 ) a s th e firs t item . Ther e ar e "7 " case s inthi s example . Thi s ite m shoul db e edite db

y th e mode l user . D o no t edi t th e secondite m inlin e 2 8 ("1") .

3-1 84 . OUTPU T TABLE S

Ther e ar e tw

o IFCA M outpu t tabl e programs . Th e "regular " outpu t table s presen t abou t 12 0 page s o f aggregat e summarie s fo r eac hmode l run . Th e "briefin g package " outpu t table s presen t selecte dmode l result s fo r severa l mode l run s onth e same pag e an di s abou t 3 5 page s long . Th e objective s an

duse s o f eac houtpu t tabl e i nth e curren t tabl e program s ar e describe dinthi s section . Th e fue l demand , ai r emissions , soli dwaste , wate r pollution , energ y penalty , an

dnon-fue l O& M

cos t projection s ar e estimate dannua l value s fo r th e las t yea r o f th e simulatio nperio d(e.g. , 1990) . Th e capita l cos t projection s ar e tota l cos t estimate s fo r al l ne w unit s installe ddurin g th e simulatio nperiod . Th e annualize dcapita l cost s ar e calculate db y multi plyin g tota l capita l cost s b y a capita l recover y

factor , 0.1314 7 (base don
a 1 0 percen t discoun t rat e an da 15-yea r period) . Th e annualize dfue l cos t projection s ar e derive dusin g a 1 0 percen t discoun t rat e an da 15-yea r perio do f futur e fue l prices . 4. 1 REGULA

ROUTPU T TABLE S Th e firs t fiv e outpu t table s ar e auxiliar y tables ; thes e ar e followe d b y 1 9 outpu t tables . Th e "auxiliary " outpu t table s ar e Table s IX , Zero , 00 , andXVI . Tabl e IXi s a diagnosti c table . Table s Zero , 00 , an dXV I ar e th e onl y outpu t table s containin g projection s fo r existin g a s wel l a s new boilers . Th e outpu t table s numbere d"1 " t o "19 " includ e mode l result s onl y fo r ne w industria l boiler s whic har e subjec t t o th e alternativ e NSPS . 4.1. 1 Tabl e IX Tabl e IXi s th e onl y

outpu t tabl e whic hpresent s selecte dresult s fo r individua l new

industria l boilers . Thi s tabl e provide s th e mode l use r wit h
a nindicatio no f wha t th e projecte dfue l mi xi s fo r new industria l fossi l fuel-fire dboiler s b

y boile r size , capacit y utilizatio nrat e an dregion . I t als o provide s th e mode l use r wit hanindicatio no f th e orde r o f magni tud e o f th e cos t data .



### 4- 1Thi s tabl e print s informatio nfo r a singl e recor db y searchin g th e IFCA M outpu t fil e fo r uniqu e combination s o f boile r size , capacit y uti lizatio nrate , regio nandfue l type . Thes e "sample " record s ar e sorte db y siz e an dcapacit y

utilizatio nrate . I f a particula r boile r size/capacit y utilizatio nrate/regio ncombinatio ni s no t liste dinthi s table , the nther e
wer e n o new

industria l boiler s wit hthos e characteristic s i nthi s particu la r mode l run . Fo r eac hboile r size/capacit y utilizatio nrat e combination , th e regio nma y

b e liste dno t a t all , once , o r u pt o fou r times . I f th e regio ni s liste donl y once , the nal l o f th e new boile r record s wit hthi s combinatio nchos e th e same fue l typ e (natura l gas , distillat e fue l oil , residua l fue l oil , o r coal) . However , the y di dno t al l necessaril y choos e th e sam e fue l quality . I f th e regio ni s liste dmor e tha nonc e fo r a singl e boile r size/capacit y

utilizatio nrat e combination , the nsome o f th e new boiler s chos e differen t fue l types . Thi s i s possibl e becaus e no t al l o f th e ne w boiler s i na give nregio nhav e th e sam e loca l ai r emission s stan dard s and , therefore , ca nb e expecte dt o mak e differen t fue l choic e deci sions . Th e "fue l type " liste dinthi s tabl e i s a three-digi t code . Th e firs t digi t o f thi s three-digi t cod e indicate s th e fue l type :

• 1 - Natura l ga s t 2 - Distillat e fue l oi l

• 3 - Residua l fue l oi l t 4 o r 5 - Coal . Ther e ar e fou r residua l fue l oi l type s (301 , 302 , 303 , and304 ) and1 1 coa l type s (1 1 coa l type s * 1 0 regions , numbere dfro m 401-510)—fue l quality . Thi s tabl e print s a nexampl e o f eac hfue l type , bu t no t eac huniqu e fue l qualit y selecte d(e.g. , onl y on e o f th e coa l types , no t anexampl e o f eac h
coa l type) . Se e Tabl e 4-1 . Tabl e IXlist s th e pollutio ncontro l equipmen t selecte dfo r eac ho f th e sampl e new

boile r records . Tabl e 4- 2 summarize s th e pollutio ncontro l equipmen t code s use dinTabl e IX . Sampl e cos t dat a ar e als o printe dinTabl e IX . Thi s dat a ca nhel pth e mode l use r determin e i f th e cos t dat a inth e mode l ar e appropriate . Th e tota l capita l (excludin g interes t durin g constructio nestimates ) andannua l 0& M (exclude s fuel ) cost s includ e boile r an dpollutio ncontro l equipmen t costs .
4- 2TABL E 4-1 . FUE L TYP E CODE S I N TABL E I X

Cod e Fue l Typ e
10 0
20 0
30 1
30 2
30 3
30 4
401-41 1
412-42 2
423-43 3
434-44 4
445-45 5
456-46 6
467-47 7
478-48 8
489-49 9
500-51 0 Firs t coa l (e.g. , 467 )
Secondcoa l (e.g. , 468 ) Thir dcoa l (e.g. , 469 )
Fourt hcoa l (e.g. , 470 ) Fift hcoa l (e.g. , 471 ) Natura l ga s Distillat e fue l oi l Residua l fue l oi l 3. 0 percen t sulfu r Residua l fue l oi l 1. 6 percen t sulfu r Residua l fue l oi l 0. 8 percen t sulfu r Residua l fue l oi l 0. 3 percen t sulfu r Coal , Federa l regio n1 Coal , Federa l regio n2
Coal , Federa l regio n3 Coal , Federa l regio n4 Coal , Federa l regio n5 Coal , Federa l regio n6 Coal , Federa l regio n7 Coal , Federa l regio n8 Coal , Federa l regio n9 Coal , Federa l regio n1 0
No t use d Bituminous , <1.0 8 l bS0 2 /MMBt u Bituminous , 1.08-1.6 7 l bS0 2 /MMBt u Bituminous , 1.67-2.5 0 lbS0 2 /MMBt u Bituminous , 2.50-3.3 3 l bS0 2 /MMBt u



### 4- 3P.5 8

TABL E 4-1 . FUE L TYP E CODE S I N TABL E I

X(cont'd )

Cod e Fue l Typ e
Sixt hcoa l (e.g. , 472 )
Sevent hcoa l (e.g. , 473 ) Eight hcoa l (e.g. , 474 ) Nint hcoa l (e.g. , 475 )
Tent hcoa l (e.g. , 476 )
Elevent hcoa l (e.g. , 477 ) Bituminous , 3.33-5.0 0 l bS0 2 /MMBt u Bituminous , >5.0 0 lbS0 2 /MMBt u
No t use d Subbituminous , <1.0 8 l bS0 2 /MMBt u Subbituminous , 1.08-1.6 7 l bS0 2 /MMBt u Subbituminous , 1.67-2.5 0 l bS0 2 /MMBt u



### 4- 4P.5 9

TABL E 4-2 . POLLUTION CONTRO L EQUIPMEN T CODE S I N TABL E I X

Cod e 

### SO, P M NO .
1
2
3
4
5 Dua l alkal i FGD/SMC d

Dua l alkal i FG D Sodiu m throwawa y

FGD t Lime spra y

dryin g FGD Fabri c filte r

ES P (coal )
ES P (resid )
Cod e no t use d
Dua l mechanica l collecto r Singl e mechanica l collecto r Sid e stream

separato r Low

exces s ai r Stage dcombustio nai r

Combine dS0 ? /P M

emission s contro l technology . Include s a singl e mechani ca l collecto r (SMC) . 'Combine dS0 2 /P M

emission s contro l technology . Include s a fabri c filter .



### 4- 5P.6 0

4.1. 2 Tabl e Zer o Tabl e Zer o present s th e tota l projecte dindustria l fossi l fuel-fire d boile r energ y

deman db

y industr y

group , region , fue l type , andsector . Ther e ar e thre e sectors :

• "Ex . 1974 " - boiler s installe dbefor e 1975 ,
• "Ol dNSPS " - boiler s installe dafte r 197 4 an dbefor e 1986 ,
• "ARO " - boiler s installe dafte r 198 5 andsubjec t t o th e alterna tiv e NSP S (alternativ e regulator y option) . 4.1. 3 Tabl e 0 0 Tabl e 0 0 correspond s wit hTabl e Zer o bu t include s onl y industria l boiler s large r tha n10 0 MMBtu/hr . 4.1. 4 Tabl e XV I Tabl e XV I present s tota l industria l fossi l fuel-fire dboile r projecte d ai r emission s b

y region , pollutan t andsector . 4.1. 5 Titl e Pag e Thi s pag e summarize s some o f th e key mode l ru

nassumptions . Th e date , time an dru nID # ar e calculate dautomatically . However , th e "RunBack groun dInformation " i s no t calculate dautomaticall y an drevision s mus t b e mad e t o th e outpu t tabl e program sourc e code . 4.1. 6 Industria l Boile r NSP S Assumption s Thi s tabl e list s th e alternativ e NSP S assumptions . 4.1. 7 Remainin g Outpu t Table s Th e majo r feature s o f th e remainin g outpu t table s ( 1 throug h19 ) ar e summarize dinTabl e 4-3 . Table s 1 throug h1 9 includ e informatio nonl y fo r
new industria l boiler s whic har e subjec t t o th e alternativ e NSPS . The y do
no t includ e aggregat e dat a onexistin g boilers . Thes e outpu t table s ar e self-explanatory . However , a few note s ar e necessary . t Tabl e 5

- "Particulat e Contro l - Mult . Cyclone " include s th e singl e
an ddua l mechanica l collectors .

- "Particulat e Contro l - Mult . Cyclone " doe s no t includ e th e singl e mechanica l collecto r in"FGD- Db l Alkali/ M Col. "



### 4- 6P.6 1

TABL E 4-3 . DIRECTORYO F IFCA M OUTPU T TABLE S

Boile r Capacit y

Pollutio n Tabl e Siz e Utilizatio nFue l Industr y Contro l No . Clas s Rat e Typ e Regio nPollutan t Grou pEquipmen t Categor y

Ai r emission s

Averag e ai r emission s rate s

Pollutio ncontro l equipmen t
Wate r pollutio n Soli dwast e
Fue l demand

Numbe r o f ne w boiler s

Energy penalt y
Cost s 1 . 3 . 3A.-3E . 17 .

2 . 4 .
5 . 6 . 7.7A . 8 . 8A.-8E . 9 . 11A.-11F . 12A..12B . 15 .
10 . 16 . 13..13A . 14 . 14A . 18 . 19 . X

X X

X

X

X X

X

X X

X X X X X

X

X

X

X X

X X X

X X

X X

X

X X X X X X

X X

X X X

X

X

X

X X

X X

X

X X X

X X

X X

X

X

X



### 4- 7

### - "Particulat e Contro l - Fabri c Filter " doe s no t includ e th e fabri c filte r in"FGD- Lime Spra y Dry. "

• Tabl e 1 1

- "Compliance " coa l i s burne dina boile r withou t a scrubber .

- "Noncompliance " coa l i s burne dina boile r wit ha scrubber .

• Tabl e 1 3

- Energy penalt y estimate s for'"NO xContro 1 

### " Lo w Exces s Air 

### " ar e negativ e becaus e fue l saving s ar e represente da s a negativ e O& M

cos t inth e pollutio ncontro l cos t algorithms . 4. 2 BRIEFINGPACKAG E OUTPU T TABLE S Th e "briefin g package " repor t present s mode l result s fo r multipl e (u pt o seven ) IFCA

M run s side-by-side . Thes e table s highligh t nationa l an d regiona l mode l results . Aggregat e result s ar e compare dfor :

• Ai r emission s b

y pollutan t (S0 2 

### , PM , andNO ) , Federa l region , fue l type , andboile r siz e
• Annua l fue l demandb

y fue l type , Federa l region , andboile r siz e
• Cost s b

y fue l type , Federa l region , an dboile r siz e Th e Bas e Cas e i s usuall y presente dfirst (firs t ro w o r colum ni nth e table) . Thi s usuall y

represent s th e statu s qu o (curren t NSPS) . Alterna tiv e NSP S case s ar e labele da s Optio nCas e 1 , Optio nCas e 2 , . . . Th e briefin g packag e outpu t table s hav e bee nth e primar y IFCA M com pute r outpu t produc t presente dt o EPA . Th e regula r outpu t table s ar e long andar e use dfo r diagnosti c purpose s a s wel l a s t o mee t specia l request s fo r specifi c outpu t details . Th e briefin g packag e outpu t table s presen t a subse t o f th e informatio n containe di nth e regula r outpu t tables . Th e briefin g packag e outpu t table s ca nb e considere dan"executiv e summary " o f th e regula r outpu t tables . Th e briefin g packag e outpu t table s presen t aggregat e result s onl y fo r new industria l boiler s installe dafte r 1985 . The y d o no t includ e aggregat e dat a onexistin g boilers .

4- 8