Symbol Description Uses
no_usercost 8


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1133 ECCO_COST_FINAL 
        if (no_usercost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 137 ECCO_COST_FINAL 
      _RL no_usercost(NUSERCOST)
./pkg/ecco/ecco_cost_final.F 1420 ECCO_COST_FINAL 
        if (no_usercost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1424 ECCO_COST_FINAL 
     &    no_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 368 ECCO_COST_FINAL 
        no_usercost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 702 ECCO_COST_FINAL 
          no_usercost(num_var)=no_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 929 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_usercost(num_var), myThid )