Symbol Description Uses
f_swdown 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1016 ECCO_COST_FINAL 
     &     ' --> f_swdown  =',f_swdown
./pkg/ecco/ecco_cost_final.F 1277 ECCO_COST_FINAL 
     &       'f_swdown =', f_swdown, no_swdown
./pkg/ecco/ecco_cost_final.F 194 ECCO_COST_FINAL 
      f_swdown = 0. _d 0
./pkg/ecco/ecco_cost_final.F 523 ECCO_COST_FINAL 
          f_swdown = f_swdown + objf_swdown(bi,bj)
./pkg/ecco/ecco_cost_final.F 760 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_swdown , myThid )
./pkg/ecco/ecco_cost_final.F 76 ECCO_COST_FINAL 
      _RL f_swflux, f_swdown