da_zero_x.inc

1 subroutine da_zero_x ( x )
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    type (x_type), intent(inout)        :: x      ! Analysis incrs structure.
10 
11    if (trace_use_dull) call da_trace_entry("da_zero_x")
12 
13    x % u(:,:,:) = 0.0
14    x % v(:,:,:) = 0.0
15    x % w(:,:,:) = 0.0
16    x % t(:,:,:) = 0.0
17    x % q(:,:,:) = 0.0
18    x % p(:,:,:) = 0.0
19    x % rh(:,:,:) = 0.0
20    x % wh(:,:,:) = 0.0
21    x % rho(:,:,:) = 0.0
22    x % ref(:,:,:) = 0.0
23 
24    x % qcw(:,:,:) = 0.0
25    x % qrn(:,:,:) = 0.0
26    x % qt (:,:,:) = 0.0
27    x % qci(:,:,:) = 0.0
28    x % qsn(:,:,:) = 0.0
29    x % qgr(:,:,:) = 0.0
30 
31    x % tgrn(:,:) = 0.0
32    x % psfc(:,:) = 0.0
33    x % u10(:,:) = 0.0
34    x % v10(:,:) = 0.0
35    x % t2(:,:) = 0.0
36    x % q2(:,:) = 0.0
37 
38    x % tpw(:,:) = 0.0
39    x % speed(:,:) = 0.0
40    x % tb19v(:,:) = 0.0
41    x % tb19h(:,:) = 0.0
42    x % tb22v(:,:) = 0.0
43    x % tb37v(:,:) = 0.0
44    x % tb37h(:,:) = 0.0
45    x % tb85v(:,:) = 0.0
46    x % tb85h(:,:) = 0.0
47 
48    if (trace_use_dull) call da_trace_exit("da_zero_x")
49 
50 end subroutine da_zero_x
51 
52