Changeset 3728 for palm

Timestamp:

Feb 8, 2019 3:52:48 PM (6 years ago)

Author:

gronemeier

Message:

bugfix: add missing cpp option to encapsule netcdf commands

File:

• palm/trunk/SOURCE/surface_data_output_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: add cpp options
+! 
+! 3727 2019-02-08 14:52:10Z gronemeier
 ! Enable NetCDF output for surface data (suehring, gronemeier)
 ! 
@@ -1325 +1328 @@
 !--   and update time axis.
       IF ( to_netcdf )  THEN
+#if defined( __netcdf4_parallel )
          IF ( dosurf_time_count(av) + 1 > ntdim_surf(av) )  THEN
             WRITE ( message_string, * ) 'Output of surface data is not given at t=',          &
@@ -1346 +1350 @@
             CALL netcdf_handle_error( 'surface_data_output', 6666 )
          ENDIF
+#endif
       ENDIF
 
@@ -2723 +2728 @@
          
          IF ( to_netcdf )  THEN
+#if defined( __netcdf4_parallel )
 !
 !--         Write output array to file
@@ -2730 +2736 @@
                                     count = (/ surfaces%ns, 1 /) )
             CALL netcdf_handle_error( 'surface_data_output', 6667 )
-         
+#endif
          ENDIF