Will the UDF work??

H.S.Fang

Hi,all,

DEFINE_ADJUST(adjustfunction,domain) { /*ɨÃèÈ«³¡,ÐÞ¸ÄËٶȳ¡Îª¶ÔÓ¦º¯Êý³¡*/ thread_loop_c(t,domain) {begin_c_loop(c,t) {

C_U(c,t)=C_UDMI(c,t,4);

C_V(c,t)=C_UDMI(c,t,5);

C_U(c,t)=C_U(c,t)-ul;

C_V(c,t)=C_V(c,t)-vl; } end_c_loop(c,t) }

/*Çó¸öÍø¸ñµÄº¯ÊýÌݶȲ¢´æÓÚÍø¸ñÄÚ´æ±äÁ¿ÖÐ*/ thread_loop_c(t,domain) {begin_c_loop(c,t) {

C_UDMI(c,t,0)=C_DUDX(c,t);

C_UDMI(c,t,1)=C_DUDY(c,t);

C_UDMI(c,t,2)=C_DVDX(c,t);

C_UDMI(c,t,3)=C_DVDY(c,t); } end_loop_c(c,t) } /*ÔÙ´ÎɨÃèÈ«³¡¸Ä±äËٶȳ¡Îª¶ÔÓ¦º¯Êý³¡*/ thread_loop_c(t,domain) {begin_c_loop(c,t) {

C_U(c,t)=C_H(c,t)-hl;

C_V(c,t)=C_YI(c,t,i)-cll; } end_c_loop(c,t) }

/*ÔÙ´ÎÇó¸öÍø¸ñµÄº¯ÊýÌݶȲ¢´æÓÚÍø¸ñÄÚ´æ±äÁ¿ÖÐ*/ thread_loop_c(t,domain) {begin_c_loop(c,t) {

C_UDMI(c,t,6)=C_DUDX(c,t);

C_UDMI(c,t,7)=C_DUDY(c,t);

C_UDMI(c,t,8)=C_DVDX(c,t);

C_UDMI(c,t,9)=C_DVDY(c,t); } end_loop_c(c,t) }

/*»¹Ô*Ëٶȳ¡*/ thread_loop_c(t,domain) {begin_c_loop(c,t) {

C_UDMI(c,t,4)=C_U(c,t);

C_UDMI(c,t,5)=C_V(c,t); } end_c_loop(c,t) } }

I will use C_UDMI(c,t,i)(i=0,1,2,3 6,7,8,9) in the DEFINE_SOURCE functions,will they work? Thanks!