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_init_grid.f90

    r256 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
     6! Output of messages replaced by message handling routine.
    67! add 'single_street_canyon' as standard topography case
    78! -topography_grid_convention
     
    4849!--       Here the user can define his own topography.
    4950!--       After definition, please remove the following three lines!
    50           PRINT*, '+++ user_init_grid: topography "', &
    51                topography, '" not available yet'
    52           CALL local_stop
     51          message_string = 'topography "' // topography // '" not available yet'
     52          CALL message( 'user_init_grid', 'UI0005', 1, 2, 0, 6, 0 )
    5353
    5454       CASE DEFAULT
     
    5757!--       wrong character string that is neither recognized in init_grid nor
    5858!--       here in user_init_grid.
    59           PRINT*, '+++ (user_)init_grid: unknown topography "', &
    60                topography, '"'
    61           CALL local_stop
     59          message_string = 'unknown topography "' // topography // '"'
     60          CALL message( 'user_init_grid', 'UI0006', 1, 2, 0, 6, 0 )
    6261
    6362    END SELECT
Note: See TracChangeset for help on using the changeset viewer.