remove_directory Subroutine

  1. dump_solution.f90
  2. dump_solution
  3. remove_directory

private subroutine remove_directory(dirname)

Remove a directory

Arguments

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

Called by

proc~~remove_directory~~CalledByGraph proc~remove_directory remove_directory proc~purge_dump_dir purge_dump_dir proc~purge_dump_dir->proc~remove_directory proc~checkpoint checkpoint proc~checkpoint->proc~purge_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

remove_directory

Source Code

    subroutine remove_directory(dirname)
      !< Remove a directory 
      implicit none
      character(len=*), intent(in)    :: dirname
      character(len=FILE_NAME_LENGTH) :: rmdircmd

      rmdircmd = 'rm -rf '//trim(dirname)
      call system(rmdircmd)

    end subroutine remove_directory