!
!##################################################################
!##################################################################
!######                                                      ######
!######                 SUBROUTINE VBL_TO_CTR                ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  transfer from analysis variables to control variables.
!
!-----------------------------------------------------------------------
!
!  AUTHOR:
!
!  Jidong GAO, CAPS, June, 2000
!
!-----------------------------------------------------------------------
!

SUBROUTINE vbl_to_ctr(ipass_filt,hradius,nradius_z,nx,ny,nz,                 & 6,1
           pbkg, pscal,pgrd)
!
!
  INTEGER :: ipass_filt,nradius_z
     REAL :: hradius
  INTEGER :: nx,ny,nz
!
  DIMENSION pgrd (nx,ny,nz)
!
  DIMENSION pbkg (nx,ny,nz)
!
  DIMENSION pscal (nx,ny,nz)
!
  DO k = 1, nz
    DO j = 1, ny
      DO i = 1, nx
        pgrd(i,j,k) =  pgrd(i,j,k)*pbkg(i,j,k)
      END DO
    END DO
  END DO
!
!
  DO k = 1, nz
    DO j = 1, ny
      DO i = 1, nx
        pgrd(i,j,k) = pgrd(i,j,k)*pscal(i,j,k)
      END DO
    END DO
  END DO
!
!
  CALL recurfilt_3d(nx,ny,nz,pgrd(1,1,1),ipass_filt,hradius,nradius_z)
!  CALL arecurfilt_3d(nx,ny,nz,pgrd(1,1,1),ipass_filt,hradius,nradius_z)
!
!
  RETURN
END SUBROUTINE vbl_to_ctr