Symbol Description Uses
no_sshv4cost 8


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 110 ECCO_COST_FINAL 
      _RL no_sshv4cost(NSSHV4COST)
./pkg/ecco/ecco_cost_final.F 1223 ECCO_COST_FINAL 
        if (no_sshv4cost(num_var).GT.0) then
./pkg/ecco/ecco_cost_final.F 1227 ECCO_COST_FINAL 
     &    no_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 318 ECCO_COST_FINAL 
        no_sshv4cost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 601 ECCO_COST_FINAL 
          no_sshv4cost(num_var)=no_sshv4cost(num_var)
./pkg/ecco/ecco_cost_final.F 792 ECCO_COST_FINAL 
        _GLOBAL_SUM_RL(no_sshv4cost(num_var), myThid )
./pkg/ecco/ecco_cost_final.F 975 ECCO_COST_FINAL 
        if (no_sshv4cost(num_var).GT.0) then