Symbol Description Uses
objf_uwind 7


File Line number Procedure Code
./pkg/ecco/cost_uwind.F 127 COST_UWIND 
            objf_uwind(bi,bj) = objf_uwind(bi,bj) + fctile
./pkg/ecco/ecco_cost_final.F 231 ECCO_COST_FINAL 
     &            + mult_uwind   * objf_uwind(bi,bj)
./pkg/ecco/ecco_cost_final.F 262 ECCO_COST_FINAL 
          f_uwind = f_uwind + objf_uwind(bi,bj)
./pkg/ecco/ecco_cost.h 323 NO PROCEDURE 
     &                objf_uwind,
./pkg/ecco/ecco_cost.h 374 NO PROCEDURE 
      _RL  objf_uwind(nsx,nsy)
./pkg/ecco/ecco_cost_initvaria.F 116 ECCO_COST_INITVARIA 
          objf_uwind(bi,bj)    = 0. _d 0