Effects of process-generated hydrogen on RPV walls

LP(2) = 6 LP(3) = 7 LP(4) = 2 LP(5) = 4 LP(6) = 8

c ________________________

END OF INPUT BLOCK

__________________________________

CALL PROPERTY

TB=TBppm*1.E-3*DW/10.81 TLi=TLippm*1.E-3*DW/6.939 TLi = 1.e-4 H2=(H2_cc_25*1.E-3/22.414)*DW O2=(O2_ppm*1.E-3/32.)*DW H2O2=(H2O2_ppm *1.E-3/34.)*DW

WRITE (4,'(1x,a8,E12.4,a8)') '[B] = ', TBppm ,' ppm' WRITE (4,'(1x,a8,E12.4,a8)') '[Li] = ', TLippm ,' ppm' WRITE (4,'(1x,a8,E12.4,a14)') '[H2] = ', H2_cc_25 ,' cc/kg STP' WRITE (4,'(1x,a8,E12.4,a8)') '[O2] = ', O2_ppm ,' ppm' WRITE (4,'(1x,a8,E12.4,a8)') '[H2O2] = ',H2O2_ppm ,' ppm' WRITE (4,'(1x,a8,F10.1,a8)') 'T = ', Tc ,' C' WRITE (4,'(1x,a7,E12.4,a12)') 'GAMn = ', GAMN ,' eV/cm3 s' WRITE (4,'(1x,a7,E12.4,a12)') 'GAMg = ', GAMG ,' eV/cm3 s' WRITE (4,'(1x,a7,E12.4,a12)') 'GAMa = ', GAMA ,' eV/cm3 s'

WRITE (4,*) WRITE (4,*)

WRITE (4,*) ' t, s

concentrations, mol/l '

WRITE (4,*)

WRITE (4,*) '

Index of Specie '

WRITE (4,*)

write (4,988) (LP(i),i=1,6)

988 FORMAT (7x,6i12)

WRITE (4,*)

Z(1) = -1. Z(2) = 0. Z(3) = 0. Z(4) = 1. Z(5) = -1. Z(6) = 0.