Changeset 254 for palm/trunk/SOURCE/header.f90

Timestamp:

Mar 5, 2009 3:33:42 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! Output of messages replaced by message handling routine.
 ! Output of cluster_size
 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left,
@@ -135 +136 @@
        run_classification = '3D - run initialized by user'
     ELSE
-       PRINT*,'+++ header:  unknown action(s): ',initializing_actions
+       message_string = ' unknown action(s): ' // TRIM( initializing_actions )
+       CALL message( 'header', 'PA0191', 0, 0, 0, 6, 0 )
     ENDIF
     IF ( ocean )  THEN
@@ -634 +636 @@
 !
 !-- 1D-profiles
-    dopr_chr = 'Profile:'
+    dopr_chr = 'Pofile:'
     IF ( dopr_n /= 0 )  THEN
        WRITE ( io, 331 )