Based on code contributed by SeongMo Yeon Resolves feature request https://bugs.openfoam.org/view.php?id=2656