Symbol Description Uses
no_gencost 8


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1124 ECCO_COST_FINAL 
        if (no_gencost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 136 ECCO_COST_FINAL 
      _RL no_gencost(NGENCOST)
./pkg/ecco/ecco_cost_final.F 1408 ECCO_COST_FINAL 
        if (no_gencost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1414 ECCO_COST_FINAL 
     &    no_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 363 ECCO_COST_FINAL 
        no_gencost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 696 ECCO_COST_FINAL 
          no_gencost(num_var)=no_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 924 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_gencost(num_var), myThid )