Symbol Description Uses
objf_uwind 6



File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 142 ECCO_COST_INIT_VARIA
          objf_uwind(bi,bj)    = 0. _d 0
./pkg/ecco/cost_forcing.F 186 COST_FORCING
     &     objf_uwind, 
./pkg/ecco/ecco_cost.h 395 NO PROCEDURE
     &     objf_uwind,      objf_uwindm,      objf_uwindsmoo,
./pkg/ecco/ecco_cost.h 470 NO PROCEDURE
      _RL  objf_uwind(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 468 ECCO_COST_FINAL
     &         + mult_uwind   * ( objf_uwind(bi,bj)+objf_uwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 570 ECCO_COST_FINAL
          f_uwind  = f_uwind + objf_uwind(bi,bj)