Symbol Description Uses
objf_vwind 6



File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 143 ECCO_COST_INIT_VARIA
          objf_vwind(bi,bj)    = 0. _d 0
./pkg/ecco/cost_forcing.F 228 COST_FORCING
     &     objf_vwind, 
./pkg/ecco/ecco_cost.h 396 NO PROCEDURE
     &     objf_vwind,      objf_vwindm,      objf_vwindsmoo,
./pkg/ecco/ecco_cost.h 471 NO PROCEDURE
      _RL  objf_vwind(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 470 ECCO_COST_FINAL
     &         + mult_vwind   * ( objf_vwind(bi,bj)+objf_vwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 571 ECCO_COST_FINAL
          f_vwind  = f_vwind + objf_vwind(bi,bj)