<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_SWAP_XTRAJ'><A href='../../html_code/minimisation/da_swap_xtraj.inc.html#DA_SWAP_XTRAJ' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_swap_xtraj ( grid ) 1,9
!-------------------------------------------------------------------------
! 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