close_all_files Subroutine

  1. fclose.f90
  2. fclose
  3. close_all_files

public subroutine close_all_files()

Call to close all files

Arguments

None

Calls

proc~~close_all_files~~CallsGraph proc~close_all_files close_all_files proc~close_file~3 close_file proc~close_all_files->proc~close_file~3

Called by

proc~~close_all_files~~CalledByGraph proc~close_all_files close_all_files proc~finish_run finish_run proc~finish_run->proc~close_all_files proc~abort_run abort_run proc~abort_run->proc~close_all_files program~main main program~main->proc~finish_run

Contents

Source Code

close_all_files

Source Code

    subroutine close_all_files
      !< Call to close all files
      implicit none
      call close_file(      CONFIG_FILE_UNIT)
      call close_file(        GRID_FILE_UNIT)
      call close_file(       STATE_FILE_UNIT)
      call close_file(          IN_FILE_UNIT)
      call close_file(         OUT_FILE_UNIT)
      call close_file(     RESNORM_FILE_UNIT)
      call close_file(   TEMP_NODE_FILE_UNIT)
      call close_file(      LAYOUT_FILE_UNIT)
      call close_file(    NODESURF_FILE_UNIT)
      call close_file(   WALL_DIST_FILE_UNIT)
      call close_file( RES_CONTROL_FILE_UNIT)
      call close_file(        INFO_FILE_UNIT)
      call close_file(     CONTROL_FILE_UNIT)
      call close_file(      SCHEME_FILE_UNIT)
      call close_file(        FLOW_FILE_UNIT)
      call close_file(     RESTART_FILE_UNIT)
      call close_file(       OUTIN_FILE_UNIT)
      call close_file(        STOP_FILE_UNIT)
      call close_file( BOUNDARY_CONDITIONS_FILE_UNIT)
    end subroutine close_all_files