Symbol Description Uses
no_sshv4cost 8


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1142 ECCO_COST_FINAL 
        if (no_sshv4cost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 138 ECCO_COST_FINAL 
      _RL no_sshv4cost(NSSHV4COST)
./pkg/ecco/ecco_cost_final.F 1430 ECCO_COST_FINAL 
        if (no_sshv4cost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1434 ECCO_COST_FINAL 
     &    no_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 373 ECCO_COST_FINAL 
        no_sshv4cost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 708 ECCO_COST_FINAL 
          no_sshv4cost(num_var)=no_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 934 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_sshv4cost(num_var), myThid )