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

Timestamp:

Apr 13, 2018 11:22:08 AM (6 years ago)

Author:

raasch

Message:

bugfix: missing parallel cpp-directives added

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: missing parallel cpp-directives added
+! 
+! 2946 2018-04-04 17:01:23Z suehring
 ! Remove unused module load
 ! 
@@ -125 +128 @@
     USE kinds
 
-#if !defined( __mpifh )
+#if defined( __parallel )  &&  !defined( __mpifh )
     USE MPI
 #endif
@@ -138 +141 @@
     IMPLICIT NONE
 
-#if defined( __mpifh )
+#if defined( __parallel )  &&  defined( __mpifh )
     INCLUDE "mpif.h"
 #endif