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

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

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

    r226 r258  
    55
    66!------------------------------------------------------------------------------!
    7 ! Actual revisions:
     7! Current revisions:
    88! -----------------
    9 !
     9! Output of messages replaced by message handling routine.
     10!
    1011!
    1112! Former revisions:
     
    8182!
    8283!                CASE DEFAULT
    83 !                   PRINT*, '+++ user_init: unknown variable named "', &
    84 !                           TRIM( field_char ), '" found in'
    85 !                   PRINT*, '               data from prior run on PE ', myid
    86 !                   CALL local_stop
     84!                   WRITE( message_string, * ) 'unknown variable named "',        &
     85!                                               TRIM( field_char ), '" found in', &
     86!                                              '&data from prior run on PE ', myid
     87!                   CALL message( 'user_spectra', 'UI0012', 1, 2, 0, 6, 0 )
    8788!
    8889!             END SELECT
Note: See TracChangeset for help on using the changeset viewer.