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

Timestamp:

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

Author:

knoop

Message:

OpenACC port for SPEC

File:

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

palm/trunk/SOURCE/diffusion_v.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! OpenACC port for SPEC
+! 
+! 3547 2018-11-21 13:21:24Z suehring
 ! variables documented
 ! 
@@ -165 +168 @@
        REAL(wp)     ::  mask_top      !< flag to mask vertical downward-facing surface      
 
+       !$ACC PARALLEL LOOP COLLAPSE(2) PRIVATE(i, j, k, l, m) &
+       !$ACC PRIVATE(surf_e, surf_s, flag, kmxm, kmxp, kmzm, kmzp) &
+       !$ACC PRIVATE(mask_bottom, mask_east, mask_west, mask_top) &
+       !$ACC PRESENT(wall_flags_0, km) &
+       !$ACC PRESENT(u, v, w) &
+       !$ACC PRESENT(ddzu, ddzw, drho_air, rho_air_zw) &
+       !$ACC PRESENT(surf_def_h(0:2), surf_def_v(2:3)) &
+       !$ACC PRESENT(surf_lsm_h, surf_lsm_v(2:3)) &
+       !$ACC PRESENT(surf_usm_h, surf_usm_v(0:3)) &
+       !$ACC PRESENT(tend)
        DO  i = nxl, nxr
           DO  j = nysv, nyn