Symbol Description Uses
sumcos 18


File Line number Procedure Code
./pkg/ecco/cost_heatflux.F 69 COST_HEATFLUX 
      _RL sumcos
./pkg/ecco/cost_zonstress.F 69 COST_ZONSTRESS 
      _RL sumcos
./pkg/ecco/cost_mean_heatflux.F 113 COST_MEAN_HEATFLUX 
            sumcos   = 0. _d 0
./pkg/ecco/cost_mean_heatflux.F 120 COST_MEAN_HEATFLUX 
                  sumcos = sumcos + cos(yc(i,j,bi,bj)*deg2rad)
./pkg/ecco/cost_mean_heatflux.F 124 COST_MEAN_HEATFLUX 
            if(sumcos.eq.0) sumcos=1
./pkg/ecco/cost_mean_heatflux.F 125 COST_MEAN_HEATFLUX 
            fctilemm = (fctilemm / sumcos)
./pkg/ecco/cost_mean_heatflux.F 61 COST_MEAN_HEATFLUX 
      _RL sumcos
./pkg/ecco/cost_mean_saltflux.F 113 COST_MEAN_SALTFLUX 
            sumcos   = 0. _d 0
./pkg/ecco/cost_mean_saltflux.F 119 COST_MEAN_SALTFLUX 
                  sumcos = sumcos + cos(yc(i,j,bi,bj)*deg2rad)
./pkg/ecco/cost_mean_saltflux.F 124 COST_MEAN_SALTFLUX 
            if(sumcos.eq.0) sumcos=1.0
./pkg/ecco/cost_mean_saltflux.F 125 COST_MEAN_SALTFLUX 
            fctilemm = (fctilemm / sumcos)
./pkg/ecco/cost_mean_saltflux.F 61 COST_MEAN_SALTFLUX 
      _RL sumcos
./pkg/ecco/cost_saltflux.F 69 COST_SALTFLUX 
      _RL sumcos
./pkg/ecco/cost_merstress.F 69 COST_MERSTRESS 
      _RL sumcos