|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
x
#include "udf.h"
real Re_k = 6.0;
real C_0 = 13.0;
real C_s(cell_t c, Thread *t)
{return fabs(C_U(c,t)*(C_U(c,t)*C_DVDX(c,t)+C_V(c,t)*C_DVDY(c,t))-C_V(c,t)*(C_U(c,t)*C_DUDX(c,t)+C_V(c,t)*C_DUDY(c,t)))
/pow((C_U(c,t)*C_U(c,t)+C_V(c,t)*C_V(c,t)),1.5);}
real R_l(cell_t c, Thread *t)
{return C_s(c,t)*sqrt(C_MU_L(c,t)/C_R(c,t)/C_D(c,t));}
real alph_1(cell_t c, Thread *t)
{return C_0*R_l(c,t)/(0.1+R_l(c,t));}
real Re_t(cell_t c, Thread *t)
{return C_R(c,t)*C_K(c,t)/C_MU_L(c,t)/C_D(c,t);}
real alph(cell_t c, Thread *t)
{return (0.025+alph_1(c,t)+Re_t(c,t)/Re_k)/(1+Re_t(c,t)/Re_k);}
/* Set the turbulent viscosity */
DEFINE_TURBULENT_VISCOSITY(user_mu_t,c,t)
{
real mu_t;
real rho = C_R(c,t);
real k = C_K(c,t);
real d = C_D(c,t);
real a = alph(c,t);
mu_t = a*rho*k/d;
return mu_t;
}
计算湍流粘性的
k-e湍流模型能用也能算,但k-w湍流模型只能编译,一算就出错。
请问斑竹看一下
多谢 |
|