mpp_comm.inc

! -*-f90-*-
 
!***********************************************************************
!*                             Apache License 2.0
!*
!* This file is part of the GFDL Flexible Modeling System (FMS).
!*
!* Licensed under the Apache License, Version 2.0 (the "License");
!* you may not use this file except in compliance with the License.
!* You may obtain a copy of the License at
!*
!*     http://www.apache.org/licenses/LICENSE-2.0
!*
!* FMS is distributed in the hope that it will be useful, but WITHOUT
!* WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied;
!* without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
!* PARTICULAR PURPOSE. See the License for the specific language
!* governing permissions and limitations under the License.
!***********************************************************************
!> @file
!> @brief Imports checksum, gather, and scatter routines from other include files used
!! for communications and calculations between PE's in @ref mpp_mod
 
!> @addtogroup mpp_mod
!> @{
 
subroutine mpp_init_legacy( flags, localcomm, test_level, alt_input_nml_path )
  integer, optional, intent(in) :: flags !< Flags for debug output, can be MPP_VERBOSE or MPP_DEBUG
  integer, intent(in) :: localcomm !< MPI communicator to use. Only relevant if MPI has already
                                   !! been initialized by an external call to mpi_init.
  integer, optional, intent(in) :: test_level !< Used to exit initialization at certain stages
                                              !! before completion for testing purposes
  character(len=*), optional, intent(in) :: alt_input_nml_path !< Input path for namelist
  type(mpi_comm) :: comm
 
  comm%mpi_val = localcomm
  call mpp_init_f08(flags, comm, test_level, alt_input_nml_path)
end subroutine mpp_init_legacy
 
#if defined(use_libMPI)
#include <mpp_comm_mpi.inc>
#else
#include <mpp_comm_nocomm.inc>
#endif
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i8_1d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i8_1d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i8_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i8_2d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i8_2d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i8_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i8_3d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i8_3d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i8_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i8_4d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i8_4d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i8_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:,:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i8_5d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i8_5d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i8_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:,:,:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i4_1d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i4_1d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i4_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i4_2d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i4_2d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i4_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i4_3d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i4_3d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i4_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i4_4d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i4_4d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i4_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:,:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_INT_
#define MPP_CHKSUM_INT_ mpp_chksum_i4_5d
#undef MPP_CHKSUM_INT_RMASK_
#define MPP_CHKSUM_INT_RMASK_ mpp_chksum_i4_5d_rmask
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i4_kind)
#undef MPP_RANK_
#define MPP_RANK_  (:,:,:,:,:)
#include <mpp_chksum_int.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r8_0d
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#undef MPP_RANK_
#define MPP_RANK_ !
#include <mpp_chksum_scalar.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r8_1d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r8_2d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r8_3d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r8_4d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r8_5d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:,:)
#include <mpp_chksum.fh>
 
#ifdef OVERLOAD_C8
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c8_0d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c8_kind)
#undef MPP_RANK_
#define MPP_RANK_ !
#include <mpp_chksum_scalar.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c8_1d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c8_2d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c8_3d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c8_4d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c8_5d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i8_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c8_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:,:)
#include <mpp_chksum.fh>
#endif
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r4_0d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#undef MPP_RANK_
#define MPP_RANK_ !
#include <mpp_chksum_scalar.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r4_1d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r4_2d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r4_3d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r4_4d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_r4_5d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:,:)
#include <mpp_chksum.fh>
 
#ifdef OVERLOAD_C4
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c4_0d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c4_kind)
#undef MPP_RANK_
#define MPP_RANK_ !
#include <mpp_chksum_scalar.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c4_1d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c4_2d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c4_3d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c4_4d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:)
#include <mpp_chksum.fh>
 
#undef MPP_CHKSUM_
#define MPP_CHKSUM_ mpp_chksum_c4_5d
#undef MPP_TRANSFER_KIND_
#define MPP_TRANSFER_KIND_ i4_kind
#undef MPP_TYPE_
#define MPP_TYPE_ complex(c4_kind)
#undef MPP_RANK_
#define MPP_RANK_ (:,:,:,:,:)
#include <mpp_chksum.fh>
#endif
 
