用udf编写随时间变化的热流边界条件，帮我看看哪有问题？

hotsauce

#include "udf.h"
#include<math.h>
DEFINE_PROFILE(heat_2,thread,position)  
{
face_t f;
real n=0;
begin_f_loop(f,thread)
{real t=RP_Get_Real("flow-time");  
if(600*n<t<(600*n+300))
{   
F_PROFILE(f,thread,position)=40000;
n++;
}
else
F_PROFILE(f,thread,position)=0;
}
end_f_loop(f,thread)
}  
else
F_PROFILE(f,thread,position)=0;
}
end_f_loop(f,thread)
}  
想编一个周期性变化的变热流边界条件，一个周期为十分钟，热流大小分别为40000和0.

hotsauce

高手们，帮帮小弟吧！！！！！！！！！！

swimming02

前面有个类似的例子，你仔细找找吧