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 #if ( DWORDSIZE != RWORDSIZE )
24    integer, parameter :: true_mpi_real    = mpi_real
25    integer, parameter :: true_mpi_complex = mpi_complex
26 #else
27    integer, parameter :: true_mpi_real    = mpi_real8
28    integer, parameter :: true_mpi_complex = mpi_double_complex
29 #endif
30 #endif
31 
32    contains
33 
34 #include "da_proc_sum_int.inc"
35 #include "da_proc_sum_ints.inc"
36 #include "da_proc_sum_real.inc"
37 
38 end module da_par_util1