Changeset 1524 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Jan 14, 2015 1:18:19 PM (9 years ago)

Author:

keck

Message:

message string

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -890 +890 @@
              READ ( 13 )  momentum_advec
              IF ( TRIM( momentum_advec_check ) /= TRIM( momentum_advec ) )  THEN
-                WRITE( message_string, * ) 'momentum_advec of the restart run',&
+                WRITE( message_string, * ) 'momentum_advec of the restart run ',&
                                'differs from momentum_advec of the initial run.'
                 CALL message( 'read_parts_of_var_list', 'PA0100', &
@@ -909 +909 @@
              READ ( 13 )  scalar_advec
              IF ( TRIM( scalar_advec_check ) /= TRIM( scalar_advec ) )  THEN
-                WRITE( message_string, * ) 'scalar_advec of the restart run', &
+                WRITE( message_string, * ) 'scalar_advec of the restart run ', &
                                'differs from scalar_advec of the initial run.'
                 CALL message( 'read_parts_of_var_list', 'PA0101', &