Symbol Description Uses
psbar 42



File Line number Procedure Code
./pkg/ecco/cost_averagesfields.F 159 COST_AVERAGESFIELDS
     &     psbar, etan, xx_psbar_mean_dummy,
./pkg/ecco/cost_averagesinit.F 85 COST_AVERAGESINIT
              psbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh.F 142 COST_SSH
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 151 COST_SSH
     &                psbar(i,j,bi,bj)/
./pkg/ecco/cost_ssh.F 239 COST_SSH
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 264 COST_SSH
                junk       = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 274 COST_SSH
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 291 COST_SSH
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 301 COST_SSH
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 318 COST_SSH
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 328 COST_SSH
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 157 COST_SSH_NEW
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 182 COST_SSH_NEW
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_ssh_new.F 187 COST_SSH_NEW
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 195 COST_SSH_NEW
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 203 COST_SSH_NEW
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 324 COST_SSH_NEW
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 350 COST_SSH_NEW
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 359 COST_SSH_NEW
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 379 COST_SSH_NEW
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 388 COST_SSH_NEW
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 408 COST_SSH_NEW
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 417 COST_SSH_NEW
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_sshv4.F 322 COST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_sshv4.F 350 COST_SSHV4
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_sshv4.F 356 COST_SSHV4
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 366 COST_SSHV4
     &                 psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 376 COST_SSHV4
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 590 COST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, krec, doglobalread,
./pkg/ecco/cost_sshv4.F 621 COST_SSHV4
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 624 COST_SSHV4
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 638 COST_SSHV4
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 643 COST_SSHV4
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 655 COST_SSHV4
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 660 COST_SSHV4
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 774 COST_SSHV4
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_sshv4.F 807 COST_SSHV4
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 813 COST_SSHV4
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 819 COST_SSHV4
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/ecco_cost.h 136 NO PROCEDURE
     &                    psbar,
./pkg/ecco/ecco_cost.h 196 NO PROCEDURE
      _RL psbar  (1-olx:snx+olx,1-oly:sny+oly,  nsx,nsy)
./pkg/ecco/ecco_cost.h 198 NO PROCEDURE
      _RL psbar