init_diagnostics_ascii Subroutine

public subroutine init_diagnostics_ascii(ascii_files)

Uses

Opens all enabled ascii output files and records file units.

Arguments

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

Contents

Source Code

init_diagnostics_ascii

Source Code

subroutine init_diagnostics_ascii(ascii_files)
  use file_utils, only: open_output_file
  type(diagnostics_ascii_type), intent(in out) :: ascii_files

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

end subroutine init_diagnostics_ascii