Changeset 4444 for palm/trunk/SOURCE/check_open.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/check_open.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4400 2020-02-10 20:32:41Z suehring
 ! Remove binary output for virtual measurements
 ! 
@@ -66 +69 @@
  
 
+    USE control_parameters,                                                                        &
+        ONLY:  coupling_char, data_output_2d_on_each_pe, max_masks, message_string, openfile,      &
+               run_description_header
+
+#if defined( __parallel )
     USE control_parameters,                                                    &
-        ONLY:  coupling_char, data_output_2d_on_each_pe,                       &
-               max_masks, message_string, nz_do3d, openfile,              &
-               run_description_header
+        ONLY:  nz_do3d
+#endif
 
     USE indices,                                                               &