ip_chu_fan

INTERFACE:

    subroutine ip_chu_fan()
DESCRIPTION:

This routine calculates the internal pressure gradient based on the classical approach by Mellor et al. (1994), extended by the hydrostatic extension by Chu and Fan (2003). USES:

    use internal_pressure
  $ use omp_lib
    IMPLICIT NONE
REVISION HISTORY:
    Original author(s): Hans Burchard & Karsten Bolding & Adolf Stips
LOCAL VARIABLES:
    integer                   :: i,j,k
    REALTYPE                  :: dxm1,dym1,x,y,x1,y1,hc
    REALTYPE                  :: grdl,grdu,buoyl,buoyu,prgr,dxz,dyz
    REALTYPE, PARAMETER       :: SIXTH=_ONE_/6