make_dump_dir Subroutine

private subroutine make_dump_dir(control)

Solution directory and sub-directory in created with particular number

Arguments

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

Calls

proc~~make_dump_dir~~CallsGraph proc~make_dump_dir make_dump_dir proc~create_directory create_directory proc~make_dump_dir->proc~create_directory

Called by

proc~~make_dump_dir~~CalledByGraph proc~make_dump_dir make_dump_dir proc~checkpoint checkpoint proc~checkpoint->proc~make_dump_dir 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


Source Code

    subroutine make_dump_dir(control)
      !< Solution directory and sub-directory in created with particular number 
      implicit none
      type(controltype), intent(in) :: control

      write(dump_dirname,'(A,I4.4)') 'time_directories/',control%checkpoint_iter_count
      call create_directory(dump_dirname)
      call create_directory(trim(dump_dirname)//'/restart')

    end subroutine make_dump_dir