Symbol Description Uses
no_gencost 8


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 108 ECCO_COST_FINAL 
      _RL no_gencost(NGENCOST)
./pkg/ecco/ecco_cost_final.F 1201 ECCO_COST_FINAL 
        if (no_gencost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1207 ECCO_COST_FINAL 
     &    no_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 308 ECCO_COST_FINAL 
        no_gencost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 589 ECCO_COST_FINAL 
          no_gencost(num_var)=no_gencost(num_var)
./pkg/ecco/ecco_cost_final.F 782 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_gencost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 957 ECCO_COST_FINAL 
        if (no_gencost(num_var).GT.0) then