tem_init_faceDep Subroutine

private subroutine tem_init_faceDep(faces, nEligibleChildren)

dependencies of a face descriptor.

Arguments

Type IntentOptional AttributesName
type(tem_face_descriptor_type), intent(inout) :: faces

The face description in which you want to initialize the vertical face dependency container.

integer, intent(in) :: nEligibleChildren

The number of eligible children for the vertical face dependency


Called by

proc~~tem_init_facedep~~CalledByGraph proc~tem_init_facedep tem_init_faceDep proc~tem_facedep_vertical tem_faceDep_vertical proc~tem_facedep_vertical->proc~tem_init_facedep 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 program~tem_face_test tem_face_test program~tem_face_test->proc~check_parallel_singlelevel_facedesc program~tem_face_test~2 tem_face_test program~tem_face_test~2->proc~check_serial_singlelevel_facedesc program~tem_face_test~3 tem_face_test program~tem_face_test~3->proc~check_serial_multilevel_facedesc

Contents

Source Code


Source Code

  subroutine tem_init_faceDep( faces, nEligibleChildren )
    ! --------------------------------------------------------------------------
    !> The face description in which you want to initialize the vertical
    !! face dependency container.
    type(tem_face_descriptor_type), intent(inout) :: faces
    !> The number of eligible children for the vertical face dependency
    integer, intent(in) :: nEligibleChildren
    ! --------------------------------------------------------------------------
    ! --------------------------------------------------------------------------

    allocate( faces%faceDep%parentFaceId(faces%faceList%faceId%nVals) )
    allocate( faces%faceDep%parentFacePos(faces%faceList%faceId%nVals) )
    allocate( faces%faceDep%childFaceId( nEligibleChildren, &
                                       & faces%faceList%faceId%nVals) )
    allocate( faces%faceDep%childFaceIdOp( nEligibleChildren, &
                                       & faces%faceList%faceId%nVals) )
    allocate( faces%faceDep%childFacePos( nEligibleChildren, &
                                       & faces%faceList%faceId%nVals) )
    allocate( faces%faceDep%childFacePosOp( nEligibleChildren, &
                                       & faces%faceList%faceId%nVals) )

    faces%faceDep%parentFaceId = -1_long_k
    faces%faceDep%parentFacePos = -1
    faces%faceDep%childFaceId = -1_long_k
    faces%faceDep%childFacePos(:,:) = -1

  end subroutine tem_init_faceDep