Changeset 4536 for palm/trunk/SOURCE/check_parameters.f90
- Timestamp:
- May 17, 2020 5:24:13 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r4535 r4536 265 265 TRIM( restart_data_format ) /= 'mpi_shared_memory' ) THEN 266 266 message_string = 'illegal restart data format "' // TRIM( restart_data_format ) // '"' 267 CALL message( 'check_parameters', 'PA ....', 1, 2, 0, 6, 0 )267 CALL message( 'check_parameters', 'PA0724', 1, 2, 0, 6, 0 ) 268 268 ENDIF 269 269 … … 278 278 TRIM( restart_data_format_input ) /= 'mpi' .AND. & 279 279 TRIM( restart_data_format_input ) /= 'mpi_shared_memory' ) THEN 280 message_string = 'illegal restart data inputformat "' // &280 message_string = 'illegal restart input data format "' // & 281 281 TRIM( restart_data_format_input ) // '"' 282 CALL message( 'check_parameters', 'PA ....', 1, 2, 0, 6, 0 )282 CALL message( 'check_parameters', 'PA0725', 1, 2, 0, 6, 0 ) 283 283 ENDIF 284 284 IF ( TRIM( restart_data_format_output ) /= 'fortran_binary' .AND. & 285 285 TRIM( restart_data_format_output ) /= 'mpi' .AND. & 286 286 TRIM( restart_data_format_output ) /= 'mpi_shared_memory' ) THEN 287 message_string = 'illegal restart data outputformat "' // &287 message_string = 'illegal restart output data format "' // & 288 288 TRIM( restart_data_format_output ) // '"' 289 CALL message( 'check_parameters', 'PA ....', 1, 2, 0, 6, 0 )289 CALL message( 'check_parameters', 'PA0726', 1, 2, 0, 6, 0 ) 290 290 ENDIF 291 291
Note: See TracChangeset
for help on using the changeset viewer.