Read this module's parameters from a file
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | files(:) |
| Name | Type | Default | Description |
|---|---|---|---|
| physics_type_particles | character(len=name_len) | "" | String describing the particle physics type |
| nparticleshi | integer | None | Maximum number of particles |
| nparticles_per_cpu_hi | integer | None | Maximum number of particles in one processor |
| write_individual | logical | None | Whether to write individual particle output (followed particles) |
| write_ensemble | logical | None | Whether to write ensemble output |
| write_snapshot | logical | None | Whether to write particle snapshots |
| downsample_particles | integer | None | Particle downsampling factor in CSV output |
| dtsave_particles | double precision | None | Time interval to save particles |
| tmax_particles | double precision | None | Time limit of particles |
| num_particles | integer | None | Number of particles |
| ndefpayload | integer | None | Number of default payload variables for a particle |
| nusrpayload | integer | None | Number of user-defined payload variables for a particle |
| losses | logical | None | |
| const_dt_particles | double precision | None | If positive, a constant time step for the particles |
| particles_cfl | double precision | None | Particle CFL safety factor |
| dtheta | double precision | None | |
| relativistic | logical | None | Use a relativistic particle mover? |
| integrator_type_particles | character(len=name_len) | "" | String describing the particle integrator type |
| particles_eta | double precision | None | Resistivity |
| particles_etah | double precision | None | Resistivity |
subroutine particles_params_read(files) use mod_global_parameters, only: unitpar character(len=*), intent(in) :: files(:) integer :: n namelist /particles_list/ physics_type_particles, nparticleshi,& nparticles_per_cpu_hi, write_individual, write_ensemble,& write_snapshot, downsample_particles, dtsave_particles, tmax_particles,& num_particles, ndefpayload, nusrpayload, losses, const_dt_particles,& particles_cfl, dtheta, relativistic, integrator_type_particles,& particles_eta, particles_etah do n = 1, size(files) open(unitpar, file=trim(files(n)), status="old") read(unitpar, particles_list, end=111) 111 close(unitpar) end do end subroutine particles_params_read