Changeset 4105 for palm/trunk/SOURCE
- Timestamp:
- Jul 18, 2019 10:43:28 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/turbulence_closure_mod.f90
r4102 r4105 447 447 !-- Vertical walls 448 448 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. 449 455 !$OMP PARALLEL DO PRIVATE( i, j, k ) 450 !$ACC PARALLEL LOOP PRIVATE(i, j, k) &451 !$ACC PRESENT(bc_v, e_p)452 456 DO m = 1, bc_v(l)%ns 453 i = bc_v(l)%i(m) 457 i = bc_v(l)%i(m) 454 458 j = bc_v(l)%j(m) 455 459 k = bc_v(l)%k(m)
Note: See TracChangeset
for help on using the changeset viewer.