Changeset 2841 for palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90
- Timestamp:
- Feb 27, 2018 3:02:57 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90
r2809 r2841 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Bugfix: wrong placement of include 'mpif.h' corrected 29 ! 30 ! 2809 2018-02-15 09:55:58Z schwenkel 28 31 ! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE 29 32 ! … … 74 77 USE, INTRINSIC :: ISO_C_BINDING 75 78 76 #if defined( __mpifh ) 77 INCLUDE "mpif.h" 78 #else 79 #if !defined( __mpifh ) 79 80 USE MPI 80 81 #endif … … 85 86 86 87 IMPLICIT NONE 88 89 #if defined( __mpifh ) 90 INCLUDE "mpif.h" 91 #endif 87 92 88 93 PRIVATE
Note: See TracChangeset
for help on using the changeset viewer.