24小时热门版块排行榜    

查看: 1182  |  回复: 3

fww2008

木虫 (小有名气)

[求助] 单机多核并行计算下,该怎样对下列UDF中的DEFINE_ADJUST和DEFINE_SOURCE进行修改? 已有1人参与

在线等,望指教,谢谢!
DEFINE_ADJUST(area_density, domain)
{
  Thread *t;
  Thread **pt;
  cell_t c;
  Domain *pDomain = DOMAIN_SUB_DOMAIN(domain,P_PHASE);
  real voidx, voidy, voidz=0;
  
   
  {
          Alloc_Storage_Vars(pDomain,SV_VOF_RG,SV_VOF_G,SV_NULL);
          Scalar_Reconstruction(pDomain, SV_VOF,-1,SV_VOF_RG,NULL);
          Scalar_Derivatives(pDomain,SV_VOF,-1,SV_VOF_G,SV_VOF_RG,Vof_Deriv_Accumulate);
  }
                        
  {
      Alloc_Storage_Vars(domain, SV_T_RG, SV_T_G,  SV_NULL);
      T_derivatives(domain);
      Free_Storage_Vars(domain, SV_T_RG, SV_NULL);
  }
                     
      mp_thread_loop_c (t,domain,pt)
        if (FLUID_THREAD_P(t))
          {
            Thread *tp = pt[P_PHASE];

            begin_c_loop (c,t)
                {
#if RP_3D
        C_UDMI(c,t,0) = -(C_VOF_G(c,tp)[0]*C_T_G(c,t)[0]+C_VOF_G(c,tp)[1]*C_T_G(c,t)[1]+C_VOF_G(c,tp)[2]*C_T_G(c,t)[2]);
#endif

#if RP_2D
        C_UDMI(c,t,0) = -(C_VOF_G(c,tp)[0]*C_T_G(c,t)[0]+C_VOF_G(c,tp)[1]*C_T_G(c,t)[1]);
#endif
            }
                end_c_loop (c,t)
      }
        Free_Storage_Vars(pDomain,SV_VOF_RG,SV_VOF_G,SV_NULL);
        Free_Storage_Vars(domain, SV_T_G, SV_NULL);
}

DEFINE_SOURCE(liquid_source,c,thread,dS,eqn)
{
        real source;
        real DAB,Dt;
        Thread *tm=THREAD_SUPER_THREAD(thread);
        Thread **pt=THREAD_SUB_THREADS(tm);

        Dt=(0.09/0.7)*C_K(c,thread)*C_K(c,thread)/C_D(c,thread);
        DAB=Dt + diffu;
        source = DAB * C_R(c,pt[1]) * C_UDMI(c,tm,0);
        C_UDMI(c,tm,1)=source;
       
        dS[eqn]=diffu*C_UDMI(c,tm,0);               
        return source;
}
回复此楼
加油!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fww2008

木虫 (小有名气)

顶一下

[ 发自手机版 http://muchong.com/3g ]
2楼2015-01-27 13:21:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fww2008

木虫 (小有名气)

内容已删除
加油!
3楼2015-01-27 13:22:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

死天

专家顾问 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
fww2008: 金币+10, 有帮助, 嗯,好的,这就去看看,非常感谢! 2015-01-27 14:41:22
你可以参考看一下7.6. Limitations of Parallel UDFs(fluent udf指导的例子)

如果不是涉及全局变量,就不需要额外的调用并行语句。
4楼2015-01-27 14:14:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 fww2008 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0856化工专硕求调剂 +12 董boxing 2026-03-01 12/600 2026-03-01 19:45 by 材子momo
[考研] 265分求调剂不调专业和学校有行学上就 +5 礼堂丁真258 2026-02-28 7/350 2026-03-01 19:12 by Js512888
[考研] 298求调剂 +6 axyz3 2026-02-28 6/300 2026-03-01 19:00 by 18137688336
[考研] 一志愿中南大学理学化学 +4 15779376950 2026-03-01 5/250 2026-03-01 19:00 by Fff-1
[考研] 0856材料求调剂 +11 hyf hyf hyf 2026-02-28 12/600 2026-03-01 18:57 by 18137688336
[考研] 295求调剂 +7 19171856320 2026-02-28 7/350 2026-03-01 18:54 by 18137688336
[考研] 0857调剂 +3 一ll半 2026-02-28 3/150 2026-03-01 18:32 by 热情沙漠
[考研] 材料学调剂 +9 提神豆沙包 2026-02-28 11/550 2026-03-01 18:15 by ms629
[考博] 26申博 +4 想申博! 2026-02-26 6/300 2026-03-01 17:32 by 想申博!
[考研] 290求调剂 +9 材料专硕调剂; 2026-02-28 11/550 2026-03-01 17:21 by sunny81
[考研] 281求调剂 +4 2026计算机_诚心 2026-03-01 7/350 2026-03-01 17:20 by 2026计算机_诚心
[考研] 285求调剂 +8 满头大汗的学生 2026-02-28 8/400 2026-03-01 16:47 by caszguilin
[考研] 313求调剂 +3 水流年lc 2026-02-28 3/150 2026-03-01 16:01 by 新能源达人
[考研] 303求调剂 +4 今夏不夏 2026-03-01 4/200 2026-03-01 14:46 by 嘟嘟小浣熊
[考研] 求调剂 +6 repeatt?t 2026-02-28 6/300 2026-03-01 14:37 by Sakura绘
[考研] 298求调剂 +9 人间唯你是清欢 2026-02-28 12/600 2026-03-01 14:23 by Ducount.Y
[考研] 302材料工程求调剂 +4 Doleres 2026-03-01 5/250 2026-03-01 11:52 by liqiongjy
[论文投稿] Optics letters投稿被拒求助 30+3 luckyry 2026-02-26 4/200 2026-03-01 09:06 by babero
[高分子] 求环氧树脂研发1名 +3 孙xc 2026-02-25 11/550 2026-02-28 16:57 by ichall
[硕博家园] 【博士招生】太原理工大学2026化工博士 +4 N1ce_try 2026-02-24 8/400 2026-02-26 08:40 by N1ce_try
信息提示
请填处理意见