close_file Subroutine

  1. write_output.f90
  2. write_output
  3. close_file

private subroutine close_file(file_handler, filename)

Close the file after writing solution.

Arguments

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

Calls

proc~~close_file~~CallsGraph proc~close_file close_file debugcall debugcall proc~close_file->debugcall

Called by

proc~~close_file~~CalledByGraph proc~close_file close_file proc~write_file~4 write_file proc~write_file~4->proc~close_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

close_file

Source Code

    subroutine close_file(file_handler, filename)
      !< Close the file after writing solution.
      implicit none
      integer, intent(in) :: file_handler
      character(len=*), intent(in) :: filename 
      DebugCall('write_output_vtk: close_file')
      call rename(trim(filename)//trim(file_format)//'.part', trim(filename)//trim(file_format))
      close(file_handler)
    end subroutine close_file