Changeset 258 for palm/trunk/SOURCE/user_read_restart_data.f90
- Timestamp:
- Mar 13, 2009 12:36:03 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_read_restart_data.f90
r226 r258 5 5 6 6 !------------------------------------------------------------------------------! 7 ! Actualrevisions:7 ! Current revisions: 8 8 ! ----------------- 9 ! 9 ! Output of messages replaced by message handling routine. 10 ! 10 11 ! 11 12 ! Former revisions: … … 81 82 ! 82 83 ! CASE DEFAULT 83 ! PRINT*, '+++ user_init: unknown variable named "',&84 ! TRIM( field_char ), '" found in'85 ! PRINT*, 'data from prior run on PE ', myid86 ! CALL local_stop84 ! 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 ) 87 88 ! 88 89 ! END SELECT
Note: See TracChangeset
for help on using the changeset viewer.