Symbol Description Uses
wsflux 22



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1163 ECCO_COST_WEIGHTS
     &      nnz, wsflux, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 1171 ECCO_COST_WEIGHTS
              if (wsflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1172 ECCO_COST_WEIGHTS
                wsflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1175 ECCO_COST_WEIGHTS
              wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3.
./pkg/ecco/ecco_cost_weights.F 1176 ECCO_COST_WEIGHTS
              wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0)
./pkg/ecco/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS
              wsflux  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1768 ECCO_COST_WEIGHTS
              if (wsflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1769 ECCO_COST_WEIGHTS
                wsflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1770 ECCO_COST_WEIGHTS
     &                1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1772 ECCO_COST_WEIGHTS
                wsflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 2047 ECCO_COST_WEIGHTS
      call ACTIVE_WRITE_XY_LOC( 'wsflux', wsflux, 1, 0, mythid, dummy)
./pkg/exf/exf_getsurfacefluxes.F 150 EXF_GETSURFACEFLUXES
     &     wsflux, mytime, myiter, mythid )
./pkg/smooth/smooth_correl2dw.F 71 SMOOTH_CORREL2DW
        tmpW=wsflux(i,j,bi,bj)
./pkg/ctrl/ctrl.h 252 NO PROCEDURE
     &                      wsflux,
./pkg/ctrl/ctrl.h 271 NO PROCEDURE
      _RL wsflux  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
./pkg/ctrl/ctrl_init.F 954 CTRL_INIT
          wsflux    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ecco/cost_forcing.F 124 COST_FORCING
     &     wsflux, dodimensionalcost2D,
./pkg/ecco/ecco_cost.h 1007 NO PROCEDURE
      _RL wsflux  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./pkg/ecco/ecco_cost.h 977 NO PROCEDURE
     &                      whflux,wsflux,wtauu,wtauv,