tem_reqDep_down Function

private function tem_reqDep_down(leftPrp, rightPrp) result(reqDep)

Function to check if a face with given left and right property requires a downward (coarse->fine) dependency.

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: leftPrp

Left property of the face.

integer, intent(in) :: rightPrp

Right property of the face.

Return Value logical

Does the face requires a vertical dependency.


Called by

proc~~tem_reqdep_down~~CalledByGraph proc~tem_reqdep_down tem_reqDep_down proc~tem_facedep_verticaldown tem_faceDep_verticalDown proc~tem_facedep_verticaldown->proc~tem_reqdep_down proc~tem_facedep_vertical tem_faceDep_vertical proc~tem_facedep_vertical->proc~tem_facedep_verticaldown proc~tem_build_face_info tem_build_face_info proc~tem_build_face_info->proc~tem_facedep_vertical proc~check_serial_singlelevel_facedesc check_serial_singlelevel_faceDesc proc~check_serial_singlelevel_facedesc->proc~tem_build_face_info proc~check_parallel_singlelevel_facedesc check_parallel_singlelevel_faceDesc proc~check_parallel_singlelevel_facedesc->proc~tem_build_face_info proc~check_serial_multilevel_facedesc check_serial_multilevel_faceDesc proc~check_serial_multilevel_facedesc->proc~tem_build_face_info

Contents

Source Code


Source Code

  function tem_reqDep_down(leftPrp, rightPrp) result( reqDep )
    ! --------------------------------------------------------------------------
    !> Left property of the face.
    integer, intent(in) :: leftPrp
    !> Right property of the face.
    integer, intent(in) :: rightPrp
    !> Does the face requires a vertical dependency.
    logical :: reqDep
    ! --------------------------------------------------------------------------

    reqDep = .false.

    ! Check if one of the face properties (left or right) has the from finer
    ! property.
    if ( iand(tem_fromFinerFace_prp,leftPrp).ne.0 &
      & .or.                                      &
      & iand(tem_fromFinerFace_prp,rightPrp).ne.0 ) then
      reqDep = .true.
    end if

  end function tem_reqDep_down