89 |
C ALLOW_KAPGM_CONTROL , ALLOW_KAPREDI_CONTROL and ALLOW_BOTTOMDRAG_CONTROL |
C ALLOW_KAPGM_CONTROL , ALLOW_KAPREDI_CONTROL and ALLOW_BOTTOMDRAG_CONTROL |
90 |
C have been moved to header file "CTRL_FIELDS.h" |
C have been moved to header file "CTRL_FIELDS.h" |
91 |
|
|
|
#ifdef ALLOW_EDDYPSI |
|
|
C uMean :: The mean zonal velocity (residual velocity less the bolus velocity) |
|
|
C vMean :: The mean meridional velocity (residual velocity less the bolus velocity) |
|
|
C tauxEddy :: The eddy stress used in the momentum equation of a residual model |
|
|
C tauyEddy :: The eddy stress used in the momentum equation of a residual model |
|
|
|
|
|
COMMON /DYNVARS_EDDYPSI/ tauxEddy,tauyEddy, uMean, vMean |
|
|
|
|
|
_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) |
|
|
_RL tauxEddy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
|
_RL tauyEddy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
|
#endif |
|
|
|
|
92 |
#ifdef ALLOW_BL79_LAT_VARY |
#ifdef ALLOW_BL79_LAT_VARY |
93 |
C BL79LatArray :: is used for latitudinal dependence of |
C BL79LatArray :: is used for latitudinal dependence of |
94 |
C BryanLewis79 vertical diffusivity |
C BryanLewis79 vertical diffusivity |