!
!##################################################################
!##################################################################
!######                                                      ######
!######                 SUBROUTINE SCALE_BCKGRD              ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  Scaling the background fields.
!
!  
!-----------------------------------------------------------------------
!
!  AUTHOR:
!
!  Jidong Gao, CAPS, July, 2000    
!
!

SUBROUTINE scale_bckgrd(scale, nx, ny, nz, pu_bkg,                      &
           pv_bkg, pp_bkg, pt_bkg, pq_bkg, pw_bkg)
!
!
  INTEGER :: nx, ny, nz
  DIMENSION pu_bkg (nx,ny,nz), pv_bkg (nx,ny,nz),                       &
            pw_bkg (nx,ny,nz), pt_bkg (nx,ny,nz),                       &
            pp_bkg (nx,ny,nz), pq_bkg (nx,ny,nz)
!
!
  DO k = 1, nz
    DO j =1, ny
      DO i = 1, nx
        pu_bkg(i,j,k) = pu_bkg(i,j,k) * scale
        pv_bkg(i,j,k) = pv_bkg(i,j,k) * scale
        pp_bkg(i,j,k) = pp_bkg(i,j,k) * scale
        pt_bkg(i,j,k) = pt_bkg(i,j,k) * scale
        pq_bkg(i,j,k) = pq_bkg(i,j,k) * scale
        pw_bkg(i,j,k) = pw_bkg(i,j,k) * scale
      END DO
    END DO
  END DO
!
!
  RETURN
END SUBROUTINE scale_bckgrd