Symbol Description Uses
sumers 6



File Line number Procedure Code
./pkg/ecco/cost_ssh_new.F 137 COST_SSH_NEW
              sumers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 196 COST_SSH_NEW
                   sumers(i,j,bi,bj) = sumers(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 227 COST_SSH_NEW
               if ( sumers(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 229 COST_SSH_NEW
     &                 sumers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 82 COST_SSH_NEW
      _RL sumers ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy )