Symbol Description Uses
no_usercost 8


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 109 ECCO_COST_FINAL 
      _RL no_usercost(NUSERCOST)
./pkg/ecco/ecco_cost_final.F 1213 ECCO_COST_FINAL 
        if (no_usercost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1217 ECCO_COST_FINAL 
     &    no_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 313 ECCO_COST_FINAL 
        no_usercost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 595 ECCO_COST_FINAL 
          no_usercost(num_var)=no_usercost(num_var)
./pkg/ecco/ecco_cost_final.F 787 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_usercost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 966 ECCO_COST_FINAL 
        if (no_usercost(num_var).GT.0) then