Symbol Description Uses
wcurrent 8



File Line number Procedure Code
./pkg/ecco/cost_obcs_ageos.F 261 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 323 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 383 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 442 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/ecco_cost_weights.F 282 ECCO_COST_WEIGHTS
            wcurrent(k,bi,bj) = wvi(k)
./pkg/ecco/ecco_cost.h 711 NO PROCEDURE
     &                      wcurrent,wcurrent2,
./pkg/ecco/ecco_cost.h 747 NO PROCEDURE
      _RL wcurrent(                              nr,nsx,nsy)
./verification/global1x1_tot/code/ecco_cost_weights.F 286 ECCO_COST_WEIGHTS
            wcurrent(k,bi,bj) = wvi(k)