49 |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
50 |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
51 |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
#ifdef ALLOW_EDDYPSI |
|
|
_RL uMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
|
_RL vMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
|
#endif |
|
52 |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
53 |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
54 |
_RL gU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL gU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
99 |
#endif |
#endif |
100 |
cph) |
cph) |
101 |
#ifdef ALLOW_EDDYPSI |
#ifdef ALLOW_EDDYPSI |
102 |
COMMON /DYNVARS_EDDYPSI/ tauxEddy,tauyEddy |
C uMean :: The mean zonal velocity (residual velocity less the bolus velocity) |
103 |
|
C vMean :: The mean meridional velocity (residual velocity less the bolus velocity) |
104 |
|
C tauxEddy :: The eddy stress used in the momentum equation of a residual model |
105 |
|
C tauyEddy :: The eddy stress used in the momentum equation of a residual model |
106 |
|
|
107 |
|
COMMON /DYNVARS_EDDYPSI/ tauxEddy,tauyEddy, uMean, vMean |
108 |
|
|
109 |
|
_RL uMean( 1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
110 |
|
_RL vMean( 1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
111 |
_RL tauxEddy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL tauxEddy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
112 |
_RL tauyEddy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL tauyEddy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
113 |
#endif |
#endif |