Symbol Description Uses
no_kapredi 6


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 104 ECCO_COST_FINAL 
      _RL no_kapgm, no_kapredi, no_diffkr
./pkg/ecco/ecco_cost_final.F 1174 ECCO_COST_FINAL 
     &       'f_kapredi =', f_kapredi, no_kapredi
./pkg/ecco/ecco_cost_final.F 294 ECCO_COST_FINAL 
      no_kapredi   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 573 ECCO_COST_FINAL 
          no_kapredi = no_kapredi + num_kapredi(bi,bj)
./pkg/ecco/ecco_cost_final.F 768 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( no_kapredi , myThid )