var/da/da_define_structures/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 % geoh(:,:,:) = 0.0
  20    x % rh(:,:,:) = 0.0
  21    x % wh(:,:,:) = 0.0
  22    x % rho(:,:,:) = 0.0
  23    x % ref(:,:,:) = 0.0
  24
  25    x % qcw(:,:,:) = 0.0
  26    x % qrn(:,:,:) = 0.0
  27    x % qt (:,:,:) = 0.0
  28    x % qci(:,:,:) = 0.0
  29    x % qsn(:,:,:) = 0.0
  30    x % qgr(:,:,:) = 0.0
  31
  32    x % tgrn(:,:) = 0.0
  33    x % psfc(:,:) = 0.0
  34    x % mu(:,:) = 0.0
  35    x % u10(:,:) = 0.0
  36    x % v10(:,:) = 0.0
  37    x % t2(:,:) = 0.0
  38    x % q2(:,:) = 0.0
  39
  40    x % ztd(:,:) = 0.0
  41    x % tpw(:,:) = 0.0
  42    x % speed(:,:) = 0.0
  43    x % tb19v(:,:) = 0.0
  44    x % tb19h(:,:) = 0.0
  45    x % tb22v(:,:) = 0.0
  46    x % tb37v(:,:) = 0.0
  47    x % tb37h(:,:) = 0.0
  48    x % tb85v(:,:) = 0.0
  49    x % tb85h(:,:) = 0.0
  50
  51    if (trace_use_dull) call da_trace_exit("da_zero_x")
  52
  53 end subroutine da_zero_x
  54
  55