Ignore:
Timestamp:
Mar 17, 2014 1:35:16 PM (7 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/transpose.f90

    r1310 r1318  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! cpu_log_nowait parameter added to cpu measurements of the transpositions
     23! required for solving the Poisson equation (poisfft),
     24! module interfaces removed
    2325!
    2426! Former revisions:
     
    125127    USE cpulog
    126128    USE indices
    127     USE interfaces
    128129    USE pegrid
    129130    USE transpose_indices
     
    143144!
    144145!--    Transpose array
    145        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
     146       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    146147       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    147148       !$acc update host( f_inv )
     
    247248    USE cpulog
    248249    USE indices
    249     USE interfaces
    250250    USE pegrid
    251251    USE transpose_indices
     
    288288!
    289289!--    Transpose array
    290        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
     290       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    291291       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    292292       CALL MPI_ALLTOALL( work(nys_x,1,nzb_x,0), sendrecvcount_zx, MPI_REAL, &
     
    370370    USE cpulog
    371371    USE indices
    372     USE interfaces
    373372    USE pegrid
    374373    USE transpose_indices
     
    408407!
    409408!--    Transpose array
    410        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
     409       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    411410       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    412411       CALL MPI_ALLTOALL( work(1,nzb_y,nxl_y,0), sendrecvcount_xy, MPI_REAL, &
     
    453452    USE cpulog
    454453    USE indices
    455     USE interfaces
    456454    USE pegrid
    457455    USE transpose_indices
     
    558556    USE cpulog
    559557    USE indices
    560     USE interfaces
    561558    USE pegrid
    562559    USE transpose_indices
     
    594591!
    595592!--    Transpose array
    596        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
     593       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    597594       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    598595       !$acc update host( f_inv )
     
    679676    USE cpulog
    680677    USE indices
    681     USE interfaces
    682678    USE pegrid
    683679    USE transpose_indices
     
    715711!
    716712!--    Transpose array
    717        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
     713       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    718714       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    719715       !$acc update host( f_inv )
     
    800796    USE cpulog
    801797    USE indices
    802     USE interfaces
    803798    USE pegrid
    804799    USE transpose_indices
     
    841836!
    842837!--    Transpose array
    843        CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
     838       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
    844839       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    845840       CALL MPI_ALLTOALL( work(nxl_z,1,nys_z,0), sendrecvcount_yz, MPI_REAL, &
     
    885880    USE cpulog
    886881    USE indices
    887     USE interfaces
    888882    USE pegrid
    889883    USE transpose_indices
Note: See TracChangeset for help on using the changeset viewer.