|
|
@ -2841,13 +2841,11 @@ double Ith_Iccp,Ith_Ircx,Ith_Irci,Ith_Irbx,Ith_Irbi,Ith_Ire,Ith_Irbp; |
|
|
pwq=pow(xvar1,xvar2); |
|
|
pwq=pow(xvar1,xvar2); |
|
|
qlo=PSatT*(1.0-pwq*(1.0-p[14])*(1.0-p[14]))/(1.0-p[29]); |
|
|
qlo=PSatT*(1.0-pwq*(1.0-p[14])*(1.0-p[14]))/(1.0-p[29]); |
|
|
qlo_PSatT=(1.0-((1.0-p[14])*(1.0-p[14]))*pwq)/(1.0-p[29]); |
|
|
qlo_PSatT=(1.0-((1.0-p[14])*(1.0-p[14]))*pwq)/(1.0-p[29]); |
|
|
qlo_Vbep=0.0; |
|
|
|
|
|
qlo_Vbcp=0.0; |
|
|
qlo_Vbcp=0.0; |
|
|
qlo_Vrth=qlo_PSatT*PSatT_Vrth; |
|
|
qlo_Vrth=qlo_PSatT*PSatT_Vrth; |
|
|
qhi=dvh*(1.0-p[14]+0.5*p[29]*dvh/PSatT)*pwq; |
|
|
qhi=dvh*(1.0-p[14]+0.5*p[29]*dvh/PSatT)*pwq; |
|
|
qhi_dvh=(0.5*dvh*p[29]/PSatT-p[14]+1.0)*pwq+0.5*dvh*p[29]*pwq/PSatT; |
|
|
qhi_dvh=(0.5*dvh*p[29]/PSatT-p[14]+1.0)*pwq+0.5*dvh*p[29]*pwq/PSatT; |
|
|
qhi_PSatT=-0.5*(dvh*dvh)*p[29]*pwq/(PSatT*PSatT); |
|
|
qhi_PSatT=-0.5*(dvh*dvh)*p[29]*pwq/(PSatT*PSatT); |
|
|
qhi_Vbep=0.0; |
|
|
|
|
|
qhi_Vbcp=qhi_dvh*dvh_Vbcp; |
|
|
qhi_Vbcp=qhi_dvh*dvh_Vbcp; |
|
|
qhi_Vrth=qhi_dvh*dvh_Vrth; |
|
|
qhi_Vrth=qhi_dvh*dvh_Vrth; |
|
|
qhi_Vrth=qhi_Vrth+qhi_PSatT*PSatT_Vrth; |
|
|
qhi_Vrth=qhi_Vrth+qhi_PSatT*PSatT_Vrth; |
|
|
@ -2864,12 +2862,10 @@ double Ith_Iccp,Ith_Ircx,Ith_Irci,Ith_Irbx,Ith_Irbi,Ith_Ire,Ith_Irbp; |
|
|
qlo=PSatT*(1.0-xvar3)/(1.0-p[29]); |
|
|
qlo=PSatT*(1.0-xvar3)/(1.0-p[29]); |
|
|
qlo_PSatT=(1.0-xvar3)/(1.0-p[29]); |
|
|
qlo_PSatT=(1.0-xvar3)/(1.0-p[29]); |
|
|
qlo_xvar3=-PSatT/(1.0-p[29]); |
|
|
qlo_xvar3=-PSatT/(1.0-p[29]); |
|
|
qlo_Vbep=0.0; |
|
|
|
|
|
qlo_Vrth=qlo_PSatT*PSatT_Vrth; |
|
|
qlo_Vrth=qlo_PSatT*PSatT_Vrth; |
|
|
qlo_Vbcp=qlo_xvar3*xvar3_Vbcp; |
|
|
qlo_Vbcp=qlo_xvar3*xvar3_Vbcp; |
|
|
qlo_Vrth=qlo_Vrth+qlo_xvar3*xvar3_Vrth; |
|
|
qlo_Vrth=qlo_Vrth+qlo_xvar3*xvar3_Vrth; |
|
|
qhi=0.0; |
|
|
qhi=0.0; |
|
|
qhi_Vbep=0.0; |
|
|
|
|
|
qhi_Vrth=0.0; |
|
|
qhi_Vrth=0.0; |
|
|
qhi_Vbcp=0.0; |
|
|
qhi_Vbcp=0.0; |
|
|
} |
|
|
} |
|
|
@ -2934,7 +2930,6 @@ double Ith_Iccp,Ith_Ircx,Ith_Irci,Ith_Irbx,Ith_Irbi,Ith_Ire,Ith_Irbp; |
|
|
qlo=-PSatT*xvar3/(1.0-p[29]); |
|
|
qlo=-PSatT*xvar3/(1.0-p[29]); |
|
|
qlo_PSatT=-xvar3/(1.0-p[29]); |
|
|
qlo_PSatT=-xvar3/(1.0-p[29]); |
|
|
qlo_xvar3=-PSatT/(1.0-p[29]); |
|
|
qlo_xvar3=-PSatT/(1.0-p[29]); |
|
|
qlo_Vbep=0.0; |
|
|
|
|
|
qlo_Vrth=qlo_PSatT*PSatT_Vrth; |
|
|
qlo_Vrth=qlo_PSatT*PSatT_Vrth; |
|
|
qlo_Vbcp=qlo_xvar3*xvar3_Vbcp; |
|
|
qlo_Vbcp=qlo_xvar3*xvar3_Vbcp; |
|
|
qlo_Vrth=qlo_Vrth+qlo_xvar3*xvar3_Vrth; |
|
|
qlo_Vrth=qlo_Vrth+qlo_xvar3*xvar3_Vrth; |
|
|
|