Symbol Description Uses
psmeaners 7


File Line number Procedure Code
./pkg/ecco/cost_ssh_new.F 134 COST_SSH_NEW 
              psmeaners(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 194 COST_SSH_NEW 
                   psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 228 COST_SSH_NEW 
                  psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F 380 COST_SSH_NEW 
     &                   - psmeaners(i,j,bi,bj) - ersobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 79 COST_SSH_NEW 
      _RL psmeaners ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy )