Changeset 3052 for palm/trunk


Ignore:
Timestamp:
May 31, 2018 6:11:20 AM (6 years ago)
Author:
raasch
Message:

Do not open FORTRAN binary files in case of parallel netCDF I/O

File:
1 edited

Legend:

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

    r3049 r3052  
    2525! -----------------
    2626! $Id$
     27! Do not open FORTRAN binary files in case of parallel netCDF I/O
     28!
     29! 3049 2018-05-29 13:52:36Z Giersch
    2730! Error messages revised
    2831!
     
    382385             CALL check_open( 101+av*10 )
    383386          ENDIF
    384           IF ( data_output_2d_on_each_pe )  THEN
     387          IF ( data_output_2d_on_each_pe  .AND.  netcdf_data_format < 5 )  THEN
    385388             CALL check_open( 21 )
    386389          ELSE
     
    413416          ENDIF
    414417
    415           IF ( data_output_2d_on_each_pe )  THEN
     418          IF ( data_output_2d_on_each_pe  .AND.  netcdf_data_format < 5 )  THEN
    416419             CALL check_open( 22 )
    417420          ELSE
     
    444447          ENDIF
    445448
    446           IF ( data_output_2d_on_each_pe )  THEN
     449          IF ( data_output_2d_on_each_pe  .AND.  netcdf_data_format < 5 )  THEN
    447450             CALL check_open( 23 )
    448451          ELSE
Note: See TracChangeset for help on using the changeset viewer.