版块导航: 正在加载中...

登录注册

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

24小时热门版块排行榜

返回列表

左岸流年

新虫 (正式写手)

应助: 2 (幼儿园)
金币: 187.9
散金: 213
红花: 2
帖子: 368
在线: 98.8小时
虫号: 2118709
注册: 2012-11-10
专业: 传热传质学

[求助] 关于udf 变量梯度的问题已有1人参与

请问 {
  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);

这里面的变量什么意思  该如何修改
/**************************************************************/
/* UDF for specifying an interfacail area density          */
/**************************************************************/

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);
}

回复此楼

» 猜你喜欢

1楼 2016-08-02 22:09:28

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

小七工作室1

新虫 (著名写手)

感谢参与，应助指数 +1
月只蓝: 应助指数-2, 屏蔽内容, 刷应助指数，无意义应助！ 2017-03-24 11:11:32

本帖内容被屏蔽

2楼2016-08-04 08:43:02