Symbol Description Uses
fctile_tmi 8


File Line number Procedure Code
./pkg/ecco/cost_tmi.F 119 COST_TMI 
            fctile_tmi = 0. _d 0
./pkg/ecco/cost_tmi.F 146 COST_TMI 
                   fctile_tmi = fctile_tmi +
./pkg/ecco/cost_tmi.F 156 COST_TMI 
            fcthread_tmi     = fcthread_tmi + fctile_tmi
./pkg/ecco/cost_tmi.F 157 COST_TMI 
            objf_tmi(bi,bj)  = objf_tmi(bi,bj)  + fctile_tmi
./pkg/ecco/cost_tmi.F 170 COST_TMI 
     &        fctile_tmi
./pkg/ecco/cost_tmi.F 205 COST_TMI 
      fctile_tmi     = 0. _d 0
./pkg/ecco/cost_tmi.F 58 COST_TMI 
      _RL fctile_tmi