Changeset 4415

Timestamp:

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

Author:

raasch

Message:

bugfix for misplaced/missing preprocessor directives

Location:

palm/trunk/SOURCE

Files:

• transpose.f90 (modified) (2 diffs)
• vdi_internal_controls.f90 (modified) (3 diffs)

palm/trunk/SOURCE/transpose.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for misplaced preprocessor directive
+! 
+! 4370 2020-01-10 14:00:44Z raasch
 ! vector array renamed
 ! 
@@ -983 +986 @@
           ENDDO
           !$OMP  END PARALLEL
-#endif
 
        ENDIF
+
+#endif
 
     ENDIF

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