Symbol Description Uses
no_kapredi 6


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 130 ECCO_COST_FINAL 
      _RL no_kapgm, no_kapredi, no_diffkr
./pkg/ecco/ecco_cost_final.F 1381 ECCO_COST_FINAL 
     &       'f_kapredi =', f_kapredi, no_kapredi
./pkg/ecco/ecco_cost_final.F 348 ECCO_COST_FINAL 
      no_kapredi   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 676 ECCO_COST_FINAL 
          no_kapredi = no_kapredi + num_kapredi(bi,bj)
./pkg/ecco/ecco_cost_final.F 910 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( no_kapredi , myThid )