field_set_abl_wall_stress_base Subroutine

public subroutine field_set_abl_wall_stress_base(self, stress, u, w, sample_plane, sample_weight, stress_plane, drag_coeff, component)

Replace one SGS stress plane using the local sampled velocity. The velocity is interpolated linearly between y-vertices sample_plane and sample_plane + 1, with weight sample_weight on the upper one, as Incompact3d samples at a non-integer dsampling.

Type Bound

base_backend_t

Arguments

Type IntentOptional Attributes Name
class(base_backend_t) :: self
class(field_t), intent(inout) :: stress
class(field_t), intent(in) :: u
class(field_t), intent(in) :: w
integer, intent(in) :: sample_plane
real(kind=dp), intent(in) :: sample_weight

in [0, 1)
integer, intent(in) :: stress_plane
real(kind=dp), intent(in) :: drag_coeff
integer, intent(in) :: component

Calls

proc~~field_set_abl_wall_stress_base~~CallsGraph proc~field_set_abl_wall_stress_base m_base_backend::base_backend_t%field_set_abl_wall_stress_base proc~abort_run m_logger::abort_run proc~field_set_abl_wall_stress_base->proc~abort_run interface~str m_logger::str proc~abort_run->interface~str mpi_abort mpi_abort proc~abort_run->mpi_abort mpi_barrier mpi_barrier proc~abort_run->mpi_barrier mpi_comm_rank mpi_comm_rank proc~abort_run->mpi_comm_rank mpi_comm_size mpi_comm_size proc~abort_run->mpi_comm_size mpi_finalized mpi_finalized proc~abort_run->mpi_finalized mpi_initialized mpi_initialized proc~abort_run->mpi_initialized

Called by

proc~~field_set_abl_wall_stress_base~~CalledByGraph proc~field_set_abl_wall_stress_base m_base_backend::base_backend_t%field_set_abl_wall_stress_base none~apply_sgs_stress m_les::les_t%apply_sgs_stress none~apply_sgs_stress->proc~field_set_abl_wall_stress_base none~sample m_abl_diagnostics::abl_diagnostics_t%sample none~sample->proc~field_set_abl_wall_stress_base proc~apply_les m_solver::solver_t%apply_les proc~apply_les->none~apply_sgs_stress proc~postprocess_abl m_case_abl::case_abl_t%postprocess_abl proc~postprocess_abl->none~sample proc~transeq_default m_solver::transeq_default proc~transeq_default->proc~apply_les proc~transeq_lowmem m_solver::transeq_lowmem proc~transeq_lowmem->proc~apply_les