boundary_pressure_type Function

public function boundary_pressure_type(mesh, bc, face_id) result(type_id)

Arguments

Type IntentOptional Attributes Name
type(mesh_t), intent(in) :: mesh
type(bc_set_t), intent(in) :: bc
integer, intent(in) :: face_id

Return Value integer


Called by

proc~~boundary_pressure_type~~CalledByGraph proc~boundary_pressure_type mod_bc::boundary_pressure_type proc~correct_cell_velocity mod_flow_projection::correct_cell_velocity proc~correct_cell_velocity->proc~boundary_pressure_type proc~correct_face_flux mod_flow_projection::correct_face_flux proc~correct_face_flux->proc~boundary_pressure_type proc~ensure_pressure_operator_cache mod_flow_projection::ensure_pressure_operator_cache proc~ensure_pressure_operator_cache->proc~boundary_pressure_type proc~pressure_gradient_cell mod_flow_projection::pressure_gradient_cell proc~pressure_gradient_cell->proc~boundary_pressure_type proc~advance_projection_step mod_flow_projection::advance_projection_step proc~advance_projection_step->proc~correct_cell_velocity proc~advance_projection_step->proc~correct_face_flux proc~advance_projection_step->proc~ensure_pressure_operator_cache proc~compute_momentum_rhs mod_flow_projection::compute_momentum_rhs proc~advance_projection_step->proc~compute_momentum_rhs proc~solve_pressure_correction mod_flow_projection::solve_pressure_correction proc~advance_projection_step->proc~solve_pressure_correction proc~compute_momentum_rhs->proc~pressure_gradient_cell proc~pressure_matvec mod_flow_projection::pressure_matvec proc~pressure_matvec->proc~ensure_pressure_operator_cache proc~solve_pressure_correction->proc~ensure_pressure_operator_cache proc~solve_pressure_correction->proc~pressure_matvec program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~advance_projection_step

Source Code

   integer function boundary_pressure_type(mesh, bc, face_id) result(type_id)
      type(mesh_t), intent(in) :: mesh
      type(bc_set_t), intent(in) :: bc
      integer, intent(in) :: face_id

      integer :: patch_id

      patch_id = mesh%faces(face_id)%patch
      if (patch_id <= 0) then
         type_id = bc_unknown
      else
         type_id = bc%patches(patch_id)%pressure_type_id
      end if
   end function boundary_pressure_type