Initialise module variables
subroutine init_heat_transport_variables
!! Initialise module variables
implicit none
baseel = 5.0D6
crypmw = 0.0D0
crypmw_max = 50.0D0
f_crypmw = 1.0D0
etatf = 0.9D0
etath = 0.35D0
etath_liq = 0.35D0
fachtmw = 0.0D0
fcsht = 0.0D0
fgrosbop = 0.0D0
fmgdmw = 0.0D0
fpumpblkt = 0.005D0
fpumpdiv = 0.005D0
fpumpfw = 0.005D0
fpumpshld = 0.005D0
htpmw_min = 0.0D0
helpow = 0.0D0
helpow_cryal = 0.0D0
htpmw = 0.0D0
htpmw_blkt = 0.0D0
htpmw_blkt_liq = 0.0D0
htpmw_blkt_tot = 0.0D0
htpmw_div = 0.0D0
htpmw_fw = 0.0D0
htpmw_shld = 0.0D0
htpsecmw = 0.0D0
ipowerflow = 1
iprimshld = 1
nphx = 0
pacpmw = 0.0D0
peakmva = 0.0D0
pfwdiv = 0.0D0
pgrossmw = 0.0D0
pinjht = 0.0D0
pinjmax = 120.0D0
pinjwp = 0.0D0
pinjwpfix = 0.0D0
pnetelmw = 0.0D0
precircmw = 0.0D0
priheat = 0.0D0
psecdiv = 0.0D0
psechcd = 0.0D0
psechtmw = 0.0D0
pseclossmw = 0.0D0
psecshld = 0.0D0
pthermmw = 0.0D0
pwpm2 = 150.0D0
tfacpd = 0.0D0
tlvpmw = 0.0D0
trithtmw = 15.0D0
tturb = 0.0D0
vachtmw = 0.5D0
end subroutine init_heat_transport_variables