read_restart_file Subroutine

  1. read_output.f90
  2. read_output
  3. read_restart_file

private subroutine read_restart_file(RESTART_FILE_UNIT, control)

Read the sub-directory log file in the restart folder

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: RESTART_FILE_UNIT
type(controltype), intent(inout) :: control

Called by

proc~~read_restart_file~~CalledByGraph proc~read_restart_file read_restart_file proc~read_file~3 read_file proc~read_file~3->proc~read_restart_file 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

read_restart_file

Source Code

    subroutine read_restart_file(RESTART_FILE_UNIT, control)
      !< Read the sub-directory log file in the restart folder
      implicit none
      integer, intent(in) :: RESTART_FILE_UNIT
      type(controltype), intent(inout) :: control
      integer :: i
      read(RESTART_FILE_UNIT, *) control%previous_flow_type

      read(RESTART_FILE_UNIT, *)        control%last_iter
      do i = 1,control%n_var+1
        read(RESTART_FILE_UNIT, *)  control%previous_res(i)
      end do
    end subroutine read_restart_file