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

Timestamp:

May 14, 2020 6:35:22 PM (4 years ago)

Author:

raasch

Message:

I/O on reduced number of cores added (using shared memory MPI)

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! adjustments for I/O on reduced number of cores using shared memory MPI
+! 
+! 4514 2020-04-30 16:29:59Z suehring
 ! Enable output of qsurf and ssurf
 ! 
@@ -256 +259 @@
 !-- Check and set the restart data format variables
     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( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
@@ -269 +273 @@
 
     IF ( TRIM( restart_data_format_input ) /= 'fortran_binary'  .AND.                              &
-         TRIM( restart_data_format_input ) /= 'mpi' )  THEN
+         TRIM( restart_data_format_input ) /= 'mpi'             .AND.                              &
+         TRIM( restart_data_format_input ) /= 'mpi_shared_memory' )  THEN
        message_string = 'illegal restart data input format "' //                                   &
                         TRIM( restart_data_format_input ) // '"'
@@ -275 +280 @@
     ENDIF
     IF ( TRIM( restart_data_format_output ) /= 'fortran_binary'  .AND.                             &
-         TRIM( restart_data_format_output ) /= 'mpi' )  THEN
+         TRIM( restart_data_format_output ) /= 'mpi'             .AND.                             &
+         TRIM( restart_data_format_output ) /= 'mpi_shared_memory' )  THEN
        message_string = 'illegal restart data output format "' //                                  &
                         TRIM( restart_data_format_output ) // '"'
+       CALL message( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
+    ENDIF
+
+    IF ( ( TRIM( restart_data_format_input ) == 'mpi_shared_memory'  .AND.                         &
+           TRIM( restart_data_format_output ) /= 'mpi_shared_memory' )  .OR.                       &
+         ( TRIM( restart_data_format_input ) /= 'mpi_shared_memory'  .AND.                         &
+           TRIM( restart_data_format_output ) == 'mpi_shared_memory' ) )  THEN
+       message_string = 'restart data formats both must be set "mpi_shared_memory"'
        CALL message( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
     ENDIF