Symbol Description Uses
wkaprediFld 6



File Line number Procedure Code
./pkg/ecco/cost_kapredi.F 114 COST_KAPREDI
     &                 + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/ecco_cost.h 1022 NO PROCEDURE
     &                      wkapredi,wkapredi2,wkaprediFld,
./pkg/ecco/ecco_cost.h 1092 NO PROCEDURE
      _RL wkaprediFld (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost_weights.F 185 ECCO_COST_WEIGHTS
                wkaprediFld (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F 1876 ECCO_COST_WEIGHTS
                wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1984 ECCO_COST_WEIGHTS
      call ACTIVE_WRITE_XYZ( 'wkaprediFld',wkaprediFld,