finalize_species Subroutine

public subroutine finalize_species(species)

Safely deallocates species fields and names.

Arguments

Type IntentOptional Attributes Name
type(species_fields_t), intent(inout) :: species

Source Code

   subroutine finalize_species(species)
      type(species_fields_t), intent(inout) :: species

      if (allocated(species%Y)) deallocate(species%Y)
      if (allocated(species%Y_old)) deallocate(species%Y_old)
      if (allocated(species%rhs_old)) deallocate(species%rhs_old)
      if (allocated(species%names)) deallocate(species%names)
      species%nspecies = 0
      species%rhs_old_valid = .false.
   end subroutine finalize_species