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

palm/trunk/SOURCE/vertical_nesting_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz added
+! 
+! 4444 2020-03-05 15:59:50Z raasch
 ! bugfix: cpp-directives for serial mode added
 ! 
@@ -76 +79 @@
 !------------------------------------------------------------------------------!
  MODULE vertical_nesting_mod
+
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz, exchange_horiz_2d
 
     USE kinds