Symbol Description Uses
wscaty 16



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1750 ECCO_COST_WEIGHTS
              if (wscaty(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1751 ECCO_COST_WEIGHTS
                wscaty(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1752 ECCO_COST_WEIGHTS
     &           1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1754 ECCO_COST_WEIGHTS
                wscaty(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 885 ECCO_COST_WEIGHTS
     &                   wscaty, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 900 ECCO_COST_WEIGHTS
              if (wscaty(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 901 ECCO_COST_WEIGHTS
                wscaty(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 903 ECCO_COST_WEIGHTS
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 904 ECCO_COST_WEIGHTS
              wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 905 ECCO_COST_WEIGHTS
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*masks(i,j,k,bi,bj)
./pkg/ecco/ecco_cost.h 1015 NO PROCEDURE
      _RL wscaty  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./pkg/ecco/ecco_cost.h 983 NO PROCEDURE
     &                      wscatx,wscaty,