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

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

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

palm/trunk/SOURCE/user_parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -155 +155 @@
     
     message_string = 'namelist userpar is deprecated and will be ' //          &
-                     'removed in near future. Please &use namelist ' //        &
+                     'removed in near future. &Please use namelist ' //        &
                      'user_parameters instead' 
     CALL message( 'user_parin', 'PA0487', 0, 1, 0, 6, 0 )
@@ -191 +191 @@
           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',   &
+                     'given in data_output_pr (', max_pr_user_tmp, ') doe',    &
                      'snot match the one ',                                    &
-                     '&found in the restart file (', max_pr_user,              &
+                     'found in the restart file (', max_pr_user,               &
                                      ')'
              CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )