<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_PAR_UTIL'><A href='../../html_code/par_util/da_par_util.f90.html#DA_PAR_UTIL' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
module da_par_util 38,12
!---------------------------------------------------------------------------
! Purpose: Routines for local-to-global and global-to-local grid operations.
!
! METHOD: RSL/MPI.
!---------------------------------------------------------------------------
use da_control
, only: use_rf
use module_domain, only : domain, xpose_type
#ifdef DM_PARALLEL
use module_dm, only : local_communicator_x, &
local_communicator_y, ntasks_x, ntasks_y, data_order_xyz
use da_par_util1, only : true_mpi_real, true_mpi_complex
! use mpi, only : mpi_2double_precision, mpi_status_size, &
! mpi_integer, mpi_maxloc, mpi_status_size, &
! mpi_minloc, mpi_sum
#else
use da_reporting, only : message
#endif
use da_define_structures, only : be_subtype, &
x_type, vp_type, residual_synop_type, residual_sound_type, iv_type, &
y_type, count_obs_number_type, maxmin_field_type
use da_control, only : trace_use,num_ob_indexes, myproc, root, comm, ierr, &
rootproc, num_procs, stdout, print_detail_parallel, its,ite, jts, jte, &
kts,kte,ids,ide,jds,jde,kds,kde,ims,ime,jms,jme,kms,kme,ips,ipe,jps,jpe, &
kps, kpe, grid_stagger, grid_ordering, trace_use_dull, &
sound, synop, pilot, satem, geoamv, polaramv, airep, gpspw, gpsref, &
metar, ships, ssmi_rv, ssmi_tb, ssmt1, ssmt2, qscat, profiler, buoy, bogus, &
pseudo, radar, radiance, airsr, sonde_sfc, trace_use_frequent, &
its_int,ite_int,jts_int,jte_int,kts_int,kte_int, &
ims_int,ime_int,jms_int,jme_int,kms_int,kme_int, &
ids_int,ide_int,jds_int,jde_int,kds_int,kde_int, &
ips_int,ipe_int,jps_int,jpe_int,kps_int,kpe_int, &
anal_type_hybrid_dual_res
use da_reporting, only : da_error
use da_tracing, only : da_trace_entry, da_trace_exit
use da_wrf_interfaces, only : &
wrf_dm_xpose_z2x, wrf_dm_xpose_x2y, wrf_dm_xpose_y2x, wrf_dm_xpose_x2z, &
wrf_dm_xpose_z2y, wrf_dm_xpose_y2z, wrf_patch_to_global_real, wrf_debug
implicit none
#ifdef DM_PARALLEL
include 'mpif.h'
#endif
#include "da_generic_typedefs.inc"
<A NAME='DA_PATCH_TO_GLOBAL'><A href='../../html_code/par_util/da_par_util.f90.html#DA_PATCH_TO_GLOBAL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
interface da_patch_to_global 55
module procedure
module procedure
end interface
contains
#include "da_cv_to_vv.inc"
#include "da_vv_to_cv.inc"
#include "da_alloc_and_copy_be_arrays.inc"
#include "da_copy_dims.inc"
#include "da_copy_tile_dims.inc"
#include "da_pack_count_obs.inc"
#include "da_unpack_count_obs.inc"
#include "da_transpose_x2y.inc"
#include "da_transpose_y2x.inc"
#include "da_transpose_z2x.inc"
#include "da_transpose_x2z.inc"
#include "da_transpose_y2z.inc"
#include "da_transpose_z2y.inc"
#include "da_transpose_x2y_v2.inc"
#include "da_transpose_y2x_v2.inc"
#include "da_cv_to_global.inc"
#include "da_patch_to_global_2d.inc"
#include "da_patch_to_global_3d.inc"
#include "da_generic_methods.inc"
#include "da_deallocate_global_sonde_sfc.inc"
#include "da_deallocate_global_sound.inc"
#include "da_deallocate_global_synop.inc"
#include "da_generic_boilerplate.inc"
#include "da_y_facade_to_global.inc"
#include "da_system.inc"
#include "da_patch_to_global_dual_res.inc"
#ifdef DM_PARALLEL
#include "da_proc_stats_combine.inc"
#include "da_proc_maxmin_combine.inc"
#else
#include "da_wrf_dm_interface.inc"
#endif
end module da_par_util