da_setup_background_errors.inc

1 subroutine da_setup_background_errors(xb, be)
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: Define and allocate components of background errors.
5    !          Wrapper subroutine.
6    !---------------------------------------------------------------------------
7 
8    implicit none
9 
10    type (xb_type), intent(in)  :: xb       ! First guess structure.
11    type (be_type), intent(out) :: be       ! Back. errors structure.
12 
13    if (trace_use) call da_trace_entry("da_setup_background_errors")
14 
15    be % ne = ensdim_alpha                          ! Size of ensemble.
16 
17    be % v1 % mz = 0
18    be % v2 % mz = 0
19    be % v3 % mz = 0
20    be % v4 % mz = 0
21    be % v5 % mz = 0
22 
23    if (global) then
24       call da_setup_be_global (be)
25    else
26       call da_setup_be_regional (xb, be)
27    end if
28 
29    call da_setup_cv (be)
30 
31    if (trace_use) call da_trace_exit("da_setup_background_errors")
32 
33 end subroutine da_setup_background_errors
34 
35