Symbol Description Uses
fcthread_xbt 7


File Line number Procedure Code
./pkg/ecco/cost_xbt.F 119 COST_XBT 
      fcthread_xbt = 0. _d 0
./pkg/ecco/cost_xbt.F 200 COST_XBT 
            fcthread_xbt    = fcthread_xbt    + fctile_xbt
./pkg/ecco/cost_xbt.F 225 COST_XBT 
        _GLOBAL_SUM_RL( fcthread_xbt , myThid )
./pkg/ecco/cost_xbt.F 235 COST_XBT 
     &    ' ( XBT temp. )  = ',fcthread_xbt
./pkg/ecco/cost_xbt.F 251 COST_XBT 
      fcthread_xbt = 0. _d 0
./pkg/ecco/cost_xbt.F 60 COST_XBT 
      _RL fcthread_xbt