Changeset 4415 for palm/trunk/SOURCE/vdi_internal_controls.f90

Timestamp:

Feb 20, 2020 10:30:33 AM (4 years ago)

Author:

raasch

Message:

bugfix for misplaced/missing preprocessor directives

File:

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

palm/trunk/SOURCE/vdi_internal_controls.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! missing preprocessor directive added
+! 
+! 4346 2019-12-18 11:55:56Z motisi
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
@@ -91 +94 @@
     USE kinds
 
+#if defined( __parallel )
     USE pegrid,                             &
         ONLY:  collective_wait,             &
@@ -100 +104 @@
                MPI_SUM,                     &
                myid
+#else
+    USE pegrid,                             &
+        ONLY:  myid
+#endif