Changeset 2258 for palm/trunk/SOURCE/header.f90

Timestamp:

Jun 8, 2017 7:55:13 AM (8 years ago)

Author:

suehring

Message:

Bugfix, add pre-preprocessor directives to enable non-parrallel mode

File:

• palm/trunk/SOURCE/header.f90 (modified) (4 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -353 +356 @@
     USE plant_canopy_model_mod,                                                &
         ONLY:  pcm_header, plant_canopy
-
+        
+#if defined( __parallel )
     USE pmc_handle_communicator,                                               &
         ONLY:  pmc_get_model_info
+#endif
 
     USE pmc_interface,                                                         &
@@ -547 +552 @@
        WRITE ( io, 600 )  TRIM( nesting_mode ),                                &
                           TRIM( nesting_datatransfer_mode )
+#if defined( __parallel )
        CALL pmc_get_model_info( ncpl = ncpl, cpl_id = my_cpl_id )
 
@@ -564 +570 @@
                              TRIM( cpl_name )
        ENDDO
+#endif
     ENDIF
     WRITE ( io, 99 )