Changeset 2841 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

Feb 27, 2018 3:02:57 PM (6 years ago)

Author:

knoop

Message:

Bugfix: wrong placement of include 'mpif.h' corrected

File:

• palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: wrong placement of include 'mpif.h' corrected
+! 
+! 2836 2018-02-26 13:40:05Z Giersch
 ! The variables synthetic_turbulence_generator and 
 ! use_synthetic_turbulence_generator have been abbreviated + syn_turb_gen_prerun
@@ -99 +102 @@
     USE kinds
 
+#if !defined( __mpifh )
     USE MPI
+#endif
 
     USE pegrid,                                                                &
@@ -109 +114 @@
 
     IMPLICIT NONE
+
+#if defined( __mpifh )
+    INCLUDE "mpif.h"
+#endif
 
     LOGICAL :: velocity_seed_initialized = .FALSE.  !< true after first call of stg_main