create_directory Subroutine

  1. dump_solution.f90
  2. dump_solution
  3. create_directory

private subroutine create_directory(dirname)

Create a directory to keep the solution files from all the processor

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: dirname

Called by

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

create_directory

Source Code

    subroutine create_directory(dirname)
      !< Create a directory to keep the solution files from all the processor
      implicit none
      character(len=*), intent(in)    :: dirname
      character(len=FILE_NAME_LENGTH) :: mkdircmd

      mkdircmd = 'mkdir -p '//trim(dirname)
      call system(mkdircmd)

    end subroutine create_directory