C $Header: /u/gcmpack/MITgcm/model/inc/NH_VARS.h,v 1.4 2013/07/28 21:06:00 jmc Exp $ C $Name: $ CBOP C !ROUTINE: NH_VARS.h C !INTERFACE: C include "NH_VARS.h" C !DESCRIPTION: C \bv C *==========================================================* C | NH_VARS.h C | o Additional state variables for non-hydrostatic model C *==========================================================* C | In N-H mode, wVel becomes a prognostic variable: need C | to hold two levels of time tendency for w (for AB) C *==========================================================* C \ev CEOP #ifdef ALLOW_NONHYDROSTATIC C-- COMMON /NH_VARS_R/ REAL NH state variables C phi_nh :: Non-hydrostatic potential (=NH-Pressure/rhoConst) C dPhiNH :: Surface-Hydrostatic correction to Non-hydrostatic Phi C gX, gxNm1 :: Time tendencies at current and previous time levels. C viscA?_W :: Horizontal variable viscosities #ifdef ALLOW_ADAMSBASHFORTH_3 COMMON /NH_VARS_R/ & phi_nh, dPhiNH, & gW, gwNm #else /* ALLOW_ADAMSBASHFORTH_3 */ COMMON /NH_VARS_R/ & phi_nh, dPhiNH, & gW, gwNm1 #endif /* ALLOW_ADAMSBASHFORTH_3 */ _RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) _RL dPhiNH(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) _RL gW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) #ifdef ALLOW_ADAMSBASHFORTH_3 _RL gwNm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2) #else /* ALLOW_ADAMSBASHFORTH_3 */ _RL gwNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) #endif /* ALLOW_ADAMSBASHFORTH_3 */ #endif /* ALLOW_NONHYDROSTATIC */