Changeset 4232 for palm/trunk/SOURCE/data_output_binary_module.f90

Timestamp:

Sep 20, 2019 9:34:22 AM (5 years ago)

Author:

knoop

Message:

Bugfix: wrong placement of INCLUDE "mpif.h" fixed.

File:

• palm/trunk/SOURCE/data_output_binary_module.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_binary_module.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
-!
+! 
+! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Bugfix: INCLUDE "mpif.h" must be placed after IMPLICIT NONE statement
+!
+! 4147 2019-08-07 09:42:31Z gronemeier
 ! corrected indentation according to coding standard
 !
@@ -45 +48 @@
     USE kinds
 
-#if defined( __parallel )
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#else
+#if defined( __parallel ) && !defined( __mpifh )
     USE MPI
 #endif
+
+    IMPLICIT NONE
+
+#if defined( __parallel ) && defined( __mpifh )
+    INCLUDE "mpif.h"
 #endif
-
-    IMPLICIT NONE
 
     INTEGER, PARAMETER ::  charlen = 100  !< maximum length of character variables