Symbol Description Uses
f_precipm 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_final.F 152 ECCO_COST_FINAL 
      f_precipm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 379 ECCO_COST_FINAL 
          f_precipm  = f_precipm + objf_precipm(bi,bj)
./pkg/ecco/ecco_cost_final.F 533 ECCO_COST_FINAL 
      _GLOBAL_SUM_R8( f_precipm , myThid )
./pkg/ecco/ecco_cost_final.F 59 ECCO_COST_FINAL 
      _RL f_atempm, f_aqhm, f_precipm
./pkg/ecco/ecco_cost_final.F 730 ECCO_COST_FINAL 
     &     ' --> f_precipm  =',f_precipm
./pkg/ecco/ecco_cost_final.F 874 ECCO_COST_FINAL 
        write(ifc,*) 'f_precipm  =', f_precipm, no_precipm