Changeset 2841 for palm/trunk/SOURCE/pmc_general_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_general_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_general_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix: wrong placement of include 'mpif.h' corrected
+! 
+! 2801 2018-02-14 16:01:55Z thiele
 ! Introduce particle transfer in nested models.
 ! 
@@ -80 +83 @@
     USE kinds
 
+#if !defined( __mpifh )
+    USE MPI
+#endif
+
+    IMPLICIT NONE
+
 #if defined( __mpifh )
     INCLUDE "mpif.h"
-#else
-    USE MPI
 #endif
-
-    IMPLICIT NONE
 
     PRIVATE