INTERFACE:
real(r8) function StabilityFunc1(zeta)DESCRIPTION:
Stability function for rib < 0.
USES:
use shr_const_mod, only: SHR_CONST_PIARGUMENTS:
implicit none real(r8), intent(in) :: zeta ! dimensionless height used in Monin-Obukhov theoryCALLED FROM:
subroutine FrictionVelocity in this moduleREVISION HISTORY:
15 September 1999: Yongjiu Dai; Initial code 15 December 1999: Paul Houser and Jon Radakovich; F90 RevisionLOCAL VARIABLES: