module procedures_plmc_resetter

use procedures_short_interactions_resetter, only: short_interactions_reset => reset
use procedures_dipolar_interactions_resetter, only: dipolar_interactions_reset => reset
use types_physical_model_wrapper, only: Physical_Model_Wrapper

implicit none

private
public :: plmc_reset

contains

    !> @note average_nums_particles%set() will be useless at the end of the run.
    subroutine plmc_reset(physical_model, skip_dipolar_interactions)
        type(Physical_Model_Wrapper), intent(inout) :: physical_model
        logical, intent(in) :: skip_dipolar_interactions

        integer :: i_box, i_component

        do i_box = 1, size(physical_model%mixture%components, 2)
            do i_component = 1, size(physical_model%mixture%components, 1)
                call physical_model%mixture%average_nums_particles(i_component, i_box)%set()
            end do
            call physical_model%mixture%total_moments(i_box)%reset()

            call short_interactions_reset(physical_model%short_interactions%cells(i_box)%&
                neighbour_cells)
            call short_interactions_reset(physical_model%short_interactions%cells(i_box)%&
                visitable_cells)

            if (skip_dipolar_interactions) cycle
            call dipolar_interactions_reset(physical_model%dipolar_interactions_static(i_box), &
                reset_real_pair=.true.)
        end do
    end subroutine plmc_reset

end module procedures_plmc_resetter