Learning Forum

[dhaya400]

Hi Rob Thank you for your reply.
I tried your suggestion already, but it is executing as usual (3 times / time step). There is no change in execution.
Some background info: I am working on a multiphase problem using mixture model. The macro I am using is given below:
DEFINE_PROFILE(pressure_out_bca,mt,i)
{
#if !RP_HOST
real Z = 5.1918E+07;
real C = 8.697E-10;
real R = 10.6080E+08;
real ts;
ts = CURRENT_TIMESTEP;
face_t f;
begin_f_loop(f,mt)
{
if (CURRENT_TIME == 0)
{
F_UDMI(f,mt,0) = 13332.2;
F_UDMI(f,mt,1) = F_UDMI(f,mt,0);
F_UDMI(f,mt,3) = 1.22E-05;
}
else
{
F_UDMI(f,mt,3) = fabs (Q12);
F_UDMI(f,mt,1) = ((F_UDMI(f,mt,0)*R*C)+(F_UDMI(f,mt,3)*R*ts)+(F_UDMI(f,mt,3)*Z*ts)+(Z*R*C*F_UDMI(f,mt,3))-(Z*R*C*F_UDMI(f,mt,2))) / (ts +(R*C));
}
}
end_f_loop(f,mt)
begin_f_loop(f,mt)
{
F_UDMI(f,mt,0) = F_UDMI(f,mt,1);
F_UDMI(f,mt,2) = F_UDMI(f,mt,3);
}
end_f_loop(f,mt)
begin_f_loop(f,mt)
{
F_PROFILE(f,mt,i) = F_UDMI(f,mt,1); /* Calculate pressure and apply to outlet*/
}
end_f_loop(f,mt)
#endif /* !RP_HOST */
}
Thanks DK