old_neighbors Subroutine

public subroutine old_neighbors(child_igrid, child_ipe, igrid, ipe)

Uses

  • proc~~old_neighbors~~UsesGraph proc~old_neighbors old_neighbors module~mod_global_parameters mod_global_parameters proc~old_neighbors->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), dimension(2,2,2) :: child_igrid
integer, intent(in), dimension(2,2,2) :: child_ipe
integer, intent(in) :: igrid
integer, intent(in) :: ipe

Called by

proc~~old_neighbors~~CalledByGraph proc~old_neighbors old_neighbors proc~prolong_grid prolong_grid proc~prolong_grid->proc~old_neighbors proc~refine_grids refine_grids proc~refine_grids->proc~prolong_grid proc~amr_coarsen_refine amr_coarsen_refine proc~amr_coarsen_refine->proc~refine_grids 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 old_neighbors(child_igrid,child_ipe,igrid,ipe)
    use mod_global_parameters
    integer, dimension(2,2,2), intent(in) :: child_igrid, child_ipe
    integer, intent(in) :: igrid, ipe
    integer :: iside, i1,i2,i3, ic1,ic2,ic3

    do ic3=1,2
    do ic2=1,2
    do ic1=1,2
      old_neighbor(:,:,:,:,child_igrid(ic1,ic2,ic3))=-1
     do iside=1,2
        if (ic1==iside) then
          i1=kr(1,1)*(2*iside-3);i2=kr(2,1)*(2*iside-3)
          i3=kr(3,1)*(2*iside-3);
          old_neighbor(1,i1,i2,i3,child_igrid(ic1,ic2,ic3))=fine_neighbors(ic1,&
             ic2,ic3,1,igrid)%igrid
          old_neighbor(2,i1,i2,i3,child_igrid(ic1,ic2,ic3))=fine_neighbors(ic1,&
             ic2,ic3,1,igrid)%ipe
        end if
      end do
     do iside=1,2
        if (ic2==iside) then
          i1=kr(1,2)*(2*iside-3);i2=kr(2,2)*(2*iside-3)
          i3=kr(3,2)*(2*iside-3);
          old_neighbor(1,i1,i2,i3,child_igrid(ic1,ic2,ic3))=fine_neighbors(ic1,&
             ic2,ic3,2,igrid)%igrid
          old_neighbor(2,i1,i2,i3,child_igrid(ic1,ic2,ic3))=fine_neighbors(ic1,&
             ic2,ic3,2,igrid)%ipe
        end if
      end do
     do iside=1,2
        if (ic3==iside) then
          i1=kr(1,3)*(2*iside-3);i2=kr(2,3)*(2*iside-3)
          i3=kr(3,3)*(2*iside-3);
          old_neighbor(1,i1,i2,i3,child_igrid(ic1,ic2,ic3))=fine_neighbors(ic1,&
             ic2,ic3,3,igrid)%igrid
          old_neighbor(2,i1,i2,i3,child_igrid(ic1,ic2,ic3))=fine_neighbors(ic1,&
             ic2,ic3,3,igrid)%ipe
        end if
      end do
    end do
    end do
    end do

  end subroutine old_neighbors