Symbol Description Uses
sumgfo 6


File Line number Procedure Code
./pkg/ecco/cost_ssh_new.F 138 COST_SSH_NEW 
              sumgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 204 COST_SSH_NEW 
                   sumgfo(i,j,bi,bj) = sumgfo(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 234 COST_SSH_NEW 
               if ( sumgfo(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 236 COST_SSH_NEW 
     &                 sumgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 83 COST_SSH_NEW 
      _RL sumgfo ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy )