| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
260 |
NO PROCEDURE |
_RL K3D(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr,nSx,nSy) |
|
./pkg/gmredi/GMREDI.h |
269 |
NO PROCEDURE |
COMMON /GM_K3D/ K3D, modesC, modesW, modesS, Rdef |
|
./pkg/gmredi/gmredi_calc_tensor.F |
547 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
561 |
GMREDI_CALC_TENSOR |
& + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
715 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
759 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
783 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
916 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
960 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))*GM_advect |
|
./pkg/gmredi/gmredi_calc_tensor.F |
984 |
GMREDI_CALC_TENSOR |
& +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj)) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
105 |
GMREDI_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_init_varia.F |
67 |
GMREDI_INIT_VARIA |
K3D(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/gmredi/gmredi_k3d.F |
1091 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
1134 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_constK |
|
./pkg/gmredi/gmredi_k3d.F |
1142 |
GMREDI_K3D |
& CALL DIAGNOSTICS_FILL(K3D, 'GM_K3D_T',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
576 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
579 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
584 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_gamma*urms(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
589 |
GMREDI_K3D |
IF (K3D(i,j,k,bi,bj).LT.GM_K3D_smallK) |
|
./pkg/gmredi/gmredi_k3d.F |
590 |
GMREDI_K3D |
& K3D(i,j,k,bi,bj) = GM_K3D_smallK |
|
./pkg/gmredi/gmredi_k3d.F |
591 |
GMREDI_K3D |
IF (K3D(i,j,k,bi,bj).GT.GM_maxK3D) |
|
./pkg/gmredi/gmredi_k3d.F |
592 |
GMREDI_K3D |
& K3D(i,j,k,bi,bj) = GM_maxK3D |
|
./pkg/gmredi/gmredi_k3d.F |
676 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
697 |
GMREDI_K3D |
KPV(i,j,k) = K3D(i,j,k,bi,bj) |