Changeset 3241 for palm/trunk/SOURCE/message.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/message.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3019 2018-05-13 07:05:43Z maronga
 ! Temporaraly deactivate MPI_BARRIER as long as nested systems freeze due to
 ! asynchronous calls of location_message.
@@ -263 +266 @@
 
     USE pmc_interface,                                                         &
-        ONLY:  cpl_id, nested_run
+        ONLY:  cpl_id
 
     IMPLICIT NONE
@@ -270 +273 @@
     LOGICAL          ::  advance  !< switch for advancing/noadvancing I/O
 
-#if defined( __parallel )
-!    IF ( nested_run )  CALL MPI_BARRIER( MPI_COMM_WORLD, ierr )
-#endif
 !
 !-- Output for nested runs only on the root domain