Symbol Description Uses
locbarglbmean_sum 8


File Line number Procedure Code
./pkg/ecco/cost_gencost_glbmean.F 241 COST_GENCOST_GLBMEAN 
      locbarglbmean_sum = 0. _d 0
./pkg/ecco/cost_gencost_glbmean.F 250 COST_GENCOST_GLBMEAN 
                locbarglbmean_sum = locbarglbmean_sum + RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_glbmean.F 258 COST_GENCOST_GLBMEAN 
      _GLOBAL_SUM_RL( locbarglbmean_sum , mythid )
./pkg/ecco/cost_gencost_glbmean.F 262 COST_GENCOST_GLBMEAN 
     &     ( locbarglbmean_sum .NE. 0. _d 0 ) ) THEN
./pkg/ecco/cost_gencost_glbmean.F 263 COST_GENCOST_GLBMEAN 
          junk=locbarglbmean/locbarglbmean_sum - dataglbmean(irec)
./pkg/ecco/cost_gencost_glbmean.F 271 COST_GENCOST_GLBMEAN 
     &   locbarglbmean/locbarglbmean_sum, dataglbmean(irec)
./pkg/ecco/cost_gencost_glbmean.F 70 COST_GENCOST_GLBMEAN 
      _RL locbarglbmean_sum