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

palm/trunk/SOURCE/advec_ws.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! use statement for exchange horiz added
+! 
+! 4414 2020-02-19 20:16:04Z suehring
 ! Move call for initialization of control flags to ws_init
 ! 
@@ -184 +187 @@
                dt_3d
 
+    USE exchange_horiz_mod,                                                    &
+        ONLY:  exchange_horiz_int
+
     USE indices,                                                               &
         ONLY:  advc_flags_m,                                                   &
@@ -208 +214 @@
         ONLY:  ddx, ddy
 
+    USE kinds
+
     USE pegrid,                                                                &
            ONLY:  threads_per_task
-
-    USE kinds
 
     USE statistics,                                                            &