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

Timestamp:

May 15, 2020 12:07:23 PM (5 years ago)

Author:

raasch

Message:

bugfix for restart data format query

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for restart data format query
+! 
+! 4505 2020-04-20 15:37:15Z schwenkel
 ! Add flag for saturation check
 ! 
@@ -511 +514 @@
 !--          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
+                  TRIM( restart_data_format ) /= 'mpi'             .AND.                           &
+                  TRIM( restart_data_format ) /= 'mpi_shared_memory' )  THEN
                 message_string = 'illegal restart data format "' // TRIM( restart_data_format ) // '"'
                 CALL message( 'parin', 'PA....', 1, 2, 0, 6, 0 )