Changeset 4105 for palm/trunk/SOURCE

Timestamp:

Jul 18, 2019 10:43:28 AM (6 years ago)

Author:

suehring

Message:

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

File:

• palm/trunk/SOURCE/turbulence_closure_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -447 +447 @@
 !--       Vertical walls
           DO  l = 0, 3
+!
+!--          Note concerning missing ACC directive for this loop: Even though  
+!--          the data structure bc_v is present, it may not contain any 
+!--          allocated arrays in the flat but also in a topography case, 
+!--          leading to a runtime error. Therefore, omit ACC directives 
+!--          for this loop, in contrast to the bc_h loop. 
              !$OMP PARALLEL DO PRIVATE( i, j, k )
-             !$ACC PARALLEL LOOP PRIVATE(i, j, k) &
-             !$ACC PRESENT(bc_v, e_p)
              DO  m = 1, bc_v(l)%ns
-                i = bc_v(l)%i(m)            
+                i = bc_v(l)%i(m)        
                 j = bc_v(l)%j(m)
                 k = bc_v(l)%k(m)