应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » FLUENT & CFX » UDF近壁面cell源项编写
41/1返回列表
查看: 1388  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

bianboshen

新虫 (初入文坛)

[求助] UDF近壁面cell源项编写 已有1人参与

各位大神，目前我想向所有贴近壁面第一层cell中添加能量源项，代码如下，但是加载后运行结果与不加载是一样的，大神能不能看看问题出现在了哪里？
DEFINE_SOURCE(liq_enrg_src, c, sec_th, dS, eqn)
{

  Thread *mix_th, *pri_th, *t;
  Domain *domain=Get_Domain(1);
  int zone_ID=18;/*wall ID*/
  real m_dot_d=0;
  real kd;
  real Cnt;
  real a;
  real Area[ND_ND];
  real b;
  real d;
  real vg;
  real Reg;
  real tr;
  real Enrg_Source=0;
  face_t f;
  mix_th = THREAD_SUPER_THREAD(sec_th);
  pri_th = THREAD_SUB_THREAD(mix_th,0);
  t=Lookup_Thread(domain,zone_ID);
  begin_f_loop(f, t)
{
if(c == F_C0(f,t))
        {
  Cnt=(1.0-C_VOF(c,pri_th))*C_R(c,sec_th);
  a=Cnt/C_R(c,pri_th);
  if(a<0.3)
  {
          kd=0.18*sqrt(0.026/(C_R(c,pri_th)*0.008));
  }
  else
  {
          kd=pow(a,-0.85)*sqrt(0.026/(C_R(c,pri_th)*0.008));
  }
  m_dot_d=kd*Cnt;
  vg=sqrt(pow(C_U(c,pri_th),2)+pow(C_V(c,pri_th),2)+pow(C_W(c,pri_th),2));

  Reg=C_R(c,pri_th)*vg*0.008/C_MU_L(c,pri_th);

  d=0.00796*0.026/C_R(c,pri_th)/pow(C_VOF(c,pri_th)*vg,2)*pow(Reg,2/3)*pow(C_R(c,pri_th)/C_R(c,sec_th),-1/3)*pow(C_MU_L(c,pri_th)/C_MU_L(c,sec_th),2/3);

  tr=3.14*sqrt(C_R(c,sec_th)*d*d*d/16/0.026);

b=pow(18*pow(C_K_L(c,pri_th)*tr,3)*C_R(c,pri_th)*LAT_HT*pow(m_dot_d,5)/pow(C_R(c,sec_th),4)/C_MU_EFF(c,pri_th)/(1.0-C_VOF(c,pri_th))/(F_T(f,t)-T_SAT),0.25);
F_AREA(Area,f,t);
Enrg_Source=(F_T(f,t)-T_SAT)*b/C_VOLUME(c,mix_th)/(1-C_VOF(c, pri_th))*NV_MAG(Area)*1000000;
dS[eqn]=0;
//Enrg_Source=2;
Message("The value of Enrg_Source is: %f\n", Enrg_Source);
}
else
{
        Enrg_Source=0;
        dS[eqn]=0;
}
   return Enrg_Source;
        }
end_f_loop(f, t)
  }
回复此楼

» 收录本帖的淘帖专辑推荐

博士科研新路历程

» 猜你喜欢
1楼 2017-01-17 20:23:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gyctju

金虫 (著名写手)
写代码，加注释是一个很好的工作习惯
赞一下(1人) 回复此楼
2楼2017-01-17 22:02:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xingfuww

专家顾问 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
想向所有贴近壁面第一层cell中添加能量源项  你的第一层网格 判断方法对不对
赞一下 回复此楼
3楼2017-01-18 13:28:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bianboshen

新虫 (初入文坛)
引用回帖:
3楼: Originally posted by xingfuww at 2017-01-18 13:28:56
想向所有贴近壁面第一层cell中添加能量源项  你的第一层网格 判断方法对不对

我的这种方法应该是不对

发自小木虫Android客户端
赞一下 回复此楼
4楼2017-01-18 15:55:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 bianboshen 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] FileCode能看出啥？ +8 要乐观耀哥 2026-08-10 21/1050 2026-08-12 16:08 by 云上清扬
[基金申请] 长年满屏的广告，版主太不责任了。基金也等的急 +4 gltch 2026-08-12 4/200 2026-08-12 16:08 by eulota
[基金申请] 关于Filecode分析方法 +4 majunge000 2026-08-10 4/200 2026-08-12 15:46 by 云上清扬
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +22 Lanmanbaby 2026-08-09 35/1750 2026-08-12 14:38 by sdfapple719
[论文投稿] 职称评审，求友友推荐见刊最快的期刊 +4 工厂打螺丝 2026-08-08 4/200 2026-08-12 09:18 by hansi2025
[硕博家园] 读博的好处 +3 lnee 2026-08-11 3/150 2026-08-11 18:10 by 希望我好好的
[基金申请] 什么时候出结果，有咨询渠道？？？ +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 分享一下我之前已中青C的计划书的filecode +3 布布和一二 2026-08-11 4/200 2026-08-11 15:20 by aasahr
[基金申请] 听说今天filecode变了 +26 布布和一二 2026-08-06 49/2450 2026-08-11 13:18 by WH3796
[基金申请] 我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人 +8 家与远方 2026-08-10 13/650 2026-08-11 09:49 by 家与远方
[基金申请] 基金中了 +15 laoda193707 2026-08-06 15/750 2026-08-11 00:11 by jiafei2190
[基金申请] 关于代码变化问题，想知道的进来 +17 且听虎啸 2026-08-07 24/1200 2026-08-10 18:35 by zhangduo2008
[基金申请] 静等基金结果 +5 gjjjzhong 2026-08-10 16/800 2026-08-10 17:19 by Tide man
[基金申请] 据悉今年马上要出结果了 +7 瞬息宇宙 2026-08-10 8/400 2026-08-10 12:42 by Vivilian
[基金申请] fileCode有新解读？ +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
[基金申请] 关于豆爷回答的JTJC与%2F数量 +5 yang182083 2026-08-06 7/350 2026-08-08 18:29 by zhanghaozhu
[基金申请] 国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 固定端突然变了，今天 +6 archvillain 2026-08-06 10/500 2026-08-07 16:03 by 医学老男孩
[基金申请] 大家散了吧，后缀研究没有意义，别浪费时间了，过好目前的每一天，不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
信息提示
关闭
请填处理意见
关闭