Symbol Description Uses
wsaltLev 22



File Line number Procedure Code
./pkg/ecco/cost_drift.F 212 COST_DRIFT
     &                  (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F 218 COST_DRIFT
     &                  (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F 223 COST_DRIFT
                     if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt.F 197 COST_SALT
     &                    (wsaltLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_salt.F 200 COST_SALT
                     if ( wsaltLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_salt.F 203 COST_SALT
     &                    (wsaltLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_salt0.F 125 COST_SALT0
     &                 + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt0.F 130 COST_SALT0
                  if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_salt0.F 172 COST_SALT0
     &               + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/ecco_cost.h 1143 NO PROCEDURE
     &                      wsalt,wsalt2,wsaltLev,
./pkg/ecco/ecco_cost.h 1192 NO PROCEDURE
      _RL wsaltLev  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost_weights.F 188 ECCO_COST_WEIGHTS
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 362 ECCO_COST_WEIGHTS
     &         wsaltLev, 1, mythid)
./pkg/ecco/ecco_cost_weights.F 369 ECCO_COST_WEIGHTS
              if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 370 ECCO_COST_WEIGHTS
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 372 ECCO_COST_WEIGHTS
                 wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 373 ECCO_COST_WEIGHTS
     $              ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 386 ECCO_COST_WEIGHTS
               wsaltLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F 394 ECCO_COST_WEIGHTS
      call ACTIVE_WRITE_XYZ( 'wsaltLev', wsaltLev,
./pkg/ecco/ecco_cost_weights.F 396 ECCO_COST_WEIGHTS
      _EXCH_XYZ_RL( wsaltLev, myThid )
./pkg/ecco/ecco_cost_weights.F 589 ECCO_COST_WEIGHTS
                  wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj)