purge_dump_dir Subroutine

  1. dump_solution.f90
  2. dump_solution
  3. purge_dump_dir

private subroutine purge_dump_dir(control)

Purge the directory based on the input

Arguments

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

Calls

proc~~purge_dump_dir~~CallsGraph proc~purge_dump_dir purge_dump_dir proc~remove_directory remove_directory proc~purge_dump_dir->proc~remove_directory

Called by

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

purge_dump_dir

Source Code

    subroutine purge_dump_dir(control)
      !< Purge the directory based on the input
      implicit none
      type(controltype), intent(in) :: control
      integer                         :: purge_num

      purge_num = control%checkpoint_iter_count-control%purge_write
      if (control%purge_write /=0 .and. purge_num > 0) then
        write(purge_dirname,'(A,I4.4)') 'time_directories/', purge_num
        call remove_directory(purge_dirname)
      end if

    end subroutine purge_dump_dir