Solution directory and sub-directory in created with particular number
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(controltype), | intent(in) | :: | control |
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