| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
139 |
GMREDI_CALC_PSI_B |
& +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
86 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*eddyPsiX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
87 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*eddyPsiX(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_init_varia.F |
46 |
TAUEDDY_INIT_VARIA |
eddyPsiX(i,j,k,bi,bj)=0. |
|
./model/src/taueddy_init_varia.F |
56 |
TAUEDDY_INIT_VARIA |
& eddyPsiX, nIter0, myThid ) |
|
./model/src/taueddy_init_varia.F |
63 |
TAUEDDY_INIT_VARIA |
CALL EXCH_UV_XYZ_RS(eddyPsiX,eddyPsiY,.TRUE.,myThid) |
|
./pkg/ctrl/ctrl_map_ini.F |
409 |
CTRL_MAP_INI |
eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) + |
|
./pkg/ctrl/ctrl_map_ini.F |
599 |
CTRL_MAP_INI |
CALL EXCH_UV_XYZ_RS(eddyPsiX,eddyPsiY,.TRUE.,myThid) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
265 |
CTRL_MAP_INI_ECCO |
& xx_edtaux_dummy, boundsVec, eddyPsiX, maskw, paramSmooth, |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
272 |
CTRL_MAP_INI_ECCO |
CALL EXCH_UV_XYZ_RS(eddyPsiX,eddyPsiY,.TRUE.,myThid) |
|
./pkg/ecco/cost_tau_eddy.F |
233 |
COST_TAU_EDDY |
tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj) |
|
./model/inc/FFIELDS.h |
120 |
NO PROCEDURE |
COMMON /eddypsiFFIELDS/ eddyPsiX,eddyPsiY |
|
./model/inc/FFIELDS.h |
121 |
NO PROCEDURE |
_RS eddyPsiX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |