Hi,
I am sorry. So, I made a mistake. After re-checking, this is what I came up with
Turns out I print the result directly after the line in gdb. It's supposed to be one or two lines after to show the real results.
Also, here are the lines on FUDRAG and FVDRAG
HI=H%R(IPOIN)
UI=U%R(IPOIN)
VI=V%R(IPOIN)
END IF
!
IF((ABS(UR).GT.VCUT(I)).AND.(HI.GT.1.D-4))THEN
HALFCDSCOSTHETA=0.5D0*PI*RTEC(I)**2
& *CDTEC(I)*COS(THETA(I))
HALFCDSSINTHETA=0.5D0*PI*RTEC(I)**2
& *CDTEC(I)*SIN(THETA(I))
IF(ABS(UI).GT.1.D-4)THEN
FUDRAG%R(IPOIN)=FUDRAG%R(IPOIN)
& -HALFCDSCOSTHETA*UR*ABS(UR)/(AREA(I)*HI*UI)
END IF
IF(ABS(VI).GT.1.D-4)THEN
FVDRAG%R(IPOIN)=FVDRAG%R(IPOIN)
& +HALFCDSSINTHETA*UR*ABS(UR)/(AREA(I)*HI*VI)
END IF
Then I tried to print by using command "p FUDRAG%R(IPOIN)" and "p FVDRAG%R(IPOIN)" and the result is zero.
Sorry for the misinformation about the value of UR and IPOIN. Anyway, I am using v8p2 for this calculation. I hope there is no issue with the version of telemac.