Ignore:
Timestamp:
Mar 17, 2014 1:35:16 PM (8 years ago)
Author:
raasch
Message:

former files/routines cpu_log and cpu_statistics combined to one module,
which also includes the former data module cpulog from the modules-file,
module interfaces removed

File:
1 edited

Legend:

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

    r1310 r1318  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! module interfaces removed
    2323!
    2424! Former revisions:
     
    218218       USE control_parameters,  ONLY : fft_method, transpose_compute_overlap
    219219       USE cpulog
    220        USE interfaces
    221220       USE pegrid
    222221
     
    372371!--       2d-domain-decomposition or no decomposition (1 PE run) with
    373372!--       overlapping transposition / fft
     373!--       cputime logging must not use barriers, which would prevent overlapping
    374374          ALLOCATE( f_out_y(0:ny,nxl_y:nxr_y,nzb_y:nzt_y), &
    375375                    f_out_z(0:nx,nys_x:nyn_x,nzb_x:nzt_x) )
     
    399399
    400400             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 )
    402402             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 )
    404404             ENDIF
    405405
     
    413413
    414414             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 )
    416416             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 )
    418418             ENDIF
    419419
     
    456456          DO  ii = 0, nblk
    457457
    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 )
    459459
    460460             DO  inew = 0, nx-1
     
    468468
    469469             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 )
    471471             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 )
    473473             ENDIF
    474474
     
    518518!--          Forward Fourier Transformation
    519519!--          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 )
    521521
    522522             DO  jnew = 0, ny-1
     
    535535!
    536536!--          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 )
    538538
    539539             n = isave(2) + jj
     
    548548!--          backward tranpose are in the same section
    549549             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 )
    551551             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 )
    553553             ENDIF
    554554
     
    597597          DO  ii = 0, nblk
    598598
    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 )
    600600
    601601             n = isave(2) + ii
     
    613613             ENDIF
    614614
    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 )
    616616
    617617             CALL transpose_yx( ar1(:,:,:), f_in )
     
    659659          DO  kk = 1, nblk
    660660
    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 )
    662662
    663663             n = isave(2) + kk - 1
     
    670670             ENDIF
    671671
    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 )
    673673
    674674             CALL transpose_xz( ar1(:,:,:), f_in )
     
    723723       USE cpulog
    724724       USE indices
    725        USE interfaces
    726725       USE pegrid
    727726       USE transpose_indices
     
    841840       USE cpulog
    842841       USE indices
    843        USE interfaces
    844842       USE pegrid
    845843       USE transpose_indices
     
    963961       USE grid_variables
    964962       USE indices
    965        USE interfaces
    966963       USE pegrid
    967964       USE transpose_indices
     
    10941091       USE cpulog
    10951092       USE indices
    1096        USE interfaces
    10971093       USE pegrid
    10981094       USE transpose_indices
     
    12001196       USE cpulog
    12011197       USE indices
    1202        USE interfaces
    12031198       USE pegrid
    12041199       USE transpose_indices
     
    13071302       USE grid_variables
    13081303       USE indices
    1309        USE interfaces
    13101304       USE pegrid
    13111305       USE transpose_indices
Note: See TracChangeset for help on using the changeset viewer.