¸÷λר¼Ò£¬ÎÒÔÚ×öÒ»¸öÆøÒºÏà¼ä´«ÖʵÄÄ£Ä⣬×Ô¼ºÐ´Á˸öudf£¬µ«ÊDZàÒë²»¹ýÈ¥£¬Çó¸÷λ°ïæ¿´¿´¡£
´úÂëÈçÏ£º
#include "udf.h"
DEFINE_MASS_TRANSFER(o_lbe_transfer,cell,thread,from_index,from_species_index,to_index,to_species_index)
{
Thread *o, *lbe;
o = THREAD_SUB_THREAD(thread, from_index);
lbe = THREAD_SUB_THREAD(thread, to_index);
real k_pq;/*mass transfer coefficient*/
real sh_q = 20.;/*sherwood number*/
real diff_q;/*diffusivity of o2 in lbe*/
real diam = C_PHASE_DIAMETER(cell, o);/*bubble diameter*/
real vof_o = C_VOF(cell, o);
real vof_lbe = C_VOF(cell, lbe);
real area_intf;/*interfacial area*/
real m_gl;
real YI_SAT;/*soluability,wt%*/
real YI_E;/*mass fraction of o2 in lbe corresponding to partial pressure*/
real R_I;
real x_o;/*molar fraction of o2 in ar*/
real ppress;/*partial pressure*/
real R;
int i = 0;/*species index*/
/*caculating mass transfer coefficient*/
diff_q = 0.0239*exp(-43073. / 8.314 / C_T(cell, lbe))*0.0001;
k_pq = sh_q*diff_q / diam;
/*udf for specifying interfacial area*/
area_intf = 6.*vof_o*vof_lbe / diam;
/*mass transfer rate*/
R = C_YI(cell, lbe, i)*C_R(cell, lbe);/* mass concentration */
R_I = 0.0;
m_gl = 0.0;
YI_SAT = POW(10, 2.52 - 4803 / C_T(cell, lbe));
x_o = 5.*C_YI(cell, o, i) / (4. + C_YI(cell, o, i));/*convert mass fraction to molar fraction*/
ppress = x_o*(C_P(cell, o)+101325);/*total pressure*molar fraction*/
YI_E = sqrt(ppress * 100000. / exp(13.558 - 32005 / C_T(cell, lbe)));
if (YI_E > YI_SAT)
{
R_I = YI_SAT*C_R(cell, lbe);
}
else
{
R_I = YI_E*C_R(cell, lbe);
}
m_gl = k_pq*area_intf*(R_I - rho);
return (m_gl);
}
Ä£ÐÍÈçÏ£º
|