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 NONEREVISION HISTORY:
Original author(s): Hans Burchard & Karsten Bolding & Adolf StipsLOCAL 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