Changeset 1153 for palm/trunk/SOURCE/buoyancy.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/buoyancy.f90 (modified) (2 diffs)

palm/trunk/SOURCE/buoyancy.f90

@@ -20 +20 @@
 ! Currrent revisions:
 ! -----------------
-!
+! code adjustment of accelerator version for PGI 12.3 / CUDA 5.0
 !
 ! Former revisions:
@@ -238 +238 @@
              DO  i = i_left, i_right
                 DO  j = j_south, j_north
-                   !$acc loop vector(32)
-                   DO  k = 1, nzt-1
-                      IF ( k > nzb_s_inner(j,i) )  THEN
-                         tend(k,j,i) = tend(k,j,i) + atmos_ocean_sign * g * 0.5 * &
-                                                               (                  &
-                             ( var(k,j,i)   - hom(k,1,pr,0)   ) / hom(k,1,pr,0) + &
-                             ( var(k+1,j,i) - hom(k+1,1,pr,0) ) / hom(k+1,1,pr,0) &
-                                                               )
-                      ENDIF
+                   !$acc loop independent vector(32)
+                   DO  k = nzb_s_inner(j,i)+1, nzt-1
+                      tend(k,j,i) = tend(k,j,i) + atmos_ocean_sign * g * 0.5 * &
+                                                            (                  &
+                          ( var(k,j,i)   - hom(k,1,pr,0)   ) / hom(k,1,pr,0) + &
+                          ( var(k+1,j,i) - hom(k+1,1,pr,0) ) / hom(k+1,1,pr,0) &
+                                                            )
                    ENDDO
                 ENDDO