!
!-----------------------------------------------------------------------
!
!  3DVAR control parameters
!  Input via namelist in INITADAS
!
!-----------------------------------------------------------------------
!
  INTEGER, PARAMETER :: maxpass = 8
  INTEGER            :: maxin(maxpass)
  COMMON /var_cont/maxin

  INTEGER :: ipass_filt(maxpass), nradius_z(maxpass)
  REAL    :: hradius(maxpass)
  COMMON /var_refil/ipass_filt, hradius, nradius_z

  INTEGER :: turn_chk, turn_3dda,cntl_var
  COMMON /var_exprt/turn_chk, turn_3dda,cntl_var
  INTEGER :: cntl_var_rh


  INTEGER :: turn_div
  REAL    ::  wei_div_h(maxpass),wei_div_v(maxpass)
  COMMON /var_weight/turn_div, wei_div_h,wei_div_v