sample_init Subroutine

public subroutine sample_init()

Uses

  • proc~~sample_init~~UsesGraph proc~sample_init sample_init module~mod_global_parameters mod_global_parameters proc~sample_init->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~~sample_init~~CalledByGraph proc~sample_init sample_init proc~particles_init particles_init proc~particles_init->proc~sample_init

Source Code

  subroutine sample_init()
    use mod_global_parameters
    integer :: idir

    ngridvars=nw

    particles_fill_gridvars => sample_fill_gridvars

    if (associated(particles_define_additional_gridvars)) then
      call particles_define_additional_gridvars(ngridvars)
    end if

    particles_integrate     => sample_integrate_particles

  end subroutine sample_init