Symbol Description Uses
objf_tmi 6


File Line number Procedure Code
./pkg/ecco/cost_hyd.F 146 COST_HYD 
     &     objf_tmi, num_tmi,
./pkg/ecco/ecco_cost.h 467 NO PROCEDURE 
     &     objf_sst, objf_tmi, objf_sss,
./pkg/ecco/ecco_cost.h 533 NO PROCEDURE 
      _RL  objf_tmi  (nsx,nsy)
./pkg/ecco/ecco_cost_final.F 397 ECCO_COST_FINAL 
     &         + mult_tmi     * objf_tmi(bi,bj)
./pkg/ecco/ecco_cost_final.F 549 ECCO_COST_FINAL 
          f_tmi  = f_tmi + objf_tmi(bi,bj)
./pkg/ecco/ecco_cost_init_varia.F 102 ECCO_COST_INIT_VARIA 
          objf_tmi(bi,bj)      = 0. _d 0