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

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! support for MPI Fortran77 interface (mpif.h) removed
+! 
+! 4581 2020-06-29 08:49:58Z suehring
 ! +sums_wschs_ws_l
 !
@@ -1278 +1281 @@
 
 #if defined( __parallel )
-#if defined( __mpifh )
-    INCLUDE "mpif.h"
-#else
     USE MPI
 #endif
-#endif
+
     CHARACTER(LEN=2) ::  send_receive = 'al'     !<
     CHARACTER(LEN=7) ::  myid_char = ''          !< character string containing processor id number