Wall Force
 

I explain my problem : I have to calculate the force over a moving surface (Region 15). I used POSDAT subroutine with this loop :

REG=15; FX=0.0; DO IB=1,NBMAXU IF(IRN(IB).EQ.REG) THEN FX=FX+FORCB(1,IB); ENDIF; ENDDO;

It performed me a result which is different from the monitoring data contained into casename.erd file, where I imposed to print the x-force over the surface at each iteration.

Is there anyone who can tell me why ?

Thanx, Matteo