Symbol Description Uses
tmpcost 6


File Line number Procedure Code
./pkg/dic/dic_cost.F 36 DIC_COST 
      _RL tmpcost
./pkg/dic/dic_cost.F 41 DIC_COST 
      tmpcost = 0. _d 0
./pkg/dic/dic_cost.F 46 DIC_COST 
              tmpcost = tmpcost+FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)*
./pkg/dic/dic_cost.F 53 DIC_COST 
       _GLOBAL_SUM_RL(tmpcost,myThid)
./pkg/dic/dic_cost.F 55 DIC_COST 
       totcost = totcost + tmpcost