Symbol Description Uses
f_temp0 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 250 ECCO_COST_FINAL
          f_temp0 = f_temp0 + objf_temp0(bi,bj)
./pkg/ecco/ecco_cost_final.F 348 ECCO_COST_FINAL
      _GLOBAL_SUM_R8( f_temp0, myThid )
./pkg/ecco/ecco_cost_final.F 453 ECCO_COST_FINAL
     &     ' --> f_temp0   =',f_temp0
./pkg/ecco/ecco_cost_final.F 47 ECCO_COST_FINAL
      _RL f_temp0, f_salt0,  f_temp, f_salt 
./pkg/ecco/ecco_cost_final.F 571 ECCO_COST_FINAL
        write(ifc,*) 'f_temp0 =', f_temp0, no_temp0
./pkg/ecco/ecco_cost_final.F 96 ECCO_COST_FINAL
      f_temp0 = 0. _d 0