eval_source_rans2D Subroutine

  1. atl_eqn_filNvrStk_var_module.f90
  2. atl_eqn_filNvrStk_var_module
  3. eval_source_rans2D

private subroutine eval_source_rans2D(fun, varSys, time, mesh, poly_proj, currentLevel, state, material, sourcedata)

Arguments

TypeIntentOptionalAttributesName
class(atl_source_op_type), intent(in) :: fun

Description of method to update source
type(tem_varSys_type), intent(in) :: varSys

variable system
type(tem_time_type), intent(in) :: time

Point in time at which to evaluate the variable.
type(atl_cube_elem_type), intent(in) :: mesh

Current level mesh information
type(ply_poly_project_type), intent(inout) :: poly_proj

Parameters for projection
integer, intent(in) :: currentLevel

current level
real(kind=rk), intent(in) :: state(:,:,:)

The state in modal space. This is needed for several source terms that have to be applied to the current state
real(kind=rk), intent(in) :: material(:)

Material description for the background on the current level
real(kind=rk), intent(inout) :: sourcedata(:,:,:)

The source data to update. When all source terms are added to this buffer, it is applied to the state.

Calls

proc~~eval_source_rans2d~~CallsGraph proc~eval_source_rans2d eval_source_rans2D proc~atl_get_lower_bound_turb_disscipation atl_get_lower_bound_turb_disscipation proc~eval_source_rans2d->proc~atl_get_lower_bound_turb_disscipation interface~ply_poly_project_n2m ply_poly_project_n2m proc~eval_source_rans2d->interface~ply_poly_project_n2m proc~ply_calcdiff_leg_2d ply_calcDiff_leg_2d proc~eval_source_rans2d->proc~ply_calcdiff_leg_2d interface~ply_poly_project_m2n ply_poly_project_m2n proc~eval_source_rans2d->interface~ply_poly_project_m2n proc~ply_convert2oversample ply_convert2oversample proc~eval_source_rans2d->proc~ply_convert2oversample proc~atl_get_pointwise_velocity_gradient_2d atl_get_pointwise_velocity_gradient_2D proc~eval_source_rans2d->proc~atl_get_pointwise_velocity_gradient_2d proc~atl_get_pointwise_visc_stress_tensor_2d atl_get_pointwise_visc_stress_tensor_2D proc~eval_source_rans2d->proc~atl_get_pointwise_visc_stress_tensor_2d proc~get_rans_reynolds_tensor_2d get_rans_reynolds_tensor_2D proc~eval_source_rans2d->proc~get_rans_reynolds_tensor_2d proc~ply_convertfromoversample ply_convertFromOversample proc~eval_source_rans2d->proc~ply_convertfromoversample proc~ply_poly_project_n2m_multivar ply_poly_project_n2m_multiVar interface~ply_poly_project_n2m->proc~ply_poly_project_n2m_multivar proc~ply_calcdiff_leg_2d_normal ply_calcDiff_leg_2d_normal proc~ply_calcdiff_leg_2d->proc~ply_calcdiff_leg_2d_normal proc~ply_poly_project_m2n_multivar ply_poly_project_m2n_multiVar interface~ply_poly_project_m2n->proc~ply_poly_project_m2n_multivar proc~ply_convert2oversample_2d ply_convert2oversample_2d proc~ply_convert2oversample->proc~ply_convert2oversample_2d proc~ply_convert2oversample_3d ply_convert2oversample_3d proc~ply_convert2oversample->proc~ply_convert2oversample_3d proc~ply_convert2oversample_1d ply_convert2oversample_1d proc~ply_convert2oversample->proc~ply_convert2oversample_1d proc~ply_convertfromoversample_3d ply_convertFromOversample_3d proc~ply_convertfromoversample->proc~ply_convertfromoversample_3d proc~ply_convertfromoversample_1d ply_convertFromOversample_1d proc~ply_convertfromoversample->proc~ply_convertfromoversample_1d proc~ply_convertfromoversample_2d ply_convertFromOversample_2d proc~ply_convertfromoversample->proc~ply_convertfromoversample_2d proc~ply_fxt_n2m_1d ply_fxt_n2m_1D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_1d interface~ply_pnttoleg_2d ply_pntToLeg_2D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_2d proc~ply_l2p_trafo_2d ply_l2p_trafo_2D proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_2d proc~ply_fxt_n2m_3d ply_fxt_n2m_3D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_3d proc~ply_fxt_n2m_2d ply_fxt_n2m_2D proc~ply_poly_project_n2m_multivar->proc~ply_fxt_n2m_2d proc~ply_l2p_trafo_1d ply_l2p_trafo_1D proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_1d proc~ply_l2p_trafo_3d ply_l2p_trafo_3D proc~ply_poly_project_n2m_multivar->proc~ply_l2p_trafo_3d interface~ply_pnttoleg_3d ply_pntToLeg_3D proc~ply_poly_project_n2m_multivar->interface~ply_pnttoleg_3d proc~ply_fxt_m2n_3d ply_fxt_m2n_3D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_3d interface~ply_legtopnt_2d ply_legToPnt_2D proc~ply_poly_project_m2n_multivar->interface~ply_legtopnt_2d proc~ply_fxt_m2n_1d ply_fxt_m2n_1D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_1d proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_2d proc~ply_fxt_m2n_2d ply_fxt_m2n_2D proc~ply_poly_project_m2n_multivar->proc~ply_fxt_m2n_2d proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_1d proc~ply_poly_project_m2n_multivar->proc~ply_l2p_trafo_3d interface~ply_legtopnt_3d ply_LegTopnt_3D proc~ply_poly_project_m2n_multivar->interface~ply_legtopnt_3d

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private, allocatable:: modalCoeffs(:,:)
real(kind=rk), private, allocatable:: modal_grad(:,:,:)
real(kind=rk), private, allocatable:: pointVal(:,:)
real(kind=rk), private, allocatable:: pointVal_grad(:,:,:)
real(kind=rk), private, allocatable:: rhsNodal(:,:)
real(kind=rk), private, allocatable:: rhsModal(:,:)
real(kind=rk), private, allocatable:: rhs(:,:)
real(kind=rk), private :: rey_stress_tensor(2,2)
integer, private :: iElem
integer, private :: iDir
integer, private :: iPoint
real(kind=rk), private :: beta_k
real(kind=rk), private :: omega_r
real(kind=rk), private :: alp_omg
real(kind=rk), private :: beta_omg
real(kind=rk), private :: sig_omg
real(kind=rk), private :: mu_turb
real(kind=rk), private :: mu
real(kind=rk), private :: c_mu
real(kind=rk), private :: alpha
real(kind=rk), private :: source(2)
real(kind=rk), private :: omega
real(kind=rk), private :: k_bar
real(kind=rk), private :: velGrad(2,2)
real(kind=rk), private :: ViscStressTensor(2,2)
type(atl_varSys_data_type), private, pointer:: fPtr
type(atl_Equations_type), private, pointer:: eqn
real(kind=rk), private :: d_omega1
real(kind=rk), private :: d_omega2