StabilityFunc

INTERFACE:

   real(r8) function StabilityFunc(k, zeta)

DESCRIPTION:

   Stability function for rib < 0.

USES:

     use shr_const_mod, only: SHR_CONST_PI

ARGUMENTS:

     implicit none
     integer , intent(in) :: k 
     real(r8), intent(in) :: zeta  ! dimensionless height used in Monin-Obukhov theory

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