Symbol Description Uses
f_etan0 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 1225 ECCO_COST_FINAL 
     &       'f_etan0 =', f_etan0, no_etan0
./pkg/ecco/ecco_cost_final.F 169 ECCO_COST_FINAL 
      f_etan0 = 0. _d 0
./pkg/ecco/ecco_cost_final.F 504 ECCO_COST_FINAL 
          f_etan0 = f_etan0 + objf_etan0(bi,bj)
./pkg/ecco/ecco_cost_final.F 72 ECCO_COST_FINAL 
      _RL f_etan0, f_uvel0, f_vvel0
./pkg/ecco/ecco_cost_final.F 740 ECCO_COST_FINAL 
      _GLOBAL_SUM_RL( f_etan0, myThid )
./pkg/ecco/ecco_cost_final.F 956 ECCO_COST_FINAL 
     &     ' --> f_etan0   =',f_etan0