Ignore:
Timestamp:
Apr 13, 2018 11:22:08 AM (3 years ago)
Author:
raasch
Message:

bugfix: missing parallel cpp-directives added

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_3d.f90

    r2817 r2967  
    2525! -----------------
    2626! $Id$
     27! bugfix: missing parallel cpp-directives added
     28!
     29! 2817 2018-02-19 16:32:21Z knoop
    2730! Preliminary gust module interface implemented
    2831!
     
    283286!-- For netCDF4/HDF5 output, data is written in parallel into one file.
    284287    IF ( netcdf_data_format < 5 )  THEN
     288#if defined( __parallel )
    285289       CALL check_open( 30 )
     290#endif
    286291       IF ( myid == 0 )  CALL check_open( 106+av*10 )
    287292    ELSE
Note: See TracChangeset for help on using the changeset viewer.