atl_cheb_spectral_visc_1d Subroutine

  1. atl_stabilize_module.f90
  2. atl_stabilize_module
  3. atl_cheb_spectral_visc_1d

private subroutine atl_cheb_spectral_visc_1d(state, mesh, filter, poly_proj, maxPolyDeg)

Damp the modal coefficients of the state vector by a given spectral viscosity method.

Arguments

TypeIntentOptionalAttributesName
type(atl_statedata_type), intent(inout) :: state
type(atl_cube_elem_type), intent(in) :: mesh
type(atl_spectral_visc_type), intent(in) :: filter
type(ply_poly_project_type), intent(inout) :: poly_proj
integer, intent(in) :: maxPolyDeg

Calls

proc~~atl_cheb_spectral_visc_1d~~CallsGraph proc~atl_cheb_spectral_visc_1d atl_cheb_spectral_visc_1d proc~tem_abort tem_abort proc~atl_cheb_spectral_visc_1d->proc~tem_abort proc~ply_fpt_exec_striped ply_fpt_exec_striped proc~atl_cheb_spectral_visc_1d->proc~ply_fpt_exec_striped proc~ply_calculate_coeff_strip ply_calculate_coeff_strip proc~ply_fpt_exec_striped->proc~ply_calculate_coeff_strip

Called by

proc~~atl_cheb_spectral_visc_1d~~CalledByGraph proc~atl_cheb_spectral_visc_1d atl_cheb_spectral_visc_1d proc~atl_stabilize atl_stabilize proc~atl_stabilize->proc~atl_cheb_spectral_visc_1d proc~mesh_timestep_rktaylor mesh_timestep_rktaylor proc~mesh_timestep_rktaylor->proc~atl_stabilize proc~mesh_timestep_euler mesh_timestep_euler proc~mesh_timestep_euler->proc~atl_stabilize proc~mesh_timestep_euler->proc~mesh_timestep_euler none~substep substep none~substep->proc~atl_stabilize proc~mesh_timestep_imexrk mesh_timestep_imexrk proc~mesh_timestep_imexrk->proc~atl_stabilize proc~mesh_timestep_ssprk2 mesh_timestep_ssprk2 proc~mesh_timestep_ssprk2->proc~atl_stabilize program~atl_harvesting atl_harvesting program~atl_harvesting->proc~atl_stabilize proc~mesh_timestep_rk4 mesh_timestep_rk4 proc~mesh_timestep_rk4->none~substep

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iElem
integer, private :: iDof
integer, private :: iVar
integer, private :: nVars
real(kind=rk), private :: dofAbs
real(kind=rk), private :: damping
real(kind=rk), private :: cut
real(kind=rk), private, allocatable:: legCoeffs(:)
real(kind=rk), private, allocatable:: chebCoeffs(:)
integer, private :: nElems
integer, private :: mpd1