<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_ZERO_X'><A href='../../html_code/define_structures/da_zero_x.inc.html#DA_ZERO_X' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_zero_x ( x ) 22,2
!-----------------------------------------------------------------------
! Purpose: TBD
!-----------------------------------------------------------------------
implicit none
type (x_type), intent(inout) :: x ! Analysis incrs structure.
if (trace_use_dull) call da_trace_entry
("da_zero_x")
x % u(:,:,:) = 0.0
x % v(:,:,:) = 0.0
x % w(:,:,:) = 0.0
x % t(:,:,:) = 0.0
x % q(:,:,:) = 0.0
x % p(:,:,:) = 0.0
x % geoh(:,:,:) = 0.0
x % rh(:,:,:) = 0.0
x % wh(:,:,:) = 0.0
x % rho(:,:,:) = 0.0
x % ref(:,:,:) = 0.0
x % qcw(:,:,:) = 0.0
x % qrn(:,:,:) = 0.0
x % qt (:,:,:) = 0.0
x % qci(:,:,:) = 0.0
x % qsn(:,:,:) = 0.0
x % qgr(:,:,:) = 0.0
x % tgrn(:,:) = 0.0
x % psfc(:,:) = 0.0
x % mu(:,:) = 0.0
x % u10(:,:) = 0.0
x % v10(:,:) = 0.0
x % t2(:,:) = 0.0
x % q2(:,:) = 0.0
x % ztd(:,:) = 0.0
x % tpw(:,:) = 0.0
x % speed(:,:) = 0.0
x % tb19v(:,:) = 0.0
x % tb19h(:,:) = 0.0
x % tb22v(:,:) = 0.0
x % tb37v(:,:) = 0.0
x % tb37h(:,:) = 0.0
x % tb85v(:,:) = 0.0
x % tb85h(:,:) = 0.0
if (trace_use_dull) call da_trace_exit("da_zero_x")
end subroutine da_zero_x