Symbol Description Uses
wcurrent 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 330 ECCO_COST_WEIGHTS
            wcurrent(k,bi,bj) = wvi(k)
./pkg/ecco/cost_obcs_ageos.F 281 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 353 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 421 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 488 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/ecco_cost.h 1000 NO PROCEDURE
     &                      wcurrent,wcurrent2,
./pkg/ecco/ecco_cost.h 1056 NO PROCEDURE
      _RL wcurrent(                              nr,nsx,nsy)