Changeset 4444 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (5 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

• palm/trunk/SOURCE/data_output_3d.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
@@ -90 +93 @@
 
     USE control_parameters,                                                    &
-        ONLY:  debug_output_timestep,                                          &
-               do3d, do3d_no, do3d_time_count, io_blocks, io_group,            &
+        ONLY:  debug_output_timestep, do3d, do3d_no, do3d_time_count,          &
                land_surface, message_string, ntdim_3d, nz_do3d, plant_canopy,  &
                psolver, time_since_reference_point, urban_surface,             &
                varnamelength
 
+#if defined( __parallel )
+    USE control_parameters,                                                    &
+        ONLY:  io_blocks, io_group
+#endif
+
     USE cpulog,                                                                &
         ONLY:  log_point, cpu_log
 
-#if defined( __parallel )
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt,     &
                wall_flags_total_0
-#else
+
+#if ! defined( __parallel )
     USE indices,                                                               &
-        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
-               nzt, wall_flags_total_0
+        ONLY:  nx, ny
 #endif