Changeset 3052 for palm/trunk

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:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Do not open FORTRAN binary files in case of parallel netCDF I/O
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -382 +385 @@
              CALL check_open( 101+av*10 )
           ENDIF
-          IF ( data_output_2d_on_each_pe )  THEN
+          IF ( data_output_2d_on_each_pe  .AND.  netcdf_data_format < 5 )  THEN
              CALL check_open( 21 )
           ELSE
@@ -413 +416 @@
           ENDIF
 
-          IF ( data_output_2d_on_each_pe )  THEN
+          IF ( data_output_2d_on_each_pe  .AND.  netcdf_data_format < 5 )  THEN
              CALL check_open( 22 )
           ELSE
@@ -444 +447 @@
           ENDIF
 
-          IF ( data_output_2d_on_each_pe )  THEN
+          IF ( data_output_2d_on_each_pe  .AND.  netcdf_data_format < 5 )  THEN
              CALL check_open( 23 )
           ELSE