finish_diagnostics_ascii Subroutine

public subroutine finish_diagnostics_ascii(ascii_files)

Uses

Closes all enabled ascii output files as given by recorded file units.

Arguments

Type IntentOptional Attributes Name
type(diagnostics_ascii_type), intent(inout) :: ascii_files

Contents

Source Code

finish_diagnostics_ascii

Source Code

subroutine finish_diagnostics_ascii(ascii_files)
  use file_utils, only: close_output_file
  type(diagnostics_ascii_type), intent(in out) :: ascii_files

  if (ascii_files%write_to_out) call close_output_file(ascii_files%out)
  if (ascii_files%write_to_phase) call close_output_file(ascii_files%phase)
  if (ascii_files%write_to_heat) call close_output_file(ascii_files%heat)
  if (ascii_files%write_to_heat2) call close_output_file(ascii_files%heat2)
  if (ascii_files%write_to_vres) call close_output_file(ascii_files%vres)
  if (ascii_files%write_to_lpc) call close_output_file(ascii_files%lpc)
  if (ascii_files%write_to_vres2) call close_output_file(ascii_files%vres2)
  if (ascii_files%write_to_cres) call close_output_file(ascii_files%cres)
  if (ascii_files%write_to_dist) call close_output_file(ascii_files%dist)
  if (ascii_files%write_to_yxdist) call close_output_file(ascii_files%yxdist)
  if (ascii_files%write_to_parity) call close_output_file(ascii_files%parity)
  if (ascii_files%write_to_jext) call close_output_file(ascii_files%jext)
  if (ascii_files%write_to_eigenfunc) call close_output_file(ascii_files%eigenfunc)

end subroutine finish_diagnostics_ascii