| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
79 |
NO PROCEDURE |
_RL GGL90viscArV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
83 |
NO PROCEDURE |
& GGL90viscArU, GGL90viscArV, GGL90diffKr |
|
./pkg/ggl90/ggl90_calc.F |
650 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
661 |
GGL90_CALC |
CALL DIAGNOSTICS_FILL( GGL90viscArV,'GGL90ArV', |
|
./pkg/ggl90/ggl90_calc_visc.F |
57 |
GGL90_CALC_VISC |
& (GGL90viscArV(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_init_varia.F |
41 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_output.F |
125 |
GGL90_OUTPUT |
CALL TIMEAVE_CUMULATE( GGL90viscArVtave, GGL90viscArV, |
|
./pkg/ggl90/ggl90_output.F |
89 |
GGL90_OUTPUT |
& GGL90viscArV, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
414 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |