Symbol Description Uses
objf_uwindsmoo 5


File Line number Procedure Code
./pkg/ecco/cost_forcing.F 136 COST_FORCING 
     &     objf_uwind, objf_uwindm, objf_uwindsmoo,
./pkg/ecco/ecco_cost.h 424 NO PROCEDURE 
     &     objf_uwind,      objf_uwindm,      objf_uwindsmoo,
./pkg/ecco/ecco_cost.h 521 NO PROCEDURE 
      _RL  objf_uwindsmoo(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 365 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_uwindsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 451 ECCO_COST_FINAL 
          f_uwindsmoo  = f_uwindsmoo + objf_uwindsmoo(bi,bj)