subroutine da_swap_xtraj ( grid )

   !-------------------------------------------------------------------------
   ! Purpose:        Swap KJ dimensions of fields from WRF to fit the fields of WRFDA
   !
   ! History: 07/16/2010  Creation (Xin Zhang )
   !
   !-------------------------------------------------------------------------

   implicit none

   type(domain),   intent(inout)     :: grid

#ifdef VAR4D

   integer                           :: i

   call kj_swap_reverse (model_grid%u_2, grid%u_2, &
           grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
   call kj_swap_reverse (model_grid%v_2, grid%v_2, &
           grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
   call kj_swap_reverse (model_grid%w_2, grid%w_2, &
           grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
   call kj_swap_reverse (model_grid%t_2, grid%t_2, &
           grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
   call kj_swap_reverse (model_grid%ph_2, grid%ph_2, &
          grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
   call kj_swap_reverse (model_grid%tslb, grid%tslb, &
          grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, 1, grid%num_soil_layers)
   call kj_swap_reverse (model_grid%p, grid%p, &
          grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
!  call kj_swap_reverse (model_grid%pb, grid%pb, &
!         grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
!  call kj_swap_reverse (model_grid%phb, grid%phb, &
!         grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
   call kj_swap_reverse (model_grid%smois, grid%smois, &
          grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, 1, grid%num_soil_layers)
   do i = PARAM_FIRST_SCALAR, num_moist
      call kj_swap_reverse (model_grid%moist(:,:,:,i), grid%moist(:,:,:,i), &
                    grid%xp%ims, grid%xp%ime, grid%xp%jms, grid%xp%jme, grid%xp%kms, grid%xp%kme)
   enddo
   grid%mu_2 = model_grid%mu_2
   grid%psfc = model_grid%psfc
   grid%tsk = model_grid%tsk
   grid%u10 = model_grid%u10
   grid%v10 = model_grid%v10
   grid%t2 = model_grid%t2
   grid%q2 = model_grid%q2
!  grid%tmn = model_grid%tmn

   grid%snowc = model_grid%snowc
   grid%snowh = model_grid%snowh
   grid%rainnc = model_grid%rainnc
   grid%rainncv = model_grid%rainncv
   grid%rainc = model_grid%rainc
   grid%raincv = model_grid%raincv

!  grid%mub = model_grid%mub
!  grid%dx = model_grid%dx
!  grid%znw = model_grid%znw
!  grid%znu = model_grid%znu
!  grid%dn = model_grid%dn
!  grid%dnw = model_grid%dnw
!  grid%msft = model_grid%msft
!  grid%sst = model_grid%sst
!  grid%ht = model_grid%ht
!  grid%f = model_grid%f
!  grid%xlat = model_grid%xlat
!  grid%xlong = model_grid%xlong
!  grid%map_proj = model_grid%map_proj
!  grid%lu_index = model_grid%lu_index
!  grid%landmask = model_grid%landmask
!  grid%xland = model_grid%xland
!  grid%xice = model_grid%xice
!  grid%ivgtyp = model_grid%ivgtyp
!  grid%isltyp = model_grid%isltyp
!  grid%vegfra = model_grid%vegfra
!  grid%snowh = model_grid%snowh

#endif
end subroutine da_swap_xtraj