| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
91 |
NO PROCEDURE |
_RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
92 |
NO PROCEDURE |
COMMON /GM_Wtensor/ Kwx,Kwy,Kwz |
|
./pkg/gmredi/gmredi_calc_diff.F |
58 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
63 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
75 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_diff.F |
80 |
GMREDI_CALC_DIFF |
KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
254 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
413 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
507 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( kapredi(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
509 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= ( GM_isopycK |
|
./pkg/gmredi/gmredi_calc_tensor.F |
514 |
GMREDI_CALC_TENSOR |
& )*Kwz(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
923 |
GMREDI_CALC_TENSOR |
CALL TIMEAVE_CUMULATE( GM_Kwz_T, Kwz, Nr, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
994 |
GMREDI_CALC_TENSOR_DUMMY |
Kwz(i,j,k,bi,bj) = 0.0 |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
66 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz ',0,Nr,1,bi,bj,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
49 |
GMREDI_INIT_VARIA |
Kwz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/kpp/kpp_output.F |
229 |
KPP_OUTPUT |
& +tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_output.F |
382 |
KPP_OUTPUT |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_ptr.F |
106 |
KPP_TRANSPORT_PTR |
& + tmpFac*Kwz(i,j,k,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
88 |
KPP_TRANSPORT_S |
& *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/kpp/kpp_transport_t.F |
78 |
KPP_TRANSPORT_T |
& *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) ) |
|
./pkg/longstep/longstep_average.F |
110 |
LONGSTEP_AVERAGE |
CALL LONGSTEP_FILL_3D(LS_KwzCount, LS_Kwz, Kwz, Nr, myThid) |
|
./pkg/offline/offline_fields_load.F |
359 |
OFFLINE_FIELDS_LOAD |
Kwz(i,j,k,bi,bj) = bWght*gmkz0(i,j,k,bi,bj) |
|
./model/src/do_oceanic_phys.F |
391 |
DO_OCEANIC_PHYS |
Kwz(i,j,k,bi,bj) = 0. _d 0 |