da_par_util1.f90
References to this file elsewhere.
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