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