field_set_y_plane_base Subroutine

public subroutine field_set_y_plane_base(self, f, c, plane)

Set one interior y-plane of a DIR_X field to a constant.

field_set_face reaches only the two boundary planes. The neutral ABL wall model needs the first plane above a no-slip floor, where the resolved gradient would otherwise contribute a second, spurious stress on top of the modelled one.

Type Bound

base_backend_t

Arguments

Type IntentOptional Attributes Name
class(base_backend_t) :: self
class(field_t), intent(inout) :: f
real(kind=dp), intent(in) :: c
integer, intent(in) :: plane

1-based y-vertex index

Calls

proc~~field_set_y_plane_base~~CallsGraph proc~field_set_y_plane_base m_base_backend::base_backend_t%field_set_y_plane_base proc~abort_run m_logger::abort_run proc~field_set_y_plane_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_y_plane_base~~CalledByGraph proc~field_set_y_plane_base m_base_backend::base_backend_t%field_set_y_plane_base none~apply_sgs_stress m_les::les_t%apply_sgs_stress none~apply_sgs_stress->proc~field_set_y_plane_base proc~apply_les m_solver::solver_t%apply_les proc~apply_les->none~apply_sgs_stress 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