Symbol Description Uses
fcthread_tmi 7


File Line number Procedure Code
./pkg/ecco/cost_tmi.F 103 COST_TMI 
      fcthread_tmi = 0. _d 0
./pkg/ecco/cost_tmi.F 156 COST_TMI 
            fcthread_tmi     = fcthread_tmi + fctile_tmi
./pkg/ecco/cost_tmi.F 180 COST_TMI 
        _GLOBAL_SUM_R8( fcthread_tmi   , myThid )
./pkg/ecco/cost_tmi.F 190 COST_TMI 
     &    ' (    TMI    ) = ',fcthread_tmi
./pkg/ecco/cost_tmi.F 206 COST_TMI 
      fcthread_tmi   = 0. _d 0
./pkg/ecco/cost_tmi.F 59 COST_TMI 
      _RL fcthread_tmi