| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
87 |
NO PROCEDURE |
_RL GGL90viscArU(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 |
740 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
779 |
GGL90_CALC |
CALL DIAGNOSTICS_FILL( GGL90viscArU,'GGL90ArU', |
|
./pkg/ggl90/ggl90_calc_visc.F |
50 |
GGL90_CALC_VISC |
& (GGL90viscArU(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_init_varia.F |
50 |
GGL90_INIT_VARIA |
GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 |
|
./pkg/ggl90/ggl90_output.F |
127 |
GGL90_OUTPUT |
CALL TIMEAVE_CUMULATE( GGL90viscArUtave, GGL90viscArU, |
|
./pkg/ggl90/ggl90_output.F |
91 |
GGL90_OUTPUT |
& GGL90viscArU, myIter, myThid ) |
|
./model/src/do_oceanic_phys.F |
664 |
DO_OCEANIC_PHYS |
GGL90viscArU(i,j,k,bi,bj) = 0. _d 0 |