if(pE%IntStruct.eq.-1)then! for melt paper, mat prop and core heat flux study
allocate(Masses(11),XiFe(6),XiH2O(4))
Masses(1)=0.8_dp!0.1_dp
Masses(2)=0.9_dp!0.2_dp !0.5_dp
Masses(3)=1.0_dp!0.4_dp !1.0_dp
Masses(4)=1.1_dp!0.7_dp !1.5_dp
Masses(5)=1.2_dp!1.0_dp !2.0_dp
Masses(6)=1.3_dp!1.5_dp !2.5_dp
Masses(7)=1.4_dp!2.0_dp !3.0_dp
Masses(8)=1.5_dp!2.5_dp !3.5_dp
Masses(9)=1.6_dp!3.0_dp !4.0_dp
Masses(10)=1.8_dp!3.5_dp !4.5_dp
Masses(11)=2.0_dp!4.0_dp !5.0_dp
allocate(Masses(10),XiFe(7),XiH2O(1))
Masses(1)=5.5_dp
Masses(2)=6.0_dp
Masses(3)=6.5_dp
Masses(4)=7.0_dp
Masses(5)=7.5_dp
Masses(6)=8.0_dp
Masses(7)=8.5_dp
Masses(8)=9.0_dp
Masses(9)=9.5_dp
Masses(10)=10.0_dp
!Masses(1) = 2.5_dp !0.1_dp
!Masses(2) = 3.0_dp !0.2_dp !0.5_dp
!Masses(3) = 3.5_dp !0.4_dp !1.0_dp
!Masses(4) = 4.0_dp !0.7_dp !1.5_dp
!Masses(5) = 4.5_dp !1.0_dp !2.0_dp
!Masses(6) = 5.0_dp !1.5_dp !2.5_dp
!Masses(1) = 1.7_dp
!Masses(2) = 1.9_dp
! Masses(1) = 0.1_dp
! Masses(2) = 0.2_dp !0.5_dp
! Masses(3) = 0.4_dp !1.0_dp
...
...
@@ -306,24 +315,24 @@ program CHIC
! Masses(10) = 3.5_dp !4.5_dp
! Masses(11) = 4.0_dp !5.0_dp
XiFe(1)=0.20_dp!0.15_dp
XiFe(2)=0.30_dp!0.25_dp
XiFe(3)=0.40_dp!0.35_dp
XiFe(4)=0.50_dp!0.45_dp
XiFe(5)=0.60_dp!0.55_dp
XiFe(6)=0.70_dp!0.65_dp
XiFe(7)=0.80_dp!0.75_dp
XiFe(1)=0.15_dp
XiFe(2)=0.25_dp
XiFe(3)=0.35_dp
XiFe(4)=0.45_dp
XiFe(5)=0.55_dp
XiFe(6)=0.65_dp
XiFe(7)=0.75_dp
! XiH2O array is used here not for water but for iron content in mantle; this is iron number and not weight fraction (e.g. Fe# 0.4 -> iron mantle weight fraction=0.1346) -> X_Fe-X_FeM*(1-X_Fe)>0!!!
XiH2O(1)=0.0_dp!0.05_dp
XiH2O(2)=0.05_dp
XiH2O(3)=0.1_dp!0.15_dp
XiH2O(4)=0.15_dp!0.2_dp
XiH2O(5)=0.2_dp
doind_k=1,11
doind_j=1,7
doind_i=1,5
XiH2O(1)=0.1_dp!0.0_dp !0.05_dp
!XiH2O(2) = 0.05_dp
!XiH2O(3) = 0.1_dp !0.15_dp
!XiH2O(4) = 0.15_dp !0.2_dp
!XiH2O(5) = 0.2_dp
doind_k=1,10!13
doind_j=1,7!14!7
doind_i=1,1!5
pE%M_E=Masses(ind_k)
pE%X_Fe=XiFe(ind_j)
pI%X_FeM=XiH2O(ind_i)
...
...
@@ -528,7 +537,7 @@ program CHIC
endif
! first call needed for adiabatic temperature profile