module ensda_variables

!||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

!-----------------------------------------------------------------
!   contains ensemble data assimilation (ENSDA) arrays and parameters
!-----------------------------------------------------------------

       implicit none

!-----------------------------------------------------------------
!   GENERAL ENSDA variables and parameters
!-----------------------------------------------------------------

        real                          :: fcst_length    ! forecast length (minutes)

        real                          :: aa             ! input Markov parameter (alpha)
        real                          :: dx,dt          ! grid distance, time step
        real                          :: tt0,x0,b10,b20 ! KdV analytic parameters

        character(len=14)             :: cycle_date     ! 14-character date

        integer                       :: cvar_max       ! number of control variables

        logical                       ::               &
              open_ic,                                 &! init cond logical mask
              open_param,                              &! empir param logical mask
              open_bias                                 ! model bias logical mask

        integer,dimension(1)          ::               &
              NNXP,                                    &! 1st dimension index (global)
              NNYP,                                    &! 2nd dimension index (global)
              NNZP,                                    &! 3rd dimension index (global)
              NNSOIL,                                  &! soil dimension index (global)
              NNSNOW                                    ! snow dimension index (global)

        integer                        ::  &
              time,                        &! number of model time steps
              nerr,                        &! number of time steps between biases
              nbias,                       &! current bias number (1 -> num_bias)
              num_bias                      ! total number of biases over DA time interval

!-----------------------------------------------------------
!  Model SPECIFIC variables: _bias, _phi
!-----------------------------------------------------------

        real,dimension(:),allocatable   ::                &
              u_bias_gbl                                   ! u bias (global)

        real,dimension(:),allocatable,target ::           &
              u_bias                                       ! u bias (local)

        real,dimension(:),pointer ::                      &
              u_bias_ptr                                   ! u bias (local)

        real,dimension(:),allocatable,target ::           &
              u_phi                                        ! u Markov vrbl

        real,dimension(:),pointer ::                      &
              u_phi_ptr                                    ! u Markov vrbl

        end module ensda_variables