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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! support for MPI Fortran77 interface (mpif.h) removed
+! 
+! 4508 2020-04-24 13:32:20Z raasch
 ! salsa variable name changed
 ! 
@@ -257 +260 @@
 
 #if defined( __parallel )
-#if !defined( __mpifh )
     USE MPI
-#endif
 
     USE pegrid,                                                                &
@@ -301 +302 @@
     IMPLICIT NONE
 
-#if defined( __parallel )
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
-#endif
 
     PRIVATE