! ! ARPS radar summation arrays ! REAL :: grdvel2(nx,ny,nz) REAL :: grdref2(nx,ny,nz) REAL :: wgtvel(nx,ny,nz) REAL :: wgtref(nx,ny,nz) REAL :: wpotvel(nx,ny,nz) REAL :: wpotref(nx,ny,nz)