Changeset 274 for palm/trunk/SOURCE/user_parin.f90

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

• palm/trunk/SOURCE/user_parin.f90 (modified) (1 diff)

palm/trunk/SOURCE/user_parin.f90

@@ -75 +75 @@
     IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
        IF ( max_pr_user /= max_pr_user_tmp )  THEN
-          WRITE( message_string, * ) 'the number of user-defined profiles given in ', &
-                                     '&data_output_pr (', max_pr_user_tmp, ') doe',    &
-                                     'snot match the one ',                           &
-                                     '&found in the restart file (', max_pr_user,     &
+          WRITE( message_string, * ) 'the number of user-defined profiles ', &
+                     'given in &data_output_pr (', max_pr_user_tmp, ') doe', &
+                     'snot match the one ',                                  &
+                     '&found in the restart file (', max_pr_user,            &
                                      ')'
           CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )