Ignore:
Timestamp:
May 15, 2020 12:07:23 PM (4 years ago)
Author:
raasch
Message:

bugfix for restart data format query

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_parameters.f90

    r4534 r4535  
    2525! -----------------
    2626! $Id$
     27! unneccessary query for restart data format removed
     28!
     29! 4534 2020-05-14 18:35:22Z raasch
    2730! adjustments for I/O on reduced number of cores using shared memory MPI
    2831!
     
    284287       message_string = 'illegal restart data output format "' //                                  &
    285288                        TRIM( restart_data_format_output ) // '"'
    286        CALL message( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
    287     ENDIF
    288 
    289     IF ( ( TRIM( restart_data_format_input ) == 'mpi_shared_memory'  .AND.                         &
    290            TRIM( restart_data_format_output ) /= 'mpi_shared_memory' )  .OR.                       &
    291          ( TRIM( restart_data_format_input ) /= 'mpi_shared_memory'  .AND.                         &
    292            TRIM( restart_data_format_output ) == 'mpi_shared_memory' ) )  THEN
    293        message_string = 'restart data formats both must be set "mpi_shared_memory"'
    294289       CALL message( 'check_parameters', 'PA....', 1, 2, 0, 6, 0 )
    295290    ENDIF
Note: See TracChangeset for help on using the changeset viewer.