24小时热门版块排行榜    

查看: 483  |  回复: 2

sghudng

铜虫 (小有名气)

[交流] 【求助】哪位大侠懂并行UDF的麻烦您进来帮个忙,谢谢! 已有1人参与

实在是搞不懂写UDF的时候怎么分配计算,自己照着帮助里的例子套了一天,编译都出错,可是我的非稳态问题如果不并行计算,实在是太慢了,求求各位大哥了……
程序如下:
#include "udf.h"
DEFINE_PROFILE(velocity,t,i)
{
    Domain *domain=Get_Domain(1);
    Thread *thread_s,*mix_thread;
    double flux,flux_tot,velocity;
    face_t f;
        flux_tot=0.0;
    mix_thread=Lookup_Thread(domain,5);
    thread_s=THREAD_SUB_THREAD(mix_thread,1);
    begin_f_loop(f,mix_thread)
    {
        flux=F_FLUX(f,thread_s);
        flux_tot+=flux;
    }
    end_f_loop(f,mix_thread)
        velocity=2*flux_tot/22.319;
    begin_f_loop(f,t)
    {
        F_PROFILE(f,t,i)=fabs(velocity);
    }
    end_f_loop(f,t)            
}
回复此楼

» 猜你喜欢

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

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

sghudng

铜虫 (小有名气)

我也知道没人愿意完全帮人写程序,还是把自己照着帮助套着写的贴上来,希望大哥们指点一下其中的错误之处,希望有人能回贴……
#include "udf.h"
DEFINE_PROFILE(velocity,t,i)
{
#if !RP_HOST
        Domain *domain=Get_Domain(1);
    Thread *thread_s,*mix_thread;
    face_t f;
#else
        real velocity,flux,flux_tot=0.0;
#endif
#if !RP_HOST
    mix_thread=Lookup_Thread(domain,5);
    thread_s=THREAD_SUB_THREAD(mix_thread,1);

#if RP_NODE
    begin_f_loop(f,mix_thread)
        if PRINCIPAL_FACE_P(f,mix_thread)
    {
        flux=F_FLUX(f,thread_s);
        flux_tot+=flux;
    }
    end_f_loop(f,mix_thread)
                flux_tot=PRF_GRSUM1(flux_tot);
        velocity=2*flux_tot/22.319;
#endif
#endif
#if RP_NODE
    begin_f_loop(f,t)
    if PRINCIPAL_FACE_P(f,t)
    {
        F_PROFILE(f,t,i)=velocity;
    }
    end_f_loop(f,t)            
#endif
}
2楼2010-07-20 10:32:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sghudng

铜虫 (小有名气)

不并行算的时候,程序完全没问题,开并行以后,能导进去,但是程序设置的入口条件不起作用……真没人会吗?
3楼2010-07-20 17:06:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 sghudng 的主题更新
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 X5bHxOULxFqb 2026-10-30 14/700 2026-10-31 22:46 by YXM1FDCSE8Bn
[考博] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +4 X5bHxOULxFqb 2026-10-30 19/950 2026-10-31 22:44 by YXM1FDCSE8Bn
[论文投稿] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 X5bHxOULxFqb 2026-10-30 24/1200 2026-10-31 22:39 by YXM1FDCSE8Bn
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 X5bHxOULxFqb 2026-10-30 11/550 2026-10-31 22:39 by YXM1FDCSE8Bn
[考研] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +3 xvJS1BYDxvBS 2026-10-31 5/250 2026-10-31 21:59 by YXM1FDCSE8Bn
[找工作] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 1uaZt2kAZj2S 2026-10-31 4/200 2026-10-31 21:54 by YXM1FDCSE8Bn
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 4/200 2026-10-31 21:51 by YXM1FDCSE8Bn
[考博] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 4/200 2026-10-31 21:51 by YXM1FDCSE8Bn
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 1uaZt2kAZj2S 2026-10-31 5/250 2026-10-31 21:47 by YXM1FDCSE8Bn
[考研] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 10/500 2026-10-31 21:41 by YXM1FDCSE8Bn
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 9/450 2026-10-31 21:34 by YXM1FDCSE8Bn
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 1uaZt2kAZj2S 2026-10-30 11/550 2026-10-31 21:25 by YXM1FDCSE8Bn
[教师之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 X5bHxOULxFqb 2026-10-30 13/650 2026-10-31 17:12 by hKe7U1kad5Sg
[基金申请] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 X5bHxOULxFqb 2026-10-30 18/900 2026-10-31 17:05 by hKe7U1kad5Sg
[考博] 2027博士申请-临床检验诊断学、病原生物学、微生物方向 50+3 yyh@ 2026-10-28 4/200 2026-10-31 12:47 by 可淡不可忘
[硕博家园] 越来越担心硕士毕业后没有竞争力了 +8 zuesli 2026-10-27 14/700 2026-10-30 22:44 by 好运连连公主
[基金申请] 论文的挂名怎么评判贡献?基金申请中,排名第一的挂名文章 +3 biily 2026-10-25 3/150 2026-10-30 18:33 by 旁观2020
[硕博家园] 申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请 +3 小小阿光 2026-10-27 3/150 2026-10-29 23:56 by 起风了的快乐
[文学芳草园] 闲聊 +3 myrtle 2026-10-25 6/300 2026-10-29 15:28 by myrtle
[考博] 申博求助 20+3 Katrinae 2026-10-26 4/200 2026-10-27 09:56 by 北京莱茵编辑
信息提示
请填处理意见