Symbol Description Uses
psbar 58


File Line number Procedure Code
./pkg/ecco/cost_averagesfields.F 230 COST_AVERAGESFIELDS 
     &     psbar, etanLeads, xx_psbar_mean_dummy,
./pkg/ecco/cost_averagesinit.F 87 COST_AVERAGESINIT 
              psbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1030 COST_GENCOST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, krec, doglobalread,
./pkg/ecco/cost_gencost_sshv4.F 1035 COST_GENCOST_SSHV4 
        CALL REMOVE_MEAN_RL( 1, psbar, maskInC, maskInC, rA, drF,
./pkg/ecco/cost_gencost_sshv4.F 1072 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1083 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1094 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 405 COST_GENCOST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_gencost_sshv4.F 410 COST_GENCOST_SSHV4 
        CALL REMOVE_MEAN_RL( 1, psbar, maskInC, maskInC, rA, drF,
./pkg/ecco/cost_gencost_sshv4.F 438 COST_GENCOST_SSHV4 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_gencost_sshv4.F 446 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 458 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 470 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 756 COST_GENCOST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, krec, doglobalread,
./pkg/ecco/cost_gencost_sshv4.F 761 COST_GENCOST_SSHV4 
        CALL REMOVE_MEAN_RL( 1, psbar, maskInC, maskInC, rA, drF,
./pkg/ecco/cost_gencost_sshv4.F 792 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 806 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 820 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 143 COST_SSH 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 152 COST_SSH 
     &                psbar(i,j,bi,bj)/
./pkg/ecco/cost_ssh.F 242 COST_SSH 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh.F 267 COST_SSH 
                junk       = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 277 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 294 COST_SSH 
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 304 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 321 COST_SSH 
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 331 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 158 COST_SSH_NEW 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 183 COST_SSH_NEW 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_ssh_new.F 188 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 196 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 204 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 327 COST_SSH_NEW 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_ssh_new.F 353 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 362 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 382 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 391 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 411 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 420 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_sshv4.F 365 COST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_sshv4.F 393 COST_SSHV4 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_sshv4.F 401 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 413 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 425 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 676 COST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, krec, doglobalread,
./pkg/ecco/cost_sshv4.F 707 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 710 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 724 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 729 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 741 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 746 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 873 COST_SSHV4 
        call ACTIVE_READ_XY( fname, psbar, irec, doglobalread,
./pkg/ecco/cost_sshv4.F 910 COST_SSHV4 
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 919 COST_SSHV4 
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 928 COST_SSHV4 
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/ecco_cost.h 164 NO PROCEDURE 
     &                    psbar,
./pkg/ecco/ecco_cost.h 241 NO PROCEDURE 
      _RL psbar  (1-olx:snx+olx,1-oly:sny+oly,  nsx,nsy)
./pkg/ecco/ecco_cost.h 243 NO PROCEDURE 
      _RL psbar