Symbol Description Uses
objf_kapredi 6


File Line number Procedure Code
./pkg/ecco/ecco_cost_init_varia.F 150 ECCO_COST_INIT_VARIA 
          objf_kapredi(bi,bj)    = 0. _d 0
./pkg/ecco/cost_internal_params.F 90 COST_INTERNAL_PARAMS 
     &     num_kapredi, objf_kapredi, maskC, myThid )
./pkg/ecco/ecco_cost.h 399 NO PROCEDURE 
     &     objf_kapredi,
./pkg/ecco/ecco_cost.h 500 NO PROCEDURE 
      _RL  objf_kapredi(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 488 ECCO_COST_FINAL 
     &         + mult_kapredi   * objf_kapredi(bi,bj)
./pkg/ecco/ecco_cost_final.F 626 ECCO_COST_FINAL 
          f_kapredi = f_kapredi + objf_kapredi(bi,bj)