21 |
C-- COMMON /NH_VARS_R/ REAL NH state variables |
C-- COMMON /NH_VARS_R/ REAL NH state variables |
22 |
C phi_nh :: Non-hydrostatic potential (=NH-Pressure/rhoConst) |
C phi_nh :: Non-hydrostatic potential (=NH-Pressure/rhoConst) |
23 |
C gX, gxNm1 :: Time tendencies at current and previous time levels. |
C gX, gxNm1 :: Time tendencies at current and previous time levels. |
24 |
|
C viscA?_W :: Horizontal variable viscosities |
25 |
|
|
26 |
COMMON /NH_VARS_R/ |
COMMON /NH_VARS_R/ |
27 |
& phi_nh, |
& phi_nh, |
28 |
& gW, gwNm1 |
& gW, gwNm1, |
29 |
|
& viscAh_W, viscA4_W |
30 |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
31 |
_RL gW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL gW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
32 |
_RL gwNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL gwNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
33 |
|
_RL viscAh_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
34 |
|
_RL viscA4_W(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
35 |
|
|
36 |
#endif /* ALLOW_NONHYDROSTATIC */ |
#endif /* ALLOW_NONHYDROSTATIC */ |