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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz added
+! 
+! 4433 2020-02-28 22:14:43Z gronemeier
 ! remove warning for newly implemented RANS mode
 !
@@ -1366 +1369 @@
     USE control_parameters,                                                    &
         ONLY:  f, message_string, wall_adjustment, wall_adjustment_factor
+
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz, exchange_horiz_int
 
     USE grid_variables,                                                        &
@@ -4439 +4445 @@
                e_min
 
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz
+
     USE surface_layer_fluxes_mod,                                              &
         ONLY:  phi_m