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

Timestamp:

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

Author:

raasch

Message:

restart data handling with MPI-IO added, first part

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! check new restart_data_format parameters
+! 
+! 4493 2020-04-10 09:49:43Z pavelkrc
 ! Kolmogorov length scale eta added to profile output
 !
@@ -245 +248 @@
        CALL message( 'check_parameters', 'PA0476', 1, 2, 0, 6, 0 )
     ENDIF
+
+!
+!-- Check and set the restart data format variables
+    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( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
+    ENDIF
+
+    IF ( TRIM( restart_data_format_input ) == 'undefined' )  THEN
+       restart_data_format_input = restart_data_format
+    ENDIF
+    IF ( TRIM( restart_data_format_output ) == 'undefined' )  THEN
+       restart_data_format_output = restart_data_format
+    ENDIF
+
+    IF ( TRIM( restart_data_format_input ) /= 'fortran_binary'  .AND.                              &
+         TRIM( restart_data_format_input ) /= 'mpi' )  THEN
+       message_string = 'illegal restart data input format "' //                                   &
+                        TRIM( restart_data_format_input ) // '"'
+       CALL message( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
+    ENDIF
+    IF ( TRIM( restart_data_format_output ) /= 'fortran_binary'  .AND.                             &
+         TRIM( restart_data_format_output ) /= 'mpi' )  THEN
+       message_string = 'illegal restart data output format "' //                                  &
+                        TRIM( restart_data_format_output ) // '"'
+       CALL message( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
+    ENDIF
+
+!
+!-- Set flag for including total domain boundaries in the restart data (MPI-IO) in case of
+!-- non-cyclic boundary conditions
+    include_total_domain_boundaries = .NOT. ( bc_lr_cyc  .AND.  bc_ns_cyc )
 
 !