Symbol Description Uses
wbar 14



File Line number Procedure Code
./pkg/ecco/ecco_cost.h 135 NO PROCEDURE
      _RL wbar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 137 NO PROCEDURE
      _RL wbar
./pkg/ecco/ecco_cost.h 71 NO PROCEDURE
     &                    wbar,
./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 466 COST_AVERAGESFIELDS
                  wbar(i,j,k,bi,bj)  = (wbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 481 COST_AVERAGESFIELDS
        call ACTIVE_WRITE_XYZ( fnamewbar, wbar, monrec, optimcycle,
./pkg/ecco/cost_averagesfields.F 493 COST_AVERAGESFIELDS
                  wbar(i,j,k,bi,bj) = wbar (i,j,k,bi,bj) +
./pkg/ecco/cost_driftw.F 131 COST_DRIFTW
        call ACTIVE_READ_XYZ( fnamew, wbar, irec,
./pkg/ecco/cost_driftw.F 143 COST_DRIFTW
     &                  wbar(i,j,k,bi,bj)
./pkg/ecco/cost_driftw.F 155 COST_DRIFTW
        call ACTIVE_READ_XYZ( fnamew, wbar, irec,
./pkg/ecco/cost_driftw.F 168 COST_DRIFTW
     &                  wbar(i,j,k,bi,bj)
./pkg/ecco/cost_averagesinit.F 151 COST_AVERAGESINIT
                wbar(i,j,k,bi,bj) = 0. _d 0