Changeset 1153 for palm/trunk/SOURCE/wall_fluxes.f90

Timestamp:

May 10, 2013 2:33:08 PM (11 years ago)

Author:

raasch

Message:

code adjustment of accelerator version for PGI 12.3 / CUDA 5.0

File:

• palm/trunk/SOURCE/wall_fluxes.f90 (modified) (3 diffs)

palm/trunk/SOURCE/wall_fluxes.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! code adjustment of accelerator version for PGI 12.3 / CUDA 5.0
 !
 ! Former revisions:
@@ -259 +259 @@
        !$acc kernels present( hom, nzb_uvw_inner, nzb_uvw_outer, pt, rif_wall ) &
        !$acc         present( u, v, w, wall, wall_flux, z0 )
-       !$acc loop
+       !$acc loop independent
        DO  i = i_left, i_right
           DO  j = j_south, j_north
-             !$acc loop vector( 32 )
-             DO  k = min_inner, max_outer
+
+             IF ( wall(j,i) /= 0.0 )  THEN
 !
 !--             All subsequent variables are computed for the respective
 !--             location where the respective flux is defined.
-                IF ( k >= nzb_uvw_inner(j,i)+1  .AND. &
-                     k <= nzb_uvw_outer(j,i)    .AND.  wall(j,i) /= 0.0 )  THEN
+                !$acc loop independent vector( 32 )
+                DO  k = nzb_uvw_inner(j,i)+1, nzb_uvw_outer(j,i)
+
 !
 !--                (1) Compute rifs, u_i, v_i, ws, pt' and w'pt'
@@ -365 +366 @@
                    rif_wall(k,j,i,wall_index) = rifs
 
-                ENDIF
-
-             ENDDO
+!                ENDIF
+
+                ENDDO
+
+             ENDIF
+
           ENDDO
        ENDDO