| File |
Line number |
Procedure |
Code |
|
./model/src/do_oceanic_phys.F |
204 |
DO_OCEANIC_PHYS |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_init.F |
51 |
GMREDI_INIT |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_xtransport.F |
147 |
GMREDI_XTRANSPORT |
df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j) |
|
./pkg/gmredi/gmredi_output.F |
61 |
GMREDI_OUTPUT |
CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid) |
|
./pkg/gmredi/GMREDI.h |
83 |
NO PROCEDURE |
_RL Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
85 |
NO PROCEDURE |
COMMON /GM_UVtensor/ Kuz,Kvz |
|
./pkg/gmredi/GMREDI.h |
87 |
NO PROCEDURE |
_RL Kuz,Kvz |
|
./pkg/gmredi/GMREDI.h |
88 |
NO PROCEDURE |
PARAMETER(Kuz=1.,Kvz=1.) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
166 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
398 |
GMREDI_CALC_TENSOR |
Kuz(i,j,k,bi,bj) = |
|
./pkg/gmredi/gmredi_calc_tensor.F |
551 |
GMREDI_CALC_TENSOR |
CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz ',0,Nr,1,bi,bj,myThid) |