Changeset 3634 for palm/trunk/SOURCE/buoyancy.f90

Timestamp:

Dec 18, 2018 12:31:28 PM (5 years ago)

Author:

knoop

Message:

OpenACC port for SPEC

File:

• palm/trunk/SOURCE/buoyancy.f90 (modified) (2 diffs)

palm/trunk/SOURCE/buoyancy.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC port for SPEC
+! 
+! 3538 2018-11-20 10:55:41Z suehring
 ! Remove unnecessary double-masking of topography
 ! 
@@ -175 +178 @@
 !
 !--       Normal case: horizontal surface
+          !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k) &
+          !$ACC PRESENT(var) &
+          !$ACC PRESENT(ref_state) &
+          !$ACC PRESENT(tend)
           DO  i = nxl, nxr
              DO  j = nys, nyn