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

Timestamp:

Jul 29, 2020 9:37:56 AM (4 years ago)

Author:

raasch

Message:

support for MPI Fortran77 interface (mpif.h) removed

File:

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

palm/trunk/SOURCE/data_output_binary_module.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! support for MPI Fortran77 interface (mpif.h) removed
+!
+! 4597 2020-07-09 19:21:53Z gronemeier
 ! change: update argument list of routine binary_init_dimension due to changes in interface
 !
@@ -62 +65 @@
     USE kinds
 
-#if defined( __parallel ) && !defined( __mpifh )
+#if defined( __parallel )
     USE MPI
 #endif
@@ -68 +71 @@
     IMPLICIT NONE
 
-#if defined( __parallel ) && defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
 
     CHARACTER(LEN=*), PARAMETER ::  config_file_name = 'BINARY_TO_NETCDF_CONFIG'  !< name of config file