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

Timestamp:

Mar 13, 2009 12:36:03 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

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

palm/trunk/SOURCE/user_parin.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! Output of messages replaced by message handling routine.
 ! topography_grid_convention moved to inipar
 !
@@ -74 +75 @@
     IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
        IF ( max_pr_user /= max_pr_user_tmp )  THEN
-          PRINT*, '+++ user_parin: the number of user-defined profiles given in'
-          PRINT*, '                data_output_pr (', max_pr_user_tmp, ' doe', &
-                                   's not match the one'
-          PRINT*, '                found in the restart file (', max_pr_user, &
-                                   ')'
-          CALL local_stop
+          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 )
        ENDIF
     ELSE