Ok so the problem does not seem to be with the type of turbulence method because when I run without the advanced subroutine in the cs_user_les_inflow.f90 I now have correct looking mass fluxes at the inlet and outlet! Could it be that I am simply inadvertently assigning zero inlet velocity when using the advanced subroutine? I reproduce the advanced subroutine from my original attachment below:
subroutine cs_user_les_inflow_advanced &
( nument , nfbent , &
nvar , nscal , &
lfbent , &
dt , &
uvwent , rijent , epsent )
!===============================================================================
!===============================================================================
! Module files
!===============================================================================
use paramx
use numvar
use optcal
use entsor
use cstphy
use cstnum
use mesh
!===============================================================================
implicit none
! Arguments
integer nument , nfbent
integer nvar , nscal
integer lfbent(nfbent)
double precision dt(ncelet)
double precision uvwent(ndim,nfbent), rijent(6,nfbent)
double precision epsent(nfbent)
! Local variables
integer ii, ifac, iel
double precision d2s3
double precision utau, href, reyfro, yy, yplus, uplus, kplus, eplus
double precision uref2, xdh, xitur, xkent, xeent
double precision, dimension(:), pointer :: cpro_viscl
!===============================================================================
! INSERT_MAIN_CODE_HERE
!if (nument.eq.1) then
! do ii = 1, nfbent
! ifac = lfbent(ii)
! iel = ifabor(ifac)
! uvwent(1,ii) = 1.1d0
! uvwent(2,ii) = 1.1d0
! uvwent(3,ii) = 1.1d0
! uref2 = uvwent(1,ii)**2 &
! + uvwent(2,ii)**2 &
! + uvwent(3,ii)**2
! uref2 = max(uref2,1.d-12)
! ! Hydraulic diameter
! xdh = 0.075d0
! ! Turbulence intensity
! xitur = 0.02d0
! xkent = epzero
! xeent = epzero
! call keenin &
! !==========
! ( uref2, xitur, xdh, cmu, xkappa, xkent, xeent )
! rijent(1,ii) = d2s3*xkent
! rijent(2,ii) = d2s3*xkent
! rijent(3,ii) = d2s3*xkent
! rijent(4,ii) = 0.d0
! rijent(5,ii) = 0.d0
! rijent(6,ii) = 0.d0
! epsent(ii) = xeent
! enddo
!endif