Changeset 2841 for palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
- Timestamp:
- Feb 27, 2018 3:02:57 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
r2801 r2841 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix: wrong placement of include 'mpif.h' corrected 28 ! 29 ! 2801 2018-02-14 16:01:55Z thiele 27 30 ! Introduce particle transfer in nested models. 28 31 ! … … 112 115 USE kinds 113 116 114 #if defined( __mpifh ) 115 INCLUDE "mpif.h" 116 #else 117 #if !defined( __mpifh ) 117 118 USE MPI 118 119 #endif … … 124 125 125 126 IMPLICIT NONE 127 128 #if defined( __mpifh ) 129 INCLUDE "mpif.h" 130 #endif 126 131 127 132 TYPE pmc_layout
Note: See TracChangeset
for help on using the changeset viewer.