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)

        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                        ::  &
              ntime,                       &! 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,v,w,exnr,thetail,                           &
          r_total,r_rain,r_pice,r_snow,r_agreg,         &
          r_groupl,r_hail,r_cldliq,                     &
          r_vapor,theta                                 ! 3d model state vrbls

        real,dimension(:,:,:),allocatable   ::          &
          u_bias_gbl,v_bias_gbl,w_bias_gbl,             &
          exnr_bias_gbl,thetail_bias_gbl,               &
          r_total_bias_gbl,r_rain_bias_gbl,             &
          r_pice_bias_gbl,r_snow_bias_gbl,r_agreg_bias_gbl,    &
          r_groupl_bias_gbl,r_hail_bias_gbl,r_cldliq_bias_gbl, &
          r_vapor_bias_gbl,theta_bias_gbl               ! 3d model bias vrbls

        real,dimension(:,:,:),allocatable,target ::     &
          u_bias,v_bias,w_bias,                         &
          exnr_bias,thetail_bias,                       &
          r_total_bias,r_rain_bias,                     &
          r_pice_bias,r_snow_bias,r_agreg_bias,         &
          r_groupl_bias,r_hail_bias,r_cldliq_bias,      &
          r_vapor_bias,theta_bias                       ! 3d model bias vrbls

        real,dimension(:,:,:),pointer ::                &
          u_bias_ptr,v_bias_ptr,w_bias_ptr,             &
          exnr_bias_ptr,thetail_bias_ptr,               &
          r_total_bias_ptr,r_rain_bias_ptr,             &
          r_pice_bias_ptr,r_snow_bias_ptr,r_agreg_bias_ptr,    &
          r_groupl_bias_ptr,r_hail_bias_ptr,r_cldliq_bias_ptr, &
          r_vapor_bias_ptr,theta_bias_ptr               ! 3d model bias vrbls

        real,dimension(:,:,:),allocatable,target ::     &
          u_phi,v_phi,w_phi,                            &
          exnr_phi,thetail_phi,                         &
          r_total_phi,r_rain_phi,                       &
          r_pice_phi,r_snow_phi,r_agreg_phi,            &
          r_groupl_phi,r_hail_phi,r_cldliq_phi,         &
          r_vapor_phi,theta_phi                         ! 3d Markov vrbls

        real,dimension(:,:,:),pointer ::                &
          u_phi_ptr,v_phi_ptr,w_phi_ptr,                &
          exnr_phi_ptr,thetail_phi_ptr,                 &
          r_total_phi_ptr,r_rain_phi_ptr,               &
          r_pice_phi_ptr,r_snow_phi_ptr,r_agreg_phi_ptr,    &
          r_groupl_phi_ptr,r_hail_phi_ptr,r_cldliq_phi_ptr, &
          r_vapor_phi_ptr,theta_phi_ptr                 ! 3d Markov vrbls

        end module ensda_variables