File |
Line number |
Procedure |
Code |
./pkg/gmredi/GMREDI.h |
255 |
NO PROCEDURE |
_RL VisbeckK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/gmredi/GMREDI.h |
256 |
NO PROCEDURE |
COMMON /GM_Visbeck/ VisbeckK |
./pkg/gmredi/gmredi_calc_psi_b.F |
160 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_psi_b.F |
183 |
GMREDI_CALC_PSI_B |
& +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_tensor.F |
1002 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect |
./pkg/gmredi/gmredi_calc_tensor.F |
1031 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
1081 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( Visbeck_K_T, VisbeckK, 1, |
./pkg/gmredi/gmredi_calc_tensor.F |
154 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
396 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
484 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
505 |
GMREDI_CALC_TENSOR |
VisbeckK(i,j,bi,bj)= |
./pkg/gmredi/gmredi_calc_tensor.F |
506 |
GMREDI_CALC_TENSOR |
& MIN( MAX( VisbeckK(i,j,bi,bj), GM_Visbeck_minVal_K ), |
./pkg/gmredi/gmredi_calc_tensor.F |
555 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx) |
./pkg/gmredi/gmredi_calc_tensor.F |
574 |
GMREDI_CALC_TENSOR |
& + VisbeckK(i,j,bi,bj) |
./pkg/gmredi/gmredi_calc_tensor.F |
732 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
./pkg/gmredi/gmredi_calc_tensor.F |
784 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect |
./pkg/gmredi/gmredi_calc_tensor.F |
813 |
GMREDI_CALC_TENSOR |
& +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0 |
./pkg/gmredi/gmredi_calc_tensor.F |
950 |
GMREDI_CALC_TENSOR |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
./pkg/gmredi/gmredi_diagnostics_fill.F |
51 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid) |
./pkg/gmredi/gmredi_init_varia.F |
64 |
GMREDI_INIT_VARIA |
VisbeckK(i,j,bi,bj) = 0. _d 0 |
./pkg/gmredi/gmredi_xtransport.F |
139 |
GMREDI_XTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
./pkg/gmredi/gmredi_ytransport.F |
138 |
GMREDI_YTRANSPORT |
& +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj)) |
./model/src/do_oceanic_phys.F |
711 |
DO_OCEANIC_PHYS |
VisbeckK(i,j,bi,bj) = 0. _d 0 |