restart_directory Subroutine

private subroutine restart_directory(params, restart_dir)

Arguments

Type IntentOptional Attributes Name
type(case_params_t), intent(in) :: params
character(len=path_len), intent(out) :: restart_dir

Source Code

   subroutine restart_directory(params, restart_dir)
      type(case_params_t), intent(in) :: params
      character(len=path_len), intent(out) :: restart_dir
      character(len=path_len) :: requested

      requested = trim(params%restart_output_dir)
      if (len_trim(requested) == 0) requested = 'restart'

      if (requested(1:1) == '/') then
         restart_dir = requested
      else if (index(trim(requested), trim(params%output_dir)//'/') == 1 .or. trim(requested) == trim(params%output_dir)) then
         restart_dir = requested
      else
         restart_dir = trim(params%output_dir) // '/' // trim(requested)
      end if
   end subroutine restart_directory