`be_type`
================================================================

    .. code-block::

               type be_subtype
                  integer           :: mz          ! Vertical truncation of errors.
                  integer           :: max_wave    ! Global only - horizontal spectral truncation.
                  character*5       :: name        ! Variable name.
                  real*8, pointer   :: rf_alpha(:) ! RF scale length.
                  real*8, pointer   :: val(:,:)    ! Local Standard dev./sqrt(eigenvalue).
                  real*8, pointer   :: evec(:,:,:) ! Local Vertical eigenvectors.
                  real*8, pointer   :: val_g(:)    ! Global Standard dev./sqrt(eigenvalue).
                  real*8, pointer   :: evec_g(:,:) ! Global Vertical eigenvectors.
                  real*8, pointer   :: power(:,:)  ! Power spectrum
            !_____For wavelet option:
                  REAL, POINTER     ::sd(:,:,:)    ! 3D field   std. dev.
                  REAL, POINTER     ::wsd(:,:,:)   ! 3D wavelet std. dev.
               end type be_subtype

               ......
               ......
               ......

               type be_type
                  integer           :: ncv_mz      ! number of variables for cv_mz
                  integer, pointer  :: cv_mz(:)    ! array to hold mz of each cv
                  integer           :: ne
                  integer           :: max_wave           ! Smallest spectral mode (global).
                  integer           :: mix
                  integer           :: mjy
                  type (be_subtype) :: v1
                  type (be_subtype) :: v2
                  type (be_subtype) :: v3
                  type (be_subtype) :: v4
                  type (be_subtype) :: v5
                  
                  type (be_subtype) :: v6
                  type (be_subtype) :: v7
                  type (be_subtype) :: v8
                  type (be_subtype) :: v9
                  type (be_subtype) :: v10
                  type (be_subtype) :: v11
                  
                  type (be_subtype) :: alpha
                  real*8, pointer     :: pb_vert_reg(:,:,:)
            #if (WRF_CHEM == 1)
                  !integer           :: ncv_mz_chem      ! number of variables for cv_mz
                  !integer, pointer  :: cv_mz_chem(:)    ! array to hold mz of each cv
                  
                  type (be_subtype),allocatable :: v12(:)     ! Chem initial condition scaling factor CVs
                  integer           :: ncv_mz_chemic      ! number of variables for cv_mz
                  integer, pointer  :: cv_mz_chemic(:)    ! array to hold mz of each cv
                  
            #endif

                  ! Control variable space errors:
                  type (cv_type)    :: cv
                  
                  real, pointer :: reg_psi_chi  (:,:)
                  real, pointer :: reg_psi_t (:,:,:)
                  real, pointer :: reg_psi_ps   (:,:)
                  real, pointer :: reg_psi_rh   (:,:,:)
                  real, pointer :: reg_chi_u_t   (:,:,:)
                  real, pointer :: reg_chi_u_ps     (:,:)
                  real, pointer :: reg_chi_u_rh     (:,:,:)
                  real, pointer :: reg_t_u_rh    (:,:,:)
                  real, pointer :: reg_ps_u_rh      (:,:)
                  
            !-----For cv option 3:
                  INTEGER          :: ndeg,nta
                  REAL             :: swidth
                  REAL, POINTER    :: be(:)
                  REAL, POINTER    :: rate(:)
                  REAL, POINTER    :: table(:,:)
                  REAL, POINTER    :: agvz(:,:,:,:)
                  REAL, POINTER    :: bvz(:,:,:)
                  REAL, POINTER    :: wgvz(:,:,:)
                  REAL, POINTER    :: slix(:,:,:,:)
                  REAL, POINTER    :: slipx(:,:)
                  REAL, POINTER    :: sljy(:,:,:,:)
                  REAL, POINTER    :: sljpy(:,:)
                  REAL, POINTER    :: vz(:,:,:,:)
                  REAL, POINTER    :: corz(:,:,:,:)
                  REAL, POINTER    :: corp(:,:)
                  
            !_____For wavelet option:
                  REAL, POINTER    ::sd( :,:,:)! 4 3D & 1 2D field   std. dev. sets.
                  REAL, POINTER    ::wsd(:,:,:)! 4 3D & 1 2D wavelet std. dev. sets.
               end type be_type

**相关的程序**

    - `da_allocate_background_errors.inc`
    - `da_deallocate_background_errors.inc`