ipe_cf Subroutine

public subroutine ipe_cf(i1, i2, i3, igrid, ipe_is_neighbor)

Uses

  • proc~~ipe_cf~~UsesGraph proc~ipe_cf ipe_cf module~mod_global_parameters mod_global_parameters proc~ipe_cf->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) :: i1
integer, intent(in) :: i2
integer, intent(in) :: i3
integer, intent(in) :: igrid
logical, intent(inout) :: ipe_is_neighbor(0:npe-1)

Called by

proc~~ipe_cf~~CalledByGraph proc~ipe_cf ipe_cf proc~set_neighbor_ipe set_neighbor_ipe proc~set_neighbor_ipe->proc~ipe_cf proc~handle_particles handle_particles proc~handle_particles->proc~set_neighbor_ipe proc~advance advance proc~advance->proc~handle_particles proc~main main proc~main->proc~handle_particles proc~timeintegration timeintegration proc~main->proc~timeintegration proc~timeintegration->proc~advance program~agile agile program~agile->proc~main

Source Code

  subroutine ipe_cf(i1,i2,i3,igrid,ipe_is_neighbor)
    use mod_global_parameters
    integer, intent(in)    :: i1,i2,i3, igrid
    logical, intent(inout) :: ipe_is_neighbor(0:npe-1)
    integer                :: ic1,ic2,ic3, inc1,inc2,inc3

    do ic3=1+int((1-i3)/2),2-int((1+i3)/2)
    inc3=2*i3+ic3

    do ic2=1+int((1-i2)/2),2-int((1+i2)/2)
    inc2=2*i2+ic2

    do ic1=1+int((1-i1)/2),2-int((1+i1)/2)
    inc1=2*i1+ic1

    ipe_is_neighbor( neighbor_child(2,inc1,inc2,inc3,igrid) ) = .true.

    end do
    end do
    end do

  end subroutine ipe_cf