Closes all enabled ascii output files as given by recorded file units.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(diagnostics_ascii_type), | intent(inout) | :: | ascii_files |
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_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