Symbol Description Uses
f_swdown 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1082 ECCO_COST_FINAL 
     &       'f_swdown =', f_swdown, no_swdown
./pkg/ecco/ecco_cost_final.F 159 ECCO_COST_FINAL 
      f_swdown = 0. _d 0
./pkg/ecco/ecco_cost_final.F 443 ECCO_COST_FINAL 
          f_swdown = f_swdown + objf_swdown(bi,bj)
./pkg/ecco/ecco_cost_final.F 61 ECCO_COST_FINAL 
      _RL f_swflux, f_swdown
./pkg/ecco/ecco_cost_final.F 638 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_swdown , myThid )
./pkg/ecco/ecco_cost_final.F 861 ECCO_COST_FINAL 
     &     ' --> f_swdown  =',f_swdown