Symbol Description Uses
fcthread_ctds 7


File Line number Procedure Code
./pkg/ecco/cost_ctds.F 113 COST_CTDS 
      fcthread_ctds = 0. _d 0
./pkg/ecco/cost_ctds.F 191 COST_CTDS 
            fcthread_ctds    = fcthread_ctds    + fctile_ctds
./pkg/ecco/cost_ctds.F 216 COST_CTDS 
        _GLOBAL_SUM_R8( fcthread_ctds , myThid )
./pkg/ecco/cost_ctds.F 226 COST_CTDS 
     &    ' ( CTD sal. )  = ',fcthread_ctds
./pkg/ecco/cost_ctds.F 242 COST_CTDS 
      fcthread_ctds = 0. _d 0
./pkg/ecco/cost_ctds.F 58 COST_CTDS 
      _RL fcthread_ctds