init_gridvars Subroutine

public subroutine init_gridvars()

Uses

  • proc~~init_gridvars~~UsesGraph proc~init_gridvars init_gridvars module~mod_global_parameters mod_global_parameters proc~init_gridvars->module~mod_global_parameters module~mod_timing mod_timing proc~init_gridvars->module~mod_timing 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

Initialize grid variables for particles

Arguments

None

Calls

proc~~init_gridvars~~CallsGraph proc~init_gridvars init_gridvars mpi_wtime mpi_wtime proc~init_gridvars->mpi_wtime

Called by

proc~~init_gridvars~~CalledByGraph proc~init_gridvars init_gridvars proc~main main proc~main->proc~init_gridvars proc~timeintegration timeintegration proc~main->proc~timeintegration proc~resettree resettree proc~resettree->proc~init_gridvars proc~timeintegration->proc~resettree program~agile agile program~agile->proc~main

Source Code

  subroutine init_gridvars()
    use mod_global_parameters
    use mod_timing

    integer :: igrid, iigrid

    tpartc_grid_0=MPI_WTIME()

    do iigrid=1,igridstail; igrid=igrids(iigrid);
      allocate(gridvars(igrid)%w(ixGlo1:ixGhi1,ixGlo2:ixGhi2,ixGlo3:ixGhi3,&
         1:ngridvars),gridvars(igrid)%wold(ixGlo1:ixGhi1,ixGlo2:ixGhi2,&
         ixGlo3:ixGhi3,1:ngridvars))
      gridvars(igrid)%w = 0.0d0
      gridvars(igrid)%wold = 0.0d0
    end do

    call particles_fill_gridvars()
    if (associated(particles_define_additional_gridvars)) then
      call particles_fill_additional_gridvars()
    end if

    tpartc_grid = tpartc_grid + (MPI_WTIME()-tpartc_grid_0)

  end subroutine init_gridvars