[Bionico]

Hi everybody,
I'm working on this UDF using a 32 processors workstation

 
#include "udf.h"
real tm=0.00;
DEFINE_ADJUST(tsensor,d)
{
 
 real trif;
 real trif_coordinate[ND_ND];
 real x,y,z;
 real nt;
 int ID=120573;
 
 Thread *t=Lookup_Thread(d,ID);
 cell_t c;
 
 nt=0.0;
 trif=0.0;
 
 printf("trif iniziale vale %f\n", trif);
 /* Loop on the thread */
 begin_c_loop(c,t)
  {
   C_CENTROID(trif_coordinate,c,t);
 
   x=trif_coordinate[0];
   y=trif_coordinate[1];
   z=trif_coordinate[2];
 
     if (sqrt(ND_SUM(pow(x+1.900,2.),pow(y+1.000,2.),pow(z-1.400,2.))) < 0.04)
      {
        trif=trif + C_T(c,t); 
        nt=nt+1.0;   
        printf("trif somma vale %f\n", trif);  
        printf("nr celle vale %f\n", nt);  
      }
  }
 end_c_loop(c,t)
 if (nt!=0)
   {
     tm=trif/nt; /* calculate average*/
   } 
printf("tm vale %f\n", tm);
}
DEFINE_PROFILE(twall, thread, position)
{
 real tlim;
 face_t f;
 tlim=291.65;
 if (tm>tlim)
 
   begin_f_loop(f,thread)
 {
     F_PROFILE(f, thread, position) = 291.15-(tm-291.15);  
 }
   end_f_loop(f, thread)
 
 else
 
 begin_f_loop(f,thread)
 {
     F_PROFILE(f, thread, position) = 291.15;    
 }
   end_f_loop(f, thread)
}

This UDF should do a feedback: the wall temperature must depend on the temperature of a sensor in a fixed point of the room.
The problem is that it calculates 32 times (and once there's the average, only the processor that calculates in the zone of the sensor)!
Can anyone tell me how parallelize my UDF in such a way that it calculates my UDF once?
(excuse for my horrible english)