Symbol Description Uses
f_ctdt 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 170 ECCO_COST_FINAL
      f_ctdt = 0. _d 0 
./pkg/ecco/ecco_cost_final.F 397 ECCO_COST_FINAL
          f_ctdt = f_ctdt + objf_ctdt(bi,bj)
./pkg/ecco/ecco_cost_final.F 551 ECCO_COST_FINAL
      _GLOBAL_SUM_R8( f_ctdt , myThid )
./pkg/ecco/ecco_cost_final.F 68 ECCO_COST_FINAL
      _RL f_sst, f_tmi, f_sss, f_atl, f_ctdt, f_ctds
./pkg/ecco/ecco_cost_final.F 752 ECCO_COST_FINAL
     &     ' --> f_ctdt    =',f_ctdt
./pkg/ecco/ecco_cost_final.F 892 ECCO_COST_FINAL
        write(ifc,*) 'f_ctdt =', f_ctdt, no_ctdt