24小时热门版块排行榜    

Znn3bq.jpeg
北京石油化工学院2026年研究生招生接收调剂公告
查看: 1189  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 338求调剂 +7 wxygxsaaaaa 2026-04-06 7/350 2026-04-08 06:07 by lijunpoly
[考研] 计算机408|在校多次国家级竞赛获奖|申请调剂 +4 东山大白鹅 2026-04-05 4/200 2026-04-08 00:18 by chongya
[考研] 调剂求助(生物与医药) +6 @6952 2026-04-06 6/300 2026-04-07 23:52 by lys0704
[考研] 081200-11408-276学硕求调剂 +6 崔wj 2026-04-02 6/300 2026-04-07 18:45 by 求调剂zz
[考研] 312求调剂 +18 gtw1 2026-04-06 20/1000 2026-04-07 18:16 by 蓝云思雨
[考研] 22408 调剂材料 +7 我叫ez 2026-04-06 8/400 2026-04-07 17:12 by 蓝云思雨
[考研] 085100建筑学 寻求跨专业调剂 一志愿南大294分 校级省级国家级奖项若干 踏实肯干 +3 1021075758 2026-04-06 4/200 2026-04-07 09:23 by 蓝云思雨
[考研] 385分 生物学(071000)求调剂 +12 qf626 2026-04-01 12/600 2026-04-06 17:36 by 52305043001
[考研] (调剂)一志愿报考哈尔滨工业大学0857资源与环境专业378分考生 +7 狠狠加油 2026-04-05 8/400 2026-04-06 16:52 by momo皓
[考研] 求调剂 +5 wos666 2026-04-03 5/250 2026-04-06 10:13 by 蓝云思雨
[考研] 262求调剂 +7 天下第一文 2026-04-04 8/400 2026-04-05 21:31 by 激流勇渡
[考研] 求调剂到0856材料工程 +3 程9915 2026-04-05 3/150 2026-04-05 18:15 by 蓝云思雨
[考研] 271分求调剂学校 +12 zph158488! 2026-04-02 13/650 2026-04-05 10:13 by lqwchd
[考研] 325求调剂 +4 春风不借意 2026-04-04 4/200 2026-04-04 14:46 by 湘农储能材料
[考研] 387求调剂 +4 爱吃片豆土 2026-04-03 5/250 2026-04-04 08:10 by 岸上的一条鱼
[考研] 考研调剂 +5 小sun要好运 2026-04-03 5/250 2026-04-03 21:43 by 啵啵啵0119
[考研] 求调剂 +4 15064154688 2026-04-03 5/250 2026-04-03 15:07 by zrongyan
[考研] 调剂 +7 祉岷. 2026-04-02 7/350 2026-04-03 09:11 by 花呗还欠600
[考研] 302求调剂 +9 zyx上岸! 2026-04-02 9/450 2026-04-02 23:07 by 马儿快快地跑
[考研] 一志愿武汉理工0856,初试334 +3 26考研材料 2026-04-02 3/150 2026-04-02 21:22 by dongzh2009
信息提示
请填处理意见