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

Timestamp:

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

Author:

raasch

Message:

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

File:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz added
+! 
+! 4442 2020-03-04 19:21:13Z suehring
 ! Change order of dimension in surface array %frac to allow for better 
 ! vectorization.
@@ -7871 +7874 @@
         ONLY:  cpu_log, log_point_s
 
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz
+
     IMPLICIT NONE
 
@@ -12390 +12396 @@
         ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, bc_dirichlet_s, dt_3d,              &
                time_since_reference_point
+
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz
 
     USE indices,                                                                                   &