24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1661  |  回复: 3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

wzwyl2010

新虫 (初入文坛)

[求助] UDF并行编译求助-附程序段

单核编译UDF成功计算 为了提高计算速度现在对udf并行编译 由于程序段较多,涉及宏 DEFINE_ADJUST 、DEFINE_SOURCE 、DEFINE_PROFILE、DEFINE_DIFFUSIVITY、Message以及sum求和等并行编译起来比较麻烦。Help里有介绍并行编译时,如果涉及HOST和NODE之间的数据交换以及在求和时候,在程序段加一些并行宏如#if !RP_HOST、#if !RP_NODE、node_to_host_real_2等,不知道怎么定义是否有数据交换,即添加宏的原则,如下段程序是否存在数据交换,需要怎样添加,谢谢大牛们!!!

DEFINE_ADJUST(mem,domain)
{
Domain*d;
cell_t c;  
Thread*t;   
int MEM=46;
real sum_rmem=0.00;
real rmem;
int i=0;

t=Lookup_Thread(domain,MEM);
begin_c_loop(c,t)
{
  
   sum_rmem+=(1.0/(0.5139*C_UDSI(c,t,W_CONT)-0.326)*exp(1268.0*(1.0/303.0-1.0/C_T(c,t)))*0.000025);
   i+=1;
   C_UDMI(c,t,RMEM)=sum_rmem;
}
end_c_loop(c,t)
rmem=sum_rmem/i;
Message("avg_reme= %lf.\n",rmem);


DEFINE_PROFILE(porosity_profile,t,i)   
{
    cell_t c;
    real xc[ND_ND];
    real poro;                  
    real y;                  
    real per;
        real poro_eff;
    begin_c_loop(c,t)
    {
      C_CENTROID(xc,c,t);
      y=xc[0];

      if((y>0.0010&&y<=0.0013)||(y>0.001345&&y<=0.001645))      
       {
        poro=PORO_GDL;  /*扩散层的孔隙率*/
                per=PER_GDL ;/*扩散层的渗透率*/
       }
      else if((y>0.0013&&y<=0.00131)||(y>0.001335&&y<=0.001345))
       {
        poro=PORO_CATA;
                per=PER_CATA;
     
      }
          else if( y>0.00131&&y<=0.001335)
          {
          poro=PORO_M;
          per=1.0E-18;
          
          }
          else
          {
          poro=0.999;
          per=8.0E-7;
          
          }

          C_UDMI(c,t,PORO)=poro;
      C_UDMI(c,t,PER)=per;
            poro_eff=poro*(1-C_UDSI(c,t,DS));
      C_UDMI(c,t,PORO_EFF)=poro_eff;
      C_PROFILE(c,t,i)=C_UDMI(c,t,PORO_EFF);
        }end_c_loop(c,t)
         
}

DEFINE_SOURCE(uds_source,c,t,dS,eqn)
{   
       
        real source;
          source=C_UDMI(c,t,S_VL)*MOL_WEI_LIQ;
        dS[eqn]=0.;
        return source;

}
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gearboy78

禁虫 (小有名气)

本帖内容被屏蔽

4楼2013-11-15 10:29:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

gearboy78

禁虫 (小有名气)

本帖内容被屏蔽

2楼2013-11-14 14:04:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wzwyl2010

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by gearboy78 at 2013-11-14 14:04:37
自己看一下fluent里面并行的模型,计算变量在每个node上都会有一份的,如果是求和sum,那么每个node上的sum得到的只是该node上的求和值,要整体求和还要再调用PRF函数。总之,关键是多看看udf帮助中的并行介绍。

额 对一些概念不是太明白,NODE上有计算变量,这个计算变量在并行计算时候是在分块网格上各自计算,要把这些NODE上的变量都加起来好像需要#if !RP_host,看到论坛上说,单核改并行编译在每句上都加#if !RP_host,不知道这样可以不 感觉这样加很笼统,有些地方可能不需要加,对于我这个程序怎么并行编译分析呢
3楼2013-11-14 15:38:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料与化工(0856)304求B区调剂 +6 邱gl 2026-03-30 10/500 2026-03-31 07:43 by yishunmin
[考研] 一志愿大连理工大学材料求调剂 +6 Gymno 2026-03-30 6/300 2026-03-31 07:26 by 无际的草原
[考研] 一志愿 南京航空航天大学 ,080500材料科学与工程学硕 +4 @taotao 2026-03-30 4/200 2026-03-31 04:04 by zhyzzh
[考研] 085600材料与化工调剂 +15 kikiki7 2026-03-30 15/750 2026-03-31 04:02 by fmesaito
[考研] 370求调剂 +3 080700调剂 2026-03-30 3/150 2026-03-31 01:09 by A_Zhe
[考研] 生物考研337分求调剂 +3 cgxin 2026-03-30 4/200 2026-03-30 23:00 by Evan_Liu
[有机交流] 考研调剂 +8 watb 2026-03-26 8/400 2026-03-30 18:40 by 544594351
[考研] 一志愿南开大学0710生物学359求调剂 +5 兔兔兔111223314 2026-03-29 7/350 2026-03-30 18:29 by 兔兔兔111223314
[考研] 材料专硕调剂 +11 椰椰。 2026-03-29 11/550 2026-03-30 16:21 by wangjy2002
[基金申请] 面上5B能上会吗? +7 redcom 2026-03-29 7/350 2026-03-30 12:44 by 爱搞研究的小孩
[考研] 化学工程085602 305分求调剂 +25 RichLi_ 2026-03-25 25/1250 2026-03-30 11:02 by klasasda
[考研] 材料与化工272求调剂 +21 阿斯蒂芬2004 2026-03-28 21/1050 2026-03-30 10:52 by 晴空210210
[考研] 材料与化工304求B区调剂 +4 邱gl 2026-03-26 7/350 2026-03-30 08:39 by 探123
[考研] 调剂考研 +3 王杰一 2026-03-29 3/150 2026-03-29 08:09 by fmesaito
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 一志愿211院校 344分 东北农业大学生物学学硕,求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
[考研] 一志愿上海理工能源动力(085800)310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
[考研] 网络空间安全0839招调剂 +4 w320357296 2026-03-25 6/300 2026-03-25 17:59 by 255671
[考研] 086003食品工程求调剂 +6 淼淼111 2026-03-24 6/300 2026-03-25 10:29 by 3Strings
信息提示
请填处理意见