Changeset 3022 for palm/trunk/SOURCE/advec_ws.f90

Timestamp:

May 18, 2018 11:12:35 AM (6 years ago)

Author:

suehring

Message:

Revise recent bugfix in nested runs at left and south boundary; bugfix in advection of u in case of OpenMP parallelization; bugfix in plant transpiration

File:

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

palm/trunk/SOURCE/advec_ws.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in calculation of left-sided fluxes for u-component in OpenMP case.
+! 
+! 2731 2018-01-09 17:44:02Z suehring
 ! Enable loop vectorization by splitting the k-loop
 ! 
@@ -1743 +1746 @@
 
        USE indices,                                                           &
-           ONLY:  nxl, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1
+           ONLY:  nxl, nxlu, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1
 
        USE kinds
@@ -1849 +1852 @@
 !
 !--    Compute leftside fluxes for the respective boundary of PE
-       IF ( i == i_omp )  THEN
+       IF ( i == i_omp  .OR.  i == nxlu )  THEN
        
           DO  k = nzb+1, nzb_max