Returns the value of restart_dir
function get_restart_dir() character(len=:), allocatable :: get_restart_dir get_restart_dir = restart_dir end function get_restart_dir