Symbol Description Uses
f_swdown 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1108 ECCO_COST_FINAL 
     &     ' --> f_swdown  =',f_swdown
./pkg/ecco/ecco_cost_final.F 1405 ECCO_COST_FINAL 
     &       'f_swdown =', f_swdown, no_swdown
./pkg/ecco/ecco_cost_final.F 220 ECCO_COST_FINAL 
      f_swdown = 0. _d 0
./pkg/ecco/ecco_cost_final.F 576 ECCO_COST_FINAL 
          f_swdown = f_swdown + objf_swdown(bi,bj)
./pkg/ecco/ecco_cost_final.F 835 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_swdown , myThid )
./pkg/ecco/ecco_cost_final.F 88 ECCO_COST_FINAL 
      _RL f_swflux, f_swdown