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

Timestamp:

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

Author:

knoop

Message:

OpenACC port for SPEC

File:

• palm/trunk/SOURCE/coriolis.f90 (modified) (4 diffs)

palm/trunk/SOURCE/coriolis.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC port for SPEC
+! 
+! 3538 2018-11-20 10:55:41Z suehring
 ! Note concerning topography masking added
 ! 
@@ -145 +148 @@
 !--       u-component
           CASE ( 1 )
+             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
+             !$ACC PRESENT(wall_flags_0) &
+             !$ACC PRESENT(v, w, vg) &
+             !$ACC PRESENT(tend)
              DO  i = nxlu, nxr
                 DO  j = nys, nyn
@@ -167 +174 @@
 !--       v-component
           CASE ( 2 )
+             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
+             !$ACC PRESENT(wall_flags_0) &
+             !$ACC PRESENT(u, ug) &
+             !$ACC PRESENT(tend)
              DO  i = nxl, nxr
                 DO  j = nysv, nyn
@@ -185 +196 @@
 !--       w-component
           CASE ( 3 )
+             !$ACC PARALLEL LOOP COLLAPSE(3) PRIVATE(i, j, k, flag) &
+             !$ACC PRESENT(wall_flags_0) &
+             !$ACC PRESENT(u) &
+             !$ACC PRESENT(tend)
              DO  i = nxl, nxr
                 DO  j = nys, nyn