Changeset 4893 for palm/trunk/SOURCE/read_restart_data_mod.f90

Timestamp:

Mar 2, 2021 4:39:14 PM (3 years ago)

Author:

raasch

Message:

revised output of surface data via MPI-IO for better performance

File:

• palm/trunk/SOURCE/read_restart_data_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! revised output of surface data via MPI-IO for better performance,
+! therefore binary version number has changed
+!
+! 4848 2021-01-21 15:51:51Z gronemeier
 ! bugfix: removed syn_turb_gen from restart files
 !
@@ -276 +280 @@
     CALL location_message( 'read global restart data', 'start' )
 
+!
+!-- Caution: When any of the read instructions have been changed, the
+!-- -------  version number stored in the variable binary_version_global has
+!--          to be increased. The same changes must also be done in wrd_write_global.
+    binary_version_global = '5.3'
+
     IF ( TRIM( restart_data_format_input ) == 'fortran_binary' )  THEN
 !
@@ -286 +296 @@
        READ ( 13 )  version_on_file
 
-       binary_version_global = '5.2'
        IF ( TRIM( version_on_file ) /= TRIM( binary_version_global ) )  THEN
           WRITE( message_string, * ) 'version mismatch concerning ',           &
@@ -373 +382 @@
 !
 !--    Now read all control parameters:
-!--    Caution: When the following read instructions have been changed, the
-!--    -------  version number stored in the variable binary_version_global has
-!--             to be increased. The same changes must also be done in
-!--             wrd_write_global.
+
        READ ( 13 )  length
        READ ( 13 )  restart_string(1:length)
@@ -873 +879 @@
 !--    Read global restart data using MPI-IO
 !--    ATTENTION: Arrays need to be read with routine rrd_mpi_io_global_array!
-!--    Caution: When any of the following read instructions have been changed, the
-!--    -------  version number stored in the variable binary_version_global has
-!--             to be increased. The same changes must also be done in
-!--             wrd_write_global.
+
 !
 !--    Open the MPI-IO restart file.
@@ -886 +889 @@
        CALL rrd_mpi_io( 'binary_version_global',  version_on_file )
 
-       binary_version_global = '5.1'
        IF ( TRIM( version_on_file ) /= TRIM( binary_version_global ) )  THEN
           WRITE( message_string, * ) 'version mismatch concerning binary_version_global:',         &