24小时热门版块排行榜    

查看: 450  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 今天系统多次维护,明天很可能放榜! +5 zju2000 2026-08-16 5/250 2026-08-16 23:23 by Haru815
[论文投稿] 岩土工程学报什么时候才能终审完呐 25+3 yeager111 2026-08-10 4/200 2026-08-16 20:42 by tfang
[基金申请] 时间戳又变了8-15 +13 archvillain 2026-08-15 25/1250 2026-08-16 20:13 by zhaosm1982
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 6/300 2026-08-16 20:07 by 奶牛小黑
[基金申请] 快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。 +3 Tide man 2026-08-14 3/150 2026-08-16 17:47 by jurkat.1640
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 26/1300 2026-08-16 12:35 by 启萌科技
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +10 majunge000 2026-08-11 12/600 2026-08-16 08:18 by xli1984
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] filecode=后面第一个是大写字母 +6 wangze12014 2026-08-14 7/350 2026-08-15 20:12 by gltch
[基金申请] 关于Filecode分析方法 +10 majunge000 2026-08-10 13/650 2026-08-15 12:26 by hanpeng972
[基金申请] 各位道友,我要去昆明玩几天,回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 是这周出结果还是下周出结果? +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] FileCode能看出啥? +10 要乐观耀哥 2026-08-10 32/1600 2026-08-14 09:37 by 要乐观耀哥
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 2019年青年基金涵评意见,大家看看几个A,几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
[基金申请] 为什么网上很多人说本周 12号出结果 +6 瞬息宇宙 2026-08-10 7/350 2026-08-11 19:25 by Tide man
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
信息提示
请填处理意见