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

palm/trunk/SOURCE/exchange_horiz_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -332 +335 @@
         ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, bc_dirichlet_s, &
                bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
-               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s, &
-               grid_level
-        
+               bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s
+
+#if defined( __parallel )
+    USE control_parameters,                                                    &
+        ONLY:  grid_level
+#endif
+
     USE cpulog,                                                                &
         ONLY:  cpu_log, log_point_s