C $Header: /u/gcmpack/MITgcm/model/inc/SOLVE_FOR_PRESSURE3D.h,v 1.4 2003/10/31 20:35:32 edhill Exp $
C $Name: $
CBOP
C !ROUTINE: SOLVE_FOR_PRESSURE3D.h
C !INTERFACE:
C include SOLVE_FOR_PRESSURE3D.h
C !DESCRIPTION: \bv
C *==========================================================*
C | SOLVE_FOR_PRESSURE3D.h
C | o Globals used by Fortran 3d pressure solver routine
C *==========================================================*
C \ev
CEOP
#ifdef ALLOW_NONHYDROSTATIC
COMMON / SFP3D_COMMON_R8 / cg3d_x, cg3d_b
_RL cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
_RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
#endif /* ALLOW_NONHYDROSTATIC */