Changeset 1318 for palm/trunk/SOURCE/transpose.f90

Timestamp:

Mar 17, 2014 1:35:16 PM (10 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:

• palm/trunk/SOURCE/transpose.f90 (modified) (15 diffs)

palm/trunk/SOURCE/transpose.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! cpu_log_nowait parameter added to cpu measurements of the transpositions
+! required for solving the Poisson equation (poisfft),
+! module interfaces removed
 !
 ! Former revisions:
@@ -125 +127 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices
@@ -143 +144 @@
 !
 !--    Transpose array
-       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
+       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
        !$acc update host( f_inv )
@@ -247 +248 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices
@@ -288 +288 @@
 !
 !--    Transpose array
-       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
+       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
        CALL MPI_ALLTOALL( work(nys_x,1,nzb_x,0), sendrecvcount_zx, MPI_REAL, &
@@ -370 +370 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices
@@ -408 +407 @@
 !
 !--    Transpose array
-       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
+       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
        CALL MPI_ALLTOALL( work(1,nzb_y,nxl_y,0), sendrecvcount_xy, MPI_REAL, &
@@ -453 +452 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices
@@ -558 +556 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices
@@ -594 +591 @@
 !
 !--    Transpose array
-       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
+       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
        !$acc update host( f_inv )
@@ -679 +676 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices
@@ -715 +711 @@
 !
 !--    Transpose array
-       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
+       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
        !$acc update host( f_inv )
@@ -800 +796 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices
@@ -841 +836 @@
 !
 !--    Transpose array
-       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' )
+       CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start', cpu_log_nowait )
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
        CALL MPI_ALLTOALL( work(nxl_z,1,nys_z,0), sendrecvcount_yz, MPI_REAL, &
@@ -885 +880 @@
     USE cpulog
     USE indices
-    USE interfaces
     USE pegrid
     USE transpose_indices