StabilityFunc

INTERFACE:

    real(r8) function StabilityFunc1(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-Obuk

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