identifyphysbound_connectivity Subroutine

private subroutine identifyphysbound_connectivity(igrid)

Uses

  • proc~~identifyphysbound_connectivity~~UsesGraph proc~identifyphysbound_connectivity identifyphysbound_connectivity module~mod_global_parameters mod_global_parameters proc~identifyphysbound_connectivity->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: igrid

Called by

proc~~identifyphysbound_connectivity~~CalledByGraph proc~identifyphysbound_connectivity identifyphysbound_connectivity proc~build_connectivity build_connectivity proc~build_connectivity->proc~identifyphysbound_connectivity proc~amr_coarsen_refine amr_coarsen_refine proc~amr_coarsen_refine->proc~build_connectivity proc~initlevelone initlevelone proc~initlevelone->proc~build_connectivity proc~read_forest read_forest proc~read_forest->proc~build_connectivity proc~main main proc~main->proc~initlevelone proc~read_snapshot read_snapshot proc~main->proc~read_snapshot proc~resettree_convert resettree_convert proc~main->proc~resettree_convert proc~settree settree proc~main->proc~settree proc~timeintegration timeintegration proc~main->proc~timeintegration proc~read_snapshot->proc~read_forest proc~read_snapshot_old read_snapshot_old proc~read_snapshot->proc~read_snapshot_old proc~read_snapshot_old->proc~read_forest proc~resettree resettree proc~resettree->proc~amr_coarsen_refine proc~resettree_convert->proc~amr_coarsen_refine proc~settree->proc~amr_coarsen_refine proc~timeintegration->proc~resettree program~agile agile program~agile->proc~main

Source Code

  subroutine identifyphysbound_connectivity(igrid)
    use mod_global_parameters
    integer, intent(in) :: igrid

    if (neighbor_type(-1,0,0,igrid) == neighbor_boundary .and. neighbor_type(+1,0,0,igrid) == neighbor_boundary ) then
       idphyb(1,igrid) = 2
    else if (neighbor_type(-1,0,0,igrid) == neighbor_boundary) then
       idphyb(1,igrid) = -1
    else if (neighbor_type(+1,0,0,igrid) == neighbor_boundary) then
       idphyb(1,igrid) = +1
    else
       idphyb(1,igrid) = 0
    end if

    if (neighbor_type(0,-1,0,igrid) == neighbor_boundary .and. neighbor_type(0,+1,0,igrid) == neighbor_boundary ) then
       idphyb(2,igrid) = 2
    else if (neighbor_type(0,-1,0,igrid) == neighbor_boundary) then
       idphyb(2,igrid) = -1
    else if (neighbor_type(0,+1,0,igrid) == neighbor_boundary) then
       idphyb(2,igrid) = +1
    else
       idphyb(2,igrid) = 0
    end if

    if (neighbor_type(0,0,-1,igrid) == neighbor_boundary .and. neighbor_type(0,0,+1,igrid) == neighbor_boundary ) then
       idphyb(3,igrid) = 2
    else if (neighbor_type(0,0,-1,igrid) == neighbor_boundary) then
       idphyb(3,igrid) = -1
    else if (neighbor_type(0,0,+1,igrid) == neighbor_boundary) then
       idphyb(3,igrid) = +1
    else
       idphyb(3,igrid) = 0
    end if

  end subroutine identifyphysbound_connectivity