Symbol Description Uses
objf_uwindsmoo 5


File Line number Procedure Code
./pkg/ecco/cost_forcing.F 189 COST_FORCING 
     &     objf_uwindm, objf_uwindsmoo,
./pkg/ecco/ecco_cost.h 395 NO PROCEDURE 
     &     objf_uwind,      objf_uwindm,      objf_uwindsmoo,
./pkg/ecco/ecco_cost.h 496 NO PROCEDURE 
      _RL  objf_uwindsmoo(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 469 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_uwindsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 588 ECCO_COST_FINAL 
          f_uwindsmoo  = f_uwindsmoo + objf_uwindsmoo(bi,bj)