Symbol Description Uses
wvel Temp. for w 3


File Line number Procedure Code
./pkg/ecco/cost_averagesfields.F 452 COST_AVERAGESFIELDS 
                  wbar(i,j,k,bi,bj) = wvel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 467 COST_AVERAGESFIELDS 
     &                                  wvel(i,j,k,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 494 COST_AVERAGESFIELDS 
     &                                wvel(i,j,k,bi,bj)