free_neutral_population Subroutine

  1. fidasim.f90
  2. libfida
  3. free_neutral_population

public subroutine free_neutral_population(pop)

Initialize NeutralPopulation

Arguments

TypeIntentOptionalAttributesName
type(NeutralPopulation), intent(inout) :: pop

Neutral Population to initialize

Called by

proc~~free_neutral_population~~CalledByGraph proc~free_neutral_population free_neutral_population proc~halo halo proc~halo->proc~free_neutral_population program~fidasim fidasim program~fidasim->proc~halo

Contents

Source Code

free_neutral_population

Source Code

subroutine free_neutral_population(pop)
    !+ Initialize [[NeutralPopulation]]
    type(NeutralPopulation), intent(inout) :: pop
        !+ Neutral Population to initialize

    integer :: i, j, k, ic, ind(3)

    if(allocated(pop%dens)) then
        deallocate(pop%dens)
    endif
    if(allocated(pop%res)) then
        deallocate(pop%res)
    endif

end subroutine free_neutral_population