93 |
cph |
cph |
94 |
cph) |
cph) |
95 |
|
|
96 |
C diagnostic variable: holds phiHyd at the rigid surface |
C diagnostic variables: |
97 |
C (bottom in z-coordinates, top in p-coordinates) |
C phiHydLow :: Phi-Hydrostatic at r-lower boundary |
98 |
COMMON /DYNVARS_R_DIAG/ phiHydLow |
C (bottom in z-coordinates, top in p-coordinates) |
99 |
|
C totPhiHyd :: total hydrostatic Potential (anomaly, for now), |
100 |
|
C at cell center level ; includes surface contribution. |
101 |
|
C (for diagnostic + used in Z-coord with EOS_funct_P) |
102 |
|
COMMON /DYNVARS_DIAG/ phiHydLow, totPhiHyd |
103 |
_RL phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
104 |
|
_RL totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |