Symbol Description Uses
objf_precipm 5



File Line number Procedure Code
./pkg/ecco/cost_forcing.F 179 COST_FORCING
     &     objf_precip, objf_precipm, objf_precipsmoo,
./pkg/ecco/ecco_cost.h 415 NO PROCEDURE
     &     objf_precip,     objf_precipm,     objf_precipsmoo,
./pkg/ecco/ecco_cost.h 499 NO PROCEDURE
      _RL  objf_precipm(nsx,nsy)
./pkg/ecco/ecco_cost_final.F 372 ECCO_COST_FINAL
     &         + mult_precip  * ( objf_precip(bi,bj)+objf_precipm(bi,bj)
./pkg/ecco/ecco_cost_final.F 448 ECCO_COST_FINAL
          f_precipm  = f_precipm + objf_precipm(bi,bj)