StabilityFunc2

INTERFACE:

    real(r8) function StabilityFunc2(zeta)

DESCRIPTION:

   Stability function for rib < 0.

USES:

      use shr_const_mod, only: SHR_CONST_PI

ARGUMENTS:

      implicit none
      real(r8), intent(in) :: zeta  ! dimensionless height used in Monin-Obukh

CALLED FROM:

   subroutine FrictionVelocity in this module

REVISION HISTORY:

   15 September 1999: Yongjiu Dai; Initial code
   15 December 1999:  Paul Houser and Jon Radakovich; F90 Revision