Symbol Description Uses
f_swdownm 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1128 ECCO_COST_FINAL 
     &     ' --> f_swdownm  =',f_swdownm
./pkg/ecco/ecco_cost_final.F 1423 ECCO_COST_FINAL 
     &       'f_swdownm  =', f_swdownm, no_swdownm
./pkg/ecco/ecco_cost_final.F 229 ECCO_COST_FINAL 
      f_swdownm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 585 ECCO_COST_FINAL 
          f_swdownm  = f_swdownm + objf_swdownm(bi,bj)
./pkg/ecco/ecco_cost_final.F 844 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_swdownm , myThid )
./pkg/ecco/ecco_cost_final.F 92 ECCO_COST_FINAL 
      _RL f_swfluxm, f_swdownm