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

Timestamp:

Jun 9, 2017 1:27:48 PM (7 years ago)

Author:

Giersch

Message:

Changed error messages

File:

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

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed error messages
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -353 +356 @@
                    ELSE                    
                       message_string = 'if humidity = '    //                  & 
-                            'FALSE output of ' // TRIM( output_variable ) //   &
+                            '.FALSE. output of ' // TRIM( output_variable ) //   &
                             'is not provided' 
                       CALL message( 'data_output_dvrp', 'PA0183',&
@@ -369 +372 @@
                       ENDDO
                    ELSE                     
-                      message_string = 'if cloud_physics = FALSE '       //    & 
+                      message_string = 'if cloud_physics = .FALSE. and '       //    & 
+                                  'cloud_droplets = .FALSE. '
                                   'output of ' // TRIM( output_variable) //    &
                                   'is not provided' 
@@ -387 +391 @@
                    ELSE                    
                       message_string = 'if passive_scalar = '    //            & 
-                            'FALSE output of ' // TRIM( output_variable ) //   &
+                            '.FALSE. output of ' // TRIM( output_variable ) //   &
                             'is not provided' 
                       CALL message( 'data_output_dvrp', 'PA0183',&