Changeset 2967 for palm/trunk/SOURCE/header.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/header.f90 (modified) (4 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: missing parallel cpp-directives added
+! 
+! 2883 2018-03-14 08:29:10Z Giersch
 ! Format of the output of dt_dopr_listing (325) has been changed
 ! 
@@ -422 +425 @@
         ONLY:  pcm_header
 
+#if defined( __parallel )
     USE pmc_handle_communicator,                                               &
         ONLY:  pmc_get_model_info
+#endif
 
     USE pmc_interface,                                                         &
@@ -608 +613 @@
     IF ( nested_run )  THEN
 
+#if defined( __parallel )
        WRITE ( io, 600 )  TRIM( nesting_mode ),                                &
                           TRIM( nesting_datatransfer_mode )
@@ -627 +633 @@
                              TRIM( cpl_name )
        ENDDO
+#endif
+
     ENDIF
     WRITE ( io, 99 )