Symbol Description Uses
wsfluxm 17



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS
              wsfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 778 ECCO_COST_WEIGHTS
              wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./pkg/ecco/ecco_cost_weights.F 891 ECCO_COST_WEIGHTS
              if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 892 ECCO_COST_WEIGHTS
                wsfluxm(i,j,bi,bj) = 
./pkg/ecco/ecco_cost_weights.F 893 ECCO_COST_WEIGHTS
     &                1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 895 ECCO_COST_WEIGHTS
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost.h 720 NO PROCEDURE
      _RL wsfluxm (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./verification/global1x1_tot/code/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS
              wsfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 834 ECCO_COST_WEIGHTS
              wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./verification/global1x1_tot/code/ecco_cost_weights.F 951 ECCO_COST_WEIGHTS
              if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 952 ECCO_COST_WEIGHTS
                wsfluxm(i,j,bi,bj) = 
./verification/global1x1_tot/code/ecco_cost_weights.F 953 ECCO_COST_WEIGHTS
     &                1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 955 ECCO_COST_WEIGHTS
                wsfluxm(i,j,bi,bj) = 0.0 _d 0