Changeset 2118 for palm/trunk/SOURCE/poisfft_mod.f90
 Timestamp:
 Jan 17, 2017 4:38:49 PM (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/poisfft_mod.f90
r2101 r2118 20 20 ! Current revisions: 21 21 !  22 ! 22 ! OpenACC directives and related code removed 23 23 ! 24 24 ! Former revisions: … … 242 242 REAL(wp), DIMENSION(1:nz,nys:nyn,nxl:nxr) :: ar !< 243 243 REAL(wp), DIMENSION(nys:nyn,nxl:nxr,1:nz) :: ar_inv !< 244 !$acc declare create( ar_inv )245 244 246 245 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ar1 !< … … 257 256 ! 258 257 ! Twodimensional Fourier Transformation in x and ydirection. 259 IF ( pdims(2) == 1 .AND. pdims(1) > 1 .AND. num_acc_per_node == 0 ) & 260 THEN 258 IF ( pdims(2) == 1 .AND. pdims(1) > 1 ) THEN 261 259 262 260 ! … … 273 271 CALL tr_xy_ffty( ar, ar ) 274 272 275 ELSEIF ( pdims(1) == 1 .AND. pdims(2) > 1 .AND. num_acc_per_node == 0 ) & 276 THEN 273 ELSEIF ( pdims(1) == 1 .AND. pdims(2) > 1 ) THEN 277 274 278 275 ! … … 300 297 301 298 CALL cpu_log( log_point_s(4), 'fft_x', 'start' ) 302 IF ( fft_method /= 'systemspecific' ) THEN303 !$acc update host( ar )304 ENDIF305 299 CALL fft_x( ar, 'forward' ) 306 IF ( fft_method /= 'systemspecific' ) THEN307 !$acc update device( ar )308 ENDIF309 300 CALL cpu_log( log_point_s(4), 'fft_x', 'pause' ) 310 301 … … 317 308 318 309 CALL cpu_log( log_point_s(7), 'fft_y', 'start' ) 319 IF ( fft_method /= 'systemspecific' ) THEN320 !$acc update host( ar )321 ENDIF322 310 CALL fft_y( ar, 'forward', ar_tr = ar, & 323 311 nxl_y_bound = nxl_y, nxr_y_bound = nxr_y, & 324 312 nxl_y_l = nxl_y, nxr_y_l = nxr_y ) 325 IF ( fft_method /= 'systemspecific' ) THEN326 !$acc update device( ar )327 ENDIF328 313 CALL cpu_log( log_point_s(7), 'fft_y', 'pause' ) 329 314 … … 350 335 351 336 CALL cpu_log( log_point_s(7), 'fft_y', 'continue' ) 352 IF ( fft_method /= 'systemspecific' ) THEN353 !$acc update host( ar )354 ENDIF355 337 CALL fft_y( ar, 'backward', ar_tr = ar, & 356 338 nxl_y_bound = nxl_y, nxr_y_bound = nxr_y, & 357 339 nxl_y_l = nxl_y, nxr_y_l = nxr_y ) 358 IF ( fft_method /= 'systemspecific' ) THEN359 !$acc update device( ar )360 ENDIF361 340 CALL cpu_log( log_point_s(7), 'fft_y', 'stop' ) 362 341 … … 369 348 370 349 CALL cpu_log( log_point_s(4), 'fft_x', 'continue' ) 371 IF ( fft_method /= 'systemspecific' ) THEN372 !$acc update host( ar )373 ENDIF374 350 CALL fft_x( ar, 'backward' ) 375 IF ( fft_method /= 'systemspecific' ) THEN376 !$acc update device( ar )377 ENDIF378 351 CALL cpu_log( log_point_s(4), 'fft_x', 'stop' ) 379 352
Note: See TracChangeset
for help on using the changeset viewer.