Initialise cost variables
subroutine init_cost_variables
!! Initialise cost variables
implicit none
abktflnc = 5.0D0
adivflnc = 7.0D0
blkcst = 0.0D0
c221 = 0.0D0
c222 = 0.0D0
capcost = 0.0D0
cconfix = 80.0D0
cconshpf = 70.0D0
cconshtf = 75.0D0
cdcost = 0.0D0
cdirt = 0.0D0
cdrlife = 0.0D0
cdrlife_cal = 0.0D0
cfactr = 0.75D0
cpfact = 0.0D0
cfind = (/0.244D0, 0.244D0, 0.244D0, 0.29D0/)
cland = 19.2D0
coe = 0.0D0
coecap = 0.0D0
coefuelt = 0.0D0
coeoam = 0.0D0
concost = 0.0D0
costexp = 0.8D0
costexp_pebbles = 0.6D0
cost_factor_buildings = 1.0D0
cost_factor_land = 1.0D0
cost_factor_tf_coils = 1.0D0
cost_factor_fwbs = 1.0D0
cost_factor_rh = 1.0D0
cost_factor_vv = 1.0D0
cost_factor_bop = 1.0D0
cost_factor_misc = 1.0D0
maintenance_fwbs = 0.2D0
maintenance_gen = 0.05D0
amortization = 13.6D0
cost_model = 1
cowner = 0.15D0
cplife = 0.0D0
cplife_cal = 0.0D0
cpstcst = 0.0D0
cpstflnc = 10.0D0
crctcore = 0.0D0
csi = 16.0D0
cturbb = 38.0D0
decomf = 0.1D0
dintrt = 0.0D0
divcst = 0.0D0
divlife = 0.0D0
divlife_cal = 0.0D0
dtlife = 0.0D0
fcap0 = 1.165D0
fcap0cp = 1.08D0
fcdfuel = 0.1D0
fcontng = 0.195D0
fcr0 = 0.0966D0
fkind = 1.0D0
fwallcst = 0.0D0
iavail= 2
ibkt_life = 0
life_dpa = 50
bktcycles = 1.0D3
avail_min = 0.75D0
tok_build_cost_per_vol = 1283.0D0
light_build_cost_per_vol = 270.0D0
favail = 1.0D0
num_rh_systems = 4
conf_mag = 0.99D0
div_prob_fail = 0.0002D0
div_umain_time = 0.25D0
div_nref = 7000.0D0
div_nu = 14000.0D0
fwbs_nref = 20000.0D0
fwbs_nu = 40000.0D0
fwbs_prob_fail = 0.0002D0
fwbs_umain_time = 0.25D0
redun_vacp = 25.0D0
redun_vac = 0
t_operation = 0.0D0
tbktrepl = 0.5D0
tcomrepl = 0.5D0
tdivrepl = 0.25D0
uubop = 0.02D0
uucd = 0.02D0
uudiv = 0.04D0
uufuel = 0.02D0
uufw = 0.04D0
uumag = 0.02D0
uuves = 0.04D0
ifueltyp = 0
ipnet = 0
ireactor = 1
lsa = 4
moneyint = 0.0D0
output_costs = 1
discount_rate = 0.0435D0
startupratio = 1.0
startuppwr = 0.0
tlife = 30.0D0
ucblbe = 260.0D0
ucblbreed = 875.0D0
ucblli = 875.0D0
ucblli2o = 600.0D0
ucbllipb = 10.3D0
ucblss = 90.0D0
ucblvd = 200.0D0
ucbus = 0.123D0
uccase = 50.0D0
uccpcl1 = 250.0D0
uccpclb = 150.0D0
uccry = 9.3D4
uccryo = 32.0D0
uccu = 75.0D0
ucdiv = 2.8D5
ucech = 3.0D0
ucf1 = 2.23D7
ucfnc = 35.0D0
ucfuel = 3.45D0
uche3 = 1.0D6
uchrs = 87.9D6
uchts = (/15.3D0, 19.1D0/)
uciac = 1.5D8
ucich = 3.0D0
uclh = 3.3D0
ucme = 1.25D8
ucmisc = 2.5D7
ucnbi = 3.3D0
ucoam = (/68.8D0, 68.8D0, 68.8D0, 74.4D0/)
ucpens = 32.0D0
ucpfb = 210.0D0
ucpfbk = 1.66D4
ucpfbs = 4.9D3
ucpfcb = 7.5D4
ucpfdr1 = 150.0D0
ucpfic = 1.0D4
ucpfps = 3.5D4
ucrb = 400.0D0
ucsc = &
(/600.0D0, 600.0D0, 300.0D0, 600.0D0, 600.0D0, 600.0D0, 300.0D0, 1200.0D0, &
1200.0D0/)
sc_mat_cost_0 = &
(/4.8D0, 2.0D0, 1.0D0, 4.8D0, 4.8D0, 47.4D0, 1.0D0, 47.4D0, 47.4D0/)
supercond_cost_model = 0
ucshld = 32.0D0
uctfbr = 1.22D0
uctfbus = 100.0D0
uctfps = 24.0D0
uctfsw = 1.0D0
ucturb = (/230.0D6, 245.0D6/)
ucwindpf = 465.0D0
ucwindtf = 480.0D0
ucwst = (/0.0D0, 3.94D0, 5.91D0, 7.88D0/)
u_unplanned_cp = 0.0
i_cp_lifetime = 0
cplife_input = 2.0D0
end subroutine init_cost_variables