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

Called by

proc~~finalize_species~~CalledByGraph proc~finalize_species mod_species::finalize_species proc~initialize_species mod_species::initialize_species proc~initialize_species->proc~finalize_species program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~finalize_species program~lowmach_react_hex->proc~initialize_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%names)) deallocate(species%names)
      species%nspecies = 0
   end subroutine finalize_species