Symbol Description Uses
f_sst 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 113 ECCO_COST_FINAL 
      f_sst = 0. _d 0
./pkg/ecco/ecco_cost_final.F 267 ECCO_COST_FINAL 
          f_sst  = f_sst + objf_sst(bi,bj)
./pkg/ecco/ecco_cost_final.F 367 ECCO_COST_FINAL 
      _GLOBAL_SUM_R8( f_sst , myThid )
./pkg/ecco/ecco_cost_final.F 457 ECCO_COST_FINAL 
     &     ' --> f_sst     =',f_sst
./pkg/ecco/ecco_cost_final.F 52 ECCO_COST_FINAL 
      _RL f_sst, f_tmi, f_sss, f_atl, f_ctdt, f_ctds
./pkg/ecco/ecco_cost_final.F 588 ECCO_COST_FINAL 
        write(ifc,*) 'f_sst =', f_sst, no_sst