tem_setEffBoundingBox_fromTree Subroutine

private subroutine tem_setEffBoundingBox_fromTree(tree)

Calculate the real bounding box around the fluid domain

Arguments

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

Mesh

Calls

proc~~tem_seteffboundingbox_fromtree~~CallsGraph proc~tem_seteffboundingbox_fromtree tem_setEffBoundingBox_fromTree proc~tem_getrealboundingcube tem_GetRealBoundingCube proc~tem_seteffboundingbox_fromtree->proc~tem_getrealboundingcube interface~tem_getlocalboundingcube tem_GetLocalBoundingCube proc~tem_getrealboundingcube->interface~tem_getlocalboundingcube mpi_reduce mpi_reduce proc~tem_getrealboundingcube->mpi_reduce proc~tem_getlocalboundingcube_fromsubtree tem_GetLocalBoundingCube_fromSubTree interface~tem_getlocalboundingcube->proc~tem_getlocalboundingcube_fromsubtree proc~tem_getlocalboundingcube_fromtree tem_GetLocalBoundingCube_fromTree interface~tem_getlocalboundingcube->proc~tem_getlocalboundingcube_fromtree proc~tem_vrtxcoordofid tem_vrtxCoordOfId proc~tem_getlocalboundingcube_fromsubtree->proc~tem_vrtxcoordofid proc~tem_getlocalboundingcube_fromtree->proc~tem_vrtxcoordofid

Called by

proc~~tem_seteffboundingbox_fromtree~~CalledByGraph proc~tem_seteffboundingbox_fromtree tem_setEffBoundingBox_fromTree interface~tem_seteffboundingbox tem_setEffBoundingBox interface~tem_seteffboundingbox->proc~tem_seteffboundingbox_fromtree proc~tem_create_subtree_of tem_create_subTree_of proc~tem_create_subtree_of->interface~tem_seteffboundingbox proc~tem_create_subtree_of_st_funlist tem_create_subTree_of_st_funList proc~tem_create_subtree_of_st_funlist->proc~tem_create_subtree_of proc~tem_init_convergence tem_init_convergence proc~tem_init_convergence->proc~tem_create_subtree_of proc~tem_init_tracker_subtree tem_init_tracker_subTree proc~tem_init_tracker_subtree->proc~tem_create_subtree_of proc~tem_write_debugmesh tem_write_debugMesh proc~tem_write_debugmesh->proc~tem_create_subtree_of

Source Code

  subroutine tem_setEffBoundingBox_fromTree( tree )
    ! -------------------------------------------------------------------- !
    !> Mesh
    type(treelmesh_type), intent(inout) :: tree
    ! -------------------------------------------------------------------- !
    real(kind=rk) :: boundingBox(3,2)
    ! -------------------------------------------------------------------- !

    boundingBox(:,:) = tem_GetRealBoundingCube( tree )

    ! Set the effective origin and length in the global tree part
    tree%global%effOrigin(:) = boundingBox(:,1)
    tree%global%effLength(:) = boundingBox(:,2) -  boundingBox(:,1)

  end subroutine tem_setEffBoundingBox_fromTree