|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
x
DEFINE_PROFILE(density,thread,position)
{
real x[ND_ND];
real y,t,d0;
cell_t c;
face_t f;
Thread *t0;
begin_f_loop(f,thread)
{
c=F_C0(f,thread);
t0 = F_C0_THREAD(f,thread);
F_CENTROID(x,f,thread);
y=2.0*x[0];
t=RP_Get_Real("physical-time-step");
d0=C_UDSI_M1(c,t0,0);
F_PROFILE(f,thread,position)=d0+(d0*9.0e-08*t)/(y-1.0e-07*t);
}
end_f_loop(f,thread)
} |
|