patch_type_for_face Function

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

Retrieves the master BC type for a given face ID.

Arguments

Type IntentOptional Attributes Name
type(mesh_t), intent(in) :: mesh

The computational mesh.
type(bc_set_t), intent(in) :: bc

The active BC set.
integer, intent(in) :: face_id

Global index of the face.

Return Value integer


Source Code

   integer function patch_type_for_face(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)%type_id
      end if
   end function patch_type_for_face