Changeset 4536 for palm/trunk/SOURCE/header.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/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! output of restart data format added
+! 
+! 4473 2020-03-25 21:04:07Z gronemeier
 ! revised message if wall_adjustment is used
 ! 
@@ -1492 +1495 @@
        ENDIF
        WRITE ( io, 341 )  dt_dots
+    ENDIF
+
+!
+!-- Restart data formats
+    IF ( TRIM( initializing_actions ) == 'read_restart_data'  .OR.  write_binary )  THEN
+       WRITE ( io, 355 )
+       IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
+          WRITE ( io, 356 )  TRIM( restart_data_format_input )
+       ENDIF
+       IF ( write_binary )  THEN
+          WRITE ( io, 357 )  TRIM( restart_data_format_output )
+       ENDIF
     ENDIF
 
@@ -1829 +1844 @@
 353 FORMAT  (/'       Number of output time levels allowed: unlimited' /)
 354 FORMAT ('       Output format: ',A, '   compressed with level: ',I1/)
+355 FORMAT (/'    Restart data format(s):')
+356 FORMAT ('    Input format:  ',A)
+357 FORMAT ('    Output format: ',A)
 400 FORMAT (//' Physical quantities:'/ &
               ' -------------------'/)