| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
89 |
NO PROCEDURE |
_RL GGL90diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
91 |
NO PROCEDURE |
& GGL90viscArU, GGL90viscArV, GGL90diffKr |
|
./pkg/ggl90/ggl90_calc.F |
710 |
GGL90_CALC |
GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrS(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
783 |
GGL90_CALC |
CALL DIAGNOSTICS_FILL( GGL90diffKr,'GGL90Kr ', |
|
./pkg/ggl90/ggl90_calc_diff.F |
54 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc_diff.F |
65 |
GGL90_CALC_DIFF |
& +( GGL90diffKr(i,j,kArg,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
52 |
GGL90_INIT_VARIA |
GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_output.F |
131 |
GGL90_OUTPUT |
CALL TIMEAVE_CUMULATE( GGL90diffKrtave, GGL90diffKr, |
|
./pkg/ggl90/ggl90_output.F |
95 |
GGL90_OUTPUT |
& GGL90diffKr, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
666 |
DO_OCEANIC_PHYS |
GGL90diffKr(i,j,k,bi,bj) = 0. _d 0 |