Changeset 4457 for palm/trunk/SOURCE/disturb_field.f90

Timestamp:

Mar 11, 2020 2:20:43 PM (4 years ago)

Author:

raasch

Message:

ghost point exchange modularized, bugfix for wrong 2d-exchange

File:

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

palm/trunk/SOURCE/disturb_field.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz 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
@@ -64 +67 @@
         ONLY:  cpu_log, log_point
         
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz
+
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzb_max, &