!#################################################
#undef MPP_GATHER_1D_
#undef MPP_GATHER_1DV_
#undef MPP_TYPE_
#define MPP_TYPE_ logical
#define MPP_GATHER_1D_ mpp_gather_logical_1d
#define MPP_GATHER_1DV_ mpp_gather_logical_1dv
#undef  MPP_GATHER_PELIST_2D_
#undef  MPP_GATHER_PELIST_GEN_2D_
#undef  MPP_GATHER_PELIST_3D_
#undef  MPP_GATHER_PELIST_GEN_3D_
#define MPP_GATHER_PELIST_2D_ mpp_gather_pelist_logical_2d
#define MPP_GATHER_PELIST_GEN_2D_ mpp_gather_pelist_logical_gen_2d
#define MPP_GATHER_PELIST_3D_ mpp_gather_pelist_logical_3d
#define MPP_GATHER_PELIST_GEN_3D_ mpp_gather_pelist_logical_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_LOGICAL
#include <mpp_gather.fh>
 
#undef MPP_GATHER_1D_
#undef MPP_GATHER_1DV_
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i4_kind)
#define MPP_GATHER_1D_ mpp_gather_int4_1d
#define MPP_GATHER_1DV_ mpp_gather_int4_1dv
#undef  MPP_GATHER_PELIST_2D_
#undef  MPP_GATHER_PELIST_GEN_2D_
#undef  MPP_GATHER_PELIST_3D_
#undef  MPP_GATHER_PELIST_GEN_3D_
#define MPP_GATHER_PELIST_2D_ mpp_gather_pelist_int4_2d
#define MPP_GATHER_PELIST_GEN_2D_ mpp_gather_pelist_int4_gen_2d
#define MPP_GATHER_PELIST_3D_ mpp_gather_pelist_int4_3d
#define MPP_GATHER_PELIST_GEN_3D_ mpp_gather_pelist_int4_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_INTEGER4
#include <mpp_gather.fh>
 
 
#undef MPP_GATHER_1D_
#undef MPP_GATHER_1DV_
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i8_kind)
#define MPP_GATHER_1D_ mpp_gather_int8_1d
#define MPP_GATHER_1DV_ mpp_gather_int8_1dv
#undef  MPP_GATHER_PELIST_2D_
#undef  MPP_GATHER_PELIST_GEN_2D_
#undef  MPP_GATHER_PELIST_3D_
#undef  MPP_GATHER_PELIST_GEN_3D_
#define MPP_GATHER_PELIST_2D_ mpp_gather_pelist_int8_2d
#define MPP_GATHER_PELIST_GEN_2D_ mpp_gather_pelist_int8_gen_2d
#define MPP_GATHER_PELIST_3D_ mpp_gather_pelist_int8_3d
#define MPP_GATHER_PELIST_GEN_3D_ mpp_gather_pelist_int8_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_INTEGER8
#include <mpp_gather.fh>
 
 
#undef MPP_GATHER_1D_
#undef MPP_GATHER_1DV_
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#define MPP_GATHER_1D_ mpp_gather_real4_1d
#define MPP_GATHER_1DV_ mpp_gather_real4_1dv
#undef  MPP_GATHER_PELIST_2D_
#undef  MPP_GATHER_PELIST_GEN_2D_
#undef  MPP_GATHER_PELIST_3D_
#undef  MPP_GATHER_PELIST_GEN_3D_
#define MPP_GATHER_PELIST_2D_ mpp_gather_pelist_real4_2d
#define MPP_GATHER_PELIST_GEN_2D_ mpp_gather_pelist_real4_gen_2d
#define MPP_GATHER_PELIST_3D_ mpp_gather_pelist_real4_3d
#define MPP_GATHER_PELIST_GEN_3D_ mpp_gather_pelist_real4_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_REAL4
#include <mpp_gather.fh>
 
