Symbol Description Uses
objf_vwindsmoo 5


File Line number Procedure Code
./pkg/ecco/cost_forcing.F 231 COST_FORCING 
     &     objf_vwindm, objf_vwindsmoo,
./pkg/ecco/ecco_cost.h 396 NO PROCEDURE 
     &     objf_vwind,      objf_vwindm,      objf_vwindsmoo,
./pkg/ecco/ecco_cost.h 497 NO PROCEDURE 
      _RL  objf_vwindsmoo(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 471 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_vwindsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 589 ECCO_COST_FINAL 
          f_vwindsmoo  = f_vwindsmoo + objf_vwindsmoo(bi,bj)