Symbol Description Uses
fctiletot 14


File Line number Procedure Code
./pkg/ecco/cost_mean_heatflux.F 110 COST_MEAN_HEATFLUX 
        fctiletot = 0.
./pkg/ecco/cost_mean_heatflux.F 118 COST_MEAN_HEATFLUX 
                   fctiletot = fctiletot
./pkg/ecco/cost_mean_heatflux.F 130 COST_MEAN_HEATFLUX 
       _GLOBAL_SUM_RL( fctiletot , myThid )
./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 63 COST_MEAN_HEATFLUX 
      _RL fctiletot
./pkg/ecco/cost_mean_saltflux.F 110 COST_MEAN_SALTFLUX 
        fctiletot = 0.
./pkg/ecco/cost_mean_saltflux.F 118 COST_MEAN_SALTFLUX 
                   fctiletot = fctiletot
./pkg/ecco/cost_mean_saltflux.F 130 COST_MEAN_SALTFLUX 
       _GLOBAL_SUM_RL( fctiletot , myThid )
./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 63 COST_MEAN_SALTFLUX 
      _RL fctiletot