| File |
Line number |
Procedure |
Code |
|
./model/src/calc_eddy_stress.F |
71 |
CALC_EDDY_STRESS |
tauxEddy(i,j,k,bi,bj) = rhoConst*coriU*psiy |
|
./model/src/calc_eddy_stress.F |
99 |
CALC_EDDY_STRESS |
CALL DIAGNOSTICS_FILL(tauxEddy, 'TAUXEDDY',0,Nr,0,1,1,myThid) |
|
./model/src/taueddy_tendency_apply.F |
82 |
TAUEDDY_TENDENCY_APPLY_U |
& ( maskm1*_maskW(i,j, k ,bi,bj)*tauxEddy(i,j, k ,bi,bj) |
|
./model/src/taueddy_tendency_apply.F |
83 |
TAUEDDY_TENDENCY_APPLY_U |
& - maskp1*_maskW(i,j,kp1,bi,bj)*tauxEddy(i,j,kp1,bi,bj) ) |
|
./model/inc/DYNVARS.h |
102 |
NO PROCEDURE |
_RL tauxEddy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/inc/DYNVARS.h |
98 |
NO PROCEDURE |
COMMON /DYNVARS_EDDYPSI/ tauxEddy,tauyEddy, uMean, vMean |