Symbol Description Uses
f_atl 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 1150 ECCO_COST_FINAL 
     &     ' --> f_atl     =',f_atl
./pkg/ecco/ecco_cost_final.F 1463 ECCO_COST_FINAL 
     &       'f_atl =', f_atl, no_atl
./pkg/ecco/ecco_cost_final.F 249 ECCO_COST_FINAL 
      f_atl = 0. _d 0
./pkg/ecco/ecco_cost_final.F 607 ECCO_COST_FINAL 
          f_atl  = f_atl + objf_atl(bi,bj)
./pkg/ecco/ecco_cost_final.F 865 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_atl , myThid )