24小时热门版块排行榜    

查看: 500  |  回复: 2

gjmfreeboy

新虫 (初入文坛)

[求助] UDF水蒸气体积分数传递问题 已有1人参与

目的在于在mixture模型下,二维模型,将某个面的水蒸气体积分数传递至两一个面,但不知道为什么编译没问题,一运行就出问题?求解答,谢谢
DEFINE_ADJUST(humidity_avg_temp, mixture_domain)
{      
        real sum_T_B=0.0,sum_B=0.0;
        cell_t c;
        Domain *subdomain;
        int phase_domain_index;
        Thread*c_thread;
        c_thread = Lookup_Thread(mixture_domain, 33);
      
        sub_domain_loop(subdomain,mixture_domain, phase_domain_index)

         {
           if(DOMAIN_ID(subdomain==1))
          thread_loop_c(c_thread,subdomain)
         {
         begin_c_loop_all(c,c_thread)
        {
            
                sum_B+=1;                  
                sum_T_B+=C_VOF(c, c_thread);
              
        }
        end_c_loop_all(c, c_thread)
           
}
}
avg_temp7=sum_T_B/sum_B;  
}   

DEFINE_PROFILE(humidity_Y,t,position)
{
        face_t f;
        begin_f_loop(f,t)
        {
                F_PROFILE(f,t,position) = avg_temp7;
  }
        end_f_loop(f,t)
}
同时,我尝试获取质量分数,同样出现错误
DEFINE_ADJUST(humidity_avg_temp, domain)
{      
        real sum_T_B=0.0,sum_B=0.0;
        cell_t c;
        int i=2;
        Thread*c_thread;
        c_thread = Lookup_Thread(domain, 33);
        begin_c_loop(c, c_thread)
        {
            
                sum_B+=1;                  
                sum_T_B+=C_YI(c, c_thread,i);
              
        }
        end_c_loop(c, c_thread)
         avg_temp7=sum_T_B/sum_B;   
}
      

DEFINE_PROFILE(humidity_Y,t,position)
{
        face_t f;
        begin_f_loop(f,t)
        {
                F_PROFILE(f,t,position) = avg_temp7;
  }
        end_f_loop(f,t)
}
回复此楼

» 猜你喜欢

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

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

小七工作室1

新虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
检查下程序是否有问题
2楼2015-05-07 12:02:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gjmfreeboy

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by 小七工作室1 at 2015-05-07 12:02:55
检查下程序是否有问题

检查了好几遍,都没发现问题
3楼2015-05-07 12:41:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 gjmfreeboy 的主题更新
信息提示
请填处理意见