Changeset 2841 for palm/trunk/SOURCE/pmc_child_mod.f90

Timestamp:

Feb 27, 2018 3:02:57 PM (6 years ago)

Author:

knoop

Message:

Bugfix: wrong placement of include 'mpif.h' corrected

File:

• palm/trunk/SOURCE/pmc_child_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_child_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix: wrong placement of include 'mpif.h' corrected
+! 
+! 2809 2018-02-15 09:55:58Z schwenkel
 ! Bugfix for gfortran: Replace the function C_SIZEOF with STORAGE_SIZE
 ! 
@@ -96 +99 @@
     USE, INTRINSIC ::  iso_c_binding
 
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#else
+#if !defined( __mpifh )
     USE MPI
 #endif
 
     USE kinds
+
     USE pmc_general,                                                           &
         ONLY:  arraydef, childdef, da_desclen, da_namedef, da_namelen, pedef,  &
@@ -114 +116 @@
 
     IMPLICIT NONE
+
+#if defined( __mpifh )
+    INCLUDE "mpif.h"
+#endif
 
     PRIVATE