change_ipe_tree_leaf Subroutine

public subroutine change_ipe_tree_leaf(recv_igrid, recv_ipe, send_igrid, send_ipe)

Uses

  • proc~~change_ipe_tree_leaf~~UsesGraph proc~change_ipe_tree_leaf change_ipe_tree_leaf module~mod_forest mod_forest proc~change_ipe_tree_leaf->module~mod_forest

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: recv_igrid
integer, intent(in) :: recv_ipe
integer, intent(in) :: send_igrid
integer, intent(in) :: send_ipe

Called by

proc~~change_ipe_tree_leaf~~CalledByGraph proc~change_ipe_tree_leaf change_ipe_tree_leaf proc~load_balance load_balance proc~load_balance->proc~change_ipe_tree_leaf proc~amr_coarsen_refine amr_coarsen_refine proc~amr_coarsen_refine->proc~load_balance proc~resettree resettree proc~resettree->proc~amr_coarsen_refine proc~resettree_convert resettree_convert proc~resettree_convert->proc~amr_coarsen_refine proc~settree settree proc~settree->proc~amr_coarsen_refine proc~main main proc~main->proc~resettree_convert proc~main->proc~settree proc~timeintegration timeintegration proc~main->proc~timeintegration proc~timeintegration->proc~resettree program~agile agile program~agile->proc~main

Source Code

  subroutine change_ipe_tree_leaf(recv_igrid,recv_ipe,send_igrid,send_ipe)
    use mod_forest
    implicit none

    integer, intent(in) :: recv_igrid, recv_ipe, send_igrid, send_ipe

    type(tree_node_ptr) :: tree

    tree%node => igrid_to_node(send_igrid,send_ipe)%node

    tree%node%igrid=recv_igrid
    tree%node%ipe=recv_ipe

    nullify(igrid_to_node(send_igrid,send_ipe)%node)
    igrid_to_node(recv_igrid,recv_ipe)%node => tree%node

  end subroutine change_ipe_tree_leaf