Changeset 4105 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jul 18, 2019 10:43:28 AM (5 years ago)
Author:
suehring
Message:

Bugfix concerning ACC directive for non-allocated array in turbulence_closure_mod; test case results updated

File:
1 edited

Legend:

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

    r4102 r4105  
    447447!--       Vertical walls
    448448          DO  l = 0, 3
     449!
     450!--          Note concerning missing ACC directive for this loop: Even though 
     451!--          the data structure bc_v is present, it may not contain any
     452!--          allocated arrays in the flat but also in a topography case,
     453!--          leading to a runtime error. Therefore, omit ACC directives
     454!--          for this loop, in contrast to the bc_h loop.
    449455             !$OMP PARALLEL DO PRIVATE( i, j, k )
    450              !$ACC PARALLEL LOOP PRIVATE(i, j, k) &
    451              !$ACC PRESENT(bc_v, e_p)
    452456             DO  m = 1, bc_v(l)%ns
    453                 i = bc_v(l)%i(m)           
     457                i = bc_v(l)%i(m)       
    454458                j = bc_v(l)%j(m)
    455459                k = bc_v(l)%k(m)
Note: See TracChangeset for help on using the changeset viewer.