File |
Line number |
Procedure |
Code |
./pkg/ggl90/GGL90.h |
88 |
NO PROCEDURE |
_RL GGL90viscArV(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 |
770 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
./pkg/ggl90/ggl90_calc.F |
781 |
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 |
51 |
GGL90_INIT_VARIA |
GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 |
./pkg/ggl90/ggl90_output.F |
129 |
GGL90_OUTPUT |
CALL TIMEAVE_CUMULATE( GGL90viscArVtave, GGL90viscArV, |
./pkg/ggl90/ggl90_output.F |
93 |
GGL90_OUTPUT |
& GGL90viscArV, myIter, myThid ) |
./model/src/do_oceanic_phys.F |
665 |
DO_OCEANIC_PHYS |
GGL90viscArV(i,j,k,bi,bj) = 0. _d 0 |