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

palm/trunk/SOURCE/spectra_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! support for MPI Fortran77 interface (mpif.h) removed
+!
+! 4591 2020-07-06 15:56:08Z raasch
 ! File re-formatted to follow the PALM coding standard
 !
@@ -546 +549 @@
 
 #if defined( __parallel )
-#if !defined( __mpifh )
     USE MPI
-#endif
 
     USE pegrid,                                                                                    &
@@ -561 +562 @@
 
     IMPLICIT NONE
-
-#if defined( __parallel )
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
-#endif
 
     INTEGER(iwp) ::  i   !<
@@ -575 +570 @@
 
     REAL(wp), DIMENSION(nzb:nzt+1) ::  var_d_l  !<
+
 
     SELECT CASE ( TRIM( data_output_sp(m) ) )
@@ -657 +653 @@
     USE kinds
 
-#if !defined( __mpifh )
     USE MPI
-#endif
 
     USE pegrid,                                                                                    &
@@ -674 +668 @@
 
     IMPLICIT NONE
-
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
 
     INTEGER(iwp) ::  i  !<
@@ -801 +791 @@
     USE kinds
 
-#if !defined( __mpifh )
     USE MPI
-#endif
 
     USE pegrid,                                                                                    &
@@ -818 +806 @@
 
     IMPLICIT NONE
-
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
 
     INTEGER(iwp) ::  i  !<