var/da/da_vtox_transforms/da_copy_xa.inc

   1 subroutine da_copy_xa (xa_dst, xa_src)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: make a copy of grid%xa
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type (x_type), intent(inout)         :: xa_dst ! destination
  10    type (x_type), intent(in   )         :: xa_src ! source
  11
  12    if (trace_use) call da_trace_entry("da_copy_xa")
  13
  14    xa_dst % psfc(:,:)  = xa_src % psfc(:,:)
  15    xa_dst % mu(:,:)    = xa_src % mu(:,:)
  16    xa_dst % u(:,:,:)   = xa_src % u(:,:,:)
  17    xa_dst % v(:,:,:)   = xa_src % v(:,:,:)
  18    xa_dst % t(:,:,:)   = xa_src % t(:,:,:)
  19    xa_dst % q(:,:,:)   = xa_src % q(:,:,:)
  20
  21    xa_dst % qcw(:,:,:) = xa_src % qcw(:,:,:)
  22    xa_dst % qrn(:,:,:) = xa_src % qrn(:,:,:)
  23    xa_dst % qci(:,:,:) = xa_src % qci(:,:,:)
  24    xa_dst % qsn(:,:,:) = xa_src % qsn(:,:,:)
  25    xa_dst % qgr(:,:,:) = xa_src % qgr(:,:,:)
  26
  27    xa_dst % w(:,:,:)   = xa_src % w(:,:,:)
  28    xa_dst % p(:,:,:)   = xa_src % p(:,:,:)
  29    xa_dst % geoh(:,:,:)= xa_src % geoh(:,:,:)
  30    xa_dst % rh(:,:,:)  = xa_src % rh(:,:,:)
  31    xa_dst % wh(:,:,:)  = xa_src % wh(:,:,:)
  32    xa_dst % rho(:,:,:) = xa_src % rho(:,:,:)
  33    xa_dst % ref(:,:,:) = xa_src % ref(:,:,:)
  34
  35    xa_dst % qt (:,:,:) = xa_src % qt (:,:,:)
  36
  37    xa_dst % tgrn(:,:)  = xa_src % tgrn(:,:)
  38    xa_dst % u10(:,:)   = xa_src % u10(:,:)
  39    xa_dst % v10(:,:)   = xa_src % v10(:,:)
  40    xa_dst % t2(:,:)    = xa_src % t2(:,:)
  41    xa_dst % q2(:,:)    = xa_src % q2(:,:)
  42
  43    xa_dst % ztd(:,:)   = xa_src % ztd(:,:)
  44    xa_dst % tpw(:,:)   = xa_src % tpw(:,:)
  45    xa_dst % speed(:,:) = xa_src % speed(:,:)
  46    xa_dst % tb19v(:,:) = xa_src % tb19v(:,:)
  47    xa_dst % tb19h(:,:) = xa_src % tb19h(:,:)
  48    xa_dst % tb22v(:,:) = xa_src % tb22v(:,:)
  49    xa_dst % tb37v(:,:) = xa_src % tb37v(:,:)
  50    xa_dst % tb37h(:,:) = xa_src % tb37h(:,:)
  51    xa_dst % tb85v(:,:) = xa_src % tb85v(:,:)
  52    xa_dst % tb85h(:,:) = xa_src % tb85h(:,:)
  53
  54    if (trace_use) call da_trace_exit("da_copy_xa")
  55
  56 end subroutine da_copy_xa
  57
  58