Changeset 1208


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poisfft.f90

    r1112 r1208  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! acc-update clauses added for "ar" so that ffts other than cufft can also be
     23! used (although they are not ported and will give a poor performance)
    2324!
    2425! Former revisions:
     
    229230    SUBROUTINE poisfft( ar, work )
    230231
     232       USE control_parameters,  ONLY : fft_method
    231233       USE cpulog
    232234       USE interfaces
     
    284286
    285287          CALL cpu_log( log_point_s(4), 'fft_x', 'start' )
     288          IF ( fft_method /= 'system-specific' )  THEN
     289             !$acc update host( ar )
     290          ENDIF
    286291          CALL fft_x( ar, 'forward' )
     292          IF ( fft_method /= 'system-specific' )  THEN
     293             !$acc update device( ar )
     294          ENDIF
    287295          CALL cpu_log( log_point_s(4), 'fft_x', 'pause' )
    288296
     
    294302
    295303          CALL cpu_log( log_point_s(7), 'fft_y', 'start' )
     304          IF ( fft_method /= 'system-specific' )  THEN
     305             !$acc update host( ar )
     306          ENDIF
    296307          CALL fft_y( ar, 'forward' )
     308          IF ( fft_method /= 'system-specific' )  THEN
     309             !$acc update device( ar )
     310          ENDIF
    297311          CALL cpu_log( log_point_s(7), 'fft_y', 'pause' )
    298312
     
    317331
    318332          CALL cpu_log( log_point_s(7), 'fft_y', 'continue' )
     333          IF ( fft_method /= 'system-specific' )  THEN
     334             !$acc update host( ar )
     335          ENDIF
    319336          CALL fft_y( ar, 'backward' )
     337          IF ( fft_method /= 'system-specific' )  THEN
     338             !$acc update device( ar )
     339          ENDIF
    320340          CALL cpu_log( log_point_s(7), 'fft_y', 'stop' )
    321341
     
    327347
    328348          CALL cpu_log( log_point_s(4), 'fft_x', 'continue' )
     349          IF ( fft_method /= 'system-specific' )  THEN
     350             !$acc update host( ar )
     351          ENDIF
    329352          CALL fft_x( ar, 'backward' )
     353          IF ( fft_method /= 'system-specific' )  THEN
     354             !$acc update device( ar )
     355          ENDIF
    330356          CALL cpu_log( log_point_s(4), 'fft_x', 'stop' )
    331357
Note: See TracChangeset for help on using the changeset viewer.