Symbol Description Uses
fctiletot 14


File Line number Procedure Code
./pkg/ecco/cost_mean_heatflux.F 109 COST_MEAN_HEATFLUX 
        fctiletot = 0.
./pkg/ecco/cost_mean_heatflux.F 117 COST_MEAN_HEATFLUX 
                   fctiletot = fctiletot
./pkg/ecco/cost_mean_heatflux.F 129 COST_MEAN_HEATFLUX 
       _GLOBAL_SUM_RL( fctiletot , myThid )
./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 62 COST_MEAN_HEATFLUX 
      _RL fctiletot
./pkg/ecco/cost_mean_saltflux.F 109 COST_MEAN_SALTFLUX 
        fctiletot = 0.
./pkg/ecco/cost_mean_saltflux.F 117 COST_MEAN_SALTFLUX 
                   fctiletot = fctiletot
./pkg/ecco/cost_mean_saltflux.F 129 COST_MEAN_SALTFLUX 
       _GLOBAL_SUM_RL( fctiletot , myThid )
./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 62 COST_MEAN_SALTFLUX 
      _RL fctiletot