Symbol Description Uses
sumtot 18


File Line number Procedure Code
./pkg/ecco/cost_mean_heatflux.F 109 COST_MEAN_HEATFLUX 
        sumtot    = 0.
./pkg/ecco/cost_mean_heatflux.F 120 COST_MEAN_HEATFLUX 
                   sumtot = sumtot
./pkg/ecco/cost_mean_heatflux.F 129 COST_MEAN_HEATFLUX 
       _GLOBAL_SUM_RL( sumtot , myThid )
./pkg/ecco/cost_mean_heatflux.F 132 COST_MEAN_HEATFLUX 
       if (sumtot.eq.0.) sumtot = 1.
./pkg/ecco/cost_mean_heatflux.F 136 COST_MEAN_HEATFLUX 
     &        + ((fctiletot/sumtot+1.D0)/wmean_hflux)**2
./pkg/ecco/cost_mean_heatflux.F 144 COST_MEAN_HEATFLUX 
     &      fctiletot/sumtot,
./pkg/ecco/cost_mean_heatflux.F 62 COST_MEAN_HEATFLUX 
      _RL sumtot
./pkg/ecco/cost_mean_saltflux.F 109 COST_MEAN_SALTFLUX 
        sumtot    = 0.
./pkg/ecco/cost_mean_saltflux.F 120 COST_MEAN_SALTFLUX 
                   sumtot = sumtot
./pkg/ecco/cost_mean_saltflux.F 129 COST_MEAN_SALTFLUX 
       _GLOBAL_SUM_RL( sumtot , myThid )
./pkg/ecco/cost_mean_saltflux.F 132 COST_MEAN_SALTFLUX 
       if (sumtot.eq.0.) sumtot = 1.
./pkg/ecco/cost_mean_saltflux.F 136 COST_MEAN_SALTFLUX 
     &        + ( (fctiletot/sumtot)/wmean_sflux )**2
./pkg/ecco/cost_mean_saltflux.F 144 COST_MEAN_SALTFLUX 
     &      fctiletot/sumtot,
./pkg/ecco/cost_mean_saltflux.F 62 COST_MEAN_SALTFLUX 
      _RL sumtot