Changeset 4429 for palm/trunk/SOURCE/data_output_netcdf4_module.f90

Timestamp:

Feb 27, 2020 3:24:30 PM (4 years ago)

Author:

raasch

Message:

serial (non-MPI) test case added, several bugfixes for the serial mode

File:

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

palm/trunk/SOURCE/data_output_netcdf4_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directive moved to avoid compile error due to unused dummy argument
+! 
+! 4408 2020-02-14 10:04:39Z gronemeier
 ! Enable character-array output
 !
@@ -427 +430 @@
        nc_stat = NF90_DEF_VAR( file_id, variable_name, nc_variable_type, dimension_ids, variable_id )
 
-#if defined( __netcdf4_parallel )
 !
 !--    Define how variable can be accessed by PEs in parallel netcdf file
        IF ( nc_stat == NF90_NOERR  .AND.  TRIM( mode ) == mode_parallel )  THEN
+#if defined( __netcdf4_parallel )
           IF ( is_global )  THEN
              nc_stat = NF90_VAR_PAR_ACCESS( file_id, variable_id, NF90_INDEPENDENT )
@@ -436 +439 @@
              nc_stat = NF90_VAR_PAR_ACCESS( file_id, variable_id, NF90_COLLECTIVE )
           ENDIF
+#else
+          CONTINUE
+#endif
        ENDIF
-#endif
 
        IF ( nc_stat /= NF90_NOERR )  THEN