getigrids Subroutine

public subroutine getigrids()

Uses

  • proc~~getigrids~~UsesGraph proc~getigrids getigrids module~mod_forest mod_forest proc~getigrids->module~mod_forest module~mod_global_parameters mod_global_parameters proc~getigrids->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

None

Called by

proc~~getigrids~~CalledByGraph proc~getigrids getigrids proc~amr_coarsen_refine amr_coarsen_refine proc~amr_coarsen_refine->proc~getigrids proc~initlevelone initlevelone proc~initlevelone->proc~getigrids proc~read_forest read_forest proc~read_forest->proc~getigrids 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 getigrids
    use mod_forest
    use mod_global_parameters
    implicit none

    integer :: iigrid, igrid

    iigrid=0
    do igrid=1,max_blocks
       if (igrid_inuse(igrid,mype)) then
          iigrid=iigrid+1
          igrids(iigrid)=igrid
       end if
    end do

    igridstail=iigrid
    

  end subroutine getigrids