particles_init Subroutine

public subroutine particles_init()

Uses

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

Initialize particle data and parameters

Arguments

None

Calls

proc~~particles_init~~CallsGraph proc~particles_init particles_init proc~advect_init advect_init proc~particles_init->proc~advect_init proc~gca_init gca_init proc~particles_init->proc~gca_init proc~init_particles_com init_particles_com proc~particles_init->proc~init_particles_com proc~lorentz_init Lorentz_init proc~particles_init->proc~lorentz_init proc~mpistop mpistop proc~particles_init->proc~mpistop proc~particle_base_init particle_base_init proc~particles_init->proc~particle_base_init proc~sample_init sample_init proc~particles_init->proc~sample_init proc~gca_init->proc~mpistop mpi_type_commit mpi_type_commit proc~init_particles_com->mpi_type_commit mpi_type_struct mpi_type_struct proc~init_particles_com->mpi_type_struct proc~lorentz_init->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort proc~particles_params_read particles_params_read proc~particle_base_init->proc~particles_params_read proc~set_seed rng_t%set_seed proc~particle_base_init->proc~set_seed proc~jump rng_t%jump proc~set_seed->proc~jump proc~next rng_t%next proc~jump->proc~next proc~rotl rotl proc~next->proc~rotl

Source Code

  subroutine particles_init()
    use mod_global_parameters

    call particle_base_init()
    call init_particles_com()

    select case(physics_type_particles)
    case('advect')
      call advect_init()
    case('Lorentz')
      call Lorentz_init()
    case('GCA')
      call gca_init()
    case('sample')
      call sample_init()
    case default
      if (mype == 0) then
        print *, "Unknown physics_type_particles", &
             trim(physics_type_particles)
        print *, "Options are: advect, Lorentz, GCA, sample"
        call mpistop("Unknown physics_type_particles")
      end if
    end select

  end subroutine particles_init