| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
215 |
NO PROCEDURE |
_RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
218 |
NO PROCEDURE |
COMMON /GM_Wtensor/ Kwx,Kwy,Kwz |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1073 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwx_T, Kwx, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1152 |
GMREDI_CALC_TENSOR_DUMMY |
Kwx(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
233 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
561 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
64 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
95 |
GMREDI_DIAGNOSTICS_FILL |
& Kwx(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
48 |
GMREDI_INIT_VARIA |
Kwx(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_rtransport.F |
158 |
GMREDI_RTRANSPORT |
& *( Kwx(i,j,k,bi,bj)*dTdx(i,j) |
|
./pkg/layers/layers_fluxcalc.F |
227 |
LAYERS_FLUXCALC |
& ( rA(i-1,j,bi,bj)*Kwx(i-1,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
228 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
230 |
LAYERS_FLUXCALC |
& - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
231 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj) |
|
./pkg/longstep/longstep_average.F |
108 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwxCount, LS_Kwx, Kwx, Nr, myThid) |
|
./pkg/offline/offline_get_diffus.F |
107 |
OFFLINE_GET_DIFFUS |
Kwx(i,j,k,bi,bj) = bWght*gmkx0(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
695 |
DO_OCEANIC_PHYS |
Kwx(i,j,k,bi,bj) = 0. _d 0 |