module mpi_def
!     use resol_def
      use machine
      include 'mpif.h'
      integer stat(MPI_STATUS_SIZE),info
      INTEGER :: icolor
      INTEGER :: MC_COMP, MC_IO, MPI_COMM_ALL, MPI_COMM_ALL_DUP
      logical LIOPE

      integer MPI_R_IO, MPI_R_MPI, MPI_R_DEF, MPI_A_DEF
     &,       MPI_R_IO_R,MPI_R_MPI_R
      PARAMETER (MPI_R_IO =MPI_REAL4)
      PARAMETER (MPI_R_IO_R=MPI_REAL8)

ccmr  PARAMETER (MPI_R_MPI=MPI_REAL8)
      PARAMETER (MPI_R_MPI=MPI_REAL4)
      PARAMETER (MPI_R_MPI_R=MPI_REAL8)

      PARAMETER (MPI_R_DEF=MPI_REAL8)
      PARAMETER (MPI_A_DEF=MPI_REAL8)

      integer kind_mpi,kind_sum,kind_mpi_r
ccmr  PARAMETER (kind_mpi=8,kind_sum=8)
      PARAMETER (kind_mpi=4,kind_sum=4,kind_mpi_r=8)
      integer ngrids_sfc,ngrid_global
      parameter(ngrids_sfc=100)

!     REAL(KIND=KIND_io4) ,ALLOCATABLE, target :: buf_sig(:,:)
!    &,                                           buff_grid(:,:)
!    &,                                           buf_sig_n(:,:,:)
!     REAL(KIND=KIND_ior) ,ALLOCATABLE, target :: buf_sig_r(:,:)
!     REAL(KIND=KIND_ior) ,ALLOCATABLE, target :: buf_sig_r(:,:)
!    &,                                           buf_sig_rn(:,:,:)
!    &,                                           buf_grd_r(:,:,:)
      REAL(KIND=KIND_io4) ,POINTER ::  buff_mult(:,:,:)
!     REAL(KIND=KIND_io4) ,POINTER ::  buff_multg(:,:)
      REAL(KIND=KIND_io4) ,allocatable ::  buff_multg(:,:)
      real tmm(10,10)
      end module mpi_def