| File |
Line number |
Procedure |
Code |
|
./model/src/do_oceanic_phys.F |
208 |
DO_OCEANIC_PHYS |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_wflow.F |
48 |
GMREDI_CALC_WFLOW |
& +( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_wflow.F |
49 |
GMREDI_CALC_WFLOW |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_init.F |
59 |
GMREDI_INIT |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
161 |
GMREDI_XTRANSPORT |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
55 |
GMREDI_CALC_UVFLOW |
& + dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
56 |
GMREDI_CALC_UVFLOW |
& -GM_PsiX(i,j,k,bi,bj) ) |
|
./pkg/gmredi/GMREDI.h |
94 |
NO PROCEDURE |
_RL GM_PsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
96 |
NO PROCEDURE |
COMMON /GM_BOLUS/ GM_PsiX,GM_PsiY |
|
./pkg/gmredi/gmredi_rtransport.F |
139 |
GMREDI_RTRANSPORT |
& dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_rtransport.F |
140 |
GMREDI_RTRANSPORT |
& -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
170 |
GMREDI_CALC_TENSOR |
GM_PsiX(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
524 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_PsiXtave, GM_PsiX, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
560 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
127 |
GMREDI_CALC_PSI_B |
GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j) |