particles_finish Subroutine

public subroutine particles_finish()

Uses

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

Finalize the particles module

Arguments

None

Calls

proc~~particles_finish~~CallsGraph proc~particles_finish particles_finish mpi_type_free mpi_type_free proc~particles_finish->mpi_type_free proc~destroy_particles destroy_particles proc~particles_finish->proc~destroy_particles mpi_allreduce mpi_allreduce proc~destroy_particles->mpi_allreduce proc~output_ensemble output_ensemble proc~destroy_particles->proc~output_ensemble proc~pull_particle_from_particles_on_mype pull_particle_from_particles_on_mype proc~destroy_particles->proc~pull_particle_from_particles_on_mype mpi_allgather mpi_allgather proc~output_ensemble->mpi_allgather proc~mpi_recv_wrapper mpi_recv_wrapper proc~output_ensemble->proc~mpi_recv_wrapper proc~mpi_send_wrapper mpi_send_wrapper proc~output_ensemble->proc~mpi_send_wrapper proc~output_particle output_particle proc~output_ensemble->proc~output_particle mpi_recv mpi_recv proc~mpi_recv_wrapper->mpi_recv mpi_send mpi_send proc~mpi_send_wrapper->mpi_send proc~partcoord_to_cartesian partcoord_to_cartesian proc~output_particle->proc~partcoord_to_cartesian

Source Code

  subroutine particles_finish()
    use mod_global_parameters

    call destroy_particles(nparticles_on_mype,&
       particles_on_mype(1:nparticles_on_mype))

    ! Clean up particle type
    call MPI_TYPE_FREE(type_particle,ierrmpi)

    ! Clean up variables
    deallocate(particle)
    deallocate(ipe_neighbor)
    deallocate(particles_on_mype)
    deallocate(particles_active_on_mype)
    deallocate(gridvars)

  end subroutine particles_finish