| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
122 |
NO PROCEDURE |
_RL GM_PsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
123 |
NO PROCEDURE |
COMMON /GM_BOLUS/ GM_PsiX,GM_PsiY |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
145 |
GMREDI_CALC_PSI_B |
GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
265 |
GMREDI_CALC_TENSOR |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
935 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiYtave, GM_PsiY, Nr, |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
70 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
71 |
GMREDI_CALC_UVFLOW |
& - GM_PsiY(i,j, k, bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
53 |
GMREDI_CALC_WFLOW |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
54 |
GMREDI_CALC_WFLOW |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
70 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
60 |
GMREDI_INIT_VARIA |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_rtransport.F |
155 |
GMREDI_RTRANSPORT |
& +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
156 |
GMREDI_RTRANSPORT |
& -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj) |
|
./pkg/gmredi/gmredi_ytransport.F |
172 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
173 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_ytransport.F |
199 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
200 |
GMREDI_YTRANSPORT |
& -GM_PsiY(i,j,k,bi,bj) ) |
|
./model/src/do_oceanic_phys.F |
402 |
DO_OCEANIC_PHYS |
GM_PsiY(i,j,k,bi,bj) = 0. _d 0 |
|
./model/src/taueddy_external_forcing.F |
173 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*GM_PsiY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
174 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*GM_PsiY(i,j,kp1,bi,bj)) |