Symbol Description Uses
f_tmi 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 102 ECCO_COST_FINAL 
      _RL f_sst, f_tmi, f_sss, f_bp, f_atl, f_ctdt, f_ctds
./pkg/ecco/ecco_cost_final.F 1056 ECCO_COST_FINAL 
     &     ' --> f_tmi     =',f_tmi
./pkg/ecco/ecco_cost_final.F 1455 ECCO_COST_FINAL 
     &       'f_tmi =', f_tmi, no_tmi
./pkg/ecco/ecco_cost_final.F 246 ECCO_COST_FINAL 
      f_tmi = 0. _d 0
./pkg/ecco/ecco_cost_final.F 602 ECCO_COST_FINAL 
          f_tmi  = f_tmi + objf_tmi(bi,bj)
./pkg/ecco/ecco_cost_final.F 861 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_tmi , myThid )