Changeset 4457 for palm/trunk/SOURCE/synthetic_turbulence_generator_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/synthetic_turbulence_generator_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -1257 +1257 @@
 !------------------------------------------------------------------------------!
  SUBROUTINE stg_main
+
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz
 
     INTEGER(iwp) :: i           !< grid index in x-direction