Symbol Description Uses
f_swdownsmoo 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1054 ECCO_COST_FINAL
     &     ' --> f_swdownsmoo  =',f_swdownsmoo
./pkg/ecco/ecco_cost_final.F 1313 ECCO_COST_FINAL
     &       'f_swdownsmoo =', f_swdownsmoo, no_swdown
./pkg/ecco/ecco_cost_final.F 212 ECCO_COST_FINAL
      f_swdownsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 541 ECCO_COST_FINAL
          f_swdownsmoo = f_swdownsmoo + objf_swdownsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 778 ECCO_COST_FINAL
      _GLOBAL_SUM_RL( f_swdownsmoo , myThid )
./pkg/ecco/ecco_cost_final.F 84 ECCO_COST_FINAL
      _RL f_swfluxsmoo, f_swdownsmoo