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

Timestamp:

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

Author:

raasch

Message:

bugfix for restart data format query

File:

• palm/trunk/SOURCE/user_module.f90 (modified) (3 diffs)

palm/trunk/SOURCE/user_module.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for restart data format query
+! 
+! 4517 2020-05-03 14:29:30Z raasch
 ! added restart with MPI-IO for reading local arrays
 !
@@ -1241 +1244 @@
 !       WRITE ( 14 )  global_parameter
 
-    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
 !    CALL rrd_mpi_io( 'global_parameter', global_parameter )
@@ -1270 +1273 @@
 !       ENDIF
 
-    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
+    ELSEIF ( restart_data_format_output(1:3) == 'mpi' )  THEN
 
 !       IF ( ALLOCATED( u2_av ) )  CALL wrd_mpi_io( 'u2_av', u2_av )