Symbol Description Uses
wuvel3d 12



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1669 ECCO_COST_WEIGHTS
     &         wuvel3d, 1, mythid)
./pkg/ecco/ecco_cost_weights.F 1678 ECCO_COST_WEIGHTS
              if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 1679 ECCO_COST_WEIGHTS
                 wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1681 ECCO_COST_WEIGHTS
                 wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1682 ECCO_COST_WEIGHTS
     $              ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 1696 ECCO_COST_WEIGHTS
      call ACTIVE_WRITE_XYZ( 'wuvel', wuvel3d,
./pkg/ecco/ecco_cost_weights.F 1700 ECCO_COST_WEIGHTS
      _EXCH_XYZ_RL( wuvel3d, myThid )
./pkg/ecco/ecco_cost_weights.F 205 ECCO_COST_WEIGHTS
                wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_hyd.F 379 COST_HYD
     &     xx_uvel_file,xx_uvel_dummy, wuvel3d, dodimensionalcost3D,
./pkg/ecco/ecco_cost.h 1083 NO PROCEDURE
     &                      wuvel3d, wvvel3d  
./pkg/ecco/ecco_cost.h 1085 NO PROCEDURE
      _RL wuvel3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)