! !----------------------------------------------------------------------- ! ! 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