Symbol Description Uses
sumtp 6


File Line number Procedure Code
./pkg/ecco/cost_ssh_new.F 136 COST_SSH_NEW 
              sumtp(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 188 COST_SSH_NEW 
                   sumtp(i,j,bi,bj) = sumtp(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 220 COST_SSH_NEW 
               if ( sumtp(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 222 COST_SSH_NEW 
     &                 sumtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 81 COST_SSH_NEW 
      _RL sumtp  ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy )