Symbol Description Uses
sumtot 18


File Line number Procedure Code
./pkg/ecco/cost_mean_heatflux.F 108 COST_MEAN_HEATFLUX 
        sumtot    = 0.
./pkg/ecco/cost_mean_heatflux.F 119 COST_MEAN_HEATFLUX 
                   sumtot = sumtot
./pkg/ecco/cost_mean_heatflux.F 128 COST_MEAN_HEATFLUX 
       _GLOBAL_SUM_RL( sumtot , myThid )
./pkg/ecco/cost_mean_heatflux.F 131 COST_MEAN_HEATFLUX 
       if (sumtot.eq.0.) sumtot = 1.
./pkg/ecco/cost_mean_heatflux.F 135 COST_MEAN_HEATFLUX 
     &        + ((fctiletot/sumtot+1.D0)/wmean_hflux)**2
./pkg/ecco/cost_mean_heatflux.F 143 COST_MEAN_HEATFLUX 
     &      fctiletot/sumtot,
./pkg/ecco/cost_mean_heatflux.F 61 COST_MEAN_HEATFLUX 
      _RL sumtot
./pkg/ecco/cost_mean_saltflux.F 108 COST_MEAN_SALTFLUX 
        sumtot    = 0.
./pkg/ecco/cost_mean_saltflux.F 119 COST_MEAN_SALTFLUX 
                   sumtot = sumtot
./pkg/ecco/cost_mean_saltflux.F 128 COST_MEAN_SALTFLUX 
       _GLOBAL_SUM_RL( sumtot , myThid )
./pkg/ecco/cost_mean_saltflux.F 131 COST_MEAN_SALTFLUX 
       if (sumtot.eq.0.) sumtot = 1.
./pkg/ecco/cost_mean_saltflux.F 135 COST_MEAN_SALTFLUX 
     &        + ( (fctiletot/sumtot)/wmean_sflux )**2
./pkg/ecco/cost_mean_saltflux.F 143 COST_MEAN_SALTFLUX 
     &      fctiletot/sumtot,
./pkg/ecco/cost_mean_saltflux.F 61 COST_MEAN_SALTFLUX 
      _RL sumtot