Changeset 2841 for palm/trunk/SOURCE/pmc_parent_mod.f90
- Timestamp:
- Feb 27, 2018 3:02:57 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_parent_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 ! … … 99 102 USE, INTRINSIC :: ISO_C_BINDING 100 103 101 #if defined( __mpifh ) 102 INCLUDE "mpif.h" 103 #else 104 #if !defined( __mpifh ) 104 105 USE MPI 105 106 #endif … … 117 118 118 119 IMPLICIT NONE 120 121 #if defined( __mpifh ) 122 INCLUDE "mpif.h" 123 #endif 119 124 120 125 PRIVATE
Note: See TracChangeset
for help on using the changeset viewer.