Symbol Description Uses
f_gencost 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 103 ECCO_COST_FINAL 
      _RL f_gencost(NGENCOST)
./pkg/ecco/ecco_cost_final.F 1126 ECCO_COST_FINAL 
     &     ' --> f_gencost =',f_gencost(num_var),
./pkg/ecco/ecco_cost_final.F 1413 ECCO_COST_FINAL 
     &    f_gencost(num_var),
./pkg/ecco/ecco_cost_final.F 262 ECCO_COST_FINAL 
        f_gencost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 594 ECCO_COST_FINAL 
          f_gencost(num_var)=f_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 827 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(f_gencost(num_var), myThid )