write_restart_log Subroutine

  1. dump_solution.f90
  2. dump_solution
  3. write_restart_log

private subroutine write_restart_log(files, scheme, control)

Call to write log file in the subdirectory "restart". It is useful information while restarting the solver

Arguments

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

Calls

proc~~write_restart_log~~CallsGraph proc~write_restart_log write_restart_log proc~write_initial_resnorm write_initial_resnorm proc~write_restart_log->proc~write_initial_resnorm

Called by

proc~~write_restart_log~~CalledByGraph proc~write_restart_log write_restart_log proc~dump_data dump_data proc~dump_data->proc~write_restart_log 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

write_restart_log

Source Code

    subroutine write_restart_log(files, scheme, control)
      !< Call to write log file in the subdirectory "restart". 
      !< It is useful information while restarting the solver
      implicit none
      type(filetype), intent(in) :: files
      type(controltype), intent(in) :: control
      type(schemetype), intent(in) :: scheme
      open(files%RESTART_FILE_UNIT, file=files%restartfile)
      select case (scheme%turbulence)
          
        case ('none')
          write(files%RESTART_FILE_UNIT, '(A)') 'viscous'
        case('sst','sst2003', 'kkl', 'ke', 'kw', 'sa', 'saBC', 'des-sst')
          write(files%RESTART_FILE_UNIT, '(A)') trim(scheme%turbulence)
        case DEFAULT
           Fatal_error
      end select
      call write_initial_resnorm(files, control)
      close(files%RESTART_FILE_UNIT)

    end subroutine write_restart_log