finish_profiles_overrides Subroutine

subroutine finish_profiles_overrides(self)
  use file_utils, only: error_unit
  class(profiles_overrides_type), intent(in out) :: self
  if (.not. self%init) then
    write (error_unit(), *) "ERROR: Called finish_profiles_overrides on an uninitialized object."
    return
  end if
if ( allocated(self%override_dens)) deallocate(self%override_dens, self%dens)
if ( allocated(self%override_temp)) deallocate(self%override_temp, self%temp)
if ( allocated(self%override_tprim)) deallocate(self%override_tprim, self%tprim)
if ( allocated(self%override_fprim)) deallocate(self%override_fprim, self%fprim)
if ( allocated(self%override_vnewk)) deallocate(self%override_vnewk, self%vnewk)
self%override_g_exb = .false.
self%override_mach = .false.
end subroutine finish_profiles_overrides