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

Timestamp:

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

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

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

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -30 +30 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! Output of messages replaced by message handling routine.
 ! TEST: different colours for isosurfaces
 !
@@ -398 +399 @@
                          ENDDO
                       ENDDO            
-                   ELSE
-                      IF ( myid == 0 )  THEN
-                         PRINT*, '+++ data_output_dvrp: if humidity/passive_scalar = ', & 
-                                 'FALSE output of ', output_variable,            &
-                                 'is not provided' 
-                      ENDIF
+                   ELSE                    
+                      message_string = 'if humidity/passive_scalar = ' //  & 
+                                       'FALSE output of ' // TRIM( output_variable ) // &
+                                       'is not provided' 
+                      CALL message( 'data_output_dvrp', 'PA0183', 0, 0, 0, 6, 0 )
                    ENDIF
              
@@ -415 +415 @@
                          ENDDO
                       ENDDO
-                   ELSE
-                      IF ( myid == 0 ) THEN
-                         PRINT*, '+++ data_output_dvrp: if cloud_physics = FALSE ', & 
-                                 'output of ', output_variable, 'is not provided' 
-                      ENDIF
+                   ELSE                     
+                         message_string = 'if cloud_physics = FALSE ' // & 
+                                          'output of ' // TRIM( output_variable) // &
+                                          'is not provided' 
+                         CALL message( 'data_output_dvrp', 'PA0184', 0, 0, 0, 6, 0 )
                    ENDIF