Changeset 258 for palm/trunk/SOURCE/user_init_grid.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_init_grid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/user_init_grid.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! Output of messages replaced by message handling routine.
 ! add 'single_street_canyon' as standard topography case
 ! -topography_grid_convention
@@ -48 +49 @@
 !--       Here the user can define his own topography.
 !--       After definition, please remove the following three lines!
-          PRINT*, '+++ user_init_grid: topography "', &
-               topography, '" not available yet'
-          CALL local_stop
+          message_string = 'topography "' // topography // '" not available yet'
+          CALL message( 'user_init_grid', 'UI0005', 1, 2, 0, 6, 0 )
 
        CASE DEFAULT
@@ -57 +57 @@
 !--       wrong character string that is neither recognized in init_grid nor 
 !--       here in user_init_grid.
-          PRINT*, '+++ (user_)init_grid: unknown topography "', &
-               topography, '"'
-          CALL local_stop
+          message_string = 'unknown topography "' // topography // '"'
+          CALL message( 'user_init_grid', 'UI0006', 1, 2, 0, 6, 0 )
 
     END SELECT