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

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! support for MPI Fortran77 interface (mpif.h) removed
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -52 +55 @@
     USE kinds
 
-#if !defined( __mpifh )
     USE MPI
-#endif
 
     USE pmc_general,                                                            &
@@ -63 +64 @@
     IMPLICIT NONE
 
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
 
     TYPE pmc_layout