Corrected calculation of iTp
Resolves bug-report http://www.openfoam.org/mantisbt/view.php?id=1456