model/inc/NH_VARS.h

e66021cc3e Jean*0001 CBOP
                0002 C     !ROUTINE: NH_VARS.h
                0003 C     !INTERFACE:
                0004 C     include "NH_VARS.h"
                0005 C     !DESCRIPTION:
                0006 C     \bv
                0007 C     *==========================================================*
                0008 C     | NH_VARS.h
                0009 C     | o Additional state variables for non-hydrostatic model
fdf5fb6af0 Jean*0010 C     |   and Quasi-Hydrostatic time-stepping
e66021cc3e Jean*0011 C     *==========================================================*
                0012 C     | In N-H mode, wVel becomes a prognostic variable: need
6251e2ce9d Jean*0013 C     | to hold two levels of time tendency for w (for AB)
e66021cc3e Jean*0014 C     *==========================================================*
                0015 C     \ev
                0016 CEOP
                0017
                0018 #ifdef ALLOW_NONHYDROSTATIC
                0019 C--   COMMON /NH_VARS_R/ REAL NH state variables
                0020 C     phi_nh    :: Non-hydrostatic potential (=NH-Pressure/rhoConst)
6251e2ce9d Jean*0021 C     dPhiNH    :: Surface-Hydrostatic correction to Non-hydrostatic Phi
fdf5fb6af0 Jean*0022 C     gW, gwNm1 :: Time tendencies at current and previous time levels.
ecb1e63329 Bayl*0023 C     viscA?_W  :: Horizontal variable viscosities
e66021cc3e Jean*0024
6251e2ce9d Jean*0025 #ifdef ALLOW_ADAMSBASHFORTH_3
e66021cc3e Jean*0026       COMMON /NH_VARS_R/
6251e2ce9d Jean*0027      &                   phi_nh, dPhiNH,
6f0f9ff290 Jean*0028      &                   gW, gwNm
6251e2ce9d Jean*0029 #else /* ALLOW_ADAMSBASHFORTH_3 */
                0030       COMMON /NH_VARS_R/
                0031      &                   phi_nh, dPhiNH,
6f0f9ff290 Jean*0032      &                   gW, gwNm1
6251e2ce9d Jean*0033 #endif /* ALLOW_ADAMSBASHFORTH_3 */
e66021cc3e Jean*0034       _RL  phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
6251e2ce9d Jean*0035       _RL  dPhiNH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,   nSx,nSy)
e66021cc3e Jean*0036       _RL  gW   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
6251e2ce9d Jean*0037 #ifdef ALLOW_ADAMSBASHFORTH_3
                0038       _RL  gwNm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
                0039 #else /* ALLOW_ADAMSBASHFORTH_3 */
e66021cc3e Jean*0040       _RL  gwNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
6251e2ce9d Jean*0041 #endif /* ALLOW_ADAMSBASHFORTH_3 */
e66021cc3e Jean*0042
                0043 #endif /* ALLOW_NONHYDROSTATIC */
fdf5fb6af0 Jean*0044
                0045 #ifdef ALLOW_QHYD_STAGGER_TS
                0046 C--   COMMON /NH_VARS_QH_AB/ Quasi-Hydrostatic Adams-Bashforth variables
                0047 C     QHydGwNm  :: QuasiHydrostatic vertical acceleration to add to Buoyancy at
                0048 C                  previous time-step for AB with staggerTimeStep (units: m/s^2)
                0049       COMMON /NH_VARS_QH_AB/
                0050      &                   QHydGwNm
                0051 # ifdef ALLOW_ADAMSBASHFORTH_3
                0052       _RL  QHydGwNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
                0053 # else /* ALLOW_ADAMSBASHFORTH_3 */
                0054       _RL  QHydGwNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0055 # endif /* ALLOW_ADAMSBASHFORTH_3 */
                0056 #endif /* ALLOW_QHYD_STAGGER_TS */