Ignore:
Timestamp:
Mar 13, 2009 12:36:03 PM (13 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/user_parin.f90

    r256 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
     6! Output of messages replaced by message handling routine.
    67! topography_grid_convention moved to inipar
    78!
     
    7475    IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
    7576       IF ( max_pr_user /= max_pr_user_tmp )  THEN
    76           PRINT*, '+++ user_parin: the number of user-defined profiles given in'
    77           PRINT*, '                data_output_pr (', max_pr_user_tmp, ' doe', &
    78                                    's not match the one'
    79           PRINT*, '                found in the restart file (', max_pr_user, &
    80                                    ')'
    81           CALL local_stop
     77          WRITE( message_string, * ) 'the number of user-defined profiles given in ', &
     78                                     '&data_output_pr (', max_pr_user_tmp, ') doe',    &
     79                                     'snot match the one ',                           &
     80                                     '&found in the restart file (', max_pr_user,    &
     81                                     ')'
     82          CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )
    8283       ENDIF
    8384    ELSE
Note: See TracChangeset for help on using the changeset viewer.