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

SUBROUTINE ctr_to_vbl(ipass_filt,hradius,nradius_z,nx,ny,nz,                   & 12,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)
!
!
  CALL recurfilt_3d(nx,ny,nz,pgrd,ipass_filt,hradius,nradius_z)
!
  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
!
!
  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
!
!
  RETURN
END SUBROUTINE ctr_to_vbl