Symbol Description Uses
wcurrent 7



File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 267 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 339 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 407 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 474 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/ecco_cost.h 1155 NO PROCEDURE
     &                      wcurrent,wcurrent2,
./pkg/ecco/ecco_cost.h 1213 NO PROCEDURE
      _RL wcurrent(                              nr,nsx,nsy)
./pkg/ecco/ecco_cost_weights.F 313 ECCO_COST_WEIGHTS
            wcurrent(k,bi,bj) = wvi(k)