I want to calculate the forces applied by the fluid on a faces of turbine and display it in the "fields" menu, these forces are normally written in this form: (Force = Pressure / Face Surface), with (Face surface = 1.5 m2)
In the "usproj.f90" subroutine I modefied it as, (is this reasoning is right?)
Code: Select all
call getfbr('201', nlelt, lstelt)
!==========
do ilelt = 1, nlelt
ifac = lstelt(ilelt)
do ii = 1, ndim
! xfor(ii) = xfor(ii) + ra(iforbr + (ifac-1)*ndim + ii-1)
xfor(ii) = (ipr (iphas))/1.5d0
enddo
enddo
if (irangp.ge.0) then
call parrsm(ndim,xfor)
endif
endif