Changeset 4495 for palm/trunk/SOURCE/parin.f90

Timestamp:

Apr 13, 2020 8:11:20 PM (5 years ago)

Author:

raasch

Message:

restart data handling with MPI-IO added, first part

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! restart data handling with MPI-IO added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! removed recycling_yshift
 ! 
@@ -267 +270 @@
              recycling_method_for_thermodynamic_quantities, recycling_width,   &
              reference_state, residual_limit,                                  &
+             restart_data_format, restart_data_format_input, restart_data_format_output,           &
              rotation_angle,                                                   &
              roughness_length, scalar_advec,                                   &
@@ -337 +341 @@
              profile_columns, profile_rows,     &
              restart_time, section_xy, section_xz, section_yz,                 &
+             restart_data_format, restart_data_format_input, restart_data_format_output,           &
              skip_time_data_output, skip_time_data_output_av, skip_time_dopr,  &
              skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,          &
@@ -499 +504 @@
           IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
 
+!
+!--          If not set by the user in the runtime parameters, the data format for restart
+!--          input needs to be set now! This is normally done later in check parameters.
+             IF ( TRIM( restart_data_format ) /= 'fortran_binary'  .AND.                           &
+                  TRIM( restart_data_format ) /= 'mpi' )  THEN
+                message_string = 'illegal restart data format "' // TRIM( restart_data_format ) // '"'
+                CALL message( 'parin', 'PA....', 1, 2, 0, 6, 0 )
+             ENDIF
+             IF ( TRIM( restart_data_format_input ) == 'undefined' )  THEN
+                restart_data_format_input = restart_data_format
+             ENDIF
+
              CALL rrd_global
 !