Symbol Description Uses
wcurrent 9



File Line number Procedure Code
./verification/global1x1_tot/code/ecco_cost_weights.F 282 ECCO_COST_WEIGHTS
            wcurrent(k,bi,bj) = wvi(k)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 280 ECCO_COST_WEIGHTS
            wcurrent(k,bi,bj) = wvi(k)
./pkg/ecco/cost_obcs_ageos.F 270 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 337 COST_OBCS_AGEOS
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 401 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 464 COST_OBCS_AGEOS
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/ecco_cost.h 1031 NO PROCEDURE
     &                      wcurrent,wcurrent2,
./pkg/ecco/ecco_cost.h 1080 NO PROCEDURE
      _RL wcurrent(                              nr,nsx,nsy)
./pkg/ecco/ecco_cost_weights.F 296 ECCO_COST_WEIGHTS
            wcurrent(k,bi,bj) = wvi(k)