tem_bc_prop_pos Function

public pure function tem_bc_prop_pos(tree) result(bcpos)

Get the boundary property position in the list of all properties in tree.

There should be only one boundary property, and the first one found will be returned. If there is no boundary property at all a -1 is returned.

Arguments

Type IntentOptional Attributes Name
type(treelmesh_type), intent(in) :: tree

Tree to find the boundary condition property for.

Return Value integer

Position of the boundary condition property in the list of all properties.


Called by

proc~~tem_bc_prop_pos~~CalledByGraph proc~tem_bc_prop_pos tem_bc_prop_pos proc~init_tem_bc_prop init_tem_bc_prop proc~init_tem_bc_prop->proc~tem_bc_prop_pos

Source Code

  pure function tem_bc_prop_pos(tree) result(bcpos)
    ! -------------------------------------------------------------------- !
    !> Tree to find the boundary condition property for.
    type(treelmesh_type), intent(in) :: tree

    !> Position of the boundary condition property in the list of all
    !! properties.
    integer :: bcpos
    ! -------------------------------------------------------------------- !
    integer :: iProp
    ! -------------------------------------------------------------------- !

    bcpos = -1
    do iProp=1,tree%global%nProperties
      if (tree%global%Property(iprop)%bitpos == prp_hasBnd) then
        bcpos = iProp
        EXIT
      end if
    end do

  end function tem_bc_prop_pos