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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: missing parallel cpp-directives added
+! 
+! 2817 2018-02-19 16:32:21Z knoop
 ! Preliminary gust module interface implemented
 ! 
@@ -283 +286 @@
 !-- For netCDF4/HDF5 output, data is written in parallel into one file.
     IF ( netcdf_data_format < 5 )  THEN
+#if defined( __parallel )
        CALL check_open( 30 )
+#endif
        IF ( myid == 0 )  CALL check_open( 106+av*10 )
     ELSE