!==============================================================================!
  real function Y_Plus_Rough_Walls(u_tau, wall_dist, kin_vis)
!------------------------------------------------------------------------------!
!   Calculates y+ for rough walls.                                             !
!------------------------------------------------------------------------------!
!----------------------------------[Modules]-----------------------------------!
  use Const_Mod, only: TINY
  use Rans_Mod,  only: z_o
!------------------------------------------------------------------------------!
  implicit none
!---------------------------------[Arguments]----------------------------------!
  real :: u_tau, wall_dist, kin_vis
!==============================================================================!

  Y_Plus_Rough_Walls = (wall_dist + z_o) * u_tau / kin_vis

  end function
