var/da/da_vtox_transforms/da_add_xa.inc

   1 subroutine da_add_xa (xa, xa_ens)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: Add flow-dependent increments in model space (grid%xa).
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type (x_type),    intent(inout)      :: xa     ! analysis increment
  10    type (x_subtype), intent(in   )      :: xa_ens ! flow-dependent increment
  11
  12    if (trace_use) call da_trace_entry("da_add_xa")
  13
  14    xa % u(:,:,:)   = xa % u(:,:,:)   + xa_ens % u(:,:,:)
  15    xa % v(:,:,:)   = xa % v(:,:,:)   + xa_ens % v(:,:,:)
  16    xa % t(:,:,:)   = xa % t(:,:,:)   + xa_ens % t(:,:,:)
  17    xa % q(:,:,:)   = xa % q(:,:,:)   + xa_ens % q(:,:,:)
  18
  19    if ( alpha_hydrometeors ) then
  20       xa % qcw(:,:,:) = xa % qcw(:,:,:) + xa_ens % qcw(:,:,:)
  21       xa % qrn(:,:,:) = xa % qrn(:,:,:) + xa_ens % qrn(:,:,:)
  22       xa % qci(:,:,:) = xa % qci(:,:,:) + xa_ens % qci(:,:,:)
  23       xa % qsn(:,:,:) = xa % qsn(:,:,:) + xa_ens % qsn(:,:,:)
  24       xa % qgr(:,:,:) = xa % qgr(:,:,:) + xa_ens % qgr(:,:,:)
  25    end if
  26
  27    xa % psfc(:,:)  = xa % psfc(:,:)  + xa_ens % psfc(:,:)
  28
  29    if (trace_use) call da_trace_exit("da_add_xa")
  30
  31 end subroutine da_add_xa
  32
  33