|
楼主 |
发表于 2006-11-16 07:12:51
|
显示全部楼层
[求助] 请教gallongallon 高手,局部单向化出口的边界条件
好,谢谢楼上热心帮助,请看以下程序要表示成局部单向化边界条件,该怎样改写呢?请指教,谢谢!!
/****************************************************/
/*outlet.c*/
/****************************************************/
#include"udf.h"
DEFINE_PROFILE(outlet_u,thread,position)
{
cell_t c;
face_t f;
Thread *tc;
real U;
begin_f_loop(f,thread)
{
c=F_C0(f,thread);/*获得边界处相邻网格C0的cell index*/
tc=THREAD_T0(thread);/*获得C0的cell thread*/
U=C_U(c,tc);/*获得C0的速度分量U*/
F_PROFILE(f,thread,position)=U;
}
end_f_loop(f,thread)
}
DEFINE_PROFILE(outlet_k,thread,position)
{
cell_t c;
face_t f;
Thread *tc;
real K;
begin_f_loop(f,thread)
{
c=F_C0(f,thread);/*获得边界处相邻网格C0的cell index*/
tc=THREAD_T0(thread);/*获得C0的cell thread*/
K=C_K(c,tc);/*获得C0的湍动能K*/
F_PROFILE(f,thread,position)=K;
}
end_f_loop(f,thread)
}
DEFINE_PROFILE(outlet_d,thread,position)
{
cell_t c;
face_t f;
Thread *tc;
real D;
begin_f_loop(f,thread)
{
c=F_C0(f,thread);/*获得边界处相邻网格C0的cell index*/
tc=THREAD_T0(thread);/*获得C0的cell thread*/
D=C_D(c,tc);/*获得C0的耗散系数D*/
F_PROFILE(f,thread,position)=D;
}
end_f_loop(f,thread)
}
|
|