mus_init_turb_wallFunc Subroutine

private subroutine mus_init_turb_wallFunc(bc, globBC, auxField, viscKine, derVarPos, varSys, stencil, iLevel)

This routine allocates turbulent viscosity and friction velocity on boundary elements. It also initialize friction velocity from stream-wise velocity component on first neighbor in normal direction.

Arguments

TypeIntentOptionalAttributesName
type(boundary_type), intent(inout) :: bc

Field bc which contains turbwallFunc type and neighbor info

type(glob_boundary_type), intent(inout) :: globBC

global bc of current boundary with elemPos and normal info

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

auxField array

type(mus_viscosity_type) :: viscKine

Kinematic viscosity

type(mus_derVarPos_type), intent(in) :: derVarPos

position of derived quantities in varsys

type(tem_varSys_type), intent(in) :: varSys

scheme variable system

type(tem_stencilHeader_type), intent(in) :: stencil

stencil info

integer, intent(in) :: iLevel

current level


Calls

proc~~mus_init_turb_wallfunc~~CallsGraph proc~mus_init_turb_wallfunc mus_init_turb_wallFunc proc~tem_abort tem_abort proc~mus_init_turb_wallfunc->proc~tem_abort

Called by

proc~~mus_init_turb_wallfunc~~CalledByGraph proc~mus_init_turb_wallfunc mus_init_turb_wallFunc proc~init_boundary_single init_boundary_single proc~init_boundary_single->proc~mus_init_turb_wallfunc proc~mus_init_boundary mus_init_boundary proc~mus_init_boundary->proc~init_boundary_single proc~mus_initialize mus_initialize proc~mus_initialize->proc~mus_init_boundary proc~mus_reset_aux mus_reset_aux proc~mus_reset_aux->proc~mus_init_boundary program~musubi musubi program~musubi->proc~mus_initialize proc~mus_perform_dynloadbal mus_perform_dynLoadBal proc~mus_perform_dynloadbal->proc~mus_reset_aux

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iElem
integer, private :: neighPos
integer, private :: elemOff
integer, private :: elemPos
integer, private :: normalInd_inv
integer, private :: vel_pos(3)
integer, private :: nElems
real(kind=rk), private :: velNeigh(3)
real(kind=rk), private :: normal(3)
real(kind=rk), private :: streamwise(3)
real(kind=rk), private :: unitSW(3)
real(kind=rk), private :: velSW
real(kind=rk), private :: normalMag
real(kind=rk), private :: qVal
real(kind=rk), private :: distToBnd
real(kind=rk), private :: streamwise_mag