open_file Subroutine

  1. read_output.f90
  2. read_output
  3. open_file

private subroutine open_file(files, control)

Open file from the restart folder

Arguments

Type IntentOptional AttributesName
type(filetype), intent(inout) :: files
type(controltype), intent(in) :: control

Calls

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

Called by

proc~~open_file~2~~CalledByGraph proc~open_file~2 open_file proc~read_file~3 read_file proc~read_file~3->proc~open_file~2 proc~initstate initstate proc~initstate->proc~read_file~3 proc~setup_state setup_state proc~setup_state->proc~initstate proc~setup_solver setup_solver proc~setup_solver->proc~setup_state proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

open_file

Source Code

    subroutine open_file(files, control)
      !< Open file from the restart folder 
      implicit none
      type(filetype), intent(inout) :: files
      type(controltype), intent(in) :: control
      DebugCall('open_file')

      write(files%restartfile, '(A,I4.4,A,I2.2)') 'time_directories/',control%start_from,&
                          '/restart/process_', process_id
      open(files%IN_FILE_UNIT, file=trim(files%infile)//trim(file_format))!, form=trim(data_format))
      open(files%RESTART_FILE_UNIT, file=files%restartfile, status='old')

    end subroutine open_file