Symbol Description Uses
wp 28



File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS
              wp      (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 426 ECCO_COST_WEIGHTS
     &                   wp, irec, mythid )
./pkg/ecco/ecco_cost_weights.F 432 ECCO_COST_WEIGHTS
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 438 ECCO_COST_WEIGHTS
                 wp(i,j,bi,bj) = wp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 450 ECCO_COST_WEIGHTS
              wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 836 ECCO_COST_WEIGHTS
              if (wp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 837 ECCO_COST_WEIGHTS
                wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 237 COST_SSH_MEAN
     &                    * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 238 COST_SSH_MEAN
              if ( wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_mean.F 241 COST_SSH_MEAN
     &                    * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/ecco_cost.h 707 NO PROCEDURE
     &                      wp,
./pkg/ecco/ecco_cost.h 742 NO PROCEDURE
      _RL wp      (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
./verification/global1x1_tot/code/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS
              wp      (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 432 ECCO_COST_WEIGHTS
     &                   wp, irec, mythid )
./verification/global1x1_tot/code/ecco_cost_weights.F 438 ECCO_COST_WEIGHTS
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 445 ECCO_COST_WEIGHTS
		 wp(i,j,bi,bj) = 0.
./verification/global1x1_tot/code/ecco_cost_weights.F 457 ECCO_COST_WEIGHTS
              wp(i,j,bi,bj) = frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 896 ECCO_COST_WEIGHTS
              if (wp(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 897 ECCO_COST_WEIGHTS
                wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj)
./pkg/exf/exf_getffieldrec.F 245 EXF_GETFFIELDREC
          call CAL_CONVDATE( previousdate,yp,mp,dp,sp,lp,wp,mythid )
./pkg/exf/exf_getffieldrec.F 97 EXF_GETFFIELDREC
      integer wi,wf,wp,wn