Ignore:
Timestamp:
May 18, 2018 11:12:35 AM (3 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_ws.f90

    r2731 r3022  
    2525! -----------------
    2626! $Id$
     27! Bugfix in calculation of left-sided fluxes for u-component in OpenMP case.
     28!
     29! 2731 2018-01-09 17:44:02Z suehring
    2730! Enable loop vectorization by splitting the k-loop
    2831!
     
    17431746
    17441747       USE indices,                                                           &
    1745            ONLY:  nxl, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1
     1748           ONLY:  nxl, nxlu, nxr, nyn, nys, nzb, nzb_max, nzt, advc_flags_1
    17461749
    17471750       USE kinds
     
    18491852!
    18501853!--    Compute leftside fluxes for the respective boundary of PE
    1851        IF ( i == i_omp )  THEN
     1854       IF ( i == i_omp  .OR.  i == nxlu )  THEN
    18521855       
    18531856          DO  k = nzb+1, nzb_max
Note: See TracChangeset for help on using the changeset viewer.