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

Timestamp:

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

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/exchange_horiz.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives added for serial mode
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -46 +49 @@
 
     USE control_parameters,                                                    &
-        ONLY:  bc_lr_cyc, bc_ns_cyc, grid_level, mg_switch_to_pe0, synchronous_exchange
+        ONLY:  bc_lr_cyc, bc_ns_cyc
+
+#if defined( __parallel )
+    USE control_parameters,                                                    &
+        ONLY:  grid_level, mg_switch_to_pe0, synchronous_exchange
+#endif
                 
     USE cpulog,                                                                &
@@ -272 +280 @@
 !> @todo Missing subroutine description.
 !------------------------------------------------------------------------------!
- SUBROUTINE exchange_horiz_int( ar, nys_l, nyn_l, nxl_l, nxr_l, nzt_l, nbgp_local)
+ SUBROUTINE exchange_horiz_int( ar, nys_l, nyn_l, nxl_l, nxr_l, nzt_l, nbgp_local )
+
 
     USE control_parameters,                                                    &
-        ONLY:  bc_lr_cyc, bc_ns_cyc, grid_level
+        ONLY:  bc_lr_cyc, bc_ns_cyc
+
+#if defined( __parallel )
+    USE control_parameters,                                                    &
+        ONLY:  grid_level
+#endif
                        
     USE indices,                                                               &