Symbol Description Uses
f_precipsmoo 7



File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 159 ECCO_COST_FINAL
      f_precipsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 386 ECCO_COST_FINAL
          f_precipsmoo = f_precipsmoo + objf_precipsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 540 ECCO_COST_FINAL
      _GLOBAL_SUM_R8( f_precipsmoo , myThid )
./pkg/ecco/ecco_cost_final.F 62 ECCO_COST_FINAL
      _RL f_atempsmoo, f_aqhsmoo, f_precipsmoo
./pkg/ecco/ecco_cost_final.F 744 ECCO_COST_FINAL
     &     ' --> f_precipsmoo  =',f_precipsmoo
./pkg/ecco/ecco_cost_final.F 881 ECCO_COST_FINAL
        write(ifc,*) 'f_precipsmoo =', f_precipsmoo, no_precip