open_file Subroutine

  1. write_output.f90
  2. write_output
  3. open_file

private subroutine open_file(file_handler, filename)

Open the file to write the solution

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: file_handler
character(len=*), intent(in) :: filename

Calls

proc~~open_file~~CallsGraph proc~open_file open_file debugcall debugcall proc~open_file->debugcall

Called by

proc~~open_file~~CalledByGraph proc~open_file open_file proc~write_file~4 write_file proc~write_file~4->proc~open_file proc~dump_data dump_data proc~dump_data->proc~write_file~4 proc~checkpoint checkpoint proc~checkpoint->proc~dump_data proc~setup_solver setup_solver proc~setup_solver->proc~checkpoint proc~iterate_one_more_time_step iterate_one_more_time_step proc~iterate_one_more_time_step->proc~checkpoint program~main main program~main->proc~iterate_one_more_time_step proc~start_run start_run program~main->proc~start_run proc~start_run->proc~setup_solver

Contents

Source Code

open_file

Source Code

    subroutine open_file(file_handler, filename)
      !< Open the file to write the solution
      implicit none
      integer, intent(in) :: file_handler
      character(len=*), intent(in) :: filename 
      DebugCall('write_output: open_file')

      open(file_handler, file=trim(filename)//trim(file_format)//'.part', form=trim(data_format))

    end subroutine open_file