Changeset 4232 for palm/trunk/SOURCE/data_output_netcdf4_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_netcdf4_module.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_netcdf4_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
 !
@@ -44 +47 @@
     USE kinds
 
-#if defined( __parallel )
-#if defined( __mpifh )
+#if defined( __parallel ) && !defined( __mpifh )
+    USE MPI
+#endif
+
+#if defined( __netcdf4 )
+    USE NETCDF
+#endif
+
+    IMPLICIT NONE
+
+#if defined( __parallel ) && defined( __mpifh )
     INCLUDE "mpif.h"
-#else
-    USE MPI
-#endif
-#endif
-
-#if defined( __netcdf4 )
-    USE NETCDF
-#endif
-
-    IMPLICIT NONE
+#endif
 
     CHARACTER(LEN=800) ::  internal_error_message = ''  !< string containing the last error message