#undef MPP_GATHER_1D_
#undef MPP_GATHER_1DV_
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#define MPP_GATHER_1D_ mpp_gather_real8_1d
#define MPP_GATHER_1DV_ mpp_gather_real8_1dv
#undef  MPP_GATHER_PELIST_2D_
#undef  MPP_GATHER_PELIST_GEN_2D_
#undef  MPP_GATHER_PELIST_3D_
#undef  MPP_GATHER_PELIST_GEN_3D_
#define MPP_GATHER_PELIST_2D_ mpp_gather_pelist_real8_2d
#define MPP_GATHER_PELIST_GEN_2D_ mpp_gather_pelist_real8_gen_2d
#define MPP_GATHER_PELIST_3D_ mpp_gather_pelist_real8_3d
#define MPP_GATHER_PELIST_GEN_3D_ mpp_gather_pelist_real8_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_REAL8
#include <mpp_gather.fh>
 
!#################################################
#undef  MPP_SCATTER_PELIST_2D_
#undef  MPP_SCATTER_PELIST_GEN_2D_
#undef  MPP_SCATTER_PELIST_3D_
#undef  MPP_SCATTER_PELIST_GEN_3D_
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i4_kind)
#define MPP_SCATTER_PELIST_2D_ mpp_scatter_pelist_int4_2d
#define MPP_SCATTER_PELIST_GEN_2D_ mpp_scatter_pelist_int4_gen_2d
#define MPP_SCATTER_PELIST_3D_ mpp_scatter_pelist_int4_3d
#define MPP_SCATTER_PELIST_GEN_3D_ mpp_scatter_pelist_int4_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_INTEGER4
#include <mpp_scatter.fh>
 
#undef  MPP_SCATTER_PELIST_2D_
#undef  MPP_SCATTER_PELIST_GEN_2D_
#undef  MPP_SCATTER_PELIST_3D_
#undef  MPP_SCATTER_PELIST_GEN_3D_
#undef MPP_TYPE_
#define MPP_TYPE_ integer(i8_kind)
#define MPP_SCATTER_PELIST_2D_ mpp_scatter_pelist_int8_2d
#define MPP_SCATTER_PELIST_GEN_2D_ mpp_scatter_pelist_int8_gen_2d
#define MPP_SCATTER_PELIST_3D_ mpp_scatter_pelist_int8_3d
#define MPP_SCATTER_PELIST_GEN_3D_ mpp_scatter_pelist_int8_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_INTEGER8
#include <mpp_scatter.fh>
 
#undef  MPP_SCATTER_PELIST_2D_
#undef  MPP_SCATTER_PELIST_GEN_2D_
#undef  MPP_SCATTER_PELIST_3D_
#undef  MPP_SCATTER_PELIST_GEN_3D_
#undef MPP_TYPE_
#define MPP_TYPE_ real(r4_kind)
#define MPP_SCATTER_PELIST_2D_ mpp_scatter_pelist_real4_2d
#define MPP_SCATTER_PELIST_GEN_2D_ mpp_scatter_pelist_real4_gen_2d
#define MPP_SCATTER_PELIST_3D_ mpp_scatter_pelist_real4_3d
#define MPP_SCATTER_PELIST_GEN_3D_ mpp_scatter_pelist_real4_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_REAL4
#include <mpp_scatter.fh>
 
#undef  MPP_SCATTER_PELIST_2D_
#undef  MPP_SCATTER_PELIST_GEN_2D_
#undef  MPP_SCATTER_PELIST_3D_
#undef  MPP_SCATTER_PELIST_GEN_3D_
#undef MPP_TYPE_
#define MPP_TYPE_ real(r8_kind)
#define MPP_SCATTER_PELIST_2D_ mpp_scatter_pelist_real8_2d
#define MPP_SCATTER_PELIST_GEN_2D_ mpp_scatter_pelist_real8_gen_2d
#define MPP_SCATTER_PELIST_3D_ mpp_scatter_pelist_real8_3d
#define MPP_SCATTER_PELIST_GEN_3D_ mpp_scatter_pelist_real8_gen_3d
#undef MPI_TYPE_
#define MPI_TYPE_ MPI_REAL8
#include <mpp_scatter.fh>
!> @}