Changeset 2118 for palm/trunk/SOURCE/swap_timelevel.f90

Timestamp:

Jan 17, 2017 4:38:49 PM (7 years ago)

Author:

raasch

Message:

all OpenACC directives and related parts removed from the code

File:

• palm/trunk/SOURCE/swap_timelevel.f90 (modified) (5 diffs)

palm/trunk/SOURCE/swap_timelevel.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! OpenACC directives removed
 ! 
 ! Former revisions:
@@ -142 +142 @@
     CALL cpu_log( log_point(28), 'swap_timelevel (nop)', 'start' )
 
-    !$acc kernels present( pt, pt_p, u, u_p, v, v_p, w, w_p )
-    !$acc loop independent
     DO  i = nxlg, nxrg
-       !$acc loop independent
        DO  j = nysg, nyng
-          !$acc loop independent
           DO  k = nzb, nzt+1
              u(k,j,i)  = u_p(k,j,i)
@@ -156 +152 @@
        ENDDO
     ENDDO
-!    u  = u_p
-!    v  = v_p
-!    w  = w_p
-!    pt = pt_p
-    !$acc end kernels
+
     IF ( .NOT. constant_diffusion )  THEN
-       !$acc kernels present( e, e_p )
-       !$acc loop independent
        DO  i = nxlg, nxrg
-          !$acc loop independent
           DO  j = nysg, nyng
-             !$acc loop independent
              DO  k = nzb, nzt+1
                 e(k,j,i) = e_p(k,j,i)
@@ -173 +161 @@
           ENDDO
        ENDDO
-!       e = e_p
-       !$acc end kernels
-    ENDIF
+    ENDIF
+
     IF ( ocean )  THEN
        sa = sa_p
     ENDIF
+
     IF ( humidity )  THEN
        q = q_p             
@@ -186 +174 @@
        ENDIF
     ENDIF
+
     IF ( passive_scalar )  s = s_p