Changeset 4536 for palm/trunk/SOURCE/cpulog_mod.f90

Timestamp:

May 17, 2020 5:24:13 PM (4 years ago)

Author:

raasch

Message:

messages and debug output converted to PALM routines (restart_data_mpi_io_mod), binary version number set to 5.0, heeader output for restart data format added, restart data filesize and I/O transfer speed added in cpu_measures, handling of single restart files (created with MPI-I/O) added to palmrun, bugfix: preprocessor directive adjusted (virtual_measurement_mod), location message format changed

File:

• palm/trunk/SOURCE/cpulog_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/cpulog_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! restart I/O transfer speed added
+! 
+! 4429 2020-02-27 15:24:30Z raasch
 ! bugfix: cpp-directives added for serial mode
 ! 
@@ -94 +97 @@
 
     USE control_parameters,                                                                        &
-        ONLY: message_string, nr_timesteps_this_run, run_description_header, synchronous_exchange
+        ONLY: message_string, nr_timesteps_this_run, restart_data_format_output,                   &
+              restart_file_size, run_description_header, synchronous_exchange, write_binary
                
     USE indices,                                                                                   &
@@ -499 +503 @@
              WRITE ( 18, 106 )
           ENDIF
-
-!
-!--       Empty lines in order to create a gap to the results of the model
-!--       continuation runs
-          WRITE ( 18, 107 )
+!
+!--       Output of restart data transfer speed
+          IF ( write_binary  .AND.  restart_data_format_output(1:3) == 'mpi' )  THEN
+             WRITE ( 18, 107 )  restart_file_size, restart_file_size / log_point(22)%sum
+          ENDIF
+!
+!--       Empty lines in order to create a gap to the results from the next restart run
+          WRITE ( 18, 108 )
 
 !
@@ -529 +536 @@
    105 FORMAT (/'Exchange of ghostpoints via MPI_SENDRCV')
    106 FORMAT (/'Exchange of ghostpoints via MPI_ISEND/MPI_IRECV')
-   107 FORMAT (//)
+   107 FORMAT (/'Restart file size:   ',F12.1,' MByte'/                                            &
+               &'I/O transfer speed:  ',F12.1,' MByte / sec')
+   108 FORMAT (//)
    110 FORMAT ('------------------------------------------------------------',                     &
                &'----------'//                                                                     &