var/da/da_par_util/da_par_util1.f90

   1 module da_par_util1
   2
   3    use da_control, only : rootproc, ierr, comm, root
   4 #ifdef DM_PARALLEL
   5
   6 #if ( DWORDSIZE != RWORDSIZE )
   7 !  use mpi, only : mpi_sum, mpi_integer, mpi_complex, mpi_real
   8 #else
   9 !  use mpi, only : mpi_sum, mpi_integer, mpi_double_complex, mpi_real8
  10 #endif
  11
  12 #endif
  13
  14    !---------------------------------------------------------------------------
  15    ! Purpose: Routines for local-to-global and global-to-local grid operations.
  16    !
  17    ! METHOD:  RSL/MPI
  18    !---------------------------------------------------------------------------
  19
  20    implicit none
  21
  22 #ifdef DM_PARALLEL
  23    include 'mpif.h'
  24 #if ( DWORDSIZE != RWORDSIZE )
  25    integer, parameter :: true_mpi_real    = mpi_real
  26    integer, parameter :: true_mpi_complex = mpi_complex
  27 #else
  28    integer, parameter :: true_mpi_real    = mpi_real8
  29    integer, parameter :: true_mpi_complex = mpi_double_complex
  30 #endif
  31 #endif
  32
  33    contains
  34
  35 #include "da_proc_sum_int.inc"
  36 #include "da_proc_sum_ints.inc"
  37 #include "da_proc_sum_real.inc"
  38
  39 end module da_par_util1