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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! support for MPI Fortran77 interface (mpif.h) removed
+!
+! 4603 2020-07-14 16:08:30Z suehring
 ! Bugfix in initialization from ASCII file - x-length scales at the bottom boundary were not
 ! initialized properly
@@ -245 +248 @@
     USE kinds
 
-#if defined( __parallel )  &&  !defined( __mpifh )
+#if defined( __parallel )
     USE MPI
 #endif
@@ -285 +288 @@
 
     IMPLICIT NONE
-
-#if defined( __parallel )  &&  defined( __mpifh )
-    INCLUDE "mpif.h"
-#endif
-
 
     INTEGER(iwp) ::  id_stg_left        !< left lateral boundary core id in case of turbulence generator