Symbol Description Uses
no_diffkr 6



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 191 ECCO_COST_FINAL
      no_diffkr  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 332 ECCO_COST_FINAL
          no_diffkr = no_diffkr + num_diffkr(bi,bj)
./pkg/ecco/ecco_cost_final.F 443 ECCO_COST_FINAL
      _GLOBAL_SUM_R8( no_diffkr , myThid )
./pkg/ecco/ecco_cost_final.F 615 ECCO_COST_FINAL
        write(ifc,*) 'f_diffkr=', f_diffkr, no_diffkr
./pkg/ecco/ecco_cost_final.F 76 ECCO_COST_FINAL
      _RL no_kapgm, no_diffkr