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

palm/trunk/SOURCE/data_output_netcdf4_module.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! support for MPI Fortran77 interface (mpif.h) removed
+!
+! 4599 2020-07-10 12:42:02Z gronemeier
 ! bugfix: set no-fill mode per variable
 !
@@ -70 +73 @@
     USE kinds
 
-#if defined( __parallel ) && !defined( __mpifh )
+#if defined( __parallel )
     USE MPI
 #endif
@@ -80 +83 @@
     IMPLICIT NONE
 
-#if defined( __parallel ) && defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
 
     CHARACTER(LEN=*), PARAMETER ::  mode_parallel = 'parallel'  !< string selecting netcdf4 parallel mode