mus_calcBndForce_wall_libb Subroutine

private subroutine mus_calcBndForce_wall_libb(me, bndForce, posInBndID, globBC, currState, levelDesc, nSize, iLevel, neigh, layout, nScalars)

This routine computes bndForce on wall_libb boundary elements


class(boundary_type), intent(in) :: me

field boundary type

real(kind=rk), intent(inout) :: bndForce(:,:)

bndForce to fill

integer, intent(in) :: posInBndID(:)
type(glob_boundary_type), intent(in) :: globBC

scheme global boundary type

real(kind=rk), intent(in) :: currState(:)

current state array to access post-collision values

type(tem_levelDesc_type), intent(in) :: levelDesc

iLevel descriptor

integer, intent(in) :: nSize

size of state array ( in terms of elements )

integer, intent(in) :: iLevel

level which invokes boundary

integer, intent(in) :: neigh(:)

global parameters

type(mus_scheme_layout_type), intent(in) :: layout

scheme layout

integer, intent(in) :: nScalars

number of Scalars in the scheme var system



integer, private :: elemPos
integer, private :: posInBuffer
integer, private :: iElem
integer, private :: iDir
integer, private :: QQN
integer, private :: QQ
integer, private :: invDir
integer, private :: iLink
real(kind=rk), private :: force(3)
real(kind=rk), private :: fIn
real(kind=rk), private :: fOut
real(kind=rk), private :: fOutNeigh
real(kind=rk), private :: fIntp
real(kind=rk), private :: qVal
real(kind=rk), private :: cIn
real(kind=rk), private :: cOut
real(kind=rk), private :: cNgh