Symbol Description Uses
ersmask 33



File Line number Procedure Code
./pkg/ecco/cost_gencost_sshv4.F 226 COST_GENCOST_SSHV4
     &                ersobs, ersmask,
./pkg/ecco/cost_gencost_sshv4.F 247 COST_GENCOST_SSHV4
      if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 371 COST_GENCOST_SSHV4
     &                ersobs, ersmask,
./pkg/ecco/cost_gencost_sshv4.F 400 COST_GENCOST_SSHV4
                if ( ersmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 675 COST_GENCOST_SSHV4
     &                ersobs, ersmask,
./pkg/ecco/cost_gencost_sshv4.F 707 COST_GENCOST_SSHV4
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 896 COST_GENCOST_SSHV4
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F 961 COST_GENCOST_SSHV4
     &                      *ersmask(i,j,bi,bj)
./pkg/ecco/cost_readers.F 132 COST_READERS
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 134 COST_READERS
                 ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readers.F 137 COST_READERS
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 140 COST_READERS
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 145 COST_READERS
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 149 COST_READERS
              ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readers.F 150 COST_READERS
              ersobs(i,j,bi,bj)  = ersmask(i,j,bi,bj)*factor*
./pkg/ecco/cost_ssh.F 293 COST_SSH
     &                        *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 299 COST_SSH
                if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 192 COST_SSH_NEW
                if ( ersmask(i,j,bi,bj)*wers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 376 COST_SSH_NEW
     &                              *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 386 COST_SSH_NEW
                if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 206 COST_SSHV4
     &                ersobs, ersmask,
./pkg/ecco/cost_sshv4.F 227 COST_SSHV4
      if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 351 COST_SSHV4
     &                ersobs, ersmask,
./pkg/ecco/cost_sshv4.F 380 COST_SSHV4
                if ( ersmask(i,j,bi,bj)*wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F 654 COST_SSHV4
     &                ersobs, ersmask,
./pkg/ecco/cost_sshv4.F 686 COST_SSHV4
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 875 COST_SSHV4
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 941 COST_SSHV4
     &                      *ersmask(i,j,bi,bj)
./pkg/ecco/ecco_cost.h 1237 NO PROCEDURE
     &                     ersmask,
./pkg/ecco/ecco_cost.h 1268 NO PROCEDURE
      _RL ersmask   (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./pkg/ecco/ecco_cost_init_varia.F 245 ECCO_COST_INIT_VARIA
                  ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 247 ECCO_COST_INIT_VARIA
                  ersmask(i,j,bi,bj) = 1. _d 0