Changeset 1208 for palm/trunk

Timestamp:

Aug 13, 2013 6:41:49 AM (11 years ago)

Author:

raasch

Message:

acc-update clauses added for "ar" so that ffts other than cufft can also be used

File:

• palm/trunk/SOURCE/poisfft.f90 (modified) (6 diffs)

palm/trunk/SOURCE/poisfft.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! acc-update clauses added for "ar" so that ffts other than cufft can also be
+! used (although they are not ported and will give a poor performance)
 !
 ! Former revisions:
@@ -229 +230 @@
     SUBROUTINE poisfft( ar, work )
 
+       USE control_parameters,  ONLY : fft_method
        USE cpulog
        USE interfaces
@@ -284 +286 @@
 
           CALL cpu_log( log_point_s(4), 'fft_x', 'start' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update host( ar )
+          ENDIF
           CALL fft_x( ar, 'forward' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update device( ar )
+          ENDIF
           CALL cpu_log( log_point_s(4), 'fft_x', 'pause' )
 
@@ -294 +302 @@
 
           CALL cpu_log( log_point_s(7), 'fft_y', 'start' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update host( ar )
+          ENDIF
           CALL fft_y( ar, 'forward' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update device( ar )
+          ENDIF
           CALL cpu_log( log_point_s(7), 'fft_y', 'pause' )
 
@@ -317 +331 @@
 
           CALL cpu_log( log_point_s(7), 'fft_y', 'continue' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update host( ar )
+          ENDIF
           CALL fft_y( ar, 'backward' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update device( ar )
+          ENDIF
           CALL cpu_log( log_point_s(7), 'fft_y', 'stop' )
 
@@ -327 +347 @@
 
           CALL cpu_log( log_point_s(4), 'fft_x', 'continue' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update host( ar )
+          ENDIF
           CALL fft_x( ar, 'backward' )
+          IF ( fft_method /= 'system-specific' )  THEN
+             !$acc update device( ar )
+          ENDIF
           CALL cpu_log( log_point_s(4), 'fft_x', 'stop' )