Changeset 1318 for palm/trunk/SOURCE/poisfft.f90
- Timestamp:
- Mar 17, 2014 1:35:16 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft.f90
r1310 r1318 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! module interfaces removed 23 23 ! 24 24 ! Former revisions: … … 218 218 USE control_parameters, ONLY : fft_method, transpose_compute_overlap 219 219 USE cpulog 220 USE interfaces221 220 USE pegrid 222 221 … … 372 371 !-- 2d-domain-decomposition or no decomposition (1 PE run) with 373 372 !-- overlapping transposition / fft 373 !-- cputime logging must not use barriers, which would prevent overlapping 374 374 ALLOCATE( f_out_y(0:ny,nxl_y:nxr_y,nzb_y:nzt_y), & 375 375 f_out_z(0:nx,nys_x:nyn_x,nzb_x:nzt_x) ) … … 399 399 400 400 IF ( kk == 1 ) THEN 401 CALL cpu_log( log_point_s(5), 'transpo forward', 'start' )401 CALL cpu_log( log_point_s(5), 'transpo forward', 'start', cpu_log_nowait ) 402 402 ELSE 403 CALL cpu_log( log_point_s(5), 'transpo forward', 'continue' )403 CALL cpu_log( log_point_s(5), 'transpo forward', 'continue', cpu_log_nowait ) 404 404 ENDIF 405 405 … … 413 413 414 414 IF ( kk == 1 ) THEN 415 CALL cpu_log( log_point_s(4), 'fft_x', 'start' )415 CALL cpu_log( log_point_s(4), 'fft_x', 'start', cpu_log_nowait ) 416 416 ELSE 417 CALL cpu_log( log_point_s(4), 'fft_x', 'continue' )417 CALL cpu_log( log_point_s(4), 'fft_x', 'continue', cpu_log_nowait ) 418 418 ENDIF 419 419 … … 456 456 DO ii = 0, nblk 457 457 458 CALL cpu_log( log_point_s(5), 'transpo forward', 'continue' )458 CALL cpu_log( log_point_s(5), 'transpo forward', 'continue', cpu_log_nowait ) 459 459 460 460 DO inew = 0, nx-1 … … 468 468 469 469 IF ( ii == 1 ) THEN 470 CALL cpu_log( log_point_s(7), 'fft_y', 'start' )470 CALL cpu_log( log_point_s(7), 'fft_y', 'start', cpu_log_nowait ) 471 471 ELSE 472 CALL cpu_log( log_point_s(7), 'fft_y', 'continue' )472 CALL cpu_log( log_point_s(7), 'fft_y', 'continue', cpu_log_nowait ) 473 473 ENDIF 474 474 … … 518 518 !-- Forward Fourier Transformation 519 519 !-- Transposition y --> z 520 CALL cpu_log( log_point_s(5), 'transpo forward', 'continue' )520 CALL cpu_log( log_point_s(5), 'transpo forward', 'continue', cpu_log_nowait ) 521 521 522 522 DO jnew = 0, ny-1 … … 535 535 ! 536 536 !-- Solve the tridiagonal equation system along z 537 CALL cpu_log( log_point_s(6), 'tridia', 'start' )537 CALL cpu_log( log_point_s(6), 'tridia', 'start', cpu_log_nowait ) 538 538 539 539 n = isave(2) + jj … … 548 548 !-- backward tranpose are in the same section 549 549 IF ( jj == 0 ) THEN 550 CALL cpu_log( log_point_s(8), 'transpo invers', 'start' )550 CALL cpu_log( log_point_s(8), 'transpo invers', 'start', cpu_log_nowait ) 551 551 ELSE 552 CALL cpu_log( log_point_s(8), 'transpo invers', 'continue' )552 CALL cpu_log( log_point_s(8), 'transpo invers', 'continue', cpu_log_nowait ) 553 553 ENDIF 554 554 … … 597 597 DO ii = 0, nblk 598 598 599 CALL cpu_log( log_point_s(7), 'fft_y', 'continue' )599 CALL cpu_log( log_point_s(7), 'fft_y', 'continue', cpu_log_nowait ) 600 600 601 601 n = isave(2) + ii … … 613 613 ENDIF 614 614 615 CALL cpu_log( log_point_s(8), 'transpo invers', 'continue' )615 CALL cpu_log( log_point_s(8), 'transpo invers', 'continue', cpu_log_nowait ) 616 616 617 617 CALL transpose_yx( ar1(:,:,:), f_in ) … … 659 659 DO kk = 1, nblk 660 660 661 CALL cpu_log( log_point_s(4), 'fft_x', 'continue' )661 CALL cpu_log( log_point_s(4), 'fft_x', 'continue', cpu_log_nowait ) 662 662 663 663 n = isave(2) + kk - 1 … … 670 670 ENDIF 671 671 672 CALL cpu_log( log_point_s(8), 'transpo invers', 'continue' )672 CALL cpu_log( log_point_s(8), 'transpo invers', 'continue', cpu_log_nowait ) 673 673 674 674 CALL transpose_xz( ar1(:,:,:), f_in ) … … 723 723 USE cpulog 724 724 USE indices 725 USE interfaces726 725 USE pegrid 727 726 USE transpose_indices … … 841 840 USE cpulog 842 841 USE indices 843 USE interfaces844 842 USE pegrid 845 843 USE transpose_indices … … 963 961 USE grid_variables 964 962 USE indices 965 USE interfaces966 963 USE pegrid 967 964 USE transpose_indices … … 1094 1091 USE cpulog 1095 1092 USE indices 1096 USE interfaces1097 1093 USE pegrid 1098 1094 USE transpose_indices … … 1200 1196 USE cpulog 1201 1197 USE indices 1202 USE interfaces1203 1198 USE pegrid 1204 1199 USE transpose_indices … … 1307 1302 USE grid_variables 1308 1303 USE indices 1309 USE interfaces1310 1304 USE pegrid 1311 1305 USE transpose_indices
Note: See TracChangeset
for help on using the changeset viewer.