update_gridvars Subroutine

public subroutine update_gridvars()

Uses

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

update grid variables for particles

Arguments

None

Calls

proc~~update_gridvars~~CallsGraph proc~update_gridvars update_gridvars mpi_wtime mpi_wtime proc~update_gridvars->mpi_wtime

Called by

proc~~update_gridvars~~CalledByGraph proc~update_gridvars update_gridvars proc~handle_particles handle_particles proc~handle_particles->proc~update_gridvars 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 update_gridvars()
    use mod_global_parameters
    use mod_timing

    integer :: igrid, iigrid

    tpartc_grid_0=MPI_WTIME()

    do iigrid=1,igridstail; igrid=igrids(iigrid);
       gridvars(igrid)%wold=gridvars(igrid)%w
    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 update_gridvars