Changeset 4444 for palm/trunk/SOURCE/surface_data_output_mod.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (5 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

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

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Fix wrongly declared nc_stat variable in surface_data_output_mod
 ! 
@@ -1410 +1413 @@
           ONLY:  io_blocks, io_group, time_since_reference_point
 
+#if defined( __parallel )
       USE pegrid,                                                              &
           ONLY:  comm2d, ierr
+#endif
 
 
@@ -4469 +4474 @@
           ONLY:  io_blocks, io_group
 
+#if defined( __parallel )
       USE pegrid,                                                              &
           ONLY:  comm2d, ierr
+#endif
 
       IMPLICIT NONE