Symbol Description Uses
f_ctds 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 1154 ECCO_COST_FINAL 
     &     ' --> f_ctds    =',f_ctds
./pkg/ecco/ecco_cost_final.F 1467 ECCO_COST_FINAL 
     &       'f_ctds =', f_ctds, no_ctds
./pkg/ecco/ecco_cost_final.F 251 ECCO_COST_FINAL 
      f_ctds = 0. _d 0
./pkg/ecco/ecco_cost_final.F 610 ECCO_COST_FINAL 
          f_ctds = f_ctds + objf_ctds(bi,bj)
./pkg/ecco/ecco_cost_final.F 867 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_ctds , myThid )